c irifun.for
c-----------------------------------------------------------------------
C Functions and subroutines for the International Reference Ionosphere 
C (IRI) model. These functions and subroutines are called by the main
C IRI subroutine IRI_SUB in IRISUB.FOR.
C Please check the LIST of CHANGES below to find out if this is the 
C same version that you are using.
c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c Required i/o units:  
c  KONSOL= 6 Program messages (used when jf(12)=.true. -> konsol)
c  KONSOL=11 Program messages (used when jf(12)=.false. -> MESSAGES.TXT)
c
c     COMMON/iounit/konsol,mess is used to pass the value of KONSOL from 
c     IRISUB to IRIFUN and IGRF. If mess=false then messages are turned off.
c
c  UNIT=12 TCON: Solar/ionospheric indices IG12, R12 (IG_RZ.DAT) 
c  UNIT=13 APF,APFMSIS,APF_ONLY: Magnetic indices and F10.7 (APF107.DAT) 
c  UNIT=15 read_data_SD: coefficients of Shubin (2015) hmF2 model  
c
c i/o Units used in other programs:
c  UNIT=10 in IRISUB for CCIR and URSI coefficients (CCIR%%.ASC, %%=month+10)
c  UNIT=14 in IGRF/GETSHC for IGRF coeff. (DGRF%%%%.DAT, %%%%=year)
c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c changes from IRIFU9 to IRIF10:
c       SOCO for solar zenith angle 
c       ACOS and ASIN argument forced to be within -1 / +1
c       EPSTEIN functions corrected for large arguments
c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c changes from IRIF10 to IRIF11: 
c       LAY subroutines introduced
c       TEBA corrected for 1400 km
c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c changes from IRIF11 to IRIF12:
C       Neutral temperature subroutines now in CIRA86.FOR 
C       TEDER changed
C       All names with 6 or more characters replaced 
C       10/29/91 XEN: 10^ in loop, instead of at the end
C       1/21/93 B0_TAB instead of B0POL
C       9/22/94 Alleviate underflow condition in IONCOM exp()
c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c changes from IRIF12 to IRIF13:
C        9/18/95 MODA: add leap year and number of days in month
C        9/29/95 replace F2out with FOUT and XMOUT.
C       10/ 5/95 add TN and DTNDH; earlier in CIRA86.FOR
C       10/ 6/95 add TCON for reading indices
C       10/20/95 MODA: IN=1 MONTH=IMO
C       10/20/95 TCON: now includes RZ interpolation
C       11/05/95 IONCOM->IONCO1, added IONCOM_new, IONCO2
C       11/05/95 LSTID added for strom-time updating
C       11/06/95 ROGUL: transition 20. instead of 15.
C       12/01/95 add UT_LT for (date-)correct UT<->LT conversion
C       01/16/96 TCON: add IMST to SAVE statement
C       02/02/96 ROGUL: 15. reinstated
C       02/07/96 UT_LT: ddd, dddend integer, no leap year 2000
C       03/15/96 ZERO: finding delta for topside
C       03/18/96 UT_LT: mode=1, change of year
C       12/09/96 since 2000 is leap, delete y/100*100 condition
C       04/25/97 XMDED: minimal value also daytime
C       05/18/98 TCON: changes to IG_RZ (update date); -R = Cov
C       05/19/98 Replaced IONCO2&APROK; HEI,XHI in IONCOM_NEW
C       10/01/98 added INITIALIZE
C       04/30/99 MODA: reset bb(2)=28
C       11/08/99 avoid negative x value in function XE2. Set x=0.
C       11/09/99 added COMMON/const1/humr,dumr also for CIRA86
C       11/30/99 EXIT in APROK replaced with GOTO (N. Smirnova)
c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c changes from IRIF13 to IRIFUN:
C-Version-mm/dd/yy-description [person reporting correction]
C 2000.01 05/09/00 Include B0_98 subroutine to replace B0_NEW and B0POL
C 2000.02 05/18/00 Include Elteik and spharm_ik for Te
C 2000.03 06/09/00 Include xe3_1, xe4_1, xe_1
C 2000.04 06/11/00 Include f1_c1, f1_prob, modified fof1ed
C 2000.05 10/30/00 Include vdrift
C 2000.06 04/15/01 Include IGRF_SUB subroutine for IK Te model
C 2000.07 05/07/01 Include storm subroutine STORM and Ap access s/w
C 2000.08 09/07/01 APF: if(j1.eq.j2) -> if(IY.eq.j2) [P. Wilkinson]
C 2000.09 09/07/01 CONVER: LO2 = MOD(LO1,20)+1 [P. Webb,D. Pesnell]
C 2000.10 02/20/02 CONVER/DATA: 105.78 -> 015.78 [A. Shovkoplyas] 
C 2000.11 10/28/02 replace TAB/6 blanks, enforce 72/line [D. Simpson]
C 2000.12 11/08/02 removing unused variables (corr); apf0 removed
C 2000.13 11/26/02 apf() using keyed access to ap.dat file; apf->apf1
C 2000.14 11/27/02 changed F1_PROB; always 6 preceeding spaces 
C 2005.01 03/09/05 CALION,INVDPC,CALNE for new Ne, Ni models
C 2005.01 11/14/05 APF_ONLY for F107D;  
C 2005.01 11/14/05 spreadf_brazil; added constraint 0<=P<=1 
C 2005.02 05/11/06 NeQuick: XE1,TOPQ, M3000HM; stormvd,
C 2005.02 03/27/07 STORM: hourly interpolation of Ap  [A. Oinats]
C 2007.00 05/18/07 Release of IRI-2007
C 2007.01 09/19/07 vdrift et al.: without *8 (no change in results)
C 2007.04 02/07/09 IONLOW: N+ correction [V. Truhlik]
C 2007.05 03/30/09 NMDED: avoid exp underflow [K. Choi] 
C 2007.05 03/30/09 spreadf_brazil: bspl2f et al b(20->30) [Tab Ji]
C 2007.05 03/30/09 APF_ONLY: Compute monthly F10.7
C 2007.06 05/26/09 APF_ONLY: replace i with 1 and IMN with ID [R.Conde]
C 2007.07 07/10/09 CONVER/DATA: 015.78 -> 005.78 [E. Araujo] 
C 2007.08 07/23/09 STORM/CONVER: long. discont. [R. Conde, E. Araujo] 
C 2007.08 07/23/09 APF,APF_ONLY: use YearBegin from ap.dat [R. Conde] 
C 2007.10 02/03/10 APF: eof error message; clean-up APF and APF_only
C 2007.11 04/19/10 ELTEIK:     IF (ALT .GE. 900) THEN      [A. Senior]
C 2007.11 04/19/10 INILAY: HFFF,XFFF when NIGHT=F1REG=f    [A. Senior]
C
C 2012.00 10/05/11 IRI-2012: bottomside B0 B1 model (SHAMDB0D, SHAB1D),
C 2012.00 10/05/11   bottomside Ni model (iriflip.for), auroral foE
C 2012.00 10/05/11   storm model (storme_ap), Te with PF10.7 (elteik),
C 2012.00 10/05/11   oval kp model (auroral_boundary),IGRF-11(igrf.for), 
C 2012.00 10/05/11   NRLMSIS00 (cira.for), CGM coordinates, F10.7 daily
C 2012.00 10/05/11   81-day 365-day indices (apf107.dat), ap->kp (ckp),
C 2012.00 10/05/11   array size change jf(50) outf(20,1000), oarr(100).
C 2012.00 10/05/11   No longer needed: TEDER,DTNDH
C 2012.01 11/08/11 SHAMDB0D+: Initialize COMMON variables outside DATA
C 2012.01 11/08/11 SCHNEVPD,LEGFUN: COSD(x) -> COS(x*UMR)
C 2012.01 11/08/11 auroral_boundary: i1.gt/ge.48
C 2012.01 11/08/11 CALION: F107D upper/lower boundary 220/65
C 2012.01 01/06/12 delete PAUSE statement in SPLINT
C 2012.01 01/24/12 STORME_AP: change 365 to 366 leap year    [F. Simoes]
C 2012.01 06/30/12 HMF2ED: hmF2 too low foF2/foE ge 1.7 [I.Zakharenkova]
C 2012.01 09/14/12 SHAMDB0D,SHAB1D: initializing CONS2      [P. Coisson]
C 2012.02 12/12/12 STORME_AP: add KONSOL and ERROR ouput STORME_AP=-5.
C 2012.03 01/22/14 TPCORR: INVDIP --> INVDP                [J.K. Knight]
C 2012.04 07/24/14 COMMON/iounit/ added 'mess'
C 2012.05 08/25/14 ELTEIK,INVDPC,SOCO: ACOS: if(abs(x).gt.1) x=sign(1,x)
C 2012.06 10/02/14 IONLOW,IONHIGH: C1(82) added for SPHARM_IK [J.C. Xue]
C 2012.07 12/22/14 APFMSIS: changed text if out of range of APF107.DAT
C 2012.08 04/27/15 TCON: ionoindx(806),indrz(806)
C 2012.09 07/12/15 add read_ig_rz, readapf107 change TCON,APF* 
C 2012.10 07/20/15 APFMSIS: remove duplicate iiap(8)         [E. Blanch]
C 2012.11 04/11/18 read_ig_rz: rz=rz_new*0.7 from 01/2014, ig_rz_10_2016
C 2012.12 04/16/18 Versioning now based on year of major releases
C
C 2016.01 08/13/15 DATA in subr: DATA values only used first CALL 
C 2016.01 08/13/15 COMMON/CONST/UMR,PI 
C 2016.02 09/30/15 hmF2 new: SHAMDHMF2, SDMF2 and associated subroutines 
C 2016.02 09/30/15 ELTEIK,CALION,IONLOW,IONHIGH w/o invdip calc; INVDPC
C 2016.03 10/12/15 READAPF107: F365 -> F107_365             [M. Hausman]
C 2016.04 10/14/15 LEGFUN: replace print * with write(konsol,..)
C 2016.04 10/14/15 SHAMDB0D,SHAB1D,SCHNEVPD: COMMON/ATB/
C 2016.04 10/14/15 CLCMLT,DPMTRX --> IGRF.FOR
C 2016.05 02/01/16 TAL: if(SHBR.le.0.0) -> RETURN
C 2016.05 02/01/16 IONLOW,IONHIGH: ALT -> ALTI extrapolation  [S.R. Zhang]
C 2016.06 02/24/16 SCHNEVPH: COSD(X) -> COS(X*UMR); CONST/UMR   [W. Toler]
C 2016.06 02/24/16 SCHNEVP,LEGFUN: COMMON/COST/dfarg,PI         [W. Toler]
C 2016.07 03/23/16 CALION, IONLOW, IONHIGH, INVDPC  revised   [V. Truhlik]
C 2016.08 07/19/16 XE3_1: change D1F1 to C1                    [I. Galkin]
C 2016.09 09/08/16 CALION: Version 2.5 C/NOFS correction      [V. Truhlik]
C 2016.09 09/08/16 NEW: model_hmF2                             [V. Shubin]
C 2016.10 10/19/16 read_ig_rz: *0.7 for r12_new starting 01/2014
C 2016.11 02/23/17 SHAB1D: new SCHNEVPDB1 and COMMON/ATB1/ 
C 2016.12 03/22/18 INVDPC= ... ALFA*SIGN(1.0,DIPL)*INVL       [V. Truhlik]
C 2016.12 03/22/18 INVDPC_OLD for ELTEIK                      [V. Truhlik]
C 2016.13 04/06/18 read_data_SD: add web dir. location for mcsat%%.dat
C 2016.14 04/23/18 Versioning now based on year of major releases
C 2016.15 05/07/18 StormVd: AE7_12S -> AEd7_12S                [K. Knight]
C
C 2020.01 07/02/19 Added subroutines BOOKER and tops_cor2 (COMMON/BLO11) 
C 2020.02 07/19/19 XE1:itopn=3 is topside cor2 option (solar activity term)
C 2020.03 08/05/19 XE1: corrections and BLO11 change
C 2020.04 09/14/20 SOCO: special case sunrse > sunset 
C 2020.05 10/12/20 SOCO: sign(99,flat) -> sign(99.0,flat)     [P. Coisson] 
C 2020.06 11/15/20 XE4_1: using Huang's different HST vs HEF cases
C 2020.07 09/20/21 read_ig_rz: corrected format description in COMMENTS
C 2020.08 10/09/21 f1_c1: delete pi=umr*180 and abs(modip)
C 2020.08 10/09/21 readapf107,APF,APFMSIS,APf_ONLY: 23000 -> 27000
C 2020.09 01/12/22 XE4_1: add logical f1reg
C 2020.10 04/19/22 TEBA: XEA(6 -> 4) and delete XEA(5) and XEA(6) comput.
C 2020.10 04/20/22 IONTIF: new TI model Truhlik et al. (2021)
C 2020.10 04/20/22 IONTIF: del. INVDIP calc., output for fixed heights
C 2020.10 04/21/22 ELTEIK: del. INVDIP calc., output for fixed heights
C 2020.10 04/23/22 ELTE -> BOOKER1, COMMON/BLOTE deleted
C 2020.10 04/23/22 TI -> BOOKER1, COMMON/BLOCK8 deleted
C 2020.11 11/25/22 Changed unit to 15 for Shubin coefficients
C 2020.11 11/28/22 Added gallden, ohzden, caaden, caadenet, tcor2cal
C 2020.11 11/28/22 Improved XE1: argmax, COMMON
C 2020.12 05/11/23 Corrected Gallden, CAADEN: log10Ne -> xlogNe
C 2020.13 08/11/23 tcor2cal: SAX300,SUX300 -> srh,ssh        [P. Coisson]
C 2020.14 10/03/23 tcor2cal: COMMON and hmF2 deleted
C 2020.15 12/04/23 read_ig_rz and tcon: increase the array size to 1600
C 2020.15 12/04/23 read_ig_rz: update month, update day      [R. Panfili]
C 2020.16 04/04/24 FIELDG moved to IGRF.FOR and ROGUL to B0_98
C 2020.16 04/04/24 Adding sporadic E occurrence probability model ESPROB
C 2020.16 04/04/24 ESPROB,IONTIF,ELTEIK: DTOR,DPI from COMMON/CONST/
C 2020.16 04/04/24 ESPROB: INVDIP comp del. already in INVDPC_OLD
C 2020.17 12/22/24 ESPROB: New coefficients: kofdes, kofesm, kofess
C 2020.18 09/14/25 spreadf_brazil: improved code (month,kf,open) 
C                  
c-----------------------------------------------------------------------
c IRI functions and subroutines:
C Ne:       xe1, topq, zero, dxe1n, xe2, xe3_1, xe4_1, xe5, xe6, xe_1
C Plasmasphere:  gallden, ohzden, caaden, tcor2cal
C Te:       elteik, interp, koderr, koefd, kof107, locate, spharm_ik, 
C           tedespline, splint, swapel, tedifi, tpcas, tpcorr ,teba,
C           spharm, 
C Ti:       iontif, kerrti, kofdti, kol107, koq107 
C Ni:       rpid, rdhhe, rdno, koefp1, koefp2, koefp3, sufe, iondani, 
C           ionco1, ionco2, aprok, calion, ionlow, ionhigh, invdpc
C PEAKS:    fout, xmout, hmf2ed, xm3000hm, shamdhmf2, schnevpdh, 
C           model_hmf2,sdmf2, hmf2_med_sd, read_data_SD, fun_hmF2_SD,  
C           fun_Gk, Legendre,fun_hmF2UT, koeff_UT, fun_Akp_UT, fun_Fk_UT, 
C           fun_Gk_UT, fof1ed, f1_c1, f1_prob, foeedi, xmded, gamma1
C PROFILE:  toph05, chebish, shamdb0d, shab1d, schnevpd, tbfit, legfun,
C           b0_98, rogul, tal, valgul, dregion
C TIME:     soco, hpol, moda, ut_lt, sun
C EPSTEIN:  rlay, d1lay, d2lay, eptr, epst, epstep, epla, booker, booker1
C LAY-VER.: xe2to5, xen, lnglsn, lsknm, inilay
C INDICES:  tcon, apf, apfmsis, apf_only, ckp
C STORM:    conver(Geomag. Corrected Latitude), storm, storme_ap
C Vi:       vdrift, bspl4_time, bspl4_long, g, stormvd, bspl4_ptime
C Spread-F: spreadf_brazil, bspl4t, bspl22, bspl2l, bspl2f
C Sporadic-E:  esprob, kofdes, kofesm, kofess, spharm_ik1
C Auroral:  auroral_boundary 
C Misc.:    regfa1
c-----------------------------------------------------------------------
C
C        
C*************************************************************   
C*************** ELECTRON DENSITY ****************************   
C*************************************************************   
C
c
       REAL FUNCTION GALLDEN(XL,IDOY,R12)
C--------------------------------------------------------------
C Plasmasphere model of Gallager et al. (2000) up to plasmapause
C   INPUT:  XL       L-value
C           IDOY     day of year
C           R12      12-months running mean of sunspot number
C   OUTPUT: GALLDEN  electron density in m-3   
C--------------------------------------------------------------
       COMMON /const1/humr,dumr
         y1=-0.79*xl + 5.3
         y2=dumr*(idoy+9)
         y5=0.15*(cos(y2)-0.5*cos(2*y2))
         y6=y5+0.00127*R12-0.0635
         y7=y6*exp(-(xl-2)/1.5)
         xlogNe=y1+y7
		 if(abs(xlogNe).gt.38.0) xlogNe=sign(38.0,xlogNe)
         gallden=10**(xlogNe+6.0)
       RETURN          
       END             
C
C
      REAL FUNCTION CAADENET(XL,XMLT)
C--------------------------------------------------------------
C Plasmasphere model of Carpenter & Anderson (1992) for 
C extended plasma trough
C   INPUT:  XL       L-value
C           XMLT     magnetic local time in hours
C   OUTPUT: CAADENET  electron density in m-3   
C--------------------------------------------------------------
         y1=5800+300*xmlt
         if(xmlt.ge.6.0.and.xmlt.le.15.0) y1=-800+1400*xmlt
         y2=y1/xl**4.5
         y3=1.0-exp(-(xl-2.0)/10.0)
         caadenet=(y2+y3)*1.E6
       RETURN          
       END             
C
C
      REAL FUNCTION CAADEN(XL,IDOY,R12)
C--------------------------------------------------------------
C Plasmasphere model of Carpenter & Anderson (1992) up to 
C plasmapause
C   INPUT:  XL       L-value
C           IDOY     day of year
C           R12      12-months running mean of sunspot number
C   OUTPUT: CAADEN  electron density in m-3   
C--------------------------------------------------------------
       COMMON /const1/humr,dumr
         y1=-0.3145*xl + 3.9043
         y2=dumr*(idoy+9)
         y5=0.15*(cos(y2)-0.5*cos(2*y2))
         y6=y5+0.00127*R12-0.0635
         y7=y6*exp(-(xl-2)/1.5)
         xlogNe=y1+y7
		 if(abs(xlogNe).gt.38.0) xlogNe=sign(38.0,xlogNe)
         caaden=10**(xlogNe+6.0)
       RETURN          
       END             
C
C
      REAL FUNCTION OHZDEN(XL,XMLAT)
C--------------------------------------------------------------
C Plasmasphere model of Ozhogin et al. (2012) up to plasmapause
C   INPUT:  XL       L-value
C           XMLAT    magnetic latitude
C   OUTPUT: OHZDEN  electron density in m-3   
C--------------------------------------------------------------
       COMMON /CONST/UMR,PI
         y1=4.4693-0.4903*xl
		 if(abs(y1).gt.38.0) y1=sign(38.0,y1)
         xneq=10**y1
         xinv=acos(sqrt(1.0/xl))/umr
         y2=1.01*xmlat/xinv
         y3=cos(pi*y2/2.0)
         y4=y3**(-0.75)
         ohzden=1.0E6*xneq*y4
       RETURN          
       END             
C
C
      REAL FUNCTION TCOR2CAL(h,hour,xmodip,pf107,srh,ssh)
C--------------------------------------------------------------
C Calculates correction factor TCOR2
C    INPUT:  h   height in km
C            hmF2	F2 peak height in km
C            hour	Local time in hours
C            xmodip	modified dip latitude in degree
C            pf107	PF10.7 index
C            srh    Sunrise at height h in hours
C            ssh    Sunrset at height h in hours
C--------------------------------------------------------------
        DIMENSION a01(2,2)

	call tops_cor2(h,xmodip,a01)
      	tc2d=a01(1,1)+a01(2,1)*pf107
        tc2n=a01(1,2)+a01(2,2)*pf107
        TCOR2CAL = HPOL(HOUR,tc2d,tc2n,srh,ssh,1.,1.)
        RETURN          
        END             
		  
C
C
        FUNCTION XE1(H)    
c----------------------------------------------------------------
C DETERMINES ELECTRON DENSITY(M-3) IN THE TOPSIDE IONOSPHERE   
C (hmF2-2000 KM) BY HARMONIZED BENT-MODEL ADMITTING 
C VARIABILITY OF THE GLOBAL PARAMETERS BETA,ETA,DELTA,ZETA WITH        
C GEOM. LATITUDE, SMOOTHED SOLAR FLUX AND CRITICAL FREQUENCY.     
C BETA,ETA,DELTA,ZETA are computed in IRISUB program and 
C communicated via COMMON /BLO10. This is the IRI-2001 approach
C (itopn=0) [REF.:K.RAWER,S.RAMAKRISHNAN,1978] 
C New options include:
C (itopn=1) IRI2001cor: itopn,tcor1 in COMMON /BLO11.
C     TCOR1 is a correction factor for IRI-2001 that depends  
C           on height and modip 
C (itopn=2) NeQuick:  B2TOP,itopn  in COMMON /BLO11.
C	  B2TOP is the topside scale height that depends on foF2  
C           and hmF2. 
C (itopn=3) IRI-cor2: tcor2 in COMMON /BLO11.
C     TCOR2 is a correction factor for IRI-2001 that depends  
C           on height, LT, modip and PF10.7 
c----------------------------------------------------------------
        COMMON  /BLOCK1/HMF2,XNMF2,HMF1,F1REG
     &          /BLO10/BETA,ETA,DELTA,ZETA
     &          /BLO11/B2TOP,itopn,tcor1,tcor2
     &          /ARGEXP/ARGMAX

        logical 	f1reg              

        IF(itopn.eq.2) THEN
          XE1=TOPQ(H,XNMF2,HMF2,B2TOP)
          RETURN
        ENDIF
      
        DXDH = (1000.-HMF2)/700.
        x0 = 300. - delta
        xmx0 = (H-HMF2)/DXDH
        x = xmx0 + x0
        eptr1 = eptr(x,beta,394.5) - eptr(x0,beta,394.5)
        eptr2 = eptr(x,100.,300.0) - eptr(x0,100.,300.0)
        y = BETA * ETA * eptr1 + ZETA * (100. * eptr2 - xmx0)
        Y = y * dxdh
	YC = -Y+TCOR1+TCOR2
        if(abs(YC).gt.argmax) YC = sign(argmax,YC)
        XE1 = XNMF2 * EXP(YC)                             
        RETURN          
        END             
C
C
      subroutine tops_cor2(xh,vmod,a01)
C-------------------------------------------------------------------------
C Determines solar activity correction factor for topside cor option:
C		xh	height in km
C		vmod	modified dip latitude in degree
C		a01(1:2,1)		A0 and A1 for daytime
C		a01(1:2,2)		A0 and A1 for nighttime
C	        IRI-new = IRI-old * exp(A0+A1*PF10.7)
C-------------------------------------------------------------------------
      REAL	pa(6,3,2,2),ha(6,3,2,2),sh(5),thh(4)
      REAL	ah(6),av(6),ap01(3,2,2),a01(2,2)
      REAL  xmod(7),thhb(5),pb(7,2,2),bv(7)

      DATA pa/0,0,-2.4,-2.4,0,0,
     &	0,0,-1.6,-1.6,0,0,0,0,-2.2,-2.2,0,0,
     &	0,0,0.0185,0.0185,0,0,0,0,0.018,0.018,0,0,
     &	0,0,0.0175,0.0175,0,0,0,0,-1.1,-1.1,0,0,
     &	0,0,-0.7,-0.7,0,0,0,0,-1.4,-1.4,0,0,
     &	0,0,0.007,0.007,0,0,0,0,0.005,0.005,0,0,
     &	0,0,0.01,0.01,0,0/
      DATA ha/0,200,600,900,1400,1700,
     &	0,550,700,1100,1400,1700,
     &	0,200,600,950,1600,1700,
     &	0,300,650,750,1300,1700,
     &	0,450,750,850,1400,1700,
     &	0,300,650,750,1500,1700,
     &	0,400,500,900,1200,1700,
     &	0,400,500,900,1200,1700,
     &	0,350,550,800,1200,1700,
     &	0,400,500,750,900,1700,
     &	0,400,550,750,900,1700,
     &	0,400,550,750,900,1700/
      DATA xmod/-90.,-60.,-25.,0.,25.,60.,90./
      DATA thh/4*30.0/thhb/5*0.1/

      do 11 j2=1,3 
        do 11 k=1,2 
          do 11 l3=1,2 
            do 12 i=1,6
              AH(I)=HA(I,J2,K,L3)
12            AV(I)=PA(I,J2,K,L3)
11          AP01(J2,K,L3)=BOOKER(XH,6,AH,AV,THH)	
              	
      do 20 i=1,2
        do 20 k=1,2
          do 21 l=1,2
            pb(l,i,k)=0
            pb(l+5,i,k)=0
21          pb(l+2,i,k)=ap01(l,i,k)
20        pb(5,i,k)=ap01(3,i,k)

      do 14 k=1,2 
        do 14 l4=1,2
          do 15 i=1,7 
15          BV(I)=PB(I,K,L4)
14        A01(K,L4)=BOOKER(VMOD,7,XMOD,BV,THHB)

      return
      end
C
C
        REAL FUNCTION TOPQ(h,No,hmax,Ho)
c----------------------------------------------------------------
c  NeQuick formula
c----------------------------------------------------------------
        REAL No
        PARAMETER (g=0.125,rfac=100.0)
          dh=h-hmax
          g1=g*dh
          z=dh/(Ho*(1.0+rfac*g1/(rfac*Ho+g1)))
          if(z.gt.40) then
            topq=0.0
            return
          endif
          ee=exp(z)
          if (ee.gt.1.0e7) then
            ep=4.0/ee
          else
            ep=4.0*ee/(1.0+ee)**2
          endif
          TOPQ=No*ep
        RETURN
        END

C 
C
        REAL FUNCTION ZERO(DELTA)
C FOR A PEAK AT X0 THE FUNCTION ZERO HAS TO BE EQUAL TO 0.
        COMMON  /BLO10/         BETA,ETA,DEL,ZETA
     &          /ARGEXP/        ARGMAX

        arg1=delta/100.
        if (abs(arg1).lt.argmax) then
                z1=1./(1.+exp(arg1))
        else if (arg1.lt.0) then
                z1=1.
        else
                z1=0.
        endif
        arg1=(delta+94.5)/beta
        if (abs(arg1).lt.argmax) then
                z2=1./(1.+exp(arg1))
        else if (arg1.lt.0) then
                z2=1.
        else
                z2=0.
        endif
        zero=zeta*(1.-z1) - eta*z2
        return
        end
C
C
        FUNCTION DXE1N(H)                            
C LOGARITHMIC DERIVATIVE OF FUNCTION XE1 (KM-1).   
        COMMON    /BLOCK1/HMF2,XNMF2,HMF1,F1REG
     &            /BLO10/BETA,ETA,DELTA,ZETA                    
	    logical f1reg

        x0 = 300. - delta
        X=(H-HMF2)/(1000.0-HMF2)*700.0 + x0
        epst2 = epst(x,100.0,300.0)
        epst1 = epst(x,beta ,394.5)
        DXE1N = - ETA * epst1 + ZETA * (1. - epst2)             
        RETURN          
        END             
C
C
        REAL FUNCTION XE2(H)                         
C ELECTRON DENSITY FOR THE BOTTOMSIDE F-REGION (HMF1...HMF2).                   
        COMMON  /BLOCK1/HMF2,XNMF2,HMF1,F1REG
     &          /BLOCK2/B0,B1,C1  /ARGEXP/ARGMAX
        logical	f1reg

        X=(HMF2-H)/B0
        if(x.le.0.0) x=0.0
        z=x**b1
        if(z.gt.argmax) z=argmax
        XE2=XNMF2*EXP(-z)/COSH(X)                 
        RETURN          
        END             
C
C
        REAL FUNCTION XE3_1(H)
C ELECTRON DENSITY FOR THE F1-LAYER (HZ.....HMF1)
C USING THE NEW DEFINED F1-LAYER FUNCTION (Reinisch and Huang, Advances 
C in Space Research, Volume 25, Number 1, 81-88, 2000)
        COMMON	/BLOCK1/	HMF2,XNMF2,HMF1,F1REG
     &		/BLOCK2/	B0,B1,C1
        logical	f1reg
C
        h1bar=h
        if (f1reg) H1BAR=HMF1*(1.0-((HMF1-H)/HMF1)**(1.0+C1))
        XE3_1=XE2(H1BAR)
        RETURN
        END
C
C
        REAL FUNCTION XE4_1(H)
C ELECTRON DENSITY FOR THE INTERMEDIATE REGION (HEF...HZ)
C USING THE NEW DEFINED FUNCTION
        COMMON	/BLOCK1/HMF2,XNMF2,HMF1,F1REG
     &          /BLOCK2/B0,B1,C1   /BLOCK3/HZ,T,HST 
     &	        /BLOCK4/HME,XNME,HEF
        logical	f1reg
C
        if(hst.lt.0.0) then
          xe4_1=xnme+t*(h-hef)
          return
          endif

        IF(HST.EQ.HEF) THEN
          HAHA=H
        ELSE
          D=HZ-HST
          T=D*D/(HST-HEF)
          IF(HST.GT.HEF) THEN
            HAHA=HZ+0.5*T-SQRT(T*(0.25*T+HZ-H))
          ELSE
            HAHA=HZ+0.5*T+SQRT(T*(0.25*T+HZ-H))
          Endif
        ENDIF
        H2BAR=HAHA
        if(F1REG) H2BAR=HMF1*(1.0-((HMF1-HAHA)/HMF1)**(1.0+C1))
        XE4_1=XE2(H2BAR)
        RETURN
        END
C
C
        REAL FUNCTION XE5(H)                         
C ELECTRON DENSITY FOR THE E AND VALLEY REGION (HME..HEF).   
        LOGICAL NIGHT   
        COMMON  /BLOCK4/HME,XNME,HEF
     &          /BLOCK5/NIGHT,E(4)                    
        T3=H-HME        
        T1=T3*T3*(E(1)+T3*(E(2)+T3*(E(3)+T3*E(4))))  
        IF(NIGHT) GOTO 100                           
        XE5=XNME*(1+T1)  
        RETURN          
100     XE5=XNME*EXP(T1)                              
        RETURN          
        END             
C
C
        REAL FUNCTION XE6(H)                         
C ELECTRON DENSITY FOR THE D REGION (HA...HME).    
        COMMON /BLOCK4/HME,XNME,HEF
     &         /BLOCK6/HMD,XNMD,HDX
     &         /BLOCK7/D1,XKK,FP30,FP3U,FP1,FP2    
        IF(H.GT.HDX) GOTO 100                        
        Z=H-HMD         
        FP3=FP3U        
        IF(Z.GT.0.0) FP3=FP30                        
        XE6=XNMD*EXP(Z*(FP1+Z*(FP2+Z*FP3)))           
        RETURN          
100     Z=HME-H         
        XE6=XNME*EXP(-D1*Z**XKK)
        RETURN          
        END             
C
C
        REAL FUNCTION XE_1(H)                          
C ELECTRON DENSITY BEETWEEN HA(KM) AND 1000 KM     
C SUMMARIZING PROCEDURES  NE1....6;                
        COMMON /BLOCK1/HMF2,XNMF2,XHMF1,F1REG         
     &         /BLOCK3/HZ,T,HST
     &         /BLOCK4/HME,XNME,HEF
        logical f1reg
        if(f1reg) then
           hmf1=xhmf1
        else
           hmf1=hmf2
        endif
        IF(H.LT.HMF2) GOTO 100                       
c topside h >= hmF2
        XE_1=XE1(H)     
        RETURN          

100     IF(H.LT.HMF1) GOTO 300                       
c bottomside hmF1 <= h < hmF2
        XE_1=XE2(H)       
        RETURN          

300     IF(H.LT.HZ) GOTO 400                         
c F1 region HZ <= h < hmF1
        XE_1=XE3_1(H)       
        RETURN          

400     IF(H.LT.HEF) GOTO 500 
c intermediate region HEF <= h < HZ                       
        XE_1=XE4_1(H)       
        RETURN          

500     IF(H.LT.HME) GOTO 600                        
c E-valley hmE <= h < HEF
        XE_1=XE5(H)       
        RETURN          

c E-bottomside and D-region h <= hmE
600     XE_1=XE6(H)       
        RETURN          
        END             
C
C                     
C**********************************************************                     
C***************** ELECTRON TEMPERATURE ********************                    
C**********************************************************                     
C
      SUBROUTINE ELTEIK(PF107Y,INVDIP,MLT,DDD,PF107,TEV,SIGTEV)
C----------------------------------------------------------------------
C Empirical model of electron temperature (Te) in the outer ionosphere
C with inclusion of solar activity.
C Based on spherical harmonics approximation of measured
C Te (all available satellites) at altitudes centred on 350km, 550km,
C 850km, 1400km, and 2000km. For intermediate altitudes a linear
C interpolation is used. Recommended altitude range: 300-2500 km!!!
C Linear extrapolation is used for altitude ranges <300;350)km
C and (2000;2500> km. For days between seasons centred at
C (21.3. = 79; 21.6. = 171; 23.9. 265; 21.12. = 354) Te is
C interpolated by a harmonic function.
C
C Truhlik V., D. Bilitza, L. Triskova, A new global empirical model  
C of the electron temperature with inclusion of the solar activity 
C variations for IRI, Earth Planets and Space, 64(6), 531-543, 2012.
C  
C Input:  PF107Y - 0 .. PF107 correction NOT included
C                  1 .. PF107 correction included
C         INVDIP - "mix" coordinate of the dip latitude and of
C                the invariant latitude (can be computed with INVDPC)
C                positive northward, in deg, range <-90.0;90.0>
C         MLT - magnetic local time (central dipole)
C               in hours, range <0;24)
C         DDD - day of year; range <0;365>
C         PF107 - Phil Richard's solar radio flux;
C Output: TEV(5) - electron temperature in K at 350km, 550km,
C                  850km, 1400km, and 2000km
C         SIGTEV(5) - standard deviation (or model error) of TE in K
C                 at 350km, 550km, 850km, 1400km, and 2000km
C
C Version    Description    
C 1.00 (IDL) the first version Te=Te(invl,mlt,alt,season)
C 1.50 (IDL) corrected IK19 Te at 900km for possible Ne>2E11 m-3
C 2.00 (IDL) F107 included as a linear perturbation on global Te 
C            pattern: Te=Te(invlat,mlt,alt,season,F107)
C 3.00 (IDL) invdipl introduced
C 2000 (IDL,FORTRAN) correction for seasons included
C 2010 (IDL,FORTRAN) completely new version 
C Author of the code:
C         Vladimir Truhlik
C         Institute of Atm. Phys.
C         Bocni II.
C         141 31 Praha 4, Sporilov
C         Czech Republic
C         e-mail: vtr@ufa.cas.cz
C 
C 04/21/2022 INVDIP computation was moved to function INVDPC_OLD ... db 
C 04/04/2024 DTOR, DPI obtained through COMMON/CONST/............... db
C----------------------------------------------------------------------
C
      REAL INVDIP,MLT,PF107,TE,SIGTE,TEV(5),SIGTEV(5)
      INTEGER PF107Y,DDD,SEZDAY,XDAY
      INTEGER MIRREQ(81)
      REAL D(5,3,81),DERRTE(5,3,81),DPF107(5,3,81)
      DOUBLE PRECISION B(8),A
      REAL DPI,DTOR,ASA,INVL,RINVL,INVDP,RDIPL,ALFA,BETA
      REAL RMLT,RCOLAT
      REAL C(82)
      INTEGER SEZA,SEZB,DDDA,DDDB,DDDD
      REAL T350,T350A,T350B,T550,T550A,T550B,T850,T850A,T850B,
     &     T1400,T1400A,T1400B,T2000,T2000A,T2000B 
      REAL P350A,P350B,P550A,P550B,P850A,P850B,
     &     P1400A,P1400B,P2000A,P2000B 
      REAL E350,E350A,E350B,E550,E550A,E550B,E850,E850A,E850B,
     &     E1400,E1400A,E1400B,E2000,E2000A,E2000B 
      REAL TP350A,TP350B,TP550A,TP550B,TP850A,TP850B,
     &     TP140A,TP140B,TP200A,TP200B
      INTEGER FUN
      INTEGER I
      COMMON/ARGEXP/ARGMAX /CONST/DTOR,DPI
      DATA B/1.259921D0  ,-0.1984259D0 ,-0.04686632D0,-0.01314096D0,
     &      -0.00308824D0, 0.00082777D0,-0.00105877D0, 0.00183142D0/
C////////////////////////////////coefficients - main model part//////
      DATA (MIRREQ(J),J=1,81)/
     &  1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1,
     &  1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,
     & -1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1, 1,-1,
     &  1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1, 1,-1, 1,-1, 1, 1/
      CALL KOEFD(MIRREQ,D)
      CALL KODERR(MIRREQ,DERRTE)
      CALL KOF107(MIRREQ,DPF107)
C//////////////////////thresholds of solar activity//////////////////
      IF (PF107 .LT. 80) PF107=80
C////////////////////////////////////////////////////////////////////

      INVDP=INVDIP
      
      RMLT=MLT*DTOR*15.0
      RCOLAT=(90.0-INVDP)*DTOR
      CALL SPHARM_IK(C,8,8,RCOLAT,RMLT)
C     21.3. - 20.6.
      IF ((DDD .GE. 79) .AND. (DDD .LT. 171)) THEN
       SEZA=1
       SEZB=2
       DDDA=79
       DDDB=171
       DDDD=DDD
       FUN=0
      END IF
C     21.6. - 22.9.
      IF ((DDD .GE. 171) .AND. (DDD .LT. 265)) THEN
       SEZA=2
       SEZB=1
       DDDA=171
       DDDB=265
       DDDD=DDD
       FUN=1
      END IF
C     23.9. - 20.12.
      IF ((DDD .GE. 265) .AND. (DDD .LT. 354)) THEN
       SEZA=1
       SEZB=3
       DDDA=265
       DDDB=354
       DDDD=DDD
       FUN=0
      END IF
C     21.12. - 20.3.
      IF ((DDD .GE. 354) .OR. (DDD .LT. 79)) THEN
       SEZA=3
       SEZB=1
       DDDA=354
       DDDB=365+79
       DDDD=DDD
        IF (DDD .GE. 354) THEN
         DDDD=DDD
        ELSE
         DDDD=DDD+365
        END IF
       FUN=1 
      END IF
C     model Te
      T350A=0.0
      T350B=0.0
      T550A=0.0
      T550B=0.0
      T850A=0.0
      T850B=0.0
      T1400A=0.0
      T1400B=0.0
      T2000A=0.0
      T2000B=0.0                
      DO 30 I=1,81
       T350A=T350A+C(I)*D(1,SEZA,I)
       T350B=T350B+C(I)*D(1,SEZB,I)
       T550A=T550A+C(I)*D(2,SEZA,I)
       T550B=T550B+C(I)*D(2,SEZB,I)
       T850A=T850A+C(I)*D(3,SEZA,I)
       T850B=T850B+C(I)*D(3,SEZB,I)
       T1400A=T1400A+C(I)*D(4,SEZA,I)
       T1400B=T1400B+C(I)*D(4,SEZB,I)
       T2000A=T2000A+C(I)*D(5,SEZA,I)
30     T2000B=T2000B+C(I)*D(5,SEZB,I)
      T350A=10**T350A
      T350B=10**T350B
      T550A=10**T550A
      T550B=10**T550B
      T850A=10**T850A
      T850B=10**T850B
      T1400A=10**T1400A
      T1400B=10**T1400B
      T2000A=10**T2000A
      T2000B=10**T2000B
C     model PF107
      P350A=0.0
      P350B=0.0
      P550A=0.0
      P550B=0.0
      P850A=0.0
      P850B=0.0
      P1400A=0.0
      P1400B=0.0
      P2000A=0.0
      P2000B=0.0                
      DO 40 I=1,81
       P350A=P350A+C(I)*DPF107(1,SEZA,I)
       P350B=P350B+C(I)*DPF107(1,SEZB,I)
       P550A=P550A+C(I)*DPF107(2,SEZA,I)
       P550B=P550B+C(I)*DPF107(2,SEZB,I)
       P850A=P850A+C(I)*DPF107(3,SEZA,I)
       P850B=P850B+C(I)*DPF107(3,SEZB,I)
       P1400A=P1400A+C(I)*DPF107(4,SEZA,I)
       P1400B=P1400B+C(I)*DPF107(4,SEZB,I)
       P2000A=P2000A+C(I)*DPF107(5,SEZA,I)
40     P2000B=P2000B+C(I)*DPF107(5,SEZB,I)
      P350A=10**P350A
      P350B=10**P350B
      P550A=10**P550A
      P550B=10**P550B
      P850A=10**P850A
      P850B=10**P850B
      P1400A=10**P1400A
      P1400B=10**P1400B
      P2000A=10**P2000A
      P2000B=10**P2000B
C     model errTe
      E350A=0.0
      E350B=0.0
      E550A=0.0
      E550B=0.0
      E850A=0.0
      E850B=0.0
      E1400A=0.0
      E1400B=0.0
      E2000A=0.0
      E2000B=0.0                
      DO 50 I=1,81
       E350A=E350A+C(I)*DERRTE(1,SEZA,I)
       E350B=E350B+C(I)*DERRTE(1,SEZB,I)
       E550A=E550A+C(I)*DERRTE(2,SEZA,I)
       E550B=E550B+C(I)*DERRTE(2,SEZB,I)
       E850A=E850A+C(I)*DERRTE(3,SEZA,I)
       E850B=E850B+C(I)*DERRTE(3,SEZB,I)
       E1400A=E1400A+C(I)*DERRTE(4,SEZA,I)
       E1400B=E1400B+C(I)*DERRTE(4,SEZB,I)
       E2000A=E2000A+C(I)*DERRTE(5,SEZA,I)
50     E2000B=E2000B+C(I)*DERRTE(5,SEZB,I)
      E350A=10**E350A
      E350B=10**E350B
      E550A=10**E550A
      E550B=10**E550B
      E850A=10**E850A
      E850B=10**E850B
      E1400A=10**E1400A
      E1400B=10**E1400B
      E2000A=10**E2000A
      E2000B=10**E2000B 
C
      IF (PF107Y .EQ. 1) THEN
       CALL TPCORR(INVDP,MLT,DDD,PF107,
     &             P350A,P350B,P550A,P550B,P850A,P850B,
     &             P1400A,P1400B,P2000A,P2000B, 
     &             TP350A,TP350B,TP550A,TP550B,TP850A,TP850B,
     &             TP140A,TP140B,TP200A,TP200B) 
       T350A=T350A+TP350A
       T350B=T350B+TP350B
       T550A=T550A+TP550A
       T550B=T550B+TP550B
       T850A=T850A+TP850A
       T850B=T850B+TP850B
       T1400A=T1400A+TP140A
       T1400B=T1400B+TP140B
       T2000A=T2000A+TP200A
       T2000B=T2000B+TP200B
      END IF 
C     Te
      IF (FUN .EQ. 0) THEN
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       T350=(T350B-T350A)*SIN(DPI/2.0*XDAY/SEZDAY)+T350A
       T550=(T550B-T550A)*SIN(DPI/2.0*XDAY/SEZDAY)+T550A
       T850=(T850B-T850A)*SIN(DPI/2.0*XDAY/SEZDAY)+T850A
       T1400=(T1400B-T1400A)*SIN(DPI/2.0*XDAY/SEZDAY)+T1400A
       T2000=(T2000B-T2000A)*SIN(DPI/2.0*XDAY/SEZDAY)+T2000A
      ELSE
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       T350=(T350A-T350B)*COS(DPI/2.0*XDAY/SEZDAY)+T350B
       T550=(T550A-T550B)*COS(DPI/2.0*XDAY/SEZDAY)+T550B
       T850=(T850A-T850B)*COS(DPI/2.0*XDAY/SEZDAY)+T850B
       T1400=(T1400A-T1400B)*COS(DPI/2.0*XDAY/SEZDAY)+T1400B
       T2000=(T2000A-T2000B)*COS(DPI/2.0*XDAY/SEZDAY)+T2000B
      END IF
C     error Te
      IF (FUN .EQ. 0) THEN
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       E350=(E350B-E350A)*SIN(DPI/2.0*XDAY/SEZDAY)+E350A
       E550=(E550B-E550A)*SIN(DPI/2.0*XDAY/SEZDAY)+E550A
       E850=(E850B-E850A)*SIN(DPI/2.0*XDAY/SEZDAY)+E850A
       E1400=(E1400B-E1400A)*SIN(DPI/2.0*XDAY/SEZDAY)+E1400A
       E2000=(E2000B-E2000A)*SIN(DPI/2.0*XDAY/SEZDAY)+E2000A
      ELSE
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       E350=(E350A-E350B)*COS(DPI/2.0*XDAY/SEZDAY)+E350B
       E550=(E550A-E550B)*COS(DPI/2.0*XDAY/SEZDAY)+E550B
       E850=(E850A-E850B)*COS(DPI/2.0*XDAY/SEZDAY)+E850B
       E1400=(E1400A-E1400B)*COS(DPI/2.0*XDAY/SEZDAY)+E1400B
       E2000=(E2000A-E2000B)*COS(DPI/2.0*XDAY/SEZDAY)+E2000B
      END IF      
C ////////////////////////////////////////////////////////
C     Output values at the fixed altitudes
       TEV(1)=T350
       TEV(2)=T550
       TEV(3)=T850
       TEV(4)=T1400
       TEV(5)=T2000
       SIGTEV(1)=E350
       SIGTEV(2)=E550
       SIGTEV(3)=E850
       SIGTEV(4)=E1400
       SIGTEV(5)=E2000
      RETURN
      END
C
C
       REAL FUNCTION INTERP(N,L,V,X,XOUT)
C-----------------------------------------------------------------
        INTEGER N,L,S,S0,I
        REAL V(N),X(N),XOUT,Y2(N),YOUT,X0(4),V0(4)
        REAL XA,XB,XC,VA,VB,VC
        CALL locate(X,N,XOUT,S)
        IF (L .EQ. 0) THEN   
C       Spline interpolation (L=0)       
         IF (S .LT. 2) S=2
         IF (S .GT. (N-2)) S=N-2    
         S0=S-1 
         DO 10 I=1,4
          X0(I)=X(S0+I-1)
10        V0(I)=V(S0+I-1)
         CALL SPLINE(X0,V0,4,1e30,1e30,Y2)              
         CALL SPLINT(X0,V0,Y2,4,XOUT,YOUT)
        END IF 
        IF (L .EQ. 1) THEN
C       Linear interpolation (L=1)       
         IF ((S .GE.1) .AND. (S .LT. N)) THEN
          YOUT=(V(S+1)-V(S))/(X(S+1)-X(S))*(XOUT-X(S))+V(S)
         END IF
         IF (S .EQ. 0) THEN 
          YOUT=(V(2)-V(1))/(X(2)-X(1))*(XOUT-X(1))+V(1)
         END IF
         IF (S .EQ. N) THEN 
          YOUT=(V(N)-V(N-1))/(X(N)-X(N-1))*(XOUT-X(N))+V(N)
         END IF  
        END IF        
         IF (L .EQ. 2) THEN
C       Quadratic interpolation (L=2)    
         IF (S .LT. 2) S=2
         IF (S .GT. (N-1)) S=N-1    
          XA=X(S-1)
          XB=X(S)
          XC=X(S+1)
          VA=V(S-1)
          VB=V(S)
          VC=V(S+1)
          YOUT=VA*(XOUT-XB)*(XOUT-XC)/((XA-XB)*(XA-XC))+
     &         VB*(XOUT-XA)*(XOUT-XC)/((XB-XA)*(XB-XC))+
     &         VC*(XOUT-XA)*(XOUT-XB)/((XC-XA)*(XC-XB))        
         END IF         
        INTERP=YOUT
        RETURN
       END
C
C
      SUBROUTINE KODERR(MIRREQ,DOUT)
C--------------------------------------------------------------------
C coefficients - error model part
C--------------------------------------------------------------------
      REAL DOUT(5,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL DERRTE(5,3,81)
C     350km equinox
      DATA (DERRTE(1,1,J),J=1,81)/ 2.1178E+00, 1.3114E-07, 2.6148E-01,
     &                            -2.8483E-07,-8.3770E-02,-2.3135E-08,
     &                             5.7835E-02,-9.9532E-08,-2.0735E-02,
     &                            -1.9633E-01, 4.4717E-08, 5.0244E-02,
     &                            -9.1274E-09, 4.8611E-02, 2.5790E-08,
     &                             1.2098E-02,-3.3205E-08, 6.4414E-02,
     &                             2.4963E-08, 2.6340E-03,-3.3202E-08,
     &                             1.0058E-02, 1.0816E-09,-1.3928E-02,
     &                             1.4163E-08,-1.5039E-01, 1.0533E-08,
     &                            -4.5060E-03, 8.3297E-09, 2.4488E-03,
     &                            -3.7760E-09,-1.8094E-03, 9.6798E-02,
     &                            -1.8772E-09, 1.0867E-02,-1.9474E-09,
     &                            -6.8032E-03, 3.3603E-09, 7.8251E-03,
     &                             1.6945E-01,-1.1341E-08,-2.0581E-02,
     &                            -1.9111E-09,-5.8315E-03,-5.3837E-11,
     &                            -3.5216E-02,-3.3668E-09, 1.1079E-03,
     &                             8.5225E-09, 4.8433E-03,-2.6840E-09,
     &                             9.9141E-02,-1.0567E-08, 1.8306E-03,
     &                             1.9576E-10, 1.5468E-03, 1.6529E-01,
     &                            -8.3743E-09,-1.0179E-02,-1.0826E-09,
     &                            -1.4207E-03,-4.8573E-02, 1.1394E-08,
     &                             1.4470E-02, 2.6626E-10, 9.4379E-02,
     &                            -1.8262E-08,-2.0741E-03, 1.3797E-09,
     &                             5.9985E-03, 1.8945E-10, 3.4170E-04,
     &                             6.8581E-02, 5.7838E-09, 6.9529E-03,
     &                             1.5896E-02,-5.0075E-09, 2.8420E-02,
     &                            -4.8417E-09, 2.9191E-02, 4.8866E-02/
C     350km June solstice
      DATA (DERRTE(1,2,J),J=1,81)/ 2.1020E+00, 6.4074E-02, 8.8979E-02,
     &                            -1.6295E-01,-6.8680E-02,-4.9903E-02,
     &                             2.7634E-02, 5.3483E-02,-3.6534E-02,
     &                            -2.3004E-01, 5.3630E-02, 9.0376E-02,
     &                             2.6442E-02, 3.7594E-02, 1.7345E-02,
     &                            -4.3779E-02,-4.7004E-03, 9.0849E-02,
     &                             2.6102E-02,-3.2626E-02,-1.1288E-03,
     &                             2.4115E-02,-1.8059E-03,-3.9570E-03,
     &                             5.6676E-03,-6.3478E-02, 1.5132E-02,
     &                             3.1012E-02,-1.7904E-04,-1.7065E-04,
     &                            -6.6273E-03, 5.2600E-03,-1.5202E-01,
     &                             2.2061E-02, 1.0633E-02,-2.8630E-03,
     &                            -9.6908E-03,-1.3059E-03, 2.4577E-03,
     &                             9.1133E-02, 1.0057E-02, 7.1922E-04,
     &                             2.9878E-03, 7.7424E-04,-4.4353E-03,
     &                            -7.6271E-03, 1.4035E-02,-1.3870E-02,
     &                             1.6514E-03, 1.3885E-03, 7.7953E-04,
     &                             1.1731E-01, 2.3511E-02,-8.2554E-04,
     &                            -2.4741E-03, 1.5413E-04, 3.3407E-02,
     &                            -5.2112E-04,-6.3114E-03, 5.3990E-03,
     &                            -9.1618E-04, 1.1605E-02, 1.2671E-03,
     &                            -2.1350E-03, 2.6276E-03, 8.2348E-02,
     &                            -2.2401E-06,-1.4076E-03, 1.6459E-03,
     &                            -4.3340E-02, 1.4798E-02, 4.6935E-03,
     &                             3.0577E-02, 6.6725E-03, 9.0547E-03,
     &                            -1.5337E-02,-4.3676E-03,-6.5343E-02,
     &                             1.1111E-02, 2.3191E-03,-3.1603E-02/
C     550km equinox
      DATA (DERRTE(2,1,J),J=1,81)/ 2.0812E+00, 2.4308E-07, 5.6584E-01,
     &                             1.9086E-08,-7.6095E-02,-5.1032E-07,
     &                            -1.7049E-01,-1.0472E-08, 6.7164E-02,
     &                            -2.2595E-01, 4.2122E-09, 6.1906E-03,
     &                             3.9518E-08, 4.5763E-02,-2.2074E-08,
     &                            -1.1397E-02,-1.0607E-08, 1.6385E-01,
     &                             4.4170E-08,-2.2410E-02,-1.5556E-08,
     &                             1.2078E-02,-2.9345E-08,-2.3789E-03,
     &                             5.0526E-08,-2.4343E-01, 1.6201E-08,
     &                             1.9976E-02,-2.2397E-11, 4.6519E-03,
     &                            -1.1324E-09,-2.2603E-03,-1.2091E-01,
     &                             6.5523E-09, 2.3472E-02, 1.2557E-10,
     &                             3.5617E-03, 2.1655E-09,-1.3878E-03,
     &                            -2.4845E-02,-3.1878E-09,-1.3496E-02,
     &                             3.2648E-09,-8.7088E-04,-3.2223E-09,
     &                            -8.9965E-02, 1.6719E-09, 5.9083E-03,
     &                             7.0153E-10, 6.3045E-06,-1.7459E-09,
     &                             1.1872E-01, 3.4154E-09, 8.3146E-03,
     &                             7.3305E-11,-1.5977E-04, 2.3161E-02,
     &                             1.6234E-09,-9.7428E-03,-3.1068E-10,
     &                             1.1073E-03, 6.8273E-02, 7.3145E-09,
     &                             4.3073E-03, 1.3123E-10, 1.7105E-02,
     &                             1.9378E-09,-1.6849E-03, 3.9189E-10,
     &                             1.4436E-02,-7.5937E-10, 5.5921E-04,
     &                             3.0434E-02,-5.3588E-10, 1.7285E-03,
     &                            -4.6172E-02, 1.0424E-09,-3.3645E-02,
     &                             4.5595E-10,-1.0524E-02,-6.6919E-02/
C     550km June solstice
      DATA (DERRTE(2,2,J),J=1,81)/ 2.0903E+00, 4.9465E-02, 4.1834E-01,
     &                            -3.0721E-02,-1.0157E-01,-1.5666E-01,
     &                            -7.6741E-02, 1.2230E-01, 3.1210E-02,
     &                            -1.5269E-01, 4.5530E-02,-2.1376E-03,
     &                            -1.8327E-02, 2.3483E-02, 3.1872E-02,
     &                            -2.3882E-02,-1.4407E-02, 4.4489E-02,
     &                             1.4618E-02,-2.3584E-04,-6.5495E-03,
     &                             1.6602E-02,-7.5274E-03,-1.3698E-02,
     &                            -8.2527E-03,-2.1590E-01, 2.5813E-02,
     &                             5.0590E-02, 2.1022E-03, 1.0141E-02,
     &                            -5.1961E-03, 5.4961E-03, 9.7779E-03,
     &                             1.5319E-02,-1.0422E-02,-9.1045E-03,
     &                            -8.1248E-03,-5.5846E-03, 1.2857E-03,
     &                            -3.1836E-02,-4.4886E-03,-1.8187E-02,
     &                            -1.0253E-03,-4.4267E-04,-1.6932E-03,
     &                            -8.0883E-02, 2.2869E-02, 3.6385E-03,
     &                             6.0430E-03, 1.8587E-03,-1.5704E-03,
     &                             5.2741E-02, 2.3327E-03,-8.1670E-03,
     &                             2.3873E-03,-4.6541E-04,-5.5659E-02,
     &                             1.0942E-02,-1.0447E-02,-4.5905E-04,
     &                             2.9831E-04, 9.2199E-02,-8.8334E-03,
     &                             4.9657E-03,-1.2876E-03, 1.5785E-02,
     &                            -1.1838E-02,-2.4461E-04, 8.0350E-04,
     &                             8.4769E-03, 7.2212E-03, 1.2089E-03,
     &                             4.0519E-02,-8.4599E-03, 1.1588E-03,
     &                            -3.3485E-02, 5.8463E-03,-2.8652E-03,
     &                             8.8555E-03,-2.6834E-02,-5.0552E-02/
C     850km equinox
      DATA (DERRTE(3,1,J),J=1,81)/ 2.1741E+00,-3.0713E-07, 7.0198E-02,
     &                             4.9868E-07,-1.4427E-01, 2.8235E-08,
     &                             2.9561E-02,-8.1150E-07, 1.8500E-03,
     &                             8.5103E-02, 3.3995E-09, 3.7822E-02,
     &                             4.4995E-08, 3.8160E-02, 6.1687E-09,
     &                            -7.6820E-03,-3.5958E-08, 5.4672E-02,
     &                             1.5964E-10, 1.6325E-02,-2.9809E-08,
     &                            -2.8099E-03, 2.0887E-08,-1.6249E-03,
     &                             6.0045E-09,-4.3312E-02, 1.2503E-08,
     &                             3.9802E-02, 1.6466E-08, 1.4980E-02,
     &                            -7.7490E-09, 4.3219E-03, 1.0214E-01,
     &                            -1.6204E-08, 8.0035E-03, 3.9310E-09,
     &                            -2.1047E-04,-2.0211E-10, 2.3744E-03,
     &                            -1.0833E-01,-2.6971E-09,-1.8076E-02,
     &                             3.9598E-09, 8.3868E-05,-1.0948E-10,
     &                             7.6547E-02, 1.1306E-09,-1.5295E-02,
     &                            -8.6391E-10,-9.3252E-04,-9.1719E-12,
     &                             6.3563E-02,-1.2694E-08,-6.3280E-03,
     &                             5.2632E-10,-7.9613E-04,-1.1528E-02,
     &                             1.0676E-08, 1.0950E-02,-5.2360E-09,
     &                            -1.0426E-03,-8.4653E-03, 2.7643E-09,
     &                            -1.0339E-03, 1.0439E-09, 8.2576E-02,
     &                            -1.0238E-08,-5.2244E-03,-2.8944E-10,
     &                             1.7164E-02,-3.7405E-09, 1.3255E-03,
     &                            -1.6994E-02, 4.5616E-09, 1.3458E-03,
     &                             2.5439E-02,-5.2198E-09, 3.0276E-02,
     &                            -3.3313E-09,-5.7659E-02, 2.8990E-02/
C     850km June solstice
      DATA (DERRTE(3,2,J),J=1,81)/ 2.1685E+00,-9.1071E-02,-1.2046E-01,
     &                            -2.0084E-01,-7.3145E-02,-1.2735E-01,
     &                            -5.5899E-02, 5.2264E-02, 2.3232E-02,
     &                             2.8355E-02,-3.9715E-02, 6.7638E-02,
     &                             2.3396E-02,-8.2230E-03, 1.1384E-02,
     &                            -1.6781E-02,-1.7576E-03,-8.0253E-02,
     &                            -3.9270E-02,-1.0264E-02,-1.7191E-03,
     &                            -4.4668E-03,-1.2252E-04,-7.9374E-03,
     &                             2.3770E-03, 5.3901E-02,-1.9019E-03,
     &                             3.2748E-02, 8.1218E-03, 3.1385E-03,
     &                             6.5387E-03, 1.9147E-03, 9.6127E-02,
     &                            -2.7965E-02,-7.7649E-03, 3.7879E-03,
     &                            -4.0496E-03, 6.9544E-03,-5.2783E-04,
     &                            -1.5082E-01, 1.2699E-02,-1.2565E-03,
     &                             6.7728E-03, 3.6761E-03,-1.7899E-03,
     &                            -6.4801E-02,-1.7940E-02,-1.3257E-02,
     &                             5.2332E-03,-6.6084E-03,-2.9180E-03,
     &                             3.0122E-02, 2.1713E-02,-8.3407E-03,
     &                             1.1084E-03, 9.2082E-04,-8.5997E-02,
     &                            -1.4387E-02, 9.3689E-03, 6.2303E-04,
     &                             3.5905E-04, 1.7038E-02,-6.3187E-03,
     &                             3.6498E-03, 5.2909E-04,-7.0981E-03,
     &                             5.5184E-03, 6.6041E-04, 3.3276E-04,
     &                             6.9458E-02,-4.9348E-03, 6.0775E-03,
     &                            -5.0934E-02,-4.4936E-03, 1.3723E-03,
     &                            -8.1570E-03, 1.3748E-02, 7.0236E-03,
     &                             7.9914E-04,-4.6833E-02,-1.6385E-02/
C     1400km equinox
      DATA (DERRTE(4,1,J),J=1,81)/ 2.1822E+00, 3.3549E-08, 1.2164E-01,
     &                             2.4764E-07,-8.7502E-02,-4.0691E-07,
     &                             2.3355E-03,-2.8158E-07,-1.3242E-03,
     &                             1.4782E-02, 1.5416E-08, 8.8183E-02,
     &                             2.7046E-08,-2.2398E-02,-4.4919E-09,
     &                            -7.8416E-03,-1.7223E-08,-1.3115E-02,
     &                             2.6125E-08, 5.3183E-02,-2.9019E-08,
     &                            -3.7068E-04, 5.4685E-10, 1.7274E-03,
     &                             1.8592E-08,-6.2685E-02,-5.3055E-09,
     &                             3.1005E-02, 1.7579E-09, 2.4121E-03,
     &                             4.4444E-11, 4.1500E-03,-2.4028E-01,
     &                            -2.3704E-08, 8.7659E-03, 4.2252E-09,
     &                             4.8969E-03, 4.0202E-10, 1.9055E-03,
     &                            -1.6350E-01, 3.2289E-09, 1.4824E-03,
     &                            -3.6081E-09, 1.3517E-03, 2.4239E-09,
     &                            -1.6658E-01, 1.0138E-09, 1.3305E-02,
     &                             4.1669E-09, 1.8869E-03,-2.0831E-09,
     &                             2.0076E-02,-1.0135E-08, 2.2258E-03,
     &                            -1.2563E-09,-1.3067E-03,-1.8645E-01,
     &                             2.1705E-09,-7.8197E-03,-9.9205E-10,
     &                             9.4107E-04, 1.7436E-01,-2.0898E-09,
     &                             7.8659E-03, 2.7303E-10, 7.1875E-02,
     &                            -2.0799E-09,-3.6387E-03, 2.5309E-09,
     &                            -9.2385E-02, 1.1905E-09, 2.6655E-03,
     &                            -2.4122E-02, 6.0810E-10, 5.8355E-03,
     &                            -5.1302E-02,-7.9405E-09,-7.6189E-02,
     &                            -6.7824E-10,-3.1716E-02,-4.1055E-02/
C     1400km June solstice
      DATA (DERRTE(4,2,J),J=1,81)/ 2.1442E+00,-1.3864E-01, 1.7112E-01,
     &                            -2.1389E-01,-1.8186E-02,-1.0237E-01,
     &                             5.9302E-02, 6.0929E-02, 2.4732E-02,
     &                             7.8690E-02,-2.1925E-02, 1.2199E-01,
     &                            -2.8987E-02,-5.3213E-02,-4.8915E-03,
     &                             4.6986E-03,-1.1799E-02,-2.4101E-02,
     &                            -2.2908E-02, 2.3052E-02,-8.2149E-03,
     &                             3.1831E-03,-7.8876E-04, 9.0815E-03,
     &                             2.5709E-03,-1.9943E-01, 1.6644E-02,
     &                             3.6662E-02, 8.7738E-03,-2.2514E-03,
     &                            -3.0569E-04, 3.6344E-04, 5.6322E-02,
     &                             1.1496E-02, 1.8602E-02,-1.9180E-03,
     &                             6.0620E-03,-6.3761E-04, 3.2952E-03,
     &                            -1.4087E-01, 8.0978E-03, 4.2363E-03,
     &                             5.9284E-03, 9.9418E-04, 1.9006E-03,
     &                            -9.8914E-02, 8.8500E-03, 2.2600E-03,
     &                             4.5221E-05,-1.4855E-04, 6.4891E-04,
     &                             3.2002E-02,-1.8770E-02, 2.5766E-04,
     &                             6.8798E-04, 7.8152E-04,-5.2227E-02,
     &                             1.3226E-03,-1.6813E-03, 4.7524E-05,
     &                            -3.5793E-04, 6.7469E-02,-1.0750E-02,
     &                            -2.0372E-03, 2.9722E-04, 4.0765E-02,
     &                            -1.4128E-02,-6.7906E-03, 6.6127E-04,
     &                             2.0483E-02, 2.7251E-03,-3.2169E-04,
     &                             7.7473E-02,-6.8423E-03,-1.5793E-03,
     &                            -2.6085E-02, 8.8083E-03, 4.2452E-02,
     &                             8.2699E-04, 2.1088E-02, 1.7894E-02/
C     2000km equinox
      DATA (DERRTE(5,1,J),J=1,81)/ 2.4436E+00,-4.3843E-07, 1.5425E-01,
     &                            -5.5662E-08, 4.0385E-03, 8.1161E-07,
     &                             5.3553E-02,-6.9405E-07,-1.8544E-02,
     &                             1.7362E-01, 4.5975E-08,-6.9333E-03,
     &                             6.9511E-10,-1.9003E-02, 2.0966E-08,
     &                            -2.9413E-04,-4.3705E-08, 1.4120E-02,
     &                            -4.4319E-08, 2.6738E-02,-1.3382E-09,
     &                            -7.7713E-03,-2.1625E-08, 6.7646E-03,
     &                             2.9648E-08,-4.9498E-03,-6.9172E-09,
     &                             1.8036E-02, 8.0627E-09, 1.6950E-03,
     &                            -8.2902E-11, 2.3367E-04, 1.2521E-02,
     &                            -2.9426E-08,-1.0396E-02, 8.0042E-10,
     &                             3.0297E-03, 2.7689E-10,-9.5301E-04,
     &                            -2.3612E-02,-7.9111E-10,-7.6654E-03,
     &                             2.9311E-10,-2.8914E-04, 8.3715E-11,
     &                            -7.8202E-02, 6.6501E-09, 3.8289E-03,
     &                             4.0403E-09, 1.6187E-03,-5.7231E-10,
     &                             6.4240E-02,-3.3474E-09,-1.3766E-03,
     &                            -5.7988E-10, 6.2600E-04, 3.8725E-03,
     &                             1.5940E-08,-5.3759E-03,-2.1427E-09,
     &                            -8.9545E-04, 3.5896E-02,-4.3521E-09,
     &                             2.9789E-03, 1.0916E-09, 7.4931E-02,
     &                            -4.2211E-09,-8.2421E-03, 1.4316E-09,
     &                            -2.6314E-02,-4.4286E-10,-3.5706E-03,
     &                             6.3435E-02,-2.5381E-09,-2.2050E-03,
     &                            -6.6893E-02, 1.6210E-09, 4.0881E-02,
     &                            -5.1892E-09, 9.0158E-03, 2.3495E-02/
C     2000km June solstice
      DATA (DERRTE(5,2,J),J=1,81)/ 2.4223E+00,-1.6581E-01, 2.0883E-01,
     &                            -8.0645E-02,-3.9722E-02, 1.5954E-02,
     &                             3.0088E-02,-9.6053E-03, 7.4229E-03,
     &                             1.4053E-01, 7.9878E-03, 4.2976E-02,
     &                            -2.6882E-02,-1.1069E-02,-5.6813E-03,
     &                             3.1338E-03,-7.3863E-03,-9.6881E-03,
     &                            -4.0146E-02, 1.3978E-02,-1.6224E-02,
     &                             9.3162E-03,-1.0888E-02,-1.4472E-02,
     &                            -5.4611E-03,-5.0694E-02, 5.5719E-02,
     &                             6.4098E-03, 2.0679E-03,-3.4277E-03,
     &                             2.9826E-03, 2.2637E-03, 4.8907E-02,
     &                             8.6854E-03, 6.6625E-03, 3.3814E-03,
     &                             7.7458E-04, 2.9699E-03,-6.9636E-04,
     &                            -9.5779E-03, 1.6612E-03, 1.3018E-02,
     &                            -5.0237E-03,-1.6025E-03, 1.3429E-03,
     &                             2.9054E-02, 7.2855E-03,-1.3993E-02,
     &                            -5.2888E-03,-2.7511E-05, 2.6011E-04,
     &                             1.5534E-02,-1.6128E-02, 6.3239E-03,
     &                            -3.7710E-03, 7.4519E-04,-5.6335E-02,
     &                             1.4123E-02, 7.2038E-03,-8.2835E-04,
     &                            -3.9963E-04, 2.0466E-02, 1.4346E-02,
     &                            -3.4267E-03, 5.6522E-04,-6.6495E-02,
     &                            -6.4634E-04, 4.2662E-04, 1.3420E-03,
     &                             2.0465E-02, 6.0863E-04, 4.9604E-04,
     &                            -2.2755E-02,-7.0387E-03, 1.3109E-03,
     &                             3.6849E-02, 2.2601E-03, 2.2893E-02,
     &                            -1.1385E-02, 4.4417E-02,-6.5754E-03/
      DO 10 I=1,81
       DERRTE(1,3,I)=DERRTE(1,2,I)*MIRREQ(I)
       DERRTE(2,3,I)=DERRTE(2,2,I)*MIRREQ(I)
       DERRTE(3,3,I)=DERRTE(3,2,I)*MIRREQ(I)
       DERRTE(4,3,I)=DERRTE(4,2,I)*MIRREQ(I)
10     DERRTE(5,3,I)=DERRTE(5,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,5 
         DOUT(I,J,K)=DERRTE(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C////////////////////////////////////////////////////////////////////
      RETURN
      END
C
C
      SUBROUTINE KOEFD(MIRREQ,DOUT)
C-------------------------------------------------------------------
C    coefficients - main model part
C-------------------------------------------------------------------
      REAL DOUT(5,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL D(5,3,81)
C     350km equinox
      DATA (D(1,1,J),J=1,81)/ 3.1753E+00, 5.7689E-07, 1.9586E-01,
     &                       -6.8275E-07, 1.8921E-02, 3.6213E-07,
     &                       -1.8628E-02, 5.0105E-08,-8.5600E-03,
     &                       -1.6010E-01,-9.6605E-08,-1.9714E-02,
     &                        2.1637E-07, 4.8494E-03,-3.8884E-07,
     &                       -3.4967E-03, 2.2421E-07, 2.1263E-02,
     &                        9.3647E-08,-7.9466E-03, 1.0780E-07,
     &                        9.0129E-03,-1.2648E-07, 9.2017E-05,
     &                        5.0372E-08,-7.7926E-02,-5.7641E-08,
     &                       -9.1840E-03,-2.8697E-08, 8.4038E-04,
     &                       -3.3483E-09, 9.8633E-04,-3.6580E-02,
     &                        2.6765E-07, 9.6558E-03, 3.1708E-09,
     &                       -3.7801E-04,-1.4056E-08,-7.5288E-04,
     &                        5.8945E-02,-6.4803E-08, 6.6372E-03,
     &                       -5.1910E-08, 6.6456E-05, 5.3576E-09,
     &                       -5.9863E-02,-2.4909E-07,-1.1843E-03,
     &                        4.9602E-08, 2.4969E-04,-7.2411E-09,
     &                        6.1304E-02,-9.0388E-08, 1.4235E-03,
     &                        9.6584E-09, 4.8905E-04, 3.4504E-02,
     &                        3.9764E-08, 2.2885E-04,-2.0067E-08,
     &                       -2.3446E-04,-5.3749E-02, 5.5106E-08,
     &                       -2.5829E-05,-3.6483E-10, 3.9294E-02,
     &                       -1.1888E-07,-1.1182E-04, 8.2427E-09,
     &                       -3.4563E-02,-4.2396E-08,-6.5573E-04,
     &                       -2.7676E-02,-1.3017E-08, 5.8774E-04,
     &                        1.6090E-02, 4.6780E-08,-2.0595E-02,
     &                        2.5706E-08, 1.2541E-02, 1.7794E-02/
C     350km June solstice
      DATA (D(1,2,J),J=1,81)/ 3.1629E+00, 6.1302E-02, 2.0063E-01,
     &                        4.5285E-02,-4.1826E-02, 1.9260E-03,
     &                        2.4969E-03, 8.2077E-03,-2.8539E-02,
     &                       -1.6297E-01, 1.3558E-02,-2.4389E-02,
     &                       -3.1286E-03, 2.2763E-02, 2.1271E-03,
     &                       -6.5418E-03, 9.5738E-04, 1.6215E-02,
     &                        1.8507E-03,-1.0563E-03, 1.1742E-03,
     &                       -1.0133E-03,-1.9169E-03, 3.6940E-03,
     &                       -1.5715E-04,-5.6835E-02,-4.2398E-03,
     &                        6.2377E-03,-1.5667E-03, 4.1399E-04,
     &                       -2.1687E-03, 2.0367E-04,-1.4575E-02,
     &                        8.7408E-03,-1.5991E-03, 2.2254E-03,
     &                        1.3953E-03,-6.9929E-04,-1.0188E-03,
     &                        2.6039E-02,-7.4757E-04, 2.1545E-03,
     &                        1.0206E-03, 9.9516E-05,-5.1330E-04,
     &                       -4.3098E-03, 6.8083E-04, 1.7507E-03,
     &                        1.8198E-03,-5.2904E-04,-5.0768E-04,
     &                        3.1658E-02, 4.7564E-03,-9.2531E-04,
     &                        1.7889E-03,-3.7194E-05, 1.6896E-02,
     &                       -5.0829E-04,-8.1960E-04, 4.8322E-04,
     &                       -2.6520E-05,-1.0728E-02, 4.1619E-03,
     &                        3.8523E-04, 4.9239E-05, 1.1805E-02,
     &                       -2.9327E-03, 2.9543E-04, 2.9735E-04,
     &                       -9.7455E-03,-1.6474E-03, 1.0511E-03,
     &                       -1.7878E-02, 5.3427E-03, 1.7965E-05,
     &                        3.5806E-03, 6.6563E-04,-1.2012E-02,
     &                       -5.7183E-03, 2.4944E-03, 4.3333E-03/
C     550km equinox
      DATA (D(2,1,J),J=1,81)/ 3.2751E+00, 1.3545E-06, 1.7150E-01,
     &                       -7.6203E-07, 4.0429E-02, 5.0117E-07,
     &                       -2.2589E-02, 3.0332E-08,-2.0861E-02,
     &                       -1.4168E-01, 2.7793E-07,-1.8331E-02,
     &                        2.2669E-07, 4.6414E-03, 6.9158E-08,
     &                        1.3312E-03,-1.0690E-07, 1.7280E-02,
     &                        3.6689E-07,-1.0921E-03,-4.8798E-07,
     &                        2.0699E-03, 1.5270E-07, 4.0919E-03,
     &                       -4.0587E-08,-8.4276E-02,-1.8326E-07,
     &                       -7.7966E-03, 2.9950E-07, 1.3969E-03,
     &                        2.2649E-08, 1.0082E-03,-3.1392E-02,
     &                       -5.0450E-08, 1.7356E-03,-1.4810E-08,
     &                        2.4669E-03, 2.0049E-08,-1.6503E-04,
     &                        5.6435E-02,-2.2274E-07, 4.4061E-03,
     &                       -1.8825E-08, 3.1341E-04, 1.3638E-08,
     &                       -4.7964E-02,-3.1192E-07,-3.8772E-04,
     &                        2.2998E-08,-5.8125E-05, 1.5519E-09,
     &                        4.9958E-02, 7.1110E-08, 1.6467E-03,
     &                       -3.5644E-08, 1.8249E-04, 2.7835E-02,
     &                       -1.2413E-07,-1.5793E-03, 2.2114E-08,
     &                       -3.9754E-04,-2.2227E-02, 2.2094E-07,
     &                        2.8621E-04, 5.3520E-09, 1.9280E-02,
     &                        5.1741E-08, 3.2861E-04,-1.7477E-08,
     &                       -1.9664E-02,-6.0668E-08,-3.8234E-05,
     &                       -1.8001E-02, 1.3656E-07, 4.1525E-04,
     &                        7.9458E-03,-1.0954E-07,-1.2869E-02,
     &                       -6.1937E-08, 9.2866E-03, 5.3834E-03/
C     550km June solstice
      DATA (D(2,2,J),J=1,81)/ 3.2706E+00, 3.5202E-02, 1.6153E-01,
     &                        7.5517E-02,-1.2975E-02,-1.0202E-02,
     &                       -1.4402E-02, 8.0992E-03,-2.4350E-02,
     &                       -1.5168E-01, 2.1369E-02,-1.2387E-02,
     &                       -6.1981E-03, 9.1958E-03, 2.4677E-03,
     &                       -4.9595E-04,-9.1671E-04, 1.1726E-02,
     &                        1.3928E-04,-6.8449E-03, 3.9822E-03,
     &                        6.7074E-03,-2.3986E-03, 9.3211E-04,
     &                       -1.2521E-03,-7.7734E-02, 5.3710E-03,
     &                        3.3728E-04,-6.9879E-04, 1.9755E-03,
     &                       -2.3413E-04, 7.7060E-04,-2.7894E-02,
     &                        1.2731E-02, 1.9542E-03, 2.6609E-03,
     &                       -3.5695E-04,-1.1310E-03,-6.4754E-04,
     &                        4.2322E-02,-6.9529E-03,-7.8122E-04,
     &                        1.9300E-05,-6.5241E-04,-2.0369E-05,
     &                       -3.0919E-02, 1.4165E-03, 1.9683E-03,
     &                        3.6586E-05, 2.3327E-04, 7.7364E-05,
     &                        3.6784E-02, 2.2045E-03, 2.1286E-04,
     &                        6.5019E-04, 1.3530E-04, 1.2010E-02,
     &                       -1.1533E-03,-1.0365E-03, 5.2595E-04,
     &                       -1.9816E-04,-6.4129E-03,-2.9187E-04,
     &                        6.4120E-04,-4.3814E-04, 1.9807E-02,
     &                       -1.7670E-03,-5.2232E-04,-2.5243E-05,
     &                       -1.4894E-02, 7.9595E-04, 1.8406E-04,
     &                        9.1260E-04, 5.9450E-04, 3.9428E-04,
     &                        1.7175E-03,-7.0834E-04,-7.3342E-03,
     &                        9.3208E-04, 8.0461E-03, 1.7211E-03/
C     850km equinox
      DATA (D(3,1,J),J=1,81)/ 3.4090E+00,-8.7890E-07, 1.4192E-01,
     &                        2.2022E-06,-2.3026E-02, 2.8080E-07,
     &                       -2.0490E-02,-2.4588E-06, 8.0287E-03,
     &                       -1.7872E-01,-5.9833E-07,-3.1967E-03,
     &                        5.7087E-07, 5.6724E-03,-3.6116E-08,
     &                       -3.9539E-03,-1.1406E-07, 2.5913E-02,
     &                       -4.3955E-07,-5.9265E-03, 3.8624E-07,
     &                        4.3640E-03,-2.1767E-07,-1.6975E-03,
     &                        1.4715E-08,-6.7945E-02, 6.7140E-07,
     &                       -5.8461E-03, 1.1914E-07, 2.4496E-04,
     &                       -4.9921E-08,-3.8830E-04,-1.2488E-02,
     &                       -3.9557E-07, 9.4377E-04, 1.5100E-07,
     &                        4.1863E-04,-2.6552E-08,-9.4832E-04,
     &                        3.7187E-02, 7.8305E-07,-3.6193E-03,
     &                        1.9130E-07,-5.5284E-04,-7.0234E-08,
     &                       -1.1616E-02, 7.5494E-08, 1.4075E-03,
     &                        7.9285E-08, 3.1501E-04,-3.4879E-08,
     &                        3.8138E-02, 4.5561E-07,-5.2993E-06,
     &                        7.2506E-08,-4.6427E-04, 1.1952E-02,
     &                        1.9508E-07,-7.3901E-04, 1.6083E-08,
     &                        4.6821E-04, 2.2138E-03, 1.9836E-08,
     &                        9.1512E-05, 2.5883E-10, 1.6160E-02,
     &                        9.8914E-08, 2.2891E-04, 3.5686E-08,
     &                       -2.3945E-02,-9.7206E-08, 4.1304E-04,
     &                       -1.1323E-02,-1.0595E-07, 2.4607E-06,
     &                       -1.1919E-02,-1.2954E-07,-1.5160E-02,
     &                       -9.8974E-08, 9.1103E-03,-9.8102E-04/
C     850km June solstice
      DATA (D(3,2,J),J=1,81)/ 3.4298E+00, 2.6491E-02, 1.3842E-01,
     &                        4.0680E-02,-5.6606E-02,-5.7153E-03,
     &                       -1.4690E-02, 7.5677E-03, 3.2216E-04,
     &                       -1.8092E-01, 1.2032E-02, 8.3830E-03,
     &                       -1.6994E-03, 7.3073E-03, 4.6493E-03,
     &                       -5.9776E-03,-1.0911E-03, 1.8614E-02,
     &                       -6.0207E-03,-4.0287E-03,-2.4354E-03,
     &                        3.2668E-03, 2.0486E-03,-2.4568E-03,
     &                        1.7932E-04,-7.2842E-02, 1.2262E-03,
     &                       -2.4092E-03, 2.1826E-03, 1.1999E-03,
     &                       -5.7385E-04,-7.9356E-04,-4.8885E-03,
     &                        6.0397E-03, 1.5036E-03,-6.6850E-04,
     &                       -1.5557E-03, 7.0217E-04,-6.6930E-04,
     &                        2.7146E-02,-1.7554E-04,-5.7637E-03,
     &                       -4.8048E-05, 1.7230E-04, 2.7707E-04,
     &                       -1.8722E-02,-2.5534E-03, 2.7433E-03,
     &                       -9.4675E-04, 3.5885E-04, 1.6066E-04,
     &                        4.7142E-02,-3.8642E-03,-1.8094E-03,
     &                        3.7500E-04,-8.2361E-05, 3.4841E-04,
     &                       -2.1525E-03,-1.6265E-03,-5.6589E-04,
     &                        3.9127E-04, 2.3966E-02, 5.8480E-04,
     &                        1.1863E-05,-4.6920E-04,-3.2951E-03,
     &                       -1.3868E-03,-3.2869E-04,-4.1003E-05,
     &                       -8.5024E-03, 6.8306E-04, 1.2730E-03,
     &                        3.5803E-03,-6.7022E-05,-9.2460E-04,
     &                       -5.0650E-03, 2.3747E-03,-1.1690E-02,
     &                        2.7210E-04,-1.2308E-02,-2.4554E-03/
C     1400km equinox
      DATA (D(4,1,J),J=1,81)/ 3.4323E+00, 5.9891E-08, 1.4440E-01,
     &                       -2.5296E-06,-3.0483E-02, 8.7633E-07,
     &                       -2.0333E-02, 1.4639E-06, 8.3905E-03,
     &                       -2.4661E-01,-3.3357E-07, 2.3371E-02,
     &                       -2.6009E-07, 7.4049E-03,-4.2111E-07,
     &                       -4.0153E-03, 3.2564E-07,-3.3975E-02,
     &                       -3.1496E-07, 5.0539E-04,-2.1844E-07,
     &                        6.6046E-03, 3.7777E-07, 1.0884E-03,
     &                       -1.7690E-07,-9.7080E-02,-1.0183E-06,
     &                        3.2316E-04, 2.3879E-07, 1.0714E-03,
     &                       -1.5921E-07,-2.2353E-04,-7.8730E-02,
     &                       -4.9271E-07,-3.3524E-03,-9.7695E-08,
     &                        4.0369E-06, 9.1746E-08, 4.3697E-04,
     &                        5.4799E-02,-1.5613E-06, 2.0376E-05,
     &                        1.5198E-07, 5.2388E-05,-4.3276E-08,
     &                       -1.9427E-02,-4.8251E-07,-3.6941E-03,
     &                        1.0404E-08,-3.8792E-04, 1.9478E-08,
     &                        2.7545E-02,-7.9193E-07, 1.9158E-05,
     &                       -3.8582E-08, 4.3319E-06, 2.1105E-02,
     &                        5.6969E-08,-1.4642E-03, 1.7346E-08,
     &                       -2.0981E-04,-1.6940E-02,-3.2828E-07,
     &                        9.3221E-04,-5.8952E-08, 2.2700E-02,
     &                        8.6772E-07,-3.0788E-04,-3.1938E-08,
     &                       -3.5342E-02,-4.1651E-08,-4.6744E-04,
     &                        3.2506E-03, 9.8322E-07, 2.4373E-04,
     &                        1.0563E-02,-4.2559E-08,-1.4966E-02,
     &                        6.3242E-07, 3.0936E-02, 5.0785E-04/
C     1400km June solstice
      DATA (D(4,2,J),J=1,81)/ 3.4432E+00, 1.4031E-02, 1.3160E-01,
     &                        2.5090E-02,-4.2982E-02,-4.1350E-03,
     &                       -2.3576E-02, 4.5813E-04, 9.9480E-03,
     &                       -2.4132E-01, 3.9410E-03, 2.5328E-02,
     &                        2.5753E-03, 4.7467E-03, 2.4033E-03,
     &                       -4.5280E-03,-1.6768E-03,-2.4686E-02,
     &                        1.3680E-03, 4.5365E-03,-2.2588E-04,
     &                        4.7237E-03,-3.4808E-03, 1.9872E-03,
     &                        2.0111E-05,-1.0665E-01, 1.2940E-03,
     &                        5.1466E-04, 1.1414E-03,-2.6179E-04,
     &                        1.6622E-03,-2.9043E-04,-4.1638E-02,
     &                        2.5988E-03, 2.4967E-03, 1.1947E-03,
     &                        9.8563E-04,-1.1244E-03, 4.6249E-04,
     &                        2.2485E-02,-1.8404E-03,-2.7030E-03,
     &                       -5.6671E-04, 6.2775E-05, 2.3428E-04,
     &                       -1.9091E-02, 3.9310E-03,-1.3812E-03,
     &                        6.2219E-04, 4.0298E-04,-2.5167E-04,
     &                        3.6186E-02,-1.6894E-03,-9.2292E-04,
     &                       -3.5095E-04,-1.6027E-05, 5.0279E-03,
     &                        1.6496E-03,-1.2996E-03, 1.0942E-04,
     &                       -8.8813E-05,-9.8253E-04, 6.0205E-05,
     &                        3.1574E-04,-2.5650E-04, 1.6418E-02,
     &                       -7.4029E-04, 8.5019E-05, 7.1348E-05,
     &                       -8.8478E-03, 7.9330E-04, 4.9878E-04,
     &                        6.8566E-03,-1.3812E-03, 3.7630E-04,
     &                       -4.2406E-04,-4.0773E-05,-7.0264E-03,
     &                       -4.8997E-04, 3.2745E-03,-4.3985E-03/
C     2000km equinox
      DATA (D(5,1,J),J=1,81)/ 3.5267E+00, 3.1496E-06, 1.0072E-01,
     &                       -4.0719E-06,-2.9570E-02, 3.1967E-06,
     &                       -1.6759E-02,-2.2291E-06, 1.4529E-02,
     &                       -2.0303E-01, 2.6118E-06, 2.3639E-02,
     &                       -1.5963E-06, 2.8544E-03, 6.3910E-07,
     &                       -6.4201E-03,-1.4241E-07,-2.2074E-02,
     &                        1.3024E-07,-6.5225E-04,-7.5969E-09,
     &                        6.8229E-03,-1.1600E-08, 6.5430E-04,
     &                       -3.1299E-09,-8.9155E-02, 1.0420E-06,
     &                        2.2701E-04,-2.8037E-07, 7.6229E-05,
     &                        9.0789E-08,-8.3574E-04,-4.3006E-02,
     &                        9.5987E-08,-2.5486E-03, 1.2764E-08,
     &                        1.6634E-03,-9.8076E-09,-2.0750E-05,
     &                        4.1638E-02, 1.2831E-07, 3.2205E-03,
     &                       -7.2843E-08, 4.7908E-04, 1.0592E-09,
     &                       -8.8335E-03,-8.6869E-08,-2.5895E-03,
     &                        8.5979E-09, 8.1594E-04, 4.8263E-09,
     &                        4.4205E-02,-4.5836E-08, 2.4211E-03,
     &                       -1.7175E-08, 1.3454E-04, 2.9288E-02,
     &                       -6.4336E-08,-4.7940E-04,-1.7677E-08,
     &                        2.7104E-04, 3.8585E-03,-1.9495E-08,
     &                        9.5007E-04, 1.4881E-10, 3.5952E-02,
     &                        1.2439E-07,-2.6259E-04,-3.3433E-08,
     &                       -4.5002E-03,-9.7622E-08, 1.0627E-04,
     &                        1.7064E-02, 2.6949E-07, 3.5386E-05,
     &                        1.3508E-03,-9.3600E-08, 2.2163E-03,
     &                        1.8302E-07, 1.4533E-02, 6.8208E-03/
C     2000km June solstice
      DATA (D(5,2,J),J=1,81)/ 3.5455E+00, 2.3030E-02, 9.1028E-02,
     &                        5.6686E-03,-4.3555E-02, 7.5223E-03,
     &                       -5.3314E-03,-2.3664E-03, 9.2735E-03,
     &                       -1.7562E-01, 6.8722E-03, 2.6142E-02,
     &                       -7.5933E-03,-2.6850E-03, 1.5072E-03,
     &                       -3.8334E-03,-1.8455E-03,-8.3019E-03,
     &                       -3.1750E-03,-3.4582E-03,-3.0116E-03,
     &                        6.4951E-03,-1.9833E-04, 1.9620E-03,
     &                       -1.6688E-03,-9.1850E-02, 2.8064E-03,
     &                        1.1347E-03, 5.5757E-04,-1.7941E-03,
     &                        4.4038E-04,-7.6030E-04,-1.7519E-02,
     &                        5.5593E-03,-4.0485E-04, 1.0403E-04,
     &                        9.7795E-05,-4.4813E-04, 1.0662E-04,
     &                       -4.4894E-03,-4.3003E-03,-1.3180E-03,
     &                        1.2638E-03,-2.0937E-04,-1.0982E-04,
     &                       -2.8474E-02, 5.8161E-03,-5.9371E-04,
     &                        1.4721E-03,-1.8707E-04, 6.4902E-05,
     &                        6.2783E-03,-1.3854E-03, 2.9896E-04,
     &                       -7.7301E-04,-1.6992E-05,-2.8036E-02,
     &                        1.9110E-03,-1.7128E-04, 6.0156E-04,
     &                       -1.7487E-04, 2.9229E-03,-1.4161E-03,
     &                        5.1841E-04,-8.2856E-05,-1.0698E-02,
     &                       -4.2081E-03,-4.5016E-04, 5.1778E-07,
     &                        1.4779E-02, 5.7698E-04,-3.6797E-04,
     &                       -4.7711E-03,-1.6291E-03,-4.5695E-04,
     &                        1.1890E-02,-1.6669E-04,-5.5450E-03,
     &                       -1.0370E-03,-4.2745E-03, 1.8717E-03/
      DO 10 I=1,81
       D(1,3,I)=D(1,2,I)*MIRREQ(I)
       D(2,3,I)=D(2,2,I)*MIRREQ(I)
       D(3,3,I)=D(3,2,I)*MIRREQ(I)
       D(4,3,I)=D(4,2,I)*MIRREQ(I)
10     D(5,3,I)=D(5,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,5 
         DOUT(I,J,K)=D(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C////////////////////////////////////////////////////////////////////
      RETURN
      END
C
C
      SUBROUTINE KOF107(MIRREQ,DOUT)
C--------------------------------------------------------------------
C   coefficients - F107 model part
C--------------------------------------------------------------------
      REAL DOUT(5,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL DPF107(5,3,81)
C     350km equinox
      DATA (DPF107(1,1,J),J=1,81)/ 2.1179E+00, 2.6093E-07, 4.4282E-02,
     &                            -1.3876E-06, 2.7803E-02, 1.3986E-06,
     &                             2.9846E-02, 5.5440E-07, 1.3094E-02,
     &                            -2.5151E-02,-1.0646E-07,-3.7429E-03,
     &                             1.6883E-08,-8.7810E-05, 2.4570E-08,
     &                             5.3157E-04, 2.4498E-09,-7.4921E-03,
     &                             3.4559E-07, 2.7384E-03,-2.9301E-07,
     &                            -6.4160E-03,-2.9594E-08,-1.2326E-03,
     &                             2.0038E-07, 1.4916E-01, 8.9752E-08,
     &                             1.7673E-02,-3.3613E-08, 3.8401E-03,
     &                             5.1558E-08, 4.3661E-05,-1.3354E-01,
     &                            -4.2996E-08,-1.6325E-02,-5.9756E-08,
     &                            -7.8924E-04, 9.0574E-09, 9.4891E-05,
     &                            -4.6522E-02, 1.6467E-07, 3.0933E-03,
     &                            -2.4212E-08,-8.5264E-04,-2.8060E-09,
     &                             2.0465E-02, 3.9607E-08, 2.4059E-03,
     &                             2.3086E-08,-9.3343E-04, 2.1124E-08,
     &                             3.5658E-02,-4.9285E-08,-9.9046E-04,
     &                            -2.8411E-08, 4.9889E-04,-2.0836E-02,
     &                             2.7124E-07, 3.9610E-03,-5.1577E-08,
     &                             1.2194E-03, 2.0681E-02, 2.2079E-08,
     &                            -1.5148E-03,-1.4727E-08, 2.9282E-02,
     &                            -7.1036E-08,-1.0708E-03,-7.0356E-09,
     &                             3.5476E-02, 1.4627E-08, 1.6406E-03,
     &                             2.0173E-02, 1.1973E-07, 5.7493E-06,
     &                             9.8510E-04,-5.6858E-08,-6.9055E-03,
     &                             8.8015E-08,-5.2797E-03, 4.9785E-02/
C     350km June solstice
      DATA (DPF107(1,2,J),J=1,81)/ 2.1118E+00, 1.2667E-02, 7.8532E-02,
     &                             2.8013E-03, 4.6247E-03,-1.8002E-02,
     &                             1.7402E-02, 2.1645E-02, 9.7880E-04,
     &                             1.6106E-03, 1.5252E-02, 4.2830E-04,
     &                             2.2738E-03, 5.1962E-03,-1.2009E-03,
     &                            -2.4580E-03, 1.1339E-03, 2.4005E-03,
     &                            -9.1238E-03,-6.2242E-03, 7.1732E-04,
     &                             4.7369E-03,-2.0235E-03,-2.8728E-03,
     &                             1.5519E-03,-1.5735E-01, 5.1640E-03,
     &                            -1.0377E-02, 1.5376E-03,-1.2147E-04,
     &                             1.1153E-03,-4.0444E-04, 6.2152E-02,
     &                             4.3814E-03, 8.5715E-03,-1.1794E-03,
     &                            -1.4507E-03,-2.9136E-04, 4.8678E-05,
     &                            -2.5783E-02,-6.4352E-03, 2.8888E-03,
     &                            -2.3923E-04,-7.8468E-04, 1.0567E-04,
     &                             1.8717E-02,-3.7789E-03, 1.9293E-03,
     &                             2.7927E-03, 6.1046E-04,-6.4161E-04,
     &                             2.9512E-02, 1.8061E-03,-6.0273E-04,
     &                            -1.4189E-03,-1.2866E-04, 3.4173E-02,
     &                             7.0098E-03, 2.7884E-03, 1.3619E-03,
     &                             1.0141E-03, 4.4472E-02,-3.6668E-03,
     &                            -6.6634E-04,-9.1539E-04,-4.3310E-02,
     &                             4.6828E-03,-1.0213E-03, 9.6850E-04,
     &                            -8.9240E-04, 3.0694E-03, 1.1888E-03,
     &                            -3.2205E-02, 2.4068E-04, 1.5491E-03,
     &                            -1.3486E-03, 1.5805E-03, 1.2679E-02,
     &                             1.5963E-03,-9.2296E-03, 3.3470E-02/
C     550km equinox
      DATA (DPF107(2,1,J),J=1,81)/ 2.2596E+00,-1.0250E-06,-6.0469E-02,
     &                            -5.1717E-08, 2.4081E-02, 1.3561E-06,
     &                             2.2501E-02, 1.8975E-07,-1.9328E-03,
     &                             1.8631E-03,-6.9838E-08, 8.5643E-03,
     &                             2.2625E-07,-9.6354E-04, 1.4344E-07,
     &                            -9.9794E-04,-1.4888E-07,-2.1439E-02,
     &                             1.6757E-07, 2.2087E-02, 1.9753E-07,
     &                             3.3401E-03, 1.7510E-08,-4.4513E-03,
     &                            -1.9434E-07, 2.1312E-02, 4.1158E-07,
     &                             4.1293E-03, 1.2532E-07, 1.6378E-03,
     &                            -6.0591E-08, 3.8969E-04,-8.2128E-04,
     &                            -3.7332E-07,-9.0674E-03,-1.6562E-07,
     &                            -6.4580E-04,-2.4214E-08, 1.7187E-04,
     &                            -7.8323E-03,-3.4188E-09,-3.3704E-03,
     &                            -3.7064E-08,-8.1990E-04,-3.4103E-08,
     &                             2.8832E-04,-1.3091E-07, 5.9580E-04,
     &                             3.5007E-09,-2.4893E-05, 3.7407E-08,
     &                             9.8550E-03, 5.2340E-08, 2.4715E-03,
     &                            -2.2799E-09, 6.0276E-04,-2.3370E-03,
     &                             1.5897E-07,-7.8384E-04, 6.2186E-08,
     &                             1.5512E-04, 1.0034E-03, 6.2956E-08,
     &                             1.2935E-03, 1.1142E-08,-5.6848E-03,
     &                             5.7028E-08,-1.1159E-03, 5.2481E-09,
     &                            -6.4583E-04,-4.9024E-08,-8.7256E-05,
     &                            -3.6805E-03,-4.2162E-11, 5.9164E-04,
     &                            -1.1688E-03,-6.3884E-09,-3.4464E-03,
     &                            -2.9236E-08,-3.2531E-03, 7.3254E-04/
C     550km June solstice
      DATA (DPF107(2,2,J),J=1,81)/ 2.2443E+00,-7.5467E-03, 4.6154E-03,
     &                            -3.2706E-02,-9.4369E-03,-2.9842E-03,
     &                             9.5202E-03, 2.6462E-02, 8.1390E-03,
     &                             2.2865E-03,-8.1542E-03, 1.1328E-03,
     &                            -4.8105E-03, 1.5307E-03, 1.8632E-03,
     &                             1.1856E-03, 9.7583E-04,-1.4236E-03,
     &                             1.0665E-02, 1.1196E-02, 1.0141E-02,
     &                             2.7029E-03, 7.6283E-04,-2.2904E-04,
     &                            -7.3431E-04,-6.9053E-03, 2.8684E-04,
     &                             8.7857E-04, 8.9792E-04, 1.8426E-03,
     &                             1.0182E-05, 9.9144E-04,-6.8376E-03,
     &                             4.1889E-03,-8.3520E-04, 4.7692E-03,
     &                            -2.1779E-04,-3.2160E-04,-2.3404E-04,
     &                            -3.9832E-03,-8.0937E-04,-2.5324E-03,
     &                            -1.1029E-04,-3.9410E-04,-2.9127E-04,
     &                             1.4673E-02, 1.4644E-03, 4.4913E-03,
     &                             1.2082E-03, 1.1461E-03, 9.7184E-04,
     &                             8.7871E-03, 2.9808E-05, 2.7913E-03,
     &                             7.6192E-04, 9.4134E-04, 5.0748E-04,
     &                             3.2757E-03, 1.3459E-03, 7.4301E-04,
     &                             5.2271E-05,-1.1622E-03, 2.0424E-03,
     &                             7.4028E-04, 3.1044E-04,-7.8888E-04,
     &                             7.3294E-04, 4.5496E-04, 3.7781E-04,
     &                            -6.7759E-03,-1.3669E-03, 2.5073E-04,
     &                             7.8526E-03, 2.1084E-04,-6.8010E-06,
     &                            -1.2768E-04, 9.3358E-05, 5.0014E-03,
     &                             5.5091E-04, 6.4201E-04, 2.6821E-03/
C     850km equinox
      DATA (DPF107(3,1,J),J=1,81)/ 2.2430E+00, 6.3529E-07,-2.1093E-02,
     &                             2.3192E-06, 3.9848E-03,-4.0399E-06,
     &                            -2.0864E-03, 1.4147E-06,-2.7632E-03,
     &                             3.8821E-03, 4.3770E-07,-6.7410E-04,
     &                             3.7620E-07, 2.5406E-04,-5.5479E-07,
     &                             4.2678E-04, 3.7791E-07,-2.1396E-03,
     &                             4.3688E-07,-1.3975E-04, 5.5689E-08,
     &                            -7.7591E-04,-2.3032E-07,-7.6251E-06,
     &                             1.1410E-07, 3.5107E-02, 3.3463E-07,
     &                             5.8991E-03,-1.6889E-07, 6.4584E-04,
     &                             1.6902E-07, 1.7415E-04, 7.1402E-03,
     &                             4.6111E-07,-6.6733E-04, 1.5319E-07,
     &                            -2.8179E-04,-4.4107E-08, 1.8358E-04,
     &                             3.9796E-03,-4.7690E-08,-2.6286E-04,
     &                            -1.6931E-07, 5.3136E-05, 4.6929E-08,
     &                             4.6506E-06, 1.0615E-07,-2.2795E-04,
     &                            -1.9598E-08,-3.4348E-05,-1.8839E-08,
     &                            -6.1345E-03,-1.5260E-08, 5.7992E-04,
     &                            -7.6335E-08, 2.2449E-04, 4.1926E-03,
     &                             4.8940E-08, 1.2125E-03,-7.3629E-08,
     &                             3.8057E-04, 1.9487E-03,-1.6906E-09,
     &                             2.1031E-04,-8.3425E-09,-2.3397E-03,
     &                             3.7214E-08,-2.0578E-04,-7.7983E-08,
     &                             1.9869E-02,-1.5178E-07, 7.1451E-05,
     &                            -1.6288E-02,-2.8123E-08,-6.2559E-04,
     &                             1.6419E-04,-8.6871E-08,-3.8220E-03,
     &                            -3.4288E-08,-1.6062E-02,-2.3689E-03/
C     850km June solstice
      DATA (DPF107(3,2,J),J=1,81)/ 2.2234E+00, 8.7471E-03,-3.6271E-02,
     &                            -1.8205E-02, 1.4310E-02, 1.4137E-02,
     &                             1.1152E-03,-5.6408E-03,-2.3086E-04,
     &                             9.8994E-03, 3.6786E-04,-7.5900E-03,
     &                             3.6605E-03, 4.2347E-03, 9.9788E-04,
     &                            -1.0637E-03, 6.0786E-05, 3.3041E-03,
     &                             3.2600E-03,-3.9354E-03,-1.1438E-04,
     &                             2.8440E-03, 6.3044E-04,-1.1396E-03,
     &                             1.1203E-04, 3.9674E-02, 1.7704E-03,
     &                            -1.3756E-03,-2.0221E-04,-5.5309E-04,
     &                             2.5297E-04, 2.3301E-04, 2.1051E-02,
     &                             8.2900E-03,-9.2282E-04,-2.2149E-03,
     &                            -1.2940E-03, 5.0482E-04, 3.2355E-04,
     &                             3.3826E-03,-6.9424E-03, 4.4450E-04,
     &                             3.5048E-04,-2.8501E-04, 8.5714E-05,
     &                             5.0172E-05,-6.0011E-03,-1.9778E-03,
     &                             7.9132E-04, 4.8467E-04,-8.8136E-06,
     &                             5.5216E-03,-3.1276E-03,-1.6523E-03,
     &                             2.7189E-04, 1.2939E-04, 1.6626E-02,
     &                            -3.9681E-04, 3.1331E-03, 1.1602E-05,
     &                            -2.8408E-04, 1.3352E-02, 2.8371E-03,
     &                             4.9534E-04,-1.7470E-04,-6.1464E-04,
     &                            -7.3693E-03,-2.1311E-04, 8.8980E-05,
     &                             2.0388E-02, 2.5072E-04,-1.3785E-03,
     &                            -2.1501E-02,-2.0520E-03, 3.9847E-04,
     &                            -9.8123E-04, 3.0419E-03, 6.5642E-03,
     &                            -1.3463E-03,-4.1453E-03,-3.4043E-03/
C     1400km equinox
      DATA (DPF107(4,1,J),J=1,81)/ 2.0721E+00,-1.2810E-06,-2.2446E-02,
     &                             4.0113E-06, 1.5405E-02,-4.0985E-06,
     &                            -4.4873E-03, 1.6972E-06, 1.0420E-03,
     &                            -1.0762E-03, 4.3349E-08, 1.2188E-03,
     &                             2.3954E-08,-2.0416E-03,-2.3801E-08,
     &                             2.9302E-04,-2.3188E-08,-7.1780E-04,
     &                            -1.8559E-08,-2.6530E-03,-9.1704E-08,
     &                             1.9664E-03, 7.4905E-08, 9.7068E-06,
     &                             3.6472E-08, 9.6520E-03,-1.1466E-06,
     &                            -5.4198E-03, 4.4641E-07,-1.3638E-04,
     &                            -8.7144E-08, 4.4808E-05,-3.3499E-02,
     &                             1.2687E-06, 2.7432E-03,-6.2446E-07,
     &                            -4.9937E-04, 1.3601E-07,-1.1713E-04,
     &                             7.6744E-03,-2.2096E-08,-5.5947E-05,
     &                            -3.6655E-08,-2.3160E-04, 1.5485E-09,
     &                             1.9511E-03, 3.2565E-08,-5.0748E-04,
     &                            -2.2702E-08, 2.1519E-04, 4.2344E-09,
     &                            -2.4070E-02, 4.2536E-08,-1.0566E-03,
     &                            -4.8657E-08,-2.4020E-05,-5.3805E-02,
     &                             1.2672E-06, 1.9215E-03,-1.5258E-07,
     &                             1.4154E-04,-3.3868E-03, 4.4217E-08,
     &                            -6.1293E-04,-1.1966E-08,-7.1448E-03,
     &                            -1.3842E-08,-4.8955E-04, 1.9888E-08,
     &                            -5.3833E-02, 5.0588E-07, 1.7924E-04,
     &                            -1.0013E-02, 4.5334E-07, 4.6489E-04,
     &                            -1.7219E-05, 2.8226E-08, 1.2155E-03,
     &                            -5.5547E-08,-2.5776E-02, 3.7582E-02/
C     1400km June solstice
      DATA (DPF107(4,2,J),J=1,81)/ 2.0715E+00, 1.1060E-02,-7.2558E-03,
     &                             1.6759E-02, 4.4526E-03,-3.1949E-03,
     &                            -1.1849E-03, 1.9253E-03, 1.6289E-03,
     &                             2.1829E-04,-3.3721E-03, 2.6217E-03,
     &                             7.8261E-04, 5.2241E-04,-1.0364E-03,
     &                             1.4120E-05,-1.7664E-04, 2.6144E-03,
     &                             4.9622E-04,-1.1139E-03, 2.5938E-03,
     &                            -1.3858E-03,-4.7107E-04,-2.2748E-04,
     &                            -6.5263E-04, 1.5465E-04,-1.8961E-04,
     &                             1.9626E-03,-1.3251E-03,-3.5464E-04,
     &                            -3.6056E-04, 7.2928E-04,-3.4355E-02,
     &                            -5.4377E-04,-3.7358E-04,-5.4676E-04,
     &                            -6.0062E-04,-8.5823E-05,-4.2649E-04,
     &                            -2.5657E-03, 2.0810E-03,-5.0775E-04,
     &                            -6.9662E-05,-1.1269E-04,-2.9248E-05,
     &                            -4.2538E-04, 3.1001E-03, 9.3147E-05,
     &                            -2.0474E-04, 9.2787E-05, 1.5224E-04,
     &                             1.6699E-02,-1.0915E-03, 3.9374E-04,
     &                             6.2488E-05, 5.3697E-05, 4.2104E-03,
     &                             2.6857E-04,-5.6046E-04,-1.7589E-04,
     &                            -1.6645E-04,-1.0895E-03, 3.1274E-04,
     &                            -7.0907E-05,-1.8092E-04,-3.0431E-03,
     &                            -4.6234E-04,-2.6949E-05,-3.1150E-06,
     &                             4.6148E-03,-3.4373E-04, 9.9880E-04,
     &                            -2.2815E-03, 3.8619E-04,-8.9996E-05,
     &                            -2.2212E-05, 2.8260E-04, 3.3863E-03,
     &                            -6.4781E-04, 1.0682E-02,-5.7521E-03/
C     2000km equinox
      DATA (DPF107(5,1,J),J=1,81)/ 2.2225E+00,-1.8465E-07, 3.9702E-02,
     &                             7.4498E-08, 6.7294E-03,-1.5623E-07,
     &                             8.6264E-04, 4.9782E-07,-1.0457E-02,
     &                            -1.7603E-02,-4.2609E-07, 1.1957E-02,
     &                             2.8967E-07, 4.0676E-03,-4.8392E-08,
     &                            -2.0672E-03,-2.7825E-08, 2.3117E-02,
     &                            -8.1847E-07, 6.3865E-04, 1.2350E-07,
     &                            -3.1363E-03, 2.3973E-08, 7.4011E-04,
     &                             2.2201E-08, 1.5339E-02,-9.2354E-07,
     &                            -5.0780E-04, 2.4487E-07,-1.4002E-03,
     &                            -9.5180E-08,-2.2099E-04,-2.6709E-02,
     &                             2.0174E-07, 5.2254E-03,-6.4659E-08,
     &                            -4.5011E-04,-1.3226E-08,-5.0770E-04,
     &                             2.3246E-02, 4.0279E-07, 4.2692E-03,
     &                            -8.2578E-08, 2.8635E-04, 1.9589E-08,
     &                             6.1547E-04,-1.6112E-07,-3.4024E-03,
     &                            -3.3185E-08,-8.0475E-04, 6.1774E-09,
     &                             3.9677E-02, 1.8432E-07, 2.2421E-03,
     &                            -3.3228E-09,-2.2705E-05,-2.1308E-02,
     &                            -1.1246E-07, 2.6961E-03, 2.2048E-08,
     &                             1.6385E-05, 1.0901E-02, 4.6221E-07,
     &                            -3.8862E-06,-4.9407E-08, 1.3349E-02,
     &                             9.8339E-08,-5.5719E-04,-1.8928E-08,
     &                             3.9061E-02, 4.3038E-07, 1.0085E-03,
     &                             1.1895E-02, 4.6967E-07, 4.3363E-04,
     &                            -5.3628E-03, 4.2370E-07, 1.2707E-03,
     &                             1.0193E-07, 1.2395E-02, 1.0030E-02/
C     2000km June solstice
      DATA (DPF107(5,2,J),J=1,81)/ 2.2631E+00, 2.1866E-02, 4.6921E-03,
     &                            -3.3329E-02, 1.0108E-02,-1.2195E-02,
     &                             4.8366E-03, 2.1350E-02,-8.6916E-03,
     &                             3.4443E-03,-7.1057E-03,-1.4225E-03,
     &                            -9.9691E-03,-6.0693E-04,-2.9332E-03,
     &                            -1.0505E-03,-1.9665E-03, 2.1469E-02,
     &                            -1.9500E-02,-1.0986E-02, 5.2916E-03,
     &                             2.7388E-03,-4.6114E-05,-2.6742E-03,
     &                             2.0601E-06, 7.5298E-03,-1.1021E-02,
     &                            -3.8100E-03,-1.2864E-03,-1.0705E-03,
     &                            -4.8383E-04,-1.2329E-03, 3.4064E-02,
     &                            -1.6264E-02, 2.6406E-04, 1.1486E-03,
     &                             2.0181E-03, 4.7744E-04,-2.2118E-04,
     &                             8.5559E-03, 4.6544E-03,-3.0707E-03,
     &                             1.0697E-03, 7.4102E-05,-6.8598E-04,
     &                            -3.7443E-02,-4.1490E-03, 4.8394E-03,
     &                             2.8449E-04,-8.1610E-04, 4.1996E-04,
     &                            -2.3120E-02,-2.2430E-03,-1.6598E-03,
     &                             5.4323E-04,-3.9800E-04, 8.7947E-03,
     &                             5.9441E-03, 1.2565E-04, 8.0901E-04,
     &                            -7.3510E-04,-2.1540E-02,-2.6029E-04,
     &                             1.1616E-03,-1.5312E-04, 6.3625E-03,
     &                            -4.0037E-03,-1.5571E-03,-5.7964E-04,
     &                             8.1764E-03,-2.3762E-05,-1.2959E-04,
     &                             6.2361E-03,-4.9235E-03, 6.0991E-04,
     &                             1.6101E-03,-3.9088E-03,-1.3380E-02,
     &                            -4.2837E-04,-1.1667E-02, 3.9335E-03/
      DO 10 I=1,81
       DPF107(1,3,I)=DPF107(1,2,I)*MIRREQ(I)
       DPF107(2,3,I)=DPF107(2,2,I)*MIRREQ(I)
       DPF107(3,3,I)=DPF107(3,2,I)*MIRREQ(I)
       DPF107(4,3,I)=DPF107(4,2,I)*MIRREQ(I)
10     DPF107(5,3,I)=DPF107(5,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,5 
         DOUT(I,J,K)=DPF107(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C//////////////////////////////////////////////////////////////////////
      RETURN
      END
C     
C
      SUBROUTINE locate(xx,n,x,j)
C--------------------------------------------------------------------
      INTEGER j,n
      REAL x,xx(n)
      INTEGER jl,jm,ju
      jl=0
      ju=n+1
10    if(ju-jl.gt.1)then
        jm=(ju+jl)/2
        if((xx(n).gt.xx(1)).eqv.(x.gt.xx(jm)))then
          jl=jm
        else
          ju=jm
        endif
      goto 10
      endif
      j=jl
      return
      END
C
C
        SUBROUTINE SPHARM_IK(C,L,M,COLAT,AZ)
C--------------------------------------------------------------
C CALCULATES THE COEFFICIENTS OF THE SPHERICAL HARMONIC
C FROM IRI 95 MODEL
C NOTE: COEFFICIENTS CORRESPONDING TO COS, SIN SWAPPED!!!
C-------------------------------------------------------------
C      DIMENSION C(82)
      DIMENSION C(1000)
      C(1)=1.
      K=2
      X=COS(COLAT)
      C(K)=X
      K=K+1
      DO 10 I=2,L
      C(K)=((2*I-1)*X*C(K-1)-(I-1)*C(K-2))/I
10    K=K+1
      Y=SIN(COLAT)
      DO 20 MT=1,M
      CAZ=COS(MT*AZ)
      SAZ=SIN(MT*AZ)
      C(K)=Y**MT
      K=K+1
      IF(MT.EQ.L) GOTO 16
      C(K)=C(K-1)*X*(2*MT+1)
      K=K+1
      IF((MT+1).EQ.L) GOTO 16
      DO 15 I=2+MT,L
      C(K)=((2*I-1)*X*C(K-1)-(I+MT-1)*C(K-2))/(I-MT)
15    K=K+1
16    N=L-MT+1
      DO 18 I=1,N
      C(K)=C(K-N)*SAZ
      C(K-N)=C(K-N)*CAZ
18    K=K+1
20    CONTINUE
      RETURN
      END
C     
C
      SUBROUTINE spline(x,y,n,yp1,ypn,y2)
C----------------------------------------------------------
      INTEGER n,NMAX
      REAL yp1,ypn,x(n),y(n),y2(n)
      PARAMETER (NMAX=500)
      INTEGER i,k
      REAL p,qn,sig,un,u(NMAX)
      if (yp1.gt..99e30) then
        y2(1)=0.
        u(1)=0.
      else
        y2(1)=-0.5
        u(1)=(3./(x(2)-x(1)))*((y(2)-y(1))/(x(2)-x(1))-yp1)
      endif
      do 11 i=2,n-1
        sig=(x(i)-x(i-1))/(x(i+1)-x(i-1))
        p=sig*y2(i-1)+2.
        y2(i)=(sig-1.)/p
        u(i)=(6.*((y(i+1)-y(i))/(x(i+
     *1)-x(i))-(y(i)-y(i-1))/(x(i)-x(i-1)))/(x(i+1)-x(i-1))-sig*
     *u(i-1))/p
11    continue
      if (ypn.gt..99e30) then
        qn=0.
        un=0.
      else
        qn=0.5
        un=(3./(x(n)-x(n-1)))*(ypn-(y(n)-y(n-1))/(x(n)-x(n-1)))
      endif
      y2(n)=(un-qn*u(n-1))/(qn*y2(n-1)+1.)
      do 12 k=n-1,1,-1
        y2(k)=y2(k)*y2(k+1)+u(k)
12    continue
      return
      END
C
C
      SUBROUTINE splint(xa,ya,y2a,n,x,y)
C---------------------------------------------------------------
      INTEGER n
      REAL x,y,xa(n),y2a(n),ya(n)
      INTEGER k,khi,klo
      REAL a,b,h
      klo=1
      khi=n
1     if (khi-klo.gt.1) then
        k=(khi+klo)/2
        if(xa(k).gt.x)then
          khi=k
        else
          klo=k
        endif
      goto 1
      endif
      h=xa(khi)-xa(klo)
      a=(xa(khi)-x)/h
      b=(x-xa(klo))/h
      y=a*ya(klo)+b*ya(khi)+((a**3-a)*y2a(klo)+(b**3-b)*y2a(khi))*
     &    (h**2)/6.
      return
      END
C
C
       SUBROUTINE SWAPEL(N,A)
C------------------------------------------------------------------
C      swaps elements of array
C------------------------------------------------------------------
       INTEGER N,I  
       REAL A(N),AT(N)
       DO 10 I=1,N
10      AT(I)=A(I) 
       DO 20 I=0,N-1
20      A(I+1)=AT(N-I)                   
       RETURN
       END
C
C
       SUBROUTINE TEDIFI(F107IN,TEXN,TEDN,F107DF,TEDIF)
C------------------------------------------------------------------------------------
C      interpolation for solar activity        
C------------------------------------------------------------------------------------
       REAL F107IN,TEXN,TEDN,F107DF(3),TEDIF
       REAL T0DNXN(3),T0DN(2),TDNXN(2)
       REAL INTERP
       IF ((F107IN .GE. F107DF(1)) .AND. (F107IN .LE. F107DF(3))) THEN
        T0DNXN(1)=0.
        T0DNXN(2)=TEDN
        T0DNXN(3)=TEXN
        TEDIF=INTERP(3,2,T0DNXN,F107DF,F107IN)
       END IF    
       IF (F107IN .LT. F107DF(1)) THEN
        T0DN(1)=0.
        T0DN(2)=TEDN
        TEDIF=INTERP(2,1,T0DN,F107DF(1),F107IN)     
       END IF 
       IF (F107IN .GT. F107DF(3)) THEN
        TDNXN(1)=TEDN
        TDNXN(2)=TEXN
        TEDIF=INTERP(2,1,TDNXN,F107DF(2),F107IN)     
       END IF        
       RETURN
       END
C
C
       SUBROUTINE TPCAS(MLTRAD,PF107,PF107M,
     &                  XNDI,DNDI,PD,XNNI,DNNI,PN,TPASEA)
C------------------------------------------------------------------------------
C      correction for season at fixed altitude
C------------------------------------------------------------------------------
       REAL MLTRAD,PF107,PF107M,XNDI,DNDI,PD(3),XNNI,DNNI,PN(3),TPASEA
       REAL TA,TM,TDC,TNC
       CALL TEDIFI(PF107,XNDI,DNDI,PD,TA)
       CALL TEDIFI(PF107M,XNDI,DNDI,PD,TM)  
       TDC=TA-TM
        TDC=AMAX1(TDC,-1250.)
        TDC=AMIN1(TDC,1250.)
       CALL TEDIFI(PF107,XNNI,DNNI,PN,TA)
       CALL TEDIFI(PF107M,XNNI,DNNI,PN,TM)         
       TNC=TA-TM
        TNC=AMAX1(TNC,-1250.)
        TNC=AMIN1(TNC,1250.)       
C      harmonic interpolation for local time       
       TPASEA=(1.-COS(MLTRAD))/2.*(TDC-TNC)+TNC
       RETURN
       END

C
C
      SUBROUTINE   TPCORR(INVDIP,MLT,DDD,PF107,
     &             P350A,P350B,P550A,P550B,P850A,P850B,
     &             P1400A,P1400B,P2000A,P2000B, 
     &             TP350A,TP350B,TP550A,TP550B,TP850A,TP850B,
     &             TP140A,TP140B,TP200A,TP200B)
C-----------------------------------------------------------------------
       REAL INVDIP,MLT,PF107
       INTEGER DDD
       REAL        P350A,P350B,P550A,P550B,P850A,P850B,
     &             P1400A,P1400B,P2000A,P2000B, 
     &             TP350A,TP350B,TP550A,TP550B,TP850A,TP850B,
     &             TP140A,TP140B,TP200A,TP200B
       REAL INTERP
       REAL MLTRAD
C      Constants    
       REAL INVDPQ(13)
C      PF107 Day Equinox       
       REAL P2DE(13,3),P1DE(13,3),P8DE(13,3),P5DE(13,3),P3DE(13,3)
C      Te max-min dif Day Equinox       
       REAL CXN2DE(13),CXN1DE(13),CXN8DE(13),CXN5DE(13),CXN3DE(13)
C      Te med-min dif Day Equinox       
       REAL CDN2DE(13),CDN1DE(13),CDN8DE(13),CDN5DE(13),CDN3DE(13)
C
C      PF107 Night Equinox       
       REAL P2NE(13,3),P1NE(13,3),P8NE(13,3),P5NE(13,3),P3NE(13,3)
C      Te max-min dif Night Equinox       
       REAL CXN2NE(13),CXN1NE(13),CXN8NE(13),CXN5NE(13),CXN3NE(13)
C      Te med-min dif Night Equinox       
       REAL CDN2NE(13),CDN1NE(13),CDN8NE(13),CDN5NE(13),CDN3NE(13)
C       
C
C      PF107 Day Solstice       
       REAL P2DS(13,3),P1DS(13,3),P8DS(13,3),P5DS(13,3),P3DS(13,3)
C      Te max-min dif Day Solstice       
       REAL CXN2DS(13),CXN1DS(13),CXN8DS(13),CXN5DS(13),CXN3DS(13)
C      Te med-min dif Day Solstice       
       REAL CDN2DS(13),CDN1DS(13),CDN8DS(13),CDN5DS(13),CDN3DS(13)
C
C      PF107 Night Solstice       
       REAL P2NS(13,3),P1NS(13,3),P8NS(13,3),P5NS(13,3),P3NS(13,3)
C      Te max-min dif Night Solstice       
       REAL CXN2NS(13),CXN1NS(13),CXN8NS(13),CXN5NS(13),CXN3NS(13)
C      Te med-min dif Night Solstice       
       REAL CDN2NS(13),CDN1NS(13),CDN8NS(13),CDN5NS(13),CDN3NS(13)
C      working variables
       REAL TXN2DE(13),TXN1DE(13),TXN8DE(13),TXN5DE(13),TXN3DE(13)
       REAL TDN2DE(13),TDN1DE(13),TDN8DE(13),TDN5DE(13),TDN3DE(13)
       REAL TXN2NE(13),TXN1NE(13),TXN8NE(13),TXN5NE(13),TXN3NE(13)
       REAL TDN2NE(13),TDN1NE(13),TDN8NE(13),TDN5NE(13),TDN3NE(13)
       REAL TXN2DS(13),TXN1DS(13),TXN8DS(13),TXN5DS(13),TXN3DS(13)
       REAL TDN2DS(13),TDN1DS(13),TDN8DS(13),TDN5DS(13),TDN3DS(13)
       REAL TXN2NS(13),TXN1NS(13),TXN8NS(13),TXN5NS(13),TXN3NS(13)
       REAL TDN2NS(13),TDN1NS(13),TDN8NS(13),TDN5NS(13),TDN3NS(13)      
C
C      Interpolated PF107
       REAL P2DEI(3),P1DEI(3),P8DEI(3),P5DEI(3),P3DEI(3)
       REAL P2NEI(3),P1NEI(3),P8NEI(3),P5NEI(3),P3NEI(3)
       REAL P2DSI(3),P1DSI(3),P8DSI(3),P5DSI(3),P3DSI(3)
       REAL P2NSI(3),P1NSI(3),P8NSI(3),P5NSI(3),P3NSI(3) 
C      Additional local and temporary variables
       REAL XN2DEI,XN1DEI,XN8DEI,XN5DEI,XN3DEI
       REAL XN2NEI,XN1NEI,XN8NEI,XN5NEI,XN3NEI
       REAL DN2DEI,DN1DEI,DN8DEI,DN5DEI,DN3DEI
       REAL DN2NEI,DN1NEI,DN8NEI,DN5NEI,DN3NEI
       REAL XN2DSI,XN1DSI,XN8DSI,XN5DSI,XN3DSI
       REAL XN2NSI,XN1NSI,XN8NSI,XN5NSI,XN3NSI
       REAL DN2DSI,DN1DSI,DN8DSI,DN5DSI,DN3DSI
       REAL DN2NSI,DN1NSI,DN8NSI,DN5NSI,DN3NSI
       REAL MLTTMP
       INTEGER I      
C
       DATA (INVDPQ(I),I=1,13) /-90.0,-75.0,-60.0,-45.0,-30.0,-15.0,
     &                      0.0, 15.0, 30.0, 45.0, 60.0, 75.0,90.0/
C      Equinox
       DATA ((P2DE(I,J),I=1,13),J=1,3) /
     &  125., 120., 115., 113., 118., 119., 118., 119., 118., 113.,
     &  115., 120., 125.,
     &  150., 151., 152., 158., 154., 156., 147., 156., 154., 158.,
     &  152., 151., 150.,
     &  181., 197., 213., 214., 205., 199., 197., 199., 205., 214.,
     &  213., 197., 181./
       DATA (CXN2DE(I),I=1,13) /  587.,  466.,  345.,  264.,  355.,
     &   335.,  229.,  335.,  355.,  264.,  345.,  466.,  587./
       DATA (CDN2DE(I),I=1,13) /  244.,   93.,  -59., -103.,   57.,
     &   170.,   16.,  170.,   57., -103.,  -59.,   93.,  244./
       DATA ((P1DE(I,J),I=1,13),J=1,3) /
     &  111., 110., 109., 109., 109., 110., 109., 110., 109., 109.,
     &  109., 110., 111.,
     &  135., 135., 134., 128., 131., 145., 148., 145., 131., 128.,
     &  134., 135., 135.,
     &  206., 201., 196., 200., 198., 197., 211., 197., 198., 200.,
     &  196., 201., 206./
       DATA (CXN1DE(I),I=1,13) /  929.,  590.,  250.,  375.,  126.,
     &   471.,  427.,  471.,  126.,  375.,  250.,  590.,  929./
       DATA (CDN1DE(I),I=1,13) /  -36.,   19.,   75.,   77.,   51.,
     &   100.,  105.,  100.,   51.,   77.,   75.,   19.,  -36./
       DATA ((P8DE(I,J),I=1,13),J=1,3) /
     &  125., 124., 124., 119., 102.,  89.,  98.,  89., 102., 119.,
     &  124., 124., 125.,
     &  147., 149., 151., 158., 164., 168., 166., 168., 164., 158.,
     &  151., 149., 147.,
     &  195., 194., 193., 195., 196., 191., 190., 191., 196., 195.,
     &  193., 194., 195./
       DATA (CXN8DE(I),I=1,13) /  159.,   75.,   -9., -151.,  511.,
     &   694.,  721.,  694.,  511., -151.,   -9.,   75.,  159./
       DATA (CDN8DE(I),I=1,13) /   53.,   47.,   42.,  -45.,  594.,
     &  1002.,  733., 1002.,  594.,  -45.,   42.,   47.,   53./
       DATA ((P5DE(I,J),I=1,13),J=1,3) /
     &  109., 102.,  95.,  93.,  95.,  92.,  86.,  92.,  95.,  93.,
     &   95., 102., 109.,
     &  161., 165., 169., 167., 160., 162., 164., 162., 160., 167.,
     &  169., 165., 161.,
     &  197., 200., 204., 203., 209., 214., 218., 214., 209., 203.,
     &  204., 200., 197./
       DATA (CXN5DE(I),I=1,13) /  703.,  472.,  242., -524., -241.,
     &   364.,  532.,  364., -241., -524.,  242.,  472.,  703./
       DATA (CDN5DE(I),I=1,13) /  533.,  416.,  300., -591., -398.,
     &   115.,  201.,  115., -398., -591.,  300.,  416.,  533./
       DATA ((P3DE(I,J),I=1,13),J=1,3) /
     &   70.,  78.,  86.,  89.,  90.,  92.,  89.,  92.,  90.,  89.,
     &   86.,  78.,  70.,
     &  159., 155., 152., 153., 152., 147., 143., 147., 152., 153.,
     &  152., 155., 159.,
     &  212., 212., 212., 208., 208., 207., 205., 207., 208., 208.,
     &  212., 212., 212./
       DATA (CXN3DE(I),I=1,13) /  277.,   77., -123., -364., -136.,
     &   317.,  411.,  317., -136., -364., -123.,   77.,  277./
       DATA (CDN3DE(I),I=1,13) /  -24.,  -15.,   -6.,  -74., -217.,
     &   188.,  269.,  188., -217.,  -74.,   -6.,  -15.,  -24./
       DATA ((P2NE(I,J),I=1,13),J=1,3) /
     &  113., 111., 109., 107., 103., 106., 102., 106., 103., 107.,
     &  109., 111., 113.,
     &  155., 157., 160., 158., 157., 146., 137., 146., 157., 158.,
     &  160., 157., 155.,
     &  188., 195., 202., 208., 209., 207., 201., 207., 209., 208.,
     &  202., 195., 188./
       DATA (CXN2NE(I),I=1,13) /   76.,  134.,  192.,  821.,  801.,
     &   583.,  551.,  583.,  801.,  821.,  192.,  134.,   76./
C       DATA (CDN2NE(I),I=1,13) /  -19.,  -83., -148.,  399.,  289.,
C     &   340.,  542.,  340.,  289.,  399., -148.,  -83.,  -19./  
C        equator corrected  
        DATA (CDN2NE(I),I=1,13) /  -19.,  -83., -148.,  399.,  289.,
     &   340.,  340.,  340.,  289.,  399., -148.,  -83.,  -19./
       DATA ((P1NE(I,J),I=1,13),J=1,3) /
     &  112., 111., 109., 108., 109., 110., 109., 110., 109., 108.,
     &  109., 111., 112.,
     &  132., 132., 133., 131., 134., 143., 143., 143., 134., 131.,
     &  133., 132., 132.,
     &  220., 211., 201., 195., 196., 204., 213., 204., 196., 195.,
     &  201., 211., 220./
       DATA (CXN1NE(I),I=1,13) /  806.,  689.,  572.,  607.,  540.,
     &   535.,  443.,  535.,  540.,  607.,  572.,  689.,  806./
       DATA (CDN1NE(I),I=1,13) /  124.,   23.,  -77.,   50.,  128.,
     &   120.,   79.,  120.,  128.,   50.,  -77.,   23.,  124./
       DATA ((P8NE(I,J),I=1,13),J=1,3) /
     &  124., 124., 124., 123., 119., 108., 110., 108., 119., 123.,
     &  124., 124., 124.,
     &  149., 149., 149., 149., 155., 164., 170., 164., 155., 149.,
     &  149., 149., 149.,
     &  195., 195., 194., 193., 194., 195., 194., 195., 194., 193.,
     &  194., 195., 195./
       DATA (CXN8NE(I),I=1,13) /   57.,  -17.,  -90.,  -19.,  260.,
     &   431.,  417.,  431.,  260.,  -19.,  -90.,  -17.,   57./
       DATA (CDN8NE(I),I=1,13) /   18.,   -7.,  -32.,   31.,  139.,
     &   320.,  351.,  320.,  139.,   31.,  -32.,   -7.,   18./
       DATA ((P5NE(I,J),I=1,13),J=1,3) /
     &  112., 105.,  98., 100.,  98.,  91.,  90.,  91.,  98., 100.,
     &   98., 105., 112.,
     &  162., 161., 160., 163., 166., 165., 165., 165., 166., 163.,
     &  160., 161., 162.,
     &  208., 205., 203., 201., 202., 207., 208., 207., 202., 201.,
     &  203., 205., 208./
       DATA (CXN5NE(I),I=1,13) /  575.,  437.,  299.,  198.,  293.,
     &   384.,  403.,  384.,  293.,  198.,  299.,  437.,  575./
       DATA (CDN5NE(I),I=1,13) /  353.,  256.,  159.,   58.,  203.,
     &   253.,  230.,  253.,  203.,   58.,  159.,  256.,  353./
       DATA ((P3NE(I,J),I=1,13),J=1,3) /
     &   72.,  78.,  85.,  90.,  94.,  89.,  88.,  89.,  94.,  90.,
     &   85.,  78.,  72.,
     &  163., 159., 154., 160., 164., 161., 157., 161., 164., 160.,
     &  154., 159., 163.,
     &  212., 211., 210., 205., 208., 224., 231., 224., 208., 205.,
     &  210., 211., 212./
       DATA (CXN3NE(I),I=1,13) / 1457.,  763.,   68.,  153.,  187.,
     &   390.,  364.,  390.,  187.,  153.,   68.,  763., 1457./
       DATA (CDN3NE(I),I=1,13) /  722.,  329.,  -63.,   40.,   31.,
     &   102.,  111.,  102.,   31.,   40.,  -63.,  329.,  722./
C      Solstice
       DATA ((P2DS(I,J),I=1,13),J=1,3) /
     &   90.,  90.,  91.,  91.,  98., 105., 112., 119., 125., 124.,
     &  120., 126., 131.,
     &  155., 156., 156., 161., 163., 158., 152., 155., 154., 147.,
     &  152., 148., 145.,
     &  205., 202., 199., 191., 195., 206., 212., 210., 206., 205.,
     &  203., 201., 199./
       DATA (CXN2DS(I),I=1,13) / -714., -294.,  126.,  546.,  516.,
     &   486.,  456.,  426.,  396.,  225.,  366.,  710., 1055./
       DATA (CDN2DS(I),I=1,13) / -732., -357.,   17.,  392.,  327.,
     &   262.,  197.,  132.,   67.,  -80.,   62.,  330.,  598./
       DATA ((P1DS(I,J),I=1,13),J=1,3) /
     &  105., 107., 108., 112., 111., 111., 112., 113., 113., 113.,
     &  114., 116., 118.,
     &  125., 127., 130., 132., 135., 134., 135., 139., 134., 133.,
     &  135., 136., 137.,
     &  189., 193., 198., 211., 218., 202., 199., 200., 206., 213.,
     &  217., 224., 231./
       DATA (CXN1DS(I),I=1,13) /  706.,  480.,  255.,   56.,  310.,
     &   111.,  164.,  249.,  324.,  629.,  837.,  938., 1038./
       DATA (CDN1DS(I),I=1,13) /   25.,   51.,   77.,   26.,  107.,
     &   131.,  118.,  141.,  130.,   68.,   45.,  123.,  202./
       DATA ((P8DS(I,J),I=1,13),J=1,3) /
     &  125., 122., 120., 121., 119., 116., 113., 110., 107., 114.,
     &  125., 127., 129.,
     &  148., 147., 146., 149., 159., 163., 162., 160., 171., 160.,
     &  154., 152., 150.,
     &  199., 199., 198., 200., 198., 200., 214., 221., 215., 192.,
     &  193., 196., 200./
       DATA (CXN8DS(I),I=1,13) /  201.,   47., -106., -130., -106.,
     &    26.,  158.,  290.,  422.,  214.,  185.,  224.,  263./
       DATA (CDN8DS(I),I=1,13) /  104.,   63.,   22.,   -3.,   -1.,
     &    60.,  121.,  182.,  242.,  170.,   51.,   67.,   84./
       DATA ((P5DS(I,J),I=1,13),J=1,3) /
     &   91.,  88.,  86.,  95.,  94.,  88.,  85.,  90.,  95.,  96.,
     &   96.,  97.,  98.,
     &  165., 167., 168., 150., 159., 161., 161., 159., 158., 158.,
     &  145., 149., 154.,
     &  189., 191., 194., 201., 204., 200., 196., 193., 191., 196.,
     &  204., 201., 199./
       DATA (CXN5DS(I),I=1,13) /-1839.,-1044., -248., -253., -416.,
     &    17.,  156.,  118., -110.,  372.,  934.,  895.,  856./
       DATA (CDN5DS(I),I=1,13) /-1603.,-1092., -581., -656., -433.,
     &  -166.,   51.,  -29., -325.,  117.,  -36.,  321.,  678./
       DATA ((P3DS(I,J),I=1,13),J=1,3) /
     &   97.,  94.,  92.,  94.,  90.,  89.,  90.,  92.,  93.,  91.,
     &   95.,  85.,  75.,
     &  155., 148., 141., 142., 142., 140., 139., 142., 145., 141.,
     &  144., 155., 167.,
     &  197., 200., 204., 207., 200., 203., 206., 209., 212., 219.,
     &  219., 204., 190./
       DATA (CXN3DS(I),I=1,13) / -894., -797., -700., -604.,  139.,
     &   246.,  354.,  462.,  569.,  142.,   81.,  293.,  505./
       DATA (CDN3DS(I),I=1,13) / -740., -577., -414., -140.,   55.,
     &   -27.,  110.,   74.,  -10., -122.,   52.,  209.,  366./
       DATA ((P2NS(I,J),I=1,13),J=1,3) /
     &  105., 107., 110., 112., 115., 110., 104.,  99.,  95., 103.,
     &  117., 127., 136.,
     &  149., 146., 144., 147., 143., 139., 138., 143., 152., 154.,
     &  154., 148., 142.,
     &  198., 200., 201., 206., 211., 210., 209., 200., 196., 197.,
     &  205., 205., 206./
       DATA (CXN2NS(I),I=1,13) / -817., -511., -205.,  100.,  406.,
     &   312.,  217.,  123.,  640., 1037.,  580.,  677.,  773./
       DATA (CDN2NS(I),I=1,13) /  755.,  684.,  612.,  540.,  469.,
     &   191.,  -87., -365., -171., -224., -112.,  146.,  403./
       DATA ((P1NS(I,J),I=1,13),J=1,3) /
     &  104., 108., 112., 112., 114., 113., 112., 112., 112., 114.,
     &  114., 116., 119.,
     &  137., 135., 133., 131., 136., 137., 133., 134., 131., 133.,
     &  135., 135., 134.,
     &  240., 224., 208., 207., 204., 201., 199., 208., 208., 211.,
     &  196., 198., 200./
       DATA (CXN1NS(I),I=1,13) / 1440.,  430., -580.,  201.,  354.,
     &   470.,  281.,  329.,  511.,  546.,  741.,  911., 1082./
       DATA (CDN1NS(I),I=1,13) / -236., -256., -276.,  182.,  155.,
     &   100.,  128.,  148.,  100.,  -61., -102.,   33.,  169./
       DATA ((P8NS(I,J),I=1,13),J=1,3) /
     &  128., 127., 127., 127., 126., 122., 102., 115., 116., 118.,
     &  121., 121., 121.,
     &  153., 153., 153., 153., 154., 158., 163., 156., 150., 146.,
     &  147., 147., 147.,
     &  198., 197., 197., 195., 193., 194., 197., 198., 198., 198.,
     &  198., 198., 199./
       DATA (CXN8NS(I),I=1,13) /  199.,   -8., -215.,   92.,  275.,
     &   284.,  304.,  322.,  284.,  161.,  121.,  200.,  280./
       DATA (CDN8NS(I),I=1,13) /  123.,    1., -121.,   -6.,  151.,
     &   146.,  -19.,  169.,  149.,   75.,   22.,   78.,  134./
       DATA ((P5NS(I,J),I=1,13),J=1,3) /
     &   85.,  89.,  93., 102.,  95.,  85.,  83.,  86.,  97., 101.,
     &   93.,  92.,  90.,
     &  166., 163., 160., 167., 168., 167., 165., 167., 169., 164.,
     &  157., 162., 166.,
     &  217., 207., 196., 183., 193., 194., 197., 205., 209., 205.,
     &  205., 201., 198./
       DATA (CXN5NS(I),I=1,13) /  274.,  246.,  218.,   90.,  248.,
     &   337.,  370.,  433.,  361.,  461.,  541.,  615.,  689./
       DATA (CDN5NS(I),I=1,13) / -153.,  -61.,   30.,   48.,  169.,
     &   241.,  279.,  260.,  187.,  380.,  316.,  436.,  557./
       DATA ((P3NS(I,J),I=1,13),J=1,3) /
     &   74.,  80.,  87.,  89.,  95.,  94.,  92.,  91.,  90.,  93.,
     &   93.,  87.,  81.,
     &  151., 146., 141., 142., 151., 158., 159., 159., 160., 155.,
     &  149., 153., 157.,
     &  221., 205., 189., 184., 180., 175., 176., 179., 191., 199.,
     &  210., 204., 198./
       DATA (CXN3NS(I),I=1,13) /   68.,   34.,    1.,  154.,  151.,
     &   178.,  224.,  198.,  220.,  380.,  559.,  228., -104./
       DATA (CDN3NS(I),I=1,13) /   97.,    1.,  -95.,   47.,   37.,
     &   112.,   96.,  106.,  129.,  252.,  470.,  220.,  -30./
C
       DO 5 I=1,13
        TXN2DE(I)=CXN2DE(I)
        TDN2DE(I)=CDN2DE(I)
        TXN1DE(I)=CXN1DE(I)
        TDN1DE(I)=CDN1DE(I)
        TXN8DE(I)=CXN8DE(I)
        TDN8DE(I)=CDN8DE(I)
        TXN5DE(I)=CXN5DE(I)
        TDN5DE(I)=CDN5DE(I)
        TXN3DE(I)=CXN3DE(I)
        TDN3DE(I)=CDN3DE(I)
        TXN2NE(I)=CXN2NE(I)
        TDN2NE(I)=CDN2NE(I)
        TXN1NE(I)=CXN1NE(I)
        TDN1NE(I)=CDN1NE(I)
        TXN8NE(I)=CXN8NE(I)
        TDN8NE(I)=CDN8NE(I)
        TXN5NE(I)=CXN5NE(I)
        TDN5NE(I)=CDN5NE(I)
        TXN3NE(I)=CXN3NE(I)
        TDN3NE(I)=CDN3NE(I)       
        TXN2DS(I)=CXN2DS(I)
        TDN2DS(I)=CDN2DS(I)
        TXN1DS(I)=CXN1DS(I)
        TDN1DS(I)=CDN1DS(I)
        TXN8DS(I)=CXN8DS(I)
        TDN8DS(I)=CDN8DS(I)
        TXN5DS(I)=CXN5DS(I)
        TDN5DS(I)=CDN5DS(I)
        TXN3DS(I)=CXN3DS(I)
        TDN3DS(I)=CDN3DS(I)
        TXN2NS(I)=CXN2NS(I)
        TDN2NS(I)=CDN2NS(I)
        TXN1NS(I)=CXN1NS(I)
        TDN1NS(I)=CDN1NS(I)
        TXN8NS(I)=CXN8NS(I)
        TDN8NS(I)=CDN8NS(I)
        TXN5NS(I)=CXN5NS(I)
        TDN5NS(I)=CDN5NS(I)
        TXN3NS(I)=CXN3NS(I)
5       TDN3NS(I)=CDN3NS(I)       
C
       IF (((DDD .GE. 265) .AND. (DDD .LT. 354)) .OR. 
     &    ((DDD .GE. 354) .OR. (DDD .LT. 79))) THEN
         CALL SWAPEL(13,TXN2DS)
         CALL SWAPEL(13,TDN2DS)
         CALL SWAPEL(13,TXN1DS)
         CALL SWAPEL(13,TDN1DS)
         CALL SWAPEL(13,TXN8DS)
         CALL SWAPEL(13,TDN8DS)
         CALL SWAPEL(13,TXN5DS)
         CALL SWAPEL(13,TDN5DS)
         CALL SWAPEL(13,TXN3DS)
         CALL SWAPEL(13,TDN3DS)
         CALL SWAPEL(13,TXN2NS)
         CALL SWAPEL(13,TDN2NS)
         CALL SWAPEL(13,TXN1NS)
         CALL SWAPEL(13,TDN1NS)
         CALL SWAPEL(13,TXN8NS)
         CALL SWAPEL(13,TDN8NS)
         CALL SWAPEL(13,TXN5NS)
         CALL SWAPEL(13,TDN5NS)
         CALL SWAPEL(13,TXN3NS)
         CALL SWAPEL(13,TDN3NS)
       END IF
       
C      interpolated Te values for invdip
C      Te max-min day equinox
       XN2DEI=INTERP(13,0,TXN2DE,INVDPQ,INVDIP)
       XN1DEI=INTERP(13,0,TXN1DE,INVDPQ,INVDIP)
       XN8DEI=INTERP(13,0,TXN8DE,INVDPQ,INVDIP)
       XN5DEI=INTERP(13,0,TXN5DE,INVDPQ,INVDIP)
       XN3DEI=INTERP(13,0,TXN3DE,INVDPQ,INVDIP)
C      Te max-min night equinox       
       XN2NEI=INTERP(13,0,TXN2NE,INVDPQ,INVDIP)
       XN1NEI=INTERP(13,0,TXN1NE,INVDPQ,INVDIP)
       XN8NEI=INTERP(13,0,TXN8NE,INVDPQ,INVDIP)
       XN5NEI=INTERP(13,0,TXN5NE,INVDPQ,INVDIP)
       XN3NEI=INTERP(13,0,TXN3NE,INVDPQ,INVDIP)
C      Te med-min day equinox       
       DN2DEI=INTERP(13,0,TDN2DE,INVDPQ,INVDIP)
       DN1DEI=INTERP(13,0,TDN1DE,INVDPQ,INVDIP)
       DN8DEI=INTERP(13,0,TDN8DE,INVDPQ,INVDIP)
       DN5DEI=INTERP(13,0,TDN5DE,INVDPQ,INVDIP)
       DN3DEI=INTERP(13,0,TDN3DE,INVDPQ,INVDIP)
C      Te med-min night equinox       
       DN2NEI=INTERP(13,0,TDN2NE,INVDPQ,INVDIP)
       DN1NEI=INTERP(13,0,TDN1NE,INVDPQ,INVDIP)
       DN8NEI=INTERP(13,0,TDN8NE,INVDPQ,INVDIP)
       DN5NEI=INTERP(13,0,TDN5NE,INVDPQ,INVDIP)
       DN3NEI=INTERP(13,0,TDN3NE,INVDPQ,INVDIP)
C       
C      Te max-min day solstice       
       XN2DSI=INTERP(13,0,TXN2DS,INVDPQ,INVDIP)
       XN1DSI=INTERP(13,0,TXN1DS,INVDPQ,INVDIP)
       XN8DSI=INTERP(13,0,TXN8DS,INVDPQ,INVDIP)
       XN5DSI=INTERP(13,0,TXN5DS,INVDPQ,INVDIP)
       XN3DSI=INTERP(13,0,TXN3DS,INVDPQ,INVDIP)
C      Te max-min night solstice            
       XN2NSI=INTERP(13,0,TXN2NS,INVDPQ,INVDIP)
       XN1NSI=INTERP(13,0,TXN1NS,INVDPQ,INVDIP)
       XN8NSI=INTERP(13,0,TXN8NS,INVDPQ,INVDIP)
       XN5NSI=INTERP(13,0,TXN5NS,INVDPQ,INVDIP)
       XN3NSI=INTERP(13,0,TXN3NS,INVDPQ,INVDIP)
C      Te med-min day solstice      
       DN2DSI=INTERP(13,0,TDN2DS,INVDPQ,INVDIP)
       DN1DSI=INTERP(13,0,TDN1DS,INVDPQ,INVDIP)
       DN8DSI=INTERP(13,0,TDN8DS,INVDPQ,INVDIP)
       DN5DSI=INTERP(13,0,TDN5DS,INVDPQ,INVDIP)
       DN3DSI=INTERP(13,0,TDN3DS,INVDPQ,INVDIP)
C      Te med-min night solstice           
       DN2NSI=INTERP(13,0,TDN2NS,INVDPQ,INVDIP)
       DN1NSI=INTERP(13,0,TDN1NS,INVDPQ,INVDIP)
       DN8NSI=INTERP(13,0,TDN8NS,INVDPQ,INVDIP)
       DN5NSI=INTERP(13,0,TDN5NS,INVDPQ,INVDIP)
       DN3NSI=INTERP(13,0,TDN3NS,INVDPQ,INVDIP)
       DO 10 I=1,3 
        P2DEI(I)=INTERP(13,1,P2DE(1,I),INVDPQ,INVDIP)
        P2NEI(I)=INTERP(13,1,P2NE(1,I),INVDPQ,INVDIP)
        P1DEI(I)=INTERP(13,1,P1DE(1,I),INVDPQ,INVDIP)
        P1NEI(I)=INTERP(13,1,P1NE(1,I),INVDPQ,INVDIP)
        P8DEI(I)=INTERP(13,1,P8DE(1,I),INVDPQ,INVDIP)
        P8NEI(I)=INTERP(13,1,P8NE(1,I),INVDPQ,INVDIP)
        P5DEI(I)=INTERP(13,1,P5DE(1,I),INVDPQ,INVDIP)
        P5NEI(I)=INTERP(13,1,P5NE(1,I),INVDPQ,INVDIP)
        P3DEI(I)=INTERP(13,1,P3DE(1,I),INVDPQ,INVDIP)
        P3NEI(I)=INTERP(13,1,P3NE(1,I),INVDPQ,INVDIP)
                                            
        P2DSI(I)=INTERP(13,1,P2DS(1,I),INVDPQ,INVDIP)
        P2NSI(I)=INTERP(13,1,P2NS(1,I),INVDPQ,INVDIP)
        P1DSI(I)=INTERP(13,1,P1DS(1,I),INVDPQ,INVDIP)
        P1NSI(I)=INTERP(13,1,P1NS(1,I),INVDPQ,INVDIP)
        P8DSI(I)=INTERP(13,1,P8DS(1,I),INVDPQ,INVDIP)
        P8NSI(I)=INTERP(13,1,P8NS(1,I),INVDPQ,INVDIP)
        P5DSI(I)=INTERP(13,1,P5DS(1,I),INVDPQ,INVDIP)
        P5NSI(I)=INTERP(13,1,P5NS(1,I),INVDPQ,INVDIP)
        P3DSI(I)=INTERP(13,1,P3DS(1,I),INVDPQ,INVDIP)
10      P3NSI(I)=INTERP(13,1,P3NS(1,I),INVDPQ,INVDIP)
       MLTTMP=MLT-1
       IF (MLTTMP .LT. 0) MLTTMP=MLTTMP+24.0
       MLTRAD=MLTTMP/24.0*2*3.1415927
      IF (((DDD .GE. 79) .AND. (DDD .LT. 171)) .OR. 
     &    ((DDD .GE. 265) .AND. (DDD .LT. 354))) THEN
C      Equinox     
       CALL TPCAS(MLTRAD,PF107,P2000A,
     &             XN2DEI,DN2DEI,P2DEI,XN2NEI,DN2NEI,P2NEI,TP200A)
       CALL TPCAS(MLTRAD,PF107,P1400A,
     &             XN1DEI,DN1DEI,P1DEI,XN1NEI,DN1NEI,P1NEI,TP140A)
       CALL TPCAS(MLTRAD,PF107,P850A,
     &             XN8DEI,DN8DEI,P8DEI,XN8NEI,DN8NEI,P8NEI,TP850A)
       CALL TPCAS(MLTRAD,PF107,P550A,
     &             XN5DEI,DN5DEI,P5DEI,XN5NEI,DN5NEI,P5NEI,TP550A)
       CALL TPCAS(MLTRAD,PF107,P350A,
     &             XN3DEI,DN3DEI,P3DEI,XN3NEI,DN3NEI,P3NEI,TP350A)
C       Solstice     
       CALL TPCAS(MLTRAD,PF107,P2000B,
     &             XN2DSI,DN2DSI,P2DSI,XN2NSI,DN2NSI,P2NSI,TP200B)
       CALL TPCAS(MLTRAD,PF107,P1400B,
     &             XN1DSI,DN1DSI,P1DSI,XN1NSI,DN1NSI,P1NSI,TP140B)
       CALL TPCAS(MLTRAD,PF107,P850B,
     &             XN8DSI,DN8DSI,P8DSI,XN8NSI,DN8NSI,P8NSI,TP850B)
       CALL TPCAS(MLTRAD,PF107,P550B,
     &             XN5DSI,DN5DSI,P5DSI,XN5NSI,DN5NSI,P5NSI,TP550B)
       CALL TPCAS(MLTRAD,PF107,P350B,
     &             XN3DSI,DN3DSI,P3DSI,XN3NSI,DN3NSI,P3NSI,TP350B)      
      END IF
      IF (((DDD .GE. 171) .AND. (DDD .LT. 265)) .OR. 
     &    ((DDD .GE. 354) .OR. (DDD .LT. 79)))  THEN
C       Solstice     
       CALL TPCAS(MLTRAD,PF107,P2000A,
     &             XN2DSI,DN2DSI,P2DSI,XN2NSI,DN2NSI,P2NSI,TP200A)
       CALL TPCAS(MLTRAD,PF107,P1400A,
     &             XN1DSI,DN1DSI,P1DSI,XN1NSI,DN1NSI,P1NSI,TP140A)
       CALL TPCAS(MLTRAD,PF107,P850A,
     &             XN8DSI,DN8DSI,P8DSI,XN8NSI,DN8NSI,P8NSI,TP850A)
       CALL TPCAS(MLTRAD,PF107,P550A,
     &             XN5DSI,DN5DSI,P5DSI,XN5NSI,DN5NSI,P5NSI,TP550A)
       CALL TPCAS(MLTRAD,PF107,P350A,
     &             XN3DSI,DN3DSI,P3DSI,XN3NSI,DN3NSI,P3NSI,TP350A)  
C      Equinox     
       CALL TPCAS(MLTRAD,PF107,P2000B,
     &             XN2DEI,DN2DEI,P2DEI,XN2NEI,DN2NEI,P2NEI,TP200B)
       CALL TPCAS(MLTRAD,PF107,P1400B,
     &             XN1DEI,DN1DEI,P1DEI,XN1NEI,DN1NEI,P1NEI,TP140B)
       CALL TPCAS(MLTRAD,PF107,P850B,
     &             XN8DEI,DN8DEI,P8DEI,XN8NEI,DN8NEI,P8NEI,TP850B)
       CALL TPCAS(MLTRAD,PF107,P550B,
     &             XN5DEI,DN5DEI,P5DEI,XN5NEI,DN5NEI,P5NEI,TP550B)
       CALL TPCAS(MLTRAD,PF107,P350B,
     &             XN3DEI,DN3DEI,P3DEI,XN3NEI,DN3NEI,P3NEI,TP350B)     
      END IF 
      RETURN
      END
c
c
      SUBROUTINE TEBA(DIPL,SLT,NS,TE) 
C CALCULATES ELECTRON TEMPERATURES TE(1) TO TE(4) AT ALTITUDES
C 300, 400, 1400 AND 3000 KM FOR DIP-LATITUDE DIPL/DEG AND 
C LOCAL SOLAR TIME SLT/H USING THE BRACE-THEIS-MODELS (J. ATMOS.
C TERR. PHYS. 43, 1317, 1981); NS IS SEASON IN NORTHERN
C HEMISPHERE: NS=1 SPRING, NS=2 SUMMER ....
CC No longer used: ALSO CALCULATED ARE THE TEMPERATURES AT 400 KM
CC ALTITUDE FOR MIDNIGHT (TE(5)) AND NOON (TE(6)).   
cc      DIMENSION C(4,2,81),A(82),TE(6)
      DIMENSION C(4,2,81),A(82),TE(4)
      COMMON    /CONST/UMR,PI      /const1/humr,dumr
      DATA (C(1,1,J),J=1,81)/                      
     &.3100E1,-.3215E-2,.2440E+0,-.4613E-3,-.1711E-1,.2605E-1,                  
     &-.9546E-1,.1794E-1,.1270E-1,.2791E-1,.1536E-1,-.6629E-2,                  
     &-.3616E-2,.1229E-1,.4147E-3,.1447E-2,-.4453E-3,-.1853,                    
     &-.1245E-1,-.3675E-1,.4965E-2,.5460E-2,.8117E-2,-.1002E-1,                 
     &.5466E-3,-.3087E-1,-.3435E-2,-.1107E-3,.2199E-2,.4115E-3,                 
     &.6061E-3,.2916E-3,-.6584E-1,.4729E-2,-.1523E-2,.6689E-3,                  
     &.1031E-2,.5398E-3,-.1924E-2,-.4565E-1,.7244E-2,-.8543E-4,                 
     &.1052E-2,-.6696E-3,-.7492E-3,.4405E-1,.3047E-2,.2858E-2,                  
     &-.1465E-3,.1195E-2,-.1024E-3,.4582E-1,.8749E-3,.3011E-3,                  
     &.4473E-3,-.2782E-3,.4911E-1,-.1016E-1,.27E-2,-.9304E-3,                   
     &-.1202E-2,.2210E-1,.2566E-2,-.122E-3,.3987E-3,-.5744E-1,                  
     &.4408E-2,-.3497E-2,.83E-3,-.3536E-1,-.8813E-2,.2423E-2,                   
     &-.2994E-1,-.1929E-2,-.5268E-3,-.2228E-1,.3385E-2,                         
     &.413E-1,.4876E-2,.2692E-1,.1684E-2/          
      DATA (C(1,2,J),J=1,81)/.313654E1,.6796E-2,.181413,.8564E-1,               
     &-.32856E-1,-.3508E-2,-.1438E-1,-.2454E-1,.2745E-2,.5284E-1,               
     &.1136E-1,-.1956E-1,-.5805E-2,.2801E-2,-.1211E-2,.4127E-2,                 
     &.2909E-2,-.25751,-.37915E-2,-.136E-1,-.13225E-1,.1202E-1,                 
     &.1256E-1,-.12165E-1,.1326E-1,-.7123E-1,.5793E-3,.1537E-2,                 
     &.6914E-2,-.4173E-2,.1052E-3,-.5765E-3,-.4041E-1,-.1752E-2,                
     &-.542E-2,-.684E-2,.8921E-3,-.2228E-2,.1428E-2,.6635E-2,-.48045E-2,        
     &-.1659E-2,-.9341E-3,.223E-3,-.9995E-3,.4285E-1,-.5211E-3,                 
     &-.3293E-2,.179E-2,.6435E-3,-.1891E-3,.3844E-1,.359E-2,-.8139E-3,          
     &-.1996E-2,.2398E-3,.2938E-1,.761E-2,.347655E-2,.1707E-2,.2769E-3,         
     &-.157E-1,.983E-3,-.6532E-3,.929E-4,-.2506E-1,.4681E-2,.1461E-2,           
     &-.3757E-5,-.9728E-2,.2315E-2,.6377E-3,-.1705E-1,.2767E-2,                 
     &-.6992E-3,-.115E-1,-.1644E-2,.3355E-2,-.4326E-2,.2035E-1,.2985E-1/        
      DATA (C(2,1,J),J=1,81)/.3136E1,.6498E-2,.2289,.1859E-1,-.3328E-1,         
     &-.4889E-2,-.3054E-1,-.1773E-1,-.1728E-1,.6555E-1,.1775E-1,                
     &-.2488E-1,-.9498E-2,.1493E-1,.281E-2,.2406E-2,.5436E-2,-.2115,            
     &.7007E-2,-.5129E-1,-.7327E-2,.2402E-1,.4772E-2,-.7374E-2,                 
     &-.3835E-3,-.5013E-1,.2866E-2,.2216E-2,.2412E-3,.2094E-2,.122E-2           
     &,-.1703E-3,-.1082,-.4992E-2,-.4065E-2,.3615E-2,-.2738E-2,                 
     &-.7177E-3,.2173E-3,-.4373E-1,-.375E-2,.5507E-2,-.1567E-2,                 
     &-.1458E-2,-.7397E-3,.7903E-1,.4131E-2,.3714E-2,.1073E-2,                  
     &-.8991E-3,.2976E-3,.2623E-1,.2344E-2,.5608E-3,.4124E-3,.1509E-3,          
     &.5103E-1,.345E-2,.1283E-2,.7238E-3,-.3464E-4,.1663E-1,-.1644E-2,          
     &-.71E-3,.5281E-3,-.2729E-1,.3556E-2,-.3391E-2,-.1787E-3,.2154E-2,         
     &.6476E-2,-.8282E-3,-.2361E-1,.9557E-3,.3205E-3,-.2301E-1,                 
     &-.854E-3,-.1126E-1,-.2323E-2,-.8582E-2,.2683E-1/                          
      DATA (C(2,2,J),J=1,81)/.3144E1,.8571E-2,.2539,.6937E-1,-.1667E-1,         
     &.2249E-1,-.4162E-1,.1201E-1,.2435E-1,.5232E-1,.2521E-1,-.199E-1,          
     &-.7671E-2,.1264E-1,-.1551E-2,-.1928E-2,.3652E-2,-.2019,.5697E-2,          
     &-.3159E-1,-.1451E-1,.2868E-1,.1377E-1,-.4383E-2,.1172E-1,                 
     &-.5683E-1,.3593E-2,.3571E-2,.3282E-2,.1732E-2,-.4921E-3,-.1165E-2         
     &,-.1066,-.1892E-1,.357E-2,-.8631E-3,-.1876E-2,-.8414E-4,.2356E-2,         
     &-.4259E-1,-.322E-2,.4641E-2,.6223E-3,-.168E-2,-.1243E-3,.7393E-1,         
     &-.3143E-2,-.2362E-2,.1235E-2,-.1551E-2,.2099E-3,.2299E-1,.5301E-2         
     &,-.4306E-2,-.1303E-2,.7687E-5,.5305E-1,.6642E-2,-.1686E-2,                
     &.1048E-2,.5958E-3,.4341E-1,-.8819E-4,-.333E-3,-.2158E-3,-.4106E-1         
     &,.4191E-2,.2045E-2,-.1437E-3,-.1803E-1,-.8072E-3,-.424E-3,                
     &-.26E-1,-.2329E-2,.5949E-3,-.1371E-1,-.2188E-2,.1788E-1,                  
     &.6405E-3,.5977E-2,.1333E-1/                  
      DATA (C(3,1,J),J=1,81)/.3372E1,.1006E-1,.1436,.2023E-2,-.5166E-1,         
     &.9606E-2,-.5596E-1,.4914E-3,-.3124E-2,-.4713E-1,-.7371E-2,                
     &-.4823E-2,-.2213E-2,.6569E-2,-.1962E-3,.3309E-3,-.3908E-3,                
     &-.2836,.7829E-2,.1175E-1,.9919E-3,.6589E-2,.2045E-2,-.7346E-2             
     &,-.89E-3,-.347E-1,-.4977E-2,.147E-2,-.2823E-5,.6465E-3,                   
     &-.1448E-3,.1401E-2,-.8988E-1,-.3293E-4,-.1848E-2,.4439E-3,                
     &-.1263E-2,.317E-3,-.6227E-3,.1721E-1,-.199E-2,-.4627E-3,                  
     &.2897E-5,-.5454E-3,.3385E-3,.8432E-1,-.1951E-2,.1487E-2,                  
     &.1042E-2,-.4788E-3,-.1276E-3,.2373E-1,.2409E-2,.5263E-3,                  
     &.1301E-2,-.4177E-3,.3974E-1,.1418E-3,-.1048E-2,-.2982E-3,                 
     &-.3396E-4,.131E-1,.1413E-2,-.1373E-3,.2638E-3,-.4171E-1,                  
     &-.5932E-3,-.7523E-3,-.6883E-3,-.2355E-1,.5695E-3,-.2219E-4,               
     &-.2301E-1,-.9962E-4,-.6761E-3,.204E-2,-.5479E-3,.2591E-1,                 
     &-.2425E-2,.1583E-1,.9577E-2/                 
      DATA (C(3,2,J),J=1,81)/.3367E1,.1038E-1,.1407,.3622E-1,-.3144E-1,         
     &.112E-1,-.5674E-1,.3219E-1,.1288E-2,-.5799E-1,-.4609E-2,                  
     &.3252E-2,-.2859E-3,.1226E-1,-.4539E-2,.1310E-2,-.5603E-3,                 
     &-.311,-.1268E-2,.1539E-1,.3146E-2,.7787E-2,-.143E-2,-.482E-2              
     &,.2924E-2,-.9981E-1,-.7838E-2,-.1663E-3,.4769E-3,.4148E-2,                
     &-.1008E-2,-.979E-3,-.9049E-1,-.2994E-2,-.6748E-2,-.9889E-3,               
     &.1488E-2,-.1154E-2,-.8412E-4,-.1302E-1,-.4859E-2,-.7172E-3,               
     &-.9401E-3,.9101E-3,-.1735E-3,.7055E-1,.6398E-2,-.3103E-2,                 
     &-.938E-3,-.4E-3,-.1165E-2,.2713E-1,-.1654E-2,.2781E-2,                    
     &-.5215E-5,.2258E-3,.5022E-1,.95E-2,.4147E-3,.3499E-3,                     
     &-.6097E-3,.4118E-1,.6556E-2,.3793E-2,-.1226E-3,-.2517E-1,                 
     &.1491E-3,.1075E-2,.4531E-3,-.9012E-2,.3343E-2,.3431E-2,                   
     &-.2519E-1,.3793E-4,.5973E-3,-.1423E-1,-.132E-2,-.6048E-2,                 
     &-.5005E-2,-.115E-1,.2574E-1/                 
      DATA (C(4,1,J),J=1,81)/.3574E1,.0,.7537E-1,.0,-.8459E-1,                  
     &0.,-.294E-1,0.,.4547E-1,-.5321E-1,0.,.4328E-2,0.,.6022E-2,                
     &.0,-.9168E-3,.0,-.1768,.0,.294E-1,.0,.5902E-3,.0,-.9047E-2,               
     &.0,-.6555E-1,.0,-.1033E-2,.0,.1674E-2,.0,.2802E-3,-.6786E-1               
     &,.0,.4193E-2,.0,-.6448E-3,.0,.9277E-3,-.1634E-1,.0,-.2531E-2              
     &,.0,.193E-4,.0,.528E-1,.0,.2438E-2,.0,-.5292E-3,.0,.1555E-1               
     &,.0,-.3259E-2,.0,-.5998E-3,.3168E-1,.0,.2382E-2,.0,-.4078E-3              
     &,.2312E-1,.0,.1481E-3,.0,-.1885E-1,.0,.1144E-2,.0,-.9952E-2               
     &,.0,-.551E-3,-.202E-1,.0,-.7283E-4,-.1272E-1,.0,.2224E-2,                 
     &.0,-.251E-2,.2434E-1/                        
      DATA (C(4,2,J),J=1,81)/.3574E1,-.5639E-2,.7094E-1,                        
     &-.3347E-1,-.861E-1,-.2877E-1,-.3154E-1,-.2847E-2,.1235E-1,                
     &-.5966E-1,-.3236E-2,.3795E-3,-.8634E-3,.3377E-2,-.1071E-3,                
     &-.2151E-2,-.4057E-3,-.1783,.126E-1,.2835E-1,-.242E-2,                     
     &.3002E-2,-.4684E-2,-.6756E-2,-.7493E-3,-.6147E-1,-.5636E-2                
     &,-.1234E-2,-.1613E-2,-.6353E-4,-.2503E-3,-.1729E-3,-.7148E-1              
     &,.5326E-2,.4006E-2,.6484E-3,-.1046E-3,-.6034E-3,-.9435E-3,                
     &-.2385E-2,.6853E-2,.151E-2,.1319E-2,.9049E-4,-.1999E-3,                   
     &.3976E-1,.2802E-2,-.103E-2,.5599E-3,-.4791E-3,-.846E-4,                   
     &.2683E-1,.427E-2,.5911E-3,.2987E-3,-.208E-3,.1396E-1,                     
     &-.1922E-2,-.1063E-2,.3803E-3,.1343E-3,.1771E-1,-.1038E-2,                 
     &-.4645E-3,-.2481E-3,-.2251E-1,-.29E-2,-.3977E-3,-.516E-3,                 
     &-.8079E-2,-.1528E-2,.306E-3,-.1582E-1,-.8536E-3,.1565E-3,                 
     &-.1252E-1,.2319E-3,.4311E-2,.1024E-2,.1296E-5,.179E-1/ 
                        
        IF(NS.LT.3) THEN
           IS=NS
        ELSE IF(NS.GT.3) THEN
           IS=2
           DIPL=-DIPL
        ELSE
           IS=1
        ENDIF
      COLAT=UMR*(90.-DIPL)                    
      AZ=humr*SLT    
      CALL SPHARM(A,8,8,COLAT,AZ)
        IF(IS.EQ.2) THEN
           KEND=3
        ELSE
           KEND=4
        ENDIF                  
      DO 2 K=1,KEND      
      STE=0.          
      DO 1 I=1,81     
1       STE=STE+A(I)*C(K,IS,I)                       
2     TE(K)=10.**STE
        IF(IS.EQ.2) THEN
           DIPL=-DIPL
           COLAT=UMR*(90.-DIPL)                    
           CALL SPHARM(A,8,8,COLAT,AZ)
           STE=0.          
           DO 11 I=1,81     
11            STE=STE+A(I)*C(4,2,I)                       
           TE(4)=10.**STE
        ENDIF

C---------- TEMPERATURE AT 400KM AT MIDNIGHT AND NOON
c      DO 4 J=1,2      
c        STE=0.          
c        AZ=humr*(J-1)*12.                           
c        CALL SPHARM(A,8,8,COLAT,AZ)                  
c        DO 3 I=1,81     
c3         STE=STE+A(I)*C(2,IS,I)                       
c4       TE(J+4)=10.**STE                             
      RETURN          
      END             
C
C
      SUBROUTINE SPHARM(C,L,M,COLAT,AZ)            
C CALCULATES THE COEFFICIENTS OF THE SPHERICAL HARMONIC                         
C EXPANSION THAT WAS USED FOR THE BRACE-THEIS-MODELS.                           
      DIMENSION C(82)                              
      C(1)=1.         
      K=2             
      X=COS(COLAT)    
      C(K)=X          
      K=K+1           
      DO 10 I=2,L     
      C(K)=((2*I-1)*X*C(K-1)-(I-1)*C(K-2))/I       
10    K=K+1           
      Y=SIN(COLAT)    
      DO 20 MT=1,M    
      CAZ=COS(MT*AZ)  
      SAZ=SIN(MT*AZ)  
      C(K)=Y**MT      
      K=K+1           
      IF(MT.EQ.L) GOTO 16                          
      C(K)=C(K-1)*X*(2*MT+1)                       
      K=K+1           
      IF((MT+1).EQ.L) GOTO 16                      
      DO 15 I=2+MT,L  
      C(K)=((2*I-1)*X*C(K-1)-(I+MT-1)*C(K-2))/(I-MT)                            
15    K=K+1           
16    N=L-MT+1        
      DO 18 I=1,N     
      C(K)=C(K-N)*CAZ                              
      C(K-N)=C(K-N)*SAZ                            
18    K=K+1           
20    CONTINUE        
      RETURN          
      END             
C
C
      FUNCTION TEDE(H,DEN,COV)                     
c----------------------------------------------------------------
C MODEL OF CORRELATION BETWEEN ELECTRON TEMEPERATURE AND
C ELECTRON DENSITY (DEN/M-3). MODELS ARE PROVIDED FOR A
C DEPENDENCE ON DAILY F10.7 AND FOR THE AVERAGE OF F10.7
C OVER 3 SOLAR ROTATIONS (81 DAYS). COV=F10.7 OR
C COV=-F10.7_81
C BRACE AND THEIS, GRL, 5, 275-278, 1978.
C BILITZA, BRACE, AND THEIS, ASR, 5(7), 53-58, 1985.  
c----------------------------------------------------------------
C
      Y=1051.+(17.01*H-2746.)*                     
     &	EXP(-5.122E-4*H+(6.094E-12-3.353E-14*H)*DEN) 
      ACOV=ABS(COV)   
      YC=1.+(.117+2.02E-3*ACOV)/(1.+EXP(-(ACOV-102.5)/5.))                      
      IF(COV.LT.0.)   
     & YC=1.+(.123+1.69E-3*ACOV)/(1.+EXP(-(ACOV-115.)/10.))                      
      TEDE=Y*YC       
      RETURN          
      END             
C
C                     
C*************************************************************                  
C**************** ION TEMPERATURE ****************************
C*************************************************************                  
C
C
      SUBROUTINE IONTIF(PF107Y,INVDIP,MLT,DDD,PF107,TIV,SIGTIV)
C--------------------------------------------------------------------
C Empirical model of ion temperature (Ti) in the topside ionosphere
C with inclusion of solar activity Ti variation.
C Based on spherical harmonics approximation of measured
C Ti (all available satellites) at altitudes centred on 350km, 430km,
C 600km, and 850km. For intermediate altitudes a Booker
C interpolation is used. Recommended altitude range: 300-1000 km!!!
C Linear extrapolation is used for altitude ranges <300;350)km
C and (2000;2500> km. For days between seasons centred at
C (21.3. = 80; 21.6. = 172; 23.9. 266; 21.12. = 355) Ti is
C interpolated by harmonic functions.
C
C Truhlík, V., D. Bilitza, D. Kotov, M. Shulha, and L. Třísková. 2021. 
C A Global Empirical Model of the Ion Temperature in the Ionosphere 
C for the International Reference Ionosphere, Atmosphere 12, 8:1081. 
C https://doi.org/10.3390/atmos12081081
C
C Input:  PF107Y - 0 .. PF107 dependency NOT included (not recommended!!!)
C                  1 .. PF107 dependency included
C         INVDIP - "mix" coordinate of the dip latitude and of
C                    the invariant latitude;
C                    positive northward, in deg, range <-90.0;90.0>
C         MLT - magnetic local time (central dipole)
C               in hours, range <0;24)
C         DDD - day of year; range <0;365>
C         PF107 - Phil Richard's solar radio flux;
C Output: TIV(4) - ion temperature in K at 350km, 430km, 600km, and 850km 
C         SIGTIV(4) - standard deviation (or model error) of calculated TI 
C Versions:
C           2021 (FORTRAN)  
C Author of the code:
C         Vladimir Truhlik
C         Institute of Atm. Phys.
C         Bocni II, 1401/1a
C         14100 Praha 4, Sporilov
C         Czech Republic
C         e-mail: vtr@ufa.cas.cz
C
C 04/20/2022 INVDIP computation moved to function INVDPC_OLD ........db 
C 04/04/2024 DTOR, DPI obtained through COMMON/CONST/............... db
C----------------------------------------------------------------------
C
      REAL INVDIP,MLT,PF107,TIV(4),SIGTIV(4)
      INTEGER CRD,PF107Y,ISRSAT,DDD,SEZDAY,XDAY
      INTEGER MIRREQ(81)
      REAL D(4,3,81),DERRTI(4,3,81),ASOL(4,3,81),BSOL(4,3,81)
      REAL ASOL2(4,3,81),BSOL2(4,3,81),CSOL2(4,3,81)
      DOUBLE PRECISION B(8),A
      REAL DPI,DTOR,ASA,INVL,RINVL,INVDP,RDIPL,ALFA,BETA
      REAL RMLT,RCOLAT
      REAL C(82)
      INTEGER SEZA,SEZB,DDDA,DDDB,DDDD
      REAL T350,T350A,T350B,T430,T430A,T430B,T600,T600A,T600B,
     &     T850,T850A,T850B
      REAL E350,E350A,E350B,E430,E430A,E430B,E600,E600A,E600B,
     &     E850,E850A,E850B
      REAL TP350A,TP350B,TP430A,TP430B,TP600A,TP600B,
     &     TP850A,TP850B
      REAL ANO(4),AH(4),DNO(2),ST(3)
      INTEGER FUN
      INTEGER I
      COMMON/ARGEXP/ARGMAX /CONST/DTOR,DPI
      DATA B/1.259921D0  ,-0.1984259D0 ,-0.04686632D0,-0.01314096D0,
     &      -0.00308824D0, 0.00082777D0,-0.00105877D0, 0.00183142D0/
C/////////////////////coefficients - main model part//////////////////////
      DATA (MIRREQ(J),J=1,81)/
     &  1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1,
     &  1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,
     & -1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1, 1,-1,
     &  1,-1, 1,-1, 1,-1, 1,-1, 1, 1,-1, 1, 1,-1, 1,-1, 1, 1/
C      ISRSAT=1
      CALL KOFDTI(MIRREQ,D)
      CALL KERRTI(MIRREQ,DERRTI)
      CALL KOL107(MIRREQ,ASOL,BSOL)
      CALL KOQ107(MIRREQ,ASOL2,BSOL2,CSOL2)
C///////////// thresholds of solar activity ////////////////////////////////
      IF (PF107 .GT. 250) PF107=250
      IF (PF107 .LT. 65) PF107=65
C///////////////////////////////////////////////////////////////////////////

      INVDP=INVDIP

      RMLT=MLT*DTOR*15.0
      RCOLAT=(90.0-INVDP)*DTOR
      CALL SPHARM_IK(C,8,8,RCOLAT,RMLT)
C     21.3. - 20.6.
      IF ((DDD .GE. 80) .AND. (DDD .LT. 172)) THEN
       SEZA=1
       SEZB=2
       DDDA=80
       DDDB=172
       DDDD=DDD
       FUN=0
      END IF
C     21.6. - 22.9.
      IF ((DDD .GE. 172) .AND. (DDD .LT. 266)) THEN
       SEZA=2
       SEZB=1
       DDDA=172
       DDDB=266
       DDDD=DDD
       FUN=1
      END IF
C     23.9. - 20.12.
      IF ((DDD .GE. 266) .AND. (DDD .LT. 355)) THEN
       SEZA=1
       SEZB=3
       DDDA=266
       DDDB=355
       DDDD=DDD
       FUN=0
      END IF
C     21.12. - 20.3.
      IF ((DDD .GE. 355) .OR. (DDD .LT. 80)) THEN
       SEZA=3
       SEZB=1
       DDDA=355
       DDDB=365+80
       DDDD=DDD
        IF (DDD .GE. 355) THEN
         DDDD=DDD
        ELSE
         DDDD=DDD+365
        END IF
       FUN=1 
      END IF
C     model Te
      T350A=0.0
      T350B=0.0
      T430A=0.0
      T430B=0.0
      T600A=0.0
      T600B=0.0
      T850A=0.0
      T850B=0.0          
      DO 30 I=1,81
       T350A=T350A+C(I)*D(1,SEZA,I)
       T350B=T350B+C(I)*D(1,SEZB,I)
       T430A=T430A+C(I)*D(2,SEZA,I)
       T430B=T430B+C(I)*D(2,SEZB,I)
       T600A=T600A+C(I)*D(3,SEZA,I)
       T600B=T600B+C(I)*D(3,SEZB,I)
       T850A=T850A+C(I)*D(4,SEZA,I)
30     T850B=T850B+C(I)*D(4,SEZB,I)
C     model errTe
      E350A=0.0
      E350B=0.0
      E430A=0.0
      E430B=0.0
      E600A=0.0
      E600B=0.0
      E850A=0.0
      E850B=0.0          
      DO 50 I=1,81
       E350A=E350A+C(I)*DERRTI(1,SEZA,I)
       E350B=E350B+C(I)*DERRTI(1,SEZB,I)
       E430A=E430A+C(I)*DERRTI(2,SEZA,I)
       E430B=E430B+C(I)*DERRTI(2,SEZB,I)
       E600A=E600A+C(I)*DERRTI(3,SEZA,I)
       E600B=E600B+C(I)*DERRTI(3,SEZB,I)
       E850A=E850A+C(I)*DERRTI(4,SEZA,I)
50     E850B=E850B+C(I)*DERRTI(4,SEZB,I)
C
      IF (PF107Y .EQ. 1) THEN
       CALL TIF107(PF107,INVDP,C,SEZA,SEZB,
     &                  ASOL,BSOL,ASOL2,BSOL2,CSOL2,  
     &                  TP350A,TP350B,TP430A,TP430B,
     &                  TP600A,TP600B,TP850A,TP850B) 
       T350A=T350A+TP350A
       T350B=T350B+TP350B
       T430A=T430A+TP430A
       T430B=T430B+TP430B
       T600A=T600A+TP600A
       T600B=T600B+TP600B
       T850A=T850A+TP850A
       T850B=T850B+TP850B
      END IF 
C     Ti
      IF (FUN .EQ. 0) THEN
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       SINDAY=SIN(DPI/2.0*XDAY/SEZDAY)
       T350=(T350B-T350A)*SINDAY+T350A
       T430=(T430B-T430A)*SINDAY+T430A
       T600=(T600B-T600A)*SINDAY+T600A
       T850=(T850B-T850A)*SINDAY+T850A
      ELSE
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       COSDAY=COS(DPI/2.0*XDAY/SEZDAY)
       T350=(T350A-T350B)*COSDAY+T350B
       T430=(T430A-T430B)*COSDAY+T430B
       T600=(T600A-T600B)*COSDAY+T600B
       T850=(T850A-T850B)*COSDAY+T850B
      END IF
C     error Ti
      IF (FUN .EQ. 0) THEN
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       SINDAY=SIN(DPI/2.0*XDAY/SEZDAY)
       E350=(E350B-E350A)*SINDAY+E350A
       E430=(E430B-E430A)*SINDAY+E430A
       E600=(E600B-E600A)*SINDAY+E600A
       E850=(E850B-E850A)*SINDAY+E850A
      ELSE
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       COSDAY=COS(DPI/2.0*XDAY/SEZDAY)
       E350=(E350A-E350B)*COSDAY+E350B
       E430=(E430A-E430B)*COSDAY+E430B
       E600=(E600A-E600B)*COSDAY+E600B
       E850=(E850A-E850B)*COSDAY+E850B
      END IF      
C ////////////////////////////////////////////////////////
C     Ti at the fixed heights
          TIV(1)=T350
          TIV(2)=T430
          TIV(3)=T600
          TIV(4)=T850
          SIGTIV(1)=E350
          SIGTIV(2)=E430
          SIGTIV(3)=E600
          SIGTIV(4)=E850
C ////////////////////////////////////////////////////////
      RETURN
      END
C
C
      SUBROUTINE KERRTI(MIRREQ,DOUT)
C////////////////////////////////coefficients - error Ti model part//////////////////////
      REAL DOUT(4,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL DERRTI(4,3,81)
C     350km equinox
      DATA (DERRTI(1,1,J),J=1,81)/ 1.18564E+02,
     &        3.18751E-14, 3.59164E+01, 2.79981E-14, 5.95898E+01,
     &       -1.11370E-13, 2.79364E+01, 6.57277E-14,-8.23019E+00,
     &       -1.80917E+01, 3.42510E-16, 9.48300E-01, 5.16058E-17,
     &       -7.09536E-01,-1.94405E-15,-6.69293E-01, 6.12856E-16,
     &       -1.58039E+01, 2.41275E-15, 3.72558E+00, 4.94600E-16,
     &        6.66242E+00,-1.15642E-15, 2.93621E+00,-1.89934E-15,
     &       -1.44546E+00,-1.53196E-15, 1.13341E+00,-2.04757E-16,
     &       -1.33517E+00, 2.64274E-16,-6.99407E-01, 3.15330E+00,
     &       -3.60806E-17,-1.82733E+00,-5.09619E-17, 1.57457E-01,
     &        1.04994E-16, 2.53836E-01, 3.20500E+00, 1.64755E-16,
     &       -1.10286E-01, 2.50994E-16, 5.44585E-01,-3.77891E-16,
     &        3.20647E-01, 5.28060E-17,-7.51849E-03, 2.31451E-16,
     &        5.51323E-02, 6.16019E-17, 3.09390E+00,-2.32050E-16,
     &       -1.24613E+00, 2.18079E-17, 1.03237E-01, 1.16614E+00,
     &        3.15034E-16, 1.72207E+00, 5.61521E-16, 2.05215E-01,
     &        4.10359E-01, 1.02359E-16, 1.28407E-01, 1.95844E-16,
     &       -1.56232E+00, 1.39189E-16,-4.61026E-01,-2.06581E-16,
     &       -1.32577E+00,-2.65229E-16, 3.34807E-01, 1.94837E+00,
     &       -3.12076E-17, 1.13317E-01, 3.31384E-01,-1.91889E-16,
     &        1.62496E+00, 1.71324E-16, 6.52200E-01,-1.07607E+00/
C     350km June solstice
      DATA (DERRTI(1,2,J),J=1,81)/ 1.07574E+02,
     &       -7.72258E-01, 2.32614E+01, 1.24898E+01, 5.31720E+01,
     &       -1.46889E+01,-1.70653E+00, 4.96241E+00, 1.43538E+01,
     &       -1.72787E+01, 6.74264E+00, 2.83005E+00,-3.54154E+00,
     &       -3.11546E+00,-7.98558E-01,-6.71766E-01,-4.56043E-01,
     &       -1.11616E+01, 5.69570E+00, 3.30846E+00,-9.64915E-01,
     &        4.99295E+00,-9.19128E-01, 2.70966E+00, 3.43650E-01,
     &       -7.19993E+00,-5.17564E+00,-1.39794E+00,-4.42421E-01,
     &       -7.03531E-01,-1.58199E-01,-1.73569E-01, 9.24434E+00,
     &        6.13910E-01, 1.88814E-01, 7.68338E-01, 2.55643E-01,
     &       -2.39615E-01, 2.09864E-01, 3.48734E+00,-1.67166E-01,
     &       -5.56985E-01,-6.40148E-02, 7.50126E-02, 1.86245E-01,
     &        1.36568E+00,-9.78133E-01, 6.97798E-01,-3.80973E-01,
     &       -1.67794E-01,-1.57859E-02, 4.74883E+00,-5.68822E-01,
     &       -1.10808E+00,-2.18929E-01, 1.47298E-02,-5.26333E+00,
     &       -6.13654E-01,-1.49004E-01,-2.81596E-01,-1.42796E-01,
     &        1.95396E-01, 1.19278E-01,-9.44040E-02,-9.41098E-02,
     &       -1.13718E+00, 3.56602E-01, 3.99941E-02, 2.26460E-01,
     &       -8.74859E-01,-2.50866E-02, 1.46838E-01, 2.19310E+00,
     &       -4.75867E-02, 4.77529E-01, 4.26530E-01, 6.51821E-01,
     &       -1.23607E+00,-1.36776E-01, 8.14853E-01,-1.08404E+00/
C     430km equinox
      DATA (DERRTI(2,1,J),J=1,81)/ 1.21647E+02,
     &       -2.06692E-14, 4.70328E+01, 3.32685E-14, 5.99539E+01,
     &       -7.06774E-14, 1.04145E+01, 9.40271E-14, 1.62029E+01,
     &       -9.31278E+00,-2.64716E-16, 1.82682E-01,-2.67932E-16,
     &       -6.03486E-01,-1.99704E-15, 9.05546E-01, 1.07211E-15,
     &        5.30366E-01, 1.23598E-15, 3.46088E+00,-1.40831E-15,
     &        7.34456E+00,-1.26526E-15, 3.99194E+00, 2.28787E-16,
     &       -4.63520E+00,-2.25803E-15, 3.23866E+00, 7.62787E-16,
     &       -1.24390E+00,-1.35829E-16,-5.65174E-01,-2.34324E+00,
     &        3.84218E-16,-3.81166E+00,-7.86551E-16, 8.45964E-01,
     &        8.26804E-16, 1.10637E-01, 1.18986E+00, 8.29562E-16,
     &       -2.20685E+00, 2.94483E-16, 3.02831E-01,-3.90945E-16,
     &       -2.67467E+00,-5.33985E-16, 1.48632E+00, 3.46196E-16,
     &       -3.94140E-01, 2.08699E-16, 2.38084E+00, 5.35550E-16,
     &       -5.04958E-01,-1.13483E-16, 1.12453E-01, 4.30663E+00,
     &        4.78772E-16, 4.66434E-01, 1.72272E-16, 8.04668E-02,
     &        5.87160E-01,-2.41875E-16, 1.89272E-01, 1.74341E-16,
     &       -1.80391E+00,-4.01537E-16,-2.43615E-01,-1.85997E-16,
     &        2.43836E+00,-5.05613E-16, 4.77041E-01,-1.16041E+00,
     &       -2.09567E-16, 4.62420E-01,-2.02920E+00,-6.73698E-17,
     &        2.38431E+00,-1.26168E-17,-1.12194E+00,-4.86171E-01/
C     430km June solstice
      DATA (DERRTI(2,2,J),J=1,81)/ 1.11251E+02,
     &        1.25995E+00, 2.30368E+01, 6.94590E-01, 5.34230E+01,
     &       -1.29723E+01,-2.70927E+01,-8.22855E+00, 2.35017E+01,
     &       -1.16840E+01, 4.50792E+00, 3.14085E+00,-4.29104E+00,
     &       -3.87568E+00,-3.12458E+00, 4.93011E-01,-7.49196E-01,
     &        2.52959E-01, 5.97611E+00,-1.92354E+00,-1.03596E+00,
     &        3.13092E+00, 1.11003E+00,-6.40338E-01,-5.37781E-02,
     &       -8.93062E+00,-4.23534E-01, 1.35469E+00, 7.45449E-01,
     &       -9.89864E-01, 4.86793E-01, 3.54719E-01, 4.85628E+00,
     &        1.07172E+00, 1.19581E+00, 9.64873E-01,-4.06925E-01,
     &        4.38580E-03,-1.43846E-01, 4.76234E+00, 1.77481E-01,
     &       -6.75945E-01, 2.24885E-01,-6.17006E-03,-2.18917E-01,
     &       -5.90814E+00,-1.01195E+00, 2.37143E-01,-1.70297E-01,
     &        6.87353E-03, 4.13783E-02, 6.50062E+00, 8.41616E-01,
     &       -8.91077E-01, 1.08171E-01, 1.01300E-01, 1.34543E+00,
     &       -6.39061E-01,-2.76283E-02,-1.51646E-01,-2.37588E-02,
     &        1.21243E+00, 6.50141E-01, 5.80030E-01,-4.25991E-02,
     &        1.75884E+00,-1.17163E+00,-6.50553E-03,-3.26797E-01,
     &       -2.98915E+00, 1.04993E+00,-3.90346E-02,-2.54316E+00,
     &        1.81616E-01,-9.52828E-02,-6.55020E-01,-3.24229E-01,
     &       -1.93405E+00,-1.01143E-01, 7.90640E-01, 7.64876E-01/
C     600km equinox
      DATA (DERRTI(3,1,J),J=1,81)/ 1.23383E+02,
     &        1.12497E-14, 9.61563E+01,-3.46605E-14, 5.81021E+01,
     &       -4.29513E-14,-2.61454E+01, 7.19187E-14,-1.47740E+01,
     &        2.32403E+00,-6.95805E-15, 7.11185E+00, 1.46171E-15,
     &       -3.19486E+00,-4.23749E-16, 3.61459E+00,-1.05103E-15,
     &        9.43126E+00,-3.20193E-16, 1.80498E+01,-3.36473E-15,
     &        1.16200E+01,-7.38766E-15, 1.54538E+01, 5.96812E-15,
     &       -1.67483E+01,-1.73913E-15,-3.32677E+00,-6.27806E-16,
     &       -1.76122E+00,-1.58462E-17,-2.39731E+00,-2.48407E+00,
     &       -6.13267E-16, 7.64519E-01, 4.70514E-16, 5.17077E-01,
     &        3.62839E-16, 6.26572E-02,-3.54952E+00, 1.48570E-16,
     &        2.58294E-01, 1.89742E-16, 1.75728E-01,-1.00770E-16,
     &       -1.29695E+01, 1.33766E-15,-2.43337E+00, 7.59815E-17,
     &        3.02448E-01, 4.15933E-20, 1.19717E+01, 5.13024E-16,
     &        4.85522E-01,-2.90220E-17,-4.29641E-02,-4.60473E-01,
     &       -3.14148E-16, 5.07662E-01, 1.48825E-16, 7.32770E-02,
     &        5.80716E+00, 5.03390E-16, 7.22441E-02, 3.81509E-17,
     &        9.80827E+00, 5.03265E-16, 6.28970E-01,-5.94293E-17,
     &       -6.45706E+00,-1.25291E-16, 3.96573E-02, 2.48721E+00,
     &        1.75540E-16,-1.39359E-01,-5.87244E+00,-4.58380E-16,
     &       -5.01084E+00,-3.08818E-16, 7.01727E-01,-3.73470E+00/
C     600km June solstice
      DATA (DERRTI(3,2,J),J=1,81)/ 1.29884E+02,
     &       -2.16283E+01, 9.11480E+01,-1.43655E+01, 8.05628E+00,
     &       -8.87552E+00,-6.34942E+01, 1.02339E+01,-3.26207E+01,
     &       -4.29686E+00, 5.85997E-02, 6.26688E+00,-4.85498E+00,
     &       -1.81359E+00, 5.08726E-01, 3.67758E+00, 1.88498E+00,
     &        7.37253E+00, 1.20254E+00, 8.32220E+00,-6.07879E-01,
     &        5.90250E+00,-9.50781E-01, 4.21618E+00,-7.32862E-02,
     &       -1.57466E+01, 1.90796E+00,-1.07067E+00,-1.68803E-01,
     &       -9.58362E-01,-6.87828E-02,-5.42266E-01,-3.99709E+00,
     &        4.73353E+00, 2.32839E-01, 2.42368E-01, 7.29817E-01,
     &        1.17218E-01, 7.68827E-01,-5.62172E+00,-2.81949E+00,
     &       -9.47799E-01,-6.15302E-01,-5.31118E-01,-3.52999E-01,
     &       -7.92378E+00,-1.79083E+00,-1.23697E+00, 4.57899E-01,
     &       -2.64944E-02, 2.23595E-01, 7.19864E+00,-1.03424E+00,
     &       -3.86267E-01,-4.72060E-01,-1.07357E-01,-7.59322E-01,
     &       -2.49914E+00,-3.42013E-01,-7.82734E-02,-1.58324E-01,
     &        9.80662E+00, 1.02683E+00, 2.28538E-01, 7.92079E-02,
     &        6.61293E+00, 3.70353E-01,-2.38804E-01,-4.93482E-02,
     &       -1.79546E+00, 1.10522E+00, 4.58724E-01, 3.42003E+00,
     &        1.22014E+00, 1.17760E-01,-6.10683E+00, 1.98447E-02,
     &       -2.02123E+00, 5.34722E-01,-3.21204E+00,-3.53669E+00/
C     850km equinox
      DATA (DERRTI(4,1,J),J=1,81)/ 1.79767E+02,
     &        4.99863E-14, 8.53012E+01,-4.27398E-14, 4.41491E+01,
     &       -9.78417E-14,-3.00528E+01, 1.27719E-13, 1.41935E+01,
     &       -9.37537E+00, 4.98015E-17, 1.92402E+01, 2.06054E-15,
     &       -6.42973E-01,-2.61885E-15,-2.65640E-01,-1.14981E-15,
     &        1.80054E+01, 9.96690E-15, 1.34061E+01, 2.61056E-15,
     &        1.02332E+00, 6.37023E-16,-3.95954E+00,-8.76311E-16,
     &       -3.52988E+01,-2.37946E-15, 8.54724E+00, 7.94609E-16,
     &        7.48440E-02, 1.24207E-15,-2.88888E+00,-2.00441E+01,
     &        2.41794E-16,-3.09010E+00,-1.02331E-15,-1.12850E+00,
     &       -4.44576E-16,-2.49107E-01,-5.58694E+00,-1.51204E-16,
     &       -6.44809E+00,-3.31683E-16,-1.11938E+00,-1.19668E-15,
     &       -2.38515E+01,-1.88703E-15, 5.88608E+00, 1.79372E-15,
     &        1.43047E+00, 4.94514E-16, 3.68967E+01,-2.10857E-16,
     &        2.72530E+00, 2.12777E-16, 1.77923E-01,-1.70715E+00,
     &        7.00875E-16,-5.71091E-01,-5.90993E-16,-1.01214E-01,
     &        7.25814E+00, 5.25188E-16,-8.80783E-01, 7.07762E-16,
     &        2.31478E+01,-1.10374E-15, 2.72138E+00,-2.78230E-16,
     &       -6.22856E+00,-1.78175E-15, 2.36877E+00,-2.84380E+00,
     &        8.36714E-16,-1.90972E+00,-2.39276E+00,-2.11964E-16,
     &        3.80104E+00,-3.43599E-16,-6.72237E+00,-5.99081E+00/
C     850km June solstice
      DATA (DERRTI(4,2,J),J=1,81)/ 1.82446E+02,
     &       -4.58919E+01, 5.20246E+01,-3.47508E+01, 2.02343E+01,
     &       -2.02712E+01,-2.87610E+01, 2.58023E+01, 3.92093E+01,
     &        5.02578E+00, 1.52096E+01, 2.52272E+01,-2.18689E+00,
     &       -9.23062E+00,-1.10061E+00,-3.17171E+00,-2.93270E+00,
     &        1.31091E+01,-8.80226E+00, 9.11917E+00, 4.86888E+00,
     &       -1.60386E+00,-1.92173E+00,-5.03796E+00, 5.53181E-02,
     &       -3.40267E+01, 1.77352E+00, 5.83784E+00,-2.78806E-01,
     &        5.37019E-01, 5.97907E-01,-2.06253E+00,-1.88425E+01,
     &        5.52838E+00,-2.26824E+00, 2.02123E+00,-1.38536E+00,
     &        5.58939E-02,-2.71219E-01,-7.54871E+00, 1.07884E-01,
     &       -4.43096E+00,-1.88325E-01,-1.03097E-01,-1.04328E-01,
     &       -1.69987E+01,-5.08520E+00, 4.76611E+00,-1.27428E+00,
     &        8.05233E-01,-3.67458E-02, 2.88803E+01,-1.34976E+00,
     &       -8.58966E-01,-3.37431E-01, 4.51486E-01,-6.18559E+00,
     &       -2.36339E-01,-8.59574E-01, 5.88599E-01, 2.56310E-02,
     &        1.17924E+01, 1.09272E+00,-8.47421E-01,-1.87615E-01,
     &        1.15823E+01,-1.53139E+00, 2.79530E-01,-2.08045E-02,
     &       -5.62334E+00,-6.12214E-01, 1.45218E+00, 4.89297E+00,
     &        1.54671E+00,-7.30855E-01,-6.65479E+00, 8.58245E-01,
     &        4.80930E+00, 1.13300E+00,-1.03658E+01, 4.79901E-01/
      DO 10 I=1,81
       DERRTI(1,3,I)=DERRTI(1,2,I)*MIRREQ(I)
       DERRTI(2,3,I)=DERRTI(2,2,I)*MIRREQ(I)
       DERRTI(3,3,I)=DERRTI(3,2,I)*MIRREQ(I)
10     DERRTI(4,3,I)=DERRTI(4,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,4
         DOUT(I,J,K)=DERRTI(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C////////////////////////////////////////////////////////////////////////////////////
      RETURN
      END
C
C
      SUBROUTINE KOFDTI(MIRREQ,DOUT)
C////////////////////////////////coefficients - main Ti model part//////////////////////
      REAL DOUT(4,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL D(4,3,81)
C     350km equinox
      DATA (D(1,1,J),J=1,81)/ 9.81761E+02,
     &        7.97419E-15, 1.13476E+02, 4.07857E-13, 7.81506E+01,
     &        1.30916E-13, 1.91987E+02, 4.66639E-13, 7.44066E+01,
     &       -1.03502E+02,-4.08875E-15,-6.88560E+00,-2.93847E-14,
     &        9.99843E+00,-2.43009E-14,-4.94442E+00,-1.62714E-14,
     &       -6.21514E+01, 3.10310E-14,-7.81756E+00,-3.13911E-14,
     &       -1.03370E+00, 6.74626E-14,-1.22337E+01,-6.76810E-16,
     &        2.39852E+01, 1.23323E-14, 1.49080E+01,-4.66662E-15,
     &       -1.65182E+00, 5.65292E-15,-9.22400E-01,-7.35939E+00,
     &       -5.53449E-15,-1.55807E+01,-2.55621E-16, 7.50805E-01,
     &       -4.17561E-15, 2.11889E+00, 1.82191E+01,-2.72855E-15,
     &       -3.54673E+00, 2.37553E-15, 3.26134E-01, 1.01516E-15,
     &        9.87195E+00, 7.35322E-16, 5.76495E+00,-1.22157E-15,
     &       -1.50365E-02, 9.78815E-16, 1.61441E+01, 2.51615E-14,
     &        8.90351E-01,-3.76317E-15, 3.29586E-01,-4.84327E-01,
     &       -3.35573E-14, 1.62410E+00, 9.79376E-15, 2.79216E-01,
     &       -7.53883E+00,-1.96593E-14, 4.51948E-01, 4.42859E-15,
     &        1.49516E+00, 8.48137E-15,-1.76567E-01,-3.84245E-16,
     &       -9.16521E+00, 5.54756E-15, 1.38759E-01, 3.09698E+00,
     &       -9.16559E-17,-1.23273E+00, 3.50840E+00,-7.51910E-15,
     &        1.36987E+00,-3.31687E-15, 4.81329E+00,-2.62188E+00/
C     350km June solstice
      DATA (D(1,2,J),J=1,81)/ 9.43908E+02,
     &        5.50021E+01, 7.99470E+01, 1.87200E+01, 7.33776E+01,
     &       -4.68206E+01, 1.33562E+02, 2.47415E+01, 6.01539E+01,
     &       -1.00350E+02, 3.84714E+00, 8.41333E-01, 3.60125E+00,
     &        1.31395E+01, 5.70721E-01,-1.81780E+00, 4.23663E+00,
     &       -5.90566E+01, 4.65189E+00,-1.53227E+01,-2.65126E-01,
     &        5.08077E+00, 4.09372E+00,-8.42185E+00,-3.85433E-01,
     &       -1.49913E+01,-1.25633E+01,-6.03172E+00,-2.30260E+00,
     &        1.08699E-01,-1.18038E-01, 1.47189E+00, 1.68644E+01,
     &       -1.05283E+01, 2.69570E-01, 5.31605E-01, 9.65093E-01,
     &        1.04063E-01,-3.74457E-01, 1.90312E+01,-1.34352E-01,
     &        2.04593E-01,-4.64216E-01,-2.66180E-01,-2.62994E-01,
     &        2.73594E-01, 4.14118E+00, 6.22508E-01, 7.48844E-01,
     &       -2.51454E-01,-2.29252E-01, 1.49442E+01, 4.23388E+00,
     &        1.72255E+00, 6.89067E-01, 2.76493E-01, 1.73189E+00,
     &        6.22347E-01, 3.71546E+00, 4.06196E-01, 4.41227E-01,
     &       -5.51049E+00, 1.38542E+00, 1.74131E+00, 6.29714E-01,
     &        1.27521E+00,-1.43831E+00,-3.88996E-01,-1.02769E+00,
     &       -8.29630E+00,-5.66566E-01,-8.95795E-01,-4.10452E-01,
     &       -9.81187E-01,-4.73699E-01,-2.36975E-01, 1.18002E-01,
     &        5.24798E+00,-1.77806E-01, 4.52515E+00, 1.93648E-01/
C     430km equinox
      DATA (D(2,1,J),J=1,81)/ 1.03574E+03,
     &       -1.74756E-13, 1.26076E+02,-1.89181E-13, 8.94280E+01,
     &       -5.43293E-14, 1.29058E+02, 4.07406E-14, 2.85148E+01,
     &       -1.26142E+02, 1.95814E-14,-1.71484E+00,-8.29992E-15,
     &        8.71213E+00, 2.28825E-14,-1.19821E+01, 3.09240E-15,
     &       -4.51192E+01,-3.85166E-14,-8.88898E+00,-2.14950E-14,
     &        5.88395E+00,-1.77572E-14,-9.34148E+00,-2.41055E-14,
     &       -1.42801E+01,-1.28964E-14, 5.61390E+00,-2.49949E-15,
     &       -1.97778E+00,-3.98463E-15,-6.91478E-01,-8.13474E+00,
     &       -1.19539E-15,-5.28412E+00, 1.32225E-14, 5.09888E-02,
     &       -1.18257E-15, 1.62149E+00, 3.12445E+01, 9.69855E-15,
     &       -5.26467E+00, 5.52579E-15,-8.23463E-02,-7.03099E-16,
     &        8.24781E+00,-1.41607E-14, 8.57355E+00,-1.96200E-16,
     &       -5.27012E-01, 2.01372E-15, 1.64165E+01, 1.22833E-14,
     &       -5.95801E-01,-2.55243E-15, 1.05978E-01, 6.61870E+00,
     &       -3.31196E-15, 6.79398E-01,-1.64487E-15, 3.69149E-01,
     &       -9.16958E+00,-2.05566E-15, 1.71273E+00, 1.70316E-16,
     &        2.22253E+00,-1.01745E-14,-1.69364E+00,-1.25809E-15,
     &       -7.62282E+00,-3.92106E-16, 7.09949E-02,-7.48958E-02,
     &        2.34650E-15,-5.66029E-01, 8.34157E-01,-1.51447E-15,
     &        1.26251E+00,-2.90532E-15, 4.05748E+00,-1.89608E+00/
C     430km June solstice
      DATA (D(2,2,J),J=1,81)/ 1.02701E+03,
     &        9.95948E+01, 1.01276E+02, 5.89113E+01, 8.91726E+01,
     &        1.84317E+01, 8.45713E+01, 6.87261E+01, 1.57583E+01,
     &       -1.37805E+02,-1.93406E+01, 4.40892E+00, 2.42192E+00,
     &        8.87928E+00,-3.39577E+00,-1.31874E+01,-3.26911E+00,
     &       -3.83565E+01, 1.36168E+01,-1.59817E+01, 6.83384E+00,
     &        7.16431E+00, 5.66522E+00,-5.06262E+00, 5.83292E+00,
     &       -4.57693E+01,-1.90748E+01,-1.05800E+01,-6.76179E+00,
     &       -6.72162E-01, 5.25131E-01, 6.74868E-01, 5.01768E+00,
     &       -9.04929E-01, 4.44997E+00, 1.26510E+00, 3.06978E-01,
     &       -5.74109E-01,-1.02582E+00, 3.79330E+01, 1.63070E+00,
     &        1.12934E+00,-3.28182E-01,-1.56368E-01,-4.90723E-01,
     &       -1.49566E+00,-3.03120E+00, 1.24106E+00, 8.26272E-03,
     &        4.42705E-02, 6.02812E-02, 2.39005E+01, 4.75100E+00,
     &        2.41390E+00, 5.55264E-01, 2.12188E-01, 5.19327E+00,
     &        1.56127E+00, 4.11206E-01, 1.11209E-01, 1.72813E-01,
     &       -3.16942E+00,-3.32241E+00, 1.85854E+00,-9.01181E-01,
     &        2.80913E+00, 6.29765E-01, 1.86000E+00,-7.83491E-01,
     &       -8.24703E+00,-1.58784E+00,-1.52738E+00, 2.27829E+00,
     &        1.42091E+00,-8.72040E-01,-2.89236E+00,-5.76617E-01,
     &       -7.44205E-01,-1.70994E+00, 2.24922E+00,-2.27757E+00/
C     600km equinox
      DATA (D(3,1,J),J=1,81)/ 1.31109E+03,
     &       -5.91797E-14, 2.42790E+02,-5.14329E-13,-2.39351E+01,
     &        1.50020E-13, 1.19496E+02, 3.41748E-13, 4.56393E+01,
     &       -2.76696E+02, 7.09836E-15,-1.87329E+01,-3.91968E-14,
     &        2.75457E+01,-3.16811E-14,-8.17342E+00, 3.67415E-14,
     &       -6.11859E+01,-1.09977E-14,-3.92862E+01,-6.45922E-14,
     &        1.31473E+01,-5.16808E-15,-6.07893E+00, 3.21964E-15,
     &       -9.25350E+01,-2.16227E-15, 8.29417E-01, 1.85293E-14,
     &        4.47645E+00,-2.71789E-16, 2.98194E+00,-3.80804E+01,
     &        1.87828E-14,-3.77386E+00, 1.64951E-14,-2.26233E+00,
     &        6.65133E-15,-8.08163E-01, 9.33075E+01, 2.62351E-15,
     &        3.85430E+00, 1.85887E-15, 8.09582E-01, 1.54818E-15,
     &       -6.96470E+00,-1.56136E-14, 3.22783E+00, 1.79053E-14,
     &        5.84535E-02, 6.91872E-15, 4.22120E+01, 3.12535E-14,
     &        2.41505E+00,-3.95114E-15, 1.52706E-01, 3.49001E+01,
     &       -2.78558E-15, 2.07366E+00,-4.05147E-16, 2.89957E-01,
     &       -2.43855E+01, 3.73421E-15, 2.59689E-01, 9.62217E-16,
     &        4.27299E+00, 9.87282E-15, 2.15147E-01, 1.33681E-15,
     &       -2.24610E+01,-6.10423E-15,-5.60468E-01,-1.41262E+01,
     &        2.23328E-15,-7.58139E-01, 4.79981E+00,-7.28441E-15,
     &       -8.33080E+00,-1.61899E-14, 1.56304E+01, 5.85727E+00/
C     600km June solstice
      DATA (D(3,2,J),J=1,81)/ 1.31795E+03,
     &        1.11235E+02, 2.03846E+02, 8.58519E+01,-8.50059E+01,
     &        4.26357E+01, 5.23599E+01, 4.97458E+01, 4.25605E+01,
     &       -3.01385E+02,-2.86853E+01,-9.24305E+00, 3.23252E-01,
     &        3.74351E+01,-1.16031E+00,-4.22196E+00, 1.24921E+00,
     &       -5.77996E+01, 2.72980E+01,-3.30768E+01, 9.00092E+00,
     &        1.12812E+01, 3.07486E+00,-5.82063E+00, 4.84304E+00,
     &       -1.12037E+02,-1.85111E+01,-7.72391E+00,-7.28987E+00,
     &        2.52179E+00,-2.51662E+00, 1.88964E+00,-3.27842E+01,
     &       -1.15249E+00, 1.56659E+00,-1.74244E+00,-6.43545E-01,
     &       -1.13751E+00, 7.18005E-01, 7.71922E+01, 1.89363E+00,
     &       -1.40171E+00,-1.02379E+00, 6.73702E-02,-2.10862E-01,
     &       -1.42559E+01,-7.07909E+00,-7.28962E-02,-4.98441E-01,
     &       -5.73631E-01, 2.60732E-01, 4.87782E+01, 4.66123E+00,
     &        2.38297E+00, 5.25906E-01, 3.68713E-01, 2.44034E+01,
     &        1.89981E+00, 2.16818E-01, 4.08231E-01, 1.81732E-01,
     &       -1.16424E+01, 9.90031E-01, 2.07130E+00, 1.79563E-01,
     &        1.08512E+01, 4.27975E+00, 8.38577E-01, 5.31380E-01,
     &       -2.19889E+01,-1.21474E+00, 1.61834E-01,-5.40184E+00,
     &        2.13247E-01, 7.95001E-01,-9.20151E-01,-9.86156E-01,
     &       -7.93509E+00,-2.02230E+00, 1.07685E+01, 1.78988E+00/
C     850km equinox
      DATA (D(4,1,J),J=1,81)/ 1.73341E+03,
     &        1.96796E-13, 3.19564E+02, 3.50119E-13,-1.61756E+02,
     &       -2.11050E-13, 2.54713E+01,-2.41509E-13, 9.81067E+00,
     &       -5.62515E+02,-7.17877E-14, 5.46998E+01, 1.67204E-13,
     &        3.25763E+01,-6.81841E-14,-6.25843E-01,-3.03482E-16,
     &       -6.22649E+01, 1.38357E-13,-5.90038E+01, 3.95851E-14,
     &        2.86649E+01, 3.79779E-14,-1.95719E+00,-3.53035E-14,
     &       -2.10458E+02, 7.12474E-14, 1.25916E+01,-2.19792E-15,
     &        4.60666E+00,-8.99151E-15, 2.28465E+00,-1.35049E+02,
     &        1.23567E-13, 8.31888E+00, 1.28551E-14, 2.18165E+00,
     &        1.49476E-14, 2.47244E+00, 2.05766E+02, 3.76790E-14,
     &        3.94507E+00,-1.59625E-14, 4.74327E-01, 3.18425E-15,
     &       -3.01411E+01, 5.19211E-14, 6.29635E+00, 1.39974E-14,
     &        1.17730E+00, 4.22688E-15, 1.02212E+02, 4.48703E-14,
     &        2.18826E+00,-4.94269E-15, 4.06241E-02, 4.12324E+01,
     &        1.63728E-15, 8.15668E-01, 2.02569E-15, 7.87590E-01,
     &       -3.31502E+01,-9.01455E-14, 5.88590E+00, 1.70181E-15,
     &        3.06951E+01,-1.88613E-14,-3.48817E+00,-3.60826E-15,
     &       -8.73116E+01, 7.88902E-16, 1.30073E+00,-1.72911E+01,
     &       -2.81622E-14, 1.80264E+00, 4.85751E+00, 1.52699E-14,
     &       -3.52258E+01, 2.59276E-14, 2.17940E+01, 2.09542E+01/
C     850km June solstice
      DATA (D(4,2,J),J=1,81)/ 1.75881E+03,
     &        1.94704E+02, 2.94653E+02, 2.25792E+02,-2.71002E+02,
     &       -1.01286E+02, 2.01823E+00, 3.60889E+01, 1.90274E+01,
     &       -5.99527E+02,-1.53100E+01, 9.01184E+01, 1.31579E+00,
     &        2.27115E+01, 9.47097E+00,-5.30317E+00,-2.48592E+00,
     &       -8.14578E+01, 2.20810E+01,-4.89610E+01, 6.32365E+00,
     &        2.86590E+01, 4.25888E+00,-8.85967E-01,-9.11532E-01,
     &       -1.85383E+02, 4.75480E+00, 6.45370E+00, 4.85403E+00,
     &        2.04447E+00,-3.68275E-01, 2.25559E-01,-9.58645E+01,
     &       -1.16874E+01, 5.35691E+00,-2.77668E+00, 2.41949E+00,
     &        1.34005E+00, 1.21003E+00, 1.75435E+02, 1.13436E+01,
     &       -5.55263E+00, 1.75050E+00,-5.72105E-02,-1.11533E-01,
     &       -9.08927E+00,-4.77602E+00, 4.01200E-01,-1.28335E-01,
     &       -5.28475E-01, 1.49162E+00, 9.13763E+01,-6.22126E+00,
     &       -5.54449E-01, 1.39150E+00, 5.52760E-01, 3.17194E+01,
     &       -1.96951E+00,-2.54247E+00,-4.32533E-01, 7.26244E-01,
     &       -5.30503E+00, 3.32116E+00, 6.54697E+00,-8.13029E-02,
     &        4.02711E+01,-2.67958E+00,-1.00586E+00, 1.35043E-01,
     &       -7.39860E+01,-6.98506E+00, 6.74865E-01, 4.26115E+00,
     &       -9.22997E-01, 2.69695E+00,-5.98076E-01, 1.77225E+00,
     &       -1.60634E+01, 1.38483E-02, 1.76574E+01, 2.65601E-01/
      DO 10 I=1,81
       D(1,3,I)=D(1,2,I)*MIRREQ(I)
       D(2,3,I)=D(2,2,I)*MIRREQ(I)
       D(3,3,I)=D(3,2,I)*MIRREQ(I)
10     D(4,3,I)=D(4,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,4
         DOUT(I,J,K)=D(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C/////////////////////////////////////////////////////////////////
      RETURN
      END
C
C
      SUBROUTINE KOL107(MIRREQ,ASOLO,BSOLO)
C/////////////////coefficients - PF107 Ti model linear part////////
      REAL ASOLO(4,3,81),BSOLO(4,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL ASOL(4,3,81),BSOL(4,3,81)
C     350km equinox
      DATA (ASOL(1,1,J),J=1,81)/ 2.95426E+00,
     &        1.61215E-07, 2.71909E-01, 2.45907E-07, 1.46824E-01,
     &        5.35007E-08,-1.63288E-02,-2.71313E-07,-2.86051E-01,
     &       -4.51322E-01, 5.00545E-09,-6.81130E-02, 2.31829E-08,
     &        4.43642E-02, 5.52857E-08, 7.76069E-02, 8.02499E-09,
     &       -5.30489E-01,-8.95492E-08, 6.21797E-02,-1.12384E-07,
     &        1.50986E-02,-1.06623E-07, 9.22043E-02,-6.67172E-08,
     &        3.06754E-02,-6.57327E-08,-3.64822E-02,-5.41765E-08,
     &       -2.23296E-03,-7.17383E-08,-6.87693E-03, 1.76362E-02,
     &       -3.12724E-08,-4.02157E-02,-5.93627E-08,-6.32139E-05,
     &       -7.61959E-08,-1.61178E-02,-5.49683E-02,-2.85595E-09,
     &        1.87854E-02,-3.12167E-08,-5.71361E-04,-3.01823E-08,
     &        1.16281E-01,-3.14365E-09,-2.00236E-02, 6.47996E-09,
     &        7.75635E-03, 2.17668E-08,-2.16979E-02, 4.53243E-09,
     &       -4.11498E-03,-2.42114E-09,-3.14068E-03,-1.57976E-01,
     &       -7.02148E-09, 4.97507E-03, 1.69597E-08,-3.54609E-03,
     &        2.77911E-02, 1.57282E-08, 8.10048E-03, 1.26517E-08,
     &       -6.18454E-02,-2.65892E-08,-8.54567E-03, 2.05005E-09,
     &        4.92551E-02,-5.97908E-09, 5.45428E-03, 5.80510E-02,
     &       -1.73119E-08,-1.64627E-03, 2.48199E-02,-1.00780E-09,
     &       -5.52832E-02,-2.68468E-09,-2.79260E-02,-4.24860E-02/
C     350km June solstice
      DATA (ASOL(1,2,J),J=1,81)/ 3.02919E+00,
     &        3.95694E-01,-1.20067E-02, 2.14581E-01, 1.76327E-01,
     &       -3.89067E-01,-4.44422E-01,-1.94745E-01, 1.05689E-01,
     &       -5.33857E-01, 1.83389E-01,-5.27609E-02,-2.79651E-02,
     &       -5.67551E-02, 6.59445E-03, 4.36277E-02, 1.74271E-02,
     &       -5.60126E-01, 1.09152E-01, 1.09970E-01, 3.72333E-03,
     &       -4.50605E-02,-3.69400E-02, 2.29061E-02,-1.02017E-02,
     &        1.38155E-01,-5.09829E-02, 2.12328E-02, 2.71946E-03,
     &       -5.20918E-03,-2.80176E-03,-1.49253E-03, 2.33817E-01,
     &        1.29610E-02,-4.62279E-04, 2.71511E-03, 1.09310E-02,
     &        8.80982E-04,-1.48136E-03,-4.13500E-02,-6.71998E-03,
     &        1.21087E-02, 3.38538E-03,-3.10211E-03,-2.76286E-03,
     &        8.08299E-02,-1.22004E-03, 1.23005E-03,-3.38848E-03,
     &        2.02941E-03,-6.17384E-04, 2.71386E-02, 1.89582E-02,
     &        1.69752E-03, 2.31563E-03, 8.88944E-04,-2.17224E-02,
     &       -6.62740E-03, 8.99642E-03,-2.46268E-03, 1.48276E-04,
     &        5.59919E-02, 1.60748E-02,-4.78871E-03, 7.21870E-04,
     &       -2.91070E-02,-1.06530E-02,-8.40423E-03,-6.10882E-04,
     &        3.51891E-02, 6.54693E-03, 3.31664E-03,-2.49700E-02,
     &       -2.55167E-04, 1.27980E-03,-1.69763E-03, 3.41191E-03,
     &        2.64444E-02, 1.22349E-02,-6.12353E-03,-2.07861E-02/
C     430km equinox
      DATA (ASOL(2,1,J),J=1,81)/ 2.68529E+00,
     &       -7.42152E-08, 2.58992E-01,-7.15068E-08, 3.23097E-02,
     &       -1.31429E-07, 7.91626E-03,-1.55285E-07,-7.97424E-02,
     &       -2.11421E-01, 2.68298E-08,-4.60604E-02, 2.24020E-08,
     &       -2.11820E-02, 3.35763E-08, 6.98759E-02, 2.74748E-08,
     &       -6.48949E-01, 1.89573E-08, 1.52479E-01, 1.40801E-09,
     &        3.68256E-03,-1.13576E-08, 1.40036E-01, 4.59921E-09,
     &        2.33825E-01,-1.02920E-09,-7.12338E-02, 4.16076E-09,
     &        3.69998E-02, 7.68846E-09,-8.49176E-03, 3.40281E-01,
     &       -6.09344E-09,-5.14623E-02, 3.97453E-09, 2.84553E-02,
     &        9.32969E-09,-1.01191E-02,-1.77545E-01, 2.84876E-09,
     &        1.02454E-02, 2.39854E-09, 1.56364E-03,-1.42160E-09,
     &        4.27228E-02,-1.18105E-08,-3.60973E-02,-4.00609E-09,
     &        7.07935E-04, 1.46539E-09,-1.40488E-01,-1.99505E-09,
     &        1.03252E-02,-1.48560E-09,-5.86784E-03,-9.32108E-02,
     &       -7.30281E-12, 3.05191E-02,-5.88055E-10,-7.31057E-03,
     &        2.81506E-02,-1.55394E-09,-1.86355E-02,-1.19816E-09,
     &        1.78284E-02, 4.81939E-09, 1.68783E-02, 4.48670E-09,
     &       -3.08024E-04, 9.62091E-09, 3.56493E-03, 1.00331E-01,
     &        9.81983E-09,-2.72976E-03,-2.33483E-02, 5.94139E-09,
     &       -7.36794E-02,-5.28020E-09,-5.41871E-02,-1.39516E-01/
C     430km June solstice
      DATA (ASOL(2,2,J),J=1,81)/ 2.73118E+00,
     &        3.76052E-01, 3.65105E-01, 2.44376E-02, 4.86945E-01,
     &       -3.45026E-01,-1.53979E-02,-2.25844E-01, 5.26473E-01,
     &       -4.14349E-02, 2.96158E-01,-9.72901E-02,-4.07362E-02,
     &       -7.21418E-02,-1.58511E-02, 6.82815E-02,-1.49329E-03,
     &       -7.02757E-01, 1.44432E-01, 1.16852E-01, 9.08939E-03,
     &       -1.53902E-02,-2.96481E-03, 3.69360E-02,-2.61447E-02,
     &        4.49743E-01,-3.02578E-03,-8.13673E-03, 2.25289E-02,
     &        8.95660E-03,-4.40666E-03,-2.17965E-03, 4.14814E-01,
     &        2.60438E-03, 9.91674E-03, 4.14732E-03, 7.69435E-03,
     &        2.21957E-03, 1.29491E-03,-1.87666E-01,-2.72984E-02,
     &        3.25781E-03, 8.65976E-04, 9.06385E-04, 1.92764E-03,
     &        9.00702E-02, 4.65060E-03,-1.20067E-02, 4.85964E-03,
     &        3.80153E-03,-3.23475E-03,-3.01072E-02, 8.13356E-03,
     &       -8.18011E-03,-2.46712E-03,-1.80344E-03,-1.66236E-01,
     &       -2.27593E-02, 1.56440E-02,-4.02992E-03,-3.81193E-03,
     &        1.10066E-01, 1.93352E-02,-4.00097E-03,-6.70955E-05,
     &       -7.22305E-02,-1.93157E-02,-7.11489E-04, 5.13121E-04,
     &        6.56313E-02,-1.68669E-03,-4.42180E-03,-1.53067E-02,
     &        1.23256E-03, 2.81689E-03,-6.21096E-02,-6.05146E-03,
     &       -2.75332E-02, 9.96719E-03,-1.14865E-02,-2.02032E-02/
C     600km equinox
      DATA (ASOL(3,1,J),J=1,81)/ 1.95702E+00,
     &       -1.02501E-07, 5.38182E-01, 7.55408E-08, 1.27185E-01,
     &       -1.80817E-07, 1.97218E-01,-6.93784E-08,-1.37294E-01,
     &        1.18201E+00, 6.64070E-08, 2.77513E-01, 1.58345E-08,
     &        5.60200E-04,-2.23569E-08, 7.65285E-03,-1.86092E-08,
     &       -3.35828E-01, 5.25095E-08, 5.79621E-01,-5.76050E-09,
     &        6.44725E-02,-2.44418E-09, 1.28192E-01, 3.63951E-10,
     &        4.29616E-01, 1.97166E-08,-3.30422E-02, 2.05550E-08,
     &        2.74551E-02, 1.74076E-09,-2.21344E-02, 4.19366E-01,
     &       -1.97026E-08,-1.23417E-02, 1.40558E-08, 3.58914E-02,
     &        4.82284E-09, 5.24059E-03,-3.75649E-01,-1.24193E-08,
     &        2.48533E-02, 3.00102E-09,-8.51579E-03, 4.23878E-09,
     &       -8.42923E-02, 9.65831E-09,-9.55873E-02, 6.10630E-09,
     &       -6.63090E-04, 1.64307E-09,-1.65151E-01, 5.40751E-09,
     &       -3.75004E-03,-3.38313E-10,-3.65371E-03,-2.39976E-01,
     &        1.59377E-08, 6.57822E-03, 2.95606E-09,-7.17318E-03,
     &        1.90666E-01, 2.39290E-09,-9.53726E-04, 1.18083E-09,
     &        2.78373E-02, 7.81642E-09, 1.59017E-02, 2.79357E-09,
     &        6.12867E-02,-2.32992E-08,-2.49895E-03, 9.20793E-02,
     &        5.73194E-09, 4.58376E-03,-3.71196E-02, 1.09174E-08,
     &       -2.39062E-02, 1.46431E-08,-1.83631E-02,-2.04158E-02/
C     600km June solstice
      DATA (ASOL(3,2,J),J=1,81)/ 1.97284E+00,
     &       -4.14747E-01, 7.56350E-01,-3.52831E-01,-3.38405E-02,
     &       -3.85220E-01,-2.33682E-01,-1.66869E-01,-4.45064E-02,
     &        1.32126E+00, 2.95258E-01, 5.18244E-02,-3.00398E-02,
     &       -6.41396E-02, 1.37245E-02,-6.54526E-02, 1.89726E-02,
     &       -2.79584E-01, 1.59239E-01, 3.13927E-01,-4.24940E-02,
     &        7.06087E-02,-1.87790E-02, 6.75816E-02, 1.48606E-03,
     &        3.66540E-01, 6.89850E-02,-4.30421E-02, 4.21573E-02,
     &        1.77024E-02, 7.44284E-03,-1.63167E-02, 3.10229E-01,
     &        1.16057E-01, 1.99685E-02, 2.65583E-03, 3.82608E-02,
     &        1.17885E-02, 2.02675E-02,-2.79763E-01,-4.55083E-02,
     &        2.69768E-02, 1.17258E-03,-6.55486E-03,-1.46834E-03,
     &       -1.42871E-01,-4.23226E-02,-1.30686E-02,-9.27815E-04,
     &       -3.03623E-03,-1.74070E-03,-1.07394E-01,-4.42802E-03,
     &        8.27354E-04, 6.83729E-04,-4.08685E-03,-6.39926E-02,
     &       -4.94253E-02, 3.32950E-03,-7.88637E-03,-7.04476E-03,
     &        5.58555E-02, 1.59348E-02,-6.02304E-03,-4.18068E-04,
     &        2.48764E-02,-1.28665E-02,-4.78380E-03,-1.13261E-03,
     &        6.16822E-02, 1.60146E-02, 3.41336E-05, 3.97605E-02,
     &        1.96556E-02,-2.20961E-04,-5.99914E-03,-3.64916E-03,
     &        2.82199E-02, 9.61035E-03,-3.63303E-03,-3.38850E-03/
C     850km equinox
      DATA (ASOL(4,1,J),J=1,81)/ 1.30090E+00,
     &       -2.60947E-08, 2.72159E-01, 1.22276E-07, 7.19102E-01,
     &       -2.62009E-08,-2.78511E-01, 4.00705E-08,-6.21269E-01,
     &        1.23983E+00,-2.50691E-08,-1.87101E-01, 2.76503E-09,
     &        3.19889E-02,-2.71432E-08,-3.49447E-02, 1.66456E-08,
     &        9.98477E-01, 3.73044E-08, 2.20116E-01,-1.69190E-08,
     &        7.34253E-02,-2.99771E-08, 2.66545E-02, 6.30994E-09,
     &        1.48265E-01, 8.83495E-09,-4.65801E-05, 9.97979E-09,
     &        1.69882E-02,-1.05862E-08,-1.26170E-02,-1.31256E+00,
     &        7.84120E-08,-2.90659E-02, 1.83960E-08, 3.17951E-02,
     &       -2.56589E-08,-1.18834E-02,-7.74880E-01,-1.23405E-09,
     &       -1.00936E-01,-2.90778E-09, 2.22247E-03, 3.80588E-09,
     &       -2.52493E-01, 7.01428E-08, 7.78353E-02, 2.91894E-08,
     &       -1.83349E-03,-3.80611E-10, 9.15226E-01,-2.66610E-08,
     &        5.76747E-02, 8.38135E-09,-6.89289E-03, 2.91549E-01,
     &        2.47836E-08, 2.20590E-03, 1.89560E-08, 6.06581E-03,
     &       -5.38394E-01,-1.02273E-08,-5.16834E-02,-9.96898E-09,
     &        1.48202E-01, 4.15081E-08, 2.32060E-02, 1.98765E-08,
     &       -8.52753E-02, 1.39372E-08,-7.45351E-03, 9.74801E-02,
     &        2.57157E-08,-2.14010E-02,-1.71002E-01, 2.05670E-08,
     &       -2.96780E-01, 2.16212E-08, 1.74655E-01,-4.02192E-01/
C     850km June solstice
      DATA (ASOL(4,2,J),J=1,81)/ 1.27676E+00,
     &        5.34497E-02,-5.47868E-01, 9.46309E-02, 6.66358E-01,
     &       -7.22899E-01,-1.06826E-01, 9.46439E-01,-9.49616E-01,
     &        8.86315E-01, 7.85565E-01,-3.64334E-01,-9.05396E-03,
     &        3.72165E-02,-1.52439E-01,-8.42816E-03, 9.53981E-02,
     &        6.15438E-01, 5.60848E-03,-1.06191E-04, 1.85655E-01,
     &       -3.32402E-03,-1.03906E-01, 3.10477E-02, 2.00307E-02,
     &        2.18979E-01,-1.57137E-01, 9.80570E-02,-5.49082E-02,
     &        3.77359E-02,-2.92918E-02, 8.06640E-03,-9.12721E-01,
     &        2.33938E-01, 7.90069E-02,-2.70907E-02,-6.11554E-03,
     &        6.99148E-03,-5.46603E-03,-4.72310E-01,-5.58751E-02,
     &       -4.91560E-02, 2.94497E-03,-1.04585E-02,-2.88126E-03,
     &        8.05029E-02,-2.91107E-01, 1.03080E-01,-3.75242E-02,
     &        6.26872E-03,-1.25509E-02, 9.56306E-01,-6.82550E-02,
     &       -4.99519E-03, 1.66695E-03,-2.62844E-03, 1.56549E-01,
     &       -1.55700E-02, 1.09202E-02, 3.44836E-03,-1.89994E-03,
     &       -3.01403E-01,-2.82326E-02,-2.70053E-02,-1.03629E-03,
     &        2.66411E-01,-4.63852E-02, 2.18435E-03, 1.47969E-03,
     &       -1.35156E-01,-1.94718E-02,-8.88299E-03, 8.17290E-02,
     &       -1.53860E-02, 3.09918E-04, 2.24439E-02, 6.06189E-03,
     &       -2.36094E-01,-3.29499E-02, 4.41210E-01,-3.14207E-01/
C     350km equinox
      DATA (BSOL(1,1,J),J=1,81)/-3.45633E+02,
     &       -9.55223E-06,-2.11610E+01,-4.20717E-05,-8.41362E+00,
     &       -2.44314E-05,-9.57347E+01, 1.37658E-05, 1.05201E+01,
     &        4.29785E+01,-6.00902E-06, 1.23278E+01,-7.44836E-06,
     &       -1.00847E+01,-7.82746E-06,-4.81413E+00,-2.96268E-07,
     &        3.77605E+01, 1.54206E-05,-1.47264E+00, 1.76678E-05,
     &       -4.28568E+00, 1.85402E-05, 7.24492E-01, 9.66399E-06,
     &       -3.59995E+01, 1.02381E-05,-1.28254E+01, 7.88312E-06,
     &        4.76219E-01, 9.27060E-06, 7.56087E-01, 2.43906E+01,
     &        2.66770E-07, 2.16218E+01, 6.71105E-06, 2.71634E-01,
     &        8.48587E-06, 1.22128E+00, 9.81368E+00, 8.93229E-08,
     &        1.09672E+00, 4.08289E-06,-2.90218E-01, 3.89710E-06,
     &       -1.20425E+01, 9.68780E-07,-7.03449E-01,-9.46664E-07,
     &       -1.38195E+00,-2.48268E-06,-6.46636E-02,-1.03163E-06,
     &       -1.31767E+00, 1.29547E-07,-4.93972E-02, 1.80257E+01,
     &        1.88836E-06,-2.04074E+00,-2.10904E-06, 1.54454E-01,
     &       -6.23120E+00,-2.34976E-06,-9.51482E-01,-1.57319E-06,
     &        9.33515E+00, 3.11165E-06, 8.04428E-01,-1.85979E-07,
     &       -5.04018E+00, 1.27057E-06,-5.72849E-01,-8.74525E+00,
     &        2.43295E-06, 1.62544E+00, 9.10879E-01,-1.02841E-07,
     &        5.35697E+00, 4.55914E-07, 2.51423E+00, 7.36137E+00/
C     350km June solstice
      DATA (BSOL(1,2,J),J=1,81)/-3.35757E+02,
     &       -3.29344E+01, 2.28463E+01,-4.00538E+01,-3.89875E+01,
     &        5.30922E+01, 3.29777E+00, 2.23758E+01,-2.18683E+01,
     &        4.09587E+01,-2.79762E+01, 2.65139E+00, 6.08942E+00,
     &        2.26283E+00,-1.38741E+00,-3.52435E+00,-2.92395E+00,
     &        4.98449E+01,-7.22570E+00,-3.47082E+00, 2.47833E+00,
     &       -2.48523E+00, 3.78669E+00, 4.23513E+00, 2.69055E+00,
     &       -1.38881E+01, 8.20756E+00, 4.41792E-01,-4.46202E-01,
     &        1.18501E+00,-4.07797E-02, 1.59923E-02,-3.61815E+01,
     &        1.83268E+00,-1.34016E-01,-1.16434E+00,-2.33847E+00,
     &       -1.88958E-02, 8.40405E-01, 2.96445E+00, 1.68216E+00,
     &       -2.43964E+00,-2.51298E-01, 1.81797E-01, 3.34288E-01,
     &       -8.71954E+00,-4.80214E+00, 7.84769E-01, 2.30162E-01,
     &       -1.94892E-01, 1.64707E-01,-5.81102E+00,-3.65014E+00,
     &       -1.51394E+00,-7.41541E-01,-2.82525E-01,-2.81672E+00,
     &        2.84337E+00,-4.00270E+00, 5.35021E-01,-6.27398E-01,
     &       -6.38354E+00,-2.48172E+00,-5.26036E-01,-2.60703E-01,
     &        1.82717E+00, 4.31143E+00, 1.62588E+00, 7.17904E-01,
     &       -4.39501E+00,-1.22970E+00, 7.31036E-01, 3.27059E+00,
     &       -4.01870E-01, 2.96311E-01, 2.86795E+00,-8.89531E-01,
     &       -4.99127E+00,-1.73901E+00,-3.03044E-01, 1.99015E+00/
C     430km equinox
      DATA (BSOL(2,1,J),J=1,81)/-3.13978E+02,
     &        1.09629E-05,-2.27721E+01, 3.66857E-07,-4.98080E+00,
     &        1.56328E-05,-5.71423E+01, 2.43577E-05,-2.28045E+01,
     &       -5.67003E+00,-8.31329E-06, 8.03616E-01,-5.98894E-06,
     &        1.71113E+00,-2.96983E-06,-9.97541E-01,-3.57567E-06,
     &        5.64427E+01,-3.39257E-06,-2.02592E+01,-9.90527E-07,
     &       -2.06044E+00, 2.81427E-07,-9.70784E+00,-1.93417E-06,
     &       -4.06525E+01, 2.61401E-06, 2.60490E+00,-7.90248E-08,
     &       -4.25918E+00,-1.07531E-06, 1.14187E-01,-2.96911E+01,
     &       -7.12846E-07, 1.28697E+01,-6.09087E-07,-2.79591E+00,
     &       -1.35100E-06, 9.54986E-01, 3.10296E+01,-1.82574E-07,
     &        2.52864E+00, 1.18511E-07,-3.51972E-01,-1.22139E-07,
     &       -1.35696E+01, 1.14490E-06, 9.92901E-01, 3.54159E-07,
     &       -1.88105E-01, 1.33068E-07, 2.13324E+01,-1.65553E-06,
     &       -1.40313E+00,-2.26327E-07, 6.93028E-01, 1.98051E+01,
     &        4.24513E-07,-4.16837E+00,-8.26785E-09, 7.06967E-01,
     &       -1.17738E+01, 2.11623E-06, 1.39660E+00, 4.23992E-07,
     &        3.54406E-01, 3.69839E-07,-1.05218E+00,-1.61675E-08,
     &       -3.01981E+00,-8.23503E-07,-1.02660E+00,-1.47599E+01,
     &       -2.19228E-06, 1.56541E+00, 9.98060E+00,-1.51065E-06,
     &        6.70901E+00, 1.23275E-06, 7.57262E+00, 1.73816E+01/
C     430km June solstice
      DATA (BSOL(2,2,J),J=1,81)/-3.10588E+02,
     &       -4.44688E+01,-2.07360E+01,-2.24922E+01,-8.24965E+01,
     &        1.47909E+01,-3.20030E+01, 7.36690E+00,-8.32270E+01,
     &       -2.58981E+01,-2.66775E+01, 5.09878E+00, 2.29024E+00,
     &        3.00228E+00, 4.86505E+00,-2.82173E+00, 3.60989E+00,
     &        6.91243E+01,-1.90232E+01,-1.23792E+01, 2.52461E+00,
     &       -5.77734E-01, 1.39998E-02,-1.06826E+00, 6.61562E-01,
     &       -5.20909E+01, 4.80538E+00, 6.78856E+00,-1.35981E+00,
     &        2.32484E-02, 1.03932E+00, 4.91767E-01,-6.02239E+01,
     &       -3.28004E+00,-3.09518E+00,-1.94888E+00,-2.07044E+00,
     &       -5.14816E-01, 5.04561E-01, 2.22847E+01, 2.26160E+00,
     &       -3.31255E+00,-5.58968E-01,-6.56226E-01,-1.49857E-01,
     &       -1.66171E+01,-4.31737E-01, 4.17142E+00,-4.43579E-01,
     &       -6.93529E-01, 5.26651E-01, 2.55033E+00,-1.89998E+00,
     &       -9.04318E-01, 1.89569E-02,-1.62091E-01, 1.89288E+01,
     &        3.69161E+00,-3.48177E+00, 9.36776E-01, 3.18298E-01,
     &       -1.85804E+01, 1.68545E+00,-3.12595E-01, 8.92455E-01,
     &        9.31687E+00, 4.58499E+00,-1.26535E+00, 1.04298E-01,
     &       -1.05436E+01,-1.21670E-01, 2.11277E+00,-6.02840E+00,
     &       -2.74752E+00, 5.54994E-01, 1.32621E+01, 9.00918E-01,
     &        2.18829E+00,-1.61551E+00, 5.63654E+00, 8.70155E+00/
C     600km equinox
      DATA (BSOL(3,1,J),J=1,81)/-3.04042E+02,
     &        1.98465E-05,-7.19600E+01,-1.89682E-05,-2.93351E+01,
     &        2.29081E-05,-4.19184E+01, 1.48726E-05, 1.88881E+01,
     &       -1.84948E+02,-1.74886E-05,-4.46255E+01,-7.47390E-06,
     &        3.66341E-01, 4.52361E-06,-2.04632E-01, 3.87444E-06,
     &        4.88556E+01,-9.10918E-06,-9.70449E+01, 1.01984E-06,
     &       -6.00595E+00, 1.96241E-06,-1.61142E+01, 4.32185E-07,
     &       -7.07468E+01,-7.95626E-06, 5.59630E+00,-4.62659E-06,
     &       -4.31704E+00,-5.42086E-07, 3.84666E+00,-6.15164E+01,
     &        5.35293E-06, 5.57485E+00,-7.75234E-07,-5.79494E+00,
     &       -7.18575E-07,-6.16842E-01, 6.33712E+01, 2.45738E-06,
     &       -5.28740E+00, 3.39083E-07, 9.51429E-01,-6.36114E-07,
     &        1.29789E+01,-4.40898E-07, 1.71196E+01,-8.34052E-07,
     &       -1.86084E-01,-8.35448E-08, 2.73631E+01,-4.21397E-07,
     &        6.83161E-01,-1.57492E-07, 4.84165E-01, 3.83162E+01,
     &       -7.67691E-07,-2.12547E+00,-3.51268E-07, 1.00353E+00,
     &       -3.26516E+01,-4.26062E-07, 4.43835E-01,-2.10072E-07,
     &       -4.32929E+00,-9.21089E-07,-2.79396E+00,-5.06532E-07,
     &       -1.14891E+01, 3.19028E-06, 2.39159E-01,-1.51115E+01,
     &       -7.88280E-07,-5.97402E-01, 7.10029E+00,-1.03329E-06,
     &        3.32153E+00,-2.62724E-06, 3.83677E+00, 3.51978E+00/
C     600km June solstice
      DATA (BSOL(3,2,J),J=1,81)/-2.94712E+02,
     &        7.92452E+01,-8.24705E+01, 4.93585E+01, 4.34647E+01,
     &        6.15601E+01, 6.93720E+01, 3.26109E+01, 1.10109E+01,
     &       -1.96045E+02,-3.78050E+01,-5.22725E+00, 1.30015E+01,
     &        4.90751E+00, 1.29994E+00, 1.06164E+01,-2.09204E+00,
     &        4.20563E+01,-3.21935E+01,-4.77070E+01, 7.58117E+00,
     &       -6.53776E+00, 4.11836E+00,-6.49640E+00, 1.68859E+00,
     &       -4.99015E+01,-9.94582E+00, 8.01963E+00,-5.50798E+00,
     &       -3.09086E+00,-3.72233E-01, 2.87271E+00,-4.56375E+01,
     &       -2.07732E+01,-2.24314E+00,-3.60651E-01,-5.81868E+00,
     &       -1.12897E+00,-2.77740E+00, 4.47155E+01, 6.75293E+00,
     &       -4.80682E+00,-5.16894E-01, 1.20763E+00,-6.01472E-02,
     &        2.21599E+01, 6.97715E+00, 2.07245E+00,-8.45089E-02,
     &        3.43080E-01, 3.38796E-01, 1.56128E+01, 8.13765E-01,
     &       -1.50242E-01,-2.43138E-01, 4.19560E-01, 9.99120E+00,
     &        8.69336E+00,-1.34354E+00, 1.31416E+00, 9.85913E-01,
     &       -1.08969E+01,-2.94731E+00, 1.19465E+00, 5.63578E-02,
     &       -5.93640E+00, 2.03037E+00, 8.91158E-01, 1.58153E-01,
     &       -1.10299E+01,-2.76902E+00,-8.76106E-02,-8.05170E+00,
     &       -3.75049E+00, 7.52598E-02, 8.56740E-01, 7.31427E-01,
     &       -4.63843E+00,-1.51930E+00, 3.12460E-01, 6.11289E-01/
C     850km equinox
      DATA (BSOL(4,1,J),J=1,81)/-1.84715E+02,
     &       -2.50776E-06, 2.13603E+01,-1.72969E-05,-9.26584E+01,
     &        4.90252E-06, 4.37208E+01, 1.78324E-06, 1.25253E+02,
     &       -1.56528E+02,-8.72243E-07, 2.65956E+01,-7.74395E-07,
     &       -4.21164E+00, 3.82578E-06, 4.56087E+00,-2.97014E-06,
     &       -1.15656E+02,-5.54710E-06,-2.38475E+01, 4.89879E-07,
     &       -1.05431E+01, 4.97593E-06,-2.28473E+00, 2.14958E-07,
     &       -5.18663E+01,-1.85574E-06,-4.20822E+00,-1.46293E-06,
     &       -9.94824E-01, 7.08790E-07, 1.02006E+00, 1.69486E+02,
     &       -1.32017E-05, 4.05495E+00,-3.70450E-06,-5.72276E+00,
     &        3.28551E-06, 1.90674E+00, 1.12744E+02, 4.06802E-07,
     &        1.31035E+01, 8.43607E-07,-2.99332E-01,-1.97334E-07,
     &        5.96780E+01,-1.26221E-05,-9.92996E+00,-5.05528E-06,
     &        2.96313E-01,-3.39773E-07,-1.14363E+02, 6.69269E-06,
     &       -7.82436E+00,-9.75199E-07, 6.11450E-01,-7.12459E+00,
     &       -3.88450E-06, 7.34930E-01,-2.66656E-06,-6.16313E-01,
     &        6.40236E+01, 2.05268E-07, 6.18739E+00, 9.46660E-07,
     &       -2.73369E+01,-4.29750E-06,-4.36829E+00,-2.30826E-06,
     &       -4.49611E+00,-2.66188E-06, 5.87115E-01,-2.71242E+00,
     &       -2.46189E-06, 3.11792E+00, 3.57984E+01,-4.76135E-06,
     &        2.95518E+01,-2.27368E-06,-1.32173E+01, 5.66299E+01/
C     850km June solstice
      DATA (BSOL(4,2,J),J=1,81)/-1.64660E+02,
     &        4.05566E+00, 9.30272E+01, 4.53659E+00,-9.44845E+01,
     &        1.03459E+02, 1.53382E+01,-1.42950E+02, 1.58263E+02,
     &       -9.54759E+01,-1.15549E+02, 4.68950E+01, 8.53757E+00,
     &       -7.21627E+00, 2.31832E+01, 1.17343E+00,-1.50995E+01,
     &       -6.85842E+01, 7.10152E+00, 6.30669E-01,-2.24952E+01,
     &        4.23398E+00, 9.59389E+00,-2.20955E+00,-3.00279E+00,
     &       -5.56489E+01, 1.49641E+01,-1.36432E+01, 4.81190E+00,
     &       -4.03592E+00, 4.60925E+00,-1.00232E+00, 1.18279E+02,
     &       -3.38827E+01,-7.65643E+00, 4.97132E+00,-5.63727E-01,
     &       -1.19327E+00, 1.55600E+00, 6.00661E+01, 1.01811E+00,
     &        5.92334E+00,-5.95182E-01, 1.43748E+00, 4.38340E-01,
     &       -1.32124E+01, 4.02364E+01,-1.41918E+01, 4.44662E+00,
     &       -8.22193E-01, 1.39075E+00,-1.13175E+02, 1.09407E+01,
     &       -1.04079E+00,-3.34664E-01, 1.40184E-01, 1.22236E+00,
     &        7.96455E-01,-1.16848E+00,-5.74663E-01, 1.26349E-01,
     &        2.63431E+01, 1.93132E+00, 3.07233E+00, 5.77831E-01,
     &       -4.78514E+01, 7.11801E+00,-1.32996E+00,-1.60173E-01,
     &        9.16348E+00, 4.08850E+00, 1.21164E+00,-3.64016E-01,
     &       -1.29842E+00, 4.35267E-01,-5.14149E+00,-2.62054E+00,
     &        2.15398E+01, 4.38605E+00,-5.24978E+01, 4.10552E+01/
      DO 10 I=1,81
       ASOL(1,3,I)=ASOL(1,2,I)*MIRREQ(I)
       ASOL(2,3,I)=ASOL(2,2,I)*MIRREQ(I)
       ASOL(3,3,I)=ASOL(3,2,I)*MIRREQ(I)
       ASOL(4,3,I)=ASOL(4,2,I)*MIRREQ(I)
       BSOL(1,3,I)=BSOL(1,2,I)*MIRREQ(I)
       BSOL(2,3,I)=BSOL(2,2,I)*MIRREQ(I)
       BSOL(3,3,I)=BSOL(3,2,I)*MIRREQ(I)
10     BSOL(4,3,I)=BSOL(4,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,4
         ASOLO(I,J,K)=ASOL(I,J,K)
         BSOLO(I,J,K)=BSOL(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C/////////////////////////////////////////////////////////////////
      RETURN
      END
C
C
      SUBROUTINE KOQ107(MIRREQ,ASOL2O,BSOL2O,CSOL2O)
C///////////////coefficients - PF107 Ti model quadratic part///////
      REAL ASOL2(4,3,81),BSOL2(4,3,81),CSOL2(4,3,81)
      INTEGER MIRREQ(81),I,J,K
      REAL ASOL2O(4,3,81),BSOL2O(4,3,81),CSOL2O(4,3,81)
C     350km equinox
      DATA (ASOL2(1,1,J),J=1,81)/-9.22879E-03,
     &        2.41523E-09, 2.05725E-03, 2.93613E-09,-6.53990E-03,
     &        1.69582E-09,-7.31012E-03,-1.34854E-09, 4.87125E-03,
     &       -5.66281E-05, 3.83201E-10,-2.32659E-04, 3.17015E-11,
     &       -8.61886E-04, 2.83938E-10, 1.23104E-04, 1.92297E-10,
     &        3.30080E-03, 4.34858E-10,-5.51466E-04, 3.66913E-10,
     &       -1.26186E-03, 3.14941E-10,-6.23199E-04, 8.01313E-10,
     &       -5.24483E-04,-7.50783E-10,-1.05331E-03,-6.25601E-10,
     &        8.79373E-05,-3.98481E-10, 9.87782E-05,-5.27040E-03,
     &       -5.87290E-10, 1.86159E-04,-6.17838E-10,-4.81443E-04,
     &       -3.92240E-10, 5.42391E-05,-1.58425E-03, 1.83354E-10,
     &       -1.10217E-04,-9.88750E-11, 8.56927E-05,-5.47598E-11,
     &       -3.33204E-04, 4.45459E-10,-3.83043E-04, 1.29864E-10,
     &        4.38209E-05, 1.17180E-10,-6.45114E-05,-8.85825E-11,
     &        3.28582E-04,-1.76607E-11,-2.64188E-05, 9.64778E-04,
     &       -1.79654E-10, 1.00843E-04,-3.49868E-12, 8.07390E-05,
     &        5.36812E-04, 1.37561E-10,-9.39580E-05, 6.50167E-11,
     &       -3.62077E-04, 2.28736E-10, 3.93394E-04, 3.26088E-11,
     &        1.22236E-03,-1.58522E-11,-4.84388E-05, 4.24157E-04,
     &       -2.99770E-10, 1.24475E-04,-2.17104E-04, 1.62569E-10,
     &        3.03192E-05, 1.81014E-10,-1.08298E-03, 1.57724E-04/
C     350km June solstice
      DATA (ASOL2(1,2,J),J=1,81)/-2.66559E-03,
     &       -2.38451E-03,-7.00160E-03, 2.89227E-03,-2.69425E-04,
     &       -5.59195E-03,-1.03983E-02,-1.72185E-03,-1.25974E-03,
     &       -2.53928E-03, 8.00238E-05, 1.28368E-03, 1.54834E-03,
     &        8.80443E-05,-4.38757E-04, 2.94737E-04, 3.28992E-04,
     &        2.03711E-03, 1.18891E-03,-1.39124E-04, 2.23181E-04,
     &       -7.05577E-04, 3.39127E-04,-1.31612E-03,-5.10047E-04,
     &       -1.06460E-03, 1.28476E-03, 7.00783E-05, 3.08604E-05,
     &       -1.87476E-04,-6.90673E-05, 1.86930E-04, 4.70294E-04,
     &        8.81169E-04,-2.60220E-04, 2.46262E-05, 2.84685E-04,
     &       -1.19048E-04,-2.94062E-05,-2.31471E-03,-5.18938E-04,
     &       -1.40211E-04,-5.89727E-06, 9.81226E-05,-6.30398E-05,
     &       -2.64703E-04, 5.93780E-04,-1.90932E-04, 1.36121E-04,
     &       -3.14661E-05,-3.44972E-05,-5.23128E-04, 1.86464E-04,
     &        6.00639E-05, 1.17825E-05, 1.65560E-06, 1.93243E-03,
     &        3.83193E-05,-4.61653E-04, 8.52971E-05, 8.70845E-05,
     &        1.05170E-03,-1.28178E-04,-1.16611E-04, 9.33779E-05,
     &        1.44434E-03,-1.71324E-04,-2.64340E-04, 4.82272E-05,
     &        9.32379E-04, 1.50014E-04, 1.00937E-04,-2.54004E-03,
     &       -1.59205E-04, 5.53522E-05,-1.22655E-03,-1.16094E-04,
     &        1.32418E-03, 3.99549E-04,-4.03101E-04,-1.11281E-03/
C     430km equinox
      DATA (ASOL2(2,1,J),J=1,81)/-2.71768E-03,
     &       -1.66211E-09,-2.05678E-03, 2.70096E-09,-4.60955E-03,
     &        6.02519E-09,-9.42525E-03,-5.09138E-09, 2.44835E-04,
     &       -5.46296E-03,-2.36690E-10, 6.03819E-04,-5.06225E-10,
     &       -3.60144E-04,-3.15397E-10, 8.42128E-06, 2.48972E-10,
     &        3.47726E-03, 1.74113E-09,-4.34965E-03,-7.30887E-10,
     &       -1.00916E-03,-2.26446E-09,-9.54364E-04, 3.62315E-10,
     &       -6.39014E-03, 1.89107E-09, 4.79526E-05, 4.59989E-10,
     &        4.96100E-05,-8.46643E-10, 2.49692E-04,-5.45366E-03,
     &       -6.29871E-10, 7.69469E-04, 1.26361E-10,-3.66365E-05,
     &        3.79186E-10, 1.35846E-04, 3.67455E-03,-4.14306E-10,
     &       -1.18327E-04,-6.68183E-11, 2.74807E-04, 2.11957E-10,
     &       -2.47149E-03,-1.18657E-09, 2.64645E-04,-5.48252E-10,
     &        2.57619E-05, 1.58691E-10, 2.37066E-04,-5.38122E-10,
     &        4.50305E-05,-3.26782E-10,-4.61792E-05, 3.39688E-03,
     &        4.89606E-10,-3.91995E-04, 1.06717E-10, 1.29947E-05,
     &       -4.15508E-03, 6.34497E-10, 6.09315E-05, 2.24289E-10,
     &        1.13625E-03, 7.76504E-10,-2.21304E-04, 3.34518E-10,
     &       -1.84311E-03, 2.92621E-10,-1.06848E-04,-1.76860E-03,
     &       -5.40190E-10, 1.01573E-04, 2.93572E-03,-5.48706E-10,
     &       -2.30642E-03, 1.60728E-10, 4.29344E-04,-3.12438E-04/
C     430km June solstice
      DATA (ASOL2(2,2,J),J=1,81)/ 6.60388E-03,
     &       -7.34122E-03, 5.96252E-03,-6.73169E-03, 1.07748E-02,
     &       -1.21959E-02, 8.66207E-03,-1.19321E-02, 4.73778E-03,
     &       -4.58842E-03,-1.35349E-04, 1.22984E-03, 2.61629E-03,
     &        9.49643E-04, 9.38404E-04,-1.25081E-03, 7.05230E-04,
     &        2.39308E-04,-1.30153E-03, 9.39421E-04, 1.17388E-04,
     &        3.78321E-04,-1.07552E-03, 5.71322E-04,-1.35903E-03,
     &       -7.07874E-04, 1.05856E-03, 4.55858E-04,-1.06872E-04,
     &        1.96316E-05,-1.59829E-05, 1.44212E-04,-2.87718E-03,
     &        9.47324E-04, 1.13632E-04, 9.57075E-05,-1.02485E-04,
     &       -3.09860E-05,-4.30497E-05, 9.82263E-04,-8.42056E-04,
     &       -1.88360E-04,-1.03403E-04, 1.24756E-04, 1.39611E-04,
     &        2.37016E-04, 2.73853E-04, 4.85856E-04, 6.07800E-05,
     &       -5.18567E-05, 2.75319E-07,-7.45872E-05,-3.88786E-04,
     &       -1.00859E-04, 2.15187E-05, 1.68389E-05, 5.92285E-04,
     &        2.99875E-05, 1.41721E-04,-8.70054E-06, 3.49014E-05,
     &       -9.78987E-04,-1.14178E-04, 6.46210E-06, 1.04795E-04,
     &       -1.03002E-03, 2.04341E-05, 7.75237E-05, 1.36992E-05,
     &        7.82127E-05, 1.32408E-04, 1.43576E-04,-1.78605E-03,
     &       -1.37460E-04, 4.47441E-05, 2.82624E-04, 7.70157E-05,
     &        1.51985E-04, 1.27704E-04,-2.47242E-04, 7.59181E-04/
C     600km equinox
      DATA (ASOL2(3,1,J),J=1,81)/-5.98430E-03,
     &       -8.20529E-10,-1.86951E-02,-8.78666E-10,-2.54342E-02,
     &        2.73308E-09,-1.73115E-02,-5.46634E-10,-4.49602E-03,
     &       -1.38669E-02,-8.24271E-10,-2.08529E-03,-8.08756E-10,
     &        8.47329E-05,-5.50105E-10, 7.71096E-04, 3.97671E-10,
     &       -2.86818E-03, 1.30272E-09,-8.63715E-03, 9.34304E-11,
     &       -1.66798E-03,-6.40434E-10,-8.24496E-04, 1.54787E-10,
     &       -4.81761E-03,-1.31044E-09, 1.13820E-03,-3.18649E-10,
     &       -1.49672E-04,-5.94660E-10, 2.72622E-04, 1.05612E-03,
     &       -7.47571E-10, 1.00975E-03,-2.11313E-10,-2.68209E-04,
     &        1.15886E-10,-1.40307E-04, 2.96729E-03,-1.63992E-10,
     &       -3.24913E-04,-4.43500E-10, 7.80271E-05,-1.22601E-10,
     &       -1.55819E-04,-9.50215E-10, 5.85898E-04,-6.32458E-11,
     &        6.17906E-05,-3.57907E-11, 2.20896E-03, 3.49282E-10,
     &        7.42025E-06, 1.35308E-10, 4.70481E-05,-2.16882E-07,
     &       -2.18582E-10,-2.16602E-04,-1.74306E-10, 5.43271E-05,
     &       -1.03950E-03,-6.89789E-10, 9.57516E-06, 4.20911E-11,
     &        5.66797E-04,-6.28187E-10,-8.00338E-05,-6.03535E-11,
     &       -9.59948E-04, 9.48276E-11, 6.68536E-06, 3.04521E-04,
     &       -5.96367E-10, 2.51723E-05,-9.89397E-05,-5.89413E-11,
     &        1.26073E-04, 3.13015E-10, 2.40519E-04,-2.06277E-04/
C     600km June solstice
      DATA (ASOL2(3,2,J),J=1,81)/-2.92288E-03,
     &        2.40459E-03,-4.41951E-03,-8.39083E-03, 7.09633E-03,
     &       -1.52399E-02, 1.24121E-02,-1.04291E-02, 2.57846E-03,
     &       -9.93323E-03, 1.34068E-03,-2.04806E-03, 6.11797E-03,
     &       -3.49197E-03, 2.85616E-03,-2.10806E-03, 1.34516E-03,
     &       -3.01701E-03,-1.33479E-03,-2.87279E-03, 1.99201E-03,
     &       -3.04444E-04, 2.45749E-03,-4.59152E-04, 2.07700E-03,
     &        3.73056E-03,-8.10486E-04, 1.65827E-03,-7.25869E-04,
     &        3.76733E-04,-3.78513E-04, 4.28839E-04, 3.64364E-03,
     &       -2.08947E-03, 1.23213E-03,-6.75613E-04, 1.55741E-04,
     &       -3.42442E-04,-2.52089E-06, 1.34201E-03, 8.52008E-04,
     &       -5.18925E-05,-1.37341E-05, 1.11693E-04,-1.17119E-05,
     &        1.21059E-04, 1.00742E-03,-6.57751E-05, 2.58920E-04,
     &       -8.57970E-05,-1.04464E-05,-4.56604E-04, 2.13225E-04,
     &       -1.03656E-04,-2.30527E-05, 7.20761E-05,-1.31314E-03,
     &        3.78680E-04, 1.51074E-05,-3.11821E-06, 9.28932E-05,
     &       -1.50878E-04,-2.82920E-04,-5.27417E-05,-1.66087E-05,
     &       -8.18572E-06,-6.60060E-06, 2.99957E-05,-4.88024E-05,
     &        3.17649E-05,-3.51197E-04, 4.43310E-06, 3.82800E-04,
     &       -2.43780E-04,-4.89946E-05,-3.76351E-04,-3.50511E-05,
     &       -3.13389E-04,-1.38936E-04,-3.32962E-04,-4.11981E-04/
C     850km equinox
      DATA (ASOL2(4,1,J),J=1,81)/-1.41709E-02,
     &       -7.46470E-10, 4.96499E-03, 1.78518E-09,-1.18366E-02,
     &        4.55808E-09, 1.60259E-03, 3.95165E-11, 1.17210E-02,
     &        1.84305E-02,-7.63253E-10, 6.96922E-03,-4.20237E-10,
     &       -1.05164E-03, 4.23489E-10, 9.39750E-04, 3.34179E-10,
     &       -4.74683E-03,-1.79973E-09, 3.73182E-03, 1.73853E-10,
     &       -4.57829E-04, 3.36219E-10, 4.23694E-04,-4.50105E-10,
     &        9.38405E-03,-2.08880E-09,-7.35870E-04,-3.02958E-10,
     &       -1.95901E-04, 5.38670E-11,-4.42625E-04, 1.55268E-02,
     &       -4.88141E-10, 1.59803E-03,-2.99781E-10, 6.56713E-04,
     &        4.45756E-10,-4.45435E-05,-3.00625E-03,-5.90326E-10,
     &       -8.91482E-04, 1.30862E-10,-1.27919E-04,-8.77847E-11,
     &       -3.44789E-03,-5.43793E-10,-7.07802E-04,-1.76958E-10,
     &       -1.55121E-04, 1.27795E-10,-1.05707E-02, 3.40596E-10,
     &       -1.14636E-03,-5.19735E-11,-1.12744E-04, 3.48190E-03,
     &        2.37594E-10, 5.19158E-04,-9.99847E-11,-7.41367E-05,
     &       -2.97896E-03,-1.84883E-10,-2.96412E-04,-1.55916E-10,
     &       -5.24108E-03, 6.59743E-11,-7.00435E-04,-2.53319E-10,
     &       -5.38005E-04,-7.68700E-10,-1.88849E-04, 4.56253E-03,
     &       -2.29030E-10, 7.99177E-06, 5.39884E-03,-8.07799E-10,
     &       -9.09928E-03,-2.96922E-10,-1.54532E-03, 2.46190E-03/
C     850km June solstice
      DATA (ASOL2(4,2,J),J=1,81)/-8.46440E-03,
     &       -1.50587E-02, 9.01057E-03,-8.98205E-03, 3.57425E-04,
     &        8.10606E-03,-1.66795E-03,-6.28312E-03, 1.31042E-02,
     &        2.23687E-02,-1.03779E-02, 5.09018E-03, 1.71938E-03,
     &       -2.92566E-03, 4.92734E-04, 1.15166E-03,-3.34795E-04,
     &       -2.38775E-03,-1.23768E-03, 1.85111E-03,-1.32523E-03,
     &       -2.96843E-04,-2.74690E-04, 8.76524E-04, 2.66694E-04,
     &        1.40219E-02,-1.18099E-04,-3.48964E-03, 3.95019E-04,
     &        5.34256E-04, 2.79000E-04,-3.56942E-04, 6.27090E-03,
     &        2.20358E-03, 1.83026E-04, 2.31132E-04, 6.68423E-05,
     &       -1.58583E-04,-1.59570E-05,-1.72236E-03,-2.27659E-03,
     &        5.57328E-04, 5.75776E-04,-1.84201E-04,-4.23345E-05,
     &       -6.88202E-03, 2.03516E-03,-4.80898E-05, 2.04951E-04,
     &       -3.53049E-04, 1.16223E-04, 7.37372E-03,-2.36506E-03,
     &       -1.55439E-03,-6.78683E-06, 6.39416E-05, 2.35816E-03,
     &       -9.09836E-04, 2.92547E-04, 1.41917E-04,-3.71583E-05,
     &       -2.83263E-03,-1.20039E-03, 1.19140E-04, 2.39136E-04,
     &       -4.60602E-04,-4.28118E-04, 1.62738E-05, 6.41053E-05,
     &        1.55691E-02,-3.50876E-04,-8.11594E-04, 3.45372E-03,
     &       -1.40989E-03,-1.71667E-04, 2.52887E-04,-7.94384E-04,
     &       -6.33023E-03,-5.25200E-04, 1.45590E-02, 1.80325E-03/
C     350km equinox
      DATA (BSOL2(1,1,J),J=1,81)/ 2.70328E+00,
     &       -7.04694E-07,-5.23796E-01,-8.81279E-07, 1.87710E+00,
     &       -5.27517E-07, 2.26686E+00, 4.27708E-07,-1.49518E+00,
     &        4.49330E-02,-1.14908E-07, 7.58592E-02,-1.07558E-08,
     &        2.57843E-01,-8.13839E-08,-3.88958E-02,-5.45745E-08,
     &       -9.62702E-01,-1.36463E-07, 1.67522E-01,-1.02407E-07,
     &        3.76042E-01,-7.94693E-08, 1.75477E-01,-2.31535E-07,
     &        2.39788E-01, 2.14982E-07, 3.03878E-01, 1.82455E-07,
     &       -1.65653E-02, 1.21422E-07,-3.34106E-02, 1.47215E+00,
     &        1.77271E-07,-3.55409E-02, 1.83936E-07, 1.34524E-01,
     &        1.17639E-07,-1.28062E-02, 4.86861E-01,-5.10445E-08,
     &        3.79849E-02, 2.94140E-08,-2.68134E-02, 1.72073E-08,
     &        9.85360E-02,-1.24186E-07, 1.10640E-01,-3.74273E-08,
     &       -1.28956E-02,-3.57409E-08, 5.63376E-02, 2.80307E-08,
     &       -9.41993E-02, 6.90165E-09, 7.74577E-03,-2.03876E-01,
     &        5.31421E-08,-3.67836E-02, 1.41299E-09,-2.12762E-02,
     &       -9.26890E-02,-4.14368E-08, 2.88177E-02,-1.90822E-08,
     &        1.04774E-01,-7.00364E-08,-1.15556E-01,-1.06482E-08,
     &       -3.33638E-01, 9.50533E-10, 1.48855E-02,-1.02430E-01,
     &        8.62453E-08,-3.79117E-02, 6.98777E-02,-4.61136E-08,
     &        6.80654E-02,-5.09379E-08, 2.96059E-01,-3.35139E-03/
C     350km June solstice
      DATA (BSOL2(1,2,J),J=1,81)/ 7.48139E-01,
     &        7.39147E-01, 1.96147E+00,-8.41269E-01, 4.24387E-02,
     &        1.63852E+00, 2.90912E+00, 6.03105E-01, 2.23723E-01,
     &        7.14554E-01, 2.70471E-03,-3.72103E-01,-4.42558E-01,
     &       -1.49290E-02, 1.29677E-01,-7.87805E-02,-7.71832E-02,
     &       -5.89285E-01,-3.53254E-01, 3.45138E-02,-6.42728E-02,
     &        2.14918E-01,-9.71224E-02, 3.73156E-01, 1.47299E-01,
     &        2.69353E-01,-3.63387E-01,-2.58630E-02,-5.98427E-03,
     &        5.65203E-02, 1.58853E-02,-5.10649E-02,-1.52800E-01,
     &       -2.40293E-01, 5.94013E-02,-2.40527E-03,-7.65896E-02,
     &        3.12533E-02, 9.29873E-03, 6.63286E-01, 1.56527E-01,
     &        3.46717E-02, 4.32070E-03,-2.84288E-02, 1.83531E-02,
     &        7.37413E-02,-1.61578E-01, 4.42385E-02,-3.73951E-02,
     &        1.25565E-02, 7.57156E-03, 1.67351E-01,-5.12110E-02,
     &       -1.88009E-02,-3.51740E-03,-9.74178E-04,-5.65865E-01,
     &        8.03355E-04, 1.16812E-01,-2.16772E-02,-2.43443E-02,
     &       -2.81747E-01, 3.79003E-02, 3.66177E-02,-2.67583E-02,
     &       -3.96456E-01, 5.60049E-02, 6.75308E-02,-1.27000E-02,
     &       -2.42278E-01,-4.79598E-02,-2.40149E-02, 7.50927E-01,
     &        5.57859E-02,-2.41464E-02, 3.92480E-01, 3.21154E-02,
     &       -3.81916E-01,-1.11970E-01, 1.61494E-01, 3.02415E-01/
C     430km equinox
      DATA (BSOL2(2,1,J),J=1,81)/ 8.12689E-01,
     &        3.58818E-07, 6.54526E-01,-7.87828E-07, 1.37747E+00,
     &       -1.56728E-06, 2.80359E+00, 1.38276E-06,-1.07197E-01,
     &        1.61731E+00, 9.34769E-08,-1.78605E-01, 1.60601E-07,
     &        1.12587E-01, 9.53377E-08, 8.71024E-04,-7.16103E-08,
     &       -9.99141E-01,-4.06456E-07, 1.30883E+00, 2.33228E-07,
     &        3.15764E-01, 5.97406E-07, 2.86130E-01,-8.52579E-08,
     &        1.88539E+00,-4.63732E-07,-2.50662E-02,-9.42100E-08,
     &       -2.00286E-02, 2.34678E-07,-7.64551E-02, 1.59323E+00,
     &        1.54241E-07,-2.26908E-01,-5.19893E-08, 1.00956E-02,
     &       -1.08771E-07,-3.79510E-02,-1.06939E+00, 9.53038E-08,
     &        3.11410E-02, 5.17610E-09,-8.23280E-02,-6.09076E-08,
     &        7.16766E-01, 2.94343E-07,-8.68746E-02, 1.42550E-07,
     &       -1.07433E-02,-3.49598E-08,-2.24243E-02, 1.33267E-07,
     &       -6.16294E-03, 8.27228E-08, 1.60680E-02,-9.89066E-01,
     &       -1.17572E-07, 1.11682E-01,-1.89601E-08,-4.53052E-03,
     &        1.26053E+00,-1.56381E-07,-1.36783E-02,-5.53183E-08,
     &       -2.94335E-01,-2.11164E-07, 6.32513E-02,-9.11515E-08,
     &        5.56193E-01,-7.97825E-08, 2.89441E-02, 5.47213E-01,
     &        1.42932E-07,-2.88236E-02,-8.44477E-01, 1.44044E-07,
     &        7.05204E-01,-4.49335E-08,-9.78013E-02, 1.37972E-01/
C     430km June solstice
      DATA (BSOL2(2,2,J),J=1,81)/-1.84813E+00,
     &        1.92450E+00,-1.35721E+00, 1.51169E+00,-2.67318E+00,
     &        3.03746E+00,-2.03801E+00, 3.03440E+00,-9.09579E-01,
     &        1.36779E+00, 6.84575E-02,-3.63579E-01,-7.50604E-01,
     &       -2.94988E-01,-2.58091E-01, 3.55048E-01,-1.83627E-01,
     &       -6.43608E-02, 3.66508E-01,-2.59454E-01,-4.92394E-02,
     &       -9.26211E-02, 3.02478E-01,-1.47470E-01, 3.68415E-01,
     &        2.03717E-01,-3.17873E-01,-1.33967E-01, 3.09206E-02,
     &       -1.35170E-03, 3.27587E-03,-3.91482E-02, 8.50423E-01,
     &       -2.67029E-01,-2.81750E-02,-2.26890E-02, 2.62013E-02,
     &        7.20030E-03, 9.07809E-03,-2.73371E-01, 2.40495E-01,
     &        5.43843E-02, 2.71778E-02,-3.73597E-02,-3.76609E-02,
     &       -6.58740E-02,-7.59922E-02,-1.45559E-01,-1.76011E-02,
     &        1.57117E-02,-3.53666E-04, 3.27078E-02, 1.12592E-01,
     &        2.83209E-02,-7.16886E-03,-4.34154E-03,-1.76155E-01,
     &       -9.48785E-03,-4.08619E-02, 1.29895E-03,-1.05963E-02,
     &        2.90427E-01, 3.80339E-02,-1.48570E-03,-2.98596E-02,
     &        2.90140E-01,-6.19528E-03,-2.46222E-02,-4.39919E-03,
     &       -3.93896E-02,-3.60264E-02,-4.00052E-02, 5.13697E-01,
     &        4.28494E-02,-1.51714E-02,-8.65926E-02,-2.11732E-02,
     &       -2.79266E-02,-3.51589E-02, 6.79307E-02,-2.08788E-01/
C     600km equinox
      DATA (BSOL2(3,1,J),J=1,81)/ 1.77076E+00,
     &        2.43399E-07, 5.52763E+00, 2.41837E-07, 7.52154E+00,
     &       -8.21607E-07, 5.11281E+00, 1.51207E-07, 1.28444E+00,
     &        4.11171E+00, 2.44632E-07, 6.33000E-01, 2.39754E-07,
     &       -3.12942E-02, 1.61154E-07,-2.27873E-01,-1.22142E-07,
     &        8.69450E-01,-3.94374E-07, 2.57500E+00,-3.20106E-08,
     &        5.01599E-01, 1.85869E-07, 2.43967E-01,-4.86894E-08,
     &        1.41934E+00, 3.86542E-07,-3.34466E-01, 9.66809E-08,
     &        4.36325E-02, 1.75913E-07,-7.89420E-02,-3.20356E-01,
     &        2.23665E-07,-2.99020E-01, 6.22716E-08, 8.02645E-02,
     &       -3.47594E-08, 4.32514E-02,-8.76128E-01, 5.14201E-08,
     &        9.54613E-02, 1.32200E-07,-2.33514E-02, 3.67331E-08,
     &        4.62535E-02, 2.80622E-07,-1.72716E-01, 1.97011E-08,
     &       -1.84596E-02, 1.07108E-08,-6.58684E-01,-1.04009E-07,
     &       -2.35475E-03,-4.08322E-08,-1.42161E-02, 2.46498E-03,
     &        6.70618E-08, 6.42377E-02, 5.15787E-08,-1.59084E-02,
     &        3.02619E-01, 2.04751E-07,-2.02578E-03,-1.18471E-08,
     &       -1.66343E-01, 1.87376E-07, 2.35769E-02, 1.77660E-08,
     &        2.85678E-01,-2.79337E-08,-1.89983E-03,-9.03558E-02,
     &        1.74806E-07,-7.86571E-03, 3.16713E-02, 1.82142E-08,
     &       -3.42877E-02,-9.16758E-08,-7.11812E-02, 6.14861E-02/
C     600km June solstice
      DATA (BSOL2(3,2,J),J=1,81)/ 9.34017E-01,
     &       -9.78320E-01, 1.57387E+00, 1.95249E+00,-1.69724E+00,
     &        3.92370E+00,-3.36194E+00, 2.86400E+00,-6.31699E-01,
     &        2.89406E+00,-2.84875E-01, 4.99500E-01,-1.66012E+00,
     &        9.21736E-01,-7.08285E-01, 5.36600E-01,-3.24463E-01,
     &        9.33308E-01, 3.93996E-01, 9.28644E-01,-5.74735E-01,
     &        1.42152E-01,-6.92038E-01, 1.75644E-01,-5.70600E-01,
     &       -1.09497E+00, 2.30044E-01,-4.79823E-01, 2.03779E-01,
     &       -9.64698E-02, 1.00725E-01,-1.21988E-01,-1.08693E+00,
     &        6.17410E-01,-3.49701E-01, 1.88513E-01,-4.19997E-02,
     &        9.83689E-02,-5.24824E-04,-3.93598E-01,-2.60135E-01,
     &        1.88490E-02, 1.76296E-03,-3.35876E-02, 4.15450E-03,
     &       -3.33153E-02,-3.01043E-01, 1.94971E-02,-7.40590E-02,
     &        2.32494E-02, 2.66598E-03, 1.30890E-01,-5.68582E-02,
     &        3.00603E-02, 6.92162E-03,-2.14398E-02, 3.70448E-01,
     &       -1.12507E-01,-2.71069E-03, 5.50859E-04,-2.79111E-02,
     &        6.05866E-02, 8.48181E-02, 1.62938E-02, 4.64299E-03,
     &        3.48509E-03, 1.14954E-03,-9.82251E-03, 1.43510E-02,
     &       -1.06039E-02, 1.05092E-01,-1.30190E-03,-1.12558E-01,
     &        7.31240E-02, 1.50032E-02, 1.17404E-01, 1.08403E-02,
     &        1.01201E-01, 4.34622E-02, 9.35415E-02, 1.25642E-01/
C     850km equinox
      DATA (BSOL2(4,1,J),J=1,81)/ 4.22033E+00,
     &        2.28805E-07,-1.52909E+00,-5.31501E-07, 3.56201E+00,
     &       -1.35822E-06,-4.73525E-01, 1.00931E-08,-3.52342E+00,
     &       -5.49323E+00, 2.20929E-07,-2.08809E+00, 1.31804E-07,
     &        3.35386E-01,-1.28297E-07,-2.90915E-01,-9.72526E-08,
     &        1.41884E+00, 5.26176E-07,-1.12832E+00,-5.23275E-08,
     &        1.53831E-01,-1.02990E-07,-1.33673E-01, 1.36788E-07,
     &       -2.75865E+00, 6.23794E-07, 2.18373E-01, 8.95903E-08,
     &        5.98032E-02,-1.70364E-08, 1.31743E-01,-4.60362E+00,
     &        1.44440E-07,-4.77811E-01, 9.08641E-08,-1.94012E-01,
     &       -1.32912E-07, 1.45305E-02, 8.69214E-01, 1.71288E-07,
     &        2.69609E-01,-3.78698E-08, 3.63217E-02, 2.71555E-08,
     &        1.02213E+00, 1.57999E-07, 1.96351E-01, 5.44738E-08,
     &        4.78378E-02,-3.85757E-08, 3.12915E+00,-1.01506E-07,
     &        3.43613E-01, 1.59636E-08, 3.29798E-02,-1.05931E+00,
     &       -7.20820E-08,-1.54567E-01, 2.99424E-08, 2.21749E-02,
     &        8.27660E-01, 5.58935E-08, 9.30322E-02, 4.55150E-08,
     &        1.56002E+00,-2.62938E-08, 2.05689E-01, 7.58992E-08,
     &        2.23786E-01, 2.29408E-07, 5.94237E-02,-1.35862E+00,
     &        6.99358E-08, 5.18873E-04,-1.66904E+00, 2.42592E-07,
     &        2.68533E+00, 8.90297E-08, 5.00483E-01,-7.44718E-01/
C     850km June solstice
      DATA (BSOL2(4,2,J),J=1,81)/ 2.62366E+00,
     &        4.37336E+00,-2.91879E+00, 2.72700E+00, 1.70033E-01,
     &       -2.41028E+00, 2.52676E-01, 1.82095E+00,-3.87487E+00,
     &       -6.45522E+00, 2.98908E+00,-1.49471E+00,-4.41532E-01,
     &        8.35990E-01,-1.75673E-01,-3.15527E-01, 1.09559E-01,
     &        7.28764E-01, 3.58094E-01,-5.51112E-01, 3.89877E-01,
     &        9.46915E-02, 8.95752E-02,-2.56909E-01,-8.43411E-02,
     &       -3.73087E+00, 2.39597E-02, 9.32551E-01,-1.23211E-01,
     &       -1.23254E-01,-7.90104E-02, 9.86942E-02,-1.94644E+00,
     &       -6.71981E-01,-5.79116E-02,-6.20600E-02,-1.20123E-02,
     &        4.78286E-02, 5.34562E-03, 6.56998E-01, 5.81773E-01,
     &       -1.42710E-01,-1.42008E-01, 4.56436E-02, 7.01011E-03,
     &        2.11955E+00,-6.26959E-01, 2.01052E-02,-5.85559E-02,
     &        9.81642E-02,-3.34654E-02,-1.52171E+00, 7.21412E-01,
     &        4.09986E-01, 6.26719E-04,-1.47474E-02,-8.52065E-01,
     &        2.88799E-01,-1.03028E-01,-4.23861E-02, 1.25313E-02,
     &        9.28351E-01, 2.81502E-01,-2.87825E-02,-6.12646E-02,
     &        2.21057E-01, 8.34084E-02, 8.78934E-03,-1.35539E-02,
     &       -3.77063E+00, 9.37165E-02, 2.21574E-01,-1.00500E+00,
     &        4.30974E-01, 4.29730E-02,-5.42730E-02, 1.93557E-01,
     &        1.93609E+00, 1.06797E-01,-3.56458E+00,-4.66505E-01/
C     350km equinox
      DATA (CSOL2(1,1,J),J=1,81)/-1.76031E+02,
     &        4.49852E-05, 3.19208E+01, 5.76472E-05,-1.17966E+02,
     &        3.49649E-05,-1.53998E+02,-3.04218E-05, 1.03447E+02,
     &       -5.19224E+00, 7.56930E-06,-5.32362E+00, 6.38941E-07,
     &       -1.69565E+01, 5.09200E-06, 2.87786E+00, 3.42652E-06,
     &        6.17429E+01, 9.31916E-06,-1.10033E+01, 6.15289E-06,
     &       -2.49220E+01, 4.26190E-06,-1.04021E+01, 1.47449E-05,
     &       -2.00876E+01,-1.35957E-05,-1.97167E+01,-1.17979E-05,
     &        5.51957E-01,-8.14386E-06, 2.40857E+00,-9.20469E+01,
     &       -1.17657E-05, 1.27256E+00,-1.20990E-05,-8.39756E+00,
     &       -7.77199E-06, 6.39605E-01,-3.35269E+01, 3.15588E-06,
     &       -3.00054E+00,-1.99859E-06, 1.87433E+00,-1.23169E-06,
     &       -6.21531E+00, 7.67313E-06,-6.93279E+00, 2.36774E-06,
     &        8.59718E-01, 2.38327E-06,-6.42490E+00,-1.93277E-06,
     &        5.80841E+00,-5.60471E-07,-5.50484E-01, 8.64082E+00,
     &       -3.47810E-06, 2.73275E+00,-1.07597E-07, 1.24710E+00,
     &        2.15695E+00, 2.72355E-06,-2.06891E+00, 1.22932E-06,
     &       -6.32694E+00, 4.75663E-06, 7.57914E+00, 7.55358E-07,
     &        2.08622E+01, 2.13187E-07,-1.00828E+00, 5.62064E+00,
     &       -5.56656E-06, 2.54649E+00,-5.09080E+00, 2.89307E-06,
     &       -8.48844E+00, 3.22353E-06,-1.89553E+01,-2.09357E+00/
C     350km June solstice
      DATA (CSOL2(1,2,J),J=1,81)/-4.69044E+01,
     &       -4.99503E+01,-1.20990E+02, 5.54719E+01, 1.35043E+00,
     &       -1.06768E+02,-1.80819E+02,-4.22916E+01,-5.48630E+00,
     &       -4.53314E+01,-1.97691E+00, 2.40644E+01, 2.81569E+01,
     &        5.67538E-01,-8.83814E+00, 4.87799E+00, 3.80723E+00,
     &        3.82520E+01, 2.33552E+01,-2.19021E+00, 3.84540E+00,
     &       -1.42200E+01, 6.09436E+00,-2.33193E+01,-9.57976E+00,
     &       -1.53775E+01, 2.30642E+01, 1.89383E+00, 2.41679E-01,
     &       -3.71175E+00,-9.07622E-01, 3.12091E+00, 1.08885E+01,
     &        1.48691E+01,-2.97584E+00,-1.36955E-01, 4.60350E+00,
     &       -1.94008E+00,-6.17725E-01,-4.23653E+01,-1.06197E+01,
     &       -1.85335E+00,-4.02444E-01, 1.85809E+00,-1.19229E+00,
     &       -4.14127E+00, 1.00616E+01,-2.16493E+00, 2.30551E+00,
     &       -1.01055E+00,-3.70388E-01,-1.16596E+01, 3.17665E+00,
     &        1.22781E+00, 2.50145E-01, 9.29965E-02, 3.68067E+01,
     &       -5.13368E-01,-6.64564E+00, 1.26636E+00, 1.51416E+00,
     &        1.63611E+01,-2.64986E+00,-2.53107E+00, 1.70201E+00,
     &        2.40164E+01,-3.93333E+00,-3.77960E+00, 7.45513E-01,
     &        1.39771E+01, 3.19198E+00, 1.22984E+00,-4.93936E+01,
     &       -4.14993E+00, 1.99312E+00,-2.73120E+01,-2.08170E+00,
     &        2.39041E+01, 7.04545E+00,-1.32333E+01,-1.84304E+01/
C     430km equinox
      DATA (CSOL2(2,1,J),J=1,81)/-5.37732E+01,
     &       -1.35718E-05,-4.51688E+01, 4.90340E-05,-9.01496E+01,
     &        8.58367E-05,-1.84641E+02,-7.85085E-05, 1.06627E+01,
     &       -1.06654E+02,-7.74306E-06, 1.16833E+01,-1.12515E-05,
     &       -7.61469E+00,-6.10988E-06,-3.63000E-01, 4.62401E-06,
     &        6.36480E+01, 1.71177E-05,-8.75195E+01,-1.66809E-05,
     &       -2.11623E+01,-3.30558E-05,-1.86705E+01, 4.13906E-06,
     &       -1.23811E+02, 2.25016E-05, 2.35796E+00, 2.99930E-06,
     &        1.60093E+00,-1.38387E-05, 5.05477E+00,-1.03460E+02,
     &       -7.47527E-06, 1.48854E+01, 4.30968E-06,-6.60301E-01,
     &        6.73953E-06, 2.30981E+00, 6.91086E+01,-3.96679E-06,
     &       -1.88795E+00, 7.68843E-07, 5.46686E+00, 3.81195E-06,
     &       -4.65744E+01,-1.44440E-05, 6.19621E+00,-7.63386E-06,
     &        8.88231E-01, 1.48298E-06,-1.44172E+00,-6.61016E-06,
     &       -1.40171E-01,-4.25887E-06,-1.18316E+00, 6.47161E+01,
     &        5.37223E-06,-7.03362E+00, 3.03266E-07, 3.60307E-01,
     &       -8.51095E+01, 7.90920E-06, 6.67564E-01, 2.77073E-06,
     &        1.71041E+01, 1.22495E-05,-4.03318E+00, 5.28812E-06,
     &       -3.69304E+01, 4.73935E-06,-1.76058E+00,-3.77318E+01,
     &       -8.01784E-06, 1.73868E+00, 5.40152E+01,-8.11280E-06,
     &       -4.74180E+01, 2.68882E-06, 4.27110E+00,-1.14154E+01/
C     430km June solstice
      DATA (CSOL2(2,2,J),J=1,81)/ 1.15978E+02,
     &       -1.14308E+02, 6.76979E+01,-7.48789E+01, 1.47984E+02,
     &       -1.69709E+02, 1.06729E+02,-1.73278E+02, 3.29038E+01,
     &       -9.12834E+01,-6.57979E+00, 2.38608E+01, 4.80723E+01,
     &        2.03319E+01, 1.56434E+01,-2.27053E+01, 1.06252E+01,
     &        4.00797E+00,-2.34541E+01, 1.60444E+01, 3.70155E+00,
     &        5.21603E+00,-1.93462E+01, 8.68745E+00,-2.27392E+01,
     &       -1.29096E+01, 2.10801E+01, 8.71959E+00,-1.98354E+00,
     &       -1.84134E-01,-1.30817E-01, 2.40242E+00,-5.59334E+01,
     &        1.66033E+01, 1.60961E+00, 1.14821E+00,-1.44376E+00,
     &       -3.85428E-01,-4.18895E-01, 1.68208E+01,-1.55130E+01,
     &       -3.49570E+00,-1.60715E+00, 2.47208E+00, 2.31755E+00,
     &        4.29469E+00, 4.56038E+00, 9.73579E+00, 1.11107E+00,
     &       -1.06056E+00, 1.92158E-02,-2.72230E+00,-7.20288E+00,
     &       -1.73555E+00, 5.29344E-01, 2.55697E-01, 1.16833E+01,
     &        7.48947E-01, 2.60805E+00,-2.24404E-02, 6.92328E-01,
     &       -1.90336E+01,-2.80922E+00, 2.75703E-02, 1.89898E+00,
     &       -1.81545E+01, 4.29892E-01, 1.75612E+00, 3.05334E-01,
     &        3.40650E+00, 2.15529E+00, 2.47947E+00,-3.28431E+01,
     &       -2.99174E+00, 1.14716E+00, 5.59992E+00, 1.31459E+00,
     &        9.08754E-01, 2.14645E+00,-4.17548E+00, 1.29795E+01/
C     600km equinox
      DATA (CSOL2(3,1,J),J=1,81)/-1.17682E+02,
     &       -1.63655E-05,-3.67961E+02,-1.49195E-05,-4.99674E+02,
     &        5.50432E-05,-3.39517E+02,-9.00445E-06,-8.07395E+01,
     &       -2.71008E+02,-1.63762E-05,-4.38201E+01,-1.60042E-05,
     &        2.59273E+00,-1.05871E-05, 1.48370E+01, 8.42779E-06,
     &       -6.00315E+01, 2.67656E-05,-1.71603E+02, 2.36088E-06,
     &       -3.43766E+01,-1.20418E-05,-1.62622E+01, 3.26994E-06,
     &       -9.23436E+01,-2.54135E-05, 2.17534E+01,-6.62934E-06,
     &       -2.71912E+00,-1.16127E-05, 5.02697E+00, 2.18266E+01,
     &       -1.49401E-05, 1.97306E+01,-4.05218E-06,-5.38727E+00,
     &        2.32521E-06,-2.96582E+00, 5.70516E+01,-3.59306E-06,
     &       -6.18424E+00,-8.78706E-06, 1.54679E+00,-2.44888E-06,
     &       -3.15072E+00,-1.84498E-05, 1.13489E+01,-1.39854E-06,
     &        1.22313E+00,-7.09334E-07, 4.37317E+01, 6.91845E-06,
     &        1.84680E-01, 2.75613E-06, 9.51638E-01,-5.44117E-01,
     &       -4.59451E-06,-4.23030E+00,-3.40308E-06, 1.02929E+00,
     &       -1.94182E+01,-1.35526E-05, 6.44023E-02, 7.37129E-07,
     &        1.09290E+01,-1.24684E-05,-1.53138E+00,-1.15934E-06,
     &       -1.89700E+01, 1.81910E-06, 1.18527E-01, 5.96883E+00,
     &       -1.13797E-05, 5.43931E-01,-2.21835E+00,-1.23065E-06,
     &        2.01394E+00, 5.99180E-06, 4.70170E+00,-4.03814E+00/
C     600km June solstice
      DATA (CSOL2(3,2,J),J=1,81)/-6.54904E+01,
     &        7.81584E+01,-1.17602E+02,-1.00458E+02, 9.04577E+01,
     &       -2.28243E+02, 2.04756E+02,-1.77808E+02, 3.39043E+01,
     &       -1.88009E+02, 1.26966E+01,-2.69266E+01, 1.01643E+02,
     &       -5.44873E+01, 3.96624E+01,-3.08586E+01, 1.79579E+01,
     &       -6.40060E+01,-2.56949E+01,-6.50462E+01, 3.71228E+01,
     &       -1.19097E+01, 4.31657E+01,-1.32870E+01, 3.47269E+01,
     &        7.20609E+01,-1.49944E+01, 3.11270E+01,-1.30432E+01,
     &        5.65834E+00,-6.13345E+00, 7.68388E+00, 7.16424E+01,
     &       -4.06752E+01, 2.19638E+01,-1.16235E+01, 2.38027E+00,
     &       -6.22215E+00, 2.93060E-03, 2.56661E+01, 1.77087E+01,
     &       -1.41747E+00, 3.03025E-02, 2.20362E+00,-3.17049E-01,
     &        2.09738E+00, 2.00356E+01,-1.41615E+00, 4.80053E+00,
     &       -1.42627E+00,-1.55873E-01,-8.56606E+00, 3.39901E+00,
     &       -1.94515E+00,-4.66559E-01, 1.40741E+00,-2.31316E+01,
     &        7.54878E+00, 1.11745E-01,-3.82416E-02, 1.86031E+00,
     &       -4.99077E+00,-5.72893E+00,-1.11818E+00,-2.81588E-01,
     &       -2.52574E-01, 3.97784E-02, 6.91589E-01,-9.36830E-01,
     &        5.50953E-01,-7.02969E+00, 9.48078E-02, 7.36268E+00,
     &       -4.89231E+00,-1.01109E+00,-8.13262E+00,-7.16468E-01,
     &       -7.24566E+00,-3.04944E+00,-5.86325E+00,-8.54868E+00/
C     850km equinox
      DATA (CSOL2(4,1,J),J=1,81)/-2.78251E+02,
     &       -1.57561E-05, 1.05260E+02, 3.50082E-05,-2.38639E+02,
     &        8.99008E-05, 3.15953E+01,-2.36980E-06, 2.36060E+02,
     &        3.63414E+02,-1.43436E-05, 1.39070E+02,-9.10676E-06,
     &       -2.39123E+01, 8.55839E-06, 1.99385E+01, 6.25849E-06,
     &       -9.27340E+01,-3.40316E-05, 7.58097E+01, 3.47509E-06,
     &       -1.15164E+01, 7.07412E-06, 9.30400E+00,-9.23180E-06,
     &        1.79788E+02,-4.13006E-05,-1.44447E+01,-5.83416E-06,
     &       -4.15988E+00, 1.19754E-06,-8.69604E+00, 3.02803E+02,
     &       -9.48530E-06, 3.15621E+01,-6.19611E-06, 1.26085E+01,
     &        8.80470E-06,-1.07077E+00,-5.71200E+01,-1.11086E-05,
     &       -1.81297E+01, 2.44082E-06,-2.20140E+00,-1.88515E-06,
     &       -6.54863E+01,-1.01363E-05,-1.18881E+01,-3.73916E-06,
     &       -3.20037E+00, 2.58540E-06,-2.04377E+02, 6.74807E-06,
     &       -2.28503E+01,-1.05860E-06,-2.14944E+00, 7.30601E+01,
     &        4.94023E-06, 1.03411E+01,-2.01169E-06,-1.48766E+00,
     &       -5.30361E+01,-3.87781E-06,-6.48859E+00,-2.91729E-06,
     &       -1.03555E+02, 2.22913E-06,-1.34403E+01,-5.04297E-06,
     &       -1.93373E+01,-1.52307E-05,-4.26668E+00, 8.82743E+01,
     &       -4.75753E-06,-2.53407E-01, 1.14265E+02,-1.63230E-05,
     &       -1.76438E+02,-6.04789E-06,-3.43007E+01, 4.92255E+01/
C     850km June solstice
      DATA (CSOL2(4,2,J),J=1,81)/-1.78340E+02,
     &       -2.81128E+02, 2.03508E+02,-1.85747E+02,-2.31617E+01,
     &        1.60979E+02,-5.38062E+00,-1.19048E+02, 2.55061E+02,
     &        4.16722E+02,-1.93470E+02, 9.70159E+01, 2.63753E+01,
     &       -5.32014E+01, 1.23421E+01, 1.92550E+01,-7.42106E+00,
     &       -4.85019E+01,-2.29421E+01, 3.66933E+01,-2.55515E+01,
     &       -6.88013E+00,-6.42291E+00, 1.68073E+01, 5.85254E+00,
     &        2.26241E+02,-8.19850E-01,-5.70299E+01, 8.30720E+00,
     &        6.51928E+00, 5.01447E+00,-6.16753E+00, 1.31613E+02,
     &        4.52192E+01, 4.17223E+00, 3.52728E+00, 2.88762E-01,
     &       -3.21260E+00,-3.93779E-01,-5.03533E+01,-3.41632E+01,
     &        7.83449E+00, 7.94462E+00,-2.35644E+00,-1.80810E-01,
     &       -1.43514E+02, 4.28600E+01,-1.54110E+00, 3.70051E+00,
     &       -6.06402E+00, 2.12010E+00, 7.18993E+01,-4.84831E+01,
     &       -2.47660E+01, 2.58779E-02, 8.01255E-01, 6.47059E+01,
     &       -2.01272E+01, 7.65472E+00, 2.81033E+00,-8.85116E-01,
     &       -6.51371E+01,-1.54447E+01, 1.37516E+00, 3.56743E+00,
     &       -1.94216E+01,-3.27728E+00,-1.53081E+00, 6.48401E-01,
     &        2.08684E+02,-5.50632E+00,-1.37697E+01, 6.55049E+01,
     &       -2.91389E+01,-2.48967E+00, 3.29486E+00,-1.08175E+01,
     &       -1.30402E+02,-4.83746E+00, 2.02401E+02, 2.68129E+01/
      DO 10 I=1,81
       ASOL2(1,3,I)=ASOL2(1,2,I)*MIRREQ(I)
       ASOL2(2,3,I)=ASOL2(2,2,I)*MIRREQ(I)
       ASOL2(3,3,I)=ASOL2(3,2,I)*MIRREQ(I)
       ASOL2(4,3,I)=ASOL2(4,2,I)*MIRREQ(I)
       BSOL2(1,3,I)=BSOL2(1,2,I)*MIRREQ(I)
       BSOL2(2,3,I)=BSOL2(2,2,I)*MIRREQ(I)
       BSOL2(3,3,I)=BSOL2(3,2,I)*MIRREQ(I)
       BSOL2(4,3,I)=BSOL2(4,2,I)*MIRREQ(I)
       CSOL2(1,3,I)=CSOL2(1,2,I)*MIRREQ(I)
       CSOL2(2,3,I)=CSOL2(2,2,I)*MIRREQ(I)
       CSOL2(3,3,I)=CSOL2(3,2,I)*MIRREQ(I)
10     CSOL2(4,3,I)=CSOL2(4,2,I)*MIRREQ(I)
      DO 40 K=1,81
       DO 30 J=1,3
        DO 20 I=1,4
         ASOL2O(I,J,K)=ASOL2(I,J,K)
         BSOL2O(I,J,K)=BSOL2(I,J,K)
         CSOL2O(I,J,K)=CSOL2(I,J,K)
20      CONTINUE
30     CONTINUE
40    CONTINUE
C////////////////////////////////////////////////////////////////////////////////////
      RETURN
      END
C
C                     
      SUBROUTINE TIF107(PF107,INVDP,C,SEZA,SEZB,
     &                  ASOL,BSOL,ASOL2,BSOL2,CSOL2,  
     &                  TP350A,TP350B,TP430A,TP430B,
     &                  TP600A,TP600B,TP850A,TP850B)
      REAL PF107,INVDP
      REAL C(82)
      INTEGER SEZA,SEZB
      REAL ASOL(4,3,81),BSOL(4,3,81)
      REAL ASOL2(4,3,81),BSOL2(4,3,81),CSOL2(4,3,81)
      REAL        AL350A,AL350B,AL430A,AL430B,AL600A,AL600B,
     &            AL850A,AL850B
      REAL        BL350A,BL350B,BL430A,BL430B,BL600A,BL600B,
     &            BL850A,BL850B
      REAL        AQ350A,AQ350B,AQ430A,AQ430B,AQ600A,AQ600B,
     &            AQ850A,AQ850B
      REAL        BQ350A,BQ350B,BQ430A,BQ430B,BQ600A,BQ600B,
     &            BQ850A,BQ850B
      REAL        CQ350A,CQ350B,CQ430A,CQ430B,CQ600A,CQ600B,
     &            CQ850A,CQ850B       
      REAL        TP350A,TP350B,TP430A,TP430B,TP600A,TP600B,
     &            TP850A,TP850B
C     linear perturbation AL, BL
      AL350A=0.0
      AL350B=0.0
      AL430A=0.0
      AL430B=0.0
      AL600A=0.0
      AL600B=0.0
      AL850A=0.0
      AL850B=0.0
C      
      BL350A=0.0
      BL350B=0.0
      BL430A=0.0
      BL430B=0.0
      BL600A=0.0
      BL600B=0.0
      BL850A=0.0
      BL850B=0.0
C     second order perturbation AQ, BQ, CQ
      AQ350A=0.0
      AQ350B=0.0
      AQ430A=0.0
      AQ430B=0.0
      AQ600A=0.0
      AQ600B=0.0
      AQ850A=0.0
      AQ850B=0.0
C      
      BQ350A=0.0
      BQ350B=0.0
      BQ430A=0.0
      BQ430B=0.0
      BQ600A=0.0
      BQ600B=0.0
      BQ850A=0.0
      BQ850B=0.0
C      
      CQ350A=0.0
      CQ350B=0.0
      CQ430A=0.0
      CQ430B=0.0
      CQ600A=0.0
      CQ600B=0.0
      CQ850A=0.0
      CQ850B=0.0
C      
      DO 30 I=1,81
       AL350A=AL350A+C(I)*ASOL(1,SEZA,I)
       AL350B=AL350B+C(I)*ASOL(1,SEZB,I)
       AL430A=AL430A+C(I)*ASOL(2,SEZA,I)
       AL430B=AL430B+C(I)*ASOL(2,SEZB,I)
       AL600A=AL600A+C(I)*ASOL(3,SEZA,I)
       AL600B=AL600B+C(I)*ASOL(3,SEZB,I)
       AL850A=AL850A+C(I)*ASOL(4,SEZA,I)
       AL850B=AL850B+C(I)*ASOL(4,SEZB,I)
C       
       BL350A=BL350A+C(I)*BSOL(1,SEZA,I)
       BL350B=BL350B+C(I)*BSOL(1,SEZB,I)
       BL430A=BL430A+C(I)*BSOL(2,SEZA,I)
       BL430B=BL430B+C(I)*BSOL(2,SEZB,I)
       BL600A=BL600A+C(I)*BSOL(3,SEZA,I)
       BL600B=BL600B+C(I)*BSOL(3,SEZB,I)
       BL850A=BL850A+C(I)*BSOL(4,SEZA,I)
       BL850B=BL850B+C(I)*BSOL(4,SEZB,I)
C       
       AQ350A=AQ350A+C(I)*ASOL2(1,SEZA,I)
       AQ350B=AQ350B+C(I)*ASOL2(1,SEZB,I)
       AQ430A=AQ430A+C(I)*ASOL2(2,SEZA,I)
       AQ430B=AQ430B+C(I)*ASOL2(2,SEZB,I)
       AQ600A=AQ600A+C(I)*ASOL2(3,SEZA,I)
       AQ600B=AQ600B+C(I)*ASOL2(3,SEZB,I)
       AQ850A=AQ850A+C(I)*ASOL2(4,SEZA,I)
       AQ850B=AQ850B+C(I)*ASOL2(4,SEZB,I)  
C       
       BQ350A=BQ350A+C(I)*BSOL2(1,SEZA,I)
       BQ350B=BQ350B+C(I)*BSOL2(1,SEZB,I)
       BQ430A=BQ430A+C(I)*BSOL2(2,SEZA,I)
       BQ430B=BQ430B+C(I)*BSOL2(2,SEZB,I)
       BQ600A=BQ600A+C(I)*BSOL2(3,SEZA,I)
       BQ600B=BQ600B+C(I)*BSOL2(3,SEZB,I)
       BQ850A=BQ850A+C(I)*BSOL2(4,SEZA,I)
       BQ850B=BQ850B+C(I)*BSOL2(4,SEZB,I)
C       
       CQ350A=CQ350A+C(I)*CSOL2(1,SEZA,I)
       CQ350B=CQ350B+C(I)*CSOL2(1,SEZB,I)
       CQ430A=CQ430A+C(I)*CSOL2(2,SEZA,I)
       CQ430B=CQ430B+C(I)*CSOL2(2,SEZB,I)
       CQ600A=CQ600A+C(I)*CSOL2(3,SEZA,I)
       CQ600B=CQ600B+C(I)*CSOL2(3,SEZB,I)
       CQ850A=CQ850A+C(I)*CSOL2(4,SEZA,I)
30     CQ850B=CQ850B+C(I)*CSOL2(4,SEZB,I)       
C
       TP350A=AL350A*PF107+BL350A
       TP350B=AL350B*PF107+BL350B
       TP430A=AL430A*PF107+BL430A
       TP430B=AL430B*PF107+BL430B
      IF (PF107 .LE. 200) THEN
       TP600A=AL600A*PF107+BL600A+AQ600A*PF107**2+BQ600A*PF107+CQ600A
       TP600B=AL600B*PF107+BL600B+AQ600B*PF107**2+BQ600B*PF107+CQ600B
       TP850A=AL850A*PF107+BL850A+AQ850A*PF107**2+BQ850A*PF107+CQ850A
       TP850B=AL850B*PF107+BL850B+AQ850B*PF107**2+BQ850B*PF107+CQ850B
      ELSE    
       TP600A=(2*(AL600A*PF107+BL600A)+
     &         AQ600A*PF107**2+BQ600A*PF107+CQ600A)/2.0
       TP600B=(2*(AL600B*PF107+BL600B)+
     &         AQ600B*PF107**2+BQ600B*PF107+CQ600B)/2.0
       TP850A=(2*(AL850A*PF107+BL850A)+
     &        AQ850A*PF107**2+BQ850A*PF107+CQ850A)/2.0
       TP850B=(2*(AL850B*PF107+BL850B)+
     &        AQ850B*PF107**2+BQ850B*PF107+CQ850B)/2.0
      END IF
      IF (ABS(INVDP) .GT. 60.) THEN
       TP600A=AL600A*PF107+BL600A
       TP600B=AL600B*PF107+BL600B
      END IF  
      RETURN
      END
C
C
C*************************************************************                  
C************* ION RELATIVE PRECENTAGE DENSITY *****************                
C*************************************************************                  
C
C
      REAL FUNCTION RPID (H, H0, N0, M, ST, ID, XS)
c------------------------------------------------------------------
C D.BILITZA,1977,THIS ANALYTIC FUNCTION IS USED TO REPRESENT THE                
C RELATIVE PRECENTAGE DENSITY OF ATOMAR AND MOLECULAR OXYGEN IONS.              
C THE M+1 HEIGHT GRADIENTS ST(M+1) ARE CONNECTED WITH EPSTEIN-                  
C STEP-FUNCTIONS AT THE STEP HEIGHTS XS(M) WITH TRANSITION                      
C THICKNESSES ID(M). RPID(H0,H0,N0,....)=N0.       
C ARGMAX is the highest allowed argument for EXP in your system.
c------------------------------------------------------------------
      REAL              N0         
      DIMENSION         ID(4), ST(5), XS(4)                
      COMMON  /ARGEXP/  ARGMAX

      SUM=(H-H0)*ST(1)                             
      DO 100  I=1,M   
              XI=ID(I)
                aa = eptr(h ,xi,xs(i))
                bb = eptr(h0,xi,xs(i))
100           SUM=SUM+(ST(I+1)-ST(I))*(AA-BB)*XI 
      IF(ABS(SUM).LT.ARGMAX) then
        SM=EXP(SUM)
      else IF(SUM.Gt.0.0) then
        SM=EXP(ARGMAX)
      else
        SM=0.0
      endif
      RPID= n0 * SM        
      RETURN          
      END             
C
c
      SUBROUTINE RDHHE (H,HB,RDOH,RDO2H,RNO,PEHE,RDH,RDHE)                      
C BILITZA,FEB.82,H+ AND HE+ RELATIVE PERECENTAGE DENSITY BELOW                  
C 1000 KM. THE O+ AND O2+ REL. PER. DENSITIES SHOULD BE GIVEN                   
C (RDOH,RDO2H). HB IS THE ALTITUDE OF MAXIMAL O+ DENSITY. PEHE                  
C IS THE PRECENTAGE OF HE+ IONS COMPARED TO ALL LIGHT IONS.                     
C RNO IS THE RATIO OF NO+ TO O2+DENSITY AT H=HB.   
      RDHE=0.0        
      RDH=0.0         
      IF(H.LE.HB) GOTO 100                         
      REST=100.0-RDOH-RDO2H-RNO*RDO2H              
      RDH=REST*(1.-PEHE/100.)                      
      RDHE=REST*PEHE/100.                          
100   RETURN          
      END             
C
C
      REAL FUNCTION RDNO(H,HB,RDO2H,RDOH,RNO)      
C D.BILITZA, 1978. NO+ RELATIVE PERCENTAGE DENSITY ABOVE 100KM.                 
C FOR MORE INFORMATION SEE SUBROUTINE RDHHE.       
      IF (H.GT.HB) GOTO 200                        
      RDNO=100.0-RDO2H-RDOH                        
      RETURN          
200   RDNO=RNO*RDO2H  
      RETURN          
      END
C
C
      SUBROUTINE  KOEFP1(PG1O)                     
C THIEMANN,1979,COEFFICIENTS PG1O FOR CALCULATING  O+ PROFILES                  
C BELOW THE F2-MAXIMUM. CHOSEN TO APPROACH DANILOV-                             
C SEMENOV'S COMPILATION.                           
      DIMENSION PG1O(80), FELD (80)  
      DATA FELD/-11.0,-11.0,4.0,-11.0,0.08018,0.13027,0.04216,     
     &0.25,-0.00686,0.00999,5.113,0.1 ,170.0,180.0,0.1175,0.15,    
     &-11.0,1.0 ,2.0,-11.0,0.069,0.161,0.254,0.18,0.0161,0.0216,                             
     &0.03014,0.1,152.0,167.0,0.04916,0.17,-11.0,2.0,2.0,-11.0,                          
     &0.072,0.092,0.014,0.21,0.01389,0.03863,0.05762,0.12,165.0,                           
     &168.0,0.008,0.258,-11.0,1.0,3.0,-11.0,0.091,0.088,0.008,       
     &0.34,0.0067,0.0195,0.04,0.1,158.0,172.0,0.01,0.24,-11.0,                            
     &2.0,3.0,-11.0,0.083,0.102,0.045,0.03,0.00127,0.01,0.05,                            
     &0.09,167.0,185.0,0.015,0.18/     
      DO 10 I=1,80    
10    	PG1O(I)=FELD(I)                              
      RETURN          
      END             
C
C
      SUBROUTINE KOEFP2(PG2O)                      
C THIEMANN,1979,COEFFICIENTS FOR CALCULATION OF O+ PROFILES                     
C ABOVE THE F2-MAXIMUM (DUMBS,SPENNER:AEROS-COMPILATION)                        
      DIMENSION PG2O(32), FELD(32)   
      DATA FELD/1.0,-11.0,-11.0,1.0,695.0,-.000781,-.00264,                             
     &2177.0,1.0,-11.0,-11.0,2.0,570.0,-.002,-.0052,1040.0,    
     &2.0,-11.0,-11.0,1.0,695.0,-.000786,-.00165,3367.0,2.0, 
     &-11.0,-11.0,2.0,575.0,-.00126,-.00524,1380.0/                
      DO 10 I=1,32    
10    	PG2O(I)=FELD(I)                              
      RETURN          
      END             
C
C
      SUBROUTINE  KOEFP3(PG3O)                     
C THIEMANN,1979,COEFFICIENTS FOR CALCULATING O2+ PROFILES.                      
C CHOSEN AS TO APPROACH DANILOV-SEMENOV'S COMPILATION.                          
      DIMENSION PG3O(80), FELD(80)   
      DATA FELD/-11.0,1.0,2.0,-11.0,160.0,31.0,130.0,-10.0,                           
     &198.0,0.0,0.05922,-0.07983,-0.00397,0.00085,-0.00313,            
     &0.0,-11.0,2.0,2.0,-11.0,140.0,30.0,130.0,-10.0,190.0,                      
     &0.0,0.05107,-0.07964,0.00097,-0.01118,-0.02614,-0.09537,       
     &-11.0,1.0,3.0,-11.0,140.0,37.0,125.0,0.0,182.0,0.0,                           
     &0.0307,-0.04968,-0.00248,-0.02451,-0.00313,0.0,-11.0,   
     &2.0,3.0,-11.0,140.0,37.0,125.0,0.0,170.0,0.0,0.02806,              
     &-0.04716,0.00066,-0.02763,-0.02247,-0.01919,-11.0,-11.0,                      
     &4.0,-11.0,140.0,45.0,136.0,-9.0,181.0,-26.0,0.02994,                
     &-0.04879,-0.01396,0.00089,-0.09929,0.05589/           
      DO 10 I=1,80    
10    	PG3O(I)=FELD(I)                              
      RETURN          
      END             
C
C
      SUBROUTINE SUFE (FIELD,RFE,M,FE)             
C SELECTS THE REQUIRED ION DENSITY PARAMETER SET.
C THE INPUT FIELD INCLUDES DIFFERENT SETS OF DIMENSION M EACH                
C CARACTERISED BY 4 HEADER NUMBERS. RFE(4) SHOULD CONTAIN THE                   
C CHOSEN HEADER NUMBERS.FE(M) IS THE CORRESPONDING SET.                         
      DIMENSION RFE(4),FE(12),FIELD(80),EFE(4)     
      K=0             
100   DO 101 I=1,4    
      K=K+1           
101   EFE(I)=FIELD(K)                              
      DO 111 I=1,M    
      K=K+1           
111   FE(I)=FIELD(K)  
      DO 120 I=1,4    
      IF((EFE(I).GT.-10.0).AND.(RFE(I).NE.EFE(I))) GOTO 100                     
120   CONTINUE        
      RETURN          
      END             
C
C
        subroutine iondani(id,ismo,hx,zd,fd,fs,dion)
c-------------------------------------------------------
c       id      day of month
c       ismo    seasonal month (Northern Hemisphere January 
c                   is ismo=1 and so is Southern H. July)
c       hx      altitude in km
c       zd      solar zenith angle in degrees
c       fd      latitude in degrees
c       fs      10.7cm solar radio flux (12-month running mean)
c       dion(1)   O+  relative density in percent
c       dion(2)   H+  relative density in percent
c       dion(3)   N+  relative density in percent
c       dion(4)   He+ relative density in percent
c       dion(5)   NO+ relative density in percent
c       dion(6)   O2+ relative density in percent
c       dion(7)   Cluster+ relative density in percent
c
c Uses ionco2 (DS-95) for the molecular ions and ionco1 (DY-85)
c for the atomic ions.
c-------------------------------------------------------
        dimension       dion(7)
        common  /const/umr,pi

        do 1122 i=1,7
1122    dion(i)=0.

        h = hx
        xhi = zd
        xlati = fd
        f107 = fs
        deci_month = ismo + id/29.0
        if (h.gt.300.) then
        	call ionco1(h,xhi,xlati,f107,deci_month,dion)
			dion(5)=0.0
			dion(6)=0.0
			dion(7)=0.0
        else
        	call ionco2(h,xhi,ismo,f107,rno,ro2,rcl,ro)
        	dion(5)=rno
        	dion(6)=ro2
       		dion(7)=rcl
        	dion(1)=ro
        endif

        return
        end
c
c
        subroutine ionco1(h,zd,fd,fs,t,cn)
c---------------------------------------------------------------
c ion composition model
c   A.D. Danilov and A.P. Yaichnikov, A New Model of the Ion
c   Composition at 75 to 1000 km for IRI, Adv. Space Res. 5, #7,
c   75-79, 107-108, 1985
c
c       h       altitude in km
c       zd      solar zenith angle in degrees
c       fd      latitude in degrees (same result for fd and -fd)
c       fs      10.7cm solar radio flux
c       t       seasonal decimal month (Northern Hemisphere January 
c                   15 is t=1.5 and so is Southern Hemisphere July 15)
c       cn(1)   O+  relative density in percent
c       cn(2)   H+  relative density in percent
c       cn(3)   N+  relative density in percent
c       cn(4)   He+ relative density in percent
c Please note: molecular ions are now computed in IONCO2
c       [cn(5)   NO+ relative density in percent
c       [cn(6)   O2+ relative density in percent
c       [cn(7)   cluster ions  relative density in percent
c---------------------------------------------------------------
c
c        dimension       cn(7),cm(7),hm(7),alh(7),all(7),beth(7),
c     &                  betl(7),p(5,6,7),var(6),po(5,6),ph(5,6),
c     &                  pn(5,6),phe(5,6),pno(5,6),po2(5,6),pcl(5,6)
        dimension       cn(4),cm(4),hm(4),alh(4),all(4),beth(4),
     &                  betl(4),p(5,6,4),var(6),po(5,6),ph(5,6),
     &                  pn(5,6),phe(5,6)

        common  /argexp/argmax
        common  /CONST/UMR,PI
        data po/4*0.,98.5,4*0.,320.,4*0.,-2.59E-4,2.79E-4,-3.33E-3,
     &          -3.52E-3,-5.16E-3,-2.47E-2,4*0.,-2.5E-6,1.04E-3,
     &          -1.79E-4,-4.29E-5,1.01E-5,-1.27E-3/
        data ph/-4.97E-7,-1.21E-1,-1.31E-1,0.,98.1,355.,-191.,
     &          -127.,0.,2040.,4*0.,-4.79E-6,-2.E-4,5.67E-4,
     &          2.6E-4,0.,-5.08E-3,10*0./
        data pn/7.6E-1,-5.62,-4.99,0.,5.79,83.,-369.,-324.,0.,593.,
     &          4*0.,-6.3E-5,-6.74E-3,-7.93E-3,-4.65E-3,0.,-3.26E-3,
     &          4*0.,-1.17E-5,4.88E-3,-1.31E-3,-7.03E-4,0.,-2.38E-3/
        data phe/-8.95E-1,6.1,5.39,0.,8.01,4*0.,1200.,4*0.,-1.04E-5,
     &          1.9E-3,9.53E-4,1.06E-3,0.,-3.44E-3,10*0./ 
c       data pno/-22.4,17.7,-13.4,-4.88,62.3,32.7,0.,19.8,2.07,115.,
c    &          5*0.,3.94E-3,0.,2.48E-3,2.15E-4,6.67E-3,5*0.,
c    &          -8.4E-3,0.,-3.64E-3,2.E-3,-2.59E-2/
c       data po2/8.,-12.2,9.9,5.8,53.4,-25.2,0.,-28.5,-6.72,120.,
c    &          5*0.,-1.4E-2,0.,-9.3E-3,3.3E-3,2.8E-2,5*0.,4.25E-3,
c    &          0.,-6.04E-3,3.85E-3,-3.64E-2/
c       data pcl/4*0.,100.,4*0.,75.,10*0.,4*0.,-9.04E-3,-7.28E-3,
c    &          2*0.,3.46E-3,-2.11E-2/

        z=zd*umr
        f=fd*umr

        DO 8 I=1,5
        DO 8 J=1,6
                p(i,j,1)=po(i,j)
                p(i,j,2)=ph(i,j)
                p(i,j,3)=pn(i,j)
                p(i,j,4)=phe(i,j)
c               p(i,j,5)=pno(i,j)
c               p(i,j,6)=po2(i,j)
c               p(i,j,7)=pcl(i,j)
8       continue

        s=0.
c       do 5 i=1,7
        do 5 i=1,4
          do 7 j=1,6
                var(j) = p(1,j,i)*cos(z) + p(2,j,i)*cos(f) +
     &                   p(3,j,i)*cos(0.013*(300.-fs)) +
     &                   p(4,j,i)*cos(0.52*(t-6.)) + p(5,j,i)
7         continue
          cm(i)  = var(1)
          hm(i)  = var(2)
          all(i) = var(3)
          betl(i)= var(4)
          alh(i) = var(5)
          beth(i)= var(6)
          hx=h-hm(i)
          if(hx) 1,2,3
1               arg = hx * (hx * all(i) + betl(i)) 
                cn(i) = 0.
                if(arg.gt.-argmax) cn(i) = cm(i) * exp( arg )
                goto 4
2               cn(i) = cm(i)
                goto 4
3               arg = hx * (hx * alh(i) + beth(i)) 
                cn(i) = 0.
                if(arg.gt.-argmax) cn(i) = cm(i) * exp( arg )
4         continue
          if(cn(i).LT.0.005*cm(i)) cn(i)=0.
          if(cn(i).GT.cm(i)) cn(i)=cm(i)
          s=s+cn(i)
5       continue
c       do 6 i=1,7
        do 6 i=1,4
6               cn(i)=cn(i)/s*100.
        return
        end
C
C
      Subroutine ionco2(hei,xhi,it,F,R1,R2,R3,R4)
*----------------------------------------------------------------
*     INPUT:
*      hei  -  altitude in km
*      xhi  -  solar zenith angle in degree
*      it   -  seasonal month (Northern Hemisphere January 
*              is ismo=1 and so is Southern Hemisohere July)
*      F    -  10.7cm solar radio flux (12-month running mean)
*     OUTPUT:
*     R1 -  NO+ concentration (in percent)
*     R2 -  O2+ concentration (in percent) 
*     R3 -  Cb+ concentration (in percent) 
*     R4 -  O+  concentration (in percent) 
*
*  A.D. Danilov and N.V. Smirnova, Improving the 75 to 300 km ion 
*  composition model of the IRI, Adv. Space Res. 15, #2, 171-177, 1995.
*
*-----------------------------------------------------------------
      dimension j1ms70(7),j2ms70(7),h1s70(13,7),h2s70(13,7),
     *       R1ms70(13,7),R2ms70(13,7),rk1ms70(13,7),rk2ms70(13,7),
     *       j1ms140(7),j2ms140(7),h1s140(13,7),h2s140(13,7), 
     *       R1ms140(13,7),R2ms140(13,7),rk1ms140(13,7),rk2ms140(13,7),
     *       j1mw70(7),j2mw70(7),h1w70(13,7),h2w70(13,7),
     *       R1mw70(13,7),R2mw70(13,7),rk1mw70(13,7),rk2mw70(13,7),
     *       j1mw140(7),j2mw140(7),h1w140(13,7),h2w140(13,7), 
     *       R1mw140(13,7),R2mw140(13,7),rk1mw140(13,7),rk2mw140(13,7),
     *       j1mr70(7),j2mr70(7),h1r70(13,7),h2r70(13,7),
     *       R1mr70(13,7),R2mr70(13,7),rk1mr70(13,7),rk2mr70(13,7),
     *       j1mr140(7),j2mr140(7),h1r140(13,7),h2r140(13,7), 
     *       R1mr140(13,7),R2mr140(13,7),rk1mr140(13,7),rk2mr140(13,7)
      data j1ms70/11,11,10,10,11,9,11/ 
      data j2ms70/13,11,10,11,11,9,11/
      data h1s70/75,85,90,95,100,120,130,200,220,250,270,0,0,
     *        75,85,90,95,100,120,130,200,220,250,270,0,0, 
     *        75,85,90,95,100,115,200,220,250,270,0,0,0,
     *        75,80,95,100,120,140,200,220,250,270,0,0,0,
     *        75,80,95,100,120,150,170,200,220,250,270,0,0,
     *        75,80,95,100,140,200,220,250,270,0,0,0,0,
     *        75,80,85,95,100,110,145,200,220,250,270,0,0/
      data h2s70/75,80,90,95,100,120,130,140,150,200,220,250,270,
     *        75,80,90,95,100,120,130,200,220,250,270,0,0, 
     *        75,80,90,95,100,115,200,220,250,270,0,0,0,
     *        75,80,95,100,120,140,150,200,220,250,270,0,0,
     *        75,80,95,100,120,150,170,200,220,250,270,0,0,
     *        75,80,95,100,140,200,220,250,270,0,0,0,0,
     *        75,80,90,95,100,110,145,200,220,250,270,0,0/
      data R1ms70/6,30,60,63,59,59,66,52,20,4,2,0,0,
     *         6,30,60,63,69,62,66,52,20,4,2,0,0, 
     *         6,30,60,63,80,68,53,20,4,2,0,0,0,
     *         4,10,60,85,65,65,52,25,12,4,0,0,0, 
     *         4,10,60,89,72,60,60,52,30,20,10,0,0, 
     *         4,10,60,92,68,54,40,25,13,0,0,0,0, 
     *         1,8,20,60,95,93,69,65,45,30,20,0,0/ 
      data R2ms70/4,10,30,32,41,41,32,29,34,28,15,3,1,
     *         4,10,30,32,31,38,32,28,15,3,1,0,0,
     *         4,10,30,32,20,32,28,15,3,1,0,0,0,
     *         2,6,30,15,35,30,34,26,19,8,3,0,0,
     *         2,6,30,11,28,38,29,29,25,12,5,0,0,
     *         2,6,30,8,32,30,20,14,8,0,0,0,0,
     *         1,2,10,20,5,7,31,23,18,15,10,0,0/ 
      data rk1ms70/2.4,6.,.6,-.8,0,.7,-.2,-1.6,-.533,-.1,-.067,0,0,
     *         2.4,6.,.6,1.2,-.35,.4,-.2,-1.6,-.533,-.1,-.067,0,0, 
     *         2.4,6.,.6,3.4,-.8,-.176,-1.65,-.533,-.1,-.067,0,0,0,
     *         1.2,3.333,5.,-1.,0,-.216,-1.35,-.433,-.4,-.1,0,0,0,
     *         1.2,3.333,5.8,-.85,-.4,0,-.267,-1.1,-.333,-.4,-.2,0,0, 
     *         1.2,3.333,6.4,-.6,-.233,-.7,-.5,-.6,-.267,0,0,0,0, 
     *         1.4,2.4,4.,7.,-.2,-.686,-.072,-1.,-.5,-.5,-.5,0,0/
      data rk2ms70/1.2,2.,.4,1.8,0,-.9,-.3,.5,-.12,-.65,-.4,-.1,-.033,
     *         1.2,2.,.4,-.2,.35,-.6,-.057,-.65,-.4,-.1,-.033,0,0,
     *         1.2,2.,.4,-2.4,.8,-.047,-.65,-.4,-.1,-.033,0,0,0,
     *         .8,1.6,-3.,1.,-.25,.4,-.16,-.35,-.367,-.25,-.1,0,0,
     *         .8,1.6,-3.8,.85,.333,-.45,0,-.2,-.433,-.35,-.1,0,0,
     *         .8,1.6,-4.4,.6,-.033,-.5,-.2,-.3,-.2,0,0,0,0,
     *         .2,.8,2.,-3.,.2,.686,-.145,-.25,-.1,-.25,-.2,0,0/
      data j1ms140/11,11,10,10,9,9,12/ 
      data j2ms140/11,11,10,9,10,10,12/
      data h1s140/75,85,90,95,100,120,130,140,200,220,250,0,0,
     *        75,85,90,95,100,120,130,140,200,220,250,0,0,
     *        75,85,90,95,100,120,140,200,220,250,0,0,0,
     *        75,80,95,100,120,140,200,220,250,270,0,0,0,
     *        75,80,95,100,120,200,220,250,270,0,0,0,0,
     *        75,80,95,100,130,200,220,250,270,0,0,0,0,
     *        75,80,85,95,100,110,140,180,200,220,250,270,0/
      data h2s140/75,80,90,95,100,120,130,155,200,220,250,0,0,
     *        75,80,90,95,100,120,130,160,200,220,250,0,0,
     *        75,80,90,95,100,120,165,200,220,250,0,0,0,
     *        75,80,95,100,120,180,200,250,270,0,0,0,0,
     *        75,80,95,100,120,160,200,220,250,270,0,0,0,
     *        75,80,95,100,130,160,200,220,250,270,0,0,0,
     *        75,80,90,95,100,110,140,180,200,220,250,270,0/
      data R1ms140/6,30,60,63,59,59,66,66,38,14,1,0,0,
     *         6,30,60,63,69,62,66,66,38,14,1,0,0,
     *         6,30,60,63,80,65,65,38,14,1,0,0,0,
     *         4,10,60,85,66,66,38,22,9,1,0,0,0,
     *         4,10,60,89,71,42,26,17,10,0,0,0,0,
     *         4,10,60,93,71,48,35,22,10,0,0,0,0,
     *         1,8,20,60,95,93,72,60,58,40,26,13,0/ 
      data R2ms140/4,10,30,32,41,41,30,30,10,6,1,0,0,
     *         4,10,30,32,31,38,31,29,9,6,1,0,0,
     *         4,10,30,32,20,35,26,9,6,1,0,0,0,
     *         2,6,30,15,34,24,10,5,1,0,0,0,0,
     *         2,6,30,11,28,37,21,14,8,5,0,0,0,
     *         2,6,30,7,29,36,29,20,13,5,0,0,0,
     *         1,2,10,20,5,7,28,32,28,20,14,7,0/ 
      data rk1ms140/2.4,6.,.6,-.8,0,.7,0,-.467,-1.2,-.433,0,0,0,
     *         2.4,6.,.6,1.2,-.35,.4,0,-.467,-1.2,-.433,0,0,0,    
     *         2.4,6.,.6,3.4,-.75,0,-.45,-1.2,-.433,0,0,0,0,
     *         1.2,3.333,5.,-.95,0,-.467,-.8,-.433,-.4,0,0,0,0,
     *         1.2,3.333,5.8,-.9,-.363,-.8,-.3,-.35,-.3,0,0,0,0,
     *         1.2,3.333,6.6,-.733,-.329,-.65,-.433,-.6,-.267,0,0,0,0,
     *         1.4,2.4,4.,7.,-.2,-.7,-.3,-.1,-.9,-.467,-.65,-.333,0/
      data rk2ms140/1.2,2.,.4,1.8,0,-1.1,0,-.444,-.2,-.166,0,0,0,
     *         1.2,2.,.4,-.2,.35,-.7,-.067,-.5,-.15,-.166,0,0,0,
     *         1.2,2.,.4,-2.4,.75,-.2,-.486,-.15,-.166,0,0,0,0,
     *         .8,1.6,-3.,.95,-.167,-.7,-.1,-.2,0,0,0,0,0,
     *         .8,1.6,-3.8,.85,.225,-.4,-.35,-.2,-.15,-.133,0,0,0,
     *         .8,1.6,-4.6,.733,.233,-.175,-.45,-.233,-.4,-.1,0,0,0, 
     *         .2,.8,2.,-3.,.2,.7,.1,-.2,-.4,-.2,-.35,-.167,0/
      data j1mr70/12,12,12,9,10,11,13/ 
      data j2mr70/9,9,10,13,12,11,11/
      data h1r70/75,80,90,95,100,120,140,180,200,220,250,270,0,
     *        75,80,90,95,100,120,145,180,200,220,250,270,0, 
     *        75,80,90,95,100,120,145,180,200,220,250,270,0,  
     *        75,95,100,110,140,180,200,250,270,0,0,0,0,
     *        75,95,125,150,185,195,200,220,250,270,0,0,0,
     *        75,95,100,150,160,170,190,200,220,250,270,0,0,
     *        75,80,85,95,100,140,160,170,190,200,220,250,270/
      data h2r70/75,95,100,120,180,200,220,250,270,0,0,0,0,
     *        75,95,100,120,180,200,220,250,270,0,0,0,0, 
     *        75,95,100,120,130,190,200,220,250,270,0,0,0, 
     *        75,80,85,95,100,110,130,180,190,200,220,250,270,
     *        75,80,85,95,100,125,150,190,200,220,250,270,0,
     *        75,80,85,95,100,150,190,200,220,250,270,0,0, 
     *        75,85,95,100,140,180,190,200,220,250,270,0,0/
      data R1mr70/13,17,57,57,30,53,58,38,33,14,6,2,0,
     *         13,17,57,57,37,56,56,38,33,14,6,2,0, 
     *         13,17,57,57,47,58,55,37,33,14,6,2,0, 
     *         5,65,54,58,58,38,33,9,1,0,0,0,0, 
     *         5,65,65,54,40,40,45,26,17,10,0,0,0,    
     *         5,65,76,56,57,48,44,51,35,22,10,0,0, 
     *         3,11,35,75,90,65,63,54,54,50,40,26,13/ 
      data R2mr70/7,43,70,47,15,17,10,4,0,0,0,0,0,
     *         7,43,63,44,17,17,10,4,0,0,0,0,0, 
     *         7,43,53,42,42,13,17,10,4,0,0,0,0,
     *         3,5,26,34,46,42,41,23,16,16,10,1,0,
     *         3,5,26,34,35,35,42,25,22,14,8,5,0, 
     *         3,5,26,34,24,41,31,26,20,13,5,0,0,
     *         3,15,15,10,35,35,30,34,20,14,7,0,0/ 
      data rk1mr70/.8,4.,0,-5.4,1.15,.25,-.5,-.25,-.95,-.267,-.2,
     *             -.067,0,
     *         .8,4.,0,-4.,.95,0,-.514,-.25,-.95,-.267,-.2,-.067,0, 
     *         .8,4.,0,-2.,.55,-.12,-.514,-.2,-.95,-.267,-.2,-.067,0, 
     *         3.,-2.2,.4,0,-.5,-.25,-.48,-.4,-.033,0,0,0,0,   
     *         3.,0,-.44,-.466,0,1.0,-.95,-.3,-.35,-.3,0,0,0, 
     *         3.,2.2,-.4,0.1,-.9,-.2,.7,-.8,-.433,-.6,-.267,0,0, 
     *         1.6,4.8,4.,3.,-.625,-.1,-.9,0,-.4,-.5,-.467,-.65,-.3/
      data rk2mr70/1.8,5.4,-1.15,-.533,.1,-.35,-.2,-.2,0,0,0,0,0,
     *         1.8,4.,-.95,-.45,0,-.35,-.2,-.2,0,0,0,0,0,
     *         1.8,2.,-.55,0,-.483,.4,-.35,-.2,-.2,0,0,0,0,    
     *         .4,4.2,.8,2.4,-.4,-.05,-.36,-.7,0,-.3,-.3,-.05,0,
     *         .4,4.2,.8,.2,0,.28,-.425,-.3,-.4,-.2,-.15,-.133,0,  
     *         .4,4.2,.8,-2.,.34,-.25,-.5,-.3,-.233,-.4,-.1,0,0,  
     *         1.2,0,-1.,.625,0,-.5,.4,-.7,-.2,-.35,-.167,0,0/
      data j1mr140/12,12,11,12,9,9,13/ 
      data j2mr140/10,9,10,12,13,13,12/
      data h1r140/75,80,90,95,100,115,130,145,200,220,250,270,0,
     *        75,80,90,95,100,110,120,145,200,220,250,270,0, 
     *        75,80,90,95,100,115,150,200,220,250,270,0,0,
     *        75,95,100,120,130,140,150,190,200,220,250,270,0,
     *        75,95,120,150,190,200,220,250,270,0,0,0,0,
     *        75,95,100,145,190,200,220,250,270,0,0,0,0,
     *        75,80,85,95,100,120,160,170,190,200,220,250,270/
      data h2r140/75,95,100,115,130,175,200,220,250,270,0,0,0,
     *        75,95,100,110,175,200,220,250,270,0,0,0,0, 
     *        75,95,100,115,130,180,200,220,250,270,0,0,0, 
     *        75,80,85,95,100,120,130,190,200,220,250,270,0,
     *        75,80,85,95,100,120,140,160,190,200,220,250,270,
     *        75,80,85,95,100,145,165,180,190,200,220,250,270,
     *        75,85,95,100,120,145,170,190,200,220,250,270,0/
      data R1mr140/13,17,57,57,28,51,56,56,12,8,1,0,0,
     *         13,17,57,57,36,46,55,56,10,8,1,0,0, 
     *         13,17,57,57,46,56,55,12,8,1,0,0,0,
     *         5,65,54,59,56,56,53,23,16,13,3,1,0,
     *         5,65,65,54,29,16,16,10,2,0,0,0,0,
     *         5,65,76,58,36,25,20,12,7,0,0,0,0,
     *         3,11,35,75,91,76,58,49,45,32,28,20,12/ 
      data R2mr140/7,43,72,49,44,14,7,4,1,0,0,0,0,
     *         7,43,64,51,14,7,4,1,0,0,0,0,0, 
     *         7,43,54,44,44,13,7,4,1,0,0,0,0,
     *         3,5,26,34,46,41,44,9,11,7,2,1,0,
     *         3,5,26,34,35,35,40,40,16,14,9,5,2, 
     *         3,5,26,34,24,40,40,32,19,20,10,7,3,
     *         3,15,15,9,24,35,40,28,28,20,10,8,0/ 
      data rk1mr140/.8,4.,0,-5.8,1.533,.333,0,-.8,-.2,-.233,-.05,0,0,
     *         .8,4.,0,-4.2,1.3,.6,.04,-.836,-.1,-.233,-.05,0,0,
     *         .8,4.,0,-2.2,.667,-.029,-.86,-.2,-.233,-.05,0,0,0,         
     *         3.,-2.2,.25,-.3,0,-.3,-.75,-.7,-.15,-.333,-.1,-.033,0,
     *         3.,0,-.367,-.625,-1.3,0,-.2,-.4,-.067,0,0,0,0, 
     *         3.,2.2,-.4,-.489,-1.1,-.25,-.267,-.25,-.2,0,0,0,0,
     *         1.6,4.8,4.,3.2,-.75,-.45,-.9,-.2,-1.3,-.2,-.267,-.4,-.3/
      data rk2mr140/1.8,5.8,-1.533,-.333,-.667,-.28,-.15,-.1,-.05,
     *              0,0,0,0,
     *         1.8,4.2,-1.3,-.569,-.28,-.15,-.1,-.05,0,0,0,0,0,
     *         1.8,2.2,-.667,0,-.62,-.3,-.15,-.1,-.05,0,0,0,0,    
     *         .4,4.2,.8,2.4,-.25,.3,-.583,.2,-.2,-.167,-.05,-.033,0,
     *         .4,4.2,.8,.02,0,.25,0,-.6,-.2,-.25,-.133,-.15,-.067,  
     *         .4,4.2,.8,-2.,.356,0,-.533,-1.3,.1,-.5,-.1,-.2,-.1,  
     *         1.2,0,-1.2,.75,.44,.2,-.6,0,-.4,-.333,-.1,-.2,0/
      data j1mw70/13,13,13,13,9,8,9/ 
      data j2mw70/10,10,11,11,9,8,11/
      data h1w70/75,80,85,95,100,110,125,145,180,200,220,250,270,
     *        75,80,85,95,100,110,120,150,180,200,220,250,270,
     *        75,80,85,95,100,110,120,155,180,200,220,250,270,
     *        75,80,90,100,110,120,140,160,190,200,220,250,270, 
     *        75,80,90,110,150,200,220,250,270,0,0,0,0,
     *        75,80,90,100,150,200,250,270,0,0,0,0,0,
     *        75,80,90,100,120,130,140,200,270,0,0,0,0/
      data h2w70/75,90,95,100,110,125,190,200,250,270,0,0,0,
     *        75,90,95,100,110,125,190,200,250,270,0,0,0, 
     *        75,90,95,100,110,120,145,190,200,250,270,0,0,
     *        75,80,95,100,110,120,150,200,220,250,270,0,0,
     *        75,80,90,95,110,145,200,250,270,0,0,0,0,
     *        75,80,90,100,140,150,200,250,0,0,0,0,0,
     *        75,80,85,90,100,120,130,140,160,200,270,0,0/ 
      data R1mw70/28,35,65,65,28,44,46,50,25,25,10,5,0,
     *         28,35,65,65,36,49,47,47,25,25,10,5,0,
     *         28,35,65,65,48,54,51,43,25,25,10,5,0,
     *         16,24,66,54,58,50,50,38,25,25,10,5,0, 
     *         16,24,66,66,46,30,20,6,3,0,0,0,0,  
     *         16,24,66,76,49,32,12,7,0,0,0,0,0,      
     *         6,19,67,91,64,68,60,40,12,0,0,0,0/ 
      data R2mw70/5,35,35,72,56,54,12,12,2,0,0,0,0,
     *         5,35,35,64,51,53,12,12,2,0,0,0,0, 
     *         5,35,35,52,46,49,41,12,12,2,0,0,0,
     *         4,10,40,46,42,50,41,12,7,2,0,0,0,
     *         4,10,30,34,34,51,14,4,2,0,0,0,0,
     *         4,10,30,24,45,48,20,5,0,0,0,0,0,
     *         2,6,17,23,9,36,32,40,40,20,6,0,0/ 
      data rk1mw70/1.4,6.,0,-7.4,1.6,.133,.2,-.714,0,-.75,-.167,-.25,0,
     *         1.4,6.,0,-5.8,1.3,-.2,0,-.733,0,-.75,-.167,-.25,0,
     *         1.4,6.,0,-3.4,.6,-.3,-.229,-.72,0,-.75,-.167,-.25,0,
     *         1.6,4.2,-1.2,.4,-.8,0,-.6,-.433,0,-.75,-.167,-.25,0,   
     *         1.6,4.2,0,-.5,-.32,-.5,-.467,-.15,-.1,0,0,0,0,
     *         1.6,4.2,1.,-.54,-.34,-.4,-.25,-.2,0,0,0,0,0,      
     *         2.6,4.8,2.4,-1.35,.4,-.8,-.333,-.4,-.3,0,0,0,0/
      data rk2mw70/2.,0,7.4,-1.6,-.133,-.646,0,-.2,-.1,0,0,0,0,
     *         2.,0,5.8,-1.3,.133,-.631,0,-.2,-.1,0,0,0,0,    
     *         2.,0,3.4,-.6,.3,-.32,-.644,0,-.2,-.1,0,0,0,
     *         1.2,2.,1.2,-.4,.8,-.3,-.58,-.25,-.167,-.1,0,0,0,
     *         1.2,2.,.8,0,.486,-.673,-.2,-.1,-.066,0,0,0,0,  
     *         1.2,2.,-.6,.525,.3,-.56,-.3,-.1,0,0,0,0,0,  
     *         .8,2.2,1.2,-1.4,1.35,-.4,.8,0,-.5,-.2,-.167,0,0/
      data j1mw140/12,11,11,11,11,10,12/ 
      data j2mw140/10,11,11,11,11,10,12/
      data h1w140/75,80,85,95,100,110,125,145,190,200,220,250,0,
     *        75,80,85,95,100,110,120,150,190,220,250,0,0,
     *        75,80,85,95,100,110,120,155,190,220,250,0,0,
     *        75,80,90,100,110,120,140,160,190,220,250,0,0,
     *        75,80,90,110,150,160,190,200,220,250,270,0,0,
     *        75,80,90,100,150,160,190,200,250,270,0,0,0,
     *        75,80,90,100,120,130,140,160,190,200,250,270,0/
      data h2w140/75,90,95,100,110,125,190,200,220,250,0,0,0,
     *        75,90,95,100,110,120,125,190,200,220,250,0,0,
     *        75,90,95,100,110,120,145,190,200,220,250,0,0,  
     *        75,80,95,100,110,120,150,190,200,220,250,0,0,
     *        75,80,90,95,110,145,190,200,220,250,270,0,0,
     *        75,80,90,100,140,150,200,220,250,270,0,0,0,
     *        75,80,85,90,100,120,130,140,160,180,200,220,0/ 
      data R1mw140/28,35,65,65,28,44,46,50,9,6,2,0,0,
     *         28,35,65,65,36,49,47,47,8,2,0,0,0,
     *         28,35,65,65,48,54,51,43,8,2,0,0,0,
     *         16,24,66,54,58,50,50,42,8,2,0,0,0, 
     *         16,24,66,66,46,49,9,10,7,2,0,0,0,
     *         16,24,66,76,49,54,10,14,4,1,0,0,0,
     *         6,19,67,91,64,68,60,58,11,20,5,2,0/ 
      data R2mw140/5,35,35,72,56,54,5,5,1,0,0,0,0,
     *         5,35,35,64,51,53,53,5,5,1,0,0,0,
     *         5,35,35,52,46,49,41,5,5,1,0,0,0,    
     *         4,10,40,46,42,50,41,5,5,1,0,0,0,   
     *         4,10,30,34,34,51,10,5,3,1,0,0,0,  
     *         4,10,30,24,45,48,4,2,1,0,0,0,0,
     *         2,6,17,23,9,36,32,40,39,29,1,0,0/ 
      data rk1mw140/1.4,6.,0,-7.4,1.6,.133,.2,-.911,-.3,-.2,-.066,0,0,
     *         1.4,6.,0,-5.8,1.3,-.2,0,-.975,-.2,-.066,0,0,0,
     *         1.4,6.,0,-3.4,.6,-.3,-.229,-1.,-.2,-.066,0,0,0,
     *         1.6,4.2,-1.2,.4,-.8,0,-.4,-1.133,-.2,-.066,0,0,0,
     *         1.6,4.2,0,-.5,.3,-1.133,.1,-.15,-.166,-.1,0,0,0,
     *         1.6,4.2,1.,-.54,.5,-1.466,.4,-.2,-.15,-.0333,0,0,0,
     *         2.6,4.8,2.4,-1.35,.4,-.8,-.1,-1.566,.9,-.3,-.15,-.05,0/
      data rk2mw140/2.,0,7.4,-1.6,-.133,-.754,0,-.2,-.033,0,0,0,0,
     *         2.,0,5.8,-1.3,.2,0,-.738,0,-.2,-.033,0,0,0,
     *         2.,0,3.4,-.6,.3,-.32,-.8,0,-.2,-.033,0,0,0,
     *         1.2,2.,1.2,-.4,.8,-.3,-.9,0,-.2,-.033,0,0,0,
     *         1.2,2.,.8,0,.486,-.911,-.5,-.1,-.066,-.05,0,0,0,
     *         1.2,2.,-.6,.525,.3,-.88,-.1,-.033,-.05,0,0,0,0,
     *         .8,2.2,1.2,-1.4,1.35,-.4,.8,-.05,-.5,-1.4,-.05,0,0/

        h = hei
        z = xhi

         if(z.lt.20)z=20
         if(z.gt.90)z=90
        if((it.eq.1).or.(it.eq.2).or.(it.eq.11).or.(it.eq.12))then
         if(f.lt.140)then
           Call aprok(j1mw70,j2mw70,h1w70,h2w70,R1mw70,R2mw70,        
     *                rk1mw70,rk2mw70,h,z,R1,R2) 
           R170=R1
           R270=R2
           endif
         if(f.gt.70)then
           Call aprok(j1mw140,j2mw140,h1w140,h2w140,R1mw140,R2mw140,        
     *                rk1mw140,rk2mw140,h,z,R1,R2) 
           R1140=R1
           R2140=R2
           endif
         if((f.gt.70).and.(f.lt.140))then
           R1=R170+(R1140-R170)*(f-70)/70
           R2=R270+(R2140-R270)*(f-70)/70
           endif
         endif
        if((it.eq.5).or.(it.eq.6).or.(it.eq.7).or.(it.eq.8))then
         if(f.lt.140)then
           Call aprok(j1ms70,j2ms70,h1s70,h2s70,R1ms70,R2ms70,        
     *                rk1ms70,rk2ms70,h,z,R1,R2) 
           R170=R1
           R270=R2
           endif
         if(f.gt.70)then
           Call aprok(j1ms140,j2ms140,h1s140,h2s140,R1ms140,R2ms140,        
     *                rk1ms140,rk2ms140,h,z,R1,R2) 
           R1140=R1
           R2140=R2
           endif
         if((f.gt.70).and.(f.lt.140))then
           R1=R170+(R1140-R170)*(f-70)/70
           R2=R270+(R2140-R270)*(f-70)/70
           endif
         endif
        if((it.eq.3).or.(it.eq.4).or.(it.eq.9).or.(it.eq.10))then
         if(f.lt.140)then
           Call aprok(j1mr70,j2mr70,h1r70,h2r70,R1mr70,R2mr70,        
     *                rk1mr70,rk2mr70,h,z,R1,R2) 
           R170=R1
           R270=R2
           endif
         if(f.gt.70)then
           Call aprok(j1mr140,j2mr140,h1r140,h2r140,R1mr140,R2mr140,
     *                rk1mr140,rk2mr140,h,z,R1,R2) 
           R1140=R1
           R2140=R2
           endif
         if((f.gt.70).and.(f.lt.140))then
           R1=R170+(R1140-R170)*(f-70)/70
           R2=R270+(R2140-R270)*(f-70)/70
           endif
         endif
        R3=0
        R4=0
        if (h.lt.100) R3=100-(R1+R2)
        if (h.ge.100) R4=100-(R1+R2)
         if(R3.lt.0) R3=0
         if(R4.lt.0) R4=0
        R1=ANINT(R1)
        R2=ANINT(R2)
        R3=ANINT(R3)
        R4=ANINT(R4)
 300   continue
        end
c
c
      Subroutine aprok(j1m,j2m,h1,h2,R1m,R2m,rk1m,rk2m,hei,xhi,R1,R2)
c----------------------------------------------------------------- 
      dimension   zm(7),j1m(7),j2m(7),h1(13,7),h2(13,7),R1m(13,7),
     *            R2m(13,7),rk1m(13,7),rk2m(13,7)
      data        zm/20,40,60,70,80,85,90/
      
        h=hei
        z=xhi

         j1=1
         j2=1
         i1=1
       do 1 i=1,7
         i1=i
        if(z.eq.zm(i)) j1=0
        if(z.le.zm(i)) goto 11
 1     continue
 11    continue
          i2=1
         do 2 i=2,j1m(i1)
          i2=i-1
          if(h.lt.h1(i,i1)) goto 22
          i2=j1m(i1)
 2       continue
 22      continue
          i3=1
         do 3 i=2,j2m(i1)
          i3=i-1
          if(h.lt.h2(i,i1)) goto 33
          i3=j2m(i1)
 3       continue
 33      continue
        R01=R1m(i2,i1)
        R02=R2m(i3,i1)
        rk1=rk1m(i2,i1)
        rk2=rk2m(i3,i1)
        h01=h1(i2,i1)
        h02=h2(i3,i1)
        R1=R01+rk1*(h-h01)
        R2=R02+rk2*(h-h02)
        if(j1.eq.1)then
          j1=0
          j2=0
          i1=i1-1
          R11=R1
          R12=R2
          goto 11
        endif
        if(j2.eq.0)then
          rk=(z-zm(i1))/(zm(i1+1)-zm(i1)) 
          R1=R1+(R11-R1)*rk
          R2=R2+(R12-R2)*rk
        endif
       end
C
C
	SUBROUTINE CALION(INVDIP,MLT,ALT,DDD,PF107,NO,NH,NHE,NN)
C----------------------------------------------------------------------
C Version 2.5 (released 6.4.2016) (Includes a correction for PF107<87.5 
C based on C/NOFS CINDI data)
C CALION calculates ion density of O+, H+, He+ and N+  in the outer
C ionosphere with regard to solar activity (F107 index).
C CALION uses subroutines IONLOW and IONHIGH.
C Linearly interpolates the logarithmic ion densities in solar activity.
C
C Inputs: INVDIP - "mix" coordinate of the dip latitude and of
C                    the invariant latitude;
C                    positive northward, in deg, range <-90.0;90.0>
C         MLT - magnetic local time (central dipole)
C               in hours, range <0;24)
C         ALT - altitude above the Earth's surface;
C               in km, range <350;2000>
C         DDD - day of year; range <0;365>
C         PF107 - PF107 index
C Output: NO,NH,NHE,NN - relative density of O+, H+, He+, and N+ in %
C
C Versions:  2.5 FORTRAN
C
C REFERENCES:
C   Triskova, L., Truhlik, V., Smilauer, J. An empirical model of ion
C      composition in the outer ionosphere. Adv. Space Res. 31 (3), 
C      653–663, 2003.
C   Truhlik, V., Triskova, L., Smilauer, J. New advances in empirical
C      modeling of ion composition in the outer ionosphere. Adv. Space
C      Res. 33, 844–849, 2004.
C   Truhlik V., D. Bilitza, L. Triskova, Towards better description of 
C     solar activity variation in the International Reference Ionosphere 
C     topside ion composition model, Advances in Space Research, 
C     Volume 55, Issue 8, 15 April 2015, Pages 2099-2105, ISSN 0273-1177, 
C     http://dx.doi.org/10.1016/j.asr.2014.07.033.
C
C Author of the code:
C         Vladimir Truhlik
C         Institute of Atm. Phys.
C         Bocni II.
C         141 31 Praha 4, Sporilov
C         Czech Republic
C         e-mail: vtr@ufa.cas.cz
C         tel/fax: +420 267103058, +420 728073539 / +420 272 762528
C----------------------------------------------------------------------
      REAL INVDIP,MLT,ALT,PF107
      INTEGER DDD,ION
      REAL NO,NH,NHE,NN,NOH,NHH,NHEH,NNH,NOL,NHL,NHEL,NNL,NTOT
      REAL NOCORR,NHCORR
      DIMENSION  DOL(4,3,49),DHL(4,3,49),DHEL(4,3,49),DNL(4,3,49)
      DIMENSION  DOH(4,3,49),DHH(4,3,49),DHEH(4,3,49),DNH(4,3,49)
      DIMENSION  CORRO(3),CORRH(3)
C/////////////////////coefficients high solar activity////////////////////////
C//////////////////////////////////O+/////////////////////////////////////////
C     550km equinox
      DATA (DOH(1,1,J),J=1,49)/ 1.1638E+001, 2.1979E-006,-2.3248E-001,
     &                       -3.3214E-007, 1.1898E-001, 3.0748E-006,
     &                        2.6115E-003,-2.4560E-001, 1.2462E-007,
     &                        2.0023E-002, 1.6400E-007, 6.2374E-003,
     &                       -6.4331E-008,-2.6353E-001, 3.3890E-008,
     &                        3.6762E-002, 1.8064E-007,-2.2751E-002,
     &                        2.8274E-008, 1.1224E-001,-1.9642E-007,
     &                       -8.7787E-003,-6.0584E-009,-4.6188E-003,
     &                        1.0754E-002, 1.0973E-007, 8.7284E-003,
     &                        5.2698E-008, 5.1970E-003,-6.6284E-002,
     &                       -5.0381E-007, 2.5389E-003, 1.7134E-007,
     &                        2.2995E-002, 4.7651E-007, 4.8065E-004,
     &                       -1.5021E-008, 2.1538E-003,-1.8609E-007,
     &                        5.0122E-003, 3.2356E-003, 2.1760E-008,
     &                        9.9773E-004,-1.6112E-003,-1.7006E-007,
     &                        4.5044E-003, 8.6730E-008, 1.4997E-003,
     &                       -4.2748E-003/
C     550km June solstice
      DATA (DOH(1,2,J),J=1,49)/ 1.1466E+001, 4.0119E-001,-4.1736E-001,
     &                       -1.9200E-001, 3.7017E-002,-2.6320E-002,
     &                       -7.3409E-002,-1.6393E-001,-7.5744E-003,
     &                        4.7543E-002,-5.9249E-003,-9.1045E-003,
     &                        7.5707E-003,-6.6604E-002, 3.3164E-002,
     &                        8.8713E-003, 6.9505E-003,-3.7147E-003,
     &                       -9.4076E-003,-4.7440E-002, 5.1116E-004,
     &                       -2.0023E-002, 1.1603E-002, 5.8822E-003,
     &                       -1.8973E-002,-3.2266E-004,-1.0472E-002,
     &                        8.7367E-003, 8.7078E-004, 3.0624E-002,
     &                       -1.4384E-002, 1.1849E-003, 1.6199E-003,
     &                        5.2375E-002,-5.1855E-003, 5.0677E-003,
     &                        5.8491E-004,-2.6023E-002, 2.1862E-003,
     &                        1.7057E-004, 1.4512E-003, 9.2850E-003,
     &                       -1.8361E-003,-1.5087E-002, 1.6268E-003,
     &                       -5.1916E-003, 3.1410E-003,-7.5738E-003,
     &                        2.0747E-003/
C     900km equinox
      DATA (DOH(2,1,J),J=1,49)/ 1.0822E+001, 1.0243E-006,-1.1612E-002,
     &                       -3.9090E-006, 1.7949E-001, 5.2434E-006,
     &                       -5.5277E-002,-4.2250E-001, 2.2743E-007,
     &                       -1.7850E-002,-2.1446E-007, 2.0109E-002,
     &                        2.5441E-008,-2.8437E-001, 2.8675E-007,
     &                        4.6531E-002,-1.7470E-007,-1.2887E-002,
     &                       -7.0467E-008,-1.1997E-001, 2.0672E-007,
     &                       -2.1904E-002, 3.2349E-008, 1.4037E-002,
     &                        5.9543E-002, 4.1880E-007,-3.2790E-004,
     &                       -9.1809E-008, 8.8505E-003,-1.0878E-002,
     &                       -4.1668E-007,-1.6918E-002, 4.1870E-008,
     &                       -3.1914E-002, 2.2837E-007,-1.0269E-002,
     &                       -3.4403E-008, 6.6131E-004,-1.4563E-007,
     &                       -6.0043E-003,-1.7662E-002,-1.6897E-009,
     &                       -7.6391E-003,-3.0607E-003,-1.5907E-007,
     &                       -8.2787E-003, 2.1356E-009,-7.6774E-003,
     &                        1.2753E-002/
C     900km June solstice
      DATA (DOH(2,2,J),J=1,49)/ 1.0620E+001, 4.1405E-001, 4.7224E-002,
     &                       -1.7052E-001, 2.0812E-002,-1.6568E-002,
     &                       -1.7739E-002,-3.6758E-001, 1.2945E-001,
     &                       -5.7690E-002, 1.6517E-002, 4.3426E-004,
     &                       -8.4872E-003,-1.7111E-001,-4.3498E-002,
     &                        9.6720E-002, 6.6361E-003,-1.7696E-002,
     &                       -7.3752E-003,-5.9474E-002, 7.0600E-002,
     &                       -2.1261E-002,-4.5486E-003,-2.3596E-003,
     &                       -6.0694E-002,-3.4020E-002, 2.5395E-002,
     &                       -1.0267E-002, 5.1524E-003, 2.4349E-002,
     &                        1.2764E-002, 4.7153E-003, 3.0511E-003,
     &                        7.1283E-002, 7.9275E-003, 9.1649E-003,
     &                       -1.2318E-003,-4.2938E-002,-3.0165E-003,
     &                        2.9838E-003,-1.6615E-002, 1.2946E-003,
     &                        2.7673E-003,-3.7213E-002, 6.0640E-004,
     &                       -2.7206E-002, 1.4542E-003,-2.8307E-002,
     &                       -7.3467E-003/
C     1500km equinox
      DATA (DOH(3,1,J),J=1,49)/ 9.7937E+000,-1.9164E-006, 3.5453E-001,
     &                        1.6223E-006, 2.0156E-001,-1.0210E-006,
     &                       -1.1503E-001,-8.2204E-001, 5.7192E-008,
     &                       -4.8372E-002, 9.9279E-008, 6.0963E-002,
     &                        4.4030E-008,-4.0169E-001,-1.2124E-006,
     &                        1.1542E-001, 7.4444E-007,-1.6794E-002,
     &                       -7.7795E-008,-2.3478E-001, 1.8889E-006,
     &                       -5.7216E-002,-8.5613E-008, 2.2638E-003,
     &                       -1.8245E-001,-6.7741E-007, 5.6764E-004,
     &                        1.0843E-007, 8.6873E-003,-3.2154E-002,
     &                        1.2769E-006,-2.3455E-002, 2.3495E-008,
     &                        4.4324E-002, 5.8249E-007,-9.7873E-003,
     &                       -4.9479E-008,-4.3582E-002, 2.4400E-007,
     &                       -4.7593E-003, 1.1520E-002, 6.1115E-007,
     &                       -6.1079E-003, 4.6842E-003,-7.7660E-008,
     &                       -1.4542E-002, 1.3010E-007, 1.2669E-004,
     &                        2.6225E-002/
C     1500km June solstice
      DATA (DOH(3,2,J),J=1,49)/ 9.7559E+000, 7.3006E-001, 2.3915E-002,
     &                       -3.5479E-001, 2.3232E-001, 4.3105E-002,
     &                       -8.3276E-002,-6.1803E-001, 2.4574E-001,
     &                        1.0126E-002,-1.3819E-002, 5.2543E-002,
     &                       -2.4424E-002,-1.6943E-001, 4.6190E-002,
     &                        5.4503E-002,-4.7693E-002, 2.8382E-002,
     &                       -4.0051E-002, 3.6658E-002,-7.1019E-002,
     &                        3.3261E-002, 1.4489E-003, 2.5216E-003,
     &                       -2.6986E-003, 2.8257E-003, 1.1303E-002,
     &                        1.3446E-002, 6.4292E-004, 7.0927E-002,
     &                       -4.8257E-002, 1.1750E-002, 2.9293E-004,
     &                        3.0686E-002,-2.9274E-002,-1.4456E-004,
     &                        2.2379E-003,-1.6401E-002,-1.1951E-002,
     &                       -8.3522E-005,-2.2854E-003,-5.1928E-003,
     &                       -1.0387E-003,-2.4951E-002, 2.3471E-003,
     &                       -1.3592E-002,-2.2130E-003,-7.8338E-003,
     &                        7.0712E-004/
C     2250km equinox
      DATA (DOH(4,1,J),J=1,49)/ 9.1209E+000,-3.5060E-008, 5.6220E-001,
     &                        7.2825E-007, 1.8242E-001, 1.6496E-006,
     &                       -1.3481E-001,-6.2102E-001, 1.3313E-006,
     &                       -7.2196E-002, 2.8528E-007, 3.9029E-002,
     &                        5.3745E-008,-6.0644E-001, 3.8846E-007,
     &                        1.0864E-001,-2.9182E-007, 1.9555E-002,
     &                        1.1610E-008,-1.1778E-001, 6.6455E-009,
     &                       -4.3774E-002, 2.4623E-007,-7.3456E-003,
     &                       -1.0794E-001, 2.8097E-007,-6.1924E-003,
     &                        5.5108E-008, 6.5963E-003, 9.7996E-003,
     &                       -1.4108E-007, 1.3135E-002, 3.9136E-009,
     &                        2.0612E-001, 1.5759E-007, 2.9679E-003,
     &                        1.9150E-007, 5.5943E-002,-9.0442E-009,
     &                        8.7562E-003, 7.1924E-002,-8.2087E-008,
     &                        3.7554E-003, 3.5717E-003, 7.9697E-008,
     &                        7.6157E-003,-8.0663E-008,-3.9358E-003,
     &                        1.0457E-002/
C     2250km June solstice
      DATA (DOH(4,2,J),J=1,49)/ 8.9497E+000, 6.7881E-001, 3.9055E-001,
     &                       -3.2002E-001, 1.3908E-001, 2.8471E-002,
     &                       -1.7994E-001,-7.3377E-001, 1.1401E-001,
     &                       -1.6313E-002, 5.8219E-002,-2.4831E-003,
     &                       -1.8989E-002,-6.0576E-001, 1.2761E-001,
     &                        7.9504E-002,-5.2144E-002, 1.1163E-002,
     &                        6.6893E-004,-3.4924E-002, 1.6598E-002,
     &                       -7.1152E-003, 4.5419E-003,-2.5894E-003,
     &                       -1.7938E-001,-9.1538E-003,-5.5001E-003,
     &                        8.3203E-003, 1.2648E-003, 1.8489E-001,
     &                        2.9295E-003, 7.8076E-003,-6.2127E-003,
     &                       -6.9425E-002, 6.4065E-003,-3.1037E-003,
     &                        2.8284E-003,-1.5089E-002, 1.3666E-003,
     &                        2.2100E-003, 3.6826E-003, 9.4428E-003,
     &                       -2.4497E-003,-1.0100E-002,-4.1794E-003,
     &                       -2.4757E-002, 8.2641E-005,-9.0907E-003,
     &                       -5.7800E-003/
C//////////////////////////////////////////////////////////////////////
C//////////////////////////////////H+//////////////////////////////////
C     550km equinox
      DATA (DHH(1,1,J),J=1,49)/ 8.4599E+000,-9.9884E-007,-3.5443E-001,
     &                       -6.5810E-007,-2.9651E-002, 5.2904E-007,
     &                        9.3573E-003, 4.5701E-001, 1.9996E-007,
     &                       -2.4248E-002, 7.7567E-008, 1.1724E-002,
     &                       -2.3639E-008, 4.2217E-003,-1.1230E-007,
     &                        2.3361E-002, 1.2442E-007,-7.5842E-003,
     &                        2.9140E-008, 5.0338E-002,-5.2187E-008,
     &                        7.0107E-003,-6.2618E-008,-1.1794E-003,
     &                       -1.2422E-001,-7.0145E-008,-6.0802E-003,
     &                       -1.7967E-008,-3.5129E-003,-5.8675E-002,
     &                        1.8341E-008, 1.2289E-003,-1.1887E-008,
     &                        1.1607E-001, 2.2739E-008, 1.4341E-002,
     &                       -8.2486E-009,-3.2079E-002,-4.4285E-008,
     &                        2.1810E-003, 4.0119E-002, 3.4542E-009,
     &                        1.4022E-003,-9.4002E-003, 2.0700E-008,
     &                        6.9210E-003, 1.3041E-008,-3.3684E-004,
     &                        8.8583E-003/
C     550km June solstice
      DATA (DHH(1,2,J),J=1,49)/ 8.7052E+000,-1.0386E-002,-3.9422E-001,
     &                        2.2079E-002, 1.0061E-001,-1.0053E-001,
     &                       -3.8012E-002, 4.0303E-001, 1.1450E-001,
     &                       -3.6893E-002, 7.1546E-003, 4.8412E-003,
     &                       -3.1532E-003, 5.3452E-002,-7.1005E-002,
     &                        1.1385E-002, 2.0830E-004,-3.4358E-003,
     &                       -9.9962E-004, 1.0466E-001, 2.6587E-002,
     &                       -5.0469E-004, 1.0174E-002,-3.1445E-004,
     &                       -1.4247E-001, 1.0854E-002,-8.3255E-003,
     &                       -1.0450E-002, 3.3930E-003,-4.1298E-002,
     &                        8.3111E-003, 2.4336E-003,-2.3697E-003,
     &                       -2.1893E-002, 1.5365E-002, 3.0954E-003,
     &                       -5.5201E-003,-1.1731E-002, 1.1634E-002,
     &                       -1.4933E-003, 5.2614E-004, 7.8891E-003,
     &                       -1.0120E-003,-8.6891E-003, 8.2004E-003,
     &                        6.2137E-003, 4.2136E-003,-1.3120E-002,
     &                        9.2474E-003/
C     900km equinox
      DATA (DHH(2,1,J),J=1,49)/ 9.3870E+000,-1.3719E-007,-8.3508E-001,
     &                       -5.9282E-007, 6.1012E-002,-5.2218E-007,
     &                        1.9141E-001, 4.1174E-001, 3.8016E-007,
     &                       -2.5064E-002,-9.7075E-008,-3.3704E-002,
     &                       -3.0830E-008, 6.3980E-002, 5.1005E-007,
     &                       -2.2929E-002, 3.6584E-007,-1.2908E-003,
     &                       -4.1545E-008, 2.3400E-002,-3.5827E-008,
     &                        1.6850E-002, 1.4133E-007, 4.5264E-003,
     &                       -1.6435E-001, 1.7264E-007, 4.2052E-003,
     &                        1.6665E-007, 5.7113E-003, 2.6847E-002,
     &                        2.0150E-007, 7.1160E-004, 2.6940E-008,
     &                        5.9238E-002, 3.4505E-008, 2.3152E-003,
     &                       -1.4563E-010,-3.0566E-002, 9.2142E-009,
     &                        3.3032E-004,-2.0039E-002, 1.0352E-008,
     &                        1.9382E-003,-5.5282E-004,-6.9643E-008,
     &                       -4.2814E-003, 8.0598E-008, 1.1031E-002,
     &                       -2.6108E-002/
C     900km June solstice
      DATA (DHH(2,2,J),J=1,49)/ 9.4299E+000,-5.1759E-002,-8.1008E-001,
     &                        1.3248E-001, 1.4374E-001, 2.8595E-002,
     &                       -3.6756E-003, 2.4542E-001, 8.4647E-002,
     &                        2.6415E-002, 3.3343E-002,-1.5748E-002,
     &                       -7.9269E-003, 8.0631E-002, 1.0277E-002,
     &                       -1.8242E-002,-2.3267E-002,-1.0559E-003,
     &                        8.2585E-003, 2.1509E-002,-8.1102E-003,
     &                        3.9426E-003,-1.0183E-003, 6.8868E-003,
     &                       -5.1945E-002, 1.8767E-002, 7.0042E-003,
     &                        3.0618E-003,-1.3121E-003,-6.8901E-002,
     &                        2.3944E-002, 4.5513E-003,-5.0356E-003,
     &                       -1.6834E-004, 3.4679E-003, 5.1671E-003,
     &                       -5.0158E-004, 8.3745E-003, 1.1080E-002,
     &                        2.6952E-003, 1.5059E-002, 4.1633E-003,
     &                        1.9192E-003,-2.1979E-003, 1.0921E-002,
     &                       -2.1533E-003, 6.5616E-003, 3.8826E-004,
     &                        1.1183E-004/
C     1500km equinox
      DATA (DHH(3,1,J),J=1,49)/ 9.5205E+000,-2.0222E-006,-1.1864E+000,
     &                        7.5985E-007,-2.6909E-002,-4.4005E-007,
     &                        3.0973E-001, 1.3675E-001,-4.8308E-007,
     &                       -2.2609E-002,-3.7822E-007,-3.5004E-002,
     &                        4.5696E-008, 6.1285E-002, 2.5084E-007,
     &                       -1.2329E-002,-4.2144E-008,-8.3540E-003,
     &                       -2.0386E-007, 4.9594E-002,-2.5843E-007,
     &                       -1.3798E-002,-1.6222E-007,-1.1448E-002,
     &                       -4.3079E-002,-2.8827E-007, 7.7978E-003,
     &                       -2.7406E-008, 1.7355E-003,-3.0989E-002,
     &                       -1.1889E-007,-1.2109E-002,-1.3616E-008,
     &                        1.4991E-002, 3.3699E-008,-7.4128E-005,
     &                       -5.9458E-009, 7.1308E-003, 6.3098E-008,
     &                        1.0935E-003,-2.3455E-002,-1.2795E-007,
     &                        1.5102E-003,-1.3092E-003, 3.8446E-008,
     &                       -3.8817E-004, 5.9744E-008,-3.7063E-003,
     &                       -8.6531E-003/
C     1500km June solstice
      DATA (DHH(3,2,J),J=1,49)/ 9.4197E+000,-1.4545E-002,-1.3593E+000,
     &                        3.3999E-001,-1.9479E-001, 4.7850E-002,
     &                        3.7597E-001, 1.5466E-001,-5.5988E-002,
     &                        5.9355E-002,-4.2765E-002,-2.5813E-002,
     &                        3.1549E-002, 3.0235E-002,-3.1327E-002,
     &                        7.0621E-002,-3.5920E-002, 8.6809E-003,
     &                        2.1371E-002,-1.5567E-002,-2.0810E-002,
     &                        3.6965E-002,-1.1192E-002, 4.8831E-003,
     &                       -1.1065E-003, 1.4821E-002, 1.0736E-003,
     &                        3.4666E-003,-2.4916E-003,-1.3773E-002,
     &                        7.9809E-003,-3.6052E-003, 4.3504E-003,
     &                       -3.6110E-002, 8.2627E-003,-4.7435E-003,
     &                        7.3676E-003, 2.1851E-002, 1.0228E-002,
     &                       -2.6510E-003,-2.3925E-003, 1.1321E-005,
     &                        2.1796E-003, 9.6299E-003, 5.5079E-003,
     &                        5.9111E-003, 4.1776E-003, 2.1261E-003,
     &                        2.4663E-003/
C     2250km equinox
      DATA (DHH(4,1,J),J=1,49)/ 9.3714E+000,-3.4200E-006,-1.6846E+000,
     &                       -8.1017E-008,-1.7081E-002, 3.8242E-006,
     &                        4.5205E-001, 4.3324E-002,-1.2896E-007,
     &                        1.0528E-003,-1.8358E-007,-4.1534E-002,
     &                       -1.3077E-007, 1.5865E-001,-5.4277E-007,
     &                        3.9447E-002,-3.1248E-007,-6.7779E-003,
     &                        2.9556E-007,-7.9049E-003, 1.2398E-007,
     &                       -5.0936E-003, 6.8695E-008,-4.9243E-003,
     &                       -3.9880E-002,-1.0480E-007,-2.4017E-002,
     &                       -5.0755E-008,-3.1475E-003, 1.3985E-002,
     &                       -1.2591E-008,-1.1025E-003,-9.3741E-009,
     &                       -2.9468E-002,-1.2756E-008,-7.7319E-003,
     &                       -1.9948E-008, 1.7882E-003,-3.5214E-009,
     &                        9.4125E-004,-4.4217E-003,-6.8571E-009,
     &                        1.5396E-003,-3.7219E-004, 2.5287E-009,
     &                        6.3584E-004, 8.8245E-009,-1.0107E-003,
     &                       -5.4499E-003/
C     2250km June solstice
      DATA (DHH(4,2,J),J=1,49)/ 9.2865E+000,-3.1689E-002,-1.6086E+000,
     &                        1.1140E-001,-1.7424E-001, 1.2264E-001,
     &                        3.9063E-001,-4.0969E-002, 6.4995E-002,
     &                       -3.0890E-002, 2.6063E-002,-4.6020E-002,
     &                        1.0435E-002, 4.0526E-002, 2.4349E-003,
     &                       -7.3789E-003, 3.2772E-002,-5.0331E-003,
     &                       -1.7989E-002, 1.3328E-002,-1.0732E-002,
     &                       -1.5973E-002, 5.7027E-003,-5.3769E-003,
     &                       -6.0208E-002, 3.3963E-002,-1.2802E-002,
     &                        6.6097E-003,-2.5335E-003,-4.0039E-002,
     &                       -5.7030E-003,-8.9255E-003,-1.2960E-003,
     &                       -9.5029E-003, 2.6328E-002,-5.4759E-003,
     &                        1.8651E-003,-8.9029E-003, 7.3539E-003,
     &                       -1.2681E-003, 2.2857E-003,-4.7377E-003,
     &                       -8.9554E-004, 1.3359E-003, 1.3630E-003,
     &                        3.7962E-003, 2.9694E-003,-4.0318E-003,
     &                        4.5768E-003/
C//////////////////////////////////////////////////////////////////////
C//////////////////////////////////He+/////////////////////////////////
C     550km equinox
      DATA (DHEH(1,1,J),J=1,49)/ 8.5562E+000,-6.7753E-008,-5.9333E-001,
     &                        1.0384E-006,-2.8833E-001,-8.8932E-007,
     &                        1.3836E-001, 2.0484E-001, 1.3434E-008,
     &                       -5.7765E-002,-4.4369E-008, 2.7521E-002,
     &                       -8.8706E-008, 3.9828E-001, 9.9476E-008,
     &                       -1.9442E-002, 3.6408E-007,-2.6872E-002,
     &                       -3.1503E-007,-1.9197E-001,-4.7243E-008,
     &                        8.8640E-004,-1.3824E-008,-1.3470E-002,
     &                       -2.7662E-001, 1.2720E-007,-9.6029E-003,
     &                        4.5527E-008, 1.0784E-003,-9.8919E-002,
     &                       -3.6199E-009,-7.8780E-003, 1.1979E-008,
     &                       -6.3545E-002, 5.1229E-009, 2.1340E-002,
     &                        6.9696E-008,-2.0368E-003, 1.9672E-008,
     &                        1.3091E-003, 1.4277E-002, 8.1100E-008,
     &                        1.5916E-003,-6.1413E-003, 4.4252E-009,
     &                        5.2119E-003, 4.2404E-008,-1.5831E-002,
     &                        8.7771E-003/
C     550km June solstice
      DATA (DHEH(1,2,J),J=1,49)/ 8.4548E+000,-4.6108E-001,-2.8570E-001,
     &                        3.1867E-001,-1.3751E-003,-2.2585E-001,
     &                        2.7861E-002, 5.3882E-002, 2.4531E-001,
     &                       -1.6614E-002,-2.1614E-002, 5.2188E-004,
     &                       -7.1877E-004, 1.0749E-001, 7.9494E-003,
     &                       -5.7983E-002,-3.5115E-002, 2.1946E-003,
     &                        4.4208E-003,-1.2911E-001, 6.0450E-002,
     &                        1.7482E-002, 5.5533E-003,-4.0699E-003,
     &                       -2.3475E-001, 6.2598E-002,-2.5732E-002,
     &                       -6.0082E-003, 4.0616E-004,-3.5725E-002,
     &                       -7.0466E-003, 3.2939E-003,-4.0902E-003,
     &                       -1.5459E-002, 2.4557E-003,-1.6614E-003,
     &                       -8.6784E-004, 2.9412E-002,-7.3953E-004,
     &                       -3.2179E-003,-4.6908E-003,-1.4583E-003,
     &                        9.0449E-004,-7.5250E-003,-1.0508E-003,
     &                        1.8460E-003,-1.3508E-003,-6.8072E-003,
     &                       -1.3448E-003/
C     900km equinox
      DATA (DHEH(2,1,J),J=1,49)/ 9.2145E+000, 1.6979E-007,-9.1857E-001,
     &                        2.0716E-006,-2.3914E-001,-3.5727E-006,
     &                        3.1041E-001,-4.7453E-002, 1.0117E-006,
     &                        6.5570E-002, 3.0985E-007,-6.6558E-002,
     &                       -4.5164E-007, 7.7242E-002, 2.8717E-007,
     &                       -8.9984E-002, 5.2001E-008,-4.5497E-002,
     &                       -1.4626E-007,-1.0729E-001,-3.8360E-008,
     &                        1.6964E-002, 8.6957E-008, 1.8799E-004,
     &                       -1.8424E-002,-1.4543E-007, 3.3958E-002,
     &                        1.0099E-007,-2.6298E-003,-1.6571E-001,
     &                        6.3739E-008,-1.7494E-003, 1.6987E-007,
     &                        5.1204E-002, 2.6500E-007, 5.0013E-003,
     &                        3.6144E-008, 8.7354E-003,-3.7456E-008,
     &                        2.8601E-003,-1.7103E-003,-7.1480E-009,
     &                       -2.5359E-003,-3.0116E-003, 5.7501E-008,
     &                        5.6945E-003, 6.9904E-008,-1.9349E-002,
     &                       -1.2641E-002/
C     900km June solstice
      DATA (DHEH(2,2,J),J=1,49)/ 8.7717E+000,-4.8916E-001,-5.3663E-001,
     &                        2.0667E-001,-1.1371E-001, 2.6697E-003,
     &                        1.4339E-002,-2.7105E-001, 3.6089E-002,
     &                        1.6995E-002, 3.0412E-002,-5.3812E-002,
     &                       -5.6648E-003,-4.5882E-002,-1.2868E-002,
     &                       -1.8613E-002,-9.6389E-003,-5.0658E-003,
     &                       -5.5670E-003, 6.7055E-003,-1.0661E-002,
     &                       -8.0307E-003,-4.6221E-003, 8.3254E-003,
     &                       -1.2762E-001, 2.5276E-002,-2.4689E-002,
     &                        1.2249E-002,-1.0867E-002, 2.5041E-002,
     &                        1.8546E-002, 1.0281E-002,-2.5269E-003,
     &                       -5.5967E-002, 1.4229E-002, 1.0142E-002,
     &                        2.1503E-003, 3.5215E-002, 5.8207E-003,
     &                       -4.2017E-004, 2.7797E-003,-1.4003E-003,
     &                        1.5366E-003, 1.4103E-002, 6.1949E-003,
     &                        1.0431E-002, 1.7503E-003, 1.6873E-002,
     &                        1.0208E-002/
C     1500km equinox
      DATA (DHEH(3,1,J),J=1,49)/ 9.1382E+000,-1.6957E-006,-1.0442E+000,
     &                        1.2347E-006,-3.4358E-001, 6.8230E-007,
     &                        4.4436E-001, 1.6324E-002,-4.3446E-007,
     &                       -2.3140E-002,-1.8743E-007,-3.8261E-002,
     &                        1.6702E-007,-3.1722E-002,-5.1618E-007,
     &                        4.6237E-002,-1.1968E-007,-1.7095E-002,
     &                        2.3684E-007,-1.0912E-001, 8.5906E-008,
     &                       -7.5780E-003,-5.7318E-008, 3.4197E-003,
     &                       -1.6487E-001,-5.7436E-007, 3.4923E-002,
     &                       -4.8531E-010,-1.2999E-002,-5.7078E-002,
     &                        3.2258E-008,-4.1749E-003, 4.3545E-008,
     &                       -4.3926E-002, 8.9899E-009, 9.0836E-003,
     &                       -1.0023E-008, 2.6406E-002,-4.3460E-008,
     &                        9.7611E-004,-4.5719E-002, 9.5360E-008,
     &                        3.2015E-003,-3.0497E-003,-4.9917E-008,
     &                       -5.2358E-003, 1.5254E-008,-2.0919E-002,
     &                       -4.6316E-003/
C     1500km June solstice
      DATA (DHEH(3,2,J),J=1,49)/ 8.6956E+000,-3.7513E-001,-7.6166E-001,
     &                        5.8258E-002,-4.4109E-001, 1.1952E-001,
     &                        4.4731E-001, 6.1168E-002,-5.0179E-002,
     &                        5.2661E-003,-1.0086E-002,-1.1434E-002,
     &                        2.4774E-002, 3.4482E-002,-1.3156E-001,
     &                        3.0048E-002,-6.1629E-002,-8.0153E-003,
     &                       -3.4766E-003, 1.7056E-002,-2.5625E-002,
     &                        1.6715E-002, 6.7878E-003,-2.1396E-003,
     &                       -4.9347E-002, 1.5841E-002, 1.7152E-003,
     &                        7.2410E-004, 1.6179E-003,-3.0269E-002,
     &                        1.6246E-002, 1.4672E-003, 2.1578E-003,
     &                       -2.5516E-002, 1.2958E-002,-6.5452E-003,
     &                        3.3270E-003,-1.6907E-003, 7.4365E-003,
     &                       -1.1628E-003, 1.0449E-002,-1.2092E-003,
     &                        2.5582E-003, 7.1529E-003, 1.1959E-003,
     &                        9.8574E-003, 1.6045E-003, 3.2251E-003,
     &                        7.2336E-003/
C     2250km equinox
      DATA (DHEH(4,1,J),J=1,49)/ 8.8817E+000,-2.4391E-006,-1.3655E+000,
     &                        8.4386E-007,-2.2789E-001, 8.7854E-007,
     &                        4.3537E-001, 1.8615E-002,-7.1575E-007,
     &                        1.3645E-002,-4.9988E-007,-3.2013E-002,
     &                        3.6249E-007,-1.4024E-002,-4.6747E-007,
     &                        4.3299E-002,-2.0939E-007,-1.9031E-002,
     &                        5.3640E-007,-5.7979E-002,-1.1916E-007,
     &                       -9.7389E-003,-7.0552E-008,-3.8403E-003,
     &                       -1.8747E-002,-4.5508E-007, 5.8662E-004,
     &                       -1.4839E-007,-2.3248E-003, 3.5164E-002,
     &                       -3.8530E-008, 1.4493E-003, 9.0911E-009,
     &                        6.5064E-002,-7.7367E-008,-7.6839E-003,
     &                       -4.4329E-008, 2.6307E-002, 6.0727E-008,
     &                        2.6258E-003,-8.0157E-003,-8.9614E-009,
     &                        5.7615E-004,-1.3741E-003, 1.9524E-008,
     &                        3.2822E-003,-5.1476E-009,-1.3574E-003,
     &                        1.7923E-003/
C     2250km June solstice
      DATA (DHEH(4,2,J),J=1,49)/ 8.5683E+000,-1.4807E-001,-8.1147E-001,
     &                       -1.8822E-002,-4.5791E-001, 6.8315E-002,
     &                        4.1478E-001,-3.7850E-002, 1.2571E-001,
     &                        1.2702E-002, 7.4260E-003,-3.1216E-002,
     &                        1.3414E-002,-9.9827E-002, 4.7220E-002,
     &                       -2.3880E-003,-6.6048E-003,-6.6849E-003,
     &                       -1.4619E-002,-1.1156E-002, 3.6579E-003,
     &                        4.1293E-003, 1.4703E-002, 3.9578E-003,
     &                       -5.7658E-002, 3.0119E-003,-1.0730E-002,
     &                        3.4455E-003,-5.9462E-003,-1.8327E-002,
     &                       -1.0196E-002,-5.1724E-003, 2.0240E-003,
     &                       -2.8124E-002, 1.0821E-002,-4.7065E-003,
     &                        3.4806E-003,-1.4711E-002, 4.2184E-003,
     &                       -2.0076E-003, 9.1568E-003,-2.7745E-003,
     &                        9.3070E-004,-1.1010E-003,-2.9865E-004,
     &                       -1.0161E-003, 1.0107E-003, 7.9248E-004,
     &                        4.3800E-003/      
C//////////////////////////////////////////////////////////////////////
C///////////////////////////////////N+/////////////////////////////////
C     550km equinox
      DATA (DNH(1,1,J),J=1,49)/ 1.0019E+001, 2.5723E-006,-8.4960E-004,
     &                        8.1102E-007, 9.7779E-002, 1.0615E-006,
     &                        7.6222E-002,-1.4428E-001, 3.2342E-007,
     &                       -1.4089E-002,-3.4285E-007,-1.3037E-002,
     &                        7.6984E-008,-2.0229E-001, 8.1544E-007,
     &                       -4.2526E-002, 1.9650E-007, 8.5229E-003,
     &                        2.0090E-007, 4.4525E-002,-7.3598E-008,
     &                        1.1851E-002,-7.3302E-008, 1.0225E-003,
     &                        2.3862E-002, 2.6317E-008, 1.7643E-002,
     &                       -6.8800E-008,-1.8743E-003,-2.5839E-002,
     &                        2.0570E-008, 3.7364E-003,-7.4188E-008,
     &                       -2.1742E-002,-9.5189E-008, 5.7009E-003,
     &                       -2.2182E-008, 2.5205E-003, 6.1330E-008,
     &                        1.2046E-003,-1.4426E-002, 2.2803E-008,
     &                        1.8722E-003,-2.2612E-003,-8.6377E-008,
     &                       -2.3099E-003, 6.1868E-008,-2.2280E-003,
     &                       -7.2127E-003/
C     550km June solstice
      DATA (DNH(1,2,J),J=1,49)/ 9.8950E+000, 5.3898E-001,-1.8438E-001,
     &                       -3.3234E-002, 6.1092E-002,-4.4223E-002,
     &                        4.9314E-002,-1.6885E-001, 2.3645E-002,
     &                        4.9904E-002,-1.3272E-002,-1.0006E-002,
     &                        9.8171E-003,-1.2770E-001, 5.4348E-002,
     &                       -9.4108E-003,-1.6097E-002, 2.5746E-003,
     &                       -5.6109E-003,-9.5980E-002, 2.4506E-002,
     &                       -1.9320E-002, 4.4041E-003, 5.8621E-004,
     &                        1.0298E-002, 6.6383E-003,-3.6596E-003,
     &                        3.1693E-003,-1.2114E-003, 2.7192E-002,
     &                       -1.2499E-002, 2.2087E-003, 7.1793E-005,
     &                        2.9456E-002,-1.8417E-002, 6.6479E-003,
     &                       -1.0839E-003,-3.2662E-002, 2.4478E-003,
     &                       -1.3406E-003,-2.3848E-002, 3.9534E-003,
     &                       -1.9607E-003,-2.4437E-002,-2.5257E-004,
     &                       -1.2976E-002, 5.7891E-004,-1.3725E-002,
     &                        3.9792E-004/
C     900km equinox
      DATA (DNH(2,1,J),J=1,49)/ 9.4694E+000,-1.6544E-006, 1.2337E-001,
     &                        7.6922E-006, 4.0844E-002,-6.2726E-006,
     &                       -1.2085E-002,-3.1155E-001,-2.2502E-006,
     &                        5.2141E-003, 1.5292E-006, 4.6169E-003,
     &                       -3.4430E-007,-2.0980E-001,-6.0445E-007,
     &                        4.9811E-002, 5.3263E-007, 6.5131E-004,
     &                       -1.6033E-007,-1.0316E-001,-1.1576E-006,
     &                       -1.6319E-002, 1.8240E-007, 1.0867E-002,
     &                        7.1700E-002,-1.0400E-006, 1.5320E-003,
     &                        7.3160E-007, 5.7948E-003,-7.4410E-002,
     &                       -5.4983E-007,-1.1335E-002,-9.1272E-009,
     &                       -4.2801E-002,-6.1656E-007,-1.0028E-002,
     &                        1.2323E-007,-2.0959E-003,-2.8620E-007,
     &                       -4.1891E-003,-1.0114E-002,-2.4946E-007,
     &                       -5.4484E-003,-1.0014E-004,-6.1357E-008,
     &                        2.5335E-003,-1.4098E-007,-2.7616E-002,
     &                        1.7588E-002/
C     900km June solstice
      DATA (DNH(2,2,J),J=1,49)/ 9.2850E+000, 5.5985E-001, 2.2704E-001,
     &                       -7.0123E-002,-1.1388E-001,-9.4701E-002,
     &                        2.8391E-002,-1.9589E-001, 6.8225E-002,
     &                       -5.3756E-002, 1.4622E-002, 5.7994E-004,
     &                       -2.9261E-003,-2.4712E-001,-1.7103E-002,
     &                        6.1000E-002, 1.5448E-002,-1.2181E-002,
     &                       -8.6816E-003,-2.4797E-002, 6.9824E-002,
     &                       -4.3173E-004,-2.9083E-003,-1.6011E-003,
     &                       -2.1840E-002,-3.5010E-002, 1.4547E-002,
     &                       -9.2115E-003, 4.7761E-003, 1.2071E-002,
     &                        7.7499E-003, 8.1855E-003, 2.2545E-003,
     &                        2.4944E-002,-6.0505E-003, 7.8059E-003,
     &                        2.3805E-003,-5.1867E-002,-8.0380E-003,
     &                       -9.7830E-004,-2.9220E-002,-1.9427E-003,
     &                        3.0433E-003,-3.3815E-002,-2.2415E-003,
     &                       -2.9646E-002,-3.4173E-003,-2.9588E-002,
     &                       -9.4138E-003/
C     1500km equinox
      DATA (DNH(3,1,J),J=1,49)/ 8.7155E+000, 1.4741E-006, 3.3257E-001,
     &                       -3.9187E-007, 9.1878E-003,-1.6825E-006,
     &                       -4.4178E-002,-4.9152E-001, 1.8469E-006,
     &                       -1.0781E-002, 4.6555E-007, 3.2247E-002,
     &                       -4.2322E-007,-2.7076E-001, 5.7315E-007,
     &                        1.0441E-001, 1.5751E-007,-1.9427E-002,
     &                       -2.5181E-007,-1.5498E-001, 4.8205E-007,
     &                       -2.9731E-002, 8.4155E-008, 2.7337E-003,
     &                       -1.5423E-001, 4.0527E-007, 1.0853E-002,
     &                        1.7637E-007, 2.9832E-004,-3.2027E-002,
     &                        4.2496E-008,-1.0391E-002, 1.6182E-008,
     &                        2.0184E-002, 1.1780E-007,-3.6163E-003,
     &                        7.9778E-008,-3.7631E-002, 3.5515E-008,
     &                       -3.8295E-003, 2.5399E-003,-4.9073E-009,
     &                       -2.8015E-003, 2.1214E-004, 2.7217E-008,
     &                       -1.1954E-002,-9.2222E-008,-9.6978E-003,
     &                        6.5686E-003/
C     1500km June solstice
      DATA (DNH(3,2,J),J=1,49)/ 8.6689E+000, 7.7532E-001, 1.6981E-001,
     &                       -1.6926E-001,-1.6344E-002,-4.9955E-002,
     &                       -3.0453E-002,-2.4772E-001, 1.2450E-001,
     &                        1.3351E-002, 8.7996E-004, 1.8177E-002,
     &                       -2.5308E-002,-1.0649E-001, 7.8115E-002,
     &                        7.8976E-003,-3.8263E-002, 2.3854E-002,
     &                       -3.1419E-002,-1.3547E-003,-7.1151E-002,
     &                        2.6453E-002,-6.8153E-004, 1.0626E-003,
     &                        2.1740E-002, 3.1895E-002, 1.2209E-003,
     &                        6.4036E-003, 2.8330E-003, 5.4547E-003,
     &                       -2.6100E-002, 6.7990E-003,-1.1911E-003,
     &                       -7.8806E-003,-1.5986E-002,-6.6544E-003,
     &                        2.2161E-003,-1.6487E-002,-8.9076E-003,
     &                        4.5130E-004,-1.1831E-002,-1.1070E-002,
     &                       -2.2416E-003,-1.4739E-002,-3.8693E-003,
     &                       -1.1053E-002,-1.5497E-003,-1.3144E-002,
     &                       -6.7004E-003/
C     2250km equinox
      DATA (DNH(4,1,J),J=1,49)/ 8.2446E+000,-3.9022E-006, 4.2086E-001,
     &                       -8.4724E-008,-4.5965E-002, 5.3823E-007,
     &                       -1.3220E-002,-2.2697E-001,-5.8269E-007,
     &                       -1.4812E-002,-2.9880E-007,-3.9232E-003,
     &                        1.7290E-008,-4.6253E-001,-9.6196E-008,
     &                        6.2313E-002, 4.2635E-007, 1.7812E-002,
     &                        1.2969E-007,-6.4979E-002, 1.4935E-007,
     &                       -3.5472E-002, 6.1687E-008,-7.7464E-003,
     &                       -4.4305E-002,-3.3255E-007,-2.1269E-003,
     &                       -2.9698E-007, 4.2903E-003, 1.0216E-002,
     &                        2.0950E-008, 3.3693E-003, 1.5003E-008,
     &                        1.4030E-001, 9.8769E-008,-4.3899E-003,
     &                       -6.7915E-008, 6.9364E-002, 4.3913E-008,
     &                        3.6741E-003, 2.6018E-002, 8.9366E-008,
     &                        3.9212E-004, 8.6551E-003, 6.6664E-008,
     &                        9.1264E-003, 1.4846E-008,-1.1903E-003,
     &                        6.8326E-005/
C     2250km June solstice
      DATA (DNH(4,2,J),J=1,49)/ 8.1232E+000, 6.3400E-001, 3.4451E-001,
     &                       -1.7706E-001,-9.6395E-002,-3.3631E-002,
     &                       -3.8348E-002,-3.7099E-001, 4.3368E-002,
     &                       -2.2563E-002, 4.1095E-002,-2.2098E-002,
     &                        3.7783E-003,-3.8367E-001, 1.1212E-001,
     &                        3.9900E-002,-3.4603E-002, 9.0102E-004,
     &                        1.7867E-004,-4.9073E-002, 5.7379E-003,
     &                       -1.6769E-002, 9.4616E-003,-4.8618E-003,
     &                       -2.0081E-001, 7.2646E-003,-9.1609E-003,
     &                        8.1090E-003,-5.8271E-004, 1.3650E-001,
     &                       -2.4914E-003,-1.2280E-003,-4.3112E-004,
     &                       -9.0520E-002, 2.2466E-002,-7.9454E-003,
     &                        2.7647E-003, 8.3267E-003,-6.3168E-003,
     &                        2.2216E-003,-8.6691E-003, 2.5916E-003,
     &                       -1.9514E-003,-4.9024E-003,-3.6766E-003,
     &                       -2.3492E-002,-7.9399E-004, 3.7814E-003,
     &                       -1.6833E-002/
C//////////////////////////////////////////////////////////////////////
C/////////////////coefficients low solar activity///////////////////// 
C//////////////////////////////////O+//////////////////////////////////
C     400km equinox
      DATA (DOL(1,1,J),J=1,49)/ 1.1028E+001,-5.9947E-007,-3.3742E-001,
     &                        7.8683E-007, 1.3937E-001, 8.3175E-008,
     &                       -4.8640E-002,-2.4412E-001, 3.1765E-007,
     &                       -3.0586E-002,-3.2124E-008,-2.0091E-002,
     &                        9.5865E-008,-2.4533E-001,-3.1051E-007,
     &                       -1.3402E-002, 1.5715E-007,-3.5108E-002,
     &                       -7.0552E-009, 7.2451E-002,-5.4795E-008,
     &                        4.6388E-003, 2.6538E-008,-1.7863E-003,
     &                       -3.2795E-002, 2.1667E-007,-1.6886E-003,
     &                       -1.1351E-007, 4.8819E-004,-1.8702E-002,
     &                        1.5855E-008, 2.4774E-003,-6.0513E-011,
     &                        2.6071E-002,-1.5258E-008, 5.4362E-003,
     &                        2.6064E-008,-5.8978E-003,-5.6781E-009,
     &                        1.7888E-003, 7.9854E-003, 4.3021E-008,
     &                        7.5171E-004,-3.4351E-003, 2.3671E-008,
     &                        1.8393E-003, 4.3624E-011,-3.1620E-003,
     &                        2.2396E-003/
C     400km June solstice
      DATA (DOL(1,2,J),J=1,49)/ 1.0935E+001, 4.3766E-001,-3.1289E-001,
     &                       -1.3726E-001, 1.3358E-001, 4.3905E-002,
     &                        5.0160E-002,-2.5849E-001, 4.5659E-002,
     &                        5.4857E-003, 2.2218E-002,-2.8317E-002,
     &                        8.2630E-003,-2.8326E-001,-9.6791E-003,
     &                        4.1894E-002, 7.7419E-003,-1.9546E-002,
     &                       -1.0279E-002, 3.9292E-002,-1.5802E-002,
     &                        9.4275E-003,-8.1618E-004, 1.8252E-003,
     &                       -4.4936E-002,-9.5925E-003, 1.0290E-002,
     &                       -4.3728E-003, 2.6103E-003, 1.7584E-002,
     &                       -1.5570E-004,-5.0717E-003, 2.2696E-004,
     &                        7.7040E-003, 3.7456E-003,-1.7878E-003,
     &                        8.0229E-004,-1.4827E-002, 6.1296E-003,
     &                       -1.2200E-003, 1.6822E-003, 6.2744E-003,
     &                       -2.1599E-003,-2.2537E-002, 3.3963E-003,
     &                       -8.4230E-003, 2.8959E-003,-1.7315E-002,
     &                       -4.7823E-003/
C     550km equinox
      DATA (DOL(2,1,J),J=1,49)/ 1.0441E+001,-1.8583E-007,-1.5392E-001,
     &                        1.3279E-006,-2.8910E-002, 4.6595E-008,
     &                       -4.0713E-002,-4.8280E-001,-4.4062E-007,
     &                        8.8233E-003, 1.5207E-007,-2.6193E-002,
     &                       -5.6026E-008,-2.5563E-001, 3.7636E-007,
     &                       -5.3640E-002,-2.5118E-007,-3.9499E-002,
     &                        5.6905E-008, 6.3005E-002,-1.0823E-007,
     &                       -4.6264E-003, 1.3677E-008, 5.7388E-003,
     &                       -2.6456E-002, 2.1980E-007,-6.3113E-003,
     &                       -9.6352E-008, 6.3825E-003, 2.1161E-002,
     &                       -1.1267E-007,-3.3647E-003, 1.6196E-008,
     &                        2.6800E-002, 1.7619E-007, 9.5012E-003,
     &                       -4.3477E-009, 1.9645E-002, 6.8076E-009,
     &                        8.3642E-004, 2.0048E-002,-2.6173E-008,
     &                        2.8416E-003, 1.2859E-003, 2.4308E-008,
     &                       -3.1225E-003,-7.8282E-009,-4.2809E-003,
     &                        6.4016E-003/
C     550km June solstice
      DATA (DOL(2,2,J),J=1,49)/ 1.0428E+001, 5.0284E-001,-1.0415E-001,
     &                       -2.3068E-001, 9.9921E-002, 2.4525E-002,
     &                        1.0017E-001,-4.3949E-001, 7.7712E-002,
     &                        2.7670E-002, 9.8040E-003,-4.0890E-002,
     &                        1.1955E-002,-2.3115E-001,-1.7800E-002,
     &                        2.9761E-002, 3.2814E-003,-1.0608E-002,
     &                       -1.1838E-002, 4.6797E-002,-2.5308E-002,
     &                       -2.1772E-003,-6.2791E-004, 3.9284E-004,
     &                       -9.5448E-002,-7.5227E-003, 4.7040E-003,
     &                        5.5001E-003, 1.1420E-003, 5.9417E-002,
     &                       -1.0356E-002,-1.1835E-002, 4.9372E-003,
     &                       -1.6572E-002, 7.7212E-003, 2.5303E-003,
     &                       -2.1244E-003, 1.8799E-003, 7.5457E-003,
     &                       -3.9116E-003, 2.9587E-003, 1.0549E-003,
     &                       -1.6082E-004,-2.2565E-002,-3.8407E-004,
     &                       -6.4016E-003, 1.9367E-003,-2.4715E-002,
     &                       -4.3424E-003/
C     750km equinox
      DATA (DOL(3,1,J),J=1,49)/ 9.7046E+000,-1.9504E-006, 1.6453E-001,
     &                        4.1395E-006,-2.8124E-002,-5.0045E-006,
     &                        1.6867E-001,-9.4930E-001,-1.9466E-006,
     &                        7.2760E-004, 4.5795E-007,-4.0390E-002,
     &                        3.8333E-009,-4.1313E-001, 7.3783E-007,
     &                       -9.0851E-002, 8.4989E-007,-9.4220E-003,
     &                       -8.8451E-007, 8.8378E-002,-2.2731E-007,
     &                       -1.3118E-003,-2.4401E-007, 6.7618E-003,
     &                       -7.5769E-002, 3.1554E-007,-9.4427E-003,
     &                       -3.2472E-008,-8.2261E-004, 1.2120E-001,
     &                        9.9090E-008,-9.4052E-003, 7.1322E-008,
     &                        9.7052E-002, 1.2635E-007, 1.2328E-002,
     &                       -6.2071E-008, 2.3364E-002, 2.8730E-009,
     &                       -4.0942E-003, 4.4158E-002,-8.1883E-008,
     &                        9.6001E-004, 3.4871E-003,-8.4680E-008,
     &                       -2.9931E-003,-8.0600E-008, 3.5474E-004,
     &                        5.9745E-003/
C     750km June solstice
      DATA (DOL(3,2,J),J=1,49)/ 9.7665E+000, 7.0796E-001, 9.7141E-002,
     &                       -3.4388E-001, 1.5406E-001,-9.9645E-002,
     &                        8.6633E-002,-6.6761E-001, 1.9789E-001,
     &                        1.2181E-002, 1.9043E-002,-1.4917E-002,
     &                       -1.3319E-002,-2.4644E-001, 1.9972E-002,
     &                        7.0064E-003, 2.0894E-002,-4.9076E-003,
     &                       -1.8647E-002, 2.7701E-002,-7.5134E-003,
     &                       -1.0716E-003,-3.5230E-003, 3.1439E-003,
     &                       -1.9860E-001, 1.9707E-002, 3.3487E-003,
     &                        2.0649E-002, 2.9560E-004, 9.4027E-002,
     &                       -3.3459E-002, 3.2062E-003, 2.2061E-003,
     &                       -4.4366E-002, 8.8768E-003, 3.6112E-003,
     &                        6.0056E-004,-9.2459E-003,-4.6701E-003,
     &                        1.9506E-003,-1.4880E-003,-9.6133E-003,
     &                        2.2348E-003,-3.2551E-002,-5.1712E-003,
     &                       -2.8312E-002,-1.5611E-004,-3.9494E-002,
     &                       -1.3699E-002/
C     1000km equinox
      DATA (DOL(4,1,J),J=1,49)/ 9.1361E+000,-9.7430E-007, 1.6267E-001,
     &                        4.3277E-006, 1.1540E-001,-3.0602E-006,
     &                        5.8135E-002,-1.1270E+000,-6.2546E-007,
     &                       -4.8728E-002, 1.7487E-006,-2.1179E-002,
     &                       -4.7905E-007,-4.0648E-001, 1.3901E-006,
     &                       -1.2238E-001,-4.2540E-007,-3.9834E-002,
     &                        1.7409E-007,-3.8208E-002,-1.0080E-006,
     &                        3.4987E-003, 5.4186E-007,-8.0568E-004,
     &                       -5.4931E-002, 8.2682E-007, 2.1062E-002,
     &                        2.2819E-007,-8.6679E-003, 7.2199E-002,
     &                        5.2536E-008,-5.0089E-003,-2.0015E-008,
     &                        8.7559E-002, 3.1601E-007, 8.5504E-003,
     &                        1.1819E-007,-3.0228E-003, 8.0826E-008,
     &                       -2.8599E-003, 2.6641E-002, 2.1867E-007,
     &                       -2.9991E-003,-1.8339E-003, 4.6824E-008,
     &                       -1.7178E-003, 1.4137E-007, 2.2711E-003,
     &                       -3.6990E-004/
C     1000km June solstice
      DATA (DOL(4,2,J),J=1,49)/ 9.2203E+000, 6.2242E-001, 3.7901E-001,
     &                       -3.7432E-001, 2.3634E-001,-2.0471E-001,
     &                        3.3947E-002,-7.8196E-001, 7.2937E-002,
     &                       -4.0200E-003, 1.4082E-002, 2.6208E-002,
     &                       -2.7142E-002,-2.9473E-001,-2.0525E-002,
     &                        9.2248E-002, 7.9193E-003, 4.4462E-002,
     &                       -4.4945E-002,-2.9301E-002,-7.1699E-002,
     &                       -5.8144E-003,-4.6876E-003,-5.4680E-003,
     &                       -2.1563E-001, 2.8593E-002, 9.6277E-003,
     &                        1.9712E-002, 1.3128E-002, 7.2789E-002,
     &                       -1.0102E-002, 1.0531E-003,-5.9706E-003,
     &                        1.7574E-002,-3.6999E-003,-2.9097E-004,
     &                        5.3090E-003,-1.2282E-002,-4.8710E-004,
     &                        6.4886E-004, 8.4747E-003, 8.8815E-005,
     &                       -3.6183E-003,-1.4276E-002,-5.3265E-003,
     &                       -2.2889E-002, 3.0205E-003,-1.1674E-002,
     &                       -4.9931E-003/
C//////////////////////////////////////////////////////////////////////
C//////////////////////////////////H+//////////////////////////////////
C     400km equinox
      DATA (DHL(1,1,J),J=1,49)/ 8.6764E+000,-5.8497E-007,-4.5196E-001,
     &                        7.6173E-007, 8.3042E-002, 7.3664E-008,
     &                        1.8834E-003, 9.2107E-003,-1.1006E-007,
     &                       -2.3918E-003, 9.0788E-008,-1.0721E-002,
     &                       -1.2242E-008,-3.9583E-002,-1.9542E-007,
     &                        3.4700E-002, 2.6014E-007,-2.6578E-002,
     &                       -6.0613E-008, 1.1531E-001, 3.2992E-008,
     &                       -9.5224E-003, 1.9769E-008,-7.9370E-004,
     &                       -6.5651E-002,-1.3860E-008, 7.9121E-003,
     &                        2.2614E-008,-2.7439E-003,-1.8201E-002,
     &                        5.4429E-008, 1.4850E-003, 1.3296E-008,
     &                        2.5910E-002,-2.0974E-008, 3.0923E-003,
     &                        9.1638E-009,-1.6210E-002,-1.6375E-008,
     &                        7.0846E-004, 2.0751E-002, 5.2109E-009,
     &                       -7.3979E-004,-4.2000E-003,-1.3623E-008,
     &                        3.9613E-003, 2.3420E-008,-3.6036E-003,
     &                        3.7577E-003/
C     400km June solstice
      DATA (DHL(1,2,J),J=1,49)/ 8.7464E+000, 1.3755E-001,-4.9056E-001,
     &                       -4.8260E-002, 1.6354E-001, 6.8999E-002,
     &                        8.5903E-002, 1.1020E-001,-1.7707E-002,
     &                        1.2783E-002, 9.1457E-003,-1.7928E-002,
     &                        1.1734E-002,-3.8862E-002, 2.3903E-002,
     &                        7.1281E-003, 1.1954E-002,-2.2804E-003,
     &                       -8.6807E-003, 6.1365E-002, 2.8978E-003,
     &                       -9.6905E-004,-4.6418E-004, 3.6991E-003,
     &                       -6.0207E-002, 1.2697E-002,-4.1056E-003,
     &                       -4.5619E-003, 1.2074E-003,-1.6589E-002,
     &                        1.6563E-002,-2.1209E-004, 2.4490E-003,
     &                        2.9887E-002, 3.8303E-003, 1.9922E-003,
     &                        2.0211E-004,-2.0114E-002, 5.2825E-003,
     &                        2.5115E-004, 2.2024E-003, 8.1118E-003,
     &                       -9.7042E-004,-7.7664E-003, 6.0330E-003,
     &                        6.8127E-004, 3.9275E-003,-3.8098E-003,
     &                        5.7959E-003/
C     550km equinox
      DATA (DHL(2,1,J),J=1,49)/ 9.3142E+000,-4.9414E-007,-6.4289E-001,
     &                       -2.0151E-006,-7.8257E-002,-1.3701E-006,
     &                       -1.2501E-001, 6.5449E-002,-4.8812E-007,
     &                        1.4953E-002, 3.4548E-007,-3.3211E-002,
     &                       -5.4121E-007, 1.7444E-003,-3.9167E-007,
     &                        1.3480E-002, 5.4127E-007,-6.9938E-002,
     &                       -1.6812E-007, 1.0559E-001,-2.5102E-008,
     &                       -1.0793E-003,-1.5060E-007, 5.9427E-003,
     &                       -7.9428E-004, 2.9945E-007, 1.1037E-002,
     &                        1.2265E-008, 1.8328E-003,-3.5544E-002,
     &                       -1.6020E-007,-6.0623E-004, 1.8470E-008,
     &                        8.4732E-003,-5.0107E-008, 5.1421E-003,
     &                        1.0662E-008,-2.9206E-002, 4.8502E-008,
     &                       -2.6379E-003, 1.4690E-002, 5.0003E-008,
     &                        1.8659E-004,-3.9958E-003, 2.9606E-008,
     &                        6.9968E-003, 1.1040E-008,-5.9425E-004,
     &                        1.2121E-003/
C     550km June solstice
      DATA (DHL(2,2,J),J=1,49)/ 9.4313E+000,-7.1878E-002,-6.9971E-001,
     &                        1.6547E-001, 1.0161E-001, 1.5780E-001,
     &                        2.9380E-001, 1.4776E-001,-6.2061E-002,
     &                        1.8808E-002,-1.2118E-002,-2.0569E-002,
     &                        3.2844E-002,-3.5689E-003, 1.0216E-002,
     &                       -1.7151E-002,-1.6616E-002,-1.2647E-002,
     &                        1.0205E-002, 6.1252E-002, 1.0258E-002,
     &                       -1.0887E-002, 3.1761E-003,-2.8283E-003,
     &                       -4.9813E-002, 3.4723E-002,-3.1727E-002,
     &                        1.5177E-002,-6.5093E-003,-2.4869E-002,
     &                        3.0012E-003,-1.5630E-003, 6.6333E-004,
     &                        7.3866E-003, 1.8974E-002,-1.6075E-003,
     &                        3.4999E-003,-2.2340E-003, 5.1294E-004,
     &                        2.3417E-003, 1.1325E-002, 4.8485E-003,
     &                       -1.3997E-003, 7.1165E-003, 5.1959E-003,
     &                        7.3597E-003, 4.3606E-003, 1.0201E-002,
     &                        6.5080E-003/
C     750km equinox
      DATA (DHL(3,1,J),J=1,49)/ 9.5154E+000, 4.4387E-007,-8.3777E-001,
     &                       -1.4337E-007,-3.6703E-002, 1.1904E-006,
     &                        5.7850E-002, 8.9301E-002,-1.0837E-007,
     &                        6.9043E-002,-2.5006E-007,-3.6223E-002,
     &                        3.6250E-007,-3.6352E-002,-1.4407E-007,
     &                       -2.8911E-002,-7.3010E-008,-4.7333E-002,
     &                        9.3189E-008, 6.4058E-002,-2.5044E-008,
     &                        1.5224E-002, 5.7261E-008, 1.0738E-002,
     &                        1.4165E-002,-2.4750E-007, 9.8615E-003,
     &                       -2.6232E-007, 1.7438E-003,-4.4838E-003,
     &                        1.1605E-007, 1.5004E-003, 6.3422E-008,
     &                        2.0907E-002,-6.8549E-008, 3.1254E-003,
     &                       -6.0456E-008,-2.6752E-002, 3.1056E-009,
     &                       -3.9871E-003, 2.9555E-003,-2.4656E-009,
     &                        1.4655E-003,-5.2332E-004,-1.1751E-007,
     &                        1.6169E-003, 3.9033E-008,-1.3868E-003,
     &                        7.0440E-004/
C     750km June solstice
      DATA (DHL(3,2,J),J=1,49)/ 9.5243E+000,-5.9807E-002,-8.7275E-001,
     &                        2.2117E-001, 1.5301E-001, 1.0504E-001,
     &                        3.3841E-001, 1.0576E-001,-7.2307E-002,
     &                        9.6274E-002,-2.9255E-002,-1.4589E-002,
     &                        2.0619E-002, 3.9283E-002,-5.8550E-002,
     &                       -9.2836E-003,-4.7394E-002,-1.7612E-002,
     &                        4.0558E-002, 7.2842E-002,-1.3231E-002,
     &                        7.7768E-003,-9.7764E-003, 2.0915E-003,
     &                       -1.8160E-002,-1.9791E-002,-8.6255E-003,
     &                        1.2757E-003, 1.8743E-003,-6.6028E-003,
     &                       -5.7812E-003,-1.1538E-002, 4.6084E-003,
     &                        2.8366E-003,-2.2018E-003, 4.9727E-003,
     &                       -5.6196E-003,-1.0703E-003, 6.8549E-003,
     &                       -5.9359E-004,-1.0457E-003, 2.7387E-003,
     &                       -2.9393E-003, 6.8835E-003, 4.3346E-003,
     &                        8.0149E-003, 1.5508E-003, 8.8104E-003,
     &                        4.8858E-003/
C     1000km equinox
      DATA (DHL(4,1,J),J=1,49)/ 9.5646E+000, 7.0950E-007,-8.9711E-001,
     &                        1.9288E-006,-1.6734E-001, 4.3813E-006,
     &                        1.1898E-001,-2.0680E-003, 7.7446E-007,
     &                        7.0217E-002, 3.5016E-007, 1.7233E-002,
     &                        5.7925E-007,-1.1643E-001, 2.5154E-007,
     &                       -6.3259E-002, 5.6847E-007,-1.1006E-002,
     &                        5.3229E-008, 7.9520E-002, 3.0792E-007,
     &                        2.3250E-002, 1.2250E-007, 5.4205E-003,
     &                        6.0078E-003, 5.5043E-007,-1.1446E-002,
     &                        2.6075E-007,-2.6486E-003,-1.7948E-002,
     &                        5.7737E-008,-7.7932E-003, 7.3237E-009,
     &                        1.3457E-002, 1.4871E-007,-1.8273E-003,
     &                        9.6374E-008,-1.4154E-002, 3.4815E-008,
     &                       -5.0702E-003, 1.3526E-002, 3.8902E-008,
     &                       -1.5015E-003, 2.5405E-003, 8.9053E-008,
     &                        5.4088E-003,-2.6652E-008, 3.6377E-003,
     &                        3.5619E-004/
C     1000km June solstice
      DATA (DHL(4,2,J),J=1,49)/ 9.4220E+000, 1.2025E-001,-7.9687E-001,
     &                        1.4928E-001, 2.1997E-001,-2.5538E-001,
     &                        3.6075E-001, 1.6937E-001,-1.3366E-002,
     &                        1.9409E-001,-4.7118E-002,-1.3312E-002,
     &                        1.9160E-002,-4.4608E-003,-1.3351E-001,
     &                        2.7297E-002,-4.4798E-002,-1.2571E-002,
     &                        3.3471E-002, 6.4905E-002,-2.7860E-002,
     &                        4.0406E-002,-1.1265E-002, 1.3243E-002,
     &                        3.2774E-004,-4.9982E-002, 8.1220E-003,
     &                        3.5041E-003, 7.9319E-004, 9.8909E-003,
     &                       -5.4041E-003, 7.0907E-004, 4.7071E-004,
     &                        4.4426E-002,-5.3094E-003, 1.0420E-003,
     &                       -1.3821E-003,-2.5690E-002, 2.5739E-003,
     &                       -1.2000E-003, 3.9956E-003,-3.3401E-003,
     &                        3.1321E-003,-1.0688E-002, 1.5289E-003,
     &                       -4.8343E-003, 6.6546E-004,-9.5524E-003,
     &                       -2.9806E-003/
C//////////////////////////////////////////////////////////////////////
C//////////////////////////////////He+/////////////////////////////////
C     400km equinox
      DATA (DHEL(1,1,J),J=1,49)/ 8.0470E+000,-1.2106E-006,-1.8765E-001,
     &                       -4.5251E-007,-1.8951E-001,-1.9758E-007,
     &                        1.3990E-001,-7.3152E-002,-7.7520E-007,
     &                       -1.8854E-002, 3.0364E-007,-3.3138E-002,
     &                       -3.4716E-007, 4.1146E-001,-2.3661E-007,
     &                        3.9635E-002,-3.3287E-009, 2.9161E-003,
     &                       -6.2000E-008, 3.1584E-002,-1.7889E-007,
     &                       -1.1569E-002, 2.1482E-008, 3.2708E-003,
     &                        3.1773E-002, 2.0077E-008,-1.2848E-002,
     &                       -8.0711E-008,-1.3686E-002,-1.8028E-002,
     &                       -8.6107E-008,-8.6541E-003, 1.6977E-008,
     &                        2.1756E-002,-1.0723E-007, 5.4701E-003,
     &                       -9.9269E-009, 1.9697E-002, 3.8353E-008,
     &                       -3.1468E-004,-8.2770E-003,-3.4043E-008,
     &                       -2.7124E-003, 2.9360E-003, 8.8432E-009,
     &                        1.9854E-003,-3.0817E-009, 1.6478E-003,
     &                        2.2964E-003/
C     400km June solstice
      DATA (DHEL(1,2,J),J=1,49)/ 7.7686E+000,-7.0994E-001,-2.9210E-002,
     &                        4.2677E-003,-2.8787E-003, 2.4734E-002,
     &                       -4.2253E-002, 1.6763E-003,-2.2820E-002,
     &                        1.9391E-002, 1.7941E-002, 2.3819E-002,
     &                       -3.7628E-003,-9.3643E-002, 1.0094E-001,
     &                       -3.9462E-002,-4.3404E-002,-1.5448E-003,
     &                       -1.2831E-002,-7.4652E-002, 4.3650E-003,
     &                        1.4048E-002, 4.5125E-003,-7.4554E-004,
     &                       -1.7399E-001, 1.3850E-002, 3.1521E-003,
     &                       -1.1665E-002,-6.9860E-004, 2.9414E-003,
     &                        9.6906E-003,-6.5594E-003, 7.0166E-004,
     &                        3.1185E-002,-1.2213E-002, 1.0771E-004,
     &                        2.6551E-003, 3.5949E-002,-3.5913E-004,
     &                       -9.4525E-004, 1.8059E-002,-3.3219E-003,
     &                       -5.0513E-004, 2.7967E-002,-5.3283E-005,
     &                        1.7352E-002,-9.0916E-004, 2.8545E-002,
     &                        1.3304E-002/
C     550km equinox
      DATA (DHEL(2,1,J),J=1,49)/ 8.5471E+000, 1.0036E-006,-2.1407E-001,
     &                        1.1825E-006,-3.0424E-001, 1.5359E-006,
     &                        1.3422E-001,-1.6014E-002, 1.8552E-006,
     &                        6.7452E-002,-1.4486E-006,-3.6290E-002,
     &                        1.3742E-006, 1.4981E-001, 4.8550E-008,
     &                       -2.4666E-003, 1.4397E-007,-2.4247E-002,
     &                        1.2519E-008,-3.3219E-002,-1.2566E-007,
     &                        3.8258E-003, 1.2039E-007, 6.3462E-003,
     &                        3.6086E-002, 3.5782E-007, 1.8118E-002,
     &                       -3.0822E-008,-1.0032E-002,-3.1399E-002,
     &                        3.2563E-007, 7.5683E-004,-8.9661E-008,
     &                        1.0092E-002,-1.6976E-007, 7.8276E-003,
     &                        5.0854E-008, 5.5042E-003,-1.3474E-007,
     &                       -2.6094E-003, 2.5317E-004, 1.2753E-007,
     &                        2.9530E-003, 5.2850E-003,-3.6304E-008,
     &                       -1.7770E-003,-7.7952E-008, 7.2939E-004,
     &                       -5.0116E-003/
C     550km June solstice
      DATA (DHEL(2,2,J),J=1,49)/ 8.1116E+000,-5.9186E-001,-1.3615E-001,
     &                       -1.8696E-001, 9.5077E-002, 9.0620E-002,
     &                        2.3509E-001,-1.4233E-001,-2.2280E-002,
     &                        7.2726E-002,-1.7002E-002, 1.3668E-002,
     &                       -1.6439E-002,-1.8320E-001,-2.9248E-002,
     &                       -8.7976E-002,-5.1588E-002, 2.7987E-002,
     &                       -2.0067E-002,-6.6101E-002,-1.2527E-002,
     &                        1.6175E-002,-5.1555E-003, 7.3867E-004,
     &                       -3.2870E-001,-1.9420E-002,-1.6805E-002,
     &                        2.5031E-003, 8.4785E-003, 1.3727E-002,
     &                       -3.3331E-002, 4.1629E-003, 3.6778E-004,
     &                        1.4714E-002,-4.3042E-003,-1.2047E-003,
     &                        2.5714E-004, 2.6942E-002,-1.2786E-002,
     &                        5.0574E-004, 2.9082E-002,-9.3908E-003,
     &                        5.0755E-003, 1.5606E-002,-5.0868E-003,
     &                        1.8251E-002,-2.6124E-003, 1.5416E-002,
     &                        1.8188E-002/
C     750km equinox
      DATA (DHEL(3,1,J),J=1,49)/ 8.5395E+000,-1.2355E-006,-3.5963E-001,
     &                       -8.3898E-007,-3.0322E-001, 1.7365E-006,
     &                        1.7334E-001, 7.2227E-002,-1.0290E-006,
     &                        1.0917E-001, 3.3145E-008,-2.0338E-002,
     &                       -2.8147E-007, 1.9255E-002,-3.5607E-008,
     &                       -4.7856E-002,-2.9990E-007, 1.7713E-002,
     &                        8.7537E-008,-3.0223E-002,-2.1642E-007,
     &                        4.9244E-003,-1.5008E-007, 9.0134E-003,
     &                       -5.4076E-003,-1.7635E-007, 2.6828E-003,
     &                        1.8278E-009,-4.6448E-003,-2.0650E-004,
     &                       -1.1633E-007,-2.3058E-004,-7.8885E-008,
     &                        5.5645E-003, 2.2420E-008, 3.6199E-003,
     &                        3.1934E-008,-1.4958E-002,-4.0761E-008,
     &                       -2.4953E-003, 1.9343E-002,-2.4736E-008,
     &                        4.8865E-003, 2.6303E-004, 2.6057E-008,
     &                       -7.6145E-003,-3.5056E-008, 4.4221E-003,
     &                       -1.1743E-002/
C     750km June solstice
      DATA (DHEL(3,2,J),J=1,49)/ 8.0106E+000,-4.4548E-001,-1.8174E-001,
     &                       -1.4286E-001, 2.3503E-002, 1.5303E-001,
     &                        3.0849E-001,-1.3076E-001, 6.3870E-002,
     &                        8.5933E-002,-2.7825E-002,-1.9401E-002,
     &                       -1.1111E-002,-1.5264E-001,-1.1578E-001,
     &                       -1.5510E-001,-3.5013E-002, 2.8185E-002,
     &                       -2.6338E-003, 4.7758E-003, 1.1463E-002,
     &                        1.0401E-002,-6.6656E-003,-1.2770E-003,
     &                       -2.7712E-001,-2.2595E-002,-1.7372E-002,
     &                        3.6625E-003, 1.2089E-003, 3.6612E-002,
     &                       -3.5766E-002,-4.7622E-003, 8.0404E-004,
     &                        2.0356E-002,-1.2600E-002,-3.8058E-003,
     &                       -3.0403E-003, 2.1958E-002,-9.7326E-003,
     &                       -4.7118E-003,-1.8127E-002,-6.5368E-003,
     &                        1.8119E-003, 5.6672E-004,-7.0145E-003,
     &                       -2.2251E-005, 3.0327E-004, 5.2279E-003,
     &                        7.1842E-003/
C     1000km equinox
      DATA (DHEL(4,1,J),J=1,49)/ 8.5126E+000, 6.6638E-007,-4.3467E-001,
     &                        2.6349E-006,-2.1941E-001, 1.2981E-006,
     &                        7.8944E-002,-2.4220E-002,-5.7262E-007,
     &                        9.9112E-002,-1.2219E-008, 3.8104E-002,
     &                        6.1122E-007,-1.3751E-001, 2.0071E-007,
     &                       -5.3385E-002, 6.6087E-007, 3.8775E-002,
     &                        3.6086E-007,-6.2806E-002,-4.5958E-008,
     &                       -5.2240E-003, 2.7794E-008,-1.0112E-002,
     &                       -2.0386E-002,-4.1445E-007,-4.7492E-002,
     &                       -3.1373E-008,-1.0906E-002, 3.1090E-002,
     &                       -7.2809E-009,-7.1495E-003, 3.8796E-008,
     &                        5.3399E-002, 1.9761E-007,-2.0636E-003,
     &                       -9.4328E-008,-5.1179E-004,-5.4058E-008,
     &                       -1.2413E-002, 2.4460E-002,-8.3003E-008,
     &                       -8.0597E-003, 1.0507E-002,-3.2739E-008,
     &                        4.9636E-003,-1.8945E-008, 1.3645E-002,
     &                       -7.1743E-003/
C     1000km June solstice
      DATA (DHEL(4,2,J),J=1,49)/ 7.8861E+000,-2.5140E-001,-2.4407E-002,
     &                       -2.0198E-001,-2.5291E-002, 1.1063E-001,
     &                        1.3606E-001,-5.0165E-002, 1.4380E-001,
     &                        1.2596E-001,-2.5094E-002,-4.4737E-003,
     &                       -1.0152E-002,-2.4527E-001,-2.1181E-001,
     &                       -1.1042E-001,-9.5258E-003, 1.1105E-002,
     &                       -1.8623E-002, 1.1621E-001, 1.3438E-002,
     &                        2.1396E-002, 6.3530E-003, 1.0809E-002,
     &                       -1.5715E-001,-4.7383E-002,-1.0913E-003,
     &                       -1.4630E-002,-3.6688E-003, 3.7541E-002,
     &                       -1.2694E-002, 8.7360E-003,-1.1349E-003,
     &                        4.0484E-002,-2.6862E-002,-3.4730E-003,
     &                       -7.2372E-003,-3.3460E-003,-8.1202E-003,
     &                        5.1497E-003,-1.3913E-002,-3.2409E-003,
     &                        2.1047E-003,-8.3477E-003,-8.1966E-003,
     &                        4.2594E-003,-2.9227E-003,-9.2693E-003,
     &                        2.2682E-003/
C/////////////////////////////////////////////////////////////////////
C//////////////////////////////////N+/////////////////////////////////
C     400km equinox
      DATA (DNL(1,1,J),J=1,49)/ 9.2765E+000,-1.8499E-007,-3.0195E-002,
     &                       -2.3630E-007, 1.2337E-002,-5.3134E-007,
     &                        1.0174E-002,-3.0143E-001,-4.4969E-007,
     &                        4.0224E-002, 2.5418E-007,-2.2113E-002,
     &                       -9.3834E-008,-2.6967E-001,-2.2087E-007,
     &                       -3.0670E-002, 1.8923E-007,-1.7787E-002,
     &                       -7.4715E-008, 5.8658E-002, 1.0175E-007,
     &                       -4.9642E-003, 8.0931E-009,-5.8069E-004,
     &                       -9.6466E-003,-1.9936E-007, 8.5438E-005,
     &                        9.6678E-008,-1.4405E-003,-8.1367E-003,
     &                        1.2139E-007,-6.4643E-004,-2.8006E-009,
     &                        2.1228E-002,-8.6142E-008, 6.2702E-003,
     &                        3.6155E-008, 8.2411E-003, 4.7083E-008,
     &                        3.8409E-004, 1.2262E-002,-1.7636E-008,
     &                        1.5587E-003, 1.9816E-003,-3.3066E-008,
     &                       -2.7297E-003,-1.8297E-008, 1.2335E-004,
     &                        1.1364E-003/
C     400km June solstice
      DATA (DNL(1,2,J),J=1,49)/ 9.2392E+000, 4.0188E-001, 6.3930E-002,
     &                       -8.5958E-002,-4.7951E-003,-2.4724E-002,
     &                       -3.2147E-002,-3.5425E-001, 9.1141E-003,
     &                        5.4439E-002, 2.1320E-002,-2.7290E-002,
     &                       -3.2257E-003,-3.2031E-001,-4.7704E-003,
     &                        4.1115E-002,-3.6383E-003,-1.6398E-002,
     &                       -2.4104E-003, 8.2126E-004,-1.1835E-002,
     &                        5.9562E-003, 1.7010E-003, 5.0395E-004,
     &                       -9.3262E-002,-1.1371E-002, 1.5332E-002,
     &                       -2.0002E-003,-2.8968E-004, 3.9653E-002,
     &                       -5.2539E-003,-5.2158E-003,-3.2324E-004,
     &                        4.3222E-003,-5.3072E-003, 6.3232E-004,
     &                        6.9118E-004,-6.0341E-003,-6.2083E-004,
     &                       -1.3747E-003,-4.2513E-005,-4.3487E-003,
     &                       -2.0489E-004,-1.6498E-002,-3.4412E-003,
     &                       -1.2307E-002,-3.0081E-003,-1.4694E-002,
     &                       -9.0169E-003/
C     550km equinox
      DATA (DNL(2,1,J),J=1,49)/ 9.0063E+000, 8.5692E-007, 1.3438E-001,
     &                        7.5368E-007,-1.0519E-001,-5.5276E-006,
     &                        9.9278E-002,-3.0846E-001, 4.0235E-007,
     &                        6.3959E-002, 9.1603E-007,-2.7028E-002,
     &                       -6.3298E-007,-3.8941E-001, 6.3463E-007,
     &                       -8.3377E-002, 5.6084E-007,-2.0251E-002,
     &                       -5.4261E-007, 8.9982E-002,-9.5019E-008,
     &                       -5.2807E-003, 4.6354E-008, 2.9355E-003,
     &                       -4.6802E-003, 9.8816E-008,-2.7926E-003,
     &                        2.2151E-007, 1.3646E-003, 2.7718E-002,
     &                       -3.4461E-009,-5.5476E-003,-2.4872E-008,
     &                        3.4413E-002,-8.8181E-008, 9.3552E-003,
     &                        1.3853E-008, 2.2646E-002, 2.8251E-008,
     &                       -1.5192E-003, 1.3859E-002, 1.6226E-008,
     &                        3.6852E-003, 2.4081E-003, 3.9640E-008,
     &                       -9.0767E-003, 7.0011E-008,-1.5147E-003,
     &                        7.8946E-004/
C     550km June solstice
      DATA (DNL(2,2,J),J=1,49)/ 8.9712E+000, 6.2259E-001, 2.5911E-001,
     &                       -2.9261E-001, 1.1094E-001,-2.2072E-001,
     &                       -6.3167E-002,-3.7597E-001, 1.1875E-001,
     &                        6.3175E-004, 9.1767E-003,-1.2431E-002,
     &                       -1.0901E-002,-2.7977E-001,-1.3503E-002,
     &                       -1.1409E-002, 2.6856E-002, 9.0748E-003,
     &                       -3.0204E-002, 5.3404E-002,-2.3036E-002,
     &                        3.1147E-004, 5.5788E-003,-5.4323E-003,
     &                       -9.7330E-002,-2.3986E-002, 4.3029E-003,
     &                        2.0047E-002,-3.7340E-003, 2.3783E-002,
     &                       -1.5343E-002,-2.8604E-003, 2.7675E-003,
     &                       -1.5551E-002,-7.1283E-003, 5.3254E-004,
     &                        1.5451E-003,-1.5329E-002, 8.1201E-004,
     &                       -2.0467E-003,-1.3033E-002,-5.4349E-003,
     &                        1.3550E-003,-2.7607E-002,-5.4011E-003,
     &                       -1.6276E-002,-1.6858E-003,-3.5652E-002,
     &                       -1.3964E-002/
C     750km equinox
      DATA (DNL(3,1,J),J=1,49)/ 8.5862E+000,-3.2389E-007, 2.5327E-001,
     &                       -5.5733E-006,-1.0952E-001, 1.3457E-006,
     &                        1.5412E-001,-5.1416E-001, 2.0209E-006,
     &                       -1.1427E-002,-9.9065E-007,-3.0871E-002,
     &                       -1.4579E-007,-3.5447E-001,-1.8618E-006,
     &                       -1.2044E-001, 2.7905E-007,-1.8735E-002,
     &                       -6.8531E-007, 8.9785E-002, 1.2276E-006,
     &                       -7.8418E-003, 1.3500E-008, 4.7094E-003,
     &                        9.3388E-002, 1.3278E-008,-8.3880E-003,
     &                        4.8633E-007,-5.9264E-003, 4.2086E-002,
     &                        9.9745E-008,-1.2530E-002,-1.5369E-007,
     &                        1.0372E-001,-1.7825E-008, 1.1288E-002,
     &                        2.3850E-007, 8.1607E-003,-1.1460E-009,
     &                       -2.8998E-003, 1.5298E-002,-1.7277E-008,
     &                        1.5876E-003, 4.5693E-003, 8.3482E-008,
     &                       -5.8085E-003, 1.1993E-007,-4.8027E-004,
     &                       -2.8110E-005/
C     750km June solstice
      DATA (DNL(3,2,J),J=1,49)/ 8.6860E+000, 6.2474E-001, 3.9864E-001,
     &                       -3.5056E-001, 6.7989E-002,-2.0349E-001,
     &                       -4.3468E-002,-2.8985E-001, 6.9687E-002,
     &                        3.8408E-002,-3.9263E-002, 2.4613E-002,
     &                       -1.6681E-002,-2.0418E-001,-4.9327E-002,
     &                       -1.7733E-002, 6.3639E-002,-1.9788E-003,
     &                       -4.0926E-002, 4.2652E-002,-2.0606E-002,
     &                        1.2350E-002,-2.4292E-002, 1.6044E-002,
     &                       -8.9173E-002,-2.0330E-002, 2.0639E-002,
     &                        6.8728E-003, 2.5223E-003, 3.1266E-002,
     &                       -1.4652E-002, 5.5005E-003,-5.0159E-003,
     &                       -2.7642E-004, 2.0299E-003, 3.6913E-003,
     &                       -1.7547E-003,-1.6781E-002,-1.4129E-002,
     &                        7.0872E-003,-1.0006E-002,-2.8588E-003,
     &                       -6.3962E-004,-3.6016E-002,-7.0462E-003,
     &                       -2.0823E-002,-1.2145E-003,-3.6628E-002,
     &                       -1.7476E-002/
C     1000km equinox
      DATA (DNL(4,1,J),J=1,49)/ 8.2783E+000,-1.3145E-006, 1.6634E-001,
     &                       -4.4507E-007,-9.3753E-003, 2.7889E-006,
     &                       -1.1895E-002,-4.9691E-001,-8.0933E-007,
     &                       -5.0906E-002,-9.0499E-007,-6.5566E-003,
     &                        5.0452E-007,-3.2368E-001, 4.0711E-007,
     &                       -1.1566E-001, 2.2821E-008,-4.6834E-002,
     &                       -1.9870E-008, 8.9269E-002, 5.2219E-007,
     &                        9.2490E-003,-3.0279E-007,-2.4639E-003,
     &                        1.2319E-001, 3.4657E-007, 9.8288E-003,
     &                       -2.0789E-008,-3.0805E-003, 1.2434E-002,
     &                        2.7959E-007,-5.3884E-003,-4.8629E-008,
     &                        8.6375E-002,-1.4080E-007, 1.0559E-002,
     &                        5.5476E-008,-5.8048E-004, 3.2727E-008,
     &                       -9.9461E-004,-5.6637E-003, 1.7444E-007,
     &                       -3.0875E-003, 4.4380E-003,-2.7864E-008,
     &                       -3.0832E-003, 2.9972E-008,-1.9701E-003,
     &                       -7.5436E-003/
C     1000km June solstice
      DATA (DNL(4,2,J),J=1,49)/ 8.3694E+000, 5.9656E-001, 4.4055E-001,
     &                       -2.3417E-001,-1.1354E-001, 1.7281E-002,
     &                       -5.3018E-002,-3.2389E-001, 4.6938E-003,
     &                        8.4262E-003,-8.3879E-003, 7.7294E-003,
     &                        4.6891E-003,-2.2034E-001,-3.4145E-002,
     &                        6.2052E-002, 4.8528E-002,-5.2128E-003,
     &                       -2.4769E-002, 1.4277E-002,-3.0019E-002,
     &                       -1.5376E-002,-6.8305E-003,-1.7002E-003,
     &                       -4.0215E-002, 1.6609E-002, 2.3233E-002,
     &                        5.4203E-003, 1.4267E-003, 5.5382E-002,
     &                       -1.7332E-002,-2.7946E-003,-1.3890E-003,
     &                        3.7206E-002,-4.1274E-003, 4.2794E-003,
     &                        2.7750E-004,-7.0599E-003,-1.0803E-004,
     &                        1.3258E-003,-1.2112E-002, 7.3725E-004,
     &                        6.3315E-004,-1.2200E-002,-5.4789E-003,
     &                       -1.6331E-002,-1.5537E-003,-5.9603E-003,
     &                       -3.9097E-003/
      DATA (CORRH(J),J=1,3)/ 0.762,0.836,1.033/
      DATA (CORRO(J),J=1,3)/ 1.872,1.640,1.234/
C//////////////////////////////////////////////////////////////////////
C/////////////////////////solar minimum////////////////////////////////
      CALL IONLOW(INVDIP,MLT,ALT,DDD,DOL,0,NOL)
      CALL IONLOW(INVDIP,MLT,ALT,DDD,DHL,1,NHL)
      CALL IONLOW(INVDIP,MLT,ALT,DDD,DHEL,2,NHEL)
      CALL IONLOW(INVDIP,MLT,ALT,DDD,DNL,3,NNL)
C///////////////////////////solar maximum//////////////////////////////
      CALL IONHIGH(INVDIP,MLT,ALT,DDD,DOH,0,NOH)
      CALL IONHIGH(INVDIP,MLT,ALT,DDD,DHH,1,NHH)
      CALL IONHIGH(INVDIP,MLT,ALT,DDD,DHEH,2,NHEH)
      CALL IONHIGH(INVDIP,MLT,ALT,DDD,DNH,3,NNH)
C     interpolation (in logarithm)
      IF (PF107 .GT. 260) PF107=260
	IF (PF107 .LT. 65) PF107=65
      NO=(ALOG10(NOH)-ALOG10(NOL))/(210.0-85.0)*(PF107-85.0)+ALOG10(NOL)
      NH=(ALOG10(NHH)-ALOG10(NHL))/(210.0-85.0)*(PF107-85.0)+ALOG10(NHL)
      NHE=(ALOG10(NHEH)-ALOG10(NHEL))/(210.0-85.0)*(PF107-85.0)+
     &     ALOG10(NHEL)
      NN=(ALOG10(NNH)-ALOG10(NNL))/(210.0-85.0)*(PF107-85.0)+ALOG10(NNL)
C     percentages
      NO=10**NO
      NH=10**NH
      NHE=10**NHE
      NN=10**NN
C     normalization
      NTOT=NO+NH+NHE+NN
      NO=NO/NTOT
      NH=NH/NTOT
      NHE=NHE/NTOT
      NN=NN/NTOT
C     C/NOFS correction
      IF (PF107 .LE. 67.5) THEN
       NOCORR=CORRO(1)
       NHCORR=CORRH(1)
      ENDIF
      IF ((PF107 .GT. 67.5) .AND. (PF107 .LT. 87.5)) THEN
       IL=IFIX((PF107-57.5)/10.0)
       NOCORR=(CORRO(IL+1)-CORRO(IL))/10.0*(PF107-57.5-10*IL)+CORRO(IL)
       NHCORR=(CORRH(IL+1)-CORRH(IL))/10.0*(PF107-57.5-10*IL)+CORRH(IL)
      ENDIF 
      IF (PF107 .GE. 87.5) GOTO 10
      NO=NO/NOCORR
      NH=NH/NHCORR
      NHE=NHE/NHCORR
      NN=NN/NOCORR
C     normalization
      NTOT=NO+NH+NHE+NN
      NO=NO/NTOT
      NH=NH/NTOT
      NHE=NHE/NTOT
      NN=NN/NTOT
10    CONTINUE      
      RETURN
      END
C
C
      SUBROUTINE IONLOW(INVDIP,MLT,ALT,DDD,D,ION,NION)
C------------------------------------------------------------------------
C IONLOW calculates absolute density of O+, H+, He+ or N+  in the outer
C ionosphere for a low solar activity (F107 < 100).
C Based on spherical harmonics approximation of relative ion density
C (by AE-C, and AE-E) at altitudes centred on 400km, 550km, 750km, and 1000km.
C For intermediate altitudes an interpolation is used. 
C Recommended altitude range: 350-2500 km!!!
C For days between seasons centred at (21.3. = 79; 21.6. = 171;
C 23.9. 265; 21.12. = 354) relative ion density is linearly interpolated.
C
C Inputs: INVDIP - "mix" coordinate of the dip latitude and of
C                    the invariant latitude;
C                    positive northward, in deg, range <-90.0;90.0>
C         MLT - magnetic local time (central dipole)
C               in hours, range <0;24)
C         ALT - altitude above the Earth's surface;
C               in km, range <350;2000>
C         DDD - day of year; range <0;365>
C         D - coefficints of spherical harmonics for a given ion
C         ION - ion species (0...O+, 1...H+, 2...He+, 3...N+)
C Output: NION - absolute density for given ion 
C------------------------------------------------------------------------
      REAL INVDIP,MLT,ALT,NION
      INTEGER DDD,ION
      DIMENSION  D(4,3,49),MIRREQ(49)
      REAL INVDP,DTOR
      REAL RMLT,RCOLAT
      REAL C(49),C1(82)
      INTEGER SEZA,SEZB,SEZAI,SEZBI,DDDA,DDDB,DDDD
      REAL N0A400,N0B400,N400A,N400B,N400
      REAL N0A550,N0B550,N550A,N550B,N550
      REAL N0A750,N0B750,N750A,N750B,N750
      REAL N0A100,N0B100,N100A,N100B,N1000
	REAL ANO(4),AH(4),DNO(2),ST(3)
	COMMON/CONST/DTOR,PI
	DATA (MIRREQ(J),J=1,49)/
     &            1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1,
     &            1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,
     &           -1, 1,-1, 1,-1, 1, 1,-1, 1, 1,-1, 1,-1, 1, 1/
C/////////////////////////////////////////////////////////////////////
C     coefficients for mirroring
      DO 10 I=1,49
       D(1,3,I)=D(1,2,I)*MIRREQ(I)
       D(2,3,I)=D(2,2,I)*MIRREQ(I)
       D(3,3,I)=D(3,2,I)*MIRREQ(I)
10     D(4,3,I)=D(4,2,I)*MIRREQ(I)
      INVDP=INVDIP

      RMLT=MLT*DTOR*15.0
      RCOLAT=(90.0-INVDP)*DTOR
      CALL SPHARM_IK(C1,6,6,RCOLAT,RMLT)
      do i=1,49
      	c(i)=c1(i)
      	enddo
C     21.3. - 20.6.
      IF ((DDD .GE. 79) .AND. (DDD .LT. 171)) THEN
       SEZA=1
       SEZB=2
       DDDA=79
       DDDB=171
       DDDD=DDD
      END IF
C     21.6. - 22.9.
      IF ((DDD .GE. 171) .AND. (DDD .LT. 265)) THEN
       SEZA=2
       SEZB=4
       DDDA=171
       DDDB=265
       DDDD=DDD
      END IF
C     23.9. - 20.12.
      IF ((DDD .GE. 265) .AND. (DDD .LT. 354)) THEN
       SEZA=4
       SEZB=3
       DDDA=265
       DDDB=354
       DDDD=DDD
      END IF
C     21.12. - 20.3.
      IF ((DDD .GE. 354) .OR. (DDD .LT. 79)) THEN
       SEZA=3
       SEZB=1
       DDDA=354
       DDDB=365+79
       DDDD=DDD
        IF (DDD .GE. 354) THEN
         DDDD=DDD
        ELSE
         DDDD=DDD+365
        END IF
      END IF
       SEZAI=MOD(SEZA-1,3)+1
       SEZBI=MOD(SEZB-1,3)+1
C     400km level
        N0A400=0.0
        N0B400=0.0
        DO 30 I=1,49
         N0A400=N0A400+C(I)*D(1,SEZAI,I)
30       N0B400=N0B400+C(I)*D(1,SEZBI,I)
        N400A=N0A400
        N400B=N0B400
        N400=(N400B-N400A)/(DDDB-DDDA)*(DDDD-DDDA)+N400A
C     550km level
      N0A550=0.0
	N0B550=0.0
	DO 70 I=1,49
         N0A550=N0A550+C(I)*D(2,SEZAI,I)
70       N0B550=N0B550+C(I)*D(2,SEZBI,I)
	N550A=N0A550
	N550B=N0B550
	N550=(N550B-N550A)/(DDDB-DDDA)*(DDDD-DDDA)+N550A
C     750km level
      N0A750=0.0
      N0B750=0.0
	DO 110 I=1,49
         N0A750=N0A750+C(I)*D(3,SEZAI,I)
110      N0B750=N0B750+C(I)*D(3,SEZBI,I)
	N750A=N0A750
	N750B=N0B750
	N750=(N750B-N750A)/(DDDB-DDDA)*(DDDD-DDDA)+N750A
C     1000km level
      N0A100=0.0
	N0B100=0.0
       DO 150 I=1,49
        N0A100=N0A100+C(I)*D(4,SEZAI,I)
150     N0B100=N0B100+C(I)*D(4,SEZBI,I)
       N100A=N0A100
       N100B=N0B100
       N1000=(N100B-N100A)/(DDDB-DDDA)*(DDDD-DDDA)+N100A

C     n(O+) AND n(N+) must not increase above 750km
      IF (((ION .EQ. 0) .OR. (ION .EQ. 3)) .AND. (N1000 .GT. N750))
     &      N1000=N750
C     n(H+) and n(He+) must not decrease above 750km
      IF (((ION .EQ. 1) .OR. (ION .EQ. 2)) .AND. (N1000 .LT. N750)) 
     &      N1000=N750

      IF (ALT .GE. 960) SUM=(N1000-N750)/220.0*(ALT-740.0)+N750     
      IF (ALT .GE. 960) GOTO 240
                
      ANO(1)=N400
	 ANO(2)=N550
	  ANO(3)=N750
	   ANO(4)=N1000

C	AH(1)=400.
C       AH(2)=550.
C        AH(3)=750.
C         AH(4)=1000.

C     exact values
	AH(1)=390.
       AH(2)=550.
        AH(3)=740.
         AH(4)=960.
      DNO(1)=20.
       DNO(2)=20.

      ST1=(ANO(2)-ANO(1))/(AH(2)-AH(1))
      DO 200 I=2,3
       ST2=(ANO(I+1)-ANO(I))/(AH(I+1)-AH(I))
       ANO(I)=ANO(I)-(ST2-ST1)*DNO(I-1)*ALOG(2.)
200   ST1=ST2

      DO 220 I=1,3
220   ST(I)=(ANO(I+1)-ANO(I))/(AH(I+1)-AH(I))

c      ARGMAX=88.0
      SUM=ANO(1)+ST(1)*(ALT-AH(1))                     
     
      DO 230 I=1,2
	aa = eptr(alt  ,dno(i),ah(i+1))
	bb = eptr(ah(1),dno(i),ah(i+1))
230   SUM=SUM+(ST(I+1)-ST(I))*(AA-BB)*DNO(I)
                
240   NION=10**SUM       
      RETURN
      END     
C
C
      SUBROUTINE IONHIGH(INVDIP,MLT,ALT,DDD,D,ION,NION)
C-----------------------------------------------------------------------
C IONHIGH calculates absolute density of O+, H+, He+ or N+  in the outer
C ionosphere for high solar activity conditions (PF10.7 = 210).
C Based on spherical harmonics approximation of relative ion density
C (by IK24) at altitudes centred on 550km, 900km, 1500km, and 2250km.
C For intermediate altitudes a interpolation is used. 
C Recommended altitude range: 500-2500 km!!!
C For days between seasons centred at (21.3. = 79; 21.6. = 171;
C 23.9. 265; 21.12. = 354) relative ion density is linearly interpolated.
C
C Inputs: INVDIP - "mix" coordinate of the dip latitude and of
C                    the invariant latitude;
C                    positive northward, in deg, range <-90.0;90.0>
C         MLT - magnetic local time (central dipole)
C               in hours, range <0;24)
C         ALT - altitude above the Earth's surface;
C               in km, range <500;3000>
C         DDD - day of year; range <0;365>
C         D - coefficints of spherical harmonics for a given ion
C         ION - ion species (0...O+, 1...H+, 2...He+, 3...N+)
C Output: NION - absolute density for given ion 
C------------------------------------------------------------------------
      REAL INVDIP,MLT,ALT,NION
	  INTEGER DDD,ION
      DIMENSION  D(4,3,49),MIRREQ(49)
      REAL INVDP,DTOR
      REAL RMLT,RCOLAT
      REAL C(49),C1(82)
      INTEGER SEZA,SEZB,SEZAI,SEZBI,DDDA,DDDB,DDDD
      REAL N0A550,N0B550,N550A,N550B,N550
      REAL N0A900,N0B900,N900A,N900B,N900
      REAL N0A150,N0B150,N150A,N150B,N1500
      REAL N0A250,N0B250,N250A,N250B,N2500
	REAL ANO(4),AH(4),DNO(2),ST(3)
	COMMON/CONST/DTOR,PI
	DATA (MIRREQ(J),J=1,49)/
     &            1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1,
     &            1,-1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1, 1,-1, 1,-1, 1,
     &           -1, 1,-1, 1,-1, 1, 1,-1, 1, 1,-1, 1,-1, 1, 1/
C///////////////////////////////////////////////////////////////////////
C     coefficients for mirroring
      DO 10 I=1,49
       D(1,3,I)=D(1,2,I)*MIRREQ(I)
       D(2,3,I)=D(2,2,I)*MIRREQ(I)
       D(3,3,I)=D(3,2,I)*MIRREQ(I)
10     D(4,3,I)=D(4,2,I)*MIRREQ(I)
      INVDP=INVDIP
      
      RMLT=MLT*DTOR*15.0
      RCOLAT=(90.0-INVDP)*DTOR
      CALL SPHARM_IK(C1,6,6,RCOLAT,RMLT)
      do i=1,49
      	c(i)=c1(i)
      	enddo
C     21.3. - 20.6.
      IF ((DDD .GE. 79) .AND. (DDD .LT. 171)) THEN
       SEZA=1
       SEZB=2
       DDDA=79
       DDDB=171
       DDDD=DDD
      END IF
C     21.6. - 22.9.
      IF ((DDD .GE. 171) .AND. (DDD .LT. 265)) THEN
       SEZA=2
       SEZB=4
       DDDA=171
       DDDB=265
       DDDD=DDD
      END IF
C     23.9. - 20.12.
      IF ((DDD .GE. 265) .AND. (DDD .LT. 354)) THEN
       SEZA=4
       SEZB=3
       DDDA=265
       DDDB=354
       DDDD=DDD
      END IF
C     21.12. - 20.3.
      IF ((DDD .GE. 354) .OR. (DDD .LT. 79)) THEN
       SEZA=3
       SEZB=1
       DDDA=354
       DDDB=365+79
       DDDD=DDD
        IF (DDD .GE. 354) THEN
         DDDD=DDD
        ELSE
         DDDD=DDD+365
        END IF
      END IF
       SEZAI=MOD(SEZA-1,3)+1
       SEZBI=MOD(SEZB-1,3)+1
C     550km level
        N0A550=0.0
        N0B550=0.0
        DO 30 I=1,49
         N0A550=N0A550+C(I)*D(1,SEZAI,I)
30       N0B550=N0B550+C(I)*D(1,SEZBI,I)
        N550A=N0A550
        N550B=N0B550
        N550=(N550B-N550A)/(DDDB-DDDA)*(DDDD-DDDA)+N550A
C     900km level
      N0A900=0.0
	N0B900=0.0
	DO 70 I=1,49
         N0A900=N0A900+C(I)*D(2,SEZAI,I)
70       N0B900=N0B900+C(I)*D(2,SEZBI,I)
	N900A=N0A900
	N900B=N0B900
	N900=(N900B-N900A)/(DDDB-DDDA)*(DDDD-DDDA)+N900A
C     1500km level
      N0A150=0.0
      N0B150=0.0
	DO 110 I=1,49
         N0A150=N0A150+C(I)*D(3,SEZAI,I)
110      N0B150=N0B150+C(I)*D(3,SEZBI,I)
	N150A=N0A150
	N150B=N0B150
	N1500=(N150B-N150A)/(DDDB-DDDA)*(DDDD-DDDA)+N150A
C     2500km level
      N0A250=0.0
	  N0B250=0.0
       DO 150 I=1,49
        N0A250=N0A250+C(I)*D(4,SEZAI,I)
150     N0B250=N0B250+C(I)*D(4,SEZBI,I)
       N250A=N0A250
       N250B=N0B250
       N2500=(N250B-N250A)/(DDDB-DDDA)*(DDDD-DDDA)+N250A

C     O+ and N+ may not increase above 1500km 
      IF (((ION .EQ. 0) .OR. (ION .EQ. 3)) .AND. (N2500 .GT. N1500)) 
     & N2500=N1500
C     H+ and He+ may not decrease above 1500km 
      IF (((ION .EQ. 1) .OR. (ION .EQ. 2)) .AND. (N2500 .LT. N1500)) 
     & N2500=N1500
              
      IF (ALT .GE. 2250.0) SUM=(N2500-N1500)/750.0*(ALT-2250.0)+N2500
      IF (ALT .GE. 2250.0) GOTO 240
      
      ANO(1)=N550
	  ANO(2)=N900
	  ANO(3)=N1500
	  ANO(4)=N2500

	  AH(1)=550.
      AH(2)=900.
      AH(3)=1500.
      AH(4)=2250.
      DNO(1)=20.
      DNO(2)=20.

      ST1=(ANO(2)-ANO(1))/(AH(2)-AH(1))
      DO 200 I=2,3
       ST2=(ANO(I+1)-ANO(I))/(AH(I+1)-AH(I))
       ANO(I)=ANO(I)-(ST2-ST1)*DNO(I-1)*ALOG(2.)
200   ST1=ST2

      DO 220 I=1,3
220   ST(I)=(ANO(I+1)-ANO(I))/(AH(I+1)-AH(I))

c      ARGMAX=88.0
      SUM=ANO(1)+ST(1)*(ALT-AH(1))                     
     
      DO 230 I=1,2
		aa = eptr(alt  ,dno(i),ah(i+1))
		bb = eptr(ah(1),dno(i),ah(i+1))
230   	SUM=SUM+(ST(I+1)-ST(I))*(AA-BB)*DNO(I)
                
240   NION=10**SUM       
      RETURN
      END
C
C
      REAL FUNCTION INVDPC(FL,DIMO,B0,DIPL)
C---------------------------------------------------------------------------
C INPUT:	FL	McIlwain L parameter, 
C		DIMO	dipole moment in Gauss
C           	B0      magnetic field strength in Gauss 
C       			the parameters FL, DIMO and B0 are needed  
C				for computing invariant latitude using a 
C				highly accuratepolynomial expansion 
C		DIPL	dip latitude in degree positive northward,
C RESULT:   	invdip 	a "mix" coordinate of the dip latitude (DIPL) and 
C 			of the invariant latitude; INVDIP is positive  
C			northward in degrees and ranges from -90.0 to 90.0.
C---------------------------------------------------------------------------
      REAL FL,DIMO,B0,DIPL,DTOR,ASA,INVL,RINVL,RDIPL,ALFA,BETA
      DOUBLE PRECISION B(8),A
      COMMON/CONST/DTOR,PI
      DATA B/1.259921D0  ,-0.1984259D0 ,-0.04686632D0,-0.01314096D0,
     &      -0.00308824D0, 0.00082777D0,-0.00105877D0, 0.00183142D0/
       A=(DIMO/B0)**(1.0D0/3.0D0)/FL
       ASA=A*(B(1)+B(2)*A+B(3)*A**2+B(4)*A**3+B(5)*A**4+
     &        B(6)*A**5+B(7)*A**6+B(8)*A**7)
       IF (ASA .GT. 1.0) ASA=1.0
       IF (ASA .LT. 0.0) ASA=0.0
C      invariant latitude (absolute value)
       RINVL=ACOS(SQRT(ASA))
       INVL=RINVL/DTOR
       ALFA=2.0-(1.0/(exp((DIPL-25.0)/2.0)+1.0)+
     &           1.0/(exp((-DIPL-25.0)/2.0)+1.0))
       BETA=1.0/(exp((INVL-25.0)/2.0)+1.0)+
     &      1.0/(exp((-INVL-25.0)/2.0)+1.0)-1.0
c       INVDPC=(ALFA*INVL+BETA*DIPL)/(ALFA+BETA)
       INVDPC=(ALFA*SIGN(1.0,DIPL)*INVL+BETA*DIPL)/(ALFA+BETA)
       RETURN
       END
C
C       
      REAL FUNCTION INVDPC_OLD(FL,DIMO,B0,DIPL)
C---------------------------------------------------------------------------
C     calculation of INVDIP from FL, DIMO, BO, and DIPL
C     invariant latitude calculated by highly
C     accurate polynomial expansion
C---------------------------------------------------------------------------
      REAL FL,DIMO,B0,DIPL
      DOUBLE PRECISION B(8),A
      REAL DTOR,ASA,INVL,RINVL,RDIPL,ALFA,BETA
	  COMMON/CONST/DTOR,PI
      DATA B/1.259921D0  ,-0.1984259D0 ,-0.04686632D0,-0.01314096D0,
     &      -0.00308824D0, 0.00082777D0,-0.00105877D0, 0.00183142D0/
      A=(DIMO/B0)**(1.0D0/3.0D0)/FL
      ASA=A*(B(1)+B(2)*A+B(3)*A**2+B(4)*A**3+B(5)*A**4+
     &        B(6)*A**5+B(7)*A**6+B(8)*A**7)
      IF (ASA .GT. 1.0) ASA=1.0
      IF (ASA .LT. 0.0) ASA=0.0
c      invariant latitude (absolute value)
      RINVL=ACOS(SQRT(ASA))
      INVL=RINVL/DTOR
      RDIPL=DIPL*DTOR
      ALFA=SIN(ABS(RDIPL))**3
      BETA=COS(RINVL)**3
      INVDPC_OLD=(ALFA*SIGN(1.0,DIPL)*INVL+BETA*DIPL)/(ALFA+BETA)
      RETURN
      END

C
C                     
C*************************************************************                  
C************* PEAK VALUES ELECTRON DENSITY ******************                  
C*************************************************************                  
C
C
      real function FOUT(XMODIP,XLATI,XLONGI,UT,FF0)
c--------------------------------------------------------------
C CALCULATES CRITICAL FREQUENCY FOF2/MHZ USING SUBROUTINE GAMMA1.      
C XMODIP = MODIFIED DIP LATITUDE, XLATI = GEOG. LATITUDE, XLONGI=
C LONGITUDE (ALL IN DEG.), MONTH = MONTH, UT =  UNIVERSAL TIME 
C (DEC. HOURS), FF0 = ARRAY WITH RZ12-ADJUSTED CCIR/URSI COEFF.
C D.BILITZA,JULY 85.
c--------------------------------------------------------------
      DIMENSION FF0(988)
      INTEGER QF(9)
      DATA QF/11,11,8,4,1,0,0,0,0/
      FOUT=GAMMA1(XMODIP,XLATI,XLONGI,UT,6,QF,9,76,13,988,FF0)
      RETURN
      END
C
C
      real function XMOUT(XMODIP,XLATI,XLONGI,UT,XM0)
c--------------------------------------------------------------
C CALCULATES PROPAGATION FACTOR M3000 USING THE SUBROUTINE GAMMA1.
C XMODIP = MODIFIED DIP LATITUDE, XLATI = GEOG. LATITUDE, XLONGI=
C LONGITUDE (ALL IN DEG.), MONTH = MONTH, UT =  UNIVERSAL TIME 
C (DEC. HOURS), XM0 = ARRAY WITH RZ12-ADJUSTED CCIR/URSI COEFF.
C D.BILITZA,JULY 85.
c--------------------------------------------------------------
      DIMENSION XM0(441)
      INTEGER QM(7)
      DATA QM/6,7,5,2,1,0,0/
      XMOUT=GAMMA1(XMODIP,XLATI,XLONGI,UT,4,QM,7,49,9,441,XM0)
      RETURN
      END
C
C
      REAL FUNCTION HMF2ED(XMAGBR,R,X,XM3)         
c--------------------------------------------------------------
C CALCULATES THE PEAK HEIGHT HMF2/KM FOR THE MAGNETIC                           
C LATITUDE XMAGBR/DEGREE AND THE SMOOTHED ZUERICH SUNSPOT                         
C NUMBER R USING CCIR-M3000 XM3 AND THE RATIO X=FOF2/FOE.
C FOLLOWING CCIR RECOMMENDATION X IS LIMITED TO VALUE
C GREATER OR EQUAL TO 1.7 .                       
C [REF. D.BILITZA ET AL., TELECOMM.J., 46, 549-553, 1979]                       
C D.BILITZA,1980.     
c--------------------------------------------------------------
      F1=0.00232*R+0.222                         
      F2=1.2-0.0116*EXP(0.0239*R)            
      F3=0.096*(R-25.0)/150.0                      
      F4=1.0-R/150.0*EXP(-XMAGBR*XMAGBR/1600.0)
      if(x.lt.1.7) x=1.7
      DELM=F1*F4/(X-F2)+F3                
      HMF2ED=1490.0/(XM3+DELM)-176.0 
      RETURN          
      END             
C
C
      REAL FUNCTION XM3000HM(XMAGBR,R,X,HMF2)         
c--------------------------------------------------------------
C CALCULATES THE PROPAGATION FACTOR M3000 FOR THE MAGNETIC LATITUDE
C XMAGBR/DEG. AND THE SMOOTHED ZUERICH SUNSPOT NUMBER R USING THE                        
C PEAK HEIGHT HMF2/KM AND THE RATIO X=FOF2/FOE. Reverse of HMF2ED.                      
C [REF. D.BILITZA ET AL., TELECOMM.J., 46, 549-553, 1979]                       
C D.BILITZA,1980. ----- no longer used    
c--------------------------------------------------------------
      F1=0.00232*R+0.222                         
      F2=1.2-0.0116*EXP(0.0239*R)            
      F3=0.096*(R-25.0)/150.0                      
      F4=1.0-R/150.0*EXP(-XMAGBR*XMAGBR/1600.0)
      if(x.lt.1.7) x=1.7
      DELM=F1*F4/(X-F2)+F3                
	  XM3000HM=1490.0/(HMF2+176.0)-DELM
      RETURN          
      END             
C
C
	SUBROUTINE  SHAMDHMF2 (RLAT,FLON,T,RZ,HMF2)
C-------------------------------------------------------------------
C	COMPUTES THE HOURLY VALUES OF hmF2 FROM A SET OF SH COEFFICIENTS
C	IN A POINT OF A GIVEN GEOCENTRIC LATITUDE AND LONGITUDE OF THE 
C	EARTH'S SURFACE FOR A GIVEN MONTH AND A GIVEN SUNSPOT NUMBER.
C   PARAMETERS AND COEFFICIENTS ARE GIVEN IN DATA STATEMENTS.
C
C INPUT:	RLAT    The geographic latitude on the FLON meridian  
C                   where the modified dip latitude is equal to the 
C                   modip value for the considered point in space.
C           FLON    =LONGITUDE+15.*UT(hours)
C           T       Month as a REAL number (1.0 to 12.0)
C           RZ      12-month running mean
C OUTPUT:   HMF2    F2 peak altitude in km
C
C Altadill, D., S. Magdaleno, J.M. Torta, and E. Blanch 
C     Adv. Space Res. 52, 1756-1769, 2013.
C-------------------------------------------------------------------
      PARAMETER   (IBO=0,JBO=1,KDIM=8,LDIM=4,L=-1)
      DIMENSION   FN(0:KDIM,0:KDIM), CONST(0:KDIM,0:KDIM)
      DIMENSION   GNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			  HNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
	  DIMENSION     GANM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			  HANM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            GBNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			  HBNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      DIMENSION   BINT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            BEXT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      CHARACTER*1 IE       
      COMMON/AMTB/BINT,BEXT,RE,TZERO,IFIT,IB,KINT,LINT,KEXT,
     *              LEXT,KMAX,FN
c     ,CONST

      DATA THETA,RE,TZERO,IFIT,ICEN,IREF,IB,KINT,LINT,KEXT,LEXT
     *     /180.,6371.2,1.0,  -1,  0,   0,   2, 8,   4,   0,   -1/

  	  DATA ((CONST(N,M), M=0,N), N=0,KDIM)
     *	 /4*1.,1.73205,0.866025,1.,2.44949,1.93649,0.7905691,1.,
     *	  3.16228,3.35410,2.09165,0.739510,1.,3.87298,5.12348,
     *	  4.18330,2.21853,0.701561,1.,4.58258,2*7.24569,4.96078,
     *      2.32681,0.671693,1.,5.29150,9.72111,11.4564,9.49918,
     *      5.69951,2.42182,0.647260,1.,6.,12.5499,16.9926,16.4531,
     *      11.8645,6.40755,2.50683,0.626707/

	  DATA IE /"I"/

      DATA (((GANM(N,M,J),GBNM(N,M,J),HANM(N,M,J),HBNM(N,M,J),
     *    	J=0,LDIM), M=0,N), N=0,KDIM)
     * / 340.552,-0.376,   0.000, 0.000,
     *   -70.823, 1.150,   0.000, 0.000, -49.250, 0.591,   0.000, 0.000,
     *    24.037,-0.401,   0.000, 0.000,  -8.780, 0.282,   0.000, 0.000,
     *   -38.548, 0.177,   0.000, 0.000,
     *    52.811,-0.282,   0.000, 0.000,  35.165,-0.265,   0.000, 0.000,
     *   -21.227, 0.273,   0.000, 0.000,  10.183,-0.064,   0.000, 0.000,
     *    67.946, 1.288,  67.397, 0.850,
     *   -47.987,-1.643, -93.888,-1.257, -40.298,-1.075, -56.623,-0.768,
     *    19.471, 0.532,  37.264, 0.400,  -0.830,-0.267, -17.603,-0.243,
     *  -139.733,-1.204,   0.000, 0.000,
     *   140.567, 1.145,   0.000, 0.000,  93.356, 0.980,   0.000, 0.000,
     *   -48.353,-0.427,   0.000, 0.000,  21.370,-0.016,   0.000, 0.000,
     *   -64.759, 0.228, -83.194, 0.121,
     *    83.857,-0.228, 107.345, 0.013,  63.040,-0.268,  80.004,-0.254,
     *   -48.692, 0.109, -52.767, 0.079,  15.922, 0.004,  14.904, 0.172,
     *  -134.112, 3.405, 152.622,-2.016,
     *   192.632,-4.277,-188.201, 2.383, 114.890,-2.568,-121.624, 1.712,
     *   -69.827, 1.414,  76.826,-0.902,  35.669,-0.723, -33.598, 0.290,
     *  -241.557,-0.964,   0.000, 0.000,
     *   303.719, 1.393,   0.000, 0.000, 198.143, 0.731,   0.000, 0.000,
     *  -136.985,-0.557,   0.000, 0.000,  56.365, 0.420,   0.000, 0.000,
     *  -173.032, 0.275, -59.684,-0.368,
     *   251.737,-0.285,  79.946, 0.667, 184.674,-0.313,  30.894, 0.828,
     *  -100.746, 0.190, -14.771,-0.389,  30.175, 0.002,  21.618,-0.069,
     *     6.871, 0.189,  70.508,-0.893,
     *   -12.804, 0.018, -91.499, 1.128,  -5.759,-0.284, -60.616, 0.712,
     *    21.336, 0.036,  37.937,-0.537,  -9.778, 0.175, -15.741, 0.211,
     *    28.298, 1.499,  40.261,-2.376,
     *   -54.316,-1.889, -45.615, 2.789, -34.102,-1.211, -36.189, 2.006,
     *    20.337, 0.617,  15.090,-1.031, -10.873,-0.285,  -4.738, 0.324,
     *   -90.022, 1.611,   0.000, 0.000,
     *   139.241,-1.741,   0.000, 0.000,  69.750,-0.769,   0.000, 0.000,
     *   -28.658, 0.280,   0.000, 0.000,  22.881,-0.282,   0.000, 0.000,
     *   -44.702,-0.560,  87.636,-0.530,
     *    53.150, 0.510,-119.895, 0.539,  31.695, 0.735, -87.077, 0.547,
     *     6.348,-0.394,  54.557,-0.382,   0.875,-0.114, -15.031,-0.032,
     *  -159.602, 0.277,-144.746, 0.246,
     *   188.366,-0.118, 186.080,-0.124, 123.670,-0.172, 107.109,-0.067,
     *   -58.392, 0.093, -64.485,-0.014,  30.929,-0.054,  37.817, 0.010,
     *    19.949,-0.483,  29.250, 0.916,
     *   -30.468, 0.725, -36.526,-1.320, -13.301, 0.259, -31.395,-0.638,
     *    12.609,-0.244,  27.485, 0.374, -10.153, 0.253,  -5.509,-0.324,
     *    42.493,-0.379, 138.667,-1.337,
     *   -50.716, 0.303,-181.247, 1.744, -47.625, 0.434,-110.876, 1.038,
     *    27.315,-0.192,  57.106,-0.545,   0.778,-0.106, -30.096, 0.284,
     *   125.336, 0.325,   0.000, 0.000,
     *  -164.302,-0.458,   0.000, 0.000,-119.173, 0.120,   0.000, 0.000,
     *    78.273,-0.125,   0.000, 0.000, -26.471,-0.234,   0.000, 0.000,
     *  -164.084, 1.528,  68.950,-2.145,
     *   187.815,-1.754, -97.028, 2.521, 123.385,-1.348, -54.733, 1.333,
     *   -58.316, 0.589,  33.701,-0.805,  27.475,-0.118, -22.520, 0.539,
     *    30.638,-1.477, -71.140, 1.204,
     *   -43.070, 1.448,  86.162,-1.443, -31.966, 1.202,  68.472,-1.014,
     *    23.982,-0.552, -29.584, 0.633,  -3.900, 0.025,   4.363,-0.167,
     *    81.222, 0.150,  66.889, 0.006,
     *   -98.117,-0.095, -82.546, 0.149, -65.414,-0.057, -59.117,-0.113,
     *    33.457, 0.113,  34.682,-0.021, -13.056,-0.019, -12.982, 0.178,
     *    39.267,-0.337, -33.557, 0.109,
     *   -42.755, 0.319,  34.263,-0.255, -26.894, 0.297,  30.837,-0.086,
     *     6.342,-0.172, -17.113, 0.082,  -4.386,-0.001,   2.650,-0.097,
     *  20*0.000,
     *   -56.482,-0.951,   0.000, 0.000,
     *    49.870, 1.103,   0.000, 0.000,  47.355, 0.689,   0.000, 0.000,
     *   -21.830,-0.374,   0.000, 0.000,   0.708, 0.176,   0.000, 0.000,
     *     8.535, 0.422, -56.552, 0.790,
     *   -27.737,-0.208,  76.156,-0.834,  -9.129,-0.660,  44.140,-0.477,
     *    -5.598, 0.234, -24.694, 0.257,  -2.797, 0.226,   9.278,-0.054,
     *   -97.867, 1.578,  44.857,-0.495,
     *   116.177,-1.680, -49.651, 0.408,  93.725,-1.524, -42.861, 0.447,
     *   -55.150, 0.740,  28.612,-0.210,   7.615, 0.039,  -7.158,-0.040,
     *    84.841,-1.243, -74.812, 0.103,
     *  -100.335, 1.300,  87.349,-0.037, -78.486, 1.059,  70.399,-0.062,
     *    50.717,-0.613, -36.938, 0.044, -12.384, 0.093,   7.046, 0.005,
     *    50.573,-0.185,  47.967,-0.154,
     *   -59.881, 0.390, -55.625, 0.206, -35.187, 0.074, -39.209, 0.028,
     *    12.490,-0.039,  18.874,-0.072, -11.613, 0.191,  -8.454, 0.127,
     *  40*0.000,
     *  -243.265, 1.567,   0.000, 0.000,
     *   306.183,-1.910,   0.000, 0.000, 183.262,-0.922,   0.000, 0.000,
     *   -97.132, 0.553,   0.000, 0.000,  53.004,-0.403,   0.000, 0.000,
     *  -212.916, 1.108,   8.322,-0.089,
     *   257.690,-1.278, -15.853, 0.247, 179.077,-0.962, -15.457, 0.243,
     *   -99.826, 0.628,   1.487,-0.098,  34.120,-0.178,   1.112,-0.006,
     *   -61.739, 2.205,  62.259,-1.018,
     *    69.646,-2.288, -77.640, 1.293,  46.838,-1.850, -65.274, 0.858,
     *   -20.796, 0.919,  33.662,-0.542,   7.719,-0.165,  -5.840, 0.227,
     *    57.782, 0.176,  30.904,-0.524,
     *   -64.106,-0.272, -32.527, 0.468, -42.125,-0.123, -22.160, 0.471,
     *    21.006, 0.034,  12.768,-0.214,  -9.326,-0.077,  -3.047,-0.047,
     *   -15.644,-0.224, -96.643, 1.478,
     *    30.526, 0.117, 116.896,-1.707,   8.932, 0.254,  72.474,-1.045,
     *    -8.442,-0.098, -38.557, 0.559,  12.040,-0.100,  20.158,-0.290,
     *  60*0.000,
     *   -93.235, 1.670,   0.000, 0.000,
     *   115.863,-1.904,   0.000, 0.000,  42.475,-0.878,   0.000, 0.000,
     *   -16.805, 0.317,   0.000, 0.000,  26.766,-0.353,   0.000, 0.000,
     *   -10.938,-0.552, 229.921,-3.050,
     *     8.234, 0.386,-289.115, 3.548,   3.405, 0.746,-184.290, 2.115,
     *    12.877,-0.410, 116.519,-1.229,  -3.016,-0.147, -49.942, 0.564,
     *   -40.203,-0.273,   4.801, 0.004,
     *    46.012, 0.180, -11.896, 0.129,  38.085, 0.142,   2.665,-0.054,
     *    -6.701,-0.111,  -8.326, 0.065,   2.219,-0.065,  -3.252, 0.071,
     *    -5.474, 0.833,  61.060,-0.178,
     *     0.739,-0.777, -79.078, 0.293,  17.611,-0.764, -55.985, 0.102,
     *    -7.107, 0.359,  40.779,-0.184,  -8.184, 0.030, -14.352, 0.127,
     *   -51.003, 0.485,  36.183, 0.144,
     *    65.647,-0.752, -42.617,-0.228,  33.590,-0.298, -27.554,-0.093,
     *   -15.194, 0.193,  20.247, 0.033,  14.304,-0.227,  -6.789,-0.088,
     *  80*0.000/                                

      KMAX = MAX(KINT,KEXT)
      IF (KMAX .GT. KDIM)  GO TO 9999
      KT = MAX(LINT,LEXT)
      IF (KT .GT. LDIM)  GO TO 9999

	  DO 500 N=0,KMAX
	  DO 500 M=0,N

	  DO J=0,KT
	    GNM(N,M,J)=GANM(N,M,J)+GBNM(N,M,J)*rz
	    HNM(N,M,J)=HANM(N,M,J)+HBNM(N,M,J)*rz
	    ENDDO
 
      IF (IE .EQ. 'I')  THEN
         IF (N .GT. KINT)  GO TO 500
         LJ = LINT
      ELSE
         IF (N .GT. KEXT)  GO TO 500
         LJ = LEXT
      END IF

      FN(N,M) = FLOAT(N)

      IF (M .GT. 0)  GO TO 300
      DO 301 J=1-IBO-JBO,KT
      IF (IE .EQ. 'I')  THEN
         BINT(N,M,J)   = GNM(N,M,J)
      ELSE
         BEXT(N,M,J)   = GNM(N,M,J)
         END IF
  301 CONTINUE
      GO TO 500
  300 continue
      DO 302 J=1-IBO-JBO,LJ
      IF (IE .EQ. 'I')  THEN
         BINT(N,M,J)   = GNM(N,M,J)
         BINT(M-1,N,J) = HNM(N,M,J)
      ELSE
         BEXT(N,M,J)   = GNM(N,M,J)
         BEXT(M-1,N,J) = HNM(N,M,J)
         END IF
  302 CONTINUE
C
  500 CONTINUE
C     **********************************************************
C     SYNTHESIZES THE VALUE OF HMF2 FROM THE MODEL	
C     **********************************************************
      CALL SCHNEVPDH (RZ,RLAT,FLON,dum,T,L,dum,dum,HMF2)
	  RETURN
9999  STOP
      END
C
C
      SUBROUTINE SCHNEVPDH (RZ,FLAT,FLON,R,T,L,BN,BE,BV)
C------------------------------------------------------------------------
C WHEN L IS POSITIVE:
C COMPUTES SPHERICAL CAP HARMONIC (GEOCENTRIC) FIELD COMPONENTS
C HORIZONTAL NORTH BN,HORIZONTAL EAST BE,AND VERTICAL DOWNWARD BV.
C WHEN L IS NEGATIVE:
C COMPUTES GENERAL FUNCTION BV, ITS HORIZONTAL NORTH DERIVATIVE BN,
C AND ITS HORIZONTAL EAST DERIVATIVE BE, ON SPHERICAL CAP SURFACE.
C NOTE THAT THESE ARE METRICAL DERIVATIVES, AND BE IS THE
C LONGITUDINAL DERIVATIVE DIVIDED BY SIN(COLATITUDE).
C	  INPUT:
C FLAT,FLON,R ARE GEOCENTRIC SPHERICAL CAP LATITUDE,LONGITUDE,RADIAL
C DISTANCE; T IS TIME.
C L =  0  ON FIRST CALL:  RETURNS SPHERICAL CAP POLE POSITION FLATO,FLONO
C         AND HALF-ANGLE THETA AS BN,BE, AND BV AFTER INITIALIZATION.
C         ON SUBSEQUENT CALLS:  ACTS AS L=1.
C      1  COMPUTES POTENTIAL FIELD COMPONENTS FROM INTERNAL COEFFICIENTS.
C      2  COMPUTES POTENTIAL FIELD COMPONENTS FROM EXTERNAL COEFFICIENTS.
C      3  COMPUTES FIELD FROM BOTH INTERNAL AND EXTERNAL COEFFICIENTS.
C     -1  COMPUTES GENERAL FUNCTION BV AND DERIVATIVES BN WITH RESPECT TO
C         LATITUDE AND BE WITH RESPECT TO LONGITUDE DIVIDED BY COS(LAT)
C         (R IS DUMMY VARIABLE IN THIS CASE).
C NOTE:   SUBROUTINE IS INITIALIZED DURING FIRST CALL REGARDLESS OF L.
C
C SUBROUTINE USED:  LEGFUN
C
C PARAMS & COEFFS TRANSFERRED FROM MAIN PROGRAM IN COMMON/AMTB/
C
C ADAPTED FROM SUBROUTINE SCHNEV OF G.V. HAINES (COMPUTERS & GEOSCIENCES, 
C 14, 413-447, 1988)
C------------------------------------------------------------------------

      PARAMETER   (IBO=0,JBO=1,KDIM=8,LDIM=4)                           
      DIMENSION   FN(0:KDIM,0:KDIM), CONSTP(0:KDIM,0:KDIM)
      DIMENSION   CML(KDIM), SML(KDIM)
      DIMENSION   DELT(0:LDIM)
      DIMENSION   BINT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            BEXT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      COMMON	/CONST/UMR,PI
     * 			/AMTB/BINT,BEXT,RE,TZERO,IFIT,IB,KINT,LINT,KEXT,
     *              LEXT,KMAX,FN
C     ,CONST
      CHARACTER*1 IE,RESP
  	  DATA ((CONSTP(N,M), M=0,N), N=0,KDIM)
     *	 /4*1.,1.73205,0.866025,1.,2.44949,1.93649,0.7905691,1.,
     *	  3.16228,3.35410,2.09165,0.739510,1.,3.87298,5.12348,
     *	  4.18330,2.21853,0.701561,1.,4.58258,2*7.24569,4.96078,
     *      2.32681,0.671693,1.,5.29150,9.72111,11.4564,9.49918,
     *      5.69951,2.42182,0.647260,1.,6.,12.5499,16.9926,16.4531,
     *      11.8645,6.40755,2.50683,0.626707/

C     IBF   =  0   TO USE ORDINARY POLYNOMIALS AS BASIS FUNCTIONS
C              1          LEGENDRE POLYNOMIALS
C              2          FOURIER SERIES
C              3          COSINE SERIES
C              4          SINE SERIES
C     NOTE:    TZERO AND THINT MAY DEPEND ON IBF.
      IBF   =  2                                                        
      T1=1.
      T2=12.
      CALL TBFIT (T1,T2,IBF,THINT,TZERO)                                

C      IF (L .NE. 0)  GO TO 100
C      BN = FLATO
C      BE = FLONO
C      BV = THETA
C      RETURN

  100 IF (L .GE. 0)  THEN
         IF (IFIT .LT. 0)  GO TO 999
         AOR = RE/R
         AR = AOR**2
         IF (L .GT. 1)  GO TO 107
      ELSE
         IF (IFIT .GE. 0)  GO TO 999
         AR = -1.
         END IF
      KT = LINT
      GO TO 109
  107 IF (KEXT .GT. 0)  AOR3 = AOR*AR
      IF (L .GT. 2)  GO TO 108
      KT = LEXT
      GO TO 109
  108 KT = MAX (LINT,LEXT)
  109 DELT(0) = 1.
      IF (KT .LE. 0)  GO TO 103
      DEL = (T - TZERO)/THINT
      DO 102 I=1,KT
      IF (I .EQ. 1)  THEN
         IF (IBF .LE. 1) THEN
             DELT(I) = DEL
             ELSE IF (IBF .EQ. 2)  THEN
             ST = SIN(DEL)
             DELT(I) = ST
             ELSE IF (IBF .EQ. 3)  THEN
             DELT(I) = COS(DEL)
             ELSE
             DELT(I) = SIN(DEL)
             ENDIF
         GO TO 102
         ENDIF
      IF (IBF .EQ. 0)  THEN
          DELT(I) = DELT(I-1)*DEL
      ELSE IF (IBF .EQ. 1)  THEN
          RECIP = 1./FLOAT(I)
          DELT(I) = (2.-RECIP)*DELT(I-1)*DEL - (1.-RECIP)*DELT(I-2)
      ELSE IF (IBF .EQ. 2)  THEN
           IF ((I/2)*2 .EQ. I)  THEN
             IF (I .EQ. 2)  THEN
                CT = COS(DEL)
                DELT(I) = CT
                ELSE
                DELT(I) = DELT(I-2)*CT - DELT(I-3)*ST
                ENDIF
             ELSE
             DELT(I) = DELT(I-2)*CT + DELT(I-1)*ST
             ENDIF
      ELSE IF (IBF .EQ. 3)  THEN
          DELT(I) = COS(I*DEL)
      ELSE IF (IBF .EQ. 4)  THEN
          DELT(I) = SIN(I*DEL)
      ELSE
          GO TO 999
      ENDIF
  102 CONTINUE
      incept = 0
      if ((ibf.eq.2 .or. ibf.eq.3) .and. incept .eq. 1)  then
c     change to intercept form of fourier series.
          do i=2,lint,4-ibf
          delt(i) = 1. - delt(i)
          enddo
          endif
  103 X = 0.
      Y = 0.
      Z = 0.
      IF (L .EQ. 2)  GO TO 106
      IF (KINT .LT. 0)  GO TO 106
      GTI = 0.
      DO 105 I=1-IBO-JBO,LINT
  105 GTI = GTI + BINT(0,0,I)*DELT(I)
      Z = -AR*GTI
      N =  0
  106 COLAT = 90. - FLAT
      DO 150 N=1,KMAX
      IF (N .GT. 1)  GO TO 115
      CL = COS(FLON*UMR)
      SL = SIN(FLON*UMR)
      CML(1) = CL
      SML(1) = SL
      GO TO 120
  115 SML(N) = SL*CML(N-1) + CL*SML(N-1)
      CML(N) = CL*CML(N-1) - SL*SML(N-1)
  120 CONTINUE
      DO 150 M=0,N
      IF (IB .EQ. 2)  GO TO 121
      NMM = N - M
      IF ((NMM/2)*2 .NE. NMM)  GO TO 150
  121 FFN = FN(N,M)
      CALL LEGFUN (M,FFN,CONSTP(N,M),COLAT,P,DP,PMS,0)
      IF (L .GE. 0)  THEN
         AR = AOR**(FFN+2.)
      ELSE
         AR = 1.
         FFN = -2.
         DP = -DP
         PMS = -PMS
         END IF
      IF (M .NE. 0)  GO TO 130
      BT1 = 0.
      BT3 = 0.
      BT  = 0.
      IF (L .EQ. 2)  GO TO 123
      IF (N .GT. KINT)  GO TO 123
      GTI = 0.
      DO 122 I=1-IBO-JBO,LINT
  122 GTI  = GTI  + BINT(N,M,I)*DELT(I)
      BT1  = AR*GTI
      BT3  = BT1
  123 IF (L .LE. 1)  GO TO 125
      IF (N .GT. KEXT)  GO TO 125
      GTE = 0.
      DO 124 I=1-IBO-JBO,LEXT
  124 GTE = GTE + BEXT(N,M,I)*DELT(I)
      BT  = AOR3/AR*GTE
      BT1 = BT1 + BT
  125 X = X + BT1*DP
      Z = Z - (FFN*(BT3-BT)+BT3)*P
      GO TO 150
  130 BT1 = 0.
      BT2 = 0.
      BT3 = 0.
      BT  = 0.
      IF (L .EQ. 2)  GO TO 133
      IF (N .GT. KINT)  GO TO 133
      GTI = 0.
      HTI = 0.
      DO 132 I=1-IBO-JBO,LINT
      GTI = GTI + BINT(N,M,I)*DELT(I)
  132 HTI = HTI + BINT(M-1,N,I)*DELT(I)
      BT1 = AR*(GTI*CML(M) + HTI*SML(M))
      BT2 = AR*(GTI*SML(M) - HTI*CML(M))
      BT3 = BT1
  133 IF (L .LE. 1)  GO TO 135
      IF (N .GT. KEXT)  GO TO 135
      GTE = 0.
      HTE = 0.
      DO 134 I=1-IBO-JBO,LEXT
      GTE = GTE + BEXT(N,M,I)*DELT(I)
  134 HTE = HTE + BEXT(M-1,N,I)*DELT(I)
      RA = AOR3/AR
      BT = RA*(GTE*CML(M) + HTE*SML(M))
      BT1 = BT1 + BT
      BT2 = BT2 + RA*(GTE*SML(M) - HTE*CML(M))
  135 X = X + BT1*DP
      Y = Y + BT2*PMS
      Z = Z - (FFN*(BT3-BT)+BT3)*P
  150 CONTINUE
      BN = X
      BE = Y
      BV = Z
      RETURN
  999 STOP
      END
C
C
      subroutine model_hmF2(day,month,UT,xmodip,long,F107_81,hmF2)
c--------------------------------------------------------------------------
c  Input:
c    day, month (integer)
c    UT         (real) - universal time
c    xmodip     (real) - modified dip latitude in degrees
c    long       (real) - geodatic longitude    in degrees
c    F107_81    (real) - F10.7 average over 3 solar rotations
c                        (81 days, centered on the current day)
c
c Output:
c    hmF2       (real) - F2-layer peak height in km
c--------------------------------------------------------------------------
	implicit none
c     .. scalar arguments ..
      integer day, month
      real UT, xmodip, long, F107_81, hmF2
c     .. local scalars ..
      integer monthr, montha
	real hmF2_0, hmF2_m, hmF2_p, hmF2med
c     ..
	call SDMF2(UT,month,F107_81,xmodip,long,hmF2_0)

      if (day.le.15) then
         if (day.eq.15) then
             hmF2med = hmF2_0
         else
             monthr = month-1
             if (monthr.eq.0) monthr = 12
	       call SDMF2(UT,monthr,F107_81,xmodip,long,hmF2_m)
             hmF2med = (hmF2_0-(day-15)*(hmF2_m-hmF2_0)/30.)
         end if
      else
         montha = mod(month,12) + 1
	   call SDMF2(UT,montha,F107_81,xmodip,long,hmF2_p)
         hmF2med  = (hmF2_0+(day-15)*(hmF2_p-hmF2_0)/30.)
      end if
      hmF2 = hmF2med
      return
      end
C
C
      subroutine SDMF2(UT,monthut,F107A,xmodip,long,hmF2)
c--------------------------------------------------------------------------
c    Global median model of the F2-layer peak height
c
c  Requires the following subroutines and functions:
c     SDMF2, hmF2_med_SD, read_data_SD, fun_hmF2_SD,
c     fun_Gk, Legendre, fun_hmF2UT, Koeff_UT, fun_Akp_UT,
c     fun_Fk_UT, fun_Gk_UT  
c
c Author of the code:
c         Valentin Shubin
c         Pushkov Institute of Terrestrial Magnetism,
c         Ionosphere and Radio wave propagation (IZMIRAN)
c         Moscow, Troitsk, 142190, Russia
c         e-mail: shubin@izmiran.ru
c         
c     [Ref. V.N. Shubin. Global median model of the F2-layer
c     peak height based on ionospheric radio-occultation and
c     ground-based Digisonde observations. Advances in Space Research 
c     (2015) http://dx.doi.org/10.1016/j.asr.2015.05.029]
c
c  Input:
c    UT      - universal time (real)
c    monthut - month (integer)
c    xmodip  - modified dip latitude in degrees (real)
c    long    - geodatic longitude    in degrees (real)
c    F107A   - F10.7 index averaged over the 3 Sun rotations 
c              in units of 10^-22 W/(m^2 Hz) (real)
c
c  Output:
c    hmF2  - F2-layer peak height in km (real)
c--------------------------------------------------------------------------
      implicit none
c     .. scalar arguments ..
      integer monthut
      real F107A
      real UT, hmF2
      real xmodip, long
c     .. local scalars ..
      integer i
      double precision T
c     .. local arrays ..
	  double precision xUT(0:23)
c	.. array in common ..
	  double precision hmF2_UT(0:23)
	  common/hmF2UT/hmF2_UT
c     .. function references .
      real hmF2_med_SD, fun_hmF2UT
c
      hmF2_UT = 0.0
	  do i=0,23
         hmF2_UT(i) = hmF2_med_SD(i,monthut,F107A,xmodip,long)
	     xUT(i) = dble(i)
         end do
c 
      T = dble(UT)
      hmF2 = fun_hmF2UT(T) 
c
      return
      end
c
c
      real function hmF2_med_SD(iUT,monthut,F107A,xmodip,long)
c---------------------------------------------------------------------
c    Input: 
c      iUT     - universal time (real)
c      monthut - month (integer)
c      F107A   - F10.7 index averaged over the 3 Sun rotations 
c                in units of 10^-22 W/(m^2 Hz) (real)
c      xmodip  - modified dip latitude in degrees (real)
c      long    - geodatic longitude    in degrees (real)
c
c    function to interpolate hmF2 between the two levels of solar 
c    activity used the following auxiliary subroutines and functions:
c    read_data_SD, fun_hmF2_SD
c---------------------------------------------------------------------
      implicit none
c	..   scalar arguments ..
      integer monthut, iUT
      real F107A
      real xmodip, long
c	real xmodip, long, umr, pi
c	..   local scalars ..
      real cov, cov1, cov2
      real a, b, hmF2_1, hmF2_2
      double precision teta
c	..   local arrays ..
      double precision coeff_month(0:148,0:47)
      double precision Kf(0:148)
      real ft1(12), ft2(12)
c
c    Arrays ft1 (12) and ft2 (12) are the median values of F10.7A,
c    which were used as the margins for
c    the low and high solar activity levels      
c
c               Jan   Feb   Mar   Apr   May  Jun
	data ft1/ 73.6, 72.3, 71.8, 70.9, 73.6,73.0,
     *          71.1, 69.4, 69.1, 70.9, 72.3,74.6/
	data ft2/144.2,142.9,167.2,125.3,124.4,127.9,
     *         142.0,165.9,132.6,142.0,145.6,143.0/
c               Jul   Aug   Sep   Oct   Nov  Dec
c	.. local in common ..
	double precision umr
	common/constt/umr
c	common/const/umr,pi
c     .. function references ..
	real fun_hmF2_SD
c     .. subroutine references ..
c     read_data_SD
c
	umr=atan(1.0)*4./180
      teta = 90.0-xmodip
c
      call read_data_SD(monthut,coeff_month)
      Kf = coeff_month(0:148,iUT)
	hmF2_1 = fun_hmF2_SD(teta,long,Kf)
      Kf = coeff_month(0:148,iUT+24)
	hmF2_2 = fun_hmF2_SD(teta,long,Kf)
c
      cov = F107A
	cov1 = ft1(monthut) 
	cov2 = ft2(monthut)
c 
 	a = (hmF2_2 - hmF2_1)/log(cov2/cov1)
	b =  hmF2_2 - a*log(cov2)
	hmF2_med_SD = a*log(cov) + b
c
      return
      end
c
c
      subroutine read_data_SD(month,coeff_month)
c------------------------------------------------------------------
c    subroutine to read arrays mcsat11.datÖ mcsat22.dat
c    with coefficients of hmF2 spatial decomposition
c    for 12 month, 24 UT hour and two solar activity levels
c------------------------------------------------------------------
	implicit none
c     .. scalar arguments ..
	integer month
c     .. array arguments ..
	double precision coeff_month(0:148,0:47)
c     .. local scalars ..
	integer coeff_month_read(1:12)
	character(256) filedata
	integer i, j
c     .. local arrays ..
	double precision coeff_month_all(0:148,0:47,1:12)
	save coeff_month_all
	data coeff_month_read /12*0/
c
      if (coeff_month_read(month) .eq. 0) then
        write(filedata, 10) month+10
        open(15, File=filedata, status='old')
	  do j=0,47
	    read(15,20) (coeff_month_all(i,j,month),i=0,148)
        end do
	  close(15)
	  coeff_month_read(month) = 1
	end if
c
      coeff_month = coeff_month_all(0:148,0:47,month)	
c
c    Previous operator can be replaced by
c
c      do i=0,148
c	   do j=0,47 
c	      coeff_month(i,j) = coeff_month_all(i,j,month)
c       end do
c	  end do	   
c
	  return
	
 10   format('mcsat',i2,'.dat')
c-web- special for web version
c10     FORMAT('/var/www/omniweb/cgi/vitmo/IRI/mcsat',I2,'.dat')
 20   format(6(d12.5))
      end
c
c      
      real function fun_hmF2_SD(teta,long,Kf)
c---------------------------------------------------------------------
c    Input: 
c      teta - (90-modip) in degrees
c      long - geodatic longitude in degrees
c      Kf   - coefficients of hmF2 spatial decomposition 
c
c    function to calculate spherical harmonics decomposition
c    for the spatial dependencies of hmF2
c    used the following auxiliary subroutines and functions:
c    fun_Gk, Legendre
c---------------------------------------------------------------------
      implicit none
c	.. scalar arguments ..
      double precision teta
      real long
c     .. array arguments ..
      double precision Kf(0:148)
c	.. local scalars ..
      integer k
      double precision hmF2
c	 .. local arrays ..
      double precision Gk(0:148)
c     .. subroutine references ..
c     fun_Gk
c
	call fun_Gk(teta,long,Gk)
	hmF2 = 0.d0
	do k=0,148
	   hmF2 = hmF2 + Kf(k)*Gk(k) 
	end do
      fun_hmF2_SD = hmF2
c
      return
      end
c
c
      subroutine fun_Gk(teta,long,Gk)
c---------------------------------------------------------------------
      implicit none
c	.. scalar arguments ..
      double precision teta
      real long
c      real long, umr, pi
c     .. array arguments ..
      double precision Gk(0:148)
c	.. local scalars ..
      integer mm, nn, m, n, k
c	.. local arrays ..
	double precision Pl_mn(0:8,0:12)
c	.. local in common ..
	double precision umr
	common/constt/umr
c     .. subroutine references ..
c     Legendre
c
      Pl_mn = 0.d0
	mm = 8
	nn = 12
      call Legendre(mm,nn,Pl_mn,teta)
      Gk = 0.d0
      k = 0
      do m=0,mm
         if (m==0) then
	      do n=0,nn
              Gk(k) = Pl_mn(m,n)
			k = k + 1
            end do
         else 
	      do n=m,nn
              Gk(k)   = Pl_mn(m,n)*cos(m*long*umr)
		    Gk(k+1) = Pl_mn(m,n)*sin(m*long*umr)
			k = k + 2
           end do
         end if
      end do
c
      return
      end
c
c
      subroutine Legendre(mm,nn,p,teta)
c---------------------------------------------------------------------
c     Input:
c       mm       - harmonics for longitude
c       nn       - harmonics for the modified dip latitude (modip) 
c       teta     - (90-modip) in degrees
c    Output:
c       P(mm,nn) - associated Legendre function    
c
c    subroutine to calculate associated Legendre function P(mm,nn)
c    with Schmidt normalization
c---------------------------------------------------------------------
	  implicit none
c     .. scalar arguments ..
      integer mm, nn
c      real umr, pi
      double precision teta
c     .. array arguments ..
      double precision p(0:mm,0:nn)
c     .. local scalars ..
      integer j,l,m,n
      double precision z, s
c	.. local in common ..
	  double precision umr
	  common/constt/umr
c
      p = 0.0
	  z=cos(umr*teta)
      p(0,0)=1.
      p(0,1)=z
      if (mm.ne.0) p(1,1)=sin(umr*teta)
c
      do j=2,mm
         p(j,j)=(2*j-1)*p(j-1,j-1)*p(1,1)
      end do
c
      do m=0,mm
	   do n=1,nn
		  if (m.gt.n) then
		     p(m,n) = 0.0
			 cycle
            end if
            if ((n+1).gt.nn) exit
	      if (n+1.eq.m) cycle
		  if (m.gt.(n-1)) then
		    p(m,n+1)= (2*n+1)*z*p(m,n)/(n+1-m)
            else
		  p(m,n+1)=((2*n+1)*z*p(m,n)-(n+m)*p(m,n-1))/(n+1-m)
            end if
         end do
      end do
c
      do n=1,nn
         do m=1,mm
		  if (m.gt.n) then
		     p(m,n) = 0.0
			 exit
            end if
            s=1
	      do l=n-m+1,n+m
   	         s=s*l
            end do
	      p(m,n)=p(m,n)*sqrt(2./s)
        end do
      end do
c
      return
      end
c
c
      real function fun_hmF2UT(T)
c---------------------------------------------------------------------
c    Input: T - universal time        
c 
c    function to calculate Fourier  decomposition
c    for the temporal variations of hmF2
c    used the following auxiliary subroutines:
c    Koeff_UT, fun_Akp_UT, fun_Fk_UT, fun_Gk_UT
c---------------------------------------------------------------------
      implicit none
c	.. scalar arguments ..
      double precision T
c	.. local scalars ..
      integer k, mm, mk
c      real dtr, dumr
      double precision hmF2
c   .. local arrays ..	
	  double precision Gk_UT(0:6), Kf_UT(0:6)
c	.. local in common ..	
	  double precision dtr
	  common/radUT/dtr
c   .. subroutine references ..
c     Koeff_UT, fun_Gk_UT
c
      dtr=atan(1.0)*4.0/12.0
      mm = 3
	  mk = 2*mm
c
	  call Koeff_UT(mm,mk,Kf_UT)
      call fun_Gk_UT(mm,mk,t,Gk_UT)
	  hmF2 = 0.d0
	  do k=0,mk
	    hmF2 = hmF2 + Kf_UT(k)*Gk_UT(k) 
	  end do
      fun_hmF2UT = hmF2
c
      return
      end
c
c
      subroutine Koeff_UT(mm,mk,Kf_UT)
c---------------------------------------------------------------------
      implicit none
c	..  scalar arguments ..
      integer mm, mk
c   .. array arguments ..
	  double precision Kf_UT(0:mk)
c	.. local scalars ..
      integer k, m
      double precision sum_D
c   .. local arrays ..
	  double precision Akp_UT(0:mk,0:mk)
	  double precision Dk_UT(0:mk)
c   .. subroutine references ..
c   fun_Akp_UT 
c
      call fun_Akp_UT(mm,mk,Akp_UT,Dk_UT)
      Kf_UT = 0.d0
      do k=mk,0,-1
         sum_D = 0.d0
         do m=k+1,mk
            sum_D = sum_D + Akp_UT(m,k)*Kf_UT(m)
         end do
         Kf_UT(k) = sum_D + Dk_UT(k)
      end do   

      return
	  end
c
c
      subroutine fun_Akp_UT(mm,mk,Akp_UT,Dk_UT)
c---------------------------------------------------------------------
      implicit none
c	.. scalar arguments ..
      integer mm, mk
c   .. array arguments ..
      double precision Akp_UT(0:mk,0:mk), Dk_UT(0:mk)
c	.. local scalars ..
	  integer i, k, p
	  double precision t
	  double precision sum_An, sum_Dn
	  double precision sum_Ad, sum_Dd
c   .. local arrays ..
	  double precision Gk_UT(0:mk), Fk_UT(0:mk)
c	.. array in common ..	
	  double precision hmF2_UT(0:23)
	  common/hmF2UT/hmF2_UT
c   .. subroutine references ..
c	fun_Gk_UT, fun_Fk_UT
c
      Gk_UT = 0.d0
      Gk_UT(0) = 1.0
	  Fk_UT = 0.d0
      Fk_UT(0) = 1.d0
	  Akp_UT = 0.d0
	  Dk_UT = 0.d0
	  do p=0,mk
         sum_Dn=0.d0
         sum_Dd=0.d0
         do k=p+1,mk
            sum_An=0.d0
	        sum_Ad=0.d0
	        do i=0,23
               t = dble(i)
               call fun_Gk_UT(mm,mk,t,Gk_UT)
	           call fun_Fk_UT(mk,Gk_UT,Akp_UT,Fk_UT)
		       sum_An = sum_An + Gk_UT(k)*Fk_UT(p)
		       sum_Ad = sum_Ad + Fk_UT(p)*Fk_UT(p)
			   if (p.eq.(k-1)) then
			     sum_Dn = sum_Dn + hmF2_UT(i)*Fk_UT(p)
                 sum_Dd = sum_Dd + Fk_UT(p)*Fk_UT(p)
                 end if
            end do
            Akp_UT(k,p) = - sum_An/sum_Ad
	     end do
         if (p.lt.mk) then
	        Dk_UT(p) = sum_Dn/sum_Dd
            end if
	  end do
c
      p=mk
      sum_Dn=0.d0
      sum_Dd=0.d0
      do i=0,23
         t = dble(i)
         call fun_Gk_UT(mm,mk,t,Gk_UT)
         call fun_Fk_UT(mk,Gk_UT,Akp_UT,Fk_UT)
         sum_Dn = sum_Dn + hmF2_UT(i)*Fk_UT(p)
         sum_Dd = sum_Dd + Fk_UT(p)*Fk_UT(p)
      end do
      Dk_UT(p) = sum_Dn/sum_Dd
c
      return
      end
c
c
      subroutine fun_Fk_UT(mk,Gk_UT,Akp_UT,Fk_UT)
c---------------------------------------------------------------------
      implicit none
c	.. scalar arguments ..
	  integer mk
c   .. array arguments ..
	  double precision Gk_UT(0:mk)
	  double precision Akp_UT(0:mk,0:mk)
	  double precision Fk_UT(0:mk)
c	.. local scalars ..
      integer k, p
      double precision sum_G
c
      Fk_UT = 0.d0
      do k=0,mk
         sum_G = 0.d0
         do p=0,k
            if (k.eq.p) cycle
            sum_G = sum_G + Akp_UT(k,p)*Fk_UT(p)
         end do
         Fk_UT(k) = sum_G + Gk_UT(k)
      end do
c
      return
      end
c
c
	subroutine fun_Gk_UT(mm,mk,t,Gk_UT)
c---------------------------------------------------------------------
      implicit none
c	.. scalar arguments ..
      integer mm, mk
c      real dtr, dumr
      double precision t
c   .. array arguments ..
	  double precision Gk_UT(0:mk)
c	.. local scalars ..
      integer m, k
c	.. local in common ..
	  double precision dtr
	  common/radUT/dtr
c
	  Gk_UT = 0.d0
        k = 0
        do m=0,mm
          if (m.eq.0) then
            Gk_UT(k) = 1
            k = k + 1
          else 
            Gk_UT(k)   = cos(m*t*dtr)
            Gk_UT(k+1) = sin(m*t*dtr)
		    k = k + 2
          end if
       end do
c
      return
      end
C
C
      REAL FUNCTION FOF1ED(YLATI,R,CHI)
c--------------------------------------------------------------
C CALCULATES THE F1 PEAK PLASMA FREQUENCY (FOF1/MHZ)
C INPUT:   
C       YLATI   ABSOLUT VALUE OF DIP-LATITUDE IN DEGREE
C       R	12-MONTH RUNNING MEAN OF SUNSPOT NUMBER 
C       CHI	SOLAR ZENITH ANGLE IN DEGREE
C OUTOUT:
C       FOF1ED	=foF1  F1 PLASMA FREQUENCY IN MHZ 
C               =-foF1 IF CHI GREATER CHIM (CHI UPPER LIMIT)         
C REFERENCE: 
C       E.D.DUCHARME ET AL., RADIO SCIENCE 6, 369-378, 1971
C                                      AND 8, 837-839, 1973
C       HOWEVER WITH MAGNETIC DIP LATITUDE INSTEAD OF GEOMAGNETIC
C       DIPOLE LATITUDE, EYFRIG, 1979                    
C--------------------------------------------- D. BILITZA, 1988.   
        COMMON/CONST/UMR,PI
        
        fof1ed=0.0
        if (chi.gt.90.0) return

        DLA =  YLATI
        F0 = 4.35 + DLA * ( 0.0058 - 1.2E-4 * DLA ) 
        F100 = 5.348 + DLA * ( 0.011 - 2.3E-4 * DLA )
        FS = F0 + ( F100 - F0 ) * R / 100.0
        XMUE = 0.093 + DLA * ( 0.0046 - 5.4E-5 * DLA ) + 3.0E-4 * R
        FOF1 = FS * COS( CHI * UMR ) ** XMUE
                CHI0 = 49.84733 + 0.349504 * DLA
                CHI100 = 38.96113 + 0.509932 * DLA
                CHIM = ( CHI0 + ( CHI100 - CHI0 ) * R / 100. )
                IF(CHI.GT.CHIM) FOF1=-FOF1 
        FOF1ED = FOF1     
        RETURN
        END             
C
C
	real function f1_c1(absmdp,hour,saxnon,suxnon)
c F1 layer shape parameter C1 after Reinisch and Huang, Advances in
c Space Research, Volume 25, Number 1, 81-88, 2000.

        common	/const/umr,pi
	
      	DELA=4.32
      	IF(ABSMDP.GE.18.) DELA=1.0+EXP(-(ABSMDP-30.0)/10.0)

      	C1OLD = 0.09 + 0.11/DELA
        if(suxnon.eq.saxnon) then
            c1 = 2.5 * c1old
        else
            c1 = 2.5*c1old*cos((HOUR-12.)/(suxnon-saxnon)*pi)
        endif
      	if(c1.lt.0.0) c1=0.0
	    f1_c1=c1
	    return
	    end
c
c
        subroutine f1_prob (sza,glat,rz12,f1prob,f1probl)
c--------------------------------------------------------------------------
c Occurrence probability of F1 layer after Scotto et al., Advances in
c Space Research, Volume 20, Number 9, 1773-1775, 1997.
c
c Input: 	sza		solar zenith angle in degrees 
c 			glat	geomagnetic latitude in degrees
C			rz12	12-month running mean of sunspot number
c Output: 	f1prob	F1 occurrence probability without L-condition cases 
c 			f1probl	F1 occurrence probability with L-condition cases
c--------------------------------------------------------------------------
c
        common /const/umr,pi

	    xarg = 0.5 + 0.5 * cos(sza*umr)
		a = 2.98 + 0.0854 * rz12
		b = 0.0107 - 0.0022 * rz12
		c = -0.000256 + 0.0000147 * rz12
		gamma = a + ( b + c * glat) * glat
	    f1pr = xarg ** gamma
        if(f1pr.lt.1.e-3) f1pr=0.0
        f1prob=f1pr
	    f1prl = xarg ** 2.36
        if(f1prl.lt.1.e-3) f1prl=0.0
        f1probl=f1prl
	    return
	    end
C
C
        REAL FUNCTION FOEEDI(COV,XHI,XHIM,XLATI)
C-------------------------------------------------------
C CALCULATES FOE/MHZ BY THE EDINBURGH-METHOD.      
C INPUT: 
C 	COV		MONTHLY MEAN 10.7CM SOLAR RADIO FLUX measured at 
C           ground level  
C   XHI		SOLAR ZENITH ANGLE IN DEGREE 
C   XHIM	SOLAR ZENITH ANGLE AT NOON IN DEGREE
C   XLATI 	ABSOLUTE VALUE OF GEOGRAPHIC LATITUDE IN DEGREE, 
C REFERENCE: 
C       KOURIS-MUGGELETON, CCIR DOC. 6/3/07, 1973
C       TROST, J. GEOPHYS. RES. 84, 2736, 1979 (was used
C               to improve the nighttime varition)
C       RAWER AND BILITZA, Adv. Space Res. 10(8), 5-14, 1990
C D.BILITZA--------------------------------- AUGUST 1986.    
        COMMON/CONST/UMR,PI
C variation with solar activity (factor A) ...............
        A=1.0+0.0094*(COV-66.0)                      
C variation with noon solar zenith angle (B) and with latitude (C)
        SL=COS(XLATI*UMR)
        IF(XLATI.LT.32.0) THEN
                SM=-1.93+1.92*SL                             
                C=23.0+116.0*SL                              
        ELSE
                SM=0.11-0.49*SL                              
                C=92.0+35.0*SL  
        ENDIF
        if(XHIM.ge.90.) XHIM=89.999
        B = COS(XHIM*UMR) ** SM
C variation with solar zenith angle (D) ..........................        
        IF(XLATI.GT.12.0) THEN
                SP=1.2
        ELSE
                SP=1.31         
        ENDIF
C adjusted solar zenith angle during nighttime (XHIC) .............
        XHIC=XHI-3.*ALOG(1.+EXP((XHI-89.98)/3.))   
        D=COS(XHIC*UMR)**SP       
C determine foE**4 ................................................
        R4FOE=A*B*C*D     
C minimum allowable foE (foe_min=sqrt[SMIN])...............................
        SMIN=0.121+0.0015*(COV-60.)
        SMIN=SMIN*SMIN
        IF(R4FOE.LT.SMIN) R4FOE=SMIN                     
        FOEEDI=R4FOE**0.25                           
        RETURN          
        END   
C
C
        REAL FUNCTION XMDED(XHI,R,YW)                
C D. BILITZA, 1978, CALCULATES ELECTRON DENSITY OF D MAXIMUM.                   
C XHI/DEG. IS SOLAR ZENITH ANGLE, R SMOOTHED ZURICH SUNSPOT NUMBER              
C AND YW/M-3 THE ASSUMED CONSTANT NIGHT VALUE.     
C [REF.: D.BILITZA, WORLD DATA CENTER A REPORT UAG-82,7,BOULDER,1981]
C corrected 4/25/97 - D. Bilitza
c
        COMMON/CONST/UMR,PI
c
        if(xhi.ge.90) goto 100
        Y = 6.05E8 + 0.088E8 * R
        yy = cos ( xhi * umr )
        yyy = -0.1 / ( yy**2.7 ) 
        if (yyy.lt.-40.) then 
        	ymd=0.0
        else
        	ymd = y * exp(yyy)
        endif
        if (ymd.lt.yw) ymd = yw
        xmded=ymd
        RETURN          

100     XMDED=YW        
        RETURN          
        END
C
C
        REAL FUNCTION GAMMA1(SMODIP,SLAT,SLONG,HOUR,
     &                          IHARM,NQ,K1,M,MM,M3,SFE)      
C---------------------------------------------------------------
C CALCULATES GAMMA1=FOF2 OR M3000 USING CCIR NUMERICAL MAP                      
C COEFFICIENTS SFE(M3) FOR MODIFIED DIP LATITUDE (SMODIP/DEG)
C GEOGRAPHIC LATITUDE (SLAT/DEG) AND LONGITUDE (SLONG/DEG)  
C AND UNIVERSIAL TIME (HOUR/DECIMAL HOURS). IHARM IS THE MAXIMUM
C NUMBER OF HARMONICS USED FOR DESCRIBING DIURNAL VARIATION.
C NQ(K1) IS AN INTEGER ARRAY GIVING THE HIGHEST DEGREES IN 
C LATITUDE FOR EACH LONGITUDE HARMONIC WHERE K1 GIVES THE NUMBER 
C OF LONGITUDE HARMONICS. M IS THE NUMBER OF COEFFICIENTS FOR 
C DESCRIBING VARIATIONS WITH SMODIP, SLAT, AND SLONG. MM IS THE
C NUMBER OF COEFFICIENTS FOR THE FOURIER TIME SERIES DESCRIBING
C VARIATIONS WITH UT.
C M=1+NQ(1)+2*[NQ(2)+1]+2*[NQ(3)+1]+... , MM=2*IHARM+1, M3=M*MM  
C SHEIKH,4.3.77.      
C---------------------------------------------------------------
      REAL*8 C(12),S(12),COEF(100),SUM             
      DIMENSION NQ(K1),XSINX(13),SFE(M3)           
      COMMON/CONST/UMR,PI
      HOU=(15.0*HOUR-180.0)*UMR                    
      S(1)=SIN(HOU)   
      C(1)=COS(HOU)   

      DO 250 I=2,IHARM                             
        C(I)=C(1)*C(I-1)-S(1)*S(I-1)                 
        S(I)=C(1)*S(I-1)+S(1)*C(I-1)                 
250     CONTINUE        

      DO 300 I=1,M    
        MI=(I-1)*MM     
        COEF(I)=SFE(MI+1)                            
        DO 300 J=1,IHARM                             
          COEF(I)=COEF(I)+SFE(MI+2*J)*S(J)+SFE(MI+2*J+1)*C(J)                       
300       CONTINUE        

      SUM=COEF(1)     
      SS=SIN(SMODIP*UMR)                           
      S3=SS           
      XSINX(1)=1.0    
      INDEX=NQ(1)     

      DO 350 J=1,INDEX                             
        SUM=SUM+COEF(1+J)*SS                         
        XSINX(J+1)=SS   
        SS=SS*S3        
350     CONTINUE        

      XSINX(NQ(1)+2)=SS                            
      NP=NQ(1)+1      
      SS=COS(SLAT*UMR)                             
      S3=SS           

      DO 400 J=2,K1   
        S0=SLONG*(J-1.)*UMR                          
        S1=COS(S0)      
        S2=SIN(S0)      
        INDEX=NQ(J)+1   
        DO 450 L=1,INDEX                             
          NP=NP+1         
          SUM=SUM+COEF(NP)*XSINX(L)*SS*S1              
          NP=NP+1         
          SUM=SUM+COEF(NP)*XSINX(L)*SS*S2              
450       CONTINUE        
        SS=SS*S3        
400     CONTINUE
        
      GAMMA1=SUM      

      RETURN          
      END 
C
C                     
C************************************************************                   
C***************** PROFILE PARAMETERS ***********************                   
C************************************************************                 
C
C

	      SUBROUTINE TOPH05(COVI,AMLAT,TIME,HMAX,HT05,SG)
C---------------------------------------------------------------------------------
C Gulyaeva T.L. (2003) Variations in the half-width of the topside ionosphere 
C    according to the observations by space ionosondes ISIS 1,ISIS 2, and IK19.
C    International J. of Geomagnetism and Aeronomy, 4(3), 201-207.
C Gulyaeva T.L., Titheridge J.E. (2006) Advanced specification of electron density 
C    and temperature in the IRI ionosphere-plasmasphere model. 
C    Adv. Space Res. 38(11), 2587-2595, doi:10.1016/j.asr.2005.08.045.
C
C  Implementation of empirical RAT=(h05top-hmF2)/hmF2 derived from ISIS and IK19
C  topside electron density profiles to obtain half peak density topside height
C  h05top  from the Chebishev polinomial coefficients given for 
C  (1) 4 levels of solar activity: Rz= 0,  50, 100, 150 replaced by
C      solar radio flux          covi=60, 106, 152, 198
C  (2) 10 selected grids of geomagnetic latitude (N=S):0,10,20,30,40,50,60,70,80,90
C  (3) 5 selected grids of local time: 0, 6, 12, 18, 24.
C  (4) 4 seasonal grids: 1 equinox(SG=90deg), 2 summer (SG=180), 
C                        3 equinox (SG=270), 4 winter(SG=360)
C   SG=season grids=90,180,270,360
C---------------------------------------------------------------------------------
      DIMENSION CVLEV(4)	
	  COMMON   /BLOCK1/HMF2,XNMF2,XHMF1,F1REG         
     *         /QTOP/Y05,H05TOP,QF,XNETOP,XM3000,HHALF,TAU
	  DATA CVLEV/60.,106.,152.,198./
	  LOGICAL F1REG

	  ABMLAT=ABS(AMLAT)
       IR=IFIX((covi-60.)/46.)+1	
		 M1=IFIX(ABMLAT/10.)+1
			L1=IFIX(TIME/6.)+1
	  M2=M1+1
	       IF(M1.EQ.10) M2=10
        L2=L1+1
	       IF(L1.EQ.5) L2=5
C
C INTERPOLATE RAT FOR GIVEN RZI
C Call Chebishev approximation to interpolate for given ABMLAT, HRLT
C
	  call CHEBISH(CVLEV(IR),TIME,ABMLAT,XX,SG)
        IF (IR.EQ.4) THEN
	          RAT05=XX
	          GOTO 10
	          ENDIF
	  call CHEBISH(CVLEV(IR+1),TIME,ABMLAT,YY,SG)
	  RAT05=XX+(YY-XX)*(COVI-CVLEV(IR))/46.
10    HT05=HMAX*(1.+RAT05)
	  RETURN
	  END
C
C	  
	SUBROUTINE CHEBISH(COVS,HOURLT,ABMLAT,RATCH,SG)
C---------------------------------------------------------------------------------
C CHEBISHEV POLINOMIALS FOR ABMLAT(10),HOURLT(5)
C CR((C0...C5),(LT=0,6,...24),(SG=season grids=90,180,270,360)
C							(COV=60,106,152,198)
C---------------------------------------------------------------------------------
c      REAL UK(0:10),CR(0:5,5,3,4),YI(5),YY(5,3)
      REAL BR(6,5,3,4),YI(5),YY(5,3)
      REAL PL1(5),PL2(5),PL3(5),CL(0:3)
C
      COMMON /CONST/rad,pi  
      DATA PL1/-2.,-1.,0.,1.,2./
  	  DATA PL2/2.,-1.,-2.,-1.,2./
  	  DATA PL3/-1.,2.,0.,-2.,1./
      DATA BR/
C Polinomial Coefficients B1,B2,B3,B4,B5,B6 for COV=60 (mlat/10=0,1,...,9)
C Equinox	B0MLAT:
     *  -1.5859,  3.5789, -3.7884, 2.7094,-1.2962,.6759
     *, -5.3449, 12.8379,-12.0165, 5.9746,-1.9084,.7669
     *,-12.8000, 35.3084,-38.0043,19.6004,-4.4974,.6975
     *,  5.8282,-13.3538,  9.1674,-0.9593,-0.8909,.6062
     *, -1.5859,  3.5789, -3.7884, 2.7094,-1.2962,.6759
C Summer	B0MLAT    
     *, -7.1103, 21.0389,-24.5539,14.1607,-3.8537,.7266
     *,  5.5333,-10.6242,  4.8751, 1.0587,-1.0821,.7527
     *,-15.4487, 42.9269,-45.0314,21.4718,-4.2116,.6026
     *, -6.6436, 16.4533,-15.5142, 6.8287,-1.2871,.4976
     *, -7.1103, 21.0389,-24.5539,14.1607,-3.8537,.7266
C Winter   B0MLAT                                                                       
     *, 14.9103,-35.2337, 27.3078,-6.5362,-0.6265,.7509
     *,  2.3846, -5.8840,  3.7023, 0.8525,-1.2663,.7086
     *, -9.8846, 26.6649,-27.0173,12.6959,-2.6536,.6295
     *,  1.7692, -2.3578, -0.7945, 2.2477,-0.9691,.5719
     *, 14.9103,-35.2337, 27.3078,-6.5362,-0.6265,.7509
C Polinomial Coefficients B1,B2,B3,B4,B5,B6 for COV=106 (mlat=0,10,...,90)
C Equinox	B1MLAT
     *, -4.1218, 10.6136,-11.4922, 6.0470,-1.3620,.5563
     *,  0.9077,  2.9562, -8.9880, 6.8680,-1.9621,.7737
     *,-16.2744, 42.8047,-43.7009,20.7965,-4.0697,.6619
     *,-17.3038, 44.3336,-40.9249,15.9042,-2.1554,.4796
     *, -4.1218, 10.6136,-11.4922, 6.0470,-1.3620,.5563
C Summer	B1MLAT  
     *, -4.9692, 16.5753,-21.3543,12.7061,-3.1758,.6446
     *,  1.9000, -2.8167, -0.9962, 3.0687,-1.3454,.6859
     *,  7.6769,-14.8343,  6.7030, 1.5578,-1.0626,.4291
     *,  5.4833,-10.6322,  4.7571, 1.2178,-0.8223,.4615
     *, -4.9692, 16.5753,-21.3543,12.7061,-3.1758,.6446
C Winter	B1MLAT  
     *, -4.7282, 13.4491,-15.6931, 8.8388,-1.9732,.5874
     *,  5.6756,-14.8458, 11.8927,-2.2632,-0.6122,.6948
     *,-14.2872, 40.0829,-41.2716,18.1696,-2.7203,.4916
     *,-13.6128, 33.4657,-29.7231,11.0972,-1.2884,.5034
     *, -4.7282, 13.4491,-15.6931, 8.8388,-1.9732,.5874
C Polinomial Coefficients B1,B2,B3,B4,B5,B6 for COV=152 (mlat=0,10,...,90)
C Equinox	B2MLAT
     *, -3.3282, 10.4296,-12.4722, 6.7623,-1.5172,.4931
     *, -8.9744, 20.1311,-17.4552, 7.6518,-1.7371,.6702
     *, 12.0462,-27.8932, 20.6241,-4.5781, 0.0814,.3501
     *,-17.0551, 42.3258,-37.1874,13.3608,-1.4804,.4216
     *, -3.3282, 10.4296,-12.4722, 6.7623,-1.5172,.4931
C Summer	B2MLAT  
     *,  7.3077,-17.1579, 11.6872,-0.7405,-1.0298,.5754
     *, 19.2641,-45.1886, 34.3297,-8.1879,-0.1875,.6562
     *,  6.0987,-11.0903,  4.3569, 1.4001,-0.7309,.3885
     *,  5.9295,-13.9205, 10.2347,-2.2818, 0.0853,.3915
     *,  7.3077,-17.1579, 11.6872,-0.7405,-1.0298,.5754
C Winter	B2MLAT  
     *, -1.6821,  8.6010,-13.6570, 8.6307,-1.9846,.5635
     *,  5.4679,-12.3750,  7.5620, 0.5394,-1.4415,.6659
     *, -8.0821, 21.9288,-21.8597, 9.3455,-1.4644,.3599
     *, -8.3000, 19.3076,-16.3295, 6.1619,-0.9144,.3846
     *, -1.6821,  8.6010,-13.6570, 8.6307,-1.9846,.5635
C Polinomial Coefficients B1,B2,B3,B4,B5,B6 for COV=198 (mlat=0,10,...,90)
C Equinox	B3MLAT
     *,-16.4051, 28.2880,-16.0982, 4.6328,-1.0405,.5486
     *, 13.0846,-34.8291, 30.0074,-8.6402, 0.1529,.6165
     *, 19.7474,-42.7116, 28.9430,-6.0487, 0.1492,.3748
     *, 16.2795,-36.6982, 26.5094,-6.3492, 0.2926,.3946
     *,-16.4051, 28.2880,-16.0982, 4.6328,-1.0405,.5486
C Summer	B3MLAT
     *,  4.6410,-13.7931, 11.6548,-1.9248,-0.7246,.5264
     *, -2.4090,  3.1805, -2.8423, 2.8861,-0.9937,.5234
     *,  6.3410,-13.9643,  8.2461,-0.0186,-0.7009,.3582
     *,  9.0987,-20.8618, 14.7262,-2.8798,-0.0512,.3662
     *,  4.6410,-13.7931, 11.6548,-1.9248,-0.7246,.5264
C Winter	B3MLAT
     *, -4.6526, 12.1878,-14.4047, 8.5226,-2.0493,.5903
     *,  3.9821, -6.9477,  0.8382, 3.4898,-1.5694,.6283
     *, -7.0474, 17.3974,-17.3465, 8.3671,-1.5708,.3759
     *,  4.2782, -9.9880,  5.9834, 0.0975,-0.4900,.3842
     *, -4.6526, 12.1878,-14.4047, 8.5226,-2.0493,.5903/

C	DATA UL/-2.,-1.,0.,1.,2./

	do k=0,3
	cl(k)=0.
	enddo
C
	IR=IFIX((covs-60.)/46.)+1	
C Given geomagnetic latitude parameter:
	xi=abmlat/100.
	DO LS=1,3
          DO LL=1,5
      B1=BR(6,LL,LS,IR)      
      B2=BR(5,LL,LS,IR)        
      B3=BR(4,LL,LS,IR)       
      B4=BR(3,LL,LS,IR)        
	B5=BR(2,LL,LS,IR)        
	B6=BR(1,LL,LS,IR)        
       HLT=(LL-1)*6.0

      YY(LL,LS)=B1+xi*(B2+xi*(B3+xi*(B4+xi*(B5+xi*B6))))
	ENDDO
	ENDDO            ! end of season/day cycle
C Apply seasonal interpolation
	 do i=1,5
	p0=(2.*YY(i,1)+YY(i,2)+YY(i,3))/4.
	p1=(YY(i,3)-YY(i,2))/2.
	p2=(YY(i,2)+YY(i,3)-2.*YY(i,1))/4.
	YI(i)=p0+p1*cos(sg*rad)+p2*cos(2.*sg*rad)
	 enddo
      DO K=1,5
      CL(0)=CL(0)+YI(K)
      CL(1)=CL(1)+YI(K)*PL1(K)
      CL(2)=CL(2)+YI(K)*PL2(K)
      CL(3)=CL(3)+YI(K)*PL3(K)
	ENDDO
      CL(0)=CL(0)/5.
      CL(1)=CL(1)/10.
      CL(2)=CL(2)/14.
      CL(3)=CL(3)/12.
      ULL=(HOURLT-12.)/6.
      ZA=CL(0)-2.*CL(2)
      RATCH=ZA+ULL*(CL(1)-3.4*CL(3)+ULL*(CL(2)+ULL*CL(3)))

	RETURN
	END	
C
C
	SUBROUTINE  SHAMDB0D (RLAT,FLON,T,RZ,B)
C-------------------------------------------------------------------
C	COMPUTES THE HOURLY VALUES OF B0 FROM A SET OF SH COEFFICIENTS
C	IN A POINT OF A GIVEN GEOCENTRIC LATITUDE AND LONGITUDE
C	OF THE EARTH'S SURFACE FOR A GIVEN MONTH AND A GIVEN SUSPOT NUMER
C
C INPUT: RLAT	The geogrphic latitude on the meridian given by 
C		the local time (FLON), where the modified dip
C               latitude is the same as of the orginal site.
C	 FLON	=LONGITUDE+15.*UT(hours)
C	 T	Month as a REAL number (1.0 to 12.0)
C	 RZ	12-month running mean
C OUTOUT	B   =B0
C
C  Blanch E., D. Arrazola, D. Altadill, D. Buresova, M. Mosert, 
C     Adv. Space Res. 39, 701-710, 2007.
C  Altadill, D., D. Arrazola, E. Blanch, D. Buresova, 
C     Adv. Space Res. 42, 610-616, 2008.
C  Altadill, D., J.M. Torta, and E. Blanch, 
C     Adv. Space Res. 43,1825-1834, 2009.
C-------------------------------------------------------------------
      PARAMETER   (IBO=0,JBO=1,KDIM=6,LDIM=4,L=-1)
      DIMENSION   FN(0:KDIM,0:KDIM), CONST(0:KDIM,0:KDIM)
      DIMENSION   GNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			  HNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
	  DIMENSION   GANM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			  HANM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            GBNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			  HBNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      DIMENSION   BINT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            BEXT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      CHARACTER*1 IE       
      COMMON/ATB/BINT,BEXT,RE,TZERO,IFIT,IB,KINT,LINT,KEXT,
     *              LEXT,KMAX,FN

      DATA THETA,RE,TZERO,IFIT,ICEN,IREF,IB,KINT,LINT,KEXT,LEXT
     *     /180.,6371.2,1.0,  -1,  0,   0,   2, 6,   4,   0,   -1/

  	  DATA ((CONST(N,M), M=0,N), N=0,KDIM)
     *	 /4*1.,1.73205,0.866025,1.,2.44949,1.93649,0.7905691,1.,
     *	  3.16228,3.35410,2.09165,0.739510,1.,3.87298,5.12348,
     *	  4.18330,2.21853,0.701561,1.,4.58258,2*7.24569,4.96078,
     *      2.32681,0.671693/

	  DATA IE /"I"/

      DATA (((GANM(N,M,J),GBNM(N,M,J),HANM(N,M,J),HBNM(N,M,J),
     *    	J=0,LDIM), M=0,N), N=0,KDIM)
     * /176.746, 0.233,   0.000, 0.000,
     * -109.413, 0.072,   0.000, 0.000, -66.000,-0.004,   0.000, 0.000,
     *   36.874,-0.018,   0.000, 0.000, -19.515, 0.040,   0.000, 0.000,
     *   94.998, 0.724,   0.000, 0.000,
     * -116.900,-0.971,   0.000, 0.000, -93.849,-0.590,   0.000, 0.000,
     *   80.579, 0.425,   0.000, 0.000, -19.205,-0.220,   0.000, 0.000,
     *  -94.824, 0.115,   6.055, 0.265,
     *   84.720,-0.161,  -7.101,-0.374,  35.200,-0.138,   1.043,-0.350,
     *  -23.960, 0.109,  -2.478, 0.133,  25.550,-0.049,  -3.143, 0.003,
     *  -29.418,-0.823,   0.000, 0.000,
     *   40.070, 0.800,   0.000, 0.000,  24.019, 0.478,   0.000, 0.000,
     *  -13.175,-0.265,   0.000, 0.000,   8.799, 0.090,   0.000, 0.000,
     *  -31.099,-1.117,  -1.906, 0.498,
     *   43.807, 1.406,  -3.216,-0.520,  37.957, 0.902,  -0.717,-0.570,
     *  -40.232,-0.583,  12.171, 0.244,  11.595, 0.241,  -4.890, 0.054,
     *  -87.665, 1.635, 117.581,-1.765,
     *  123.444,-2.119,-146.917, 2.131,  81.137,-1.173, -99.063, 1.548,
     *  -42.646, 0.681,  61.263,-0.811,  17.550,-0.408, -24.374, 0.260,
     *   54.538,-0.170,   0.000, 0.000,
     *  -71.552, 0.361,   0.000, 0.000, -50.565,-0.077,   0.000, 0.000,
     *   36.653,-0.071,   0.000, 0.000, -10.816, 0.236,   0.000, 0.000,
     *  -31.138, 1.156,  37.307,-1.407,
     *   40.390,-1.390, -34.573, 1.730,  41.597,-0.835, -41.318, 1.550,
     *  -19.779, 0.404,  15.954,-0.696,  -1.706,-0.220,   5.084, 0.040,
     *  -57.671, 0.045,  42.683,-0.800,
     *   71.491, 0.048, -49.441, 0.980,  47.893,-0.037, -36.191, 0.562,
     *  -26.638,-0.029,  20.346,-0.384,   9.998, 0.067,  -6.787, 0.213,
     *   90.187,-1.198, -66.032,-0.056,
     * -119.148, 1.428,  81.202, 0.022, -63.375, 0.754,  53.070, 0.149,
     *   39.249,-0.436, -30.898,-0.052, -27.293, 0.301,  12.838,-0.067,
     * -110.261, 1.509,   0.000, 0.000,
     *  164.956,-1.761,   0.000, 0.000, 103.699,-1.005,   0.000, 0.000,
     *  -55.127, 0.569,   0.000, 0.000,  25.376,-0.315,   0.000, 0.000,
     * -104.655, 1.341, 109.057,-1.367,
     *  139.129,-1.730,-127.325, 1.532,  88.526,-1.068,-106.461, 1.397,
     *  -38.306, 0.508,  56.240,-0.798,  17.239,-0.267,  -7.766, 0.058,
     *   -6.494,-1.253,   5.714, 0.132,
     *    3.547, 1.545,  -5.372,-0.106,  -4.343, 1.103,  -3.393,-0.017,
     *    2.454,-0.626,  -3.297,-0.025,   5.871, 0.160,   2.040,-0.036,
     *   50.814,-0.230, -25.094, 0.817,
     *  -65.502, 0.304,  32.267,-1.075, -44.176, 0.019,  14.606,-0.605,
     *   27.869,-0.009,  -5.147, 0.387, -11.041, 0.131,   5.922,-0.225,
     *   77.825,-0.728, 128.501,-0.810,
     *  -87.685, 0.838,-164.016, 1.103, -74.431, 0.807, -95.539, 0.498,
     *   40.631,-0.454,  49.950,-0.292,  -4.229, 0.000, -29.666, 0.272,
     *  152.380,-1.232,   0.000, 0.000,
     * -192.098, 1.514,   0.000, 0.000,-132.417, 1.370,   0.000, 0.000,
     *   82.894,-0.709,   0.000, 0.000, -28.162, 0.050,   0.000, 0.000,
     *  -12.633, 1.192,  47.246,-1.193,
     *   -5.488,-1.387, -67.206, 1.486,  -9.917,-0.914, -34.438, 0.552,
     *   13.185, 0.477,  21.225,-0.387,   0.586,-0.208, -15.426, 0.419,
     *   -4.478,-0.118,  17.908, 0.175,
     *   -0.417, 0.067, -27.047,-0.241,   7.636, 0.028, -10.075,-0.109,
     *  -10.582, 0.005,  14.496, 0.086,   0.421, 0.001, -12.200,-0.041,
     *   16.086, 0.321,  47.044,-0.126,
     *  -24.823,-0.280, -62.615, 0.210, -12.030,-0.136, -44.003,-0.023,
     *    4.929, 0.137,  28.340,-0.009,  -4.688,-0.057,  -9.315, 0.103,
     *   28.023,-0.031, -21.535, 0.115,
     *  -31.946, 0.011,  24.143,-0.180, -21.019,-0.057,  24.108,-0.116,
     *   13.969, 0.004, -13.823, 0.042,  -6.860, 0.031,   0.546,-0.035,
     * 20*0.000,
     *  -31.994, 0.409,   0.000, 0.000,
     *   18.217,-0.458,   0.000, 0.000,  39.280,-0.754,   0.000, 0.000,
     *  -20.453, 0.324,   0.000, 0.000,  -8.111, 0.139,   0.000, 0.000,
     *   28.765,-0.477, -28.368, 0.516,
     *  -50.604, 0.751,  25.725,-0.471, -23.444, 0.283,  29.966,-0.558,
     *    2.759,-0.146, -10.824, 0.341,  -7.419, 0.206,  -3.711, 0.056,
     *   42.429,-0.415,   1.993, 0.117,
     *  -53.162, 0.555,   7.229,-0.246, -19.307, 0.039,  -8.028, 0.028,
     *    9.849,-0.035,   6.834, 0.033, -17.010, 0.272,   4.668,-0.129,
     *    4.546,-0.359, -57.796, 0.359,
     *    0.738, 0.343,  73.027,-0.423,  -7.421, 0.420,  56.067,-0.327,
     *    5.093,-0.279, -37.581, 0.226,   3.636,-0.041,  10.910,-0.059,
     *   88.440,-0.393, -69.598, 0.643,
     * -109.481, 0.532,  82.266,-0.765, -59.229, 0.182,  55.279,-0.580,
     *   28.514,-0.057, -30.282, 0.326, -22.924, 0.164,  11.602,-0.073,
     * 40*0.000/                                

      KMAX = MAX(KINT,KEXT)
      IF (KMAX .GT. KDIM)  GO TO 9999
      KT = MAX(LINT,LEXT)
      IF (KT .GT. LDIM)  GO TO 9999

	DO 500 N=0,KMAX
	DO 500 M=0,N

	DO J=0,KT
	 GNM(N,M,J)=GANM(N,M,J)+GBNM(N,M,J)*rz
	 HNM(N,M,J)=HANM(N,M,J)+HBNM(N,M,J)*rz
	ENDDO
 
      IF (IE .EQ. 'I')  THEN
         IF (N .GT. KINT)  GO TO 500
         LJ = LINT
      ELSE
         IF (N .GT. KEXT)  GO TO 500
         LJ = LEXT
         END IF

      FN(N,M) = FLOAT(N)

      IF (M .GT. 0)  GO TO 300
      DO 301 J=1-IBO-JBO,KT
      IF (IE .EQ. 'I')  THEN
         BINT(N,M,J)   = GNM(N,M,J)
      ELSE
         BEXT(N,M,J)   = GNM(N,M,J)
         END IF
  301 CONTINUE
      GO TO 500
  300 continue
      DO 302 J=1-IBO-JBO,LJ
      IF (IE .EQ. 'I')  THEN
         BINT(N,M,J)   = GNM(N,M,J)
         BINT(M-1,N,J) = HNM(N,M,J)
      ELSE
         BEXT(N,M,J)   = GNM(N,M,J)
         BEXT(M-1,N,J) = HNM(N,M,J)
         END IF
  302 CONTINUE
C
  500 CONTINUE
C     **********************************************************
C     SYNTHESIZES THE VALUE OF B0 FROM THE MODEL	
C     **********************************************************
      CALL SCHNEVPD(RZ,RLAT,FLON,dum,T,L,dum,dum,B)
	  RETURN
9999  STOP
      END
C
C
      SUBROUTINE SCHNEVPD (RZ,FLAT,FLON,R,T,L,BN,BE,BV)
C-------------------------------------------------------------------
C     WHEN L IS POSITIVE:
C     COMPUTES SPHERICAL CAP HARMONIC (GEOCENTRIC) FIELD COMPONENTS
C     HORIZONTAL NORTH BN,HORIZONTAL EAST BE,AND VERTICAL DOWNWARD BV.
C     WHEN L IS NEGATIVE:
C     COMPUTES GENERAL FUNCTION BV, ITS HORIZONTAL NORTH DERIVATIVE BN,
C     AND ITS HORIZONTAL EAST DERIVATIVE BE, ON SPHERICAL CAP SURFACE.
C     NOTE THAT THESE ARE METRICAL DERIVATIVES, AND BE IS THE
C     LONGITUDINAL DERIVATIVE DIVIDED BY SIN(COLATITUDE).

C     FLAT,FLON,R ARE GEOCENTRIC SPHERICAL CAP LATITUDE,LONGITUDE,RADIAL
C     DISTANCE; T IS TIME.

C     L =  0  ON FIRST CALL:  RETURNS SPHERICAL CAP POLE POSITION FLATO,
C             FLONO AND HALF-ANGLE THETA AS BN,BE, AND BV AFTER INITIALI-
C             ZATION. ON SUBSEQUENT CALLS:  ACTS AS L=1.
C          1  COMPUTES POTENTIAL FIELD COMPONENTS FROM INTERNAL COEFFTS.
C          2  COMPUTES POTENTIAL FIELD COMPONENTS FROM EXTERNAL COEFFTS.
C          3  COMPUTES FIELD FROM BOTH INTERNAL AND EXTERNAL COEFFTS.
C         -1  COMPUTES GENERAL FUNCTION BV AND DERIVATIVES BN WITH RESPECT 
C             TO LATITUDE AND BE WITH RESPECT TO LONGITUDE DIVIDED BY 
C             COS(LAT) (R IS DUMMY VARIABLE IN THIS CASE).
C    NOTE:   SUBROUTINE IS INITIALIZED DURING FIRST CALL REGARDLESS OF L.

C     SUBPROGRAM USED:  LEGFUN

C	***** PARAMS & COEFFS TRANSFERRED FROM MAIN PROGRAM *****

C	ADAPTED FROM SUBROUTINE SCHNEV OF G.V. HAINES (COMPUTERS &  
C       GEOSCIENCES,14, 413-447, 1988)
C-------------------------------------------------------------------

      PARAMETER   (IBO=0,JBO=1,KDIM=6,LDIM=4)                                     
      DIMENSION   FN(0:KDIM,0:KDIM), CONSTP(0:KDIM,0:KDIM)
      DIMENSION   CML(KDIM), SML(KDIM)
      DIMENSION   DELT(0:LDIM)
      DIMENSION   BINT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            BEXT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      COMMON	/CONST/dfarg,PI 
     * 			/ATB/BINT,BEXT,RE,TZERO,IFIT,IB,KINT,LINT,KEXT,
     *              LEXT,KMAX,FN
      CHARACTER*1 IE,RESP
C
      DATA ((CONSTP(N,M), M=0,N), N=0,KDIM)
     *	 /4*1.,1.73205,0.866025,1.,2.44949,1.93649,0.7905691,1.,
     *	  3.16228,3.35410,2.09165,0.739510,1.,3.87298,5.12348,
     *	  4.18330,2.21853,0.701561,1.,4.58258,2*7.24569,4.96078,
     *      2.32681,0.671693/

C     IBF   =  0   TO USE ORDINARY POLYNOMIALS AS BASIS FUNCTIONS
C              1          LEGENDRE POLYNOMIALS
C              2          FOURIER SERIES
C              3          COSINE SERIES
C              4          SINE SERIES
C     NOTE:    TZERO AND THINT MAY DEPEND ON IBF.
      IBF   =  2                                                       
      T1=1.
      T2=12.
      CALL TBFIT (T1,T2,IBF,THINT,TZERO)                                

C      IF (L .NE. 0)  GO TO 100
C      BN = FLATO
C      BE = FLONO
C      BV = THETA
C      RETURN

  100 IF (L .GE. 0)  THEN
         IF (IFIT .LT. 0)  GO TO 999
         AOR = RE/R
         AR = AOR**2
         IF (L .GT. 1)  GO TO 107
      ELSE
         IF (IFIT .GE. 0)  GO TO 999
         AR = -1.
         END IF
      KT = LINT
      GO TO 109
  107 IF (KEXT .GT. 0)  AOR3 = AOR*AR
      IF (L .GT. 2)  GO TO 108
      KT = LEXT
      GO TO 109
  108 KT = MAX (LINT,LEXT)
  109 DELT(0) = 1.
      IF (KT .LE. 0)  GO TO 103
      DEL = (T - TZERO)/THINT
      DO 102 I=1,KT
      IF (I .EQ. 1)  THEN
         IF (IBF .LE. 1) THEN
             DELT(I) = DEL
             ELSE IF (IBF .EQ. 2)  THEN
             ST = SIN(DEL)
             DELT(I) = ST
             ELSE IF (IBF .EQ. 3)  THEN
             DELT(I) = COS(DEL)
             ELSE
             DELT(I) = SIN(DEL)
             ENDIF
         GO TO 102
         ENDIF
      IF (IBF .EQ. 0)  THEN
          DELT(I) = DELT(I-1)*DEL
      ELSE IF (IBF .EQ. 1)  THEN
          RECIP = 1./FLOAT(I)
          DELT(I) = (2.-RECIP)*DELT(I-1)*DEL - (1.-RECIP)*DELT(I-2)
      ELSE IF (IBF .EQ. 2)  THEN
           IF ((I/2)*2 .EQ. I)  THEN
             IF (I .EQ. 2)  THEN
                CT = COS(DEL)
                DELT(I) = CT
                ELSE
                DELT(I) = DELT(I-2)*CT - DELT(I-3)*ST
                ENDIF
             ELSE
             DELT(I) = DELT(I-2)*CT + DELT(I-1)*ST
             ENDIF
      ELSE IF (IBF .EQ. 3)  THEN
          DELT(I) = COS(I*DEL)
      ELSE IF (IBF .EQ. 4)  THEN
          DELT(I) = SIN(I*DEL)
      ELSE
          GO TO 999
      ENDIF
  102 CONTINUE
      incept = 0                                                              
      if ((ibf.eq.2 .or. ibf.eq.3) .and. incept .eq. 1)  then
c     change to intercept form of fourier series.
          do i=2,lint,4-ibf
          delt(i) = 1. - delt(i)
          enddo
          endif
  103 X = 0.
      Y = 0.
      Z = 0.
      IF (L .EQ. 2)  GO TO 106
      IF (KINT .LT. 0)  GO TO 106
      GTI = 0.
      DO 105 I=1-IBO-JBO,LINT
  105 GTI = GTI + BINT(0,0,I)*DELT(I)
      Z = -AR*GTI
      N =  0
  106 COLAT = 90. - FLAT
      DO 150 N=1,KMAX
      IF (N .GT. 1)  GO TO 115
      CL = COS(FLON*dfarg)
      SL = SIN(FLON*dfarg)
      CML(1) = CL
      SML(1) = SL
      GO TO 120
  115 SML(N) = SL*CML(N-1) + CL*SML(N-1)
      CML(N) = CL*CML(N-1) - SL*SML(N-1)
  120 CONTINUE
      DO 150 M=0,N
      IF (IB .EQ. 2)  GO TO 121
      NMM = N - M
      IF ((NMM/2)*2 .NE. NMM)  GO TO 150
  121 FFN = FN(N,M)
      CALL LEGFUN (M,FFN,CONSTP(N,M),COLAT,P,DP,PMS,0)
      IF (L .GE. 0)  THEN
         AR = AOR**(FFN+2.)
      ELSE
         AR = 1.
         FFN = -2.
         DP = -DP
         PMS = -PMS
         END IF
      IF (M .NE. 0)  GO TO 130
      BT1 = 0.
      BT3 = 0.
      BT  = 0.
      IF (L .EQ. 2)  GO TO 123
      IF (N .GT. KINT)  GO TO 123
      GTI = 0.
      DO 122 I=1-IBO-JBO,LINT
  122 GTI  = GTI  + BINT(N,M,I)*DELT(I)
      BT1  = AR*GTI
      BT3  = BT1
  123 IF (L .LE. 1)  GO TO 125
      IF (N .GT. KEXT)  GO TO 125
      GTE = 0.
      DO 124 I=1-IBO-JBO,LEXT
  124 GTE = GTE + BEXT(N,M,I)*DELT(I)
      BT  = AOR3/AR*GTE
      BT1 = BT1 + BT
  125 X = X + BT1*DP
      Z = Z - (FFN*(BT3-BT)+BT3)*P
      GO TO 150
  130 BT1 = 0.
      BT2 = 0.
      BT3 = 0.
      BT  = 0.
      IF (L .EQ. 2)  GO TO 133
      IF (N .GT. KINT)  GO TO 133
      GTI = 0.
      HTI = 0.
      DO 132 I=1-IBO-JBO,LINT
      GTI = GTI + BINT(N,M,I)*DELT(I)
  132 HTI = HTI + BINT(M-1,N,I)*DELT(I)
      BT1 = AR*(GTI*CML(M) + HTI*SML(M))
      BT2 = AR*(GTI*SML(M) - HTI*CML(M))
      BT3 = BT1
  133 IF (L .LE. 1)  GO TO 135
      IF (N .GT. KEXT)  GO TO 135
      GTE = 0.
      HTE = 0.
      DO 134 I=1-IBO-JBO,LEXT
      GTE = GTE + BEXT(N,M,I)*DELT(I)
  134 HTE = HTE + BEXT(M-1,N,I)*DELT(I)
      RA = AOR3/AR
      BT = RA*(GTE*CML(M) + HTE*SML(M))
      BT1 = BT1 + BT
      BT2 = BT2 + RA*(GTE*SML(M) - HTE*CML(M))
  135 X = X + BT1*DP
      Y = Y + BT2*PMS
      Z = Z - (FFN*(BT3-BT)+BT3)*P
  150 CONTINUE
      BN = X
      BE = Y
      BV = Z
      RETURN
  999 STOP
      END
C
C
      SUBROUTINE  SHAB1D (FLAT,FLON,T,RZ,B)
C-------------------------------------------------------------------
C	COMPUTES THE HOURLY VALUES OF B1 FROM A SET OF SH COEFFICIENTS
C	IN A POINT OF A GIVEN GEOCENTRIC LATITUDE AND LONGITUDE
C	OF THE EARTH'S SURFACE FOR A GIVEN MONTH AND A GIVEN SUSPOT 
C	NUMBER
C   PARAMETERS ARE THE SAME AS IN SHAMDB0D, EXCEPT:
C		FLAT	Geographic latitude
C		B		=B1
C
C	***** PARAMS & COEFFS IN DATA SENTENCES *****
C-------------------------------------------------------------------
C
      PARAMETER   (IBO=0,JBO=1,KDIM=6,LDIM=4,L=-1)
      DIMENSION   FN(0:KDIM,0:KDIM), CONST(0:KDIM,0:KDIM)
      DIMENSION   GNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			HNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
	  DIMENSION   GANM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			HANM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            GBNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *			HBNM(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      DIMENSION   BINT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            BEXT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      CHARACTER*1 IE       
      COMMON/ATB1/BINT,BEXT,RE,TZERO,IFIT,IB,KINT,LINT,KEXT,
     *              LEXT,KMAX,FN

	  DATA ALT /300./

      DATA THETA,RE,TZERO,IFIT,ICEN,IREF,IB,KINT,LINT,KEXT,LEXT
     *     /180.,6371.2,1.0,  -1,  0,   0,   2, 6,   4,   0,   -1/

  	  DATA ((CONST(N,M), M=0,N), N=0,KDIM)
     *	 /4*1.,1.73205,0.866025,1.,2.44949,1.93649,0.7905691,1.,
     *	  3.16228,3.35410,2.09165,0.739510,1.,3.87298,5.12348,
     *	  4.18330,2.21853,0.701561,1.,4.58258,2*7.24569,4.96078,
     *      2.32681,0.671693/

	  DATA IE /"I"/

      DATA (((GANM(N,M,J),GBNM(N,M,J),HANM(N,M,J),HBNM(N,M,J),
     *    	J=0,LDIM), M=0,N), N=0,KDIM)
     *   /1.156, 0.039,  0.000, 0.000,
     *    1.725,-0.053,  0.000, 0.000,  1.097,-0.032,  0.000, 0.000,
     *   -0.579, 0.019,  0.000, 0.000,  0.265,-0.010,  0.000, 0.000,
     *   -2.895, 0.023,  0.000, 0.000,
     *    3.269,-0.025,  0.000, 0.000,  2.278,-0.015,  0.000, 0.000,
     *   -1.789, 0.009,  0.000, 0.000,  0.653,-0.005,  0.000, 0.000,
     *   -3.240, 0.052, -2.645, 0.030,
     *    4.404,-0.062,  3.283,-0.038,  2.827,-0.038,  2.181,-0.019,
     *   -1.496, 0.020, -1.143, 0.011,  0.688,-0.011,  0.512,-0.008,
     *   -0.023,-0.025,  0.000, 0.000,
     *   -0.370, 0.031,  0.000, 0.000, -0.385, 0.017,  0.000, 0.000,
     *    0.150,-0.009,  0.000, 0.000,  0.019, 0.007,  0.000, 0.000,
     *    1.704, 0.006, -1.766, 0.022,
     *   -2.115,-0.007,  2.309,-0.028, -1.610,-0.003,  1.314,-0.015,
     *    0.806, 0.002, -0.873, 0.010, -0.249,-0.002,  0.445,-0.005,
     *    0.256,-0.009, -2.959, 0.023,
     *   -0.662, 0.013,  3.643,-0.030, -0.208, 0.001,  2.208,-0.015,
     *    0.144,-0.001, -1.326, 0.010, -0.205, 0.005,  0.678,-0.007,
     *    1.730,-0.030,  0.000, 0.000,
     *   -2.072, 0.035,  0.000, 0.000, -1.027, 0.016,  0.000, 0.000,
     *    0.946,-0.008,  0.000, 0.000, -0.644, 0.009,  0.000, 0.000,
     *    3.925,-0.060,  1.613,-0.015,
     *   -4.790, 0.070, -2.021, 0.019, -3.293, 0.048, -1.273, 0.006,
     *    1.829,-0.026,  0.797,-0.005, -0.767, 0.011, -0.395, 0.006,
     *   -1.988, 0.027, -0.761, 0.003,
     *    2.258,-0.031,  0.978,-0.004,  1.772,-0.026,  0.459,-0.003,
     *   -0.813, 0.014, -0.257, 0.004,  0.173,-0.003,  0.223,-0.001,
     * 20*0.000,
     *   -1.356, 0.011,  0.000, 0.000,
     *    0.079,-0.003,  0.000, 0.000,  0.415,-0.012,  0.000, 0.000,
     *   -0.249, 0.004,  0.000, 0.000, -0.087, 0.004,  0.000, 0.000,
     *   -1.155,-0.012,  0.261,-0.026,
     *    1.619, 0.011, -0.217, 0.032,  0.989, 0.009, -0.361, 0.019,
     *   -0.745,-0.001,  0.009,-0.009,  0.347, 0.000,  0.178, 0.005,
     *    4.672,-0.032,  0.562, 0.017,
     *   -5.868, 0.040, -0.850,-0.020, -3.798, 0.026, -0.145,-0.020,
     *    2.079,-0.014,  0.160, 0.008, -0.943, 0.007, -0.417, 0.001,
     * 40*0.000,
     *    2.477, 0.000,  0.000, 0.000,
     *   -1.815,-0.011,  0.000, 0.000, -1.571, 0.002,  0.000, 0.000,
     *    0.551, 0.004,  0.000, 0.000, -0.044,-0.008,  0.000, 0.000,
     *    2.160,-0.010, -0.305, 0.012,
     *   -2.618, 0.010,  0.529,-0.016, -1.782, 0.006,  0.634,-0.007,
     *    0.976,-0.003, -0.449, 0.006, -0.331, 0.001, -0.004,-0.004,
     *   -0.394, 0.002,  0.851,-0.020,
     *    0.359,-0.003, -1.051, 0.024,  0.357, 0.002, -0.239, 0.012,
     *    0.005,-0.001,  0.210,-0.008, -0.028,-0.003, -0.322, 0.005,
     * 60*0.000,
     *   -6.760, 0.064,  0.000, 0.000,
     *    7.700,-0.073,  0.000, 0.000,  5.394,-0.054,  0.000, 0.000,
     *   -2.788, 0.026,  0.000, 0.000,  0.923,-0.007,  0.000, 0.000,
     *   -2.328, 0.024, -0.463, 0.020,
     *    2.923,-0.027,  0.490,-0.025,  1.768,-0.019,  0.711,-0.017,
     *   -1.068, 0.009, -0.363, 0.010,  0.596,-0.004, -0.073,-0.004,
     *   -1.911, 0.016, -4.519, 0.041,
     *    2.644,-0.024,  5.569,-0.050,  1.287,-0.009,  3.707,-0.031,
     *   -0.894, 0.007, -2.121, 0.019,  0.669,-0.007,  0.933,-0.010,
     * 80*0.000/ 

      KMAX = MAX(KINT,KEXT)
      IF (KMAX .GT. KDIM)  GO TO 9999
      KT = MAX(LINT,LEXT)
      IF (KT .GT. LDIM)  GO TO 9999

	DO 500 N=0,KMAX
	DO 500 M=0,N

	DO J=0,KT
	 GNM(N,M,J)=GANM(N,M,J)+GBNM(N,M,J)*rz
	 HNM(N,M,J)=HANM(N,M,J)+HBNM(N,M,J)*rz
	ENDDO
 
      IF (IE .EQ. 'I')  THEN
         IF (N .GT. KINT)  GO TO 500
         LJ = LINT
      ELSE
         IF (N .GT. KEXT)  GO TO 500
         LJ = LEXT
         END IF

      FN(N,M) = FLOAT(N)

      IF (M .GT. 0)  GO TO 300
  255 FORMAT (1X,A1,2I3,F9.4,E15.6,F10.3,4F20.3:/(22X,5F20.3))
      DO 301 J=1-IBO-JBO,KT
      IF (IE .EQ. 'I')  THEN
         BINT(N,M,J)   = GNM(N,M,J)
      ELSE
         BEXT(N,M,J)   = GNM(N,M,J)
         END IF
  301 CONTINUE
      GO TO 500
  300 continue
  260 FORMAT (1X,A1,2I3,F9.4,E15.6,10F10.3:/(32X,10F10.3))
      DO 302 J=1-IBO-JBO,LJ
      IF (IE .EQ. 'I')  THEN
         BINT(N,M,J)   = GNM(N,M,J)
         BINT(M-1,N,J) = HNM(N,M,J)
      ELSE
         BEXT(N,M,J)   = GNM(N,M,J)
         BEXT(M-1,N,J) = HNM(N,M,J)
         END IF
  302 CONTINUE

  500 CONTINUE
C     **********************************************************
C     SYNTHESIZES THE VALUE OF B1 FROM THE MODEL	
C     **********************************************************
      CALL SCHNEVPDB1(RZ,FLAT,FLON,dum,T,L,dum,dum,B)
C
      RETURN
9999  STOP
      END
C
C
      SUBROUTINE SCHNEVPDB1 (RZ,FLAT,FLON,R,T,L,BN,BE,BV)
C-------------------------------------------------------------------
C     WHEN L IS POSITIVE:
C     COMPUTES SPHERICAL CAP HARMONIC (GEOCENTRIC) FIELD COMPONENTS
C     HORIZONTAL NORTH BN,HORIZONTAL EAST BE,AND VERTICAL DOWNWARD BV.
C     WHEN L IS NEGATIVE:
C     COMPUTES GENERAL FUNCTION BV, ITS HORIZONTAL NORTH DERIVATIVE 
C     BN, AND ITS HORIZONTAL EAST DERIVATIVE BE, ON SPHERICAL CAP 
C     SURFACE. NOTE THAT THESE ARE METRICAL DERIVATIVES, AND BE IS 
C     THE LONGITUDINAL DERIVATIVE DIVIDED BY SIN(COLATITUDE).

C     FLAT,FLON,R ARE GEOCENTRIC SPHERICAL CAP LATITUDE,LONGITUDE,RADIAL
C     DISTANCE; T IS TIME.

C     L =  0  ON FIRST CALL:  RETURNS SPHERICAL CAP POLE POSITION FLATO,
C             FLONO AND HALF-ANGLE THETA AS BN,BE, AND BV AFTER INITIALI-
C             ZATION. ON SUBSEQUENT CALLS:  ACTS AS L=1.
C          1  COMPUTES POTENTIAL FIELD COMPONENTS FROM INTERNAL COEFFS.
C          2  COMPUTES POTENTIAL FIELD COMPONENTS FROM EXTERNAL COEFFS.
C          3  COMPUTES FIELD FROM BOTH INTERNAL AND EXTERNAL COEFFS.
C         -1  COMPUTES GENERAL FUNCTION BV AND DERIVATIVES BN WITH RESPECT 
C             TO LATITUDE AND BE WITH RESPECT TO LONGITUDE DIVIDED BY 
C             COS(LAT) (R IS DUMMY VARIABLE IN THIS CASE).
C    NOTE:   SUBROUTINE IS INITIALIZED DURING FIRST CALL REGARDLESS OF L.

C     SUBPROGRAM USED:  LEGFUN

C	***** PARAMS & COEFFS TRANSFERRED FROM MAIN PROGRAM *****

C	ADAPTED FROM SUBROUTINE SCHNEV OF G.V. HAINES (COMPUTERS &  
C	GEOSCIENCES,14, 413-447, 1988)
C-------------------------------------------------------------------

      PARAMETER   (IBO=0,JBO=1,KDIM=6,LDIM=4)                                     
      DIMENSION   FN(0:KDIM,0:KDIM), CONSTP(0:KDIM,0:KDIM)
      DIMENSION   CML(KDIM), SML(KDIM)
      DIMENSION   DELT(0:LDIM)
      DIMENSION   BINT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM),
     *            BEXT(0:KDIM,0:KDIM,1-IBO-JBO:LDIM)
      COMMON	/CONST/dfarg,PI 
     * 		/ATB1/BINT,BEXT,RE,TZERO,IFIT,IB,KINT,LINT,KEXT,
     *          LEXT,KMAX,FN
      CHARACTER*1 IE,RESP
C
      DATA ((CONSTP(N,M), M=0,N), N=0,KDIM)
     *	 /4*1.,1.73205,0.866025,1.,2.44949,1.93649,0.7905691,1.,
     *	  3.16228,3.35410,2.09165,0.739510,1.,3.87298,5.12348,
     *	  4.18330,2.21853,0.701561,1.,4.58258,2*7.24569,4.96078,
     *      2.32681,0.671693/

C     IBF   =  0   TO USE ORDINARY POLYNOMIALS AS BASIS FUNCTIONS
C              1          LEGENDRE POLYNOMIALS
C              2          FOURIER SERIES
C              3          COSINE SERIES
C              4          SINE SERIES
C     NOTE:    TZERO AND THINT MAY DEPEND ON IBF.
      IBF   =  2                                                       
      T1=1.
      T2=12.
      CALL TBFIT (T1,T2,IBF,THINT,TZERO)                                

C      IF (L .NE. 0)  GO TO 100
C      BN = FLATO
C      BE = FLONO
C      BV = THETA
C      RETURN

  100 IF (L .GE. 0)  THEN
         IF (IFIT .LT. 0)  GO TO 999
         AOR = RE/R
         AR = AOR**2
         IF (L .GT. 1)  GO TO 107
      ELSE
         IF (IFIT .GE. 0)  GO TO 999
         AR = -1.
         END IF
      KT = LINT
      GO TO 109
  107 IF (KEXT .GT. 0)  AOR3 = AOR*AR
      IF (L .GT. 2)  GO TO 108
      KT = LEXT
      GO TO 109
  108 KT = MAX (LINT,LEXT)
  109 DELT(0) = 1.
      IF (KT .LE. 0)  GO TO 103
      DEL = (T - TZERO)/THINT
      DO 102 I=1,KT
      IF (I .EQ. 1)  THEN
         IF (IBF .LE. 1) THEN
             DELT(I) = DEL
             ELSE IF (IBF .EQ. 2)  THEN
             ST = SIN(DEL)
             DELT(I) = ST
             ELSE IF (IBF .EQ. 3)  THEN
             DELT(I) = COS(DEL)
             ELSE
             DELT(I) = SIN(DEL)
             ENDIF
         GO TO 102
         ENDIF
      IF (IBF .EQ. 0)  THEN
          DELT(I) = DELT(I-1)*DEL
      ELSE IF (IBF .EQ. 1)  THEN
          RECIP = 1./FLOAT(I)
          DELT(I) = (2.-RECIP)*DELT(I-1)*DEL - (1.-RECIP)*DELT(I-2)
      ELSE IF (IBF .EQ. 2)  THEN
           IF ((I/2)*2 .EQ. I)  THEN
             IF (I .EQ. 2)  THEN
                CT = COS(DEL)
                DELT(I) = CT
                ELSE
                DELT(I) = DELT(I-2)*CT - DELT(I-3)*ST
                ENDIF
             ELSE
             DELT(I) = DELT(I-2)*CT + DELT(I-1)*ST
             ENDIF
      ELSE IF (IBF .EQ. 3)  THEN
          DELT(I) = COS(I*DEL)
      ELSE IF (IBF .EQ. 4)  THEN
          DELT(I) = SIN(I*DEL)
      ELSE
          GO TO 999
      ENDIF
  102 CONTINUE
      incept = 0                                                              
      if ((ibf.eq.2 .or. ibf.eq.3) .and. incept .eq. 1)  then
c     change to intercept form of fourier series.
          do i=2,lint,4-ibf
          delt(i) = 1. - delt(i)
          enddo
          endif
  103 X = 0.
      Y = 0.
      Z = 0.
      IF (L .EQ. 2)  GO TO 106
      IF (KINT .LT. 0)  GO TO 106
      GTI = 0.
      DO 105 I=1-IBO-JBO,LINT
  105 GTI = GTI + BINT(0,0,I)*DELT(I)
      Z = -AR*GTI
      N =  0
  106 COLAT = 90. - FLAT
      DO 150 N=1,KMAX
      IF (N .GT. 1)  GO TO 115
      CL = COS(FLON*dfarg)
      SL = SIN(FLON*dfarg)
      CML(1) = CL
      SML(1) = SL
      GO TO 120
  115 SML(N) = SL*CML(N-1) + CL*SML(N-1)
      CML(N) = CL*CML(N-1) - SL*SML(N-1)
  120 CONTINUE
      DO 150 M=0,N
      IF (IB .EQ. 2)  GO TO 121
      NMM = N - M
      IF ((NMM/2)*2 .NE. NMM)  GO TO 150
  121 FFN = FN(N,M)
      CALL LEGFUN (M,FFN,CONSTP(N,M),COLAT,P,DP,PMS,0)
      IF (L .GE. 0)  THEN
         AR = AOR**(FFN+2.)
      ELSE
         AR = 1.
         FFN = -2.
         DP = -DP
         PMS = -PMS
         END IF
      IF (M .NE. 0)  GO TO 130
      BT1 = 0.
      BT3 = 0.
      BT  = 0.
      IF (L .EQ. 2)  GO TO 123
      IF (N .GT. KINT)  GO TO 123
      GTI = 0.
      DO 122 I=1-IBO-JBO,LINT
  122 GTI  = GTI  + BINT(N,M,I)*DELT(I)
      BT1  = AR*GTI
      BT3  = BT1
  123 IF (L .LE. 1)  GO TO 125
      IF (N .GT. KEXT)  GO TO 125
      GTE = 0.
      DO 124 I=1-IBO-JBO,LEXT
  124 GTE = GTE + BEXT(N,M,I)*DELT(I)
      BT  = AOR3/AR*GTE
      BT1 = BT1 + BT
  125 X = X + BT1*DP
      Z = Z - (FFN*(BT3-BT)+BT3)*P
      GO TO 150
  130 BT1 = 0.
      BT2 = 0.
      BT3 = 0.
      BT  = 0.
      IF (L .EQ. 2)  GO TO 133
      IF (N .GT. KINT)  GO TO 133
      GTI = 0.
      HTI = 0.
      DO 132 I=1-IBO-JBO,LINT
      GTI = GTI + BINT(N,M,I)*DELT(I)
  132 HTI = HTI + BINT(M-1,N,I)*DELT(I)
      BT1 = AR*(GTI*CML(M) + HTI*SML(M))
      BT2 = AR*(GTI*SML(M) - HTI*CML(M))
      BT3 = BT1
  133 IF (L .LE. 1)  GO TO 135
      IF (N .GT. KEXT)  GO TO 135
      GTE = 0.
      HTE = 0.
      DO 134 I=1-IBO-JBO,LEXT
      GTE = GTE + BEXT(N,M,I)*DELT(I)
  134 HTE = HTE + BEXT(M-1,N,I)*DELT(I)
      RA = AOR3/AR
      BT = RA*(GTE*CML(M) + HTE*SML(M))
      BT1 = BT1 + BT
      BT2 = BT2 + RA*(GTE*SML(M) - HTE*CML(M))
  135 X = X + BT1*DP
      Y = Y + BT2*PMS
      Z = Z - (FFN*(BT3-BT)+BT3)*P
  150 CONTINUE
      BN = X
      BE = Y
      BV = Z
      RETURN
  999 STOP
      END
C
C
      SUBROUTINE TBFIT (T1,T2,IBF,THINT,TZERO)
C-------------------------------------------------------------------
C	COURTESY OF G.V. HAINES
C
C     T2    =  BEGINNING OF TIME INTERVAL.
C     T1    =  END OF TIME INTERVAL.
C     IBF   =  0 TO USE ORDINARY POLYNOMIALS AS TEMPORAL BASIS FUNCTS
C              1          LEGENDRE POLYNOMIALS
C              2          FOURIER SERIES
C              3          COSINE SERIES
C              4          SINE SERIES
C              5          COSINE + SINE SERIES
C     TZERO =  TIME-TRANSLATION PARAMETER:
C              FOR IBF.LE.1, CHOOSE TZERO = CENTER OF TIME INTERVAL
C              FOR IBF.GE.2, CHOOSE TZERO = BEGINNING OF TIME INTERVAL.
C     THINT =  TIME-SCALING PARAMETER. THINT = HALF OF TIME INTERVAL T2-T1
C              FOR IBF.LE.1; PI*HALF OF TIME INTERVAL FOR IBF.EQ.2;
C              AND PI*TIME INTERVAL FOR IBF.GE.3.
C     NOTE:    CHOOSING TZERO AND THINT IN THIS WAY SCALES TIME
C              TO (-1,1) FOR IBF.LE.1;  TO (0,2PI) FOR IBF.EQ.2;
C              AND TO (0,PI) FOR IBF.GE.3.
C-------------------------------------------------------------------

      IBFI  = IBF
      IF (IBFI .LE. 1)  THEN
          TZERO = (T2+T1)/2.D0
         ELSE
          TZERO =  T1
         ENDIF
      THINT = T2 - T1
      IF (IBFI .LE. 2)  THINT = THINT/2.D0
C      IF (IBFI .EQ. 4)  THEN
C          DELT(0) = 0.D0
C         ELSE
C          DELT(0) = 1.D0
C         ENDIF
      RETURN
      END
C
C
      SUBROUTINE LEGFUN (M,FN,CONST,COLAT,P,DP,PMS,IPRT)
C-------------------------------------------------------------------
C     SERIES FORM FOR ASSOCIATED LEGENDRE FUNCTION P, ITS DERIVATIVE DP,
C     AND THE FUNCTION PMS=P*M/SIN(COLAT), IN POWERS OF (1-COS(COLAT))/2.
C     INTEGRAL ORDER M, REAL DEGREE FN, NORMALIZING CONSTANT CONST.
C     COLATITUDE COLAT IN DEGREES.
C     IPRT = 0     NO PRINT-OUT
C            1     PRINT PARAMETERS AND P SERIES
C            2     PRINT PARAMETERS AND DP SERIES
C            3     PRINT PARAMETERS AND BOTH P AND DP SERIES
C           -1     PRINT PARAMETERS ONLY
C     INPUT M,FN,CONST,COLAT,IPRT.   OUTPUT P,DP,PMS
C  ADAPTED FROM G.V. HAINES (COMPUTERS & GEOSCIENCES, 14, 413-447, 1988).
C-------------------------------------------------------------------
      REAL*8  		FNN,AL,A,B,PNM,DPNM
      DIMENSION  	AM(60), BM(60)
      LOGICAL		mess
	  COMMON/iounit/konsol,mess	/CONST/dfarg,PI

      DATA   JMAX/60/

c      dfarg=(atan(1.0)*4.)/180.
      FNN = FN*(FN+1.)
      IF (COLAT .LT. 60.)  THEN
          X = SIN(dfarg*COLAT/2.)**2
          C = 1. - 2.*X
      ELSE
          C = COS(COLAT*dfarg)
          X = (1. - C)/2.
          END IF
      S = SIN(COLAT*dfarg)
      IF (M .GT.1)  GO TO 20
      IF (M .LT. 0)  STOP
      AL = CONST
      GO TO 50
   20 AL = CONST*S**(M-1)
   50 PNM = AL
      DPNM = 0.
      J = 0
  100 J = J + 1
      JPM = J + M
      B = AL*((JPM-1)-FNN/JPM)
      DPNM = DPNM + B
      A = (B*X)/J
      PNM = PNM + A
      AL = A
C     STORE P OR DP SERIES FOR PRINTOUT.
      IF (IPRT .LE. 0)  GO TO 150
      IF (IPRT .EQ. 2)  GO TO 145
      AM(J) = A
      IF (IPRT .EQ. 1)  GO TO 150
  145 BM(J) = B
C     CHECK FOR TERMINATION OF SERIES.
  150 ABSA = ABS(A)
      ABSB = ABS(B)
      IF (ABSB .GE. 1.E-7)  GO TO 160
      IF (ABSA .LT. 1.E-7)  GO TO 110
  160 IF (ABSB .GE. 1.E+13)  GO TO 105
      IF (ABSA .GE. 1.E+13)  GO TO 105
C     CHANGE CHECK LIMITS ACCORDING TO ACCURACY DESIRED AND ACCORDING
C     TO WORD SIZE OF COMPUTER.
C     FOR 32-BIT WORD, DOUBLE PRECISION, E-8 AND E+8 GIVE 7 DIGITS ACCURACY.
C     FOR 60-BIT WORD, DOUBLE PRECISION, E-15 AND E+15 GIVE 14 DIGITS ACCURACY.
C     FOR 60-BIT WORD, SINGLE PRECISION, E-8 AND E+7 GIVE 7 DIGITS ACCURACY.
C     (DOUBLE OR SINGLE PRECISION REFER TO FNN,AL,A,B,PNM,DPNM)
      IF (J .LT. JMAX)  GO TO 100
C     CONVERGENCE SLOW OR JMAX TOO SMALL
  105 CONTINUE
C     NUMERICAL ERROR UNACCEPTABLY LARGE DUE TO ADDING OF
C     LARGE AND SMALL NUMBERS.
      if (mess) WRITE(konsol,108) M,FN,CONST,J,A,B
  108 FORMAT (//12H ** ERROR **/1X,I5,F10.5,E15.7,I5,2D15.7)
      STOP
C     SERIES TRUNCATED SUCCESSFULLY.
  110 PS = PNM
      DPS = DPNM
      IF (M .NE. 0)  GO TO 115
      PMS = 0.
      P = PS
      DP = DPS*S/2.
      GO TO 120
  115 PMS = PS*M
      P = PS*S
      DP = DPS*S*S/2. + C*PMS
  120 CONTINUE
C     PRINT TERMS OF SERIES
      IF (IPRT .EQ. 0)  RETURN
      if (mess) WRITE(konsol,125) M,FN,CONST,COLAT,P,DP,PMS,J
  125 FORMAT (/1X,I5,F10.5,E20.12,F10.2,3F25.14,I5)
      IF (IPRT .LT. 0)  RETURN
      IF (IPRT .EQ. 2)  GO TO 135
      if (mess) write(konsol,130) (AM(I),I=1,J)
  130 FORMAT (1X,16E8.1)
      IF (IPRT .EQ. 1)  RETURN
  135 CONTINUE
      RETURN
      END
C      
C      
        REAL FUNCTION B0_98 ( HOUR, SAX, SUX, NSEASN, R, ZLO, ZMODIP)
C-----------------------------------------------------------------
C Interpolation procedure for bottomside thickness parameter B0.
C Array B0F(ILT,ISEASON,IR,ILATI) distinguishes between day and
C night (ILT=1,2), four seasons (ISEASON is northern season with
C ISEASON=1 northern spring), low and high solar activity Rz12=10,
C 100 (IR=1,2), and modified dip latitudes of 0, 18 and 45
C degress (ILATI=1,2,3). In the DATA statement the first value
C corresponds to B0F(1,1,1,1), the second to B0F(2,1,1,1), the
C third to B0F(1,2,1,1) and so on.
C
C input:
C       hour    LT in decimal hours
C       SAX     time of sunrise in decimal hours
C       SUX     time of sunset in decimal hours
C       nseasn  season in northern hemisphere (1=spring)
C       R       12-month running mean of sunspot number
C       ZLO     longitude
C       ZMODIP  modified dip latitude
C
C JUNE 1989 --------------------------------------- Dieter Bilitza
C
C Updates (B0_new -> B0_98):
C
C 01/98 corrected to include a smooth transition at the modip equator
C       and no discontinuity at the equatorial change in season.
C 09/98 new B0 values incl values at the magnetic equator
C 10/98 longitude as input to determine if magnetic equator in northern 
C         or southern hemisphere
C-------------------------------------------------------------------
      REAL      NITVAL
      DIMENSION B0F(2,4,2,3),bfr(2,2,3),bfd(2,3),zx(5),g(6),dd(5)
      DATA      B0F/201,68,210,61,192,68,199,67,240,80,245,83,
     &              233,71,230,65,108,65,142,81,110,68,77,75,
     &              124,98,164,100,120,94,96,112,78,81,94,84,
     &              81,81,65,70,102,87,127,91,109,88,81,78/
      DATA      zx/45.,72.,90.,108.,135./,dd/5*3.0/

        num_lat=3

C jseasn is southern hemisphere season
        jseasn=nseasn+2
        if(jseasn.gt.4) jseasn=jseasn-4

        zz = zmodip + 90.
        zz0 = 0.

C Interpolation in Rz12: linear from 10 to 100
        DO 7035 ISL=1,num_lat
          DO 7034 ISD=1,2
            bfr(isd,1,isl) = b0f(isd,nseasn,1,isl) +
     &      (b0f(isd,nseasn,2,isl) - b0f(isd,nseasn,1,isl))/90.*(R-10.)
            bfr(isd,2,isl) = b0f(isd,jseasn,1,isl) +
     &      (b0f(isd,jseasn,2,isl) - b0f(isd,jseasn,1,isl))/90.*(R-10.)
7034      continue
C Interpolation day/night with transitions at SAX (sunrise)
C and SUX (sunset) for northern/southern hemisphere iss=1/2
          do 7033 iss=1,2
                DAYVAL = BFR(1,ISS,ISL)
                NITVAL = BFR(2,ISS,ISL)
                BFD(iss,ISL) = HPOL(HOUR,DAYVAL,NITVAL,SAX,SUX,1.,1.)
7033      continue
7035    continue

C Interpolation with epstein-transitions in modified dip latitude.
C Transitions at +/-18 and +/-45 degrees; constant above +/-45.
C
C g(1:5) are the latitudinal slopes of B0;
C       g(1) is for the region from -90 to -45 degrees
C       g(2) is for the region from -45 to -18 degrees
C       g(3) is for the region from -18 to   0 degrees
C       g(4) is for the region from   0 to  18 degrees
C       g(5) is for the region from  18 to  45 degrees
C       g(6) is for the region from  45 to  90 degrees
C
C B0 =  bfd(2,3) at modip = -45,
C       bfd(2,2) at modip = -18,
C       bfd(2,1) or bfd(1,1) at modip = 0,
C       bfd(1,2) at modip = 20,
C       bfd(1,3) at modip = 45.
C If the Longitude is between 200 and 320 degrees then the modip 
C equator is in the southern hemisphere and bfd(2,1) is used at the 
C equator, otherwise bfd(1,1) is used.
c
        zx1=bfd(2,3)
        zx2=bfd(2,2)
        zx3=bfd(1,1)
        if(zlo.gt.200.0.and.zlo.lt.320) zx3=bfd(2,1)
        zx4=bfd(1,2)
        zx5=bfd(1,3)
        g(1) = 0.
        g(2) = ( zx2 - zx1 ) / 27.
        g(3) = ( zx3 - zx2 ) / 18.
        g(4) = ( zx4 - zx3 ) / 18.
        g(5) = ( zx5 - zx4 ) / 27.
        g(6) = 0.

c        bb0 = bfd(2,3)
c      SUM = bb0
        sum=zx1
      DO 1 I=1,5
        aa = eptr(zz ,dd(i),zx(i))
        bb = eptr(zz0,dd(i),zx(i))
        DSUM = (G(I+1) - G(I)) * (AA-BB) * dd(i)
        SUM = SUM + DSUM
1       continue
      B0_98 = SUM

        RETURN
        END
C
C
        SUBROUTINE ROGUL(IDAY,XHI,SX,GRO)
C --------------------------------------------------------------------- 
C   CALCULATES RATIO H0.5/HMF2 FOR HALF-DENSITY POINT (NE(H0.5)=0.5*
C   NMF2) T. GULYAEVA, ADVANCES IN SPACE RESEARCH 7, #6, 39-48, 1987.
C
C       INPUT:  IDAY    DAY OF YEAR
C               XHI     SOLAR ZENITH ANGLE [DEGREE]
C       
C       OUTPUT: GRO     RATIO OF HALF DENSITY HEIGHT TO F PEAK HEIGHT
C               SX      SMOOTHLY VARYING SEASON PARAMTER (SX=1 FOR 
C                       DAY=1; SX=3 FOR DAY=180; SX=2 FOR EQUINOX)
C ---------------------------------------------------------------------
C
        common  /const1/humr,dumr

        SX = 2. - COS ( IDAY * dumr )
        XS = ( XHI - 20. * SX) / 15.
        GRO = 0.8 - 0.2 / ( 1. + EXP(XS) )
c same as gro=0.6+0.2/(1+exp(-xs))
        RETURN
        END
C
C
      SUBROUTINE TAL(SHABR,SDELTA,SHBR,SDTDH0,AUS6,SPT)                         
C-----------------------------------------------------------
C CALCULATES THE COEFFICIENTS SPT FOR THE POLYNOMIAL
C Y(X)=1+SPT(1)*X**2+SPT(2)*X**3+SPT(3)*X**4+SPT(4)*X**5               
C TO FIT THE VALLEY IN Y, REPRESENTED BY:                
C Y(X=0)=1, THE X VALUE OF THE DEEPEST VALLEY POINT (SHABR),                    
C THE PRECENTAGE DEPTH (SDELTA), THE WIDTH (SHBR) AND THE                       
C DERIVATIVE DY/DX AT THE UPPER VALLEY BOUNDRY (SDTDH0).                        
C IF THERE IS AN UNWANTED ADDITIONAL EXTREMUM IN THE VALLEY                     
C REGION, THEN AUS6=.TRUE., ELSE AUS6=.FALSE..     
C FOR -SDELTA THE COEFF. ARE CALCULATED FOR THE FUNCTION                        
C Y(X)=EXP(SPT(1)*X**2+...+SPT(4)*X**5).           
C-----------------------------------------------------------
      DIMENSION	SPT(4)                             
      LOGICAL 	AUS6

      AUS6=.FALSE.
      if(SHBR.le.0.0) then
          AUS6=.TRUE.
          RETURN
          ENDIF
      Z1=-SDELTA/(100.0*SHABR*SHABR)               
      IF(SDELTA.GT.0.) GOTO 500                    
      SDELTA=-SDELTA  
      Z1=ALOG(1.-SDELTA/100.)/(SHABR*SHABR)        
500   Z3=SDTDH0/(2.*SHBR)                          
      Z4=SHABR-SHBR   
      SPT(4)=2.0*(Z1*(SHBR-2.0*SHABR)*SHBR+Z3*Z4*SHABR)/                        
     &  (SHABR*SHBR*Z4*Z4*Z4)                        
      SPT(3)=Z1*(2.0*SHBR-3.0*SHABR)/(SHABR*Z4*Z4)-
     &  (2.*SHABR+SHBR)*SPT(4)          
      SPT(2)=-2.0*Z1/SHABR-2.0*SHABR*SPT(3)
     &  -3.0*SHABR*SHABR*SPT(4)
      SPT(1)=Z1-SHABR*(SPT(2)+SHABR*(SPT(3)+SHABR*SPT(4))) 
      B=4.*SPT(3)/(5.*SPT(4))+SHABR                
      C=-2.*SPT(1)/(5*SPT(4)*SHABR)                
      Z2=B*B/4.-C     
      IF(Z2.LT.0.0) GOTO 300                       
      Z3=SQRT(Z2)     
      Z1=B/2.         
      Z2=-Z1+Z3       
      IF(Z2.GT.0.0.AND.Z2.LT.SHBR) AUS6=.TRUE.     
      IF (ABS(Z3).GT.1.E-15) GOTO 400              
      Z2=C/Z2         
      IF(Z2.GT.0.0.AND.Z2.LT.SHBR) AUS6=.TRUE.     
      RETURN          
400   Z2=-Z1-Z3       
      IF(Z2.GT.0.0.AND.Z2.LT.SHBR) AUS6=.TRUE.     
300   RETURN          
      END             
C
C
        SUBROUTINE VALGUL(XHI,HVB,VWU,VWA,VDP)
C --------------------------------------------------------------------- 
C   CALCULATES E-F VALLEY PARAMETERS; T.L. GULYAEVA, ADVANCES IN
C   SPACE RESEARCH 7, #6, 39-48, 1987.
C
C       INPUT:  XHI     SOLAR ZENITH ANGLE [DEGREE]
C       
C       OUTPUT: VDP     VALLEY DEPTH  (NVB/NME)
C               VWU     VALLEY WIDTH  [KM]
C               VWA     VALLEY WIDTH  (SMALLER, CORRECTED BY RAWER)
C               HVB     HEIGHT OF VALLEY BASE [KM]
C -----------------------------------------------------------------------
C
        COMMON  /CONST/UMR,PI
C
        CS = 0.1 + COS(UMR*XHI)
        ABC = ABS(CS)
        VDP = 0.45 * CS / (0.1 + ABC ) + 0.55
        ARL = ( 0.1 + ABC + CS ) / ( 0.1 + ABC - CS)
        ZZZ = ALOG( ARL )
        VWU = 45. - 10. * ZZZ
        VWA = 45. -  5. * ZZZ
        HVB = 1000. / ( 7.024 + 0.224 * CS + 0.966 * ABC )
        RETURN
        END
C
C
      Subroutine DRegion(z,it,f,vKp,f5SW,f6WA,elg)
c-----------------------------------------------------------------------
c Reference: Danilov, Rodevich, and Smirnova, Adv. Space Res.  
C     15, #2, 165, 1995.
C
C Input:     z    - solar zenith angle in degrees
C            it   - season (month)
C            f    - F10.7 solar radio flux (daily)
C            vKp  - Kp magnetic index (3-hour)
C            f5SW - indicator for Stratospheric Warming (SW) conditions
C                   =0 no SW, =0.5 minor SW, =1 major SW
C            f6WA - indicator for Winter Anomaly (WA) conditions
C                   =0 no WA, =0.5 weak WA, =1 strong WA
C Criteria for SW and WA indicators:
C      SW minor:  Temperature increase at the 30 hPa level by 10 deg.
C      SA major:  The same but by 20 degrees.
C         Temperature data for each year are published  
C         in Beilage zur Berliner Wetterkarte (K. Labitzke et al.).
C      WA weak:   An increase of the absorption in the 2-2.8 MHz  
C                 range at short A3 paths by 15 dB
C      WA strong: The same by 30 dB.
C 
C       Only for month 12 to 2 (winter).
C
C Output:      elg(7)  alog10 of electron density [cm-3] at h=60,65,
C                  70,75,80,85, and 90km
c-----------------------------------------------------------------------
c            
cor   dimension h(7),A0(7),A1(7),A2(7),A3(7),A4(7),A5(7),A6(7),elg(7)
      dimension A0(7),A1(7),A2(7),A3(7),A4(7),A5(7),A6(7),elg(7)
      data A0/1.0,1.2,1.4,1.5,1.6,1.7,3.0/
      data A1/0.6,0.8,1.1,1.2,1.3,1.4,1.0/
      data A2/0.,0.,0.08,0.12,0.05,0.2,0./
      data A3/0.,0.,0.,0.,0.,0.,1./
      data A4/0.,0.,-0.30,0.10,0.20,0.30,0.15/
      data A5/0.,-0.10,-0.20,-0.25,-0.30,-.30,0./
      data A6/0.,0.1,0.3,0.6,1.,1.,0.7/
        pi=3.14159265
         if(z.le.45) then
           f1z=1.
         else
           if(z.lt.90) then
             f1z=1.1892*(cos(z*pi/180))**0.5
           else
             f1z=0.
           endif
         endif
         f4S=1.
       if((it.ge.5).and.(it.le.9))then
         f4S=0.
         f5SW=0
         f6WA=0
       endif
       if((it.eq.3).or.(it.eq.4).or.(it.eq.10).or.(it.eq.11))then
         f4S=0.5
         f5SW=0
         f6WA=0
       endif
         f2Kp=vKp
         if(vKp.gt.2) f2Kp=2.
         f3F=(f-60.)/300.*f1z
         do 1 i=1,7
         elg(i)=A0(i)+A1(i)*f1z+A2(i)*f2Kp+A3(i)*f3F+A4(i)*f4S
     *         +A5(i)*f5SW+A6(i)*f6WA
   1     continue
         end
C
C
          
C
C
C************************************************************                   
C*********** INTERPOLATION AND REST ***************************                 
C**************************************************************                 
C
C
      SUBROUTINE REGFA1(X11,X22,FX11,FX22,EPS,FW,F,SCHALT,X) 
C REGULA-FALSI-PROCEDURE TO FIND X WITH F(X)-FW=0. X1,X2 ARE THE                
C STARTING VALUES. THE COMUTATION ENDS WHEN THE X-INTERVAL                      
C HAS BECOME LESS THEN EPS . IF SIGN(F(X1)-FW)= SIGN(F(X2)-FW)                  
C THEN SCHALT=.TRUE.  
      LOGICAL L1,LINKS,K,SCHALT                    
      SCHALT=.FALSE.
      EP=EPS  
      X1=X11          
      X2=X22          
      F1=FX11-FW     
      F2=FX22-FW     
      K=.FALSE.       
      NG=2       
      LFD=0  
      IF(F1*F2.LE.0.0) GOTO 200
        X=0.0           
        SCHALT=.TRUE.   
        RETURN
200   X=(X1*F2-X2*F1)/(F2-F1) 
      GOTO 400        
300     L1=LINKS        
        DX=(X2-X1)/NG
        IF(.NOT.LINKS) DX=DX*(NG-1)
        X=X1+DX
400   FX=F(X)-FW
      LFD=LFD+1
      IF(LFD.GT.20) THEN
        EP=EP*10.
        LFD=0
      ENDIF 
      LINKS=(F1*FX.GT.0.0)
      K=.NOT.K        
      IF(LINKS) THEN
        X1=X            
        F1=FX           
      ELSE
        X2=X 
        F2=FX 
      ENDIF   
      IF(ABS(X2-X1).LE.EP) GOTO 800               
      IF(K) GOTO 300  
      IF((LINKS.AND.(.NOT.L1)).OR.(.NOT.LINKS.AND.L1)) NG=2*NG                  
      GOTO 200        
800   RETURN          
      END             
C
C
C******************************************************************
C********** ZENITH ANGLE, DAY OF YEAR, TIME ***********************
C******************************************************************
C
C
        subroutine soco (ld,t,flat,Elon,height,
     &          DECLIN, ZENITH, SUNRSE, SUNSET)
c--------------------------------------------------------------------
c       s/r to calculate the solar declination, zenith angle, and
c       sunrise & sunset times  - based on Newbern Smith's algorithm
c       [leo mcnamara, 1-sep-86, last modified 16-jun-87]
c       {dieter bilitza, 30-oct-89, modified for IRI application}
c
c in:   ld      local day of year
c       t       local hour (decimal)
c       flat    northern latitude in degrees
c       elon    east longitude in degrees
c		height	height in km
c
c out:  declin      declination of the sun in degrees
c       zenith      zenith angle of the sun in degrees
c       sunrse      local time of sunrise in hours 
c       sunset      local time of sunset in hours 
c-------------------------------------------------------------------
c
        common/const/dtr,pi     /const1/humr,dumr
c amplitudes of Fourier coefficients  --  1955 epoch.................
        data    p1,p2,p3,p4,p6 /
     &  0.017203534,0.034407068,0.051610602,0.068814136,0.103221204 /
c
c s/r is formulated in terms of WEST longitude.......................
        wlon = 360. - Elon
c
c time of equinox for 1980...........................................
        td = ld + (t + Wlon/15.) / 24.
        te = td + 0.9369
c
c declination of the sun..............................................
        dcl = 23.256*sin(p1*(te-82.242))+0.381*sin(p2*(te-44.855))
     &      + 0.167*sin(p3*(te-23.355))-0.013*sin(p4*(te+11.97))
     &      + 0.011*sin(p6*(te-10.41))+0.339137
        DECLIN = dcl
        dc = dcl * dtr
c
c the equation of time................................................
        tf = te - 0.5
        eqt = -7.38*sin(p1*(tf-4.)) - 9.87*sin(p2*(tf+9.))
     &      + 0.27*sin(p3*(tf-53.)) - 0.2*cos(p4*(tf-17.))
        et = eqt * dtr / 4.
c
        fa = flat * dtr
        phi = humr * ( t - 12.) + et
c
        a = sin(fa) * sin(dc)
        b = cos(fa) * cos(dc)
        	cosx = a + b * cos(phi)
        	if(abs(cosx).gt.1.) cosx=sign(1.,cosx)
        zenith = acos(cosx) / dtr
c
c calculate sunrise and sunset times --  at the ground...........
c see Explanatory Supplement to the Ephemeris (1961) pg 401......
c sunrise at height h metres is at...............................
		h=height*1000.
        chih = 90.83 + 0.0347 * sqrt(h)
c this includes corrections for horizontal refraction and........
c semi-diameter of the solar disk................................
        ch = cos(chih * dtr)
        cosphi = (ch -a ) / b
c if abs(secphi) > 1., sun does not rise/set.....................
c allow for sun never setting - high latitude summer.............
        secphi = 999999.
        if(cosphi.ne.0.) secphi = 1./cosphi
        sunset = 99.
        sunrse = 99.
        if(secphi.gt.-1.0.and.secphi.le.0.) return
c allow for sun never rising - high latitude winter..............
        sunset = -99.
        sunrse = -99.
        if(secphi.gt.0.0.and.secphi.lt.1.) return
c
        	cosx = cosphi
        	if(abs(cosx).gt.1.) cosx=sign(1.,cosx)
        phi = acos(cosx)
        et = et / humr
        phi = phi / humr
        sunrse = 12. - phi - et
        sunset = 12. + phi - et
        if(sunrse.lt.0.) sunrse = sunrse + 24.
        if(sunset.ge.24.) sunset = sunset - 24.
c special case sunrse > sunset
        if(sunrse.gt.sunset) then
        	sunx=sign(99.0,flat)
        	if(ld.gt.91.and.ld.lt.273) then
        		sunset = sunx
        		sunrse = sunx
        	else
        		sunset = -sunx
        		sunrse = -sunx
        	endif
        	endif
c
        return
        end
c
C
      FUNCTION HPOL(HOUR,TW,XNW,SA,SU,DSA,DSU)            
C-------------------------------------------------------
C PROCEDURE FOR SMOOTH TIME-INTERPOLATION USING EPSTEIN  
C STEP FUNCTION AT SUNRISE (SA) AND SUNSET (SU). THE 
C STEP-WIDTH FOR SUNRISE IS DSA AND FOR SUNSET DSU.
C TW,NW ARE THE DAY AND NIGHT VALUE OF THE PARAMETER TO 
C BE INTERPOLATED. SA AND SU ARE TIME OF SUNRIES AND 
C SUNSET IN DECIMAL HOURS.
C BILITZA----------------------------------------- 1979.
        IF(ABS(SU).GT.25.) THEN
                IF(SU.GT.0.0) THEN
                        HPOL=TW
                ELSE
                        HPOL=XNW
                ENDIF
                RETURN
        ENDIF
      HPOL=XNW+(TW-XNW)*EPST(HOUR,DSA,SA)+
     &  (XNW-TW)*EPST(HOUR,DSU,SU) 
      RETURN          
      END       
C      
C
        SUBROUTINE MODA(IN,IYEAR,MONTH,IDAY,IDOY,NRDAYMO)
C-------------------------------------------------------------------
C CALCULATES DAY OF YEAR (IDOY, ddd) FROM YEAR (IYEAR, yy or yyyy), 
C MONTH (MONTH, mm) AND DAY OF MONTH (IDAY, dd) IF IN=0, OR MONTH 
C AND DAY FROM YEAR AND DAY OF YEAR IF IN=1. NRDAYMO is an output 
C parameter providing the number of days in the specific month.
C-------------------------------------------------------------------
        DIMENSION       MM(12)
        DATA            MM/31,28,31,30,31,30,31,31,30,31,30,31/

        IMO=0
        MOBE=0
c
c  leap year rule: years evenly divisible by 4 are leap years, except
c  years also evenly divisible by 100 are not leap years, except  
c  years also evenly divisible by 400 are leap years. The year 2000  
C  therefore is a leap year. The 100 and 400 year exception rule
c     if((iyear/4*4.eq.iyear).and.(iyear/100*100.ne.iyear)) mm(2)=29
c  will become important again in the year 2100 which is not a leap 
C  year.
c
        mm(2)=28
        if(iyear/4*4.eq.iyear) mm(2)=29

        IF(IN.GT.0) GOTO 5
                mosum=0
                if(month.gt.1) then
                        do 1234 i=1,month-1 
1234                            mosum=mosum+mm(i)
                        endif
                idoy=mosum+iday
                nrdaymo=mm(month)
                RETURN

5       IMO=IMO+1
                IF(IMO.GT.12) GOTO 55
                MOOLD=MOBE
                nrdaymo=mm(imo)
                MOBE=MOBE+nrdaymo
                IF(MOBE.LT.IDOY) GOTO 5
55              MONTH=IMO
                IDAY=IDOY-MOOLD
        RETURN
        END             
c
c
        subroutine ut_lt(mode,ut,slt,glong,iyyy,ddd)
c -----------------------------------------------------------------
c Converts Universal Time UT (decimal hours) into Solar Local Time
c SLT (decimal hours) for given date (iyyy is year, e.g. 1995; ddd
c is day of year, e.g. 1 for Jan 1) and geodatic longitude in degs.
C For mode=0 UT->LT and for mode=1 LT->UT
c Please NOTE that iyyy and ddd are input as well as output 
c parameterssince the determined LT may be for a day before or 
c after the UT day.
c ------------------------------------------------- bilitza nov 95
        integer         ddd,dddend

        xlong=glong
        if(glong.gt.180) xlong=glong-360
        if(mode.ne.0) goto 1
c
c UT ---> LT
c
        SLT=UT+xlong/15.
        if((SLT.ge.0.).and.(SLT.le.24.)) goto 2
        if(SLT.gt.24.) goto 3
                SLT=SLT+24.
                ddd=ddd-1
                if(ddd.lt.1.) then
                        iyyy=iyyy-1
                        ddd=365
c
c leap year if evenly divisible by 4 and not by 100, except if evenly
c divisible by 400. Thus 2000 will be a leap year.
c
                        if(iyyy/4*4.eq.iyyy) ddd=366
                        endif
                goto 2
3               SLT=SLT-24.
                ddd=ddd+1
                dddend=365
                if(iyyy/4*4.eq.iyyy) dddend=366
                if(ddd.gt.dddend) then
                        iyyy=iyyy+1
                        ddd=1
                        endif
                goto 2
c
c LT ---> UT
c
1       UT=SLT-xlong/15.
        if((UT.ge.0.).and.(UT.le.24.)) goto 2
        if(UT.gt.24.) goto 5
                UT=UT+24.
                ddd=ddd-1
                if(ddd.lt.1.) then
                        iyyy=iyyy-1
                        ddd=365
                        if(iyyy/4*4.eq.iyyy) ddd=366
                        endif
                goto 2
5               UT=UT-24.
                ddd=ddd+1
                dddend=365
                if(iyyy/4*4.eq.iyyy) dddend=366
                if(ddd.gt.dddend) then
                        iyyy=iyyy+1
                        ddd=1
                        endif
2       return
        end
C
C

      SUBROUTINE SUN (IYEAR,IDAY,IHOUR,MIN,ISEC,GST,SLONG,SRASN,SDEC)
C-----------------------------------------------------------------------------
C  CALCULATES FOUR QUANTITIES NECESSARY FOR COORDINATE TRANSFORMATIONS
C  WHICH DEPEND ON SUN POSITION (AND, HENCE, ON UNIVERSAL TIME AND SEASON)
C
C-------  INPUT PARAMETERS:
C  IYR,IDAY,IHOUR,MIN,ISEC -  YEAR, DAY, AND UNIVERSAL TIME IN HOURS, 
C    MINUTES, AND SECONDS  (IDAY=1 CORRESPONDS TO JANUARY 1).
C
C-------  OUTPUT PARAMETERS:
C  GST - GREENWICH MEAN SIDEREAL TIME, SLONG - LONGITUDE ALONG ECLIPTIC
C  SRASN - RIGHT ASCENSION,  SDEC - DECLINATION  OF THE SUN (RADIANS)
C  ORIGINAL VERSION OF THIS SUBROUTINE HAS BEEN COMPILED FROM:
C  RUSSELL, C.T., COSMIC ELECTRODYNAMICS, 1971, V.2, PP.184-196.
C
C  LAST MODIFICATION:  MARCH 31, 2003 (ONLY SOME NOTATION CHANGES)
C
C     ORIGINAL VERSION WRITTEN BY:    Gilbert D. Mead
C-----------------------------------------------------------------------------
C
      DOUBLE PRECISION DJ,FDAY
      COMMON /CONST/UMR,PI
C
      IF(IYEAR.LT.1901.OR.IYEAR.GT.2099) RETURN
      FDAY=DFLOAT(IHOUR*3600+MIN*60+ISEC)/86400.D0
      DJ=365*(IYEAR-1900)+(IYEAR-1901)/4+IDAY-0.5D0+FDAY
      T=DJ/36525.
      VL=DMOD(279.696678+0.9856473354*DJ,360.D0)
      GST=DMOD(279.690983+.9856473354*DJ+360.*FDAY+180.,360.D0)*UMR
      G=DMOD(358.475845+0.985600267*DJ,360.D0)*UMR
      SLONG=(VL+(1.91946-0.004789*T)*SIN(G)+0.020094*SIN(2.*G))*UMR
      IF(SLONG.GT.6.2831853) SLONG=SLONG-6.2831853
      IF (SLONG.LT.0.) SLONG=SLONG+6.2831853
      OBLIQ=(23.45229-0.0130125*T)*UMR
      SOB=SIN(OBLIQ)
      SLP=SLONG-9.924E-5
C
C   THE LAST CONSTANT IS A CORRECTION FOR THE ANGULAR ABERRATION  
C   DUE TO THE ORBITAL MOTION OF THE EARTH
C
      SIN1=SOB*SIN(SLP)
      COS1=SQRT(1.-SIN1**2)
      SC=SIN1/COS1
      SDEC=ATAN(SC)
      SRASN=3.141592654-ATAN2(COS(OBLIQ)/SOB*SC,-COS(SLP)/COS1)
      RETURN
      END
C      
C
C *********************************************************************
C ************************ EPSTEIN FUNCTIONS **************************
C *********************************************************************
C REF:  H. G. BOOKER, J. ATMOS. TERR. PHYS. 39, 619-623, 1977
C       K. RAWER, ADV. SPACE RES. 4, #1, 11-15, 1984
C *********************************************************************
C
C
        REAL FUNCTION  RLAY ( X, XM, SC, HX )
C -------------------------------------------------------- RAWER  LAYER
        Y1  = EPTR ( X , SC, HX )
        Y1M = EPTR ( XM, SC, HX )
        Y2M = EPST ( XM, SC, HX )
        RLAY = Y1 - Y1M - ( X - XM ) * Y2M / SC
        RETURN
        END
C
C
        REAL FUNCTION D1LAY ( X, XM, SC, HX )
C ------------------------------------------------------------ dLAY/dX
        D1LAY = ( EPST(X,SC,HX) - EPST(XM,SC,HX) ) /  SC
        RETURN
        END
C
C
        REAL FUNCTION D2LAY ( X, XM, SC, HX )
C ---------------------------------------------------------- d2LAY/dX2
        D2LAY = EPLA(X,SC,HX) /  (SC * SC)
        RETURN
        END
C
C
        REAL FUNCTION EPTR ( X, SC, HX )
C --------------------------------------------------------- TRANSITION
        COMMON/ARGEXP/ARGMAX
        D1 = ( X - HX ) / SC
        IF (ABS(D1).LT.ARGMAX) GOTO 1
        IF (D1.GT.0.0) THEN
          EPTR = D1
        ELSE
          EPTR = 0.0
        ENDIF
        RETURN
1       EPTR = ALOG ( 1. + EXP( D1 ))
        RETURN
        END
C
C
        REAL FUNCTION EPST ( X, SC, HX )
C -------------------------------------------------------------- STEP
        COMMON/ARGEXP/ARGMAX
        D1 = ( X - HX ) / SC
        IF (ABS(D1).LT.ARGMAX) GOTO 1
        IF (D1.GT.0.0) THEN
          EPST = 1.
        ELSE
          EPST = 0.
        ENDIF
        RETURN
1       EPST = 1. / ( 1. + EXP( -D1 ))
        RETURN
        END
C
C
        REAL FUNCTION EPSTEP ( Y2, Y1, SC, HX, X)
C---------------------------------------------- STEP FROM Y1 TO Y2      
        EPSTEP = Y1 + ( Y2 - Y1 ) * EPST ( X, SC, HX)
        RETURN
        END
C
C
        REAL FUNCTION EPLA ( X, SC, HX )
C ------------------------------------------------------------ PEAK 
        COMMON/ARGEXP/ARGMAX
        D1 = ( X - HX ) / SC
        IF (ABS(D1).LT.ARGMAX) GOTO 1
                EPLA = 0
                RETURN  
1       D0 = EXP ( D1 )
        D2 = 1. + D0
        EPLA = D0 / ( D2 * D2 )
        RETURN
        END
c
c
      REAL FUNCTION BOOKER(H,N,AH,AV,D)
c----------------------------------------------------------------
C PROFILE BASED ON BOOKER APPROACH 
C 	H		HEIGHT IN KM 
C 	N		NUMBER OF FIXED HEIGHTS THAT MARK THE N-1  
C           PROFILE SECTIONS WITH CONSTANT GRADIENT
C 	AH(N)	HEIGHTS MARKING BEGINNING AND END OF SECTIONS
C 	AV(N) 	PARAMETER VALUES AT AH
C	D(N-2)	THICKNESS OF TRANSITION REGION BETWEEN SECTIONS
C	ST(N-1)	SECTION GRADIENTS
c----------------------------------------------------------------
      REAL AH(N),AV(N),ST(N-1),D(N-2)
C
      ST(1)=(AV(2)-AV(1))/(AH(2)-AH(1))
      SUM=AV(1)+ST(1)*(H-AH(1))
      DO 1 I=1,N-2
        aa = eptr(h    ,d(i),ah(i+1))
        bb = eptr(ah(i),d(i),ah(i+1))
        ST(I+1)=(AV(I+2)-AV(I+1))/(AH(I+2)-AH(I+1))
1       SUM=SUM+(ST(I+1)-ST(I))*(AA-BB)*D(I)                
      BOOKER=SUM        
      RETURN          
      END             
C
C
      REAL FUNCTION BOOKER1(H,M,F1,AH,ST,D)
c----------------------------------------------------------------
C BOOKER PROFILE BASED ON THE PARAMETER VALUES AT M+2 FIXED
C HEIGHTS (AH(M+2)) AND THE PARAMETER GRADIENTS BETWEEN THESE  
C HEIGHTS (ST(M+1)). M IS THE NUMBER OF TRANSITIONS AND THE D(M) 
C DEFINE THE EXTEND OF THE TRANSITION REGION FROM ONE CONSTANT 
C GRADIENT REGION TO THE NEXT. F1 IS THE PARAMETER VALUE AT AH(1).
C THE MAXIMUM ALLOWED VALUE FOR M is 5 AND THE ARRAYS HAVE TO BE 
C DEFINED AS AH(7),ST(6),D(5). AH(M+2) DEFINES THE UPPER BOUNDARY.
C BUT IT IS NOT USED IN THE CALCULATION.
c----------------------------------------------------------------
C
      REAL H,AH(M+2),ST(M+1),D(M),F1

      SUM=F1+ST(1)*(H-AH(1))                     
      DO 1 I=1,M
        aa = eptr(h    ,d(i),ah(i+1))
        bb = eptr(ah(1),d(i),ah(i+1))
      Z1=(ST(I+1)-ST(I))*(AA-BB)*D(I)
1     SUM=SUM+Z1                
      BOOKER1=SUM        
      RETURN          
      END             
C
C
        FUNCTION XE2TO5(H,HMF2,NL,HX,SC,AMP)
C----------------------------------------------------------------------
C NORMALIZED ELECTRON DENSITY (N/NMF2) FOR THE MIDDLE IONOSPHERE FROM 
C HME TO HMF2 USING LAY-FUNCTIONS.
C----------------------------------------------------------------------
        DIMENSION       HX(NL),SC(NL),AMP(NL)
        SUM = 1.0
        DO 1 I=1,NL
           YLAY = AMP(I) * RLAY( H, HMF2, SC(I), HX(I) )
           zlay=10.**ylay
1          sum=sum*zlay
        XE2TO5 = sum
        RETURN
        END
C
C
        REAL FUNCTION XEN(H,HMF2,XNMF2,HME,NL,HX,SC,AMP)
C----------------------------------------------------------------------
C ELECTRON DENSITY WITH NEW MIDDLE IONOSPHERE
C----------------------------------------------------------------------
        DIMENSION       HX(NL),SC(NL),AMP(NL)
C
        IF(H.LT.HMF2) GOTO 100
                XEN = XE1(H)
                RETURN
100     IF(H.LT.HME) GOTO 200
                XEN = XNMF2 * XE2TO5(H,HMF2,NL,HX,SC,AMP)
                RETURN
200     XEN = XE6(H)
        RETURN
        END
C
C
        SUBROUTINE LNGLSN ( N, A, B, AUS)
C --------------------------------------------------------------------
C SOLVES QUADRATIC SYSTEM OF LINEAR EQUATIONS:
C
C       INPUT:  N       NUMBER OF EQUATIONS (= NUMBER OF UNKNOWNS)
C               A(N,N)  MATRIX (LEFT SIDE OF SYSTEM OF EQUATIONS)
C               B(N)    VECTOR (RIGHT SIDE OF SYSTEM)
C
C       OUTPUT: AUS     =.TRUE.   NO SOLUTION FOUND
C                       =.FALSE.  SOLUTION IS IN  A(N,J) FOR J=1,N
C --------------------------------------------------------------------
C
        DIMENSION       A(5,5), B(5), AZV(10)
        LOGICAL         AUS
C
        NN = N - 1
        AUS = .FALSE.
        DO 1 K=1,N-1
                IMAX = K
                L    = K
                IZG  = 0
                AMAX  = ABS( A(K,K) )
110             L = L + 1
                IF (L.GT.N) GOTO 111
                HSP = ABS( A(L,K) )
                IF (HSP.LT.1.E-8) IZG = IZG + 1
                IF (HSP.LE.AMAX) GOTO 110
111             IF (ABS(AMAX).GE.1.E-10) GOTO 133
                        AUS = .TRUE.
                        RETURN
133             IF (IMAX.EQ.K) GOTO 112
                DO 2 L=K,N
                        AZV(L+1)  = A(IMAX,L)
                        A(IMAX,L) = A(K,L)
2                       A(K,L)    = AZV(L+1)
                AZV(1)  = B(IMAX)
                B(IMAX) = B(K)
                B(K)    = AZV(1)
112             IF (IZG.EQ.(N-K)) GOTO 1
                AMAX = 1. / A(K,K)
                AZV(1) = B(K) * AMAX
                DO 3 M=K+1,N
3                       AZV(M+1) = A(K,M) * AMAX
                DO 4 L=K+1,N
                        AMAX = A(L,K)
                        IF (ABS(AMAX).LT.1.E-8) GOTO 4
                        A(L,K) = 0.0
                        B(L) = B(L) - AZV(1) * AMAX
                        DO 5 M=K+1,N
5                               A(L,M) = A(L,M) - AMAX * AZV(M+1)
4               CONTINUE
1       CONTINUE
        DO 6 K=N,1,-1
                AMAX = 0.0
                IF (K.LT.N) THEN
                        DO 7 L=K+1,N
7                               AMAX = AMAX + A(K,L) * A(N,L)
                        ENDIF
                IF (ABS(A(K,K)).LT.1.E-6) THEN
                        A(N,K) = 0.0
                ELSE
                        A(N,K) = ( B(K) - AMAX ) / A(K,K)
                ENDIF
6       CONTINUE
        RETURN
        END
C
C
        SUBROUTINE LSKNM ( N, M, M0, M1, HM, SC, HX, W,X,Y,VAR,SING)
C --------------------------------------------------------------------
C   DETERMINES LAY-FUNCTIONS AMPLITUDES FOR A NUMBER OF CONSTRAINTS:
C
C       INPUT:  N       NUMBER OF AMPLITUDES ( LAY-FUNCTIONS)
C               M       NUMBER OF CONSTRAINTS
C               M0      NUMBER OF POINT CONSTRAINTS
C               M1      NUMBER OF FIRST DERIVATIVE CONSTRAINTS
C               HM      F PEAK ALTITUDE  [KM]
C               SC(N)   SCALE PARAMETERS FOR LAY-FUNCTIONS  [KM]
C               HX(N)   HEIGHT PARAMETERS FOR LAY-FUNCTIONS  [KM]
C               W(M)    WEIGHT OF CONSTRAINTS
C               X(M)    ALTITUDES FOR CONSTRAINTS  [KM]
C               Y(M)    LOG(DENSITY/NMF2) FOR CONSTRAINTS
C
C       OUTPUT: VAR(M)  AMPLITUDES
C               SING    =.TRUE.   NO SOLUTION
C ---------------------------------------------------------------------
C
        LOGICAL         SING
        DIMENSION       VAR(N), HX(N), SC(N), W(M), X(M), Y(M),
     &                  BLI(5), ALI(5,5), XLI(5,10)
C
        M01=M0+M1
        SCM=0
        DO 1 J=1,5
                BLI(J) = 0.
                DO 1 I=1,5
1                       ALI(J,I) = 0. 
        DO 2 I=1,N
                DO 3 K=1,M0
3                       XLI(I,K) = RLAY( X(K), HM, SC(I), HX(I) )
                DO 4 K=M0+1,M01
4                       XLI(I,K) = D1LAY( X(K), HM, SC(I), HX(I) )
                DO 5 K=M01+1,M
5                       XLI(I,K) = D2LAY( X(K), HM, SC(I), HX(I) )
2       CONTINUE
                DO 7 J=1,N
                DO 6 K=1,M
                        BLI(J) = BLI(J) + W(K) * Y(K) * XLI(J,K)
                        DO 6 I=1,N
6                               ALI(J,I) = ALI(J,I) + W(K) * XLI(I,K) 
     &                                  * XLI(J,K)
7       CONTINUE
        CALL LNGLSN( N, ALI, BLI, SING )
        IF (.NOT.SING) THEN
                DO 8 I=1,N
8                       VAR(I) = ALI(N,I)
                ENDIF
        RETURN
        END
C
C
        SUBROUTINE INILAY(NIGHT,F1REG,XNMF2,XNMF1,XNME,VNE,HMF2,HMF1, 
     &                          HME,HV1,HV2,HHALF,HXL,SCL,AMP,IQUAL)
C-------------------------------------------------------------------
C CALCULATES AMPLITUDES FOR LAY FUNCTIONS
C D. BILITZA, DECEMBER 1988
C
C INPUT:        NIGHT   LOGICAL VARIABLE FOR DAY/NIGHT DISTINCTION
C               F1REG   LOGICAL VARIABLE FOR F1 OCCURRENCE
C               XNMF2   F2 PEAK ELECTRON DENSITY [M-3]
C               XNMF1   F1 PEAK ELECTRON DENSITY [M-3]
C               XNME    E  PEAK ELECTRON DENSITY [M-3]
C               VNE     ELECTRON DENSITY AT VALLEY BASE [M-3]
C               HMF2    F2 PEAK ALTITUDE [KM]
C               HMF1    F1 PEAK ALTITUDE [KM]
C               HME     E  PEAK ALTITUDE [KM]
C               HV1     ALTITUDE OF VALLEY TOP [KM]
C               HV2     ALTITUDE OF VALLEY BASE [KM]
C               HHALF   ALTITUDE OF HALF-F2-PEAK-DENSITY [KM]
C
C OUTPUT:       HXL(4)  HEIGHT PARAMETERS FOR LAY FUNCTIONS [KM] 
C               SCL(4)  SCALE PARAMETERS FOR LAY FUNCTIONS [KM]
C               AMP(4)  AMPLITUDES FOR LAY FUNCTIONS
C               IQUAL   =0 ok, =1 ok using second choice for HXL(1)
C                       =2 NO SOLUTION
C---------------------------------------------------------------  
        DIMENSION       XX(8),YY(8),WW(8),AMP(4),HXL(4),SCL(4)
        LOGICAL         SSIN,NIGHT,F1REG
c
c constants --------------------------------------------------------
                NUMLAY=4
                NC1 = 2
                ALG102=ALOG10(2.)
c
c constraints: xx == height     yy == log(Ne/NmF2)    ww == weights
c -----------------------------------------------------------------
                ALOGF = ALOG10(XNMF2)
                ALOGEF = ALOG10(XNME) - ALOGF
                XHALF=XNMF2/2.
                XX(1) = HHALF
                XX(2) = HV1
                XX(3) = HV2
                XX(4) = HME
                XX(5) = HME - ( HV2 - HME )
                YY(1) = -ALG102
                YY(2) = ALOGEF
                YY(3) = ALOG10(VNE) - ALOGF
                YY(4) = ALOGEF
                YY(5) = YY(3)
                YY(7) = 0.0
                WW(2) = 1.
                WW(3) = 2.
                WW(4) = 5.
c
c geometric paramters for LAY -------------------------------------
c difference to earlier version:  HXL(3) = HV2 + SCL(3)
c
                SCL0 = 0.7 * ( 0.216 * ( HMF2 - HHALF ) + 56.8 )
                SCL(1) = 0.8 * SCL0
                SCL(2) = 10.
                SCL(3) = 9.
                SCL(4) = 6.
                HXL(3) = HV2
                HFFF=HHALF
                XFFF=XHALF
c
C DAY CONDITION--------------------------------------------------
c earlier tested:       HXL(2) = HMF1 + SCL(2)
c 
            IF(NIGHT) GOTO 7711
                NUMCON = 8
                HXL(1) = 0.9 * HMF2
                  HXL1T  = HHALF
                HXL(2) = HMF1
                HXL(4) = HME - SCL(4)
                XX(6) = HMF1
                XX(7) = HV2
                XX(8) = HME
                YY(8) = 0.0
                WW(5) = 1.
                WW(7) = 50.
                WW(8) = 500.
c without F-region ----------------------------------------------
                IF(F1REG) GOTO 100
                        HXL(2)=(HMF2+HHALF)/2.
                        YY(6) = 0.
                        WW(6) = 0.
                        WW(1) = 1.
                        GOTO 7722
c with F-region --------------------------------------------
100             YY(6) = ALOG10(XNMF1) - ALOGF
                WW(6) = 3.
                IF((XNMF1-XHALF)*(HMF1-HHALF).LT.0.0) THEN
                  WW(1)=0.5
                ELSE
                  ZET = YY(1) - YY(6)
                  WW(1) = EPST( ZET, 0.1, 0.15)
                ENDIF
                IF(HHALF.GT.HMF1) THEN
                  HFFF=HMF1
                  XFFF=XNMF1
                ELSE
                  HFFF=HHALF
                  XFFF=XHALF
                ENDIF
                GOTO 7722
c
C NIGHT CONDITION---------------------------------------------------
c different HXL,SCL values were tested including: 
c       SCL(1) = HMF2 * 0.15 - 27.1     HXL(2) = 200.   
c       HXL(2) = HMF1 + SCL(2)          HXL(3) = 140.
c       SCL(3) = 5.                     HXL(4) = HME + SCL(4)
c       HXL(4) = 105.                   
c
7711            NUMCON = 7
                HXL(1) = HHALF
                  HXL1T  = 0.4 * HMF2 + 30.
                HXL(2) = ( HMF2 + HV1 ) / 2.
                HXL(4) = HME
                XX(6) = HV2
                XX(7) = HME
                YY(6) = 0.0
                WW(1) = 1.
                WW(3) = 3.
                WW(5) = 0.5
                WW(6) = 50.
                WW(7) = 500.
                HFFF=HHALF
                XFFF=XHALF
c
C are valley-top and bottomside point compatible ? -------------
C
7722    IF((HV1-HFFF)*(XNME-XFFF).LT.0.0) WW(2)=0.5
        IF(HV1.LE.HV2+5.0) WW(2)=0.5
c
C DETERMINE AMPLITUDES-----------------------------------------
C
            NC0=NUMCON-NC1
            IQUAL=0
2299        CALL LSKNM(NUMLAY,NUMCON,NC0,NC1,HMF2,SCL,HXL,WW,XX,YY,
     &          AMP,SSIN)
                IF(IQUAL.gt.0) GOTO 1937
            IF((ABS(AMP(1)).GT.10.0).OR.(SSIN)) THEN
                IQUAL=1
                HXL(1)=HXL1T
                GOTO 2299
                ENDIF
1937        IF(SSIN) IQUAL=2
            RETURN
            END
c
c
           subroutine read_ig_rz 
c----------------------------------------------------------------
c Reads the Rz12 and IG12 indices file IG_RZ.DAT from I/O UNIT=12 
c and stores IG12 in aig(1600) and Rz12 in arz(1600). They are
c provided via COMMON:
c	common /igrz/aig,arz,iymst,iymend
c	iymst  = yyyymm for start year and month
c	iymend = yyyymm for end year and month
c 
c The indices file IG_RZ.DAT is structured as follows (values are 
c separated by comma): 
c   month, day, year of the last update of this file,
c   a blank line
c   start month, start year, end month, end year,
c   a blank line
c   the IG12 index for the month before the start month of the     
c		start year (needed for interpolation)
c   the IG12 indices for the rest of the start year, 
c   the twelve IG12 indices for the year following the start year 
c       .. and so on until the year before the end year,
c   the IG12 indices for the end year from January to the end  
c   	month +1 (needed for interpolation)
c   a blank line
c   the Rz12 index for the month before the start month of the     
c		start year (needed for interpolation)
c   the Rz12 indices for the rest of the start year, 
c   the twelve Rz12 indices for the year following the start year 
c       .. and so on until the year before the end year,
c   the Rz12 indices for the end year from January to the end  
c   	month +1 (needed for interpolation)
c 
c The computation of the 12-month-running mean for month M requires
c the indices for the six months preceeding M and the six months  
C following M (month: M-6, ..., M+6). To calculate the current  
C running mean, one therefore requires predictions of the index  
C for the next six months. Starting from six months before the  
c UPDATE DATE (listed at the top of the file) and onward the  
c indices are therefore based on indices predictions.
c----------------------------------------------------------------

           integer	iyst,iyend,iymst,iupd,iupm,iupy,imst,imend
           real		aig(1600),arz(1600)
           
           common /igrz/aig,arz,iymst,iymend

           open(unit=12,file='ig_rz.dat',FORM='FORMATTED',status='old')

c-web- special for web version
c            open(unit=12,file=
c     *         '/var/www/omniweb/cgi/vitmo/IRI/ig_rz.dat',
c     *         FORM='FORMATTED',status='old')

c Read the update date, the start date and the end date (mm,yyyy), and
c get number of data points to read.

            read(12,*) iupm,iupd,iupy
            read(12,*) imst,iyst,imend,iyend
            iymst=iyst*100+imst
            iymend=iyend*100+imend
     
c inum_vals= 12-imst+1+(iyend-iyst-1)*12 +imend + 2
c 1st year \ full years       \last y\ before & after

            inum_vals= 3-imst+(iyend-iyst)*12 +imend

c read all the IG12 (ionoindx) and Rz12 (indrz) values
            read(12,*) (aig(i),i=1,inum_vals)
            read(12,*) (arz(i),i=1,inum_vals)

c use scale factor 0.7 for new sunspot number starting from Jan 2014
c and starting with ig_rz file for Oct 2016.
            if(iupy*100+iupm.gt.201609) then
            	inum_chan= 3-imst+(2014-iyst)*12 
            	do 1 jj=inum_chan,inum_vals
                	arz(jj)=arz(jj)*0.7
c                ggg=aig(jj)
c                if(rrr.lt.0.0) then
c                    covr=abs(rrr)
c                    rrr=33.52*sqrt(covr+85.12)-408.99
c                    if(rrr.lt.0.0) rrr=0.0
c                    endif
c                if(ggg.le.-90.) then
c                    zi=-12.349154+(1.4683266-2.67690893e-03*rrr)*rrr
c                    if(zi.gt.274.0) zi=274.0
c                    ggg=zi
c                    endif
c                arz(jj)=rrr
c                aig(jj)=ggg    
1               	continue
				endif
            close(unit=12)

            return
            end
c
c
           subroutine tcon(yr,mm,day,idn,rz,ig,rsn,nmonth)
c----------------------------------------------------------------
c input:        yr,mm,day       year(yyyy),month(mm),day(dd)
c               idn             day of year(ddd)
c output:       rz(3)           12-month-smoothed solar sunspot number
c               ig(3)           12-month-smoothed IG index
c               rsn             interpolation parameter
c               nmonth          previous or following month depending
c                               on day
c
c Uses read_ig_rz and common/igrz/ to get indices 
c 
c rz(1) & ig(1) contain the indices for the month mm and rz(2) & ig(2)
c for the previous month (if day less than 15) or for the following
c month (if day greater than 15). These indices are for the mid of the 
c month. The indices for the given day are obtained by linear 
c interpolation and are stored in rz(3) and ig(3).
c----------------------------------------------------------------

           integer	yr,mm,day,iyst,iyend,iymst
           integer	imst,iymend
           real		ionoindx(1600),indrz(1600)
           real		ig(3),rz(3)
           logical	mess
           
           common 	/iounit/konsol,mess  
           common	/igrz/ionoindx,indrz,iymst,iymend

        iytmp=yr*100+mm
        if (iytmp.lt.iymst.or.iytmp.gt.iymend) then
               if(mess) write(konsol,8000) iytmp,iymst,iymend
8000           format(1x,I10,'** OUT OF RANGE **'/,5x,
     &  'The file IG_RZ.DAT which contains the indices Rz12',
     &  ' and IG12'/5x,'currently only covers the time period',
     &  ' (yymm) : ',I6,'-',I6)
               nmonth=-1
               return
               endif

        iyst=iymst/100
        imst=iymst-iyst*100
c        num=12-imst+1+(yr-iyst-1)*12+mm+1
        num=2-imst+(yr-iyst)*12+mm

        rz(1)=indrz(num)
        ig(1)=ionoindx(num)
        midm=15
        if(mm.eq.2) midm=14
        call MODA(0,yr,mm,midm,idd1,nrdaym)

        if(day.lt.midm) goto 1926
c day is at or after mid of month
                imm2=mm+1
                if(imm2.gt.12) then
                        imm2=1
                        iyy2=yr+1
                        idd2=380            ! =365+15 mid-January
c               if((yr/4*4.eq.yr).and.(yr/100*100.ne.yr)) idd2=381
                        if(yr/4*4.eq.yr) idd2=381
                else
                        iyy2=yr
                        midm=15
                        if(imm2.eq.2) midm=14
                        call MODA(0,iyy2,imm2,midm,IDD2,nrdaym)
                endif
                rz(2)=indrz(num+1)
                ig(2)=ionoindx(num+1)
                rsn=(idn-idd1)*1./(idd2-idd1)                
                rz(3)=rz(1)+(rz(2)-rz(1))*rsn
                ig(3)=ig(1)+(ig(2)-ig(1))*rsn
                goto 1927
1926            imm2=mm-1
                if(imm2.lt.1) then
                        imm2=12
                        idd2=-16
                        iyy2=yr-1
                else
                        iyy2=yr
                        midm=15
                        if(imm2.eq.2) midm=14
                        call MODA(0,iyy2,imm2,midm,IDD2,nrdaym)
                endif
                rz(2)=indrz(num-1)
                ig(2)=ionoindx(num-1)
                rsn=(idn-idd2)*1./(idd1-idd2)
                rz(3)=rz(2)+(rz(1)-rz(2))*rsn
                ig(3)=ig(2)+(ig(1)-ig(2))*rsn

1927    nmonth=imm2
            return
            end
C
C
		subroutine readapf107
C-------------------------------------------------------------------------
c Reads APF107.DAT file (on UNIT=13) and stores contents in COMMON block:
C   COMMON/AAP,AF107,N/ with  AAP(27000,9) and AF107(27000,3)
C	AAP(*,1)	3-hour Ap indices for the UT interval )0-3)
C	AAP(*,2)	3-hour Ap indices for the UT interval )3-6)
C          ....                       ....
C	AAP(*,8)	3-hour Ap indices for the UT interval )21-6)
C	AAP(*,9)	daily Ap
C	AF107(*,1)	F10.7 radio flux for the day
C	AF107(*,2)	81-day average of F10.7 radio flux 
C	AF107(*,3)	365-day average of F10.7
C       N           	total number of records
c
c APF107.DAT is structured as follows:
c 	JY(I3),JMN(I3),JD(I3)	year, month, day 
c	IIAP(8)	(8I3)		3-hour Ap indices for the UT intervals 
c				(0-3(,(3-6(,(6-9(, .., (18-21(,(21-24(
c	IAPD (I3)		daily Ap
c	IR (I3)			sunspot number for the day (empty)
c	F107 (F5.1)		F10.7 radio flux for the day
c	F107_81 (F5.1)		81-day average of F10.7 radio flux 
c       F107_365 (F5.1)         365-day average of F10.7 centered on 
c                               the date of interest. At start and end  
c				of index file it takes all available  
c                               indices, e.g. for the first date the 
c                               average is only over 40 F10.7 values  
c                               and over 41 values on the 2nd date.  
c
c If date is outside the range of the Ap indices file then IAP(1)=-5  
C-------------------------------------------------------------------------
C
        INTEGER		aap(27000,9),iiap(8)
        DIMENSION 	af107(27000,3)
        COMMON		/apfa/aap,af107,n

        Open(13,FILE='apf107.dat',FORM='FORMATTED',STATUS='OLD')
c-web-sepcial vfor web version
c      OPEN(13,FILE='/var/www/omniweb/cgi/vitmo/IRI/apf107.dat',
c     *    FORM='FORMATTED',STATUS='OLD')

        i=1
1       READ(13,10,END=21) JY,JMN,JD,iiap,iapda,IR,F107D,F107_81,
     *        F107_365
10      FORMAT(3I3,9I3,I3,3F5.1)
c        adate(i)=jy*10000+jmn*100+jd 
        do j=1,8 
           aap(i,j)=iiap(j)
           enddo
        aap(i,9)=iapda
c        irza(i)=ir
        if(F107_81.lt.-4.) F107_81=F107D
        if(F107_365.lt.-4.) F107_365=F107D
        af107(i,1)=f107d 
        af107(i,2)=f107_81 
        af107(i,3)=f107_365
        i=i+1 
        goto 1

21      n=i-1
 
        CLOSE(13)
        return
        end
C
C

        SUBROUTINE APF(ISDATE,HOUR,IAP)
c-----------------------------------------------------------------------
c Finds 3-hourly Ap indices for IRI-STORM model
c    INPUTS: 	ISDATE		Array-index from APF_ONLY
c		HOUR		UT in decimal hours
c    OUTPUT:    IAP(1:13)	3-hourly Ap index
c		IAP(13) 	Ap index for current UT
c		IAP(1) 		AP index for UT-39 hours.
c
c Gets indices from COMMON/APFA/
c
c If date is outside the range of the Ap indices file than IAP(1)=-5  
c-----------------------------------------------------------------------

        INTEGER		aap(27000,9),iiap(8),iap(13)
        DIMENSION 	af107(27000,3)
        LOGICAL 	mess
        COMMON 		/iounit/konsol,mess	/apfa/aap,af107,nf107
       
        do i=1,8
           iap(i)=-1
           enddo

        IS = ISDATE

        ihour=int(hour/3.)+1
        if(ihour.gt.8) ihour=8

        if(is*8+ihour.lt.13) goto 21   ! less then 13 indices available	

        j1=13-ihour
        do i=1,ihour
           iapi=aap(is,i)
           if(iapi.lt.-2) goto 21
           iap(j1+i)=iapi
           enddo

        if(ihour.gt.4) then
           do i=1,j1
              iapi=aap(is-1,8-j1+i)
              if(iapi.lt.-2) goto 21
              iap(i)=iapi
              enddo
        else           
           j2=5-ihour
           do i=1,8
              iapi=aap(is-1,i)
              if(iapi.lt.-2) goto 21
              iap(j2+i)=iapi
              enddo
           do i=1,j2
              iapi=aap(is-2,8-j2+i)
              if(iapi.lt.-2) goto 21
              iap(i)=iapi
              enddo
        endif         
        goto 20
        
21      if(mess) write(konsol,100)
100     format(1X,'One of the ap indeces is negative.',
     &     ' STORM model is turned off.')
        IAP(1)=-5
      
20    RETURN
      END
C
C
        SUBROUTINE APFMSIS(ISDATE,HOUR,IAPO)
c-----------------------------------------------------------------------
c Finds 3-hourly Ap indices for NRLMSIS00 model 
c    INPUTS: 	ISDATE		Array-index from APF_ONLY
c				HOUR		UT in decimal hours
c    OUTPUT:   	IAPO(1:7)	3-hourly Ap index
C  
C IAPO(1) DAILY AP
C IAPO(2) 3-HR AP INDEX FOR CURRENT TIME			   	
C IAPO(3) 3-HR AP INDEX FOR 3 HRS BEFORE CURRENT TIME	
C IAPO(4) 3-HR AP INDEX FOR 6 HRS BEFORE CURRENT TIME	
C IAPO(5) 3-HR AP INDEX FOR 9 HRS BEFORE CURRENT TIME  
C IAPO(6) AVERAGE OF EIGHT 3-HR AP INDICIES FROM 12 TO 33 HRS PRIOR
C         TO CURRENT TIME
C IAPO(7) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 36 TO 57 HRS PRIOR
C         TO CURRENT TIME
c
c The 3-hour UT intervals during the day are: (0-3),)3-6),)6-9),)9-12),
c )12-15),)15-18),)18-21),)21-24(.
c 
c If date is outside the range of the Ap indices file then IAPO(2)=-5  
c-----------------------------------------------------------------------
c
		REAL 		IAPO
        INTEGER		aap(27000,9),iiap(8)
        DIMENSION 	af107(27000,3),iap(20),lm(12),iapo(7)
        LOGICAL  	mess

        COMMON 		/iounit/konsol,mess	/apfa/aap,af107,nf107

        IS=ISDATE

        ihour=int(hour/3.)+1
        if(ihour.gt.8) ihour=8

        iapo(1)=aap(is,9)		

C There must be at least 20 indices available
        if((is-1)*8+ihour.lt.20) goto 21      	

C assemble Ap values as needed by MSIS
        j1=ihour+1
        do i=1,ihour
           iap(j1-i)=aap(is,i)
           enddo

        j1=ihour+9
        do i=1,8
           iap(j1-i)=aap(is-1,i)
           enddo

        j1=ihour+17
        j2=8-(20-ihour-8)+1
        if(j2.lt.1) j2=1
        do i=j2,8
           iap(j1-i)=aap(is-2,i)
           enddo

        if(ihour.lt.4) then
          j1=ihour+25
          j2=8-(20-ihour-16)+1
          do i=j2,8
             iap(j1-i)=aap(is-3,i)
             enddo
          endif

        do 25 i=1,4 
25         iapo(i+1)=iap(i)*1.0

        sum1=0.
        sum2=0.
        do 26 i=1,8
           sum1=sum1+iap(4+i)
26         sum2=sum2+iap(12+i)
c        iapo(6)=int(sum1/8.+.5)
c        iapo(7)=int(sum2/8.+.5)
        iapo(6)=sum1/8.
        iapo(7)=sum2/8.
        goto 20
        
21      if(mess) write(konsol,100)
100     format(1X,'APFMSIS: No Ap dependence because date is not',
     &       ' covered by APF107.DAT indices file')
        IAPO(2)=-5.0
20    	continue

        RETURN
        END
C
C
        SUBROUTINE APF_ONLY(IYYYY,IMN,ID,F107D,F107PD,F107_81,F107_365,
     *        IAPDA,ISDATE)
c-----------------------------------------------------------------------
c Finds daily F10.7, daily Ap, and 81-day and 365-day F10.7 index: 
c
c    INPUTS:   IYYYY (yyyy)	year 
c              IMN (mm)		month 
c	           ID (dd)		day 
c    OUTPUT:   F107D		F10.7 index for the day (adjusted 
c								to 1AU)
C              F107PD  		F10.7 index for one day prior (used in MSIS)
c              F107_81		F10.7 average over 3 solar rotations
c                               (81 days, centered on the current day) 
c              F107_365 	F10.7 12-month running mean
c              IAPDA		Daily Ap
c              ISDATE		Array-index for the specified date (for
c                                use in APF subroutine.
c 
c Using COMMON/apfa/ for indices
c
c Is used for vdrift and foeedi.
c
c If date is outside the range of indices file than F107D=F107_81=-11.1  
c-----------------------------------------------------------------------

        INTEGER		aap(27000,9),iiap(8),lm(12)
        DIMENSION 	af107(27000,3)
        LOGICAL 	mess

        common 		/iounit/konsol,mess /apfa/aap,af107,nf107

        DATA LM/31,28,31,30,31,30,31,31,30,31,30,31/

        IYBEG=1958
        if(iyyyy.lt.IYBEG) goto 21   ! APF107.DAT starts at Jan 1, 1958

        is=0
        do i=IYBEG,iyyyy-1
           nyd=365
           if(i/4*4.eq.i) nyd=366	! leap year
           IS=IS+nyd
           enddo
        lm(2)=28
        if(iyyyy/4*4.eq.iyyyy) lm(2)=29	  ! leap year
        do i=1,IMN-1
           IS=IS+LM(i)
           ENDDO
        
        IS=IS+ID
        ISDATE = IS
        if(IS.gt.nf107) goto 21

        F107D = AF107(IS,1)
        F107PD = F107D
        if(IS.gt.1) F107PD = AF107(IS-1,1)
        F107_81=AF107(IS,2)
        if(F107_81.lt.-4.) F107_81=F107D
        F107_365=AF107(IS,3)
        if(F107_365.lt.-4.) F107_365=F107D
        IAPDA=AAP(is,9)
        goto 20
                 
21      if(mess) write(konsol,100)
100     format(1X,'APF_ONLY: Date is outside range of F10.7D indices',
     &    ' file (F10.7D = F10.7_81 = F10.7RM12).')
        F107D = -11.1
        F107_81 = -11.1
        F107_365 = -11.1
        IAPDA = -11
    
20      RETURN
        END
C      
C
C----------------------STORM MODEL --------------------------------
C
      SUBROUTINE CONVER(rga,rgo,rgma)

C     This subroutine converts a geographic latitude and longitude
C     location to a corrected geomagnetic latitude.
C
C     INPUT: 
C       rga		geographic latitude   -90. to +90.
C       rgo		geographic longitude  0. to 360. 
C
C     OUTPUT:
C       rgma	corrected geomagnetic latitude	-90. to +90.


      DIMENSION CORMAG(20,91)      
      DATA ((CORMAG(i,j),i=1,20),j=1,31)/
     +163.68,163.68,163.68,163.68,163.68,163.68,
     +163.68,163.68,163.68,163.68,163.68,163.68,163.68,163.68,
     +163.68,163.68,163.68,163.68,163.68,163.68,162.60,163.12,
     +163.64,164.18,164.54,164.90,165.16,165.66,166.00,165.86,
     +165.20,164.38,163.66,162.94,162.42,162.00,161.70,161.70,
     +161.80,162.14,161.20,162.18,163.26,164.44,165.62,166.60,
     +167.42,167.80,167.38,166.82,166.00,164.66,163.26,162.16,
     +161.18,160.40,159.94,159.80,159.98,160.44,159.80,161.14,
     +162.70,164.50,166.26,167.90,169.18,169.72,169.36,168.24,
     +166.70,164.80,162.90,161.18,159.74,158.60,157.94,157.80,
     +157.98,158.72,158.40,160.10,162.02,164.28,166.64,169.00,
     +170.80,171.72,171.06,169.46,167.10,164.64,162.18,160.02,
     +158.20,156.80,156.04,155.80,156.16,157.02,157.00,158.96,
     +161.24,163.86,166.72,169.80,172.42,173.72,172.82,170.34,
     +167.30,164.22,161.34,158.74,156.60,155.00,154.08,153.90,
     +154.36,155.36,155.50,157.72,160.36,163.32,166.60,170.20,
     +173.70,175.64,174.18,170.80,167.10,163.56,160.24,157.36,
     +154.96,153.10,152.08,151.92,152.46,153.76,154.10,156.52,
     +159.36,162.52,166.24,170.30,174.62,177.48,175.04,170.82,
     +166.60,162.70,159.02,155.88,153.22,151.20,150.08,149.92,
     +150.64,152.20,152.80,155.32,158.28,161.70,165.58,170.00,
     +174.84,178.46,175.18,170.38,165.80,161.64,157.80,154.38,
     +151.52,149.30,148.18,148.02,148.92,150.60,151.40,154.08,
     +157.18,160.68,164.78,169.40,174.34,177.44,174.28,169.44,
     +164.70,160.34,156.30,152.78,149.72,147.40,146.18,146.04,
     +147.12,149.04,150.10,152.88,156.00,159.58,163.78,168.50,
     +173.28,175.60,172.86,168.14,163.40,158.98,154.88,151.10,
     +147.98,145.50,144.18,144.14,145.40,147.48,148.80,151.68,
     +154.88,158.48,162.68,167.40,171.76,173.60,171.12,166.68,
     +162.00,157.48,153.28,149.50,146.18,143.50,142.18,142.24,
     +143.68,145.98,147.50,150.54,153.68,157.28,161.42,166.10,
     +170.10,171.48,169.22,164.98,160.40,155.88,151.68,147.80,
     +144.34,141.60,140.18,140.26,141.98,144.62,146.30,149.34,
     +152.48,155.98,160.08,164.60,168.34,169.38,167.20,163.18,
     +158.60,154.18,149.98,146.02,142.54,139.70,138.18,138.46,
     +140.26,143.16,145.10,148.14,151.18,154.60,158.68,163.10,
     +166.48,167.28,165.18,161.32,156.90,152.48,148.28,144.32,
     +140.74,137.80,136.22,136.48,138.64,141.76,143.90,146.98,
     +149.98,153.30,157.24,161.40,164.52,165.16,162.86,159.42,
     +155.00,150.68,146.48,142.52,138.94,135.90,134.22,134.68,
     +137.02,140.40,142.70,145.84,148.76,151.92,155.74,159.70,
     +162.52,162.96,160.98,157.42,153.10,148.84,144.68,140.82,
     +137.20,134.00,132.32,132.80,135.42,139.10,141.60,144.74,
     +147.46,150.52,154.20,158.00,160.46,160.76,158.86,155.36,
     +151.20,146.94,142.88,139.02,135.40,132.10,130.32,131.00,
     +133.80,137.74,140.50,143.58,146.24,149.12,152.60,156.20,
     +158.40,158.66,156.76,153.36,149.30,145.04,141.08,137.30,
     +133.60,130.30,128.42,129.12,132.28,136.44,139.30,142.48,
     +144.94,147.64,150.48,154.30,156.34,156.36,154.56,151.26,
     +147.30,143.14,139.20,135.50,131.90,128.40,126.52,127.32,
     +130.76,135.18,138.20,141.28,143.72,146.24,149.26,152.40,
     +154.24,154.16,152.36,149.16,145.30,141.24,137.30,133.70,
     +130.10,126.60,124.62,125.54,129.16,133.92,137.10,140.18,
     +142.42,144.66,147.62,150.50,152.18,151.96,150.16,147.10,
     +143.30,139.24,135.50,131.90,128.36,124.80,122.72,123.74,
     +127.64,132.62,135.90,139.02,141.12,143.18,145.92,148.60,
     +149.98,149.76,148.04,145.00,141.20,137.30,133.60,130.10,
     +126.60,123.00,120.86,121.96,126.12,131.36,134.80,137.88,
     +139.80,141.68,144.08,146.60,147.88,147.56,145.84,142.90,
     +139.20,135.30,131.70,128.28,124.86,121.30,118.96,120.18,
     +124.70,130.16,133.60,136.72,138.48,140.10,142.38,144.60,
     +145.72,145.34,143.64,140.80,137.10,133.30,129.72,126.48,
     +123.10,119.50,117.16,118.48,123.18,128.86,132.40,135.42,
     +137.08,138.50,140.54,142.60,143.52,143.06,141.44,138.70,
     +135.10,131.30,127.82,124.58,121.40,117.70,115.26,116.70,
     +121.66,127.60,131.20,134.22,135.66,136.82,138.70,140.60,
     +141.36,140.86,139.24,136.50,133.00,129.30,125.92,122.78,
     +119.60,116.00,113.40,114.92,120.16,126.30,130.00,132.92,
     +134.24,135.14,136.80,138.60,139.16,138.64,137.12,134.40,
     +130.90,127.20,123.92,120.96,117.90,114.20,111.56,113.12,
     +118.64,124.90,128.70,131.56,132.74,133.44,134.90,136.50,
     +137.00,136.36,134.82,132.30,128.70,125.16,121.94,119.06,
     +116.10,112.50,109.70,111.42,117.14,123.60,127.30,130.16,
     +131.22,131.66,133.00,134.50,134.80,134.14,132.62,130.14,
     +126.60,123.06,119.94,117.16,114.30,110.70,107.80,109.64,
     +115.62,122.24,125.90,128.76,129.62,129.96,131.06,132.40,
     +132.60,131.86,130.42,128.00,124.50,120.96,117.96,115.26,
     +112.54,108.90,105.94,107.86,114.02,120.84/

      DATA ((CORMAG(i,j),i=1,20),j=32,61)/
     +124.05,126.79,
     +127.55,127.83,128.90,130.21,130.41,129.71,128.33,125.96,
     +122.49,118.96,115.97,113.26,110.52,106.89,104.01,106.00,
     +112.21,119.06,122.19,124.82,125.48,125.69,126.73,128.03,
     +128.22,127.55,126.23,123.92,120.47,116.97,113.97,111.26,
     +108.50,104.89,102.08,104.14,110.41,117.29,120.34,122.85,
     +123.40,123.56,124.57,125.84,126.03,125.40,124.14,121.88,
     +118.46,114.97,111.98,109.26,106.48,102.88,100.15,102.28,
     +108.60,115.51,118.49,120.88,121.33,121.42,122.40,123.65,
     +123.84,123.24,122.04,119.83,116.45,112.97,109.98,107.26,
     +104.46,100.87,098.22,100.42,106.79,113.74,116.63,118.91,
     +119.26,119.29,120.24,121.47,121.65,121.09,119.95,117.79,
     +114.43,110.98,107.99,105.26,102.44,098.87,096.29,098.56,
     +104.98,111.96,114.78,116.94,117.19,117.15,118.07,119.28,
     +119.46,118.93,117.86,115.75,112.42,108.98,106.00,103.26,
     +100.42,096.86,094.36,096.70,103.18,110.19,112.93,114.97,
     +115.12,115.02,115.91,117.09,117.27,116.78,115.76,113.71,
     +110.41,106.98,104.00,101.26,098.40,094.85,092.43,094.84,
     +101.37,108.41,111.07,113.00,113.04,112.88,113.74,114.91,
     +115.08,114.62,113.67,111.67,108.39,104.99,102.01,099.26,
     +096.38,092.85,090.51,092.97,099.56,106.64,109.22,111.03,
     +110.97,110.75,111.58,112.72,112.89,112.47,111.57,109.63,
     +106.38,102.99,100.01,097.26,094.36,090.84,088.58,091.11,
     +097.75,104.86,107.37,109.06,108.90,108.61,109.41,110.53,
     +110.70,110.31,109.48,107.59,104.37,100.99,098.02,095.26,
     +092.34,088.83,086.65,089.25,095.95,103.09,105.51,107.09,
     +106.83,106.48,107.25,108.35,108.51,108.16,107.39,105.55,
     +102.35,099.00,096.03,093.26,090.32,086.83,084.72,087.39,
     +094.14,101.31,103.66,105.12,104.76,104.34,105.08,106.16,
     +106.32,106.00,105.29,103.50,100.34,097.00,094.03,091.26,
     +088.30,084.82,082.79,085.53,092.33,099.54,101.81,103.15,
     +102.68,102.21,102.92,103.97,104.13,103.85,103.20,101.46,
     +098.33,095.00,092.04,089.26,086.28,082.81,080.86,083.67,
     +090.52,097.76,099.95,101.18,100.61,100.07,100.75,101.79,
     +101.94,101.69,101.10,099.42,096.31,093.01,090.04,087.26,
     +084.26,080.81,078.93,081.81,088.72,095.99,098.10,099.21,
     +098.54,097.94,098.59,099.60,099.75,099.54,099.01,097.38,
     +094.30,091.01,088.05,085.26,082.24,078.80,077.00,079.95,
     +086.91,094.21,096.25,097.24,096.47,095.81,096.43,097.41,
     +097.56,097.39,096.92,095.34,092.29,089.01,086.06,083.26,
     +080.22,076.79,075.07,078.09,085.10,092.43,094.39,095.27,
     +094.40,093.67,094.26,095.23,095.37,095.23,094.82,093.30,
     +090.27,087.02,084.06,081.26,078.20,074.79,073.14,076.23,
     +083.30,090.66,092.54,093.30,092.32,091.54,092.10,093.04,
     +093.18,093.08,092.73,091.26,088.26,085.02,082.07,079.26,
     +076.18,072.78,071.21,074.37,081.49,088.88,090.69,091.33,
     +090.25,089.40,089.93,090.85,090.99,090.92,090.63,089.21,
     +086.25,083.02,080.07,077.26,074.16,070.77,069.28,072.51,
     +079.68,087.11,088.83,089.36,088.18,087.27,087.77,088.67,
     +088.80,088.77,088.54,087.17,084.23,081.03,078.08,075.26,
     +072.14,068.77,067.35,070.65,077.87,085.33,086.98,087.39,
     +086.11,085.13,085.60,086.48,086.61,086.61,086.45,085.13,
     +082.22,079.03,076.09,073.26,070.12,066.76,065.42,068.79,
     +076.07,083.56,085.13,085.42,084.04,083.00,083.44,084.29,
     +084.42,084.46,084.35,083.09,080.21,077.03,074.09,071.26,
     +068.10,064.75,063.49,066.93,074.26,081.78,083.27,083.45,
     +081.96,080.86,081.27,082.11,082.23,082.30,082.26,081.05,
     +078.19,075.04,072.10,069.26,066.08,062.75,061.57,065.06,
     +072.45,080.01,081.42,081.48,079.89,078.73,079.11,079.92,
     +080.04,080.15,080.16,079.01,076.18,073.04,070.10,067.26,
     +064.06,060.74,059.64,063.20,070.64,078.23,079.57,079.51,
     +077.82,076.59,076.94,077.73,077.85,077.99,078.07,076.97,
     +074.17,071.04,068.11,065.26,062.04,058.73,057.71,061.34,
     +068.84,076.46,077.71,077.54,075.75,074.46,074.78,075.55,
     +075.66,075.84,075.98,074.93,072.15,069.05,066.12,063.26,
     +060.02,056.73,055.78,059.48,067.03,074.68,075.86,075.57,
     +073.68,072.32,072.61,073.36,073.47,073.68,073.88,072.88,
     +070.14,067.05,064.12,061.26,058.00,054.72,053.85,057.62,
     +065.22,072.91,074.01,073.60,071.60,070.19,070.45,071.17,
     +071.28,071.53,071.79,070.84,068.13,065.05,062.13,059.26,
     +055.98,052.71,051.92,055.76,063.41,071.13,072.15,071.63,
     +069.53,068.05,068.28,068.99,069.09,069.37,069.69,068.80,
     +066.11,063.06,060.13,057.26,053.96,050.71,049.99,053.90,
     +061.61,069.36,070.30,069.66,067.46,065.92,066.12,066.80,
     +066.90,067.22,067.60,066.76,064.10,061.06,058.14,055.26,
     +051.94,048.70,048.06,052.04,059.80,067.58/

      DATA ((CORMAG(i,j),i=1,20),j=62,91)/
     +067.70,067.06,
     +065.08,063.72,063.98,064.60,064.80,065.12,065.60,064.86,
     +062.40,059.26,056.24,053.18,049.84,046.60,046.12,050.12,
     +057.52,064.80,064.90,064.42,062.70,061.62,061.78,062.40,
     +062.60,063.04,063.58,063.00,060.60,057.46,054.42,051.18,
     +047.70,044.60,044.22,048.02,055.06,061.92,062.10,061.72,
     +060.32,059.50,059.68,060.20,060.46,060.94,061.58,061.00,
     +058.70,055.66,052.52,049.18,045.60,042.50,042.22,046.00,
     +052.60,058.98,059.20,059.18,058.12,057.32,057.48,058.00,
     +058.30,058.84,059.48,059.04,056.90,053.86,050.62,047.10,
     +043.50,040.50,040.28,043.98,050.22,056.18,056.40,056.64,
     +055.84,055.20,055.38,055.80,056.16,056.84,057.48,057.04,
     +055.10,052.06,048.70,045.10,041.40,038.40,038.28,041.88,
     +047.94,053.44,053.70,054.14,053.56,053.10,053.24,053.70,
     +054.06,054.74,055.38,055.14,053.20,050.26,046.80,043.10,
     +039.34,036.40,036.38,039.96,045.56,050.84,051.10,051.70,
     +051.36,051.00,051.14,051.50,051.96,052.64,053.38,053.08,
     +051.30,048.36,044.90,041.02,037.24,034.40,034.38,037.86,
     +043.28,048.20,048.50,049.26,049.18,048.90,049.04,049.40,
     +049.86,050.64,051.28,051.08,049.40,046.46,042.98,039.02,
     +035.14,032.40,032.48,035.72,041.00,045.70,046.00,046.96,
     +046.98,046.80,046.94,047.30,047.76,048.54,049.28,049.08,
     +047.40,044.56,041.08,037.02,033.14,030.40,030.58,033.84,
     +038.72,043.20,043.50,044.62,044.80,044.80,044.94,045.20,
     +045.76,046.54,047.18,046.98,045.50,042.66,039.08,035.02,
     +031.14,028.40,028.58,031.82,036.52,040.80,041.20,042.32,
     +042.54,042.70,042.84,043.20,043.66,044.44,045.08,044.98,
     +043.50,040.76,037.08,033.04,029.04,026.40,026.68,029.82,
     +034.34,038.40,038.80,040.12,040.60,040.70,040.84,041.10,
     +041.62,042.34,042.98,042.88,041.50,038.76,035.18,031.04,
     +027.14,024.50,024.78,027.70,032.14,036.06,036.50,037.88,
     +038.50,038.68,038.84,039.10,039.56,040.34,040.88,040.82,
     +039.40,036.76,033.18,029.12,025.14,022.50,022.88,025.90,
     +029.96,033.86,034.30,035.68,036.42,036.68,036.84,037.10,
     +037.56,038.24,038.88,038.72,037.40,034.76,031.18,027.12,
     +023.14,020.60,020.98,023.90,027.88,031.66,032.10,033.58,
     +034.32,034.68,034.84,035.10,035.56,036.24,036.78,036.62,
     +035.30,032.72,029.18,025.14,021.24,018.70,019.08,021.90,
     +025.88,029.42,029.90,031.48,032.32,032.68,032.84,033.10,
     +033.56,034.22,034.68,034.42,033.20,030.72,027.28,023.22,
     +019.34,016.80,017.24,020.00,023.78,027.32,027.70,029.38,
     +030.24,030.68,030.94,031.20,031.66,032.22,032.58,032.32,
     +031.10,028.62,025.28,021.32,017.48,015.00,015.38,018.18,
     +021.80,025.22,025.70,027.28,028.24,028.78,029.04,029.30,
     +029.66,030.22,030.50,030.22,029.00,026.62,023.30,019.42,
     +015.64,013.10,013.54,016.28,019.80,023.12,023.60,025.24,
     +026.24,026.78,027.14,027.40,027.76,028.22,028.40,028.12,
     +026.80,024.52,021.30,017.52,013.78,011.30,011.74,014.48,
     +017.90,021.12,021.60,023.24,024.34,024.88,025.24,025.50,
     +025.86,026.22,026.40,025.98,024.70,022.48,019.40,015.72,
     +012.04,009.50,009.94,012.58,016.02,019.12,019.60,021.24,
     +022.34,022.98,023.34,023.70,024.00,024.30,024.40,023.88,
     +022.60,020.48,017.52,014.00,010.34,007.80,008.18,010.88,
     +014.22,017.18,017.60,019.34,020.44,021.16,021.54,021.90,
     +022.16,022.40,022.32,021.78,020.60,018.48,015.62,012.20,
     +008.68,006.00,006.44,009.18,012.42,015.28,015.80,017.44,
     +018.54,019.26,019.74,020.10,020.30,020.50,020.32,019.72,
     +018.50,016.54,013.84,010.68,007.14,004.40,004.74,007.58,
     +010.74,013.48,014.00,015.54,016.74,017.46,017.94,018.30,
     +018.50,018.58,018.32,017.72,016.50,014.64,012.24,009.18,
     +005.84,002.90,003.30,006.16,009.14,011.84,012.30,013.78,
     +014.94,015.66,016.24,016.50,016.70,016.70,016.42,005.78,
     +014.60,012.90,010.66,007.86,004.88,001.60,001.72,004.96,
     +007.84,010.24,010.70,012.14,013.24,013.96,014.44,014.80,
     +014.90,014.88,014.52,013.92,012.80,011.30,009.28,006.94,
     +004.32,001.80,001.94,004.34,006.78,008.94,009.40,010.58,
     +011.64,012.36,012.74,013.10,013.20,013.08,012.72,012.12,
     +011.10,009.86,008.30,006.50,004.60,003.10,003.16,004.50,
     +006.20,007.90,008.40,009.42,010.14,010.76,011.14,011.40,
     +011.40,011.38,011.02,010.46,009.70,008.72,007.64,006.46,
     +005.42,004.60,004.70,005.34,006.24,007.36,007.90,008.46,
     +008.92,009.28,009.54,009.70,009.70,009.68,009.42,009.06,
     +008.60,008.08,007.56,007.02,006.56,006.30,006.30,006.52,
     +006.96,007.38,008.15,008.15,008.15,008.15,008.15,008.15,
     +008.15,008.15,008.15,008.15,008.15,008.15,008.15,008.15,
     +008.15,008.15,008.15,008.15,008.15,008.15/

C     Data Input      
      rlan = rga
      rlo = rgo      
      
C     From "normal" geographic latitude 
C     to angle from South Pole.       
      rla = rlan + 90

      IF (rlo .EQ. 360) THEN
      	rlo = 0
        END IF

C     PROXIMITY

C     coefficients of the latitudinal points		
      LA1 = (INT(rla/2)+1)
      LA2 = LA1 + 1
      if(la2.gt.91) la2=91

C     coefficients of the longitudinal points		
      LO1 = (INT(rlo/18)+1)
corr      LO2 = LO1 + 1
      LO2 = MOD(LO1,20) + 1 

C     Four points of Geomagnetic Coordinates
      gm1 = CORMAG(LO1,LA1)
      gm2 = CORMAG(LO1,LA2) 
      gm3 = CORMAG(LO2,LA1)
      gm4 = CORMAG(LO2,LA2)

C     latitudinal points		
C      X1 = ABS(rla - (INT(rla)))                        
C      X2 = 2. - X1
	  x = (rla/2.0 - (INT(rla/2.0)))

C     longitudinal points		
C      Y1 = ABS(rlo - (INT(rlo)))                        
C      Y2 = 18. - Y1
      y =(rlo/18.0 - (INT(rlo/18.0))) 

C     X AND Y VALUES
C      x = X1 / (X1 + X2)
C      y = Y1 / (Y1 + Y2)

C     INTERPOLATION
      gmla = gm1 * (1 - x) * (1 - y) + gm2 * (1 - y) * (x) + gm3 * (y)
     1 * (1 - x) + gm4 * (x) * (y)

C     OUTPUT OF THE PROGRAM
C     From corrected geomagnetic latitude from North Pole
C     to "normal"  geomagnetic latitude.       
      rgma = 90. - gmla

      END
c
c
      SUBROUTINE STORM(ap,rga,rgo,coor,rgma,ut,doy,cf)
C----------------------------------------------------------------------
C      Fortran code to obtain the foF2 storm-time correction factor at 
C      a given location and time, using the current and the 12 previous
C      ap values as input.
C
C      ap ---> (13 elements integer array). Array with the preceeding
C              13 value of the 3-hourly ap index. The 13th value
C              in the array will contain the ap at the UT of interest,
C              the 12th value will contain the 1st three hourly interval
C              preceeding the time of interest, and so on to the 1st
C              ap value at the earliest time.
C     coor --> (integer). If coor = 2, rga should contain the 
C                         geomagnetic latitude.
C                         If coor = 1, rga should contain the 
C                         geographic latitude.
C     rga ---> (real, -90 to 90) geographic or geomagnetic latitude.
C     rgo ---> (real, 0 to 360, positive east from Greenwich.)
C                           geographic longitude, only used if coor=1.
C     ut  ---> (integer, hours 00 to 23) Universal Time of interest.
C     doy ---> (integer, 1 to 366)Day of the year.
C     cf  ---> (real) The output; the storm-time correction factor used
C              to scale foF2, foF2 * cf.
C     rgma --> corrected magnetic latitude calculated from rga and rgo
C
C     This model and computer code was developed by E. Araujo-Pradere,
C     T. Fuller-Rowell and M. Condrescu, SEC, NOAA, Boulder, USA
C     Ref: 
C     T. Fuller-Rowell, E. Araujo-Pradere, and M. Condrescu, An 
C       Empirical Ionospheric Storm-Time Ionospheric Correction Model,
C       Adv. Space Res. 8, 8, 15-24, 2000.
C----------------------------------------------------------------------
C     DIMENSIONS AND COEFFICIENTS VALUES

      DIMENSION c4(20)
      DATA c4/0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,
     +0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,
     +0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00/

      DIMENSION c3(20)
      DATA c3/0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,-9.44E-12,
     +0.00E+00,3.04E-12,0.00E+00,9.32E-12,-1.07E-11,0.00E+00,0.00E+00,
     +0.00E+00,1.09E-11,0.00E+00,0.00E+00,0.00E+00,0.00E+00,-1.01E-11/

      DIMENSION c2(20)
      DATA c2/1.16E-08,0.00E+00,0.00E+00,-1.46E-08,0.00E+00,9.86E-08,
     +2.25E-08,-1.67E-08,-1.62E-08,-9.42E-08,1.17E-07,4.32E-08,3.97E-08,
     +3.13E-08,-8.04E-08,3.91E-08,2.58E-08,3.45E-08,4.76E-08,1.13E-07/

      DIMENSION c1(20)
      DATA c1/-9.17E-05,-1.37E-05,0.00E+00,7.14E-05,0.00E+00,-3.21E-04,
     +-1.66E-04,-4.10E-05,1.36E-04,2.29E-04,-3.89E-04,-3.08E-04,
     +-2.81E-04,-1.90E-04,4.76E-05,-2.80E-04,-2.07E-04,-2.91E-04,
     +-3.30E-04,-4.04E-04/

      DIMENSION c0(20)
      DATA c0/1.0136E+00,1.0478E+00,1.00E+00,1.0258E+00,1.00E+00,
     +1.077E+00,1.0543E+00,1.0103E+00,9.9927E-01,9.6876E-01,1.0971E+00,
     +1.0971E+00,1.0777E+00,1.1134E+00,1.0237E+00,1.0703E+00,1.0248E+00,
     +1.0945E+00,1.1622E+00,1.1393E+00/

      DIMENSION fap(36)
      DATA fap/0.,0.,0.037037037,0.074074074,0.111111111,0.148148148,
     10.185185185,0.222222222,0.259259259,0.296296296,0.333333333,
     20.37037037,0.407407407,0.444444444,0.481481481,0.518518519,
     30.555555556,0.592592593,0.62962963,0.666666667,0.703703704,
     40.740740741,0.777777778,0.814814815,0.851851852,0.888888889,
     50.925925926,0.962962963,1.,0.66666667,0.33333334,0.,0.333333,
     60.666666,1.,0.7/

      integer code(8,6)
      data code/3,4,5,4,3,2,1,2,3,2,1,2,3,4,5,4,8,7,6,7,8,9,10,9,
     *13,12,11,12,13,14,15,14,18,17,16,17,18,19,20,19,18,17,16,17,
     *18,19,20,19/

      INTEGER ape(39)
      INTEGER ap(13)
      INTEGER ut,doy,dayno,coor,s1,s2,l1,l2
      REAL rgma, rap, rga, rgo, rs, rl

C      CALLING THE PROGRAM TO CONVERT TO GEOMAGNETIC COORDINATES

       IF (coor .EQ. 1) THEN

           CALL CONVER (rga,rgo,rgma)

       ELSE IF (coor .EQ. 2) THEN
                rgma = rga

       ELSE

          WRITE (6,*)' '
          WRITE (6,*)' '
          WRITE (6,*)'   Wrong Coordinates Selection -------- >>', coor
          WRITE (6,*)' '
          GOTO 100
       ENDIF

C FROM 3-HOURLY TO HOURLY ap (New, interpolates between the three hourly 
C ap values)

       ape(1)=ap(1)
       ape(2)=ap(1)
       ape(38)=ap(13)
       ape(39)=ap(13)

       DO k = 1,13
          i = (k * 3) - 1
          ape(i) = ap(k)
          END DO

       DO k = 1,12
          i = k * 3
          ape(i) = (ap(k)*2 + ap(k+1))/3.0
          END DO

       DO k = 2,13
          i = (k * 3) - 2
          ape(i) = (ap(k-1) + ap(k)*2)/3.0
          END DO

C     FROM 3-HOURLY TO HOURLY ap (old version without interpolation)
c      i = 1
c      DO 10 k = 1,13
c         DO j = 1,3
c            ape(i) = ap(k)
c            i = i + 1
c            END DO
c10    CONTINUE

C     TO OBTAIN THE INTEGRAL OF ap.
C     INTEGRAL OF ap

      if(ut.eq.24) ut=0
      IF (ut .EQ. 0 .OR. ut .EQ. 3 .OR. ut .EQ. 6 .OR. ut .EQ. 9 .OR.
     1ut .EQ. 12 .OR. ut .EQ. 15 .OR. ut .EQ. 18 .OR. ut .EQ. 21) THEN
          k = 1
      ELSE IF (ut .EQ. 1 .OR. ut .EQ. 4 .OR. ut .EQ. 7 .OR. ut .EQ. 10
     1.OR.ut .EQ. 13 .OR. ut .EQ. 16 .OR. ut .EQ. 19 .OR. ut .EQ. 22)
     2THEN
          k = 2
      ELSE IF (ut .EQ. 2 .OR. ut .EQ. 5 .OR. ut .EQ. 8 .OR. ut .EQ. 11
     1.OR. ut .EQ. 14 .OR. ut .EQ. 17 .OR. ut .EQ. 20 .OR. ut .EQ. 23)
     2THEN
          k = 3

      ELSE

          WRITE (6,*)' '
          WRITE (6,*)' '
          WRITE (6,*)'  Wrong Universal Time value -------- >>', ut
          WRITE (6,*)' '
          GOTO 100

      END IF

      rap = 0

      DO j = 1,36
      rap = rap + fap(j) * ape(k+j)
      END DO

      if(rap.le.200.)then
      cf=1.0
      goto 100
      end if

      if(doy.gt.366.or.doy.lt.1)then
          WRITE (6,*)' '
          WRITE (6,*)' '
          WRITE (6,*)' '
          WRITE (6,*)'      Wrong Day of Year value --- >>', doy
          WRITE (6,*)' '
          GOTO 100
      end if

      if(rgma.gt.90.0.or.rgma.lt.-90.0)then
          WRITE (6,*)' '
          WRITE (6,*)' '
          WRITE (6,*)' '
          WRITE (6,*)'   Wrong GEOMAGNETIC LATITUDE value --- >>', rgma
          WRITE (6,*)' '
          GOTO 100
      end if

c      write(6,*)rgma

      dayno=doy
      if(rgma.lt.0.0)then
      dayno=doy+172
      if(dayno.gt.365)dayno=dayno-365
      end if

      if (dayno.ge.82) rs=(dayno-82.)/45.6+1.
      if (dayno.lt.82) rs=(dayno+283.)/45.6+1.
      s1=rs
      facs=rs-s1
      s2=s1+1
      if(s2.eq.9) s2=1
c      write(6,*)s1,s2,rs

      rgma = abs(rgma)

      rl=(rgma+10.)/20.+1
      if(rl.eq.6.0)rl=5.9
      l1=rl
      facl=rl-l1
      l2=l1+1
c      write(6,*)l1,l2,rl

C     FACTORS CALCULATIONS

      if(rap.lt.300.)then
      rapf=300.
      n1=code(s1,l1)
      cf1=c4(n1)*(rapf**4)+c3(n1) * (rapf**3) + c2(n1) * (rapf**2) +
     1c1(n1) * rapf + c0(n1)
      n2=code(s1,l2)
      cf2=c4(n2)*(rapf**4)+c3(n2) * (rapf**3) + c2(n2) * (rapf**2) +
     1c1(n2) * rapf + c0(n2)
      n3=code(s2,l1)
      cf3=c4(n3)*(rapf**4)+c3(n3) * (rapf**3) + c2(n3) * (rapf**2) +
     1c1(n3) * rapf + c0(n3)
      n4=code(s2,l2)
      cf4=c4(n4)*(rapf**4)+c3(n4) * (rapf**3) + c2(n4) * (rapf**2) +
     1c1(n4) * rapf + c0(n4)

C     INTERPOLATION

      cf300=cf1*(1 - facs) * (1 - facl) + cf2 * (1 - facs) * (facl) +
     *cf3 * (facs) * (1 - facl) + cf4 * (facs) * (facl)

      cf = (cf300-1.0)*rap/100.-2.*cf300+3.
      goto 100
      end if

      n1=code(s1,l1)
c      write(6,*)n1
      cf1 = c4(n1) * (rap**4) + c3(n1) * (rap**3) + c2(n1) * (rap**2) +
     1c1(n1) * rap + c0(n1)
      n2=code(s1,l2)
      cf2 = c4(n2) * (rap**4) + c3(n2) * (rap**3) + c2(n2) * (rap**2) +
     1c1(n2) * rap + c0(n2)
      n3=code(s2,l1)
      cf3 = c4(n3) * (rap**4) + c3(n3) * (rap**3) + c2(n3) * (rap**2) +
     1c1(n3) * rap + c0(n3)
      n4=code(s2,l2)
      cf4 = c4(n4) * (rap**4) + c3(n4) * (rap**3) + c2(n4) * (rap**2) +
     1c1(n4) * rap + c0(n4)

C     INTERPOLATION

      cf = cf1 * (1 - facs) * (1 - facl) + cf2 * (1 - facs) * (facl) +
     *cf3 * (facs) * (1 - facl) + cf4 * (facs) * (facl)

100   CONTINUE

      RETURN

      END
C
C
      FUNCTION STORME_AP(JDOY,XMLAT,AP)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C EMPIRICAL STORM-E MODEL: COMPUTES A STORM-TO-QUIET RATIO (SQR) FACTOR
C TO ADJUST THE QUIESCENT E-REGION PEAK ELECTRON DENSITY TO ACCOUNT FOR
C ENHANCEMENTS DUE TO GEOMAGNETIC ACTIVITY. THE SQR FACTORS WERE
C COMPUTED FROM NO+ 4.3 UM VOLUME EMISSION RATES DERIVED FROM 
C TIMED/SABER LIMB RADIANCE MEASUREMENTS. THE SABER-DERIVED SQR FACTORS
C WERE FIT TO POWE-LAW IN THE ap INDEX.   
C
C INPUT PARAMETERS:
C
C  JDOY      --- DAY OF YEAR (1-365) 
C  XMLAT     --- MAGNETIC LATITUDE (DEGREES)
C  AP        --- ap INDEX
C
C OUTPUT PARAMETER
C 
C  STORME_AP --- STORM-TO-QUIET RATIO (SQR) TO ADJUST QUIESCENT E-REGION
C                PEAK ELECTRON DENSITY TO ACCOUNT FOR GEOMAGNETIC
C                ENHANCEMENTS. SQR COMPUTED FROM A POWER-LAW FIT
C                IN AP-INDEX: SQR=C1*AP**C2+C3
C
C REFERENCES:
C 
C  (1) Mertens et al. [submitted to JASR, 2011]
C  (2) Fernandez et al. [JASR, Vol. 46, 2010]
C  (3) Mertens et al. [Proc. of SPIE, Vol. 7475, 2009]
C  (4) Mertens et al. [Proc. of SPIE, Vol. 6745, 2007]
C  (5) Mertens et al. [JASR, Vol. 39, 2007] 
C 
C SOFTWARE WRITTEN BY Christopher J. Mertens
C                     NASA Langley Research Center
C                     Atmospheric Sciences Competency
C                     21 Langley Blvd., Mail Stop 401B
C                     Hampton, VA 23681-2199
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      PARAMETER(NMLG=37,NDBD=5)
      DIMENSION C3(NMLG,NDBD)
      DIMENSION XMLG(NMLG),IDBD(NDBD),C1(NMLG,NDBD),C2(NMLG,NDBD)
      LOGICAL mess

      COMMON /iounit/konsol,mess

      DATA XMLG/-90.0,-85.0,-80.0,-75.0,-70.0,-65.0,-60.0,-55.0,-50.0,
     &          -45.0,-40.0,-35.0,-30.0,-25.0,-20.0,-15.0,-10.0,-5.0,
     &          0.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0,
     &          55.0,60.0,65.0,70.0,75.0,80.0,85.0,90.0/
      DATA IDBD/79,171,264,354,366/
C
C JDOY        | 0-79 ||80-171||172-264||265-354||355-365|
C
      DATA ((C1(IML,IDB),IDB=1,NDBD),IML=1,NMLG)
     &     / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-90.0 
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-85.0
     &       0.00000, 0.00508, 0.17360, 0.00000, 0.00000, !-80.0
     &       0.00000, 0.31576, 0.31498, 0.00000, 0.00000, !-75.0
     &       0.00000, 0.39217, 0.40121, 0.00000, 0.00000, !-70.0
     &       0.00000, 0.32634, 0.30179, 0.00000, 0.00000, !-65.0
     &       0.11573, 0.06211, 0.16230, 0.20233, 0.11573, !-60.0
     &       0.00526, 0.00013, 0.00204, 0.04965, 0.00526, !-55.0
     &       0.00011, 0.00013, 0.00018, 0.00040, 0.00011, !-50.0
     &       0.00001, 0.00002, 0.00040, 0.00001, 0.00001, !-45.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-40.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-35.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-30.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-25.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-20.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-15.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-10.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! -5.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !  0.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !  5.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 10.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 15.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 20.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 25.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 30.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 35.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 40.0
     &       0.00000,-0.02738, 0.00004, 0.00001, 0.00000, ! 45.0
     &       0.00001,-0.00022, 0.00001, 0.00004, 0.00001, ! 50.0
     &       0.00126, 0.00062, 0.00011, 0.00345, 0.00126, ! 55.0
     &       0.14923, 0.05483, 0.07113, 0.18282, 0.14923, ! 60.0
     &       0.37361, 0.00000, 0.00000, 0.44592, 0.37361, ! 65.0
     &       0.27792, 0.00000, 0.00000, 0.00804, 0.27792, ! 70.0
     &       0.06445, 0.00000, 0.00000, 0.10315, 0.06445, ! 75.0
     &       0.00149, 0.00000, 0.00000, 0.00073, 0.00149, ! 80.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 85.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000/ ! 90.0  
C
C JDOY        | 0-79 ||80-171||172-264||265-354||355-365|
C
      DATA ((C2(IML,IDB),IDB=1,NDBD),IML=1,NMLG)
     &     / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-90.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-85.0
     &       0.00000, 1.00000, 0.32415, 0.00000, 0.00000, !-80.0
     &       0.00000, 0.36538, 0.35455, 0.00000, 0.00000, !-75.0
     &       0.00000, 0.41287, 0.38062, 0.00000, 0.00000, !-70.0
     &       0.00000, 0.52224, 0.52810, 0.00000, 0.00000, !-65.0
     &       0.73025, 0.90723, 0.68107, 0.64815, 0.73025, !-60.0
     &       1.29410, 2.06038, 1.47332, 0.84843, 1.29410, !-55.0
     &       1.79442, 1.77511, 1.59906, 1.59141, 1.79442, !-50.0
     &       1.84434, 1.70607, 1.03056, 1.92168, 1.84434, !-45.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-40.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-35.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-30.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-25.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-20.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-15.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !-10.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! -5.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !  0.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, !  5.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 10.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 15.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 20.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 25.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 30.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 35.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 40.0
     &       2.04797, 0.27034, 1.00000, 1.90792, 2.04797, ! 45.0
     &       2.24520, 1.00000, 1.88721, 2.01535, 2.24520, ! 50.0
     &       1.56493, 1.52468, 1.93389, 1.38532, 1.56493, ! 55.0
     &       0.71442, 0.87492, 0.78890, 0.66828, 0.71442, ! 60.0
     &       0.53546, 0.00000, 0.00000, 0.42597, 0.53546, ! 65.0
     &       0.48647, 0.00000, 0.00000, 1.00000, 0.48647, ! 70.0
     &       0.67340, 0.00000, 0.00000, 0.36809, 0.67340, ! 75.0
     &       1.44025, 0.00000, 0.00000, 1.13529, 1.44025, ! 80.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000, ! 85.0
     &       0.00000, 0.00000, 0.00000, 0.00000, 0.00000/ ! 90.0 
C
C JDOY        | 0-79 ||80-171||172-264||265-354||355-365|
C
      DATA ((C3(IML,IDB),IDB=1,NDBD),IML=1,NMLG)
     &     / 1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-90.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-85.0
     &       1.00000, 1.03132, 0.76703, 1.00000, 1.00000, !-80.0
     &       1.00000, 0.57588, 0.56324, 1.00000, 1.00000, !-75.0
     &       1.00000, 0.41370, 0.38549, 1.00000, 1.00000, !-70.0
     &       1.00000, 0.51704, 0.50217, 1.00000, 1.00000, !-65.0
     &       0.55236, 0.80162, 0.60824, 0.46999, 0.55236, !-60.0
     &       0.90923, 0.99688, 0.96752, 0.67312, 0.90923, !-55.0
     &       0.99338, 0.98486, 0.99503, 0.87473, 0.99338, !-50.0
     &       1.00031, 1.00369, 1.00225, 0.91242, 1.00031, !-45.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-40.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-35.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-30.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-25.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-20.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-15.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !-10.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! -5.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !  0.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, !  5.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 10.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 15.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 20.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 25.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 30.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 35.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 40.0
     &       1.04797, 1.02319, 0.98581, 1.01457, 1.04797, ! 45.0
     &       1.03332, 0.97016, 0.97807, 0.99044, 1.03332, ! 50.0
     &       1.00633, 0.94822, 0.96340, 0.95363, 1.00633, ! 55.0
     &       0.67902, 0.71540, 0.70230, 0.60821, 0.67902, ! 60.0
     &       0.35017, 1.00000, 1.00000, 0.51033, 0.35017, ! 65.0
     &       0.63358, 1.00000, 1.00000, 1.37782, 0.63358, ! 70.0
     &       0.85724, 1.00000, 1.00000, 0.91942, 0.85724, ! 75.0
     &       0.92703, 1.00000, 1.00000, 1.00502, 0.92703, ! 80.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000, ! 85.0
     &       1.00000, 1.00000, 1.00000, 1.00000, 1.00000/ ! 90.0
C
C ... Find Season-Averaged Coefficient Index 
C
      IDXS=0
      IF(JDOY.LE.IDBD(1)) IDXS=1
      DO IS=2,NDBD
        IF((JDOY.GT.IDBD(IS-1)).AND.(JDOY.LE.IDBD(IS))) IDXS=IS
      ENDDO
      IF(IDXS.EQ.0) THEN
        if(mess) WRITE(konsol,*) 'ERROR IN STORME_AP: ',
     &   'PROBLEM FINDING SEASON-AVERAGED COEFFICIENT',
     &   'DAY OF YEAR = ',JDOY
        STORME_AP=-5.0
        GOTO 222 
      ENDIF
C
C ... Find Magnetic Latitude Coefficient Index
C 
      IDXL=0
      DELG=ABS(XMLG(1)-XMLG(2))
      DELD=DELG/2.0
      YMP=XMLG(1)+DELD
      YMM=XMLG(NMLG)-DELD
      IF((XMLAT.GE.XMLG(1)).AND.(XMLAT.LE.YMP)) IDXL=1
      IF((XMLAT.GT.YMM).AND.(XMLAT.LE.XMLG(NMLG))) IDXL=NMLG
      DO IL=2,NMLG-1
        YMP=XMLG(IL)+DELD
        YMM=XMLG(IL)-DELD
        IF((XMLAT.GT.YMM).AND.(XMLAT.LE.YMP)) IDXL=IL
      ENDDO
      IF(IDXL.EQ.0) THEN
        if(mess) WRITE(konsol,*) 'ERROR IN STORME_AP: ', 
     &     'PROBLEM FINDING MAGNETIC LATITUDE COEFFICIENT',
     &     'MAGNETIC LATITUDE(DEGREES) = ',XMLAT
        STORME_AP=-5.0
        GOTO 222
      ENDIF
C
C ... COMPUTE E-REGION ELECTRON DENSITY GEOMAGNETIC STORM ENHANCEMET
C ... FACTOR (i.e., THE STORM-TO-QUIET RATIO (SQR)) 
C
      SQR=C1(IDXL,IDXS)*AP**(C2(IDXL,IDXS))+C3(IDXL,IDXS)
      IF(SQR.LT.1.0) SQR=1.0
      STORME_AP=SQR
   
222   RETURN
      END    
C
C
C****************************************************************************
C
        subroutine vdrift(xt,xl,param,y)
C-------------------------------------------------------------------
C       SUBROUTINE CALCULATES EQUATORIAL VERTICAL DRIFT AS DESCRIBED 
C       IN SCHERLIESS AND FEJER, JGR, 104, 6829-6842, 1999
C
C       INPUT:   XT: SOLAR LOCAL TIME  [h]
C                XL: GEOGRAPHIC LONGITUDE (+ EAST) [degrees]
C                PARAM(1): DOY - Day of Year (1 - 365/366)
C                PARAM(2): F10.7cm : F10.7cm solar flux (daily value)
C             
C       OUTPUT:  Y: EQUATORIAL VERTICAL DRIFT [m/s]
C
C-------------------------------------------------------------------
c        IMPLICIT REAL*8 (A-H,O-Z)
        IMPLICIT REAL (A-H,O-Z)
       
c        real*8 param(2),coeff(624),coeff1(594),coeff2(30),funct(6)
c        real*8 xt,xl,y
c        real*8 bspl4,bspl4_time,bspl4_long

        real param(2),coeff(624),coeff1(594),coeff2(30),funct(6)
        real xt,xl,y
        real bspl4,bspl4_time,bspl4_long

        integer i,j,ind,il,kk
        integer index_t,dim_t,index_l,dim_l,index,dim,nfunc
        
        data index_t/13/,dim_t/78/,index_l/8/,dim_l/48/,index/104/,
     *   dim/624/,nfunc/6/

        data coeff1/
     *  -10.80592, -9.63722,-11.52666, -0.05716, -0.06288,  0.03564,
     *   -5.80962, -7.86988, -8.50888, -0.05194, -0.05798, -0.00138,
     *    2.09876,-19.99896, -5.11393, -0.05370, -0.06585,  0.03171,
     *  -10.22653, -3.62499,-14.85924, -0.04023, -0.01190, -0.09656,
     *   -4.85180,-26.26264, -6.20501, -0.05342, -0.05174,  0.02419,
     *  -13.98936,-18.10416, -9.30503, -0.01969, -0.03132, -0.01984,
     *  -18.36633,-24.44898,-16.69001,  0.02033, -0.03414, -0.02062,
     *  -20.27621,-16.95623,-36.58234,  0.01445, -0.02044, -0.08297,
     *    1.44450,  5.53004,  4.55166, -0.02356, -0.04267,  0.05023,
     *    5.50589,  7.05381,  1.94387, -0.03147, -0.03548,  0.01166,
     *    3.24165, 10.05002,  4.26218, -0.03419, -0.02651,  0.07456,
     *    7.02218,  0.06708,-11.31012, -0.03252, -0.01021, -0.09008,
     *   -3.47588, -2.82534, -4.17668, -0.03719, -0.01519,  0.06507,
     *   -4.02607,-11.19563,-10.52923, -0.00592, -0.01286, -0.00477,
     *  -11.47478, -9.57758,-10.36887,  0.04555, -0.02249,  0.00528,
     *  -14.19283,  7.86422, -8.76821,  0.05758, -0.02398, -0.04075,
     *   14.58890, 36.63322, 27.57497,  0.01358, -0.02316,  0.04723,
     *   12.53122, 29.38367, 21.40356, -0.00071, -0.00553,  0.01484,
     *   18.64421, 26.27327, 18.32704,  0.00578,  0.03349,  0.11249,
     *    4.53014,  6.15099,  7.41935, -0.02860, -0.00395, -0.08394,
     *   14.29422,  9.77569,  2.85689, -0.00107,  0.04263,  0.10739,
     *    7.17246,  4.40242, -1.00794,  0.00089,  0.01436,  0.00626,
     *    7.75487,  5.01928,  4.36908,  0.03952, -0.00614,  0.03039,
     *   10.25556,  8.82631, 24.21745,  0.05492, -0.02968,  0.00177,
     *   21.86648, 24.03218, 39.82008,  0.00490, -0.01281, -0.01715,
     *   19.18547, 23.97403, 34.44242,  0.01978,  0.01564, -0.02434,
     *   26.30614, 14.22662, 31.16844,  0.06495,  0.19590,  0.05631,
     *   21.09354, 25.56253, 29.91629, -0.04397, -0.08079, -0.07903,
     *   28.30202, 16.80567, 38.63945,  0.05864,  0.16407,  0.07622,
     *   22.68528, 25.91119, 40.45979, -0.03185, -0.01039, -0.01206,
     *   31.98703, 24.46271, 38.13028, -0.08738, -0.00280,  0.01322,
     *   46.67387, 16.80171, 22.77190, -0.13643, -0.05277, -0.01982,
     *   13.87476, 20.52521,  5.22899,  0.00485, -0.04357,  0.09970,
     *   21.46928, 13.55871, 10.23772, -0.04457,  0.01307,  0.06589,
     *   16.18181, 16.02960,  9.28661, -0.01225,  0.14623, -0.01570,
     *   18.16289, -1.58230, 14.54986, -0.00375, -0.00087,  0.04991,
     *   10.00292, 11.82653,  0.44417, -0.00768,  0.15940, -0.01775,
     *   12.15362,  5.65843, -1.94855, -0.00689,  0.03851,  0.04851,
     *   -1.25167,  9.05439,  0.74164,  0.01065,  0.03153,  0.02433,
     *  -15.46799, 18.23132, 27.45320,  0.00899, -0.00017,  0.03385,
     *    2.70396, -0.87077,  6.11476, -0.00081,  0.05167, -0.08932,
     *    3.21321, -1.06622,  5.43623,  0.01942,  0.05449, -0.03084,
     *   17.79267, -3.44694,  7.10702,  0.04734, -0.00945,  0.11516,
     *    0.46435,  6.78467,  4.27231, -0.02122,  0.10922, -0.03331,
     *   15.31708,  1.70927,  7.99584,  0.07462,  0.07515,  0.08934,
     *    4.19893,  6.01231,  8.04861,  0.04023,  0.14767, -0.04308,
     *    9.97541,  5.99412,  5.93588,  0.06611,  0.12144, -0.02124,
     *   13.02837, 10.29950, -4.86200,  0.04521,  0.10715, -0.05465,
     *    5.26779,  7.09019,  1.76617,  0.09339,  0.22256,  0.09222,
     *    9.17810,  5.27558,  5.45022,  0.14749,  0.11616,  0.10418,
     *    9.26391,  4.19982, 12.66250,  0.11334,  0.02532,  0.18919,
     *   13.18695,  6.06564, 11.87835,  0.26347,  0.02858,  0.14801,
     *   10.08476,  6.14899, 17.62618,  0.09331,  0.08832,  0.28208,
     *   10.75302,  7.09244, 13.90643,  0.09556,  0.16652,  0.22751,
     *    6.70338, 11.97698, 18.51413,  0.15873,  0.18936,  0.15705,
     *    5.68102, 23.81606, 20.65174,  0.19930,  0.15645,  0.08151,
     *   29.61644,  5.49433, 48.90934,  0.70710,  0.40791,  0.26325,
     *   17.11994, 19.65380, 44.88810,  0.45510,  0.41689,  0.22398,
     *    8.45700, 34.54442, 27.25364,  0.40867,  0.37223,  0.22374,
     *   -2.30305, 32.00660, 47.75799,  0.02178,  0.43626,  0.30187,
     *    8.98134, 33.01820, 33.09674,  0.33703,  0.33242,  0.41156,
     *   14.27619, 20.70858, 50.10005,  0.30115,  0.32570,  0.45061,
     *   14.44685, 16.14272, 45.40065,  0.37552,  0.31419,  0.30129,
     *    6.19718, 18.89559, 28.24927,  0.08864,  0.41627,  0.19993,
     *    7.70847, -2.36281,-21.41381,  0.13766,  0.05113, -0.11631,
     *   -9.07236,  3.76797,-20.49962,  0.03343,  0.08630,  0.00188,
     *   -8.58113,  5.06009, -6.23262,  0.04967,  0.03334,  0.24214,
     *  -27.85742,  8.34615,-27.72532, -0.08935,  0.15905, -0.03655,
     *    2.77234,  0.14626, -4.01786,  0.22338, -0.04478,  0.18650,
     *    5.61364, -3.82235,-16.72282,  0.26456, -0.03119, -0.08376,
     *   13.35847, -6.11518,-16.50327,  0.28957, -0.01345, -0.19223,
     *   -5.37290, -0.09562,-27.27889,  0.00266,  0.22823, -0.35585,
     *  -15.29676,-18.36622,-24.62948, -0.31299, -0.23832, -0.08463,
     *  -23.37099,-13.69954,-26.71177, -0.19654, -0.18522, -0.20679,
     *  -26.33762,-15.96657,-42.51953, -0.13575, -0.00329, -0.28355,
     *  -25.42140,-14.14291,-21.91748, -0.20960, -0.19176, -0.32593,
     *  -23.36042,-23.89895,-46.05270, -0.10336,  0.03030, -0.21839,
     *  -19.46259,-21.27918,-32.38143, -0.17673, -0.15484, -0.11226,
     *  -19.06169,-21.13240,-34.01677, -0.25497, -0.16878, -0.11004,
     *  -18.39463,-16.11516,-19.55804, -0.19834, -0.23271, -0.25699,
     *  -19.93482,-17.56433,-18.58818,  0.06508, -0.18075,  0.02796,
     *  -23.64078,-18.77269,-22.77715, -0.02456, -0.12238,  0.02959,
     *  -12.44508,-21.06941,-19.36011,  0.02746, -0.16329,  0.19792,
     *  -26.34187,-19.78854,-24.06651, -0.07299, -0.03082, -0.03535,
     *  -10.71667,-26.04401,-16.59048,  0.02850, -0.09680,  0.15143,
     *  -18.40481,-23.37770,-16.31450, -0.03989, -0.00729, -0.01688,
     *   -9.68886,-20.59304,-18.46657,  0.01092, -0.07901,  0.03422,
     *   -0.06685,-19.24590,-29.35494,  0.12265, -0.24792,  0.05978,
     *  -15.32341, -9.07320,-13.76101, -0.17018, -0.15122, -0.06144,
     *  -14.68939,-14.82251,-13.65846, -0.11173, -0.14410, -0.07133,
     *  -18.38628,-18.94631,-19.00893, -0.08062, -0.14481, -0.12949,
     *  -16.15328,-17.40999,-14.08705, -0.08485, -0.06896, -0.11583,
     *  -14.50295,-16.91671,-25.25793, -0.06814, -0.13727, -0.12213,
     *  -10.92188,-14.10852,-24.43877, -0.09375, -0.11638, -0.09053,
     *  -11.64716,-14.92020,-19.99063, -0.14792, -0.08681, -0.12085,
     *  -24.09766,-16.14519, -8.05683, -0.24065, -0.05877, -0.23726,
     *  -25.18396,-15.02034,-15.50531, -0.12236, -0.09610, -0.00529,
     *  -15.27905,-19.36708,-12.94046, -0.08571, -0.09560, -0.03544,
     *   -7.48927,-16.00753,-13.02842, -0.07862, -0.10110, -0.05807/
        data coeff2/
     *  -13.06383,-27.98698,-18.80004, -0.05875, -0.03737, -0.11214,
     *  -13.67370,-16.44925,-16.12632, -0.07228, -0.09322, -0.05652,
     *  -22.61245,-21.24717,-18.09933, -0.05197, -0.07477, -0.05235,
     *  -27.09189,-21.85181,-20.34676, -0.05123, -0.05683, -0.07214,
     *  -27.09561,-22.76383,-25.41151, -0.10272, -0.02058, -0.16720/

        do i=1,594 
        	coeff(i)=coeff1(i)
        	enddo
        do i=1,30 
        	coeff(i+594)=coeff2(i)
        	enddo

        call g(param,funct,xl)

        y=0.

        do i=1,index_t
          do il=1,index_l
            kk=index_l*(i-1)+il
            do j=1,nfunc
               ind=nfunc*(kk-1)+j
               bspl4=bspl4_time(i,xt)*bspl4_long(il,xl)
               y=y+bspl4*funct(j)*coeff(ind)
            end do
          end do
        end do

       end
C
C
c        real*8 function bspl4_time(i,x1)
        real function bspl4_time(i,x1)
c       *************************************************
c        implicit REAL*8 (A-H,O-Z)
        implicit REAL (A-H,O-Z)
		 
        integer i,order,j,k
c        real*8 t_t(0:39)
c        real*8 x,b(20,20),x1
        real t_t(0:39)
        real x,b(20,20),x1

        data t_t/
     *          0.00,2.75,4.75,5.50,6.25,
     *          7.25,10.00,14.00,17.25,18.00,
     *          18.75,19.75,21.00,24.00,26.75,
     *          28.75,29.50,30.25,31.25,34.00,
     *          38.00,41.25,42.00,42.75,43.75,
     *          45.00,48.00,50.75,52.75,53.50,
     *          54.25,55.25,58.00,62.00,65.25,
     *          66.00,66.75,67.75,69.00,72.00/

        order=4
        x=x1
        if(i.ge.0) then
          if (x.lt.t_t(i-0)) then
              x=x+24
              end if
          end if
        do j=i,i+order-1
           if(x.ge.t_t(j).and.x.lt.t_t(j+1)) then
               b(j,1)=1
           else
	           b(j,1)=0
           end if
        end do

        do j=2,order
          do k=i,i+order-j
            b(k,j)=(x-t_t(k))/(t_t(k+j-1)-t_t(k))*b(k,j-1)
            b(k,j)=b(k,j)+(t_t(k+j)-x)/(t_t(k+j)-t_t(k+1))*
     &                b(k+1,j-1)
          end do
        end do

        bspl4_time=b(i,order)
        end
C
C
        real function bspl4_long(i,x1)
c        real*8 function bspl4_long(i,x1)
c       *************************************************
c       implicit real*8 (A-H,O-Z) 
       implicit real (A-H,O-Z) 

        integer i,order,j,k
c        real*8 t_l(0:24)
c        real*8 x,b(20,20),x1
        real t_l(0:24)
        real x,b(20,20),x1

        data t_l/
     *          0,10,100,190,200,250,280,310,
     *          360,370,460,550,560,610,640,670,
     *          720,730,820,910,920,970,1000,1030,1080/
       
        order=4
        x=x1
        if(i.ge.0) then
          if (x.lt.t_l(i-0)) then
              x=x+360
              end if
          end if
        do j=i,i+order-1
           if(x.ge.t_l(j).and.x.lt.t_l(j+1)) then
              b(j,1)=1
           else
              b(j,1)=0
           end if
        end do

        do j=2,order
          do k=i,i+order-j
             b(k,j)=(x-t_l(k))/(t_l(k+j-1)-t_l(k))*b(k,j-1)
             b(k,j)=b(k,j)+(t_l(k+j)-x)/(t_l(k+j)-t_l(k+1))*
     &                 b(k+1,j-1)
          end do
        end do

        bspl4_long=b(i,order)
        end
C
C
        subroutine g(param,funct,x)
c       *************************************************
c        implicit real*8 (A-H,O-Z)
        implicit real (A-H,O-Z)

        integer i
c        real*8 param(2),funct(6)
c        real*8 x,a,sigma,gauss,flux,cflux
        real param(2),funct(6)
        real x,a,sigma,gauss,flux,cflux

c       *************************************************
        flux=param(2)
        if(param(2).le.75)  flux=75.
        if(param(2).ge.230) flux=230.
        cflux=flux

        a=0.
        if((param(1).ge.120).and.(param(1).le.240)) a=170.
        if((param(1).ge.120).and.(param(1).le.240)) sigma=60
        if((param(1).le.60).or.(param(1).ge.300)) a=170.
        if((param(1).le.60).or.(param(1).ge.300)) sigma=40

        if((flux.le.95).and.(a.ne.0)) then
           gauss=exp(-0.5*((x-a)**2)/sigma**2)
           cflux=gauss*95.+(1-gauss)*flux
           end if
c       *************************************************

c       *************************************************
        do i=1,6
         funct(i)=0.
        end do
c       *************************************************

c       *************************************************
        if((param(1).ge.135).and.(param(1).le.230)) funct(1)=1
        if((param(1).le.45).or.(param(1).ge.320)) funct(2)=1
        if((param(1).gt.75).and.(param(1).lt.105)) funct(3)=1
        if((param(1).gt.260).and.(param(1).lt.290)) funct(3)=1
c       *************************************************

        if((param(1).ge.45).and.(param(1).le.75)) then  ! W-E
            funct(2)=1.-(param(1)-45.)/30.
            funct(3)=1-funct(2)
            end if
        if((param(1).ge.105).and.(param(1).le.135)) then  ! E-S
            funct(3)=1.-(param(1)-105.)/30.
            funct(1)=1-funct(3)
            end if
        if((param(1).ge.230).and.(param(1).le.260)) then  ! S-E
            funct(1)=1.-(param(1)-230.)/30.
            funct(3)=1-funct(1)
            end if
        if((param(1).ge.290).and.(param(1).le.320)) then  ! E-W
            funct(3)=1.-(param(1)-290.)/30.
            funct(2)=1-funct(3)
            end if

c       *************************************************
        funct(4)=(cflux-140)*funct(1)
        funct(5)=(cflux-140)*funct(2)
        funct(6)=(flux-140)*funct(3)
c       *************************************************

        end
c
c
       SUBROUTINE StormVd(FLAG,iP,AE,SLT,PromptVd,DynamoVd,Vd)
C *******************************************************************
C  Empirical vertical disturbance drifts model
C  After Fejer and Scherliess, JGR, 102, 24047-24056,1997
C*********************************************************************
C  INPUT:
C    AE: AE(in nT) in 1 hour or 15 minute resolution;
C    SLT: Local time(in hrs) for wanted Vd;
C  OUTPUT:
C    PromptVd: Prompt penetration vertical drifts at given conditions;
C    DynamoVd: Disturbane dynamo vertical drifts at given conditions;
C    Vd: PromptVd+DynamoVd;
C*********************************************************************

c       IMPLICIT REAL*8(A-H,O-Z)
       IMPLICIT REAL(A-H,O-Z)
c       REAL*8 AE(1:366*24*4),Coff1(1:5,1:9),Coff15(1:6,1:9)
       REAL AE(1:366*24*4),Coff1(1:5,1:9),Coff15(1:6,1:9)
       INTEGER FLAG 
       DATA Coff1/
     @           0.0124,-0.0168,-0.0152,-0.0174,-0.0704,
     @          -0.0090,-0.0022,-0.0107, 0.0152,-0.0674,
     @           0.0275, 0.0051,-0.0132, 0.0020,-0.0110,
     @          -0.0022, 0.0044, 0.0095, 0.0036,-0.0206,
     @           0.0162, 0.0007, 0.0085,-0.0140, 0.0583,
     @           0.0181, 0.0185,-0.0109,-0.0031,-0.0427,
     @          -0.0057, 0.0002, 0.0086, 0.0149, 0.2637,
     @          -0.0193, 0.0035, 0.0117, 0.0099, 0.3002,
     @          -0.0492,-0.0201, 0.0338, 0.0099, 0.0746/

	 DATA Coff15/
     @	        0.0177, 0.0118,-0.0006,-0.0152,-0.0174,-0.0704,
     @	        0.0051,-0.0074,-0.0096,-0.0107, 0.0152,-0.0674,
     @	        0.0241, 0.0183, 0.0122,-0.0132, 0.0020,-0.0110,
     @	        0.0019,-0.0010, 0.0001, 0.0095, 0.0036,-0.0206,
     @	        0.0170, 0.0183, 0.0042, 0.0085,-0.0140, 0.0583,
     @          0.0086, 0.0189, 0.0200,-0.0109,-0.0031,-0.0427,
     @	       -0.0070,-0.0053,-0.0090, 0.0086, 0.0149, 0.2637,
     @	       -0.0326,-0.0101, 0.0076, 0.0117, 0.0099, 0.3002,
     @	       -0.0470,-0.0455,-0.0274, 0.0338, 0.0099, 0.0746/

CCCCCCCCCCCCCCCCC**Define to variables**CCCCCCCCCCCCCCCCCCCCC
C To 1 h time resolution:
C dAEt_30=AE(t)-AE(t-1 hour);
C dAEt_90=AE(t-1 hour)-AE(t-2 hour);
CC
C To 15 MIN time resolution :
C dAEt_7P5=AE(t)-AE(t-15min);
C dAEt_30=AE(t-15)-AE(t-45min);
C dAEt_75=AE(t-45)-AE(t-105min);
CC
C  Following variables are the same to two resolution: 
C AE1_6=average(AE(1-6hours));
C AE7_12=average(AE(7-12hours));
C AE1_12=average(AE(1-12hours));
C AEd1_6=average(X(AE(1-6hours)-130 nT));
C AEd7_12=average(X(AE(7-12hours)-130 nT));
C AEd1_12=average(X(AE(1-12hours)-130 nT));
C AEd22_28=average(X(AE(22-28hours)-130 nT));
C Here X(a)=a, a>0; =0, a<=0;
C Alfa=0,            AE1_6<200 nT;
C      AE1_6/100-2, 200 nT<AE1_6<200 nT;
C      1,            AE1_6>300 nT;
C Beta=exp(-AE1_12/90),  AE1_12>=70nT;
C      0.46,              AE1_12<70 nT;
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCccccccc
C*****************************************************
CC        FLAG>0--> 1 h time resolution
C**************************************************** 

       IF (FLAG.GT.0) THEN
C 
         dAEt_30=AE(iP)-AE(iP-1)
         dAEt_90=AE(iP-1)-AE(iP-2)
C
         AE1_6=0.0D0
         AEd1_6=0.0D0

         DO i=-1,-6,-1
             AE1_6=AE1_6+AE(iP+i)
             AEd1_6S=AE(iP+i)-130.0D0
             IF (AEd1_6S.LE.0.0D0) AEd1_6S=0.0D0
             AEd1_6=AEd1_6+AEd1_6S
         END DO

         AE1_6=AE1_6/6.0D0
         AEd1_6=AEd1_6/6.0D0
C
         AEd7_12=0.0D0

         DO i=-7,-12,-1
            AEd7_12S=AE(iP+i)-130.0D0
            IF (AEd7_12S.LE.0.0D0) AEd7_12S=0.0D0
            AEd7_12=AEd7_12+AEd7_12S
         END DO

         AEd7_12=AEd7_12/6.0D0
C
         AE1_12=0.0D0

         DO i=-1,-12,-1
            AE1_12=AE1_12+AE(iP+i)
         END DO

         AE1_12=AE1_12/12.0D0
C
         AEd22_28=0.0D0

         DO i=-22,-28,-1
            AEd22_28S=AE(iP+i)-130.0D0
            IF (AED22_28S.LE.0.0D0) AEd22_28S=0.0D0
            AEd22_28=AEd22_28+AEd22_28S 
         END DO

         AEd22_28=AEd22_28/7.0D0
         AEd22_28P=AEd22_28-200.0D0
         IF (AEd22_28P.LE.0.0D0) AEd22_28P=0.0D0
CC
         IF (AE1_6.GT.300.0D0) THEN  
           Alfa=1.0D0
         ELSE IF (AE1_6.GT.200.0D0) THEN
           ALfa=AE1_6/100.0D0-2.0D0
         ELSE 
           ALfa=0.0D0
         ENDIF
CC
         IF (AE1_12.GE.70.0D0) THEN
            Beta=dexp(-AE1_12/90.0D0)
         ELSE
            Beta=0.46D0
         END IF
         PromptVd=0.0D0
         DO J=1,9
            PromptVd=PromptVd +(Coff1(1,J)*dAEt_30 +Coff1(2,J)*dAEt_90
     #                         )*bspl4_ptime(J,SLT)
         END DO
         DynamoVd=0.0D0
         DO J=1,9
            DynamoVd=DynamoVd+
     #               (Coff1(3,J)*AEd1_6+Coff1(4,J)*Alfa*AEd7_12
     #                +Coff1(5,J)*Beta*AEd22_28P)*bspl4_ptime(J,SLT)
         END DO
         Vd=PromptVd+DynamoVd
         RETURN

C 1 h time resolution end;
C********************************************************************
C                  15 min time resolution
C********************************************************************

       ELSE
         dAEt_7P5=AE(iP)-AE(iP-1)
         dAEt_30=AE(iP-1)-AE(iP-3)
         dAEt_75=AE(iP-3)-AE(iP-7)

         AE1_6=0.0D0
         AEd1_6=0.0D0

         DO i=-4,-24,-1
           AE1_6=AE1_6+AE(iP+i)
           AEd1_6s=AE(iP+i)-130.
           IF (AEd1_6s.LE.0.0) AEd1_6s=0.0
           AEd1_6=AEd1_6+AEd1_6S
         ENDDO

         AE1_6=AE1_6/21.0D0
         AEd1_6=AEd1_6/21.0D0
CC
         AEd7_12=0.0D0 
         DO i=-28,-48,-1
            AEd7_12s=AE(iP+i)-130.0
            IF (AEd7_12s.LE.0) AEd7_12s=0.0
            AEd7_12=AEd7_12+AEd7_12S
         ENDDO
         AEd7_12=AEd7_12/21.0D0
CC
         AE1_12=0.0D0
         DO i=-4,-48,-1
            AE1_12=AE1_12+AE(iP+i)
         END DO
         AE1_12=AE1_12/45.0D0
CC 
	  AEd22_28=0.0D0
          DO i=-88,-112,-1
             AEd22_28s=AE(iP+i)-130.
             IF (AEd22_28s.LE.0) AEd22_28s=0.0
	     AEd22_28=AEd22_28+AEd22_28s
	  ENDDO
          AEd22_28=AEd22_28/25.0D0
	  AEd22_28P=AEd22_28-200.0D0
	  IF (AEd22_28P.LE.0.0D0) AEd22_28P=0.0D0

c         AE1_6=0.0D0
c         AEd1_6=0.0D0
c         AEd7_12=0.0D0 
c         AEd22_28P=0.0D0
c         AE1_12=0.0D0
c         dAEt_7P5=400.D0
c         dAEt_30=0.D0
c         dAEt_75=0.D0
CC
  	  IF (AE1_6.GT.300.0D0) THEN  
             Alfa=1.0D0
          ELSE IF (AE1_6.GT.200.0D0) THEN
             ALfa=AE1_6/100.0D0-2.0D0
          ELSE 
             ALfa=0.0D0
          ENDIF
CC
          IF (AE1_12.GE.70.0D0) THEN
             Beta=dexp(-AE1_12/90.0D0)
          ELSE
             Beta=0.46D0
          END IF
CC
          PromptVd=0.0D0
          DO J=1,9
            PromptVd=PromptVd+(Coff15(1,J)*dAEt_7P5+Coff15(2,J)*dAEt_30
     #                      +Coff15(3,J)*dAEt_75)*bspl4_ptime(J,SLT)
          END DO
          DynamoVd=0.0D0
          DO J=1,9
             DynamoVd=DynamoVd +(Coff15(4,J)*AEd1_6+
     #                           Coff15(5,J)*Alfa*AEd7_12+
     #                           Coff15(6,J)*Beta*AEd22_28P
     #                          )*bspl4_ptime(J,SLT)
          END DO
          Vd=PromptVd+DynamoVd
       ENDIF
       RETURN
       END                     
C
C
       real function bspl4_ptime(i,x1)
c       real*8 function bspl4_ptime(i,x1)
C *************************************************

c       IMPLICIT REAL*8 (A-H,O-Z)
       IMPLICIT REAL (A-H,O-Z)

       integer i,order,j,k
c       real*8 t_t(0:27)
c       real*8 x,b(20,20),x1
       real t_t(0:27)
       real x,b(20,20),x1

       data t_t/0.00,3.00,4.50,6.00,9.00,12.0,15.0,18.0,21.0,
     *          24.0,27.0,28.5,30.0,33.0,36.0,39.0,42.0,45.0,
     *          48.0,51.0,52.5,54.0,57.0,60.0,63.0,66.0,69.0,72.0/
C
       order=4
       x=x1
       if(i.ge.0) then
          if (x.lt.t_t(i-0)) then
	       x=x+24
          end if
       end if
       do j=i,i+order-1
	   if(x.ge.t_t(j).and.x.lt.t_t(j+1)) then
	       b(j,1)=1
	   else
	       b(j,1)=0
	   end if
       end do
c
       do j=2,order
          do k=i,i+order-j
            b(k,j)=(x-t_t(k))/(t_t(k+j-1)-t_t(k))*b(k,j-1)
            b(k,j)=b(k,j)+(t_t(k+j)-x)/(t_t(k+j)-t_t(k+1))*b(k+1,j-1)
          end do
       end do
       bspl4_ptime=b(i,order)
       return
       end

C
C
C*********************************************************************
C Spread-F model 
C*********************************************************************
C

       subroutine spreadf_brazil(idoy,month,f107,geolat,osfbr)
**********************************************************************       
*
*    SUBROUTINE CALCULATES PERCENTAGE OF SPREAD F OCCURRENCE OVER 
*    BRAZILIAN SECTOR AS DESCRIBED IN:
*    ABDU ET AL., Advances in Space Research, 31(3), 703-716, 2003
*
*    INPUT:
*       IDOY: DAY OF YEAR (1 TO 365/366)
*       MONTH: MONTH
*       F107: F10.7 cm SOLAR FLUX (DAILY VALUE)
*       GEOLAT: BRAZILIAN GEOGRAPHIC LATITUDE BETWEEN -4 AND -22.5
*
*    OUTPUT:         
*       OSFBR(25): PERCENTAGE OF SPREAD F OCCURRENCE FOR 25 TIME 
*       STEPS FROM LT=18 TO LT=7 ON THE NEXT DAY IN STEPS OF 0.5 HOURS.
*
**********************************************************************
*
        dimension osfbr(25),coef_sfa(684),coef_sfb(684),sosf(2,32,3,12)
        real	daynr,f107,geolat
        common/mflux/kf 
        data coef_sfa/
     *   0.07,0.13,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.05,0.04,0.03
     *  ,0.06,0.07,0.02,0.03,0.03,0.07,0.06,0.07,0.21,0.28,0.34,0.16
     *  ,0.12,0.00,0.02,0.02,0.04,0.05,0.02,0.11,0.19,0.31,0.31,0.11
     *  ,0.14,0.16,0.03,0.00,0.00,0.02,0.00,0.00,0.05,0.55,0.61,0.28
     *  ,0.26,0.10,0.15,0.23,0.07,0.06,0.03,0.03,0.41,0.88,0.89,0.65
     *  ,0.19,0.18,0.17,0.10,0.14,0.15,0.03,0.14,0.46,0.72,0.71,0.53
     *  ,0.57,0.38,0.30,0.14,0.00,0.04,0.03,0.02,0.21,0.84,0.87,0.72
     *  ,0.79,0.60,0.65,0.70,0.29,0.19,0.19,0.32,0.73,0.96,0.99,0.84
     *  ,0.75,0.78,0.79,0.70,0.63,0.24,0.28,0.53,0.75,0.77,0.75,0.85
     *  ,0.78,0.51,0.59,0.24,0.00,0.07,0.05,0.06,0.33,0.92,0.96,0.89
     *  ,0.90,0.84,0.86,0.81,0.33,0.27,0.23,0.47,0.90,1.00,1.00,0.96
     *  ,0.96,0.89,0.92,0.84,0.80,0.27,0.35,0.61,0.81,0.93,0.86,0.97
     *  ,0.84,0.65,0.75,0.25,0.00,0.04,0.08,0.06,0.53,0.93,0.96,0.94
     *  ,0.95,0.84,0.91,0.71,0.18,0.17,0.21,0.42,0.92,0.99,0.97,0.92
     *  ,0.92,0.93,0.92,0.67,0.58,0.21,0.38,0.55,0.83,0.90,0.89,0.97
     *  ,0.84,0.71,0.91,0.21,0.02,0.07,0.03,0.03,0.60,0.95,0.96,0.92
     *  ,0.97,0.91,0.92,0.67,0.11,0.08,0.09,0.23,0.90,0.99,0.99,0.96
     *  ,0.96,0.93,0.98,0.63,0.25,0.08,0.12,0.41,0.79,0.95,0.98,0.99
     *  ,0.86,0.80,0.94,0.22,0.02,0.04,0.03,0.03,0.63,0.95,0.96,0.94
     *  ,0.98,0.90,0.91,0.59,0.10,0.04,0.07,0.15,0.83,0.97,0.97,0.90
     *  ,0.92,0.93,0.95,0.57,0.12,0.03,0.05,0.23,0.74,0.94,0.94,0.99
     *  ,0.84,0.84,0.90,0.24,0.02,0.07,0.07,0.03,0.60,0.95,0.96,0.97
     *  ,0.93,0.82,0.83,0.51,0.08,0.07,0.09,0.09,0.71,0.95,0.92,0.87
     *  ,0.91,0.91,0.89,0.50,0.14,0.03,0.06,0.14,0.61,0.84,0.89,0.94
     *  ,0.77,0.82,0.84,0.34,0.10,0.11,0.12,0.06,0.43,0.87,0.94,0.97
     *  ,0.91,0.77,0.68,0.42,0.06,0.08,0.10,0.04,0.51,0.78,0.71,0.77
     *  ,0.85,0.88,0.77,0.35,0.16,0.05,0.08,0.15,0.53,0.70,0.60,0.89
     *  ,0.85,0.71,0.72,0.26,0.16,0.17,0.08,0.15,0.38,0.73,0.91,0.91
     *  ,0.89,0.68,0.53,0.26,0.06,0.12,0.08,0.09,0.32,0.63,0.67,0.77
     *  ,0.81,0.79,0.59,0.21,0.14,0.03,0.06,0.09,0.23,0.51,0.34,0.79
     *  ,0.88,0.66,0.59,0.16,0.18,0.15,0.16,0.16,0.33,0.67,0.75,0.88
     *  ,0.80,0.64,0.52,0.16,0.04,0.09,0.04,0.09,0.24,0.47,0.53,0.50
     *  ,0.73,0.69,0.48,0.11,0.14,0.03,0.03,0.03,0.20,0.37,0.28,0.54
     *  ,0.81,0.64,0.49,0.18,0.12,0.17,0.16,0.19,0.31,0.57,0.70,0.83
     *  ,0.76,0.57,0.52,0.13,0.04,0.06,0.05,0.08,0.21,0.49,0.47,0.39
     *  ,0.69,0.66,0.43,0.11,0.10,0.02,0.00,0.03,0.16,0.39,0.24,0.35
     *  ,0.77,0.45,0.39,0.10,0.10,0.13,0.15,0.18,0.29,0.57,0.70,0.69
     *  ,0.71,0.49,0.54,0.20,0.05,0.06,0.05,0.06,0.27,0.42,0.36,0.42
     *  ,0.61,0.59,0.50,0.08,0.06,0.02,0.03,0.02,0.16,0.40,0.17,0.31
     *  ,0.68,0.30,0.28,0.13,0.10,0.16,0.14,0.08,0.19,0.50,0.63,0.62
     *  ,0.63,0.45,0.51,0.13,0.06,0.07,0.04,0.06,0.27,0.42,0.28,0.35
     *  ,0.68,0.53,0.57,0.15,0.05,0.00,0.00,0.05,0.31,0.33,0.18,0.22
     *  ,0.59,0.32,0.21,0.06,0.10,0.16,0.12,0.10,0.19,0.41,0.55,0.54
     *  ,0.69,0.43,0.43,0.15,0.06,0.05,0.05,0.08,0.29,0.39,0.23,0.29
     *  ,0.57,0.51,0.56,0.13,0.06,0.00,0.00,0.05,0.34,0.27,0.19,0.24
     *  ,0.49,0.16,0.13,0.09,0.04,0.11,0.11,0.05,0.17,0.32,0.49,0.49
     *  ,0.60,0.42,0.38,0.11,0.06,0.04,0.07,0.07,0.25,0.36,0.21,0.25
     *  ,0.65,0.48,0.53,0.17,0.05,0.00,0.00,0.11,0.29,0.14,0.20,0.22
     *  ,0.44,0.16,0.18,0.07,0.04,0.04,0.07,0.03,0.12,0.23,0.39,0.43
     *  ,0.57,0.40,0.35,0.14,0.06,0.03,0.04,0.07,0.18,0.27,0.14,0.15
     *  ,0.45,0.50,0.50,0.19,0.06,0.00,0.02,0.05,0.26,0.19,0.15,0.18
     *  ,0.23,0.09,0.12,0.06,0.04,0.02,0.02,0.02,0.10,0.03,0.14,0.26
     *  ,0.39,0.34,0.22,0.07,0.03,0.00,0.04,0.01,0.15,0.01,0.04,0.14
     *  ,0.41,0.39,0.35,0.13,0.02,0.00,0.00,0.06,0.17,0.07,0.06,0.14
     *  ,0.07,0.02,0.03,0.00,0.00,0.00,0.00,0.00,0.00,0.01,0.03,0.08
     *  ,0.19,0.14,0.14,0.00,0.03,0.01,0.02,0.00,0.09,0.00,0.01,0.00
     *  ,0.18,0.09,0.16,0.08,0.01,0.00,0.02,0.02,0.15,0.00,0.03,0.04/
*
        data coef_sfb/
     *   0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00
     *  ,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.03,0.00,0.00,0.00,0.00
     *  ,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.02,0.01,0.00,0.00,0.00
     *  ,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00
     *  ,0.00,0.01,0.00,0.00,0.00,0.00,0.00,0.01,0.01,0.00,0.00,0.00
     *  ,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.05,0.03,0.00,0.02,0.00
     *  ,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00
     *  ,0.00,0.04,0.00,0.01,0.00,0.00,0.00,0.01,0.01,0.05,0.00,0.00
     *  ,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.04,0.00,0.03,0.03,0.00
     *  ,0.01,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.01,0.00
     *  ,0.01,0.04,0.04,0.03,0.00,0.01,0.00,0.01,0.00,0.27,0.14,0.06
     *  ,0.05,0.04,0.02,0.00,0.00,0.00,0.00,0.04,0.09,0.48,0.43,0.27
     *  ,0.05,0.04,0.01,0.00,0.00,0.00,0.00,0.00,0.00,0.13,0.16,0.06
     *  ,0.26,0.12,0.29,0.04,0.01,0.02,0.00,0.01,0.08,0.65,0.56,0.45
     *  ,0.43,0.42,0.42,0.09,0.00,0.02,0.00,0.00,0.34,0.67,0.73,0.72
     *  ,0.10,0.05,0.04,0.00,0.01,0.00,0.00,0.00,0.00,0.18,0.39,0.15
     *  ,0.61,0.37,0.51,0.06,0.01,0.02,0.01,0.01,0.18,0.72,0.63,0.80
     *  ,0.77,0.66,0.70,0.19,0.00,0.02,0.02,0.02,0.41,0.68,0.88,0.85
     *  ,0.24,0.11,0.08,0.00,0.01,0.00,0.00,0.00,0.00,0.28,0.51,0.29
     *  ,0.75,0.48,0.57,0.11,0.00,0.02,0.01,0.01,0.19,0.77,0.77,0.88
     *  ,0.89,0.81,0.74,0.21,0.02,0.02,0.02,0.02,0.42,0.71,0.93,0.95
     *  ,0.49,0.30,0.19,0.00,0.00,0.00,0.00,0.01,0.06,0.38,0.64,0.48
     *  ,0.86,0.60,0.62,0.12,0.00,0.02,0.01,0.00,0.18,0.81,0.84,0.94
     *  ,0.88,0.79,0.70,0.26,0.03,0.02,0.02,0.02,0.36,0.61,0.98,0.93
     *  ,0.60,0.46,0.31,0.03,0.00,0.01,0.00,0.00,0.09,0.50,0.71,0.58
     *  ,0.90,0.65,0.66,0.10,0.00,0.02,0.01,0.02,0.15,0.69,0.80,0.86
     *  ,0.84,0.75,0.64,0.09,0.03,0.00,0.00,0.04,0.26,0.54,0.78,0.92
     *  ,0.62,0.59,0.44,0.01,0.00,0.01,0.00,0.00,0.13,0.52,0.77,0.63
     *  ,0.84,0.67,0.63,0.11,0.00,0.00,0.03,0.03,0.18,0.65,0.75,0.84
     *  ,0.81,0.63,0.47,0.06,0.02,0.00,0.00,0.05,0.14,0.49,0.76,0.91
     *  ,0.58,0.63,0.47,0.09,0.00,0.07,0.01,0.04,0.15,0.48,0.68,0.61                     
     *  ,0.79,0.63,0.55,0.12,0.01,0.01,0.02,0.05,0.13,0.57,0.51,0.63
     *  ,0.72,0.54,0.43,0.11,0.02,0.00,0.00,0.09,0.16,0.39,0.59,0.72
     *  ,0.46,0.55,0.39,0.07,0.01,0.03,0.03,0.06,0.15,0.37,0.51,0.50
     *  ,0.61,0.43,0.38,0.11,0.01,0.03,0.02,0.03,0.10,0.38,0.38,0.60
     *  ,0.58,0.42,0.38,0.15,0.02,0.00,0.00,0.11,0.13,0.24,0.41,0.51
     *  ,0.36,0.36,0.21,0.04,0.04,0.03,0.06,0.05,0.06,0.26,0.39,0.43
     *  ,0.43,0.31,0.24,0.09,0.02,0.00,0.02,0.02,0.06,0.24,0.24,0.40
     *  ,0.53,0.19,0.28,0.13,0.02,0.02,0.02,0.09,0.13,0.17,0.24,0.40
     *  ,0.32,0.27,0.17,0.03,0.04,0.02,0.04,0.03,0.06,0.13,0.34,0.36
     *  ,0.42,0.31,0.20,0.09,0.03,0.00,0.02,0.01,0.07,0.19,0.24,0.32
     *  ,0.44,0.10,0.23,0.13,0.03,0.02,0.00,0.09,0.12,0.17,0.21,0.33
     *  ,0.32,0.23,0.16,0.00,0.02,0.04,0.03,0.03,0.06,0.15,0.29,0.34
     *  ,0.36,0.26,0.28,0.07,0.01,0.00,0.01,0.02,0.04,0.19,0.17,0.27
     *  ,0.34,0.14,0.26,0.09,0.03,0.02,0.00,0.06,0.13,0.09,0.16,0.22
     *  ,0.29,0.21,0.15,0.00,0.02,0.02,0.02,0.03,0.11,0.16,0.26,0.28
     *  ,0.29,0.22,0.27,0.05,0.01,0.00,0.01,0.01,0.02,0.14,0.09,0.19
     *  ,0.25,0.19,0.25,0.07,0.02,0.02,0.00,0.00,0.09,0.07,0.12,0.15
     *  ,0.23,0.20,0.16,0.00,0.03,0.04,0.00,0.00,0.08,0.09,0.21,0.18
     *  ,0.22,0.21,0.19,0.02,0.02,0.00,0.01,0.03,0.04,0.08,0.06,0.14
     *  ,0.20,0.12,0.23,0.02,0.00,0.02,0.00,0.00,0.05,0.05,0.09,0.11
     *  ,0.14,0.16,0.13,0.00,0.03,0.04,0.00,0.00,0.05,0.05,0.04,0.09
     *  ,0.09,0.13,0.16,0.03,0.01,0.00,0.01,0.03,0.01,0.03,0.04,0.10
     *  ,0.14,0.09,0.17,0.02,0.02,0.00,0.00,0.02,0.04,0.04,0.03,0.07
     *  ,0.00,0.11,0.09,0.00,0.02,0.00,0.00,0.00,0.01,0.00,0.02,0.02
     *  ,0.02,0.06,0.11,0.00,0.00,0.00,0.00,0.01,0.00,0.00,0.01,0.02
     *  ,0.06,0.09,0.13,0.00,0.02,0.00,0.03,0.02,0.03,0.01,0.02,0.01/
*
        daynr=idoy*1.0
*
        kf=month
*
        do i=1,32
          do j=1,3
            do k=1,12
              sosf(1,i,j,k)=0.
              sosf(2,i,j,k)=0.           
            enddo
          enddo
        enddo
*         
        kc=0
        do i=5,23
          do j=1,3
            do k=1,12
              kc=kc+1
              sosf(1,i,j,k)=coef_sfa(kc)
              sosf(2,i,j,k)=coef_sfb(kc) 
            enddo
          enddo
        enddo
           
        kk=0    
      do it=1600,3200,50      
        slt=it/100.
        osft=0.
        do i=1,23
          il=i+3
	  if(il.gt.23)il=il-23
          do j=1,12
	    jl=j+2
	    if(jl.gt.12)jl=jl-12
            do m=1,3
	      ml=m+1
	      if(ml.gt.3)ml=ml-3
              do l=1,2
                bspl4=bspl4t(i,slt)*bspl2s(j,daynr)*
     &	          bspl2l(l,geolat)*bspl2f(m,f107)
                osft=osft+bspl4*sosf(l,il,ml,jl)           
              enddo
            enddo
          enddo
        enddo
        if(slt.gt.17.98.and.slt.lt.30.01)then
          kk=kk+1
          osfbr(kk)=osft 
          endif
      enddo
*
*
      do iii=1,25 
         if(osfbr(iii).gt.1.) osfbr(iii)=1.
         if(osfbr(iii).lt.0.) osfbr(iii)=0.
         enddo
      return
      end
*
**********************************************************************
      function bspl4t(i,t1)
**********************************************************************
      dimension tt(0:78),b(30,30)
*
      data tt/16.00,16.50,17.00,17.50,18.00,18.50,19.00,19.50,20.00,
     &  20.50,21.00,22.00,23.00,24.00,25.00,26.00,27.00,27.50,28.00,
     &  28.50,29.00,29.50,30.00,30.50,31.00,32.00,40.00,40.50,41.00,
     &  41.50,42.00,42.50,43.00,43.50,44.00,44.50,45.00,46.00,47.00,
     &  48.00,49.00,50.00,51.00,51.50,52.00,52.50,53.00,53.50,54.00,
     &  54.50,55.00,56.00,64.00,64.50,65.00,65.50,66.00,66.50,67.00,
     &  67.50,68.00,68.50,69.00,70.00,71.00,72.00,73.00,74.00,75.00,
     &  75.50,76.00,76.50,77.00,77.50,78.00,78.50,79.00,80.00,88.00/
*
      t=t1
      if(i.ge.0.and.t.lt.tt(i)) then
         t=t+24.
      endif
      do j=i,i+4-1
        if(t.ge.tt(j).and.t.lt.tt(j+1)) then
           b(j,1)=1.
        else
           b(j,1)=0.
        endif
      enddo
      do j=2,4
        do k=i,i+4-j
          b(k,j)=(t-tt(k))/(tt(k+j-1)-tt(k))*b(k,j-1)
          b(k,j)=b(k,j)+(tt(k+j)-t)/(tt(k+j)-tt(k+1))*b(k+1,j-1)
        enddo
      enddo
*
      bspl4t=b(i,4)
*
      return
*
      end
*
******************************************************************
      function bspl2s(i,t1)
******************************************************************
      dimension ts(0:36),b(30,30)
*
      data ts/ 15,46,74,105,135,166,196,227,258,288,319,349,
     *        380,411,439,470,500,531,561,592,623,653,684,714,
     *        745,776,804,835,865,896,926,957,988,1018,1049,
     *        1079,1110/
*
      t=t1
      if(i.ge.0.and.t.lt.ts(i)) then
        t=t+365.
        endif
      do j=i,i+2-1
        if(t.ge.ts(j).and.t.lt.ts(j+1)) then
           b(j,1)=1.
        else
           b(j,1)=0.
        endif
      enddo
*
      do j=2,2
        do k=i,i+4-j
          b(k,j)=(t-ts(k))/(ts(k+j-1)-ts(k))*b(k,j-1)
          b(k,j)=b(k,j)+(ts(k+j)-t)/(ts(k+j)-ts(k+1))*b(k+1,j-1)
        enddo
      enddo
*
      bspl2s=b(i,2)
      return
      end
*
*******************************************************************
      function bspl2l(i,t1)
*******************************************************************
      dimension ts(0:6),b(30,30)
*
      data ts/ 94.,112.5,454.,472.5,814.,832.5,1174./
*
      t=t1
      if(i.ge.0.and.t.lt.ts(i)) then
        t=t+360.
        endif
      do j=i,i+2-1
        if(t.ge.ts(j).and.t.lt.ts(j+1)) then
          b(j,1)=1.
        else
          b(j,1)=0.
        endif
      enddo
*
      do j=2,2
        do k=i,i+2-j
          b(k,j)=(t-ts(k))/(ts(k+j-1)-ts(k))*b(k,j-1)
          b(k,j)=b(k,j)+(ts(k+j)-t)/(ts(k+j)-ts(k+1))*b(k+1,j-1)
        enddo
      enddo
*
      bspl2l=b(i,2)
*
      return
*
      end
*
*************************************************************************
      function bspl2f(i,t1)
*************************************************************************
       dimension ts(0:9),b(30,30),
     &     ifnodes1(12),ifnodes2(12),ifnodes3(12)
       common/mflux/kf
*
      data ifnodes1 / 78, 77, 75, 79, 80, 77, 78, 80, 76, 81, 78, 78/
      data ifnodes2 /144,140,139,142,139,146,142,139,150,151,150,157/
      data ifnodes3 /214,211,201,208,213,220,203,209,213,215,236,221/ 
*
c      kf=month
      ts(0)=ifnodes1(kf)
      ts(1)=ifnodes2(kf)
      ts(2)=ifnodes3(kf)
      ts(3)=ts(1)+367
      ts(4)=ts(2)+367
      ts(5)=ts(3)+367
      ts(6)=ts(4)+367
      ts(7)=ts(5)+367
      ts(8)=ts(6)+367
      ts(9)=ts(7)+367
*
      t=t1
      if(i.ge.0.and.t.lt.ts(i)) then
        t=t+367.
        endif
      do j=i,i+2-1
        if(t.ge.ts(j).and.t.lt.ts(j+1)) then
          b(j,1)=1.
        else
          b(j,1)=0.
        endif
      enddo
*
      do j=2,2
        do k=i,i+2-j
          b(k,j)=(t-ts(k))/(ts(k+j-1)-ts(k))*b(k,j-1)
          b(k,j)=b(k,j)+(ts(k+j)-t)/(ts(k+j)-ts(k+1))*b(k+1,j-1)
        enddo
      enddo
*
      bspl2f=b(i,2)
      return
      end
C
C
C ********************************************************************
C Sporadic-E: occurrence probability model
C ********************************************************************
C
C
      SUBROUTINE ESPROB(PF107Y,MAGY,INVDIP,MLON,MLT,DDD,PF107,KP,ESP)
C---------------------------------------------------------------------
C Empirical model of Es probability occurence in the ionosphere
C with inclusion of solar activity.
C Based on spherical harmonics approximation of measured
C Es occurence from radio occultation (all available data 2001-2023) 
C For days between seasons centred at
C (21.3. = 80; 21.6. = 172; 23.9. 266; 21.12. = 355) Es is
C interpolated by harmonic functions.
C Inputs: 
C   PF107Y - 0 .. PF107 variantion NOT included
C            1 .. PF107 variation included
C   MAGY - 0 .. magnetic variantion NOT included
C          1 .. magnetic variation included      
C   INVDIP - "mix" coordinate of the dip latitude and of
C            the invariant latitude;
C   MLON - magnetic longitude;  range <0.0;360.0)
C   MLT - magnetic local time (central dipole)
C         in hours, range <0;24)
C   DDD - day of year; range <0;365>
C   PF107 = F10.7_365 (only used if PF107Y=1)
C   KP - 24h sum 3hr KP index  (only used if MAGY=1)  
C Output: 
C   ESP - Es probability occurence (percentage)
C
C Versions:2024 (FORTRAN)  
C
C Authors of the model
C                V. Truhlik at al.
C Author of the code:
C         Vladimir Truhlik
C         Institute of Atm. Phys.
C         Bocni II, 1401/1a
C         14100 Praha 4, Sporilov
C         Czech Republic
C         e-mail: vtr@ufa.cas.cz
C
C 04/04/2024 INVDIP computation was moved to function INVDPC_OLD ... db
C 04/04/2024 DTOR, DPI obtained through COMMON/CONST/............... db
C-----------------------------------------------------------------------

      REAL INVDIP,MLON,MLT,PF107,KP,ESP
      INTEGER CRD,PF107Y,MAGY,DDD,SEZDAY,XDAY
      INTEGER MIRREQ(81)
      REAL D(24,4,289),ASOL(24,4,81),BSOL(24,4,81)
      REAL AMAG(24,4,49),BMAG(24,4,49)
      DOUBLE PRECISION B(8),A
      REAL DPI,DTOR,ASA,INVL,RINVL,INVDP,RDIPL,ALFA,BETA
      REAL RMLT,RCOLAT
      REAL CES(289),CESSOL(81),CESMAG(49)
      INTEGER SEZA,SEZB,DDDA,DDDB,DDDD
      INTEGER MLON1,MLON2,MLONI1,MLONI2
      REAL ESPAM1,ESPBM1,ESPAM2,ESPBM2,ESPA,ESPB
      REAL ESSAM1,ESSBM1,ESSAM2,ESSBM2
      REAL ESMAM1,ESMBM1,ESMAM2,ESMBM2
      INTEGER I
      COMMON/ARGEXP/ARGMAX    /CONST/DTOR,DPI
      DATA B/1.259921D0  ,-0.1984259D0 ,-0.04686632D0,-0.01314096D0,
     &      -0.00308824D0, 0.00082777D0,-0.00105877D0, 0.00183142D0/
C///////////////////// coefficients - main model part //////////////////
      CALL KOFDES(D)                 
C///////////////// thresholds for solar activity ///////////////////////
      IF (PF107 .GT. 250) PF107=250
      IF (PF107 .LT.  65) PF107=65
C///////////////////////////////////////////////////////////////////////

      INVDP=INVDIP

      RMLT=MLT*DTOR*15.0
      RCOLAT=(90.0-INVDP)*DTOR
      CALL SPHARM_IK1(CES,289,16,16,RCOLAT,RMLT)
      IF (PF107Y.EQ.1) THEN 
        CALL KOFESS(ASOL,BSOL)   
        CALL SPHARM_IK1(CESSOL,81,8,8,RCOLAT,RMLT)
      END IF  
      IF (MAGY.EQ.1) THEN 
        CALL KOFESM(AMAG,BMAG)   
        CALL SPHARM_IK1(CESMAG,49,6,6,RCOLAT,RMLT)
      END IF  

C     longitudinal sector
      MLON1=INT(MLON/15)*15
      MLON2=MOD(MLON1+15,360)
      MLONI1=MLON1/15+1
      MLONI2=MLON2/15+1
     
C     21.3. - 20.6.
      IF ((DDD .GE. 80) .AND. (DDD .LT. 172)) THEN
       SEZA=1
       SEZB=2
       DDDA=80
       DDDB=172
       DDDD=DDD
       FUN=0
      END IF
C     21.6. - 22.9.
      IF ((DDD .GE. 172) .AND. (DDD .LT. 266)) THEN
       SEZA=2
       SEZB=3
       DDDA=172
       DDDB=266
       DDDD=DDD
       FUN=1
      END IF
C     23.9. - 20.12.
      IF ((DDD .GE. 266) .AND. (DDD .LT. 355)) THEN
       SEZA=3
       SEZB=4
       DDDA=266
       DDDB=355
       DDDD=DDD
       FUN=0
      END IF
C     21.12. - 20.3.
      IF ((DDD .GE. 355) .OR. (DDD .LT. 80)) THEN
       SEZA=4
       SEZB=1
       DDDA=355
       DDDB=365+80
       DDDD=DDD
        IF (DDD .GE. 355) THEN
         DDDD=DDD
        ELSE
         DDDD=DDD+365
        END IF
        FUN=1
      END IF
C     model Es main
      ESPAM1=0.0
      ESPBM1=0.0
      ESPAM2=0.0
      ESPBM2=0.0
         
      DO 10 I=1,289
       ESPAM1=ESPAM1+CES(I)*D(MLONI1,SEZA,I)
       ESPAM2=ESPAM2+CES(I)*D(MLONI2,SEZA,I)
       ESPBM1=ESPBM1+CES(I)*D(MLONI1,SEZB,I)
10     ESPBM2=ESPBM2+CES(I)*D(MLONI2,SEZB,I)
      
      
C     model Es solar
      ESSAM1=0.0
      ESSBM1=0.0
      ESSAM2=0.0
      ESSBM2=0.0
      IF (PF107Y.EQ.1) THEN
      DO 20 I=1,81
       ESSAM1=ESSAM1+CESSOL(I)*
     &   (ASOL(MLONI1,SEZA,I)*PF107+BSOL(MLONI1,SEZA,I))
       ESSAM2=ESSAM2+CESSOL(I)*
     &   (ASOL(MLONI2,SEZA,I)*PF107+BSOL(MLONI2,SEZA,I))
       ESSBM1=ESSBM1+CESSOL(I)*
     &   (ASOL(MLONI1,SEZB,I)*PF107+BSOL(MLONI1,SEZB,I))
20    ESSBM2=ESSBM2+CESSOL(I)*
     &   (ASOL(MLONI2,SEZB,I)*PF107+BSOL(MLONI2,SEZB,I))
      END IF
      
C     model Es magnetic
      ESMAM1=0.0
      ESMBM1=0.0
      ESMAM2=0.0
      ESMBM2=0.0
      
      IF (MAGY.EQ.1) THEN
      DO 30 I=1,49
       ESMAM1=ESMAM1+CESMAG(I)*
     &   (AMAG(MLONI1,SEZA,I)*KP+BMAG(MLONI1,SEZA,I))
       ESMAM2=ESMAM2+CESMAG(I)*
     &   (AMAG(MLONI2,SEZA,I)*KP+BMAG(MLONI2,SEZA,I))
       ESMBM1=ESMBM1+CESMAG(I)*
     &   (AMAG(MLONI1,SEZB,I)*KP+BMAG(MLONI1,SEZB,I))
30    ESMBM2=ESMBM2+CESMAG(I)*
     &   (AMAG(MLONI2,SEZB,I)*KP+BMAG(MLONI2,SEZB,I))
      END IF
      
      ESPAM1=10**ESPAM1+ESSAM1+ESMAM1
      ESPBM1=10**ESPBM1+ESSBM1+ESMBM1
      ESPAM2=10**ESPAM2+ESSAM2+ESMAM2
      ESPBM2=10**ESPBM2+ESSBM2+ESMBM2
      
      ESPA=(ESPAM2-ESPAM1)/15.0*(MLON-MLON1)+ESPAM1
      ESPB=(ESPBM2-ESPBM1)/15.0*(MLON-MLON1)+ESPBM1
      
      IF (FUN .EQ. 0) THEN
      SEZDAY=(DDDB-DDDA)
      XDAY=DDDD-DDDA
      SINDAY=SIN(DPI/2.0*XDAY/SEZDAY)
      ESP=(ESPB-ESPA)*SINDAY+ESPA
      ELSE
       SEZDAY=(DDDB-DDDA)
       XDAY=DDDD-DDDA
       COSDAY=COS(DPI/2.0*XDAY/SEZDAY)
       ESP=(ESPA-ESPB)*COSDAY+ESPB
      END IF
C    
      IF (ESP.LT.0) ESP=0.0
      IF (ESP.GT.1) ESP=1.0
      ESP=ESP*100.0
300   CONTINUE
      RETURN
      END
C
C
      SUBROUTINE KOFDES(DOUT)
C////////////////////////////////coefficients - main Es model part//////////////////////
C version sep 2024
C        index:long,seas,koef
      REAL DOUT(24,4,289)
      REAL D(24,4,289)
C     long 0deg, mar_eq
      DATA (D(1,1,J),J=1,289)/-9.26979E-01,
     &       -2.12370E-01,-5.86826E-01, 3.78689E-02,-3.02271E-01,
     &       -2.34967E-02, 4.44726E-01, 9.95809E-02, 1.77955E-01,
     &       -5.04161E-02, 1.31756E-01, 1.37449E-02,-1.29431E-01,
     &       -9.19302E-02,-6.45787E-02,-5.74362E-02,-7.42976E-02,
     &       -2.12453E-01,-6.63903E-03, 1.91268E-02, 1.05219E-02,
     &        5.02374E-02,-5.11608E-03, 4.77781E-02, 5.15810E-04,
     &        2.96555E-03, 2.55396E-03,-2.25386E-02, 1.01134E-03,
     &       -1.77939E-02, 4.99899E-03,-1.38190E-02,-2.62961E-03,
     &       -2.49355E-01,-6.99442E-02,-1.58768E-02,-2.35781E-02,
     &       -1.03661E-02, 3.58653E-03,-4.47569E-02, 5.26272E-03,
     &       -2.61984E-02,-5.64519E-04,-4.19132E-03, 4.50914E-03,
     &       -4.38899E-03, 8.42088E-04, 4.54430E-03, 4.50818E-03,
     &        1.09605E-02,-2.85386E-02, 1.54301E-02, 4.49976E-03,
     &        1.43610E-05,-3.81330E-04, 2.93824E-03,-1.27994E-04,
     &        3.30790E-03, 3.00201E-03,-2.44794E-03, 1.14035E-03,
     &       -4.53941E-04,-2.34305E-04,-1.26517E-03, 5.15024E-03,
     &        9.80134E-03,-3.01427E-02,-1.23814E-02,-7.64859E-03,
     &       -5.14997E-03, 1.06615E-04,-1.45366E-03,-4.29595E-03,
     &       -1.31847E-03,-1.49268E-03,-7.81440E-04, 3.40071E-05,
     &        9.57829E-04, 5.62788E-04, 4.46520E-02, 5.67362E-03,
     &       -6.17619E-03,-1.91698E-03, 5.73550E-04,-1.52297E-03,
     &       -1.35069E-03,-8.06337E-04, 8.18955E-04,-2.53199E-04,
     &       -1.54048E-04, 1.51549E-04,-2.42209E-04,-2.28438E-04,
     &        4.81124E-02,-1.33111E-02, 5.71921E-03,-1.58735E-04,
     &       -9.72826E-04,-4.20571E-04, 6.52298E-04,-6.87593E-04,
     &       -3.24961E-04, 4.17847E-04,-1.55053E-04, 1.50247E-04,
     &        1.15189E-04, 2.26711E-04,-1.46553E-03, 1.05932E-02,
     &       -7.38548E-03, 1.56221E-03,-1.21110E-03,-5.20954E-04,
     &       -2.45065E-04,-2.89107E-05,-9.75002E-05,-2.77260E-05,
     &        1.73618E-04, 1.18512E-04, 5.84794E-05,-8.52876E-03,
     &        3.95209E-03,-1.12376E-04, 6.81081E-04,-6.40964E-04,
     &        3.64120E-04,-8.28963E-05, 1.91962E-04,-1.98785E-04,
     &       -2.03608E-07,-8.67654E-06,-3.27511E-06, 9.35388E-06,
     &       -5.28789E-03,-1.81934E-03, 1.23373E-03,-2.51110E-04,
     &       -9.25674E-05,-4.41059E-05,-1.38328E-05,-7.36159E-06,
     &       -2.56376E-05, 4.56967E-05, 5.46292E-05, 4.61236E-05,
     &       -1.29897E-02, 9.21900E-04,-1.70414E-04,-6.96281E-04,
     &       -9.21315E-05,-4.96295E-04, 4.37247E-05,-1.38701E-05,
     &       -2.85899E-06, 9.38446E-07, 3.59235E-05,-8.41028E-06,
     &       -7.44411E-03,-1.10293E-03, 1.59051E-04,-1.99922E-04,
     &       -2.56924E-04, 1.27273E-04,-1.51678E-05,-1.22535E-05,
     &       -5.04971E-05,-4.58018E-05,-1.00912E-05, 7.54934E-03,
     &       -3.05669E-03, 4.33130E-04,-5.43645E-05, 2.10143E-04,
     &       -5.47580E-05,-5.86995E-05, 7.69169E-07, 1.65034E-05,
     &        5.31807E-06,-1.86552E-05, 5.41095E-03, 3.39205E-04,
     &       -5.42917E-04,-2.48121E-04, 9.57815E-05, 1.37172E-04,
     &        3.70121E-05, 6.48199E-05, 1.55350E-05, 2.78562E-05,
     &        1.49936E-02, 1.68139E-03, 1.33692E-04, 1.51773E-04,
     &        7.25008E-05,-5.20036E-07, 6.78296E-05, 1.29478E-05,
     &        4.73932E-05, 3.09407E-07, 4.09618E-03, 6.94320E-04,
     &       -3.02243E-04, 1.32688E-04, 5.97371E-05, 1.02069E-04,
     &        9.96651E-06, 8.25954E-06, 1.87127E-05, 1.24525E-02,
     &        1.12750E-03, 2.10849E-04, 1.35501E-04, 1.71123E-05,
     &        8.14550E-05,-3.52952E-05, 2.08820E-05,-1.72398E-05,
     &        6.22208E-03, 7.85079E-04, 5.36126E-04, 3.06300E-04,
     &        7.80119E-05, 4.51768E-05,-6.23455E-06, 3.85153E-05,
     &       -1.88127E-03, 7.37103E-04, 4.34707E-04, 3.14707E-05,
     &        1.03029E-04, 2.77007E-05, 1.78014E-07, 1.60636E-06,
     &        8.14984E-05,-2.07641E-03,-2.47274E-04, 1.25126E-04,
     &       -6.38481E-06, 4.77195E-05, 5.30126E-06,-1.05113E-03,
     &        7.30933E-04,-1.63337E-04, 1.03936E-05, 8.26535E-05,
     &        2.37504E-05, 1.05807E-05,-1.51084E-03,-2.13358E-03,
     &       -5.04175E-05, 1.20689E-04, 2.04799E-06,-3.03376E-06,
     &        2.74414E-03,-9.15263E-04,-6.23776E-04,-1.02874E-04,
     &       -4.79265E-05,-2.12812E-05,-2.76465E-03,-4.80318E-05,
     &        5.04621E-04, 1.13680E-04, 4.32309E-05, 6.89043E-03,
     &        1.30545E-03, 4.39702E-06,-8.81578E-05,-5.28149E-05,
     &       -2.20934E-03,-4.11874E-04, 4.61125E-04, 9.56946E-05,
     &        4.38635E-03, 1.40991E-03, 1.20127E-04,-6.44111E-06,
     &       -5.84159E-03,-7.41120E-04, 1.79407E-04, 5.36415E-03,
     &        1.77809E-03, 3.38660E-05, 6.55392E-03, 9.04649E-04,
     &       -2.50985E-03,-9.97894E-04, 1.42523E-02, 3.62735E-03/
C     long 15deg, mar_eq
      DATA (D(2,1,J),J=1,289)/-9.37838E-01,
     &       -1.91957E-01,-6.11000E-01, 4.04588E-02,-2.62770E-01,
     &       -2.33927E-02, 4.28238E-01, 7.63797E-02, 1.82573E-01,
     &       -4.95359E-02, 1.58967E-01, 1.72834E-02,-1.17723E-01,
     &       -9.41656E-02,-6.52370E-02,-5.58074E-02,-7.81999E-02,
     &       -2.23714E-01, 3.07198E-03, 1.50292E-02, 1.67451E-02,
     &        4.52530E-02,-4.70400E-03, 5.43189E-02,-9.23645E-03,
     &       -3.24013E-03,-4.24839E-03,-1.90672E-02,-5.29709E-04,
     &       -1.35854E-02, 5.01691E-03,-1.21640E-02, 8.50714E-04,
     &       -2.77470E-01,-6.15199E-02,-3.21865E-02,-8.60142E-03,
     &        7.41799E-04,-4.01521E-03,-4.12050E-02, 7.60463E-03,
     &       -2.75853E-02,-3.27267E-03,-1.35378E-03, 5.24946E-03,
     &       -2.67279E-03, 2.80236E-03, 1.88685E-03, 3.80119E-03,
     &        2.73746E-02,-1.46534E-02, 2.21114E-02, 5.51788E-03,
     &       -2.20256E-03, 3.30068E-03, 1.02464E-03,-1.82325E-03,
     &        2.88451E-03, 2.05363E-03,-3.17236E-03, 7.86228E-04,
     &       -1.21324E-03,-3.28664E-04,-9.86785E-04, 8.80561E-03,
     &       -7.80138E-04,-2.95453E-02,-6.88298E-03,-7.49828E-03,
     &       -6.22959E-03, 1.68638E-03,-2.50424E-03,-3.86277E-03,
     &       -4.71346E-04,-2.85754E-03,-8.78716E-04, 4.42513E-04,
     &        9.97278E-04, 5.70822E-04, 3.23233E-02, 2.45758E-03,
     &       -1.09950E-02,-2.31747E-03, 7.78818E-04,-2.13173E-03,
     &       -2.41678E-03,-8.44565E-04, 5.27863E-04,-6.44301E-04,
     &        1.47598E-04,-9.64967E-05,-6.04903E-05,-1.95007E-04,
     &        6.12862E-02,-1.00904E-02, 9.53619E-03, 2.97886E-04,
     &       -1.78665E-03,-9.38896E-04,-3.84749E-04,-1.75173E-03,
     &        8.23213E-05,-9.48796E-05,-3.90043E-04,-2.37721E-05,
     &        3.45187E-05, 1.09895E-04, 3.22832E-03, 8.13976E-03,
     &       -7.02356E-03, 1.91166E-03,-6.77566E-04,-4.53146E-04,
     &        2.40712E-04, 2.22196E-04, 2.16635E-05, 1.53403E-04,
     &        2.48683E-04, 1.17429E-04, 5.54375E-05,-1.98076E-02,
     &        4.53798E-03,-2.08039E-03, 1.09187E-04, 4.40029E-05,
     &       -1.96601E-05,-2.62760E-04, 5.28899E-05,-1.46688E-04,
     &       -6.73817E-05, 4.85320E-05, 3.29176E-05, 1.31052E-05,
     &        5.23901E-03,-1.50244E-03, 2.73166E-03, 4.74761E-04,
     &        1.31586E-04, 1.73647E-04, 4.49637E-05, 1.52027E-05,
     &        3.22218E-05, 1.16505E-05,-4.02311E-05,-3.55571E-06,
     &       -1.76147E-02, 1.12820E-03,-1.09158E-03,-7.78631E-04,
     &       -6.54797E-04,-1.17556E-05, 4.53795E-05,-8.29626E-05,
     &       -5.90805E-05,-4.56638E-05, 1.87404E-05,-7.01842E-05,
     &       -1.39474E-02,-1.96509E-03, 2.72794E-04,-1.67568E-04,
     &        8.13991E-05, 6.60486E-05,-4.26309E-05, 2.72858E-05,
     &       -8.68061E-06, 1.94640E-05, 8.21619E-06, 4.41936E-03,
     &       -3.74743E-03, 1.27842E-04,-4.18492E-04, 9.87583E-05,
     &        5.98877E-05,-7.22436E-05, 1.26239E-05, 2.36812E-05,
     &       -3.23549E-06,-3.72962E-05,-3.30464E-03, 3.00825E-04,
     &       -5.53814E-04,-1.72678E-04, 1.14833E-04, 1.29793E-05,
     &        6.10683E-05, 3.59312E-05, 4.46236E-05, 2.83356E-05,
     &        6.88722E-03,-2.93412E-04,-6.30645E-04, 1.28338E-04,
     &        1.80871E-04,-2.89434E-05, 2.06354E-05,-2.19311E-05,
     &        4.63361E-05,-1.82639E-05, 6.44769E-04, 5.59855E-04,
     &        5.53012E-04, 2.48259E-04, 1.38913E-04, 8.13938E-05,
     &        7.90359E-05, 1.42862E-05, 2.84840E-05, 6.89640E-03,
     &       -6.63230E-04,-5.75264E-04, 5.10391E-05,-1.18120E-04,
     &        4.42049E-06,-3.39642E-05, 2.27025E-05, 5.95754E-08,
     &       -1.87801E-03, 1.21296E-03, 5.00247E-04, 2.72779E-04,
     &        5.22147E-05, 3.52003E-05, 2.04714E-05, 2.01068E-05,
     &       -8.73327E-04, 4.82016E-04, 2.78724E-04,-7.81662E-05,
     &        3.62104E-05,-1.15075E-05,-5.34230E-06,-4.55735E-06,
     &       -2.66102E-03,-9.39233E-04, 8.92092E-05, 2.00584E-04,
     &       -9.06655E-05, 1.59928E-05, 1.06292E-05,-3.36439E-03,
     &        1.40178E-03,-3.37154E-04,-1.24689E-04, 1.00162E-04,
     &        4.59768E-05, 1.26488E-05, 9.24952E-04,-3.86992E-04,
     &        2.01795E-04, 1.16729E-04,-4.06639E-05,-4.77268E-06,
     &        2.29460E-04,-1.07520E-03,-3.89407E-04, 7.82548E-06,
     &       -5.00467E-05, 4.86591E-06, 4.38610E-03, 3.55312E-04,
     &        1.70986E-04, 5.39268E-06, 2.16296E-05, 7.35649E-03,
     &        1.07296E-03, 2.08655E-04, 9.01445E-05,-2.78370E-05,
     &       -1.34169E-03, 7.37723E-05, 8.58189E-05,-1.08802E-05,
     &        6.81260E-03, 9.07805E-04, 4.36311E-05, 7.17964E-06,
     &       -1.86037E-03,-7.76513E-04,-1.01104E-05, 7.41756E-03,
     &        7.84422E-04,-9.14571E-05, 2.24942E-03, 1.00500E-03,
     &       -9.13815E-05,-5.51899E-04, 7.39861E-03, 5.38067E-04/
C     long 30deg, mar_eq
      DATA (D(3,1,J),J=1,289)/-9.47126E-01,
     &       -1.93044E-01,-5.97703E-01, 4.53466E-02,-2.13294E-01,
     &        2.34506E-03, 4.10839E-01, 1.77240E-02, 1.67525E-01,
     &       -6.42598E-02, 1.86315E-01, 2.95461E-02,-1.26776E-01,
     &       -6.34829E-02,-2.51498E-02,-5.88648E-02,-6.39997E-02,
     &       -2.08214E-01, 4.10210E-03, 3.15410E-03, 1.62342E-02,
     &        3.99413E-02, 1.41325E-02, 6.12584E-02,-1.83703E-02,
     &       -3.03163E-03,-7.44152E-03,-1.57061E-02,-2.91950E-03,
     &       -1.22188E-02, 2.74578E-03,-9.47546E-03, 3.57001E-03,
     &       -2.76513E-01,-6.89014E-02,-6.23386E-02,-6.45252E-04,
     &        1.04122E-02,-6.81253E-03,-3.44910E-02, 6.84244E-03,
     &       -3.51234E-02,-4.74152E-03,-2.47419E-03, 2.91318E-03,
     &       -2.73057E-03, 3.67091E-03,-7.46308E-04, 3.95099E-03,
     &        5.80716E-02, 1.04817E-02, 3.26471E-02, 3.83555E-03,
     &        2.77638E-03, 7.66121E-03,-1.34902E-03,-1.98270E-03,
     &        3.79079E-03, 6.70761E-04,-2.21308E-03, 3.93277E-04,
     &       -1.89902E-03, 1.43867E-04,-8.47970E-05, 2.07186E-02,
     &       -2.35879E-02,-2.87696E-02,-3.10644E-04,-6.83324E-03,
     &       -4.03395E-03, 2.22676E-03,-3.31695E-03,-2.90582E-03,
     &        2.84136E-04,-3.56960E-03, 2.48557E-04,-1.68340E-04,
     &        5.09340E-04, 7.49433E-05, 3.28821E-02,-5.49649E-04,
     &       -1.28093E-02,-3.70858E-03, 9.07332E-04,-1.45068E-03,
     &       -1.90994E-03,-2.26331E-04,-2.84055E-04,-3.80271E-04,
     &        1.34379E-04,-2.35703E-04, 7.85500E-05,-4.87937E-05,
     &        7.68271E-02,-5.87493E-03, 1.19236E-02, 3.12966E-04,
     &       -1.09725E-03,-1.61309E-03,-1.34254E-03,-1.60621E-03,
     &        1.62759E-04,-7.88987E-04,-4.19274E-04,-2.18152E-04,
     &       -2.30326E-04,-1.28231E-05, 1.11542E-02,-2.53920E-03,
     &       -8.25888E-03, 3.65172E-04,-1.31819E-03,-5.54137E-04,
     &        2.35805E-04,-1.10374E-04, 7.18238E-06, 4.26476E-05,
     &        1.58096E-04, 1.01542E-04, 9.67808E-05,-1.92460E-02,
     &        5.65438E-03,-3.45951E-03, 4.52249E-04,-1.46697E-04,
     &       -3.48484E-04, 1.57713E-04, 1.39077E-04,-8.13960E-05,
     &       -3.13623E-05, 5.94148E-05, 8.21515E-05, 2.88853E-05,
     &        3.69660E-03,-2.29372E-04, 3.05761E-03, 9.13031E-05,
     &        4.85171E-04, 1.05162E-04, 1.35619E-04, 1.67125E-05,
     &        5.63513E-05, 3.85443E-06,-4.99948E-05,-1.23818E-06,
     &       -2.60151E-02,-2.57709E-03,-2.19660E-03,-5.38526E-04,
     &       -8.69092E-04, 1.31047E-04,-6.95054E-05,-1.18944E-04,
     &       -6.51287E-05,-3.99079E-05,-1.28369E-05,-4.22382E-05,
     &       -1.28511E-02, 1.54466E-04, 6.17291E-04,-1.96384E-04,
     &        2.66822E-04,-1.15344E-04, 1.22415E-05, 2.23076E-05,
     &        2.25828E-05, 4.88787E-05, 1.45532E-05,-1.16861E-03,
     &       -1.11635E-03,-1.77372E-04,-3.34992E-04, 1.90832E-04,
     &       -3.78586E-06,-6.40656E-05, 4.31738E-06,-5.71706E-06,
     &       -1.85737E-05,-1.94805E-05,-6.62921E-03, 6.55996E-05,
     &       -1.01731E-03,-3.08290E-04,-7.31384E-05,-8.42236E-05,
     &       -2.95595E-05, 2.03141E-07, 1.39788E-05, 1.80193E-05,
     &        1.35205E-02, 3.79100E-04,-2.52335E-04, 3.71465E-04,
     &        2.03073E-04,-2.51946E-05, 9.29531E-06,-2.37746E-05,
     &        2.77902E-05,-1.29389E-05,-1.26136E-03,-1.01562E-03,
     &        2.71214E-04, 1.88792E-07, 3.02364E-05,-2.56759E-05,
     &        5.86198E-05, 7.58762E-06, 1.22224E-05, 7.82288E-03,
     &       -1.05907E-03,-8.25904E-04,-6.71845E-06,-6.43308E-05,
     &       -7.94324E-05, 2.15006E-05, 2.07048E-05, 2.64423E-05,
     &        3.92023E-03, 9.33028E-04, 5.57222E-04, 1.14883E-04,
     &        1.19696E-04, 1.34238E-05, 5.46564E-05, 1.48242E-05,
     &       -4.42080E-04,-1.98018E-04,-1.58964E-04,-2.60791E-04,
     &       -1.73949E-04,-6.34382E-05,-3.43627E-06,-4.52518E-06,
     &        3.22275E-03, 1.45959E-03, 8.66036E-04, 2.96811E-04,
     &        8.24614E-05, 1.22882E-05, 1.47133E-05,-5.47152E-03,
     &        2.77602E-04, 1.95639E-05,-1.05555E-04, 8.00566E-05,
     &        1.37204E-05, 1.05555E-05, 2.84920E-04, 1.15714E-03,
     &        1.17087E-05,-1.39831E-04, 1.91788E-05,-1.68177E-06,
     &        1.12955E-03,-1.16850E-03,-1.52444E-04, 6.03947E-05,
     &        7.10085E-05, 5.22437E-05,-9.78083E-04, 1.12410E-03,
     &        2.29350E-04,-1.11482E-04,-2.53932E-05, 7.42321E-03,
     &        9.63217E-04, 2.29800E-04, 3.37589E-06, 3.90481E-05,
     &       -1.53259E-03, 8.20303E-04, 1.30307E-04,-4.53442E-05,
     &        7.99912E-03, 4.66233E-05, 2.19671E-05,-7.33057E-05,
     &       -4.31939E-03,-3.98552E-05,-1.12733E-04, 8.27448E-03,
     &        2.76252E-04, 2.51730E-04,-6.73600E-03, 2.91686E-04,
     &       -2.69618E-03,-7.51027E-04, 1.05988E-02,-2.41021E-03/
C     long 45deg, mar_eq
      DATA (D(4,1,J),J=1,289)/-9.76672E-01,
     &       -1.97402E-01,-5.48124E-01, 2.33946E-02,-2.04168E-01,
     &        2.65059E-02, 3.79250E-01, 2.47948E-02, 1.20115E-01,
     &       -6.82040E-02, 2.02266E-01,-9.68131E-03,-1.51633E-01,
     &        3.40560E-02,-1.40555E-02,-4.93897E-02,-1.05292E-01,
     &       -1.72079E-01, 5.25008E-03, 2.32185E-03, 1.43799E-02,
     &        3.60128E-02, 3.27843E-02, 6.46453E-02,-1.03361E-02,
     &        2.91556E-03,-5.77387E-03,-1.53343E-02,-2.97992E-03,
     &       -1.42899E-02,-1.34900E-03,-4.29927E-03, 7.30890E-03,
     &       -2.57311E-01,-7.13702E-02,-8.38850E-02, 8.73371E-03,
     &        1.86953E-02,-4.91648E-03,-2.57907E-02, 3.24482E-03,
     &       -3.66372E-02,-4.93113E-03,-5.48294E-03,-4.07464E-03,
     &       -3.42173E-03, 8.19794E-03, 3.46967E-03, 7.29420E-03,
     &        7.17951E-02, 1.35824E-02, 3.35985E-02, 1.52856E-03,
     &        5.33333E-03, 7.53132E-03,-4.19567E-03, 4.78192E-05,
     &        3.13067E-03,-7.77206E-04,-2.66444E-04, 5.69154E-04,
     &       -1.39392E-03, 3.83310E-04,-1.89733E-04, 3.87384E-02,
     &       -3.62823E-02,-3.03983E-02,-3.55070E-03,-6.81952E-03,
     &        3.13834E-04,-4.66926E-05,-3.34561E-03,-2.52960E-03,
     &        7.72905E-04,-3.75777E-03, 4.40307E-04,-1.14398E-03,
     &        1.21828E-04,-2.04333E-04, 3.70602E-02,-5.04690E-03,
     &       -1.04304E-02,-3.32593E-03, 1.58241E-03,-7.34264E-04,
     &       -6.64253E-04,-6.92979E-05,-1.19516E-04,-1.34940E-04,
     &       -6.00942E-05,-2.16579E-04, 2.58961E-04, 1.79652E-04,
     &        8.68801E-02,-8.83075E-03, 8.69991E-03,-2.75252E-03,
     &       -1.37676E-03,-1.99921E-03,-2.13206E-03,-2.37357E-04,
     &       -4.02210E-04,-5.72752E-04,-2.55231E-04,-1.09421E-05,
     &       -7.22358E-05, 4.48391E-05, 1.03318E-02,-4.93942E-03,
     &       -6.73518E-03, 1.10987E-03,-1.03074E-03, 3.85216E-04,
     &       -6.56560E-05,-2.47325E-04,-4.88794E-05, 4.86552E-06,
     &        4.45055E-05,-1.35780E-05, 7.07287E-05,-1.71705E-02,
     &        2.68618E-03,-4.47293E-03, 5.23091E-04,-1.97971E-04,
     &       -2.50746E-04, 2.97499E-04, 2.10889E-04, 1.00495E-05,
     &       -1.98531E-05,-2.79630E-06, 2.53270E-05, 7.66202E-05,
     &       -1.34590E-03,-1.36180E-03, 3.14800E-03,-5.29360E-05,
     &        2.89254E-04,-9.34470E-05, 1.41830E-04,-9.19816E-05,
     &        6.71950E-06, 2.04046E-05, 4.61348E-05, 2.96498E-05,
     &       -3.15916E-02,-2.22059E-03, 2.29376E-04, 1.05409E-03,
     &        4.38439E-04, 9.93076E-05, 1.14938E-07,-4.15838E-05,
     &        4.18065E-05, 2.37773E-05, 1.16705E-05, 1.56041E-05,
     &       -1.41115E-02, 1.68325E-03, 8.07965E-04,-2.75956E-04,
     &       -5.28632E-05,-6.24344E-05, 1.79436E-05, 3.33573E-05,
     &        2.81916E-05, 2.24453E-05, 6.62019E-06,-1.18984E-03,
     &       -2.24503E-04, 7.83018E-04, 1.78561E-04, 5.41143E-04,
     &       -1.28955E-04,-4.73323E-05,-5.92032E-05,-3.45762E-05,
     &       -2.26725E-05, 6.68308E-07,-5.16106E-03, 9.12714E-04,
     &       -1.05521E-03,-2.07725E-04,-1.28456E-04,-1.65141E-05,
     &       -1.71408E-05, 6.09251E-05, 8.59873E-06, 2.11543E-05,
     &        1.01827E-02, 3.34471E-04, 1.69498E-04,-6.85877E-05,
     &       -3.58478E-05,-9.02315E-05,-1.26333E-06,-7.33717E-06,
     &        1.41711E-05,-1.00032E-05,-1.95479E-04,-9.16629E-04,
     &       -7.30328E-05, 2.10885E-04, 1.53121E-04, 3.43025E-05,
     &        2.71605E-05, 4.27756E-06,-5.06851E-06, 8.42037E-03,
     &        2.36378E-03,-6.04490E-05, 1.33374E-04,-8.02184E-05,
     &       -6.38093E-05,-1.10840E-05,-5.31053E-06,-5.16994E-06,
     &        9.26740E-03,-9.01307E-05, 2.76394E-04, 1.09140E-04,
     &        1.18748E-04, 2.58807E-05, 1.42393E-05, 9.10453E-06,
     &        3.01583E-03, 8.30685E-04, 1.50781E-04,-6.55956E-05,
     &       -1.67788E-04,-5.86759E-05,-3.70748E-05,-2.09228E-05,
     &        9.36996E-03, 1.38422E-03, 3.03861E-04, 8.23068E-05,
     &        6.88460E-05, 1.40071E-05,-1.51686E-05, 1.07671E-03,
     &       -5.20495E-04, 2.96714E-04,-3.63386E-05, 4.94565E-05,
     &       -5.26303E-05,-1.08884E-05, 2.16551E-03, 2.53925E-03,
     &        8.86522E-05,-2.98598E-05, 9.95384E-05, 4.27979E-05,
     &        3.50211E-03, 2.13732E-04, 1.98456E-04,-1.12094E-05,
     &        1.38539E-04, 5.02402E-05,-1.41656E-03, 1.23927E-03,
     &        2.24900E-04,-1.58547E-05, 1.46233E-06, 9.67760E-03,
     &        3.10738E-03, 1.95759E-04, 1.35729E-04, 8.86166E-05,
     &       -4.37377E-03,-9.76672E-04,-1.15175E-04,-1.11216E-04,
     &       -1.08106E-03, 9.69580E-04,-3.24528E-06, 3.57379E-06,
     &       -2.35675E-03,-8.61087E-04, 1.12171E-06,-7.29240E-03,
     &       -8.73593E-04, 1.84624E-04,-6.48239E-03, 3.49486E-04,
     &       -8.89601E-03,-3.87695E-04, 1.72711E-03,-3.39091E-03/
C     long 60deg, mar_eq
      DATA (D(5,1,J),J=1,289)/-1.00704E+00,
     &       -1.90575E-01,-4.98947E-01,-2.44555E-02,-2.06728E-01,
     &        9.23665E-02, 3.58361E-01, 4.65661E-02, 6.27876E-02,
     &       -4.99411E-02, 2.38747E-01,-1.07562E-01,-9.33899E-02,
     &        5.25954E-02,-2.58126E-02,-5.19626E-02,-1.05246E-01,
     &       -1.40386E-01, 3.12471E-03, 3.32478E-03, 1.93093E-02,
     &        3.45980E-02, 3.58321E-02, 6.40802E-02,-2.54364E-03,
     &        1.59618E-02,-1.10715E-02,-1.10824E-02,-5.61932E-03,
     &       -1.55843E-02,-9.25331E-03,-2.74473E-03, 7.45049E-03,
     &       -2.53704E-01,-7.99813E-02,-9.66894E-02, 1.46897E-02,
     &        1.25111E-02, 8.94398E-05,-1.33876E-02, 8.49885E-03,
     &       -3.35600E-02,-2.95378E-03,-6.03165E-03,-8.63788E-03,
     &       -4.40520E-03, 2.38658E-03, 3.42595E-03, 5.32068E-03,
     &        5.69699E-02, 5.19119E-03, 3.52101E-02, 1.99803E-03,
     &        6.02707E-03, 5.47344E-03,-5.01218E-03, 1.22188E-03,
     &        1.89497E-03,-1.00825E-03,-2.71554E-04,-2.85571E-04,
     &       -1.24823E-03, 4.79166E-04,-1.17437E-03, 3.55086E-02,
     &       -3.70263E-02,-2.57032E-02,-7.01241E-03,-7.76676E-03,
     &        3.27640E-03,-9.93962E-04,-1.54963E-03,-2.28700E-03,
     &        4.59859E-04,-3.30856E-03, 1.29215E-05,-1.47309E-03,
     &       -4.31908E-04,-1.11061E-04, 3.29232E-02,-7.32786E-03,
     &       -8.27111E-03,-6.83779E-04, 2.56732E-03, 9.10127E-04,
     &       -1.94711E-04,-2.20388E-04, 2.28955E-04,-1.14670E-04,
     &       -3.42578E-04,-4.95240E-05, 3.37204E-04, 2.74631E-04,
     &        9.69248E-02,-9.86924E-03, 7.52383E-03,-3.80841E-03,
     &       -2.95703E-03,-1.60309E-03,-2.51837E-03, 3.17727E-04,
     &       -5.90687E-04,-5.32225E-05,-1.87250E-04, 1.10500E-04,
     &        1.30966E-04, 7.23210E-05, 1.75810E-02, 1.46132E-03,
     &       -3.93321E-03, 1.15395E-03, 1.93908E-04, 1.05064E-03,
     &        4.22202E-04,-9.07629E-05, 2.50349E-04,-8.03521E-05,
     &        5.59390E-05,-1.34055E-04, 4.75093E-05,-1.87360E-02,
     &        1.81591E-03,-3.83023E-03, 6.79998E-04,-1.39313E-04,
     &        2.22281E-04, 1.29500E-04, 7.13072E-05, 5.41543E-05,
     &        3.85615E-06,-4.41086E-05,-3.11915E-05, 3.72610E-05,
     &        8.24797E-03,-3.36251E-03, 2.35566E-03,-5.79648E-04,
     &       -2.23639E-04,-3.49743E-04, 1.85919E-04,-1.06077E-04,
     &       -4.84458E-06,-9.78148E-06, 1.22878E-05, 2.45769E-06,
     &       -2.77384E-02, 4.61343E-03, 2.89028E-03, 1.90014E-03,
     &        7.75622E-04, 3.53259E-04, 1.51513E-04, 3.21752E-05,
     &        5.77124E-05,-9.11887E-06, 5.65747E-05, 2.58831E-05,
     &       -1.37303E-02,-5.68924E-04, 7.45056E-05,-5.06519E-04,
     &       -1.71825E-04,-6.21601E-05, 5.79925E-06, 5.32467E-05,
     &        5.35058E-05, 2.56539E-05, 1.68433E-05,-2.19921E-04,
     &        2.08441E-03, 8.21580E-04, 1.85971E-04, 2.07950E-04,
     &       -1.23279E-04, 4.15436E-06,-6.90287E-05,-3.64574E-05,
     &       -4.85931E-05, 1.41111E-05,-9.61746E-03,-8.27904E-05,
     &       -1.49011E-03,-4.02911E-04,-1.18463E-04,-1.35851E-04,
     &       -8.59833E-05, 3.30560E-05,-1.80156E-06, 8.98733E-06,
     &       -6.03858E-03,-1.08268E-03, 1.97668E-04,-2.80160E-04,
     &        9.84410E-05,-5.64593E-06, 2.14534E-05,-4.96932E-06,
     &        1.72853E-05, 3.87322E-06,-5.49178E-03,-1.72924E-03,
     &       -1.26663E-03,-1.13079E-04,-3.51077E-05,-3.34237E-05,
     &       -2.00779E-05, 3.99445E-06,-6.38674E-06, 2.82936E-03,
     &        2.67372E-03, 3.97255E-04,-9.20335E-05,-3.42697E-06,
     &       -3.91521E-06,-3.18780E-05,-1.36456E-05,-2.14589E-05,
     &        3.73567E-03,-1.91711E-03,-8.56800E-04,-1.88918E-05,
     &       -8.69243E-05,-4.38090E-05,-3.14037E-05,-3.10829E-06,
     &        7.62165E-04,-1.59098E-04,-2.01440E-04,-5.53239E-05,
     &       -7.15846E-05,-4.13841E-05,-3.69881E-05,-1.33415E-05,
     &        7.53349E-03, 9.96131E-04,-3.45009E-04,-2.00505E-04,
     &       -6.25953E-05,-2.41850E-05,-3.30209E-05,-1.05970E-03,
     &       -1.00790E-04,-2.90068E-04,-1.70236E-04,-2.82631E-05,
     &       -4.38605E-05,-3.44202E-05, 4.23929E-03, 4.10984E-04,
     &       -1.47425E-04, 2.67108E-05, 6.74478E-05,-5.78980E-06,
     &        5.27886E-03, 9.89909E-04,-3.81373E-04,-1.75796E-04,
     &       -1.34011E-05,-4.22886E-05, 5.38587E-03, 1.07569E-03,
     &        5.28465E-04, 1.86419E-04, 4.50047E-05, 6.73536E-03,
     &        2.41863E-03, 9.26378E-05, 1.21670E-05, 8.28664E-05,
     &       -7.62477E-03,-9.12104E-04,-1.08340E-04, 1.25015E-04,
     &        2.13031E-03, 4.66486E-04,-1.76768E-04, 1.42091E-04,
     &       -5.04688E-03,-3.35600E-04, 3.54990E-04,-7.84161E-03,
     &       -7.87438E-04, 1.40478E-05,-1.73404E-03, 9.80305E-04,
     &       -7.17367E-03, 2.08330E-04,-7.55367E-03,-2.64275E-03/
C     long 75deg, mar_eq
      DATA (D(6,1,J),J=1,289)/-1.00858E+00,
     &       -1.77620E-01,-4.45638E-01,-5.76441E-02,-1.91599E-01,
     &        1.70226E-01, 3.41537E-01, 2.64732E-02, 8.56120E-03,
     &       -9.96809E-03, 2.29330E-01,-1.57761E-01,-2.83696E-02,
     &        3.22808E-02,-3.76526E-02,-3.92724E-02,-1.12622E-01,
     &       -1.38996E-01, 1.48233E-02, 1.91322E-02, 1.63750E-02,
     &        3.50808E-02, 2.99199E-02, 5.75778E-02,-1.99863E-03,
     &        2.24907E-02,-1.31836E-02,-1.19687E-02,-6.72269E-03,
     &       -1.34748E-02,-1.18892E-02,-2.69078E-03, 4.45565E-03,
     &       -2.65885E-01,-7.39805E-02,-9.32781E-02, 9.83099E-03,
     &        8.42906E-03, 5.35198E-03,-2.36077E-03, 9.77658E-03,
     &       -3.73123E-02,-4.43210E-03,-5.92001E-03,-1.04410E-02,
     &       -4.05730E-03, 5.77658E-05, 3.04815E-03, 3.83872E-03,
     &        3.31695E-02, 7.50163E-03, 4.56287E-02, 1.22863E-03,
     &        1.03423E-02, 3.82562E-03,-3.86684E-03, 1.47850E-03,
     &        4.03754E-03,-3.43899E-04, 2.23903E-05, 2.09124E-04,
     &       -9.80947E-04, 9.15642E-04,-1.22865E-03, 2.72322E-02,
     &       -3.04521E-02,-1.61813E-02,-2.21818E-03,-4.21343E-03,
     &        4.95192E-03, 4.82439E-04, 3.87463E-04,-3.04394E-03,
     &       -7.89368E-04,-3.22303E-03,-3.33717E-04,-1.34004E-03,
     &       -6.83309E-05, 4.23186E-04, 2.78755E-02,-1.06184E-02,
     &       -7.94563E-03, 2.67682E-03, 1.81518E-03, 1.06872E-03,
     &       -8.59468E-04,-1.29624E-04, 1.71268E-04,-9.43107E-05,
     &       -1.67756E-04, 2.62333E-04, 2.35100E-04, 3.37621E-05,
     &        1.06055E-01,-1.09719E-02, 9.25333E-03,-3.52061E-03,
     &       -3.86800E-03,-1.72698E-03,-2.37101E-03, 5.18186E-04,
     &       -5.68995E-04,-1.01604E-04,-2.39050E-04, 5.25285E-05,
     &        1.13256E-04, 5.24273E-05, 3.18851E-03, 8.33724E-03,
     &       -2.35867E-03, 6.59519E-04, 8.13754E-04, 6.66448E-04,
     &        6.17529E-04,-1.86907E-04, 3.51334E-04,-3.73352E-05,
     &        1.02430E-04,-1.53024E-04, 3.86002E-05,-1.94512E-02,
     &       -1.30480E-04,-4.00166E-03, 1.21582E-03,-8.05260E-04,
     &        1.67630E-04,-1.38734E-04,-8.68700E-05,-2.06806E-05,
     &       -6.52967E-05,-6.89629E-05, 3.04921E-05, 3.69066E-05,
     &        6.11600E-03,-4.38797E-03, 2.86402E-03,-1.46399E-03,
     &       -1.26095E-04,-4.95424E-04, 6.53561E-05,-1.46333E-04,
     &        9.82086E-06,-3.94755E-06,-1.07768E-05, 2.33900E-05,
     &       -2.53564E-02, 6.08682E-03, 2.51827E-03, 1.28012E-03,
     &        7.33365E-04, 5.04358E-04, 2.52949E-04, 6.24703E-05,
     &        8.42255E-05, 2.09498E-05, 7.89138E-05, 1.42273E-05,
     &       -1.22037E-02,-7.41028E-04, 2.39439E-04,-3.73772E-04,
     &       -2.75884E-04,-1.65844E-04,-4.69732E-05, 1.15044E-05,
     &        6.84392E-05, 1.44095E-05, 2.84385E-05,-3.15591E-03,
     &       -8.86478E-04,-5.32229E-04,-2.57794E-04, 3.72931E-05,
     &       -7.85836E-05, 2.27320E-05,-9.38288E-06,-7.16474E-06,
     &       -3.67015E-05, 3.10651E-05,-1.16685E-02, 9.46840E-04,
     &       -1.35501E-03,-1.51359E-04,-8.22197E-05,-7.35205E-05,
     &       -1.03078E-04, 2.47821E-05,-2.02636E-06,-3.26505E-06,
     &       -7.11171E-03,-1.99050E-03,-4.60880E-04,-4.43176E-04,
     &       -7.30943E-05,-1.81209E-05,-2.47186E-05, 1.10872E-05,
     &        6.04832E-06, 2.77182E-06,-9.07655E-03, 4.85176E-05,
     &       -8.26934E-04,-1.02729E-04, 2.30630E-05,-3.66607E-05,
     &       -2.00923E-05,-1.36984E-05,-2.13438E-05, 5.94863E-03,
     &        5.28260E-04, 1.61485E-04,-3.51839E-04,-7.83467E-05,
     &       -7.05282E-05,-3.31406E-05,-1.50808E-05, 1.10537E-06,
     &        8.49122E-03,-8.38638E-04,-1.04160E-04, 1.72257E-04,
     &        2.56767E-05,-1.00808E-05, 1.00571E-05, 8.15965E-06,
     &       -8.14730E-03, 2.78299E-04,-3.77579E-04,-1.54462E-04,
     &       -6.74898E-05,-6.92624E-05,-1.54101E-05,-2.70381E-05,
     &        3.41218E-03, 1.68964E-03,-4.62193E-04,-1.27894E-04,
     &       -5.60447E-05, 2.53178E-05,-1.02595E-05,-3.69626E-03,
     &        1.16343E-03,-1.73437E-04,-2.21847E-05, 4.54857E-06,
     &        7.60501E-06,-5.53976E-06,-1.03513E-02,-2.21319E-04,
     &       -2.29112E-04,-3.31239E-05, 3.51520E-05, 2.12621E-06,
     &        4.56945E-03, 1.25676E-03,-6.94206E-04,-1.47212E-04,
     &       -2.68466E-05,-4.21254E-05,-1.21144E-02, 8.79894E-04,
     &        4.29879E-04, 2.04183E-04,-1.59338E-05, 1.06786E-03,
     &        1.01292E-03,-1.58496E-04,-1.33446E-04, 1.59961E-05,
     &       -1.43157E-02,-5.08611E-04,-1.01510E-04, 1.48693E-04,
     &        3.04545E-03,-6.22852E-04,-8.55143E-05, 2.07194E-05,
     &       -6.71647E-03, 8.57236E-04, 3.21101E-04, 2.12860E-03,
     &       -1.49464E-03,-6.02143E-05,-5.33955E-03, 9.63025E-04,
     &       -5.50800E-03,-1.67098E-03,-5.68959E-03,-1.91796E-03/
C     long 90deg, mar_eq
      DATA (D(7,1,J),J=1,289)/-9.85338E-01,
     &       -1.89220E-01,-3.82271E-01,-7.23400E-02,-1.95193E-01,
     &        1.66714E-01, 3.10173E-01, 4.92851E-02, 5.56040E-03,
     &        6.96005E-03, 2.05019E-01,-1.64794E-01,-1.66878E-02,
     &       -9.08016E-04, 1.63591E-02,-2.83856E-03,-8.53037E-02,
     &       -1.63969E-01, 2.53826E-02, 3.47408E-02, 1.41165E-02,
     &        3.63415E-02, 2.66080E-02, 4.92237E-02, 9.37058E-04,
     &        2.61236E-02,-6.10809E-03,-1.03003E-02,-3.69467E-03,
     &       -8.78013E-03,-1.36016E-02,-3.57424E-03, 2.64481E-03,
     &       -2.69082E-01,-5.31999E-02,-8.51016E-02, 3.72407E-03,
     &        1.21359E-02, 4.08525E-03,-2.06510E-03, 1.24821E-02,
     &       -3.54268E-02,-5.02289E-03,-5.88683E-03,-1.28213E-02,
     &       -6.59076E-03,-1.06127E-03, 2.44333E-03, 6.71039E-03,
     &        1.99110E-02, 7.01174E-03, 5.10594E-02, 1.66424E-04,
     &        1.31932E-02, 2.59713E-03,-8.35177E-04, 1.14260E-03,
     &        5.38748E-03,-9.49493E-04, 3.17050E-05, 6.25813E-04,
     &        7.69428E-05, 8.57701E-04,-3.59366E-04, 7.72799E-03,
     &       -2.74395E-02,-1.23418E-02,-2.02208E-03,-2.35183E-03,
     &        4.00659E-03,-7.10171E-04, 3.65556E-04,-4.29022E-03,
     &       -4.89320E-04,-3.14062E-03, 2.52325E-04,-3.33619E-04,
     &        3.99629E-04, 4.25488E-04, 3.29036E-02,-1.81274E-02,
     &       -8.91778E-03, 4.07921E-03, 9.66232E-04, 8.53095E-04,
     &       -4.96335E-04, 4.74665E-04, 6.41588E-04, 2.95372E-04,
     &        6.81390E-05, 7.24314E-05, 7.67732E-05,-2.28937E-04,
     &        1.00015E-01,-1.20451E-02, 1.37216E-02,-3.66470E-03,
     &       -3.86656E-03,-2.07433E-03,-1.66284E-03, 5.65200E-04,
     &       -3.17019E-04,-1.70971E-04,-2.27650E-04,-5.26509E-05,
     &        1.30993E-04, 2.17395E-05,-1.45413E-02, 6.73748E-03,
     &       -4.91963E-03, 3.96019E-04, 9.24386E-04, 3.82952E-04,
     &        6.78932E-04,-1.56322E-04, 9.42460E-05, 5.08041E-05,
     &       -3.35357E-05,-6.36079E-05,-3.71790E-05,-1.94837E-02,
     &       -1.77959E-03,-3.42542E-03, 1.38505E-03,-6.46605E-04,
     &        2.84401E-04, 2.92284E-05, 1.38457E-04, 1.78060E-04,
     &        1.24363E-04, 2.85406E-06, 3.22321E-05, 7.63271E-05,
     &        3.93763E-03,-3.68323E-03, 2.82875E-03,-9.71919E-04,
     &        1.39056E-04,-2.86192E-04, 1.15005E-04,-9.63673E-05,
     &       -1.90230E-06,-1.81446E-05, 3.15951E-06,-1.16475E-06,
     &       -4.00716E-02,-3.51375E-05,-1.14495E-04,-5.67032E-04,
     &        2.88115E-04, 2.63982E-04, 3.19461E-04,-4.29935E-05,
     &        3.55498E-05, 2.33313E-05, 1.33586E-05,-1.81198E-05,
     &       -2.93744E-03, 1.33760E-03, 1.66806E-03, 6.01906E-04,
     &        1.37721E-04, 1.12006E-04,-4.40779E-05,-1.01601E-05,
     &        3.15745E-05, 3.09730E-05, 2.94242E-05,-8.44421E-03,
     &       -3.77029E-03,-1.24150E-04,-5.57680E-04, 7.93275E-05,
     &       -2.02524E-05, 6.92367E-05, 5.72557E-05,-4.69309E-06,
     &        7.87350E-06, 3.24539E-05,-6.15982E-03, 1.28299E-03,
     &       -1.22802E-03, 8.73835E-06,-1.11511E-05, 9.92142E-05,
     &       -3.09973E-05, 1.91292E-05,-9.54912E-06,-4.93827E-06,
     &        6.51828E-04,-1.34485E-03, 4.49549E-04,-3.35515E-04,
     &       -4.34694E-05, 1.43184E-04,-3.55742E-05, 1.80358E-05,
     &       -8.54089E-06, 2.97783E-06,-7.90440E-03, 1.37935E-03,
     &       -5.89939E-04,-2.47004E-04, 6.55331E-05, 4.63585E-05,
     &        2.59309E-05,-3.57159E-06,-6.49393E-06, 1.37060E-02,
     &       -2.82328E-03,-7.93918E-04,-3.12354E-04,-1.76685E-04,
     &       -4.13053E-05,-1.60039E-05, 2.51173E-06, 1.95410E-05,
     &        1.05078E-02, 7.86557E-04, 8.63444E-04, 2.35734E-04,
     &        1.24162E-04, 4.75325E-05, 3.29530E-05, 2.74260E-06,
     &       -3.38881E-03,-2.97912E-04,-1.43863E-04,-1.93874E-04,
     &       -7.04794E-06,-1.09823E-05, 6.45389E-06,-6.36282E-06,
     &        5.30054E-03, 1.64839E-03,-1.99368E-04, 1.88434E-05,
     &        1.01146E-05, 6.24737E-05,-1.39093E-05, 2.39775E-03,
     &        3.04627E-04, 6.96850E-05, 1.30272E-04, 7.99771E-05,
     &        1.22994E-05, 1.01900E-05,-8.51836E-05, 7.51825E-04,
     &       -4.14836E-04,-1.13536E-04, 2.18273E-05, 2.65057E-05,
     &        2.00039E-03, 5.54205E-04,-2.11076E-05, 1.35739E-04,
     &        9.28663E-05, 3.60262E-05,-7.59781E-03, 5.87241E-04,
     &       -4.60195E-05,-1.42119E-04,-5.95782E-05, 3.54326E-03,
     &        7.74701E-04,-3.38056E-04,-3.19047E-05,-1.04090E-05,
     &       -1.62243E-02,-8.48673E-04, 1.36805E-04, 7.98552E-05,
     &       -2.92243E-03, 2.02094E-03,-4.34081E-04,-6.27473E-05,
     &        2.63513E-03, 8.24637E-04, 1.85157E-04,-2.02015E-03,
     &        2.76839E-04,-2.80224E-05,-9.56787E-03, 4.59781E-05,
     &       -1.14974E-02,-3.71604E-04,-5.80298E-04,-4.99597E-03/
C     long 105deg, mar_eq
      DATA (D(8,1,J),J=1,289)/-9.61456E-01,
     &       -2.14187E-01,-3.28378E-01,-7.92355E-02,-2.19102E-01,
     &        1.72366E-01, 2.45504E-01, 9.76920E-02,-9.82949E-03,
     &        1.98133E-02, 1.68021E-01,-9.70241E-02,-2.21248E-02,
     &       -5.31512E-02, 4.72282E-02,-1.20342E-02,-8.21482E-02,
     &       -1.83762E-01, 2.50944E-02, 4.50349E-02, 1.92678E-02,
     &        4.44006E-02, 2.79214E-02, 5.00216E-02, 3.47894E-03,
     &        2.62103E-02,-2.93705E-03,-6.12014E-03,-4.54089E-03,
     &       -3.06148E-03,-1.56649E-02,-2.03644E-03, 3.25701E-03,
     &       -2.82090E-01,-4.86777E-02,-6.70677E-02, 2.41117E-03,
     &        7.84756E-03, 3.52099E-03,-3.25174E-03, 1.98475E-02,
     &       -3.26338E-02,-4.27858E-03,-5.07825E-03,-9.40147E-03,
     &       -1.09587E-02,-3.49700E-03, 1.45638E-03, 4.53127E-03,
     &        2.39654E-02, 1.33159E-02, 4.76726E-02, 1.07895E-03,
     &        1.73723E-02, 2.14198E-03, 7.69192E-04,-2.81822E-04,
     &        5.88563E-03,-1.81442E-03, 1.67812E-04, 4.26800E-04,
     &        1.44739E-03, 2.98416E-04,-1.58527E-04,-4.27006E-03,
     &       -3.35294E-02,-7.17243E-03,-3.58075E-03, 4.70825E-04,
     &        4.00832E-03, 1.64539E-03, 1.03662E-03,-4.22914E-03,
     &        2.29204E-04,-3.17567E-03,-1.05362E-04, 8.13027E-05,
     &        5.79438E-04, 6.67598E-04, 4.18669E-02,-1.63763E-02,
     &       -8.17175E-03, 3.68295E-03, 3.67333E-04, 8.37035E-04,
     &       -3.72807E-04, 1.41605E-04, 4.09122E-04, 3.55597E-04,
     &       -5.80832E-05, 1.72805E-04,-1.28671E-04,-8.78907E-05,
     &        9.30322E-02,-6.98060E-03, 1.61895E-02,-1.97588E-03,
     &       -2.94922E-03,-1.25887E-03,-1.08441E-03, 4.06533E-04,
     &       -6.94714E-04,-1.60785E-04,-3.07469E-04,-1.01269E-04,
     &       -9.76161E-07, 5.36703E-05,-1.21058E-02,-6.18623E-04,
     &       -7.39671E-03,-5.75332E-04, 2.56188E-04,-2.20240E-04,
     &        6.36019E-04,-2.46974E-04, 5.09031E-05, 7.14456E-05,
     &        5.88933E-05,-1.79862E-05, 4.94208E-06, 1.14440E-03,
     &        5.52594E-04,-1.04507E-03, 1.55452E-03,-1.91938E-04,
     &        3.30524E-04, 1.79852E-04, 4.89577E-05, 2.03062E-04,
     &        1.42066E-04, 1.05660E-04,-1.72324E-06, 1.62598E-04,
     &       -1.58889E-03,-4.50446E-03, 2.83258E-03,-7.46921E-04,
     &       -6.90791E-04,-2.24248E-04, 1.19301E-04,-9.85971E-05,
     &       -1.17404E-04,-3.39227E-05,-2.29373E-05,-1.53760E-05,
     &       -3.43387E-02,-2.68470E-03,-1.48575E-03,-8.02295E-04,
     &       -9.35633E-06,-2.02110E-06, 1.82109E-04,-1.53490E-04,
     &       -4.12503E-05, 2.76879E-06,-1.20698E-05,-1.15935E-07,
     &        1.02210E-03,-4.29297E-04, 1.77873E-03, 4.58465E-04,
     &        2.12522E-04, 1.44451E-04, 3.15126E-06, 6.77372E-06,
     &       -1.24251E-05,-5.05371E-06,-6.64137E-07,-7.50080E-03,
     &       -3.14142E-03, 3.73584E-04,-3.63280E-04,-2.87371E-04,
     &        5.61920E-05, 5.76595E-08, 4.66012E-05,-1.08665E-05,
     &        2.99602E-05, 2.33491E-05, 2.86412E-03, 2.25954E-03,
     &       -4.69858E-04,-8.32171E-05,-8.97786E-06, 3.34233E-05,
     &        3.01750E-05, 1.97202E-06, 1.97414E-05, 9.18512E-06,
     &        9.50656E-03,-7.30557E-04, 6.96968E-04,-3.09743E-04,
     &        1.03900E-04, 1.89659E-04,-3.87122E-05,-2.06563E-06,
     &       -5.97413E-06,-3.18625E-06,-2.17909E-03, 1.73239E-03,
     &       -3.82949E-04,-2.26942E-04,-1.46617E-04,-7.08942E-06,
     &       -7.64683E-06,-4.75093E-06, 4.55169E-06, 1.40373E-02,
     &       -1.75031E-03,-2.22690E-04,-4.10509E-06,-1.24978E-05,
     &        3.02446E-05,-1.35345E-05, 1.40704E-06, 1.37974E-05,
     &        1.17505E-02, 6.51886E-06, 3.08476E-04, 5.48984E-05,
     &       -6.73243E-05, 2.37081E-05, 5.09461E-06,-6.92123E-06,
     &        9.20512E-03,-1.97647E-04, 7.68831E-05,-3.85542E-05,
     &        4.29351E-05, 2.63781E-05,-8.60261E-06, 2.54129E-06,
     &        9.06567E-03,-3.05961E-04,-1.60408E-04, 6.29219E-05,
     &       -5.58215E-05, 3.46895E-05,-6.94700E-06, 7.76802E-03,
     &       -1.50221E-03,-9.02164E-04,-7.09201E-05, 7.04727E-07,
     &        6.38450E-06,-1.30816E-05, 7.11635E-03, 4.74872E-04,
     &        1.41907E-06,-3.03459E-05, 7.41252E-05, 9.77346E-06,
     &       -1.79577E-03,-6.97866E-04,-5.07741E-04, 1.94346E-04,
     &        4.16895E-05, 1.96411E-05, 8.10927E-04, 1.94224E-03,
     &        6.82817E-05,-2.27917E-04, 3.46721E-05, 5.20079E-04,
     &       -4.56771E-04,-4.93749E-04, 9.98256E-05, 5.72876E-05,
     &       -5.30208E-03, 1.70196E-03, 3.84637E-04, 4.34716E-05,
     &       -5.70760E-03, 2.93803E-03,-2.75847E-04,-6.44295E-05,
     &        7.22714E-03, 3.60883E-05, 2.70832E-04,-2.25177E-03,
     &        1.59223E-03, 2.80552E-04, 5.07743E-03,-1.32202E-03,
     &       -6.60912E-03, 8.34150E-04, 6.32503E-03, 1.44835E-03/
C     long 120deg, mar_eq
      DATA (D(9,1,J),J=1,289)/-9.46704E-01,
     &       -2.33749E-01,-2.82424E-01,-8.31497E-02,-2.16524E-01,
     &        2.06101E-01, 2.25854E-01, 1.12547E-01,-4.06904E-02,
     &       -1.73104E-02, 1.24333E-01,-5.74826E-02,-3.23299E-02,
     &       -5.85476E-02, 5.13221E-02,-1.95434E-02,-1.10507E-01,
     &       -1.78839E-01, 2.43533E-02, 5.62901E-02, 2.12343E-02,
     &        5.09346E-02, 2.90664E-02, 5.66832E-02, 8.83598E-03,
     &        2.13412E-02,-3.48012E-03,-6.32027E-03,-6.81537E-03,
     &       -5.08560E-04,-1.34276E-02,-1.37725E-04, 3.92441E-03,
     &       -3.03224E-01,-4.16003E-02,-3.51791E-02, 6.13901E-03,
     &        1.00759E-02, 6.57269E-03,-1.33592E-03, 1.61813E-02,
     &       -2.94475E-02,-6.43237E-03,-5.69026E-03,-8.46417E-03,
     &       -1.13596E-02,-3.97391E-03, 3.23656E-03, 1.98653E-04,
     &        3.95912E-02, 1.48149E-02, 3.91993E-02,-2.46407E-03,
     &        1.95373E-02, 6.98342E-04, 1.22146E-03,-9.11638E-04,
     &        7.20679E-03,-1.63196E-03,-3.34226E-05,-2.14214E-04,
     &        1.45802E-03, 1.05855E-04,-8.08175E-04,-2.23655E-03,
     &       -3.93916E-02,-2.70011E-03,-5.46161E-03, 1.17715E-03,
     &        4.18085E-03, 4.76447E-03, 1.07355E-03,-2.85401E-03,
     &        1.14324E-04,-2.53683E-03,-1.19514E-03,-9.01068E-05,
     &        8.78002E-04, 1.14770E-03, 5.01521E-02,-8.16144E-03,
     &       -8.83252E-03, 1.01907E-03,-2.35696E-04, 8.14308E-04,
     &       -1.10692E-03, 2.70402E-05, 6.43967E-05, 8.32303E-05,
     &       -3.90907E-04, 2.43308E-04,-2.21403E-04, 1.97182E-05,
     &        7.64396E-02, 1.54997E-03, 1.62082E-02,-3.22442E-03,
     &       -2.37857E-03,-1.41290E-03,-1.17981E-03, 7.22078E-04,
     &       -3.91322E-04, 2.22520E-04,-5.22804E-05,-9.52262E-05,
     &       -1.45852E-04,-8.94986E-06,-5.58349E-04,-5.35264E-03,
     &       -6.65339E-03,-1.30395E-04, 7.13856E-04,-2.10867E-04,
     &        6.53920E-04,-2.10179E-04, 7.48914E-05,-3.72030E-05,
     &       -2.25892E-06,-6.62747E-05,-1.56579E-05, 8.05807E-03,
     &        1.41753E-03, 4.32002E-04, 1.40089E-03,-6.47749E-04,
     &       -4.82536E-05,-1.75439E-05,-1.00060E-04, 4.05416E-05,
     &       -1.52252E-05, 9.71849E-05,-2.92931E-05, 1.28698E-04,
     &       -1.71911E-02,-4.86623E-03, 2.33415E-03,-9.08028E-04,
     &       -1.11299E-03,-1.82179E-04, 1.51254E-04,-5.60562E-06,
     &       -1.04488E-04,-6.60555E-06,-2.10657E-05,-3.67403E-06,
     &       -2.09057E-02,-1.91978E-03,-1.77061E-03, 6.57178E-04,
     &        4.05697E-04, 1.59843E-04, 3.11397E-04,-2.38229E-06,
     &        2.11663E-05,-5.34514E-06,-1.54488E-05, 1.05652E-05,
     &       -5.07152E-03,-1.34846E-03, 2.29231E-03, 2.59124E-04,
     &       -1.43595E-04,-1.34571E-04,-9.24507E-05,-1.29405E-05,
     &       -3.33133E-05,-2.09231E-05,-2.06742E-05,-4.28365E-03,
     &       -1.29445E-03, 9.55978E-04, 2.83807E-04,-4.52911E-04,
     &        6.32899E-05,-6.58219E-06, 6.50926E-05,-6.73121E-06,
     &        1.75381E-05,-5.65183E-07, 8.98517E-03, 1.80996E-03,
     &        2.87777E-04, 1.57928E-04, 1.23755E-04,-2.55432E-05,
     &        1.20832E-05,-1.09452E-05, 1.30865E-05, 9.97021E-06,
     &        1.13215E-02, 6.69061E-04, 8.50420E-04, 1.10584E-04,
     &        1.27529E-04, 1.67605E-05,-6.99567E-05,-3.61722E-05,
     &       -2.30016E-05,-2.51867E-05, 3.45509E-03, 7.77000E-04,
     &       -3.43339E-04,-5.62566E-05,-1.33860E-04,-4.56751E-05,
     &       -2.62243E-05,-1.76452E-05,-7.34944E-06, 1.77458E-02,
     &        1.89381E-03, 6.15391E-04, 2.46281E-04, 1.69125E-04,
     &        1.44306E-04, 3.03738E-05,-7.60502E-06, 3.61973E-06,
     &        2.95628E-03,-2.26331E-03,-1.11469E-04,-2.24297E-04,
     &       -2.12014E-04,-1.10964E-04,-3.18872E-05,-4.29048E-06,
     &        1.07564E-02, 1.34179E-03, 1.83489E-04, 4.45754E-05,
     &        4.62103E-05,-8.10958E-06,-1.25366E-05,-6.96079E-06,
     &        4.67690E-03,-1.26233E-03, 1.06847E-04,-3.86755E-05,
     &       -1.01606E-04, 1.05847E-06, 3.86036E-06, 1.06414E-02,
     &       -1.68821E-03,-7.98034E-04,-1.76560E-04,-8.74411E-05,
     &       -3.10336E-05,-2.87459E-05,-2.27179E-03, 1.15414E-04,
     &        2.81664E-04, 1.00144E-04, 7.99318E-05, 2.12611E-05,
     &       -2.25836E-03,-1.83952E-03,-4.73599E-04, 1.10077E-04,
     &       -4.02704E-05,-2.91373E-05, 6.50114E-03, 9.33367E-04,
     &        5.87662E-04,-6.49372E-05, 1.01737E-04,-6.49177E-04,
     &       -6.86517E-04,-4.01828E-04, 4.78143E-05, 2.96415E-06,
     &       -1.04484E-03, 2.07060E-03, 4.08060E-04,-1.69690E-05,
     &        3.64866E-03, 6.68744E-04, 4.46290E-04,-5.71667E-06,
     &        8.42204E-04,-1.08271E-03, 1.46240E-04,-4.70793E-04,
     &       -6.99539E-05,-4.83290E-05, 1.11300E-02,-5.60715E-04,
     &       -6.30724E-03,-3.47986E-04, 5.59959E-03,-4.28828E-03/
C     long 135deg, mar_eq
      DATA (D(10,1,J),J=1,289)/-9.32256E-01,
     &       -2.39603E-01,-2.45104E-01,-8.75517E-02,-2.06942E-01,
     &        2.25383E-01, 2.41143E-01, 1.25637E-01,-5.09666E-02,
     &       -2.23969E-02, 8.37707E-02,-6.61848E-02,-5.29348E-02,
     &       -3.97531E-02, 5.80012E-02,-1.89372E-02,-9.88849E-02,
     &       -1.61924E-01, 3.14305E-02, 7.05806E-02, 1.53175E-02,
     &        5.30517E-02, 2.82880E-02, 5.29731E-02, 1.26938E-02,
     &        2.00023E-02,-4.03734E-03,-5.69990E-03,-3.87051E-03,
     &       -3.74375E-04,-1.14425E-02, 3.87484E-04, 2.36163E-03,
     &       -3.01506E-01,-2.78238E-02,-1.22096E-02, 2.73093E-03,
     &        1.18682E-02, 1.13401E-02,-3.51033E-03, 9.62211E-03,
     &       -2.69779E-02,-4.36516E-03,-8.16161E-03,-5.69085E-03,
     &       -9.97980E-03,-1.90770E-03, 4.50337E-03, 2.67146E-03,
     &        6.16153E-02, 1.30533E-02, 3.17155E-02,-2.49976E-03,
     &        1.87302E-02,-3.24154E-04, 2.51231E-04,-8.59681E-04,
     &        6.57006E-03,-1.34339E-03,-1.68343E-04,-4.96452E-04,
     &        1.50246E-03,-1.10085E-04,-9.00536E-04, 1.10711E-02,
     &       -3.50789E-02,-2.24282E-04,-6.95021E-03, 1.61514E-03,
     &        4.29591E-03, 4.09936E-03, 1.28830E-03,-1.49324E-03,
     &       -5.32223E-04,-2.08982E-03,-1.12673E-03, 7.98472E-05,
     &        4.77034E-04, 1.28437E-03, 3.96377E-02,-5.36247E-03,
     &       -9.62686E-03,-1.18927E-03, 3.41433E-04, 1.05688E-03,
     &       -1.62192E-03,-2.38887E-05, 1.14355E-04, 1.27017E-04,
     &       -5.48975E-04,-1.22573E-05,-2.85836E-04,-4.92654E-05,
     &        6.44608E-02, 2.90663E-03, 1.65471E-02,-3.91810E-03,
     &       -5.61194E-04,-7.55902E-04,-1.49224E-03, 3.35992E-04,
     &       -2.59707E-04, 7.76174E-05,-1.79525E-05,-1.64857E-04,
     &        8.43665E-05,-1.53341E-05,-1.36312E-03,-3.67661E-03,
     &       -2.55660E-03, 8.94256E-04, 5.72832E-04, 8.41401E-05,
     &        8.28909E-04, 8.76313E-05, 2.20406E-04, 7.86691E-05,
     &        1.84563E-05,-3.39122E-05,-5.66626E-05,-2.04015E-03,
     &        5.70805E-04,-3.93447E-04, 1.15331E-03,-5.61420E-04,
     &        4.92990E-06, 2.46319E-05,-6.91078E-05,-3.39921E-05,
     &        3.63088E-05, 9.36557E-05, 3.12757E-05, 6.79122E-05,
     &       -2.44438E-02,-2.79961E-03, 1.43038E-03,-1.18558E-04,
     &       -8.40751E-04,-1.47347E-04, 9.10140E-05, 5.20439E-05,
     &       -5.95236E-05,-1.34400E-05,-1.54340E-06,-1.30362E-05,
     &       -2.11640E-02, 4.65966E-04,-5.01687E-04, 1.46785E-03,
     &        4.37964E-05,-2.18722E-05, 3.52937E-04, 2.54934E-05,
     &        4.08697E-05, 8.65818E-06,-7.16253E-06,-5.59021E-07,
     &       -4.75377E-03,-2.29384E-03, 1.59889E-03, 4.63271E-04,
     &       -2.48263E-05,-1.41883E-04,-1.17617E-04,-2.63024E-05,
     &       -3.95023E-05,-2.58802E-05,-1.18286E-05,-5.16628E-05,
     &       -7.88275E-04, 1.06798E-03, 3.76283E-04,-1.89459E-04,
     &       -7.16270E-05,-1.34453E-05, 2.80284E-05,-4.11954E-05,
     &        1.63492E-05,-3.93690E-06, 9.39802E-03, 1.03073E-03,
     &       -8.37603E-04, 4.10501E-04, 2.56035E-04,-3.37665E-05,
     &       -4.39886E-05, 5.06378E-06, 1.00305E-05, 5.14537E-07,
     &        2.02537E-02,-8.96775E-04, 1.03295E-03, 3.55067E-04,
     &        1.74570E-04,-9.28241E-05, 8.49042E-07,-2.77082E-05,
     &       -1.76386E-05,-1.48925E-05, 3.18370E-03, 1.26014E-03,
     &       -2.83283E-04,-1.26446E-04,-1.29077E-04,-2.62745E-05,
     &       -5.83418E-05,-1.26036E-05,-1.08787E-05, 1.19859E-02,
     &        1.34057E-03,-9.06569E-05, 1.60061E-04, 3.70158E-05,
     &        1.76826E-04, 5.64105E-05, 7.80058E-06, 2.74725E-07,
     &       -4.56371E-03,-2.21721E-03, 3.04960E-04,-6.47587E-05,
     &       -8.40405E-05,-1.33092E-04,-3.05624E-05,-8.34969E-06,
     &       -9.01160E-03, 1.96786E-03, 6.06863E-04, 8.44969E-05,
     &       -2.12695E-05,-3.60148E-05, 1.63414E-05, 4.47350E-06,
     &        3.25881E-03,-5.69928E-04, 5.14553E-04,-1.45207E-04,
     &       -6.34555E-05, 2.03068E-05,-1.35162E-05,-3.71143E-03,
     &        6.88927E-04,-2.43647E-05,-1.13018E-04,-3.91364E-05,
     &       -3.63611E-05,-9.06586E-06, 2.84909E-04,-5.23825E-04,
     &       -6.62113E-05,-2.03631E-05, 3.27603E-05, 1.92334E-05,
     &       -5.14543E-03,-6.46904E-04, 9.15742E-05,-1.16971E-04,
     &       -7.77074E-05,-2.93169E-05, 1.01534E-02,-2.03438E-04,
     &        4.15495E-04, 7.72854E-05, 1.32583E-04, 3.54411E-03,
     &        1.31412E-03,-3.42401E-04,-1.16305E-04,-3.39151E-05,
     &        1.39321E-03,-8.94106E-04, 2.59834E-04, 1.40498E-04,
     &        3.41056E-03, 4.25702E-04, 4.51490E-04,-8.90096E-05,
     &       -2.30164E-03,-8.34915E-04, 2.16437E-05,-3.18531E-03,
     &       -6.12893E-04,-3.45922E-04, 5.08397E-03, 1.94787E-04,
     &       -7.93570E-03,-2.06861E-03, 8.34687E-03,-7.91202E-03/
C     long 150deg, mar_eq
      DATA (D(11,1,J),J=1,289)/-9.19274E-01,
     &       -2.67430E-01,-2.56711E-01,-1.03760E-01,-2.13255E-01,
     &        2.34267E-01, 2.84158E-01, 1.28411E-01, 9.77236E-04,
     &        2.14158E-02, 7.13162E-02,-6.87785E-02,-7.52489E-02,
     &       -3.97567E-02, 3.84452E-02,-4.97978E-02,-9.52091E-02,
     &       -1.45641E-01, 2.70840E-02, 8.80269E-02, 1.64338E-02,
     &        6.19985E-02, 3.04719E-02, 5.17541E-02, 1.07264E-02,
     &        2.04503E-02,-6.77789E-03,-7.58051E-03,-3.41224E-03,
     &       -3.60845E-03,-1.19647E-02, 1.25273E-03, 1.15282E-03,
     &       -2.71426E-01,-2.69711E-02,-8.50989E-03,-5.07539E-03,
     &        1.04705E-02, 1.41805E-02,-3.83436E-03, 6.23455E-03,
     &       -2.22428E-02,-2.53788E-03,-7.47098E-03,-3.71766E-03,
     &       -8.90026E-03,-2.16620E-04, 4.77399E-03, 4.62204E-03,
     &        5.24360E-02, 1.51408E-02, 2.68361E-02, 6.32971E-04,
     &        1.73594E-02,-2.37967E-04,-5.62081E-04,-3.37658E-04,
     &        4.83217E-03,-9.32933E-04,-4.04352E-04,-1.84033E-04,
     &        1.08218E-03, 3.78303E-04,-5.92600E-04, 1.06086E-02,
     &       -2.77669E-02,-1.00978E-04,-1.08151E-02, 3.69106E-03,
     &        3.97832E-03, 3.18981E-03, 1.37513E-03,-9.75236E-04,
     &       -5.42953E-04,-1.93091E-03,-9.31040E-04, 5.57576E-05,
     &       -2.64418E-04, 1.17909E-03, 3.63436E-02,-5.60846E-03,
     &       -7.74803E-03,-1.46149E-04, 9.28879E-04, 1.04006E-03,
     &       -1.52401E-03,-3.78329E-04, 8.03326E-05, 4.04561E-05,
     &       -3.95857E-04,-1.79798E-04,-2.28830E-04,-4.40511E-05,
     &        5.68736E-02, 3.30977E-03, 1.28558E-02,-3.46783E-03,
     &        6.17764E-06,-2.30742E-04,-1.27716E-03, 5.70390E-04,
     &       -2.63312E-04, 4.84448E-05,-9.62402E-05,-8.38142E-05,
     &        1.37037E-04, 1.19945E-04,-3.50235E-03,-9.96666E-04,
     &       -1.66497E-03, 3.86713E-04, 3.12570E-04, 4.92278E-04,
     &        6.86127E-04,-5.23928E-05, 1.54148E-04, 9.44840E-05,
     &        3.76190E-05,-2.32640E-05,-1.54203E-05,-4.64628E-03,
     &       -1.97755E-03,-2.20003E-03, 1.74556E-03,-2.41789E-04,
     &        2.97204E-04, 4.74882E-05,-7.83191E-05,-8.28085E-05,
     &        1.74482E-05, 7.22637E-05, 1.18554E-05, 1.73623E-05,
     &       -1.98581E-02,-7.96522E-04, 1.12220E-03, 4.22498E-04,
     &       -2.20568E-04,-1.24834E-04,-3.81943E-05,-1.20908E-05,
     &       -8.75825E-05,-8.35320E-06,-3.03601E-05,-8.79237E-06,
     &       -2.29346E-02, 3.52010E-03,-4.80202E-04, 1.08340E-03,
     &        4.96279E-05, 1.71212E-04, 2.42512E-04,-9.64344E-05,
     &       -3.53728E-05,-3.95994E-05,-2.87001E-05, 1.99343E-06,
     &        2.54873E-04,-2.74182E-03, 3.14452E-04, 3.82930E-04,
     &       -3.28580E-05,-1.55598E-04,-1.13715E-04,-8.95467E-06,
     &       -2.37010E-05,-1.08500E-05, 1.62317E-05, 2.15868E-03,
     &       -4.45421E-04,-2.20302E-05, 1.75342E-04, 4.36680E-05,
     &       -1.04083E-04,-1.17315E-05,-4.64253E-06,-4.14375E-05,
     &        2.22137E-05,-5.74117E-06, 1.30417E-03, 3.69325E-04,
     &       -1.46094E-03, 2.67571E-04,-2.25591E-05,-3.73751E-05,
     &       -7.99217E-05, 1.85812E-05,-4.56102E-07, 7.32540E-06,
     &        2.48556E-02,-4.63141E-04, 2.08018E-04, 2.32564E-04,
     &        5.81656E-05,-1.69525E-04,-1.33800E-05,-7.13622E-07,
     &        7.50014E-06,-1.61317E-06,-3.82691E-03, 2.10502E-03,
     &        1.83526E-04,-4.83862E-05,-4.79115E-05, 6.48172E-05,
     &       -4.23297E-06, 1.80620E-06,-1.18594E-05, 7.29270E-03,
     &        1.30957E-03, 3.87397E-05, 7.34014E-05,-1.31132E-04,
     &        9.19380E-05,-2.94571E-06,-8.92185E-06,-1.40523E-05,
     &       -1.77664E-03, 3.66284E-04,-3.15548E-05,-8.32155E-05,
     &       -1.31129E-05,-6.46094E-06, 1.99233E-05,-6.51731E-06,
     &       -1.27568E-02, 1.00916E-03, 5.61018E-04,-2.96655E-05,
     &        5.23676E-05, 2.43889E-05, 3.73355E-05, 7.39034E-06,
     &        6.83657E-03,-1.18921E-03,-1.12375E-04, 6.12943E-05,
     &       -1.14668E-04, 2.68552E-05,-2.47904E-05,-4.34482E-03,
     &        7.81029E-04,-7.01627E-05,-2.20125E-04, 3.97197E-05,
     &       -3.92826E-06, 4.14536E-06, 7.52763E-03,-1.67970E-03,
     &        1.84478E-04, 9.99255E-06, 4.70851E-05, 1.60644E-05,
     &        5.59163E-03,-1.12089E-03, 2.68971E-04,-2.26803E-04,
     &       -1.23002E-04,-1.08625E-05, 8.91285E-05,-6.50040E-04,
     &        2.47538E-04, 8.54864E-06, 7.72288E-05, 9.52514E-03,
     &       -5.98828E-04,-5.99301E-05,-1.14609E-04,-2.64135E-05,
     &        4.57791E-03,-1.00758E-03, 4.41062E-04, 2.12320E-04,
     &        2.26406E-03, 2.56731E-04, 2.54689E-04,-2.16389E-04,
     &        3.48946E-03,-6.84401E-05,-6.24687E-05,-7.42218E-03,
     &        2.63325E-04,-1.89061E-05, 8.77762E-03,-1.25858E-03,
     &       -5.56302E-03,-2.41396E-03, 1.18655E-02, 4.72437E-03/
C     long 165deg, mar_eq
      DATA (D(12,1,J),J=1,289)/-9.06076E-01,
     &       -3.27272E-01,-3.21535E-01,-1.02762E-01,-2.44239E-01,
     &        2.54334E-01, 3.73449E-01, 1.26714E-01, 4.16111E-02,
     &        5.99421E-02, 7.03777E-02,-1.12321E-01,-1.00298E-01,
     &       -3.47036E-02, 2.59554E-03,-5.31108E-02,-8.61514E-02,
     &       -1.46763E-01, 5.87319E-03, 9.60772E-02, 1.91104E-02,
     &        6.81398E-02, 3.26139E-02, 5.42250E-02, 7.25271E-03,
     &        1.77092E-02,-7.64093E-03,-1.26121E-02,-7.41070E-03,
     &       -6.79543E-03,-8.73539E-03, 1.15183E-03, 5.23891E-03,
     &       -2.33905E-01,-3.75237E-02,-9.41968E-03,-2.87590E-03,
     &        1.07138E-02, 1.26110E-02,-5.35430E-03, 3.88922E-03,
     &       -2.12038E-02,-9.96394E-04,-6.86224E-03,-3.42412E-03,
     &       -7.18394E-03, 3.01011E-03, 7.43178E-03, 3.41023E-03,
     &        1.65145E-02, 1.23531E-02, 3.01417E-02, 6.53310E-04,
     &        1.34103E-02,-5.39461E-04, 1.15088E-03,-2.91537E-05,
     &        3.46028E-03,-7.62266E-04,-7.96508E-04,-2.09544E-04,
     &        3.83072E-04, 5.87110E-04,-4.80695E-04,-1.46853E-02,
     &       -3.19543E-02,-4.10555E-03,-1.44531E-02, 3.12743E-03,
     &        3.33926E-03, 3.34502E-03, 7.13226E-04,-9.03210E-04,
     &       -9.31712E-04,-2.10501E-03,-1.28725E-03,-3.79558E-04,
     &       -5.48732E-04, 1.02759E-03, 4.75589E-02,-5.06070E-03,
     &       -5.39195E-03, 1.08190E-03, 1.32655E-03, 7.80101E-04,
     &       -1.09476E-03,-2.42577E-04,-1.61682E-04,-1.02732E-04,
     &       -3.55462E-04,-2.29417E-05, 5.07468E-05, 8.09781E-05,
     &        4.65977E-02, 4.10268E-03, 1.15867E-02,-2.46779E-03,
     &       -1.34271E-03,-5.48722E-04,-8.60501E-04, 8.37977E-04,
     &       -1.12620E-04, 2.57970E-06,-1.68874E-05, 3.41724E-05,
     &        1.35761E-04, 1.45523E-04, 3.47033E-04,-1.75037E-03,
     &       -2.99091E-03, 1.27979E-04, 7.38195E-04, 8.69903E-04,
     &        6.91832E-04,-1.04972E-04, 4.61904E-05,-4.98482E-05,
     &        1.65156E-05,-1.89397E-05, 4.04453E-06,-1.02807E-03,
     &       -2.73944E-03,-7.34264E-04, 1.74417E-03,-1.86851E-04,
     &        2.93732E-04,-8.99232E-06,-2.22909E-05,-1.93581E-04,
     &       -5.72364E-05, 2.14352E-07,-4.21960E-05,-8.75978E-06,
     &       -1.41930E-02, 5.80554E-04, 1.04936E-04, 4.55513E-04,
     &       -1.29515E-04,-5.47567E-05,-5.45751E-05,-3.08310E-05,
     &       -9.29451E-05, 3.70065E-06,-4.52774E-05, 1.04500E-06,
     &       -1.40815E-02, 2.25542E-03,-8.12805E-04, 9.75389E-04,
     &        3.96722E-04, 5.49058E-04, 3.62710E-04,-7.31836E-06,
     &       -2.95508E-05,-2.57542E-05,-1.75730E-05, 2.12511E-05,
     &        6.65963E-03,-5.35875E-04, 9.80570E-04,-1.13626E-04,
     &       -1.77766E-04,-2.41323E-04,-1.90915E-04,-5.67026E-05,
     &       -9.85267E-06,-4.95548E-06, 1.26546E-05, 2.59375E-04,
     &       -5.58997E-04,-5.95635E-04, 8.32352E-05, 1.50163E-05,
     &       -1.00541E-04, 8.06143E-05,-2.10202E-06,-3.00109E-05,
     &        1.80942E-06,-2.70400E-06, 5.93067E-03, 2.46523E-04,
     &       -1.25406E-03, 3.31892E-05, 2.01232E-05,-3.57439E-05,
     &       -6.10987E-05, 1.74033E-05,-3.61075E-06, 1.37560E-05,
     &        2.01098E-02, 2.12793E-03,-2.63487E-04,-7.57533E-05,
     &       -1.95470E-04,-1.96087E-04,-8.39170E-05,-2.83313E-05,
     &        1.41139E-05,-9.62413E-06,-8.48768E-03, 1.67757E-03,
     &        2.62090E-04,-1.41220E-04, 7.15038E-05, 1.04219E-04,
     &        4.50118E-05, 4.32172E-06,-1.27766E-05, 1.34221E-02,
     &        1.99110E-03,-4.64333E-04, 8.07347E-05,-6.53238E-05,
     &        3.00488E-05,-3.21027E-05,-7.91582E-06,-1.68379E-05,
     &       -7.05166E-03, 8.32807E-04, 1.89694E-04,-2.08803E-05,
     &       -5.04900E-05, 3.66966E-05, 2.71036E-05, 6.38228E-07,
     &       -5.80991E-03, 1.01478E-03,-2.22354E-05,-2.50317E-04,
     &        2.20691E-05, 1.77079E-05, 1.30546E-05,-5.77608E-06,
     &        2.18267E-03,-1.57359E-03,-2.35628E-04, 2.94981E-04,
     &       -3.74139E-05, 5.19374E-05,-4.97307E-06,-2.97501E-03,
     &       -5.42991E-04,-1.34168E-04,-8.98119E-05,-3.30073E-06,
     &       -2.17297E-05,-1.09810E-05, 1.25918E-03,-8.17932E-04,
     &       -1.38571E-04, 8.09515E-05, 8.85801E-05, 3.94809E-05,
     &        3.81070E-03,-1.33010E-03, 3.55193E-04,-2.88215E-06,
     &       -1.06056E-05, 3.20961E-05,-2.80850E-04,-1.04242E-04,
     &        2.39280E-04,-1.04117E-04,-7.04335E-06, 1.51478E-02,
     &       -9.69915E-04, 3.66442E-04,-2.47417E-05,-8.53082E-06,
     &        2.84073E-03,-3.26946E-05,-3.66895E-05,-4.82168E-05,
     &        2.28359E-03, 4.50756E-04, 2.22101E-04,-1.58932E-04,
     &        1.47005E-03,-3.02587E-04, 4.45805E-05,-3.59429E-03,
     &       -7.00251E-04, 9.77606E-05, 1.62867E-03,-5.05480E-04,
     &       -2.02829E-03,-2.04435E-03, 7.55925E-03, 4.98570E-03/
C     long 180deg, mar_eq
      DATA (D(13,1,J),J=1,289)/-8.85169E-01,
     &       -3.67554E-01,-4.00384E-01,-9.02094E-02,-2.70774E-01,
     &        2.74993E-01, 3.99356E-01, 9.93845E-02, 4.33209E-02,
     &        4.57343E-02, 9.37132E-02,-1.52129E-01,-1.24620E-01,
     &       -2.85356E-02, 1.71873E-02,-2.81522E-02,-7.54866E-02,
     &       -1.64427E-01,-1.96525E-02, 8.68442E-02, 4.61157E-03,
     &        6.80282E-02, 2.67563E-02, 5.08640E-02, 2.03767E-03,
     &        1.58440E-02,-9.05595E-03,-1.41296E-02,-9.40258E-03,
     &       -7.05382E-03,-4.43989E-03,-5.49401E-04, 5.97007E-03,
     &       -2.14957E-01,-4.10856E-02,-7.82089E-03, 3.07015E-03,
     &        1.15639E-02, 8.64946E-03,-1.39703E-02,-6.04831E-03,
     &       -2.64550E-02,-2.78984E-03,-7.75220E-03, 1.53529E-04,
     &       -4.36176E-03, 6.43826E-03, 1.10264E-02, 3.09212E-03,
     &        4.02482E-03, 1.23193E-02, 3.57454E-02,-5.13756E-03,
     &        7.79844E-03,-1.82053E-03, 1.98271E-03, 1.20777E-03,
     &        2.77366E-03,-2.05837E-04,-8.77245E-04, 1.82831E-04,
     &        6.53755E-05, 7.31800E-04,-5.40411E-04,-3.35044E-02,
     &       -4.22130E-02,-4.54308E-03,-1.36863E-02,-1.06051E-05,
     &        3.14904E-03, 3.45374E-03, 6.02164E-04,-9.67600E-04,
     &       -1.89203E-03,-2.02407E-03,-1.13900E-03,-1.18761E-04,
     &       -4.15605E-04, 1.06641E-03, 5.44928E-02,-4.82984E-03,
     &       -3.39716E-03, 1.96927E-03, 2.29694E-03, 3.67530E-04,
     &       -8.13801E-04,-3.14129E-05, 4.40259E-05, 1.58588E-04,
     &       -3.68358E-04,-3.11155E-05,-2.33159E-05, 1.07076E-05,
     &        4.71321E-02, 2.99347E-03, 1.48136E-02,-2.14493E-04,
     &       -2.20325E-03,-9.09856E-04,-5.94759E-04, 7.58651E-04,
     &       -3.92595E-04,-3.04803E-04,-5.66498E-05, 8.41431E-05,
     &        4.21022E-05, 1.90449E-04,-6.71603E-04,-3.24262E-03,
     &       -3.35882E-03,-1.55168E-04, 4.36717E-04, 6.10598E-04,
     &        4.75570E-04,-1.17454E-04, 7.67157E-05,-4.64026E-06,
     &        5.67787E-05,-6.66375E-05, 1.76900E-05,-4.78615E-04,
     &        3.73132E-04, 1.67126E-03, 2.18381E-03,-7.51822E-05,
     &        1.21299E-04,-7.34079E-05, 1.04158E-04,-1.35151E-04,
     &       -3.03752E-05, 2.95505E-05,-5.72110E-05, 1.25718E-06,
     &       -1.17158E-02, 7.68582E-04, 1.33224E-03, 4.12295E-05,
     &        3.15190E-05, 3.86873E-04, 1.66632E-04, 1.43756E-04,
     &       -1.89509E-05, 5.91928E-05, 9.04666E-06, 1.29527E-05,
     &       -1.39943E-02,-1.42095E-03,-1.34079E-03, 5.47172E-04,
     &        1.85940E-04, 2.97903E-04, 2.27173E-04, 3.65607E-05,
     &        1.23649E-05, 2.36794E-05, 2.77675E-05, 3.32111E-05,
     &        1.81532E-03, 2.12947E-03, 1.69152E-03,-3.80700E-04,
     &       -1.27371E-04,-6.68535E-05,-9.96108E-05,-5.40226E-05,
     &       -3.01731E-05,-2.97596E-05,-2.54566E-05, 5.02993E-03,
     &       -1.33466E-03,-5.01822E-04,-4.09246E-04,-1.14923E-04,
     &       -5.20784E-05, 1.25442E-04,-1.79914E-05, 3.14367E-06,
     &       -6.35894E-06, 1.28973E-05, 7.52339E-03, 1.22938E-03,
     &       -9.18649E-04, 2.63787E-05, 6.99985E-05,-2.18356E-05,
     &        1.88922E-05, 2.15275E-05, 3.06611E-05, 4.69580E-06,
     &        1.63164E-02, 2.59535E-03, 2.91976E-04,-2.64597E-05,
     &       -2.02228E-04,-1.22948E-04,-3.73780E-05,-2.84269E-05,
     &        1.27822E-05,-1.55965E-05, 2.73197E-03, 5.01482E-04,
     &        1.21774E-04,-1.58900E-04, 2.36072E-05, 4.42795E-05,
     &        1.12018E-05,-9.85065E-06,-1.17148E-06, 6.74211E-03,
     &        6.67525E-04,-7.86075E-05, 9.13556E-05,-1.41833E-04,
     &       -1.07663E-06,-1.79180E-05,-8.17191E-06,-1.42087E-05,
     &       -1.31568E-03, 1.73476E-03, 4.28438E-04, 2.33470E-04,
     &        3.12054E-05, 2.64539E-05, 1.15235E-05, 1.10839E-05,
     &       -8.37023E-03, 4.37422E-04, 3.71956E-04,-1.91632E-04,
     &       -3.44480E-05, 6.54859E-06, 1.41976E-05, 3.67189E-06,
     &        8.96266E-03, 1.70069E-04, 2.25681E-04, 2.53367E-04,
     &       -3.13652E-05, 2.55624E-05,-1.53956E-05,-5.51877E-03,
     &        3.91231E-04, 1.28973E-04, 1.96469E-04,-3.93618E-06,
     &       -1.92407E-05, 2.10579E-06, 2.91115E-05,-1.91163E-04,
     &       -1.40149E-04,-4.65888E-05, 1.99269E-05, 1.38783E-05,
     &        5.18073E-03, 1.71087E-03, 4.89244E-04, 2.49559E-04,
     &        9.06947E-05, 4.13523E-05,-5.23734E-03, 8.24006E-05,
     &        1.58591E-04,-1.38911E-04,-1.77315E-05, 1.98089E-02,
     &        2.16676E-04, 2.81167E-05, 7.08334E-05, 1.98921E-05,
     &       -8.07973E-04, 5.46147E-04, 9.68317E-05,-1.70114E-04,
     &       -3.02302E-03, 2.19879E-03, 3.90110E-04,-1.39166E-04,
     &       -7.05087E-04,-1.08841E-03, 2.40518E-05, 3.07315E-03,
     &       -3.79834E-04, 3.89407E-04, 7.52011E-04,-1.05090E-03,
     &       -5.20227E-03,-2.13738E-03, 1.58561E-03, 1.62826E-04/
C     long 195deg, mar_eq
      DATA (D(14,1,J),J=1,289)/-8.66228E-01,
     &       -3.69704E-01,-4.48401E-01,-8.27558E-02,-2.79657E-01,
     &        2.64113E-01, 3.70413E-01, 8.41121E-02, 4.98166E-02,
     &        1.12313E-02, 1.30779E-01,-1.55277E-01,-1.43258E-01,
     &       -4.61411E-02, 3.23997E-02,-1.55130E-02,-7.42827E-02,
     &       -1.73419E-01,-3.08626E-02, 8.24281E-02,-5.09416E-03,
     &        7.32569E-02, 2.22050E-02, 4.76828E-02,-4.73464E-03,
     &        1.16297E-02,-1.37714E-02,-1.65445E-02,-1.15151E-02,
     &       -1.01495E-02,-4.36545E-03,-3.18737E-03, 5.64453E-03,
     &       -2.16200E-01,-3.38575E-02,-6.03834E-03, 5.21135E-03,
     &        1.07236E-02,-2.20517E-03,-2.11728E-02,-1.92018E-02,
     &       -2.82595E-02,-5.93821E-03,-6.42817E-03, 4.32454E-04,
     &       -4.96989E-03, 6.03626E-03, 1.07259E-02, 2.21088E-03,
     &        1.28660E-02, 1.38441E-02, 3.73170E-02,-1.36696E-02,
     &        4.26002E-03,-1.91279E-03, 8.04392E-04, 1.79806E-03,
     &        2.85454E-03,-2.60656E-04,-1.82314E-03,-6.91582E-05,
     &       -2.25871E-04, 5.58087E-04,-5.46560E-04,-3.33867E-02,
     &       -4.12083E-02, 4.27001E-04,-9.22736E-03, 3.98113E-04,
     &        4.14667E-03, 2.46361E-03, 1.06362E-03,-1.08854E-03,
     &       -1.00866E-03,-1.59032E-03,-6.07131E-04, 8.73236E-05,
     &       -5.30058E-04, 1.17268E-03, 4.35070E-02,-4.55414E-03,
     &       -4.68046E-03, 1.90903E-03, 2.05250E-03, 2.82955E-04,
     &       -9.88922E-04, 1.20452E-04, 8.85538E-05, 2.49245E-04,
     &       -4.46644E-04,-4.05641E-05,-1.72716E-04,-2.88126E-05,
     &        6.27800E-02, 5.92373E-03, 1.67478E-02, 1.65041E-04,
     &       -1.54616E-03,-1.36588E-04,-2.64981E-04, 8.47632E-04,
     &       -1.81547E-04,-3.71536E-04,-1.79666E-04,-7.13334E-05,
     &       -9.84434E-05, 1.52970E-04,-1.22480E-02,-6.01548E-03,
     &       -5.53479E-03,-1.45839E-03,-3.26749E-04, 2.33332E-04,
     &        2.90839E-04,-2.68792E-04, 6.09600E-05, 3.21354E-05,
     &        8.68775E-05,-4.16679E-05, 6.99056E-05,-6.08011E-03,
     &        1.75375E-03,-5.59711E-04, 1.78275E-03,-6.62039E-04,
     &       -3.99072E-05,-1.58022E-04, 9.51622E-05,-5.26165E-05,
     &       -2.09583E-05, 6.68797E-05,-1.24632E-05, 2.76541E-05,
     &       -8.64649E-03,-1.34222E-04, 2.85695E-03, 1.62191E-06,
     &        2.13751E-04, 3.65988E-04, 6.34362E-05, 8.66373E-05,
     &       -5.28874E-05, 4.25202E-05, 1.71772E-06,-1.00281E-05,
     &       -2.30406E-02,-2.71712E-03,-2.37248E-03,-1.65183E-04,
     &       -2.43706E-04, 2.97085E-04, 1.42214E-04, 1.85756E-05,
     &        9.90218E-06, 4.77700E-06, 4.95868E-06, 1.75212E-05,
     &       -2.58045E-04, 2.23469E-03, 1.77738E-03, 6.43627E-05,
     &       -6.96919E-05,-7.58070E-05,-1.11447E-04,-2.46801E-05,
     &       -2.87327E-05, 1.40812E-05,-1.08469E-05, 1.19911E-03,
     &       -4.13714E-05, 1.24319E-04,-8.84552E-04, 3.17209E-05,
     &       -5.72916E-05, 6.94739E-05,-3.79832E-05,-1.30690E-05,
     &       -2.76818E-05, 6.19493E-06,-1.18475E-03, 1.46358E-03,
     &       -2.75074E-04, 2.06019E-04, 3.49357E-05, 1.87754E-05,
     &        2.25269E-05,-2.10631E-05, 1.34206E-05,-3.94042E-06,
     &        1.80669E-02, 4.50315E-03, 8.54679E-04,-4.52649E-05,
     &        8.69922E-06, 2.97792E-05,-3.44231E-06, 1.67630E-05,
     &        2.27671E-05, 1.38944E-05, 3.34474E-04,-2.73798E-03,
     &       -8.34905E-05,-2.76235E-04, 1.93271E-05, 2.20309E-05,
     &        2.23081E-05,-2.60075E-05, 3.99739E-06, 5.22262E-03,
     &        1.21182E-03, 7.64961E-04, 1.70700E-04,-1.40050E-04,
     &       -1.56527E-05,-1.88960E-05,-2.75987E-05,-1.08053E-05,
     &        4.66051E-03, 4.66824E-04, 1.65959E-04, 4.79371E-05,
     &        3.50675E-05, 4.44262E-05, 1.31938E-05, 4.82063E-06,
     &       -1.47652E-02,-5.75145E-04, 7.27015E-04,-7.43436E-05,
     &       -3.34357E-05, 1.04952E-06, 2.34670E-05, 3.74445E-06,
     &        2.08695E-02, 1.29834E-03, 6.69706E-05, 8.17792E-05,
     &       -3.45319E-05, 3.14790E-05,-1.49326E-05,-1.11726E-03,
     &       -3.43741E-04,-4.27723E-05, 2.51917E-04,-2.23277E-05,
     &       -2.56087E-06, 2.08972E-05, 7.58320E-03,-6.05593E-04,
     &       -3.12550E-04,-1.45154E-04, 1.87501E-05, 1.32054E-05,
     &        1.55330E-02, 1.98091E-03, 1.45694E-04, 2.06812E-04,
     &        1.99227E-05,-7.90118E-06,-1.17734E-02,-6.63854E-04,
     &        2.89478E-04,-1.31885E-04,-9.91347E-06, 1.46724E-02,
     &       -3.92378E-04,-4.51594E-04,-6.61763E-05, 7.46851E-06,
     &        2.79867E-03, 1.70993E-04, 6.16372E-04, 6.84313E-05,
     &       -2.09240E-03, 3.16918E-03, 2.95663E-05,-9.25322E-05,
     &        1.00011E-03,-1.29294E-03, 2.90204E-05, 1.24287E-03,
     &        1.42047E-03, 4.31430E-04, 1.79942E-03,-2.09772E-03,
     &       -4.81952E-03, 1.25988E-04,-3.28198E-05, 2.64095E-03/
C     long 210deg, mar_eq
      DATA (D(15,1,J),J=1,289)/-8.62945E-01,
     &       -3.66789E-01,-4.39899E-01,-7.78882E-02,-2.94429E-01,
     &        2.66758E-01, 3.79185E-01, 1.04074E-01, 5.88198E-02,
     &       -4.05489E-03, 1.24994E-01,-1.42550E-01,-1.54048E-01,
     &       -7.08114E-02, 9.00482E-03, 2.24819E-03,-7.18852E-02,
     &       -1.82164E-01,-3.10270E-02, 7.90164E-02,-1.01416E-02,
     &        7.31867E-02, 2.88664E-02, 4.75618E-02,-8.09775E-03,
     &        9.81922E-03,-1.43535E-02,-2.09388E-02,-1.45167E-02,
     &       -1.24218E-02,-7.67060E-03,-4.33957E-03, 4.48850E-03,
     &       -2.26541E-01,-2.48760E-02, 2.35343E-03, 7.12009E-03,
     &        6.81005E-03,-1.42520E-02,-2.96915E-02,-2.79916E-02,
     &       -2.99852E-02,-9.36758E-03,-5.09700E-03, 2.16747E-03,
     &       -1.75156E-03, 6.11878E-03, 1.42399E-02, 3.01766E-03,
     &        2.02436E-02, 1.05961E-02, 3.63911E-02,-1.62497E-02,
     &        3.64248E-03,-6.96311E-04, 1.03985E-03, 1.81542E-03,
     &        2.44559E-03,-4.64247E-04,-2.66876E-03,-7.19073E-04,
     &       -4.63167E-04, 4.04211E-05,-9.97095E-04,-5.06181E-02,
     &       -2.76290E-02, 4.43287E-03,-4.12025E-03, 2.00715E-03,
     &        6.66510E-03, 1.11117E-03, 8.97837E-05,-2.05978E-03,
     &       -5.16217E-04,-2.05308E-03,-6.33459E-04,-1.67186E-04,
     &       -6.13162E-04, 6.14623E-04, 3.77874E-02,-3.35978E-03,
     &       -6.08841E-03, 1.15168E-03, 1.23357E-03, 2.86127E-04,
     &       -8.65350E-04, 1.16442E-04, 1.51837E-05,-2.34169E-05,
     &       -4.32589E-04, 5.28660E-05, 2.42602E-05, 7.93145E-05,
     &        6.97829E-02, 6.66679E-03, 1.62053E-02,-1.10628E-03,
     &       -2.66204E-03, 6.79009E-04,-2.87529E-04, 3.95952E-04,
     &       -1.01834E-04,-5.02262E-04,-9.96266E-05,-2.23887E-04,
     &        9.81689E-06, 8.15133E-05,-2.62793E-02,-6.62884E-03,
     &       -6.81085E-03,-9.18610E-04,-3.80386E-04, 3.86338E-04,
     &        3.20708E-04,-1.40688E-04, 2.77493E-05, 2.71331E-05,
     &        8.60792E-05, 7.07523E-07, 6.36527E-05,-1.17386E-02,
     &        4.56007E-03,-1.42731E-03, 1.43821E-03,-9.18289E-04,
     &       -5.82736E-05, 1.35159E-06, 8.24469E-05, 3.27374E-05,
     &       -2.86562E-05, 5.86759E-05, 6.57547E-05, 4.51174E-05,
     &       -4.20351E-03,-2.65989E-04, 2.53789E-03, 5.32296E-04,
     &        1.42143E-04, 2.89071E-05, 3.53866E-05, 6.48085E-05,
     &       -1.04334E-05, 2.17905E-05,-7.54947E-06,-8.21830E-06,
     &       -2.96641E-02,-3.12021E-03,-1.44128E-03, 6.29844E-04,
     &       -1.05078E-04, 3.82418E-04, 2.52185E-04, 3.64570E-05,
     &        3.87584E-05, 3.98405E-06, 2.05953E-06, 1.08183E-05,
     &        1.92396E-03, 1.65813E-03, 1.70675E-03, 2.42993E-04,
     &       -7.65617E-05,-1.06889E-04,-1.24844E-04, 3.94865E-05,
     &       -4.61310E-07, 2.86961E-05,-8.20771E-07, 7.40153E-04,
     &       -2.24497E-05, 5.92196E-05,-4.96563E-04, 1.51865E-04,
     &       -1.69800E-04, 5.86715E-06,-4.47218E-05,-1.60127E-06,
     &        4.62781E-06, 1.76748E-05,-4.48600E-03, 1.67322E-03,
     &       -2.51029E-05, 4.06506E-04,-1.03673E-04,-3.15134E-05,
     &       -1.17646E-05,-3.67867E-05,-1.37930E-05,-9.86172E-06,
     &        1.65161E-02, 2.93568E-03, 4.27646E-04,-2.12609E-04,
     &       -5.33317E-05,-3.66247E-05,-8.13110E-05, 1.19593E-06,
     &        1.43482E-06,-4.89044E-06,-1.36906E-03,-2.16231E-03,
     &       -9.92430E-05,-2.06961E-04, 8.83321E-05, 3.69813E-05,
     &        5.68602E-05,-1.02022E-05, 1.12148E-05, 5.80776E-03,
     &        5.46392E-04, 9.93633E-04, 2.12752E-04,-5.66056E-05,
     &        5.03273E-05, 3.08237E-05, 1.03903E-05, 1.34300E-05,
     &        4.25570E-03,-1.10704E-03,-2.18180E-04,-6.87578E-05,
     &       -4.24599E-05, 4.19314E-05, 2.85183E-05, 1.51564E-05,
     &       -1.24810E-02,-9.52029E-04, 1.05009E-04, 3.09720E-05,
     &       -5.46621E-05,-8.78588E-06, 2.60980E-05, 4.52812E-06,
     &        1.13218E-02, 1.42752E-03,-2.53693E-04,-1.81422E-05,
     &       -5.23408E-05,-1.06708E-05,-2.55353E-05,-2.16146E-03,
     &       -2.01100E-03,-4.74272E-04,-1.27167E-05,-8.04120E-05,
     &       -1.64142E-05, 1.70982E-05, 4.52999E-03,-7.62844E-04,
     &       -2.53204E-04,-3.26632E-05, 6.25370E-05, 3.56493E-06,
     &        7.60738E-03, 8.23034E-04,-3.63278E-04,-1.56871E-05,
     &       -7.90098E-05,-5.75256E-05,-9.65023E-03, 4.19650E-04,
     &        4.27064E-04,-1.11540E-04,-2.55708E-05, 5.10264E-03,
     &       -4.02939E-06,-2.73886E-04,-1.29181E-05, 2.13397E-05,
     &        1.93127E-03, 5.39811E-06, 1.27183E-04, 3.55263E-05,
     &       -9.95394E-03, 1.97380E-03,-9.81052E-05,-1.28890E-04,
     &        2.31947E-03,-4.91532E-05, 1.05504E-04,-2.94727E-03,
     &        1.40193E-03, 1.78928E-04, 8.27601E-04,-8.36578E-04,
     &        3.39897E-03, 2.09884E-04, 4.75691E-03, 3.85717E-05/
C     long 225deg, mar_eq
      DATA (D(16,1,J),J=1,289)/-8.67344E-01,
     &       -3.57091E-01,-4.09423E-01,-6.13617E-02,-3.00652E-01,
     &        2.90595E-01, 3.82132E-01, 1.07497E-01, 4.69320E-02,
     &       -3.02635E-03, 1.04461E-01,-1.39807E-01,-1.11782E-01,
     &       -6.43697E-02,-1.66617E-02,-1.52297E-02,-7.49391E-02,
     &       -1.74400E-01,-3.30449E-02, 6.45653E-02,-1.60512E-02,
     &        6.45361E-02, 3.00827E-02, 4.66404E-02,-8.23656E-03,
     &        7.66247E-03,-9.24394E-03,-2.32217E-02,-1.29520E-02,
     &       -1.20591E-02,-5.53037E-03,-7.57171E-03, 2.11598E-03,
     &       -2.40969E-01,-2.14106E-02, 6.65104E-03, 3.54309E-03,
     &       -1.97116E-03,-1.62784E-02,-3.24844E-02,-2.57960E-02,
     &       -3.08494E-02,-9.84828E-03,-6.48281E-03, 3.92049E-03,
     &        3.80557E-04, 4.54513E-03, 1.36684E-02, 1.89798E-03,
     &        2.74688E-02,-2.73519E-03, 3.03700E-02,-1.42524E-02,
     &        3.84242E-03,-5.36235E-04, 1.47318E-03, 1.85400E-03,
     &        1.73690E-03,-4.74610E-04,-3.18197E-03,-1.10727E-03,
     &       -8.09024E-04,-4.08829E-04,-1.45205E-03,-6.56878E-02,
     &       -1.86297E-02, 2.06013E-03,-2.41768E-03, 3.20645E-04,
     &        7.59731E-03, 4.48255E-04,-1.59166E-03,-3.38479E-03,
     &       -1.75688E-03,-2.89627E-03,-1.31392E-03,-8.03056E-05,
     &       -2.59730E-04, 4.54231E-04, 5.05351E-02,-2.50444E-03,
     &       -8.08306E-03, 2.87687E-04, 1.61169E-04, 1.37031E-04,
     &       -6.77815E-04, 1.59527E-04, 2.92210E-04, 3.19213E-05,
     &       -8.16870E-05,-2.88584E-06, 1.98746E-04, 9.15237E-05,
     &        6.89095E-02, 3.00087E-03, 1.29930E-02,-2.31386E-03,
     &       -3.73920E-03, 5.16370E-04,-1.60066E-04, 1.17841E-06,
     &       -3.75103E-05,-4.69410E-04, 6.22368E-05,-2.44726E-04,
     &       -2.76414E-05, 9.08526E-05,-2.34511E-02,-8.82121E-04,
     &       -4.68364E-03, 1.34419E-03, 1.13416E-04, 8.69756E-04,
     &        4.94182E-04, 2.23478E-04, 1.03718E-04, 1.07002E-04,
     &        5.46968E-05,-3.84542E-06, 1.62538E-05,-6.24806E-03,
     &        4.16028E-03,-1.58241E-03, 7.80191E-04,-9.67293E-04,
     &       -8.21711E-05,-6.63737E-05, 5.03810E-05, 5.41898E-05,
     &       -4.56928E-05, 1.32666E-05,-3.41904E-05, 3.37963E-05,
     &        2.00324E-03,-1.50928E-03, 2.41714E-03, 4.46688E-04,
     &        3.40414E-04,-5.28430E-05, 2.77577E-04, 9.44583E-05,
     &        5.04702E-05, 1.22026E-05, 2.44459E-05, 4.36650E-06,
     &       -2.90509E-02,-1.33357E-03,-4.02781E-04, 9.66341E-04,
     &        7.36287E-05, 2.83965E-04, 3.08292E-04, 2.99521E-05,
     &        1.35751E-04, 6.92328E-05, 6.56187E-05, 4.63027E-05,
     &        2.47264E-04,-1.16187E-04, 1.06455E-03,-2.35033E-04,
     &       -5.34774E-05,-8.53623E-06,-3.09906E-05, 2.68646E-05,
     &       -2.63390E-05,-7.32705E-06,-1.58853E-05, 2.00551E-03,
     &       -1.09503E-03, 6.19759E-04, 2.35272E-05, 2.32602E-04,
     &        6.18983E-05, 8.38953E-05,-3.37022E-06, 1.45292E-05,
     &        2.21175E-05, 7.96409E-06,-2.28812E-03, 9.24347E-04,
     &       -5.06051E-04, 1.50957E-04,-2.87252E-04,-7.61651E-05,
     &       -2.08715E-05,-2.72081E-05,-7.97310E-06,-1.26043E-05,
     &        8.39167E-03,-5.96899E-04, 6.03666E-06, 1.02357E-04,
     &        1.15670E-05,-7.84042E-06,-2.31886E-05, 1.13536E-05,
     &       -1.86312E-05,-2.88004E-05, 4.54681E-04, 3.17432E-04,
     &        2.69206E-04,-2.05233E-05, 4.39370E-05, 4.44969E-05,
     &        2.35264E-05, 9.84249E-06, 2.29642E-05,-2.22560E-03,
     &       -1.80188E-03, 6.31166E-04, 8.08456E-05,-1.38229E-04,
     &        2.94837E-05, 4.65980E-05, 2.82497E-05, 1.59460E-05,
     &       -2.89405E-03,-4.68456E-04,-4.75319E-05,-7.57219E-05,
     &       -5.85825E-05,-3.40250E-06,-7.15002E-07, 1.38987E-05,
     &        2.74083E-04,-6.77362E-04,-6.70406E-04, 8.02735E-05,
     &       -3.32020E-05,-3.44398E-05,-5.84091E-06, 5.91386E-07,
     &       -2.71412E-03, 8.57693E-04,-4.10725E-04,-6.35961E-05,
     &       -7.28668E-05,-3.48008E-05,-4.11932E-06,-6.79893E-04,
     &       -1.67666E-04,-8.61730E-06, 3.97562E-05, 9.94142E-06,
     &       -2.81771E-05,-7.61242E-06, 2.08342E-03,-1.68847E-03,
     &       -2.99236E-04,-1.63182E-05, 3.92807E-06, 1.40316E-05,
     &       -4.34421E-03, 1.01578E-03,-1.72849E-04, 5.04047E-05,
     &        1.26432E-05,-8.69952E-06, 7.04472E-04, 1.48446E-04,
     &        1.85051E-04,-1.32890E-04,-6.47523E-05, 5.07242E-05,
     &       -1.08392E-03,-2.11647E-04, 3.49817E-05, 8.28790E-06,
     &       -1.32890E-03, 5.23628E-04, 2.42703E-04,-3.97501E-05,
     &       -1.29409E-02,-2.76409E-04, 6.78382E-05,-9.06699E-05,
     &        4.58652E-04, 6.47634E-04, 2.03286E-04, 3.08902E-04,
     &        6.15447E-04, 8.66324E-05,-3.62616E-03, 3.52579E-04,
     &        3.98607E-03,-1.49467E-03, 5.24943E-03, 2.33037E-03/
C     long 240deg, mar_eq
      DATA (D(17,1,J),J=1,289)/-8.66235E-01,
     &       -3.46665E-01,-4.01426E-01,-2.60754E-02,-2.84456E-01,
     &        2.98969E-01, 3.63032E-01, 1.23714E-01, 6.96640E-02,
     &        7.16688E-03, 6.29500E-02,-1.65372E-01,-9.81253E-02,
     &       -6.49759E-02,-4.36637E-02,-5.37972E-02,-6.19236E-02,
     &       -1.51251E-01,-3.46801E-02, 5.39190E-02,-7.22218E-03,
     &        5.81024E-02, 2.73846E-02, 4.42331E-02,-2.15497E-03,
     &        5.32279E-03,-6.76996E-03,-2.44901E-02,-1.05226E-02,
     &       -1.36570E-02,-1.91402E-03,-9.12103E-03, 3.25435E-03,
     &       -2.43095E-01,-1.95341E-02, 9.54913E-03,-4.78590E-03,
     &       -7.61023E-03,-1.46395E-02,-3.13878E-02,-1.59361E-02,
     &       -2.72450E-02,-7.32985E-03,-7.48013E-03, 1.90658E-03,
     &       -2.53262E-07, 1.59035E-03, 8.70606E-03,-2.48792E-03,
     &        3.13292E-02,-1.64739E-02, 2.17455E-02,-1.60227E-02,
     &        4.02144E-03, 3.49730E-04, 1.91005E-03, 1.76714E-03,
     &        2.00331E-03,-6.12440E-04,-3.49333E-03,-1.31530E-03,
     &       -1.01104E-03,-2.02076E-04,-1.68988E-03,-4.90363E-02,
     &       -2.05143E-02,-6.69738E-03, 2.36625E-04,-3.96284E-04,
     &        6.04885E-03, 5.85480E-04,-1.48844E-03,-3.80092E-03,
     &       -2.29101E-03,-2.47546E-03,-9.75785E-04,-6.23770E-05,
     &       -4.26032E-04, 1.77152E-04, 5.26266E-02,-3.28763E-03,
     &       -1.04648E-02,-1.97320E-03,-1.53134E-03,-5.24396E-04,
     &       -9.51682E-04, 7.19534E-04, 3.76977E-04, 4.48900E-04,
     &       -2.00985E-05, 9.42602E-05, 1.61858E-04, 1.44418E-04,
     &        6.75241E-02, 3.44682E-03, 9.86911E-03,-8.12959E-04,
     &       -2.86356E-03, 1.04500E-03, 5.89926E-04, 5.37263E-04,
     &        6.93360E-05,-4.50839E-04, 1.37176E-04,-3.39007E-05,
     &       -2.59648E-05, 1.46980E-04,-1.21990E-02, 4.87728E-03,
     &       -2.42895E-03, 1.68178E-03, 4.53713E-04, 6.30469E-04,
     &        3.49933E-04, 1.36283E-04, 1.54687E-04, 1.09325E-04,
     &       -6.10930E-06,-1.21693E-04,-4.85500E-05,-1.62953E-03,
     &       -2.47043E-03,-3.29748E-03,-1.16658E-03,-1.66965E-03,
     &       -6.92603E-04,-3.09990E-04, 1.02352E-05,-8.54726E-05,
     &       -9.25117E-05, 2.71282E-06,-1.12001E-04, 1.60132E-05,
     &        1.28339E-03,-1.46095E-03, 1.60606E-03, 3.27454E-04,
     &        4.50358E-04, 2.04060E-04, 2.07632E-04, 7.66057E-05,
     &        1.12383E-04, 2.86853E-05, 6.35309E-05, 6.63070E-08,
     &       -2.27592E-02, 3.47031E-04,-6.79716E-04, 8.84995E-04,
     &        2.33528E-04, 6.35901E-05, 3.02669E-04, 2.27561E-05,
     &        9.32865E-05, 6.02840E-05, 1.14775E-05, 2.91710E-05,
     &        6.20268E-04,-1.65485E-03, 3.61520E-04,-4.63101E-04,
     &       -2.04864E-04,-9.20404E-05,-9.99663E-05,-3.96862E-05,
     &       -3.82732E-05,-9.62578E-06,-1.46165E-05, 2.68502E-03,
     &       -5.18971E-04, 2.97894E-04,-9.07711E-05, 6.04640E-04,
     &        3.30229E-04, 2.19803E-04, 5.60015E-05, 4.90059E-05,
     &        1.24078E-05, 4.06746E-07,-3.15658E-03, 2.00205E-03,
     &       -2.48072E-04, 1.74948E-04,-2.11306E-04,-1.40130E-04,
     &       -1.02428E-04,-5.92281E-05,-2.82766E-05,-3.09928E-05,
     &        5.95101E-03,-1.26470E-03,-6.33604E-04,-1.48779E-04,
     &        3.54127E-05, 2.56336E-05,-1.73107E-06, 2.27810E-05,
     &       -1.45068E-06,-1.15756E-05,-8.07306E-03,-9.41418E-04,
     &        3.53789E-04, 8.74124E-05,-8.15090E-05,-5.78113E-05,
     &       -4.67249E-05,-2.86032E-05,-1.02421E-05,-2.44326E-03,
     &       -5.92915E-04, 4.17990E-06, 8.35846E-05,-1.02637E-04,
     &       -4.30794E-05,-2.27817E-06,-1.32168E-05,-1.51494E-05,
     &       -2.58708E-03, 3.84531E-04, 1.25219E-04,-1.14048E-04,
     &       -4.43844E-05,-3.63611E-05,-3.75660E-05,-1.63961E-05,
     &       -1.47011E-03, 2.95930E-05,-3.63512E-04, 1.96395E-04,
     &        3.84462E-05,-1.45223E-05, 1.51590E-06, 9.47637E-07,
     &        5.65701E-03,-7.78200E-04,-2.87434E-04,-6.81946E-05,
     &       -1.80241E-05,-7.06410E-06,-1.04229E-06, 1.18345E-03,
     &        1.20054E-03,-1.12851E-05,-2.75099E-05, 4.54381E-05,
     &       -4.12554E-06,-1.17142E-05, 2.78624E-03,-1.28892E-03,
     &       -5.10410E-04, 1.00844E-05,-1.54451E-06, 9.24059E-06,
     &        5.10366E-03, 3.07769E-04, 1.69852E-04, 1.15383E-04,
     &        7.47638E-05, 4.67714E-05, 2.74965E-03,-1.77683E-04,
     &        1.60407E-04,-7.90391E-05, 1.15775E-05,-5.53629E-03,
     &       -1.91290E-03,-2.98906E-04,-5.21693E-05, 1.45403E-05,
     &        5.15253E-03, 5.96564E-04, 5.79486E-04, 5.41003E-05,
     &       -1.41208E-03,-3.98636E-04,-4.28555E-05,-4.35854E-05,
     &        1.17432E-03, 4.46901E-04, 2.51370E-04, 1.01204E-02,
     &        7.79310E-05,-3.64525E-05,-6.55750E-03, 4.49529E-04,
     &        2.11099E-03,-9.92103E-04, 9.55313E-04, 2.96689E-03/
C     long 255deg, mar_eq
      DATA (D(18,1,J),J=1,289)/-8.53124E-01,
     &       -3.37160E-01,-4.21929E-01, 4.75512E-03,-2.93221E-01,
     &        2.56239E-01, 3.14438E-01, 1.10203E-01, 1.10849E-01,
     &        4.42816E-02, 7.73358E-02,-1.73921E-01,-1.00886E-01,
     &       -4.01568E-02,-3.92377E-02,-7.60103E-02,-7.21093E-02,
     &       -1.47111E-01,-2.92811E-02, 5.61714E-02, 4.76819E-03,
     &        5.21034E-02, 2.52148E-02, 3.81159E-02, 6.72295E-03,
     &        7.91878E-03, 2.28087E-03,-2.28430E-02,-6.14532E-03,
     &       -1.70760E-02,-1.98184E-03,-1.41607E-02,-1.54838E-04,
     &       -2.42849E-01,-2.48954E-02, 6.98448E-03,-1.15509E-02,
     &       -1.01463E-02,-1.20248E-02,-3.80723E-02,-1.09856E-02,
     &       -2.63637E-02,-4.17156E-03,-1.06081E-02,-8.98881E-04,
     &        2.19435E-04, 2.31777E-04, 8.97813E-03,-3.70583E-03,
     &        3.54365E-02,-1.44360E-02, 1.86073E-02,-1.60216E-02,
     &        2.55497E-03,-1.23121E-03, 1.26411E-03, 4.88681E-04,
     &        2.64768E-03,-8.48471E-05,-2.76273E-03,-5.12717E-04,
     &       -7.68111E-04, 9.50539E-05,-2.04001E-03,-4.89600E-02,
     &       -2.12246E-02,-1.63161E-02,-6.83351E-04,-2.02261E-03,
     &        4.65297E-03,-5.15231E-04,-1.41164E-03,-3.02083E-03,
     &       -1.60963E-03,-2.00321E-03,-8.22637E-04,-3.89814E-04,
     &       -5.48897E-04, 9.89152E-05, 4.77838E-02,-3.62703E-03,
     &       -9.55545E-03,-1.66429E-03,-1.72442E-03,-3.97004E-04,
     &       -7.96023E-04, 1.21571E-03, 3.32475E-04, 5.40062E-04,
     &       -5.62202E-05, 2.67608E-04, 1.53970E-04, 1.62718E-04,
     &        5.69724E-02, 4.84346E-03, 7.85907E-03, 7.75938E-04,
     &       -3.11021E-03, 5.56627E-04, 5.22941E-04, 8.12711E-04,
     &        2.93281E-04,-2.39883E-04, 2.47943E-04, 1.95348E-04,
     &        5.36215E-05, 1.14554E-04, 2.88700E-03, 3.79841E-03,
     &       -2.19948E-03, 8.60988E-04, 9.21183E-04, 3.72696E-04,
     &        3.25686E-05,-6.67257E-05, 3.63346E-05,-6.88281E-05,
     &       -7.23842E-05,-1.95352E-04,-8.05905E-05,-2.65884E-03,
     &       -5.64298E-03,-3.19475E-03,-1.34235E-03,-1.82529E-03,
     &       -7.17397E-04,-1.45102E-04, 7.79897E-05,-1.01057E-04,
     &       -1.01528E-04,-8.39286E-06,-4.19619E-05,-2.29278E-05,
     &       -6.28329E-03,-2.15405E-03, 6.43353E-04, 4.65067E-04,
     &        3.23486E-04, 5.40094E-05, 7.88106E-06,-6.31172E-06,
     &        6.75369E-05,-2.45315E-05, 3.39019E-05,-9.93522E-06,
     &       -1.11152E-02,-6.00795E-04,-1.55006E-03, 3.67215E-04,
     &        1.18548E-04,-1.97712E-04, 1.47229E-04,-3.18706E-05,
     &        1.75402E-06,-1.95964E-05,-2.76542E-05,-7.01374E-06,
     &        4.49200E-03,-2.03123E-03,-1.64759E-04,-8.51572E-05,
     &       -1.52973E-04, 2.06687E-05,-5.74642E-05, 1.60798E-05,
     &        1.78587E-05, 1.91831E-05,-3.90883E-06, 8.06744E-03,
     &       -1.35534E-03,-1.18144E-03,-6.76884E-05, 3.87295E-04,
     &        3.37316E-05, 3.63878E-05,-1.52759E-05, 8.59265E-06,
     &       -1.02690E-05,-1.84754E-05,-4.99884E-03, 1.19678E-03,
     &       -4.08298E-04,-7.34905E-05,-5.78113E-05,-8.94587E-05,
     &       -1.12017E-04,-3.81547E-05,-6.95365E-06,-2.59071E-05,
     &        9.50356E-03,-1.73779E-03,-8.14271E-04,-1.84350E-04,
     &       -8.80978E-05,-4.41188E-05,-1.84994E-05, 4.24209E-06,
     &        1.43777E-05,-5.73938E-06,-8.08804E-03,-3.21448E-04,
     &        2.21492E-04, 7.28526E-05,-1.25943E-04,-1.05233E-04,
     &       -6.43980E-05,-6.75304E-05,-3.66070E-05, 5.85374E-03,
     &        8.67734E-04, 4.24871E-04, 2.14722E-04,-2.61814E-05,
     &       -7.47843E-05,-2.81265E-05,-2.89935E-05,-1.63716E-05,
     &       -4.63306E-03, 1.58041E-04, 1.34546E-05,-2.00879E-04,
     &       -2.64122E-05,-1.44922E-05, 2.18112E-06,-1.06965E-05,
     &       -4.13592E-03, 1.18665E-03, 1.56386E-04, 2.80266E-04,
     &        8.93221E-05, 6.16834E-05, 1.42202E-05,-5.74722E-06,
     &        8.02952E-04,-2.51931E-03,-2.66639E-04,-1.25659E-04,
     &       -5.63701E-05,-5.43805E-05,-2.08033E-05,-5.53705E-03,
     &        2.42236E-03,-1.10393E-04, 1.36096E-05, 5.02524E-05,
     &        9.84169E-06, 7.11509E-06, 3.63185E-03,-2.20469E-03,
     &       -5.33948E-04,-7.53258E-05,-3.13830E-05,-3.96494E-05,
     &        1.13474E-03,-5.43505E-04, 3.96843E-04, 9.58932E-06,
     &        7.15802E-06, 1.17998E-05, 5.83000E-03,-3.12501E-04,
     &        5.27087E-05, 5.59960E-05, 3.91607E-05,-7.72626E-03,
     &       -1.18404E-03,-3.48446E-04,-1.41875E-04, 1.18677E-05,
     &        1.20761E-02, 5.06882E-04, 4.35091E-04, 7.30299E-05,
     &        9.18361E-03, 1.15365E-04,-2.79114E-04,-1.81733E-05,
     &       -2.24145E-03,-5.70400E-05, 2.05176E-04, 1.19610E-02,
     &        5.38167E-05, 4.25096E-05,-4.44381E-04,-3.29369E-04,
     &        7.46707E-03,-1.05345E-04,-2.58374E-04,-5.06188E-04/
C     long 270deg, mar_eq
      DATA (D(19,1,J),J=1,289)/-8.40135E-01,
     &       -3.20553E-01,-4.38928E-01, 4.14959E-02,-2.95773E-01,
     &        2.02072E-01, 3.06383E-01, 1.05245E-01, 1.16211E-01,
     &        3.60539E-02, 7.93126E-02,-1.64089E-01,-1.29911E-01,
     &       -3.69575E-02,-4.30273E-02,-6.06378E-02,-8.21783E-02,
     &       -1.59070E-01,-2.86142E-02, 5.50587E-02, 8.86455E-03,
     &        4.46131E-02, 2.27009E-02, 2.93457E-02, 7.00958E-03,
     &        8.33508E-03, 1.08138E-02,-1.96247E-02,-9.53854E-04,
     &       -1.67051E-02, 8.31043E-04,-1.72405E-02,-2.65782E-03,
     &       -2.48103E-01,-3.60801E-02, 3.27132E-03,-6.16557E-03,
     &       -1.34776E-02,-8.11112E-03,-4.14501E-02,-4.65958E-03,
     &       -2.37236E-02,-2.58639E-03,-1.21283E-02,-2.09401E-03,
     &        1.15804E-03,-4.77243E-04, 8.32317E-03,-4.61225E-03,
     &        4.23827E-02,-9.71809E-03, 2.05451E-02,-9.53487E-03,
     &        3.49204E-03,-1.04995E-03, 1.67378E-03, 1.09137E-04,
     &        2.54521E-03,-2.27855E-06,-2.01587E-03,-1.55545E-04,
     &       -8.76894E-04, 6.10049E-05,-1.58991E-03,-7.00803E-02,
     &       -1.79218E-02,-2.29199E-02,-5.32957E-03,-4.75822E-03,
     &        3.91222E-03,-1.49464E-03,-1.48164E-03,-2.19723E-03,
     &       -1.35280E-03,-2.61898E-03,-1.35021E-03,-5.92707E-04,
     &       -7.04993E-04, 8.76645E-05, 4.83365E-02,-4.48937E-04,
     &       -7.25131E-03,-5.53220E-04,-1.05946E-03,-8.27921E-04,
     &       -7.03798E-04, 7.64938E-04, 1.84770E-04, 2.45753E-04,
     &        1.18981E-04, 3.15554E-04, 1.10514E-04, 1.13911E-04,
     &        4.81091E-02, 1.48091E-03, 4.32694E-03, 8.09501E-04,
     &       -3.91775E-03,-6.89537E-04, 3.92112E-04, 9.79271E-05,
     &        4.08554E-04,-1.58373E-04, 1.95835E-04, 1.10670E-04,
     &        8.19003E-05, 9.30369E-05, 7.63825E-03, 6.24466E-04,
     &       -2.65742E-03, 2.28731E-05, 7.74475E-04, 4.28970E-04,
     &       -1.94484E-05, 3.27089E-05, 6.03922E-05,-1.13736E-04,
     &        1.42471E-05,-9.79358E-05,-3.94076E-05,-2.65393E-03,
     &       -3.47390E-03, 9.37762E-04,-2.94474E-04,-8.36907E-04,
     &       -3.69706E-04, 3.47247E-04, 1.85817E-04, 7.81029E-05,
     &        2.51339E-05, 2.98331E-05, 6.63622E-05,-5.26740E-05,
     &        2.41772E-03,-2.13214E-03, 2.42570E-04, 7.66774E-04,
     &        5.97189E-04, 4.82251E-05, 1.11693E-04, 2.23454E-06,
     &        2.09954E-05,-3.09363E-05, 2.23110E-05,-1.94138E-06,
     &       -1.04112E-02,-2.64365E-03,-2.55922E-03,-1.20162E-04,
     &       -1.16336E-04,-2.55315E-04, 6.01138E-05, 6.44307E-06,
     &        4.61151E-06,-2.59095E-06,-7.75861E-06,-6.08661E-06,
     &        6.13504E-03,-1.84469E-03,-4.72280E-04, 1.85604E-04,
     &       -1.54631E-04, 3.94839E-05,-5.73608E-05, 3.62395E-05,
     &        4.01557E-06,-1.84520E-06, 9.71417E-07, 7.10587E-03,
     &       -2.64899E-03,-9.45419E-04, 1.01860E-04, 7.35590E-05,
     &       -9.37677E-05,-3.17218E-06, 3.62780E-05, 1.50634E-06,
     &        1.09675E-05,-2.05228E-06,-4.36488E-03,-1.35920E-03,
     &       -6.50520E-04,-3.81749E-04, 4.34289E-05, 9.65592E-06,
     &       -3.54916E-05,-2.01371E-05, 1.09399E-05,-5.50245E-06,
     &        1.39469E-02,-1.70153E-03,-1.38762E-04, 1.42429E-04,
     &       -1.38122E-04,-1.68713E-04,-2.15110E-05,-1.60914E-05,
     &        1.63871E-06,-5.30378E-06,-6.34549E-03, 7.51267E-05,
     &        2.72354E-04,-1.33431E-04, 5.85467E-05,-2.90057E-05,
     &       -7.46571E-06,-3.88486E-05,-7.10949E-06, 6.71614E-03,
     &       -7.81987E-04, 5.37644E-04,-1.75373E-05,-8.64098E-05,
     &       -1.35008E-04,-5.76616E-05,-3.37778E-05,-2.11136E-05,
     &       -8.84121E-03,-7.04383E-04, 1.02630E-04,-4.79162E-05,
     &        7.99143E-06, 6.87383E-05, 3.87249E-05, 9.62960E-06,
     &       -2.47785E-03,-1.00149E-03, 2.23245E-04, 8.95196E-05,
     &       -4.13020E-06, 1.19164E-05, 2.88759E-06, 1.94003E-06,
     &       -1.16006E-02,-1.61187E-03,-2.60155E-04,-4.78823E-05,
     &       -2.87273E-05,-2.40364E-05,-1.83435E-05,-7.41883E-04,
     &        1.11077E-03, 2.72782E-04, 3.05214E-04, 1.16424E-04,
     &        1.74829E-05, 2.78645E-05, 2.50957E-03,-2.45275E-03,
     &       -8.09838E-04,-1.57047E-04,-8.68446E-05,-5.43210E-05,
     &       -2.20026E-03, 3.82789E-04, 1.30792E-04,-1.01950E-04,
     &        3.02163E-06,-5.47169E-06, 7.85790E-03,-9.85440E-04,
     &       -4.16056E-04, 7.84742E-05,-1.10129E-05, 6.24988E-04,
     &       -4.75818E-05,-1.64107E-04,-2.37377E-04,-2.15464E-05,
     &        8.83724E-03, 8.92768E-04, 1.82956E-04, 1.08459E-04,
     &        5.73047E-04,-4.77948E-04,-3.56952E-04,-4.25860E-05,
     &        1.73795E-03,-2.88005E-04, 2.34255E-04, 2.72284E-03,
     &        3.96256E-04, 1.15611E-04, 8.40941E-04,-1.10539E-03,
     &        1.26403E-02,-8.41176E-04,-1.08305E-03, 3.35725E-03/
C     long 285deg, mar_eq
      DATA (D(20,1,J),J=1,289)/-8.38064E-01,
     &       -2.98783E-01,-4.65865E-01, 5.98683E-02,-3.12774E-01,
     &        1.37593E-01, 3.13633E-01, 1.07310E-01, 1.12862E-01,
     &       -3.68880E-03, 8.24510E-02,-9.97394E-02,-1.40154E-01,
     &       -3.58884E-02,-4.87578E-02,-4.60013E-02,-9.10149E-02,
     &       -1.67413E-01,-3.02067E-02, 5.59778E-02, 1.22252E-02,
     &        4.35172E-02, 2.36011E-02, 2.66493E-02, 5.16509E-03,
     &        5.50164E-03, 1.23378E-02,-1.91503E-02, 1.18566E-05,
     &       -1.50383E-02, 3.83245E-03,-1.68685E-02,-1.42051E-03,
     &       -2.45079E-01,-4.66742E-02,-9.52814E-04,-9.89714E-04,
     &       -1.75855E-02,-7.85114E-03,-4.39149E-02,-3.01594E-03,
     &       -2.43337E-02,-2.03103E-03,-1.20127E-02,-2.73404E-03,
     &        3.70726E-04,-7.73263E-04, 9.42269E-03,-3.56905E-03,
     &        2.44682E-02,-1.07328E-02, 2.50035E-02,-4.30966E-03,
     &        3.63812E-03,-5.41466E-04, 2.95321E-03, 5.23483E-04,
     &        2.13293E-03, 3.17956E-04,-1.43715E-03, 1.58395E-04,
     &       -6.09929E-04, 2.61232E-04,-9.63502E-04,-7.41916E-02,
     &       -1.64228E-02,-2.75592E-02,-9.52370E-03,-7.80864E-03,
     &        6.90430E-04,-8.21846E-04,-1.71059E-03,-1.87432E-03,
     &       -1.32060E-03,-2.66093E-03,-1.30902E-03,-7.06878E-04,
     &       -6.75918E-04, 1.36680E-05, 4.42909E-02, 6.23471E-03,
     &       -5.01498E-03,-1.49740E-04,-7.67727E-04,-7.89712E-04,
     &       -7.43340E-04, 1.73334E-04, 5.97993E-05,-2.03191E-04,
     &        7.36844E-05, 3.14370E-05, 5.82370E-05, 4.79353E-05,
     &        4.27479E-02, 1.12185E-03, 3.44833E-03, 1.07977E-03,
     &       -4.49360E-03,-4.80515E-04, 6.48200E-04, 2.03420E-04,
     &        4.38990E-04, 3.99816E-04, 3.63721E-04, 1.45215E-04,
     &        1.19783E-04, 1.21030E-04, 3.95880E-03, 8.02570E-04,
     &       -1.59362E-03, 8.06767E-04, 7.89827E-04, 6.77558E-04,
     &        1.28942E-04, 8.84223E-05, 1.15043E-04,-5.43781E-05,
     &        1.23042E-04,-3.30033E-05, 5.26637E-05,-2.68132E-03,
     &       -7.11007E-05, 2.99763E-03,-6.93972E-04,-6.71805E-04,
     &       -6.73321E-04, 2.96029E-04, 5.46285E-05, 7.74699E-05,
     &        1.67000E-05, 8.34839E-05, 1.99932E-05,-4.95555E-05,
     &        1.61381E-03,-1.26677E-03, 1.28451E-04, 7.09136E-04,
     &        5.07036E-04, 2.71543E-04, 1.75640E-04, 1.15364E-05,
     &       -3.62827E-05,-1.38199E-05,-2.54839E-06, 3.19453E-06,
     &       -1.75488E-02,-4.45985E-03,-2.18906E-03,-1.82859E-04,
     &        6.68460E-06,-1.22983E-04, 1.35713E-04, 3.04598E-05,
     &       -9.86553E-07, 1.90841E-05,-3.10157E-05,-1.33716E-05,
     &        7.37802E-03,-6.53151E-04,-1.09643E-04, 3.44921E-04,
     &       -7.02369E-05, 8.70077E-05, 6.12922E-06, 1.60434E-05,
     &       -3.76093E-05,-5.02856E-05,-1.56105E-05, 1.60469E-03,
     &       -3.49762E-03,-2.22527E-04,-7.87681E-05, 8.50010E-05,
     &       -3.19087E-05, 4.25690E-05, 8.91589E-05, 2.26125E-05,
     &        2.86660E-05, 2.01502E-05,-1.57268E-03,-1.85745E-03,
     &       -3.92447E-04,-6.18624E-05, 9.19444E-05, 3.82093E-05,
     &        1.18389E-05,-3.00099E-05, 4.39810E-06,-7.47663E-06,
     &        1.83096E-02,-2.05262E-03,-7.25148E-04,-7.04184E-05,
     &       -8.41906E-05,-1.87363E-04,-5.35089E-05,-1.75920E-06,
     &       -2.80094E-05,-1.69733E-05,-4.55167E-03,-1.45133E-03,
     &        1.45846E-04, 5.40599E-05, 9.16343E-05, 3.41855E-06,
     &        2.07099E-06,-9.12390E-06,-4.50538E-06, 6.38348E-03,
     &       -1.62091E-03,-2.94164E-04,-1.24205E-04,-4.34931E-06,
     &       -8.70021E-05,-1.93281E-05,-2.21046E-05,-1.27670E-05,
     &       -7.70691E-03, 1.17708E-03, 7.18466E-04, 2.64489E-04,
     &        3.08948E-05, 7.89936E-05, 2.66038E-05, 1.02863E-05,
     &       -5.93218E-03,-2.60964E-03, 4.05232E-04, 1.36829E-04,
     &       -2.27131E-05,-1.69448E-06, 5.39316E-06, 6.20645E-06,
     &       -5.57547E-03, 8.86366E-04, 3.30324E-06, 9.26281E-05,
     &        4.85879E-05, 2.37268E-05,-1.80076E-05,-5.24933E-04,
     &        2.63191E-04, 3.55702E-04, 2.83488E-04, 1.00992E-04,
     &        2.22001E-05, 2.34939E-05, 1.24313E-03,-1.90321E-03,
     &       -7.94264E-04,-2.07689E-04,-8.42631E-05,-2.45157E-05,
     &        1.94578E-03, 1.52186E-03, 5.05926E-05,-6.88595E-05,
     &        2.14719E-05, 2.21354E-06, 4.91784E-03,-6.03833E-04,
     &       -7.10991E-04,-9.69167E-05,-4.00730E-05, 1.02818E-03,
     &       -7.90234E-04,-2.93682E-04,-2.62743E-04, 3.52222E-06,
     &        7.96736E-03, 1.49077E-04, 6.12969E-05, 7.07483E-05,
     &       -4.36687E-03,-5.83570E-04,-8.49716E-05,-1.98526E-04,
     &        1.45022E-03, 2.32954E-04,-1.78157E-04,-6.85235E-04,
     &        1.10377E-04,-1.26693E-04,-3.56883E-03,-1.14732E-03,
     &        7.51795E-03,-5.79416E-04, 1.09912E-03, 3.49638E-03/
C     long 300deg, mar_eq
      DATA (D(21,1,J),J=1,289)/-8.38691E-01,
     &       -2.61181E-01,-4.93362E-01, 6.30772E-02,-3.29871E-01,
     &        1.05394E-01, 3.41842E-01, 1.12361E-01, 1.03427E-01,
     &       -7.29583E-02, 9.17142E-02,-4.12349E-02,-1.35837E-01,
     &       -5.40867E-02,-4.95138E-02,-2.85277E-02,-9.33975E-02,
     &       -1.67743E-01,-2.78046E-02, 5.75099E-02, 1.38177E-02,
     &        4.78230E-02, 2.05435E-02, 3.17120E-02, 5.10239E-03,
     &        2.59633E-03, 1.06619E-02,-1.95633E-02, 1.10295E-03,
     &       -1.59251E-02, 5.39635E-03,-1.58809E-02,-1.65202E-03,
     &       -2.43887E-01,-4.84757E-02,-4.41283E-03,-1.75958E-04,
     &       -1.60599E-02,-4.62238E-03,-4.11163E-02,-1.89223E-03,
     &       -2.65890E-02,-2.83458E-04,-1.01333E-02,-1.40331E-03,
     &       -7.27203E-04,-1.82100E-03, 8.11035E-03,-2.73032E-03,
     &        8.89268E-03,-1.78484E-02, 2.56032E-02,-9.60342E-04,
     &        3.08898E-03,-1.52456E-03, 2.70606E-03, 8.63157E-04,
     &        1.66636E-03, 5.38905E-04,-1.85823E-03, 4.23746E-04,
     &       -8.84779E-04,-5.81304E-05,-1.23738E-03,-5.87656E-02,
     &       -1.41261E-02,-2.97881E-02,-1.06496E-02,-9.48417E-03,
     &       -1.70032E-03, 2.03138E-04,-1.85303E-03,-1.62877E-03,
     &       -8.82666E-04,-1.36851E-03,-9.85808E-04,-3.31851E-04,
     &       -7.23812E-04, 2.31117E-04, 4.20364E-02, 5.14634E-03,
     &       -5.44326E-03,-6.67282E-04,-1.30515E-03,-2.56574E-04,
     &       -9.38593E-04,-9.31788E-05,-8.64937E-05,-4.64907E-04,
     &        1.51055E-05,-9.85726E-05, 2.85364E-05, 1.08235E-04,
     &        4.46465E-02, 2.11121E-03, 4.67044E-03, 1.11027E-03,
     &       -4.20763E-03,-9.71836E-05, 5.21799E-04, 3.35593E-04,
     &        6.40649E-05, 5.80332E-04, 2.20430E-04, 1.40158E-04,
     &       -5.36943E-05, 7.66811E-05,-3.90816E-03,-8.09141E-04,
     &       -2.04226E-03, 4.33267E-04, 5.39267E-04, 5.06872E-04,
     &        5.17870E-05, 9.94383E-06,-1.10518E-05,-4.77107E-05,
     &        1.08498E-04,-2.70380E-05, 8.96165E-05,-3.98507E-03,
     &        3.36718E-03, 3.02551E-03,-8.54953E-04,-6.16798E-04,
     &       -4.24264E-04, 1.62741E-04,-4.93678E-06, 4.63314E-06,
     &       -6.28243E-05, 7.04884E-05,-2.31696E-05,-5.91267E-05,
     &       -9.87528E-03, 8.65871E-04, 2.72839E-04, 3.33274E-04,
     &        3.50408E-04, 3.46474E-04, 3.01491E-04, 7.19428E-05,
     &        1.33063E-05, 1.55205E-05,-9.70134E-06,-9.93427E-06,
     &       -1.74284E-02,-8.66425E-04,-4.54666E-04,-3.98694E-04,
     &        2.60188E-04, 1.66592E-04, 2.23289E-04, 3.11527E-05,
     &       -5.56913E-06, 3.32515E-05, 2.54261E-05,-5.85719E-06,
     &        6.39084E-03, 1.09082E-03, 2.92612E-04, 2.47369E-04,
     &       -2.80326E-05, 1.43089E-04, 1.17934E-05, 2.96661E-05,
     &       -2.98687E-06,-1.90797E-05,-1.70593E-05, 6.20220E-03,
     &       -1.39028E-03, 9.38997E-05,-3.49197E-05, 1.11475E-04,
     &        6.38711E-05,-1.78674E-05, 3.20257E-05,-1.47547E-06,
     &        1.25483E-05,-3.58688E-06,-7.58915E-03,-1.22918E-03,
     &       -1.38508E-04, 2.60159E-05,-2.25753E-05,-1.14852E-05,
     &       -1.40756E-05,-4.89795E-05,-1.82353E-05,-2.41714E-05,
     &        1.93812E-02,-2.88628E-04,-4.14600E-04,-2.18762E-04,
     &        4.24769E-06,-3.73512E-05,-2.35625E-05, 1.85923E-05,
     &       -3.35162E-06,-5.70233E-06,-2.88512E-03,-2.26668E-03,
     &       -3.79238E-04, 1.95009E-04,-1.03339E-05, 1.61366E-06,
     &       -3.97098E-05, 4.52589E-06,-5.34708E-06, 1.23695E-03,
     &        1.05070E-03,-3.23542E-04,-2.30439E-04,-2.96377E-05,
     &        8.98288E-06, 4.15164E-05, 4.47227E-06, 1.28550E-05,
     &       -3.63723E-03, 1.26936E-03, 4.89946E-04, 1.13279E-04,
     &        2.11403E-05, 2.86424E-05, 1.79343E-05, 1.02379E-05,
     &       -5.37488E-03,-1.60441E-03, 2.92730E-05, 9.92416E-05,
     &       -3.68503E-05, 1.77851E-05, 5.37447E-06, 7.37338E-06,
     &        2.06229E-03, 2.50630E-03, 2.15514E-04,-5.43476E-05,
     &        5.22709E-05,-1.75033E-05,-2.64327E-05,-1.29866E-03,
     &        9.05281E-04,-5.26435E-06, 5.42061E-05, 2.81065E-05,
     &       -1.33362E-05,-1.50766E-05, 3.25593E-03,-1.53409E-03,
     &       -3.68429E-04,-9.67763E-05,-4.02958E-05, 4.90141E-06,
     &       -2.13235E-03, 1.41890E-03, 1.15113E-04,-8.41497E-05,
     &        6.72730E-06,-1.82659E-05, 7.81504E-03,-1.78815E-04,
     &       -5.24193E-04,-1.13321E-04,-2.86964E-05,-3.63982E-03,
     &       -1.40139E-03,-3.63296E-04,-1.87058E-04, 1.37463E-05,
     &        2.62877E-03,-1.08075E-03, 2.85753E-04, 6.04155E-05,
     &        1.25269E-03, 2.59038E-04, 5.16082E-05,-9.58268E-05,
     &       -3.59455E-03,-6.92608E-04,-1.98925E-04, 2.73320E-03,
     &       -1.06975E-03,-7.73583E-06,-3.56105E-03,-1.39621E-04,
     &        3.86827E-03,-5.30108E-04, 1.60579E-03, 1.74901E-03/
C     long 315deg, mar_eq
      DATA (D(22,1,J),J=1,289)/-8.45914E-01,
     &       -2.25924E-01,-5.18068E-01, 4.41744E-02,-3.55987E-01,
     &        8.10911E-02, 3.74791E-01, 1.18580E-01, 1.22759E-01,
     &       -1.29894E-01, 8.12608E-02,-5.80954E-03,-1.30894E-01,
     &       -9.47828E-02,-5.79669E-02, 2.75946E-03,-7.25516E-02,
     &       -1.54413E-01,-2.18894E-02, 4.97105E-02, 1.48923E-02,
     &        4.74155E-02, 1.09158E-02, 3.42696E-02, 3.79893E-03,
     &        1.47620E-03, 6.15124E-03,-1.94509E-02, 1.75090E-03,
     &       -1.54606E-02, 6.55463E-03,-1.37269E-02,-3.26340E-03,
     &       -2.29179E-01,-5.24487E-02,-7.78505E-03,-2.57979E-03,
     &       -1.18967E-02,-2.22489E-03,-4.02471E-02, 3.35827E-03,
     &       -2.99163E-02,-1.96937E-03,-1.21886E-02, 5.74469E-04,
     &       -1.09709E-03,-3.13852E-03, 5.02235E-03, 4.96980E-04,
     &        1.77281E-02,-1.98373E-02, 2.23295E-02, 1.16379E-03,
     &        4.66517E-03,-1.55415E-03, 1.75148E-03, 4.78037E-04,
     &        2.34062E-03, 1.19520E-03,-1.63045E-03, 1.08616E-03,
     &       -7.15945E-04, 1.99815E-04,-1.06319E-03,-2.96138E-02,
     &       -1.28247E-02,-2.97038E-02,-8.61058E-03,-1.03685E-02,
     &       -3.22897E-03, 2.44227E-04,-1.21761E-03,-2.53768E-03,
     &       -1.26199E-03,-1.12175E-03,-1.00724E-03,-1.77962E-04,
     &       -1.53021E-03, 2.32074E-04, 4.18517E-02, 3.26787E-03,
     &       -4.00636E-03,-1.32221E-03,-5.04688E-04,-4.21893E-04,
     &       -8.31439E-04,-1.96029E-04, 1.28232E-04,-2.96906E-04,
     &        1.20019E-04,-9.86351E-05,-6.58949E-05, 4.42954E-05,
     &        5.20192E-02,-1.66889E-03, 3.46255E-03, 1.08440E-04,
     &       -2.90854E-03,-3.60645E-04, 1.29349E-04,-2.32152E-04,
     &       -3.49771E-04, 2.72344E-04, 1.73584E-04, 3.19798E-04,
     &       -3.01690E-05, 6.46835E-05,-5.66198E-03,-1.21741E-03,
     &       -2.80881E-03,-6.79156E-05,-5.31501E-04, 2.75674E-04,
     &       -1.24568E-04,-3.26980E-05,-1.16830E-04,-3.72625E-05,
     &        7.88529E-05, 8.69149E-06, 4.64853E-05,-6.38885E-03,
     &        3.41458E-03, 1.69884E-03,-6.11599E-04,-5.72029E-04,
     &       -1.26487E-04,-1.35757E-04, 3.60811E-05,-2.21964E-05,
     &       -6.18957E-05, 4.98704E-05, 1.08700E-05,-3.55922E-05,
     &       -8.33630E-03, 3.03515E-03, 7.25102E-04, 3.19946E-04,
     &        5.20809E-04, 3.43612E-04, 3.46370E-04, 1.64480E-04,
     &        8.51036E-05, 5.35163E-05, 1.47481E-05,-2.43159E-05,
     &       -1.79027E-02,-8.63747E-04,-7.78586E-04,-1.04882E-03,
     &        4.17946E-05, 1.37006E-06, 8.65534E-05,-6.13418E-06,
     &        4.46531E-05, 1.36144E-05, 4.05314E-05, 5.99313E-06,
     &       -3.46865E-04, 2.05911E-03, 2.46031E-04, 4.80890E-04,
     &       -6.71397E-05, 5.18282E-05,-1.39661E-05, 3.57484E-05,
     &        2.21653E-05, 1.37947E-05, 9.92033E-08, 1.02626E-02,
     &        8.41791E-04,-6.26550E-04,-5.80075E-04,-1.35029E-04,
     &       -6.90304E-05,-1.09892E-04,-1.17118E-04,-4.25921E-05,
     &       -1.16400E-05,-1.04552E-05,-5.37344E-03,-9.41030E-04,
     &        3.30910E-07, 1.94659E-04, 1.30509E-04,-1.46262E-05,
     &       -1.06816E-05, 9.11229E-06, 1.13342E-06,-8.38085E-06,
     &        1.93060E-02, 1.69382E-04,-3.02252E-04,-1.37392E-04,
     &       -4.35029E-05,-8.07540E-06, 3.10860E-06, 3.45048E-06,
     &        7.75590E-06, 9.10334E-06,-3.13688E-03,-1.38338E-03,
     &       -1.52412E-04, 3.20582E-05, 1.31617E-04, 2.31162E-05,
     &       -2.40816E-05, 2.06383E-05, 1.59848E-05,-1.08915E-03,
     &        4.72005E-04, 1.76285E-04,-1.75590E-04,-1.17729E-04,
     &       -2.74596E-06, 4.48157E-05,-1.01861E-06, 1.64318E-05,
     &       -3.27081E-03,-1.59651E-04, 1.34206E-04,-1.43557E-04,
     &        7.37749E-06,-5.02930E-06, 8.92163E-06, 8.31616E-06,
     &        3.84567E-04,-3.29468E-04,-4.31501E-04,-1.22022E-04,
     &       -8.77110E-05, 7.57774E-06, 1.35895E-06, 6.06686E-06,
     &        3.40753E-03, 1.16421E-03, 2.90539E-04,-1.22817E-04,
     &        3.25396E-06,-1.55672E-05,-1.31110E-05, 7.06433E-04,
     &        9.30235E-04,-1.82248E-04,-7.54950E-05, 1.06108E-05,
     &       -3.09228E-05,-1.85739E-05, 5.01328E-03,-1.03251E-03,
     &       -2.79449E-05,-7.46546E-05, 7.04048E-06,-2.78724E-05,
     &        7.11954E-03, 1.19152E-03,-1.11685E-04,-1.81511E-04,
     &       -3.57290E-05,-2.38440E-05, 8.11457E-03, 3.77186E-04,
     &        2.23153E-05, 9.44971E-05, 1.15730E-05, 8.32819E-03,
     &        1.06480E-04, 1.91366E-04,-1.53837E-04,-3.63926E-05,
     &       -5.17030E-03,-9.24467E-04, 3.88809E-04, 8.26287E-05,
     &       -2.91479E-04, 1.34729E-03, 1.29165E-04, 1.52596E-05,
     &       -3.26447E-03, 7.57641E-04, 1.01002E-04, 2.32568E-03,
     &       -9.33638E-04, 3.63490E-04, 1.61967E-03, 9.17109E-04,
     &        4.13385E-03,-7.28036E-04, 4.78038E-03, 7.85677E-04/
C     long 330deg, mar_eq
      DATA (D(23,1,J),J=1,289)/-8.62347E-01,
     &       -2.10637E-01,-5.38053E-01, 3.03233E-02,-3.74128E-01,
     &        4.71163E-02, 4.12164E-01, 1.03031E-01, 1.56756E-01,
     &       -1.20374E-01, 8.77321E-02, 4.65885E-03,-1.36930E-01,
     &       -1.27321E-01,-5.14926E-02, 3.65803E-03,-7.37887E-02,
     &       -1.50992E-01,-1.92919E-02, 3.48727E-02, 1.09493E-02,
     &        4.64348E-02, 2.92101E-03, 3.73888E-02, 3.37346E-03,
     &        2.39734E-03, 3.69990E-03,-1.88531E-02, 1.34131E-03,
     &       -1.44687E-02, 8.11279E-03,-1.31546E-02,-2.32465E-03,
     &       -2.02978E-01,-6.40003E-02,-9.23316E-03,-1.26387E-02,
     &       -6.62929E-03, 2.14567E-03,-3.96170E-02, 7.05383E-03,
     &       -3.04362E-02,-9.07720E-04,-1.13173E-02, 1.75359E-03,
     &       -3.73727E-03,-3.21914E-03, 4.20364E-03, 4.04133E-03,
     &        1.76682E-02,-1.95873E-02, 2.11494E-02, 1.25427E-03,
     &        7.35148E-03,-7.66312E-04, 2.05161E-03, 4.40566E-04,
     &        2.96413E-03, 1.54498E-03,-2.07271E-03, 1.03961E-03,
     &       -9.67821E-04, 2.79905E-04,-1.14428E-03,-1.34275E-03,
     &       -1.04275E-02,-2.82771E-02,-9.03884E-03,-1.15817E-02,
     &       -5.62193E-03,-1.08776E-04,-3.26188E-04,-3.43993E-03,
     &       -1.07016E-03,-1.22966E-03,-7.01077E-04,-5.69112E-04,
     &       -1.06426E-03, 1.34627E-04, 4.13574E-02, 5.20710E-03,
     &       -3.88891E-03,-1.66828E-03, 1.11223E-03, 5.35909E-05,
     &       -5.63734E-04,-1.76200E-04, 3.80891E-04,-2.46767E-04,
     &       -4.73289E-05,-1.88222E-04,-1.43320E-04,-6.96566E-05,
     &        5.49036E-02,-5.18853E-03, 1.35766E-03,-7.16545E-05,
     &       -1.80776E-03,-3.41183E-04, 1.21219E-04, 4.51907E-05,
     &       -3.40630E-04, 3.97803E-04, 2.33529E-04, 3.81540E-04,
     &        3.39245E-06, 6.68791E-05, 3.53649E-03, 5.09065E-04,
     &       -3.32694E-03, 1.06563E-03,-7.72621E-04, 3.04434E-04,
     &       -1.10849E-04,-1.09404E-04,-1.09567E-04,-1.14022E-04,
     &        2.19188E-05,-8.33774E-06, 1.40532E-05,-1.13843E-02,
     &        1.60052E-03, 1.14717E-03, 1.14672E-05,-4.94173E-04,
     &       -3.39034E-05,-3.01266E-05, 2.47952E-04, 8.37376E-06,
     &       -5.18418E-05, 6.09882E-05,-3.77009E-05, 2.31513E-05,
     &       -3.66239E-03, 1.00455E-03, 1.26272E-03, 1.88057E-04,
     &        4.07693E-04, 3.48132E-04, 2.41112E-04, 9.15014E-05,
     &        1.26304E-05, 4.48497E-05,-9.52334E-06,-2.17366E-05,
     &       -2.20636E-02,-2.33041E-03,-4.56169E-04,-6.79425E-04,
     &       -2.74436E-04,-2.96571E-04,-1.08267E-04,-2.89536E-05,
     &        9.41240E-06,-4.00979E-05,-2.72033E-05,-8.47664E-06,
     &       -2.95801E-03, 1.76485E-03,-2.56820E-04, 3.86485E-04,
     &       -9.43740E-07, 7.68200E-05, 1.25419E-04, 1.05559E-05,
     &        5.22965E-05, 1.35946E-05, 2.30115E-05, 3.17590E-03,
     &       -1.26023E-03,-5.16698E-04,-3.85228E-04,-4.94280E-05,
     &       -7.81903E-05,-8.69399E-05,-1.14364E-04,-2.78531E-05,
     &       -2.23371E-05,-2.05686E-06, 7.26668E-05, 7.95265E-05,
     &       -2.50205E-04, 3.23241E-05, 1.75571E-04, 4.46812E-05,
     &       -1.49840E-05, 6.38675E-05, 2.13119E-05, 2.23255E-05,
     &        1.50281E-02,-2.05185E-04,-9.76969E-04,-1.02231E-05,
     &        2.68331E-04, 1.22090E-04, 5.19360E-05, 3.78610E-05,
     &        1.24639E-05, 2.48401E-05,-2.95362E-04,-8.23265E-05,
     &        4.32826E-04, 3.61702E-05, 1.56438E-04,-1.48405E-05,
     &       -2.29407E-05, 8.62166E-06,-2.40372E-06, 7.48535E-03,
     &       -1.47308E-03,-3.28210E-05,-1.44524E-04, 5.60498E-07,
     &       -2.69954E-05, 4.35847E-05,-1.61711E-05, 5.32229E-06,
     &       -4.42891E-03, 3.84650E-04, 5.03997E-04,-1.20918E-04,
     &       -9.20659E-06,-4.46165E-05,-1.70091E-06,-1.17680E-06,
     &       -3.19536E-03,-2.18210E-05, 1.15206E-04,-1.62541E-04,
     &       -1.07594E-05, 3.50032E-05, 2.33514E-06,-5.38206E-07,
     &       -4.67952E-03, 3.08298E-04, 5.75547E-04, 1.30218E-06,
     &       -7.77271E-05,-7.44929E-06,-5.15367E-06,-4.04052E-03,
     &        1.45302E-03, 2.17226E-04,-6.94823E-05,-4.26957E-05,
     &       -2.68052E-05,-6.37784E-06,-3.82799E-04,-1.23873E-03,
     &        1.79565E-04,-6.26979E-05,-2.51074E-05,-4.64315E-05,
     &        8.73554E-03, 1.06995E-03, 1.49979E-06,-9.33221E-05,
     &       -1.07169E-04,-4.27709E-05, 1.63949E-03,-6.53733E-04,
     &        4.50886E-04, 1.93009E-04,-8.08118E-06, 8.77982E-03,
     &        6.05520E-05, 2.96054E-04,-1.31339E-04,-9.01996E-05,
     &        1.32714E-03, 6.94313E-04, 4.23521E-04, 7.95116E-05,
     &       -6.25211E-04, 9.32999E-05, 6.12141E-05, 4.13618E-05,
     &       -1.44890E-03, 2.17915E-03, 3.96317E-05,-2.01864E-03,
     &       -4.43861E-04, 4.52182E-04, 4.21929E-03, 7.23635E-04,
     &        7.70550E-03,-1.70499E-04, 4.15641E-03, 3.43694E-03/
C     long 345deg, mar_eq
      DATA (D(24,1,J),J=1,289)/-8.94129E-01,
     &       -2.14926E-01,-5.57001E-01, 4.18556E-02,-3.60209E-01,
     &        1.16025E-02, 4.39713E-01, 1.02483E-01, 1.58206E-01,
     &       -7.04635E-02, 1.15726E-01, 1.04318E-02,-1.36423E-01,
     &       -1.26795E-01,-4.75829E-02,-2.08619E-02,-9.25945E-02,
     &       -1.75972E-01,-1.38005E-02, 2.29557E-02, 1.06971E-02,
     &        4.99448E-02, 9.66069E-04, 4.12954E-02, 1.73185E-03,
     &        3.46553E-03, 3.19421E-03,-2.16356E-02, 5.82995E-04,
     &       -1.66905E-02, 7.52109E-03,-1.40878E-02,-1.02462E-03,
     &       -2.12740E-01,-7.29925E-02,-1.39050E-02,-2.28717E-02,
     &       -1.16852E-02, 7.76774E-03,-4.19958E-02, 7.79321E-03,
     &       -2.66383E-02, 2.37091E-03,-6.31632E-03, 2.60367E-03,
     &       -4.60980E-03,-2.56332E-03, 2.79899E-03, 2.75156E-03,
     &        1.46042E-02,-2.54481E-02, 1.91575E-02, 1.28830E-03,
     &        7.15417E-03,-8.34403E-04, 3.08510E-03,-1.08759E-04,
     &        3.21548E-03, 1.56903E-03,-2.96982E-03, 2.79199E-04,
     &       -1.08821E-03,-3.78724E-05,-1.46615E-03, 6.72796E-03,
     &        6.22044E-04,-2.76588E-02,-1.11696E-02,-1.02093E-02,
     &       -6.12868E-03,-5.50573E-04,-8.93564E-04,-4.18442E-03,
     &       -1.37924E-03,-9.90594E-04,-4.98377E-04,-3.97658E-04,
     &       -1.03144E-04, 6.37473E-04, 4.73320E-02, 7.65129E-03,
     &       -4.26612E-03,-1.88213E-03, 1.36217E-03, 3.27164E-04,
     &       -4.00862E-04,-1.70766E-04, 5.72935E-04,-7.84459E-05,
     &       -4.16003E-04, 1.28849E-06,-3.25437E-04,-7.66363E-05,
     &        4.57330E-02,-9.97444E-03, 3.55493E-03, 7.76016E-04,
     &       -6.72274E-04,-1.06280E-04, 1.03015E-03, 1.28736E-04,
     &       -2.40481E-04, 3.12216E-04, 1.48528E-05, 9.62063E-05,
     &       -7.27841E-05, 3.55622E-05, 7.85429E-03, 4.44621E-03,
     &       -5.92778E-03, 9.24003E-04,-7.77410E-04,-3.08768E-04,
     &       -2.52121E-04,-2.67706E-04,-9.81596E-05,-1.77441E-04,
     &        2.42657E-05, 6.12996E-05, 4.16654E-05,-1.10869E-02,
     &        2.39595E-03, 2.37886E-03, 7.05480E-04,-4.89597E-04,
     &        4.27122E-04, 4.28389E-04, 5.11827E-04,-5.19066E-05,
     &        6.74223E-05, 4.86178E-06,-3.50960E-05,-3.67356E-05,
     &       -6.24036E-03,-9.86122E-04, 8.56730E-04,-2.93560E-04,
     &        1.56557E-04, 4.29250E-05, 1.61791E-04,-1.75668E-05,
     &       -2.05982E-05, 1.86751E-05, 2.58687E-05, 8.35230E-06,
     &       -1.81595E-02,-5.65677E-04, 1.43683E-05,-1.72553E-04,
     &       -3.70834E-04,-5.15942E-04,-1.42895E-04, 1.86401E-05,
     &       -4.25876E-05,-2.42823E-05,-6.15672E-06,-8.46934E-06,
     &       -3.90072E-03,-7.92905E-05,-4.09239E-04, 2.84830E-05,
     &       -1.66911E-04, 9.92756E-05, 1.05753E-04,-1.05183E-05,
     &       -2.72346E-06,-2.06369E-05,-5.87400E-06, 2.65982E-03,
     &       -2.35288E-03,-5.44307E-05, 1.92094E-04, 6.90648E-05,
     &       -2.68519E-05,-3.35222E-05,-1.69872E-05,-5.85162E-06,
     &       -1.16834E-05,-7.57904E-06, 1.98002E-03, 5.55576E-04,
     &       -6.79577E-04,-1.72746E-04, 5.76973E-05, 1.20094E-04,
     &       -2.10706E-05, 5.97967E-05, 1.25096E-05, 2.76633E-05,
     &        1.70729E-02, 1.31881E-03,-3.60155E-04, 1.71786E-04,
     &        2.88228E-04, 1.59631E-04, 8.52167E-05, 4.87245E-05,
     &        2.15491E-05, 1.41033E-05, 5.04049E-03,-3.63504E-04,
     &       -2.30088E-04, 3.83729E-05, 9.54714E-06, 9.86851E-06,
     &       -4.16788E-05, 1.88906E-06,-4.97876E-06, 1.66759E-02,
     &        3.03349E-04,-5.46435E-05,-1.00586E-04, 1.74100E-04,
     &        3.60629E-05, 4.15432E-05, 2.14088E-05, 9.00154E-06,
     &        6.59158E-03, 7.51163E-04, 6.64200E-04, 4.30024E-05,
     &        6.16042E-05,-2.53459E-05, 5.56471E-07, 1.38309E-05,
     &       -3.67970E-03,-2.53243E-04, 4.52904E-04,-1.46659E-05,
     &        9.28575E-05, 3.89131E-05, 1.47304E-05, 1.07016E-05,
     &       -5.75631E-03,-4.22126E-04, 3.48545E-04, 4.03227E-05,
     &       -1.70781E-05,-7.60332E-06,-8.36598E-06,-5.68583E-03,
     &        6.62349E-04, 4.36711E-04, 6.33093E-05,-1.61535E-05,
     &       -1.26109E-05,-1.75747E-06,-3.26775E-04,-1.74800E-03,
     &       -2.00457E-04, 4.78006E-05,-5.25184E-05,-3.72110E-05,
     &        3.30604E-03,-2.07310E-04,-3.37358E-04,-6.11750E-05,
     &       -8.79782E-05,-2.74068E-05,-2.23083E-03,-1.12017E-03,
     &        6.99031E-04, 1.21487E-04,-1.71147E-05, 4.86791E-03,
     &        8.16733E-05, 2.63714E-05,-1.78954E-04,-8.71045E-05,
     &        4.10905E-03, 6.47511E-04, 7.01213E-04, 8.46960E-05,
     &        7.68322E-03,-7.08839E-04,-3.76480E-05,-2.57162E-06,
     &       -5.10198E-03, 6.15154E-04, 1.29252E-04, 2.76573E-03,
     &        7.56439E-04, 4.67968E-04, 4.07457E-03, 3.10321E-04,
     &        1.79473E-03,-1.04055E-03, 1.37008E-02, 4.96066E-03/
C     long 0deg, jun_so
      DATA (D(1,2,J),J=1,289)/-9.71246E-01,
     &        5.33766E-01,-1.62068E-01,-2.78387E-01,-4.51566E-01,
     &       -6.49816E-02, 2.44173E-01,-9.86846E-02, 4.40756E-02,
     &       -8.84723E-02, 1.41876E-01, 1.16358E-02,-2.35949E-02,
     &       -7.60865E-02, 4.78581E-02, 6.13194E-03,-3.48671E-02,
     &       -3.02530E-01, 1.14180E-01,-1.41810E-02, 4.31381E-02,
     &        3.09794E-02,-4.19394E-02, 3.57796E-02, 6.66146E-03,
     &        1.34375E-02,-1.03045E-02,-1.10369E-02, 3.80041E-03,
     &       -1.51883E-02,-2.63927E-03,-1.37417E-02,-1.33606E-03,
     &       -4.28805E-01, 9.68163E-02, 9.91120E-02,-6.24651E-02,
     &       -4.05020E-02, 1.74547E-02,-2.53909E-02, 1.64817E-03,
     &       -2.10387E-02,-3.57985E-03,-1.47663E-02,-3.94064E-03,
     &       -4.60340E-03,-8.56860E-03,-5.29626E-03,-4.38117E-04,
     &        9.18983E-02,-5.55675E-02, 1.61255E-02, 5.29244E-03,
     &       -1.45631E-03,-3.29563E-03,-7.64073E-04,-2.40341E-05,
     &        1.35540E-03, 4.11356E-04,-2.38912E-03, 1.61646E-03,
     &       -6.93763E-05,-4.29714E-04,-3.00078E-04,-1.55016E-02,
     &       -3.22737E-02,-2.56642E-02, 3.58231E-03,-1.01970E-02,
     &       -7.65873E-03, 2.70016E-04, 9.93791E-04,-2.08705E-03,
     &        1.44306E-03,-3.10935E-05,-1.39321E-03, 1.01622E-03,
     &       -3.05927E-04,-5.38991E-04,-4.93540E-02, 2.31558E-02,
     &        1.38968E-03,-2.14836E-03, 2.53806E-03,-6.21879E-04,
     &       -1.01476E-03, 3.23203E-05, 9.24397E-04,-2.82814E-04,
     &       -2.76900E-04, 4.62605E-04,-8.47781E-06,-3.06546E-04,
     &        4.56657E-02,-2.32345E-02, 7.05678E-03,-2.74948E-03,
     &        1.30711E-03, 9.66271E-04, 4.58733E-04, 2.59961E-04,
     &        4.60515E-04, 5.67198E-04,-3.97684E-04, 2.19972E-04,
     &       -7.29664E-06, 2.18435E-05,-6.24823E-03,-2.64287E-03,
     &        1.00331E-03,-2.31064E-04, 1.46674E-03,-6.64880E-04,
     &        3.95405E-04, 1.97798E-05, 1.20365E-04,-4.56108E-05,
     &        3.08890E-05,-1.41417E-05, 2.13606E-05,-2.99552E-02,
     &        1.55816E-02, 7.04118E-04, 4.45069E-04, 1.08643E-04,
     &        3.63807E-04, 7.91335E-05, 3.68819E-04,-1.14436E-04,
     &        9.44133E-06,-9.43068E-06,-2.86784E-05,-5.68718E-05,
     &       -6.67264E-03,-1.10327E-03, 1.02638E-03,-1.23523E-03,
     &        2.27990E-04, 5.70135E-05,-2.66102E-04, 1.32305E-04,
     &       -7.89420E-05, 6.91277E-05,-7.06783E-05, 4.65219E-05,
     &        8.86240E-03,-4.20640E-03, 3.09077E-03,-4.39899E-04,
     &       -1.89612E-04,-1.52594E-04, 7.22638E-05,-1.58299E-05,
     &       -7.55653E-05, 1.41735E-05, 3.08717E-05,-2.71209E-05,
     &       -1.06526E-02, 4.61463E-03,-2.05846E-03, 4.55453E-04,
     &       -1.66500E-04,-5.38686E-05,-5.05743E-05, 7.01793E-07,
     &       -1.12809E-05,-1.35268E-05,-2.50712E-05,-2.02598E-03,
     &       -7.15142E-04, 9.72942E-04,-1.18742E-03, 3.00353E-04,
     &        1.16837E-04, 2.52645E-05, 5.73401E-05, 2.37022E-05,
     &        2.38501E-05, 4.08328E-06, 1.03651E-02,-3.78217E-03,
     &        1.02189E-03, 4.74985E-04, 3.36377E-05,-8.24435E-05,
     &        3.87574E-05, 3.08735E-06,-1.26843E-05, 1.32584E-05,
     &        1.67548E-02,-9.01845E-04,-1.50809E-03, 3.15129E-04,
     &        1.11687E-05, 1.00353E-05,-5.32489E-05, 1.99308E-05,
     &       -1.65585E-05, 4.94465E-06,-1.80866E-02, 6.13748E-04,
     &        1.09916E-03,-5.85218E-05,-1.54870E-04, 9.20565E-05,
     &       -3.34746E-05, 3.17764E-05,-2.39571E-05, 1.64545E-02,
     &       -1.74280E-03,-7.21901E-04, 3.02421E-04, 4.23920E-05,
     &       -7.59218E-05, 4.99749E-06, 1.12075E-05,-1.18412E-05,
     &       -1.17431E-02, 8.47347E-04, 5.63208E-04, 8.08466E-05,
     &       -9.33316E-05, 9.57570E-05,-3.60966E-05, 1.85753E-05,
     &       -4.79262E-03, 9.38780E-04, 3.35543E-04,-2.21882E-04,
     &        1.49937E-04,-2.85050E-05,-4.91716E-06, 5.62027E-06,
     &       -7.69917E-03, 5.89379E-04, 3.47997E-04,-1.77268E-04,
     &       -5.78545E-05, 2.25769E-05, 2.35871E-05,-6.50031E-03,
     &        1.21655E-03, 4.84301E-04,-2.98221E-04, 1.20938E-04,
     &       -2.86330E-05, 4.55566E-06, 1.07663E-02,-1.26080E-03,
     &       -1.73926E-04, 1.55587E-04,-8.85978E-05, 1.44595E-05,
     &       -1.16194E-02, 3.28535E-03,-8.09631E-04, 1.60148E-04,
     &       -3.44122E-05, 5.38517E-06, 2.13342E-02,-3.93944E-03,
     &        9.60179E-04,-6.95441E-06,-1.99137E-05, 1.24198E-02,
     &       -3.17435E-04,-5.25002E-04, 2.08225E-04,-2.81232E-05,
     &       -2.03433E-03,-2.50088E-05, 5.54451E-04,-1.68218E-04,
     &        5.60554E-03,-9.69495E-04,-1.45960E-04, 5.09602E-05,
     &       -5.31956E-04, 7.68405E-04,-1.11515E-04,-4.30196E-03,
     &        1.96032E-03,-3.59996E-04, 1.07052E-03,-9.28458E-04,
     &        3.69533E-03, 4.84524E-04, 6.70354E-03,-2.22403E-03/
C     long 15deg, jun_so
      DATA (D(2,2,J),J=1,289)/-8.97695E-01,
     &        5.26368E-01,-3.15717E-01,-3.09502E-01,-3.15873E-01,
     &       -2.18996E-03, 1.31161E-01,-1.29742E-01, 1.09973E-01,
     &       -1.00750E-01, 1.88150E-01,-2.05664E-02,-4.41008E-02,
     &       -2.07836E-02, 6.97470E-02, 1.81665E-04,-3.97612E-02,
     &       -2.29297E-01, 1.18668E-01,-2.48190E-02, 3.22880E-02,
     &        2.97002E-02,-2.70965E-02, 4.09247E-02, 2.76654E-03,
     &        6.74549E-03,-7.11053E-03,-7.65548E-03, 5.39671E-04,
     &       -1.63611E-02,-1.79533E-03,-9.28920E-03, 4.09186E-04,
     &       -3.43840E-01, 1.11095E-01, 6.33453E-02,-8.02510E-02,
     &       -2.38923E-02, 1.84322E-02,-3.11399E-02,-3.95575E-04,
     &       -2.30009E-02,-5.00619E-03,-1.55550E-02,-4.33986E-03,
     &       -5.03631E-03,-5.05460E-03,-3.02850E-03,-3.89961E-04,
     &        1.03188E-01,-4.07981E-02, 1.05296E-02, 5.51407E-03,
     &       -5.27693E-03, 2.07610E-03,-8.35860E-04,-1.50136E-03,
     &        1.75264E-03, 2.38486E-04,-1.63722E-03, 1.76175E-03,
     &       -4.81935E-04,-7.01945E-06,-1.22844E-04,-2.06747E-02,
     &       -3.70684E-02,-2.10440E-02, 4.04814E-03,-1.19821E-02,
     &       -6.76234E-03, 1.64676E-03,-9.17072E-04,-1.95818E-04,
     &        2.30314E-03,-1.69954E-03,-7.37751E-04, 1.01469E-03,
     &       -7.85861E-04,-6.17722E-04,-7.27302E-03, 2.06944E-02,
     &       -4.36456E-03,-1.54222E-03, 3.86097E-03,-1.55897E-03,
     &       -1.01843E-03, 3.56372E-04, 3.52257E-04,-1.50032E-04,
     &        1.09863E-04, 2.02981E-04,-3.04814E-05,-1.47480E-04,
     &        3.41998E-02,-1.90194E-02, 7.26363E-03,-3.05143E-03,
     &        3.62359E-03,-2.12795E-04, 5.78499E-04, 3.31209E-04,
     &        4.30368E-04, 6.24336E-04,-5.15454E-04, 2.38826E-04,
     &        5.69528E-05,-6.79777E-05, 1.21815E-03,-5.46841E-03,
     &        7.18078E-04,-2.04453E-04, 1.11398E-03,-1.58393E-04,
     &       -2.04324E-05, 1.17892E-04, 4.70643E-05,-1.41400E-05,
     &       -1.07870E-05,-9.62284E-06,-2.14731E-05,-2.43303E-02,
     &        1.50257E-02,-1.32652E-03, 1.30569E-03, 1.30152E-03,
     &       -4.88069E-04, 5.47030E-04, 2.25421E-04,-4.25402E-05,
     &       -1.44296E-05, 3.21511E-05,-5.00005E-05,-2.68565E-05,
     &       -6.82914E-03,-2.02973E-03, 1.58692E-03,-1.97945E-03,
     &        7.54652E-04,-1.52587E-04,-8.94023E-05, 4.57042E-05,
     &        2.92519E-05, 4.95227E-05,-2.81446E-05, 5.02376E-05,
     &       -7.73055E-04,-1.86432E-03, 3.37359E-03,-8.92658E-04,
     &       -1.30304E-04,-1.75807E-04,-5.55121E-05, 9.35480E-06,
     &       -9.60887E-05,-3.92966E-05, 3.69966E-05,-2.12323E-05,
     &       -1.16610E-02, 3.83233E-03,-2.53081E-03, 7.42631E-04,
     &       -2.49660E-04,-3.29244E-05, 7.93153E-06,-6.42247E-05,
     &        6.87455E-06,-8.03450E-06,-3.95316E-05,-1.29978E-02,
     &        8.08461E-04, 6.08740E-04,-1.09235E-03, 3.21320E-04,
     &        3.46436E-05, 2.58004E-05, 6.81032E-05,-6.76367E-06,
     &        2.76158E-05, 4.83682E-06, 8.92584E-03,-5.79562E-04,
     &        4.77984E-06, 4.96877E-04,-6.57622E-05,-1.44470E-05,
     &        3.55475E-05,-3.80434E-05, 4.33775E-06, 3.39724E-07,
     &        1.02327E-02, 4.07307E-04,-1.36643E-03, 5.07364E-04,
     &       -1.40932E-04, 4.34088E-05,-3.77811E-05, 4.61932E-06,
     &        7.86264E-06,-1.23486E-06,-8.33393E-03, 7.42820E-04,
     &        1.03541E-04, 5.83485E-05,-1.02862E-05,-2.12267E-05,
     &        4.76348E-05,-1.24847E-06,-1.36435E-06, 1.34352E-02,
     &        2.44023E-04,-5.45729E-04, 2.83533E-04, 5.78674E-05,
     &       -2.25224E-05,-1.10148E-05, 9.77476E-07,-4.36752E-06,
     &       -6.99189E-03, 6.77006E-04, 4.28356E-04,-3.23093E-05,
     &       -4.53677E-05, 5.43837E-05,-8.90241E-06, 5.33209E-06,
     &       -7.60438E-03, 1.64349E-03,-2.98629E-04, 6.70503E-05,
     &        3.31539E-05,-3.81109E-05, 7.65027E-06,-3.82127E-06,
     &       -7.15386E-03, 6.26052E-04, 1.41769E-04,-1.91793E-04,
     &       -9.98768E-05, 4.68033E-05,-3.00010E-06,-6.81993E-03,
     &        1.12871E-03, 9.14112E-05,-1.73345E-04,-3.42778E-05,
     &        2.18642E-05,-1.29581E-05, 1.72739E-03,-2.05142E-04,
     &       -1.53972E-04, 5.30989E-05,-3.37880E-05, 1.98276E-05,
     &       -6.81791E-03, 1.51939E-03,-1.56802E-04, 9.84362E-05,
     &       -5.41071E-05, 2.56260E-05, 8.30457E-03,-2.31206E-03,
     &        6.48121E-04,-1.25384E-04, 9.20917E-06, 5.90381E-03,
     &        3.87506E-04,-4.55892E-04, 1.12765E-04,-9.09803E-05,
     &        3.20340E-03,-4.53733E-04, 3.16198E-04,-8.65074E-05,
     &        1.93773E-03,-8.74668E-05, 3.86214E-04,-9.16774E-05,
     &        4.49494E-03,-6.14174E-04,-8.31930E-04, 3.32795E-03,
     &        7.65371E-04,-2.16922E-04,-1.25271E-03, 3.56351E-04,
     &        7.21745E-03,-8.16142E-04,-5.29573E-04,-1.93869E-03/
C     long 30deg, jun_so
      DATA (D(3,2,J),J=1,289)/-8.20494E-01,
     &        4.69721E-01,-4.52683E-01,-2.47108E-01,-2.10340E-01,
     &       -2.47747E-02, 8.28258E-02,-1.01792E-01, 1.12636E-01,
     &       -1.04541E-01, 2.70183E-01,-3.41471E-02,-8.06882E-02,
     &        5.23996E-02, 8.00465E-02,-2.38070E-02,-5.95424E-02,
     &       -1.53378E-01, 9.70828E-02,-1.94285E-02, 2.88837E-02,
     &        2.28505E-02,-3.49528E-03, 4.54955E-02,-5.95572E-06,
     &        5.02630E-03,-5.88274E-03,-4.76110E-03,-3.39063E-03,
     &       -1.39103E-02,-2.03320E-03,-5.20201E-03, 2.15032E-03,
     &       -2.39645E-01, 1.12121E-01, 2.52976E-02,-7.35526E-02,
     &       -9.82915E-03, 1.35425E-02,-2.84211E-02, 2.15520E-03,
     &       -2.61517E-02,-8.64766E-03,-1.07076E-02,-1.06737E-02,
     &       -5.92262E-03,-2.81615E-04,-2.46679E-03, 1.00647E-03,
     &        8.45328E-02,-1.93380E-02, 1.11346E-02, 6.88105E-04,
     &        2.20104E-03, 2.17291E-03,-3.28962E-03, 3.91969E-04,
     &        8.24104E-04,-1.14049E-03,-6.76879E-04, 1.89407E-03,
     &       -8.73810E-04, 5.54246E-04, 1.37769E-04,-8.30573E-05,
     &       -4.80176E-02,-9.97344E-03,-4.74148E-03,-1.56861E-02,
     &       -9.87235E-04,-1.18829E-03,-2.06459E-03, 7.03730E-04,
     &        2.14712E-03,-2.75140E-03, 6.88897E-04,-4.03032E-05,
     &       -3.53784E-05, 5.19629E-05, 1.72712E-02, 1.63802E-02,
     &       -8.45610E-03, 1.51102E-03, 3.53687E-03,-2.52459E-03,
     &       -5.33980E-05, 1.17867E-04,-5.79071E-05, 1.08580E-04,
     &        2.43321E-04, 5.99738E-05, 8.14566E-05,-2.81708E-05,
     &        3.72052E-02,-1.23385E-02, 5.07341E-03,-4.24185E-03,
     &        5.83939E-03,-1.31882E-03, 2.11697E-04, 9.62234E-04,
     &        3.30960E-04, 4.58467E-04,-6.08930E-05, 5.96428E-05,
     &        1.73166E-04,-4.78457E-05, 5.04719E-03,-8.63076E-03,
     &        1.53896E-04, 2.71439E-04,-4.55756E-04, 3.21122E-04,
     &       -3.08837E-04, 6.12553E-06,-4.10388E-05, 1.75594E-05,
     &       -7.92919E-05, 3.72397E-05,-7.17831E-05,-6.60967E-03,
     &        6.92879E-03,-2.22356E-03, 2.68972E-03, 1.01920E-03,
     &       -2.82957E-04, 6.21681E-04, 6.92708E-05, 5.84164E-06,
     &       -1.77005E-05, 2.63569E-05,-8.17295E-05, 6.15303E-05,
     &       -9.97926E-03,-6.62200E-04,-6.01143E-04,-6.69981E-04,
     &        5.45342E-04,-1.81982E-04, 7.98999E-05, 7.35942E-05,
     &       -1.37778E-05, 4.59586E-05, 2.10031E-05, 3.33584E-06,
     &       -3.90218E-03,-2.74860E-03, 3.58965E-03,-5.84459E-04,
     &       -1.67283E-04, 7.29334E-06,-1.56631E-04, 1.81669E-05,
     &       -5.29387E-05,-6.70148E-05, 3.01446E-05, 3.83052E-06,
     &       -1.35973E-02, 3.41383E-03,-2.09036E-03, 9.57340E-04,
     &       -2.76200E-04, 6.95346E-05,-3.96908E-05,-1.24884E-05,
     &       -1.36457E-05, 2.18284E-05,-3.19066E-05,-1.38473E-02,
     &        1.04557E-03, 3.00916E-05,-6.54234E-04, 1.36853E-04,
     &       -6.64102E-05, 2.53399E-05, 3.33746E-05,-1.10695E-05,
     &        2.19620E-05, 6.87948E-06, 1.34060E-03, 1.07215E-03,
     &       -2.01535E-04, 2.19358E-05, 2.67144E-05, 1.06821E-05,
     &        1.54566E-05,-6.91402E-06, 2.58927E-06,-2.55301E-06,
     &       -2.44674E-03, 3.92019E-04,-1.17426E-04, 3.19808E-04,
     &       -1.31286E-04, 2.57744E-05,-2.13361E-05,-2.57686E-05,
     &        2.60135E-05,-1.42479E-05, 3.07477E-03, 4.87200E-04,
     &       -5.95527E-04, 3.88668E-05, 3.15467E-05,-6.40308E-05,
     &        6.01712E-05,-2.61653E-05, 2.05404E-05, 7.38686E-03,
     &        8.83079E-04, 1.54948E-04,-1.81109E-05, 9.91280E-05,
     &       -2.87781E-05, 2.99286E-05,-2.47457E-05, 1.12056E-05,
     &       -1.94290E-03, 1.62578E-03,-1.83175E-04,-7.75683E-05,
     &       -7.60799E-05, 7.51471E-08,-3.27909E-06, 3.30867E-06,
     &       -1.61233E-03, 2.08761E-04, 5.71257E-05, 7.37183E-05,
     &        5.31943E-06, 2.65960E-06,-9.38337E-06,-1.61532E-05,
     &       -4.04365E-03, 9.69663E-04,-2.58153E-04, 1.18961E-04,
     &       -1.02338E-04, 1.41055E-05,-2.72629E-07,-2.11370E-03,
     &        1.19683E-03,-1.40289E-04,-1.52302E-04,-1.46209E-05,
     &        1.59696E-05,-1.89086E-05, 4.79562E-03, 8.44018E-04,
     &        6.38330E-05, 8.12335E-05,-2.71924E-05, 5.79511E-06,
     &        7.84202E-04,-1.55972E-03, 3.27383E-05, 8.80049E-05,
     &       -7.35797E-05, 9.22541E-06,-3.65454E-03,-1.10500E-04,
     &        2.43239E-04,-1.66033E-04, 2.65007E-05,-7.33265E-05,
     &       -5.29042E-04,-1.23401E-04,-9.67885E-05,-5.33337E-05,
     &        4.03055E-03,-6.44156E-04,-1.45035E-05, 4.96496E-05,
     &        2.75344E-03, 6.50625E-04, 3.48422E-04,-1.47199E-04,
     &        4.70794E-03,-2.41268E-04,-5.49103E-04, 4.27118E-03,
     &        9.21629E-04,-2.51059E-04, 2.14296E-03, 4.63338E-04,
     &        3.16947E-03,-1.21957E-03, 2.08858E-03,-5.50258E-03/
C     long 45deg, jun_so
      DATA (D(4,2,J),J=1,289)/-7.59667E-01,
     &        4.05793E-01,-5.11263E-01,-1.40573E-01,-2.11109E-01,
     &       -9.98655E-02, 1.26527E-01,-3.27430E-02, 2.70015E-03,
     &       -5.00381E-02, 3.02444E-01,-9.57009E-02,-5.48913E-02,
     &        4.85640E-02, 7.86405E-02,-3.20170E-02,-5.69417E-02,
     &       -1.12389E-01, 6.30087E-02,-3.86801E-03, 2.68104E-02,
     &        1.76387E-02, 5.07640E-03, 4.78386E-02,-5.66448E-04,
     &        3.01491E-03,-3.65211E-03,-4.32364E-03,-1.51324E-03,
     &       -1.16180E-02,-1.96034E-03,-9.31846E-04, 4.64808E-03,
     &       -1.59522E-01, 8.83333E-02, 1.78038E-03,-4.57259E-02,
     &       -4.79076E-04, 2.39131E-03,-2.31322E-02, 3.65660E-03,
     &       -3.02766E-02,-8.27935E-03,-1.11156E-02,-1.50832E-02,
     &       -5.52187E-03,-8.01012E-05,-1.76273E-03, 2.84445E-03,
     &        4.31957E-02,-4.43948E-03, 1.70078E-02,-1.22455E-03,
     &        9.36114E-03,-2.03338E-03,-5.73909E-04, 3.13208E-03,
     &       -5.00922E-04,-6.50645E-04,-8.23508E-04, 1.55294E-03,
     &       -1.05148E-03, 2.17035E-04,-1.79439E-04, 9.81029E-03,
     &       -4.96804E-02, 3.23824E-05,-1.38076E-02,-1.53705E-02,
     &        2.16417E-03,-3.88213E-03,-1.80697E-03,-1.60146E-04,
     &        7.39493E-04,-1.81800E-03, 2.85874E-04,-1.92966E-05,
     &       -7.97539E-05, 7.56596E-04, 2.24348E-02, 9.26989E-03,
     &       -5.18185E-03, 1.16411E-03, 2.49688E-03,-2.60475E-03,
     &        5.63393E-04,-6.51641E-04,-4.08536E-05, 2.85836E-04,
     &       -9.84274E-05, 1.69836E-04, 4.31325E-05, 5.46698E-05,
     &        3.94385E-02,-8.49647E-03, 2.62155E-03,-2.80917E-03,
     &        4.72869E-03,-1.74897E-03, 2.41817E-04, 1.09618E-03,
     &        4.48038E-05, 4.97215E-04,-2.23524E-04, 3.53264E-05,
     &        1.56742E-04,-2.02642E-04, 2.44352E-03,-8.65435E-03,
     &        9.48547E-05,-7.56055E-04,-3.85778E-05,-1.61201E-04,
     &       -1.28164E-04, 9.71846E-05,-6.09334E-05, 1.08778E-04,
     &        5.05030E-05, 5.05910E-05, 3.49678E-05, 8.84280E-03,
     &        8.04035E-04,-2.30055E-03, 2.27822E-03, 2.54823E-04,
     &        4.05405E-04, 7.87277E-05, 5.88191E-05, 6.83756E-05,
     &       -5.63671E-05, 4.57344E-05,-8.32621E-05, 6.51828E-05,
     &       -8.47783E-03,-6.93398E-06,-6.54470E-04,-6.88687E-05,
     &        2.44127E-04,-1.65196E-05, 1.74763E-04, 1.28871E-04,
     &       -6.39668E-05, 7.29364E-05, 2.44972E-05,-1.13375E-05,
     &       -4.08708E-03,-1.72320E-03, 2.29874E-03,-9.29249E-05,
     &        1.64733E-04, 1.18504E-04,-4.95265E-05, 4.22992E-05,
     &       -2.67914E-05,-1.18285E-05, 2.73320E-05,-1.49885E-05,
     &       -3.99338E-03, 1.80189E-03,-2.90809E-04, 5.14092E-04,
     &       -2.08794E-04, 7.78787E-05,-3.31613E-05, 2.54300E-05,
     &       -3.15376E-05, 1.47222E-05,-9.37262E-06,-1.15836E-02,
     &        5.82687E-04,-2.85249E-04,-4.11465E-04,-1.65786E-04,
     &       -3.17258E-05, 3.17186E-05, 1.52832E-05,-1.68777E-05,
     &        1.64278E-05, 2.56342E-06, 1.25783E-03, 9.01867E-05,
     &       -3.20388E-04,-1.54710E-04, 4.27345E-05,-4.38973E-05,
     &       -4.92553E-06,-1.69537E-05, 4.62446E-07,-2.60724E-06,
     &       -6.62646E-04,-7.99764E-04, 7.54234E-04, 1.86977E-04,
     &        3.04334E-05, 2.68457E-05, 2.55881E-05,-3.79155E-06,
     &        1.59051E-05,-1.61031E-05, 2.40119E-05, 6.37572E-05,
     &       -6.60292E-04, 1.07652E-04,-3.35070E-05,-3.22849E-05,
     &        3.11549E-05,-1.99159E-05, 9.06013E-06, 7.70760E-03,
     &        1.44613E-03, 9.73404E-05,-1.41521E-05, 1.32832E-04,
     &       -1.13438E-05, 1.08112E-05,-2.05905E-05, 9.93196E-06,
     &       -8.92689E-04, 2.70807E-04,-8.65848E-05, 1.54553E-05,
     &       -8.10163E-05,-6.80561E-05, 5.16470E-06,-2.64737E-06,
     &        4.55141E-03,-8.58389E-04,-2.66506E-04, 1.12910E-04,
     &       -6.70370E-05,-2.39779E-05,-1.64260E-05,-2.66071E-05,
     &       -4.82240E-03, 1.38081E-03,-1.96609E-04, 6.32690E-05,
     &       -3.90979E-05,-3.83909E-05, 1.72426E-05, 4.55669E-03,
     &       -3.54925E-04, 1.88923E-04,-4.76020E-05, 2.67047E-05,
     &       -2.40077E-05,-1.06475E-06, 1.06130E-03, 8.65793E-04,
     &       -5.28923E-05, 1.56932E-04, 3.37148E-06, 4.03241E-07,
     &        8.09699E-04,-1.19293E-03, 3.16195E-04,-8.21900E-06,
     &       -2.25116E-05,-4.32787E-06, 7.75540E-04,-6.13035E-05,
     &       -1.11802E-04,-6.96120E-05, 1.87914E-05,-2.48471E-03,
     &        8.79047E-05,-2.67545E-04,-2.00963E-05, 5.06049E-07,
     &        1.89888E-03,-9.10891E-04,-1.76536E-04,-2.08274E-05,
     &        6.06514E-03, 4.29445E-05,-1.51081E-05,-4.36927E-05,
     &        1.83828E-03,-2.17380E-04,-1.14920E-04, 5.63142E-03,
     &        8.86875E-04,-3.24974E-04, 1.91343E-04, 4.25799E-04,
     &       -1.47438E-03,-7.10731E-04, 4.57460E-03,-6.45837E-03/
C     long 60deg, jun_so
      DATA (D(5,2,J),J=1,289)/-7.19251E-01,
     &        3.67382E-01,-5.15663E-01,-5.38613E-02,-2.47930E-01,
     &       -1.59761E-01, 1.94738E-01,-4.13107E-02,-7.72032E-02,
     &       -1.02299E-03, 2.97430E-01,-1.51899E-01, 7.37361E-03,
     &        2.00753E-02, 7.74829E-02,-1.46704E-02,-6.11795E-02,
     &       -9.63641E-02, 3.28101E-02, 7.69517E-03, 1.91693E-02,
     &        1.20954E-02,-7.90896E-05, 5.37379E-02,-2.22747E-03,
     &        6.54680E-03,-9.44862E-04,-4.19095E-03, 2.88215E-03,
     &       -1.17751E-02,-3.23664E-03,-5.32442E-05, 3.64816E-03,
     &       -1.14031E-01, 6.33104E-02,-1.55949E-02,-2.77457E-02,
     &        4.87411E-03,-8.96962E-03,-1.97627E-02, 1.19221E-02,
     &       -3.44890E-02,-3.74272E-03,-1.18930E-02,-1.16864E-02,
     &       -3.26707E-03,-1.22966E-03, 8.77709E-04, 4.64634E-03,
     &        8.49010E-03, 8.84436E-04, 2.03734E-02, 2.34867E-05,
     &        8.82271E-03,-3.93433E-03, 2.85857E-03, 2.21316E-03,
     &        1.07253E-04,-4.12247E-04,-8.51812E-04, 1.08567E-03,
     &       -9.29334E-04, 2.15572E-05,-6.17127E-04, 2.03750E-02,
     &       -5.05880E-02, 1.13750E-02,-1.49699E-02,-1.04166E-02,
     &        4.06781E-03,-3.57777E-03, 3.65334E-04,-1.20144E-03,
     &        4.57451E-04,-9.60648E-04,-3.61424E-04,-1.70972E-04,
     &       -4.78555E-04, 6.18052E-04, 1.74728E-02, 1.11040E-02,
     &       -3.43943E-03, 4.26550E-04, 2.47504E-03,-2.62505E-03,
     &        5.33562E-04,-1.18684E-03, 4.68490E-06, 8.30177E-05,
     &       -4.89808E-04, 1.59101E-04,-1.62074E-04,-6.21077E-05,
     &        4.20858E-02,-8.85245E-03, 2.90552E-03,-2.46846E-03,
     &        3.37614E-03,-1.62978E-03, 5.73247E-04, 5.36111E-04,
     &       -1.09542E-04, 6.01604E-04,-5.20127E-04, 1.83071E-04,
     &        9.58427E-05,-2.14223E-04, 6.42044E-04,-6.34309E-03,
     &        6.09699E-04,-1.72465E-03, 7.28500E-04,-3.65636E-04,
     &        2.07763E-04, 1.26945E-04,-1.51449E-05, 1.28447E-04,
     &        6.89115E-05, 3.17118E-05, 7.91283E-05, 6.32955E-03,
     &        1.06112E-03,-3.30006E-03, 1.13283E-03,-4.11038E-04,
     &        6.54869E-04,-2.94726E-04, 1.49779E-04,-2.70316E-05,
     &       -9.20227E-05, 5.00948E-05,-1.22186E-04, 5.34958E-05,
     &        7.32507E-03, 3.51237E-04,-6.54543E-04,-6.70725E-05,
     &       -1.67325E-04, 9.11394E-05, 1.47596E-04, 5.72311E-05,
     &       -2.96479E-05, 7.31473E-05,-8.08053E-06, 2.40789E-05,
     &       -4.83058E-03, 2.32029E-04, 1.78802E-03,-9.74702E-05,
     &        3.40097E-04,-5.89122E-05, 1.85021E-06, 4.00272E-05,
     &       -3.36735E-05, 2.66952E-05, 7.73655E-06,-1.53102E-05,
     &        3.32139E-03, 1.36724E-03,-6.19061E-04, 1.79006E-04,
     &       -1.98660E-04, 1.00600E-04,-5.38502E-05, 2.90898E-05,
     &       -2.06428E-05,-1.46576E-06,-1.63363E-05,-5.64680E-03,
     &       -2.16417E-03,-1.29543E-04,-3.18741E-04,-4.67336E-05,
     &       -1.65406E-05, 5.57940E-05,-3.07326E-05,-1.65213E-06,
     &        1.13341E-05, 2.13227E-06,-3.48430E-03, 1.15368E-03,
     &       -2.69251E-07,-3.85739E-06,-3.80726E-05,-6.50092E-05,
     &       -9.02530E-06,-7.18628E-06,-1.01271E-05, 1.94791E-06,
     &        6.93613E-03, 1.39953E-04, 2.33545E-04, 2.20291E-04,
     &        1.85189E-04,-1.10857E-05, 1.97345E-05, 3.70702E-06,
     &        2.32787E-06,-1.94474E-05,-6.26743E-03, 9.74301E-04,
     &       -1.63880E-04,-1.52075E-04,-2.30446E-05,-8.26062E-05,
     &        2.01369E-05,-2.17291E-05, 1.08130E-05, 1.11057E-02,
     &        1.05211E-03, 1.50947E-04,-9.71938E-06, 1.09900E-04,
     &       -3.13939E-05,-4.88330E-06,-4.12938E-05, 1.03208E-05,
     &       -3.66865E-03, 1.52017E-04, 2.85840E-05, 2.81647E-05,
     &       -2.31939E-05,-7.73294E-05, 3.91856E-05,-2.26437E-05,
     &       -1.42728E-03,-3.25073E-04,-2.17464E-04,-1.19854E-05,
     &       -3.19511E-05,-1.46481E-05,-2.31369E-05,-2.19489E-06,
     &       -3.38740E-03, 7.77969E-04,-2.32708E-04, 3.26683E-05,
     &        9.62504E-06,-4.29292E-05, 2.41116E-05,-3.46312E-03,
     &       -9.93705E-04, 4.19165E-04,-5.14991E-05,-3.63512E-05,
     &       -1.71330E-05, 3.53720E-06,-7.61990E-03, 8.66886E-05,
     &        1.47430E-04, 5.33600E-05, 1.70279E-05, 4.64006E-06,
     &        8.91556E-04, 6.29005E-05, 3.23170E-04,-2.56172E-05,
     &        1.71957E-05, 3.54485E-06, 3.51964E-04,-5.83488E-05,
     &        1.30373E-04,-8.79552E-05, 3.39251E-05,-1.48551E-03,
     &        1.87107E-04,-2.23681E-04,-8.23892E-05,-4.43460E-06,
     &       -6.27846E-04,-8.40796E-04,-3.45854E-04,-5.42762E-05,
     &        5.57060E-03,-2.05921E-04, 7.15223E-05, 4.88304E-05,
     &        2.63074E-04,-1.08217E-03,-7.68846E-05, 3.65234E-03,
     &       -2.74526E-04,-1.22582E-04,-7.42485E-04, 6.90788E-05,
     &        2.54960E-03,-5.61276E-04, 4.60457E-04,-9.27881E-05/
C     long 75deg, jun_so
      DATA (D(6,2,J),J=1,289)/-7.13268E-01,
     &        3.36689E-01,-4.85575E-01,-4.39910E-02,-2.56425E-01,
     &       -1.85662E-01, 1.75870E-01,-2.62820E-02,-1.07856E-01,
     &        3.18556E-02, 2.82477E-01,-1.61225E-01, 3.53935E-02,
     &       -8.31175E-03, 9.52065E-02, 6.02051E-03,-7.07914E-02,
     &       -1.17502E-01, 3.05040E-02, 1.64709E-02, 1.47814E-02,
     &        1.24188E-02, 3.60886E-04, 5.30934E-02, 3.40421E-03,
     &        9.08256E-03, 5.41101E-03,-4.87080E-03, 8.17057E-03,
     &       -9.86702E-03,-3.96135E-03, 3.42874E-03, 1.11957E-03,
     &       -1.08335E-01, 6.55677E-02,-2.61004E-02,-2.32645E-02,
     &        6.26650E-03,-1.20030E-02,-2.19571E-02, 2.15849E-02,
     &       -3.87841E-02,-3.06325E-03,-1.08669E-02,-1.17491E-02,
     &       -2.34868E-03,-5.64024E-03, 2.63251E-03, 2.42233E-03,
     &       -5.09703E-03, 4.25389E-04, 2.28093E-02, 2.23331E-03,
     &        7.02617E-03,-3.93698E-03, 4.58223E-03,-2.67345E-04,
     &        2.21727E-03,-3.35834E-04,-6.07215E-04, 1.37426E-03,
     &       -5.48096E-04, 3.43737E-04,-6.62819E-04, 1.30842E-02,
     &       -5.13222E-02, 1.82443E-02,-1.42054E-02,-7.86234E-03,
     &        4.15078E-03,-3.33711E-03, 2.78205E-03,-2.71203E-03,
     &        1.23965E-03,-1.31559E-03,-8.91607E-05,-4.82223E-04,
     &       -3.16324E-04, 7.00675E-04, 1.41256E-02, 1.38480E-02,
     &       -6.40940E-03, 3.41116E-04, 2.33644E-03,-2.52328E-03,
     &        1.85512E-04,-9.50477E-04,-1.39949E-05,-1.39194E-05,
     &       -4.81938E-04, 1.41074E-04,-6.79081E-05,-6.57050E-05,
     &        4.62744E-02,-1.34992E-02, 6.44260E-03,-2.17501E-03,
     &        2.23886E-03,-1.17847E-03, 9.36686E-04,-2.33912E-04,
     &        1.06580E-05, 6.12980E-04,-6.24315E-04, 2.89877E-04,
     &        7.79069E-05,-1.81767E-04, 1.20482E-04,-3.13276E-03,
     &        1.89775E-04,-2.54215E-03, 1.28803E-03,-4.60116E-04,
     &        4.92182E-04,-2.07436E-06, 1.55975E-04, 9.48122E-05,
     &        6.06080E-05, 2.92553E-05, 6.62415E-05,-2.68544E-03,
     &        1.82966E-03,-3.24519E-03, 7.48489E-04,-5.43998E-04,
     &        7.25249E-04,-4.24801E-04, 3.81012E-04,-2.12374E-04,
     &        1.30938E-04, 7.04914E-08,-5.96002E-05, 8.50998E-05,
     &        1.18854E-02,-2.46332E-03,-7.39435E-04,-2.04681E-04,
     &       -3.60246E-04, 1.70000E-04, 2.03686E-04,-1.21401E-04,
     &       -1.70380E-06,-3.12556E-06,-3.51913E-05, 1.44930E-05,
     &       -8.41986E-03, 1.04811E-03, 8.60507E-04,-5.95194E-04,
     &        4.88602E-04,-3.41245E-04, 1.61131E-04,-6.62874E-05,
     &        4.10549E-05,-4.36852E-06, 3.80877E-05,-1.78265E-05,
     &        3.76316E-03, 1.77425E-03,-7.24971E-04, 1.95127E-04,
     &       -1.75938E-04, 1.41198E-04,-8.71557E-05, 3.12444E-05,
     &       -5.05595E-05, 1.65698E-05,-3.74851E-05,-6.48025E-03,
     &       -4.40678E-03,-1.20775E-03, 2.37448E-05,-2.17842E-04,
     &        5.49985E-05, 3.18828E-06, 2.64928E-05, 3.15708E-06,
     &        1.72652E-05, 5.73307E-07,-5.66828E-03, 2.38555E-03,
     &       -2.18300E-04,-4.43785E-05,-5.77894E-05,-3.08365E-06,
     &       -6.76016E-05, 3.57863E-05,-1.66924E-05, 1.87926E-05,
     &        7.64433E-03, 8.41041E-04,-9.68595E-05, 1.66983E-04,
     &        2.28894E-04,-4.65845E-05,-5.61265E-06,-1.36102E-05,
     &       -1.67410E-05,-1.73060E-06,-1.78614E-03, 1.82845E-03,
     &       -8.58441E-05,-9.51687E-05,-5.25937E-05,-4.78155E-05,
     &       -1.18915E-05,-1.26314E-05, 1.13460E-05, 1.38541E-02,
     &        5.18777E-04,-2.00276E-04, 2.28291E-05, 1.57568E-04,
     &       -8.16254E-05, 1.49819E-05,-4.82815E-05, 1.66997E-05,
     &        1.23599E-03,-2.70642E-04,-1.14689E-04, 1.13645E-04,
     &       -1.01346E-04,-1.52419E-05, 1.42422E-05,-1.33359E-05,
     &       -5.87974E-03,-1.39685E-04, 5.97935E-05,-8.61512E-05,
     &        5.92991E-05, 2.05718E-06,-1.88158E-05, 1.00832E-05,
     &       -5.09214E-04,-5.31634E-04,-1.07352E-04, 2.11990E-06,
     &        2.05925E-05,-1.11029E-05, 1.44089E-05,-9.21961E-03,
     &       -1.05980E-03, 1.67180E-04,-3.66708E-05,-5.11128E-05,
     &       -2.43325E-05, 1.70552E-05,-4.82192E-04, 3.69718E-04,
     &        1.20638E-04,-9.94142E-05, 2.02717E-05, 6.43198E-08,
     &       -1.67245E-03,-1.18367E-03, 4.66559E-04,-6.64347E-05,
     &       -3.71895E-06,-2.98013E-07,-1.50774E-03, 2.90416E-04,
     &        9.17851E-05,-9.34489E-05, 2.36462E-05,-4.33281E-03,
     &       -1.21514E-04, 2.13704E-04,-1.28057E-04,-3.04785E-05,
     &        6.56014E-04,-1.19178E-03,-3.18663E-04,-4.92814E-05,
     &        4.86762E-03, 1.79502E-04,-5.35667E-05,-4.88843E-05,
     &       -3.39714E-03,-3.68569E-04,-6.98670E-05, 1.58194E-04,
     &       -4.10507E-04, 1.07896E-04, 2.25165E-03, 1.30297E-04,
     &        4.24416E-03,-6.15574E-04,-1.55818E-03, 3.52785E-03/
C     long 90deg, jun_so
      DATA (D(7,2,J),J=1,289)/-7.29369E-01,
     &        3.28150E-01,-4.23811E-01,-8.46038E-02,-2.04853E-01,
     &       -2.07212E-01, 9.40233E-02, 4.71404E-02,-1.39963E-01,
     &        5.17359E-03, 2.94988E-01,-1.39141E-01, 1.16646E-02,
     &       -1.84569E-02, 8.32391E-02, 1.87363E-02,-4.99994E-02,
     &       -1.64091E-01, 4.95247E-02, 2.17826E-02, 5.79719E-03,
     &        2.34145E-02,-4.48599E-03, 5.19348E-02, 7.34905E-03,
     &        1.37307E-02, 6.99309E-03,-3.80353E-03, 1.04587E-02,
     &       -8.26075E-03,-1.97119E-03, 1.47545E-03, 3.83033E-03,
     &       -1.38061E-01, 7.65848E-02,-1.93727E-02,-3.67809E-02,
     &        1.93705E-02,-1.42392E-02,-1.98255E-02, 2.83159E-02,
     &       -3.69061E-02,-2.76592E-03,-9.08341E-03,-1.12833E-02,
     &       -5.87248E-03,-6.74718E-03,-4.10799E-04, 3.51779E-04,
     &       -5.17326E-03,-5.25458E-03, 2.75347E-02, 4.20140E-03,
     &        5.25621E-03,-2.82804E-03, 6.44745E-03,-1.23908E-03,
     &        3.13006E-03, 5.45667E-04,-1.09478E-03, 2.02569E-03,
     &       -3.68761E-04, 2.33677E-04,-2.37790E-04,-6.85726E-03,
     &       -5.23091E-02, 2.13538E-02,-1.54568E-02,-5.44826E-03,
     &        2.18220E-03,-2.66524E-03, 3.69956E-03,-2.14716E-03,
     &        1.26915E-03,-1.51699E-03, 5.25297E-04,-5.70648E-04,
     &       -3.93160E-04, 9.38343E-04, 1.17756E-02, 1.63242E-02,
     &       -7.70416E-03, 2.91686E-05, 2.11598E-03,-2.45893E-03,
     &        5.26008E-05,-6.26110E-04,-2.34663E-04, 2.29640E-04,
     &       -5.14147E-04, 2.56427E-04,-1.92231E-04, 1.82681E-04,
     &        5.26485E-02,-1.65074E-02, 7.10649E-03,-3.68179E-05,
     &        6.83127E-04,-6.10837E-04, 1.28880E-03,-9.37669E-04,
     &        4.80788E-04, 2.51060E-04,-3.72196E-04, 2.25151E-04,
     &        2.15412E-04,-1.35353E-04,-4.76846E-03, 2.73478E-03,
     &       -1.53381E-04,-2.48093E-03, 1.39839E-03,-7.30115E-04,
     &        3.90963E-04, 4.66410E-05, 8.80358E-05, 1.19738E-04,
     &        6.90277E-06, 9.74901E-05,-2.76292E-05,-2.90107E-03,
     &        1.46479E-03,-9.04921E-04, 7.03872E-05, 3.97917E-04,
     &        3.11916E-04,-5.80032E-05, 2.35611E-04,-1.35392E-04,
     &        1.74980E-04, 3.17245E-06,-2.94417E-05, 7.29740E-05,
     &        9.06450E-03,-4.70281E-03,-1.20835E-03,-1.18852E-04,
     &       -4.46369E-04, 1.94316E-04, 1.94520E-04,-1.16933E-04,
     &        2.91875E-05,-3.67671E-05,-3.63881E-06, 1.50112E-05,
     &       -2.00752E-02, 2.93206E-03,-4.82023E-04,-7.94116E-04,
     &        3.53166E-04,-2.18073E-04, 1.29529E-04,-5.25676E-06,
     &       -3.28498E-05, 6.49118E-05,-3.26806E-05, 4.35614E-05,
     &        8.03591E-03, 1.94063E-04, 1.36569E-03,-7.22434E-05,
     &       -2.96294E-05, 3.97826E-05,-2.70268E-05,-1.06214E-05,
     &       -4.36564E-05, 4.60544E-06,-7.40476E-06,-1.06360E-02,
     &       -5.25251E-03,-1.90769E-03, 4.05380E-04,-4.09608E-04,
     &        1.20727E-04,-7.84754E-06, 3.81344E-05, 6.53627E-06,
     &        2.65052E-06,-1.36901E-06,-3.11845E-03, 1.40957E-03,
     &       -3.43895E-04,-2.38760E-04, 6.90966E-05,-3.45452E-05,
     &       -8.30424E-05, 3.57735E-05,-1.09937E-05, 1.10541E-05,
     &        4.91844E-03, 3.22471E-05, 3.63164E-04, 2.07571E-04,
     &        2.27603E-04,-1.31181E-04, 5.02123E-05,-1.36990E-05,
     &       -4.98983E-06,-4.10803E-06,-2.55148E-03, 1.47382E-03,
     &       -9.49190E-04, 8.55711E-05,-7.55400E-05, 6.23726E-05,
     &       -2.97411E-05, 4.77677E-06, 4.46064E-06, 1.23104E-02,
     &        1.30619E-03,-3.59410E-04, 1.03933E-04, 1.03036E-04,
     &       -1.99943E-05,-2.73834E-05,-1.07537E-05, 7.54988E-06,
     &       -1.25627E-03, 4.36518E-04,-1.61331E-04, 1.24947E-04,
     &       -7.17056E-05, 1.82685E-05, 7.91751E-06,-8.25179E-06,
     &       -5.88532E-04, 8.67680E-04,-5.91955E-04, 1.33660E-04,
     &        2.52634E-05, 5.60920E-06,-1.90128E-05, 3.41054E-06,
     &        1.50837E-03,-6.34409E-04, 4.02894E-04,-8.98788E-05,
     &        1.12209E-05, 1.18537E-05,-2.89793E-06,-4.01885E-03,
     &       -9.09557E-04,-1.16064E-04, 4.25437E-05,-6.39023E-06,
     &       -2.46997E-05, 1.90276E-05, 1.66780E-03, 1.08060E-04,
     &        6.06885E-05,-1.22095E-04,-4.94764E-06, 1.30065E-05,
     &       -6.35727E-03,-1.82772E-03, 4.59710E-04,-1.54957E-04,
     &        1.84104E-05,-7.83482E-06, 3.48634E-03, 8.32513E-04,
     &       -1.20435E-04,-2.47072E-05,-1.98298E-05,-4.07081E-03,
     &        1.04642E-04, 1.15552E-04,-2.53535E-05,-2.22841E-05,
     &        2.62412E-03,-1.43184E-03,-1.86287E-04, 3.61843E-05,
     &       -1.35888E-03, 5.07983E-05,-6.70637E-06,-4.02962E-05,
     &        1.40642E-03,-3.68101E-04,-3.37146E-04, 1.70881E-03,
     &        2.21541E-04, 1.45731E-04, 3.51432E-03, 3.38042E-04,
     &        2.62138E-03,-2.54982E-04,-3.33975E-03, 4.02275E-03/
C     long 105deg, jun_so
      DATA (D(8,2,J),J=1,289)/-7.53047E-01,
     &        3.52838E-01,-3.68923E-01,-1.42233E-01,-1.34698E-01,
     &       -1.73244E-01,-1.37229E-02, 9.99146E-02,-1.49733E-01,
     &       -5.54923E-02, 3.29013E-01,-7.96692E-02,-3.81016E-02,
     &       -2.45777E-02, 5.79637E-02, 4.85234E-02,-4.57484E-02,
     &       -2.06768E-01, 7.76414E-02, 2.33639E-02,-4.32744E-03,
     &        3.92878E-02,-1.49833E-02, 4.94630E-02, 1.30586E-02,
     &        1.39939E-02, 6.26619E-03, 4.77343E-04, 1.16251E-02,
     &       -6.49589E-03,-3.50617E-03,-4.42191E-05, 4.91177E-03,
     &       -1.99727E-01, 9.54801E-02, 7.50747E-04,-4.29398E-02,
     &        2.31376E-02,-8.06067E-03,-1.90099E-02, 3.36675E-02,
     &       -3.46015E-02,-3.56872E-04,-6.49454E-03,-8.56049E-03,
     &       -1.10745E-02,-4.68642E-03,-1.91883E-03,-3.31027E-04,
     &        2.54033E-03,-5.73962E-03, 2.37896E-02, 3.70365E-03,
     &        6.49731E-03,-2.02494E-03, 6.79202E-03,-2.92746E-03,
     &        3.61386E-03, 8.39732E-04,-1.29343E-03, 1.72652E-03,
     &       -1.47073E-04,-2.13289E-04,-3.58801E-04,-1.62934E-02,
     &       -5.49712E-02, 2.61544E-02,-1.39946E-02,-2.90925E-03,
     &        7.19713E-04,-2.23987E-03, 3.47501E-03,-4.80403E-04,
     &        1.16899E-03,-1.26866E-03, 1.35308E-03,-7.99040E-04,
     &       -3.56793E-04, 7.00645E-04, 7.86487E-03, 1.95427E-02,
     &       -1.05456E-02, 1.94287E-03, 1.53480E-03,-1.99632E-03,
     &       -2.23925E-04,-5.72932E-04,-3.65171E-04, 1.89289E-04,
     &       -3.00688E-04, 4.15793E-05,-9.96324E-05, 1.12700E-04,
     &        5.56374E-02,-1.43287E-02, 2.69395E-03, 2.04373E-03,
     &       -2.78984E-04,-7.11883E-04, 1.04565E-03,-1.37858E-03,
     &        3.38449E-04, 7.17974E-05,-4.20094E-04, 9.17506E-05,
     &        1.76229E-04,-1.36218E-04,-1.00740E-02, 2.47830E-03,
     &        3.81850E-04,-2.89521E-03, 9.05462E-04,-7.55876E-04,
     &        1.98186E-04, 8.95197E-05, 1.34056E-04, 2.29707E-05,
     &        1.00937E-04, 8.65847E-05,-3.28379E-05, 2.40104E-03,
     &        4.17629E-03,-2.48195E-04,-3.49822E-04, 1.18095E-03,
     &        1.29017E-05, 1.64372E-04, 1.45379E-04,-1.12419E-04,
     &        1.62764E-04, 5.70424E-06, 1.47352E-05, 3.73778E-05,
     &        6.06731E-03,-5.82436E-03,-6.16017E-04,-1.17695E-04,
     &       -3.71932E-04, 1.13395E-04, 1.42727E-04,-6.38878E-05,
     &        3.14640E-05,-1.00171E-05,-1.13614E-05, 2.53359E-05,
     &       -1.72453E-02, 1.33461E-03,-1.12659E-03,-1.62095E-03,
     &        3.55335E-04,-2.31963E-04, 1.38673E-04, 5.45155E-05,
     &       -1.44729E-05, 8.21616E-05,-2.75216E-06, 7.05350E-05,
     &        9.03799E-03,-2.37113E-04, 2.63821E-03,-2.83104E-04,
     &        2.04104E-04,-9.23599E-05, 5.34235E-05, 7.54047E-06,
     &       -4.44507E-05, 7.51553E-06,-1.72713E-05,-2.66823E-03,
     &       -6.13640E-03,-1.18699E-03, 6.08580E-05,-4.69296E-04,
     &        9.94797E-05, 2.66881E-05,-2.03615E-05,-1.34186E-05,
     &       -1.70460E-05,-1.18809E-05,-5.48312E-03, 2.28691E-03,
     &       -3.58343E-04,-3.55427E-04, 2.33879E-04,-5.51722E-05,
     &       -3.11651E-05, 1.53017E-05, 8.63640E-07, 1.23298E-08,
     &        3.65506E-03, 6.68837E-04, 1.17185E-03, 3.04811E-04,
     &        1.84885E-04,-1.13719E-04, 4.73795E-05, 8.99701E-06,
     &       -1.75784E-07,-1.53249E-05,-2.53927E-03, 1.34981E-03,
     &       -1.62367E-03,-1.11622E-04,-5.57705E-05, 7.47879E-05,
     &       -4.64554E-05, 5.26481E-06, 4.44687E-06, 5.67928E-03,
     &        2.48280E-03,-5.82458E-04, 2.35053E-04,-1.58887E-05,
     &        4.95775E-05,-5.21834E-05, 1.41000E-05, 7.22647E-07,
     &       -2.86580E-03,-2.65629E-04, 4.39756E-04,-1.70003E-04,
     &        6.46716E-05, 1.05869E-05, 6.12629E-06, 1.90312E-06,
     &       -8.74881E-04, 1.44989E-03,-9.52096E-04, 2.35928E-04,
     &       -1.25652E-05, 9.69798E-06,-2.73650E-06,-1.70577E-06,
     &       -2.20950E-04,-9.75576E-05, 5.11985E-04,-1.95503E-04,
     &        2.24283E-05, 3.45091E-05,-1.43610E-05,-9.18372E-04,
     &       -4.17475E-04, 6.19332E-07,-1.63159E-04, 5.96985E-05,
     &       -3.77475E-05, 6.84808E-06,-5.35189E-03,-1.12024E-03,
     &        4.60254E-04, 5.10050E-05, 5.51791E-06, 4.10357E-06,
     &       -1.05908E-02,-1.23578E-03, 4.10524E-04,-2.42877E-04,
     &        2.63606E-05, 1.56794E-05,-4.12859E-03,-3.63374E-04,
     &        1.48821E-04,-4.08567E-05, 1.91997E-05,-3.33346E-03,
     &       -3.03381E-04,-2.26958E-04,-7.09068E-05, 7.54146E-06,
     &       -3.37553E-03,-5.70349E-04,-1.25933E-04, 1.18384E-04,
     &       -4.38684E-03, 1.73466E-04, 5.51119E-04,-1.37156E-05,
     &       -5.45486E-04,-4.48122E-05,-3.14826E-04,-5.05029E-03,
     &        3.70255E-04, 9.95639E-05, 5.42951E-03,-3.54228E-05,
     &       -1.81071E-03, 4.25779E-04,-1.33897E-03, 3.56688E-03/
C     long 120deg, jun_so
      DATA (D(9,2,J),J=1,289)/-7.58591E-01,
     &        3.79971E-01,-3.12144E-01,-2.19990E-01,-1.16698E-01,
     &       -8.47128E-02,-6.21775E-02, 1.11073E-01,-1.50473E-01,
     &       -7.66507E-02, 2.85446E-01,-5.65010E-03,-3.79709E-02,
     &       -4.81607E-02, 6.47384E-02, 1.73937E-02,-5.83326E-02,
     &       -2.19013E-01, 1.02218E-01, 2.47112E-02,-1.13386E-02,
     &        4.73109E-02,-2.12309E-02, 4.42289E-02, 1.74998E-02,
     &        1.38824E-02, 4.54281E-03, 2.87548E-03, 1.39378E-02,
     &       -3.97400E-03,-5.46713E-03, 2.40878E-03, 2.50956E-03,
     &       -2.58821E-01, 1.13853E-01, 2.30811E-02,-3.76180E-02,
     &        1.09902E-02, 2.02357E-03,-1.38849E-02, 3.01251E-02,
     &       -3.16768E-02, 1.42894E-03,-7.14538E-03,-5.14045E-03,
     &       -1.31193E-02,-4.56827E-03,-1.72822E-03,-1.24612E-03,
     &        8.33900E-03, 7.09718E-03, 1.09035E-02, 2.45535E-03,
     &        1.05148E-02,-2.40068E-03, 6.66018E-03,-3.90358E-03,
     &        4.06654E-03,-4.19144E-04,-1.07274E-03, 1.36015E-03,
     &        1.94450E-04, 2.83578E-05,-8.38045E-04,-1.21389E-02,
     &       -5.47096E-02, 3.10488E-02,-1.12466E-02,-1.50041E-03,
     &        8.47065E-04,-9.46043E-04, 3.19225E-03, 2.35073E-04,
     &        1.26811E-03,-1.27199E-03, 1.72692E-03,-6.52107E-04,
     &       -1.10092E-04, 3.51724E-04, 1.31358E-02, 1.88131E-02,
     &       -1.20578E-02, 2.46561E-03, 8.32909E-04,-1.01438E-03,
     &       -5.81834E-04,-6.06906E-04,-4.97031E-04, 2.23587E-05,
     &       -2.64302E-04,-1.34088E-04,-7.63360E-05,-3.66513E-05,
     &        4.12478E-02,-6.80659E-03,-1.37431E-03, 3.86490E-03,
     &       -5.26855E-04,-5.69061E-04, 2.67509E-04,-1.08398E-03,
     &        1.36175E-04, 1.01661E-04,-6.26276E-04,-1.43180E-05,
     &        7.50207E-05,-5.99389E-05,-1.03645E-02,-4.72016E-03,
     &        4.81711E-05,-3.18818E-03, 2.61721E-05,-5.69607E-04,
     &        2.43292E-04,-5.42552E-05, 1.73384E-04,-8.74273E-05,
     &        1.81457E-04, 5.39599E-05, 2.41471E-07, 3.45018E-03,
     &        3.09979E-03, 2.40496E-04,-1.48073E-04, 9.77269E-04,
     &       -6.34783E-05,-1.58019E-05, 1.36749E-04,-1.91062E-04,
     &        1.24284E-04,-2.70118E-05, 9.58087E-06, 3.62476E-05,
     &       -2.89861E-03,-1.44562E-03,-8.95459E-04,-3.31559E-05,
     &       -2.01131E-04, 1.68965E-04, 1.09201E-04, 4.64710E-05,
     &       -2.65478E-05, 1.75726E-05,-2.34474E-05, 2.20650E-05,
     &       -1.21958E-02,-2.64121E-03,-2.05362E-04,-1.40329E-03,
     &       -8.27762E-05,-2.84078E-04, 2.15577E-04,-9.88548E-06,
     &        7.07059E-05, 3.55671E-05, 1.81989E-05, 5.13795E-05,
     &        3.27874E-04, 1.39071E-03, 1.49064E-03,-4.38822E-04,
     &        5.19748E-04,-3.81124E-05, 6.58848E-05, 7.18669E-05,
     &       -4.65863E-05, 1.20714E-05,-3.09111E-05, 2.59392E-03,
     &       -2.11721E-03,-5.25515E-04, 3.16075E-04,-3.19379E-04,
     &       -5.61489E-06, 7.52491E-05, 3.60775E-05,-2.40494E-05,
     &        5.70602E-06,-1.32616E-05,-2.46804E-03, 1.89576E-03,
     &        2.95804E-04,-5.32397E-04, 3.10841E-04, 5.30628E-05,
     &       -6.48364E-05, 7.82339E-06, 1.66976E-05, 1.63217E-06,
     &        6.52372E-03, 1.49828E-03, 8.37170E-04, 2.24126E-04,
     &        3.35715E-04,-4.23609E-05, 4.37256E-05, 5.53131E-06,
     &        1.34006E-05,-1.63984E-05,-4.15807E-03,-5.66861E-04,
     &       -9.85647E-04,-3.24383E-04,-1.08306E-04, 4.68996E-05,
     &       -6.85316E-05, 1.26428E-05, 1.50765E-06, 2.87850E-03,
     &        4.52479E-04,-2.91082E-04,-5.58780E-05, 7.98114E-05,
     &        6.91787E-05,-4.15123E-05, 3.26359E-06, 1.39205E-05,
     &        3.46262E-03,-9.61060E-04, 4.50469E-04,-1.41361E-04,
     &       -9.50121E-06, 7.81675E-06, 4.80696E-07, 8.76806E-06,
     &       -4.91842E-03,-8.19821E-04,-9.72097E-05,-1.90316E-05,
     &       -1.55296E-05,-3.26854E-05, 1.53100E-05,-4.85562E-06,
     &        3.01986E-03, 4.22138E-04, 1.31463E-04,-5.45010E-05,
     &        1.05318E-05, 5.73766E-05,-1.57176E-05,-2.46561E-03,
     &        1.30919E-04, 1.96623E-04,-3.16902E-05, 1.62329E-05,
     &       -4.60735E-05, 9.85063E-06,-2.07700E-03,-2.80763E-04,
     &        3.48600E-04, 4.21572E-05, 6.82589E-05,-2.01995E-05,
     &       -4.37697E-03,-5.43229E-04, 8.93379E-06,-1.72493E-04,
     &       -2.69381E-05, 3.25607E-05,-2.26740E-03,-1.22562E-03,
     &       -4.90965E-05,-5.66738E-05, 3.42132E-05, 4.77878E-03,
     &       -4.99598E-04,-3.40516E-04,-1.25080E-04, 4.39272E-05,
     &       -8.31870E-03, 4.27214E-04,-1.78238E-04, 1.72156E-04,
     &        3.71650E-03,-4.88633E-06, 1.91490E-04,-7.36256E-05,
     &       -8.45440E-03,-2.68194E-04, 1.48663E-05,-4.50351E-03,
     &       -3.62916E-04,-3.78482E-04, 7.25475E-03,-9.99590E-04,
     &       -4.14004E-04, 8.55150E-04, 1.51869E-03, 2.37897E-03/
C     long 135deg, jun_so
      DATA (D(10,2,J),J=1,289)/-7.31634E-01,
     &        3.70469E-01,-2.71921E-01,-2.44998E-01,-1.51411E-01,
     &       -5.35355E-02,-1.62359E-02, 7.34752E-02,-1.45158E-01,
     &       -3.26137E-02, 1.61121E-01, 4.15327E-02,-2.73615E-02,
     &       -6.22378E-02, 7.32126E-02, 2.43605E-02,-9.85986E-02,
     &       -1.90174E-01, 9.62973E-02, 2.79298E-02,-1.28132E-02,
     &        4.14781E-02,-1.61282E-02, 4.21382E-02, 9.55586E-03,
     &        2.21524E-02, 3.24897E-05, 2.21863E-03, 1.61485E-02,
     &       -2.86643E-03,-3.75601E-03, 4.37893E-03, 1.57966E-03,
     &       -2.79609E-01, 1.23747E-01, 3.85440E-02,-3.70038E-02,
     &        4.57298E-03, 1.20910E-02,-3.83967E-03, 2.54580E-02,
     &       -2.77637E-02, 7.60363E-03,-1.02482E-02,-1.22788E-03,
     &       -9.74056E-03,-5.30700E-03,-3.36752E-04,-1.82835E-03,
     &        1.97238E-02, 1.45784E-02, 1.47287E-03, 4.92964E-03,
     &        1.23202E-02,-2.87976E-03, 4.83942E-03,-2.09085E-03,
     &        3.93431E-03,-1.79641E-03,-7.51044E-04, 1.13868E-03,
     &       -1.81336E-04, 2.27517E-04,-1.06330E-03,-5.80837E-03,
     &       -5.10270E-02, 3.25806E-02,-1.14326E-02,-3.02565E-03,
     &        1.01589E-03, 2.82753E-04, 2.57166E-03, 4.68344E-04,
     &        1.33361E-03,-1.21674E-03, 1.04096E-03,-5.85475E-04,
     &       -3.35584E-06,-4.41298E-05, 2.09422E-02, 1.48432E-02,
     &       -9.69751E-03,-1.43612E-04, 1.30031E-03,-1.83804E-04,
     &       -7.29473E-04,-5.36577E-04,-2.77663E-04,-1.35349E-04,
     &       -2.30558E-04,-1.05864E-04,-5.11134E-05, 1.27831E-05,
     &        2.96329E-02,-2.21917E-04,-3.16879E-03, 3.45736E-03,
     &        3.08482E-04,-5.95417E-04,-5.13957E-04,-8.14479E-04,
     &        1.60579E-04, 1.82154E-05,-5.45390E-04,-1.15876E-04,
     &        2.94352E-06, 6.38993E-05,-8.68459E-03,-1.08502E-02,
     &        1.19140E-04,-2.31929E-03,-1.07342E-03,-2.99972E-04,
     &        1.58656E-04,-1.48303E-04, 5.61244E-05,-1.49320E-04,
     &        1.42939E-04,-2.05243E-05,-1.12151E-05, 4.22262E-03,
     &        1.76799E-03, 1.70437E-03,-4.77618E-04, 5.86461E-04,
     &       -2.30122E-04, 7.14177E-08, 2.05783E-05,-8.86542E-05,
     &        7.25859E-05, 1.40687E-05,-4.89010E-05, 7.88146E-05,
     &       -3.58971E-03, 5.93074E-04,-8.44765E-04, 3.61775E-05,
     &       -2.14621E-04, 2.12062E-04,-8.94326E-05, 1.16316E-04,
     &       -4.54898E-05, 1.33186E-05,-1.50979E-05, 2.27657E-05,
     &       -1.78208E-02,-2.62120E-03, 1.05825E-03,-2.24902E-04,
     &       -8.66271E-04,-6.50182E-06, 1.74311E-04,-4.16420E-05,
     &        1.75969E-05, 1.97240E-05,-2.63555E-05, 3.94585E-05,
     &        2.41900E-03, 1.40548E-03, 3.23302E-04,-7.46783E-04,
     &        8.55842E-04,-1.14848E-04, 2.88560E-05, 3.97367E-05,
     &       -8.95054E-06, 3.16070E-06,-1.38234E-05,-5.39168E-03,
     &       -4.49214E-05, 4.18279E-04, 2.42529E-04,-3.80008E-04,
     &        1.38258E-05, 3.03746E-05, 6.80447E-05,-1.18845E-05,
     &        1.77863E-05,-1.00214E-05, 4.58298E-03, 2.18429E-03,
     &        4.90465E-04,-2.50909E-04, 3.94574E-04, 5.97873E-05,
     &       -4.18166E-05, 4.34997E-06, 1.94446E-05, 1.46977E-06,
     &        6.37437E-03, 1.24286E-03, 5.17887E-04, 2.76171E-04,
     &        5.21368E-04,-4.02423E-05, 2.28949E-05, 1.04759E-05,
     &        1.17541E-05,-1.02883E-05,-3.51771E-03,-2.18769E-03,
     &        1.58173E-04,-4.30148E-04,-2.27192E-04, 2.62394E-05,
     &       -4.64889E-05,-1.32975E-06,-5.89859E-06, 8.84020E-03,
     &       -5.28238E-04,-4.48967E-05, 7.75287E-05, 1.10953E-04,
     &        5.94026E-05,-2.10745E-05, 9.68122E-07, 9.99950E-06,
     &        1.82061E-03,-7.12430E-04, 5.10054E-04,-1.76184E-04,
     &       -2.81798E-05,-4.63731E-06,-8.98638E-06,-7.66293E-07,
     &       -4.57144E-03,-1.84941E-03, 8.65720E-04,-4.48727E-04,
     &       -3.20525E-05,-2.81718E-05,-6.58196E-06, 8.42647E-07,
     &        1.43066E-03,-4.81205E-04,-7.23211E-05, 9.69206E-05,
     &       -2.93294E-05, 4.29350E-05,-4.24051E-06, 2.95313E-03,
     &       -9.46235E-04, 1.91378E-04,-8.14544E-05, 1.40493E-05,
     &       -3.53597E-05, 1.21209E-05,-3.28018E-03,-1.55418E-04,
     &        3.30578E-04,-5.35986E-05, 2.23361E-05,-2.67479E-06,
     &        5.00347E-03,-4.86785E-04,-1.77075E-04,-1.47447E-05,
     &        5.83324E-06, 2.08493E-05,-4.68701E-05,-1.74680E-04,
     &        5.97413E-05,-4.40718E-05, 3.18843E-05, 1.19206E-03,
     &        1.86312E-04,-2.14245E-04,-3.67532E-05, 3.82991E-05,
     &       -3.59779E-05,-3.04333E-04, 3.50249E-05,-8.67095E-06,
     &        3.15696E-03, 7.87229E-04,-3.64675E-04,-5.86955E-05,
     &        2.48966E-03,-1.87498E-03, 3.55952E-04, 7.25091E-03,
     &       -5.31215E-04,-2.46754E-04, 6.82427E-03,-1.64054E-03,
     &        7.75088E-03,-8.21950E-04, 1.32317E-03,-2.63589E-03/
C     long 150deg, jun_so
      DATA (D(11,2,J),J=1,289)/-6.86366E-01,
     &        3.08151E-01,-2.79213E-01,-1.95269E-01,-1.72349E-01,
     &       -8.88992E-02, 5.15212E-02, 2.10242E-02,-1.25750E-01,
     &        3.63210E-02, 1.03082E-01, 3.78479E-02,-5.40772E-02,
     &       -3.25381E-02, 7.80628E-02, 2.39423E-02,-8.76546E-02,
     &       -1.48838E-01, 6.92377E-02, 3.79865E-02,-8.49413E-03,
     &        3.26350E-02,-1.01258E-02, 4.52442E-02, 3.42027E-03,
     &        2.64036E-02,-3.36495E-04, 2.59666E-03, 1.49472E-02,
     &       -3.23128E-03,-6.09351E-04, 2.15632E-03, 1.52975E-03,
     &       -2.30142E-01, 1.16214E-01, 3.69249E-02,-3.74960E-02,
     &        1.24589E-02, 1.61374E-02, 1.43856E-03, 2.13217E-02,
     &       -2.66571E-02, 1.43504E-02,-1.23614E-02,-4.66194E-04,
     &       -8.66131E-03,-2.92954E-03,-7.31009E-04,-1.70727E-03,
     &        1.84312E-02, 1.03945E-02, 1.33070E-03, 7.39408E-03,
     &        1.06419E-02,-3.80981E-03, 2.56967E-03,-4.54236E-04,
     &        3.00279E-03,-2.45140E-03,-4.44071E-04, 1.20525E-03,
     &       -4.43979E-04,-3.41302E-04,-6.70085E-04,-7.25714E-04,
     &       -5.22709E-02, 3.33430E-02,-1.45846E-02,-5.35046E-03,
     &        2.02481E-03, 9.30141E-04, 1.52552E-03, 7.21904E-04,
     &        1.35212E-03,-6.92736E-04, 5.70310E-04,-4.61289E-04,
     &        8.75329E-05,-2.77042E-05, 2.54077E-02, 8.10612E-03,
     &       -7.48244E-03,-1.14337E-03, 1.68972E-03,-3.02753E-04,
     &       -8.53771E-04,-1.47187E-04, 3.39456E-05,-1.63275E-04,
     &       -2.56459E-04, 4.22087E-05,-8.34405E-05,-4.13750E-06,
     &        2.05230E-02, 1.65620E-03,-3.67841E-03, 2.30457E-03,
     &        5.88549E-04,-6.75994E-04,-1.02758E-03,-3.58814E-04,
     &       -1.38425E-04,-1.00698E-04,-4.65088E-04,-1.16219E-04,
     &        7.48323E-06,-4.02537E-05,-3.22728E-03,-1.43680E-02,
     &        1.82420E-03,-2.35396E-03,-1.26861E-03,-6.74228E-05,
     &       -3.79009E-05,-7.99580E-05, 9.17218E-06,-1.80923E-04,
     &        1.38659E-04,-8.25839E-05, 2.20767E-05, 7.19986E-03,
     &        9.13706E-04, 1.32901E-03,-5.14044E-04, 5.09842E-04,
     &       -2.44152E-04, 5.85070E-05, 1.06687E-05, 2.34574E-05,
     &        9.06451E-06, 2.11283E-05,-1.66232E-05, 5.56290E-05,
     &       -3.75818E-03,-6.42931E-04,-6.01505E-04,-3.87524E-04,
     &       -2.46376E-04, 1.27122E-04,-4.20717E-06, 6.95050E-05,
     &       -4.97915E-05, 2.58839E-05,-1.76922E-05, 2.30798E-05,
     &       -1.37831E-02,-9.15912E-04, 2.01070E-03,-3.40902E-04,
     &       -7.67116E-04, 7.70472E-05, 6.80653E-05, 6.26804E-06,
     &       -4.67941E-05, 2.19677E-05,-1.79908E-05, 2.12164E-05,
     &        5.29008E-03,-2.93146E-04,-7.90933E-05,-4.55696E-04,
     &        6.92613E-04,-7.32133E-05,-1.54512E-05, 3.50221E-05,
     &        1.34172E-05,-8.18638E-06,-3.54008E-06,-8.14651E-03,
     &       -8.02413E-04, 3.97398E-04,-3.19366E-04,-3.76147E-04,
     &        6.20038E-05, 1.07204E-05, 5.18175E-05,-6.45362E-06,
     &        2.25553E-05,-8.06991E-06, 8.63039E-03, 1.54939E-03,
     &        1.24679E-04, 4.51543E-05, 3.28830E-04,-2.70093E-05,
     &       -1.86672E-05,-3.28527E-06, 1.51660E-05, 2.58443E-06,
     &        1.10490E-02, 6.10995E-04, 4.19528E-04, 3.46139E-04,
     &        4.78960E-04, 1.76591E-05,-8.16887E-06, 2.53931E-05,
     &       -1.81508E-06,-8.01292E-06,-3.28177E-03,-1.08074E-03,
     &        2.40782E-04,-3.94897E-04,-1.96040E-04, 3.49533E-05,
     &       -1.41804E-05,-1.29343E-05,-1.27218E-06, 9.87981E-03,
     &        9.82025E-04,-6.48611E-04, 3.02530E-04,-2.02390E-05,
     &        6.04753E-05,-1.81926E-05,-1.83353E-06, 2.38346E-06,
     &       -3.65556E-03,-8.00605E-04, 7.16557E-04,-1.27416E-04,
     &        7.21293E-06,-3.38779E-05,-3.74049E-06,-5.53977E-08,
     &       -6.53930E-03,-1.12825E-03, 4.32977E-04,-3.46139E-04,
     &       -8.75547E-05, 7.93035E-06,-1.70327E-05,-2.88388E-06,
     &       -2.55349E-03,-5.02447E-04,-6.26515E-05, 1.06906E-04,
     &       -1.09555E-05, 1.13868E-05, 8.43227E-06, 5.52124E-04,
     &       -1.43635E-03,-2.38639E-05,-4.12783E-05,-2.31849E-05,
     &       -1.73236E-05, 1.49242E-05,-2.72927E-03,-9.58464E-05,
     &        1.84754E-05,-1.97928E-04, 2.04678E-05, 8.47938E-06,
     &        2.82839E-03,-7.72962E-04, 6.33064E-06, 1.24924E-04,
     &       -5.04622E-06, 3.19193E-05,-9.09855E-03, 1.07064E-03,
     &       -6.86637E-05,-1.32246E-04, 3.02666E-05, 5.61190E-04,
     &        2.85948E-04,-1.74763E-04, 6.19071E-06, 1.53261E-05,
     &       -3.38919E-03,-1.75710E-04,-9.69654E-05,-4.05274E-05,
     &        3.30542E-03, 4.97332E-04,-5.02243E-04,-1.67425E-05,
     &        3.99916E-03,-1.23587E-03, 1.07003E-04, 3.05672E-03,
     &       -8.31250E-05,-1.87546E-04, 1.13466E-02,-6.68912E-04,
     &        6.28118E-04,-1.22357E-03, 3.21985E-03, 2.58823E-03/
C     long 165deg, jun_so
      DATA (D(12,2,J),J=1,289)/-6.66804E-01,
     &        2.43936E-01,-3.08683E-01,-1.48054E-01,-1.69891E-01,
     &       -1.40732E-01, 1.08152E-01, 1.04810E-02,-1.10188E-01,
     &        1.00637E-01, 1.10042E-01, 3.79134E-02,-5.72971E-02,
     &       -5.45710E-03, 5.59167E-02, 1.95753E-02,-7.63495E-02,
     &       -1.18383E-01, 4.89538E-02, 4.36724E-02,-4.80748E-03,
     &        2.86563E-02,-1.40327E-02, 5.10665E-02, 5.18797E-03,
     &        2.17158E-02, 6.77307E-04, 1.84528E-03, 1.11470E-02,
     &       -5.30493E-03, 8.30848E-04,-1.03163E-03, 2.02228E-03,
     &       -1.73132E-01, 1.06474E-01, 3.07592E-02,-3.67613E-02,
     &        2.35315E-02, 1.43779E-02,-1.38177E-03, 2.16357E-02,
     &       -2.72227E-02, 1.36701E-02,-1.59189E-02, 1.62992E-03,
     &       -9.93212E-03,-1.52159E-03,-6.31599E-04, 6.94965E-05,
     &        2.97479E-03, 2.94284E-03, 7.15288E-03, 8.62008E-03,
     &        6.24708E-03,-4.12038E-03, 2.30941E-03,-4.40369E-04,
     &        2.18544E-03,-2.10623E-03,-2.34108E-04, 1.04128E-03,
     &       -5.30206E-04,-5.36914E-04,-4.32295E-04, 7.26186E-03,
     &       -5.77153E-02, 3.04374E-02,-1.80516E-02,-6.89338E-03,
     &        4.77120E-04, 1.16007E-03, 1.36378E-03, 1.24146E-03,
     &        5.10217E-04,-3.97453E-04, 3.10479E-04,-4.54476E-04,
     &       -1.63724E-04, 3.50520E-04, 2.28269E-02, 5.53697E-03,
     &       -7.44799E-03,-4.83623E-04, 1.88414E-03,-1.38822E-03,
     &       -7.99758E-04, 5.29300E-05, 6.57996E-05,-1.48943E-04,
     &       -4.20393E-04, 9.55865E-05,-9.90113E-05,-5.85647E-05,
     &        9.12363E-03,-8.55986E-04,-1.73010E-03, 1.47022E-03,
     &        3.68744E-04,-3.12985E-04,-6.33248E-04,-1.42477E-04,
     &       -1.64866E-04,-1.29146E-04,-3.73112E-04,-7.49331E-05,
     &        1.61906E-05,-6.36921E-05, 2.46190E-03,-1.27283E-02,
     &        2.56815E-03,-2.54573E-03,-4.41058E-04,-1.34156E-04,
     &        3.47408E-05,-5.44874E-05, 6.34081E-05,-1.55546E-04,
     &        1.33403E-04,-5.87372E-05, 4.21470E-05, 1.75768E-03,
     &        1.01256E-04, 3.63133E-04, 1.39109E-04, 5.10915E-04,
     &       -2.13942E-05, 1.59555E-04, 1.06833E-04,-1.57520E-05,
     &        3.67362E-05,-6.32205E-05, 1.82332E-05, 2.10323E-05,
     &       -3.21294E-03,-9.32990E-04,-9.64234E-04,-8.41368E-04,
     &       -1.53337E-04, 1.05256E-04, 1.40390E-04, 1.12433E-04,
     &       -6.12512E-05, 2.86828E-05,-1.90847E-05, 2.82981E-05,
     &       -8.93073E-03,-7.96282E-04, 2.28757E-03,-3.65138E-04,
     &       -3.49153E-04,-1.04994E-04, 3.89040E-05,-1.59963E-05,
     &       -3.10989E-05, 3.89480E-06, 7.27334E-06, 1.67205E-05,
     &        2.56292E-04,-5.24086E-04,-3.97243E-04,-4.07306E-05,
     &        2.85575E-04,-9.93010E-06,-1.91680E-05, 1.28709E-05,
     &        1.63398E-05,-2.43555E-05,-5.24373E-07,-7.24011E-03,
     &       -1.31635E-03,-3.33309E-04,-5.04448E-04,-6.34351E-05,
     &       -3.06423E-05, 7.09518E-05, 1.94283E-05,-3.42386E-06,
     &        1.45962E-05,-1.31984E-06, 5.73074E-03, 5.95024E-04,
     &        4.79360E-04, 2.38819E-05, 2.58142E-04,-6.96203E-06,
     &       -1.98449E-05,-5.32885E-06, 2.92430E-06, 2.08549E-06,
     &        1.55615E-02, 6.80822E-04, 1.67470E-04, 3.08153E-04,
     &        3.61507E-04, 6.64057E-05,-2.58535E-05, 4.55551E-06,
     &        1.24824E-05,-3.92633E-06,-5.23318E-03, 1.48870E-04,
     &       -3.63078E-04,-2.98225E-04,-1.06302E-04, 6.02936E-06,
     &       -4.37558E-07,-1.09648E-06,-6.05324E-06, 7.89869E-03,
     &        8.06287E-04,-1.94465E-04, 2.73582E-04,-1.30620E-04,
     &        9.37627E-05,-2.36664E-05,-6.56411E-06, 3.91433E-06,
     &       -1.37526E-03, 8.20055E-04,-2.08113E-05, 3.88354E-07,
     &        2.76383E-05,-2.00464E-05, 6.39969E-07, 4.34389E-07,
     &       -5.91421E-03, 1.44800E-05,-2.03959E-04,-9.55843E-05,
     &       -1.05105E-04, 5.03740E-06,-7.06133E-06,-6.86121E-06,
     &       -4.85918E-03, 1.41228E-04,-3.39694E-04, 1.90982E-05,
     &       -4.59522E-05, 2.70016E-05, 3.10873E-06,-2.30388E-03,
     &        5.63304E-05, 2.20024E-04,-1.49140E-06,-6.71995E-05,
     &        1.23062E-05, 2.55882E-07,-4.36792E-03, 5.24475E-04,
     &       -3.44690E-04,-8.96505E-05, 4.85833E-05,-1.90226E-05,
     &        1.30070E-03,-3.17801E-04,-3.64544E-04, 1.63658E-04,
     &       -3.15488E-05, 3.60846E-05,-8.38443E-03,-3.21825E-04,
     &       -1.34834E-04,-1.64650E-04, 2.47076E-05, 3.34635E-03,
     &        6.75144E-04,-3.56341E-04, 1.22754E-05, 4.83609E-05,
     &        7.04465E-04,-4.96256E-04,-7.64992E-05,-7.05336E-06,
     &       -1.04949E-03,-2.45822E-04,-4.00103E-04, 1.03756E-05,
     &        3.96792E-03,-3.88103E-04,-1.42259E-05, 3.64027E-03,
     &       -4.35239E-04,-3.04452E-04, 7.19427E-03, 1.57557E-04,
     &       -2.36650E-04, 5.05373E-04,-1.18118E-04, 9.41889E-03/
C     long 180deg, jun_so
      DATA (D(13,2,J),J=1,289)/-6.82568E-01,
     &        2.02688E-01,-3.19750E-01,-1.69849E-01,-1.54486E-01,
     &       -1.68089E-01, 1.11868E-01, 1.88735E-02,-8.49333E-02,
     &        1.14417E-01, 1.42668E-01, 4.17913E-02,-5.54115E-02,
     &        4.54291E-03, 5.96651E-02, 3.01067E-02,-9.13199E-02,
     &       -9.90370E-02, 4.45350E-02, 3.52735E-02,-8.54415E-03,
     &        3.05823E-02,-2.08989E-02, 5.28560E-02, 6.97005E-03,
     &        1.65640E-02,-3.63947E-03,-1.10765E-06, 8.09772E-03,
     &       -1.00693E-02, 1.18196E-03,-3.71486E-03, 2.57330E-03,
     &       -1.54085E-01, 1.03859E-01, 2.85291E-02,-3.59543E-02,
     &        2.78981E-02, 1.09062E-02,-6.49457E-03, 1.95372E-02,
     &       -2.79438E-02, 5.28848E-03,-1.78970E-02, 2.88964E-03,
     &       -9.18356E-03,-2.77787E-03, 4.32888E-03, 1.70239E-03,
     &       -1.27701E-02, 1.64631E-03, 9.96376E-03, 6.06911E-03,
     &        2.17187E-03,-2.77159E-03, 1.75176E-03,-3.20755E-04,
     &        1.26152E-03,-1.22089E-03,-2.06521E-05, 1.83111E-04,
     &       -4.66342E-04,-4.73039E-04,-7.11024E-04, 1.96570E-02,
     &       -6.37103E-02, 2.71339E-02,-1.93169E-02,-8.10735E-03,
     &       -1.55942E-03, 8.48233E-04, 1.93637E-03, 1.74003E-03,
     &       -1.88063E-04,-5.58983E-04, 2.53320E-04,-6.50810E-04,
     &       -8.62881E-05, 4.34248E-04, 2.11889E-02, 6.73004E-03,
     &       -1.00490E-02, 2.33367E-05, 1.85246E-03,-1.56597E-03,
     &       -1.08866E-03,-2.09046E-04, 1.07392E-04,-2.11650E-04,
     &       -3.97469E-04, 6.44470E-05, 7.54925E-06,-3.43032E-05,
     &        3.93830E-03,-4.38985E-03,-8.98012E-04, 1.22847E-03,
     &        6.18021E-04,-1.94256E-04, 2.01312E-04,-3.63031E-04,
     &        1.79799E-04,-2.97877E-05,-1.76895E-04,-5.35641E-05,
     &       -4.95047E-05,-3.28535E-05, 6.08681E-03,-8.32099E-03,
     &        3.17835E-03,-2.49648E-03, 4.18470E-04,-7.77535E-05,
     &        5.84749E-05,-1.64659E-04, 1.70286E-04,-1.03530E-04,
     &        8.25877E-05,-2.29095E-05, 4.59394E-05, 2.47743E-04,
     &        1.13583E-03,-3.74174E-04, 6.06322E-04, 6.64980E-04,
     &        2.85390E-04, 9.17240E-05, 1.69444E-04, 3.37677E-05,
     &        2.97958E-05,-1.10935E-04, 2.28836E-05,-1.02478E-05,
     &        2.11188E-03,-2.30624E-03,-7.79309E-04,-3.05071E-04,
     &       -2.72333E-04, 1.54904E-04, 1.38171E-04, 1.40553E-04,
     &       -5.66123E-05, 3.45163E-05,-4.14782E-06, 1.96631E-05,
     &       -6.55587E-03, 2.09482E-03, 1.37526E-03, 1.23910E-04,
     &       -1.55869E-04,-3.19937E-05,-3.99847E-05,-5.55442E-06,
     &       -5.24703E-06,-2.88670E-06,-2.48717E-06, 1.59599E-05,
     &       -7.20334E-03,-6.06005E-04, 6.64022E-05,-1.44035E-04,
     &        1.18968E-04,-4.77768E-05, 2.82234E-05, 8.56206E-06,
     &       -1.79403E-06,-2.88798E-05,-3.38503E-06,-5.46655E-03,
     &       -2.62187E-03,-1.06832E-03,-4.08487E-04, 9.84642E-06,
     &       -1.19793E-04, 6.54552E-05, 1.08498E-05, 6.95242E-06,
     &        1.69633E-06, 6.89752E-06,-1.53761E-03, 2.00552E-03,
     &        9.31259E-04, 2.45108E-04, 2.64744E-04, 4.24514E-05,
     &        1.25426E-05,-1.12470E-05,-5.98825E-06, 9.06469E-06,
     &        9.52953E-03, 1.96161E-03, 2.53758E-04, 8.14223E-05,
     &        2.15572E-04, 2.41830E-05,-2.85559E-05, 1.25857E-05,
     &        1.27217E-05, 6.69304E-06,-1.86222E-03, 3.37582E-04,
     &       -4.14769E-04,-1.77506E-04,-2.14077E-05,-4.51772E-05,
     &        9.88337E-06,-2.86384E-06,-7.86023E-06, 9.15326E-03,
     &       -4.71912E-04, 7.78801E-05, 3.37424E-04,-5.47357E-05,
     &        5.81536E-05,-1.21051E-06,-1.44851E-05, 5.47953E-06,
     &       -9.13811E-04, 1.06741E-03,-2.73108E-04,-9.01427E-05,
     &        8.88632E-05,-1.77002E-05, 2.07425E-06,-9.72958E-06,
     &        1.53473E-03, 1.14645E-03,-2.07157E-04,-4.08664E-05,
     &       -1.76811E-05,-1.02495E-05,-8.38797E-07, 9.97285E-07,
     &       -4.95462E-03,-7.07322E-04,-1.27114E-04,-6.04632E-05,
     &       -5.90169E-05, 3.17889E-05, 3.58872E-06,-1.09958E-03,
     &        3.56284E-04, 2.06198E-04,-1.09889E-04, 4.24479E-05,
     &        3.44397E-06,-1.69038E-06,-2.66784E-03, 4.26538E-07,
     &        1.82312E-04,-3.58603E-05, 4.10843E-05,-1.57568E-05,
     &        9.02708E-04,-3.75676E-04,-6.40258E-04, 8.81874E-05,
     &       -2.27611E-06,-3.45930E-06,-3.98794E-03,-1.69146E-03,
     &        2.92010E-04,-1.73426E-04, 2.68809E-05, 6.25163E-03,
     &        5.31876E-04, 1.31325E-04,-8.13308E-05, 9.15307E-06,
     &       -1.24717E-03, 4.52233E-05, 1.97353E-04,-3.10948E-05,
     &       -4.13500E-03, 8.31004E-04,-1.22052E-04, 4.21246E-05,
     &        5.28553E-03,-6.14151E-04, 1.01716E-04, 2.58226E-03,
     &       -2.77287E-04,-8.76094E-07, 3.92679E-03,-2.08983E-04,
     &        1.46641E-03, 9.09480E-04, 1.52644E-04, 6.68664E-03/
C     long 195deg, jun_so
      DATA (D(14,2,J),J=1,289)/-6.96748E-01,
     &        1.92899E-01,-3.22240E-01,-1.99819E-01,-1.57288E-01,
     &       -1.28623E-01, 5.11199E-02, 1.98525E-02,-5.78984E-02,
     &        5.09353E-02, 1.80696E-01, 3.27007E-02,-8.96377E-02,
     &        8.90373E-03, 7.16054E-02, 6.28954E-02,-9.26335E-02,
     &       -1.04622E-01, 4.87738E-02, 3.36728E-02,-2.97683E-02,
     &        3.91644E-02,-2.13275E-02, 4.49624E-02, 7.10274E-03,
     &        1.68271E-02,-1.09961E-02,-2.47653E-03, 3.00686E-03,
     &       -1.29222E-02,-3.26232E-04,-7.21385E-03, 1.78394E-03,
     &       -1.50780E-01, 1.04664E-01, 2.60925E-02,-3.45081E-02,
     &        1.87082E-02, 3.50457E-03,-1.07233E-02, 1.36379E-02,
     &       -3.16122E-02,-1.23637E-03,-1.93928E-02, 2.73426E-03,
     &       -9.75769E-03,-1.99135E-03, 7.91636E-03, 3.20896E-03,
     &       -3.11719E-02, 9.15582E-03, 4.63725E-03, 5.30924E-04,
     &        4.62415E-04,-1.97788E-03, 2.57838E-04,-5.04279E-04,
     &        4.97955E-04,-5.74031E-04,-2.33232E-04,-3.58187E-05,
     &       -5.72098E-04,-3.68283E-04,-9.90419E-04, 2.13419E-02,
     &       -6.34932E-02, 2.83622E-02,-2.02908E-02,-7.08016E-03,
     &       -1.41180E-03, 1.48156E-03, 2.26521E-03, 1.26808E-03,
     &        2.50429E-04,-9.10151E-04, 2.68396E-04,-8.73249E-04,
     &       -9.16777E-05, 2.46819E-04, 2.02792E-02, 5.23659E-03,
     &       -9.14273E-03,-4.35595E-04, 2.24300E-03,-1.16859E-03,
     &       -8.37661E-04,-3.56084E-04, 4.05916E-04,-2.33932E-04,
     &       -2.08999E-04, 1.00957E-04, 3.99506E-05,-5.89097E-05,
     &        2.94065E-03,-4.91766E-03,-2.00037E-03, 1.69074E-03,
     &        6.60995E-04, 1.18560E-04, 7.65616E-04,-3.05312E-04,
     &        4.04807E-04, 2.25495E-04,-1.27965E-04,-1.47965E-05,
     &       -7.41247E-05,-3.89445E-05, 9.76352E-03,-7.95525E-03,
     &        3.93555E-03,-1.66928E-03, 5.04833E-04,-1.39895E-04,
     &        6.16121E-05,-1.33613E-04, 2.02789E-04,-1.40644E-04,
     &        8.99480E-05,-1.50964E-05, 8.44010E-06, 6.44060E-03,
     &        5.73702E-04, 1.19522E-03,-1.69429E-05, 6.52040E-04,
     &        1.64939E-04,-8.79925E-05, 1.24485E-05, 1.12696E-04,
     &       -7.24110E-05,-3.03235E-05, 1.06411E-05, 3.25775E-05,
     &        3.58475E-03,-4.00601E-03,-1.44970E-03, 6.29764E-04,
     &       -6.03337E-04, 1.17315E-04, 3.27555E-05, 3.69040E-05,
     &       -2.64442E-05, 2.35444E-05,-9.05950E-06, 1.54416E-05,
     &       -3.98956E-03, 4.67162E-03, 2.21916E-03, 4.84281E-04,
     &        1.58286E-04, 1.11171E-05,-9.63695E-05, 1.13159E-04,
     &       -2.99605E-05, 3.33503E-05,-1.33177E-05, 1.91095E-05,
     &       -4.16050E-03,-2.19502E-04, 2.44911E-04,-3.19076E-04,
     &        3.65146E-05, 2.65345E-05, 4.13027E-05, 7.46241E-05,
     &        3.14470E-06,-2.00848E-05, 9.51461E-06,-4.12251E-03,
     &       -4.61267E-03,-1.86670E-03,-3.66663E-04, 2.62436E-05,
     &       -2.28686E-04, 8.49005E-05, 1.41218E-06, 1.63125E-05,
     &        1.03763E-05,-3.25506E-06,-6.67319E-03, 3.60617E-03,
     &        1.16993E-03, 1.41270E-04, 1.65273E-04, 4.35901E-05,
     &       -4.92301E-06,-5.30167E-06,-2.74411E-07, 6.85823E-07,
     &        2.61823E-03, 1.38828E-03, 6.01516E-05,-1.77272E-04,
     &        2.43983E-04,-5.84622E-05,-4.88991E-05, 2.25215E-05,
     &       -1.80810E-05, 9.04361E-06,-1.74519E-03, 8.58741E-04,
     &       -3.32043E-04,-8.72835E-05, 9.37274E-05,-3.13015E-05,
     &        2.37241E-05,-1.88021E-05, 1.97950E-07, 4.76520E-03,
     &        4.19335E-04,-5.98465E-05, 2.99658E-04, 2.42258E-05,
     &        1.70972E-05,-1.15144E-05,-6.40326E-06, 2.22270E-06,
     &       -7.54629E-04,-6.63796E-04, 1.81462E-06,-2.46895E-04,
     &        1.19838E-04,-3.71663E-05, 2.21829E-05,-4.39128E-06,
     &        5.80841E-03, 5.10864E-04,-1.60243E-04,-9.76777E-05,
     &        2.46588E-05,-3.72089E-05,-4.75437E-06, 1.29935E-05,
     &       -3.24586E-03, 3.07244E-04, 3.72925E-04, 8.82681E-06,
     &        2.18818E-05,-1.87564E-05, 8.90776E-06, 1.06989E-03,
     &       -4.85493E-04, 6.40821E-07,-2.56853E-04, 1.36682E-04,
     &       -4.25249E-05, 7.01222E-06,-2.05635E-03,-8.45679E-04,
     &        4.06023E-04,-1.05725E-04, 7.18220E-06,-1.60939E-05,
     &       -2.26911E-03, 1.14019E-03,-3.15502E-04,-2.21594E-05,
     &        6.24958E-05,-3.68023E-05,-7.74055E-04,-1.16591E-03,
     &        7.11120E-04,-1.08678E-04, 1.38743E-05, 6.79974E-03,
     &        9.12544E-04, 2.30810E-04,-8.71118E-05, 2.28290E-05,
     &       -3.61864E-03, 6.36834E-04, 3.15736E-04, 1.77679E-05,
     &       -5.37969E-04, 8.70610E-04,-4.79616E-05, 4.40301E-05,
     &       -1.65772E-03, 1.89351E-04, 4.01639E-05,-4.58197E-03,
     &        5.80565E-04, 2.46397E-04, 5.68189E-03,-3.08511E-05,
     &       -5.23751E-04, 1.41666E-03,-2.84284E-03, 2.08076E-03/
C     long 210deg, jun_so
      DATA (D(15,2,J),J=1,289)/-6.98134E-01,
     &        2.04378E-01,-3.18395E-01,-2.06415E-01,-1.98457E-01,
     &       -6.28005E-02, 1.59931E-02,-2.42084E-02,-2.46473E-02,
     &       -1.82862E-02, 1.81146E-01, 2.84870E-02,-8.92688E-02,
     &       -2.84331E-02, 5.93466E-02, 8.96596E-02,-9.47654E-02,
     &       -1.31283E-01, 4.45512E-02, 4.75921E-02,-4.92201E-02,
     &        4.03097E-02,-1.26353E-02, 3.67379E-02, 6.73753E-03,
     &        1.68308E-02,-1.59862E-02,-7.87741E-03, 1.61029E-03,
     &       -1.45865E-02,-3.99109E-03,-1.09624E-02, 2.18457E-03,
     &       -1.60912E-01, 1.01692E-01, 2.82461E-02,-3.11772E-02,
     &       -5.15194E-03, 1.28255E-03,-9.50698E-03, 8.55971E-03,
     &       -3.35078E-02,-5.17967E-03,-1.92487E-02, 3.66696E-04,
     &       -9.69568E-03,-2.37185E-03, 6.65550E-03, 1.47929E-03,
     &       -3.29322E-02, 1.37113E-02,-1.06860E-03,-6.24132E-03,
     &        3.66165E-03,-4.61804E-03,-7.40727E-04, 4.67775E-04,
     &        1.03523E-03,-3.78576E-04,-1.14026E-03, 5.08283E-04,
     &       -6.88835E-04,-5.36486E-04,-1.08558E-03, 1.87387E-02,
     &       -6.26937E-02, 2.90686E-02,-2.20189E-02,-3.62495E-03,
     &       -5.48862E-04, 2.00739E-03, 2.59796E-03,-1.00964E-04,
     &        3.77261E-04,-1.66048E-03,-4.19195E-06,-1.09966E-03,
     &       -5.18769E-04, 8.56527E-05, 1.55505E-02, 6.35100E-03,
     &       -5.03818E-03,-1.06775E-03, 2.36200E-03,-1.13932E-03,
     &       -2.07955E-04,-1.20601E-04, 2.87703E-04,-1.49299E-04,
     &       -1.18151E-04, 1.06295E-04,-4.78996E-05,-5.76288E-05,
     &        3.63162E-03,-4.64308E-03,-2.47940E-03, 2.17080E-03,
     &        1.65336E-03, 5.25838E-04, 1.30369E-03, 3.83013E-04,
     &        3.09375E-04, 2.89704E-04,-1.94965E-04,-2.73807E-06,
     &       -3.21772E-05,-7.41918E-05, 5.52196E-03,-8.95553E-03,
     &        4.05402E-03,-8.52001E-04, 8.99981E-04,-4.14578E-04,
     &        2.88085E-04,-8.29836E-05, 6.38289E-05,-1.07599E-04,
     &        6.07050E-05,-3.24356E-05,-5.12598E-05, 1.39157E-02,
     &        1.46147E-03, 3.17886E-03,-8.05970E-04, 1.98238E-04,
     &       -1.15368E-04,-3.32963E-05,-1.72957E-04, 1.07655E-04,
     &       -1.05653E-04, 2.78597E-05,-9.29488E-06, 3.79123E-05,
     &       -3.37463E-03,-4.12744E-03,-1.15498E-03, 6.06636E-04,
     &       -5.82440E-04, 1.01821E-04,-2.03439E-06, 5.26233E-06,
     &       -9.30783E-05, 1.61867E-05,-1.18391E-05, 7.36700E-06,
     &       -5.41836E-03, 4.21937E-03, 1.78016E-03, 1.04663E-03,
     &       -1.13482E-04, 5.34045E-06,-5.73038E-05, 3.92291E-05,
     &       -7.54762E-05, 6.08539E-05,-2.22787E-05, 1.82818E-05,
     &        2.45836E-03, 9.28795E-04, 2.28075E-04,-3.57846E-04,
     &        8.23560E-05,-2.52151E-05,-5.29728E-06, 5.71007E-05,
     &        2.91170E-06,-4.33063E-07, 1.94079E-05,-5.09694E-03,
     &       -4.65640E-03,-1.31625E-03,-3.14055E-04,-1.55012E-05,
     &       -1.51851E-04, 1.09129E-04,-1.34510E-05,-2.41932E-06,
     &        1.62276E-05,-3.16233E-06,-7.80656E-04, 2.50778E-03,
     &        6.56341E-04, 1.23158E-05,-1.18471E-05, 8.81687E-05,
     &       -5.11210E-05, 8.93280E-06, 1.34004E-05,-1.25163E-06,
     &        1.77757E-03, 8.84928E-05, 6.41440E-05,-3.80192E-04,
     &        2.56341E-04,-1.12288E-04,-5.01479E-06, 1.37510E-05,
     &       -1.95413E-05, 1.39077E-05,-9.30810E-04, 2.70496E-04,
     &       -1.37718E-04, 9.80049E-05, 6.69016E-05,-2.15972E-05,
     &        1.73192E-05,-2.25700E-05, 1.65229E-06, 4.12755E-03,
     &        1.16428E-03,-3.71587E-04, 2.35313E-04,-4.58932E-05,
     &        2.69004E-05,-1.79549E-05,-2.53599E-06, 3.17867E-06,
     &       -1.31962E-03,-1.22902E-03,-1.62833E-04,-3.98299E-04,
     &        1.46757E-04,-6.60515E-05, 2.91696E-05, 1.72550E-06,
     &        1.89490E-05, 3.21020E-04,-2.47205E-04, 1.06808E-05,
     &       -4.00547E-05,-3.06365E-05, 6.03110E-07, 4.19858E-06,
     &       -1.97013E-03, 4.44124E-06, 4.23097E-04, 5.55699E-05,
     &        1.12125E-05,-1.40079E-05, 1.25030E-06, 3.35148E-04,
     &        9.24207E-05,-1.47847E-04,-2.31378E-04, 8.19369E-05,
     &       -5.16670E-05,-9.98971E-06,-4.23744E-03,-8.07054E-04,
     &        1.23889E-04, 1.11855E-05,-4.42419E-06,-1.56195E-05,
     &        4.98015E-03, 9.70954E-04,-2.17503E-04, 8.66883E-05,
     &        7.12395E-05,-3.50158E-06, 5.48781E-04,-3.36841E-04,
     &        5.78101E-04,-1.11462E-04, 2.48307E-05, 1.01337E-02,
     &        1.44829E-03,-5.68633E-04, 1.01868E-04, 5.66536E-05,
     &       -7.10893E-03, 8.01239E-04, 2.61948E-04, 3.56748E-06,
     &       -9.89663E-04, 1.76714E-04,-1.40689E-04, 2.15138E-06,
     &       -5.23274E-03, 1.11249E-03, 1.34310E-04,-1.03849E-02,
     &        1.55588E-03,-2.15138E-05, 5.02336E-03,-1.50457E-04,
     &       -8.49868E-04, 1.40893E-03, 1.23445E-04, 6.02147E-03/
C     long 225deg, jun_so
      DATA (D(16,2,J),J=1,289)/-7.01712E-01,
     &        2.22684E-01,-2.99643E-01,-2.07461E-01,-2.86988E-01,
     &        1.07940E-03, 2.84852E-02,-5.69782E-02,-6.05296E-03,
     &       -5.18306E-02, 1.40352E-01, 1.31223E-02,-5.95759E-02,
     &       -6.67905E-02, 3.86582E-02, 9.54966E-02,-1.03831E-01,
     &       -1.37601E-01, 1.69181E-02, 5.59826E-02,-4.70775E-02,
     &        3.23540E-02,-3.53788E-03, 3.60627E-02, 6.73582E-03,
     &        1.43241E-02,-1.39797E-02,-1.24620E-02, 2.16460E-03,
     &       -1.43503E-02,-6.04573E-03,-1.44202E-02, 4.52832E-03,
     &       -1.87905E-01, 9.52842E-02, 2.15515E-02,-2.07886E-02,
     &       -2.82630E-02, 6.69034E-03,-1.14504E-02, 2.05105E-03,
     &       -3.22138E-02,-6.72080E-03,-1.86322E-02,-1.38719E-03,
     &       -8.21775E-03,-3.11985E-03, 5.61095E-03,-1.21534E-03,
     &       -1.60838E-02, 7.45813E-03,-4.99967E-03,-9.96667E-03,
     &        6.81211E-03,-8.34811E-03,-5.85229E-04, 2.26367E-03,
     &        1.82778E-03, 1.50413E-05,-1.85510E-03, 9.51643E-04,
     &       -7.21786E-04,-6.59636E-04,-1.23363E-03, 3.18055E-02,
     &       -7.26614E-02, 2.75945E-02,-2.22971E-02,-7.29736E-04,
     &        4.24526E-04, 1.38391E-03, 2.97845E-03,-8.15268E-04,
     &       -2.85215E-04,-2.06367E-03,-6.88303E-04,-1.09764E-03,
     &       -1.03025E-03,-2.41478E-04, 2.20868E-02, 9.86750E-03,
     &       -4.40194E-03, 2.58939E-04, 7.97961E-04,-4.44405E-04,
     &       -3.72469E-04, 8.87910E-05, 3.77596E-04, 8.45718E-05,
     &        1.93499E-06, 1.39913E-04, 4.01741E-05,-1.10806E-05,
     &        1.13964E-02,-2.36514E-03,-3.62620E-03, 2.88578E-03,
     &        2.10341E-03, 8.15575E-04, 1.63834E-03, 6.35840E-04,
     &        2.00745E-04, 2.60414E-05,-1.88404E-04,-1.89646E-05,
     &       -1.11918E-04,-2.46587E-05, 4.03547E-03,-7.96546E-03,
     &        3.96043E-03,-9.37687E-04, 1.25675E-03,-3.49617E-04,
     &        2.34159E-04,-8.77486E-05,-4.06136E-05,-2.01659E-05,
     &       -1.58720E-06,-9.43091E-06,-2.22590E-05, 1.95966E-02,
     &        4.18930E-04, 3.98057E-03,-1.73652E-03, 1.29029E-04,
     &       -6.78744E-05,-3.99037E-05,-7.64526E-05,-2.57580E-05,
     &       -1.25837E-05,-2.80827E-05, 1.15630E-06,-1.26890E-05,
     &       -8.34754E-03,-2.01110E-03,-3.96057E-04, 5.75165E-05,
     &       -4.41013E-04, 2.19318E-04, 1.01389E-04,-5.84456E-06,
     &       -4.42443E-05, 1.31190E-05, 2.96530E-05,-9.22417E-06,
     &       -2.34290E-03, 5.33348E-03, 6.26477E-04, 1.13841E-03,
     &       -5.12602E-04, 1.44592E-04,-1.45041E-04, 4.30364E-06,
     &       -7.16413E-05, 4.88265E-05,-1.11790E-05, 2.22828E-05,
     &        4.46586E-03,-1.85510E-03, 3.66905E-04,-4.11532E-04,
     &        8.38013E-05,-3.20788E-05,-2.32897E-06, 1.91472E-05,
     &        2.51853E-06, 1.46678E-06, 9.42427E-07,-8.41812E-04,
     &       -3.27700E-03,-2.09001E-04,-4.23232E-04, 1.35283E-04,
     &       -7.98147E-05, 6.45851E-05,-3.77524E-05,-5.91687E-06,
     &       -1.46183E-05, 4.33630E-06, 6.46281E-03, 2.03172E-03,
     &        9.81477E-05, 4.65850E-04,-1.20422E-04, 1.61001E-04,
     &       -7.97117E-05, 7.22196E-06, 7.48605E-06, 1.53227E-05,
     &        9.31695E-03,-2.12546E-04,-1.91376E-04,-2.69339E-04,
     &        1.42253E-04,-1.10217E-04, 3.05189E-06, 1.87446E-05,
     &        2.76444E-06, 1.33055E-05, 5.61818E-03,-3.67823E-04,
     &        8.25501E-04,-2.66094E-05, 6.30253E-05, 2.19370E-05,
     &        1.81600E-05,-2.38098E-05, 1.66367E-06, 7.29255E-03,
     &        8.38595E-04,-1.35655E-03, 1.97845E-04,-8.27826E-05,
     &        2.09405E-05,-3.39173E-06,-7.38919E-06,-6.82819E-07,
     &       -1.89014E-03,-1.47793E-03, 3.71645E-04,-4.06588E-04,
     &        1.15334E-04,-2.16235E-05, 2.41557E-05, 2.61044E-06,
     &        9.31643E-04, 6.29051E-04,-8.50313E-05,-8.71174E-06,
     &       -2.08905E-05,-2.75485E-05, 1.09472E-05,-1.44060E-05,
     &       -2.92461E-03,-4.92907E-04, 5.09340E-04, 3.81157E-05,
     &       -2.97478E-05, 6.25809E-06, 4.56842E-06,-3.95041E-03,
     &        3.13293E-04,-7.94322E-05,-1.05845E-04, 4.31430E-05,
     &       -3.51192E-05, 3.57104E-06,-2.20890E-05,-3.82554E-04,
     &        1.01248E-04, 7.38639E-06,-2.31255E-05, 7.08763E-07,
     &        1.74914E-03, 2.37445E-05, 5.78897E-06, 5.20506E-05,
     &        7.54202E-05,-1.19609E-05, 5.43390E-03,-2.48554E-04,
     &        1.01361E-04,-1.11351E-04,-2.54955E-05, 5.97467E-03,
     &        1.09043E-03,-6.01812E-04, 1.17037E-04,-2.34692E-05,
     &       -4.71099E-03, 6.56148E-04, 5.53142E-05,-3.30595E-05,
     &        8.83026E-04, 6.80366E-04,-1.85400E-05, 9.44972E-05,
     &        8.36855E-04, 4.15551E-04,-1.51709E-04,-1.05722E-02,
     &        8.50657E-04,-9.26067E-05, 7.09465E-03,-1.00606E-04,
     &       -2.64491E-03, 4.75176E-04, 6.64538E-03, 5.18848E-03/
C     long 240deg, jun_so
      DATA (D(17,2,J),J=1,289)/-7.09194E-01,
     &        2.49313E-01,-2.58651E-01,-2.10688E-01,-3.71576E-01,
     &        7.54979E-02, 3.98905E-02,-4.46433E-02, 7.69805E-03,
     &       -6.46268E-02, 9.60986E-02, 2.04339E-02,-3.61142E-02,
     &       -6.21472E-02, 3.05004E-02, 6.96059E-02,-9.35264E-02,
     &       -1.21976E-01,-6.28218E-03, 5.20495E-02,-2.81424E-02,
     &        2.95304E-02,-4.89108E-04, 3.77793E-02, 1.07921E-02,
     &        1.14320E-02,-8.60285E-03,-1.37356E-02, 2.48144E-03,
     &       -1.36144E-02,-4.76413E-03,-1.55168E-02, 5.68961E-03,
     &       -2.11510E-01, 9.10314E-02, 1.10763E-02,-1.31647E-02,
     &       -3.71820E-02, 1.67592E-02,-2.07132E-02, 3.61872E-03,
     &       -3.07539E-02,-4.96811E-03,-1.87843E-02,-5.90758E-05,
     &       -7.77959E-03,-2.27271E-03, 3.84591E-03,-4.71399E-04,
     &       -1.35487E-02, 7.31260E-03,-7.90860E-03,-1.03020E-02,
     &        8.46206E-03,-9.77680E-03,-1.32210E-04, 2.91341E-03,
     &        2.79070E-03,-3.37082E-04,-1.59081E-03, 6.71182E-04,
     &       -3.58948E-04,-3.54056E-04,-1.33971E-03, 4.64688E-02,
     &       -9.27896E-02, 2.09000E-02,-2.10268E-02, 4.27259E-04,
     &       -3.81916E-05, 1.69548E-03, 3.10265E-03,-6.61266E-04,
     &       -1.74386E-04,-1.95935E-03,-2.99038E-04,-9.73497E-04,
     &       -1.13019E-03,-1.18034E-04, 2.96197E-02, 1.17586E-02,
     &       -3.91459E-03, 4.22972E-04,-3.31764E-04,-3.06574E-04,
     &       -5.77436E-04, 1.46771E-04, 4.79943E-04, 2.44381E-04,
     &        8.91355E-05, 1.44588E-04, 1.23408E-04, 3.58010E-05,
     &        2.01145E-02, 2.99695E-03,-4.91971E-03, 3.16409E-03,
     &        1.62523E-03, 1.26804E-03, 1.18172E-03, 9.39593E-04,
     &        9.30514E-05, 1.32383E-04,-1.40961E-04,-1.35874E-04,
     &       -3.40864E-05, 2.63897E-05, 9.23413E-03,-8.08063E-03,
     &        4.09281E-03,-1.00481E-03, 1.50235E-03,-2.16726E-04,
     &        3.13825E-04,-2.40123E-04, 4.87994E-05,-3.57620E-05,
     &        7.92545E-06,-1.47916E-05, 6.32690E-06, 1.91255E-02,
     &       -1.24130E-03, 4.51214E-03,-1.60643E-03, 2.13455E-04,
     &       -3.37024E-04, 5.40409E-05,-1.07083E-04,-7.51717E-05,
     &        3.33829E-05, 1.11086E-06,-1.58182E-05, 2.88297E-05,
     &       -1.02257E-02,-9.94009E-04,-6.26733E-04,-4.60351E-04,
     &       -4.82440E-04, 2.81027E-04,-4.09478E-05,-5.88139E-05,
     &       -4.39921E-05,-2.31365E-05, 1.73450E-05,-7.40532E-06,
     &       -3.36566E-04, 3.84167E-03, 6.15071E-04, 1.00261E-03,
     &       -5.01495E-04, 7.80318E-05,-1.85946E-04, 2.27584E-05,
     &       -6.16134E-05, 4.52274E-05,-2.42810E-07, 2.03690E-05,
     &        5.58661E-03,-1.93293E-03, 4.14839E-05,-2.45668E-04,
     &       -1.35679E-05,-4.28503E-05, 3.70011E-05, 9.47931E-06,
     &        2.17964E-06,-9.32522E-06,-9.03741E-06,-2.30931E-03,
     &       -3.38541E-03,-2.32712E-04,-5.08917E-04, 3.09733E-04,
     &        5.88676E-05,-1.45507E-05,-1.29629E-05,-7.75380E-06,
     &       -1.24730E-05,-1.52159E-05, 4.71241E-03, 2.47680E-03,
     &        1.89378E-04, 4.74180E-04,-2.18390E-05, 2.93060E-05,
     &       -5.26028E-05, 1.01730E-05,-7.79750E-06, 1.53230E-05,
     &        1.21909E-02,-6.10798E-04,-3.12361E-04,-1.67150E-04,
     &        1.70040E-04,-1.23650E-04,-2.87244E-06, 1.17488E-06,
     &        2.96359E-05,-3.90439E-06, 1.29099E-03, 1.31657E-03,
     &        4.42443E-04, 1.60252E-05, 8.28457E-05, 1.09834E-05,
     &        2.06942E-05,-1.73412E-05,-3.49054E-06, 4.46432E-03,
     &        2.06576E-03,-1.33065E-03, 2.30754E-04, 7.26797E-05,
     &       -6.54179E-06,-1.46159E-05,-4.43416E-06,-4.49259E-06,
     &        8.82618E-04,-1.46399E-03, 6.77866E-04,-1.82355E-04,
     &       -1.20316E-05, 2.13501E-05, 1.08511E-05,-3.82152E-06,
     &       -1.89382E-03, 1.50179E-03,-2.29869E-04, 1.00621E-04,
     &        2.03585E-06,-1.25646E-06, 1.00205E-05,-7.59864E-06,
     &       -2.45437E-03, 1.25650E-04,-1.79711E-04,-3.35026E-05,
     &       -3.10587E-05,-4.05016E-05, 8.15874E-06,-3.40186E-03,
     &       -1.00930E-03, 7.94842E-05, 3.79222E-05, 2.09062E-05,
     &       -1.64205E-08, 1.03724E-05, 1.53649E-03, 8.89206E-04,
     &       -1.67395E-04, 2.90146E-06,-2.13631E-05,-1.41894E-05,
     &       -2.22896E-04,-1.03530E-03, 1.25681E-04, 9.54834E-05,
     &        5.20701E-05,-1.99878E-05, 1.41413E-02, 9.45163E-04,
     &       -3.85170E-04,-5.47392E-05,-3.13910E-05,-1.68825E-04,
     &        2.94316E-04,-2.16106E-04, 1.65817E-05,-2.58712E-05,
     &        3.17546E-03, 6.11229E-06,-3.97463E-05,-6.41710E-05,
     &        1.13193E-02, 1.04592E-04,-3.22746E-04, 4.37415E-05,
     &       -1.49252E-03, 1.24823E-04,-1.08268E-04,-7.14266E-04,
     &        3.51070E-04, 1.41010E-05, 1.64365E-03,-5.84481E-04,
     &       -4.35651E-03,-1.88603E-04, 9.12447E-03,-1.38619E-03/
C     long 255deg, jun_so
      DATA (D(18,2,J),J=1,289)/-7.20020E-01,
     &        2.68614E-01,-2.03151E-01,-2.24378E-01,-4.21491E-01,
     &        1.04990E-01, 4.00298E-02,-2.53666E-02, 1.73646E-02,
     &       -9.06590E-02, 9.19649E-02, 3.56920E-02,-3.97274E-02,
     &       -1.72738E-02, 7.22233E-03, 5.77237E-02,-8.99165E-02,
     &       -1.08490E-01,-1.25961E-02, 4.36164E-02,-5.67401E-04,
     &        2.87035E-02,-5.46488E-03, 3.50436E-02, 1.25148E-02,
     &        7.83324E-03,-6.73102E-03,-1.39804E-02, 3.61364E-03,
     &       -1.28959E-02,-2.75412E-03,-1.55681E-02, 2.94075E-03,
     &       -2.39706E-01, 8.87970E-02, 1.67823E-02,-1.56135E-02,
     &       -3.24073E-02, 2.08918E-02,-2.93064E-02, 9.45242E-03,
     &       -2.75484E-02,-4.87307E-03,-1.91319E-02, 1.63711E-03,
     &       -8.89022E-03,-3.79131E-03,-2.04019E-05,-3.97781E-04,
     &       -2.15577E-02, 1.34285E-02,-5.31944E-03,-9.11793E-03,
     &        9.35681E-03,-8.76304E-03,-4.79890E-04, 2.26896E-03,
     &        3.56615E-03,-7.62486E-04,-1.46698E-03, 6.19332E-04,
     &        1.08871E-04, 1.73126E-04,-1.41318E-03, 5.50133E-02,
     &       -1.05042E-01, 1.04460E-02,-1.51103E-02,-1.85727E-03,
     &       -1.99748E-05, 1.56250E-03, 2.66561E-03,-3.22091E-04,
     &       -2.00165E-05,-1.98814E-03,-1.11266E-04,-6.83690E-04,
     &       -1.40726E-03,-2.21527E-04, 2.57278E-02, 1.44811E-02,
     &       -2.02731E-03, 3.26717E-05,-3.37620E-04,-6.28299E-04,
     &       -7.06718E-04,-5.61891E-05, 3.29231E-04, 1.80081E-04,
     &        6.93169E-06, 5.34698E-05, 9.93154E-05, 1.00458E-04,
     &        1.84773E-02, 1.13292E-02,-3.80772E-03, 1.94329E-03,
     &        1.72102E-03, 1.48030E-03, 4.06463E-04, 1.39698E-03,
     &        2.42577E-05, 2.61264E-04,-2.13126E-04,-1.34117E-04,
     &       -1.26764E-06,-1.48970E-05, 6.75988E-03,-7.22707E-03,
     &        4.96156E-03,-6.32716E-04, 1.56050E-03,-6.08882E-05,
     &        5.20647E-04,-3.35103E-04, 1.62415E-04,-5.54027E-05,
     &        1.07409E-04,-5.85810E-05, 6.56483E-05, 2.19161E-02,
     &       -2.77691E-03, 6.44868E-03,-1.16475E-03, 8.15912E-04,
     &       -7.13850E-04, 3.22195E-04,-2.75508E-04,-5.38080E-05,
     &        4.72707E-06,-4.57172E-07,-4.90577E-05, 4.48300E-05,
     &       -1.05352E-02,-2.84977E-03,-1.05055E-03,-7.90713E-04,
     &       -5.05752E-04, 3.44994E-04,-1.72702E-04, 1.24186E-06,
     &       -8.73427E-05,-2.95338E-05,-1.12707E-05, 1.76614E-06,
     &       -4.74536E-03, 2.65366E-03, 6.94294E-04, 7.75385E-04,
     &       -3.42677E-04, 5.77255E-06,-1.39606E-04, 1.88298E-05,
     &       -9.14374E-05, 4.24822E-05,-7.85848E-06, 1.05986E-05,
     &        2.38799E-03,-2.54716E-04, 3.55636E-04,-4.47672E-04,
     &       -2.78770E-05,-9.96546E-05, 4.35797E-05,-4.00583E-06,
     &        1.86104E-05, 3.57967E-06, 2.82863E-07, 1.64621E-03,
     &       -4.45745E-03,-9.38789E-05,-4.54998E-04, 4.25857E-04,
     &        1.49517E-04, 2.18044E-06, 3.28794E-05,-1.79847E-05,
     &       -4.76862E-06,-1.30190E-05, 9.10910E-04, 1.55647E-03,
     &        5.41250E-04, 3.80887E-04,-5.00213E-06, 8.15465E-06,
     &       -4.38329E-05, 7.36533E-06, 7.93596E-06, 1.17615E-05,
     &        1.01987E-02,-2.25742E-03,-1.22037E-04,-3.01319E-04,
     &        2.09142E-06,-5.85645E-05, 8.74876E-06,-3.07493E-05,
     &        4.07739E-05,-1.55648E-05,-5.69726E-03, 1.37234E-03,
     &       -1.46881E-04, 5.53934E-05, 1.60943E-04,-7.73121E-05,
     &       -4.26296E-06,-1.47663E-05,-8.73904E-06, 9.42387E-04,
     &        1.45609E-03,-3.64660E-04, 1.77481E-04, 1.06043E-04,
     &        7.08164E-06,-4.39039E-05, 1.58318E-05,-6.04648E-06,
     &        5.83542E-03,-1.23032E-03, 2.82386E-04,-1.43040E-05,
     &       -5.51967E-05, 3.14172E-05, 2.82474E-06,-6.54342E-06,
     &       -1.10893E-02, 1.46757E-03,-7.35435E-05, 1.56238E-04,
     &        3.25015E-05, 2.85306E-05, 8.18403E-06, 4.59871E-06,
     &        1.24162E-03,-1.23067E-04,-6.19182E-04,-5.21973E-05,
     &        1.67100E-05,-3.07494E-05,-1.16946E-05,-2.60734E-03,
     &       -5.51631E-04,-2.65964E-04, 1.18269E-04, 4.22262E-05,
     &       -1.69492E-05,-7.81577E-07, 5.81520E-03,-9.69983E-04,
     &       -4.55692E-05, 7.70462E-05,-7.02503E-06,-1.14800E-05,
     &        4.18580E-04,-4.60099E-04,-4.33047E-04, 8.02656E-05,
     &        6.92578E-05,-1.81284E-05, 7.01058E-03, 8.86410E-04,
     &       -8.87950E-05,-8.41673E-05,-7.76812E-06, 1.73691E-03,
     &       -1.29612E-03,-7.44635E-05,-9.16187E-05, 1.21105E-05,
     &        5.63458E-03,-2.53513E-04, 1.65808E-04, 1.06404E-06,
     &        5.64647E-03, 1.93636E-03,-3.62168E-04,-5.17105E-05,
     &       -3.93023E-04, 2.06108E-04, 2.32900E-04, 4.18463E-03,
     &        3.09621E-04,-3.40410E-05,-3.85971E-03,-1.04014E-03,
     &       -2.74973E-03,-1.31325E-03, 3.88214E-03, 1.91144E-03/
C     long 270deg, jun_so
      DATA (D(19,2,J),J=1,289)/-7.45076E-01,
     &        2.94648E-01,-1.75849E-01,-2.29895E-01,-4.44109E-01,
     &        9.42597E-02, 4.70315E-02,-1.47752E-02, 3.28345E-02,
     &       -1.29779E-01, 1.13299E-01, 3.26100E-02,-6.93055E-02,
     &        1.10029E-02,-8.22553E-04, 4.70275E-02,-1.02351E-01,
     &       -1.13942E-01,-2.60902E-03, 3.41798E-02, 1.68000E-02,
     &        2.80820E-02,-8.56239E-03, 3.25883E-02, 1.29037E-02,
     &        8.00775E-03,-4.34997E-03,-1.42090E-02, 6.48652E-03,
     &       -1.33872E-02, 1.13806E-03,-1.75376E-02, 1.12798E-03,
     &       -2.89307E-01, 9.55363E-02, 2.95372E-02,-1.75456E-02,
     &       -2.56121E-02, 2.09371E-02,-3.19093E-02, 1.45967E-02,
     &       -2.59986E-02,-4.11317E-03,-1.98853E-02, 4.31348E-03,
     &       -7.71001E-03,-7.69790E-03,-1.81388E-03,-1.03953E-03,
     &       -8.40567E-03, 9.35390E-03, 1.04687E-03,-7.65891E-03,
     &        8.81878E-03,-7.92515E-03,-9.17690E-04, 1.18065E-03,
     &        3.24775E-03,-8.85221E-04,-1.39933E-03, 6.08385E-04,
     &       -1.48053E-05, 3.38708E-04,-1.24018E-03, 5.31602E-02,
     &       -1.01960E-01, 1.93350E-03,-9.61856E-03,-4.50032E-03,
     &        1.35026E-04, 1.51564E-04, 1.72938E-03,-4.10541E-04,
     &        7.19161E-05,-2.24801E-03, 1.99962E-04,-4.92835E-04,
     &       -1.43441E-03,-4.61527E-04, 1.11363E-02, 1.91685E-02,
     &       -1.92155E-03, 7.49120E-04, 4.97483E-05,-8.44050E-04,
     &       -7.20682E-04, 1.12931E-04, 1.74522E-04, 9.56573E-05,
     &        1.05156E-05, 1.00216E-04, 1.27373E-04, 1.02020E-04,
     &        1.54607E-02, 1.27802E-02,-1.76480E-03, 1.23108E-03,
     &        1.69776E-03, 7.87689E-04, 1.27411E-04, 1.39627E-03,
     &        1.77578E-04, 1.35707E-04,-2.28749E-04,-5.22146E-05,
     &        3.66360E-05,-1.63769E-04,-2.60512E-03,-4.22853E-03,
     &        4.21947E-03,-9.36489E-04, 1.66812E-03,-3.95221E-04,
     &        5.69923E-04,-2.81375E-04, 1.97237E-04,-3.84468E-05,
     &        9.96048E-05,-3.81008E-05, 5.25424E-05, 2.61200E-02,
     &       -1.17613E-03, 7.52509E-03,-6.38302E-04, 8.67514E-04,
     &       -4.66888E-04, 3.60189E-04,-2.78035E-04,-2.38205E-05,
     &       -2.19648E-06,-4.13372E-05,-5.30403E-05,-1.19013E-05,
     &       -1.51384E-02,-3.02709E-03,-1.74316E-03,-6.29071E-04,
     &       -3.06816E-04, 2.49134E-04,-3.98117E-05, 8.98021E-05,
     &       -4.60398E-05,-3.29490E-06,-3.50168E-06, 1.90603E-05,
     &       -9.92398E-03, 3.26437E-03, 9.68805E-04, 7.96904E-05,
     &       -1.35275E-04,-5.43967E-07,-1.52740E-04, 9.99616E-05,
     &       -1.34651E-04, 6.31495E-05,-3.46410E-05, 2.77279E-05,
     &       -7.52967E-04,-2.39531E-03, 5.33670E-04,-6.30297E-04,
     &       -9.50566E-05,-1.22419E-04, 7.71521E-05,-4.49834E-05,
     &        3.76633E-05,-7.61563E-06,-1.00498E-06, 5.96827E-03,
     &       -4.16073E-03,-1.94534E-05,-5.66335E-04, 3.85268E-04,
     &        1.44447E-05, 5.58630E-05, 5.55314E-05,-2.14535E-05,
     &        7.94839E-06, 9.69206E-07,-1.19390E-02, 3.56461E-03,
     &        1.62983E-04, 3.26513E-04,-6.87870E-05, 8.85227E-05,
     &       -3.54559E-05,-2.95440E-06, 6.92402E-06, 1.07840E-05,
     &        8.40623E-03,-2.42263E-03,-5.55461E-04,-2.39670E-04,
     &       -1.23236E-04,-6.87826E-05, 2.13727E-05,-4.25472E-05,
     &        1.59185E-05,-1.14491E-05,-1.94548E-03, 3.46586E-04,
     &        1.84127E-04,-1.73335E-04, 2.02255E-04,-4.12779E-05,
     &       -1.27763E-05,-2.25861E-05, 2.45783E-06, 1.40807E-03,
     &        6.35599E-04,-3.14273E-04,-4.55777E-05, 2.75248E-05,
     &        7.59924E-06,-2.57673E-05, 1.47094E-05,-1.19202E-05,
     &        6.79798E-03, 8.14166E-04,-2.03971E-04, 1.54345E-04,
     &       -6.87857E-05, 2.83567E-05, 3.79005E-08,-4.88341E-06,
     &       -9.36192E-03, 1.52145E-03, 5.12991E-05,-1.23378E-05,
     &        8.13549E-05, 1.41429E-05, 6.54496E-06,-1.63045E-06,
     &        1.78934E-04,-1.33294E-03, 2.32159E-04,-9.92628E-05,
     &       -1.73037E-06, 1.59081E-06,-9.80126E-06,-4.95956E-03,
     &        5.31492E-04,-3.46501E-04, 7.03965E-05, 7.41253E-06,
     &       -3.24736E-05, 9.57950E-06,-1.44206E-03,-1.45947E-03,
     &        3.84916E-05, 1.41404E-04,-5.59318E-06,-9.74540E-06,
     &       -2.40168E-03,-5.19158E-04,-1.55254E-07,-1.01293E-04,
     &        6.73145E-05,-1.24320E-05,-2.14667E-03, 1.11048E-04,
     &        1.19285E-05,-1.16900E-05, 1.01320E-05,-2.66524E-03,
     &       -1.24423E-03, 5.92177E-05,-2.60788E-05, 6.06297E-07,
     &        6.66766E-03, 5.16333E-04, 1.40922E-04, 2.05816E-05,
     &       -6.53983E-04, 2.13587E-03,-8.94875E-05, 3.20453E-05,
     &        4.06216E-03,-1.15192E-03, 1.03475E-04, 3.60774E-03,
     &        4.07466E-04,-3.48732E-04,-1.53157E-03,-6.26103E-04,
     &       -1.02847E-03,-1.70537E-03,-2.06241E-03, 5.58632E-03/
C     long 285deg, jun_so
      DATA (D(20,2,J),J=1,289)/-7.79088E-01,
     &        3.36673E-01,-1.89031E-01,-2.22137E-01,-4.33858E-01,
     &        4.25855E-02, 8.57153E-02,-1.54337E-02, 3.65879E-02,
     &       -1.38747E-01, 1.23583E-01, 3.99253E-02,-9.25649E-02,
     &        1.64537E-02,-5.59120E-03, 4.68502E-02,-1.05465E-01,
     &       -1.35460E-01, 9.26075E-03, 1.93488E-02, 2.30936E-02,
     &        2.71169E-02,-1.19376E-02, 3.51046E-02, 1.45817E-02,
     &        1.09309E-02,-1.08870E-03,-1.45839E-02, 8.94571E-03,
     &       -1.38491E-02, 1.58106E-03,-1.93916E-02, 1.03479E-03,
     &       -3.54030E-01, 1.08657E-01, 3.34640E-02,-1.33813E-02,
     &       -2.71449E-02, 1.96771E-02,-2.78186E-02, 1.81796E-02,
     &       -2.59450E-02,-2.73114E-03,-1.76607E-02, 4.24877E-03,
     &       -5.88071E-03,-9.68791E-03,-3.47576E-03, 4.21952E-04,
     &        2.69811E-02,-9.45467E-03, 7.45565E-03,-4.81320E-03,
     &        9.86874E-03,-6.69900E-03,-4.63829E-04, 1.54859E-04,
     &        3.23733E-03,-8.58931E-04,-1.62547E-03, 6.18731E-04,
     &       -7.41395E-04, 6.57558E-04,-1.25044E-03, 5.20713E-02,
     &       -9.26495E-02,-2.45990E-03,-4.99554E-03,-7.73637E-03,
     &       -1.04890E-04,-1.42956E-04, 1.37058E-03,-1.18339E-03,
     &       -1.24534E-06,-2.16546E-03, 5.93107E-04,-1.26409E-05,
     &       -1.27928E-03,-6.36809E-04,-1.88625E-03, 2.76218E-02,
     &       -3.45534E-03, 4.21148E-04, 6.97012E-04,-6.91885E-04,
     &       -6.27366E-04, 2.24153E-04, 8.48581E-05, 1.99403E-04,
     &        2.05527E-05,-4.73446E-06, 1.34520E-04, 4.79494E-05,
     &        9.58713E-03, 8.88974E-03,-2.08560E-03, 1.05231E-03,
     &        1.88790E-03,-4.28347E-05, 9.11093E-05, 1.25974E-03,
     &        5.12516E-04, 1.29620E-04,-1.03986E-04, 2.04080E-05,
     &        1.06962E-04,-9.53063E-05, 9.57360E-03,-7.78320E-03,
     &        4.04375E-03,-1.90857E-03, 1.13322E-03,-4.63291E-04,
     &        3.62094E-04,-3.28616E-04, 5.55381E-05,-7.88365E-06,
     &       -2.37550E-06,-1.67472E-05,-9.30140E-06, 2.04170E-02,
     &        3.16575E-03, 6.22489E-03,-4.68348E-04, 4.21634E-04,
     &       -1.86448E-04, 4.67065E-04,-1.45706E-04, 3.46182E-05,
     &        7.10900E-05,-3.61182E-06,-6.41017E-05,-2.05543E-06,
     &       -1.32612E-02, 9.71995E-04,-3.56550E-03, 4.65480E-04,
     &       -6.11312E-05,-3.70346E-05, 1.17460E-04, 8.41776E-05,
     &       -4.63252E-05,-4.76020E-06,-1.34107E-06, 1.46614E-05,
     &       -1.11332E-03, 5.43072E-04, 1.62378E-03,-1.05935E-04,
     &       -1.12565E-04, 1.20534E-04,-1.45274E-04, 7.22149E-05,
     &       -9.76630E-05, 5.37988E-05,-4.10942E-05, 1.75499E-05,
     &       -2.50236E-03,-3.53958E-03, 8.59441E-04,-4.34730E-04,
     &        2.02749E-05,-1.33743E-04, 1.32044E-04,-4.57030E-05,
     &        3.45719E-05,-1.64920E-05, 6.33341E-06, 2.71126E-03,
     &       -7.28445E-04,-1.51777E-03, 7.36102E-05, 2.01406E-05,
     &       -9.66840E-06, 4.48461E-05, 7.50869E-05,-2.45412E-05,
     &        2.36871E-05, 7.81217E-06,-1.50467E-02, 3.01409E-03,
     &        2.11188E-04, 3.98446E-05,-4.99784E-06, 6.74621E-05,
     &        1.38603E-05,-9.34701E-06,-4.82187E-06, 1.51361E-05,
     &        1.64430E-02,-4.28322E-03,-1.35182E-04,-2.67013E-04,
     &        9.15860E-05,-8.45295E-05, 3.66348E-05,-3.52249E-05,
     &       -6.58608E-07,-4.77901E-06,-7.97202E-03, 2.01535E-03,
     &       -3.13100E-04, 7.90484E-05, 9.59600E-05, 6.52589E-06,
     &        4.75271E-06,-1.30096E-05, 4.43252E-06, 4.38255E-03,
     &        2.09307E-03,-6.22379E-04,-9.91514E-05,-2.65623E-06,
     &        4.05884E-05, 2.14769E-06,-4.63415E-07,-4.54344E-06,
     &        1.68124E-03, 1.81983E-04,-1.67963E-04, 2.55371E-04,
     &       -1.12990E-04,-1.94686E-05,-2.10022E-06, 9.73568E-06,
     &       -4.91560E-03, 1.51683E-03, 2.26845E-05,-4.95671E-05,
     &        7.32675E-06,-1.68977E-05, 7.81835E-06,-2.65617E-06,
     &       -2.96373E-03,-2.12901E-03, 1.82734E-04,-1.91932E-05,
     &       -1.68834E-05,-1.24665E-05,-4.69508E-06,-2.28691E-03,
     &       -3.93494E-04,-1.25091E-04, 9.19120E-05, 7.05863E-06,
     &       -2.13743E-05, 2.96591E-06,-5.64018E-03,-8.55202E-04,
     &       -2.44379E-04, 2.50990E-05, 3.34339E-05, 8.75439E-06,
     &       -2.00286E-03,-1.68628E-03, 4.39681E-04,-1.04405E-04,
     &        4.34379E-05,-8.66005E-06, 4.28640E-03, 5.38073E-04,
     &       -5.89553E-04, 5.39967E-05, 1.85406E-05,-9.97723E-03,
     &       -1.56063E-04, 2.66395E-05,-7.92372E-05, 5.45398E-06,
     &        1.17505E-02,-5.47024E-04, 1.27756E-04, 5.26000E-06,
     &        2.01010E-03, 1.45741E-03,-1.75702E-04, 6.84297E-05,
     &       -3.84033E-03,-1.42704E-03,-7.28074E-05, 3.75917E-03,
     &       -6.62097E-04,-9.73794E-05,-9.92685E-05, 7.96935E-04,
     &       -8.70831E-03,-3.12995E-04, 7.69779E-03, 2.91008E-03/
C     long 300deg, jun_so
      DATA (D(21,2,J),J=1,289)/-8.20856E-01,
     &        3.84647E-01,-2.17764E-01,-2.01378E-01,-4.08020E-01,
     &       -3.80974E-02, 1.23774E-01,-1.97275E-02, 3.90482E-02,
     &       -1.42279E-01, 1.25167E-01, 6.91353E-02,-1.11214E-01,
     &        1.17924E-02,-2.05311E-02, 3.91202E-02,-9.81918E-02,
     &       -1.57010E-01, 2.06425E-02, 3.42700E-03, 2.75276E-02,
     &        2.54815E-02,-1.75780E-02, 3.86859E-02, 1.19185E-02,
     &        1.51121E-02,-1.43267E-03,-1.34748E-02, 7.43906E-03,
     &       -1.00926E-02,-2.20055E-03,-1.91446E-02,-1.53748E-03,
     &       -3.95480E-01, 1.14075E-01, 3.51935E-02,-9.13831E-03,
     &       -3.07742E-02, 1.67951E-02,-2.22246E-02, 1.71383E-02,
     &       -2.32454E-02,-2.93047E-03,-1.56398E-02, 3.08245E-03,
     &       -6.75890E-03,-8.02185E-03,-5.04606E-03,-7.85588E-04,
     &        6.04282E-02,-3.53440E-02, 1.29919E-02,-2.38571E-03,
     &        1.20566E-02,-5.55230E-03, 8.21591E-04, 5.95628E-04,
     &        3.30497E-03,-8.01807E-05,-2.05739E-03, 1.07293E-03,
     &       -9.58801E-04, 4.85314E-04,-1.31589E-03, 6.11236E-02,
     &       -8.59661E-02,-6.04423E-03,-5.00308E-04,-9.38291E-03,
     &       -6.95819E-05,-9.23053E-05, 1.61689E-03,-1.95495E-03,
     &        2.11527E-04,-2.35511E-03, 5.20300E-04, 8.08496E-04,
     &       -1.34151E-03,-2.77787E-04,-2.10984E-02, 3.61674E-02,
     &       -3.38695E-03,-1.46576E-03, 1.07043E-03,-3.05713E-04,
     &       -8.63214E-04,-9.06965E-06,-9.00321E-06, 1.64536E-04,
     &       -1.73524E-05,-9.61376E-05, 6.77210E-05,-7.13243E-05,
     &       -6.25240E-03, 3.80511E-03,-7.05140E-04,-1.06629E-04,
     &        2.55224E-03, 3.86454E-04,-2.80064E-04, 1.27358E-03,
     &        4.46012E-04, 3.13732E-04,-9.10020E-05, 7.54217E-05,
     &        1.60630E-04, 3.58970E-05, 2.91579E-02,-1.32799E-02,
     &        5.68999E-03,-2.72074E-03, 4.32407E-04,-5.66850E-04,
     &        2.89567E-04,-3.78158E-04,-8.17254E-05, 2.53308E-05,
     &       -4.38108E-06,-1.68286E-05, 5.37514E-06, 1.56795E-03,
     &        2.73888E-03, 5.22929E-03,-7.95619E-04, 8.25791E-04,
     &       -2.30378E-04, 6.70581E-04,-1.19657E-04,-2.41258E-05,
     &        7.12496E-05, 2.71912E-05,-8.55896E-05, 3.68663E-05,
     &       -5.30833E-03, 4.80947E-03,-3.42756E-03, 3.98244E-04,
     &        1.02583E-04, 5.49932E-05,-7.73478E-05, 9.90975E-05,
     &       -1.27645E-05,-2.59199E-05, 1.02795E-05, 6.85026E-06,
     &        7.98998E-03,-1.45017E-03, 1.96048E-03,-5.70025E-05,
     &       -4.01465E-05, 1.37908E-04,-8.97402E-05, 2.28008E-05,
     &       -9.66760E-05, 4.13609E-05,-2.76507E-05, 3.05505E-06,
     &       -4.11527E-03,-2.00969E-03, 1.16568E-03,-3.04468E-04,
     &       -1.03958E-04, 2.43674E-06, 1.06453E-04,-2.67373E-05,
     &        7.92993E-06, 1.35325E-05, 1.22018E-06, 1.81028E-03,
     &        1.20207E-03,-1.65618E-03, 2.66657E-04,-2.14290E-04,
     &        1.68015E-04,-5.73681E-05, 7.02883E-05, 3.17242E-06,
     &       -4.94263E-06, 2.30671E-05,-3.34478E-04,-9.67789E-04,
     &        1.59613E-04,-4.85682E-05, 1.40714E-04,-4.33785E-05,
     &        6.72966E-05, 1.54644E-05,-3.73147E-06, 1.91737E-05,
     &        1.46528E-02,-4.83567E-03, 1.00076E-03,-6.82569E-04,
     &        1.69576E-04,-2.50581E-05, 5.44441E-05,-3.56692E-05,
     &        1.04278E-05,-4.69523E-06,-8.00859E-03, 1.97007E-03,
     &       -7.22911E-04, 3.17462E-04, 3.45740E-05, 6.18886E-06,
     &        5.33689E-06,-2.60777E-06,-4.31147E-06, 9.56259E-03,
     &        6.83336E-04,-2.19329E-04,-1.73450E-04, 5.91560E-05,
     &        4.62643E-05, 3.31487E-06, 1.01768E-05,-9.42645E-06,
     &       -7.03712E-03,-8.52380E-04, 1.33562E-04, 4.00546E-04,
     &       -1.22353E-04,-8.60814E-06, 1.02345E-06, 9.77153E-06,
     &       -1.11250E-03, 7.88824E-04,-2.30357E-04, 6.20055E-06,
     &       -2.16364E-05,-8.00752E-06, 2.56517E-06, 1.49318E-06,
     &       -3.81211E-03,-7.73917E-04,-6.21271E-04, 7.83532E-05,
     &        2.67469E-05,-9.01192E-06,-1.21430E-05,-7.41626E-03,
     &       -6.25578E-04,-3.83803E-04, 3.27024E-04,-5.25854E-05,
     &       -1.02176E-06,-7.16373E-06, 7.94279E-03,-1.14501E-03,
     &        1.18648E-04,-2.60650E-04, 9.27491E-05, 1.36603E-05,
     &        2.44528E-03,-2.83500E-03,-5.93353E-05, 1.51763E-04,
     &       -2.56488E-06,-2.30137E-05, 4.54507E-03, 1.66714E-03,
     &       -4.16512E-04,-8.11238E-05, 6.90344E-06, 4.33388E-03,
     &       -1.61058E-03, 4.29667E-04,-2.28426E-04, 4.28332E-05,
     &        6.92574E-03, 3.33775E-04, 2.09559E-04, 9.66072E-05,
     &        2.07363E-03, 2.21793E-03,-3.52935E-04,-4.67643E-05,
     &       -7.94162E-03,-1.31242E-03, 1.78666E-04,-5.65302E-04,
     &       -8.55499E-04, 2.23730E-04, 4.03259E-03, 1.74044E-03,
     &       -8.17940E-03,-1.45505E-03, 7.04271E-03, 6.37421E-03/
C     long 315deg, jun_so
      DATA (D(22,2,J),J=1,289)/-8.78514E-01,
     &        4.35500E-01,-2.21736E-01,-1.80873E-01,-3.86386E-01,
     &       -8.92735E-02, 1.38720E-01,-2.99681E-02, 5.78785E-02,
     &       -1.51114E-01, 1.03497E-01, 1.28226E-01,-1.19382E-01,
     &       -2.15567E-02,-1.52286E-02, 5.00123E-02,-7.52618E-02,
     &       -1.77404E-01, 4.59665E-02,-1.94141E-02, 3.78593E-02,
     &        2.70318E-02,-2.44791E-02, 4.04268E-02, 6.16856E-03,
     &        1.74066E-02,-3.24427E-03,-9.81280E-03, 5.23675E-03,
     &       -1.01360E-02, 1.13893E-04,-2.28558E-02,-1.26567E-03,
     &       -3.95866E-01, 1.18603E-01, 3.53222E-02,-9.26299E-03,
     &       -2.82386E-02, 1.77321E-02,-2.26698E-02, 1.20422E-02,
     &       -1.71637E-02,-3.67239E-03,-1.77937E-02, 4.92975E-03,
     &       -6.22903E-03,-7.14433E-03,-4.01408E-03,-1.72125E-03,
     &        7.03761E-02,-5.35618E-02, 1.81108E-02, 4.05260E-04,
     &        1.22881E-02,-6.90247E-03, 1.97587E-03, 6.22184E-04,
     &        2.18004E-03, 2.00481E-04,-2.58010E-03, 1.22938E-03,
     &       -9.71834E-04,-6.81168E-05,-1.15116E-03, 6.32407E-02,
     &       -7.29427E-02,-1.30798E-02, 2.03254E-03,-1.00133E-02,
     &       -1.02127E-05,-3.89577E-04, 1.22827E-03,-1.68203E-03,
     &       -1.98503E-04,-1.68799E-03,-4.73396E-05, 1.13445E-03,
     &       -1.39743E-03,-1.98796E-04,-3.38776E-02, 3.14304E-02,
     &       -1.80057E-03,-1.75045E-03, 1.55380E-03,-8.85090E-04,
     &       -8.30595E-04,-1.22236E-04,-6.27476E-05, 1.34600E-04,
     &       -1.96129E-04, 8.05175E-05,-1.68890E-04,-6.89466E-05,
     &        2.37736E-03,-5.39866E-03, 2.19192E-03,-1.72456E-03,
     &        2.86126E-03, 6.30179E-04,-6.50794E-04, 1.01205E-03,
     &       -1.83624E-05, 3.19586E-04,-2.89620E-04, 2.09562E-04,
     &       -9.25626E-06, 5.58745E-05, 2.76531E-02,-1.18048E-02,
     &        6.27064E-03,-2.98122E-03, 8.02375E-04,-7.41252E-04,
     &        2.97313E-04,-3.11612E-04,-4.01590E-05, 7.21143E-05,
     &        1.38403E-05,-7.00983E-06, 6.10436E-05,-9.58333E-03,
     &        1.48061E-03, 4.77381E-03,-3.09984E-04, 1.07956E-03,
     &        9.00694E-05, 7.27929E-04,-3.79534E-05,-5.26017E-05,
     &        6.23946E-05, 7.14712E-06,-3.33871E-05,-7.60214E-06,
     &       -1.21424E-02, 5.26990E-03,-1.69606E-03,-2.60629E-04,
     &        4.29223E-05, 1.71956E-04,-2.50413E-04, 1.49056E-04,
     &        2.40885E-05,-4.22888E-05, 3.53320E-05,-1.22095E-06,
     &        5.48862E-03,-1.84470E-03, 2.41480E-03,-6.28557E-04,
     &        1.86118E-04,-9.34874E-05,-2.02328E-05,-2.57232E-06,
     &       -8.00289E-05, 1.73841E-05,-1.91590E-05,-1.89012E-05,
     &       -9.67556E-03,-1.01054E-03, 7.54176E-04, 2.18356E-04,
     &       -4.86262E-04, 8.94596E-05, 7.44103E-06, 8.88301E-06,
     &       -5.32813E-05, 2.93965E-05,-7.43407E-06,-1.15682E-03,
     &       -1.53647E-04,-6.53235E-04, 2.18457E-04,-3.00998E-04,
     &        2.32931E-04,-1.64066E-04, 9.57122E-05,-1.36180E-05,
     &       -2.24551E-05, 1.70553E-05, 9.14870E-03,-1.20748E-03,
     &        4.08094E-04,-1.22634E-04, 1.54677E-04,-8.10003E-05,
     &        9.68380E-05,-2.08853E-05,-1.23866E-07, 1.17340E-05,
     &        8.38643E-03,-5.39240E-03, 1.09920E-03,-2.81451E-04,
     &        9.17858E-05,-5.01820E-05, 8.35897E-05,-1.90135E-05,
     &        1.20596E-05,-1.38600E-06, 9.12331E-04, 1.13656E-03,
     &        2.14569E-06,-1.13278E-04, 4.55856E-05, 1.52565E-05,
     &        1.25399E-05,-1.09389E-05, 2.02288E-07, 1.16657E-02,
     &       -1.11129E-04,-6.26505E-05,-1.25019E-04, 1.52346E-04,
     &       -1.47839E-06, 2.08210E-05,-3.00360E-07,-4.11123E-06,
     &       -4.37650E-03,-3.51056E-04, 4.59686E-04, 1.57804E-04,
     &       -8.64962E-05, 2.28638E-05, 1.99836E-05,-5.33711E-06,
     &       -3.75480E-03, 2.11048E-04, 1.82382E-05,-1.46801E-04,
     &        4.75099E-05,-1.23212E-05,-9.42741E-06, 9.79849E-06,
     &        1.00689E-03, 1.73045E-03,-9.43243E-04, 1.25015E-04,
     &        2.18295E-05, 2.12577E-05,-1.93782E-05,-5.93273E-03,
     &       -4.29854E-04,-1.82011E-04,-8.05712E-05,-6.58862E-05,
     &        1.43665E-05,-2.09428E-06, 6.04078E-03,-4.88281E-04,
     &        1.05480E-04, 3.26794E-05, 1.74118E-05,-1.31552E-05,
     &        8.61616E-03,-2.05752E-03,-5.02594E-04, 7.76491E-06,
     &        1.77426E-05, 3.61806E-06,-2.24783E-03, 1.24308E-03,
     &        5.28630E-04,-3.37635E-05,-4.80735E-05, 9.59324E-03,
     &       -3.09584E-03, 4.87598E-04,-1.03968E-05,-8.23225E-06,
     &       -2.81366E-03, 1.76449E-03, 3.28251E-04,-2.89952E-07,
     &       -5.12478E-03, 2.13238E-03, 2.41920E-04,-1.93863E-04,
     &        4.03568E-03,-2.16138E-03, 3.05684E-04,-1.15871E-02,
     &        1.21353E-03, 1.31319E-04, 9.43914E-03, 1.61706E-04,
     &        1.02977E-03,-3.34373E-03,-2.82248E-03, 9.64092E-03/
C     long 330deg, jun_so
      DATA (D(23,2,J),J=1,289)/-9.35035E-01,
     &        4.66804E-01,-1.72791E-01,-1.87795E-01,-4.09253E-01,
     &       -1.34472E-01, 1.81017E-01,-4.91917E-02, 5.70587E-02,
     &       -1.45951E-01, 8.84129E-02, 1.39317E-01,-7.53034E-02,
     &       -9.25984E-02, 2.09769E-02, 5.99299E-02,-5.31170E-02,
     &       -2.14753E-01, 7.31000E-02,-2.94318E-02, 5.02195E-02,
     &        3.00732E-02,-3.15698E-02, 3.94773E-02, 5.61131E-03,
     &        1.65499E-02,-3.26095E-03,-1.05775E-02, 3.96282E-03,
     &       -1.31663E-02, 2.01484E-03,-2.15164E-02,-2.90020E-03,
     &       -3.93248E-01, 1.18625E-01, 3.94924E-02,-1.98433E-02,
     &       -2.32145E-02, 1.44352E-02,-2.56185E-02, 7.98655E-03,
     &       -1.48097E-02,-3.81848E-03,-1.87522E-02, 3.52972E-03,
     &       -4.77296E-03,-9.75137E-03,-3.18014E-03,-1.61350E-03,
     &        5.76189E-02,-5.88139E-02, 2.26914E-02, 4.06374E-03,
     &        8.71277E-03,-7.39636E-03, 1.01799E-03, 3.84888E-04,
     &        1.84415E-03,-1.14058E-03,-2.06305E-03, 1.01131E-03,
     &       -1.08353E-03,-1.01744E-05,-1.13313E-03, 4.71510E-02,
     &       -5.27769E-02,-2.16982E-02, 4.21501E-03,-1.14462E-02,
     &       -1.68524E-03,-5.21529E-04, 1.03157E-03,-1.99250E-03,
     &        3.26708E-04,-9.71965E-04, 1.04548E-04, 5.98791E-04,
     &       -8.73092E-04,-2.99572E-04,-3.27461E-02, 2.34347E-02,
     &       -2.13549E-03, 5.45925E-04, 5.30474E-04,-2.71129E-04,
     &       -1.31606E-03, 1.00319E-04, 8.38201E-05,-1.36407E-04,
     &       -1.63423E-04, 2.64201E-06,-1.25866E-04,-6.37849E-05,
     &        2.83278E-02,-1.35148E-02, 7.71117E-03,-3.50756E-03,
     &        2.88834E-03, 5.44840E-04,-2.68838E-04, 7.70847E-04,
     &        5.76815E-05, 2.35985E-04,-2.04364E-04, 3.32864E-04,
     &       -1.27220E-04, 8.40260E-05, 2.13412E-02,-8.66134E-03,
     &        4.66327E-03,-2.12418E-03, 4.42101E-04,-1.63461E-04,
     &       -1.10777E-04,-1.40041E-05,-4.86487E-05, 7.80409E-05,
     &       -4.84071E-05,-2.31206E-05, 3.79806E-05,-8.47883E-03,
     &        5.81498E-03, 4.43425E-03,-3.89188E-04, 9.11128E-04,
     &        3.64772E-04, 7.22800E-04, 9.22807E-05,-9.61175E-06,
     &        9.80614E-05,-6.06275E-05, 1.41318E-05,-6.64460E-05,
     &       -2.37224E-02, 5.12306E-03,-4.87734E-04,-8.70292E-04,
     &       -8.69015E-05,-1.09130E-04,-5.86224E-05, 9.05660E-05,
     &        2.27676E-05,-4.11928E-05, 4.46101E-05,-2.15361E-05,
     &       -4.03874E-03,-3.68592E-03, 4.32843E-03,-1.03238E-03,
     &       -1.91350E-04,-1.76116E-04,-3.71118E-05, 3.15517E-05,
     &       -1.00200E-04, 2.43478E-05,-5.71219E-05,-1.58516E-06,
     &       -1.20914E-02, 5.73378E-04, 1.92980E-04, 5.27105E-04,
     &       -3.86642E-04,-6.70937E-05, 5.45810E-05,-2.60511E-05,
     &       -1.19593E-05,-2.15152E-05, 1.66363E-05,-5.00366E-03,
     &       -8.85685E-04,-2.01506E-04, 4.46069E-05,-5.56776E-04,
     &        1.06500E-04,-1.17108E-04, 3.75666E-05,-6.42098E-06,
     &       -2.30999E-05, 4.99108E-06, 1.06328E-02,-2.62069E-03,
     &        1.37940E-03,-5.45508E-04, 3.61702E-04,-5.23760E-05,
     &        8.93617E-05,-3.63385E-05, 9.75889E-06, 4.71970E-06,
     &        1.70832E-02,-5.86765E-03, 1.72614E-04, 2.16801E-04,
     &        6.13736E-05,-1.09730E-04, 7.12948E-05,-8.95312E-06,
     &        2.81622E-05,-4.20977E-06,-6.42294E-03, 2.42218E-03,
     &        5.71907E-04,-3.14453E-04, 1.40799E-04,-1.70366E-05,
     &        2.57813E-05, 1.17321E-05,-2.72011E-06, 1.05830E-02,
     &       -5.19635E-04, 5.08914E-04,-1.88963E-04, 1.77074E-04,
     &       -4.22183E-05, 2.42231E-05, 3.81308E-06, 9.82521E-07,
     &       -2.49290E-04, 2.02594E-03,-1.22965E-04, 6.65742E-05,
     &       -7.11709E-05, 4.93729E-05,-1.45580E-05, 6.84706E-06,
     &       -1.56834E-02, 2.05701E-04, 1.14502E-03,-3.53987E-04,
     &        1.42643E-04,-5.56749E-05, 1.92155E-05, 3.17610E-06,
     &        1.08535E-02, 1.63620E-03,-1.34833E-03, 3.20255E-04,
     &        1.33437E-05, 5.71402E-05,-4.34432E-05,-1.85196E-03,
     &        1.90722E-03,-3.74082E-04,-2.66145E-04, 2.06037E-05,
     &        1.34580E-06, 7.27212E-06,-9.84851E-04,-1.42850E-03,
     &        8.81755E-05, 2.47469E-04,-9.29148E-05, 2.85248E-05,
     &        1.34121E-02,-1.09073E-03,-4.82649E-04,-1.27369E-05,
     &        3.96438E-05, 3.74485E-05,-4.11655E-03,-5.51815E-04,
     &        5.54952E-04, 6.07763E-05,-7.43794E-05, 6.11784E-04,
     &       -2.99542E-03, 4.37385E-04, 1.22234E-05,-7.14593E-05,
     &       -1.51332E-04, 5.05927E-04, 2.12631E-04,-8.51279E-05,
     &       -2.51338E-03, 5.30192E-04, 4.43997E-04,-1.45603E-04,
     &        1.00282E-02,-2.15506E-03, 6.01660E-05,-7.87161E-03,
     &        8.35359E-04, 2.40335E-04, 4.60999E-03,-1.08775E-03,
     &        3.33970E-03,-1.67403E-03, 1.33473E-03, 2.01434E-03/
C     long 345deg, jun_so
      DATA (D(24,2,J),J=1,289)/-9.75433E-01,
     &        4.90472E-01,-1.17213E-01,-2.09535E-01,-4.69994E-01,
     &       -1.51427E-01, 2.55536E-01,-6.99090E-02, 3.37096E-02,
     &       -1.05286E-01, 8.58593E-02, 9.86616E-02,-3.38367E-02,
     &       -1.13078E-01, 4.14370E-02, 2.58476E-02,-3.43136E-02,
     &       -2.87969E-01, 9.18018E-02,-1.56494E-02, 5.61336E-02,
     &        2.91182E-02,-4.15033E-02, 3.64561E-02, 7.65048E-03,
     &        1.86037E-02,-8.79692E-03,-1.34213E-02, 4.98562E-03,
     &       -1.52309E-02,-8.32524E-04,-1.84249E-02,-2.93007E-03,
     &       -4.20582E-01, 9.80618E-02, 7.44324E-02,-3.70259E-02,
     &       -3.20069E-02, 1.16885E-02,-2.45421E-02, 5.87728E-03,
     &       -1.65149E-02,-3.79717E-03,-1.60655E-02,-1.55382E-03,
     &       -4.83502E-03,-1.10183E-02,-5.50064E-03,-1.46548E-03,
     &        5.32519E-02,-5.96876E-02, 2.46847E-02, 4.57105E-03,
     &        3.53887E-03,-7.09551E-03,-5.16454E-04, 4.80680E-04,
     &        1.95496E-03,-1.85992E-03,-1.82141E-03, 1.39933E-03,
     &       -8.04550E-04,-2.04437E-04,-6.73691E-04, 1.88206E-02,
     &       -3.92257E-02,-2.48680E-02, 3.12275E-03,-1.06282E-02,
     &       -4.38431E-03,-7.02900E-04, 1.65471E-03,-2.90391E-03,
     &        1.23341E-03,-1.84181E-04,-1.93555E-04, 1.71475E-04,
     &       -3.07038E-05,-1.79872E-04,-5.79679E-02, 2.36015E-02,
     &        1.34787E-03, 3.00791E-04, 8.26855E-04, 4.25455E-05,
     &       -1.24994E-03, 7.98494E-05, 7.12811E-04,-4.33123E-04,
     &       -3.02254E-04, 2.84817E-04,-9.11186E-05,-1.77481E-04,
     &        4.38554E-02,-2.14427E-02, 9.59428E-03,-4.13290E-03,
     &        2.16128E-03, 1.06558E-03, 2.63812E-04, 5.76778E-04,
     &        4.25098E-04, 3.18753E-04, 4.47588E-05, 1.66837E-04,
     &       -3.58189E-07, 1.84853E-05, 7.47597E-03,-6.25515E-03,
     &        3.67219E-03,-9.71294E-04, 4.71219E-04,-5.27599E-04,
     &        1.08416E-04, 1.40757E-04,-8.50331E-05, 6.78776E-06,
     &       -9.53825E-05, 2.49957E-05,-3.35373E-05,-3.00949E-02,
     &        1.13980E-02, 3.25891E-03,-1.75222E-04, 1.40840E-05,
     &        4.37485E-04, 3.59463E-04, 2.06098E-04,-9.70806E-05,
     &       -1.43913E-05,-5.93780E-05,-8.08370E-06,-7.20999E-05,
     &       -7.87538E-03, 1.95113E-03, 2.67904E-05,-1.00217E-03,
     &        9.28735E-05,-2.34302E-04,-4.27177E-05, 6.38210E-05,
     &       -6.16994E-05, 2.75802E-05,-3.28559E-05, 9.05098E-06,
     &        3.17862E-03,-7.33594E-03, 4.66753E-03,-4.04903E-04,
     &       -2.78060E-04,-2.61867E-04, 7.32160E-05, 6.54586E-05,
     &       -1.02713E-04, 3.26170E-05,-4.23869E-05, 2.36074E-05,
     &       -1.44607E-02, 5.08278E-03,-1.46353E-03, 4.12742E-04,
     &       -7.58084E-05,-1.31137E-04, 3.24382E-05,-4.46118E-05,
     &        4.16802E-05,-2.08921E-05,-3.85036E-06,-4.91395E-04,
     &       -3.16118E-03, 9.39953E-04,-6.88032E-04,-9.26593E-05,
     &        1.01056E-05,-4.57904E-05, 4.46344E-06, 4.27940E-05,
     &       -1.22860E-05, 1.23077E-06, 8.11192E-04,-4.08599E-03,
     &        1.72842E-03,-2.53284E-04, 3.65311E-04,-1.82386E-04,
     &        1.00240E-04,-7.73387E-06, 1.04500E-05, 1.89735E-06,
     &        9.26332E-03,-3.36440E-03,-6.32412E-04, 3.05409E-04,
     &        3.87767E-05,-6.55662E-05, 1.65446E-05,-6.84320E-06,
     &        2.07000E-05, 5.92222E-06,-2.04700E-02, 2.99292E-03,
     &        8.34435E-04,-2.85197E-04, 1.86049E-04,-4.15352E-05,
     &       -8.14284E-06, 3.18726E-05,-5.19512E-06,-2.14102E-03,
     &       -2.24328E-03, 4.35470E-04,-6.71802E-06, 7.25644E-05,
     &       -1.05080E-04, 3.02643E-05, 6.12610E-06,-4.74315E-07,
     &       -2.74254E-03, 2.39637E-03,-1.96997E-04, 1.36648E-04,
     &       -4.40665E-05, 6.49204E-05,-4.40251E-05, 6.73669E-06,
     &       -1.82245E-02, 7.86617E-04, 1.10767E-03,-4.38772E-04,
     &        2.42212E-04,-3.03083E-05,-1.37835E-06, 6.92400E-06,
     &        1.12993E-02, 1.22770E-04,-7.72965E-04, 3.11729E-04,
     &        2.28477E-05, 1.25312E-05,-1.38204E-05,-1.79117E-03,
     &        1.75458E-03,-1.24424E-04,-1.21412E-04, 1.18513E-04,
     &       -5.32156E-06,-1.33414E-05, 4.65420E-03, 2.69883E-04,
     &       -3.01309E-04, 1.65084E-04,-1.30748E-04, 5.50998E-05,
     &        1.24216E-02, 3.57936E-05,-1.06037E-03, 3.57944E-04,
     &       -1.12813E-05, 5.85938E-06, 8.65921E-03,-1.60951E-03,
     &        5.51878E-04,-8.24628E-06,-5.80158E-05, 2.84705E-03,
     &       -6.88610E-04, 1.60600E-06, 9.06041E-05,-6.67395E-05,
     &        8.62684E-03,-3.27598E-04, 2.41266E-04,-4.64631E-05,
     &        5.80857E-03,-1.36512E-03, 1.06091E-04, 2.01976E-05,
     &        5.93912E-03, 8.61408E-04,-2.23800E-04, 5.62074E-03,
     &        2.29292E-04,-7.56233E-05,-5.23053E-03, 5.22364E-05,
     &        9.07916E-03, 3.28610E-04, 7.82985E-03,-9.23831E-03/
C     long 0deg, sep_eq
      DATA (D(1,3,J),J=1,289)/-1.03471E+00,
     &        3.52342E-01,-4.70530E-01,-5.89899E-02,-1.39919E-01,
     &       -1.24017E-01, 4.18832E-01,-5.70616E-02, 5.07492E-02,
     &       -7.22801E-03, 1.11262E-01, 5.61323E-02,-8.73628E-02,
     &       -1.13656E-01,-1.84113E-02,-5.87221E-02,-3.34312E-02,
     &       -2.81958E-01, 4.51338E-02, 3.78561E-03, 2.50420E-02,
     &        8.15217E-02,-3.02037E-02, 3.21155E-02, 9.40769E-04,
     &        3.46231E-03, 1.12645E-02,-1.89153E-02, 7.75506E-03,
     &       -1.28992E-02, 1.83449E-03,-1.38242E-02,-5.12840E-03,
     &       -3.07422E-01, 6.19290E-03, 3.29360E-02,-4.89849E-02,
     &        3.39525E-03, 1.26969E-02,-5.14354E-02, 1.62511E-02,
     &       -2.50093E-02, 2.83800E-03,-7.61675E-03,-5.66004E-03,
     &       -6.08256E-03,-5.24739E-03, 7.98619E-04,-3.54121E-03,
     &        6.73772E-02,-5.09662E-02, 1.95896E-02, 4.87950E-03,
     &       -1.74093E-03,-1.03157E-03, 2.28640E-03,-1.03878E-03,
     &        8.18520E-04, 2.17062E-03,-2.48957E-03, 1.66688E-03,
     &        8.10936E-05, 9.25925E-05,-7.66558E-04,-8.15902E-03,
     &       -1.85281E-02,-3.03067E-02,-6.16553E-03, 1.95320E-03,
     &       -7.22517E-03, 1.81785E-04, 6.29140E-05,-2.10873E-03,
     &        1.46654E-03,-1.77232E-04,-1.06713E-03, 7.28505E-04,
     &       -1.06936E-04,-3.28323E-04, 3.26445E-02, 1.30006E-02,
     &       -4.80984E-03,-4.50911E-03, 1.34674E-03,-2.19415E-03,
     &       -9.36875E-04,-7.16428E-04, 3.89297E-04,-2.62129E-04,
     &       -2.36558E-04, 2.64684E-04,-1.86649E-04,-8.27906E-05,
     &        6.78386E-02,-1.32629E-02, 3.74980E-03,-6.80596E-04,
     &       -1.85003E-03, 6.65526E-04, 6.23703E-04,-5.77229E-05,
     &        4.94550E-04, 5.33633E-04,-2.76179E-04, 2.57706E-04,
     &        1.03348E-04, 2.72616E-05, 8.18446E-04, 3.08735E-03,
     &       -3.19505E-03, 6.11931E-04, 1.41339E-03,-5.45606E-04,
     &        3.50488E-04,-8.42448E-05, 1.95474E-05, 2.11994E-05,
     &        7.76964E-05, 4.78943E-05, 8.54949E-07,-7.04171E-03,
     &        8.17826E-03,-1.21720E-03, 4.60563E-05,-6.49466E-04,
     &        5.48326E-04,-1.52195E-04, 1.31751E-04,-1.53346E-05,
     &       -1.08770E-04,-2.47406E-05,-4.97607E-05, 5.10771E-06,
     &       -5.36450E-03, 2.93865E-06, 1.77044E-03,-6.82339E-04,
     &        7.11944E-04, 1.16917E-04, 2.79467E-04, 7.77843E-05,
     &       -7.12752E-06, 9.07079E-05,-5.24402E-05, 4.40572E-06,
     &       -5.95205E-03, 8.08242E-04, 3.79165E-04, 2.64499E-04,
     &        4.22170E-05,-1.52219E-06,-6.16789E-06, 1.13479E-04,
     &       -6.69244E-05, 1.72489E-05,-3.89013E-05, 1.97741E-06,
     &       -1.48231E-02, 3.89095E-04, 6.31944E-04,-9.03831E-04,
     &       -8.19325E-05, 1.25185E-04,-2.38881E-05,-3.89481E-05,
     &       -4.88533E-06, 1.61861E-05,-8.06236E-06, 3.23945E-03,
     &        8.95924E-04,-6.16171E-04, 4.37582E-04,-2.40951E-05,
     &        1.44348E-04,-9.34188E-05, 1.00013E-04,-8.57581E-06,
     &        2.60006E-05, 3.42063E-06,-5.48448E-04, 8.09755E-04,
     &        2.40091E-04,-3.13939E-05,-7.80495E-05,-2.20193E-05,
     &        8.57301E-05,-5.08746E-05, 2.66282E-05,-1.47384E-05,
     &        1.35468E-02,-9.72964E-04,-2.34416E-04,-1.19855E-04,
     &        5.61281E-05, 1.49617E-04, 4.97700E-05, 4.86639E-05,
     &        2.39199E-05, 5.25124E-06, 2.81201E-04, 2.90482E-03,
     &       -4.64953E-04, 2.66697E-04,-1.22674E-04,-3.96061E-06,
     &       -2.05294E-06,-2.97455E-05, 4.53116E-06, 5.16410E-03,
     &       -2.41517E-04, 8.81930E-04,-8.90225E-05,-7.87994E-05,
     &        1.15416E-05, 1.31712E-05,-2.42739E-05, 1.99907E-05,
     &        2.97009E-03,-6.91888E-05,-1.34712E-04, 1.20975E-04,
     &       -4.98435E-05,-6.87059E-05,-1.01193E-05,-8.52345E-06,
     &       -8.53647E-03, 1.79131E-03, 5.93395E-04, 1.77452E-04,
     &       -4.25109E-05, 3.90950E-05,-1.23194E-05, 3.00626E-05,
     &        1.51138E-03, 1.79705E-05, 1.34694E-04,-8.32874E-05,
     &       -5.94400E-05,-6.76725E-06,-2.07268E-05, 3.32331E-03,
     &        9.63554E-04, 2.01345E-04,-1.80286E-04, 5.87711E-05,
     &       -9.62844E-05, 1.27487E-05, 1.28076E-03,-4.55270E-04,
     &        3.51183E-04, 4.07373E-05,-6.61835E-05, 3.38111E-05,
     &        5.58263E-03, 5.83198E-04, 7.98429E-05,-1.08791E-04,
     &        6.07841E-05,-5.58662E-05,-1.72540E-03, 1.34922E-04,
     &        4.42097E-04,-4.93622E-05,-2.56188E-06, 3.96574E-03,
     &       -3.10254E-04, 7.73316E-07, 9.49995E-05, 4.48203E-05,
     &        4.13320E-04,-8.37735E-04, 2.65101E-04,-8.91556E-05,
     &       -2.80531E-03,-2.05435E-04,-1.99043E-04, 8.21424E-05,
     &        7.55333E-03,-2.64580E-04, 7.12028E-05,-5.51045E-03,
     &       -1.51023E-03, 2.16402E-04,-3.20230E-03, 1.52275E-03,
     &        3.27106E-03,-1.96912E-03,-1.52474E-04,-7.52061E-03/
C     long 15deg, sep_eq
      DATA (D(2,3,J),J=1,289)/-9.97252E-01,
     &        3.52084E-01,-5.18331E-01,-6.61557E-02,-1.52976E-01,
     &       -1.03415E-01, 3.40834E-01,-5.97150E-02, 9.59627E-02,
     &        2.02250E-02, 1.15372E-01, 7.28008E-02,-1.00096E-01,
     &       -9.48782E-02,-3.05250E-02,-3.02072E-02,-8.61950E-02,
     &       -2.78861E-01, 4.08140E-02, 1.48017E-02, 3.25902E-02,
     &        6.27527E-02,-1.75530E-02, 4.10799E-02,-8.85332E-04,
     &       -1.03230E-03, 8.55969E-03,-1.63212E-02, 8.46133E-03,
     &       -1.30559E-02, 3.81545E-05,-1.34905E-02,-2.44017E-03,
     &       -3.07780E-01, 2.76762E-02, 2.42797E-03,-2.99752E-02,
     &        9.77296E-03,-7.14825E-03,-4.77843E-02, 1.87551E-02,
     &       -3.08041E-02, 3.07528E-03,-1.06825E-02,-5.07427E-03,
     &       -8.82007E-03,-1.55272E-03,-6.28429E-03,-3.50567E-04,
     &        6.86606E-02,-3.75158E-02, 2.24163E-02, 5.18080E-03,
     &       -2.40919E-03, 7.42252E-03, 3.02952E-04,-2.65825E-03,
     &        3.28262E-03, 7.13285E-04,-2.05339E-03, 2.24131E-03,
     &       -5.70212E-04, 1.13455E-04,-5.37165E-04,-1.96081E-02,
     &       -1.92570E-02,-2.18735E-02,-2.42686E-04,-3.69011E-03,
     &       -5.34339E-03, 1.07257E-03,-2.44241E-04,-2.28293E-03,
     &        3.04649E-03,-2.07478E-03,-6.14859E-04, 1.00375E-03,
     &       -6.06158E-04,-3.46460E-04, 3.28627E-02, 1.25350E-02,
     &       -1.12411E-02,-1.83324E-03, 1.00472E-03,-1.98389E-03,
     &       -1.03762E-03,-6.12334E-04, 2.79619E-04,-4.40363E-04,
     &        9.60700E-05, 1.21237E-04,-2.59476E-04, 5.79284E-05,
     &        6.81575E-02,-1.55668E-02, 6.28290E-03,-2.76915E-03,
     &       -1.25597E-04,-9.36584E-05, 4.53803E-04,-8.51904E-04,
     &        6.60515E-04, 2.26603E-04,-5.16295E-04, 2.89954E-04,
     &       -5.65341E-06,-2.70585E-05,-1.67403E-03, 6.92919E-04,
     &       -3.44368E-03, 1.73833E-03, 8.92460E-04,-4.09713E-04,
     &        4.99827E-04, 5.35282E-05, 3.35447E-05, 1.59981E-05,
     &        1.64334E-04,-1.96716E-05, 1.05936E-04,-1.25304E-02,
     &        8.46777E-03,-3.52594E-03, 1.21211E-03,-3.32254E-04,
     &        6.02505E-04, 2.56131E-04, 4.79678E-05, 1.95590E-04,
     &        7.97190E-06, 4.96224E-05, 7.30022E-06,-3.48935E-05,
     &       -4.46493E-03,-7.46485E-04, 2.65092E-03,-6.97616E-04,
     &        8.94572E-04, 5.17932E-05, 2.56968E-04, 6.62788E-06,
     &        4.66021E-05,-5.46731E-06, 1.19030E-05,-4.45147E-05,
     &       -1.28435E-02, 1.55040E-03, 2.56648E-04, 8.73339E-04,
     &       -1.90457E-04, 4.51591E-04, 9.66851E-05, 4.17909E-05,
     &       -2.10798E-05, 1.58964E-05, 2.75156E-05,-4.98109E-05,
     &       -1.82221E-02, 1.70526E-03,-6.83593E-05,-1.73280E-04,
     &       -1.84853E-04, 2.18420E-04,-1.51864E-04, 4.87234E-05,
     &        3.27861E-06,-9.50657E-06, 1.25244E-05,-7.77064E-04,
     &        1.64965E-03,-1.24401E-03, 2.22700E-04,-3.02146E-05,
     &        1.00659E-04,-2.30604E-05, 5.94891E-05,-2.03841E-05,
     &        2.04417E-05,-3.73217E-06, 4.44312E-03, 1.95985E-03,
     &       -4.13239E-04, 2.97792E-04,-1.16435E-04,-1.35647E-04,
     &        2.48583E-05,-5.25987E-05, 3.40211E-05,-4.11956E-05,
     &       -5.70537E-04,-9.88704E-04,-5.47958E-04,-1.12974E-05,
     &        3.55606E-05, 1.37240E-04, 5.70467E-05, 7.37712E-05,
     &        2.92713E-05, 1.56492E-06, 1.01150E-02, 9.78261E-04,
     &       -1.03308E-03, 3.19171E-04,-7.01150E-05, 1.14121E-05,
     &       -1.94366E-05, 3.64556E-06,-1.51696E-05, 2.32629E-04,
     &        1.01955E-04, 5.11056E-04, 1.22094E-04,-3.52969E-05,
     &       -4.85005E-05, 5.20401E-05,-8.45768E-06, 2.80243E-05,
     &        3.30101E-03, 6.04741E-04,-2.84251E-04, 1.17631E-04,
     &       -3.38420E-05,-2.64875E-05,-2.96710E-05,-5.87326E-07,
     &       -5.19314E-03, 1.30776E-03, 3.27384E-04,-3.26099E-05,
     &       -1.84993E-05,-6.25777E-08, 9.50381E-06, 6.94498E-06,
     &       -4.53985E-03, 1.89731E-05,-3.07370E-04,-3.30553E-06,
     &       -1.32390E-04, 2.30135E-05,-2.91667E-05, 3.74084E-03,
     &        1.28960E-03, 2.52846E-04,-2.19889E-04, 1.88411E-05,
     &       -3.90163E-05,-8.72347E-06,-3.90048E-03, 3.27016E-04,
     &       -2.59477E-04, 7.79142E-05,-1.22910E-04, 3.88241E-05,
     &        4.97198E-03, 1.66120E-03,-3.10816E-04, 9.05460E-05,
     &        2.62379E-05, 1.77134E-05,-2.95592E-03,-1.74032E-04,
     &        2.56065E-04,-1.79332E-04,-2.50654E-05, 5.79020E-03,
     &        1.91686E-04,-5.39749E-04,-4.26841E-05,-1.19511E-05,
     &        1.04694E-03,-4.98754E-04, 1.48041E-04, 1.69407E-05,
     &       -3.62210E-03, 4.01976E-04,-3.91768E-04,-5.86072E-05,
     &        8.50902E-03,-4.84909E-04, 2.73676E-04,-2.41164E-03,
     &       -1.21645E-03, 1.87725E-04,-3.85437E-03, 1.27954E-03,
     &        5.36668E-03,-3.30672E-04, 5.17039E-03,-1.29315E-03/
C     long 30deg, sep_eq
      DATA (D(3,3,J),J=1,289)/-9.44820E-01,
     &        3.12653E-01,-5.46500E-01,-4.06992E-02,-1.54393E-01,
     &       -1.45190E-01, 3.08239E-01,-5.75851E-02, 1.57207E-01,
     &        1.24686E-02, 1.76946E-01, 7.86424E-02,-1.42506E-01,
     &       -4.35088E-02, 2.98938E-02,-7.25898E-02,-8.36399E-02,
     &       -2.36840E-01, 2.48682E-02, 1.45780E-02, 3.15622E-02,
     &        4.46151E-02, 1.82862E-03, 4.85050E-02,-4.34070E-03,
     &        8.16882E-03, 2.67388E-03,-1.41239E-02, 6.16639E-03,
     &       -1.40362E-02,-2.97389E-03,-1.04050E-02, 4.95685E-04,
     &       -2.64932E-01, 2.28934E-02,-2.94493E-02,-1.44862E-02,
     &        1.23169E-02,-1.88702E-02,-3.47341E-02, 1.29089E-02,
     &       -3.09803E-02, 2.05409E-03,-1.44387E-02,-3.30869E-03,
     &       -9.40340E-03, 2.85925E-05,-2.16897E-03, 5.71822E-04,
     &        6.20934E-02,-1.93707E-02, 2.44153E-02, 7.43896E-04,
     &        2.78943E-03, 1.00775E-02,-3.55647E-03, 8.37867E-05,
     &        2.52905E-03,-1.25122E-04,-1.87647E-03, 1.55514E-03,
     &       -9.63067E-04, 9.04972E-05,-6.34116E-04, 4.19236E-03,
     &       -1.81074E-02,-1.27062E-02,-3.13426E-03,-3.40507E-03,
     &       -3.20512E-03, 1.60326E-03,-1.72913E-03,-4.52647E-04,
     &        2.48816E-03,-3.11591E-03, 2.48932E-04, 1.56050E-04,
     &       -3.62704E-04, 2.91296E-04, 4.12578E-02, 1.00573E-02,
     &       -1.69078E-02, 2.35647E-04, 1.37432E-04,-1.13230E-03,
     &       -1.19373E-03, 1.13465E-05,-4.79863E-04, 1.05342E-04,
     &       -2.47231E-04, 7.23736E-05,-1.70701E-04, 4.45099E-05,
     &        7.70247E-02,-1.30238E-02, 5.65229E-03,-4.41195E-03,
     &        4.01027E-04,-1.26394E-03, 4.32246E-04,-6.96572E-04,
     &        6.58144E-04,-2.85134E-04,-2.02259E-04,-3.32866E-05,
     &       -1.32792E-04,-3.91508E-05, 3.25663E-03, 3.91765E-04,
     &       -2.66437E-03, 2.16535E-03, 4.48959E-04,-2.34427E-04,
     &        4.74928E-04,-2.32126E-04, 2.42598E-04,-5.87165E-05,
     &        1.53286E-04, 1.79542E-05, 1.25942E-04,-1.86479E-02,
     &        5.66939E-03,-3.91601E-03, 2.01133E-03,-5.48655E-04,
     &        2.97046E-04, 1.93725E-04,-7.29431E-05, 5.59819E-05,
     &        3.11756E-05,-3.41960E-06,-8.29728E-05,-5.53879E-06,
     &        3.11275E-03,-1.04849E-03, 4.14504E-03,-1.25225E-03,
     &        9.78321E-04,-1.06416E-04, 3.19584E-04, 6.38212E-05,
     &        1.35940E-04,-1.64898E-06, 5.43459E-05,-1.53731E-05,
     &       -2.74870E-02, 2.62362E-03, 1.43958E-03, 1.02267E-03,
     &       -4.00306E-05, 4.56270E-04, 2.84543E-05, 4.60657E-05,
     &       -4.03356E-05, 5.81428E-06, 2.63479E-05,-5.43664E-05,
     &       -1.55587E-02,-2.37967E-04, 1.36784E-04, 2.48734E-04,
     &       -8.54009E-05, 9.81336E-05,-2.48005E-04, 9.45879E-05,
     &       -1.77620E-05,-4.62329E-06, 6.31554E-06,-4.41782E-03,
     &       -1.21573E-03,-7.62723E-04, 4.26588E-05, 2.36331E-04,
     &        8.71987E-05, 9.74291E-05, 2.04870E-05, 5.38055E-05,
     &       -5.65587E-06, 3.68496E-05, 8.35691E-05, 2.55417E-03,
     &        3.55513E-04, 3.26017E-04,-6.73355E-05,-1.09771E-04,
     &       -5.72551E-06,-5.56032E-06, 2.32875E-05,-2.12578E-05,
     &        1.40884E-04,-7.01253E-04,-1.30255E-03, 3.25380E-04,
     &        5.06911E-05, 8.34758E-05, 1.44486E-05, 6.15339E-05,
     &        1.27185E-05, 1.55391E-05,-1.65042E-03, 1.91777E-05,
     &       -1.16565E-04,-2.80106E-04, 1.14855E-06,-8.85987E-05,
     &        4.45154E-05, 1.11325E-05,-3.07830E-06, 2.05086E-03,
     &        6.90802E-04, 1.41962E-04, 2.62060E-04,-1.30878E-04,
     &       -4.55015E-06, 5.77776E-07, 9.64013E-06, 1.39004E-05,
     &       -3.01164E-03, 4.53604E-04,-1.00369E-05,-7.42860E-05,
     &       -5.80251E-05,-3.21599E-06,-1.22218E-05, 2.09894E-05,
     &       -4.61284E-03, 1.31843E-03,-2.31539E-05,-1.70784E-04,
     &       -6.35017E-05,-1.77398E-05,-2.03426E-06, 1.87073E-05,
     &       -8.04272E-03, 1.07850E-03,-2.87722E-04, 9.57382E-06,
     &       -5.72522E-05, 3.61204E-05,-2.36448E-05, 1.99206E-03,
     &       -3.90570E-04,-2.11442E-04,-1.27843E-04,-3.05612E-05,
     &       -1.98350E-05,-1.41374E-05,-5.38457E-03, 1.07179E-03,
     &       -2.53586E-05,-1.50575E-04,-7.72398E-05, 2.82506E-05,
     &        5.15113E-03, 1.37303E-03,-4.16857E-04, 2.16815E-04,
     &        8.44186E-05, 2.04025E-05,-6.69867E-03,-5.40361E-04,
     &       -2.66525E-04,-2.80178E-04,-9.56312E-06, 6.25147E-03,
     &        8.12096E-04,-1.73602E-04,-3.96542E-05,-2.21049E-05,
     &        1.34734E-03,-6.25657E-04, 7.42887E-05, 5.15936E-06,
     &       -6.84378E-03,-9.72213E-05,-3.62228E-04,-1.30222E-04,
     &        5.76669E-03,-5.40921E-04, 4.50477E-04,-3.80100E-03,
     &       -1.49421E-03, 7.07449E-05, 2.53080E-03, 1.80544E-04,
     &       -3.80649E-03,-1.05971E-04, 6.78863E-03,-7.40477E-04/
C     long 45deg, sep_eq
      DATA (D(4,3,J),J=1,289)/-9.11562E-01,
     &        2.79271E-01,-5.58301E-01,-1.80490E-02,-1.91834E-01,
     &       -1.99589E-01, 3.14869E-01,-1.58864E-02, 1.28215E-01,
     &        3.47392E-03, 2.56361E-01, 8.08499E-03,-1.32419E-01,
     &        9.51486E-03, 3.52990E-02,-1.16284E-01,-9.98886E-02,
     &       -1.91733E-01, 8.30142E-03, 1.67683E-02, 3.19308E-02,
     &        3.73359E-02, 4.84791E-03, 5.47963E-02,-5.08953E-03,
     &        1.73851E-02,-3.85018E-03,-1.31599E-02, 4.75688E-03,
     &       -1.22405E-02,-4.87660E-03,-5.98677E-03, 8.98914E-04,
     &       -2.26719E-01, 2.70365E-03,-4.52420E-02,-4.39450E-03,
     &        2.86507E-03,-1.66631E-02,-2.07038E-02, 1.11098E-02,
     &       -3.31425E-02,-2.63585E-03,-1.15367E-02,-4.69918E-03,
     &       -6.59045E-03, 8.77519E-05, 1.39944E-03, 8.48246E-04,
     &        5.38429E-02,-1.29636E-02, 2.31550E-02, 9.54015E-04,
     &        8.86256E-03, 6.55176E-03,-2.91218E-03, 2.62713E-03,
     &        2.02266E-03,-2.59650E-04,-1.02182E-03, 8.64437E-04,
     &       -5.68364E-04,-1.10271E-04,-5.45857E-04, 3.36867E-02,
     &       -1.93896E-02,-1.01787E-02,-2.07883E-03,-3.41326E-03,
     &        4.03488E-04,-3.11335E-04,-7.67946E-04,-9.61646E-04,
     &        2.09608E-03,-2.83708E-03,-6.56938E-05,-1.12615E-04,
     &       -2.84940E-04, 4.33027E-04, 3.76879E-02, 5.32217E-03,
     &       -1.28476E-02, 1.10083E-04,-3.09978E-04,-2.97208E-04,
     &       -9.87667E-04, 2.15832E-04,-2.72559E-04, 1.98053E-04,
     &       -2.60787E-04, 9.31599E-05, 3.07317E-06,-8.61547E-05,
     &        8.75221E-02,-1.34337E-02, 2.68868E-03,-5.79743E-03,
     &       -3.05013E-04,-5.25496E-04, 1.47469E-04, 1.24243E-04,
     &        8.05233E-05, 6.85180E-05,-2.54945E-04,-5.40964E-05,
     &        1.31109E-04,-6.70738E-05, 6.85886E-03, 1.75646E-03,
     &        6.70115E-04, 1.68227E-03,-6.72865E-05,-1.47220E-04,
     &        2.22811E-04,-3.69170E-04, 1.10468E-04,-1.47306E-06,
     &        7.05804E-05, 1.63533E-05, 3.31529E-05,-2.17366E-02,
     &        2.50194E-03,-2.27391E-03, 1.26033E-03,-7.29717E-04,
     &        1.97435E-04,-1.25225E-04,-2.21251E-06, 3.25788E-05,
     &       -5.81190E-05, 4.70476E-05,-7.10293E-05, 7.38661E-05,
     &        3.71623E-03,-1.79684E-04, 2.71220E-03,-7.41973E-04,
     &        4.04715E-06,-6.01529E-05, 2.38889E-04, 6.20563E-05,
     &        1.36086E-04,-4.76641E-06, 4.85363E-05,-7.63019E-06,
     &       -2.84340E-02, 3.30935E-03, 1.96228E-03, 1.12504E-03,
     &        2.06707E-04, 2.36715E-04,-7.28693E-05,-2.32149E-05,
     &       -7.74105E-05,-1.59178E-05,-1.73020E-05,-2.68742E-05,
     &       -7.29903E-03, 3.63724E-04,-3.85756E-04, 3.10301E-05,
     &       -1.26692E-04,-6.82453E-05,-1.34625E-04, 7.23794E-05,
     &        3.60081E-07, 1.60477E-05,-1.00954E-05,-8.61604E-03,
     &       -2.12579E-03,-8.83922E-04,-1.03863E-04, 5.78940E-05,
     &        4.24166E-05, 8.78492E-05,-2.81368E-05, 7.21447E-05,
     &       -2.06347E-05, 3.58034E-05,-8.80996E-04, 2.50502E-03,
     &        3.02786E-04, 1.90738E-04, 1.29639E-05, 3.41361E-05,
     &       -4.48978E-05, 3.88699E-05,-6.91403E-06, 1.36591E-05,
     &        6.19823E-03, 1.29199E-03,-1.13647E-03, 1.55399E-04,
     &       -9.42353E-05, 7.59050E-05,-4.17108E-05, 1.35476E-05,
     &        3.09953E-05,-4.21765E-06,-1.34846E-02, 9.51277E-04,
     &       -3.33490E-04,-1.93279E-04, 1.66329E-06,-2.10775E-05,
     &        5.03466E-05,-2.39648E-05,-1.98450E-06, 5.98403E-03,
     &        5.49260E-04,-6.16138E-05, 2.39340E-05,-1.78324E-04,
     &        3.92105E-05,-1.96689E-05,-7.97378E-06, 6.67887E-06,
     &       -1.22157E-02, 4.77592E-04,-2.28932E-05,-4.20170E-05,
     &       -8.83194E-05, 3.63719E-05, 3.82812E-05, 1.48010E-05,
     &       -1.19071E-02, 2.84980E-03, 2.11694E-04,-1.55661E-05,
     &       -1.24072E-04,-2.30062E-05, 1.44210E-05,-5.34561E-07,
     &       -4.89548E-03, 2.67085E-04,-3.78910E-04,-1.25165E-04,
     &        1.71945E-05, 3.22422E-05,-2.11994E-06,-1.39876E-03,
     &       -1.51870E-05, 2.06077E-05, 1.33798E-04,-5.11595E-05,
     &       -2.46109E-05,-4.94567E-06,-8.03689E-03, 4.97758E-04,
     &       -2.45672E-05,-1.27149E-04,-2.39774E-05,-3.47558E-06,
     &        6.11262E-03, 4.02789E-04,-7.63312E-05, 4.36168E-05,
     &        9.80659E-05,-5.02698E-08,-1.04243E-02,-3.61884E-04,
     &       -6.42293E-04,-1.70277E-04,-1.87601E-05, 4.96872E-03,
     &        3.37230E-04, 4.26797E-04, 1.26910E-05, 2.45448E-05,
     &        2.77866E-03,-1.51219E-03,-2.31233E-04,-5.56963E-05,
     &       -3.91368E-03,-4.45881E-05,-2.72212E-04, 1.24541E-05,
     &        6.15053E-03,-8.75878E-04, 1.40272E-04,-3.82385E-03,
     &       -9.92051E-04,-1.91052E-04, 4.23115E-03, 9.66525E-05,
     &       -1.03272E-03,-4.94048E-04, 1.88377E-03,-1.01488E-03/
C     long 60deg, sep_eq
      DATA (D(5,3,J),J=1,289)/-8.99639E-01,
     &        2.75383E-01,-5.43133E-01,-2.90972E-02,-2.41718E-01,
     &       -1.82466E-01, 3.11005E-01, 6.55222E-03, 8.29865E-02,
     &        5.29636E-02, 2.95424E-01,-5.32737E-02,-7.66891E-02,
     &        5.53113E-02,-3.27796E-02,-6.24425E-02,-1.17348E-01,
     &       -1.86882E-01,-2.98686E-03, 3.18677E-02, 4.14038E-02,
     &        2.63789E-02, 4.14474E-03, 5.85078E-02,-5.27053E-04,
     &        2.13549E-02,-3.21845E-03,-1.10270E-02, 6.22306E-03,
     &       -1.23888E-02,-7.27262E-03,-1.41234E-03, 4.22923E-04,
     &       -2.03590E-01,-4.65279E-03,-5.84676E-02, 1.06046E-02,
     &       -2.24413E-03,-1.66372E-02,-1.25445E-02, 8.84597E-03,
     &       -3.52989E-02,-6.57353E-03,-8.84795E-03,-7.23904E-03,
     &       -5.80020E-03, 2.73983E-04, 3.49695E-04, 4.13614E-03,
     &        4.11038E-02,-1.22491E-02, 2.54765E-02, 2.94084E-04,
     &        1.14710E-02, 3.15875E-03, 5.30941E-05, 3.33061E-03,
     &        1.80946E-03, 7.34297E-05,-7.92071E-04, 1.00880E-03,
     &       -4.60552E-04,-1.54487E-04,-5.94054E-04, 3.87954E-02,
     &       -2.44007E-02,-4.68079E-03, 3.11664E-03,-6.79800E-03,
     &        4.20528E-03,-1.62827E-03, 1.29852E-03,-2.38802E-03,
     &        2.17174E-03,-2.74921E-03, 7.59126E-04,-2.45439E-04,
     &        2.35389E-04, 7.08270E-04, 2.81121E-02, 1.16533E-03,
     &       -9.99922E-03, 1.38482E-04,-1.05131E-03,-5.43305E-04,
     &       -6.60842E-04,-4.24820E-04, 1.29447E-04,-3.09622E-05,
     &       -1.68112E-04, 1.14961E-04,-8.72252E-05,-4.80269E-05,
     &        1.04535E-01,-1.46012E-02, 9.86326E-04,-6.42722E-03,
     &       -1.24778E-03,-1.58547E-04, 2.20224E-04, 8.60348E-05,
     &        2.46584E-05,-1.46558E-05,-2.81054E-04, 5.91487E-05,
     &        1.71331E-04,-1.33797E-04, 1.66656E-03, 3.47655E-03,
     &        3.13459E-03, 8.49997E-04,-1.97189E-04,-2.81228E-04,
     &        4.44231E-05,-2.92400E-04, 6.16080E-05,-6.16953E-06,
     &        2.91176E-05,-9.43430E-06, 1.47573E-05,-1.95970E-02,
     &        3.80331E-03,-1.38575E-03, 3.56656E-04,-9.15207E-04,
     &       -1.48268E-04,-1.73024E-04,-2.01297E-04, 9.30414E-05,
     &       -6.20332E-05, 6.79399E-05, 4.02192E-05, 1.84938E-05,
     &        5.70950E-03,-3.14509E-03, 2.24482E-03,-4.74042E-04,
     &       -4.73691E-04,-2.02413E-04, 2.03462E-04, 1.92120E-05,
     &        4.23695E-05,-2.13003E-05, 1.96656E-05,-1.80335E-05,
     &       -2.19351E-02, 3.84787E-03, 1.02555E-03, 1.07493E-03,
     &       -2.67376E-05, 2.28083E-04,-1.33261E-04, 3.24807E-05,
     &       -6.61930E-05, 3.10213E-05,-7.16551E-06,-1.70022E-05,
     &        1.58522E-03,-1.23383E-03, 4.38338E-04,-3.52297E-05,
     &       -7.73930E-05,-1.34989E-04, 5.66771E-05, 5.26136E-05,
     &        1.69853E-05, 1.64331E-05,-1.00353E-05,-8.77623E-03,
     &       -3.61701E-03,-5.31666E-04, 1.86479E-05,-2.33536E-04,
     &       -4.64635E-05,-6.90983E-06,-7.34708E-05, 5.30458E-06,
     &       -2.13774E-05, 1.67415E-05,-1.16484E-03, 4.61586E-03,
     &       -3.53434E-04, 3.38673E-04, 4.48280E-05, 6.94917E-05,
     &       -4.28592E-05, 8.14480E-06, 2.76542E-06, 8.74627E-06,
     &        4.54017E-03, 5.75595E-04,-1.00559E-04,-1.28710E-04,
     &        9.41080E-05, 3.85016E-06,-1.07379E-05,-4.79968E-05,
     &        4.33389E-05,-1.06165E-05,-6.98445E-03, 1.80421E-03,
     &       -7.70376E-04, 1.00484E-05,-5.49284E-05, 7.58736E-05,
     &       -4.26088E-06,-2.04040E-05,-1.79779E-05, 2.65684E-03,
     &        1.38159E-03, 1.55290E-04,-6.06292E-05,-5.67605E-05,
     &        5.54799E-05,-8.01718E-06, 3.42377E-06,-1.17179E-05,
     &       -1.11957E-02, 7.90237E-04, 1.41953E-04, 2.65602E-04,
     &       -8.31868E-05, 3.20443E-05, 2.99329E-05,-7.60750E-06,
     &       -1.59869E-02, 2.05226E-03, 2.92409E-04, 2.48692E-06,
     &       -3.00943E-05, 2.39621E-05, 1.62394E-05,-1.61493E-05,
     &        2.81584E-03, 7.61429E-04,-4.00985E-04,-9.35934E-05,
     &        5.39084E-05, 1.06581E-05, 6.03915E-06,-2.49928E-03,
     &       -5.06922E-05, 5.97293E-04, 1.78359E-04,-6.03798E-05,
     &        1.01281E-06, 2.62934E-05,-7.87385E-03, 6.09511E-05,
     &       -5.58867E-04,-1.83551E-05, 9.42154E-06,-3.41036E-05,
     &        1.14122E-02, 2.59353E-04, 3.46377E-04,-4.06889E-05,
     &        1.54860E-05,-3.44721E-06,-9.97995E-03,-1.05296E-03,
     &       -4.35880E-04,-1.56456E-04,-1.96063E-05, 6.50925E-03,
     &        2.05487E-04, 2.33101E-04,-2.03208E-05,-8.77340E-06,
     &        5.82826E-04,-1.80194E-03, 1.60932E-04,-5.56321E-05,
     &       -6.97213E-03,-1.48967E-03,-2.89870E-04,-8.39489E-05,
     &        1.04858E-02, 2.26300E-04,-3.35583E-05,-1.64539E-03,
     &       -1.42507E-03,-1.18650E-04,-9.08841E-04,-4.88446E-04,
     &        8.40005E-03,-1.47041E-04,-7.15017E-03, 1.16218E-05/
C     long 75deg, sep_eq
      DATA (D(6,3,J),J=1,289)/-8.88999E-01,
     &        2.69586E-01,-4.88059E-01,-5.66089E-02,-2.22121E-01,
     &       -1.49696E-01, 2.69718E-01, 2.09651E-02, 3.94333E-02,
     &        7.21004E-02, 3.26106E-01,-1.33513E-01,-1.76946E-02,
     &        6.65195E-02,-5.46441E-02,-2.13962E-02,-1.00973E-01,
     &       -2.24870E-01,-3.53057E-03, 5.63365E-02, 3.58905E-02,
     &        2.37341E-02, 5.85719E-03, 5.65092E-02, 2.73707E-03,
     &        2.20843E-02, 2.76004E-03,-9.72596E-03, 5.24796E-03,
     &       -1.13193E-02,-9.77704E-03,-2.08728E-03,-1.86391E-03,
     &       -1.88816E-01, 1.46965E-03,-7.28649E-02, 1.83853E-02,
     &        7.91952E-03,-2.10567E-02,-1.39719E-02, 1.30248E-02,
     &       -3.40413E-02,-6.41773E-03,-9.36243E-03,-7.03364E-03,
     &       -8.56081E-03,-7.42607E-04,-2.43081E-03, 3.58215E-03,
     &        2.65774E-02,-5.56295E-03, 2.87713E-02,-2.70968E-03,
     &        1.16850E-02, 1.42259E-03, 2.58087E-03, 2.42957E-03,
     &        2.36177E-03, 7.48100E-04,-1.44891E-03, 1.36406E-03,
     &       -8.41206E-04,-1.83527E-04,-8.59218E-04, 1.61791E-02,
     &       -2.68796E-02, 3.56544E-03, 3.01411E-03,-5.04295E-03,
     &        5.65273E-03,-1.81629E-03, 2.89511E-03,-2.46000E-03,
     &        1.63041E-03,-2.84916E-03, 1.19561E-03,-3.55137E-04,
     &        3.11753E-04, 6.44127E-04, 2.07406E-02,-1.90454E-03,
     &       -1.02965E-02, 6.41989E-04,-1.14584E-03,-3.80400E-04,
     &       -9.66573E-04,-1.09676E-03, 1.71970E-04,-1.99059E-04,
     &       -1.04326E-04,-5.14342E-05,-8.26220E-05, 2.14711E-05,
     &        1.15271E-01,-1.17682E-02, 1.91982E-03,-4.90111E-03,
     &       -2.44394E-03, 3.25430E-05, 5.44261E-04, 1.34933E-04,
     &        1.66306E-04,-8.48201E-05,-3.74464E-04, 1.21613E-04,
     &       -2.21154E-05,-1.69039E-04,-5.23475E-03, 3.54191E-03,
     &        1.89090E-03, 6.15772E-04, 7.99562E-04,-1.95357E-04,
     &       -6.31825E-06,-8.82789E-05, 1.56590E-04, 1.35452E-05,
     &        6.85333E-05,-1.95761E-05, 7.10033E-05,-1.72619E-02,
     &        6.39993E-03,-1.27111E-03, 1.01354E-03,-8.34888E-04,
     &        2.01924E-04,-3.55536E-04,-1.53305E-04,-1.28267E-04,
     &       -1.94003E-05, 1.13544E-05, 2.93023E-05, 5.55936E-06,
     &        6.37573E-03,-5.38167E-03, 2.34830E-03,-6.69198E-04,
     &       -4.86029E-04,-2.80872E-04, 1.65421E-04, 1.58244E-05,
     &        1.83185E-05, 2.67313E-05,-4.72226E-05, 2.17832E-05,
     &       -2.11377E-02, 1.57990E-03, 6.36181E-04, 9.27993E-04,
     &        1.99173E-04, 1.98180E-04, 7.28062E-05, 1.64253E-04,
     &       -2.66350E-05, 7.63485E-05, 3.50681E-05, 2.27454E-05,
     &        4.58282E-03,-2.68307E-03, 1.89246E-03,-6.64232E-05,
     &       -2.40601E-04,-9.40007E-05, 2.23053E-05,-8.70982E-07,
     &        2.33635E-06,-2.44390E-05,-9.49017E-06,-2.27468E-03,
     &       -5.56238E-03,-8.76253E-04, 6.80953E-05,-3.47307E-04,
     &       -7.79803E-05,-4.46551E-05,-8.62107E-06,-3.44527E-05,
     &        1.91281E-05,-1.37652E-05,-5.95850E-03, 4.11885E-03,
     &       -1.51740E-04, 2.36716E-04, 8.31013E-05, 2.19774E-06,
     &       -3.72564E-05,-2.27499E-05, 7.38803E-06,-1.73540E-05,
     &        8.11779E-03,-1.79285E-03, 4.34287E-04, 6.61078E-06,
     &        1.74488E-04,-3.65106E-05,-3.73345E-07,-6.16522E-05,
     &        2.45715E-05,-1.29472E-05,-3.89611E-03, 1.58274E-03,
     &       -7.56174E-04,-2.89078E-05,-7.48412E-05, 3.48332E-06,
     &       -6.28729E-06,-3.87406E-06,-1.46643E-05, 2.77443E-03,
     &        1.77643E-03, 5.76887E-04, 1.14406E-06,-4.89107E-06,
     &        5.64683E-05,-1.14547E-08, 1.24630E-05,-2.91380E-05,
     &       -2.25810E-03,-4.10238E-05,-5.74201E-04, 2.54010E-04,
     &       -9.58953E-05, 3.49485E-05, 1.71697E-06,-6.34078E-07,
     &       -8.12589E-03, 1.62161E-03, 9.36099E-05,-2.95416E-05,
     &       -1.89039E-05, 4.04612E-05, 1.45764E-05,-4.70838E-06,
     &        2.74118E-03, 5.32923E-04, 1.48325E-04,-1.06852E-04,
     &        8.39182E-05,-5.09379E-06, 1.27846E-06,-1.83790E-03,
     &        1.97581E-05, 1.06317E-04, 5.25113E-05,-1.24777E-04,
     &        3.83655E-05, 2.31774E-05,-4.05376E-03, 2.34520E-04,
     &       -4.90895E-04,-4.33151E-05, 6.92210E-05,-1.96966E-05,
     &        7.04477E-03, 4.90565E-04, 1.81436E-04,-6.79801E-05,
     &        3.68219E-06, 7.39029E-06,-1.35812E-02,-3.75067E-04,
     &       -3.32399E-04,-2.70247E-04,-3.47762E-05, 3.70906E-03,
     &        5.76929E-04,-2.60135E-04, 5.89904E-05, 2.12977E-05,
     &       -4.38452E-03,-1.66307E-03,-9.81782E-05, 3.00596E-05,
     &       -6.86814E-03,-1.56472E-03,-1.03825E-04,-6.74724E-05,
     &        7.94498E-03,-5.75390E-04,-1.18008E-04,-3.61531E-03,
     &       -1.13885E-03,-6.96835E-05, 4.37229E-04,-7.27079E-04,
     &        4.85151E-03,-1.85046E-04,-1.93173E-03,-4.04985E-03/
C     long 90deg, sep_eq
      DATA (D(7,3,J),J=1,289)/-8.75219E-01,
     &        2.64283E-01,-4.22134E-01,-8.83662E-02,-1.94897E-01,
     &       -9.90626E-02, 1.82733E-01, 3.93613E-02,-1.01885E-04,
     &        7.58829E-02, 3.53285E-01,-1.87150E-01, 4.56406E-03,
     &        4.18552E-02,-2.47731E-02, 1.49210E-03,-9.65256E-02,
     &       -2.47315E-01, 1.37506E-02, 5.94462E-02, 2.44434E-02,
     &        3.62811E-02, 2.13579E-03, 4.51415E-02, 6.53608E-03,
     &        2.37208E-02, 3.29768E-03,-5.88736E-03, 7.00267E-03,
     &       -7.38243E-03,-8.38813E-03,-4.65030E-03,-1.62487E-03,
     &       -1.97143E-01, 1.55417E-02,-7.01618E-02, 1.82482E-02,
     &        1.30033E-02,-1.84192E-02,-1.64418E-02, 1.85971E-02,
     &       -2.93283E-02,-3.73927E-03,-6.60549E-03,-5.92360E-03,
     &       -7.79206E-03,-1.66233E-03,-5.44719E-04, 2.46181E-03,
     &        1.12246E-02, 6.28571E-03, 3.12211E-02,-6.61265E-03,
     &        1.13742E-02,-8.10478E-04, 3.95639E-03, 1.70147E-04,
     &        3.62044E-03, 6.26956E-04,-8.96726E-04, 8.13748E-04,
     &       -8.96448E-05,-1.95026E-04,-7.86916E-04,-1.59608E-02,
     &       -2.62132E-02, 1.07125E-02, 1.33814E-03,-2.64012E-03,
     &        4.85664E-03,-2.62282E-03, 3.86920E-03,-2.18113E-03,
     &        5.37316E-04,-2.69271E-03, 8.94168E-04,-4.50031E-04,
     &        2.65522E-04, 3.00705E-04, 3.24394E-02,-5.69102E-03,
     &       -1.11991E-02, 7.48082E-04, 1.32150E-03,-4.36933E-05,
     &       -8.35453E-04,-1.26110E-03, 6.03337E-04,-1.27674E-04,
     &       -1.97618E-05,-5.09301E-05, 3.95001E-05,-7.11942E-05,
     &        1.06228E-01,-8.07328E-03, 2.56624E-03,-2.46090E-03,
     &       -2.59582E-03,-3.84565E-04, 2.07300E-04, 2.90087E-04,
     &       -2.05270E-04, 8.57843E-05,-5.24165E-04, 1.34294E-04,
     &       -5.02325E-05, 5.02127E-05,-1.94349E-03, 2.70635E-03,
     &       -7.02751E-04,-1.56639E-04, 1.68309E-03, 5.18140E-05,
     &        2.83528E-04,-2.88480E-05, 1.27888E-04, 5.16343E-05,
     &        2.51677E-05, 2.93147E-05, 7.47517E-06,-1.08260E-02,
     &        3.61046E-03, 1.71673E-04, 7.55547E-04,-5.70817E-05,
     &        6.86896E-04,-3.52652E-04,-6.55822E-05, 5.71477E-05,
     &        4.31178E-05, 1.51568E-05,-2.86554E-05, 8.66070E-05,
     &        8.92500E-03,-2.71375E-03, 2.12333E-03,-4.60286E-04,
     &       -4.62006E-04,-8.98544E-05, 1.84201E-04,-1.98132E-05,
     &        7.68607E-06,-1.14859E-05,-1.80134E-05, 1.67767E-05,
     &       -2.28268E-02, 6.69026E-04, 2.80104E-04,-1.26329E-04,
     &        4.53178E-04,-2.73524E-05, 2.04978E-04,-5.84115E-05,
     &        6.11533E-06, 1.82301E-05, 8.31850E-06,-5.16209E-06,
     &        5.49364E-04,-8.53125E-04, 1.76503E-03, 2.03808E-04,
     &       -2.33807E-04, 5.80495E-05, 2.63368E-06,-8.01914E-06,
     &       -3.31184E-06,-3.18914E-05,-8.77041E-07, 6.09839E-04,
     &       -1.85811E-03,-1.13111E-03,-2.07716E-04,-2.81034E-04,
     &       -2.19876E-05,-1.30910E-05,-2.21689E-06,-3.14489E-05,
     &        2.38156E-05,-2.75736E-06,-3.96589E-03, 1.08969E-03,
     &       -3.27815E-04,-8.95419E-05, 9.86032E-05,-4.63247E-05,
     &       -1.12963E-04, 4.36743E-06,-1.28001E-05,-1.77949E-05,
     &        1.31246E-02,-9.34794E-04, 3.13496E-04, 5.68986E-04,
     &        8.03312E-05,-1.02848E-05,-7.53880E-05,-1.00862E-05,
     &       -1.29077E-05,-2.12298E-06,-1.85432E-03, 8.19140E-04,
     &       -4.67732E-04,-2.21279E-04,-4.02555E-06,-6.58390E-05,
     &        2.58424E-06,-7.06563E-06,-7.02914E-06, 4.71788E-03,
     &        9.41881E-05, 1.12075E-04, 1.58091E-05, 5.02108E-05,
     &       -1.87391E-05, 7.61091E-06,-1.90862E-05,-1.84004E-06,
     &       -3.17973E-03, 5.01458E-04,-6.21725E-04,-5.39356E-05,
     &       -7.47056E-05, 3.69085E-05,-1.05389E-05, 9.98787E-07,
     &        1.08723E-03, 1.53551E-03,-2.65081E-04,-1.47281E-04,
     &       -3.15163E-05,-3.07834E-06, 8.82278E-06,-3.86211E-06,
     &       -3.94399E-03,-8.73387E-04, 6.60243E-04,-1.90361E-04,
     &        7.68194E-05, 1.05885E-05, 3.25081E-06,-2.67083E-03,
     &        1.63575E-03,-3.25580E-04, 5.93249E-05,-1.28814E-04,
     &        1.92528E-05, 7.27010E-06,-2.21001E-03,-4.79166E-04,
     &        1.05314E-04,-1.16144E-04, 1.08831E-04, 4.92119E-06,
     &       -1.98415E-03,-1.29781E-04, 3.87787E-04,-1.82645E-04,
     &        3.33873E-05, 2.53165E-06,-8.22156E-03,-6.71967E-05,
     &       -2.66595E-04,-1.12847E-04, 6.55848E-06,-5.07432E-03,
     &        4.15656E-04,-1.72312E-04, 2.10218E-05, 3.62809E-05,
     &       -1.93181E-03,-5.60131E-04,-1.71450E-04, 6.54190E-05,
     &       -3.77108E-03, 6.83686E-04,-1.28552E-04, 2.06001E-05,
     &        5.61524E-03,-2.05248E-04,-1.49599E-04,-1.13158E-02,
     &        9.63095E-04,-5.89721E-05,-4.56217E-04,-9.14890E-04,
     &       -4.75560E-03, 6.24980E-04,-1.57583E-04,-1.06608E-03/
C     long 105deg, sep_eq
      DATA (D(8,3,J),J=1,289)/-8.63444E-01,
     &        2.46420E-01,-3.62027E-01,-1.18086E-01,-1.87740E-01,
     &       -4.57858E-03, 8.58010E-02, 4.94523E-02, 9.66400E-03,
     &        5.30765E-02, 3.43480E-01,-1.46943E-01,-2.56938E-02,
     &       -2.82032E-02, 9.64282E-03,-6.07668E-03,-1.11441E-01,
     &       -2.39219E-01, 2.35549E-02, 5.37219E-02, 1.32183E-02,
     &        4.70741E-02,-9.33595E-04, 3.68903E-02, 9.04114E-03,
     &        2.81087E-02,-1.45603E-03,-2.84211E-03, 7.74876E-03,
     &       -3.64422E-03,-9.04748E-03,-2.70072E-03, 7.62465E-04,
     &       -2.33018E-01, 2.34907E-02,-5.06542E-02, 1.47390E-02,
     &        3.20041E-03,-4.74003E-03,-1.53611E-02, 1.78997E-02,
     &       -2.13280E-02,-2.95306E-04,-6.04741E-03,-5.31553E-03,
     &       -5.92749E-03,-3.11873E-03, 8.47464E-04, 4.10503E-04,
     &        4.24471E-03, 1.74820E-02, 3.18028E-02,-9.70833E-03,
     &        1.41034E-02,-2.77520E-03, 4.63387E-03,-1.50737E-03,
     &        4.61173E-03, 3.08159E-05,-5.49773E-04, 1.83710E-04,
     &        5.77862E-04,-2.85249E-04,-1.00446E-03,-2.81826E-02,
     &       -2.74210E-02, 1.84849E-02,-1.57823E-03,-2.33762E-03,
     &        4.69101E-03,-2.46898E-03, 3.74797E-03,-2.16213E-03,
     &        9.26008E-04,-2.96759E-03, 4.80024E-04,-3.79570E-04,
     &       -4.70134E-04, 4.68378E-04, 3.81144E-02,-3.63924E-05,
     &       -1.47570E-02, 3.84668E-04, 1.32219E-03, 9.07816E-04,
     &       -1.50168E-03,-7.41039E-04, 7.15655E-04, 1.00042E-04,
     &       -1.63809E-04, 1.82114E-04,-8.19649E-05, 5.31766E-05,
     &        8.41702E-02,-2.64750E-03, 5.50893E-03,-2.04897E-03,
     &       -2.55599E-03,-1.52850E-03, 3.89310E-04, 1.71084E-04,
     &       -4.42355E-04,-8.02966E-06,-2.87528E-04,-4.16951E-05,
     &        4.71087E-05, 1.31422E-04,-6.09453E-03, 6.56355E-04,
     &       -1.09753E-03,-1.02365E-03, 9.10362E-04, 4.38463E-04,
     &        8.94106E-05,-1.22458E-04, 1.62274E-04,-2.53893E-05,
     &       -6.05538E-05, 1.05771E-05,-5.96288E-05,-1.03111E-02,
     &        1.51407E-05, 1.44068E-03, 2.41364E-04,-3.77508E-04,
     &        4.08699E-04,-4.62575E-04,-8.66707E-05, 1.23817E-04,
     &        2.14180E-05, 1.87974E-05,-4.89362E-05, 1.06528E-04,
     &        9.71851E-03, 2.96497E-04, 2.41508E-03,-6.31858E-04,
     &       -4.27525E-04, 6.39842E-05, 5.58353E-05, 8.06076E-05,
     &       -4.65142E-05, 2.52689E-06,-1.12245E-05, 3.27564E-05,
     &       -2.26828E-02,-1.30204E-03, 7.83217E-04,-9.73125E-04,
     &        3.74434E-04, 7.85093E-05, 1.45106E-04,-7.55239E-05,
     &       -1.83436E-05, 2.39836E-05,-4.47834E-05, 2.66451E-05,
     &       -2.92305E-03, 1.20360E-03, 5.18447E-04, 1.00866E-03,
     &       -1.46764E-04, 9.26258E-05, 4.78505E-05, 2.87767E-05,
     &        1.97734E-05,-2.60791E-05, 1.06627E-05, 8.04343E-03,
     &        9.13969E-04,-9.70281E-05,-4.47004E-04,-2.63286E-04,
     &       -7.28449E-05,-2.96985E-05, 2.40814E-05,-4.88303E-05,
     &        2.22179E-05,-1.88240E-06,-7.20238E-03, 6.30810E-04,
     &       -9.68414E-04, 2.76454E-04, 2.07399E-04,-1.04991E-04,
     &       -5.50326E-05, 1.68519E-05, 7.54505E-06,-9.93205E-06,
     &        1.44904E-02,-7.15497E-04,-1.07085E-04, 5.52829E-04,
     &        7.06664E-05, 3.68575E-06,-7.22710E-05, 7.94778E-06,
     &       -2.11486E-05, 4.80338E-06, 5.13056E-03, 5.05321E-04,
     &       -4.64170E-04,-1.77516E-04, 1.61453E-05,-8.24845E-05,
     &       -1.16231E-05, 8.16863E-06, 1.54497E-06, 6.75874E-03,
     &       -1.12490E-03,-6.52856E-04, 3.58921E-05, 1.36747E-04,
     &       -5.97761E-05, 1.36108E-05,-1.87231E-05, 1.75369E-05,
     &        1.72597E-03, 1.78515E-03, 2.88796E-05,-4.98927E-05,
     &       -1.55989E-05, 2.94580E-06,-2.01456E-05,-4.32926E-07,
     &        5.12547E-03,-2.85530E-04,-5.28042E-04,-2.77560E-04,
     &        2.41940E-05,-2.59601E-05,-7.40357E-06, 2.07616E-06,
     &       -3.25454E-03,-1.25774E-04, 5.58999E-04, 3.92879E-05,
     &       -1.08199E-05, 5.46231E-05, 3.46881E-06, 5.85746E-03,
     &        1.45416E-03, 4.34411E-08, 8.61136E-05, 6.47420E-07,
     &       -2.99278E-05, 5.92362E-06,-5.28753E-03,-1.15235E-03,
     &       -9.76636E-05,-1.54877E-04, 6.00578E-05, 1.76307E-05,
     &        3.24106E-03,-1.11142E-03, 4.15457E-04, 5.01873E-06,
     &        1.85056E-05, 1.93453E-05,-4.39302E-03,-5.32685E-04,
     &       -1.75311E-04, 1.75830E-05, 1.65622E-05,-5.14593E-04,
     &       -1.59927E-03,-3.60627E-04,-6.38266E-05,-1.35209E-05,
     &       -6.12675E-03, 5.38852E-04, 9.94606E-05, 1.31428E-04,
     &       -5.49594E-03,-9.17856E-04,-3.93138E-04, 7.31053E-05,
     &        2.00801E-03, 7.29065E-04, 4.95081E-05,-9.25959E-03,
     &       -4.60001E-04, 4.87255E-05,-5.33585E-03,-7.33036E-04,
     &       -2.15610E-03, 1.76892E-05,-4.79759E-03, 2.15581E-03/
C     long 120deg, sep_eq
      DATA (D(9,3,J),J=1,289)/-8.43958E-01,
     &        2.13387E-01,-2.72877E-01,-1.37384E-01,-2.19816E-01,
     &        8.02509E-02, 4.10110E-02, 5.91060E-02,-1.24312E-02,
     &        4.46556E-02, 2.66863E-01,-6.80264E-02,-3.25594E-02,
     &       -6.74793E-02, 2.71239E-02,-1.45639E-02,-1.17211E-01,
     &       -2.12483E-01, 1.87498E-02, 5.47573E-02, 1.11114E-02,
     &        4.77365E-02, 2.82286E-03, 3.53992E-02, 6.74606E-03,
     &        2.99500E-02,-1.26176E-03,-1.30576E-03, 5.59569E-03,
     &       -5.89382E-04,-8.42292E-03,-1.01342E-03, 1.72320E-03,
     &       -2.68169E-01, 2.48731E-02,-1.65635E-02, 1.43826E-02,
     &       -1.25348E-02, 5.15900E-03,-1.01598E-02, 1.70143E-02,
     &       -1.53574E-02, 2.45704E-03,-6.52489E-03,-3.98641E-03,
     &       -5.68598E-03,-4.13980E-03, 4.13254E-04, 9.57546E-04,
     &        2.58870E-02, 2.12847E-02, 1.99587E-02,-3.60144E-03,
     &        1.69565E-02,-2.80628E-03, 3.70486E-03,-2.86131E-03,
     &        4.82945E-03,-7.16504E-04,-1.72611E-04,-6.17173E-04,
     &        8.75203E-04,-6.62828E-04,-1.00226E-03,-1.48536E-02,
     &       -3.19269E-02, 2.46287E-02,-3.78079E-03,-1.38283E-04,
     &        4.16562E-03, 8.91647E-05, 2.06816E-03,-1.21351E-03,
     &        1.66328E-03,-2.50722E-03, 2.26667E-04,-4.16635E-04,
     &       -6.45888E-04, 1.56091E-04, 3.76328E-02, 7.56871E-04,
     &       -1.31764E-02,-1.40488E-04, 1.47285E-03, 1.71936E-03,
     &       -1.85943E-03,-4.59500E-04, 3.25003E-04, 6.86467E-05,
     &       -2.66103E-04, 9.27136E-05,-1.52790E-04, 1.55179E-04,
     &        7.05130E-02,-1.22704E-03, 6.80029E-03,-1.70839E-03,
     &       -3.00659E-03,-1.52776E-03, 1.06570E-04, 2.86278E-04,
     &       -7.20844E-04, 1.68151E-04,-8.80964E-05, 1.51184E-06,
     &       -2.24501E-05, 1.12212E-06,-4.22777E-03,-3.95971E-03,
     &       -7.13924E-04,-6.49851E-04, 4.16930E-04, 3.79287E-04,
     &        9.90240E-05,-3.28255E-04, 2.26382E-04,-2.45324E-05,
     &       -7.08781E-05,-4.12202E-05,-2.39756E-05,-1.83562E-02,
     &       -6.37744E-03, 1.83807E-03,-3.97409E-04, 1.03706E-04,
     &       -8.18657E-07,-2.01355E-04,-1.01073E-04,-4.12090E-05,
     &       -6.10995E-05, 3.61158E-05,-6.32984E-05, 3.32283E-05,
     &        6.22439E-03, 2.05307E-03, 3.09798E-03,-2.81351E-04,
     &       -1.53828E-04,-1.02034E-04,-2.26516E-05, 1.60981E-05,
     &       -3.13296E-05,-2.22569E-05, 1.70441E-05,-6.03709E-06,
     &       -1.95428E-02,-3.99909E-03, 7.88255E-04,-3.54225E-04,
     &       -4.33544E-05, 2.64599E-04, 2.03475E-04, 9.80177E-07,
     &       -1.51951E-05, 5.38535E-05,-4.50815E-05, 4.29232E-05,
     &       -2.63367E-03, 1.21342E-04, 1.67266E-04, 9.52617E-04,
     &        6.48961E-05,-3.59799E-06, 1.24584E-05, 4.31603E-05,
     &        7.87446E-06,-1.50470E-05, 5.41774E-07, 5.16193E-03,
     &        1.07796E-03, 1.16167E-03, 7.80826E-05,-6.69825E-05,
     &       -2.12057E-04,-3.76333E-05, 3.04843E-05,-3.17519E-05,
     &       -6.77065E-06,-9.75044E-06,-4.65322E-03,-3.81362E-04,
     &       -7.65789E-04, 1.52861E-04, 1.26246E-04,-1.92570E-05,
     &       -3.57762E-05, 3.67146E-06,-8.26887E-06, 1.45180E-05,
     &        8.95356E-03,-2.13997E-03, 3.67276E-04, 4.95943E-04,
     &        1.24155E-04, 5.18048E-05,-4.50550E-05,-7.83296E-06,
     &       -7.20441E-06,-3.77980E-06, 5.36345E-03, 1.14383E-03,
     &       -1.21710E-03,-1.20774E-04, 1.29442E-05,-6.25708E-05,
     &       -2.39533E-05, 3.71457E-08,-1.18803E-06, 4.34467E-03,
     &       -1.79588E-03,-9.40601E-05, 8.28058E-05,-8.11929E-05,
     &        8.54387E-06,-1.79210E-07,-1.91669E-05, 3.13853E-06,
     &        3.36134E-03, 2.08926E-03, 6.02133E-04,-7.58025E-05,
     &        8.25949E-05,-3.62504E-05, 2.58725E-06, 8.82283E-06,
     &       -1.15542E-03,-4.86050E-04,-5.27462E-05,-6.36177E-05,
     &       -1.98223E-05,-3.00772E-05, 2.96219E-06, 8.58625E-06,
     &       -3.70762E-05,-1.05822E-04, 4.32023E-04, 8.12107E-05,
     &        8.61097E-06, 5.96998E-05,-6.23031E-06, 6.59899E-03,
     &       -4.06820E-04, 5.39220E-04, 6.05397E-05, 2.19806E-05,
     &       -4.02775E-05,-2.58268E-06,-3.63808E-03,-4.99767E-04,
     &       -1.67228E-04,-8.93282E-05, 3.31774E-05,-1.10998E-05,
     &        5.52326E-03,-1.34206E-04, 4.47723E-04, 1.34968E-04,
     &       -3.48108E-05, 4.24045E-05,-2.70415E-03, 5.94402E-04,
     &       -6.14873E-04,-5.40105E-05, 1.60029E-05, 4.31930E-03,
     &       -5.39612E-04,-3.01312E-04,-9.43621E-05, 6.22527E-06,
     &       -1.02898E-02, 1.19407E-03,-2.56314E-04, 1.85439E-04,
     &       -7.58586E-03,-7.70271E-04,-5.61967E-04,-3.21157E-05,
     &        2.33190E-03, 2.72837E-04, 3.07540E-04,-9.23825E-03,
     &       -8.27880E-04,-1.48024E-04,-2.79770E-03,-3.12341E-04,
     &        5.81396E-03,-5.84968E-04,-7.96409E-03, 8.58379E-03/
C     long 135deg, sep_eq
      DATA (D(10,3,J),J=1,289)/-8.19083E-01,
     &        1.92344E-01,-1.97573E-01,-1.31575E-01,-2.88343E-01,
     &        9.26053E-02, 7.26969E-02, 6.03531E-02,-3.42985E-02,
     &        5.27696E-02, 2.01660E-01,-6.20814E-02,-3.20124E-02,
     &       -4.83506E-02, 3.57519E-02,-3.57086E-02,-1.20437E-01,
     &       -1.71540E-01, 6.81277E-03, 6.77918E-02, 1.20229E-02,
     &        4.61736E-02, 3.93226E-03, 3.48413E-02, 4.15368E-03,
     &        2.96535E-02,-2.49778E-03, 2.18745E-03, 3.83252E-03,
     &       -4.22518E-04,-6.23953E-03,-8.38090E-04, 7.66980E-04,
     &       -2.64965E-01, 2.71750E-02, 7.75919E-03, 1.54247E-02,
     &       -1.88305E-02, 9.61695E-03,-3.99951E-03, 1.84693E-02,
     &       -1.82089E-02, 6.64647E-03,-5.91935E-03,-3.33432E-03,
     &       -5.69680E-03,-1.28000E-03, 1.60524E-03, 9.19188E-04,
     &        5.62282E-02, 1.80362E-02, 8.56695E-03,-3.90374E-05,
     &        1.76902E-02,-4.30188E-03, 5.74850E-04,-2.43970E-03,
     &        4.74454E-03,-8.19128E-04,-8.44151E-04,-5.30243E-04,
     &        2.92117E-04,-6.50554E-04,-1.21231E-03,-6.58345E-04,
     &       -3.51940E-02, 2.39676E-02,-5.34274E-03, 2.48269E-03,
     &        2.93100E-03, 9.92787E-04, 1.17518E-03,-2.34545E-04,
     &        9.16158E-04,-1.83271E-03,-8.27872E-05,-2.60992E-04,
     &       -5.90404E-04, 2.22583E-04, 4.51591E-02, 2.02902E-04,
     &       -1.16069E-02,-1.28708E-03, 1.98602E-03, 8.89360E-04,
     &       -1.38307E-03,-4.28649E-04, 3.62679E-04,-1.29896E-05,
     &       -1.91535E-04,-1.56426E-04,-1.11033E-05, 1.15579E-04,
     &        7.15943E-02, 1.84816E-04, 4.91563E-03,-1.10299E-03,
     &       -2.35321E-03,-1.63941E-03,-5.29498E-04, 3.20964E-04,
     &       -5.32018E-04, 1.04054E-04,-8.33554E-05, 8.97719E-05,
     &       -7.70572E-05,-2.49095E-05,-7.32521E-03,-3.95206E-03,
     &       -2.17000E-04,-3.76665E-04,-1.37809E-04, 1.25362E-05,
     &        4.00522E-04,-3.27737E-04, 1.49564E-04, 2.07604E-05,
     &       -4.35189E-05,-2.22109E-05,-1.08480E-06,-1.62940E-02,
     &       -4.52750E-03, 1.85837E-03,-1.07651E-03, 3.52825E-04,
     &       -8.74765E-05,-2.13292E-04,-9.48708E-05,-2.39768E-05,
     &       -5.45631E-05, 4.05636E-05,-1.62992E-05, 1.30785E-05,
     &       -4.95464E-03, 1.06245E-03, 2.99153E-03, 7.48835E-04,
     &       -1.57116E-04,-2.03548E-04, 7.16243E-05, 1.52904E-05,
     &       -6.77809E-05,-5.17677E-05, 6.47526E-07,-3.73390E-05,
     &       -2.04983E-02,-2.68312E-03, 8.50328E-04, 3.33417E-04,
     &       -4.70444E-04, 1.01803E-04, 2.28712E-04,-6.43473E-07,
     &       -7.47744E-06, 2.18683E-06,-6.20827E-06, 2.20139E-05,
     &       -6.70190E-03,-1.19621E-03, 6.87972E-04, 4.21205E-04,
     &        2.33958E-04,-8.49430E-05, 4.84681E-06, 3.55123E-05,
     &        6.85256E-06, 2.66799E-05,-1.36713E-05,-2.86913E-03,
     &        6.57462E-04, 1.53167E-03, 6.91094E-04, 4.76579E-05,
     &       -1.21411E-04,-5.42687E-05, 7.36918E-05,-3.05213E-05,
     &       -3.56621E-05, 2.35322E-06, 8.59365E-04, 1.46080E-03,
     &       -7.40823E-04,-2.58563E-04, 1.77746E-04, 8.28235E-05,
     &       -2.23641E-05,-9.36582E-06, 1.78218E-05, 1.99563E-05,
     &        4.70404E-03,-1.44053E-03, 5.58172E-04, 2.69088E-04,
     &        1.63893E-04, 1.25566E-04,-3.49013E-05,-8.15463E-06,
     &       -2.95964E-06, 4.32930E-07, 5.02682E-03, 9.19167E-04,
     &       -1.32560E-03,-2.71438E-05, 5.29744E-05,-5.82632E-05,
     &       -1.90513E-05,-1.64222E-05, 5.89231E-06, 1.37138E-03,
     &       -1.45363E-03, 2.37319E-04,-1.68263E-05,-1.33392E-04,
     &        3.30460E-05,-2.45596E-05,-1.98491E-05,-1.24553E-06,
     &       -3.24323E-03, 1.68281E-03, 6.16467E-04, 1.25145E-04,
     &        1.95346E-05,-2.48044E-05, 2.24959E-05, 1.18350E-06,
     &       -4.29305E-03,-1.20320E-03,-3.01675E-04, 3.34564E-05,
     &       -3.09104E-05,-8.20401E-05,-5.62581E-06, 9.11591E-06,
     &       -6.68227E-03,-5.57482E-04, 6.94803E-04, 7.69067E-05,
     &        1.90134E-06, 3.68259E-05,-9.98844E-06,-4.25251E-03,
     &       -1.41282E-03, 8.63933E-04,-9.18071E-06,-4.23573E-05,
     &       -4.18672E-05,-3.01277E-06, 2.70733E-03,-1.45437E-04,
     &       -3.41228E-05,-1.08275E-04, 6.58438E-05,-2.52310E-05,
     &       -1.17524E-03, 8.51822E-04, 2.76256E-04,-6.01129E-05,
     &       -6.38170E-05, 1.78138E-05, 9.87683E-04, 8.06064E-04,
     &       -5.98073E-04,-1.03648E-04, 9.64552E-05, 7.25775E-03,
     &        1.29168E-03, 1.33524E-04,-1.86672E-04, 1.85322E-05,
     &       -2.44851E-03, 4.69093E-04,-1.53063E-04, 5.17061E-05,
     &       -3.96204E-03, 1.28860E-03,-2.77838E-04,-1.38614E-04,
     &        3.46779E-03,-2.02459E-04, 3.84055E-04,-3.64277E-03,
     &       -2.76439E-04,-1.56702E-04,-1.17112E-03,-1.70915E-04,
     &        4.67477E-03,-7.78270E-04,-6.81660E-03, 1.26178E-04/
C     long 150deg, sep_eq
      DATA (D(11,3,J),J=1,289)/-7.95171E-01,
     &        1.68663E-01,-2.01790E-01,-1.10276E-01,-3.05630E-01,
     &        5.02411E-02, 1.38529E-01, 4.74800E-02,-2.87593E-02,
     &        8.88978E-02, 1.61226E-01,-6.96678E-02,-5.63228E-02,
     &       -2.94957E-02, 3.52768E-02,-4.78398E-02,-1.14537E-01,
     &       -1.50892E-01,-8.59188E-03, 8.77929E-02, 1.21816E-02,
     &        4.26297E-02, 4.40042E-03, 3.79828E-02, 5.19024E-03,
     &        2.54731E-02,-3.26279E-03, 2.85057E-03, 8.61938E-04,
     &       -3.42028E-03,-4.59575E-03,-2.98644E-03,-6.20283E-04,
     &       -2.29104E-01, 3.27525E-02, 7.22528E-03, 1.13506E-02,
     &       -1.04798E-02, 1.65254E-02,-5.24268E-03, 1.91192E-02,
     &       -2.05879E-02, 9.05947E-03,-5.50122E-03,-3.43626E-03,
     &       -6.19416E-03, 1.08267E-03, 4.10612E-03, 4.34420E-04,
     &        6.92012E-02, 8.69436E-03, 9.33843E-03,-3.00531E-05,
     &        1.52573E-02,-5.96510E-03,-5.51370E-04,-1.34276E-03,
     &        4.09287E-03,-8.66025E-04,-1.36294E-03,-2.51047E-04,
     &        2.48439E-04,-6.30969E-04,-8.25344E-04,-4.57501E-03,
     &       -3.65305E-02, 2.18067E-02,-9.34352E-03, 1.54095E-03,
     &        2.63255E-03, 7.02553E-04, 4.28745E-04, 1.44676E-04,
     &        8.89619E-05,-1.13691E-03,-4.71698E-04,-1.06798E-04,
     &       -4.26074E-04, 4.93950E-04, 5.34547E-02, 2.88806E-03,
     &       -1.04916E-02,-1.36093E-03, 1.86552E-03,-1.39275E-04,
     &       -1.28277E-03,-7.88044E-05, 3.63452E-04,-4.23877E-05,
     &       -2.40531E-04,-6.65509E-05,-1.12539E-04, 6.53584E-05,
     &        6.70710E-02, 2.38252E-03, 2.98530E-03,-1.53634E-03,
     &       -1.30293E-03,-1.39305E-03,-8.76401E-04, 5.99842E-04,
     &       -3.99194E-04,-1.00002E-04,-3.72140E-04, 1.55216E-04,
     &       -1.69797E-05, 2.10584E-05,-2.81470E-03,-6.02225E-03,
     &        6.72362E-04,-7.08990E-04,-2.58552E-04,-7.38170E-05,
     &        2.92221E-04,-3.44072E-04, 1.08586E-04,-1.49911E-06,
     &        4.78252E-05,-1.90430E-05, 6.59826E-06,-9.58973E-03,
     &        3.75974E-04, 1.89174E-03,-8.21051E-04, 4.53533E-04,
     &       -3.90969E-04,-1.59409E-04, 6.35350E-05, 4.77546E-05,
     &       -1.37513E-05, 3.58178E-05, 5.05785E-05, 4.16114E-05,
     &       -6.37599E-03,-4.14694E-05, 2.10230E-03, 3.61665E-04,
     &       -1.61402E-04, 2.61177E-05,-3.87532E-05, 9.07431E-05,
     &       -1.28880E-04, 1.49963E-05,-2.54084E-05,-2.83687E-05,
     &       -2.57667E-02,-2.72213E-03, 8.28724E-04, 8.95773E-04,
     &       -3.37944E-04, 4.93558E-05, 1.71948E-04,-2.52948E-05,
     &       -4.08421E-05,-1.57525E-05,-1.58864E-05, 1.30227E-05,
     &        2.54165E-03, 1.38910E-04, 4.96551E-04, 3.77270E-05,
     &        2.12445E-04,-4.00371E-05,-1.77525E-05, 3.06570E-05,
     &        2.82623E-05, 2.53384E-05,-9.53513E-06, 3.29697E-03,
     &       -1.27969E-03, 1.34006E-03, 3.63020E-04, 5.71964E-05,
     &        4.67567E-05,-2.28384E-05, 5.25797E-05,-2.25488E-05,
     &       -8.37930E-07, 1.11318E-05, 1.84890E-03, 3.28793E-03,
     &       -8.66581E-04,-1.44971E-04, 2.79648E-04, 1.54027E-05,
     &       -2.36006E-05,-1.87831E-05, 3.37525E-05, 2.66203E-06,
     &        1.88394E-02,-1.63669E-03, 5.43657E-04, 6.34885E-05,
     &        1.32171E-04, 7.67927E-05,-1.02673E-05, 1.17123E-06,
     &        8.46664E-06,-4.54671E-06, 8.35059E-04,-5.37127E-04,
     &       -4.84695E-04,-1.46703E-04, 3.53972E-06, 1.63939E-06,
     &       -2.15912E-06,-3.64080E-06, 6.47988E-06, 4.97009E-03,
     &       -1.38813E-03,-5.90794E-05,-1.07504E-04, 6.20268E-06,
     &        3.42435E-05,-1.73850E-05,-8.54467E-06, 5.62206E-06,
     &       -4.49789E-03, 1.12864E-03, 2.98979E-04, 1.78778E-04,
     &       -1.31179E-04, 3.01340E-06,-1.79525E-06,-9.83367E-06,
     &       -3.07003E-03,-2.08357E-03,-3.95519E-04,-8.53997E-06,
     &        8.29835E-06,-5.76907E-05,-1.78370E-05, 9.37209E-06,
     &       -8.41895E-03,-5.04421E-04, 1.00046E-03, 1.57942E-04,
     &       -1.49860E-05, 1.24415E-05,-7.05968E-06,-7.64956E-03,
     &       -5.23483E-04, 2.05233E-04,-4.82378E-05,-8.30948E-05,
     &       -8.45349E-06, 3.99249E-06,-3.55520E-03,-1.29839E-03,
     &       -1.20761E-06,-7.20100E-05, 5.86905E-05,-1.55487E-05,
     &       -6.78989E-05, 8.20087E-04, 9.23940E-05,-7.48908E-05,
     &        4.10433E-05, 9.31689E-06,-2.79663E-03,-8.24068E-04,
     &        1.71537E-04,-1.44334E-04, 6.01170E-05, 3.04947E-03,
     &       -1.14153E-04, 4.72291E-04,-1.14450E-04,-7.58254E-06,
     &       -2.54733E-04, 7.25779E-04, 6.96903E-06, 3.48208E-05,
     &       -9.30279E-03, 2.89142E-04, 9.65871E-05,-1.49137E-04,
     &        6.75355E-03, 2.32320E-05, 3.15531E-04,-1.21751E-03,
     &       -6.95541E-04,-2.24411E-04,-2.72438E-03, 1.33401E-04,
     &       -1.82597E-03,-7.85867E-04,-7.20206E-03,-6.03337E-03/
C     long 165deg, sep_eq
      DATA (D(12,3,J),J=1,289)/-7.74581E-01,
     &        1.45169E-01,-2.72630E-01,-7.50021E-02,-2.84121E-01,
     &       -6.68030E-03, 2.14142E-01, 2.48620E-02,-8.29211E-03,
     &        1.35520E-01, 1.59886E-01,-5.15934E-02,-6.89270E-02,
     &       -3.32881E-02, 6.20322E-03,-4.92536E-02,-1.12323E-01,
     &       -1.74557E-01,-1.08309E-02, 1.04997E-01, 5.85847E-03,
     &        4.24221E-02, 4.37692E-04, 4.43499E-02, 8.03904E-03,
     &        2.17376E-02,-2.37080E-03, 1.25903E-04,-6.05739E-04,
     &       -5.69371E-03,-4.30586E-03,-4.87013E-03,-2.02879E-03,
     &       -1.84851E-01, 3.68515E-02, 2.49795E-03, 1.10460E-02,
     &        4.35424E-03, 2.06698E-02,-1.17451E-02, 1.81486E-02,
     &       -2.16127E-02, 7.16457E-03,-6.03573E-03,-1.89880E-03,
     &       -7.13517E-03, 9.67777E-04, 5.46632E-03, 1.65236E-03,
     &        6.74160E-02,-1.96474E-03, 2.18234E-02,-1.19483E-03,
     &        9.11186E-03,-5.59646E-03, 1.06805E-03,-9.55175E-04,
     &        2.41182E-03,-8.55292E-04,-9.13859E-04,-2.71328E-04,
     &       -1.89010E-04,-3.44307E-04,-8.99540E-04,-2.41376E-02,
     &       -4.10428E-02, 2.19702E-02,-1.31045E-02,-1.27863E-03,
     &        1.55516E-03, 1.28730E-04, 8.95850E-05,-9.86547E-04,
     &       -2.62541E-05,-6.00247E-04,-4.45994E-04,-4.10556E-04,
     &       -2.78027E-04, 6.32522E-04, 5.85787E-02, 3.22058E-03,
     &       -9.75163E-03,-1.87379E-04, 2.10535E-03,-6.34748E-04,
     &       -8.51407E-04,-2.16588E-04, 2.25819E-04,-1.62424E-04,
     &       -3.01168E-04,-3.80791E-05,-1.41081E-04,-2.96837E-05,
     &        6.71335E-02,-4.68837E-04, 4.23091E-03,-1.02996E-03,
     &       -1.52740E-03,-9.40998E-04,-5.44113E-04, 7.91320E-04,
     &       -3.34285E-04,-1.03553E-04,-2.63934E-04, 1.37342E-04,
     &        6.21561E-05, 7.34392E-05, 7.62657E-03,-7.25780E-03,
     &       -5.15706E-04,-1.32822E-03, 3.65267E-04,-3.99669E-05,
     &       -1.25881E-04,-1.81805E-04, 3.26096E-05, 2.52791E-05,
     &        1.49140E-05,-5.45714E-07, 1.08181E-05,-4.38758E-04,
     &        1.59512E-03, 9.98753E-04, 2.92580E-04, 8.78451E-04,
     &       -5.26429E-04,-3.85435E-05, 1.85670E-04, 7.98865E-05,
     &       -1.72266E-05, 3.68912E-05, 4.54547E-05, 4.35642E-05,
     &        4.24100E-03,-2.20471E-03, 1.60899E-03,-2.33358E-04,
     &       -2.12701E-04, 2.30852E-04,-8.74296E-05, 1.11113E-04,
     &       -1.18283E-04, 3.01205E-05,-1.66662E-05,-8.81736E-06,
     &       -2.11263E-02,-4.45132E-03,-4.58501E-04, 1.26619E-03,
     &       -4.89904E-05, 1.53167E-04, 5.04257E-05, 3.94521E-05,
     &       -7.46038E-05, 2.84821E-05,-3.69033E-05, 4.49283E-06,
     &        7.31208E-03, 1.15513E-03, 3.13356E-04, 1.40948E-05,
     &        1.36354E-04,-4.40318E-05,-3.30439E-06, 6.91690E-06,
     &        4.51621E-05,-1.59418E-06, 8.53229E-06, 1.15586E-02,
     &       -3.24758E-03, 9.37933E-04,-1.00600E-04, 8.63361E-05,
     &        3.08017E-05, 5.50797E-05, 1.73678E-05,-1.40140E-05,
     &        2.57019E-05, 1.04315E-05, 4.19687E-03, 3.08677E-03,
     &       -9.73387E-04, 2.77434E-04, 1.80310E-04, 3.17123E-05,
     &       -5.01768E-05,-1.85234E-05, 2.28063E-05,-5.55680E-06,
     &        2.18680E-02,-8.23570E-04, 5.24767E-04, 2.10120E-04,
     &        5.30452E-05, 2.80273E-05, 5.60913E-06, 2.17918E-05,
     &       -2.82029E-06,-7.19389E-06,-6.54963E-04, 1.19548E-03,
     &       -1.63631E-04,-3.26738E-04,-2.70834E-05, 3.54472E-05,
     &       -3.76940E-06, 4.18754E-06, 5.58124E-06, 8.68472E-03,
     &       -3.46053E-04,-4.04841E-04,-1.47525E-05, 6.13108E-06,
     &        5.35615E-05,-1.55515E-05, 3.34016E-07, 4.04138E-06,
     &        2.10308E-05, 7.46944E-04, 2.20420E-04,-3.01826E-05,
     &       -1.62577E-04, 8.57916E-06,-7.13169E-06,-1.13357E-06,
     &       -3.51986E-04,-1.02046E-03,-2.63906E-04,-4.92435E-05,
     &       -3.77526E-05, 1.97183E-05,-7.13979E-06, 5.90453E-06,
     &       -1.31676E-03, 4.31705E-04, 3.92225E-04, 6.44921E-05,
     &       -8.11298E-06,-3.99975E-05,-2.90127E-06,-1.98749E-03,
     &       -8.47039E-04,-1.47919E-04,-3.84490E-05,-1.05649E-04,
     &        1.78585E-05, 9.00573E-06,-3.85139E-03,-4.89784E-04,
     &       -7.78909E-05, 6.15745E-05, 5.03512E-05,-2.90189E-05,
     &       -3.98495E-04, 6.32114E-04, 1.20354E-04, 1.01422E-04,
     &        4.53790E-05,-4.67616E-06,-1.74851E-03,-1.51557E-03,
     &        2.01888E-04,-7.51962E-05, 2.16412E-05,-4.77640E-03,
     &        5.86589E-04, 3.64810E-04,-2.19957E-05,-1.41072E-05,
     &        2.97016E-03,-1.94242E-04,-5.98337E-05, 2.89353E-05,
     &       -1.26582E-02,-4.67604E-04, 4.92672E-05,-5.22185E-05,
     &        7.22886E-03, 2.20979E-04, 1.22267E-04,-6.89827E-03,
     &        9.99320E-05, 1.09239E-06, 5.39300E-04,-9.30947E-05,
     &       -4.85477E-03, 1.63467E-04,-5.87165E-03, 1.28897E-03/
C     long 180deg, sep_eq
      DATA (D(13,3,J),J=1,289)/-7.64499E-01,
     &        1.49149E-01,-3.43527E-01,-5.97281E-02,-2.77344E-01,
     &       -4.68049E-02, 2.46846E-01,-1.02208E-02, 2.55007E-02,
     &        1.36067E-01, 1.90066E-01,-5.80763E-02,-7.97445E-02,
     &       -2.80074E-02,-7.36836E-03,-3.40973E-02,-1.32131E-01,
     &       -1.96135E-01,-2.30221E-03, 1.12011E-01,-1.33161E-02,
     &        5.45422E-02,-7.27253E-03, 4.76512E-02, 3.47305E-03,
     &        2.19698E-02,-1.34380E-03,-2.99535E-03,-1.68326E-04,
     &       -7.94741E-03,-2.32849E-03,-7.89710E-03,-1.40213E-03,
     &       -1.58473E-01, 3.60263E-02, 2.79905E-03, 1.55745E-02,
     &        1.06764E-02, 1.35479E-02,-1.87792E-02, 1.35384E-02,
     &       -2.33236E-02, 2.81282E-03,-9.63105E-03,-1.83332E-03,
     &       -5.97330E-03,-5.52631E-04, 7.43856E-03, 3.43771E-03,
     &        4.86781E-02,-5.24751E-03, 3.02089E-02,-7.75938E-03,
     &        4.66645E-03,-2.09362E-03, 7.77912E-04,-1.05648E-03,
     &        1.56824E-03,-2.41607E-04,-1.23916E-03,-1.66994E-04,
     &       -6.03494E-04,-4.58590E-04,-1.10592E-03,-4.49838E-02,
     &       -5.04852E-02, 2.47144E-02,-1.35432E-02, 3.63807E-04,
     &       -1.96712E-04, 7.90454E-05, 7.94868E-04,-1.50395E-03,
     &       -3.49165E-05,-8.43981E-04, 1.71845E-05,-7.51058E-04,
     &       -2.37611E-04, 8.23738E-04, 5.59603E-02, 5.61405E-03,
     &       -1.13484E-02, 3.03952E-04, 2.05869E-03,-5.85775E-04,
     &       -5.36507E-04,-5.90214E-04, 3.91275E-04,-1.09465E-04,
     &       -3.24944E-04, 4.44344E-05,-1.82276E-05, 1.12056E-06,
     &        6.78870E-02,-7.16645E-03, 6.62234E-03, 3.41777E-04,
     &       -2.00975E-03,-8.84142E-04,-3.97429E-05, 1.13881E-03,
     &       -3.91019E-04, 2.35903E-05, 2.16673E-05, 1.22602E-04,
     &        2.44858E-05, 3.69009E-05,-4.22192E-04,-5.72252E-03,
     &       -1.54384E-03,-8.57992E-04, 4.22848E-04, 2.53121E-05,
     &        3.92681E-05,-2.44897E-04, 5.48929E-05,-7.76306E-05,
     &        1.00648E-07,-4.23299E-06, 4.70826E-05, 1.20449E-03,
     &        3.42437E-03, 4.11494E-04, 9.62974E-04,-1.25805E-04,
     &       -1.36891E-04,-1.00525E-04, 1.89381E-04, 5.10168E-05,
     &       -8.01847E-05, 1.26873E-05, 1.93945E-05, 4.04907E-06,
     &        4.20929E-03,-5.13474E-03, 2.29184E-03,-1.04364E-04,
     &       -3.04669E-04, 3.28749E-04, 4.84869E-05, 4.77438E-05,
     &       -9.80025E-05, 1.78799E-05,-6.25912E-06, 6.86530E-06,
     &       -2.11608E-02,-3.04964E-03,-6.45193E-04, 1.16094E-03,
     &        8.00418E-05, 2.13096E-04, 9.38486E-05, 5.90294E-05,
     &        6.82962E-06, 1.08142E-05, 2.17055E-05, 4.98158E-06,
     &        7.08276E-04, 1.98345E-03, 6.99113E-04, 3.82844E-05,
     &       -9.78399E-05,-4.59349E-05, 1.14810E-05,-2.05164E-05,
     &        2.90953E-05,-3.53696E-06, 4.31987E-06, 1.06417E-02,
     &       -3.67174E-03, 9.51968E-04,-3.25137E-04,-4.61195E-05,
     &       -4.24594E-06, 3.24965E-05, 3.21176E-05,-3.95591E-05,
     &        4.21850E-06,-4.86882E-06,-5.24961E-03, 3.50097E-03,
     &       -8.80044E-04, 5.32342E-04, 1.26008E-04, 1.01932E-04,
     &       -4.65143E-05, 3.31823E-06, 1.78528E-05,-2.39716E-06,
     &        1.65212E-02, 1.60591E-03, 2.02420E-04,-2.28102E-05,
     &       -2.49799E-06, 2.59916E-06, 2.86145E-05, 1.01750E-05,
     &        3.47416E-06, 2.30718E-06,-5.42243E-03, 1.11196E-03,
     &       -1.61020E-04,-2.25713E-04,-5.33266E-06,-3.01700E-05,
     &       -1.25116E-06, 2.93015E-06, 4.26156E-06, 4.99097E-03,
     &        6.61746E-04, 1.95556E-05, 1.30700E-04,-5.01828E-05,
     &        3.81553E-05,-4.86000E-05, 1.30381E-05,-1.42032E-06,
     &       -9.04080E-04,-7.10695E-04,-1.73615E-04, 3.35696E-05,
     &       -1.00975E-04, 1.46833E-05, 6.11874E-06, 1.26436E-05,
     &       -5.16772E-03, 2.65710E-04, 1.31490E-04, 4.24240E-05,
     &       -7.44165E-05, 4.26261E-05, 2.88350E-06, 5.79292E-06,
     &       -1.13004E-03, 1.44590E-04,-2.48838E-04,-7.89377E-05,
     &       -1.29102E-05,-1.20825E-05,-1.01737E-06,-1.26389E-03,
     &       -2.21330E-04, 2.36452E-04,-3.44295E-05,-1.03894E-04,
     &        3.08689E-05,-9.54048E-06, 9.06650E-03, 4.14098E-05,
     &       -2.45292E-04, 1.08340E-05, 7.57611E-05,-4.71552E-05,
     &       -7.67251E-04,-4.79713E-04, 3.27787E-04,-9.00740E-06,
     &       -2.17677E-05,-4.03263E-06, 6.16416E-03,-4.39604E-04,
     &       -4.31016E-04, 3.85870E-05,-6.15054E-06, 3.42731E-03,
     &        1.16217E-03, 2.72413E-04, 1.22956E-04,-3.39441E-06,
     &        9.23487E-03,-1.35980E-03,-5.12700E-04,-2.22609E-05,
     &       -4.97472E-03, 1.63877E-04, 1.32809E-05, 1.04770E-04,
     &        2.39249E-03, 2.90539E-04,-1.42375E-04,-5.24807E-03,
     &        4.10480E-04,-2.15376E-04, 5.75280E-03,-8.44701E-04,
     &        1.21574E-03, 3.03685E-04,-3.43195E-03, 4.97178E-03/
C     long 195deg, sep_eq
      DATA (D(14,3,J),J=1,289)/-7.67284E-01,
     &        1.64765E-01,-3.74808E-01,-6.26749E-02,-3.18021E-01,
     &       -4.16112E-02, 2.22387E-01,-5.45347E-02, 5.66032E-02,
     &        9.35554E-02, 1.93071E-01,-8.03345E-02,-7.07067E-02,
     &       -3.42994E-02, 2.31667E-03, 6.90703E-04,-1.43494E-01,
     &       -1.90580E-01,-1.63063E-03, 1.10200E-01,-3.24815E-02,
     &        6.63836E-02,-1.08895E-02, 4.42784E-02,-3.46174E-04,
     &        2.33353E-02,-5.11148E-03,-7.70078E-03,-2.71959E-05,
     &       -9.47848E-03,-3.75746E-03,-1.06598E-02,-2.72589E-05,
     &       -1.70013E-01, 3.72121E-02, 1.39250E-03, 1.41476E-02,
     &        2.65114E-03, 1.86903E-03,-2.35459E-02, 6.26196E-03,
     &       -2.41685E-02,-1.86588E-03,-1.28015E-02,-4.96682E-03,
     &       -5.47295E-03,-1.08897E-03, 7.16012E-03, 2.85386E-03,
     &        2.56912E-02,-2.15855E-03, 2.85918E-02,-1.64069E-02,
     &        2.23851E-03,-2.40016E-04, 6.27505E-04,-1.74684E-03,
     &        1.76809E-03, 2.11571E-04,-1.92242E-03, 2.81004E-04,
     &       -6.16678E-04,-5.46271E-04,-1.05924E-03,-6.80399E-02,
     &       -4.19321E-02, 2.59576E-02,-1.15999E-02, 2.91158E-03,
     &        1.96846E-03, 9.59243E-04, 1.24402E-03,-9.32318E-04,
     &        4.54516E-04,-9.26060E-04, 1.95006E-04,-6.74972E-04,
     &       -7.60720E-05, 6.16923E-04, 4.84370E-02, 7.43066E-03,
     &       -1.06859E-02,-4.22871E-04, 1.92392E-03, 2.46565E-04,
     &       -9.57085E-04,-1.21144E-04, 3.39478E-04, 2.30365E-04,
     &       -3.32586E-04, 3.73603E-05, 8.64663E-05,-4.51797E-05,
     &        6.50604E-02,-1.15196E-02, 8.67658E-03, 1.84771E-04,
     &       -2.30979E-03,-2.11158E-04, 4.30462E-04, 9.43534E-04,
     &       -6.12275E-04,-1.51238E-05, 8.83667E-05,-5.16142E-05,
     &       -1.03425E-04,-5.07867E-05,-7.71252E-03,-4.63772E-03,
     &       -8.02436E-04,-2.42619E-04, 4.30487E-04,-1.33255E-04,
     &        3.20118E-04,-4.80918E-04, 1.45753E-04,-1.33445E-04,
     &        6.77455E-05,-3.84542E-05, 5.82521E-05,-9.94644E-03,
     &        3.83976E-03, 9.03436E-04, 9.07452E-05,-7.05595E-04,
     &        9.46283E-05,-2.30713E-04, 1.06140E-04,-8.67306E-05,
     &        8.19151E-06,-3.59674E-05, 9.62424E-06,-1.78798E-05,
     &        7.30882E-03,-3.25992E-03, 2.18841E-03, 2.47747E-04,
     &       -2.29503E-04, 2.97397E-04,-2.94184E-05, 4.64263E-05,
     &       -1.07648E-04, 3.57923E-05,-1.04046E-05, 1.84321E-06,
     &       -2.22480E-02,-2.44243E-03, 2.24148E-04, 6.34110E-04,
     &        2.35587E-04, 1.21517E-04, 2.89774E-04,-5.87912E-05,
     &        8.94296E-05,-3.36048E-05, 7.78194E-05,-2.41069E-06,
     &        4.08336E-03, 1.90171E-03, 4.14674E-04, 1.55270E-04,
     &       -1.71441E-04, 1.77602E-05,-1.00204E-05, 1.48583E-06,
     &        6.51613E-06, 3.06195E-06,-1.05884E-05, 1.02063E-02,
     &       -2.18415E-03, 5.17271E-04,-2.61043E-04,-2.48191E-04,
     &        1.34533E-04, 9.40208E-06, 5.22918E-05,-3.32699E-05,
     &       -6.30485E-06, 3.33065E-07,-6.43984E-03, 3.10553E-03,
     &       -1.04650E-03, 4.30088E-04, 2.23824E-04, 9.18571E-05,
     &       -5.02068E-05, 3.17882E-05, 1.66485E-05, 7.10774E-06,
     &        1.46130E-02, 2.60866E-03,-2.57964E-04, 1.01294E-04,
     &       -9.29881E-05, 1.90032E-05, 3.44926E-05,-6.11683E-06,
     &        1.23247E-05,-9.80695E-07,-6.89786E-03, 1.86039E-04,
     &       -4.75955E-04,-2.39402E-04, 9.24631E-05,-6.29278E-05,
     &       -4.31833E-06,-1.05037E-05,-1.04104E-06, 1.97152E-04,
     &        8.23426E-04, 7.68448E-05, 4.53939E-05, 3.91788E-05,
     &       -1.46754E-05,-4.66898E-05, 7.49987E-08, 3.34747E-06,
     &       -7.75279E-03, 6.71946E-04,-3.35787E-04,-6.21805E-05,
     &       -8.25509E-05, 4.48009E-05, 1.60037E-06, 1.70220E-05,
     &       -8.79543E-03,-3.79379E-04, 4.34058E-04, 7.96596E-05,
     &       -8.42288E-05, 2.61525E-05, 3.79455E-06, 5.49547E-07,
     &       -7.24864E-03, 8.64119E-04,-1.53350E-05,-2.07253E-04,
     &       -2.51768E-05, 2.49024E-05, 9.13925E-06,-1.06140E-02,
     &        1.37585E-03, 2.29025E-04,-2.78723E-05,-6.18373E-05,
     &        4.86096E-05,-5.06468E-07, 5.10212E-03, 8.04392E-04,
     &       -3.83491E-05,-1.96484E-04, 4.28443E-05,-1.90579E-05,
     &       -3.71550E-03,-2.89569E-04, 5.00366E-04,-8.24812E-05,
     &        7.96733E-06,-9.09386E-06, 1.28958E-02,-1.94805E-04,
     &       -2.78848E-04, 7.54765E-06,-3.57485E-06, 1.82199E-03,
     &        1.84212E-03, 6.85548E-05, 9.67246E-05, 3.41848E-06,
     &        5.53362E-03,-1.34427E-04,-4.96088E-04,-1.80061E-05,
     &       -1.83842E-03, 1.02445E-03,-1.28402E-04, 1.38715E-04,
     &        4.52343E-03,-2.61565E-04,-2.04337E-04,-5.68965E-03,
     &        7.80902E-04,-2.65602E-04, 5.61401E-03,-4.15400E-04,
     &        2.83285E-03, 5.68093E-05, 4.31596E-03, 8.45193E-03/
C     long 210deg, sep_eq
      DATA (D(15,3,J),J=1,289)/-7.85930E-01,
     &        1.77478E-01,-3.79861E-01,-6.18964E-02,-3.66917E-01,
     &       -1.65239E-02, 2.22287E-01,-8.35393E-02, 9.15338E-02,
     &        5.87247E-02, 1.74538E-01,-8.56161E-02,-6.95558E-02,
     &       -4.28160E-02,-9.95427E-04, 5.42938E-03,-1.22388E-01,
     &       -1.77209E-01,-7.69394E-03, 1.11400E-01,-3.74607E-02,
     &        6.44992E-02,-5.02969E-03, 3.94549E-02, 2.07720E-03,
     &        1.87314E-02,-5.91460E-03,-1.35548E-02, 1.08832E-04,
     &       -1.14717E-02,-7.23911E-03,-1.11582E-02,-2.53482E-03,
     &       -2.07655E-01, 4.05933E-02, 9.50152E-03, 4.58655E-03,
     &       -5.76048E-03,-8.07079E-03,-2.19635E-02, 1.21081E-03,
     &       -2.75736E-02,-5.54882E-03,-1.49589E-02,-6.24361E-03,
     &       -6.88043E-03,-2.27781E-03, 7.73356E-03,-7.17561E-04,
     &        2.62759E-02,-7.00808E-03, 2.45490E-02,-2.03378E-02,
     &        2.43387E-03,-4.18902E-04,-9.74241E-05,-1.67011E-03,
     &        2.17139E-03,-1.75586E-07,-2.29230E-03, 2.47542E-04,
     &       -3.46483E-04,-4.70121E-04,-1.11189E-03,-9.15473E-02,
     &       -2.09895E-02, 1.88467E-02,-9.50759E-03, 1.43883E-03,
     &        5.42477E-03,-2.56546E-04, 2.11589E-03,-1.12644E-03,
     &        1.50514E-03,-1.20547E-03, 4.44785E-04,-1.33884E-04,
     &       -2.78929E-04, 4.41917E-04, 4.39353E-02, 6.61382E-03,
     &       -9.16651E-03,-1.73123E-03, 1.52587E-03, 3.82363E-04,
     &       -9.50608E-04,-9.75989E-05, 4.20978E-04, 1.75724E-04,
     &       -2.47849E-04,-1.01300E-04, 9.43291E-06,-1.99777E-05,
     &        6.50679E-02,-1.11943E-02, 1.05949E-02,-1.11205E-03,
     &       -1.50702E-03, 9.00322E-04, 1.11368E-03, 7.90352E-04,
     &       -4.59766E-04, 6.62982E-06, 1.30090E-04,-5.93163E-05,
     &       -1.07873E-04,-8.60330E-05,-6.36168E-03, 7.66870E-04,
     &       -1.99544E-04, 4.97311E-04, 3.96579E-04,-1.36626E-04,
     &        1.39982E-04,-2.81040E-04, 1.24666E-04,-1.87955E-05,
     &       -6.67827E-06,-2.85002E-05, 2.93023E-05,-1.53017E-02,
     &        3.80243E-03, 1.32840E-03,-8.70854E-04,-3.70852E-04,
     &       -1.03491E-04,-1.75866E-04,-1.65455E-04, 1.63965E-05,
     &       -1.29284E-04, 4.58337E-06,-8.04921E-05, 5.99693E-06,
     &        1.14456E-02,-9.06639E-04, 2.47846E-03, 4.10337E-04,
     &        5.79467E-05, 2.93606E-04,-2.84323E-05, 9.81024E-05,
     &       -6.88706E-05, 3.50475E-05, 9.91288E-06, 1.09110E-05,
     &       -2.35524E-02,-1.31104E-03, 7.82927E-05,-5.31690E-06,
     &        1.11696E-04, 3.24923E-05, 1.91734E-04,-5.94741E-05,
     &       -5.61236E-06, 1.66635E-05, 1.45862E-05, 2.16111E-05,
     &        9.95311E-03,-4.57708E-04,-4.07272E-04, 5.35220E-04,
     &       -2.18371E-04, 6.44581E-05,-2.40484E-06, 2.47385E-05,
     &        4.68189E-06,-2.55977E-05, 5.35353E-06, 1.27710E-02,
     &       -1.95395E-03, 8.13650E-04,-7.38455E-04, 1.05380E-04,
     &        7.75241E-05, 3.15484E-05, 1.77571E-05,-5.05408E-06,
     &       -4.08980E-06, 5.45615E-06, 2.48388E-03, 1.99967E-03,
     &       -1.36588E-03, 6.70751E-04, 7.42407E-05, 6.60456E-05,
     &       -7.28977E-05, 3.74330E-05,-1.65543E-06, 7.80373E-06,
     &        9.17049E-03, 6.93717E-04,-8.49575E-04, 3.41998E-05,
     &       -1.72929E-04, 4.75068E-05, 8.95991E-06, 2.07235E-06,
     &       -2.70513E-06,-9.36349E-06, 2.78588E-03,-1.99449E-03,
     &       -5.51321E-04,-9.16031E-05, 1.39722E-04,-8.59423E-05,
     &        1.06191E-05,-2.16274E-05, 1.19931E-05, 3.57432E-03,
     &        7.52629E-04,-5.36187E-04, 9.63394E-05, 4.82064E-05,
     &       -1.97124E-05,-2.84779E-05, 2.06779E-07,-8.86164E-06,
     &       -5.86893E-03, 8.11425E-04, 1.04941E-04,-1.36689E-04,
     &       -7.76881E-05, 3.02338E-05, 9.54888E-06, 5.51524E-06,
     &       -4.86495E-03,-1.13046E-03, 2.85908E-04,-2.46471E-05,
     &       -8.49622E-05,-3.89021E-06,-2.68213E-05,-3.09760E-06,
     &       -6.22677E-03, 1.29143E-03,-3.53648E-04,-9.22986E-05,
     &       -6.69172E-05, 4.06095E-05, 7.57874E-06,-3.62701E-03,
     &        1.24778E-03,-3.49008E-04, 2.92899E-05,-1.47245E-05,
     &        1.62862E-05, 6.48159E-06, 1.53567E-03, 9.34117E-04,
     &       -3.97082E-04,-1.70378E-04, 5.73771E-05, 1.67378E-05,
     &       -7.10819E-04, 1.34124E-03,-1.96832E-04, 1.37977E-05,
     &        5.00085E-05,-8.76757E-06, 3.50559E-03,-9.13365E-04,
     &        1.73745E-04,-2.23269E-05, 2.12211E-05,-2.13823E-03,
     &        1.99484E-03,-3.25511E-04,-4.44222E-05, 3.43952E-05,
     &       -1.35820E-03,-5.00204E-04,-2.03188E-04,-6.31477E-06,
     &       -3.59203E-03, 1.10177E-03, 1.84965E-05, 5.09344E-05,
     &        2.26268E-03,-6.29485E-05,-4.95548E-05,-6.39310E-03,
     &        2.54224E-04,-1.27255E-04, 5.37021E-03, 4.24570E-04,
     &        6.68525E-04, 6.76979E-05, 6.13122E-03, 1.32116E-02/
C     long 225deg, sep_eq
      DATA (D(16,3,J),J=1,289)/-8.20847E-01,
     &        1.88127E-01,-3.86894E-01,-4.54926E-02,-3.64074E-01,
     &        9.39398E-03, 2.45935E-01,-5.88919E-02, 1.10317E-01,
     &        4.44558E-02, 1.49098E-01,-7.05362E-02,-1.02284E-01,
     &       -3.73590E-02,-1.89752E-02,-9.44047E-03,-1.05429E-01,
     &       -1.60666E-01,-2.28373E-02, 1.07278E-01,-3.04950E-02,
     &        5.99512E-02,-8.84249E-05, 3.55842E-02, 9.59194E-03,
     &        1.11645E-02,-2.40498E-03,-1.41017E-02, 5.07159E-04,
     &       -1.11319E-02,-6.62983E-03,-8.96220E-03,-5.36238E-03,
     &       -2.38996E-01, 3.98921E-02, 1.68866E-02, 1.90783E-03,
     &       -1.73036E-02,-5.88330E-03,-2.13371E-02,-7.14146E-04,
     &       -2.65749E-02,-8.52409E-03,-1.43485E-02,-5.43085E-03,
     &       -5.80514E-03,-5.18782E-03, 7.53336E-03,-3.42658E-03,
     &        5.56983E-02,-2.69568E-02, 1.91037E-02,-2.03449E-02,
     &        5.15820E-03,-1.75460E-03,-4.46110E-04,-6.02817E-05,
     &        2.15835E-03, 5.15916E-04,-2.54589E-03,-1.23369E-04,
     &       -3.04041E-04,-4.34937E-05,-1.63572E-03,-9.67015E-02,
     &       -1.77298E-02, 1.01929E-02,-8.76073E-03, 6.15602E-04,
     &        5.80163E-03,-2.46159E-03, 3.06548E-03,-1.14901E-03,
     &        1.58096E-03,-2.45678E-03, 7.95776E-04,-6.42032E-05,
     &       -5.65302E-04, 4.46313E-04, 5.32476E-02, 2.18053E-03,
     &       -9.75242E-03,-1.58791E-03, 6.43257E-05, 2.05132E-04,
     &       -3.82123E-04,-3.67803E-04, 5.22389E-04, 6.27205E-05,
     &        9.30854E-05,-1.21925E-04, 1.49439E-05, 9.02607E-05,
     &        7.45477E-02,-1.11468E-02, 8.47553E-03,-1.48721E-03,
     &       -1.04288E-03, 1.50251E-03, 1.10787E-03, 8.93630E-04,
     &       -2.53014E-04, 2.93497E-05, 1.43696E-04,-1.93654E-04,
     &       -4.76838E-05,-1.72608E-04,-1.11259E-02, 5.16124E-03,
     &        5.91893E-04, 1.38269E-03,-2.33133E-04, 2.85367E-04,
     &       -9.45555E-05, 3.16438E-05,-5.33268E-05, 1.49457E-04,
     &       -2.43366E-05, 2.05628E-06, 2.74930E-05,-2.84456E-03,
     &       -1.20302E-03, 3.05212E-04,-2.66491E-04,-1.00960E-03,
     &       -5.89222E-05,-5.79500E-05,-2.27811E-04, 6.94034E-05,
     &       -1.90132E-04, 6.05239E-05,-4.93816E-05,-6.82624E-07,
     &        1.36439E-03,-7.98643E-04, 2.93622E-03,-9.97685E-05,
     &        3.70748E-04, 2.07047E-04, 1.35333E-05, 1.29002E-05,
     &       -5.80180E-05, 2.73094E-05, 4.51040E-05, 9.55738E-06,
     &       -2.04876E-02,-7.72132E-04,-6.43639E-04, 3.71520E-04,
     &       -2.97756E-04,-1.78604E-04, 1.06782E-04,-9.27537E-05,
     &       -1.81732E-05, 2.68652E-05, 6.01475E-06, 9.28245E-06,
     &        8.27747E-03, 1.32992E-04,-2.94988E-04, 1.01129E-04,
     &       -5.60478E-05, 5.09497E-05,-4.63680E-05, 6.62383E-05,
     &       -1.97486E-05,-2.13525E-05,-5.03206E-06, 4.75865E-03,
     &       -2.50020E-03, 1.36359E-03,-8.52816E-04, 2.27390E-04,
     &       -7.69175E-05, 6.99527E-05,-5.19381E-05,-1.10954E-05,
     &        1.30314E-05,-1.02878E-05, 6.53525E-03, 1.85929E-03,
     &       -1.36722E-03, 6.25080E-04,-1.67071E-05, 2.66469E-05,
     &       -5.59081E-05, 1.03270E-05, 1.63776E-05,-9.11011E-06,
     &        4.34582E-03, 4.25205E-04,-4.11504E-04,-2.86437E-04,
     &       -2.30597E-05, 3.76460E-05,-2.97757E-05, 4.42102E-06,
     &       -1.43837E-05,-1.04972E-05, 9.88687E-03,-1.93296E-03,
     &       -6.32151E-04, 8.41586E-05, 1.63644E-05,-9.24144E-05,
     &       -5.90291E-06,-1.55864E-05, 1.54461E-05, 7.41693E-03,
     &        1.24387E-03,-4.42605E-04, 6.92053E-05, 5.38114E-06,
     &       -1.14977E-05,-2.67171E-05, 1.08402E-05,-1.01305E-05,
     &       -7.53860E-04,-9.72378E-04, 2.79617E-05,-7.83895E-07,
     &       -7.97468E-05,-3.94130E-05, 2.88952E-05,-3.35790E-06,
     &        3.63355E-03,-4.59143E-04, 1.64789E-04,-1.35524E-04,
     &       -9.37572E-05, 6.96994E-06,-3.19415E-05,-1.22312E-06,
     &       -9.22332E-05,-3.06199E-04,-4.34289E-04, 3.63528E-05,
     &       -9.97647E-05, 4.54466E-05,-1.73240E-05, 6.49994E-03,
     &       -1.38811E-03, 6.45596E-05, 1.67462E-04,-3.13440E-05,
     &       -8.33682E-06,-6.54161E-07,-1.42299E-03,-5.89611E-04,
     &       -6.02010E-04,-1.61343E-04, 4.65525E-05, 1.86793E-05,
     &        6.07941E-03, 6.47387E-04,-1.16785E-04, 8.81634E-06,
     &        6.23458E-07,-1.28200E-05,-6.01221E-03,-9.09148E-05,
     &        1.30997E-04, 2.49040E-05, 1.28479E-05, 3.25000E-03,
     &        9.07903E-04,-2.96324E-04, 4.84039E-05, 1.07232E-05,
     &       -9.87037E-03,-9.49159E-04, 3.05244E-04,-7.15777E-05,
     &       -7.15406E-03, 8.53273E-04, 4.38217E-05, 4.39440E-05,
     &       -1.19289E-03, 6.78092E-05, 1.60498E-04,-8.86894E-03,
     &       -1.02138E-03, 1.91634E-04, 8.78126E-03, 4.65494E-04,
     &        2.65712E-05, 2.62614E-05, 4.67618E-03, 9.28710E-03/
C     long 240deg, sep_eq
      DATA (D(17,3,J),J=1,289)/-8.52984E-01,
     &        1.73309E-01,-3.95358E-01,-1.83402E-02,-3.14857E-01,
     &        5.98029E-02, 2.31875E-01,-1.66495E-02, 1.29196E-01,
     &        3.99945E-02, 1.29987E-01,-8.55062E-02,-1.10738E-01,
     &       -4.07685E-02,-1.88228E-02,-3.48130E-02,-1.06593E-01,
     &       -1.61879E-01,-4.15666E-02, 9.56695E-02,-2.00391E-02,
     &        6.09253E-02,-4.26432E-03, 3.17040E-02, 1.59615E-02,
     &        9.21476E-03, 1.08804E-03,-1.48999E-02, 3.73290E-03,
     &       -1.37897E-02,-2.13228E-03,-1.17891E-02,-3.97175E-03,
     &       -2.44632E-01, 3.35387E-02, 2.02936E-02, 2.57092E-03,
     &       -2.03968E-02, 4.00628E-03,-2.81536E-02, 1.39152E-03,
     &       -2.45016E-02,-6.55038E-03,-1.53436E-02,-3.60649E-03,
     &       -5.13140E-03,-6.55801E-03, 6.77418E-03,-6.15124E-03,
     &        6.18379E-02,-3.03436E-02, 1.15121E-02,-1.88985E-02,
     &        7.25547E-03,-1.98365E-03,-2.12682E-04, 1.27748E-03,
     &        2.48063E-03, 4.89787E-04,-2.82763E-03, 2.18039E-04,
     &       -6.49775E-04,-1.25642E-04,-1.73146E-03,-7.55142E-02,
     &       -3.13720E-02, 2.13014E-03,-7.24845E-03, 4.48759E-04,
     &        6.04996E-03,-3.39782E-03, 2.78821E-03,-1.37925E-03,
     &        9.08747E-04,-2.76635E-03, 5.77777E-04, 4.44398E-05,
     &       -6.14823E-04, 3.39813E-04, 5.41455E-02, 2.59914E-03,
     &       -8.97990E-03,-1.97375E-03,-7.24504E-04,-1.02666E-04,
     &       -4.54480E-04, 6.92522E-05, 2.61891E-04, 2.15499E-04,
     &        1.83087E-04,-5.91898E-05, 1.65743E-04, 6.89263E-05,
     &        7.63971E-02,-5.39958E-03, 2.14217E-03,-1.06327E-03,
     &       -1.48401E-03, 1.58532E-03, 9.27509E-04, 8.04809E-04,
     &        2.43672E-04,-2.28178E-04, 1.25945E-04,-2.51916E-04,
     &        4.01363E-05,-1.64484E-04,-1.25427E-02, 3.25744E-03,
     &        1.59213E-03, 1.81836E-03, 9.38033E-05, 4.76050E-04,
     &       -5.63850E-05,-7.19115E-05,-1.42959E-04, 1.87789E-04,
     &        1.21755E-05, 3.94874E-05,-1.14236E-05, 8.94652E-03,
     &       -2.20807E-03, 9.12144E-04, 5.79621E-05,-1.00937E-03,
     &        2.28094E-04, 8.62353E-06, 1.39922E-04, 9.10284E-05,
     &        2.12241E-05, 4.92554E-05, 3.83988E-05,-2.76295E-05,
     &       -7.07308E-03,-2.52232E-03, 1.80695E-03,-1.90484E-04,
     &        1.92815E-04, 1.02827E-04,-5.43153E-05,-1.38620E-04,
     &       -4.36306E-05,-2.66082E-05, 3.44708E-05,-1.93911E-05,
     &       -1.78017E-02,-2.28596E-03,-4.07619E-04, 6.09381E-04,
     &       -4.10634E-04,-3.27761E-04, 7.77118E-05,-1.67605E-04,
     &       -3.47884E-05, 7.33260E-06,-8.09445E-06,-2.07327E-05,
     &        3.59790E-03, 2.46150E-03, 3.66479E-04,-4.34815E-04,
     &        1.19415E-04,-7.37943E-05,-5.12531E-06, 6.83190E-05,
     &       -1.22776E-05,-9.25585E-06,-8.30349E-07, 4.01155E-03,
     &       -2.68224E-03, 2.96945E-04,-5.92579E-04, 1.27907E-04,
     &       -1.17186E-04, 8.57647E-05,-7.66518E-05, 1.10933E-05,
     &       -4.35638E-06,-4.03122E-07,-3.09237E-03, 2.83846E-03,
     &       -7.68480E-04, 2.74989E-04, 1.11270E-04,-6.55046E-05,
     &        6.98311E-06,-2.03295E-05, 1.87454E-05,-1.83910E-06,
     &        1.03988E-02, 2.62366E-03,-3.98306E-04, 1.68568E-04,
     &       -1.08831E-04, 4.87424E-05,-1.21241E-05, 1.25871E-05,
     &       -6.90732E-06,-1.04548E-05,-1.79334E-03,-8.01017E-06,
     &       -3.35842E-04,-1.97032E-05, 1.04251E-05,-6.17299E-05,
     &       -3.16645E-05,-7.32191E-06,-5.78676E-06, 1.21417E-02,
     &        2.20855E-03, 1.43626E-04, 2.00613E-04,-8.42982E-05,
     &       -5.28519E-05,-1.28844E-05,-7.33169E-07,-2.52652E-07,
     &       -2.16692E-04,-1.13844E-03,-7.92118E-04, 3.38252E-06,
     &       -1.23791E-05,-3.97734E-05, 2.62905E-05,-7.94827E-06,
     &       -6.41789E-04, 2.69929E-04, 5.68309E-05, 4.75622E-05,
     &       -1.42204E-04, 5.94765E-05,-4.13774E-06, 8.45769E-07,
     &        1.24533E-03,-8.62828E-04,-2.58939E-04,-1.03212E-05,
     &       -7.72919E-05, 1.58774E-05,-2.78981E-05, 2.68268E-03,
     &       -1.79141E-03, 2.10277E-04, 2.18009E-04,-5.73138E-05,
     &        1.50173E-06, 1.07235E-06,-3.31008E-03,-4.52375E-04,
     &       -2.86372E-04,-1.82761E-04, 1.36171E-05, 1.41724E-05,
     &        4.30604E-03,-1.62903E-04, 4.62833E-04,-5.68856E-05,
     &       -1.33615E-05,-1.28257E-05,-4.93122E-03, 5.09086E-04,
     &       -1.33752E-05,-9.73369E-07, 5.92753E-07,-4.60973E-04,
     &        1.19212E-03,-2.07391E-04, 8.57624E-06, 1.83926E-05,
     &       -8.33270E-03, 1.00657E-04, 3.37964E-04,-1.06978E-04,
     &       -6.99988E-03, 1.51350E-03,-1.51025E-04, 6.12719E-05,
     &       -5.89626E-04,-7.18424E-04, 3.76505E-04,-1.29946E-02,
     &       -1.07418E-04, 1.78236E-04, 2.41441E-03, 4.25625E-04,
     &       -1.34554E-03,-6.00618E-04, 2.70617E-03, 4.49864E-03/
C     long 255deg, sep_eq
      DATA (D(18,3,J),J=1,289)/-8.66215E-01,
     &        1.62941E-01,-4.00457E-01, 9.92955E-03,-2.42071E-01,
     &        5.85965E-02, 2.02648E-01,-1.00462E-02, 1.41340E-01,
     &        5.02538E-02, 1.18072E-01,-8.44348E-02,-1.09518E-01,
     &       -7.20766E-03,-1.90129E-02,-5.03884E-02,-1.20072E-01,
     &       -1.72489E-01,-4.89215E-02, 9.20073E-02, 1.45884E-03,
     &        5.65798E-02,-9.81556E-03, 2.68293E-02, 1.66597E-02,
     &        7.86657E-03, 4.36283E-03,-1.52380E-02, 6.75334E-03,
     &       -1.57671E-02, 1.50423E-03,-1.23768E-02,-4.99375E-03,
     &       -2.50053E-01, 3.36264E-02, 6.92428E-03, 2.82585E-03,
     &       -1.08331E-02, 5.50878E-03,-3.87198E-02, 6.72873E-03,
     &       -2.07514E-02,-3.94011E-03,-1.57949E-02,-2.59865E-03,
     &       -5.01109E-03,-9.05132E-03, 9.30713E-03,-9.38933E-03,
     &        3.51736E-02,-1.98238E-02, 1.31719E-02,-1.82751E-02,
     &        7.05315E-03,-2.86248E-03, 7.57472E-04,-2.53149E-06,
     &        2.32755E-03,-4.34366E-05,-2.80674E-03, 4.66528E-04,
     &       -3.38431E-04, 1.64939E-04,-1.01995E-03,-6.50535E-02,
     &       -4.90202E-02, 4.28163E-04,-7.08364E-03,-2.07144E-03,
     &        5.99214E-03,-2.57371E-03, 2.60636E-03,-1.99900E-03,
     &        8.55575E-04,-1.77719E-03, 5.79565E-05, 2.64097E-04,
     &       -6.35336E-04, 1.44007E-04, 5.78357E-02, 7.12979E-03,
     &       -8.87912E-03,-2.27247E-03,-3.80100E-04,-1.20605E-03,
     &       -6.34428E-04, 1.34176E-04, 2.89435E-05, 1.53153E-04,
     &        6.07027E-05,-3.66616E-05, 1.44366E-04, 1.45889E-04,
     &        6.44233E-02, 1.04248E-03,-3.14641E-04,-1.15018E-03,
     &       -2.77145E-03, 1.98585E-03, 6.53364E-04, 1.34106E-03,
     &        3.80924E-04,-4.21506E-05,-9.30919E-06,-5.05149E-05,
     &        2.96393E-05,-6.05153E-05, 7.75740E-04, 1.16220E-03,
     &        1.04838E-04, 2.46142E-03, 1.30445E-03, 3.74713E-04,
     &        1.52931E-04,-3.34653E-04, 7.59379E-05, 1.52166E-05,
     &        6.28955E-05,-1.36347E-05, 4.31264E-05, 2.25297E-02,
     &       -1.57295E-04, 3.11799E-03,-1.34338E-04,-5.87489E-04,
     &       -3.51949E-04, 2.20741E-04,-2.62585E-05, 1.17307E-04,
     &       -9.28482E-05, 1.96407E-05,-7.77461E-05,-2.33874E-05,
     &       -4.35666E-03,-2.78278E-03, 1.26768E-03, 2.92751E-04,
     &        7.70654E-05, 2.35527E-04,-6.81721E-05,-5.99259E-05,
     &       -5.12594E-05,-1.86550E-05,-6.50816E-06,-1.35462E-05,
     &       -1.47122E-02,-2.66780E-03,-1.16053E-03, 4.35731E-04,
     &       -9.91696E-05,-1.91401E-04,-5.16599E-05,-1.47060E-04,
     &       -2.46904E-05,-1.75460E-05, 1.71442E-05,-2.66655E-05,
     &       -8.08943E-04, 2.07676E-03, 2.69579E-04,-9.99051E-05,
     &       -1.01065E-04,-4.41298E-05, 6.93092E-05, 4.62381E-05,
     &       -2.22709E-05,-6.74368E-06,-8.38469E-06, 4.72873E-03,
     &       -2.47624E-03,-2.11650E-04,-5.62996E-04, 2.94076E-04,
     &       -8.83808E-05, 3.88822E-05,-2.26692E-05,-5.64779E-06,
     &        3.26464E-06,-2.29856E-05,-9.43986E-03, 8.95205E-04,
     &       -1.74956E-04, 4.95674E-05, 7.78784E-05,-4.52112E-05,
     &        3.74052E-05,-1.69119E-05, 1.95422E-05, 2.83368E-06,
     &        1.70818E-02, 1.81097E-03,-6.99640E-05, 2.84679E-05,
     &       -1.29686E-04, 1.72386E-05, 9.27670E-05,-1.95316E-05,
     &        1.59419E-06,-1.31672E-05,-1.48404E-02, 2.77638E-04,
     &       -3.60650E-04,-2.23638E-04, 1.79019E-04,-4.97260E-05,
     &        1.83967E-06, 1.24561E-05, 6.34264E-06, 8.46343E-03,
     &        1.82117E-03, 3.95128E-04, 8.00159E-06,-5.62905E-05,
     &       -4.14606E-05, 2.64058E-06, 5.03671E-06,-1.91390E-06,
     &       -9.42281E-04,-1.95442E-04,-1.02269E-03, 6.29005E-05,
     &        5.41381E-06,-1.74641E-05, 7.91510E-07,-7.81973E-06,
     &       -3.46537E-03, 1.73060E-03,-2.42975E-04, 2.42489E-04,
     &       -1.84924E-05, 5.58664E-05, 2.27175E-08,-9.86135E-07,
     &       -1.95178E-03,-7.99945E-04, 5.61680E-05,-6.67318E-05,
     &        2.79334E-05,-1.53064E-05,-1.10806E-05,-1.02063E-03,
     &       -4.90494E-04,-3.32862E-04, 1.32481E-04,-3.95774E-05,
     &        8.69720E-06,-1.03722E-05, 1.67323E-03,-1.05390E-03,
     &        1.29111E-04,-2.52052E-05,-1.29265E-05, 9.23094E-06,
     &        3.97845E-03, 2.46009E-04, 5.53701E-05,-6.87922E-05,
     &        1.95746E-05, 1.18957E-05,-3.85977E-05,-5.95865E-04,
     &        3.95678E-04, 1.69373E-05, 1.61323E-05, 1.47188E-03,
     &        2.01365E-04, 1.56686E-04,-9.97375E-05, 2.34831E-05,
     &       -1.38391E-03,-1.01093E-03, 7.28803E-05,-7.69245E-05,
     &       -3.50628E-04, 2.89417E-04,-2.09437E-04, 1.03229E-04,
     &       -2.44497E-03,-1.64642E-04, 3.22534E-04,-8.90310E-03,
     &       -5.09744E-04,-9.35455E-05,-4.79085E-03,-2.38145E-05,
     &       -2.36846E-03,-1.52544E-03, 3.56305E-04, 1.40938E-03/
C     long 270deg, sep_eq
      DATA (D(19,3,J),J=1,289)/-8.90561E-01,
     &        1.81214E-01,-4.21791E-01, 1.18058E-02,-1.79210E-01,
     &        7.00160E-03, 2.21152E-01,-2.78290E-02, 1.24269E-01,
     &        5.59406E-02, 1.39282E-01,-5.08381E-02,-1.30090E-01,
     &        1.56066E-02,-4.03587E-02,-4.93917E-02,-1.08745E-01,
     &       -1.86483E-01,-3.55261E-02, 7.82166E-02, 1.65988E-02,
     &        5.58761E-02,-9.76166E-03, 2.50852E-02, 1.80321E-02,
     &        8.48392E-03, 9.48402E-03,-1.78071E-02, 9.31411E-03,
     &       -1.52240E-02, 2.53408E-03,-1.09488E-02,-5.61763E-03,
     &       -2.76777E-01, 2.81132E-02, 4.69085E-03, 1.92334E-03,
     &       -1.11261E-03, 1.23642E-03,-4.39121E-02, 7.33895E-03,
     &       -1.56876E-02,-1.39817E-03,-1.30166E-02,-4.55348E-03,
     &       -3.52853E-03,-9.52037E-03, 8.90530E-03,-9.04067E-03,
     &        1.34953E-02,-1.50599E-02, 2.05436E-02,-1.76197E-02,
     &        4.61992E-03,-3.43089E-03, 2.36949E-03,-5.28140E-04,
     &        1.12303E-03, 4.64452E-04,-2.87066E-03, 5.27901E-04,
     &       -2.21384E-04, 4.36679E-04,-6.93996E-04,-8.00922E-02,
     &       -4.95853E-02,-7.58073E-04,-6.56883E-03,-2.61532E-03,
     &        5.14627E-03,-2.31216E-03, 1.97397E-03,-1.41777E-03,
     &        7.73923E-04,-1.45095E-03,-2.66273E-05, 6.44393E-04,
     &       -7.56973E-04, 3.77576E-04, 6.39028E-02, 1.12386E-02,
     &       -7.89204E-03,-1.95609E-03, 7.96505E-05,-1.74216E-03,
     &       -3.75235E-04,-4.45063E-06, 9.33398E-05, 1.05965E-04,
     &        4.37570E-05,-1.21896E-05, 9.83768E-05, 1.48923E-04,
     &        5.45911E-02, 2.32394E-03, 1.88116E-03,-1.33706E-03,
     &       -3.63665E-03, 2.05654E-03,-1.07335E-04, 1.63285E-03,
     &        3.99197E-04,-5.36454E-05,-4.13388E-05,-1.46780E-04,
     &        9.79551E-05,-8.38454E-05, 4.17472E-03, 3.62868E-03,
     &       -1.14058E-03, 1.52474E-03, 1.61415E-03,-1.00796E-04,
     &        3.71473E-04,-4.87649E-04, 1.92691E-04,-1.37540E-05,
     &        7.80995E-05,-4.66208E-05, 1.96733E-05, 2.76041E-02,
     &       -7.96357E-04, 3.09558E-03, 2.90850E-04,-8.17745E-04,
     &       -4.76391E-04, 1.23624E-04,-8.54589E-05, 7.89251E-06,
     &       -8.39937E-05,-2.75838E-05,-6.39160E-05,-2.13674E-05,
     &        6.38587E-03,-1.11983E-03, 1.25295E-03, 3.88994E-04,
     &        8.51704E-05, 4.74782E-04, 5.46425E-05, 8.75655E-05,
     &       -1.61968E-05, 1.52301E-05, 3.57332E-05, 4.32837E-06,
     &       -1.41893E-02,-2.09013E-03,-1.81188E-03, 2.09386E-04,
     &        1.89969E-04,-1.50967E-04,-1.04913E-04,-1.23496E-04,
     &       -9.88627E-06,-1.64928E-05, 5.32735E-05,-2.05422E-06,
     &        7.37102E-03, 1.17249E-03, 4.77711E-04, 3.53663E-04,
     &       -1.20166E-04, 9.62474E-05, 7.24139E-05, 5.08122E-05,
     &       -3.12501E-05, 4.84921E-06,-2.13027E-05, 7.97897E-03,
     &       -4.37831E-03, 9.32067E-05,-6.22250E-04, 3.68787E-05,
     &       -6.63111E-05, 3.65222E-05, 3.26816E-05,-2.14676E-05,
     &        1.87532E-05,-1.60920E-05,-4.06897E-03, 7.07877E-04,
     &       -6.67326E-04, 2.73282E-04, 1.48022E-05, 1.07695E-04,
     &        6.85315E-06, 3.68736E-05, 4.22984E-05, 1.41080E-05,
     &        1.70866E-02,-4.27449E-04,-8.37522E-06,-2.49174E-04,
     &        1.58013E-04,-6.48004E-05, 8.54748E-05,-3.30804E-05,
     &        5.49217E-06,-8.45495E-06,-1.01337E-02,-7.04250E-04,
     &       -1.82033E-04,-8.83354E-05, 1.79250E-04,-1.06741E-04,
     &        4.97910E-05, 2.89556E-06, 1.68225E-05, 3.56019E-03,
     &        5.30893E-04, 2.09424E-05,-1.70176E-04, 6.24028E-05,
     &        2.00241E-05,-1.33266E-05,-1.10284E-06, 6.89141E-06,
     &       -1.04982E-02, 5.95522E-04,-2.80549E-04, 2.40719E-04,
     &       -9.99377E-05,-3.25540E-05,-2.21727E-05, 5.82305E-06,
     &       -7.98211E-04, 7.18941E-04, 2.37728E-04, 1.14952E-04,
     &        1.65113E-05, 2.08141E-05, 5.96041E-07, 1.17079E-05,
     &        4.28637E-03,-1.41926E-03, 2.08127E-04, 5.22912E-05,
     &        4.09671E-05,-2.51659E-05, 5.87151E-06,-9.33354E-03,
     &        5.15349E-04, 1.32650E-04, 7.38345E-05,-4.16151E-05,
     &        7.34553E-06,-1.18019E-05, 3.81018E-03,-1.90016E-03,
     &        2.85204E-04,-1.57040E-05,-2.77768E-05,-8.96063E-08,
     &        3.56618E-03,-9.88445E-04, 3.69292E-04, 3.21621E-05,
     &        5.99479E-05,-5.46477E-06, 1.44512E-03,-8.08409E-04,
     &        5.04891E-04, 4.95227E-05,-1.17466E-05, 2.71190E-03,
     &       -4.26305E-04, 5.58850E-04,-1.05283E-04, 2.43287E-06,
     &        5.44241E-04,-1.14744E-03, 5.69927E-05,-2.39135E-05,
     &        1.60971E-03,-2.01768E-04, 7.29219E-05, 6.82524E-05,
     &       -2.02947E-03,-1.89407E-05, 5.77431E-05,-3.10431E-03,
     &       -1.17377E-03,-9.68374E-05,-9.67600E-04, 7.85734E-04,
     &        3.07035E-03,-2.54060E-03, 1.83401E-03, 7.31858E-04/
C     long 285deg, sep_eq
      DATA (D(20,3,J),J=1,289)/-9.24581E-01,
     &        2.20314E-01,-4.40578E-01,-4.83240E-03,-1.31074E-01,
     &       -4.36006E-02, 2.57707E-01,-2.85605E-02, 6.41157E-02,
     &        4.37494E-02, 1.53472E-01,-1.26264E-02,-1.29353E-01,
     &        2.66728E-02,-4.74693E-02,-3.29937E-02,-9.95331E-02,
     &       -2.04833E-01,-2.10147E-02, 6.20042E-02, 1.56325E-02,
     &        6.08942E-02,-6.92123E-03, 2.49523E-02, 1.87124E-02,
     &        1.08397E-02, 1.73128E-02,-1.79311E-02, 1.25721E-02,
     &       -1.44011E-02, 3.74406E-03,-1.23925E-02,-3.40697E-03,
     &       -3.18236E-01, 2.09980E-02, 1.21474E-02, 8.81936E-03,
     &       -2.49558E-03, 1.84217E-03,-3.93630E-02, 7.69251E-03,
     &       -1.58685E-02, 1.15745E-03,-9.90343E-03,-6.86361E-03,
     &       -1.67557E-03,-7.23170E-03, 5.08831E-03,-6.04196E-03,
     &        1.23952E-02,-2.07575E-02, 2.27963E-02,-1.28136E-02,
     &        2.94648E-03,-2.94408E-03, 2.35158E-03,-9.76494E-04,
     &        5.92206E-04, 5.58690E-04,-2.31707E-03, 7.81485E-04,
     &       -4.56790E-04, 6.97480E-04,-1.10681E-03,-6.65932E-02,
     &       -3.86993E-02,-4.77235E-03,-7.54945E-03,-2.10364E-03,
     &        3.37458E-03,-2.33073E-03, 2.69725E-05,-6.30442E-04,
     &        3.26036E-04,-1.80646E-03,-3.88706E-05, 6.93323E-04,
     &       -8.48266E-04, 3.04071E-04, 5.21075E-02, 1.61580E-02,
     &       -6.80446E-03,-6.50406E-04, 1.10580E-03,-1.24646E-03,
     &       -4.15134E-04,-1.00161E-07, 2.80292E-04, 2.15292E-04,
     &        5.35803E-05, 1.51217E-04, 4.27881E-05, 1.21036E-04,
     &        3.98275E-02, 4.22380E-04, 5.14942E-03,-7.22654E-04,
     &       -3.76611E-03, 1.54184E-03, 1.45611E-04, 1.10733E-03,
     &        5.54928E-04, 1.18980E-04, 5.79488E-05, 8.11288E-05,
     &        8.71832E-05, 8.49907E-05, 6.36316E-03, 7.29763E-04,
     &       -1.27682E-03,-2.30245E-04, 1.67752E-03,-1.73596E-04,
     &        3.69959E-04,-4.33153E-04, 9.88023E-05, 3.56530E-05,
     &        6.01549E-06,-2.40883E-05,-2.62505E-05, 2.06446E-02,
     &       -2.80773E-04,-1.24344E-04, 1.28028E-03,-6.63603E-04,
     &        8.33068E-05,-9.88213E-05, 2.69940E-04,-8.51642E-05,
     &       -3.67141E-05,-3.58653E-05,-6.58684E-05, 2.04511E-05,
     &        5.53918E-03,-7.91153E-04, 1.36553E-03,-4.81624E-05,
     &       -8.35278E-05, 5.67014E-04, 2.88963E-04, 4.57467E-05,
     &        8.20068E-05,-4.87947E-06, 3.14648E-05, 1.86111E-05,
     &       -1.17597E-02,-2.14608E-03,-1.76417E-03,-9.33790E-04,
     &        7.83205E-05,-1.57730E-04,-9.77351E-05,-1.01635E-04,
     &       -6.35389E-05,-2.11242E-05, 2.50809E-05, 1.38668E-05,
     &        8.03859E-03, 7.86573E-04, 7.72401E-04, 3.79264E-04,
     &       -2.49071E-04, 1.20788E-04,-5.03137E-05, 2.39670E-05,
     &        8.89470E-06, 2.45475E-06, 4.88743E-06, 1.28892E-02,
     &       -4.76640E-03,-1.63712E-04,-6.89692E-04,-1.44510E-04,
     &       -1.79087E-04, 7.56555E-05, 2.08062E-05,-1.54786E-05,
     &       -8.06243E-06,-9.60748E-06,-6.67953E-03, 2.82165E-03,
     &       -6.23235E-04, 3.24580E-04, 2.72985E-05, 2.06016E-05,
     &       -2.27134E-05,-1.03559E-05,-5.43886E-07,-3.90203E-07,
     &        1.45241E-02,-2.10631E-04,-1.01900E-03,-5.80480E-05,
     &        1.16509E-04,-1.03937E-04, 8.29489E-06, 2.13555E-05,
     &        3.14459E-05, 9.71897E-06,-6.70577E-03,-2.08403E-04,
     &        7.31911E-04,-1.28594E-04, 1.19840E-04,-9.45118E-05,
     &        4.71315E-05,-2.77636E-05, 2.24576E-06, 1.13084E-02,
     &        3.57419E-03,-3.40095E-04, 2.11904E-04, 3.50320E-05,
     &       -1.21545E-05,-3.32440E-05,-2.17068E-05, 5.99132E-06,
     &       -1.60847E-02,-1.45630E-03, 2.46834E-04, 4.13430E-05,
     &       -1.14436E-04, 3.02978E-05,-8.09777E-06, 4.00026E-05,
     &        2.52285E-03,-6.80101E-05, 9.46726E-04,-8.59153E-05,
     &       -4.46705E-05,-2.20348E-05,-1.42083E-05,-1.92234E-06,
     &        1.54967E-03,-2.14902E-03,-3.84789E-04, 7.09778E-05,
     &       -1.39984E-05, 9.98963E-06, 2.31982E-05,-9.23701E-03,
     &        3.66561E-04, 6.85740E-04,-5.96121E-05,-1.23082E-06,
     &        1.58392E-05,-2.38089E-06, 5.57544E-03,-1.00099E-03,
     &       -6.13866E-05, 6.30860E-05,-8.58886E-07,-6.21081E-06,
     &        4.08216E-03,-2.22293E-03, 4.98071E-04,-2.27536E-05,
     &        6.68541E-05,-5.89607E-05, 2.55607E-03,-3.57853E-04,
     &        2.30351E-04,-8.23547E-05, 2.66285E-05, 2.04929E-03,
     &       -2.73949E-04, 5.08377E-04, 1.70304E-06, 4.72028E-05,
     &       -9.79874E-04,-3.48399E-04, 5.61787E-05,-2.38004E-05,
     &       -2.58850E-03, 6.80996E-04, 1.18931E-04,-4.59174E-05,
     &       -5.41357E-03, 2.80018E-04, 2.01772E-04,-2.46588E-03,
     &       -7.62258E-04,-7.73416E-05, 6.32624E-04, 1.99116E-03,
     &       -1.49137E-03,-1.44657E-03, 4.15207E-03,-4.43813E-03/
C     long 300deg, sep_eq
      DATA (D(21,3,J),J=1,289)/-9.59631E-01,
     &        2.61142E-01,-4.47992E-01,-1.61545E-02,-1.13529E-01,
     &       -6.73006E-02, 3.02903E-01,-4.70253E-03, 4.01470E-02,
     &       -2.51909E-02, 1.34321E-01, 2.82415E-02,-1.40589E-01,
     &        8.21970E-03,-4.22263E-02,-1.90619E-02,-8.84747E-02,
     &       -1.94280E-01,-2.03667E-02, 5.05544E-02, 1.45533E-02,
     &        6.33828E-02,-7.86868E-03, 2.67039E-02, 1.45964E-02,
     &        1.12810E-02, 1.82260E-02,-1.63980E-02, 1.27237E-02,
     &       -1.66056E-02, 5.29738E-03,-1.43214E-02,-4.76761E-03,
     &       -3.36508E-01, 1.71667E-02, 1.17965E-02, 1.26449E-02,
     &       -7.70253E-03, 3.18754E-03,-3.47201E-02, 1.22153E-02,
     &       -1.65713E-02, 1.64843E-04,-1.02383E-02,-7.39806E-03,
     &       -2.88541E-03,-6.09283E-03, 7.12460E-04,-3.45517E-03,
     &        3.43078E-02,-3.81367E-02, 2.17290E-02,-8.24708E-03,
     &        4.31030E-03,-2.64655E-03, 1.85424E-03,-1.11198E-03,
     &        4.77964E-04, 4.24974E-04,-2.38597E-03, 1.41718E-03,
     &       -8.01571E-04, 8.54324E-04,-1.23541E-03,-2.84725E-02,
     &       -3.24238E-02,-9.95519E-03,-8.10008E-03,-4.57200E-03,
     &        2.05076E-03,-1.72153E-03,-1.73017E-04,-7.47481E-04,
     &        3.02906E-04,-1.26162E-03,-3.26682E-04, 1.11141E-04,
     &       -4.75431E-04, 2.11858E-05, 3.34708E-02, 1.78920E-02,
     &       -6.84815E-03, 2.84966E-05, 1.27044E-03,-1.07605E-03,
     &       -9.01237E-04,-2.44335E-04,-3.51629E-05, 2.33089E-04,
     &       -9.37228E-06, 1.27787E-04,-3.88527E-06, 6.92285E-05,
     &        3.82208E-02,-5.31152E-03, 6.53760E-03,-7.10933E-04,
     &       -2.66662E-03, 9.54260E-04, 6.50325E-04, 5.18369E-04,
     &        4.04545E-04, 3.42852E-04, 2.91137E-05, 3.37053E-04,
     &        8.49558E-05, 9.00882E-05, 1.26268E-02,-7.47645E-04,
     &       -1.45604E-03,-5.02758E-04, 1.29183E-03, 2.46022E-04,
     &       -8.17065E-05,-5.34765E-05,-2.15188E-05, 9.35342E-05,
     &        3.68306E-05, 1.71326E-05, 2.81588E-05, 8.85505E-03,
     &       -4.80493E-04,-8.85143E-04, 1.36792E-03,-1.01547E-03,
     &        3.55267E-04,-1.23114E-04, 2.96943E-04,-2.17670E-04,
     &       -4.79957E-05,-4.76634E-05,-6.67765E-05,-2.10244E-05,
     &        9.03277E-04, 7.38875E-04, 1.16605E-03,-1.09587E-04,
     &        9.36115E-05, 4.59887E-04, 1.83272E-04, 1.79539E-06,
     &        7.80482E-05, 1.38133E-05,-1.27372E-05, 9.81434E-06,
     &       -7.82767E-03, 1.77140E-03,-1.22869E-03,-1.22315E-03,
     &       -2.25156E-07,-1.81472E-04,-5.78895E-05,-3.02745E-05,
     &       -1.04002E-04,-1.79672E-05,-1.05132E-05, 7.92219E-06,
     &        2.21558E-03,-2.23365E-03, 1.86919E-04,-1.10189E-04,
     &       -2.98958E-04, 9.43640E-05,-9.95333E-05,-4.22618E-05,
     &        6.26485E-05,-2.18340E-05, 3.17056E-05, 1.83441E-02,
     &       -3.47301E-03,-4.13080E-05,-4.01705E-05,-1.47518E-05,
     &       -1.02456E-04, 3.97989E-05, 3.07517E-06, 2.23306E-06,
     &       -9.66934E-06,-1.44926E-05,-1.28822E-02, 1.56203E-03,
     &       -7.59336E-04,-3.47585E-05, 4.34281E-05,-1.15262E-04,
     &       -1.29991E-05,-3.52471E-05,-3.15239E-05,-1.22715E-05,
     &        1.25958E-02,-1.18898E-03,-1.04879E-03,-4.27362E-04,
     &        1.65161E-04,-6.51205E-05,-4.74873E-07, 2.51350E-05,
     &        3.50757E-05,-1.22710E-06,-7.12038E-03, 1.33767E-03,
     &        2.33157E-04,-1.19561E-04, 3.85199E-05,-2.44974E-05,
     &        5.67777E-06,-1.58354E-05,-1.09487E-05, 9.95624E-03,
     &        3.00920E-03,-3.44459E-04, 2.39066E-04,-1.03561E-05,
     &       -4.25258E-05,-4.00106E-05,-7.00038E-06,-9.59641E-06,
     &       -1.09572E-02,-9.61835E-04,-5.17706E-05,-1.21772E-04,
     &        1.86517E-05,-1.36608E-05, 4.53939E-05, 2.10552E-05,
     &       -7.53908E-03, 2.23757E-03, 3.28105E-04, 3.53353E-05,
     &       -3.07714E-05,-2.58141E-05, 1.10583E-05,-2.49631E-05,
     &        2.33402E-03,-1.59539E-03,-7.30952E-04,-6.70185E-05,
     &       -3.52840E-06, 2.14968E-05, 1.17334E-05,-6.00569E-03,
     &        1.75938E-03, 5.40007E-05,-2.23686E-05, 6.02842E-05,
     &        2.49920E-05, 2.02287E-05, 4.35791E-03,-7.31172E-04,
     &       -1.70169E-04,-5.05378E-06, 5.54475E-06,-2.15792E-05,
     &        9.86374E-03,-1.46765E-03,-3.57241E-04,-4.62668E-05,
     &        1.18862E-05,-2.54262E-05,-1.45094E-03,-7.61559E-04,
     &        5.64591E-04,-1.67738E-04, 3.39119E-05, 9.08183E-03,
     &       -2.73758E-04, 3.26028E-04, 9.22554E-05, 6.28296E-05,
     &       -9.73777E-03,-9.69115E-04, 5.74856E-06,-1.59345E-04,
     &       -7.02414E-03, 5.46088E-04, 3.73899E-04,-1.58252E-04,
     &       -6.31244E-03, 4.46699E-05,-1.00513E-04,-4.41402E-03,
     &       -8.14071E-04, 7.75176E-05,-1.46999E-03, 2.07388E-03,
     &       -6.09646E-03,-3.55258E-04, 3.95450E-03,-5.64098E-03/
C     long 315deg, sep_eq
      DATA (D(22,3,J),J=1,289)/-9.98724E-01,
     &        2.93220E-01,-4.40912E-01,-4.73556E-02,-1.27363E-01,
     &       -6.44968E-02, 3.48554E-01,-6.30003E-03, 6.89649E-02,
     &       -8.68465E-02, 9.88809E-02, 1.09389E-01,-1.62466E-01,
     &       -4.64263E-02,-4.86945E-02,-7.77752E-03,-7.24526E-02,
     &       -1.61825E-01,-1.41909E-02, 3.30564E-02, 1.77388E-02,
     &        7.09632E-02,-6.30849E-03, 3.15603E-02, 1.10051E-02,
     &        6.16177E-03, 1.77154E-02,-1.54094E-02, 9.04517E-03,
     &       -1.76948E-02, 5.81237E-03,-1.45060E-02,-7.17005E-03,
     &       -3.06522E-01, 1.31011E-02, 9.33677E-03,-2.57355E-03,
     &       -2.78666E-03, 5.58823E-03,-3.90970E-02, 1.47198E-02,
     &       -1.16272E-02,-3.30574E-04,-1.14949E-02,-4.37060E-03,
     &       -4.47396E-03,-6.31321E-03,-8.08401E-04,-2.65308E-03,
     &        4.91244E-02,-4.86495E-02, 2.26526E-02,-6.83604E-03,
     &        7.13451E-03,-3.13266E-03, 1.75454E-03,-7.94410E-04,
     &       -2.07199E-04, 7.52737E-04,-3.09061E-03, 2.02600E-03,
     &       -1.04048E-03, 6.00141E-04,-9.50468E-04, 7.30874E-03,
     &       -3.20601E-02,-2.00368E-02,-6.42566E-03,-6.35836E-03,
     &        9.62639E-04,-1.09860E-03, 8.17353E-04,-1.03172E-03,
     &        6.36177E-04,-3.37267E-04,-6.51656E-04, 2.01697E-04,
     &       -5.62591E-04, 3.19516E-04, 3.16441E-02, 1.76676E-02,
     &       -6.41593E-03, 3.56213E-04, 6.69833E-04,-4.05714E-04,
     &       -1.03900E-03,-5.89429E-04,-1.57809E-04, 1.43774E-04,
     &       -7.36982E-05, 7.61774E-05,-5.05912E-05, 5.80531E-05,
     &        4.31463E-02,-8.54161E-03, 6.50919E-03,-1.26258E-03,
     &       -1.96022E-03, 1.44336E-03, 1.46269E-04, 4.47498E-04,
     &        3.36675E-04, 3.14881E-04, 1.73373E-04, 1.33391E-04,
     &        2.50400E-04,-6.90095E-05, 1.62422E-02, 2.35931E-03,
     &       -2.90356E-03, 1.39057E-04, 6.11513E-04, 2.52862E-04,
     &       -2.78564E-04, 1.71252E-04,-1.56235E-04, 1.57074E-04,
     &        7.00345E-06, 4.73919E-05, 4.73664E-05,-3.99649E-03,
     &       -5.03608E-04, 7.40766E-04, 1.05677E-03,-1.34555E-03,
     &        7.23865E-04,-5.08544E-05, 5.32322E-05,-2.00390E-04,
     &       -6.28373E-06,-1.09701E-05,-7.18999E-05,-4.99268E-05,
     &       -5.32840E-03, 3.57742E-03, 1.17856E-03,-2.76255E-04,
     &        2.13005E-04, 3.85122E-04, 8.24620E-05, 7.15448E-05,
     &        8.51474E-05,-2.10026E-05, 3.51307E-05,-3.24752E-05,
     &       -1.19268E-02, 2.84569E-03,-6.29810E-04,-7.26732E-04,
     &       -8.34971E-05,-2.51959E-05, 2.13347E-05, 5.18796E-05,
     &       -1.56734E-05,-1.51862E-05,-2.25219E-05,-4.67997E-06,
     &       -1.04261E-03, 3.24138E-04,-1.04482E-04, 1.81865E-04,
     &       -1.94863E-04, 1.24923E-04,-1.45164E-05, 2.44309E-07,
     &        5.69786E-05,-1.19719E-05, 1.74592E-05, 1.98264E-02,
     &       -3.95681E-03, 8.30620E-04,-4.64072E-04,-3.99293E-05,
     &       -5.90210E-06,-9.15101E-05, 1.69059E-05, 2.57752E-05,
     &       -7.33250E-06, 8.05462E-06,-2.84979E-03, 1.60481E-03,
     &       -1.05875E-03, 3.33131E-04,-1.05213E-04,-4.81022E-05,
     &        1.71782E-05,-2.69421E-05, 1.21014E-05,-1.18341E-05,
     &        1.79256E-02,-1.64041E-03,-3.27682E-04,-1.60729E-04,
     &        2.63983E-04,-1.06228E-04, 6.16942E-05, 3.19269E-06,
     &        3.11798E-05,-2.13104E-05, 1.44895E-03, 2.16943E-03,
     &       -4.09177E-04,-1.49354E-04,-4.51268E-05,-5.94567E-06,
     &       -1.30082E-06,-2.31187E-06, 1.06888E-06, 1.22134E-02,
     &        1.15903E-03,-4.47448E-04, 4.29414E-04,-1.36122E-04,
     &       -5.22372E-06,-1.23372E-07, 3.88172E-06,-7.32647E-06,
     &       -7.39436E-03, 1.19495E-03,-2.65752E-04, 6.59007E-05,
     &        1.14982E-04,-8.30165E-05, 2.65479E-05,-8.21611E-06,
     &       -1.13910E-02, 2.99495E-03,-4.22732E-04, 8.25946E-05,
     &       -1.51280E-04, 3.29900E-05, 7.97409E-06, 1.83600E-06,
     &        5.64303E-03,-6.90290E-06,-5.77242E-04, 1.33102E-04,
     &       -3.15366E-05, 5.67079E-07,-2.41612E-06,-4.96733E-03,
     &        2.61226E-03,-5.19883E-04,-4.00372E-05, 2.79145E-05,
     &        4.51309E-06, 2.07697E-05, 3.35618E-03,-1.42278E-03,
     &       -5.35599E-05, 1.35014E-04, 1.56417E-05, 1.73658E-06,
     &        5.11728E-03, 3.09269E-04,-3.10581E-04, 2.86876E-05,
     &       -3.09019E-05, 2.85264E-06,-5.17697E-03,-1.36663E-03,
     &        8.72379E-04, 4.05823E-05,-3.25523E-05, 7.22899E-03,
     &       -3.61931E-05, 1.44061E-04, 9.51542E-05, 6.09776E-06,
     &       -4.07766E-03,-1.40932E-03, 2.87855E-04,-8.48456E-05,
     &       -3.77712E-03,-2.91598E-04, 8.14536E-04,-1.20785E-04,
     &       -5.87719E-03, 1.37536E-04,-3.98243E-04, 4.74091E-04,
     &       -9.36708E-04, 2.31147E-04,-6.30282E-03, 1.26564E-03,
     &       -8.84802E-04, 2.33533E-04, 2.33114E-03, 4.76080E-03/
C     long 330deg, sep_eq
      DATA (D(23,3,J),J=1,289)/-1.03091E+00,
     &        3.08966E-01,-4.09636E-01,-6.99952E-02,-1.67518E-01,
     &       -7.16842E-02, 4.12245E-01,-4.37698E-02, 6.91885E-02,
     &       -5.02956E-02, 6.58752E-02, 1.47269E-01,-1.57155E-01,
     &       -7.43591E-02,-5.07590E-02,-2.18645E-02,-7.32276E-02,
     &       -1.51462E-01, 3.01370E-03, 1.30957E-02, 1.59715E-02,
     &        8.12566E-02,-1.04695E-02, 3.31046E-02, 9.60934E-03,
     &        2.87277E-03, 1.64320E-02,-1.43104E-02, 8.06754E-03,
     &       -1.75907E-02, 6.18336E-03,-1.27843E-02,-8.92869E-03,
     &       -2.71295E-01, 9.99258E-03, 1.06537E-02,-2.18600E-02,
     &        3.65439E-03, 1.36843E-02,-4.32333E-02, 1.15338E-02,
     &       -1.32509E-02, 4.24877E-03,-8.77913E-03,-4.81376E-03,
     &       -4.24568E-03,-6.04201E-03,-1.76656E-03,-1.57475E-03,
     &        4.44951E-02,-4.71096E-02, 2.20751E-02,-5.40992E-03,
     &        7.34634E-03,-3.03601E-03, 1.15648E-03, 2.87082E-05,
     &        4.39911E-04, 6.80075E-04,-2.76239E-03, 1.83911E-03,
     &       -6.38766E-04, 1.58840E-04,-7.93429E-04, 2.66171E-02,
     &       -2.38386E-02,-2.90089E-02,-4.99719E-03,-5.37447E-03,
     &       -7.36418E-04,-1.32471E-03, 5.71332E-04,-4.49080E-04,
     &        5.34729E-04, 2.35275E-04,-6.95613E-04, 2.16725E-04,
     &       -6.07275E-04, 2.40028E-04, 4.37810E-02, 1.20401E-02,
     &       -6.50019E-03,-1.79320E-03,-1.38173E-04, 1.77051E-04,
     &       -1.03873E-03,-5.22836E-04,-3.32520E-04, 8.85470E-05,
     &        1.26018E-05, 6.71092E-05,-1.97839E-06,-3.15825E-05,
     &        4.20849E-02,-7.42310E-03, 4.46193E-03,-1.30154E-03,
     &       -1.66955E-03, 1.09716E-03, 4.62657E-04,-2.73168E-05,
     &        4.43880E-04, 2.47919E-04, 5.90542E-05, 9.43004E-05,
     &        1.49048E-04,-1.06893E-04, 2.89110E-02, 2.53604E-03,
     &       -3.98698E-03,-6.44152E-04, 8.46088E-04,-1.31420E-04,
     &       -1.09376E-04, 1.23209E-04,-6.91746E-05, 6.29138E-05,
     &        2.65943E-05, 1.35925E-05, 5.72776E-05,-1.47742E-02,
     &        2.77326E-03, 3.81532E-04, 8.76111E-04,-1.58546E-03,
     &        1.00379E-03, 1.75345E-04,-1.68779E-05,-4.28877E-05,
     &        7.28880E-05, 4.76134E-05,-5.04115E-05,-1.71614E-05,
     &       -6.20641E-03, 2.97076E-03, 1.39339E-03,-2.54746E-04,
     &        5.89605E-04, 3.04010E-04, 7.59081E-05, 1.43580E-04,
     &        1.06912E-04,-3.51273E-05, 7.08212E-05,-3.11483E-05,
     &       -1.52149E-02, 1.73776E-03, 4.21489E-04,-8.70403E-04,
     &       -9.00612E-05, 1.84340E-04, 1.91112E-05, 7.90425E-05,
     &        3.50987E-05,-3.76175E-05,-8.99956E-06,-2.04233E-05,
     &       -1.29837E-02, 4.95336E-04,-3.17760E-04, 9.17963E-04,
     &       -4.34137E-04, 2.24652E-04,-7.46775E-05, 4.17016E-05,
     &       -2.75779E-05,-1.16339E-05,-2.59078E-06, 5.71111E-03,
     &       -2.46247E-03,-1.97924E-04,-6.90709E-04,-1.15633E-04,
     &        1.97979E-04,-1.77099E-04, 4.83721E-05, 3.16951E-05,
     &       -6.05753E-06, 3.22147E-05, 2.90119E-03, 7.90272E-04,
     &        8.99428E-05, 2.74542E-04,-5.17686E-05,-3.19160E-05,
     &        2.69402E-05,-5.01346E-06, 2.06052E-05,-1.39485E-05,
     &        2.27394E-02,-3.52563E-03,-1.94045E-05,-1.83902E-04,
     &        1.35290E-04,-8.34081E-05, 4.50405E-05,-1.50452E-05,
     &        6.21682E-06,-2.20311E-05, 9.96404E-04, 2.42760E-03,
     &       -5.43735E-04,-2.52960E-04,-4.57010E-05,-1.28028E-05,
     &       -4.42893E-06,-2.40195E-05, 1.31185E-05, 1.20469E-02,
     &        1.20901E-05,-1.42411E-04, 2.89576E-04,-1.22571E-04,
     &       -2.07739E-05, 1.56606E-05, 5.07469E-06,-7.70461E-06,
     &       -2.48222E-03, 2.09828E-03,-3.42670E-04,-3.88237E-05,
     &        1.44728E-04,-3.07487E-05, 2.74225E-06, 5.40027E-06,
     &       -1.10865E-02, 2.11991E-03,-2.03884E-04, 1.96451E-04,
     &       -2.32488E-04, 2.56548E-05,-1.50501E-05, 4.92510E-06,
     &        4.05087E-03,-5.24049E-04,-2.23309E-04, 1.22097E-04,
     &        5.86809E-06,-6.29482E-06,-5.03237E-06,-4.65997E-03,
     &        1.30596E-03,-2.63931E-04, 9.03581E-06,-5.89752E-06,
     &       -1.83671E-05,-1.13859E-06, 4.35940E-03,-6.58578E-04,
     &        1.59449E-04, 5.77352E-05, 2.15577E-05, 1.56031E-05,
     &       -6.07801E-03, 4.01521E-06, 3.96094E-04,-4.16130E-05,
     &        5.60931E-05,-3.33506E-06,-4.95361E-03, 2.59890E-04,
     &        5.18635E-04, 2.51971E-04,-1.20856E-05, 2.56795E-04,
     &        6.87609E-04, 1.33306E-04, 2.06952E-05,-1.60157E-05,
     &        1.95782E-03,-1.80453E-04, 9.61342E-05,-2.63564E-05,
     &       -1.17098E-03, 4.07012E-04, 1.47069E-04, 9.26220E-05,
     &       -2.25079E-03, 6.96701E-04, 1.03781E-04, 1.12929E-02,
     &       -9.75302E-04, 2.50989E-04,-1.29749E-02, 1.49098E-03,
     &        4.03231E-05, 1.11786E-04, 2.83424E-03, 6.90786E-03/
C     long 345deg, sep_eq
      DATA (D(24,3,J),J=1,289)/-1.04190E+00,
     &        3.24838E-01,-4.16766E-01,-4.83514E-02,-1.61045E-01,
     &       -1.14310E-01, 4.52318E-01,-6.04168E-02, 3.49143E-02,
     &       -1.00810E-02, 7.86192E-02, 1.01920E-01,-1.41613E-01,
     &       -9.81849E-02,-2.00510E-02,-7.78767E-02,-3.92858E-02,
     &       -2.13234E-01, 2.50659E-02, 1.42038E-03, 1.71830E-02,
     &        8.48944E-02,-2.23861E-02, 2.85567E-02, 3.75545E-03,
     &        7.05743E-03, 1.27384E-02,-1.74027E-02, 8.48101E-03,
     &       -1.47451E-02, 3.83425E-03,-1.20930E-02,-7.54922E-03,
     &       -2.78444E-01, 3.35524E-03, 2.74884E-02,-4.11119E-02,
     &        2.98201E-03, 1.83990E-02,-4.56635E-02, 1.03448E-02,
     &       -2.02425E-02, 6.81651E-03,-6.05487E-03,-6.17400E-03,
     &       -3.40462E-03,-7.14372E-03, 2.48092E-03,-2.08251E-03,
     &        5.36641E-02,-5.09641E-02, 2.08605E-02,-1.36754E-03,
     &        3.17282E-03,-2.29313E-03, 8.59973E-04, 1.08401E-03,
     &       -1.83636E-04, 1.38913E-03,-2.60649E-03, 1.11529E-03,
     &       -1.42526E-04, 9.96093E-05,-9.41392E-04, 1.71937E-02,
     &       -1.45230E-02,-3.32178E-02,-7.32615E-03, 2.23609E-04,
     &       -3.89634E-03,-6.16938E-04,-2.73132E-04,-7.38631E-04,
     &        6.82691E-04, 1.90551E-04,-4.10850E-04,-1.28673E-04,
     &       -9.13753E-05,-1.07794E-04, 4.84843E-02, 1.08331E-02,
     &       -4.65461E-03,-5.41410E-03, 4.48893E-04,-1.05890E-03,
     &       -1.03036E-03,-5.00976E-04,-3.27331E-04, 3.86453E-05,
     &       -1.64931E-04, 1.33832E-04, 1.31347E-05,-1.39807E-04,
     &        5.96403E-02,-8.22985E-03, 1.50397E-03,-9.97542E-05,
     &       -2.29885E-03, 8.57651E-04, 7.91819E-04, 4.76981E-05,
     &        3.70033E-04, 2.05738E-04,-6.43278E-05, 8.16525E-05,
     &        4.94275E-05,-1.57684E-04, 2.18917E-02, 4.25340E-03,
     &       -3.76950E-03,-3.97689E-04, 9.70150E-04,-5.49943E-05,
     &        4.38675E-05,-9.63219E-05, 6.60339E-05, 3.10650E-05,
     &        8.75414E-05, 2.61773E-05, 3.66753E-05,-9.31234E-03,
     &        6.75531E-03,-1.06930E-03, 6.99632E-05,-1.30311E-03,
     &        5.37363E-04, 7.36931E-05, 6.02752E-05,-7.99486E-05,
     &        5.81749E-05,-5.44773E-05,-1.96430E-05,-5.06008E-05,
     &        4.27584E-04, 1.68055E-03, 1.59940E-03,-4.43718E-04,
     &        6.93939E-04, 3.10400E-04, 9.73012E-05, 1.38767E-04,
     &        3.80429E-05, 3.99834E-05, 3.50489E-05,-9.90143E-06,
     &       -1.40515E-02, 1.53642E-03, 9.25016E-04,-5.94082E-04,
     &        3.03294E-05,-8.17519E-05, 2.13635E-05,-2.04395E-05,
     &        1.27584E-05,-2.39400E-05,-2.28821E-05,-9.92644E-06,
     &       -1.13804E-02,-2.11390E-03, 4.10568E-04, 1.47210E-04,
     &       -2.48737E-04, 2.11036E-04,-1.12618E-04, 3.68156E-05,
     &       -6.41219E-05, 7.20405E-06,-1.49331E-05,-1.27261E-03,
     &       -2.54397E-03,-1.22328E-04, 1.98559E-04,-1.51712E-05,
     &        2.69234E-04,-1.62475E-04, 7.29268E-05, 3.02633E-05,
     &        6.62120E-06, 3.14518E-05,-4.52206E-03, 6.69671E-04,
     &        5.26557E-04, 3.45385E-05,-1.89290E-05, 1.50374E-05,
     &        6.87571E-05,-1.81784E-05, 5.86916E-06,-7.96001E-06,
     &        2.04363E-02,-3.48618E-03,-3.33740E-04,-7.21517E-05,
     &        9.71175E-05, 9.26131E-05,-2.24183E-05, 3.80458E-05,
     &       -1.73198E-05, 8.78054E-06,-9.79133E-03, 2.98036E-03,
     &       -2.63514E-04, 9.81903E-06,-1.27651E-04, 4.56530E-05,
     &       -1.65702E-05,-7.76277E-06, 5.35937E-06, 2.92270E-03,
     &       -8.55372E-04, 7.27458E-04,-7.59414E-06,-6.17119E-05,
     &       -9.71438E-06, 2.97345E-07, 1.80097E-06,-4.70803E-06,
     &        1.66747E-03, 4.40947E-04, 2.39281E-05,-6.76679E-05,
     &        4.72108E-05,-3.60842E-05, 2.79368E-06,-1.94720E-06,
     &       -1.35169E-02, 1.21481E-03, 4.23185E-04, 2.77426E-04,
     &       -9.52644E-05,-9.80765E-06,-6.38621E-06, 3.02915E-06,
     &        1.62675E-03, 5.59686E-04,-4.28380E-06,-4.23223E-05,
     &        3.70703E-05, 7.50399E-06,-2.20745E-05,-1.40202E-03,
     &       -1.36609E-04,-1.42489E-05, 4.53229E-05, 5.16613E-05,
     &       -6.43240E-05, 1.85387E-05, 5.04276E-03,-1.43605E-04,
     &        6.72171E-04,-1.68902E-04, 2.22708E-05,-3.18348E-06,
     &       -1.13723E-03,-3.85073E-04, 3.54855E-04,-1.46164E-04,
     &        1.16960E-04,-4.25646E-05,-8.63184E-04, 2.15576E-04,
     &        5.79841E-04, 5.43210E-05, 5.20882E-05,-2.10348E-03,
     &        4.50012E-04, 2.92492E-04, 9.87155E-05, 1.23403E-05,
     &        2.47182E-03, 1.08612E-04, 1.27478E-04,-1.12585E-04,
     &       -1.81258E-03,-7.67764E-04,-3.28735E-05, 5.21253E-05,
     &        1.82482E-03, 1.28363E-03, 3.18581E-05, 2.37205E-03,
     &       -1.05871E-03, 1.96694E-04,-6.74303E-03, 1.65456E-03,
     &       -2.01077E-04,-1.12324E-03,-2.17390E-03,-2.91348E-03/
C     long 0deg, dec_so
      DATA (D(1,4,J),J=1,289)/-8.00201E-01,
     &       -1.91327E-01,-4.10269E-01, 8.44536E-02,-3.54313E-01,
     &        1.70249E-02, 1.59147E-01,-5.47327E-03, 7.48557E-02,
     &        9.42204E-02, 2.62864E-01,-6.36048E-02,-8.58112E-02,
     &       -5.47622E-02, 4.80210E-02,-8.35044E-02,-1.21055E-01,
     &       -1.87248E-01,-1.09473E-03, 1.24557E-03, 3.13459E-02,
     &        2.47956E-02,-7.59192E-03, 4.23859E-02,-7.77768E-03,
     &        8.38544E-03, 6.78707E-03,-8.95697E-03,-4.92979E-03,
     &       -1.37023E-02, 5.31661E-03,-1.23530E-02,-1.69332E-03,
     &       -1.92098E-01,-7.65180E-02,-2.07378E-02,-1.41855E-03,
     &        1.60585E-03, 2.79085E-03,-3.67682E-02,-3.15365E-03,
     &       -3.35878E-02, 5.67347E-04,-1.41655E-02,-2.85508E-04,
     &       -8.94385E-03,-1.25104E-03, 1.40701E-03,-2.42324E-04,
     &        1.54263E-02, 2.12950E-02, 1.76697E-02, 8.92390E-03,
     &        9.79314E-04,-1.01963E-03, 4.59183E-03,-3.30287E-03,
     &        3.69268E-03, 3.01940E-03,-9.37244E-04, 1.24035E-03,
     &       -2.29881E-04, 1.59544E-03,-1.01669E-03, 1.78106E-02,
     &        3.38261E-02,-1.42368E-02,-1.36230E-02,-1.60395E-03,
     &       -5.68163E-03, 4.42354E-04, 2.47239E-04,-2.23509E-03,
     &       -2.30205E-04,-1.34863E-03,-8.74060E-04,-5.11230E-04,
     &       -1.91313E-04, 2.66911E-04, 6.28467E-02,-2.17347E-02,
     &       -6.58648E-03,-7.33543E-04, 1.37116E-03, 1.21389E-03,
     &       -1.07761E-04,-1.18618E-03, 2.63479E-04,-4.14619E-04,
     &       -2.99278E-04, 1.63459E-04,-1.68694E-04, 9.38804E-05,
     &        2.87675E-02,-4.00666E-04, 1.88116E-03, 1.85919E-04,
     &        9.57485E-04,-9.24722E-04, 7.29133E-04,-7.27535E-04,
     &        9.08219E-05, 2.59005E-04, 1.33119E-04, 6.35740E-05,
     &        1.07138E-04, 2.60222E-05, 1.60454E-02, 9.92499E-03,
     &        1.09344E-03,-5.24575E-04, 1.96621E-04,-1.71976E-04,
     &        5.11623E-05, 3.16129E-04, 2.75724E-04, 1.92474E-05,
     &        1.07488E-04, 7.02191E-05,-3.03553E-05,-7.66758E-04,
     &       -8.02601E-03,-3.11832E-04,-1.78388E-03,-5.95900E-04,
     &        2.59284E-04,-8.70565E-06,-7.38966E-05, 3.80333E-05,
     &       -3.79440E-05,-8.24165E-05,-3.42109E-05,-3.37905E-05,
     &       -9.11996E-03, 3.32162E-03, 3.44313E-04, 8.89469E-04,
     &        4.79786E-04, 5.32595E-05,-8.38629E-07, 4.31229E-05,
     &       -1.06994E-04, 8.40462E-07, 2.03759E-05,-1.72455E-05,
     &       -1.24700E-02, 3.10269E-03, 3.52286E-03,-1.80464E-04,
     &       -7.55964E-05, 9.93505E-06,-7.35770E-05, 1.11199E-04,
     &        3.45180E-05, 2.11189E-05, 1.10963E-07,-2.79011E-05,
     &       -7.37236E-03,-1.76766E-04, 3.11730E-05, 7.53689E-05,
     &        1.34020E-05, 9.25995E-05, 1.86856E-05,-1.86902E-05,
     &       -7.14538E-05,-8.27331E-06,-1.46482E-05,-3.40251E-03,
     &        1.19812E-03,-1.32093E-04,-3.43710E-04, 2.51123E-04,
     &        4.28725E-05, 7.66544E-05, 8.46746E-05, 2.38549E-05,
     &        3.45473E-06, 2.39892E-05, 5.74510E-03,-6.97150E-06,
     &        8.03013E-04,-3.52384E-06,-4.27072E-05, 1.38680E-05,
     &        5.14189E-05,-1.91336E-05, 6.25256E-06, 6.61562E-06,
     &        8.94827E-03, 1.47184E-03,-2.84112E-04,-1.34540E-04,
     &       -5.53008E-06,-7.00766E-05, 3.07114E-05,-2.10301E-06,
     &        8.04195E-06, 3.96938E-06, 2.71487E-03, 4.63667E-04,
     &       -2.69552E-04,-3.02976E-05, 3.06903E-05, 1.34530E-05,
     &        4.09226E-05, 2.89354E-05, 1.92464E-05, 8.96014E-03,
     &       -7.17311E-04, 1.75796E-04,-1.37713E-04,-9.44056E-05,
     &       -2.66851E-06, 1.13770E-05, 2.34676E-05, 8.08353E-06,
     &        4.01687E-03, 3.15280E-04, 1.78609E-04, 2.42863E-04,
     &        4.78188E-05,-5.19989E-06, 6.61862E-06, 7.43548E-06,
     &        6.95351E-04,-4.58996E-04, 2.62527E-04, 6.70234E-05,
     &        4.58976E-05, 2.90839E-05, 1.35446E-05, 2.25247E-05,
     &       -1.08559E-02,-1.44674E-04,-3.72672E-05, 1.45317E-04,
     &       -4.39083E-05,-9.71149E-06,-1.01675E-05, 2.51910E-03,
     &       -2.37634E-04,-1.60862E-04, 2.66115E-04, 6.53768E-05,
     &        1.38574E-05, 3.87196E-06,-2.63671E-03, 3.03560E-04,
     &        1.52067E-04,-6.68976E-05,-7.51373E-05,-8.00045E-06,
     &        4.83379E-03, 3.92555E-04,-4.39679E-04, 8.55494E-05,
     &        5.29690E-06,-1.15897E-05, 4.01407E-03, 1.70197E-03,
     &        2.60308E-04, 1.41838E-04, 5.47936E-05, 4.29804E-03,
     &        8.50326E-04,-3.17030E-04, 7.02910E-05,-3.06529E-06,
     &        9.23698E-03,-3.21978E-04,-8.15213E-05,-6.57138E-05,
     &        1.22603E-03, 1.21669E-03,-2.15827E-04, 4.95258E-05,
     &        3.11318E-03,-7.46428E-04,-3.21694E-04, 4.11088E-03,
     &        6.23410E-06,-3.55243E-04,-5.36758E-03,-8.85848E-05,
     &        2.94989E-03,-8.19323E-05,-5.89133E-03, 4.07130E-03/
C     long 15deg, dec_so
      DATA (D(2,4,J),J=1,289)/-8.48709E-01,
     &       -2.10100E-01,-3.39953E-01, 1.38748E-01,-3.34362E-01,
     &        7.64740E-04, 1.14207E-01,-5.04334E-02, 9.28055E-02,
     &        1.19213E-01, 2.61580E-01,-5.34846E-02,-7.76468E-02,
     &       -2.43669E-02, 3.99100E-02,-4.74598E-02,-1.17157E-01,
     &       -2.55333E-01,-5.06572E-03, 1.11285E-02, 3.20025E-02,
     &        1.60182E-02,-1.25761E-04, 5.35046E-02,-9.63651E-03,
     &        1.20992E-02, 9.88758E-03,-9.95483E-03,-4.19016E-03,
     &       -1.20765E-02, 4.01291E-03,-1.14590E-02, 4.75450E-04,
     &       -2.39742E-01,-8.67866E-02,-3.35481E-02, 4.34939E-03,
     &        1.29358E-02,-2.75585E-03,-4.26543E-02,-7.32076E-03,
     &       -3.47965E-02,-5.20265E-04,-1.05006E-02, 1.58661E-03,
     &       -5.65211E-03, 3.28196E-03,-1.47092E-03, 1.68703E-03,
     &        5.27268E-02, 3.89784E-02, 2.18211E-02, 4.62229E-03,
     &       -2.18986E-03,-4.01945E-04, 3.64339E-03,-1.98294E-03,
     &        4.88137E-03, 2.49281E-03,-1.46374E-03, 1.22092E-03,
     &       -6.99851E-04, 8.81533E-04,-6.88712E-04, 5.56291E-02,
     &        4.02108E-02,-1.90687E-02,-1.28520E-02,-5.53882E-04,
     &       -5.35497E-03, 1.63233E-03, 2.31402E-03,-2.24107E-03,
     &        7.79658E-04,-2.39446E-03,-7.96328E-04,-2.34643E-04,
     &       -3.23088E-04,-3.00061E-04, 4.04911E-02,-2.51188E-02,
     &       -8.42228E-03,-1.67885E-03, 1.43264E-03, 1.63533E-03,
     &       -1.01566E-03,-9.87032E-04, 1.19292E-04,-5.95241E-04,
     &       -9.91663E-05, 1.81226E-04,-4.48173E-05, 5.71648E-05,
     &        5.71970E-02, 6.74927E-04, 4.01997E-03,-1.52326E-03,
     &       -4.65843E-04,-1.87506E-03, 4.16326E-04,-1.07798E-03,
     &        3.55248E-04, 2.68806E-04,-3.74981E-05, 8.28660E-05,
     &       -1.50305E-04,-1.98635E-04, 3.67152E-02, 1.24762E-02,
     &       -2.82272E-04, 1.68227E-05, 4.74813E-04,-1.51714E-04,
     &        2.69162E-04, 4.86215E-04, 1.12659E-04, 3.16472E-05,
     &        1.07550E-04, 5.63276E-05, 3.54242E-05,-1.46311E-02,
     &       -1.53490E-02,-2.03356E-03,-1.54339E-03,-3.14744E-04,
     &        1.08634E-04, 2.58965E-05,-6.81866E-05,-9.16075E-05,
     &       -1.64094E-04,-1.96837E-05, 1.07340E-05,-3.54798E-05,
     &        6.10249E-04, 5.98981E-03, 1.31335E-03, 9.27097E-04,
     &        3.82908E-04,-1.82492E-04, 1.50276E-04,-1.02945E-04,
     &       -1.20783E-04,-7.64440E-06,-2.70597E-05,-4.06592E-05,
     &       -1.05934E-02, 4.65969E-03, 2.88149E-03, 3.69676E-04,
     &        4.60812E-05,-3.19419E-05, 6.16731E-05, 1.76316E-04,
     &        2.77926E-05, 2.61090E-05,-5.24231E-06,-2.05027E-05,
     &       -1.30221E-02,-3.30428E-03, 4.30818E-04, 5.27124E-06,
     &       -1.16098E-04, 4.90336E-05,-4.07733E-05,-9.53689E-05,
     &       -7.50404E-05,-2.61473E-05,-1.94376E-05, 1.83384E-03,
     &        1.17197E-03,-1.10087E-03,-3.61077E-04, 9.66228E-05,
     &        2.56102E-05, 9.75395E-05, 5.56979E-05, 1.78243E-05,
     &        2.92531E-06, 2.36552E-05, 3.58481E-03, 9.05524E-04,
     &        7.57126E-04, 1.28584E-04, 8.92205E-05, 7.17658E-05,
     &        3.11569E-05,-4.83266E-06, 1.80002E-05, 1.00241E-05,
     &        8.01978E-03, 2.68762E-04,-6.70940E-04, 2.26647E-05,
     &       -3.45911E-05,-8.78786E-06, 1.75771E-05,-6.87109E-06,
     &        1.40610E-06,-8.67074E-06, 5.75409E-04, 1.21365E-03,
     &       -8.00623E-04,-9.01507E-05,-7.00934E-05, 3.48945E-05,
     &        3.70475E-05, 3.44833E-05, 1.15168E-05, 4.70443E-04,
     &        2.03779E-04, 1.13037E-04,-1.71634E-05,-6.99826E-05,
     &        8.80521E-05, 2.20448E-05, 2.63004E-05, 5.06067E-06,
     &        3.06395E-03, 2.27578E-04,-1.64582E-04, 1.83089E-04,
     &       -1.51513E-05,-2.26225E-06,-8.80136E-06, 2.55292E-06,
     &       -4.35344E-03,-5.11739E-04,-1.12627E-04,-1.07827E-04,
     &       -5.48363E-05, 6.80950E-05, 2.64070E-05, 1.68139E-05,
     &       -6.05127E-03,-7.18287E-04, 1.38475E-04, 2.14792E-04,
     &        2.13031E-06,-1.38762E-05,-1.81599E-05, 4.62710E-03,
     &        4.23734E-04,-3.10297E-05, 3.31321E-04, 8.84190E-05,
     &        3.92392E-05, 1.35388E-05,-3.61253E-03,-1.15281E-03,
     &        5.30633E-05,-1.02780E-04,-6.15810E-05,-1.29306E-06,
     &        1.02703E-02,-1.76404E-04,-2.20538E-04, 1.77404E-04,
     &        5.23730E-05,-1.34075E-05, 3.18420E-03, 6.42057E-04,
     &       -5.39119E-05, 8.08929E-05, 5.40731E-05, 5.18652E-03,
     &       -1.13684E-04,-2.17866E-04, 1.16996E-05, 2.36736E-05,
     &        7.13250E-03, 9.57278E-04, 9.96970E-05,-4.71466E-05,
     &       -5.01735E-03, 7.97637E-04,-8.63106E-05, 9.88533E-05,
     &        7.56942E-03,-1.84353E-04,-1.21495E-04,-3.67087E-03,
     &        9.59000E-04,-1.62583E-04, 1.02891E-02, 9.43493E-05,
     &        2.41329E-03,-1.03007E-04,-1.91491E-03, 3.12560E-03/
C     long 30deg, dec_so
      DATA (D(3,4,J),J=1,289)/-8.84940E-01,
     &       -2.45354E-01,-3.09312E-01, 1.80879E-01,-2.90722E-01,
     &        2.91071E-02, 7.89348E-02,-7.47488E-02, 1.44425E-01,
     &        1.32416E-01, 2.69814E-01,-5.28671E-02,-7.27235E-02,
     &       -1.80350E-02, 3.32171E-02,-4.86480E-02,-9.61324E-02,
     &       -2.95254E-01,-1.61417E-02, 3.17773E-02, 2.25797E-02,
     &        1.04968E-02, 1.15915E-02, 5.15018E-02,-1.37958E-02,
     &        2.01373E-02, 6.79791E-03,-1.21509E-02,-4.97334E-03,
     &       -1.04654E-02, 7.11072E-05,-1.09123E-02, 2.10036E-04,
     &       -2.76224E-01,-1.07664E-01,-4.06179E-02, 2.34196E-02,
     &        1.53165E-02,-7.58843E-03,-4.03790E-02,-6.15621E-03,
     &       -3.53449E-02,-2.97372E-03,-1.03967E-02, 3.05207E-03,
     &       -7.58955E-04, 3.38790E-03, 1.57140E-03, 5.49338E-03,
     &        8.62476E-02, 5.45556E-02, 2.22008E-02,-3.65231E-03,
     &       -1.26477E-03, 2.43559E-03, 1.23945E-03,-5.13043E-04,
     &        5.60933E-03, 1.51983E-03,-1.89232E-03, 1.32421E-03,
     &       -1.78738E-03, 4.48163E-04,-1.07659E-03, 7.64185E-02,
     &        2.47774E-02,-2.59343E-02,-9.94350E-03,-3.35605E-03,
     &       -6.41373E-03, 1.92573E-03, 2.56109E-03,-1.66767E-03,
     &        7.46026E-04,-3.75221E-03,-4.38559E-04, 1.15516E-04,
     &       -4.41242E-04,-2.08477E-04, 8.49328E-03,-2.09650E-02,
     &       -7.53866E-03,-7.37783E-04, 2.31826E-03, 1.26253E-03,
     &       -1.76541E-03,-5.03199E-04, 1.65694E-04,-1.91879E-04,
     &        2.24076E-04, 2.18022E-04,-3.30267E-05, 2.87548E-05,
     &        8.90821E-02, 3.46206E-03,-1.95753E-04,-4.52357E-03,
     &       -7.51760E-04,-1.60165E-03, 1.89189E-04,-5.05188E-04,
     &        8.44771E-04, 6.60109E-05, 3.17609E-07,-6.58973E-06,
     &       -5.70420E-05,-2.02425E-04, 3.26727E-02, 9.39015E-03,
     &        1.00118E-03, 2.26157E-03, 7.02364E-04, 3.05167E-06,
     &        5.18728E-04, 2.95807E-04,-1.32717E-04,-2.68843E-05,
     &        6.36076E-05, 5.57261E-05,-4.39210E-05,-2.83762E-02,
     &       -1.82710E-02,-1.33119E-03, 7.76911E-05, 2.43456E-05,
     &        8.37392E-05,-7.49047E-05, 2.02515E-06,-1.29886E-04,
     &        2.00892E-06, 8.67315E-05, 5.32135E-05,-4.26622E-05,
     &       -3.65129E-03, 2.72834E-03, 1.79043E-03, 3.72763E-04,
     &       -4.16884E-04,-3.77987E-04, 3.53804E-04,-8.05168E-05,
     &       -5.10816E-06,-3.23453E-05,-3.63812E-05,-6.04424E-05,
     &       -5.34857E-03, 6.82463E-03, 3.71198E-03, 9.19713E-04,
     &        1.97896E-05,-1.75240E-04, 8.37912E-05, 5.96979E-05,
     &       -5.85161E-05, 1.01641E-05,-4.37872E-06, 4.47406E-06,
     &       -2.43790E-02,-6.79363E-03,-7.02157E-04,-4.51860E-04,
     &       -3.01380E-04,-6.01402E-05,-1.50239E-04,-9.09858E-05,
     &       -7.16095E-05,-1.64535E-05,-3.20111E-05,-2.55220E-04,
     &       -7.20753E-04,-1.96587E-03,-6.70731E-04,-2.02078E-04,
     &       -6.57182E-05, 5.20289E-05, 1.90312E-05, 2.68042E-05,
     &        1.53253E-05, 1.08457E-05, 2.83479E-04, 1.82377E-03,
     &        4.29272E-04, 1.86428E-04, 1.92082E-04, 4.46652E-05,
     &        3.37035E-05, 8.25376E-06, 9.58317E-06,-9.96476E-07,
     &        8.56951E-03,-1.52889E-03,-8.02394E-04,-9.88582E-06,
     &        2.16594E-05,-2.19301E-05,-5.61330E-05,-8.06453E-06,
     &        7.73306E-07,-2.75601E-06,-2.16627E-03, 1.05771E-03,
     &       -8.65538E-04,-3.04691E-04,-2.05413E-04,-3.83175E-05,
     &        2.21489E-05, 1.56277E-05,-6.60936E-06, 1.13183E-03,
     &        2.08174E-03, 7.61843E-04, 1.50325E-04,-5.44742E-05,
     &        3.29339E-05, 1.85709E-05, 2.08718E-06,-5.60206E-06,
     &       -1.00294E-02,-1.35297E-03,-5.70066E-04, 2.94598E-05,
     &       -4.63952E-05,-8.55625E-06, 7.06536E-06,-8.44708E-06,
     &       -3.49795E-03,-6.29224E-04,-3.46743E-04,-1.93100E-04,
     &       -1.80135E-04,-3.44678E-06,-2.76530E-07, 5.59678E-07,
     &       -7.48510E-03, 2.18550E-04, 4.46534E-04, 2.42822E-04,
     &        9.53420E-05, 1.23562E-05,-2.81454E-06, 1.06515E-03,
     &       -8.11188E-04, 2.69275E-04, 2.00731E-04,-1.83374E-06,
     &        4.45879E-05, 4.29107E-06, 7.64831E-04,-1.19594E-03,
     &       -3.56425E-04,-1.03556E-04, 1.27278E-05,-1.39534E-05,
     &        6.37537E-03, 4.90866E-04,-4.04598E-05, 1.09375E-04,
     &        4.35558E-05, 1.04106E-05, 3.31025E-03,-1.90052E-03,
     &       -2.67812E-04,-7.83772E-06, 2.63602E-05, 1.50962E-03,
     &       -1.66801E-04, 4.60758E-05,-4.28126E-05,-7.03993E-06,
     &        7.95579E-04, 3.97754E-04, 2.31413E-04, 6.15323E-05,
     &       -1.04638E-02,-4.92828E-04,-6.41642E-05, 4.89921E-05,
     &        3.26576E-03, 9.88008E-06, 1.98596E-05,-9.73410E-03,
     &        6.11026E-04, 6.95112E-05, 8.40207E-03,-2.74822E-04,
     &       -4.05312E-04,-1.35908E-04,-5.50538E-03, 3.66388E-05/
C     long 45deg, dec_so
      DATA (D(4,4,J),J=1,289)/-9.12891E-01,
     &       -2.65031E-01,-3.22497E-01, 1.46645E-01,-2.44474E-01,
     &        6.95784E-02, 4.91196E-02,-7.68547E-02, 1.49038E-01,
     &        1.15738E-01, 2.99423E-01,-6.72084E-02,-4.57244E-02,
     &        7.46836E-03, 3.25094E-02,-7.58116E-02,-1.23879E-01,
     &       -2.88375E-01,-6.88780E-03, 3.80811E-02, 1.47486E-02,
     &        1.07598E-02, 2.02694E-02, 4.38099E-02,-1.01529E-02,
     &        3.03524E-02, 5.78804E-04,-1.18605E-02,-8.26906E-03,
     &       -8.42770E-03,-4.76863E-03,-1.11019E-02,-1.65838E-03,
     &       -2.98818E-01,-1.20667E-01,-4.88169E-02, 2.82579E-02,
     &        9.93798E-03,-1.04977E-03,-3.37802E-02,-5.95908E-03,
     &       -3.94894E-02,-5.69103E-03,-1.17872E-02, 9.65993E-04,
     &       -1.51848E-04, 1.38476E-03, 2.61211E-03, 3.07589E-03,
     &        9.94697E-02, 5.54180E-02, 2.27214E-02,-6.82037E-03,
     &        2.80595E-03, 6.49777E-05,-2.01039E-03, 1.31485E-04,
     &        6.47821E-03,-4.01676E-05,-1.20004E-03, 6.78951E-04,
     &       -1.49658E-03, 5.70078E-04,-9.05846E-04, 7.36267E-02,
     &        1.16953E-02,-2.59661E-02,-2.64183E-03,-7.76294E-03,
     &       -5.84250E-03, 1.31414E-03, 1.85427E-03,-1.62519E-03,
     &        1.03610E-03,-4.44402E-03, 6.51661E-04, 9.98244E-05,
     &       -1.97853E-04, 2.22433E-05,-5.52701E-03,-1.20748E-02,
     &       -5.27834E-03,-1.43181E-03, 2.30026E-03, 5.02764E-04,
     &       -1.64586E-03, 1.23503E-05, 3.61409E-04, 6.90539E-05,
     &        2.97461E-04,-1.17507E-04,-1.84294E-05, 8.35109E-05,
     &        1.03234E-01,-4.10346E-05,-3.15576E-03,-6.13702E-03,
     &       -2.49844E-03,-2.70290E-03,-5.80683E-04,-2.46636E-04,
     &        6.38491E-04,-3.18048E-04,-1.30592E-05,-1.39884E-04,
     &        7.99704E-06,-6.48459E-05, 1.59142E-02, 3.67262E-03,
     &        2.84206E-03, 3.51659E-03, 8.75110E-04, 6.31243E-04,
     &        9.14266E-04, 2.29027E-04,-1.20335E-04, 3.52403E-05,
     &        6.10093E-05, 7.73470E-05, 5.60570E-06,-2.88927E-02,
     &       -1.12406E-02, 1.83194E-03,-7.42468E-05,-1.67169E-04,
     &        3.58056E-05, 1.39749E-04, 5.25665E-05, 7.46515E-05,
     &        2.85780E-04, 2.23514E-04, 8.90567E-05,-3.02485E-05,
     &       -1.77414E-02,-4.68491E-03, 1.06289E-03, 1.43643E-04,
     &       -8.91497E-04,-2.78640E-04, 2.59781E-04,-1.07179E-05,
     &        2.44158E-05,-6.54307E-05,-6.11689E-05,-3.87830E-05,
     &       -1.99575E-03, 6.46811E-03, 2.76650E-03, 9.30368E-04,
     &        2.11363E-04, 2.14687E-04, 1.44920E-04,-2.04474E-05,
     &       -1.05851E-04,-1.39359E-05, 1.98015E-05, 2.94714E-05,
     &       -3.28920E-02,-4.60916E-03, 1.89726E-05,-5.02100E-04,
     &       -2.39595E-04,-2.86188E-04,-1.73418E-04,-9.56511E-05,
     &       -3.49924E-05, 1.16851E-05,-5.39838E-06,-1.79741E-03,
     &       -2.32824E-03,-2.30476E-03,-6.66470E-04,-2.50580E-04,
     &       -1.21340E-04,-2.62318E-05, 1.04746E-06, 3.90922E-05,
     &       -1.91952E-05,-1.73890E-05,-2.04447E-04, 1.29822E-03,
     &       -3.69458E-04, 3.20098E-04, 3.82348E-04, 4.66105E-05,
     &        3.38573E-05,-1.50217E-05,-5.57059E-06,-8.43091E-06,
     &        1.26109E-02, 9.47828E-04,-1.63091E-04, 1.81173E-04,
     &        7.25652E-05,-3.45059E-05,-8.21937E-05, 3.01020E-05,
     &        3.39190E-05, 2.77350E-05,-1.88156E-03,-9.93425E-04,
     &       -8.94901E-04,-1.09238E-04,-4.53833E-05,-5.34402E-05,
     &       -3.85944E-06,-2.27859E-05,-2.58880E-05,-1.45853E-03,
     &        8.90914E-04,-2.55132E-04,-1.95758E-04,-9.53492E-05,
     &        2.09544E-05, 1.95512E-05,-1.02599E-05,-1.56127E-05,
     &       -8.25374E-03,-1.21766E-04, 2.55251E-04, 4.53318E-04,
     &        8.84042E-05,-4.55816E-05,-3.00698E-05,-1.62473E-05,
     &       -2.41928E-03, 1.52224E-03, 5.41483E-05,-2.21866E-04,
     &       -1.26880E-04,-1.33797E-05,-1.80539E-05, 5.28497E-07,
     &       -6.20013E-03, 4.56279E-04, 3.26928E-04, 2.27804E-04,
     &        1.24240E-04, 3.89174E-05,-1.29759E-05, 2.53534E-03,
     &        2.12122E-03, 1.23393E-03, 3.29996E-04, 5.11186E-05,
     &        2.79651E-05,-3.08364E-05, 4.55787E-03,-6.29799E-04,
     &       -1.08276E-03,-2.29524E-04,-1.23147E-05,-1.02290E-06,
     &        6.21568E-03, 7.26243E-04,-1.18020E-04, 3.16917E-05,
     &        6.25218E-05, 3.34755E-05,-8.49877E-04,-4.04022E-04,
     &        5.45826E-05,-6.47354E-05, 1.24095E-05, 4.76521E-04,
     &       -2.60168E-04,-4.49187E-04,-2.26540E-04,-8.42414E-05,
     &       -4.97388E-05, 4.72626E-04, 4.41844E-04, 8.13191E-05,
     &       -8.31124E-03,-1.15024E-03,-2.35049E-04,-3.45780E-05,
     &        1.20529E-03, 8.90771E-05, 1.71483E-04,-5.98679E-03,
     &        1.96106E-04, 1.91706E-04, 6.33794E-03,-5.21289E-04,
     &        3.14060E-03,-2.96693E-04,-7.98363E-05, 3.17494E-03/
C     long 60deg, dec_so
      DATA (D(5,4,J),J=1,289)/-9.35131E-01,
     &       -2.42213E-01,-3.04567E-01, 8.48548E-02,-1.55221E-01,
     &        1.30954E-01, 2.52012E-02,-6.62833E-02, 1.00491E-01,
     &        8.36708E-02, 2.99598E-01,-1.29420E-01,-1.66267E-02,
     &        4.39492E-02, 1.77462E-02,-6.19113E-02,-1.44434E-01,
     &       -2.69066E-01, 1.41877E-03, 3.37000E-02, 8.85721E-03,
     &        1.62862E-02, 2.21226E-02, 3.76428E-02,-5.02547E-03,
     &        3.04276E-02,-2.65050E-03,-9.31115E-03,-7.93206E-03,
     &       -5.21722E-03,-3.25947E-03,-6.72118E-03, 1.94456E-03,
     &       -3.24081E-01,-1.33500E-01,-5.51376E-02, 2.09310E-02,
     &        6.08663E-03, 6.48305E-03,-2.77269E-02,-4.67163E-03,
     &       -3.39223E-02,-3.43152E-03,-1.00546E-02,-3.61251E-03,
     &       -7.43030E-04, 2.34998E-03, 2.36191E-03, 2.22718E-03,
     &        9.87774E-02, 4.44081E-02, 2.46656E-02,-3.70542E-03,
     &        8.63130E-03,-1.89448E-03,-1.46309E-03, 2.27249E-03,
     &        6.77585E-03,-1.06165E-03,-3.48674E-04,-6.91249E-05,
     &       -8.80215E-04, 4.95476E-04,-1.12315E-03, 4.44376E-02,
     &       -1.31800E-03,-1.57403E-02, 5.00444E-03,-7.92129E-03,
     &       -4.06620E-03, 1.19959E-03, 1.34922E-03,-1.45170E-03,
     &        7.85699E-04,-5.13528E-03, 1.20222E-03,-6.86733E-04,
     &       -3.55178E-04,-1.47573E-04,-1.43928E-02,-8.99730E-03,
     &       -5.28251E-03,-2.72889E-03, 1.92304E-03,-8.39691E-04,
     &       -1.93464E-03, 2.68761E-06, 1.25162E-04,-2.60771E-05,
     &        6.40482E-05,-3.85412E-04, 4.65942E-05, 1.69864E-04,
     &        9.71432E-02,-9.93336E-03,-2.68776E-03,-5.25094E-03,
     &       -2.52646E-03,-2.65445E-03,-3.11136E-04, 3.64495E-04,
     &        6.79424E-04,-4.41067E-04, 3.72867E-05, 6.06481E-06,
     &        9.06094E-05,-1.34001E-05, 2.25770E-02, 6.35480E-03,
     &        5.28515E-03, 4.12111E-03, 1.29021E-03, 1.28052E-03,
     &        8.57997E-04, 1.40642E-04,-1.23400E-04, 1.64811E-05,
     &       -1.07408E-05,-4.88403E-07, 1.20209E-05,-2.22495E-02,
     &       -6.75004E-03, 3.45692E-03,-8.33260E-04,-1.20932E-04,
     &       -1.73770E-04, 1.24322E-04,-1.74771E-05, 3.06088E-05,
     &        1.53812E-04, 1.16579E-04,-7.73127E-05,-3.02282E-05,
     &       -1.45161E-02,-7.36554E-03,-2.70943E-04, 4.24610E-04,
     &       -6.35948E-04, 1.16627E-05, 1.66086E-04, 6.61881E-05,
     &       -2.78165E-05,-5.05066E-05,-3.67448E-05, 4.33890E-05,
     &        1.50476E-02, 8.65230E-03, 3.08584E-03, 1.00734E-03,
     &        5.77577E-04, 5.54046E-04, 2.70784E-04, 4.52584E-05,
     &       -5.15379E-05,-3.24358E-06, 8.16364E-06, 1.65499E-05,
     &       -3.33418E-02,-4.43523E-03,-3.42238E-04,-2.08631E-04,
     &       -3.33491E-04,-4.16702E-04,-1.27188E-04,-5.14891E-05,
     &       -2.17164E-05, 3.35522E-06,-4.18362E-07, 4.14382E-03,
     &       -2.27416E-03,-1.65941E-03,-4.87338E-04,-2.42561E-04,
     &       -1.11336E-04,-1.94875E-05,-1.86683E-05,-1.89764E-05,
     &       -4.03168E-05,-3.26715E-05, 3.72777E-03, 1.89579E-03,
     &        1.50599E-04, 5.87060E-04, 4.20286E-04, 2.34057E-05,
     &       -5.81110E-06,-4.35085E-05,-1.37671E-05,-1.48998E-05,
     &        1.18172E-02, 2.27834E-03,-3.51203E-04, 7.03916E-05,
     &        3.45999E-05,-1.89058E-05,-3.68506E-05, 3.97175E-06,
     &        2.23655E-05, 2.13823E-05,-9.17734E-04, 8.31424E-04,
     &       -3.53289E-04,-5.06738E-05, 5.56675E-05,-1.37272E-05,
     &       -5.34319E-06,-3.58468E-05,-1.14275E-05,-1.12700E-03,
     &        1.48649E-03,-2.30964E-04,-1.99581E-04,-9.03596E-06,
     &        8.77123E-05, 1.62103E-05,-3.18779E-05,-2.38531E-05,
     &       -7.55934E-03, 1.03064E-03, 6.90602E-04, 1.86004E-04,
     &       -2.15893E-05,-9.80778E-05,-4.36176E-05,-2.18898E-05,
     &       -8.80430E-03, 2.57129E-03, 5.04514E-04,-2.60116E-04,
     &       -3.82605E-05, 1.24648E-05, 8.81338E-06,-7.61580E-06,
     &       -2.73704E-03,-1.54098E-04,-2.73703E-04, 2.56956E-05,
     &        6.72055E-05, 3.63233E-06,-3.37538E-05,-1.83983E-03,
     &        2.49317E-03, 8.49134E-04, 2.38633E-04, 2.91335E-05,
     &       -7.70954E-06,-1.70757E-05, 2.51849E-05,-9.99398E-04,
     &       -1.08722E-03,-1.41239E-04, 2.62706E-05, 9.96841E-06,
     &        8.86822E-03, 3.68613E-04,-3.02009E-04, 1.45263E-04,
     &        1.12702E-05,-3.79171E-05,-6.35674E-03,-7.62492E-05,
     &        1.67972E-04,-1.21794E-05, 2.45148E-05,-8.09878E-03,
     &       -6.89784E-04,-4.97426E-04,-2.70770E-05,-2.52034E-05,
     &        7.10064E-04, 7.64244E-04, 4.48283E-04,-6.64546E-05,
     &       -8.59382E-03,-1.37870E-04,-1.55469E-04, 2.37154E-05,
     &        4.42815E-03, 6.19404E-04, 1.85858E-04,-2.43491E-03,
     &        1.51420E-03, 3.02181E-04,-2.50199E-03,-2.77367E-04,
     &        8.87759E-03, 1.71806E-03, 4.44032E-03, 3.76350E-03/
C     long 75deg, dec_so
      DATA (D(6,4,J),J=1,289)/-9.58846E-01,
     &       -2.19136E-01,-2.39220E-01, 6.86901E-03,-1.06050E-01,
     &        1.87692E-01, 9.16930E-03,-3.25131E-02, 5.51631E-03,
     &        4.72021E-02, 2.64477E-01,-1.82194E-01, 9.31052E-03,
     &        6.92295E-02, 4.35227E-02,-4.55776E-02,-1.33528E-01,
     &       -2.55367E-01, 1.69819E-02, 2.81860E-02,-4.27932E-05,
     &        2.65806E-02, 2.53998E-02, 3.88053E-02,-1.51460E-03,
     &        3.17161E-02,-4.18248E-03,-6.14218E-03,-7.29417E-03,
     &       -1.69026E-03,-5.12990E-03,-3.43396E-03, 1.58878E-03,
     &       -3.51266E-01,-1.30677E-01,-3.91732E-02, 2.14037E-02,
     &        4.00432E-03, 5.99477E-03,-1.82486E-02, 3.06546E-03,
     &       -3.37190E-02,-6.70769E-03,-1.37922E-02,-1.14847E-02,
     &       -6.42964E-03, 4.58147E-03, 3.62649E-03, 4.08907E-03,
     &        9.21125E-02, 4.18683E-02, 2.47027E-02,-5.92518E-03,
     &        1.25244E-02, 3.53265E-04,-5.36946E-04, 2.03700E-03,
     &        6.78056E-03,-1.40985E-03, 5.47199E-05, 2.26610E-04,
     &        2.07164E-04, 7.07810E-04,-1.30728E-03,-7.64221E-04,
     &       -5.25873E-03,-4.23523E-03, 4.78502E-03,-8.90414E-03,
     &       -3.01875E-03, 2.42032E-03, 2.02502E-03,-7.57537E-04,
     &        6.58558E-04,-4.90538E-03, 5.10008E-04,-8.54806E-04,
     &       -7.36493E-05, 6.02430E-06,-3.34462E-04,-1.09094E-02,
     &       -6.62281E-03,-2.01095E-03, 3.02111E-03,-4.39111E-04,
     &       -2.08481E-03, 1.17569E-05,-3.33802E-04,-1.71574E-04,
     &       -2.76261E-04,-1.98207E-04, 5.25248E-05, 7.89964E-05,
     &        7.76611E-02,-1.38626E-02,-2.94792E-04,-4.71264E-03,
     &       -5.45275E-04,-9.11350E-04, 4.18276E-04, 7.76661E-04,
     &        5.63133E-04,-5.08387E-04, 7.25150E-06, 4.88160E-05,
     &        2.35205E-04, 1.09102E-05, 2.92070E-02, 9.80697E-03,
     &        6.41297E-03, 4.00214E-03, 1.18588E-03, 1.03978E-03,
     &        6.36724E-04,-1.52364E-04,-1.04958E-04,-1.20035E-05,
     &        4.55025E-06,-3.11411E-05, 3.25175E-05,-1.88705E-02,
     &       -6.70947E-03, 3.95812E-03,-3.57085E-04, 7.51479E-04,
     &        1.66071E-04, 1.48268E-04,-6.14449E-05,-1.79738E-04,
     &       -8.39766E-07, 2.61346E-05,-9.35052E-05, 3.72471E-05,
     &       -1.73990E-02,-7.78815E-03, 5.33900E-04, 5.43700E-04,
     &       -5.98407E-04,-2.16373E-04, 6.51792E-05,-2.12310E-05,
     &        2.24969E-05,-1.56061E-05, 2.93049E-07, 4.16737E-05,
     &        1.57853E-02, 9.49544E-03, 2.91716E-03, 6.28373E-04,
     &        4.15743E-04, 4.87982E-04, 2.49583E-04, 2.69463E-05,
     &       -1.23196E-04,-4.61985E-05,-3.68661E-05, 1.48524E-05,
     &       -2.94803E-02,-5.32210E-03,-3.53609E-04,-1.73360E-04,
     &       -4.19455E-04,-2.97932E-04,-1.56548E-04,-4.47531E-05,
     &       -8.70703E-06, 8.40417E-06, 5.94193E-06,-3.60907E-03,
     &       -2.67393E-03,-3.87463E-04,-2.81332E-04,-5.93056E-05,
     &       -5.32558E-05,-3.11098E-05,-5.88367E-05,-5.97493E-05,
     &       -3.82513E-05,-5.45407E-06, 6.75586E-05, 4.79579E-06,
     &       -8.18490E-04,-5.35087E-05, 1.38532E-04, 6.30612E-06,
     &        1.53708E-05,-1.69054E-06,-3.52165E-06,-1.10374E-06,
     &        1.19672E-02, 1.86967E-04,-2.82957E-04, 1.93114E-06,
     &        6.20029E-05, 3.50856E-05,-2.11007E-05,-9.37015E-07,
     &        3.08446E-06, 5.56651E-06, 9.16604E-04, 3.14169E-03,
     &        1.95689E-04, 1.09274E-04, 6.10953E-05,-2.32594E-05,
     &        6.46935E-06,-1.37893E-05, 6.12546E-06,-3.22478E-03,
     &       -4.02312E-04,-6.68472E-04,-6.29964E-04,-9.61279E-05,
     &        5.20893E-05,-1.63421E-06, 1.38097E-05,-2.53620E-06,
     &       -4.14780E-03, 2.45260E-03, 1.19470E-03, 1.11629E-04,
     &       -1.03824E-06,-2.30126E-05,-9.70730E-06,-2.52868E-05,
     &       -9.08013E-04, 2.73374E-03, 1.20740E-03, 1.28070E-04,
     &       -2.33075E-05,-2.00666E-05, 7.79765E-06,-1.79835E-05,
     &       -6.71965E-03,-1.52410E-03,-1.10998E-03,-3.23087E-04,
     &       -3.11608E-05,-4.57383E-06,-2.08490E-05, 3.59186E-03,
     &        2.01482E-03, 7.33250E-04, 1.51138E-04,-5.13049E-08,
     &        1.90526E-06, 1.89798E-06,-1.09877E-02,-9.13953E-04,
     &       -7.33294E-04,-2.69760E-04,-1.02677E-05,-2.92647E-06,
     &        6.24815E-03, 4.46773E-04,-6.07260E-04,-7.60048E-05,
     &       -4.97616E-05,-5.31030E-05,-3.82254E-03, 1.79340E-05,
     &        1.26007E-04,-3.01296E-05,-4.00439E-06,-4.69767E-03,
     &       -1.61294E-03,-8.58275E-04,-3.13780E-05,-9.23993E-06,
     &       -3.90332E-03,-9.81360E-05, 4.04543E-04,-2.25961E-04,
     &        1.17481E-03, 4.73169E-04,-1.47575E-04, 2.36233E-05,
     &       -1.61906E-03, 6.57864E-04, 2.29726E-04,-2.12528E-04,
     &        1.52607E-03, 3.89442E-04,-7.21825E-03,-4.13906E-04,
     &       -5.03753E-04, 1.62404E-03, 7.98187E-03, 2.59780E-03/
C     long 90deg, dec_so
      DATA (D(7,4,J),J=1,289)/-9.68536E-01,
     &       -2.38022E-01,-1.73986E-01,-4.67011E-02,-1.34287E-01,
     &        2.42591E-01, 4.32696E-02,-9.47333E-03,-4.15830E-02,
     &        4.09921E-02, 2.24957E-01,-1.81753E-01,-3.23357E-04,
     &        5.64450E-02, 5.16774E-02,-1.64009E-02,-1.17572E-01,
     &       -2.46798E-01, 3.22785E-02, 2.33627E-02,-3.77940E-03,
     &        4.09710E-02, 3.09316E-02, 3.84718E-02, 8.20201E-04,
     &        3.36276E-02, 7.90523E-04,-1.47641E-03,-6.33903E-03,
     &        1.02959E-03,-8.28857E-03,-3.87221E-03, 3.11035E-04,
     &       -3.71465E-01,-1.15903E-01,-1.87741E-02, 2.07236E-02,
     &       -2.36881E-03, 1.20142E-03,-1.03676E-02, 1.12727E-02,
     &       -3.19879E-02,-1.06245E-02,-1.24020E-02,-1.25011E-02,
     &       -7.35363E-03, 3.94687E-03, 5.39428E-03, 5.09343E-03,
     &        6.72859E-02, 4.04374E-02, 2.46817E-02,-9.34615E-03,
     &        1.55191E-02, 2.03323E-03,-9.83584E-04,-7.12087E-04,
     &        6.60638E-03,-1.46290E-03,-9.29307E-06,-4.50262E-04,
     &        5.70239E-04, 1.09008E-04,-1.09051E-03,-2.99469E-02,
     &        2.33746E-03, 9.07450E-04, 2.99660E-03,-5.63854E-03,
     &       -1.59378E-03, 3.45377E-03, 2.42181E-03,-7.21796E-04,
     &        7.04813E-04,-3.06378E-03, 3.97202E-04,-1.48907E-05,
     &        2.61526E-04, 6.57278E-05, 9.44874E-03,-1.30257E-02,
     &       -6.20607E-03,-1.26699E-03, 2.76466E-03, 6.45243E-04,
     &       -2.57936E-03, 6.21355E-05, 6.00056E-05,-3.29003E-05,
     &       -4.83671E-04,-1.88609E-04,-1.99960E-04,-3.30802E-05,
     &        6.65327E-02,-1.17115E-02, 3.12886E-03,-5.17983E-03,
     &       -6.55236E-05,-8.93489E-04,-1.06485E-04, 4.46373E-04,
     &        1.30230E-04,-3.73209E-04,-5.11203E-05,-1.15633E-04,
     &        1.13875E-04,-6.73760E-05, 1.44225E-02, 9.77324E-03,
     &        4.90202E-03, 2.84562E-03, 9.31798E-04, 7.59956E-04,
     &        7.07353E-04,-7.03552E-05, 5.38454E-05,-5.19272E-05,
     &        5.25055E-05, 6.88529E-06, 7.80000E-05,-1.84844E-02,
     &       -5.75605E-03, 6.45166E-03, 5.10431E-04, 8.69500E-04,
     &        2.84870E-04, 2.68203E-04, 1.88924E-05,-6.92615E-05,
     &        9.62942E-06, 6.59506E-05,-7.75338E-05, 3.99316E-05,
     &       -1.22619E-02,-7.05639E-03,-3.37262E-04,-6.25536E-04,
     &       -1.17261E-03,-3.45069E-04,-9.32913E-05,-3.55139E-05,
     &        1.24867E-05, 9.33922E-06,-3.33541E-05, 4.29233E-05,
     &        1.49323E-03, 9.71665E-03, 2.73162E-03, 2.78051E-04,
     &       -2.54524E-04, 2.78196E-04, 2.13719E-04, 4.12614E-05,
     &       -1.29288E-04,-8.75103E-05,-2.40337E-05, 1.65557E-05,
     &       -2.11279E-02,-4.05886E-03, 6.54091E-04,-6.36068E-04,
     &       -2.93660E-04,-1.40470E-04,-2.00831E-04,-5.51414E-05,
     &        3.76286E-05, 1.93145E-05, 1.69881E-05,-2.48008E-03,
     &       -2.27668E-03,-1.42226E-03,-5.19423E-04,-2.40434E-04,
     &       -1.60692E-06,-1.46309E-05, 7.36276E-06, 2.03253E-06,
     &        2.88885E-05, 1.93311E-06,-8.04678E-03,-1.56273E-03,
     &       -3.24319E-04,-3.02153E-04, 4.57379E-05, 6.99856E-05,
     &       -4.88109E-07,-1.67474E-05,-1.14900E-05,-8.27810E-06,
     &        1.49250E-02,-4.25058E-04,-1.20791E-04,-3.55427E-04,
     &       -1.70345E-04, 3.40999E-06,-4.44485E-05,-1.02495E-05,
     &        1.85958E-05, 5.71940E-06, 6.77753E-04, 1.36333E-03,
     &        8.80679E-05, 1.61139E-04, 1.10247E-04,-3.79985E-05,
     &       -1.86761E-05,-2.50294E-05,-6.25962E-06,-6.50307E-03,
     &       -1.38023E-04,-2.26284E-04,-6.61406E-04,-1.12896E-04,
     &        7.41051E-05,-2.03923E-05, 1.98729E-06,-5.05419E-06,
     &        3.41334E-04, 9.02498E-04, 5.87758E-04, 1.20978E-04,
     &        1.06801E-05, 1.73945E-05, 6.58078E-06,-1.66271E-05,
     &        6.03291E-03, 2.57051E-03, 8.45198E-04, 3.24106E-04,
     &        3.13410E-05, 1.54224E-05, 9.54381E-06,-1.08997E-05,
     &       -4.92552E-03,-2.88542E-03,-1.31109E-03,-4.30238E-04,
     &       -1.05159E-04,-3.10714E-05,-1.88383E-05, 6.50242E-03,
     &        1.64669E-03, 2.52480E-04, 4.52407E-05,-3.96455E-05,
     &        2.59425E-05, 1.43183E-05,-8.51874E-03, 7.59972E-05,
     &       -4.52270E-05,-4.69629E-05, 1.85344E-06,-8.67367E-06,
     &        8.60134E-03, 1.58197E-04,-7.36934E-04,-2.02526E-04,
     &       -6.25271E-05,-4.05027E-05,-2.53953E-04, 2.19075E-04,
     &        3.37444E-04, 1.34891E-04, 5.61870E-05, 6.27049E-03,
     &       -6.08247E-04,-4.81709E-04, 1.14507E-04, 2.31135E-05,
     &       -1.23174E-03,-9.39817E-04,-4.38524E-05,-7.78465E-05,
     &        3.20631E-03, 3.02222E-04,-1.50905E-05, 4.40034E-05,
     &       -8.21570E-03,-6.86198E-04,-2.31865E-04,-1.87602E-04,
     &        3.10006E-04,-9.76383E-05, 4.15031E-03,-2.26333E-05,
     &       -4.71062E-03, 2.88457E-04, 9.30507E-03, 4.70981E-03/
C     long 105deg, dec_so
      DATA (D(8,4,J),J=1,289)/-9.52138E-01,
     &       -2.83706E-01,-1.16613E-01,-1.21311E-02,-1.76155E-01,
     &        2.60375E-01, 4.94727E-02,-3.10238E-03,-6.66476E-02,
     &        6.63952E-02, 2.06268E-01,-1.52387E-01,-2.77853E-02,
     &        2.87297E-02, 3.83959E-02,-2.19256E-02,-1.03386E-01,
     &       -2.35022E-01, 3.20404E-02, 2.69828E-02,-5.16869E-03,
     &        5.00919E-02, 3.54962E-02, 4.05906E-02, 5.27359E-04,
     &        2.82520E-02, 3.07653E-03, 1.68809E-03,-9.02794E-03,
     &        1.63182E-03,-8.64895E-03,-1.14389E-03, 1.38762E-03,
     &       -3.78914E-01,-1.01429E-01,-2.75988E-03, 2.08150E-02,
     &        2.12632E-03,-2.34538E-03,-1.45139E-02, 1.16379E-02,
     &       -2.74787E-02,-8.13025E-03,-1.22921E-02,-8.82298E-03,
     &       -6.70158E-03, 1.90791E-03, 4.29732E-03, 6.80584E-03,
     &        5.09729E-02, 3.26928E-02, 2.08328E-02,-1.08282E-02,
     &        1.60242E-02, 2.43551E-03, 2.77473E-05,-1.60749E-03,
     &        6.83399E-03,-1.51707E-03,-4.82479E-04,-1.09755E-03,
     &        6.82318E-04,-3.32755E-04,-1.03827E-03,-3.67273E-02,
     &        2.09835E-03, 1.08274E-03,-1.28217E-03,-1.11286E-03,
     &       -2.97160E-04, 4.32197E-03, 1.10342E-03,-1.54023E-03,
     &       -3.15786E-04,-2.11394E-03, 2.72146E-04, 4.43554E-04,
     &        1.56967E-04, 4.32758E-04, 2.10150E-02,-6.60047E-03,
     &       -4.18344E-03,-8.59839E-04, 2.13985E-03, 1.02075E-03,
     &       -2.97140E-03,-7.62637E-04, 8.81626E-05, 1.88659E-04,
     &       -3.73735E-04,-8.29292E-05,-2.22112E-04, 7.26208E-05,
     &        5.26716E-02,-1.36155E-02, 2.94367E-03,-5.27633E-03,
     &       -1.14279E-03,-8.35680E-04,-7.86488E-04, 4.85058E-04,
     &       -6.32701E-05,-5.60633E-05,-3.00113E-05,-4.57576E-05,
     &        9.02937E-05,-4.78003E-06, 3.66881E-03, 8.45676E-03,
     &        3.68490E-03, 2.50411E-03, 1.13143E-03, 7.81295E-04,
     &        4.63211E-04,-1.00396E-04, 1.00543E-04,-1.25298E-05,
     &        4.30393E-05, 4.13583E-05, 4.21508E-05,-2.27932E-02,
     &       -3.98148E-03, 8.62625E-03, 6.30965E-04, 5.21803E-04,
     &        4.77894E-04,-1.97227E-05,-5.22397E-05,-1.50364E-06,
     &        9.73834E-06, 3.26199E-05,-3.42675E-05, 8.43651E-05,
     &       -1.39190E-03,-5.70565E-03,-2.50038E-03,-1.49985E-03,
     &       -1.02223E-03,-2.47131E-04, 7.19237E-05, 2.70700E-05,
     &        2.48338E-05,-7.53203E-06,-2.28456E-05,-7.45361E-06,
     &       -9.56801E-03, 9.81363E-03, 3.23533E-03,-1.73534E-04,
     &       -4.16756E-04, 2.76323E-04, 8.39144E-05,-9.14326E-05,
     &       -9.99272E-05,-6.64790E-05,-1.67900E-05, 9.42778E-06,
     &       -1.69091E-02,-4.98346E-03, 3.17379E-04,-7.79323E-04,
     &       -2.48479E-04,-1.71540E-04,-1.36136E-04,-1.84535E-05,
     &        5.77667E-05, 3.84016E-05, 1.55186E-05, 2.60157E-03,
     &       -8.05272E-04,-2.73986E-03,-1.30008E-03,-3.36388E-04,
     &        2.10216E-05,-3.21717E-05, 1.22068E-05, 4.40691E-05,
     &        4.09667E-05,-1.77433E-06,-7.56334E-03,-1.30364E-03,
     &        5.28376E-04,-2.01396E-04, 5.45742E-06, 1.56965E-05,
     &       -2.86161E-05,-1.31762E-05,-3.53298E-06,-3.10072E-06,
     &        9.27477E-03,-4.39465E-04,-8.90241E-04,-5.95079E-04,
     &       -1.13706E-04, 5.44416E-06,-9.79963E-05,-2.52728E-05,
     &        4.44361E-05, 2.50523E-05,-3.89468E-04, 6.76885E-04,
     &        3.36088E-04, 1.05540E-04, 1.49569E-05,-3.87767E-05,
     &        4.52337E-06, 7.94543E-06,-9.06975E-06,-2.00178E-03,
     &        1.23463E-03, 9.08970E-04,-4.42031E-04,-4.24008E-06,
     &        1.02263E-04,-2.22653E-05,-3.56349E-06, 1.50135E-06,
     &        5.93950E-03,-1.37654E-03,-9.69478E-05, 9.55293E-05,
     &       -4.29428E-05,-6.26963E-05,-4.98178E-06,-9.66835E-06,
     &        3.45276E-03, 9.04033E-04, 6.05356E-04, 2.48133E-04,
     &        2.96594E-05, 1.09365E-05, 6.14678E-06, 1.52528E-05,
     &       -6.56069E-03,-3.54812E-03,-1.09501E-03,-3.31780E-04,
     &       -9.50461E-05,-5.29503E-05,-3.26709E-07, 6.92973E-03,
     &       -2.31256E-04,-5.10248E-05,-3.29052E-05,-3.88754E-05,
     &        2.37338E-06, 7.07393E-06,-3.95085E-03,-3.52743E-04,
     &        3.08950E-04, 1.88519E-04, 1.60935E-06,-1.42565E-05,
     &       -1.47956E-03,-6.50097E-04,-8.11965E-04,-3.51295E-04,
     &       -1.12611E-04,-4.40644E-05, 3.44474E-03, 6.73633E-04,
     &        5.46899E-04, 4.00854E-04, 8.41881E-05,-4.05137E-03,
     &        7.78675E-04, 1.16860E-04, 7.29981E-05, 1.56446E-05,
     &        4.73585E-03,-3.12195E-04, 3.32894E-04, 1.49297E-04,
     &       -1.77252E-03, 4.42239E-04, 2.32500E-04, 1.56326E-04,
     &       -1.42154E-04,-1.66656E-03,-3.83741E-04, 1.35446E-03,
     &        2.00673E-04,-2.98751E-05, 5.79867E-03,-9.19785E-05,
     &        2.59976E-03,-3.89661E-04, 1.05274E-03, 2.79536E-03/
C     long 120deg, dec_so
      DATA (D(9,4,J),J=1,289)/-9.24685E-01,
     &       -3.30024E-01,-3.91370E-02, 5.26373E-02,-2.20418E-01,
     &        2.32410E-01, 3.55648E-02, 1.28408E-02,-6.21053E-02,
     &        8.36379E-02, 1.83813E-01,-1.09425E-01,-2.97911E-02,
     &       -4.59566E-03, 4.85065E-02,-7.55808E-02,-9.26443E-02,
     &       -2.13583E-01, 2.65290E-02, 3.54037E-02,-5.15121E-03,
     &        4.87705E-02, 3.84582E-02, 4.12267E-02,-1.47030E-03,
     &        2.43617E-02, 9.41818E-04, 3.40925E-03,-1.00275E-02,
     &        1.40737E-03,-9.97190E-03, 1.42830E-03, 5.94332E-04,
     &       -3.94928E-01,-9.36224E-02, 1.50416E-02, 2.47429E-02,
     &        4.21110E-03,-1.95510E-03,-1.48848E-02, 1.03628E-02,
     &       -2.31861E-02,-6.13479E-03,-1.16963E-02,-5.53088E-03,
     &       -5.49846E-03, 6.68300E-04, 4.14872E-03, 2.85859E-03,
     &        5.41378E-02, 2.37046E-02, 1.35992E-02,-1.02900E-02,
     &        1.71973E-02, 2.59363E-03, 1.85368E-04,-2.15977E-03,
     &        6.98065E-03,-1.09364E-03,-5.73267E-04,-1.22281E-03,
     &        1.15964E-03,-5.21291E-04,-7.30064E-04,-2.93087E-02,
     &        1.06406E-03, 1.87747E-03,-6.02952E-03,-5.99925E-04,
     &        9.00738E-04, 4.61770E-03,-2.87968E-04,-1.48546E-03,
     &       -1.74374E-03,-2.51177E-03,-5.72550E-04, 5.67448E-04,
     &        1.58284E-04, 7.21914E-04, 3.86804E-02,-5.29562E-03,
     &       -5.36881E-03,-3.98564E-04, 2.89786E-03, 6.03861E-04,
     &       -2.51682E-03,-1.17857E-03, 7.07849E-05, 3.29797E-04,
     &       -1.67800E-04, 1.22022E-04,-2.26972E-04, 5.14176E-05,
     &        4.65102E-02,-1.29317E-02, 1.19756E-03,-4.25415E-03,
     &        3.82176E-04, 6.12268E-04,-5.64068E-04, 4.71263E-04,
     &        9.69965E-05, 5.61490E-05,-2.35467E-04,-1.70199E-05,
     &        1.86169E-04, 9.48536E-05, 8.89811E-03, 8.86356E-03,
     &        3.21275E-03, 2.55650E-03, 8.60720E-04, 4.77068E-04,
     &        1.15783E-04,-3.29139E-04, 5.26249E-05, 2.31219E-05,
     &        3.21160E-05, 3.33390E-05, 1.38207E-05,-2.96529E-02,
     &       -7.27222E-03, 5.92886E-03, 1.54904E-04, 5.05448E-04,
     &        6.12298E-04,-2.82989E-04,-3.50913E-05, 2.90540E-05,
     &        1.31884E-05,-5.57047E-05,-1.46148E-05, 3.69909E-05,
     &       -6.85691E-06,-4.21518E-03,-1.22703E-04,-9.80112E-05,
     &       -2.26282E-04,-3.58811E-05, 1.60094E-04, 6.00936E-06,
     &        2.80690E-05,-3.13571E-05,-8.51104E-06,-6.38770E-06,
     &       -1.97097E-02, 9.30471E-03, 3.23152E-03,-2.03398E-04,
     &       -3.03464E-04, 2.01568E-04,-5.68501E-05,-1.97443E-04,
     &       -4.90522E-05,-6.81749E-05,-8.88016E-06, 1.86708E-05,
     &       -1.86513E-02,-3.92766E-03, 9.29504E-04,-2.98320E-04,
     &       -1.06489E-04,-9.57446E-05,-6.68884E-05,-2.51029E-05,
     &       -1.95848E-06, 3.46017E-05, 3.06297E-06,-4.79100E-03,
     &        1.22928E-03,-2.04568E-03,-9.88564E-04, 1.05493E-04,
     &        1.24235E-04,-1.37911E-04,-3.01083E-05, 1.88302E-06,
     &       -1.51209E-05,-1.85254E-05,-5.20600E-03,-7.44995E-04,
     &        4.65969E-04,-4.27727E-04,-9.09266E-05,-5.91517E-05,
     &       -4.49028E-05,-1.41442E-05,-6.41302E-06, 7.25755E-06,
     &        4.74599E-03, 1.74032E-03, 1.12528E-04,-1.75576E-04,
     &        1.21534E-04, 6.90403E-05,-8.60868E-05,-2.38198E-05,
     &        1.53228E-05, 1.32070E-05, 2.41193E-03,-1.82570E-03,
     &       -5.15492E-04,-1.50198E-04,-4.50020E-05,-3.92577E-05,
     &        2.94069E-05, 3.27371E-05, 3.54562E-06,-2.63033E-03,
     &        9.50507E-04, 4.93211E-04,-6.21221E-04,-3.92498E-05,
     &        2.46449E-05,-3.17967E-05,-2.66751E-06, 8.87317E-06,
     &        1.09886E-02,-1.51086E-03,-8.72765E-05, 9.57698E-05,
     &        6.63560E-06,-5.65064E-05,-2.08328E-05,-5.58652E-06,
     &       -9.50882E-03,-2.57007E-04,-2.30799E-04,-3.17097E-04,
     &       -1.12290E-04,-5.74928E-05,-1.82992E-05, 1.92832E-05,
     &       -8.03305E-03,-4.41996E-03,-1.31253E-04, 2.21441E-04,
     &        1.58343E-05, 8.57589E-06, 1.74650E-05, 4.28840E-03,
     &       -5.47404E-04,-3.76979E-04,-2.28849E-04, 2.48274E-05,
     &       -2.86326E-05,-2.14348E-05,-3.37143E-03,-1.79177E-04,
     &        4.61182E-06, 1.42712E-04, 2.89488E-06, 2.27705E-05,
     &       -9.69110E-03,-1.86995E-03,-1.01254E-03,-1.96663E-04,
     &        9.05542E-06, 7.76572E-06, 1.18591E-02, 1.68260E-03,
     &        4.03378E-04, 3.99787E-04, 4.34069E-05,-6.59647E-03,
     &        2.27910E-03, 8.05025E-06,-1.15953E-04, 2.01572E-05,
     &        5.63856E-03,-8.32473E-05, 5.72302E-04, 7.72170E-05,
     &       -4.16141E-03, 1.98371E-03, 3.09213E-04, 1.93397E-04,
     &        9.63456E-03,-8.72583E-04,-1.90799E-04,-4.87537E-03,
     &        8.53124E-04, 4.05920E-04, 4.29650E-04,-4.10878E-04,
     &       -3.90321E-04, 2.09101E-04, 6.40312E-03, 2.99024E-03/
C     long 135deg, dec_so
      DATA (D(10,4,J),J=1,289)/-8.90209E-01,
     &       -3.60759E-01, 2.00135E-02, 6.31574E-02,-2.76624E-01,
     &        1.79370E-01, 3.35169E-02, 6.33818E-02,-1.30038E-02,
     &        1.22882E-01, 1.13885E-01,-1.07849E-01,-4.51142E-02,
     &       -5.31971E-03, 6.14659E-02,-8.88914E-02,-9.46554E-02,
     &       -1.87031E-01, 1.95451E-02, 4.67253E-02, 2.85558E-04,
     &        4.22674E-02, 3.94855E-02, 3.90776E-02,-4.97253E-03,
     &        2.17018E-02, 8.57788E-04, 4.76804E-03,-8.92826E-03,
     &        1.96947E-03,-1.23923E-02, 3.66553E-03,-6.99586E-04,
     &       -3.96963E-01,-8.52411E-02, 3.51420E-02, 2.55583E-02,
     &       -3.55197E-03,-3.15849E-03,-9.87650E-03, 8.15922E-03,
     &       -1.94877E-02,-2.50389E-03,-7.18363E-03,-6.26227E-03,
     &       -6.44671E-03, 1.54418E-03, 5.64566E-03, 1.71792E-03,
     &        6.21558E-02, 2.22515E-02, 5.91598E-03,-6.96086E-03,
     &        1.83002E-02, 1.95582E-03,-2.80855E-03,-1.55886E-03,
     &        6.63951E-03,-6.24132E-04,-1.07913E-03,-1.14010E-03,
     &        1.13117E-03,-5.71496E-04,-1.22626E-03,-2.07388E-02,
     &        1.69049E-03, 4.37838E-03,-5.69983E-03,-1.35773E-03,
     &        7.13437E-04, 4.95590E-03,-7.87172E-04,-1.34553E-03,
     &       -2.06864E-03,-2.22277E-03,-1.23396E-03, 1.49626E-04,
     &       -5.92730E-04, 6.57642E-04, 4.21806E-02,-8.26071E-03,
     &       -6.58309E-03,-2.30066E-04, 3.39987E-03,-2.79024E-04,
     &       -2.32036E-03,-4.95072E-04, 5.17844E-04, 4.96154E-04,
     &        6.83750E-05, 1.37439E-04,-2.01530E-04, 8.07691E-05,
     &        4.88898E-02,-5.77342E-03, 9.13523E-04,-2.23368E-03,
     &        1.89533E-03, 5.95114E-04,-5.22587E-04, 3.23057E-04,
     &       -6.09307E-05,-8.86885E-06,-3.30008E-04, 5.01736E-06,
     &        1.56224E-04, 7.57643E-05, 5.98065E-03, 5.77984E-03,
     &        1.78949E-03, 2.24726E-03, 4.16568E-05, 2.54629E-04,
     &        2.04417E-04,-6.34955E-05, 2.63925E-06,-2.72543E-05,
     &       -3.06193E-05,-2.03906E-05, 3.99392E-06,-1.75281E-02,
     &       -9.19313E-03, 3.66115E-03, 3.12382E-04, 4.30512E-04,
     &        1.68575E-04,-3.23281E-04, 1.32581E-04, 5.42354E-05,
     &        7.38720E-05, 6.12378E-05, 3.41074E-05, 7.59281E-06,
     &       -1.48314E-02,-2.13975E-03, 1.64812E-03, 7.73685E-05,
     &       -3.51905E-04, 6.21035E-05, 2.23823E-04,-2.10869E-05,
     &       -4.87124E-06,-3.30510E-05,-2.86945E-05,-2.21917E-05,
     &       -2.00307E-02, 6.40496E-03, 2.96425E-03,-2.04892E-04,
     &       -8.74090E-04,-1.49070E-04,-6.76376E-06,-6.20018E-05,
     &       -1.24847E-05,-4.59427E-05,-3.13837E-05, 7.84873E-06,
     &       -2.60309E-02,-2.16910E-03, 9.92305E-04,-8.32270E-05,
     &        4.32791E-04, 1.26927E-04, 1.63074E-05,-3.21653E-06,
     &       -1.78634E-05, 2.35985E-05,-7.97874E-06,-1.25477E-02,
     &       -5.34755E-05,-7.16193E-04,-1.37377E-04, 1.89275E-04,
     &        2.23005E-04,-5.74037E-05, 8.36277E-06,-4.62088E-06,
     &       -1.73127E-05,-2.56574E-05,-2.93836E-03, 2.33137E-03,
     &        6.99951E-04,-4.30482E-04, 1.15318E-04,-8.43604E-05,
     &       -9.00762E-05,-3.57829E-05,-1.48612E-05,-3.93150E-06,
     &        5.63512E-03, 8.38843E-04, 3.37156E-04,-6.41967E-05,
     &        2.22566E-04, 9.02889E-05,-1.59103E-05, 4.15475E-06,
     &       -4.20722E-06,-2.23936E-06,-1.08778E-03,-1.97861E-04,
     &       -3.29595E-04,-2.13960E-04, 2.98708E-05,-1.71568E-05,
     &       -6.12242E-06, 9.85442E-06, 2.88563E-06,-1.41416E-04,
     &        8.77854E-04, 2.43595E-04,-3.43549E-04,-3.49696E-05,
     &       -3.07762E-05,-3.85406E-05,-1.96986E-05,-1.83020E-06,
     &        5.13399E-03,-6.02156E-04, 4.63769E-04, 9.35267E-05,
     &       -9.84839E-06, 1.06873E-05,-9.36093E-06, 4.97597E-06,
     &       -6.83296E-03,-1.27317E-03,-6.12947E-04,-3.97675E-04,
     &       -7.38178E-05,-5.94291E-05,-2.07233E-05, 7.86837E-06,
     &       -9.63236E-03,-1.46496E-03, 1.27204E-03, 3.88879E-04,
     &       -8.00345E-06, 3.17724E-05, 7.32989E-06, 1.11399E-03,
     &       -1.29437E-03,-3.09008E-05,-2.01471E-04,-2.25468E-05,
     &       -5.83710E-06,-1.35276E-05,-1.95475E-03, 1.09212E-03,
     &        4.72552E-04, 1.32546E-04, 2.57856E-05, 3.44971E-05,
     &       -7.54379E-03,-6.82364E-04,-3.34604E-04,-5.70729E-05,
     &        8.66016E-05, 3.55316E-05, 1.53885E-02, 8.55984E-04,
     &        3.48561E-04, 1.45270E-04,-2.11966E-05,-2.76378E-03,
     &        2.44535E-03, 8.10087E-05,-9.08657E-05, 7.42621E-05,
     &        8.25041E-03, 1.35652E-04, 1.18447E-04, 1.51271E-04,
     &        2.55819E-03, 1.94559E-03, 3.69961E-04,-2.26358E-05,
     &        6.20365E-03,-2.33027E-04,-3.19763E-04,-3.85320E-03,
     &       -2.78288E-04, 3.46885E-05, 1.44858E-03, 1.98379E-04,
     &       -6.16296E-05,-1.10836E-04, 5.66384E-03, 4.75615E-03/
C     long 150deg, dec_so
      DATA (D(11,4,J),J=1,289)/-8.61092E-01,
     &       -3.86605E-01, 4.26723E-02, 6.02310E-02,-3.14601E-01,
     &        1.53773E-01, 6.55816E-02, 8.73487E-02, 1.73404E-02,
     &        1.68307E-01, 7.64139E-02,-1.07138E-01,-5.35428E-02,
     &        9.44973E-03, 3.80234E-02,-1.06351E-01,-1.03338E-01,
     &       -1.70299E-01, 9.19138E-03, 6.18363E-02, 1.16153E-02,
     &        3.80468E-02, 4.10894E-02, 3.96440E-02,-2.91223E-03,
     &        2.13037E-02, 3.61632E-04, 3.87146E-03,-6.19175E-03,
     &       -1.22319E-04,-1.33395E-02, 2.67675E-03,-6.88189E-04,
     &       -3.69493E-01,-7.65843E-02, 4.81683E-02, 2.42759E-02,
     &       -8.15380E-03,-5.86486E-03,-7.02368E-03, 4.39277E-03,
     &       -1.38348E-02, 4.70396E-04,-6.12940E-03,-6.07469E-03,
     &       -3.33753E-03, 3.76736E-03, 6.44112E-03, 1.40434E-03,
     &        5.66516E-02, 2.58704E-02, 1.61465E-03,-7.08189E-03,
     &        1.53282E-02, 1.73444E-03,-3.75781E-03,-1.28436E-03,
     &        5.44420E-03,-3.13069E-05,-1.60774E-03,-1.44693E-03,
     &        7.07195E-04,-5.93397E-04,-1.62931E-03,-1.27722E-02,
     &       -3.83319E-03, 5.22964E-03,-3.12121E-03,-1.31463E-03,
     &       -2.80175E-04, 5.33348E-03,-5.51457E-04,-2.72431E-04,
     &       -1.93754E-03,-1.39364E-03,-1.06293E-03, 2.75230E-04,
     &       -9.71656E-04, 3.12705E-04, 2.48011E-02,-7.17169E-03,
     &       -4.55780E-03,-9.30932E-04, 3.29437E-03,-1.30296E-04,
     &       -2.31107E-03,-5.28245E-04, 1.40726E-04, 2.62361E-04,
     &       -1.48687E-04,-1.97639E-05,-1.99019E-04, 1.18842E-04,
     &        3.93651E-02,-4.53085E-03,-1.34040E-03,-1.29637E-03,
     &        1.78664E-03,-2.81911E-05,-3.75313E-04, 5.48932E-04,
     &       -1.56919E-04, 2.23884E-05,-5.01857E-04,-5.11951E-05,
     &        6.01070E-05, 6.27930E-05,-5.69818E-03, 3.45775E-03,
     &        1.89981E-03, 2.16359E-03, 1.77348E-04, 5.11482E-04,
     &        3.76608E-04, 9.49534E-05, 5.17651E-05, 5.63045E-06,
     &        1.20544E-05,-2.02051E-05, 8.53259E-06,-6.17202E-03,
     &       -7.58786E-03, 2.52467E-03, 3.03454E-05,-4.83272E-05,
     &        2.49451E-04,-2.59547E-06, 1.73254E-04,-8.80079E-05,
     &        3.44482E-05, 3.76143E-05, 5.49211E-05, 2.81230E-05,
     &       -2.47619E-02,-7.77962E-04, 1.93006E-03, 5.41532E-04,
     &       -3.99174E-04,-3.18418E-05, 1.13885E-04,-2.73192E-05,
     &        5.62087E-06, 1.73592E-06,-3.04469E-05,-4.41790E-05,
     &       -1.80027E-02, 3.36043E-03, 3.35748E-03, 1.95117E-04,
     &       -7.34345E-04,-2.89100E-05, 6.01475E-05, 3.95264E-05,
     &       -3.36648E-05,-1.00231E-05,-7.05128E-06, 1.21546E-05,
     &       -1.46509E-02,-2.25142E-03,-2.12495E-04,-3.83993E-04,
     &        2.41669E-04, 4.44890E-07,-1.22138E-05,-1.93649E-05,
     &       -1.31334E-05, 1.14856E-05,-1.70151E-05,-9.83841E-03,
     &       -2.23650E-03, 2.42019E-05, 3.03925E-04, 5.69454E-05,
     &        8.38213E-05, 4.11796E-06,-3.42507E-06,-1.43649E-05,
     &       -9.89243E-06,-2.03217E-05, 1.85261E-03, 4.89938E-03,
     &        2.85680E-04,-3.93641E-04, 1.14694E-04, 1.91940E-05,
     &       -1.44363E-05,-1.73515E-05,-7.13286E-07, 5.76771E-06,
     &        1.70141E-02, 5.54714E-05,-3.93371E-04,-2.41778E-04,
     &        1.14109E-04,-5.49394E-05,-4.81540E-05, 3.26215E-05,
     &        1.02681E-05, 2.70252E-06,-1.30581E-02, 1.17018E-03,
     &       -1.20566E-04,-1.66452E-04,-1.76774E-05, 6.96593E-05,
     &        3.38194E-05, 2.55050E-06,-2.23168E-06, 7.40335E-03,
     &        2.36920E-03,-3.19696E-05,-1.61821E-04,-4.15186E-05,
     &       -4.20286E-05,-2.72657E-05,-1.04621E-05, 2.89125E-06,
     &       -5.89598E-04,-1.25588E-03, 9.79881E-05, 1.61386E-04,
     &        8.72208E-06, 4.04269E-06, 1.28516E-05, 1.23841E-05,
     &       -8.24382E-03,-8.66723E-04, 4.00554E-05,-2.52124E-05,
     &        5.48729E-05, 2.98634E-05, 1.52464E-05, 6.98682E-06,
     &        2.89526E-04,-9.20974E-04, 3.45993E-04, 1.23103E-06,
     &       -1.00223E-04,-1.71372E-05,-9.68163E-06, 4.12318E-03,
     &       -7.15317E-04, 3.44731E-04, 1.15683E-04, 2.95320E-05,
     &        2.40259E-06, 4.50728E-06,-5.84847E-03,-7.79773E-04,
     &        6.77361E-05,-6.54540E-06,-3.65677E-05, 6.74201E-06,
     &        1.08837E-02, 1.01489E-03,-3.96528E-04,-2.83840E-04,
     &        8.87734E-05, 3.02256E-05, 1.68698E-03,-1.25184E-03,
     &        5.56764E-04, 6.02452E-05,-7.74020E-05, 2.34104E-03,
     &       -7.52635E-04,-3.10030E-04, 6.34494E-06, 5.07550E-05,
     &       -5.46916E-04, 9.01242E-04, 3.81276E-04, 1.00292E-04,
     &       -1.09086E-04,-8.38089E-04, 3.47372E-04,-3.63125E-05,
     &        1.56859E-03, 7.14007E-04,-2.31125E-04,-8.02672E-03,
     &       -1.33412E-03,-6.00126E-05, 1.43937E-02,-3.94226E-06,
     &       -9.71901E-03, 3.16977E-04, 1.28340E-02, 8.11188E-03/
C     long 165deg, dec_so
      DATA (D(12,4,J),J=1,289)/-8.28227E-01,
     &       -4.18004E-01,-1.31070E-03, 5.40819E-02,-3.43069E-01,
     &        1.32744E-01, 1.45330E-01, 9.46613E-02,-3.36669E-03,
     &        1.96096E-01, 1.22621E-01,-8.55787E-02,-7.56743E-02,
     &       -5.30253E-03, 4.12892E-03,-1.17236E-01,-1.14053E-01,
     &       -1.79568E-01, 1.91091E-03, 7.36542E-02, 1.91260E-02,
     &        3.69493E-02, 4.21671E-02, 3.69452E-02,-1.75700E-03,
     &        2.10991E-02, 3.07175E-03, 2.36621E-03,-5.78873E-03,
     &       -9.72578E-04,-1.20661E-02, 2.82061E-04,-2.34717E-03,
     &       -3.37486E-01,-7.62801E-02, 5.05610E-02, 2.90027E-02,
     &       -1.05007E-02,-9.97889E-03,-7.25604E-03, 2.08537E-03,
     &       -1.47392E-02, 2.22221E-04,-5.82243E-03,-3.69265E-03,
     &       -2.76830E-04, 6.23470E-03, 6.46639E-03, 5.79390E-04,
     &        5.42225E-02, 3.01287E-02, 6.76933E-03,-7.84734E-03,
     &        1.16400E-02, 3.41086E-03,-1.59508E-03,-1.38538E-03,
     &        4.11832E-03, 8.46937E-04,-1.41880E-03,-1.23827E-03,
     &        3.30863E-04,-4.48450E-04,-1.51030E-03,-1.78019E-02,
     &       -8.29259E-03, 4.90205E-03,-2.41344E-03,-8.13564E-04,
     &       -5.67179E-05, 4.26481E-03,-9.00498E-04, 2.42880E-04,
     &       -2.02631E-03,-1.11491E-03,-1.26944E-03, 2.41009E-04,
     &       -6.10736E-04, 5.18673E-04, 9.02152E-03,-9.58385E-03,
     &       -3.03719E-03,-8.07183E-04, 2.60537E-03,-4.84868E-04,
     &       -2.24234E-03,-6.37754E-04,-3.14996E-05,-4.50294E-06,
     &       -3.67712E-04,-7.24272E-05,-8.55041E-05, 5.89003E-05,
     &        3.87434E-02,-3.66412E-04, 3.85232E-04,-9.06446E-04,
     &        1.77606E-03, 2.00599E-04, 1.70496E-05, 7.46770E-04,
     &        9.26231E-05, 1.24547E-04,-4.74928E-04,-9.18360E-05,
     &        3.51573E-05, 3.78623E-05,-1.85117E-02, 2.92647E-05,
     &        1.33525E-03, 1.83546E-03, 1.70479E-04, 4.78320E-04,
     &        3.75044E-04, 4.80098E-05, 7.51431E-05, 2.78454E-05,
     &        7.91663E-05,-1.72037E-05, 2.60441E-05,-1.49703E-02,
     &       -1.02972E-02, 1.60328E-03, 1.97196E-04,-2.61032E-04,
     &        4.44882E-05,-8.23318E-05, 8.08830E-05,-2.00820E-04,
     &       -8.07546E-06,-3.18840E-05, 2.67991E-05, 5.08378E-05,
     &       -1.76716E-02, 7.99580E-04, 1.27108E-03, 8.72702E-04,
     &       -6.72228E-05, 6.49139E-05, 1.35001E-04, 2.86034E-05,
     &        9.09427E-06,-1.21306E-05,-3.45385E-05,-2.43477E-05,
     &       -1.86785E-02, 1.17089E-03, 2.61045E-03, 2.95881E-04,
     &       -5.76411E-04, 2.55648E-05, 4.45519E-05, 1.06540E-04,
     &       -2.89055E-05,-6.57698E-06, 1.43482E-05, 2.65881E-05,
     &       -9.73308E-03,-2.60341E-03,-5.28439E-06,-4.35937E-04,
     &       -6.03672E-05,-1.16665E-04,-7.53345E-05,-1.12037E-04,
     &       -2.64063E-05,-1.44297E-05,-2.17607E-05, 3.74201E-03,
     &       -5.40087E-04,-3.74323E-04, 1.68631E-04,-1.06091E-05,
     &        1.49026E-05, 3.35276E-05,-1.43817E-05,-9.54427E-06,
     &       -7.28451E-06,-7.94106E-06,-2.96137E-04, 3.29750E-03,
     &       -7.07516E-05,-2.60691E-04, 8.58123E-05, 1.16925E-04,
     &        4.97308E-05,-4.39997E-06, 9.14570E-06, 1.36955E-05,
     &        1.36444E-02, 3.01569E-05,-7.99296E-04,-3.57041E-04,
     &        3.84701E-05,-8.72844E-05,-4.56864E-05, 1.21408E-06,
     &        2.93868E-06,-1.44295E-07,-5.97121E-03, 1.67225E-03,
     &       -2.48413E-04,-1.68940E-04,-6.95835E-05, 7.96546E-05,
     &        5.47079E-05,-3.90091E-07,-2.92056E-06, 1.52689E-02,
     &        2.18406E-03,-2.77958E-04,-3.39717E-04,-2.15760E-05,
     &       -1.20557E-05,-1.14521E-05,-4.64782E-06, 4.55867E-06,
     &       -4.02506E-03,-2.43970E-03,-2.81328E-04, 1.48533E-04,
     &        4.39905E-05,-6.65949E-06, 7.84033E-07, 1.69636E-06,
     &       -7.20031E-03, 2.50048E-04, 2.04691E-06, 1.27989E-04,
     &        1.20053E-04, 5.41249E-05, 1.90943E-05, 1.01856E-05,
     &        7.06902E-04,-1.31890E-03,-2.90966E-04,-3.12966E-05,
     &       -3.35562E-05,-1.31188E-05,-7.23292E-06,-1.00262E-03,
     &       -3.37093E-04,-3.13049E-05, 2.81551E-04, 1.04785E-04,
     &       -2.11391E-05,-2.05488E-05,-6.79654E-03, 5.32922E-04,
     &       -4.84118E-05,-1.79937E-04,-6.10909E-05, 9.38995E-06,
     &        1.33097E-02, 1.22026E-03,-5.83342E-04,-2.10743E-04,
     &        8.23025E-05, 8.69852E-06,-8.76625E-04,-4.52124E-04,
     &        5.12900E-04, 5.29169E-05,-2.31959E-05, 2.89257E-03,
     &        1.07128E-03,-3.48268E-04,-6.34712E-05,-2.25687E-06,
     &        4.71456E-03, 3.65477E-04, 4.42142E-04, 3.23062E-06,
     &       -7.66469E-03, 1.05665E-03, 3.08412E-04, 6.27425E-05,
     &        6.59576E-03,-4.99889E-04, 6.11599E-05,-4.15065E-03,
     &       -4.02247E-04,-2.13525E-04, 6.96249E-03, 1.21053E-04,
     &       -1.70948E-02, 1.04099E-04, 1.67333E-02,-1.12093E-03/
C     long 180deg, dec_so
      DATA (D(13,4,J),J=1,289)/-7.78595E-01,
     &       -4.32908E-01,-1.12238E-01, 2.62014E-02,-3.37353E-01,
     &        1.04438E-01, 1.91146E-01, 1.15040E-01, 9.48947E-04,
     &        1.86232E-01, 1.61604E-01,-6.18966E-02,-1.02043E-01,
     &       -4.88329E-02,-1.19065E-02,-1.03261E-01,-1.13667E-01,
     &       -1.95921E-01,-6.15241E-03, 7.20935E-02, 2.18533E-02,
     &        3.59499E-02, 3.63758E-02, 3.55304E-02,-2.09822E-04,
     &        2.10735E-02, 5.95842E-03,-2.52879E-04,-7.67265E-03,
     &        4.90107E-06,-9.23611E-03,-2.77619E-03,-3.29785E-03,
     &       -3.06010E-01,-7.91170E-02, 5.05446E-02, 4.21516E-02,
     &       -5.07997E-03,-1.72393E-02,-1.38480E-02,-1.92811E-03,
     &       -1.88947E-02,-1.99798E-03,-4.06561E-03,-3.94893E-03,
     &       -2.39066E-03, 6.67990E-03, 8.51760E-03, 3.24605E-03,
     &        7.71043E-02, 3.36297E-02, 1.15417E-02,-1.18635E-02,
     &        7.06273E-03, 3.85159E-03, 9.68698E-04,-7.43244E-04,
     &        2.78615E-03, 1.29931E-03,-1.37784E-03,-9.83538E-04,
     &       -3.08897E-04,-3.98647E-04,-1.41890E-03,-3.14670E-02,
     &       -1.26571E-02, 3.72621E-03,-3.07115E-03,-9.34959E-04,
     &       -1.08384E-03, 2.88926E-03,-1.40134E-03,-2.75753E-04,
     &       -1.77785E-03,-1.00494E-03,-1.12713E-03, 3.64010E-04,
     &       -9.21519E-05, 6.46574E-04, 5.37812E-03,-1.16497E-02,
     &       -1.38175E-04, 1.36539E-03, 3.02465E-03,-2.87708E-04,
     &       -1.41161E-03,-1.15151E-04, 2.56958E-04, 6.37017E-05,
     &       -3.16255E-04,-3.27672E-05, 7.48863E-06, 6.87271E-05,
     &        5.47955E-02, 4.39183E-03, 2.66599E-03,-7.32298E-04,
     &        6.80031E-04, 4.56836E-04, 3.83359E-04, 7.80131E-04,
     &       -4.07348E-05, 1.12516E-04,-2.16876E-04,-7.68001E-05,
     &        5.74836E-05, 5.80932E-05,-2.41275E-02,-2.27173E-03,
     &        1.40655E-03, 1.81703E-03,-1.85377E-05, 2.17263E-04,
     &        2.59213E-04, 8.73784E-05, 1.47419E-05,-9.39549E-05,
     &        1.13447E-05,-6.65165E-05, 1.10340E-05,-2.44086E-02,
     &       -1.30938E-02, 4.81632E-04, 2.84484E-04,-4.03434E-04,
     &       -3.42295E-04,-2.25697E-04, 1.42656E-04,-1.77487E-04,
     &        3.37003E-05, 4.55664E-05, 4.38684E-05, 5.11295E-05,
     &       -4.07586E-03, 3.43398E-03, 9.31800E-04, 1.08300E-04,
     &       -1.43128E-04, 9.68019E-05, 1.15245E-04,-2.66990E-05,
     &       -4.31276E-05,-5.07377E-05,-3.62025E-05,-4.75547E-06,
     &       -1.83891E-02, 1.68133E-03, 1.72135E-03, 3.59498E-05,
     &       -8.31779E-04,-1.59077E-04, 2.31241E-05, 4.07016E-05,
     &       -8.34375E-05,-3.51087E-05, 7.89741E-06, 4.46114E-06,
     &       -9.43542E-03,-1.78520E-03, 1.13814E-04,-2.16494E-04,
     &        1.60106E-04,-1.06697E-04,-9.89518E-05,-9.06142E-05,
     &       -8.51511E-07,-2.48650E-06,-3.04027E-06, 1.05409E-02,
     &        1.05889E-03,-8.99857E-04, 4.08572E-06, 1.65612E-05,
     &       -2.59068E-06, 4.09881E-05,-8.25757E-06, 3.95575E-06,
     &       -2.88601E-06, 8.85162E-06,-8.18134E-03, 1.42623E-03,
     &        6.31729E-04,-2.61194E-04, 5.29842E-05, 1.03504E-04,
     &        2.13955E-05,-2.70699E-06, 4.79604E-06,-2.35973E-06,
     &       -1.09145E-03,-1.37992E-03,-9.17375E-04,-2.38841E-04,
     &        1.73889E-04, 1.40717E-05,-9.20005E-06,-1.04566E-05,
     &       -3.28846E-06, 2.40083E-06, 9.96651E-04, 2.28789E-03,
     &       -2.83533E-04,-2.19170E-04,-8.88795E-05, 6.17297E-05,
     &        3.25308E-05,-5.18857E-06,-7.36260E-06, 8.12891E-03,
     &        2.22491E-03, 2.83055E-04,-3.36583E-04,-8.76094E-06,
     &       -1.60313E-05,-2.44769E-05,-2.27507E-05,-7.16873E-06,
     &        2.58671E-03,-2.35793E-03,-2.90412E-04, 1.44831E-04,
     &        4.37839E-06,-1.76152E-05,-1.22002E-06, 5.22922E-07,
     &       -6.18741E-03, 1.98233E-05,-4.96519E-04,-1.16658E-04,
     &        2.86909E-05, 4.32340E-05,-2.75565E-06, 2.85415E-06,
     &       -1.49008E-03, 2.03892E-04, 4.11476E-04, 1.46635E-04,
     &        8.95074E-06,-4.27872E-06, 2.98341E-06, 3.52276E-03,
     &        4.10012E-04,-3.72214E-04, 1.45780E-04, 4.17139E-05,
     &       -5.57616E-06,-2.03664E-05,-4.62664E-03, 3.74212E-04,
     &        4.66011E-04, 2.16947E-05,-4.24460E-05, 7.02081E-06,
     &       -4.66769E-03,-1.82867E-04, 2.71739E-04,-1.80845E-05,
     &        2.77221E-05,-8.50165E-06, 6.20349E-03,-6.69480E-05,
     &        1.74841E-05,-1.07421E-04,-3.71118E-06,-5.23798E-04,
     &        7.10635E-04, 7.64005E-05,-2.84781E-05,-2.87883E-05,
     &        2.08763E-03, 4.69719E-04, 3.02545E-04,-7.07002E-05,
     &       -7.96661E-03, 7.80564E-04, 3.73260E-04, 3.40929E-05,
     &        5.16981E-03,-3.03390E-04,-7.62778E-05, 9.11088E-04,
     &        6.60257E-04,-2.59390E-04,-2.87638E-03,-1.02229E-04,
     &       -1.18632E-03,-1.27173E-04, 6.08063E-04, 1.92603E-03/
C     long 195deg, dec_so
      DATA (D(14,4,J),J=1,289)/-7.49207E-01,
     &       -4.33040E-01,-1.87939E-01, 1.72001E-02,-3.11311E-01,
     &        9.52794E-02, 1.99696E-01, 1.14585E-01, 2.56207E-02,
     &        1.46780E-01, 1.61425E-01,-8.03321E-02,-1.23069E-01,
     &       -7.59643E-02,-6.36190E-03,-8.10688E-02,-1.05558E-01,
     &       -2.11422E-01,-1.91225E-02, 6.77346E-02, 2.38006E-02,
     &        3.50989E-02, 2.86136E-02, 3.71360E-02, 3.10472E-03,
     &        2.08181E-02, 5.65412E-03,-3.79872E-03,-9.66759E-03,
     &       -2.97073E-03,-5.80302E-03,-6.67918E-03,-2.67587E-03,
     &       -2.81927E-01,-7.56982E-02, 5.07524E-02, 4.45347E-02,
     &       -4.03084E-03,-2.35132E-02,-1.63986E-02,-6.68366E-03,
     &       -2.26484E-02,-4.20459E-03,-2.42350E-03,-4.54598E-03,
     &       -5.21709E-03, 5.34628E-03, 9.50733E-03, 5.08890E-03,
     &        8.46584E-02, 2.88087E-02, 1.05034E-02,-1.84124E-02,
     &        2.71826E-03, 1.95277E-03, 1.67203E-03,-7.53571E-04,
     &        2.73189E-03, 1.04976E-03,-1.82547E-03,-1.20693E-03,
     &       -5.44787E-04,-4.35494E-04,-1.36694E-03,-5.46393E-02,
     &       -1.22371E-02, 7.27905E-03,-2.73742E-03,-1.34968E-03,
     &       -1.07558E-03, 3.78748E-03,-8.17639E-04,-8.99244E-04,
     &       -1.20335E-03,-7.14638E-04,-8.52571E-04, 6.21828E-04,
     &        3.29429E-04, 4.59930E-04, 9.41285E-03,-8.76763E-03,
     &        1.28649E-03, 2.28493E-03, 3.78577E-03, 7.02376E-04,
     &       -1.04759E-03, 1.96017E-04, 4.65132E-04, 2.96799E-04,
     &       -2.64143E-04,-3.43013E-05, 7.50456E-06, 7.76297E-05,
     &        6.52063E-02, 3.82497E-03, 3.40241E-03,-1.66877E-03,
     &       -1.38581E-03, 7.30748E-05, 1.03592E-04, 6.86831E-04,
     &       -3.73828E-04,-1.11566E-04,-3.69329E-04,-6.30209E-05,
     &        4.38259E-05, 7.66104E-05,-3.12317E-02,-1.20775E-03,
     &        1.15226E-03, 2.00453E-03, 4.76394E-04, 4.55722E-04,
     &        1.39800E-04,-7.19878E-05,-4.21287E-05,-7.04394E-05,
     &       -4.99641E-05,-1.03894E-04,-3.22990E-06,-2.31284E-02,
     &       -1.20950E-02, 7.92716E-04,-5.73460E-06,-8.43294E-04,
     &       -5.42566E-04,-3.38679E-04, 1.29801E-04,-1.32013E-04,
     &        5.15668E-05, 1.11937E-04, 6.17406E-05, 5.76706E-05,
     &        1.66864E-03, 4.20412E-03, 1.12234E-03, 2.96362E-04,
     &       -1.91384E-04, 2.02077E-05, 1.10492E-04,-6.42858E-05,
     &        3.84678E-06,-6.90077E-06, 4.34749E-06, 1.23812E-05,
     &       -1.53198E-02, 3.88130E-03, 1.44830E-03, 6.95311E-05,
     &       -8.65162E-04,-1.65196E-04, 3.81576E-05, 4.41243E-05,
     &       -4.61807E-05, 1.24726E-05, 2.90191E-05,-9.50162E-06,
     &       -1.38423E-02,-2.15182E-03, 2.51282E-04,-2.24706E-05,
     &        1.68524E-04,-2.76480E-05,-5.49778E-05,-4.21883E-05,
     &       -1.59949E-05,-5.59972E-06,-4.21130E-06, 1.09949E-02,
     &        1.71416E-03,-8.71605E-04,-1.10423E-04, 1.86174E-05,
     &        9.01408E-05, 8.63987E-05, 2.13204E-05, 1.70973E-05,
     &        1.14880E-05, 1.35009E-05,-6.03057E-03, 8.06977E-04,
     &        1.07392E-03,-2.14692E-05, 1.99127E-05, 1.30446E-05,
     &       -3.06987E-05,-4.84929E-06, 4.91717E-06, 9.75182E-07,
     &       -4.03020E-03,-4.70574E-04,-3.39547E-04,-1.80205E-04,
     &        3.22054E-06,-1.11975E-06, 5.97669E-06, 1.36248E-05,
     &       -1.67719E-05,-6.37682E-06, 3.13522E-03, 1.79924E-03,
     &       -3.04794E-04,-3.94256E-05, 2.30133E-05, 5.26471E-05,
     &       -1.95485E-05,-2.73147E-05,-9.69937E-06, 3.69900E-03,
     &        2.34980E-03, 1.11990E-03, 1.01069E-04,-1.92525E-05,
     &       -6.22169E-05,-9.70999E-06, 1.06195E-05, 1.38391E-05,
     &        1.84317E-03,-2.47497E-03,-5.85906E-04,-5.12688E-05,
     &       -5.57238E-06, 3.03415E-05, 2.45172E-05,-6.93801E-06,
     &       -6.06657E-03,-4.58350E-04,-5.44256E-04,-4.15530E-05,
     &       -3.88003E-05, 3.05644E-05,-2.38209E-05,-1.09541E-05,
     &       -1.32259E-03, 1.21685E-03, 7.16300E-04, 8.43393E-05,
     &        2.34022E-05,-1.75866E-05, 1.05802E-05,-4.69474E-04,
     &       -1.67775E-04,-3.39854E-04,-2.11212E-04,-5.47210E-05,
     &        1.98877E-05, 8.61957E-07, 1.77008E-03,-2.43019E-04,
     &        4.46310E-04, 1.72338E-04, 2.41645E-05, 1.50654E-05,
     &       -2.80848E-03,-1.38226E-04, 4.32409E-04, 2.52141E-05,
     &       -5.37591E-08, 1.25260E-06, 3.89901E-03,-9.95724E-04,
     &       -4.16886E-04,-1.34907E-04,-7.36289E-06, 2.57483E-03,
     &        2.26280E-04, 1.04414E-04, 3.83540E-06, 1.75422E-05,
     &       -5.63397E-04, 6.22533E-04, 6.42921E-05,-7.22597E-05,
     &       -9.81172E-03,-5.24670E-04, 5.31542E-05,-2.24146E-05,
     &        9.28609E-03, 6.15135E-04,-3.48496E-04,-3.10213E-04,
     &        3.64237E-04, 1.19251E-04, 3.28253E-04,-2.89875E-04,
     &        8.61676E-03, 4.63553E-04,-3.54037E-03, 5.05511E-03/
C     long 210deg, dec_so
      DATA (D(15,4,J),J=1,289)/-7.53195E-01,
     &       -4.33070E-01,-2.06169E-01, 4.55942E-02,-2.93254E-01,
     &        1.29294E-01, 1.95582E-01, 8.98627E-02, 5.64590E-02,
     &        1.23356E-01, 1.39814E-01,-1.27764E-01,-1.31571E-01,
     &       -7.47970E-02, 1.81717E-02,-6.37864E-02,-1.01513E-01,
     &       -2.11226E-01,-3.52293E-02, 6.40461E-02, 2.23796E-02,
     &        3.84740E-02, 2.61741E-02, 3.63637E-02, 2.36454E-03,
     &        1.94744E-02, 3.67461E-03,-3.59669E-03,-1.02369E-02,
     &       -5.61694E-03,-5.24190E-03,-9.53831E-03,-4.03504E-03,
     &       -2.72954E-01,-7.26453E-02, 5.55817E-02, 3.95636E-02,
     &       -7.56012E-03,-2.81809E-02,-2.05403E-02,-1.05082E-02,
     &       -2.37259E-02,-7.80618E-03,-5.41484E-03,-3.36248E-03,
     &       -5.67508E-03, 4.75119E-03, 9.04461E-03, 4.43090E-03,
     &        7.28734E-02, 1.06463E-02, 3.66249E-03,-2.18283E-02,
     &        8.61462E-04, 1.34040E-03, 2.18221E-03,-7.09149E-04,
     &        3.10616E-03, 9.81459E-04,-1.99298E-03,-1.12294E-03,
     &       -3.45181E-04,-3.45082E-04,-1.50606E-03,-9.91025E-02,
     &       -1.08265E-02, 8.22305E-03,-1.11905E-03,-2.47135E-03,
     &        1.08531E-03, 3.81359E-03,-3.74367E-04,-1.89745E-03,
     &       -1.60339E-03,-9.17045E-04,-5.39675E-04, 7.46507E-04,
     &        5.64524E-04, 5.55527E-04, 2.10436E-02,-5.75936E-03,
     &       -8.01660E-04, 1.44516E-03, 3.10912E-03, 7.34637E-04,
     &       -1.32560E-03, 2.12016E-04, 6.10595E-04, 3.84492E-04,
     &       -2.85385E-04,-4.09384E-05,-9.22905E-05, 5.04058E-05,
     &        5.78381E-02, 6.10663E-04, 3.75866E-03,-1.87909E-03,
     &       -1.29437E-03, 7.42968E-04, 4.17331E-04, 4.36395E-04,
     &       -5.07604E-04,-2.94276E-04,-5.49941E-04,-1.42127E-04,
     &       -1.19274E-04,-2.01401E-05,-3.26780E-02, 2.65001E-03,
     &        3.04636E-04, 2.24505E-03, 9.64301E-05, 6.37283E-06,
     &       -2.40785E-04,-1.93019E-04,-1.29866E-04,-3.69613E-05,
     &        1.46387E-05,-2.03461E-05, 5.00485E-05,-2.01203E-02,
     &       -9.02253E-03, 2.10517E-03,-3.87477E-04,-9.43527E-04,
     &       -5.06656E-04,-2.87352E-04, 3.89131E-05,-5.61554E-05,
     &        7.98949E-05, 1.18725E-04, 7.42912E-05, 7.82851E-05,
     &        4.98837E-03, 4.94845E-03, 5.20620E-04, 5.18187E-04,
     &       -1.51478E-04,-1.14584E-06, 1.38693E-04,-3.76805E-05,
     &        2.67271E-05,-2.66994E-06, 1.54814E-05, 1.44535E-06,
     &       -1.01035E-02, 5.65506E-03, 1.31290E-03, 1.61785E-04,
     &       -7.76373E-04, 6.27795E-05, 1.17748E-04, 6.20974E-05,
     &       -5.01126E-05, 2.60240E-05, 2.22865E-05,-2.11192E-05,
     &       -1.67864E-02,-3.42257E-03, 1.18976E-03, 2.75001E-04,
     &        2.61430E-04,-3.50247E-05,-3.92478E-05,-4.64473E-05,
     &       -6.31162E-06,-9.83545E-06,-1.10706E-05, 1.44859E-02,
     &        1.90936E-03,-4.35460E-04,-1.28047E-04, 7.89729E-05,
     &        2.39910E-04, 1.28025E-04,-9.04704E-07, 4.24293E-06,
     &        6.64859E-06,-1.24462E-06,-9.81898E-04, 1.68813E-03,
     &        1.34790E-03, 2.46931E-04,-3.63833E-05,-7.39467E-05,
     &       -3.26083E-05, 1.04054E-05, 3.72337E-06, 1.32626E-05,
     &        3.15567E-03,-4.55825E-04, 6.79990E-05, 2.94550E-05,
     &        5.41210E-05,-1.08341E-05,-9.32846E-06, 2.18408E-05,
     &        1.41512E-05, 8.82056E-06, 6.19380E-03, 1.71436E-03,
     &       -1.79222E-05, 1.78055E-05,-2.50771E-05,-7.16913E-06,
     &       -1.99148E-05,-2.52241E-05,-1.12353E-05, 8.51825E-04,
     &        2.90281E-03, 1.81615E-03, 1.77723E-04,-4.46088E-05,
     &       -4.08919E-05, 2.24110E-05, 4.43112E-05, 3.61861E-05,
     &       -2.82432E-03,-2.99012E-03,-9.23435E-04,-3.64927E-05,
     &       -1.18090E-05, 2.32197E-05, 2.14360E-05,-6.27324E-06,
     &       -2.08284E-03, 9.33579E-04,-2.73507E-04, 1.61212E-05,
     &       -8.99958E-05, 1.98653E-05,-1.09707E-05,-4.75932E-06,
     &        6.68536E-05,-9.70344E-05, 4.45328E-04, 1.62428E-04,
     &        5.89757E-05,-1.38431E-05, 4.99233E-06,-9.41747E-03,
     &       -1.81815E-03,-2.93095E-04,-2.44782E-04,-8.94333E-05,
     &        8.64691E-06, 2.58446E-06, 7.87519E-03, 1.79564E-03,
     &        4.18772E-04, 1.35131E-04, 3.84402E-05, 2.38065E-05,
     &       -2.12660E-03,-9.39269E-04,-1.00297E-04, 1.42281E-05,
     &       -1.14270E-05, 3.12851E-06, 1.11801E-03, 1.19432E-04,
     &       -7.21853E-05, 5.30032E-05,-6.90907E-06, 4.07169E-03,
     &        1.12262E-03, 2.36493E-04,-3.82746E-05, 6.33421E-06,
     &        1.50679E-03,-8.82582E-05,-2.68576E-05, 3.91069E-06,
     &       -3.83898E-03,-4.88613E-04,-2.97519E-05,-8.60155E-06,
     &        5.25532E-03, 8.10371E-05,-1.02735E-04,-3.18034E-03,
     &       -9.59796E-04, 8.63002E-06, 8.00063E-03, 9.45448E-04,
     &       -3.95859E-03,-9.78129E-04, 1.23731E-02, 9.48132E-03/
C     long 225deg, dec_so
      DATA (D(16,4,J),J=1,289)/-7.71295E-01,
     &       -4.38336E-01,-2.27177E-01, 9.06635E-02,-2.65522E-01,
     &        1.79223E-01, 2.04427E-01, 8.61894E-02, 6.91568E-02,
     &        1.33063E-01, 1.19783E-01,-1.66782E-01,-1.28054E-01,
     &       -8.99537E-02, 1.50637E-02,-1.03455E-01,-8.76429E-02,
     &       -1.70971E-01,-4.58741E-02, 4.88129E-02, 2.32811E-02,
     &        4.85727E-02, 2.74553E-02, 3.08414E-02,-2.68289E-03,
     &        1.64755E-02, 2.53248E-03,-4.05610E-03,-9.26916E-03,
     &       -7.31579E-03,-5.22525E-03,-9.65156E-03,-3.84190E-03,
     &       -2.59283E-01,-6.53022E-02, 6.43611E-02, 3.70965E-02,
     &       -9.38382E-03,-2.75339E-02,-2.71331E-02,-1.12278E-02,
     &       -2.16375E-02,-7.10205E-03,-1.00174E-02,-3.32578E-03,
     &       -4.57363E-03, 3.25203E-03, 7.92997E-03, 3.50389E-03,
     &        7.46567E-02,-5.92659E-03,-2.44724E-04,-1.87161E-02,
     &        3.08784E-03, 1.82883E-03, 2.95620E-03,-1.03711E-04,
     &        2.24243E-03, 9.56645E-04,-2.18744E-03,-9.13145E-04,
     &       -4.84760E-04,-1.91952E-04,-1.32885E-03,-1.09189E-01,
     &       -7.93182E-03, 1.86904E-03,-2.83037E-03,-4.44481E-03,
     &        1.79844E-03, 7.00355E-04,-1.81121E-03,-2.52458E-03,
     &       -1.82975E-03,-1.61025E-03,-3.47753E-04, 9.41352E-04,
     &        3.88442E-04, 6.43323E-04, 4.27923E-02,-4.61361E-03,
     &       -6.92037E-04, 2.46485E-03, 2.93371E-03, 5.30764E-04,
     &       -1.05329E-03, 5.53653E-04, 6.43360E-04, 3.29525E-04,
     &       -2.12048E-04, 2.44237E-06,-5.92949E-05, 6.67035E-05,
     &        5.56890E-02,-2.75479E-03, 1.79305E-03,-1.71773E-03,
     &       -4.01710E-04, 1.44438E-03, 7.07876E-04, 3.69670E-04,
     &       -8.45626E-05,-4.25880E-05,-3.68899E-04,-1.26825E-04,
     &       -1.49869E-04,-5.16753E-05,-3.36194E-02, 4.49929E-03,
     &        7.48566E-04, 2.65004E-03,-4.09807E-04,-5.08115E-04,
     &       -2.47344E-04,-1.05034E-04,-2.53197E-04,-9.41251E-05,
     &        3.29946E-05,-2.86069E-06, 2.00608E-05,-1.61185E-02,
     &       -8.94040E-03, 7.26911E-04,-7.97199E-04,-1.08629E-03,
     &       -5.90557E-04,-2.59820E-04, 8.35064E-05,-4.72331E-05,
     &        6.08828E-05, 6.71223E-05, 7.14957E-05, 4.26189E-05,
     &        3.89123E-03, 3.82444E-03, 1.19155E-04, 2.39057E-04,
     &       -3.37645E-04, 2.24426E-05, 1.62557E-04,-5.08977E-05,
     &       -2.78107E-05,-1.90494E-05, 3.44766E-05, 1.61804E-05,
     &       -1.53477E-02, 4.51449E-03, 6.74404E-04, 6.28857E-04,
     &       -5.01338E-04, 1.00288E-04, 2.00421E-04, 9.57541E-05,
     &       -2.39069E-05,-1.06426E-05, 1.77855E-05,-1.20819E-05,
     &       -1.89980E-03,-3.65400E-03, 1.37475E-03, 4.84974E-04,
     &        4.06331E-04, 1.46594E-05,-2.41640E-05,-3.20293E-05,
     &        1.15572E-05, 6.51523E-06, 3.13676E-06, 1.32143E-02,
     &        1.12701E-03,-1.67366E-04,-3.86766E-05, 8.03986E-05,
     &        1.71371E-04, 4.57368E-05,-6.56766E-05,-6.44262E-05,
     &       -2.22953E-05,-1.31037E-05,-1.31151E-03, 1.42209E-03,
     &        9.60398E-04, 9.54901E-05,-5.88603E-05,-1.89744E-05,
     &        2.32783E-05, 2.79697E-05, 1.03171E-05, 8.92714E-06,
     &        1.03644E-02,-6.71302E-04,-4.02331E-05, 8.00039E-05,
     &        2.95408E-04, 9.75011E-05,-5.37591E-06, 1.43886E-05,
     &        1.75933E-05, 1.83439E-05,-5.69497E-04, 7.69773E-05,
     &       -1.78610E-04,-1.05897E-05,-1.29396E-04,-1.97223E-05,
     &        2.29675E-05, 7.40086E-06, 7.08117E-06, 7.19962E-04,
     &        1.81807E-03, 1.25672E-03,-1.45859E-05, 1.38863E-05,
     &       -2.55574E-05, 1.32119E-05, 9.36197E-06, 1.05609E-05,
     &       -1.89811E-03,-1.56346E-03,-5.12111E-04,-3.06750E-06,
     &       -1.00442E-04,-1.22085E-05, 1.51596E-05, 3.42135E-06,
     &        4.17540E-03, 1.49286E-03,-5.04600E-05, 9.74898E-05,
     &       -4.79167E-05, 2.74355E-05, 6.92679E-06, 4.35399E-06,
     &       -9.30133E-03,-1.25448E-03, 3.86764E-04, 3.64538E-05,
     &       -7.14521E-05,-2.07408E-05, 3.83848E-06,-1.24098E-03,
     &       -1.02710E-03,-2.87911E-04,-1.55863E-04,-1.63268E-04,
     &       -2.26078E-05, 2.95824E-06,-2.67344E-03, 8.15731E-04,
     &       -4.52036E-05, 6.51889E-05, 3.74227E-05,-3.26799E-06,
     &       -6.03862E-03,-7.84022E-04,-4.33305E-05,-7.36064E-05,
     &       -5.18241E-05,-6.05417E-06, 1.08882E-04, 9.26481E-04,
     &        1.51994E-04, 7.79884E-05, 3.31197E-06,-1.77289E-03,
     &        3.25389E-04, 8.58242E-05,-4.08914E-06,-1.45577E-05,
     &        3.56395E-03, 9.84226E-04,-4.92666E-06, 5.90693E-06,
     &        1.72193E-03,-2.00577E-04,-8.52892E-05,-5.53261E-06,
     &       -1.66611E-03,-1.23824E-05, 2.81093E-05,-2.64975E-03,
     &        7.67532E-05,-1.14407E-04,-1.46721E-03, 1.33782E-04,
     &       -5.66603E-03,-5.06897E-04, 1.15428E-02, 9.55942E-03/
C     long 240deg, dec_so
      DATA (D(17,4,J),J=1,289)/-7.86464E-01,
     &       -4.57463E-01,-2.76632E-01, 1.26349E-01,-2.19839E-01,
     &        2.16729E-01, 2.25017E-01, 1.15804E-01, 7.89044E-02,
     &        1.40413E-01, 1.03678E-01,-1.89768E-01,-1.37563E-01,
     &       -9.34388E-02,-7.31993E-03,-1.30160E-01,-7.94802E-02,
     &       -1.26462E-01,-4.93166E-02, 3.36562E-02, 3.33143E-02,
     &        5.70639E-02, 2.96221E-02, 2.45734E-02,-3.01326E-03,
     &        1.18152E-02, 3.09651E-03,-6.25207E-03,-6.71522E-03,
     &       -1.11702E-02,-4.33826E-03,-8.53789E-03,-2.15449E-03,
     &       -2.40718E-01,-6.24607E-02, 6.36467E-02, 3.44819E-02,
     &       -1.02101E-02,-2.66691E-02,-3.40918E-02,-1.39250E-02,
     &       -1.98511E-02,-3.38751E-03,-1.17400E-02,-2.13563E-03,
     &       -2.18483E-03, 2.44068E-03, 6.97526E-03, 1.42726E-03,
     &        7.08182E-02,-8.58890E-03, 5.14950E-03,-1.49550E-02,
     &        4.00985E-03, 1.18332E-03, 1.68547E-03, 2.77890E-04,
     &        1.61351E-03, 8.27950E-04,-2.22031E-03,-7.04671E-04,
     &       -7.76630E-04,-3.03867E-05,-9.25008E-04,-7.50631E-02,
     &       -4.88972E-03,-7.16130E-03,-4.39710E-03,-3.13381E-03,
     &        2.16069E-03,-1.04993E-03,-1.96712E-03,-2.17663E-03,
     &       -1.54372E-03,-1.56791E-03,-1.39927E-04, 8.81408E-04,
     &       -6.83893E-06, 4.98105E-04, 4.97387E-02,-3.34267E-03,
     &        2.40743E-03, 4.85802E-03, 3.76131E-03, 4.32918E-04,
     &       -8.40609E-04, 5.83896E-04, 4.69025E-04, 2.99872E-04,
     &       -1.51826E-05,-1.13451E-05,-3.46001E-05, 7.05539E-05,
     &        5.58557E-02,-2.88767E-03, 6.68303E-04,-1.44553E-03,
     &       -4.19464E-04, 7.04788E-04, 2.83049E-04, 5.79535E-04,
     &        1.15840E-04, 3.89671E-05,-1.60906E-04, 9.44480E-05,
     &       -9.08932E-05, 1.39946E-05,-2.69441E-02, 6.06415E-03,
     &        5.82951E-04, 3.34618E-03, 3.27338E-04,-1.51055E-05,
     &       -1.95155E-04,-2.01479E-04,-2.40130E-04,-5.81116E-05,
     &       -1.30605E-05,-3.66690E-05,-1.13412E-05,-9.09711E-03,
     &       -8.84346E-03,-5.96604E-04,-8.46695E-04,-1.13089E-03,
     &       -7.92750E-04,-4.15901E-04, 8.35309E-05,-4.67349E-05,
     &        7.41736E-05, 6.76590E-05, 1.68331E-05, 2.17205E-05,
     &        2.28243E-03, 2.50985E-03, 2.42709E-04, 2.75773E-04,
     &       -1.52412E-04, 1.71675E-04, 1.68837E-04,-6.48896E-05,
     &       -5.97395E-05,-2.82915E-05, 3.86857E-05, 3.51834E-05,
     &       -1.67823E-02, 9.52441E-04,-9.26851E-05, 1.01973E-03,
     &       -3.33262E-04,-7.08930E-05, 1.06902E-04, 3.45664E-06,
     &       -3.44182E-05,-3.22820E-05, 1.65494E-05, 1.52551E-06,
     &        2.91523E-03,-2.25135E-03, 1.07712E-03, 5.64236E-04,
     &        5.16936E-04, 1.08561E-04, 4.02722E-05, 2.46372E-05,
     &        1.00176E-06,-8.30334E-06, 1.63073E-06, 6.07541E-03,
     &        1.27107E-03,-3.27009E-04,-1.33278E-04,-2.28035E-04,
     &        1.80900E-04, 1.46128E-05,-8.53461E-05,-8.06719E-05,
     &       -1.57390E-05,-2.72041E-06,-6.32250E-03, 8.29290E-04,
     &       -5.13423E-05, 1.18654E-04, 2.07720E-05,-7.71477E-05,
     &       -2.43332E-05, 6.34351E-06,-1.78313E-06,-8.41895E-06,
     &        5.43252E-03,-9.16090E-04,-7.33264E-04,-9.85398E-06,
     &        1.74798E-04, 8.09721E-05,-4.63668E-06, 4.86159E-06,
     &       -1.08259E-05, 3.11457E-06,-5.33328E-03, 7.59849E-04,
     &        4.28272E-04, 3.33127E-04,-2.55306E-06, 4.55249E-05,
     &        3.41495E-05, 4.66449E-06, 1.05110E-05, 6.02451E-03,
     &       -1.18185E-03,-6.47111E-05,-6.46801E-05, 9.25339E-05,
     &       -1.33010E-05, 1.41640E-05, 1.24659E-05, 3.67238E-06,
     &       -3.16546E-03, 3.65659E-04, 5.77709E-04, 6.09147E-05,
     &       -8.94736E-06, 1.91248E-05, 1.02631E-05,-3.59190E-06,
     &        1.75138E-03, 1.10600E-03,-8.58535E-05, 9.37273E-05,
     &       -4.99419E-06, 1.11943E-05,-1.12598E-05,-6.00230E-06,
     &       -4.76266E-03,-3.80231E-04, 2.45207E-04,-1.47550E-04,
     &       -9.15929E-05,-3.35800E-05,-5.21128E-06,-1.01106E-03,
     &       -6.17055E-04, 7.11026E-05,-2.20374E-04,-1.07240E-04,
     &       -2.42753E-05,-1.71340E-05,-1.86390E-03,-9.96007E-04,
     &       -4.23499E-04,-9.17631E-05, 7.56992E-06,-2.90496E-05,
     &       -3.44874E-03, 7.99766E-04, 3.53408E-04,-8.96090E-05,
     &       -3.97009E-05,-2.65979E-06,-3.77145E-04, 5.79628E-04,
     &        7.30953E-05, 6.41101E-05,-3.70197E-05, 7.95716E-04,
     &       -5.64670E-04,-2.95549E-04,-3.27567E-05, 1.30233E-05,
     &        3.25895E-03, 1.07368E-03, 3.46592E-05,-2.22114E-05,
     &        3.09074E-03, 4.00371E-04, 6.87933E-06,-5.95666E-05,
     &       -2.10270E-04, 1.77980E-04, 4.95890E-05,-3.96038E-03,
     &        6.46960E-04,-3.76716E-05,-3.07001E-03, 2.32129E-04,
     &        1.01644E-03, 1.41172E-04, 5.39376E-03, 2.13315E-03/
C     long 255deg, dec_so
      DATA (D(18,4,J),J=1,289)/-7.80570E-01,
     &       -4.52633E-01,-3.37011E-01, 1.47490E-01,-1.86703E-01,
     &        2.35361E-01, 2.14518E-01, 1.19662E-01, 7.37722E-02,
     &        1.35295E-01, 1.00411E-01,-1.93698E-01,-1.45675E-01,
     &       -7.66617E-02,-3.57650E-03,-1.22918E-01,-9.90732E-02,
     &       -1.19481E-01,-5.09944E-02, 2.79888E-02, 4.04049E-02,
     &        4.93735E-02, 3.03179E-02, 2.65536E-02, 5.23201E-03,
     &        7.62472E-03, 4.05009E-03,-1.05731E-02,-4.97584E-03,
     &       -1.48568E-02,-3.22887E-03,-9.87997E-03,-1.01330E-03,
     &       -2.24515E-01,-7.47620E-02, 5.40643E-02, 3.63458E-02,
     &       -5.10537E-03,-2.49540E-02,-4.08650E-02,-1.38700E-02,
     &       -1.92018E-02, 7.64531E-04,-1.14371E-02,-2.18093E-03,
     &       -1.41041E-03, 1.07841E-03, 6.72907E-03,-2.83527E-03,
     &        6.16654E-02,-2.42472E-03, 1.16958E-02,-1.27237E-02,
     &        4.35488E-03, 1.14603E-03, 1.80373E-04,-2.71693E-04,
     &        1.28300E-03, 4.95074E-04,-2.03294E-03,-1.85100E-04,
     &       -7.67494E-04, 1.33083E-05,-1.22597E-03,-6.64787E-02,
     &       -4.49016E-03,-8.26255E-03,-3.22958E-03,-3.67955E-03,
     &        1.19481E-03,-1.57627E-03,-1.07198E-03,-2.15503E-03,
     &       -1.09497E-03,-1.68583E-03,-2.22009E-04, 6.92657E-04,
     &        9.28664E-05, 2.92014E-04, 4.87021E-02,-2.69052E-03,
     &        1.87898E-03, 4.69343E-03, 3.09148E-03, 2.02038E-04,
     &       -1.14680E-03,-3.10478E-05, 3.16375E-04, 2.87101E-04,
     &        1.68029E-04, 9.24217E-05, 5.74590E-05, 1.72038E-04,
     &        3.93370E-02,-2.90639E-03, 3.79726E-04,-1.11619E-03,
     &       -9.07933E-04,-5.46899E-05, 8.70972E-05, 6.63977E-04,
     &        1.05856E-04,-1.46666E-05,-1.39139E-04, 1.64970E-04,
     &        4.02536E-07, 4.13975E-05,-1.02046E-02, 7.65338E-03,
     &       -5.56814E-04, 3.01122E-03, 1.24218E-03, 6.77671E-04,
     &       -1.83918E-04,-2.12707E-04,-1.46831E-04,-6.63903E-05,
     &       -6.63113E-05,-5.56118E-05,-3.88091E-05,-7.53956E-03,
     &       -5.49027E-03,-1.57128E-04,-5.18703E-04,-7.64236E-04,
     &       -7.32472E-04,-6.13383E-04,-1.32382E-04,-5.00811E-05,
     &        1.20566E-04, 1.08329E-04,-6.88599E-06, 3.31589E-05,
     &       -6.10085E-04, 1.80907E-03,-1.89973E-04, 2.38867E-04,
     &        9.66786E-05, 3.15765E-04, 2.93088E-04, 1.14030E-04,
     &        2.11703E-05, 1.97867E-05, 4.81097E-05, 2.79904E-05,
     &       -1.05694E-02, 1.68437E-03, 5.63913E-04, 1.18436E-03,
     &       -3.33117E-04,-8.81538E-05, 5.28969E-06,-5.50216E-05,
     &       -6.94892E-05,-4.23237E-06, 4.27046E-06, 9.48426E-06,
     &       -3.35499E-03,-1.56720E-03, 1.62229E-04, 1.65198E-04,
     &        1.85877E-04, 1.45748E-04, 6.64427E-05, 2.78878E-05,
     &       -5.21021E-06,-2.79644E-05,-3.68229E-06, 6.15771E-04,
     &        2.00075E-03,-1.54285E-04, 4.73234E-05,-1.55891E-04,
     &        1.88387E-04, 1.20484E-04, 2.57432E-05, 1.88084E-06,
     &        9.99253E-06, 2.98611E-06,-3.99792E-03,-8.77970E-04,
     &       -1.10032E-03,-1.00883E-04,-2.05823E-06,-1.43643E-04,
     &       -9.02673E-05,-3.84212E-05,-2.81876E-05,-1.39987E-05,
     &        1.66142E-03,-3.58836E-04,-5.23015E-04,-1.26872E-04,
     &       -1.53386E-04,-6.41358E-05,-2.63539E-05,-1.11534E-05,
     &       -2.44120E-05,-6.28967E-06,-2.54129E-03, 8.75692E-04,
     &       -1.74770E-04, 8.63469E-05, 3.23253E-05, 3.82131E-05,
     &       -1.99217E-05,-3.27619E-05,-1.87911E-05, 5.01121E-03,
     &       -1.43949E-03,-4.97779E-04,-1.78374E-05, 9.75152E-05,
     &        1.80651E-05, 3.79569E-05, 3.76061E-05, 1.56734E-05,
     &       -2.77575E-03, 1.11671E-03, 7.13451E-04, 1.54640E-04,
     &        1.02861E-04, 6.28151E-05, 1.32256E-05,-7.26145E-06,
     &       -2.22599E-03, 3.97037E-04,-3.43539E-04,-7.14372E-05,
     &        3.70629E-05, 2.51593E-05, 1.61983E-05, 3.39921E-07,
     &        1.12716E-03, 5.95163E-04, 2.40188E-04,-9.77858E-06,
     &       -1.70698E-06,-2.71456E-05,-1.39771E-05,-4.21857E-03,
     &       -9.49049E-04,-3.90497E-05,-2.41792E-04, 5.70369E-06,
     &        1.80452E-05,-7.78171E-06,-6.37919E-05,-3.09085E-04,
     &        2.34056E-04,-1.69809E-06,-3.43572E-05,-2.37920E-05,
     &        1.48252E-03, 1.76937E-03, 5.71332E-04, 8.62712E-05,
     &        2.71772E-05, 1.00564E-05,-5.05598E-04, 1.64587E-04,
     &       -9.05010E-05, 1.72107E-05,-6.33367E-05, 2.83020E-03,
     &        1.09146E-04, 1.42421E-04, 1.08139E-04, 5.53555E-05,
     &        3.88110E-03,-1.21980E-04,-8.40358E-05,-1.36779E-04,
     &        4.90663E-03,-4.25303E-04,-1.69091E-04,-6.47653E-05,
     &        5.25977E-03, 1.07135E-03, 3.59054E-04,-1.82435E-03,
     &       -3.54444E-04,-3.74930E-04, 2.59918E-03, 4.72704E-04,
     &        4.10000E-03,-7.65024E-05, 2.36145E-03,-1.40926E-03/
C     long 270deg, dec_so
      DATA (D(19,4,J),J=1,289)/-7.62890E-01,
     &       -4.15438E-01,-3.81620E-01, 1.43807E-01,-1.81121E-01,
     &        2.34635E-01, 2.15715E-01, 1.22585E-01, 4.51280E-02,
     &        1.07270E-01, 1.03484E-01,-1.71911E-01,-1.33911E-01,
     &       -5.88870E-02, 1.21052E-02,-9.96670E-02,-1.18267E-01,
     &       -1.28677E-01,-5.49754E-02, 2.89142E-02, 4.20149E-02,
     &        3.84406E-02, 2.70998E-02, 3.18195E-02, 1.06321E-02,
     &        5.80055E-03, 8.61475E-03,-1.31090E-02,-2.59067E-03,
     &       -1.70011E-02, 1.18032E-03,-1.24791E-02,-1.28853E-03,
     &       -2.11201E-01,-9.20255E-02, 4.60442E-02, 4.16827E-02,
     &        1.60071E-03,-2.09948E-02,-3.91820E-02,-1.10736E-02,
     &       -2.16792E-02, 8.38889E-04,-1.17033E-02,-2.05994E-03,
     &       -3.09745E-03,-9.19038E-04, 7.45753E-03,-5.07081E-03,
     &        6.18535E-02, 3.91364E-03, 1.24657E-02,-7.34822E-03,
     &        6.82921E-03, 3.39097E-03, 1.01829E-03,-1.63197E-04,
     &        8.64511E-04,-5.74664E-04,-2.10635E-03,-3.50148E-04,
     &       -7.03486E-04, 2.60428E-04,-1.12762E-03,-7.88825E-02,
     &       -5.92636E-04,-4.53777E-03,-2.71603E-03,-6.42206E-03,
     &        2.65771E-04,-2.25842E-03,-1.36419E-03,-2.10922E-03,
     &       -1.16972E-03,-1.95047E-03,-7.37974E-04, 3.09377E-04,
     &        1.12060E-04, 2.36046E-04, 4.66577E-02,-9.84743E-03,
     &       -1.86167E-03, 4.47516E-03, 2.54305E-03, 8.83259E-04,
     &       -9.99028E-04, 3.91421E-05, 4.59250E-04, 2.82897E-04,
     &        1.79059E-04, 1.44275E-04, 1.02773E-04, 2.21050E-04,
     &        2.78974E-02,-5.35498E-03, 9.22373E-04, 1.24350E-04,
     &       -7.27678E-04,-6.22360E-04, 6.12269E-04, 4.35685E-04,
     &        1.88656E-04, 1.38223E-04, 2.91292E-05, 1.53443E-04,
     &        1.09987E-04, 6.63230E-05,-5.14825E-03, 6.02710E-03,
     &       -4.76122E-04, 1.73104E-03, 1.24063E-03, 4.82400E-04,
     &        1.68020E-04,-1.43209E-04, 1.10775E-05,-1.39887E-04,
     &       -4.19966E-05,-4.26367E-05,-3.05714E-05,-9.62100E-03,
     &       -5.87785E-03,-8.71006E-04,-6.04293E-04,-6.11794E-04,
     &       -1.02710E-03,-5.43642E-04,-2.92799E-04,-9.00388E-05,
     &       -3.63997E-05, 2.88373E-05,-2.80724E-05, 4.74621E-06,
     &       -4.41962E-03, 4.15503E-03,-2.86590E-05, 3.39833E-04,
     &        1.45677E-04, 3.17314E-04, 2.78330E-04, 1.29644E-04,
     &        1.91177E-05, 3.32977E-05, 3.32207E-05,-4.59247E-06,
     &       -2.41204E-03, 3.45118E-03,-9.92144E-05, 1.32695E-03,
     &       -3.97320E-04, 9.50405E-05, 4.68206E-05, 1.31425E-04,
     &        3.89980E-05, 4.74358E-05,-2.26053E-05, 9.42640E-08,
     &       -1.03076E-02,-1.05857E-03,-5.98042E-04, 1.05482E-04,
     &       -1.63185E-05, 2.14523E-04,-4.23304E-06,-9.42402E-06,
     &       -3.68586E-05,-2.38749E-05, 3.59956E-06, 7.30408E-03,
     &        3.11530E-03,-8.34481E-05,-1.17791E-04, 1.22753E-04,
     &        1.53801E-04, 1.57295E-04, 6.09382E-05, 2.71017E-05,
     &        6.29019E-06,-1.64877E-06,-7.45016E-03,-2.13384E-03,
     &       -6.65075E-04, 9.52464E-06, 8.58618E-05,-9.25489E-05,
     &       -6.17437E-05,-6.19891E-05,-2.96588E-05,-8.96017E-06,
     &        5.28641E-03, 6.28372E-04,-2.15017E-04,-4.78023E-05,
     &        2.65986E-05, 4.74750E-06, 5.07830E-06, 2.96706E-05,
     &        7.94157E-07, 1.68760E-05,-4.21212E-03,-9.17106E-04,
     &       -6.83688E-04,-1.43521E-04,-3.51936E-05, 1.20819E-05,
     &       -4.25745E-05,-2.13574E-05,-1.67167E-05, 2.00108E-03,
     &       -1.51303E-03,-1.76713E-04, 5.11401E-05, 9.23518E-05,
     &       -1.03508E-05, 8.38625E-06, 2.35144E-05,-2.93139E-06,
     &       -3.61072E-03, 1.17018E-03, 2.19190E-04,-1.96938E-05,
     &        5.41147E-06, 4.70303E-05, 1.44583E-05,-3.73856E-06,
     &       -1.71314E-03,-5.00834E-04,-2.85977E-04, 5.81632E-05,
     &        1.15224E-04, 7.06435E-05, 4.11217E-05, 1.52790E-05,
     &       -5.96615E-03, 1.38804E-03, 2.91470E-04, 6.86970E-05,
     &       -1.24120E-05,-3.22131E-05,-6.95001E-08, 4.44946E-04,
     &       -1.32270E-04,-4.04529E-04,-1.32986E-04,-6.14794E-06,
     &        2.18541E-05, 9.43883E-06,-2.61823E-03,-3.45238E-04,
     &        2.07651E-04, 1.24244E-04,-2.37470E-05,-8.88830E-06,
     &        2.56428E-04, 1.43962E-03, 5.41952E-04, 7.07638E-05,
     &       -2.46971E-05, 1.07791E-05,-1.63488E-03,-7.99439E-04,
     &       -3.98474E-04,-4.24844E-05,-2.25952E-05, 3.09974E-03,
     &        8.99852E-04, 4.95464E-04, 2.38386E-04, 6.24361E-05,
     &        1.88403E-03,-6.88612E-04,-3.33214E-04,-1.78608E-04,
     &        2.36956E-03,-3.62564E-04,-2.89972E-04, 5.11162E-05,
     &        3.53836E-03, 9.55900E-04, 1.69679E-04,-7.32966E-04,
     &       -4.53787E-04,-3.40690E-04, 2.47788E-03, 2.37049E-04,
     &        8.38766E-03, 6.05609E-04,-2.27232E-03, 2.63307E-03/
C     long 285deg, dec_so
      DATA (D(20,4,J),J=1,289)/-7.51164E-01,
     &       -3.61927E-01,-4.17630E-01, 1.22638E-01,-2.05706E-01,
     &        2.15406E-01, 2.30089E-01, 1.33492E-01, 4.18694E-02,
     &        8.70101E-02, 1.23220E-01,-1.36667E-01,-1.29458E-01,
     &       -5.81172E-02, 5.08228E-03,-7.28376E-02,-1.31574E-01,
     &       -1.24691E-01,-5.46799E-02, 3.21041E-02, 3.84928E-02,
     &        4.03206E-02, 2.21408E-02, 3.16604E-02, 8.44199E-03,
     &        5.05585E-03, 1.26118E-02,-1.53762E-02,-1.73136E-04,
     &       -2.08719E-02, 4.58632E-03,-1.44842E-02,-4.79013E-04,
     &       -2.05876E-01,-1.04884E-01, 3.38303E-02, 4.15285E-02,
     &        3.55047E-03,-1.51672E-02,-3.26136E-02,-8.82156E-03,
     &       -2.59894E-02,-1.22945E-03,-1.15100E-02,-1.26679E-04,
     &       -4.06433E-03,-9.22540E-04, 9.53497E-03,-2.89465E-03,
     &        5.21660E-02, 9.48284E-03, 1.31477E-02,-3.06945E-03,
     &        5.19148E-03, 4.44371E-03, 1.56792E-03, 3.01380E-04,
     &        2.07857E-03, 1.80957E-04,-1.64638E-03,-7.15326E-04,
     &       -1.01674E-03, 4.11814E-04,-1.05909E-03,-7.51626E-02,
     &        4.09659E-03,-8.48690E-03,-2.64411E-03,-5.72632E-03,
     &       -3.47404E-04,-2.93218E-03,-2.60065E-03,-1.51978E-03,
     &       -1.37429E-03,-1.92020E-03,-7.36814E-04, 8.16515E-05,
     &       -2.71406E-04, 3.03130E-04, 4.09343E-02,-1.48156E-02,
     &       -3.96702E-03, 2.91489E-03, 2.07338E-03, 1.20654E-03,
     &       -6.99896E-04,-7.88452E-05, 3.86639E-04, 9.94302E-05,
     &        1.18908E-04, 7.96223E-05, 6.20726E-05, 2.16537E-04,
     &        3.42333E-02,-1.66476E-03, 1.31336E-03,-2.27930E-04,
     &       -2.07962E-04,-6.76711E-04, 1.09049E-03, 2.50370E-04,
     &        4.94071E-04, 3.20650E-04, 1.70861E-04, 9.32836E-05,
     &        1.98356E-04, 1.37675E-04,-8.70001E-03, 9.64344E-04,
     &       -8.64838E-04, 1.13674E-03, 1.09650E-03, 5.53984E-06,
     &        3.58846E-04, 1.18088E-05, 1.37378E-04,-1.12873E-04,
     &       -1.75382E-05,-1.76794E-05,-2.49276E-05,-4.96446E-03,
     &       -6.07106E-03,-1.34560E-03,-1.20874E-03,-4.52866E-04,
     &       -6.90274E-04,-4.28574E-05,-1.24134E-04,-3.96918E-06,
     &       -9.48532E-05,-6.07304E-05,-2.06687E-05,-3.11738E-05,
     &       -4.20503E-03, 4.88747E-03, 3.40365E-05, 9.88230E-04,
     &        2.90457E-04, 1.44071E-04, 1.96807E-04, 8.48003E-05,
     &        7.08398E-05, 3.80887E-05, 4.67821E-05,-1.79174E-05,
     &       -1.65981E-03, 2.66656E-03,-1.95876E-04, 1.01673E-03,
     &       -3.43929E-04, 1.76709E-04, 1.12958E-04, 1.68484E-04,
     &        8.77701E-05, 4.11267E-05, 1.20677E-05,-5.02468E-06,
     &       -1.38388E-02,-1.96781E-04,-5.50475E-04, 6.07392E-04,
     &        1.02913E-04, 1.62705E-04,-9.23017E-05, 9.96559E-07,
     &       -4.76370E-05,-9.74296E-07,-6.98793E-06, 9.58372E-03,
     &        2.73667E-03,-3.86134E-04, 6.11286E-05, 5.86495E-05,
     &        1.31534E-04, 1.19727E-04, 5.02475E-05, 3.60484E-05,
     &        3.06145E-05, 1.49734E-05,-1.17642E-02,-2.53542E-03,
     &        9.05392E-05, 5.80111E-05, 1.22095E-04,-6.29946E-05,
     &       -2.91236E-05,-4.25303E-05,-1.51940E-05,-1.75155E-05,
     &        4.98584E-04,-2.01948E-04,-4.82499E-04, 8.02269E-05,
     &        1.78357E-04, 3.86844E-05,-2.04615E-05, 3.34473E-05,
     &        1.97491E-05, 2.69314E-05,-7.56758E-03,-7.97702E-04,
     &        1.68097E-04, 9.01844E-05,-4.67125E-05, 4.67681E-05,
     &       -5.83594E-06, 8.28908E-06,-4.77539E-06, 2.54504E-03,
     &       -1.69159E-03, 1.36287E-04, 5.89822E-05, 9.15361E-05,
     &       -2.60453E-05,-1.68466E-05, 6.50068E-06, 3.04320E-08,
     &       -4.55096E-03, 7.88172E-04, 3.81711E-04, 2.40686E-05,
     &       -4.87415E-05, 2.48926E-05, 2.18037E-05, 1.13613E-05,
     &       -6.31397E-04, 4.82192E-05,-1.08317E-04, 9.95942E-05,
     &        7.22604E-05, 2.44399E-05, 6.17116E-06, 4.21976E-06,
     &       -6.80289E-03, 5.72803E-04, 2.23505E-04, 6.29959E-05,
     &       -2.76668E-05,-2.10509E-05, 9.76953E-06, 4.94051E-03,
     &        5.92684E-04,-2.02904E-04, 5.32513E-05,-3.87220E-05,
     &       -1.04176E-05,-6.44017E-06,-3.46495E-03,-6.64197E-04,
     &        1.97857E-04, 7.93181E-05, 7.06037E-06, 2.78329E-05,
     &        1.44411E-03, 9.33485E-04, 2.93497E-04, 4.35721E-06,
     &       -6.00908E-05, 7.89494E-09,-1.75391E-03,-5.92067E-04,
     &       -2.22429E-04, 5.16440E-05, 6.39536E-06, 3.43407E-03,
     &        1.37415E-03, 6.51417E-04, 1.16534E-04, 3.33570E-05,
     &       -2.37744E-03,-1.00858E-03,-3.05095E-04,-1.62913E-04,
     &        1.06708E-03, 3.22125E-04, 4.57825E-05, 8.49997E-05,
     &        3.21238E-03, 4.61972E-04,-1.10921E-04,-4.48193E-04,
     &       -1.33703E-04,-2.24976E-04, 2.04717E-03, 1.14519E-03,
     &        9.91367E-03, 4.74121E-04, 2.29979E-03, 4.40231E-03/
C     long 300deg, dec_so
      DATA (D(21,4,J),J=1,289)/-7.43203E-01,
     &       -2.98976E-01,-4.54360E-01, 1.02279E-01,-2.48922E-01,
     &        1.74774E-01, 2.39752E-01, 1.35254E-01, 5.30258E-02,
     &        6.11184E-02, 1.47837E-01,-1.08058E-01,-1.25419E-01,
     &       -6.59351E-02,-8.41081E-03,-9.02408E-02,-1.34075E-01,
     &       -1.10401E-01,-4.54385E-02, 3.15958E-02, 3.24958E-02,
     &        4.43442E-02, 1.52426E-02, 2.82947E-02, 6.13111E-03,
     &        7.26620E-03, 1.52392E-02,-1.48449E-02, 1.14277E-03,
     &       -2.04101E-02, 4.44090E-03,-1.49648E-02,-1.98174E-03,
     &       -2.04215E-01,-1.07953E-01, 1.81804E-02, 3.80667E-02,
     &        2.20490E-03,-9.59839E-03,-3.02018E-02,-3.13272E-03,
     &       -2.94041E-02, 1.15035E-03,-1.46375E-02, 4.88522E-04,
     &       -4.25850E-03,-6.15265E-04, 8.35712E-03,-1.87956E-03,
     &        3.58441E-02, 1.26524E-02, 1.55686E-02, 4.11804E-05,
     &        1.96207E-03, 3.22794E-03, 2.06131E-03,-6.55052E-04,
     &        2.98271E-03, 9.71757E-04,-8.90220E-04,-8.60170E-06,
     &       -8.65048E-04, 5.24537E-04,-1.23264E-03,-7.24432E-02,
     &        6.61016E-03,-1.42750E-02,-2.13146E-03,-3.79899E-03,
     &       -1.08210E-03,-1.63550E-03,-2.33754E-03,-1.16167E-03,
     &       -1.06500E-03,-2.12956E-03,-7.01308E-04,-2.83186E-04,
     &       -4.66922E-04, 2.49776E-04, 4.25519E-02,-1.64141E-02,
     &       -5.52870E-03, 1.53828E-03, 1.47997E-03, 1.32070E-03,
     &       -2.81699E-04,-2.54410E-04, 5.81827E-04, 1.24401E-05,
     &        2.66114E-04, 7.28308E-05, 3.41275E-05, 1.67722E-04,
     &        3.94685E-02, 1.51942E-03, 4.90209E-04,-1.41784E-03,
     &       -1.33340E-04,-3.55701E-04, 1.01880E-03, 2.07042E-04,
     &        6.46197E-04, 4.57872E-04, 2.03734E-04, 1.09501E-04,
     &        2.37494E-04, 1.90175E-04,-1.55270E-02,-2.62102E-03,
     &       -2.01922E-03, 7.44802E-04, 6.93483E-04,-2.53955E-04,
     &        1.02583E-04, 5.68688E-05, 1.57136E-04,-6.02147E-05,
     &       -3.90832E-06,-1.55909E-05,-5.27904E-05,-9.08948E-04,
     &       -4.71572E-03,-7.50065E-04,-1.22133E-03,-7.22674E-05,
     &       -1.25551E-04, 7.70757E-05,-1.10013E-04,-4.75494E-05,
     &       -1.22643E-04,-1.10170E-04,-1.60080E-05,-5.43783E-05,
     &       -1.37603E-03, 5.12812E-03,-8.54731E-04, 8.48412E-04,
     &        5.59246E-05,-1.71796E-04, 2.71338E-05,-4.44718E-05,
     &        3.89528E-05, 1.72436E-05, 5.53830E-05, 7.21595E-06,
     &       -7.87330E-03, 4.00553E-03, 1.37734E-03, 5.64686E-04,
     &       -1.34332E-04, 1.60418E-04, 1.82791E-04, 8.76634E-05,
     &        4.39756E-05, 2.62483E-05, 3.99783E-05, 7.37963E-06,
     &       -1.05413E-02, 2.50832E-04,-1.48675E-03, 8.30003E-04,
     &        8.27297E-05, 1.65981E-04,-8.75151E-05, 2.70868E-05,
     &       -7.39367E-06, 4.26334E-05, 2.81901E-06, 8.62588E-03,
     &        2.66002E-03,-7.55485E-04, 3.47223E-04, 6.72607E-05,
     &        1.03915E-04, 1.26040E-04, 4.59524E-05, 4.35944E-05,
     &        3.11795E-05, 2.51032E-05,-1.10642E-02,-3.23978E-03,
     &        6.21644E-04,-2.85176E-04, 1.12195E-04,-8.64565E-05,
     &       -6.21647E-05,-5.13092E-05,-1.12524E-05,-2.25240E-05,
     &       -8.00753E-04,-9.43115E-04,-9.25361E-04, 3.09203E-05,
     &        7.77811E-05,-1.78792E-06,-6.13447E-05,-1.41035E-05,
     &       -3.83790E-06, 2.39653E-06,-4.87900E-03, 1.06984E-04,
     &        1.66461E-04, 5.98959E-06,-1.88652E-07, 4.28569E-06,
     &       -1.52355E-05, 1.50101E-05,-5.12803E-06, 2.80806E-03,
     &       -1.27216E-03, 1.89067E-04,-5.02409E-05, 3.61994E-05,
     &       -1.87065E-05,-2.51378E-05,-1.58446E-05,-1.05908E-06,
     &       -3.83622E-03,-1.96297E-04, 3.17066E-04, 2.09719E-04,
     &       -1.61574E-05,-2.47528E-06, 1.31941E-05, 2.26966E-05,
     &        2.01235E-03,-1.07833E-04, 3.31207E-05,-1.38102E-04,
     &        1.66938E-05,-3.86362E-05,-1.44843E-06,-8.18169E-06,
     &       -1.47372E-03,-4.22191E-04, 2.34261E-04, 1.11775E-04,
     &        8.57701E-06,-1.79443E-05, 2.03268E-06, 1.66764E-03,
     &        4.09635E-05,-2.11240E-04, 1.44604E-04,-4.11071E-05,
     &       -3.43518E-05,-1.80286E-05, 8.30848E-04,-3.01801E-04,
     &        2.10588E-04, 6.75620E-05, 1.21220E-06, 2.67356E-05,
     &        3.57811E-03, 1.08627E-03, 2.77382E-05, 7.49068E-05,
     &       -6.73467E-05,-1.64557E-05, 9.34603E-04,-5.53561E-04,
     &        5.42528E-05, 4.35827E-05, 1.48341E-05, 3.52706E-03,
     &        1.30362E-03, 2.48389E-04,-4.07897E-05, 5.43677E-06,
     &       -7.04917E-03,-6.99740E-04, 9.47688E-05,-1.07086E-04,
     &        1.05336E-04, 5.69602E-04, 1.30747E-04,-5.77684E-05,
     &        2.45077E-03, 6.19877E-04, 5.57879E-05, 1.09352E-03,
     &        3.49695E-04, 6.43759E-05, 3.74928E-03, 1.46791E-03,
     &        5.27582E-03, 4.18088E-04, 4.04652E-03, 4.41548E-03/
C     long 315deg, dec_so
      DATA (D(22,4,J),J=1,289)/-7.40315E-01,
     &       -2.42678E-01,-4.80048E-01, 7.77214E-02,-2.92720E-01,
     &        1.38564E-01, 2.56149E-01, 1.20253E-01, 5.25466E-02,
     &        3.11176E-02, 1.80544E-01,-7.00056E-02,-1.15062E-01,
     &       -7.16093E-02,-1.55300E-02,-1.08580E-01,-1.25906E-01,
     &       -9.87348E-02,-3.94328E-02, 1.96325E-02, 2.92506E-02,
     &        4.20414E-02, 6.35473E-03, 2.57897E-02, 3.39195E-03,
     &        1.11517E-02, 1.50742E-02,-1.20502E-02, 1.90285E-03,
     &       -1.84014E-02, 3.96196E-03,-1.63933E-02,-3.41438E-03,
     &       -1.85972E-01,-1.02828E-01, 7.30893E-03, 3.12114E-02,
     &        3.98619E-04,-5.40010E-03,-3.09819E-02, 1.94431E-03,
     &       -3.41008E-02, 1.41610E-03,-1.83536E-02, 1.40167E-03,
     &       -3.58399E-03, 4.62150E-05, 4.58498E-03,-1.78212E-03,
     &        1.96774E-02, 1.28256E-02, 1.83536E-02, 5.79742E-03,
     &        7.59269E-05, 1.43523E-03, 2.78390E-03,-1.33418E-03,
     &        2.71374E-03, 1.40362E-03,-3.92679E-04, 1.03608E-03,
     &       -6.44317E-04, 2.78344E-04,-1.38078E-03,-6.57368E-02,
     &        7.25713E-03,-1.57100E-02,-3.70137E-04,-2.51604E-03,
     &       -1.76075E-03,-9.36549E-04,-1.16979E-03,-1.44482E-03,
     &       -8.45394E-04,-2.40979E-03,-1.17333E-03,-2.52274E-04,
     &       -6.58951E-04, 4.10259E-04, 4.69915E-02,-1.87571E-02,
     &       -5.59360E-03, 7.32011E-04, 1.47723E-03, 9.03393E-04,
     &       -1.03552E-04,-8.63794E-04, 7.59239E-04,-3.64512E-04,
     &        2.65116E-04,-1.09151E-05, 3.22299E-05, 8.69317E-05,
     &        3.75162E-02, 7.37279E-04, 1.18297E-03,-6.26828E-04,
     &        6.50334E-04,-3.75407E-04, 1.15844E-03, 1.50333E-04,
     &        6.09120E-04, 3.93068E-04, 2.44107E-04, 1.88607E-04,
     &        1.27558E-04, 1.04595E-04,-1.53445E-02,-1.68890E-03,
     &       -2.03421E-03, 6.66987E-04, 8.29744E-04,-2.56193E-04,
     &       -6.42609E-05,-4.84812E-05, 1.77603E-04,-1.33032E-05,
     &        3.10911E-05, 2.35706E-05,-9.97319E-07,-3.04110E-03,
     &       -5.48208E-03,-7.75074E-04,-3.69480E-04, 4.17753E-04,
     &        9.79093E-05, 3.37042E-05,-1.91592E-04,-9.06899E-05,
     &       -1.50812E-04,-1.13373E-04,-4.84560E-05,-4.23618E-05,
     &        1.35350E-03, 6.41627E-03,-8.71354E-04, 4.15396E-04,
     &       -6.88595E-05,-2.15624E-04,-3.69216E-05,-1.74108E-05,
     &       -1.51535E-05, 2.64526E-05, 3.20388E-05, 2.05746E-05,
     &       -6.68013E-03, 4.25385E-03, 2.09386E-03, 3.56776E-04,
     &        8.56793E-05, 2.04110E-04, 1.27896E-04, 1.26425E-04,
     &        9.15889E-05, 3.32110E-05, 4.45474E-05, 1.36932E-05,
     &       -8.37292E-03, 7.72267E-05,-2.17277E-03, 2.42991E-04,
     &       -1.16924E-04, 1.48580E-04,-3.39606E-05,-4.58761E-06,
     &       -1.21451E-05, 3.31044E-05, 9.13346E-07, 6.72041E-03,
     &        2.23622E-03,-1.26655E-03, 2.39580E-04,-4.57068E-05,
     &       -5.66433E-05, 3.65946E-05, 8.85677E-06, 9.72103E-07,
     &       -6.74389E-06, 7.60923E-06,-9.92966E-03,-1.82503E-03,
     &        1.19442E-03,-3.02176E-04, 1.91084E-04, 1.95356E-05,
     &       -1.57428E-05,-2.30439E-05, 7.26343E-06,-4.77184E-06,
     &        1.72189E-03,-1.17655E-03,-1.51809E-03,-7.17333E-05,
     &       -1.42568E-04,-2.36407E-05,-3.81945E-05, 1.20116E-06,
     &       -1.17772E-05,-3.11684E-06, 9.48910E-05, 9.95664E-04,
     &        1.57017E-04,-2.69617E-05, 8.72873E-05, 1.76343E-05,
     &       -6.57659E-06, 8.12880E-06, 1.44624E-06, 2.40753E-03,
     &       -9.05870E-04, 1.26561E-04,-6.59685E-05,-1.00926E-05,
     &       -1.80442E-06,-8.34275E-06,-1.43196E-06,-2.58002E-06,
     &       -2.92277E-03,-1.66307E-03, 8.15663E-05, 4.58906E-05,
     &       -5.57698E-07,-1.64355E-05, 1.48349E-05, 1.39098E-05,
     &        2.82725E-03,-8.07715E-05, 1.09795E-04,-1.16458E-04,
     &       -2.11691E-05,-9.17367E-06, 6.97020E-07,-6.11726E-06,
     &        7.71000E-05,-2.85989E-04,-1.04609E-04, 2.06905E-04,
     &        2.15872E-05,-3.35324E-05,-5.51273E-06,-2.68618E-04,
     &       -1.49301E-03,-5.85053E-04, 1.15998E-04, 6.55344E-06,
     &       -8.80085E-06, 2.70861E-07, 2.57514E-03, 6.30345E-04,
     &        2.79530E-04, 7.64310E-05, 5.30750E-06,-5.75559E-06,
     &        2.56450E-04,-1.15675E-04,-9.79887E-05, 1.32736E-04,
     &       -5.31449E-05,-1.35757E-05, 8.69141E-04,-6.21283E-04,
     &       -2.68756E-05,-2.91695E-05,-1.34209E-05,-7.52089E-04,
     &        6.44385E-04, 3.12393E-05, 8.36607E-05, 1.69810E-05,
     &       -7.06342E-03, 5.47042E-04,-6.42531E-05,-1.20918E-04,
     &       -3.14767E-03, 3.45773E-04, 3.46292E-05,-1.71768E-05,
     &       -2.46090E-03, 3.09040E-04, 8.88192E-05, 1.00459E-03,
     &        8.69153E-04, 5.88679E-05, 1.32052E-03, 9.27571E-04,
     &        1.88124E-03, 2.00146E-04,-2.02021E-03, 2.67616E-04/
C     long 330deg, dec_so
      DATA (D(23,4,J),J=1,289)/-7.42497E-01,
     &       -2.13736E-01,-4.97624E-01, 4.16404E-02,-3.27191E-01,
     &        9.64147E-02, 2.53941E-01, 1.00005E-01, 7.30219E-02,
     &        5.68619E-02, 2.14829E-01,-3.33616E-02,-1.00836E-01,
     &       -6.87266E-02,-7.08490E-03,-1.01718E-01,-1.38753E-01,
     &       -1.02264E-01,-2.63242E-02, 1.23011E-02, 3.28807E-02,
     &        4.05595E-02, 2.45041E-03, 2.68281E-02,-1.16563E-03,
     &        9.69552E-03, 1.28677E-02,-1.24650E-02,-8.27179E-04,
     &       -2.15349E-02, 3.45594E-03,-1.80789E-02,-3.99257E-03,
     &       -1.64691E-01,-9.94204E-02,-2.87153E-03, 1.62820E-02,
     &       -6.10398E-03,-5.95207E-03,-2.87459E-02, 3.52474E-03,
     &       -3.35651E-02,-5.59143E-04,-1.73608E-02, 5.77870E-04,
     &       -2.55669E-03, 4.61662E-04, 4.65798E-03, 1.28724E-03,
     &        5.98628E-03, 1.28450E-02, 1.70138E-02, 8.98238E-03,
     &        2.95311E-04, 7.96489E-06, 2.99544E-03,-2.51227E-03,
     &        2.16273E-03, 1.86124E-03,-8.17205E-04, 1.09187E-03,
     &       -6.77959E-04, 6.81485E-04,-1.37657E-03,-4.61765E-02,
     &        8.90030E-03,-1.42539E-02,-6.15869E-04,-1.30221E-03,
     &       -2.75786E-03,-5.36890E-04, 9.64850E-05,-1.17254E-03,
     &        1.47170E-04,-1.80123E-03,-1.35203E-03,-7.23138E-05,
     &       -1.01789E-03, 7.61586E-04, 5.13045E-02,-1.73444E-02,
     &       -5.99847E-03,-1.69535E-03, 7.72188E-04, 1.17224E-04,
     &       -2.73627E-04,-1.41371E-03, 2.87130E-04,-7.17285E-04,
     &       -1.30311E-04,-5.84689E-05,-1.24012E-04, 8.09026E-05,
     &        3.05994E-02, 1.52829E-03, 2.26463E-03,-6.80423E-04,
     &        1.70154E-03,-4.84476E-04, 9.95562E-04,-7.02913E-05,
     &        4.14100E-04, 2.33293E-04, 1.58388E-04, 1.87914E-04,
     &        3.36600E-05,-6.27198E-06,-9.42132E-03, 4.45949E-04,
     &       -9.71560E-04, 2.37031E-04, 6.40419E-04,-3.07746E-04,
     &       -1.05362E-04, 8.79822E-06, 1.54835E-04, 3.76972E-05,
     &        7.71068E-05, 1.05196E-04, 5.58867E-05, 2.77344E-04,
     &       -6.06122E-03,-8.55914E-04,-1.02979E-03,-3.00498E-04,
     &       -3.94977E-04,-1.49784E-05,-3.03339E-04,-1.94035E-04,
     &       -1.93561E-04,-1.87615E-04,-6.64567E-05,-2.35901E-05,
     &        2.55721E-03, 5.85731E-03,-6.85463E-05, 3.00046E-04,
     &        3.11724E-05,-1.77898E-04,-7.82324E-05, 2.52491E-05,
     &       -2.24070E-05, 3.17195E-05, 3.65977E-05, 9.33262E-06,
     &       -3.24988E-03, 1.87891E-03, 1.92022E-03, 2.31761E-04,
     &        1.70458E-04, 1.67871E-04, 9.92735E-05, 1.69901E-04,
     &        1.22547E-04, 4.74918E-05, 5.80776E-05, 1.65745E-05,
     &       -5.56580E-03, 4.00060E-04,-1.63760E-03,-2.28397E-04,
     &       -2.00163E-04, 5.72676E-05,-3.12542E-05,-3.24088E-05,
     &       -2.27773E-05, 1.31446E-06,-7.48972E-06, 5.36468E-03,
     &        1.91893E-03,-7.10976E-04, 2.27995E-04,-9.64147E-05,
     &       -3.26048E-05, 2.14963E-05, 3.68089E-05, 5.69061E-07,
     &        1.29766E-05,-1.01280E-05,-1.20487E-03, 2.53265E-04,
     &        1.13324E-03, 7.11647E-05, 1.46471E-04, 8.17859E-05,
     &        3.28622E-05, 3.28122E-06, 1.75062E-05, 5.43881E-06,
     &        4.49918E-03,-1.94424E-04,-1.74028E-03, 1.03559E-05,
     &       -1.42856E-04,-3.07191E-05,-2.79203E-05, 4.69148E-06,
     &       -3.73430E-06,-2.69710E-06, 3.29430E-03, 1.43059E-03,
     &        3.26396E-04, 2.14333E-04, 7.31550E-05, 4.74512E-05,
     &        7.79753E-06, 1.19406E-05, 2.27212E-06, 3.54282E-03,
     &       -5.58204E-04, 6.34963E-04, 9.83900E-05,-3.33070E-05,
     &        3.21944E-05, 2.25139E-05, 1.17381E-05, 8.86092E-06,
     &        3.03405E-03,-1.16843E-03, 1.63798E-04, 1.39803E-05,
     &        2.55726E-05, 5.08173E-06, 1.51979E-05, 7.62915E-06,
     &       -9.91311E-04, 6.59665E-04, 5.55323E-04, 1.45238E-04,
     &       -2.35610E-05, 2.22748E-05, 1.12392E-05, 3.58900E-06,
     &       -4.91244E-03,-6.66567E-04,-1.15668E-04, 1.44520E-04,
     &        2.23432E-05,-2.10568E-05,-2.19849E-06, 3.36790E-03,
     &       -9.16833E-04, 4.98360E-05, 1.51734E-04, 2.63189E-05,
     &       -2.61110E-06, 3.13925E-06, 1.19554E-03,-3.44138E-05,
     &        1.59505E-04, 5.02638E-05, 3.46274E-05,-4.83411E-06,
     &        2.32512E-03,-9.79600E-04,-2.04416E-05, 8.06072E-05,
     &       -4.57610E-06,-7.61644E-06,-8.45502E-04,-3.60581E-04,
     &       -2.40857E-04, 5.44843E-05,-3.75099E-05,-1.66119E-03,
     &       -2.83709E-04,-3.40369E-05, 1.21978E-04, 5.93928E-05,
     &       -4.16281E-03, 7.70120E-04,-6.93593E-05,-1.32954E-04,
     &       -4.33632E-03,-3.38555E-05,-3.05167E-04, 3.83534E-06,
     &       -7.08842E-04,-2.07516E-04, 1.38834E-04,-3.28708E-03,
     &        4.25243E-04,-2.49534E-04,-6.20999E-04, 5.03375E-04,
     &        1.74140E-03, 1.68100E-04,-1.45910E-03,-6.47882E-04/
C     long 345deg, dec_so
      DATA (D(24,4,J),J=1,289)/-7.57824E-01,
     &       -1.98609E-01,-4.78971E-01, 4.46765E-02,-3.44534E-01,
     &        5.69796E-02, 2.14180E-01, 5.88239E-02, 7.16562E-02,
     &        8.43126E-02, 2.31204E-01,-4.80837E-02,-1.01897E-01,
     &       -7.34465E-02, 2.05447E-02,-1.02381E-01,-1.37491E-01,
     &       -1.31797E-01,-1.07688E-02, 8.78615E-03, 3.44988E-02,
     &        3.59445E-02,-1.81588E-03, 3.25672E-02,-4.47313E-03,
     &        7.71921E-03, 9.28819E-03,-1.12906E-02,-3.94335E-03,
     &       -1.93345E-02, 4.04264E-03,-1.50825E-02,-3.38939E-03,
     &       -1.63127E-01,-9.03352E-02,-1.15187E-02, 2.07510E-03,
     &       -7.88507E-03,-3.97064E-03,-2.94962E-02, 1.08024E-03,
     &       -3.15371E-02, 3.82830E-04,-1.62740E-02,-7.79253E-04,
     &       -6.38060E-03,-4.43938E-04, 2.30517E-03, 1.99067E-03,
     &        1.26158E-03, 1.32446E-02, 1.45506E-02, 9.37718E-03,
     &        1.75379E-03,-5.88516E-04, 3.64752E-03,-3.50715E-03,
     &        2.41649E-03, 2.74355E-03,-1.13152E-03, 1.30806E-03,
     &       -4.96970E-04, 1.69466E-03,-1.13052E-03,-1.84761E-02,
     &        1.61394E-02,-1.36681E-02,-7.00563E-03,-1.20624E-03,
     &       -4.55098E-03, 1.21696E-04, 4.23724E-05,-1.17381E-03,
     &        4.52393E-05,-9.34244E-04,-1.28451E-03,-2.06010E-04,
     &       -9.77902E-04, 8.18358E-04, 5.87357E-02,-1.65890E-02,
     &       -6.50932E-03,-1.29983E-03, 9.42934E-04, 3.71401E-04,
     &       -1.87162E-04,-1.26405E-03, 1.29510E-04,-4.43410E-04,
     &       -3.18101E-04, 6.20464E-05,-2.32712E-04, 1.67517E-04,
     &        2.58977E-02, 2.02863E-03, 9.20438E-04,-4.67137E-04,
     &        2.34025E-03,-3.09503E-04, 7.76524E-04,-1.46980E-04,
     &        2.58514E-04, 2.20504E-04, 6.31151E-05, 1.44844E-04,
     &        1.50199E-04, 7.51294E-05,-3.11148E-03, 4.28524E-03,
     &        4.06262E-04,-1.53396E-04, 2.87713E-04,-3.41126E-04,
     &       -1.04549E-04, 1.03487E-04, 1.70604E-04,-7.63801E-06,
     &        1.06023E-04, 8.72527E-05,-7.13560E-06, 5.49365E-03,
     &       -5.77280E-03,-4.88737E-05,-1.70179E-03,-8.17294E-04,
     &       -3.65616E-04,-3.33598E-05,-2.28951E-04,-1.13333E-04,
     &       -1.21688E-04,-1.82260E-04,-9.04136E-05,-3.88269E-05,
     &       -4.65287E-03, 3.98875E-03, 4.85107E-04, 5.60893E-04,
     &        1.60585E-04,-8.56753E-06,-5.25626E-05, 9.41607E-05,
     &       -4.19872E-05, 2.82453E-05, 4.55083E-05, 1.23275E-05,
     &       -4.07645E-03, 1.20038E-03, 2.48308E-03, 1.12251E-05,
     &        1.53745E-05,-3.41354E-05,-9.09548E-06, 1.00620E-04,
     &        4.52611E-05, 2.99498E-05, 2.07955E-05,-1.83083E-06,
     &       -5.22003E-03, 1.30738E-03,-1.16138E-03,-9.76874E-05,
     &       -1.52516E-04, 6.09352E-05, 7.48190E-07,-1.37127E-05,
     &       -3.37549E-05,-1.47677E-05,-1.51067E-05, 2.27188E-03,
     &        1.66789E-03, 8.87739E-05,-1.64766E-05, 1.36249E-04,
     &        2.47147E-05, 9.07107E-05, 7.61998E-05, 2.60466E-05,
     &        3.00559E-05, 1.25719E-06, 3.82251E-03, 2.43783E-04,
     &        9.90589E-04, 8.32191E-06,-6.08689E-05,-5.88938E-06,
     &        3.10393E-05,-2.82315E-05,-9.48381E-07,-5.82559E-07,
     &        9.17690E-03, 9.77660E-04,-1.29561E-03,-9.46550E-05,
     &       -1.71685E-05,-6.54732E-05,-1.81872E-05,-2.34262E-05,
     &       -3.68585E-06,-1.25644E-06, 3.13121E-03, 4.07918E-04,
     &        1.12924E-04, 1.29912E-04, 3.69902E-05, 1.05602E-05,
     &        7.98185E-06, 1.96601E-05, 6.22300E-06, 1.04417E-02,
     &       -5.78702E-04, 6.61340E-04,-1.73033E-05,-6.72282E-05,
     &       -1.65054E-05, 3.00740E-06,-2.60767E-06, 4.21480E-06,
     &        1.86062E-03,-5.57928E-04, 1.71227E-04, 2.07736E-04,
     &        6.14850E-05, 4.69573E-06, 1.25809E-05, 7.37228E-06,
     &       -1.38703E-03,-8.66687E-05, 6.61515E-04, 2.10631E-04,
     &        3.89576E-05,-1.65883E-06, 1.36066E-05, 1.06420E-05,
     &       -1.03215E-02,-3.46146E-04,-2.50011E-06, 8.65609E-05,
     &        2.60904E-07,-1.38146E-05,-5.92285E-06, 1.08523E-03,
     &       -9.55863E-04, 3.18776E-04, 2.13098E-04, 5.86515E-05,
     &       -7.31950E-06, 2.44462E-06, 1.59174E-03, 9.90286E-05,
     &       -1.23056E-04, 5.79578E-07, 1.02447E-05,-5.14667E-06,
     &        3.06192E-03, 1.85410E-05,-2.04293E-04, 6.64164E-05,
     &        1.24718E-05,-7.21590E-06, 3.83143E-03, 2.72608E-04,
     &        3.82122E-05, 1.53417E-04,-8.05502E-06, 2.62357E-03,
     &        4.17859E-05,-2.63085E-04, 7.68723E-05, 4.11263E-05,
     &        2.83872E-03,-4.81008E-04,-4.67890E-05,-6.30055E-05,
     &       -2.25468E-03, 7.29992E-04,-4.02390E-04, 1.23477E-05,
     &        1.72724E-03,-7.21649E-04,-1.72509E-04,-7.87366E-04,
     &       -3.31590E-04,-3.47420E-04,-7.47531E-03, 3.07152E-04,
     &        2.21000E-03, 3.01778E-04,-3.08800E-03, 4.30931E-03/
      DO 30 K=1,289
       DO 20 J=1,4
        DO 10 I=1,24
         DOUT(I,J,K)=D(I,J,K)
10      CONTINUE
20     CONTINUE
30    CONTINUE
C////////////////////////////////////////////////////////////////////////////////////
      RETURN
      END
C end kofdes
C
C
      SUBROUTINE KOFESM(AMAGO,BMAGO)
C////////////////////////////////coefficients - magnetic activity Es model dependence//////////////////////
C        index:long,seas,koef
      REAL AMAGO(24,4,49),BMAGO(24,4,49)
      REAL AMAG(24,4,49),BMAG(24,4,49)
C     long 0deg, mar_eq
      DATA (AMAG(1,1,J),J=1,49)/ 3.47640E-04,
     &       -1.40568E-05, 5.35012E-04, 9.58964E-04,-2.17668E-04,
     &       -2.36813E-03, 2.05769E-03,-2.43166E-04, 3.25921E-04,
     &       -2.95251E-06,-2.27108E-04, 2.76457E-04,-4.58006E-05,
     &        6.37312E-04, 1.77974E-04,-4.59428E-04, 1.48321E-04,
     &       -2.37247E-04,-6.01296E-05, 5.35006E-04,-7.27971E-05,
     &        2.05527E-04, 1.66757E-05,-1.27896E-04,-4.53594E-04,
     &       -3.45329E-05,-1.37104E-04,-1.06377E-04, 7.77378E-05,
     &        7.76056E-05,-1.43619E-04, 2.03202E-05, 1.13515E-05,
     &        3.73913E-04,-1.09599E-04, 1.76742E-05,-2.31711E-05,
     &       -1.33778E-04, 1.84488E-04,-4.15162E-05,-4.26534E-04,
     &       -1.20670E-04, 1.96183E-05,-1.81332E-04,-1.62192E-04,
     &       -2.02571E-05, 8.15241E-06,-2.32852E-05,-7.46560E-05/
C     long 15deg, mar_eq
      DATA (AMAG(2,1,J),J=1,49)/ 2.93497E-04,
     &        7.84922E-04, 1.72215E-04,-1.61218E-04, 9.16415E-04,
     &       -2.71681E-03, 1.89661E-03, 2.31145E-04,-7.45272E-05,
     &        3.82061E-04, 2.15265E-05, 9.61566E-05,-1.50358E-04,
     &        8.22018E-04, 1.22631E-04,-4.06962E-04, 1.80670E-04,
     &       -3.35093E-04,-7.19117E-06, 5.81611E-04, 1.32010E-04,
     &        9.27860E-05, 3.99780E-05,-9.05315E-05,-6.15563E-04,
     &       -1.68480E-04,-1.58915E-04,-5.48619E-05, 4.19408E-05,
     &       -3.86147E-04, 3.15477E-05,-6.25647E-05,-1.36985E-05,
     &        3.95397E-04, 9.35476E-05, 7.95284E-05,-7.27746E-05,
     &       -4.64652E-06, 6.08832E-05, 1.45115E-05,-9.23502E-05,
     &       -1.15072E-04, 1.69375E-05,-9.90049E-05,-8.42589E-05,
     &       -1.38665E-04, 3.85524E-05,-1.69653E-04,-7.01575E-05/
C     long 30deg, mar_eq
      DATA (AMAG(3,1,J),J=1,49)/ 6.46663E-05,
     &        1.00358E-03,-4.59509E-06,-6.63535E-05, 1.12851E-03,
     &       -2.84083E-03, 1.59547E-03, 7.09945E-04,-2.45097E-04,
     &        4.69138E-04, 1.38285E-04,-8.06260E-05,-1.77818E-04,
     &        9.47403E-04, 1.22195E-05,-3.25273E-04, 1.43082E-04,
     &       -2.87719E-04, 4.79425E-05, 7.42677E-04, 2.87321E-04,
     &        2.50622E-05, 3.68791E-05,-7.88239E-05,-5.36354E-04,
     &       -2.41228E-04,-1.26071E-04, 2.08347E-05,-1.12714E-05,
     &       -4.22558E-04,-1.30442E-05,-9.78905E-05,-9.37388E-06,
     &        2.68344E-04, 1.18259E-04, 3.36279E-05,-8.26031E-05,
     &        2.85300E-04,-2.42919E-06,-3.08124E-05,-3.39483E-04,
     &       -1.44905E-04, 1.83381E-05,-1.96177E-04,-7.68392E-05,
     &        8.47536E-05, 1.64362E-04,-3.99352E-04,-1.05377E-04/
C     long 45deg, mar_eq
      DATA (AMAG(4,1,J),J=1,49)/-4.02275E-05,
     &        1.23163E-03,-9.61808E-05, 1.16706E-04, 7.83970E-04,
     &       -2.15583E-03, 1.52053E-03, 8.89996E-04,-2.43865E-04,
     &        4.15948E-04, 4.26260E-05,-1.15062E-04,-3.25200E-05,
     &        9.65476E-04,-9.01894E-05,-2.36075E-04,-2.94135E-05,
     &       -2.46849E-04, 4.00194E-05, 6.88085E-04, 2.64633E-04,
     &        1.61461E-06, 9.74782E-06,-8.11087E-05,-5.94950E-05,
     &       -1.23072E-04,-1.87629E-04, 3.39797E-05,-1.02192E-04,
     &       -2.91458E-04,-1.41589E-05,-5.87647E-05,-2.08151E-05,
     &        9.42139E-05, 4.00041E-05,-2.79310E-05,-4.53215E-05,
     &        2.03192E-04,-2.49619E-05,-7.26118E-05,-4.23426E-04,
     &       -2.20945E-04, 2.38378E-05,-4.02313E-04,-1.01007E-04,
     &       -4.19228E-05, 8.37508E-05,-4.44261E-04, 9.88005E-05/
C     long 60deg, mar_eq
      DATA (AMAG(5,1,J),J=1,49)/-3.90951E-04,
     &        1.59379E-03, 2.43930E-04,-1.90545E-04, 4.69453E-05,
     &       -1.55847E-03, 1.74671E-03, 7.55997E-04,-2.60588E-04,
     &        4.49406E-04,-4.21096E-05, 3.25745E-05,-9.11072E-06,
     &        9.09328E-04,-7.20620E-05,-1.11660E-04,-9.56756E-05,
     &       -3.04482E-04, 9.39407E-05, 5.65133E-04, 2.22005E-04,
     &        1.76015E-05, 6.40496E-05,-6.86668E-05,-7.20121E-05,
     &        4.15747E-05,-2.18922E-04,-2.97088E-05,-9.54322E-05,
     &       -3.74174E-04,-6.83389E-05,-3.18983E-05, 5.57966E-06,
     &        3.79861E-05, 3.16792E-05, 2.68622E-05,-4.91480E-05,
     &       -7.42724E-05, 9.38948E-05,-2.02980E-05,-2.31945E-04,
     &       -1.27097E-04, 4.82301E-05,-7.90677E-04, 5.77653E-06,
     &       -1.48841E-04,-1.01221E-04,-1.90577E-04, 1.36044E-04/
C     long 75deg, mar_eq
      DATA (AMAG(6,1,J),J=1,49)/-6.11308E-04,
     &        1.56965E-03, 2.53492E-04,-2.05878E-04, 6.50087E-05,
     &       -1.40871E-03, 1.32565E-03, 3.17181E-04,-3.66058E-04,
     &        5.24067E-04,-7.77129E-05, 2.17384E-04,-4.58515E-05,
     &        1.19019E-03,-2.28078E-04,-1.98978E-05, 6.61531E-05,
     &       -3.75996E-04, 8.67734E-05, 6.93237E-04, 1.49693E-04,
     &       -4.82770E-06, 7.59103E-05,-1.13583E-04, 1.19962E-05,
     &        2.23324E-05,-2.32605E-04, 2.40728E-05,-6.67909E-05,
     &       -2.85734E-04,-9.44862E-05, 4.52188E-05, 2.54184E-05,
     &        4.83438E-05, 4.18604E-05, 3.10549E-05,-4.95913E-05,
     &       -1.70586E-04, 2.38713E-04, 3.78289E-05,-3.20183E-04,
     &        3.20405E-06, 2.87127E-05,-7.55443E-04, 3.19385E-05,
     &        1.38229E-04,-2.95711E-05, 1.87546E-04, 1.16241E-04/
C     long 90deg, mar_eq
      DATA (AMAG(7,1,J),J=1,49)/-4.48936E-04,
     &        1.22519E-03, 1.79256E-04, 4.79345E-05, 4.47920E-04,
     &       -1.15562E-03, 1.05199E-03, 2.01116E-04,-6.51140E-04,
     &        6.43595E-04,-2.39925E-04, 4.46893E-04,-4.71229E-06,
     &        1.05219E-03,-3.08852E-04, 4.20233E-05, 1.54323E-04,
     &       -4.31659E-04, 1.23766E-04, 6.83845E-04, 2.10720E-04,
     &       -3.17520E-05, 6.23441E-05,-1.11687E-04, 3.69780E-04,
     &       -3.00308E-05,-2.49816E-04, 1.06372E-04,-1.51033E-04,
     &       -3.77184E-05,-7.04308E-05, 1.03507E-04,-2.11094E-05,
     &       -1.73867E-04,-3.55012E-05, 5.43000E-05,-3.16013E-05,
     &       -1.53489E-04, 4.06316E-05, 3.53486E-05,-4.09649E-04,
     &       -1.64583E-04,-4.51906E-05,-6.64126E-04, 4.93731E-05,
     &        3.63190E-04, 1.23493E-04, 2.49541E-04, 9.85025E-05/
C     long 105deg, mar_eq
      DATA (AMAG(8,1,J),J=1,49)/-5.70270E-04,
     &        9.23115E-04, 5.72181E-04, 3.54493E-04,-2.81892E-04,
     &       -6.56674E-04, 9.05763E-04, 3.65248E-04,-8.32725E-04,
     &        8.97655E-04,-4.38812E-04, 4.48861E-04,-6.43108E-05,
     &        8.44898E-04,-1.67876E-04, 7.65130E-05,-2.50433E-05,
     &       -3.83899E-04, 1.21206E-04, 6.52685E-04, 3.32142E-04,
     &       -2.39437E-05, 1.07353E-04,-9.06506E-05,-2.68639E-05,
     &        1.13743E-04,-1.94780E-04, 4.00336E-05,-1.79195E-04,
     &        1.72482E-06,-1.71491E-05, 8.16670E-05,-4.81737E-05,
     &        1.07062E-04,-1.62932E-04, 3.25756E-05,-1.97472E-05,
     &       -1.09541E-04,-6.56724E-05,-6.09981E-06,-3.50412E-04,
     &       -1.32242E-04,-5.17933E-05,-2.12660E-04, 2.20361E-05,
     &        3.51668E-04, 1.54114E-04,-1.12550E-04,-1.14130E-04/
C     long 120deg, mar_eq
      DATA (AMAG(9,1,J),J=1,49)/-2.77118E-04,
     &        4.73457E-04, 4.67478E-04, 9.68311E-04,-1.57173E-03,
     &       -7.24971E-04, 6.32159E-04, 6.92985E-04,-8.96974E-04,
     &        9.42589E-04,-5.08071E-04, 3.05817E-04,-1.49073E-04,
     &        6.54528E-04,-1.49114E-04, 4.59136E-05,-1.48830E-04,
     &       -2.55115E-04, 2.26553E-05, 4.48023E-04, 3.83036E-04,
     &        1.03992E-05, 8.41494E-05,-1.08536E-04,-3.26846E-04,
     &        6.77750E-05,-2.21643E-04, 1.09689E-05,-1.41718E-04,
     &       -7.87598E-05,-3.98981E-05, 4.31526E-05,-5.31597E-05,
     &       -7.01380E-05,-1.79359E-04,-1.81326E-05, 2.02294E-05,
     &       -2.41555E-04, 4.87778E-05,-5.15147E-05,-2.40022E-05,
     &       -1.69784E-04, 2.37436E-06, 1.22284E-04,-2.38772E-05,
     &        5.74710E-05, 1.77840E-04,-4.58449E-04,-2.11491E-04/
C     long 135deg, mar_eq
      DATA (AMAG(10,1,J),J=1,49)/ 1.50811E-04,
     &        1.36411E-05, 3.10489E-04, 1.05688E-03,-2.24578E-03,
     &       -7.28581E-04, 6.43783E-06, 9.60909E-04,-8.22635E-04,
     &        7.10718E-04,-5.39746E-04, 1.02670E-04, 8.79707E-07,
     &        3.90281E-04,-3.22553E-04,-4.48438E-05,-3.66855E-05,
     &       -2.77047E-04, 1.81247E-05, 2.85491E-04, 2.21440E-04,
     &        6.77117E-05, 2.86885E-05,-7.71833E-05,-3.87023E-04,
     &       -5.97620E-05,-2.17368E-04, 1.88470E-05,-1.25981E-04,
     &        1.04048E-04,-5.85727E-05, 3.21585E-05,-7.45356E-05,
     &       -1.69474E-04,-1.89010E-04,-5.43686E-05, 5.86310E-05,
     &       -6.32460E-04, 1.92790E-04,-4.40400E-05, 3.09374E-04,
     &       -1.62586E-04, 3.05935E-05, 3.09108E-04, 1.71386E-05,
     &       -8.47982E-05, 5.38229E-05,-4.54345E-04,-7.18249E-05/
C     long 150deg, mar_eq
      DATA (AMAG(11,1,J),J=1,49)/ 3.37933E-04,
     &       -2.88544E-04, 3.23346E-04, 6.71936E-04,-2.60320E-03,
     &        2.70873E-05,-8.51962E-04, 7.18364E-04,-9.54485E-04,
     &        5.98671E-04,-5.04256E-04, 2.25669E-05, 2.87633E-05,
     &        6.05927E-04,-3.33385E-04, 6.25383E-05,-4.75020E-05,
     &       -3.26294E-04, 6.97495E-05, 3.20939E-04, 6.00431E-05,
     &        1.59308E-04,-4.68111E-05,-2.30073E-05,-2.53861E-04,
     &        1.43957E-09,-2.71696E-04, 3.38292E-05,-8.31352E-05,
     &        2.41490E-05,-2.24191E-06, 5.22240E-05,-6.16459E-05,
     &        2.95806E-04,-7.17942E-05,-3.13280E-05, 5.65658E-05,
     &       -7.34904E-04, 1.76014E-04,-5.24258E-05,-3.60196E-04,
     &        1.83507E-05, 3.55488E-06, 1.87539E-04, 1.11097E-04,
     &        1.81102E-04, 7.41137E-05,-2.36010E-04,-4.99485E-05/
C     long 165deg, mar_eq
      DATA (AMAG(12,1,J),J=1,49)/ 5.77897E-04,
     &       -3.12618E-04, 4.70772E-04, 4.31776E-04,-2.90228E-03,
     &        3.70627E-04,-7.55888E-04, 5.69148E-04,-1.23991E-03,
     &        5.82617E-04,-2.46763E-04,-5.07762E-05,-7.55406E-05,
     &        7.42828E-04,-3.87581E-04,-5.14586E-07, 7.91839E-05,
     &       -2.46333E-04, 8.58695E-05, 4.40352E-04,-1.53331E-04,
     &        1.44629E-04,-7.56517E-05, 1.10769E-05,-1.44404E-04,
     &       -4.48941E-05,-2.17295E-04, 4.33488E-05,-4.35298E-05,
     &       -3.72252E-04,-9.67283E-05, 5.23500E-05,-3.94806E-05,
     &        3.68274E-04, 1.90379E-04,-7.17411E-06,-1.92204E-06,
     &       -5.26308E-04, 9.06360E-05,-5.28270E-05,-3.16668E-04,
     &       -2.28709E-05,-3.67446E-05, 2.99577E-05,-2.80869E-08,
     &        4.04106E-05, 1.62993E-04,-4.67875E-04,-2.07247E-04/
C     long 180deg, mar_eq
      DATA (AMAG(13,1,J),J=1,49)/ 9.40022E-04,
     &        1.22758E-06, 4.60595E-04, 4.28102E-05,-2.83936E-03,
     &        4.01123E-04,-6.47369E-05, 9.00658E-05,-1.17355E-03,
     &        6.48982E-04,-5.43317E-05,-1.68298E-04, 5.13406E-05,
     &        3.62308E-04,-5.40970E-04,-3.96601E-05, 2.97517E-04,
     &       -2.43542E-04, 7.35862E-05, 5.99236E-04,-2.00193E-04,
     &        1.71583E-04,-2.51731E-05,-6.14323E-05,-4.29854E-04,
     &       -1.18900E-04,-1.44460E-04,-4.72773E-05,-2.17962E-06,
     &       -1.11072E-04,-1.21266E-04, 6.63121E-05,-5.37633E-05,
     &        5.96688E-04, 1.43281E-04,-1.96394E-05,-2.87089E-05,
     &       -4.55000E-04, 3.83841E-05,-3.23478E-05,-7.48017E-05,
     &       -2.94462E-06,-4.07331E-05, 3.12195E-04,-1.27320E-04,
     &       -5.51334E-05, 2.46582E-05,-5.00803E-04,-4.79122E-05/
C     long 195deg, mar_eq
      DATA (AMAG(14,1,J),J=1,49)/ 1.15098E-03,
     &        3.14031E-04, 4.13863E-04,-4.76417E-04,-2.63890E-03,
     &        9.44312E-04,-1.14415E-07,-5.19427E-04,-9.45410E-04,
     &        6.48988E-04,-7.46108E-07,-1.72790E-04, 1.91359E-04,
     &        4.46525E-04,-4.32925E-04,-1.88690E-05, 2.44226E-04,
     &       -3.56450E-04, 6.43231E-05, 7.61962E-04, 5.80816E-05,
     &        2.66707E-04,-6.03680E-05,-1.25988E-04,-5.81411E-04,
     &       -1.45529E-04,-1.23190E-04,-4.94907E-05, 9.50058E-06,
     &       -4.50127E-05,-1.01825E-04, 3.64923E-05,-3.14121E-05,
     &        8.71615E-04, 1.53032E-05,-2.18036E-05,-2.06346E-05,
     &       -1.91974E-04,-1.62555E-04,-5.96517E-05,-4.57001E-05,
     &       -8.48026E-05,-4.22713E-06, 2.76881E-04,-1.75480E-05,
     &       -8.67461E-05, 1.10169E-04, 7.50239E-06, 2.44690E-05/
C     long 210deg, mar_eq
      DATA (AMAG(15,1,J),J=1,49)/ 1.14082E-03,
     &        2.28785E-04, 7.22486E-04,-6.77351E-04,-2.51067E-03,
     &        1.35756E-03,-1.75057E-04, 9.61220E-05,-9.32088E-04,
     &        4.03126E-04,-2.01634E-05,-4.71866E-06, 2.38329E-04,
     &        8.97218E-04,-4.13399E-04,-1.02832E-04, 2.53147E-04,
     &       -4.17901E-04,-3.11238E-05, 7.39704E-04, 8.62307E-05,
     &        3.33339E-04,-5.34628E-05,-1.30398E-04,-4.53001E-04,
     &       -3.26833E-05,-1.16051E-04, 2.06709E-06,-6.06040E-05,
     &       -3.08443E-04,-1.73861E-05,-1.09612E-05, 2.64885E-05,
     &        8.41866E-04,-4.36969E-05, 6.22181E-05,-2.81473E-05,
     &        4.52669E-04,-2.86028E-04,-4.90013E-06,-3.13614E-04,
     &       -1.22173E-04,-6.25414E-06, 1.00707E-04,-1.14619E-05,
     &       -5.75666E-06, 1.28510E-04,-3.53511E-04,-2.14337E-04/
C     long 225deg, mar_eq
      DATA (AMAG(16,1,J),J=1,49)/ 1.03831E-03,
     &       -1.69742E-04, 9.63007E-04,-1.41442E-04,-2.14794E-03,
     &        9.93251E-04, 3.19500E-04, 6.29875E-04,-6.76046E-04,
     &        2.55654E-04,-1.12413E-04, 5.26612E-05, 2.73258E-04,
     &        8.03356E-04,-4.24519E-04,-1.59140E-04, 3.28669E-04,
     &       -4.36328E-04,-1.16782E-04, 7.29068E-04,-1.35481E-04,
     &        2.26708E-04,-5.86391E-05,-8.73683E-05,-2.56205E-04,
     &       -5.01199E-05,-1.39036E-04,-5.56148E-05,-3.41706E-05,
     &       -4.43144E-04, 5.69847E-05,-4.69856E-05, 3.51008E-05,
     &        1.94899E-04, 6.59636E-05, 5.78365E-05, 3.90219E-06,
     &        1.48697E-04,-1.30135E-04,-3.79871E-05,-5.41081E-04,
     &       -3.00032E-05,-7.88973E-05, 1.67039E-04,-9.85776E-05,
     &        1.85943E-04, 9.04089E-05,-3.61571E-04,-1.05476E-04/
C     long 240deg, mar_eq
      DATA (AMAG(17,1,J),J=1,49)/ 8.93806E-04,
     &       -5.66968E-04, 5.13604E-04, 6.74409E-04,-1.54857E-03,
     &        5.43412E-04, 7.67809E-04, 4.15749E-04,-3.33327E-04,
     &        1.40042E-04,-2.68083E-05, 3.40242E-05, 1.05700E-04,
     &        7.55190E-04,-1.31740E-04,-3.30552E-04, 2.53448E-04,
     &       -2.82643E-04,-1.11227E-04, 8.31142E-04,-7.10189E-05,
     &        1.26787E-04,-7.02772E-05,-7.05276E-05,-1.28065E-04,
     &       -1.10736E-04,-6.42781E-05,-8.37298E-05, 2.99865E-06,
     &       -2.92842E-04, 2.92920E-05,-4.33169E-05,-3.92336E-07,
     &       -1.83497E-04, 2.40933E-04,-3.00983E-05, 2.85250E-05,
     &       -2.22296E-04, 1.78218E-06,-8.50145E-05,-3.52410E-04,
     &       -1.72956E-04,-4.66537E-05, 1.86640E-04,-1.11111E-04,
     &        1.98251E-04, 1.24881E-04, 3.81635E-05,-4.37569E-06/
C     long 255deg, mar_eq
      DATA (AMAG(18,1,J),J=1,49)/ 6.95077E-04,
     &       -7.90573E-04,-2.11144E-04, 7.99474E-04,-1.23232E-03,
     &        1.36072E-05, 5.45625E-04,-4.15952E-05,-4.40457E-04,
     &        3.38271E-05, 7.34431E-05, 1.10386E-05,-6.67376E-05,
     &        7.80409E-04, 1.95742E-04,-2.23908E-04, 1.32896E-04,
     &       -1.48554E-04, 3.58236E-05, 8.43382E-04, 1.56773E-04,
     &        5.58071E-05,-3.28951E-05,-7.87944E-05, 1.01772E-04,
     &        8.31897E-05,-9.12989E-05, 1.79832E-05,-2.96308E-05,
     &       -2.02375E-04, 1.64441E-05, 4.71178E-06,-3.92187E-05,
     &       -2.36379E-04, 1.02414E-04, 6.64446E-06, 7.05454E-06,
     &       -4.82940E-05,-5.75150E-05,-3.68959E-05,-1.53393E-04,
     &       -2.01231E-04, 2.48300E-05, 1.73113E-04, 1.95179E-05,
     &        1.53360E-04, 1.38546E-04,-3.58899E-04,-2.59713E-04/
C     long 270deg, mar_eq
      DATA (AMAG(19,1,J),J=1,49)/ 5.79593E-04,
     &       -5.76683E-04,-2.20360E-04, 4.47213E-04,-1.18761E-03,
     &       -6.60280E-06, 9.21335E-04,-1.78096E-05,-4.84889E-04,
     &       -6.97861E-05, 1.57629E-04,-8.66282E-05,-5.73851E-05,
     &        5.25951E-04,-3.95757E-05, 2.40267E-05, 1.11892E-04,
     &       -2.20353E-04, 5.86176E-05, 7.35439E-04, 8.33049E-05,
     &        1.13943E-04,-3.17657E-05,-1.25930E-04, 3.80581E-04,
     &        7.33827E-05,-1.68511E-04, 3.89254E-05,-1.20125E-05,
     &       -3.13571E-04,-5.64370E-05, 7.30494E-06,-2.99874E-05,
     &       -2.32543E-04,-7.08942E-05, 7.97074E-05, 9.83360E-06,
     &        2.61692E-04,-6.04326E-05,-2.51332E-05,-2.54799E-04,
     &       -1.70104E-05,-3.67341E-06,-2.10727E-05, 7.57281E-05,
     &        1.45934E-04, 5.23368E-05,-4.94192E-04,-4.62791E-04/
C     long 285deg, mar_eq
      DATA (AMAG(20,1,J),J=1,49)/ 7.11481E-04,
     &       -6.36146E-04, 2.03414E-04, 2.75643E-04,-1.74106E-03,
     &       -5.58920E-05, 1.82893E-03,-2.86500E-04,-1.35639E-04,
     &       -2.40324E-05, 1.72933E-04,-2.99539E-05,-1.53614E-04,
     &        6.08612E-04,-6.02662E-04, 1.02030E-04, 1.85000E-04,
     &       -3.33996E-04, 9.69038E-05, 6.12581E-04,-1.12279E-04,
     &        9.59618E-05,-2.06295E-05,-1.52487E-04, 4.04711E-04,
     &        1.80322E-04,-1.24998E-04, 5.39675E-05, 3.64667E-06,
     &       -1.94523E-04,-7.11575E-06,-4.09345E-05,-2.75005E-06,
     &        1.34579E-05,-1.93163E-04, 5.30622E-05, 1.66798E-05,
     &        6.79680E-05,-8.83775E-05, 3.96202E-06, 5.56814E-05,
     &        1.17741E-06,-1.43351E-05, 6.95135E-05,-8.06896E-06,
     &       -2.71107E-04, 6.37456E-06,-2.29690E-04,-2.46107E-04/
C     long 300deg, mar_eq
      DATA (AMAG(21,1,J),J=1,49)/ 7.14736E-04,
     &       -1.02546E-03, 6.06472E-04, 5.73850E-04,-1.83386E-03,
     &       -2.49066E-04, 2.02399E-03,-3.08469E-04, 1.95246E-05,
     &       -5.84826E-05, 1.08002E-04, 1.10169E-04,-1.99659E-04,
     &        9.80933E-04,-6.10655E-04,-1.99004E-04, 2.30276E-04,
     &       -3.52785E-04, 1.22578E-04, 3.85561E-04,-2.91496E-04,
     &       -6.97584E-05, 2.05173E-05,-1.08032E-04,-1.98027E-04,
     &        4.39668E-04,-1.34940E-04, 7.92192E-06,-9.50738E-06,
     &       -1.36219E-04, 3.14154E-06,-8.10635E-05, 2.31378E-05,
     &        3.32102E-04,-1.43597E-04, 2.90170E-05, 2.76388E-06,
     &       -4.24572E-04,-7.64461E-05,-2.99209E-05, 4.49900E-04,
     &        1.91404E-05,-2.97217E-05, 2.65870E-04,-5.92075E-05,
     &       -2.66355E-04, 7.92566E-05,-9.29439E-05,-2.59173E-04/
C     long 315deg, mar_eq
      DATA (AMAG(22,1,J),J=1,49)/ 6.90565E-04,
     &       -1.24567E-03, 6.86696E-04, 1.10380E-03,-1.82232E-03,
     &       -2.87597E-04, 2.20521E-03, 2.84054E-04, 2.67272E-05,
     &       -1.11753E-04, 1.65210E-04, 7.95336E-05,-2.75416E-04,
     &        1.07246E-03,-2.76701E-04,-3.64291E-04, 1.81246E-04,
     &       -2.29842E-04, 7.21412E-05, 4.72804E-04,-3.71460E-04,
     &       -3.59439E-05, 3.08035E-05,-6.09463E-05,-9.48194E-04,
     &        4.41897E-04,-2.04707E-04,-5.40039E-05, 2.19172E-05,
     &       -6.01709E-04,-9.24295E-05,-4.82580E-05,-3.78951E-06,
     &        3.31413E-05, 6.80547E-05, 7.85912E-05, 1.45688E-05,
     &       -3.98688E-04, 6.01593E-05,-4.46998E-05, 3.41619E-04,
     &        9.82591E-05,-3.84388E-05, 2.06035E-05,-8.13051E-05,
     &        2.55117E-05,-5.07554E-05,-1.81675E-04,-4.71753E-04/
C     long 330deg, mar_eq
      DATA (AMAG(23,1,J),J=1,49)/ 6.54364E-04,
     &       -1.16575E-03, 8.13999E-04, 1.45205E-03,-1.72912E-03,
     &       -7.01203E-04, 2.13440E-03, 1.26643E-04, 1.46722E-04,
     &       -8.08070E-05, 3.65149E-05, 1.88963E-04,-2.56165E-04,
     &        8.43061E-04,-2.46744E-06,-3.61601E-04, 5.51752E-05,
     &       -2.16528E-04, 1.12050E-04, 8.25309E-04,-2.16335E-04,
     &        5.03772E-05,-1.40532E-05,-2.04706E-05,-9.47572E-04,
     &        3.05459E-04,-1.83647E-04,-2.17785E-05,-5.59933E-07,
     &       -6.41197E-04,-1.97283E-04, 8.45757E-06,-7.78625E-08,
     &        1.77194E-05, 2.20848E-05, 1.03333E-04, 3.40119E-05,
     &       -4.11133E-05, 2.13890E-04,-7.56156E-06,-1.37612E-04,
     &        4.79671E-05,-5.19737E-05, 1.80523E-04,-1.27424E-04,
     &       -1.27018E-04, 1.00475E-04,-8.14721E-05,-2.71552E-04/
C     long 345deg, mar_eq
      DATA (AMAG(24,1,J),J=1,49)/ 3.88515E-04,
     &       -8.54446E-04, 1.00728E-03, 1.67326E-03,-1.32892E-03,
     &       -1.75341E-03, 2.05304E-03,-1.56654E-05, 3.11214E-04,
     &       -2.03219E-04,-2.65521E-04, 3.61324E-04,-5.89128E-05,
     &        6.43217E-04, 1.76505E-04,-4.40327E-04, 6.97186E-05,
     &       -1.73935E-04, 6.30908E-05, 6.62207E-04,-1.15774E-04,
     &        1.86696E-04, 1.83871E-05,-6.53837E-05,-5.65174E-04,
     &        1.25008E-04,-1.06975E-04,-4.85772E-05, 8.75021E-06,
     &        5.06533E-05,-2.89467E-04, 3.65375E-05, 4.20387E-05,
     &        2.45339E-04,-1.89135E-04, 6.51096E-05, 1.00327E-05,
     &        4.25515E-05, 2.55581E-04,-5.56014E-05,-6.35683E-04,
     &       -8.59494E-05,-2.72623E-05,-1.25518E-04,-1.50533E-04,
     &       -1.25589E-04, 2.06515E-04, 3.63052E-05, 1.17362E-05/
C     long 0deg, jun_so
      DATA (AMAG(1,2,J),J=1,49)/ 2.63936E-04,
     &       -9.63809E-04,-1.95018E-03,-2.44069E-04, 2.12714E-04,
     &        3.18854E-04, 3.21366E-03,-9.30704E-05, 4.93141E-05,
     &        1.98466E-04,-8.90181E-05, 4.65363E-04, 1.19875E-05,
     &        9.75569E-05, 4.97848E-05,-1.41333E-05,-1.96534E-04,
     &       -2.15199E-04,-3.00471E-05, 4.98951E-04,-1.12192E-04,
     &       -1.68864E-04, 8.20376E-05, 9.92993E-06,-8.11530E-06,
     &        2.94907E-04, 3.28693E-04, 2.09591E-04, 7.33944E-05,
     &       -9.49997E-05, 3.27320E-05, 8.63277E-05,-2.90717E-05,
     &        5.68110E-04, 1.14133E-04,-1.06237E-05,-1.87482E-05,
     &        2.44833E-04, 4.00523E-05,-2.29354E-05, 2.90367E-04,
     &        5.72714E-05,-3.50878E-05, 4.77990E-04, 6.09246E-06,
     &       -3.08840E-04, 1.03951E-04,-3.91511E-04,-4.68218E-04/
C     long 15deg, jun_so
      DATA (AMAG(2,2,J),J=1,49)/ 6.61574E-04,
     &       -5.72213E-04,-2.79644E-03,-3.00949E-04, 3.88497E-04,
     &        4.85547E-05, 3.20644E-03,-4.79724E-04,-1.16649E-04,
     &        5.79143E-04, 1.33852E-04, 2.72982E-04,-1.53692E-04,
     &       -1.23044E-04, 6.48960E-05, 1.89077E-05,-8.62260E-05,
     &       -1.65474E-04,-2.06393E-04, 7.32616E-04, 3.08508E-05,
     &       -1.95310E-04, 4.22492E-05, 4.40360E-05,-3.00422E-04,
     &        1.05386E-04, 3.36393E-04, 2.19045E-04, 2.90144E-05,
     &       -1.24860E-04,-3.66592E-06, 5.09192E-05,-8.11471E-05,
     &        5.15515E-04,-3.73256E-06,-1.41558E-04,-9.06507E-05,
     &       -7.84504E-06, 6.19574E-05, 6.73703E-05,-7.69012E-05,
     &       -7.35375E-05,-6.63837E-05, 4.61283E-04,-1.74931E-05,
     &       -2.26243E-04, 4.84421E-05,-3.71555E-04,-2.88409E-04/
C     long 30deg, jun_so
      DATA (AMAG(3,2,J),J=1,49)/ 6.97106E-04,
     &       -1.51544E-04,-3.11893E-03,-5.69740E-04, 6.62664E-04,
     &        1.58235E-05, 3.13566E-03,-2.63558E-05,-3.91117E-04,
     &        4.28486E-04, 1.56491E-04, 3.56937E-04, 3.47087E-05,
     &       -2.31960E-04,-3.06927E-04,-9.55295E-05, 2.27032E-04,
     &       -1.50325E-04,-3.97636E-04, 6.78585E-04, 1.06093E-04,
     &       -1.85621E-04, 1.02225E-04, 6.68526E-05,-3.46417E-04,
     &        1.04170E-04, 2.82679E-04, 1.69390E-04, 1.09901E-05,
     &       -5.18727E-05, 2.34149E-06,-1.84629E-05,-7.56157E-05,
     &        5.10743E-04, 2.49387E-05,-1.58178E-04,-6.16116E-05,
     &        1.77013E-05,-6.21888E-05,-1.97086E-05,-1.16871E-04,
     &       -7.73539E-05, 1.62864E-07, 3.56314E-06,-1.07579E-05,
     &       -4.52683E-04,-8.37737E-05,-1.20124E-04, 2.34730E-04/
C     long 45deg, jun_so
      DATA (AMAG(4,2,J),J=1,49)/ 4.96014E-04,
     &       -3.92779E-05,-2.14438E-03,-3.42953E-04,-5.57970E-04,
     &       -2.16614E-04, 3.56577E-03, 7.05031E-04,-2.63272E-04,
     &        2.79618E-04, 1.10052E-04, 3.65018E-04, 4.92035E-05,
     &       -2.34865E-04,-8.02718E-04,-4.14326E-04, 4.30468E-04,
     &       -1.49135E-04,-5.47825E-04, 2.27501E-04, 1.53958E-04,
     &       -2.07502E-05, 1.53385E-04,-8.83496E-06, 9.53396E-05,
     &       -3.78164E-05, 1.55235E-04, 1.54452E-04, 8.63902E-05,
     &        3.67383E-04, 6.92470E-05, 4.54050E-05, 5.15777E-06,
     &        4.06326E-04, 1.32202E-04,-1.00807E-04, 1.49150E-05,
     &        7.79034E-05,-1.78433E-04,-1.16925E-04,-1.10903E-04,
     &       -5.06517E-06, 1.98980E-05, 1.52422E-07,-6.46257E-05,
     &       -4.11193E-04,-1.27760E-04, 1.84474E-04,-6.32545E-05/
C     long 60deg, jun_so
      DATA (AMAG(5,2,J),J=1,49)/-6.37837E-05,
     &       -2.48044E-04,-1.02262E-03,-6.66578E-05,-1.38609E-03,
     &       -4.16477E-04, 3.57652E-03, 3.19521E-04,-4.09041E-04,
     &        4.21881E-04, 2.62797E-04, 5.02194E-04, 1.50097E-04,
     &       -1.29049E-04,-1.01852E-03,-5.57185E-04, 4.55708E-04,
     &       -1.60366E-04,-4.43444E-04, 1.28596E-04, 1.11860E-04,
     &       -2.33475E-05, 1.22630E-04, 9.79245E-06, 2.53470E-04,
     &       -3.72981E-04,-4.02764E-05, 1.46585E-04, 5.25171E-05,
     &        2.45743E-04,-6.02250E-05, 8.17256E-06,-1.39344E-05,
     &        4.03931E-04, 2.55509E-04, 3.66717E-06,-1.84675E-06,
     &        6.06623E-04,-9.26600E-05,-1.23802E-04,-4.53025E-04,
     &       -4.49298E-05, 3.35813E-06,-3.50687E-04,-3.24520E-05,
     &       -2.95571E-04,-1.48460E-04, 2.79286E-04,-9.26824E-05/
C     long 75deg, jun_so
      DATA (AMAG(6,2,J),J=1,49)/-3.77118E-04,
     &       -1.69723E-04,-5.14420E-04,-6.57951E-04,-1.30226E-03,
     &        4.76869E-04, 3.14449E-03,-1.08395E-04,-6.20337E-04,
     &        4.33223E-04, 3.92589E-04, 5.44525E-04, 2.06958E-04,
     &       -2.48614E-04,-1.17171E-03,-5.43307E-04, 3.82187E-04,
     &       -1.61125E-04,-2.79569E-04, 8.10314E-05,-1.56104E-04,
     &       -2.14284E-04, 1.60961E-05, 9.71463E-06,-1.27011E-06,
     &       -4.66001E-04,-2.32683E-04, 9.09314E-05, 3.40440E-05,
     &       -1.77972E-04,-2.18819E-04,-7.95663E-06,-9.16739E-06,
     &        3.39607E-04, 3.84298E-04, 1.17255E-04,-2.23322E-05,
     &        3.61934E-04, 6.01294E-05,-1.19547E-05,-5.24335E-04,
     &       -3.22571E-05, 2.13945E-05,-9.11761E-04,-2.86951E-05,
     &       -3.20079E-05,-7.26317E-05, 4.21698E-04, 1.50356E-04/
C     long 90deg, jun_so
      DATA (AMAG(7,2,J),J=1,49)/-1.09797E-04,
     &       -2.66060E-04,-1.11715E-03,-1.42104E-03,-1.29292E-03,
     &        1.51990E-03, 3.49218E-03,-6.58314E-04,-6.82250E-04,
     &        2.95319E-04, 2.01517E-04, 5.12250E-04, 1.71758E-04,
     &        1.91615E-04,-7.73143E-04,-4.88276E-04, 3.77579E-04,
     &       -2.90438E-04,-2.55090E-04, 5.99713E-05,-3.36512E-04,
     &       -2.50643E-04, 6.82049E-05,-6.42373E-05,-2.98290E-04,
     &       -5.89856E-04,-3.39908E-04, 9.67138E-05, 1.05429E-04,
     &       -2.55741E-04, 2.20654E-05, 4.15481E-05,-4.36456E-05,
     &        3.86092E-04, 1.51270E-04, 9.64527E-06,-4.82805E-05,
     &       -5.10717E-05, 4.88696E-05, 9.84550E-05,-4.67049E-04,
     &       -3.10348E-05,-9.58021E-06,-5.72092E-04,-7.08323E-05,
     &       -9.91349E-06,-5.71503E-05, 3.84144E-04, 1.71183E-04/
C     long 105deg, jun_so
      DATA (AMAG(8,2,J),J=1,49)/ 1.09956E-04,
     &       -1.06582E-03,-1.61635E-03,-9.71093E-04,-1.10098E-03,
     &        1.65915E-03, 2.80542E-03,-2.29274E-04,-3.41996E-04,
     &        4.27221E-04, 2.79813E-04, 5.27601E-04, 9.55406E-05,
     &       -1.04077E-04,-5.34723E-04,-1.78815E-04, 2.09762E-04,
     &       -1.43962E-04,-2.46479E-04, 3.33047E-04,-1.13041E-04,
     &       -2.01044E-04, 5.84554E-05, 1.31781E-05, 5.12025E-05,
     &       -4.77803E-04,-2.98321E-04, 8.25943E-05, 1.22826E-04,
     &       -1.33813E-04, 1.40018E-04, 3.40026E-05,-3.15351E-05,
     &        3.09150E-04,-3.12553E-05,-1.56733E-05,-2.67948E-05,
     &       -2.07227E-04,-8.58726E-05, 4.39329E-05,-4.87721E-04,
     &        4.05232E-05, 4.77778E-05,-2.41409E-04, 4.64887E-06,
     &       -2.36387E-04, 1.55495E-07, 5.17317E-05,-6.46391E-05/
C     long 120deg, jun_so
      DATA (AMAG(9,2,J),J=1,49)/ 1.90957E-04,
     &       -1.75367E-03,-1.33173E-03,-1.14788E-03,-1.29343E-03,
     &        1.56061E-03, 1.78135E-03, 3.86879E-04,-1.29564E-04,
     &        6.11684E-04, 3.30017E-04, 6.24690E-04,-5.33733E-05,
     &        3.49834E-04,-2.22111E-04,-4.79046E-05,-1.73056E-05,
     &       -5.38138E-05,-1.91365E-04,-4.82109E-05,-1.16519E-05,
     &       -1.63442E-04, 4.35715E-05, 7.27774E-05, 3.04089E-04,
     &       -4.93265E-04,-2.22742E-04, 4.68078E-05, 6.76447E-05,
     &        1.11019E-04,-1.52834E-04, 2.06371E-05, 4.45393E-05,
     &        5.08071E-04, 1.08468E-04, 1.08538E-05,-3.65864E-05,
     &       -1.94489E-04, 4.65690E-05,-5.50297E-05,-3.36374E-04,
     &        1.20644E-04, 4.18660E-05,-3.79209E-04, 8.87452E-05,
     &        2.83840E-05, 5.38963E-05,-1.26999E-04, 7.64706E-05/
C     long 135deg, jun_so
      DATA (AMAG(10,2,J),J=1,49)/ 4.55202E-04,
     &       -1.63223E-03,-1.09783E-03,-2.41808E-03,-1.62449E-03,
     &        1.48754E-03, 1.42613E-03, 5.50346E-04,-1.64249E-04,
     &        3.54913E-04,-7.17684E-05, 6.23644E-04, 4.33569E-05,
     &        7.59349E-04,-1.34623E-04,-8.99244E-05,-1.18926E-04,
     &       -1.69920E-04,-7.35479E-05, 3.11010E-05, 5.80130E-05,
     &       -1.36908E-04, 8.04973E-05, 6.42439E-05,-2.58077E-04,
     &       -6.65587E-04,-2.60737E-04, 7.09486E-05, 5.87737E-05,
     &       -5.72652E-05,-3.74700E-04, 5.01565E-06, 3.60434E-05,
     &        1.09062E-03, 8.72157E-06, 4.64877E-05,-5.47987E-05,
     &        1.87697E-04,-4.30904E-05,-1.05286E-04,-6.13930E-04,
     &        3.88841E-05,-4.23338E-05,-3.47468E-04,-3.22273E-06,
     &        1.17056E-04, 2.29044E-05, 2.96659E-04, 3.62015E-04/
C     long 150deg, jun_so
      DATA (AMAG(11,2,J),J=1,49)/ 4.90495E-04,
     &       -1.52511E-03,-5.23134E-04,-2.53672E-03,-1.28748E-03,
     &        1.82995E-03, 2.44759E-04, 5.02210E-04, 5.13333E-05,
     &        3.81113E-05,-3.04193E-04, 5.82178E-04, 1.53361E-05,
     &        6.44238E-04,-2.66291E-04,-2.16287E-04,-1.45890E-04,
     &       -1.15124E-04, 4.78304E-05, 3.96605E-04, 3.55582E-05,
     &       -1.52471E-04, 2.14197E-05, 8.85439E-05,-3.27555E-04,
     &       -7.80184E-04,-2.66600E-04, 5.41213E-05, 1.01445E-04,
     &        1.48610E-04,-2.12036E-04,-9.48907E-05,-7.16194E-06,
     &        5.20576E-04,-3.51108E-04,-5.01702E-06,-2.75550E-05,
     &       -4.62281E-05,-1.62224E-04,-3.43424E-05,-7.68688E-04,
     &       -1.76811E-04,-3.87325E-05, 7.60159E-04,-2.64086E-06,
     &       -2.55978E-04, 3.61340E-06, 4.29888E-04,-8.17761E-05/
C     long 165deg, jun_so
      DATA (AMAG(12,2,J),J=1,49)/ 2.40913E-04,
     &       -1.50229E-03, 2.11180E-04,-1.52953E-03,-1.05176E-03,
     &        1.83580E-03,-8.35143E-04,-4.06376E-05, 1.31791E-04,
     &        2.24419E-04,-1.97499E-04, 3.97291E-04,-5.70419E-05,
     &        5.50482E-04,-5.30899E-05,-1.92924E-04,-6.18187E-05,
     &       -5.94096E-05, 1.66394E-05, 1.38691E-04,-6.09207E-06,
     &       -2.42323E-04,-1.48582E-04, 8.87622E-05, 2.95429E-04,
     &       -6.95051E-04, 1.20676E-05, 1.29744E-04, 8.78206E-05,
     &        1.52386E-04,-1.81725E-04,-1.10493E-04, 7.46268E-07,
     &        2.89571E-04,-1.55514E-04,-7.85739E-05, 5.27099E-06,
     &       -2.67706E-04,-7.09955E-05, 1.03268E-05,-5.46214E-04,
     &       -2.55922E-04,-5.56037E-05, 1.11800E-03, 6.81093E-05,
     &       -2.18242E-04, 9.96783E-05,-3.13064E-04,-4.49488E-04/
C     long 180deg, jun_so
      DATA (AMAG(13,2,J),J=1,49)/ 3.60739E-04,
     &       -9.92541E-04, 3.70512E-04,-5.96413E-04,-1.69273E-03,
     &        1.69443E-03,-1.22022E-03,-2.58139E-04,-2.04058E-04,
     &        4.28579E-04,-5.80578E-05, 1.22218E-04, 6.42742E-05,
     &        6.84762E-04,-2.60443E-06,-7.07292E-06, 1.79747E-04,
     &       -8.21805E-05,-1.37603E-04,-3.92394E-06, 2.01686E-04,
     &       -1.94046E-04,-1.47060E-04, 9.92259E-05, 1.40631E-04,
     &       -3.49101E-04, 2.42546E-04, 1.71060E-04, 8.08133E-05,
     &       -2.14747E-04, 8.33525E-05,-4.04332E-05,-5.50922E-06,
     &        7.55100E-04,-1.33193E-04,-4.61218E-05, 3.39024E-05,
     &       -3.88971E-05,-6.92432E-07, 3.63098E-07,-4.92534E-04,
     &       -1.89523E-04,-1.64220E-05, 5.92912E-04,-9.93850E-08,
     &       -1.46694E-04,-2.63124E-05,-2.10161E-04,-6.52016E-04/
C     long 195deg, jun_so
      DATA (AMAG(14,2,J),J=1,49)/ 7.70632E-04,
     &       -8.67459E-04,-3.89676E-04, 1.98608E-04,-1.67297E-03,
     &        1.11471E-03,-1.36006E-03, 3.64356E-05,-4.13245E-04,
     &        4.02539E-04, 2.13522E-04, 1.19608E-04, 3.45458E-06,
     &        6.43217E-04,-3.04018E-04,-5.36055E-05, 3.76049E-04,
     &       -7.51719E-05,-1.96225E-04,-1.28029E-04, 3.99063E-04,
     &       -1.18500E-04,-8.37783E-05, 9.40021E-05,-4.49548E-04,
     &        5.60730E-05, 1.42420E-04, 9.19305E-05, 4.17099E-05,
     &       -1.83225E-05, 2.37847E-04,-1.06638E-04,-4.65696E-05,
     &        2.16259E-04,-3.93705E-04, 3.24768E-05, 1.12987E-05,
     &        1.09623E-04,-7.25222E-05, 7.49656E-06,-5.22825E-04,
     &       -1.00382E-04,-4.04919E-05, 3.58319E-04, 3.87065E-05,
     &       -4.44867E-04,-2.26457E-04, 8.60916E-05,-6.32363E-05/
C     long 210deg, jun_so
      DATA (AMAG(15,2,J),J=1,49)/ 9.30211E-04,
     &       -1.15250E-03,-9.47717E-04, 3.34293E-04,-1.83547E-03,
     &        1.11189E-03,-1.76559E-04, 9.50281E-05,-4.89814E-04,
     &        3.14132E-04, 3.89235E-04, 2.21201E-04,-9.73196E-05,
     &        1.53521E-04,-7.38892E-04,-7.45145E-05, 2.59319E-04,
     &       -1.19151E-04,-1.59587E-04, 3.09863E-04, 1.79909E-04,
     &       -8.30277E-05,-1.33755E-04, 1.01913E-04,-2.62673E-05,
     &        1.06681E-04,-1.03155E-06, 4.51031E-05, 6.43205E-05,
     &        8.41304E-05, 2.73372E-04,-8.29227E-05,-3.10415E-05,
     &       -4.75374E-04,-2.40332E-04, 4.61640E-05,-1.93746E-05,
     &        2.41021E-04,-1.00611E-04, 6.45928E-05,-7.30373E-04,
     &       -4.20641E-05,-1.03728E-05, 1.06723E-04,-5.41931E-05,
     &        9.32824E-05, 9.38623E-06,-3.49324E-04, 6.90125E-05/
C     long 225deg, jun_so
      DATA (AMAG(16,2,J),J=1,49)/ 1.00119E-03,
     &       -1.13837E-03,-7.02936E-04,-2.44740E-04,-2.42700E-03,
     &        1.62945E-03, 1.33494E-03,-2.73248E-04,-8.07459E-04,
     &        3.84398E-04, 3.91619E-04, 3.69212E-04, 3.34441E-05,
     &        1.51614E-05,-6.78071E-04,-2.92913E-04, 1.75874E-04,
     &       -1.82515E-04,-2.75148E-04, 6.59278E-04,-1.80482E-04,
     &       -7.21060E-06,-1.14578E-04, 1.25468E-04, 1.80613E-04,
     &       -2.12876E-04, 5.44699E-05, 1.98272E-06, 2.60649E-05,
     &        1.64107E-04, 3.38760E-04,-1.61344E-05,-7.10519E-05,
     &       -6.62839E-04, 1.34803E-04, 2.66712E-05, 6.41051E-06,
     &       -2.53720E-04,-1.95679E-05,-6.70590E-06,-5.20102E-04,
     &        4.29931E-05, 6.59143E-05, 8.08867E-05,-6.44353E-05,
     &        2.22507E-04,-4.78111E-05,-3.82097E-04,-2.85121E-04/
C     long 240deg, jun_so
      DATA (AMAG(17,2,J),J=1,49)/ 5.58759E-04,
     &       -1.19693E-03,-9.31679E-04,-8.92719E-04,-2.33212E-03,
     &        1.44735E-03, 2.71961E-03,-1.87703E-05,-5.94283E-04,
     &        5.05674E-04, 1.99048E-04, 3.45342E-04, 1.05414E-04,
     &       -8.84429E-06,-5.42565E-04,-5.22542E-04, 3.42308E-05,
     &       -2.96881E-04,-3.41403E-04, 5.22805E-04,-3.77415E-04,
     &        4.95183E-05,-2.28808E-05, 4.78379E-05,-8.66733E-05,
     &       -3.77895E-04, 3.80895E-05, 5.00420E-05,-1.11655E-05,
     &        1.21847E-05, 2.53750E-04,-8.63052E-06,-1.03233E-04,
     &       -4.04946E-04, 4.55676E-04, 1.19496E-04, 2.38561E-05,
     &       -5.94471E-04,-7.45936E-05,-7.92724E-05,-1.20639E-04,
     &        2.56363E-05,-1.42325E-05, 7.64194E-05, 3.02823E-05,
     &       -8.43525E-05,-1.99894E-04,-2.00282E-04,-2.73063E-04/
C     long 255deg, jun_so
      DATA (AMAG(18,2,J),J=1,49)/-1.75024E-04,
     &       -1.36522E-03,-1.49505E-03,-1.15648E-03,-1.01130E-03,
     &        1.41643E-03, 3.49046E-03,-1.83161E-04,-1.00542E-03,
     &        4.30160E-04, 2.64246E-04, 2.08384E-04, 5.07772E-06,
     &        5.84154E-04,-4.19748E-04,-5.63598E-04,-1.69878E-04,
     &       -4.12964E-04,-2.74005E-04,-3.28919E-05,-5.39191E-04,
     &       -2.10027E-05,-4.61754E-05,-4.48980E-06,-5.71705E-04,
     &       -2.40500E-04,-5.13077E-05, 1.72023E-04, 1.06550E-04,
     &       -1.62672E-04, 9.75975E-05, 6.93424E-05,-7.66669E-05,
     &        6.12089E-05, 2.45117E-04, 1.47004E-04, 5.57545E-05,
     &       -5.65350E-05,-2.69814E-05,-4.79887E-05,-2.18075E-04,
     &       -4.63226E-05,-8.76631E-05,-6.83468E-05, 9.53205E-05,
     &        7.82266E-05,-8.33969E-05,-2.28552E-04, 1.38126E-04/
C     long 270deg, jun_so
      DATA (AMAG(19,2,J),J=1,49)/-5.98512E-04,
     &       -1.63801E-03,-1.64134E-03,-7.36909E-04, 2.13350E-04,
     &        1.45527E-03, 3.62587E-03,-5.05237E-04,-6.77438E-04,
     &        3.07217E-04, 1.88101E-04, 2.62559E-04, 4.53762E-05,
     &        6.92506E-04,-3.30226E-04,-5.05242E-04,-2.49196E-04,
     &       -3.53177E-04,-1.13277E-04, 5.64863E-05,-4.14194E-04,
     &        9.20580E-06,-6.41478E-05, 2.84091E-05,-1.25214E-04,
     &       -1.94443E-04,-1.72198E-04, 2.47855E-04, 1.56902E-04,
     &       -1.58780E-04,-3.70285E-05,-8.50893E-06,-7.01667E-05,
     &        3.64995E-04, 1.21408E-04, 1.65026E-04, 5.44835E-05,
     &        1.99946E-04, 1.12934E-04, 6.08208E-05,-1.76726E-04,
     &       -1.47178E-04,-5.19056E-05,-2.11975E-04,-1.91017E-05,
     &        1.73726E-04,-1.99159E-05, 1.09447E-04, 1.64045E-04/
C     long 285deg, jun_so
      DATA (AMAG(20,2,J),J=1,49)/-8.76821E-04,
     &       -2.39109E-03,-1.98057E-03,-5.05178E-04, 3.27720E-04,
     &        1.40861E-03, 4.06343E-03,-5.51956E-04, 4.07222E-04,
     &        1.67426E-04,-1.86324E-04, 3.00477E-04, 4.62072E-05,
     &        2.82409E-05,-3.84913E-04,-2.45366E-04,-1.41776E-04,
     &       -2.44904E-04, 1.50351E-04, 5.60711E-04,-3.70362E-04,
     &        4.53227E-05, 1.17403E-05, 4.90030E-06, 4.93299E-04,
     &       -1.51940E-04,-1.34680E-04, 2.31446E-04, 1.55668E-04,
     &       -9.60522E-05, 1.51271E-04,-1.30054E-04,-1.19984E-05,
     &        1.71996E-04, 1.45262E-04, 1.69446E-04, 3.55883E-05,
     &        9.13420E-05,-4.08313E-06, 5.19007E-05,-4.70289E-04,
     &       -2.50642E-04,-6.89984E-05,-5.94964E-04,-4.97811E-05,
     &        1.09566E-04, 8.08036E-05, 1.06233E-04, 2.07592E-04/
C     long 300deg, jun_so
      DATA (AMAG(21,2,J),J=1,49)/-6.10572E-04,
     &       -2.45406E-03,-2.15021E-03,-5.59692E-04, 4.56976E-04,
     &        1.19741E-03, 3.95127E-03,-6.24133E-04, 2.94463E-04,
     &        1.10021E-04,-3.38072E-04, 2.40859E-04,-2.71768E-05,
     &       -1.68206E-04,-5.46732E-04,-2.49498E-04,-9.24793E-05,
     &       -1.45994E-04, 3.29402E-04, 1.11331E-04,-2.91670E-04,
     &       -1.13764E-04, 2.92061E-05,-4.56778E-05, 2.19376E-04,
     &       -1.52606E-05,-4.61883E-05, 2.33986E-04, 9.48481E-05,
     &       -3.98172E-05, 5.68578E-05,-8.12582E-05,-4.65432E-05,
     &        3.82459E-04, 1.14343E-04, 3.95439E-05,-1.58333E-06,
     &        1.88874E-04, 1.15409E-04, 3.32294E-05,-4.24539E-04,
     &       -1.76180E-04,-9.01602E-05,-3.53351E-04,-7.08275E-05,
     &        1.07163E-04,-1.74332E-05, 5.80184E-05, 3.52580E-04/
C     long 315deg, jun_so
      DATA (AMAG(22,2,J),J=1,49)/-4.96512E-04,
     &       -2.28944E-03,-1.69283E-03, 4.59970E-05, 7.27837E-04,
     &        1.04298E-03, 3.71794E-03,-1.04609E-04, 1.98241E-04,
     &        1.62864E-04,-1.84252E-04, 4.72163E-04, 8.94814E-05,
     &       -2.04197E-05,-5.79456E-04,-3.41305E-04,-1.30153E-04,
     &       -1.22508E-04, 2.38932E-04,-1.61799E-06,-1.77521E-04,
     &       -1.50474E-04,-1.47568E-05,-5.47098E-05, 6.43938E-05,
     &       -5.42283E-06,-1.51699E-04, 1.63854E-04, 8.04929E-05,
     &       -7.88214E-05, 8.45736E-06, 2.25352E-05,-5.44408E-05,
     &        5.46552E-04, 1.99419E-04, 4.96061E-05,-2.48646E-05,
     &        1.92917E-04, 2.32658E-04, 7.53260E-05, 1.83056E-04,
     &       -1.10715E-04,-3.53661E-05, 1.38418E-04,-1.71831E-04,
     &       -5.70830E-05,-1.31841E-04,-1.43519E-04, 3.26514E-05/
C     long 330deg, jun_so
      DATA (AMAG(23,2,J),J=1,49)/-4.36552E-04,
     &       -2.16032E-03,-1.89689E-03, 1.59665E-04, 5.92215E-04,
     &        1.02728E-03, 3.75821E-03, 9.74700E-05, 2.68377E-04,
     &        1.87849E-04, 5.41440E-05, 6.76645E-04, 2.10813E-04,
     &        2.25430E-04,-1.74076E-04,-1.62259E-04,-1.73457E-04,
     &       -1.50552E-04, 8.11101E-05, 2.96831E-04,-1.20833E-04,
     &       -9.18903E-05,-8.52737E-05,-5.52259E-05, 2.39972E-04,
     &        4.19589E-05,-5.63032E-05, 1.55962E-04, 1.15718E-04,
     &        2.46916E-04, 2.06448E-04, 7.11837E-05,-1.97209E-05,
     &        7.47095E-04, 1.26925E-04, 6.27135E-05,-1.16796E-05,
     &       -2.85879E-05, 5.48549E-06, 2.00925E-06,-1.50510E-05,
     &        7.52493E-05, 4.25040E-05, 1.99582E-04,-1.29190E-06,
     &       -1.36407E-04,-1.27647E-04,-8.13799E-05,-2.88576E-04/
C     long 345deg, jun_so
      DATA (AMAG(24,2,J),J=1,49)/-1.27605E-04,
     &       -1.50645E-03,-1.88470E-03,-2.71484E-04, 1.49698E-04,
     &        7.59915E-04, 3.56224E-03, 2.16093E-05, 7.63950E-05,
     &        5.73140E-05,-6.71544E-05, 6.70115E-04, 1.30986E-04,
     &        4.67400E-04, 1.94034E-05,-1.25832E-04,-1.99836E-04,
     &       -2.37666E-04, 5.81849E-05, 3.15456E-04,-2.00010E-04,
     &       -1.17103E-04, 2.97267E-05,-2.50864E-05, 1.44454E-04,
     &        2.77077E-04, 1.81555E-04, 1.96135E-04, 9.55587E-05,
     &        1.33929E-04, 1.93398E-04, 5.43815E-05,-4.70001E-05,
     &        9.41906E-04, 1.10879E-04, 2.69389E-05, 3.68085E-06,
     &        2.08025E-04,-4.79005E-05,-4.99408E-05, 9.58678E-05,
     &        1.59811E-04, 3.44927E-05, 1.57832E-04, 1.35181E-04,
     &       -1.98367E-04, 2.29277E-05, 1.50694E-04,-2.73679E-04/
C     long 0deg, sep_eq
      DATA (AMAG(1,3,J),J=1,49)/ 6.58502E-04,
     &        2.58549E-04, 2.18216E-04,-2.36738E-04,-1.44014E-03,
     &       -1.92503E-04, 1.47861E-03, 5.41853E-05, 3.27522E-04,
     &       -3.39703E-05, 2.50843E-05, 2.87905E-04, 2.77060E-05,
     &        5.67448E-06,-3.34815E-04,-2.08711E-04,-4.18171E-05,
     &       -1.29607E-04,-1.18864E-04, 8.76186E-05,-6.23661E-05,
     &        8.29735E-05,-4.97831E-05,-9.57191E-05,-2.76874E-04,
     &        1.01248E-04,-1.01483E-04,-4.16218E-05, 1.91914E-05,
     &        2.43505E-05,-7.73138E-06,-5.00522E-05, 3.93516E-06,
     &        6.45664E-04, 2.77750E-05, 4.16394E-05, 5.37438E-06,
     &        3.66621E-05, 4.46918E-05,-4.86161E-06,-8.83596E-04,
     &       -1.70137E-04,-6.59645E-05,-3.36924E-04,-4.88724E-05,
     &        5.65450E-05, 1.01463E-04,-8.39706E-05, 5.48264E-05/
C     long 15deg, sep_eq
      DATA (AMAG(2,3,J),J=1,49)/ 4.78814E-04,
     &        5.88571E-04, 1.26609E-04,-4.69526E-04,-6.14805E-04,
     &       -5.97713E-04, 9.33025E-04, 6.77662E-04, 7.83648E-05,
     &        1.15559E-04, 1.97392E-05, 3.27423E-05, 3.66864E-05,
     &        1.95886E-04,-2.88942E-04,-1.10806E-04, 6.81397E-05,
     &       -1.83418E-04,-1.16348E-04,-2.97513E-04,-1.40172E-04,
     &       -7.70492E-05, 9.65620E-06,-4.91445E-05,-3.53664E-04,
     &        1.01996E-04,-1.01288E-04,-2.84208E-05, 6.51280E-05,
     &       -2.07634E-04, 3.22314E-05,-1.38792E-05,-1.45508E-05,
     &        5.03317E-04, 2.95323E-05, 7.30193E-05, 2.07893E-05,
     &       -1.57410E-05,-1.07573E-04,-4.49504E-05,-7.47636E-04,
     &       -1.77998E-04,-9.60653E-05,-2.88815E-04,-4.83126E-05,
     &       -3.75889E-05, 7.35031E-05,-3.41343E-04,-8.54493E-06/
C     long 30deg, sep_eq
      DATA (AMAG(3,3,J),J=1,49)/ 6.18992E-04,
     &        6.66927E-04,-2.13475E-04,-2.84026E-04,-3.81666E-04,
     &       -1.23668E-03, 1.05158E-03, 6.50135E-04,-6.82795E-05,
     &        3.20277E-04,-4.06145E-05,-3.15545E-05, 2.02058E-05,
     &        2.88464E-04,-2.07889E-04,-1.15778E-04, 4.53780E-05,
     &       -2.13391E-04,-3.62264E-05,-2.64169E-04,-2.76163E-04,
     &       -1.17714E-04,-1.51082E-07,-3.55588E-05,-4.17838E-04,
     &        1.16954E-04,-4.17580E-06,-1.50448E-05, 1.36116E-05,
     &       -3.46728E-04, 1.20904E-05,-9.83283E-06,-3.35273E-05,
     &       -1.09419E-04,-9.18197E-05, 8.68350E-06,-1.65098E-05,
     &       -4.02578E-04,-1.77967E-04,-6.51639E-05,-3.67676E-04,
     &       -1.66058E-04,-3.84288E-05,-1.69982E-04, 6.00671E-06,
     &        1.63596E-06, 3.14584E-05,-3.10467E-04, 2.71162E-04/
C     long 45deg, sep_eq
      DATA (AMAG(4,3,J),J=1,49)/ 9.23943E-04,
     &        6.50655E-04,-5.78250E-04,-2.43067E-04,-6.19347E-04,
     &       -9.00340E-04, 1.40584E-03, 4.68886E-04,-7.07320E-05,
     &        3.23110E-04, 6.74523E-05, 1.15889E-04,-7.88981E-06,
     &        3.74199E-04,-6.81814E-05,-1.13220E-04, 4.66189E-05,
     &       -2.78870E-04,-9.48690E-05, 1.50049E-04,-2.85212E-04,
     &       -4.63423E-05, 3.64886E-05,-4.00566E-05,-6.72196E-04,
     &       -7.79223E-05,-2.54985E-05, 3.45584E-05,-1.35666E-05,
     &       -3.48022E-04,-8.93814E-05,-6.39552E-05,-2.07143E-05,
     &       -1.14175E-04,-4.74921E-05,-5.34407E-05,-1.61464E-05,
     &       -2.82836E-04,-7.14636E-05,-7.07228E-06,-1.84704E-04,
     &       -2.52576E-05, 4.90197E-05,-2.26591E-05, 1.59125E-04,
     &        3.75159E-05, 4.59970E-06,-5.30800E-06, 8.78959E-05/
C     long 60deg, sep_eq
      DATA (AMAG(5,3,J),J=1,49)/ 8.78763E-04,
     &        5.74309E-04,-5.69557E-04,-6.33773E-04,-6.42914E-04,
     &       -5.90401E-04, 1.33736E-03, 6.45576E-04,-1.25745E-04,
     &        2.88800E-04, 2.47206E-04, 2.00673E-04,-1.09902E-04,
     &        1.94953E-04,-9.78173E-05,-2.86571E-05, 5.26154E-05,
     &       -2.67057E-04,-9.81215E-05, 3.94108E-04, 8.42478E-05,
     &        1.81620E-05, 1.51233E-06,-6.77455E-05,-6.00837E-04,
     &       -3.62151E-04,-1.88419E-04, 3.84523E-05, 1.34504E-05,
     &       -1.39835E-06,-1.92636E-05,-8.51284E-05, 1.02450E-05,
     &        1.99306E-04,-1.83979E-05,-7.58444E-05,-3.00602E-05,
     &       -1.55285E-04, 6.91949E-05, 3.54411E-05,-8.78213E-05,
     &        2.05149E-06, 3.14736E-05, 6.60570E-05, 1.20908E-04,
     &       -2.04857E-04, 1.87744E-05,-1.71717E-04, 1.60247E-05/
C     long 75deg, sep_eq
      DATA (AMAG(6,3,J),J=1,49)/ 6.02600E-04,
     &        6.88542E-04,-1.19730E-04,-8.69188E-04,-7.68932E-04,
     &       -3.65295E-04, 1.37591E-03, 7.58667E-04, 4.40670E-06,
     &        5.28509E-04, 2.79409E-04, 2.31137E-04,-1.83924E-04,
     &        2.67851E-04, 2.06529E-04, 3.90505E-05,-1.98701E-04,
     &       -2.43493E-04,-4.85902E-05, 6.76862E-04, 3.61866E-04,
     &       -6.10935E-05,-1.05918E-04,-6.19936E-05,-4.18877E-04,
     &       -4.48889E-04,-1.71250E-04,-3.45959E-06,-7.38478E-05,
     &        1.49593E-04, 3.67494E-05, 1.25612E-05, 3.15399E-05,
     &       -4.00850E-05, 2.47692E-05,-1.39820E-04,-7.87689E-05,
     &       -4.87613E-04, 1.08829E-05,-9.71862E-06,-5.45187E-05,
     &       -5.37979E-05, 2.11973E-05, 2.69805E-04, 2.68190E-06,
     &       -1.06133E-04, 2.06131E-05,-1.35573E-04, 5.30627E-05/
C     long 90deg, sep_eq
      DATA (AMAG(7,3,J),J=1,49)/ 3.90243E-04,
     &        9.42851E-04, 1.26251E-04,-1.37966E-03,-1.16905E-03,
     &        3.56927E-04, 1.37831E-03, 7.67756E-04, 3.85309E-05,
     &        7.97879E-04, 2.87895E-04, 1.22162E-04,-2.37826E-04,
     &        5.51856E-04, 4.53598E-04, 2.33469E-04,-2.42975E-04,
     &       -3.41191E-04,-8.86071E-05, 9.63212E-04, 2.29944E-04,
     &       -1.15782E-04,-7.50866E-05,-6.04106E-05,-1.37309E-04,
     &       -5.09430E-04,-1.60973E-04, 6.38178E-06,-5.36420E-05,
     &       -1.17083E-04,-5.54974E-05, 1.25839E-04, 5.30594E-05,
     &       -2.04721E-04, 1.98752E-04,-1.44193E-05,-5.25306E-05,
     &       -1.73882E-04, 1.20193E-04,-2.28376E-05,-1.07062E-04,
     &       -4.21593E-05, 1.93693E-05, 1.21607E-04, 1.01317E-05,
     &       -1.04553E-04,-1.86204E-05,-3.32596E-05, 8.14854E-05/
C     long 105deg, sep_eq
      DATA (AMAG(8,3,J),J=1,49)/ 3.36645E-04,
     &        6.75175E-04, 2.67436E-04,-1.41731E-03,-1.15486E-03,
     &        9.95524E-04, 9.43717E-04, 7.59753E-04, 9.17224E-05,
     &        9.33785E-04, 2.31029E-04, 1.98266E-04,-1.05068E-04,
     &        5.10200E-04, 7.18564E-05, 2.78744E-04,-1.54860E-04,
     &       -4.03553E-04,-1.95530E-04, 6.81120E-04, 1.82989E-04,
     &        5.82568E-05,-8.25270E-06,-5.89730E-05, 2.31855E-04,
     &       -4.70558E-04,-1.52317E-04, 5.87827E-06,-4.30961E-05,
     &       -3.45548E-04,-5.89764E-05, 8.14789E-05, 3.31322E-05,
     &       -2.35703E-04, 1.48614E-04, 2.68270E-05,-5.34418E-05,
     &       -5.26669E-05, 1.27861E-04,-1.75380E-06,-1.82233E-04,
     &       -5.09467E-05, 2.52743E-05,-1.33614E-04, 1.64973E-05,
     &       -3.92593E-04,-3.86036E-05,-5.01036E-05,-4.88585E-05/
C     long 120deg, sep_eq
      DATA (AMAG(9,3,J),J=1,49)/ 4.10254E-04,
     &        3.33407E-04, 5.07043E-07,-1.18197E-03,-1.41347E-03,
     &        9.73777E-04, 5.06124E-04, 9.27470E-04, 3.35711E-05,
     &        8.19079E-04, 2.46353E-05, 3.37543E-04,-1.75524E-05,
     &        5.94368E-04,-1.62792E-04, 2.92278E-04,-4.41178E-05,
     &       -3.52541E-04,-3.03040E-04, 4.68356E-04, 2.91863E-04,
     &        1.32533E-04,-1.62772E-05,-2.29527E-05, 7.28319E-06,
     &       -4.33897E-04,-1.87328E-04,-6.34197E-05,-1.33978E-04,
     &       -9.65195E-05,-9.33495E-05, 4.87017E-05, 1.63578E-05,
     &       -4.46219E-05,-1.10574E-04,-1.38632E-05,-7.55996E-05,
     &       -3.11654E-04,-3.36370E-05,-1.04755E-05,-6.32628E-05,
     &       -1.44605E-05, 3.41375E-05, 3.55469E-04, 2.26514E-05,
     &       -2.20023E-04,-1.30854E-05,-2.82243E-04,-1.11152E-04/
C     long 135deg, sep_eq
      DATA (AMAG(10,3,J),J=1,49)/ 5.47241E-04,
     &        5.37553E-04,-4.43701E-04,-1.58677E-03,-1.72332E-03,
     &        5.65821E-04, 6.35736E-05, 1.15842E-03, 1.30258E-04,
     &        6.14743E-04,-4.13591E-05, 2.08872E-04,-1.13513E-04,
     &        4.34473E-04,-1.86698E-04, 4.10732E-04,-5.46837E-05,
     &       -4.12488E-04,-2.39343E-04, 4.01063E-04, 2.62055E-04,
     &        1.34399E-04, 1.18344E-05, 6.84060E-06,-2.16705E-04,
     &       -6.04204E-04,-2.25138E-04,-6.87743E-06,-1.30116E-04,
     &       -5.46452E-05, 1.01326E-05, 5.32287E-05, 1.17658E-05,
     &        4.68166E-04, 6.17698E-05, 9.68986E-05,-6.51331E-05,
     &       -1.72807E-04,-2.92052E-05,-1.03626E-05,-5.34661E-05,
     &        1.30250E-04,-4.14922E-06, 4.69714E-04,-1.99137E-05,
     &        6.64097E-05, 1.01199E-04,-8.07615E-05,-2.08036E-05/
C     long 150deg, sep_eq
      DATA (AMAG(11,3,J),J=1,49)/ 7.07910E-04,
     &        5.16761E-04,-5.03731E-04,-1.34072E-03,-1.62739E-03,
     &        2.18605E-04,-3.18149E-04, 4.43892E-04, 2.90842E-04,
     &        5.61223E-04,-9.36472E-05, 2.35884E-04, 1.92767E-05,
     &        2.05023E-04, 1.81109E-05, 4.65385E-04,-1.27979E-04,
     &       -4.51099E-04,-1.30346E-04, 4.79168E-04, 1.37853E-04,
     &        1.61818E-04, 6.06848E-05, 1.15235E-06,-1.58860E-04,
     &       -7.04001E-04,-2.28851E-04, 7.77602E-05,-8.19551E-05,
     &       -5.03001E-04, 1.76933E-04, 2.31259E-05, 2.68196E-05,
     &        4.40783E-04, 2.55513E-04, 1.34355E-04,-4.27863E-05,
     &       -1.02507E-04,-8.78702E-06,-1.46476E-05, 6.18209E-05,
     &        1.09076E-04,-2.00747E-05,-1.16192E-04, 2.62541E-05,
     &       -2.07688E-05, 6.18828E-05,-2.29966E-04,-3.45692E-04/
C     long 165deg, sep_eq
      DATA (AMAG(12,3,J),J=1,49)/ 5.72240E-04,
     &        3.97533E-04, 1.14891E-04,-6.20887E-04,-1.99360E-03,
     &       -4.40205E-04,-6.87587E-04, 2.00352E-04,-1.84300E-05,
     &        3.42931E-04,-1.66761E-04, 2.60285E-04, 2.02846E-04,
     &        5.91087E-04, 9.20380E-05, 2.29812E-04,-4.81920E-05,
     &       -3.84637E-04,-1.52573E-04, 5.45725E-04, 1.41761E-04,
     &        2.24842E-04, 3.66882E-05,-6.62741E-05,-5.77925E-04,
     &       -3.47814E-04,-1.57194E-04, 2.03683E-05,-7.54796E-05,
     &       -3.29874E-04, 1.07006E-04, 1.15596E-05, 3.69496E-05,
     &        6.93006E-05, 6.81993E-05, 9.36642E-06,-1.86979E-05,
     &       -3.63760E-04,-2.71321E-05,-5.53876E-05,-3.54332E-04,
     &       -1.11278E-05, 1.31355E-05,-3.79264E-04, 3.72724E-05,
     &        1.73922E-04, 1.86731E-05,-3.09099E-04,-3.74868E-04/
C     long 180deg, sep_eq
      DATA (AMAG(13,3,J),J=1,49)/ 5.94793E-04,
     &        5.98928E-04, 5.57450E-04,-6.18424E-04,-2.74326E-03,
     &       -3.38695E-04,-7.59937E-04, 4.57025E-04,-3.08832E-04,
     &        2.53442E-05,-1.65658E-04, 1.00184E-04, 3.43082E-04,
     &        1.09336E-03, 1.41395E-04, 1.27332E-04, 1.52453E-04,
     &       -3.29966E-04,-1.82756E-04, 2.20282E-04, 1.18442E-04,
     &        2.25817E-04, 1.36012E-05,-8.86936E-05,-4.38969E-04,
     &       -3.68128E-04,-1.10523E-04,-2.41530E-05, 1.88019E-05,
     &        1.59710E-04, 1.34258E-04,-1.62008E-05, 2.38697E-05,
     &       -3.09224E-04,-7.97823E-06, 1.71268E-05,-8.11641E-07,
     &       -2.79726E-04,-2.12942E-05,-7.16021E-05,-2.01327E-04,
     &       -7.49636E-05, 3.19221E-05,-4.36588E-04,-5.34736E-05,
     &        1.42220E-04, 1.45061E-04, 6.74960E-05,-9.11633E-05/
C     long 195deg, sep_eq
      DATA (AMAG(14,3,J),J=1,49)/ 5.54229E-04,
     &        4.07216E-04, 4.70178E-04,-7.94235E-04,-2.71751E-03,
     &        5.93967E-04, 2.72205E-04,-9.86092E-05,-3.30636E-04,
     &        1.15743E-04, 1.91983E-05, 1.40706E-04, 3.42385E-04,
     &        1.08972E-03, 2.32384E-04, 2.54367E-04, 2.69155E-04,
     &       -3.23072E-04,-1.94241E-04, 3.21740E-04, 2.26163E-05,
     &        1.25974E-04, 3.12078E-05,-7.06916E-05, 1.10605E-04,
     &       -5.00498E-04,-8.08595E-05,-5.51039E-06, 3.27651E-05,
     &        1.60041E-04, 6.98733E-05,-4.21737E-06, 5.39300E-06,
     &       -8.15813E-05,-1.33677E-05, 7.86175E-06,-3.15804E-05,
     &       -1.58274E-05,-1.05307E-06,-2.21778E-05, 3.02905E-04,
     &       -2.51971E-05, 3.63063E-05, 7.41496E-05,-2.69684E-06,
     &       -2.24493E-05, 1.29720E-04,-2.26286E-05,-2.59974E-04/
C     long 210deg, sep_eq
      DATA (AMAG(15,3,J),J=1,49)/ 3.86064E-04,
     &       -5.15283E-04, 1.55580E-04,-7.98699E-04,-1.95580E-03,
     &        1.51983E-03, 8.65292E-04,-1.99504E-04,-4.92140E-04,
     &        3.54123E-04, 2.08266E-04, 1.48688E-04, 1.31416E-04,
     &        7.87662E-04,-6.86745E-05, 3.21692E-04, 2.45922E-04,
     &       -4.57288E-04,-2.54749E-04, 1.21450E-04,-2.94155E-04,
     &        1.48350E-04, 6.48119E-06,-3.17690E-05,-4.54181E-04,
     &       -3.89249E-04,-1.08065E-04,-3.50507E-05,-2.77396E-06,
     &       -1.09429E-04,-3.11183E-05, 9.91195E-05, 4.41093E-07,
     &        1.65084E-04, 6.65139E-05,-6.70673E-05,-5.59863E-05,
     &       -1.82455E-04,-1.13997E-04,-4.35450E-05, 5.65719E-05,
     &        9.90875E-05, 4.18267E-05, 1.66129E-04,-3.41410E-07,
     &       -3.23262E-05, 8.57576E-05, 9.07495E-05,-3.12204E-04/
C     long 225deg, sep_eq
      DATA (AMAG(16,3,J),J=1,49)/ 5.23135E-04,
     &       -5.96368E-04,-3.27938E-04,-1.36592E-03,-1.43044E-03,
     &        2.06017E-03, 1.26404E-03, 1.77566E-04,-3.97236E-04,
     &        4.05609E-04, 9.18725E-05, 4.82141E-05, 3.77653E-05,
     &        1.03408E-03,-3.09229E-04, 1.61130E-04, 3.10345E-04,
     &       -4.32426E-04,-2.79152E-04, 1.36191E-04,-4.12654E-04,
     &        8.24282E-05, 6.92591E-06, 9.21601E-06,-1.10759E-03,
     &       -3.38511E-04,-8.87999E-05,-9.27728E-06, 9.18742E-06,
     &       -1.02452E-04,-2.02681E-05, 4.69433E-05, 3.35135E-05,
     &        2.22276E-04, 1.53219E-04,-3.22578E-05,-5.20192E-05,
     &       -3.38518E-04,-1.03419E-04,-6.03988E-05,-3.72885E-04,
     &       -3.39387E-05,-2.11103E-05,-1.30808E-04, 6.07976E-06,
     &       -5.98821E-04, 1.35167E-04, 1.28889E-04, 1.25110E-04/
C     long 240deg, sep_eq
      DATA (AMAG(17,3,J),J=1,49)/ 4.71655E-04,
     &       -5.61346E-04,-4.02378E-04,-1.49620E-03,-9.42007E-04,
     &        1.92774E-03, 1.67856E-03, 2.64939E-04,-8.43034E-05,
     &        3.16865E-04,-1.03131E-04, 1.38102E-04, 7.01034E-05,
     &        1.20175E-03,-4.56953E-04,-6.17483E-05, 1.81572E-04,
     &       -3.88080E-04,-1.18511E-04, 4.24755E-04,-3.95853E-04,
     &        8.33529E-05,-5.08020E-05, 2.90557E-05,-8.42046E-04,
     &       -4.10171E-04,-2.41911E-05, 1.21295E-04, 3.20663E-05,
     &        1.58470E-04,-1.31881E-05,-7.25547E-05,-4.28648E-06,
     &        1.61484E-04, 7.63317E-05,-6.04439E-05,-3.26215E-05,
     &       -4.06254E-04,-1.17370E-04,-3.04976E-05,-5.13246E-04,
     &       -4.98969E-05, 5.29041E-07, 6.60143E-06,-2.43906E-05,
     &       -6.30188E-04, 7.82325E-06,-1.62286E-04, 2.86258E-04/
C     long 255deg, sep_eq
      DATA (AMAG(18,3,J),J=1,49)/ 9.06084E-05,
     &       -1.07421E-03,-6.70053E-06,-1.00133E-03,-8.28775E-04,
     &        1.46036E-03, 1.27743E-03, 3.34154E-04, 2.38759E-04,
     &        2.16341E-04,-2.16617E-04, 1.75450E-04,-7.13173E-06,
     &        7.27418E-04,-2.58264E-04,-2.00271E-04,-1.05831E-04,
     &       -3.96861E-04, 8.36925E-05, 2.33493E-04,-3.34981E-04,
     &        5.50874E-05,-9.72394E-05, 2.95611E-05,-3.37922E-04,
     &       -4.25253E-04, 5.10140E-06, 2.09975E-04, 3.00287E-05,
     &       -3.48057E-04, 5.45595E-05,-9.56788E-05,-3.68899E-05,
     &       -1.91692E-05,-1.07299E-04,-2.16811E-05, 1.12880E-05,
     &       -2.86611E-04,-1.67151E-04,-1.49030E-05,-2.68673E-04,
     &        9.94630E-05, 5.03746E-05,-7.78649E-05, 8.03392E-05,
     &       -3.26564E-04,-6.23694E-05,-3.63214E-04, 2.78041E-04/
C     long 270deg, sep_eq
      DATA (AMAG(19,3,J),J=1,49)/-9.92415E-05,
     &       -1.37054E-03, 1.62135E-04,-4.44183E-04,-3.56850E-04,
     &        9.42562E-04, 8.30478E-04, 4.78849E-04, 4.45954E-04,
     &        9.72561E-05,-4.03799E-04, 1.14818E-04, 1.11028E-05,
     &        5.72402E-04, 9.23522E-06,-3.53704E-04,-1.55178E-04,
     &       -4.02363E-04, 9.63683E-05,-9.03151E-05,-1.63500E-04,
     &        3.12706E-05,-1.10940E-04,-7.18914E-06,-5.07179E-04,
     &       -2.53977E-04, 3.71944E-05, 1.73089E-04,-9.35908E-06,
     &       -3.81745E-04,-3.38535E-06,-7.82853E-05,-2.80880E-05,
     &        1.70815E-05,-2.32752E-04, 3.59369E-05, 5.09605E-05,
     &        4.75270E-05,-1.30249E-04, 2.86006E-05,-1.50219E-04,
     &        6.33365E-05, 6.33682E-05, 9.78878E-05, 6.73661E-05,
     &       -8.20203E-05,-1.51384E-05,-4.06812E-04,-1.68610E-04/
C     long 285deg, sep_eq
      DATA (AMAG(20,3,J),J=1,49)/-1.87276E-04,
     &       -1.32060E-03, 3.37462E-04, 6.75344E-05,-5.12123E-05,
     &        7.35316E-04, 7.30357E-04, 5.34381E-04, 5.59951E-04,
     &        1.64181E-05,-3.28751E-04, 4.42427E-05, 6.92444E-05,
     &        3.77342E-04,-1.73903E-04,-3.43198E-04,-1.10686E-04,
     &       -3.93329E-04, 3.81564E-06,-3.37184E-04,-6.39502E-05,
     &        1.52935E-04,-1.28520E-04,-3.74530E-05,-4.33009E-04,
     &       -2.02430E-04, 2.36104E-05, 1.34240E-04,-3.55107E-05,
     &       -9.59914E-05,-1.23506E-04,-9.55642E-05,-1.69185E-05,
     &        1.28835E-04,-1.65333E-04,-1.02813E-06, 3.73123E-05,
     &        3.33217E-05, 4.36838E-05, 4.52496E-05, 2.76737E-06,
     &       -2.53973E-05, 6.48179E-05, 2.36975E-04,-6.78114E-05,
     &       -1.23113E-04, 4.04280E-05,-3.37572E-04,-2.52965E-04/
C     long 300deg, sep_eq
      DATA (AMAG(21,3,J),J=1,49)/ 1.63276E-05,
     &       -1.19000E-03, 6.20839E-04, 2.86434E-04,-3.34087E-04,
     &       -8.79441E-08, 8.10500E-04, 2.77250E-04, 6.26405E-04,
     &        1.10488E-04,-1.63846E-04, 1.10316E-04,-4.37848E-05,
     &        2.23964E-04,-1.65894E-04,-2.71747E-04,-4.63626E-05,
     &       -3.76470E-04, 7.25813E-06,-1.72526E-04,-9.66428E-05,
     &        2.00067E-04,-5.38696E-05,-4.10435E-05, 4.68400E-05,
     &       -1.98901E-04,-9.10205E-05, 1.14986E-04,-5.39717E-05,
     &       -2.32349E-04,-7.93371E-05,-7.20418E-05, 2.98215E-05,
     &        3.07655E-04, 4.47816E-05, 3.33199E-05,-2.09756E-06,
     &        2.11512E-04, 2.47942E-04, 5.38370E-05,-1.10074E-04,
     &       -8.71123E-05, 4.46863E-05,-1.42592E-04,-1.05768E-04,
     &       -2.07043E-04,-2.04915E-05,-4.93254E-05,-9.17829E-05/
C     long 315deg, sep_eq
      DATA (AMAG(22,3,J),J=1,49)/ 5.86303E-04,
     &       -1.03112E-03, 3.64313E-04, 4.93681E-04,-5.35402E-04,
     &       -8.06758E-04, 6.50671E-04,-4.29643E-06, 5.86309E-04,
     &        7.97086E-05,-1.42596E-04, 2.41301E-04,-1.28370E-04,
     &       -5.85325E-05, 3.33932E-06,-2.07442E-04,-4.44978E-05,
     &       -2.89458E-04, 5.37082E-05,-1.20769E-04,-1.69530E-04,
     &        2.17827E-04, 2.99858E-05,-2.69855E-05,-8.46839E-05,
     &       -2.37612E-04,-9.50272E-05, 1.43424E-04,-2.23834E-05,
     &       -7.36828E-05,-1.56287E-06,-3.80181E-05, 2.95665E-05,
     &        3.56998E-04, 1.01431E-04, 3.61389E-05,-1.60481E-05,
     &        3.66716E-04, 2.20978E-04, 6.42039E-05, 1.77336E-05,
     &       -1.27173E-04, 3.60383E-05, 1.73321E-05,-1.74103E-04,
     &       -1.55640E-04,-1.14395E-04,-1.06447E-04,-5.68835E-05/
C     long 330deg, sep_eq
      DATA (AMAG(23,3,J),J=1,49)/ 8.72360E-04,
     &       -8.14109E-04, 1.47267E-04, 5.77389E-04,-8.21807E-04,
     &       -9.02721E-04, 1.16140E-03,-1.54860E-04, 6.68572E-04,
     &       -1.94914E-04,-2.33303E-04, 3.46100E-04,-1.76661E-05,
     &       -9.76861E-05, 2.97045E-05,-1.14067E-04,-9.56087E-05,
     &       -2.10833E-04, 1.00984E-04,-1.74108E-05,-2.31748E-04,
     &        1.30533E-04, 2.14448E-05,-3.48922E-05,-4.13964E-04,
     &       -2.59311E-04,-1.41857E-04, 1.32333E-04, 3.10062E-05,
     &        6.55545E-06,-3.32657E-05,-8.65054E-05, 1.25438E-05,
     &        5.90383E-04, 6.42858E-05, 3.64117E-05,-3.04912E-06,
     &        1.48112E-04, 9.49120E-05, 4.79897E-05,-9.08020E-05,
     &       -6.40058E-05,-2.11604E-05, 2.68350E-04,-1.01774E-04,
     &        1.58338E-04,-6.18488E-05,-2.87533E-04,-2.97208E-04/
C     long 345deg, sep_eq
      DATA (AMAG(24,3,J),J=1,49)/ 8.75661E-04,
     &       -3.39052E-04, 1.37259E-04, 3.53062E-04,-1.36652E-03,
     &       -5.10794E-04, 1.61616E-03,-2.40757E-04, 6.52938E-04,
     &       -2.05514E-04,-1.15318E-04, 3.81259E-04, 2.27755E-05,
     &       -8.37606E-05,-1.63787E-04,-1.36722E-04,-1.28443E-04,
     &       -1.77783E-04, 3.41439E-05, 2.11199E-04,-1.29952E-04,
     &        9.04765E-05,-5.05228E-05,-7.19226E-05,-3.08265E-04,
     &       -6.44981E-06,-1.62891E-04,-4.75107E-06, 1.24596E-05,
     &        1.66893E-04,-3.31482E-05,-9.15581E-05, 7.67639E-06,
     &        6.89162E-04, 2.06909E-05, 5.72458E-05,-5.41838E-06,
     &       -7.55885E-05, 9.80988E-05, 2.71378E-05,-6.62524E-04,
     &       -1.14044E-04,-5.20909E-05, 3.88415E-06,-5.69340E-05,
     &        1.88513E-04, 3.12195E-05,-2.91482E-04,-2.33802E-04/
C     long 0deg, dec_so
      DATA (AMAG(1,4,J),J=1,49)/-4.61592E-04,
     &        1.26092E-03,-3.39200E-04,-1.53009E-04, 4.43840E-04,
     &       -2.19454E-03, 2.44758E-03,-9.47727E-04, 6.01432E-04,
     &       -1.25818E-04,-3.47278E-04, 5.69805E-04,-4.05123E-04,
     &        7.73821E-05, 4.18433E-04,-1.24752E-04,-9.98629E-05,
     &       -1.84907E-04, 1.10802E-04, 3.71757E-04, 2.69792E-05,
     &        1.93373E-04,-1.40444E-04,-4.56064E-05,-3.09130E-04,
     &        3.88718E-04,-1.41978E-04,-9.27543E-05, 9.34845E-05,
     &       -1.75524E-04,-1.87288E-04, 1.78385E-05, 1.96976E-05,
     &        1.95987E-04,-8.47119E-05, 1.43316E-04,-1.04813E-04,
     &       -2.61458E-04, 1.62671E-04,-2.55488E-05,-2.28614E-04,
     &        2.18190E-04, 1.74012E-05,-3.14417E-05,-6.48975E-05,
     &       -9.45647E-06, 7.73026E-06, 2.00883E-05,-2.38236E-05/
C     long 15deg, dec_so
      DATA (AMAG(2,4,J),J=1,49)/-9.39621E-04,
     &        2.22857E-03,-9.18590E-04,-7.21381E-04, 1.91455E-03,
     &       -2.88291E-03, 2.58610E-03,-7.24345E-05, 2.56085E-04,
     &       -4.32793E-05,-2.39443E-04, 5.24379E-04,-2.06892E-04,
     &        1.27719E-04, 1.38707E-04,-1.34967E-04, 6.83404E-05,
     &       -3.56434E-04, 1.04534E-04, 3.89210E-04,-3.97252E-05,
     &        1.56127E-04,-3.86219E-05,-9.60262E-05,-2.17933E-04,
     &        2.17563E-04,-1.07206E-04,-1.20554E-04, 7.39268E-05,
     &       -4.49406E-04, 5.28947E-05,-8.04972E-05, 1.83706E-05,
     &        8.58752E-05,-1.39352E-04, 1.14990E-04,-7.33985E-05,
     &       -2.83340E-04, 9.47067E-05,-7.58013E-06,-1.87816E-04,
     &        3.54996E-04,-1.48585E-05,-3.27680E-04,-7.18406E-05,
     &        1.46131E-04, 3.77755E-05,-8.94762E-05, 1.11497E-04/
C     long 30deg, dec_so
      DATA (AMAG(3,4,J),J=1,49)/-1.25819E-03,
     &        2.55464E-03,-1.89853E-03,-5.97134E-04, 3.16193E-03,
     &       -3.58764E-03, 2.81439E-03, 5.68357E-04,-1.63425E-04,
     &        3.20988E-04,-1.15350E-04, 2.52900E-04,-1.32285E-04,
     &        2.92962E-04, 2.07256E-04,-6.14257E-05, 6.30585E-05,
     &       -3.95397E-04, 5.97243E-05, 1.77458E-04,-1.68855E-05,
     &       -4.94161E-05,-7.18469E-06,-1.05909E-04, 2.85427E-04,
     &        1.15851E-05, 7.00695E-06,-9.65706E-05,-2.01442E-06,
     &       -2.41860E-04, 2.17915E-04,-5.05374E-05, 4.83103E-05,
     &        1.94269E-04,-9.23363E-05,-1.21826E-05,-6.58611E-06,
     &       -4.03193E-04,-1.88037E-06,-5.00122E-05,-2.93720E-04,
     &        2.03163E-04,-5.10024E-06,-4.55034E-04,-7.82662E-06,
     &        4.13693E-04, 3.02170E-05, 2.13515E-04, 2.31799E-04/
C     long 45deg, dec_so
      DATA (AMAG(4,4,J),J=1,49)/-1.23532E-03,
     &        2.61744E-03,-2.51142E-03,-1.84511E-04, 3.25846E-03,
     &       -3.58254E-03, 3.22313E-03, 6.84773E-04,-5.07680E-04,
     &        4.61901E-04,-9.73448E-06, 2.37867E-04,-1.91818E-04,
     &        6.97936E-04, 1.63896E-04,-8.58005E-05, 1.19962E-04,
     &       -3.38251E-04,-2.79016E-05, 9.04243E-05, 7.37922E-05,
     &       -1.66426E-04,-1.30033E-05,-1.19734E-04, 3.70495E-04,
     &        9.06241E-06, 1.44625E-05,-8.90449E-05,-2.60261E-05,
     &        1.36512E-04, 1.77629E-04,-3.50402E-05, 6.13258E-05,
     &        2.26458E-04,-1.49127E-04,-2.85425E-05, 1.69261E-05,
     &       -6.03905E-04,-6.47696E-05,-3.09670E-05,-1.81942E-04,
     &        1.23969E-04,-2.54031E-05,-2.39685E-04, 4.78098E-05,
     &        3.45930E-04,-2.13054E-05, 1.53222E-04,-8.47186E-05/
C     long 60deg, dec_so
      DATA (AMAG(5,4,J),J=1,49)/-9.00690E-04,
     &        2.49279E-03,-2.50027E-03, 5.20718E-04, 2.28190E-03,
     &       -3.46864E-03, 3.46244E-03, 2.28862E-04,-7.39846E-04,
     &        6.33830E-04,-8.46841E-06, 4.07378E-04,-6.56475E-05,
     &        1.06773E-03, 8.05479E-07,-6.95598E-05, 8.31653E-05,
     &       -3.04084E-04,-4.59666E-05, 5.11131E-04, 1.35783E-04,
     &       -1.06272E-04,-2.99731E-06,-1.43986E-04, 3.17134E-04,
     &        5.94528E-05,-8.77146E-06,-8.61055E-05,-3.92305E-05,
     &        1.16531E-04, 3.05400E-05,-4.96718E-05, 1.95104E-05,
     &        7.91392E-05,-1.99705E-04, 5.20282E-05, 5.92317E-05,
     &       -4.40489E-04, 4.23583E-05, 5.65865E-05,-2.67268E-04,
     &        9.94031E-05,-5.45743E-05, 3.04546E-05,-1.68476E-05,
     &        4.37807E-04,-4.08559E-05,-5.78020E-05,-1.21339E-04/
C     long 75deg, dec_so
      DATA (AMAG(6,4,J),J=1,49)/-9.09652E-04,
     &        2.53286E-03,-2.07534E-03, 3.43582E-04, 1.58251E-03,
     &       -2.92997E-03, 3.69843E-03, 4.35351E-05,-7.18938E-04,
     &        1.04106E-03,-2.03031E-04, 5.12180E-04,-3.45993E-05,
     &        9.78575E-04,-9.52898E-05, 1.08865E-05, 2.03390E-04,
     &       -3.83993E-04,-1.46141E-04, 7.46064E-04, 2.21140E-04,
     &       -2.37194E-05,-4.22888E-05,-1.26412E-04, 2.00486E-04,
     &        5.06555E-05, 4.19313E-05,-6.33542E-05,-1.52519E-04,
     &        4.15043E-05,-2.66656E-05, 5.90802E-05, 3.31808E-05,
     &       -2.76426E-04,-1.02821E-04, 5.11005E-05, 5.28380E-05,
     &       -2.98629E-04, 1.04959E-04, 7.60920E-05,-2.89607E-04,
     &        6.18091E-05,-1.06750E-05, 4.04302E-04,-8.06260E-05,
     &        5.29100E-04,-1.30722E-04,-1.20123E-04, 1.48828E-05/
C     long 90deg, dec_so
      DATA (AMAG(7,4,J),J=1,49)/-8.10225E-04,
     &        2.42111E-03,-1.95884E-03, 1.15936E-04, 1.54187E-03,
     &       -2.73246E-03, 3.41841E-03, 1.56902E-04,-7.45460E-04,
     &        1.26359E-03,-3.65060E-04, 6.04144E-04,-2.76565E-04,
     &        7.11671E-04,-3.02316E-05,-1.66415E-05, 2.35847E-04,
     &       -4.45208E-04,-2.90751E-05, 4.21631E-04, 2.26592E-04,
     &        5.46042E-05,-6.54762E-05,-1.10694E-04,-4.48684E-05,
     &        2.97075E-05,-5.06915E-06,-1.86373E-05,-1.77365E-04,
     &       -1.83460E-04,-3.36507E-05, 7.53150E-05, 4.31603E-06,
     &       -2.45573E-04, 1.12338E-04, 2.97902E-05, 3.45808E-05,
     &       -1.09149E-04, 5.64313E-05, 8.23646E-05,-1.61278E-04,
     &       -1.38380E-04, 4.19851E-07, 3.55659E-05,-1.14503E-04,
     &        2.78461E-04,-1.22337E-04,-6.12148E-05, 7.51493E-05/
C     long 105deg, dec_so
      DATA (AMAG(8,4,J),J=1,49)/-4.64489E-04,
     &        2.01868E-03,-1.47285E-03, 3.50309E-04, 4.27558E-04,
     &       -1.74760E-03, 2.45259E-03, 3.46135E-04,-5.94101E-04,
     &        1.02418E-03,-5.60846E-04, 6.80926E-04,-2.96957E-04,
     &        8.04702E-04,-2.45508E-04, 1.10221E-04,-9.79828E-06,
     &       -3.54152E-04,-2.69854E-05, 3.70896E-04, 1.14645E-04,
     &        5.44883E-05,-6.16341E-05,-8.51557E-05,-4.80274E-04,
     &        1.10134E-04,-1.52057E-05,-5.45934E-06,-1.54641E-04,
     &       -2.17539E-04,-9.21823E-05, 4.79943E-05,-5.29524E-05,
     &       -7.82916E-05, 3.92152E-05, 4.17465E-05, 2.20467E-05,
     &        2.62440E-06, 1.50644E-05, 9.45031E-05,-2.46606E-04,
     &       -7.80358E-05,-1.22467E-05,-4.00670E-04,-1.01119E-04,
     &        2.91190E-04,-1.02532E-04, 6.75012E-05, 4.54766E-05/
C     long 120deg, dec_so
      DATA (AMAG(9,4,J),J=1,49)/-4.55051E-04,
     &        1.88625E-03,-1.24640E-03, 6.46898E-04,-1.12574E-03,
     &       -5.69501E-04, 1.37865E-03, 7.49764E-04,-3.79615E-04,
     &        6.99363E-04,-5.98148E-04, 6.78356E-04,-1.52680E-04,
     &        1.04698E-03,-2.29471E-04, 8.79835E-05,-8.46889E-05,
     &       -2.90212E-04,-1.28213E-04, 5.71770E-04, 7.29181E-05,
     &        2.31244E-05,-5.54356E-05,-3.07900E-05,-6.17940E-04,
     &       -7.96112E-05, 4.33015E-05, 1.98873E-06,-1.85507E-04,
     &       -3.94320E-04,-7.00449E-05, 4.81726E-05,-5.86654E-05,
     &       -2.97904E-04, 3.11646E-05, 1.14059E-05, 5.48984E-06,
     &       -2.63838E-04,-9.92815E-05, 7.05413E-05,-2.28572E-06,
     &       -4.18362E-05,-5.01491E-06,-2.72142E-04,-1.57863E-05,
     &        2.97488E-04,-1.11524E-04,-2.07380E-04,-2.06199E-04/
C     long 135deg, dec_so
      DATA (AMAG(10,4,J),J=1,49)/-3.72561E-04,
     &        1.57578E-03,-1.05956E-03, 9.59684E-04,-2.26405E-03,
     &       -4.84277E-04, 4.03902E-04, 4.55286E-04,-3.31237E-04,
     &        4.58801E-04,-3.40517E-04, 4.97507E-04,-1.82657E-04,
     &        9.22332E-04, 1.15100E-05,-8.18924E-05,-1.16863E-05,
     &       -2.88822E-04,-7.78551E-06, 6.82306E-04, 4.66861E-05,
     &        1.08072E-04,-6.99664E-05,-3.85377E-05,-1.80600E-04,
     &       -1.53898E-04,-2.74696E-05, 3.81513E-05,-1.58865E-04,
     &       -2.56869E-04,-3.64710E-05, 1.23102E-05,-3.40867E-05,
     &       -1.91501E-04, 1.04281E-04,-6.15039E-05, 5.83147E-05,
     &       -3.27010E-04,-6.80800E-05, 3.74720E-05,-8.70911E-05,
     &       -4.82926E-05, 2.65541E-05, 2.14166E-05,-6.61567E-05,
     &        2.88003E-04,-1.36286E-04,-3.81333E-04,-3.35211E-04/
C     long 150deg, dec_so
      DATA (AMAG(11,4,J),J=1,49)/ 2.27001E-04,
     &        9.94864E-04,-1.11400E-03, 1.26128E-03,-3.74006E-03,
     &       -8.21659E-04, 3.34543E-04,-8.46324E-05,-1.89315E-04,
     &        2.74306E-04,-2.95080E-04, 3.48751E-04,-2.52241E-04,
     &        4.57169E-04, 1.42132E-04,-2.54830E-04, 1.20876E-04,
     &       -2.58305E-04, 3.98792E-05, 8.15792E-04,-7.04583E-05,
     &        1.77642E-04,-3.95006E-05,-8.61494E-05, 9.17300E-05,
     &       -1.05610E-04,-1.12382E-04, 7.93746E-05,-1.65137E-04,
     &        9.10191E-05,-2.06181E-05, 4.03022E-05,-1.03195E-05,
     &        2.73847E-04, 2.91196E-05,-3.03444E-05, 8.21620E-05,
     &        1.36642E-04, 7.31166E-05, 2.73177E-06,-4.19540E-04,
     &        9.40868E-05, 1.50589E-05,-1.72493E-04, 7.54932E-05,
     &        1.67452E-04,-1.26084E-04, 4.98218E-05,-6.90565E-05/
C     long 165deg, dec_so
      DATA (AMAG(12,4,J),J=1,49)/ 7.49063E-04,
     &        9.18716E-04,-1.94140E-03, 2.25172E-03,-4.55088E-03,
     &       -1.55179E-03, 1.00848E-03,-7.68394E-04, 8.56364E-05,
     &        2.49147E-04,-4.30510E-04, 2.90994E-04,-2.09547E-04,
     &        2.54509E-04, 5.11365E-04,-4.39107E-04, 1.17687E-04,
     &       -1.59952E-04,-6.50491E-05, 1.10661E-03,-1.78780E-05,
     &        1.83277E-04, 7.71173E-06,-1.37205E-04,-5.28904E-05,
     &       -9.97316E-06,-1.63869E-04, 2.46250E-05,-1.52573E-04,
     &       -1.29189E-04, 3.28468E-06, 5.10603E-05,-2.25359E-05,
     &        1.12035E-04,-6.46010E-05,-2.50667E-05, 5.59996E-05,
     &       -4.41999E-05, 6.02788E-05, 4.38025E-05,-2.18205E-04,
     &        1.02337E-04,-5.47424E-05, 5.85765E-05, 1.31032E-04,
     &        6.11227E-05,-3.58200E-05, 4.18529E-06, 2.73206E-04/
C     long 180deg, dec_so
      DATA (AMAG(13,4,J),J=1,49)/ 7.32698E-04,
     &        1.40312E-03,-2.74438E-03, 2.29888E-03,-3.47415E-03,
     &       -1.77154E-03, 1.80619E-03,-1.53479E-03, 5.06810E-04,
     &        2.45858E-04,-4.09914E-04, 4.03179E-04,-1.85086E-04,
     &        1.54153E-04, 7.97393E-04,-3.87553E-04, 2.33082E-05,
     &       -1.66721E-04,-8.50886E-05, 1.44903E-03,-9.02419E-05,
     &        1.35351E-04, 4.81480E-06,-8.97758E-05, 2.15354E-06,
     &        1.50745E-04,-2.20940E-04,-1.33282E-05,-8.75942E-05,
     &       -2.71599E-04, 5.30006E-05, 9.20907E-05,-6.00937E-05,
     &        9.42550E-05,-6.54415E-05,-5.60631E-05, 4.25486E-05,
     &       -1.74335E-04,-2.74328E-05, 4.85100E-05,-3.25175E-04,
     &        9.17032E-05,-1.05219E-04, 2.51109E-05,-4.22764E-05,
     &        9.30014E-05,-1.35344E-06,-3.53319E-05, 4.61305E-05/
C     long 195deg, dec_so
      DATA (AMAG(14,4,J),J=1,49)/ 5.79438E-04,
     &        1.64454E-03,-2.84072E-03, 1.72548E-03,-2.59211E-03,
     &       -1.16870E-03, 1.92571E-03,-1.15144E-03, 2.25254E-04,
     &        2.99473E-04,-2.98488E-04, 4.27374E-04,-1.72092E-04,
     &       -1.75769E-05, 6.81880E-04,-1.18565E-04, 8.94657E-05,
     &       -3.01204E-04,-4.87431E-05, 1.66709E-03,-1.66175E-04,
     &        4.66099E-05, 2.04212E-05,-9.32093E-05, 2.02368E-04,
     &        1.30067E-04,-3.52391E-04, 5.96747E-05,-5.80937E-05,
     &        6.95452E-06,-4.67926E-05, 1.07842E-04,-3.01277E-05,
     &        1.52872E-04, 5.57937E-05,-1.11716E-05, 3.57829E-05,
     &        1.50087E-04, 4.10967E-05, 3.07214E-06,-4.54050E-04,
     &        1.57570E-05,-3.46494E-05,-3.66105E-04,-3.97712E-05,
     &       -1.34006E-04, 1.64772E-04,-1.85705E-04,-6.25986E-05/
C     long 210deg, dec_so
      DATA (AMAG(15,4,J),J=1,49)/ 3.03699E-04,
     &        1.80532E-03,-2.19614E-03, 1.34764E-03,-1.98401E-03,
     &       -8.44331E-04, 1.46345E-03,-2.32141E-04, 1.86101E-04,
     &        7.83034E-05,-1.79799E-04, 3.38598E-04,-1.28715E-04,
     &       -2.54849E-04, 5.57072E-04,-2.58867E-04, 4.32857E-05,
     &       -1.90546E-04,-3.84291E-05, 1.35499E-03,-1.30031E-04,
     &        1.98676E-05, 8.73629E-05,-1.55706E-04,-4.23641E-04,
     &        1.80776E-04,-3.34419E-04, 5.64974E-05,-8.33258E-06,
     &        1.43787E-05,-2.33742E-04, 5.76948E-05,-3.35695E-05,
     &       -7.93652E-05, 1.28315E-04,-4.83760E-05, 1.45180E-05,
     &        2.05668E-04, 1.21710E-04, 3.75771E-06,-1.29771E-04,
     &       -5.53576E-05, 6.50883E-05,-1.42914E-04,-7.82037E-05,
     &        7.56564E-05, 1.20374E-04,-4.47576E-04,-1.43500E-05/
C     long 225deg, dec_so
      DATA (AMAG(16,4,J),J=1,49)/-5.20102E-05,
     &        2.06705E-03,-1.76214E-03, 4.70582E-04,-1.55480E-03,
     &       -3.25394E-04, 1.60302E-03, 1.95359E-04, 4.70181E-04,
     &       -2.01477E-04,-4.95188E-05, 3.10374E-04,-2.36997E-04,
     &       -6.45053E-04, 7.83149E-04,-3.77388E-04,-3.91663E-05,
     &       -1.00141E-04,-1.25611E-04, 1.07131E-03,-1.36348E-04,
     &       -4.46144E-05, 7.19897E-05,-1.24078E-04,-3.06681E-04,
     &        2.12138E-04,-2.45823E-04, 2.10780E-05, 4.53140E-05,
     &        1.23913E-04,-2.77440E-04, 2.77666E-05,-4.65043E-05,
     &       -6.10312E-05, 1.71734E-05,-5.71655E-05, 2.73570E-05,
     &        2.86998E-04, 2.06406E-06, 2.81123E-06,-5.57240E-04,
     &       -4.12618E-05, 6.27451E-05,-3.00756E-04,-9.14445E-05,
     &        3.50603E-04,-1.02586E-04,-4.25246E-04,-2.82867E-04/
C     long 240deg, dec_so
      DATA (AMAG(17,4,J),J=1,49)/-3.28131E-05,
     &        1.87435E-03,-1.59702E-03, 1.15440E-04,-1.68331E-03,
     &       -1.63371E-04, 1.44978E-03,-9.25243E-05, 7.76613E-04,
     &       -1.89138E-04,-1.77797E-04, 1.89889E-04,-2.06780E-04,
     &       -4.75835E-04, 8.21594E-04,-9.55704E-05,-5.72759E-05,
     &       -1.42563E-04,-1.73569E-04, 1.02059E-03,-7.04388E-05,
     &       -9.11987E-05, 8.69761E-05,-1.31010E-04,-1.91551E-04,
     &       -5.07339E-05,-2.73715E-04, 1.20592E-04, 5.72890E-05,
     &        1.64071E-04,-3.67653E-04, 5.39250E-05, 1.58542E-06,
     &        1.19696E-04, 1.77788E-05,-7.04672E-05, 5.67172E-05,
     &        3.22255E-04, 6.78405E-05, 1.76830E-05,-4.43365E-04,
     &       -1.12600E-05, 4.08877E-05,-4.32860E-04,-7.05217E-05,
     &       -5.47103E-05,-5.88810E-05,-6.14939E-05,-2.81129E-04/
C     long 255deg, dec_so
      DATA (AMAG(18,4,J),J=1,49)/ 2.92379E-04,
     &        1.45198E-03,-1.55096E-03, 5.37473E-04,-1.78109E-03,
     &       -9.12487E-04, 2.00517E-03,-5.08767E-04, 7.86391E-04,
     &       -1.62237E-04,-1.53134E-04, 6.31174E-05,-1.39249E-04,
     &       -7.11412E-05, 7.08226E-04,-1.55797E-04,-7.33158E-05,
     &       -1.47519E-04,-8.46128E-05, 5.51323E-04, 2.09759E-04,
     &       -1.96296E-04, 6.62749E-05,-1.32565E-04,-1.80110E-04,
     &       -2.69136E-04,-1.32830E-04, 7.16861E-05, 6.09823E-05,
     &        2.10751E-05,-3.18463E-04, 1.28878E-04,-3.82489E-05,
     &        4.27601E-04,-3.07300E-05,-1.38467E-04, 8.71677E-06,
     &       -9.84884E-05, 9.92716E-05, 2.42327E-05,-1.33191E-04,
     &       -4.55818E-05, 6.05653E-05,-1.89608E-04,-2.41293E-05,
     &       -1.18235E-04, 7.67256E-06, 1.85493E-04,-3.06824E-04/
C     long 270deg, dec_so
      DATA (AMAG(19,4,J),J=1,49)/ 3.86556E-04,
     &        1.14650E-03,-7.18723E-04, 1.48335E-04,-2.07483E-03,
     &       -1.26129E-03, 2.38013E-03,-5.33467E-04, 4.82010E-04,
     &       -1.76703E-04,-9.73030E-05, 1.55895E-04,-1.68986E-04,
     &        1.81398E-04, 3.81477E-04,-2.10585E-04,-1.73254E-04,
     &       -1.65114E-04, 5.05291E-05, 3.48636E-04, 1.21365E-04,
     &       -2.05397E-04,-2.97816E-05,-9.48450E-05, 8.95692E-05,
     &        9.53403E-05,-9.44892E-05,-3.74792E-05, 7.72874E-05,
     &       -1.92404E-04,-1.37582E-04, 8.81918E-05,-5.62144E-05,
     &        2.87485E-04,-7.56027E-05,-5.60735E-05,-2.80805E-05,
     &        1.21148E-04,-8.59696E-06, 2.22099E-05, 7.11044E-05,
     &       -1.67289E-04, 2.51127E-05,-1.64946E-04, 3.65173E-05,
     &       -3.82220E-05,-3.83723E-05, 1.01114E-04,-3.39041E-04/
C     long 285deg, dec_so
      DATA (AMAG(20,4,J),J=1,49)/ 1.97430E-04,
     &        7.77485E-04, 5.36465E-04,-3.83933E-04,-2.05254E-03,
     &       -9.45714E-04, 1.79501E-03,-3.83494E-04, 5.42069E-04,
     &       -5.03990E-05,-3.24393E-04, 1.54121E-04,-1.06702E-04,
     &        3.83014E-04, 2.26494E-04,-2.73990E-04,-1.71203E-04,
     &       -1.88847E-04, 8.35051E-05,-1.41356E-05,-6.02979E-07,
     &       -1.11092E-04,-8.24714E-05, 2.80778E-06,-1.51397E-04,
     &        2.63598E-04,-8.24300E-05,-1.91398E-05, 1.04305E-04,
     &       -1.34596E-04,-1.95660E-05,-2.39859E-05, 5.40526E-06,
     &        2.71259E-04,-1.15008E-04, 4.48013E-05,-1.26660E-05,
     &        3.15074E-04, 1.64441E-06, 2.32314E-05,-1.40491E-04,
     &       -2.60363E-04, 9.71794E-06,-1.86488E-04, 2.45443E-05,
     &       -3.31857E-04,-7.42033E-05, 1.26358E-04,-2.51754E-04/
C     long 300deg, dec_so
      DATA (AMAG(21,4,J),J=1,49)/ 2.79146E-04,
     &        3.95250E-04, 1.25040E-03, 8.95866E-06,-2.14448E-03,
     &       -1.14105E-03, 1.62420E-03,-3.36183E-04, 5.12405E-04,
     &        2.69364E-05,-3.99197E-04, 9.91745E-05,-4.68613E-05,
     &        7.31485E-04,-9.88785E-06,-2.29921E-04,-2.63387E-05,
     &       -2.81894E-04, 1.08865E-04,-4.92758E-04,-1.44234E-04,
     &       -2.54398E-05,-3.24040E-05, 4.60125E-05,-3.71158E-04,
     &        6.86130E-05, 1.68977E-05,-7.19578E-05, 8.34479E-05,
     &        3.73104E-04, 3.96606E-05,-4.51648E-05,-4.82137E-06,
     &        6.87968E-04,-1.19195E-04, 2.17257E-05,-2.19160E-05,
     &        4.34098E-04,-6.85156E-07, 2.70246E-05,-7.71549E-04,
     &       -2.69787E-04, 2.05727E-05,-3.52512E-04,-4.33974E-05,
     &       -3.11411E-04,-6.92551E-05,-4.37541E-05,-4.73475E-04/
C     long 315deg, dec_so
      DATA (AMAG(22,4,J),J=1,49)/ 5.70410E-04,
     &        1.62948E-04, 1.37013E-03, 7.32011E-04,-2.22603E-03,
     &       -1.34059E-03, 1.69366E-03,-2.12367E-04, 1.01031E-04,
     &        2.26331E-04,-2.38472E-04, 4.41887E-05, 1.24898E-05,
     &        7.32045E-04,-3.17373E-04,-1.66632E-04, 7.63429E-05,
     &       -3.84300E-04, 1.22329E-04, 8.91183E-05,-3.34525E-04,
     &        7.31152E-05, 2.69651E-05, 4.60289E-05,-4.26212E-06,
     &        4.18291E-05, 4.75583E-05,-1.36432E-04, 3.95653E-05,
     &        4.08052E-04,-4.57286E-05, 5.89330E-05,-5.18558E-05,
     &        5.27639E-04,-6.35590E-05, 4.00451E-06,-1.47468E-05,
     &        3.56551E-04, 7.26192E-05, 2.52559E-05,-5.12979E-04,
     &       -6.54153E-05,-4.67917E-06,-3.64716E-04,-4.72179E-05,
     &       -1.83785E-04,-5.51031E-05,-6.10582E-05,-3.95837E-04/
C     long 330deg, dec_so
      DATA (AMAG(23,4,J),J=1,49)/ 7.35459E-04,
     &        3.08408E-05, 1.08915E-03, 1.06677E-03,-2.27856E-03,
     &       -1.40417E-03, 2.32829E-03,-1.73393E-04, 1.37112E-04,
     &        2.16597E-04,-2.03509E-04, 2.29348E-04, 4.39698E-05,
     &        2.24918E-04,-9.05213E-05,-1.43701E-04,-1.26634E-04,
     &       -3.86254E-04, 1.84325E-04, 7.36811E-05,-2.31767E-04,
     &        1.49790E-04, 3.12405E-05, 2.44937E-05, 1.70698E-05,
     &        1.99703E-04,-2.67955E-05,-1.74031E-04, 3.34467E-05,
     &        4.21725E-04,-2.02267E-04, 9.31164E-05,-4.18392E-05,
     &        3.13959E-04,-2.29580E-04, 4.19886E-05, 5.05424E-06,
     &        1.11791E-04, 2.05919E-04,-2.32512E-05,-9.07537E-05,
     &        1.25225E-04,-2.96036E-06,-6.07540E-04,-2.42906E-05,
     &        1.14679E-04, 1.58140E-05, 2.88800E-04,-8.72102E-06/
C     long 345deg, dec_so
      DATA (AMAG(24,4,J),J=1,49)/ 3.58707E-04,
     &        2.10618E-04, 3.08936E-04, 7.42286E-04,-1.23380E-03,
     &       -1.83983E-03, 2.55031E-03,-8.10776E-04, 5.25403E-04,
     &        3.28116E-05,-2.82407E-04, 4.87934E-04,-2.50561E-04,
     &        4.60806E-05, 4.07323E-04,-4.53670E-05,-3.40070E-04,
     &       -2.50041E-04, 2.47099E-04,-1.91057E-05,-4.79641E-05,
     &        1.78172E-04,-8.02459E-05,-1.55561E-05,-1.88329E-04,
     &        2.89387E-04,-8.19276E-05,-1.06242E-04, 4.60137E-05,
     &        2.47444E-04,-2.63540E-04, 6.51103E-05,-9.84778E-06,
     &        4.57027E-04,-1.39812E-04, 5.88954E-05,-2.59193E-05,
     &        5.77964E-05, 2.21436E-04,-5.66704E-05,-3.37228E-04,
     &        1.09228E-04, 2.57498E-05,-3.86343E-04,-3.65570E-05,
     &        1.91631E-04, 4.07392E-05, 4.13580E-04, 1.24158E-04/
C     long 0deg, mar_eq
      DATA (BMAG(1,1,J),J=1,49)/-5.07734E-03,
     &        2.14736E-04,-7.91469E-03,-1.40870E-02, 3.69081E-03,
     &        3.50949E-02,-3.09756E-02, 3.55318E-03,-4.64820E-03,
     &       -1.32886E-04, 3.30157E-03,-3.96341E-03, 6.13856E-04,
     &       -9.62478E-03,-2.44320E-03, 6.86374E-03,-2.30048E-03,
     &        3.52678E-03, 8.15175E-04,-7.79728E-03, 9.58559E-04,
     &       -3.02144E-03,-2.67597E-04, 1.86096E-03, 6.86996E-03,
     &        3.95423E-04, 2.10306E-03, 1.70589E-03,-1.21003E-03,
     &       -1.21154E-03, 2.31426E-03,-3.07602E-04,-1.68826E-04,
     &       -5.71803E-03, 1.60726E-03,-2.93350E-04, 3.18194E-04,
     &        2.14189E-03,-2.81148E-03, 6.04478E-04, 6.43462E-03,
     &        1.71813E-03,-2.36686E-04, 2.78683E-03, 2.38995E-03,
     &        6.42564E-04,-2.31763E-04, 4.86005E-04, 1.00702E-03/
C     long 15deg, mar_eq
      DATA (BMAG(2,1,J),J=1,49)/-4.47924E-03,
     &       -1.14026E-02,-2.46358E-03, 2.51423E-03,-1.31657E-02,
     &        4.00579E-02,-2.87001E-02,-3.21220E-03, 1.05501E-03,
     &       -5.61159E-03,-4.11904E-04,-1.44992E-03, 2.24147E-03,
     &       -1.19570E-02,-1.98920E-03, 6.20630E-03,-2.70192E-03,
     &        4.83706E-03, 8.59609E-05,-8.72450E-03,-2.02214E-03,
     &       -1.39485E-03,-6.02065E-04, 1.29889E-03, 9.12012E-03,
     &        2.65878E-03, 2.26630E-03, 9.33965E-04,-6.07800E-04,
     &        5.56804E-03,-2.56753E-04, 8.67053E-04, 2.07580E-04,
     &       -5.96757E-03,-1.49234E-03,-1.12564E-03, 1.06116E-03,
     &        2.96510E-04,-9.42673E-04,-1.61862E-04, 1.55273E-03,
     &        1.68208E-03,-2.08821E-04, 1.44751E-03, 1.26608E-03,
     &        2.31534E-03,-7.49954E-04, 2.68166E-03, 9.42339E-04/
C     long 30deg, mar_eq
      DATA (BMAG(3,1,J),J=1,49)/-1.18418E-03,
     &       -1.43850E-02,-8.73176E-05, 1.18517E-03,-1.65097E-02,
     &        4.15941E-02,-2.42652E-02,-1.03143E-02, 3.62672E-03,
     &       -6.87609E-03,-2.11457E-03, 1.09587E-03, 2.77912E-03,
     &       -1.36967E-02,-4.21491E-04, 5.15457E-03,-2.20781E-03,
     &        4.09988E-03,-6.03002E-04,-1.11711E-02,-4.28808E-03,
     &       -3.57337E-04,-5.76391E-04, 1.09544E-03, 7.94088E-03,
     &        3.84451E-03, 1.75737E-03,-1.89896E-04, 1.57222E-04,
     &        6.35223E-03, 3.55451E-04, 1.42101E-03, 1.34905E-04,
     &       -4.01264E-03,-1.80242E-03,-4.62295E-04, 1.25573E-03,
     &       -4.34587E-03,-1.15580E-06, 4.53205E-04, 5.25678E-03,
     &        2.14451E-03,-2.31905E-04, 3.02764E-03, 1.20587E-03,
     &       -1.08422E-03,-2.50442E-03, 6.11825E-03, 1.68868E-03/
C     long 45deg, mar_eq
      DATA (BMAG(4,1,J),J=1,49)/ 3.95205E-04,
     &       -1.77787E-02, 1.17200E-03,-1.44781E-03,-1.13486E-02,
     &        3.09920E-02,-2.27608E-02,-1.30511E-02, 3.53108E-03,
     &       -6.08845E-03,-7.19535E-04, 1.65341E-03, 6.00192E-04,
     &       -1.40158E-02, 1.23265E-03, 3.89873E-03, 3.26517E-04,
     &        3.48895E-03,-4.68029E-04,-1.02371E-02,-3.98469E-03,
     &        1.25606E-05,-1.58851E-04, 1.11756E-03, 8.19216E-04,
     &        2.03643E-03, 2.74685E-03,-4.62307E-04, 1.46410E-03,
     &        4.52513E-03, 2.10343E-04, 8.88051E-04, 3.32870E-04,
     &       -1.38213E-03,-5.43415E-04, 4.40860E-04, 6.98180E-04,
     &       -3.20230E-03, 2.96198E-04, 1.04790E-03, 6.42524E-03,
     &        3.23585E-03,-3.41083E-04, 6.21259E-03, 1.46367E-03,
     &        8.44676E-04,-1.14347E-03, 6.95564E-03,-1.22866E-03/
C     long 60deg, mar_eq
      DATA (BMAG(5,1,J),J=1,49)/ 5.71885E-03,
     &       -2.31696E-02,-3.95145E-03, 3.12454E-03,-3.20309E-04,
     &        2.18225E-02,-2.55877E-02,-1.10957E-02, 3.78313E-03,
     &       -6.45027E-03, 4.42271E-04,-4.73811E-04, 1.68677E-04,
     &       -1.31676E-02, 9.71718E-04, 2.02298E-03, 1.34842E-03,
     &        4.49567E-03,-1.31888E-03,-8.33700E-03,-3.39351E-03,
     &       -2.65050E-04,-9.23312E-04, 9.93442E-04, 9.64884E-04,
     &       -4.68233E-04, 3.17362E-03, 4.84809E-04, 1.34953E-03,
     &        5.83248E-03, 1.04551E-03, 5.23641E-04,-3.76577E-05,
     &       -4.76387E-04,-4.36105E-04,-3.75466E-04, 7.63271E-04,
     &        8.88331E-04,-1.40606E-03, 2.69397E-04, 3.42777E-03,
     &        1.87753E-03,-6.57235E-04, 1.19492E-02,-1.39718E-04,
     &        2.07844E-03, 1.50934E-03, 2.97009E-03,-1.79953E-03/
C     long 75deg, mar_eq
      DATA (BMAG(6,1,J),J=1,49)/ 8.97207E-03,
     &       -2.26091E-02,-4.13104E-03, 3.43846E-03,-6.77215E-04,
     &        1.97735E-02,-1.88833E-02,-4.43591E-03, 5.30198E-03,
     &       -7.51738E-03, 9.79321E-04,-3.21907E-03, 7.79561E-04,
     &       -1.73626E-02, 3.36377E-03, 6.60209E-04,-1.14725E-03,
     &        5.63945E-03,-1.21228E-03,-1.02868E-02,-2.30268E-03,
     &        5.53394E-05,-1.09862E-03, 1.64544E-03,-3.01685E-04,
     &       -2.39246E-04, 3.34797E-03,-3.01174E-04, 9.56979E-04,
     &        4.46781E-03, 1.48575E-03,-5.88691E-04,-3.47470E-04,
     &       -8.69060E-04,-5.67640E-04,-4.37504E-04, 7.50635E-04,
     &        2.35242E-03,-3.56883E-03,-5.91588E-04, 4.81365E-03,
     &        7.05195E-06,-3.73091E-04, 1.13541E-02,-4.79104E-04,
     &       -2.14283E-03, 4.38902E-04,-2.69802E-03,-1.51879E-03/
C     long 90deg, mar_eq
      DATA (BMAG(7,1,J),J=1,49)/ 6.46841E-03,
     &       -1.74447E-02,-3.29897E-03,-1.27174E-04,-6.47717E-03,
     &        1.59757E-02,-1.48155E-02,-2.67175E-03, 9.33483E-03,
     &       -9.25703E-03, 3.27791E-03,-6.55241E-03, 1.92614E-04,
     &       -1.53582E-02, 4.55391E-03,-2.50613E-04,-2.44154E-03,
     &        6.44337E-03,-1.68945E-03,-1.00164E-02,-3.16712E-03,
     &        4.53296E-04,-8.89126E-04, 1.55992E-03,-5.69007E-03,
     &        5.83528E-04, 3.64648E-03,-1.51761E-03, 2.22237E-03,
     &        7.60332E-04, 1.06409E-03,-1.42297E-03, 3.31749E-04,
     &        2.36034E-03, 5.86217E-04,-8.34155E-04, 4.77687E-04,
     &        2.15834E-03,-6.36652E-04,-5.82314E-04, 5.94797E-03,
     &        2.44755E-03, 6.54580E-04, 9.93351E-03,-6.96524E-04,
     &       -5.21914E-03,-1.72906E-03,-3.51191E-03,-1.34712E-03/
C     long 105deg, mar_eq
      DATA (BMAG(8,1,J),J=1,49)/ 8.30711E-03,
     &       -1.30367E-02,-9.46729E-03,-4.51035E-03, 4.45371E-03,
     &        8.38888E-03,-1.27388E-02,-4.94485E-03, 1.18596E-02,
     &       -1.29592E-02, 6.02197E-03,-6.35143E-03, 9.30634E-04,
     &       -1.23118E-02, 2.50391E-03,-7.14478E-04, 1.43956E-04,
     &        5.79423E-03,-1.85312E-03,-9.54640E-03,-4.77299E-03,
     &        2.89578E-04,-1.48876E-03, 1.27097E-03, 1.95854E-04,
     &       -1.60032E-03, 2.83599E-03,-4.78313E-04, 2.56487E-03,
     &        2.12500E-04, 1.81438E-04,-1.10544E-03, 7.05334E-04,
     &       -1.87812E-03, 2.39905E-03,-4.75206E-04, 2.70572E-04,
     &        1.25144E-03, 8.92066E-04, 2.26834E-05, 5.07283E-03,
     &        1.92006E-03, 7.30282E-04, 3.12550E-03,-3.14774E-04,
     &       -5.05055E-03,-2.20531E-03, 1.86394E-03, 1.81800E-03/
C     long 120deg, mar_eq
      DATA (BMAG(9,1,J),J=1,49)/ 3.91966E-03,
     &       -6.10480E-03,-7.91881E-03,-1.36724E-02, 2.31742E-02,
     &        9.63629E-03,-9.04293E-03,-9.71460E-03, 1.29924E-02,
     &       -1.35661E-02, 7.04518E-03,-4.26784E-03, 2.06820E-03,
     &       -9.51467E-03, 2.20499E-03,-3.79873E-04, 2.04323E-03,
     &        3.94244E-03,-4.64274E-04,-6.44818E-03,-5.32672E-03,
     &       -2.31260E-04,-1.01009E-03, 1.49908E-03, 4.64280E-03,
     &       -1.01790E-03, 3.21582E-03,-1.09961E-04, 1.98918E-03,
     &        1.22127E-03, 5.84716E-04,-5.49511E-04, 7.86997E-04,
     &        7.86470E-04, 2.62294E-03, 2.33779E-04,-3.38845E-04,
     &        3.43039E-03,-7.83188E-04, 7.67848E-04, 3.21461E-04,
     &        2.46078E-03,-4.90803E-05,-1.56840E-03, 3.56295E-04,
     &       -5.72017E-04,-2.67466E-03, 6.96032E-03, 3.05548E-03/
C     long 135deg, mar_eq
      DATA (BMAG(10,1,J),J=1,49)/-2.40666E-03,
     &        5.62026E-04,-5.10008E-03,-1.55199E-02, 3.28730E-02,
     &        9.95253E-03,-5.31163E-04,-1.40685E-02, 1.20914E-02,
     &       -1.02475E-02, 7.68592E-03,-1.37695E-03,-2.19105E-04,
     &       -5.68472E-03, 4.77343E-03, 8.28636E-04, 3.47400E-04,
     &        4.14428E-03,-3.16158E-04,-4.18390E-03,-3.00967E-03,
     &       -1.01699E-03,-2.96993E-04, 1.07145E-03, 5.62804E-03,
     &        8.87183E-04, 3.17236E-03,-2.73430E-04, 1.79450E-03,
     &       -1.55420E-03, 9.39751E-04,-3.43496E-04, 1.10866E-03,
     &        2.36479E-03, 2.88363E-03, 7.71285E-04,-8.95959E-04,
     &        9.69092E-03,-2.86827E-03, 7.47714E-04,-4.57843E-03,
     &        2.40038E-03,-4.04894E-04,-4.25186E-03,-1.63791E-04,
     &        1.41196E-03,-7.95156E-04, 6.95591E-03, 7.58918E-04/
C     long 150deg, mar_eq
      DATA (BMAG(11,1,J),J=1,49)/-5.21959E-03,
     &        4.92528E-03,-5.17854E-03,-9.93030E-03, 3.84436E-02,
     &       -1.08043E-03, 1.21579E-02,-1.06293E-02, 1.41832E-02,
     &       -8.83622E-03, 7.23356E-03,-1.66566E-04,-5.79283E-04,
     &       -8.90337E-03, 4.95266E-03,-7.80237E-04, 4.72572E-04,
     &        4.83634E-03,-1.10467E-03,-4.86661E-03,-6.79578E-04,
     &       -2.47383E-03, 7.60922E-04, 2.93388E-04, 3.73610E-03,
     &       -8.54697E-05, 4.07307E-03,-5.04175E-04, 1.15781E-03,
     &       -2.97308E-04, 9.62248E-05,-7.42895E-04, 9.72687E-04,
     &       -4.44126E-03, 1.13891E-03, 4.74897E-04,-8.70665E-04,
     &        1.11427E-02,-2.67818E-03, 8.38046E-04, 5.41323E-03,
     &       -3.26837E-04, 1.99358E-05,-2.50865E-03,-1.61044E-03,
     &       -2.29894E-03,-1.05694E-03, 3.67719E-03, 5.00219E-04/
C     long 165deg, mar_eq
      DATA (BMAG(12,1,J),J=1,49)/-8.74807E-03,
     &        5.28107E-03,-7.22840E-03,-6.47649E-03, 4.32001E-02,
     &       -6.09890E-03, 1.06848E-02,-8.57301E-03, 1.85800E-02,
     &       -8.65739E-03, 3.38631E-03, 9.67227E-04, 1.02295E-03,
     &       -1.09925E-02, 5.77548E-03, 1.26740E-04,-1.19248E-03,
     &        3.56206E-03,-1.30158E-03,-6.86661E-03, 2.41166E-03,
     &       -2.36241E-03, 1.17090E-03,-1.88501E-04, 2.22857E-03,
     &        5.29818E-04, 3.32848E-03,-6.34033E-04, 5.39491E-04,
     &        5.60121E-03, 1.55303E-03,-8.07231E-04, 6.76727E-04,
     &       -5.41137E-03,-2.87126E-03, 2.03256E-04,-4.72251E-05,
     &        7.87256E-03,-1.38286E-03, 7.85756E-04, 4.64385E-03,
     &        3.02946E-04, 6.34817E-04,-4.22053E-04, 9.87036E-06,
     &       -1.88943E-04,-2.58032E-03, 7.01117E-03, 3.18874E-03/
C     long 180deg, mar_eq
      DATA (BMAG(13,1,J),J=1,49)/-1.39764E-02,
     &        5.79519E-04,-6.70301E-03,-1.19509E-03, 4.24365E-02,
     &       -6.82169E-03, 4.50256E-04,-1.33941E-03, 1.74107E-02,
     &       -9.62518E-03, 6.79523E-04, 2.74151E-03,-8.91659E-04,
     &       -5.54456E-03, 8.08145E-03, 6.55748E-04,-4.30989E-03,
     &        3.46753E-03,-9.90570E-04,-9.22678E-03, 3.10612E-03,
     &       -2.77781E-03, 3.95153E-04, 8.89389E-04, 6.76117E-03,
     &        1.71268E-03, 2.26280E-03, 7.13967E-04,-5.42476E-05,
     &        1.63935E-03, 2.03844E-03,-9.45923E-04, 8.76478E-04,
     &       -8.93515E-03,-2.24955E-03, 3.76849E-04, 3.60286E-04,
     &        6.90507E-03,-5.17593E-04, 4.76134E-04, 1.38046E-03,
     &        5.15178E-05, 7.56334E-04,-4.87988E-03, 1.92616E-03,
     &        7.06106E-04,-6.86942E-04, 7.43875E-03, 8.69278E-04/
C     long 195deg, mar_eq
      DATA (BMAG(14,1,J),J=1,49)/-1.69636E-02,
     &       -4.10094E-03,-5.99175E-03, 6.47804E-03, 3.91740E-02,
     &       -1.46683E-02,-6.33571E-04, 8.00663E-03, 1.40049E-02,
     &       -9.68212E-03, 3.94020E-05, 2.67879E-03,-3.00668E-03,
     &       -6.77290E-03, 6.48512E-03, 2.80215E-04,-3.59330E-03,
     &        5.20508E-03,-7.93304E-04,-1.15270E-02,-7.13716E-04,
     &       -4.12592E-03, 9.37753E-04, 1.83943E-03, 9.01249E-03,
     &        2.13501E-03, 1.99704E-03, 7.48761E-04,-2.04746E-04,
     &        6.68272E-04, 1.72960E-03,-5.17374E-04, 5.20991E-04,
     &       -1.33464E-02,-2.58436E-04, 2.67190E-04, 2.53167E-04,
     &        2.90687E-03, 2.49581E-03, 8.88922E-04, 1.09669E-03,
     &        1.32040E-03, 2.49531E-04,-4.28646E-03, 3.87001E-04,
     &        9.70693E-04,-1.94874E-03, 6.59638E-05,-8.92051E-05/
C     long 210deg, mar_eq
      DATA (BMAG(15,1,J),J=1,49)/-1.67179E-02,
     &       -3.02376E-03,-1.04095E-02, 9.59692E-03, 3.68801E-02,
     &       -2.05276E-02, 1.88328E-03,-1.26923E-03, 1.38891E-02,
     &       -5.97249E-03, 2.63732E-04, 5.19740E-05,-3.62260E-03,
     &       -1.33720E-02, 6.23271E-03, 1.46942E-03,-3.70845E-03,
     &        6.13283E-03, 5.76579E-04,-1.12383E-02,-1.08173E-03,
     &       -5.07357E-03, 9.00353E-04, 1.89420E-03, 6.92640E-03,
     &        6.10134E-04, 1.81569E-03, 6.71287E-06, 8.24205E-04,
     &        4.65896E-03, 4.85347E-04, 1.00180E-04,-2.95863E-04,
     &       -1.27238E-02, 6.42657E-04,-1.04581E-03, 3.80726E-04,
     &       -6.65022E-03, 4.28559E-03, 9.41477E-05, 5.06528E-03,
     &        1.83196E-03, 1.96992E-04,-1.37147E-03, 3.26799E-04,
     &       -1.24639E-04,-2.09170E-03, 5.39302E-03, 3.26464E-03/
C     long 225deg, mar_eq
      DATA (BMAG(16,1,J),J=1,49)/-1.52942E-02,
     &        2.67518E-03,-1.37841E-02, 1.69388E-03, 3.16502E-02,
     &       -1.53579E-02,-5.05164E-03,-9.34117E-03, 1.00143E-02,
     &       -3.68600E-03, 1.66670E-03,-7.87059E-04,-4.08173E-03,
     &       -1.20169E-02, 6.49256E-03, 2.33605E-03,-4.78055E-03,
     &        6.33001E-03, 1.87641E-03,-1.11204E-02, 2.13016E-03,
     &       -3.47491E-03, 9.36910E-04, 1.22508E-03, 4.10497E-03,
     &        8.46120E-04, 2.11280E-03, 8.54001E-04, 4.70566E-04,
     &        6.65497E-03,-6.75754E-04, 6.28470E-04,-4.08465E-04,
     &       -3.02164E-03,-9.36606E-04,-9.48852E-04,-5.77695E-05,
     &       -1.97625E-03, 1.94482E-03, 6.63001E-04, 8.15046E-03,
     &        3.79280E-04, 1.18377E-03,-2.38052E-03, 1.53090E-03,
     &       -2.88964E-03,-1.47888E-03, 5.46732E-03, 1.52233E-03/
C     long 240deg, mar_eq
      DATA (BMAG(17,1,J),J=1,49)/-1.32608E-02,
     &        8.26285E-03,-7.19354E-03,-1.03521E-02, 2.31804E-02,
     &       -8.44673E-03,-1.16070E-02,-6.05508E-03, 5.00800E-03,
     &       -1.93330E-03, 4.10630E-04,-4.98125E-04,-1.63344E-03,
     &       -1.12945E-02, 2.04323E-03, 4.89966E-03,-3.60916E-03,
     &        4.06530E-03, 1.81542E-03,-1.24803E-02, 1.14120E-03,
     &       -1.94698E-03, 1.09246E-03, 1.00537E-03, 2.04309E-03,
     &        1.72404E-03, 1.00722E-03, 1.26440E-03,-7.36672E-05,
     &        4.39926E-03,-3.23478E-04, 6.22591E-04, 6.23189E-05,
     &        2.52551E-03,-3.56563E-03, 3.38778E-04,-3.92984E-04,
     &        3.53554E-03,-4.70299E-05, 1.37432E-03, 5.40866E-03,
     &        2.49277E-03, 7.19006E-04,-2.87328E-03, 1.68914E-03,
     &       -2.79649E-03,-2.09087E-03,-4.93618E-04, 4.45564E-05/
C     long 255deg, mar_eq
      DATA (BMAG(18,1,J),J=1,49)/-1.03505E-02,
     &        1.14866E-02, 3.29850E-03,-1.19355E-02, 1.83168E-02,
     &       -1.87516E-04,-8.23032E-03, 8.15860E-04, 6.55797E-03,
     &       -4.35106E-04,-1.18200E-03,-2.08636E-04, 9.44669E-04,
     &       -1.16490E-02,-2.87955E-03, 3.34669E-03,-1.80550E-03,
     &        2.15448E-03,-4.84297E-04,-1.28203E-02,-2.14953E-03,
     &       -8.80082E-04, 5.48500E-04, 1.13488E-03,-1.54964E-03,
     &       -1.17588E-03, 1.36068E-03,-2.26485E-04, 3.66240E-04,
     &        2.75915E-03,-2.24187E-04,-1.77262E-04, 5.78665E-04,
     &        3.28667E-03,-1.66206E-03,-1.61494E-04,-6.51994E-05,
     &        8.41540E-04, 8.41891E-04, 5.83180E-04, 2.75622E-03,
     &        2.93335E-03,-2.79222E-04,-2.74201E-03,-2.79928E-04,
     &       -1.98850E-03,-2.31578E-03, 5.69980E-03, 4.04851E-03/
C     long 270deg, mar_eq
      DATA (BMAG(19,1,J),J=1,49)/-8.66186E-03,
     &        8.31264E-03, 3.28228E-03,-6.80186E-03, 1.75229E-02,
     &        2.50557E-04,-1.34503E-02, 2.50778E-04, 7.19310E-03,
     &        1.02242E-03,-2.48340E-03, 1.19451E-03, 8.33683E-04,
     &       -7.76404E-03, 5.49023E-04,-3.05135E-04,-1.62735E-03,
     &        3.27774E-03,-7.96506E-04,-1.10551E-02,-1.18363E-03,
     &       -1.74014E-03, 4.45126E-04, 1.83501E-03,-5.73249E-03,
     &       -1.06271E-03, 2.50063E-03,-5.25909E-04, 1.36655E-04,
     &        4.45062E-03, 7.74494E-04,-2.27704E-04, 4.04881E-04,
     &        3.44997E-03, 9.78875E-04,-1.16233E-03,-1.07133E-04,
     &       -3.90476E-03, 9.34334E-04, 4.03403E-04, 4.15559E-03,
     &        2.48346E-04, 1.37988E-04, 2.79546E-04,-1.06500E-03,
     &       -1.91561E-03,-8.77065E-04, 7.42783E-03, 6.94042E-03/
C     long 285deg, mar_eq
      DATA (BMAG(20,1,J),J=1,49)/-1.04376E-02,
     &        9.08886E-03,-2.80336E-03,-4.26800E-03, 2.56802E-02,
     &        6.82515E-04,-2.68247E-02, 4.22427E-03, 1.99159E-03,
     &        3.47411E-04,-2.64900E-03, 3.90875E-04, 2.21432E-03,
     &       -8.98199E-03, 8.87690E-03,-1.40668E-03,-2.80435E-03,
     &        4.91017E-03,-1.30245E-03,-9.00868E-03, 1.59395E-03,
     &       -1.45545E-03, 2.88919E-04, 2.20824E-03,-6.06174E-03,
     &       -2.59767E-03, 1.91044E-03,-7.11950E-04,-8.86369E-05,
     &        2.79757E-03, 8.82957E-05, 5.55348E-04, 1.78713E-05,
     &       -3.40825E-04, 2.93233E-03,-8.06326E-04,-2.03500E-04,
     &       -8.42541E-04, 1.20157E-03, 4.13929E-05,-6.60814E-04,
     &       -3.25498E-05, 2.62494E-04,-1.09995E-03, 2.00066E-04,
     &        4.27332E-03,-2.21523E-04, 3.30600E-03, 3.73720E-03/
C     long 300deg, mar_eq
      DATA (BMAG(21,1,J),J=1,49)/-1.04032E-02,
     &        1.47819E-02,-8.67437E-03,-8.84825E-03, 2.69718E-02,
     &        3.61004E-03,-2.97811E-02, 4.58794E-03,-3.93484E-04,
     &        8.54377E-04,-1.65079E-03,-1.70810E-03, 2.85775E-03,
     &       -1.46338E-02, 9.04055E-03, 2.94730E-03,-3.35103E-03,
     &        5.10002E-03,-1.72994E-03,-5.72542E-03, 4.29195E-03,
     &        9.38864E-04,-3.46724E-04, 1.55332E-03, 2.88924E-03,
     &       -6.46566E-03, 2.06507E-03,-2.37549E-05, 9.72414E-05,
     &        1.84183E-03, 5.91803E-05, 1.16134E-03,-3.34397E-04,
     &       -5.16796E-03, 2.24852E-03,-4.85146E-04,-2.52336E-05,
     &        6.55276E-03, 9.34859E-04, 5.71349E-04,-6.54822E-03,
     &       -4.03829E-04, 4.82046E-04,-4.03338E-03, 9.45604E-04,
     &        4.32684E-03,-1.32105E-03, 1.19224E-03, 3.89331E-03/
C     long 315deg, mar_eq
      DATA (BMAG(22,1,J),J=1,49)/-1.01240E-02,
     &        1.79670E-02,-9.99743E-03,-1.64162E-02, 2.71508E-02,
     &        4.37664E-03,-3.22614E-02,-4.39523E-03,-3.41200E-04,
     &        1.63460E-03,-2.59317E-03,-1.13247E-03, 4.01182E-03,
     &       -1.59769E-02, 4.15704E-03, 5.35405E-03,-2.61914E-03,
     &        3.24166E-03,-1.05720E-03,-7.22905E-03, 5.58023E-03,
     &        4.03244E-04,-4.72862E-04, 8.91698E-04, 1.42332E-02,
     &       -6.58655E-03, 3.07240E-03, 8.88661E-04,-3.60336E-04,
     &        8.60840E-03, 1.60424E-03, 5.93972E-04, 5.13032E-05,
     &       -4.73596E-04,-8.85763E-04,-1.19618E-03,-1.88246E-04,
     &        6.13723E-03,-9.51733E-04, 7.43363E-04,-4.75951E-03,
     &       -1.72410E-03, 6.75224E-04,-5.76712E-04, 1.30683E-03,
     &        1.71368E-04, 5.34018E-04, 2.79246E-03, 7.00674E-03/
C     long 330deg, mar_eq
      DATA (BMAG(23,1,J),J=1,49)/-9.60603E-03,
     &        1.69839E-02,-1.20777E-02,-2.14445E-02, 2.56117E-02,
     &        1.06169E-02,-3.16883E-02,-1.91716E-03,-2.07121E-03,
     &        1.16931E-03,-6.40447E-04,-2.80973E-03, 3.75547E-03,
     &       -1.27849E-02, 2.32415E-04, 5.28239E-03,-8.14531E-04,
     &        3.18837E-03,-1.74408E-03,-1.24889E-02, 3.31300E-03,
     &       -8.13504E-04, 1.94836E-04, 3.01065E-04, 1.44651E-02,
     &       -4.75059E-03, 2.81807E-03, 3.94232E-04,-7.34593E-06,
     &        9.15334E-03, 3.19458E-03,-2.99258E-04, 1.69138E-05,
     &       -3.47094E-04,-2.50309E-04,-1.56352E-03,-4.92634E-04,
     &        7.27314E-04,-3.22823E-03, 1.84214E-04, 2.35834E-03,
     &       -9.15380E-04, 9.09628E-04,-2.86615E-03, 1.91452E-03,
     &        2.09203E-03,-1.58525E-03, 1.48818E-03, 3.98217E-03/
C     long 345deg, mar_eq
      DATA (BMAG(24,1,J),J=1,49)/-5.63714E-03,
     &        1.26087E-02,-1.49889E-02,-2.48020E-02, 1.99223E-02,
     &        2.59789E-02,-3.08112E-02, 1.85580E-04,-4.40660E-03,
     &        2.85012E-03, 3.95582E-03,-5.27035E-03, 8.40295E-04,
     &       -9.92007E-03,-2.26393E-03, 6.44639E-03,-1.06052E-03,
     &        2.67161E-03,-1.01896E-03,-9.86462E-03, 1.79530E-03,
     &       -2.76261E-03,-2.54410E-04, 9.73854E-04, 8.73256E-03,
     &       -2.18059E-03, 1.77875E-03, 7.95333E-04,-1.92910E-04,
     &       -7.77104E-04, 4.41705E-03,-6.17998E-04,-6.10587E-04,
     &       -3.67789E-03, 2.81844E-03,-9.96909E-04,-1.53332E-04,
     &       -5.38427E-04,-3.91035E-03, 8.73957E-04, 9.56236E-03,
     &        1.13404E-03, 5.20718E-04, 1.92425E-03, 2.22124E-03,
     &        2.09946E-03,-3.09936E-03,-3.19339E-04,-1.82026E-04/
C     long 0deg, jun_so
      DATA (BMAG(1,2,J),J=1,49)/-3.41076E-03,
     &        1.25440E-02, 2.53610E-02, 3.17497E-03,-2.91385E-03,
     &       -4.16229E-03,-4.19417E-02, 1.26493E-03,-6.02243E-04,
     &       -2.67569E-03, 1.04251E-03,-6.15043E-03,-1.46508E-04,
     &       -1.38911E-03,-6.93590E-04, 1.71462E-04, 2.41314E-03,
     &        2.75546E-03, 2.60391E-04,-6.65831E-03, 1.57371E-03,
     &        2.34272E-03,-1.01145E-03, 3.86385E-06, 2.62515E-04,
     &       -4.00744E-03,-4.32598E-03,-2.75180E-03,-1.02360E-03,
     &        1.03342E-03,-4.92062E-04,-1.26060E-03, 2.97462E-04,
     &       -7.33627E-03,-1.48703E-03, 1.63555E-04, 2.71631E-04,
     &       -3.02236E-03,-6.31842E-04, 3.00150E-04,-3.50373E-03,
     &       -7.88344E-04, 3.47387E-04,-6.20089E-03,-1.14352E-04,
     &        4.09445E-03,-1.38921E-03, 5.10382E-03, 5.98745E-03/
C     long 15deg, jun_so
      DATA (BMAG(2,2,J),J=1,49)/-8.55771E-03,
     &        7.47683E-03, 3.63909E-02, 4.07193E-03,-5.32105E-03,
     &       -7.05816E-04,-4.13942E-02, 6.24872E-03, 1.45810E-03,
     &       -7.69901E-03,-1.80740E-03,-3.65938E-03, 2.02409E-03,
     &        1.42717E-03,-7.48219E-04,-8.46714E-05, 1.17548E-03,
     &        2.19612E-03, 2.55793E-03,-9.90258E-03,-2.91620E-04,
     &        2.64830E-03,-4.77515E-04,-4.12966E-04, 4.21421E-03,
     &       -1.48336E-03,-4.45567E-03,-2.87470E-03,-4.10027E-04,
     &        1.42055E-03, 3.12022E-05,-7.37652E-04, 9.94549E-04,
     &       -6.71880E-03,-3.86159E-05, 1.83286E-03, 1.14761E-03,
     &        5.42274E-04,-9.26638E-04,-8.66416E-04, 1.32949E-03,
     &        9.12616E-04, 7.88027E-04,-6.14588E-03, 1.77043E-04,
     &        2.92845E-03,-6.19568E-04, 4.97971E-03, 3.69151E-03/
C     long 30deg, jun_so
      DATA (BMAG(3,2,J),J=1,49)/-8.98326E-03,
     &        1.90709E-03, 4.04846E-02, 7.48941E-03,-8.62796E-03,
     &        1.01703E-04,-4.04585E-02, 2.75413E-04, 5.03961E-03,
     &       -5.73793E-03,-2.02153E-03,-4.70692E-03,-4.90523E-04,
     &        2.87265E-03, 3.85616E-03, 1.40020E-03,-2.89018E-03,
     &        1.99538E-03, 4.98205E-03,-9.17583E-03,-1.36171E-03,
     &        2.53847E-03,-1.27446E-03,-7.33402E-04, 4.66603E-03,
     &       -1.37086E-03,-3.80553E-03,-2.21534E-03,-2.16593E-04,
     &        5.13503E-04, 1.52810E-05, 1.77662E-04, 9.27079E-04,
     &       -6.25544E-03,-2.58817E-04, 2.07789E-03, 7.51800E-04,
     &        2.54551E-04, 7.54692E-04, 2.06290E-04, 1.68890E-03,
     &        9.54137E-04,-4.68779E-05,-1.28756E-04, 4.78331E-05,
     &        5.63178E-03, 9.58660E-04, 1.77764E-03,-2.93000E-03/
C     long 45deg, jun_so
      DATA (BMAG(4,2,J),J=1,49)/-6.34121E-03,
     &        3.15839E-04, 2.76903E-02, 4.34002E-03, 7.32094E-03,
     &        3.42024E-03,-4.61697E-02,-9.19567E-03, 3.36194E-03,
     &       -3.73191E-03,-1.41509E-03,-4.79322E-03,-7.70985E-04,
     &        2.92146E-03, 1.00147E-02, 5.43893E-03,-5.51539E-03,
     &        1.96547E-03, 6.90982E-03,-3.29295E-03,-2.00368E-03,
     &        3.74000E-04,-1.89747E-03, 2.32546E-04,-1.07158E-03,
     &        5.55746E-04,-2.05537E-03,-1.98319E-03,-1.21672E-03,
     &       -4.74818E-03,-7.85699E-04,-5.90430E-04,-1.21609E-04,
     &       -5.04796E-03,-1.48187E-03, 1.44194E-03,-2.40316E-04,
     &       -8.05504E-04, 2.33506E-03, 1.48213E-03, 1.51395E-03,
     &        1.30709E-04,-2.52493E-04,-6.42539E-05, 8.43818E-04,
     &        5.03927E-03, 1.43381E-03,-2.22120E-03, 8.84551E-04/
C     long 60deg, jun_so
      DATA (BMAG(5,2,J),J=1,49)/ 8.70322E-04,
     &        3.07357E-03, 1.31637E-02, 6.77846E-04, 1.79577E-02,
     &        5.57662E-03,-4.64592E-02,-4.14627E-03, 5.30580E-03,
     &       -5.51470E-03,-3.48558E-03,-6.66745E-03,-2.07781E-03,
     &        1.42867E-03, 1.27216E-02, 7.18197E-03,-5.77659E-03,
     &        2.14545E-03, 5.61075E-03,-1.69201E-03,-1.38419E-03,
     &        3.50299E-04,-1.46972E-03,-2.70908E-06,-3.32046E-03,
     &        4.90192E-03, 5.12061E-04,-1.85806E-03,-7.15842E-04,
     &       -3.02324E-03, 8.81998E-04,-9.46058E-05, 1.50855E-04,
     &       -5.14083E-03,-3.11332E-03, 6.02785E-05, 6.28047E-06,
     &       -7.93994E-03, 1.16069E-03, 1.57978E-03, 5.90427E-03,
     &        7.21019E-04, 1.35955E-06, 4.47656E-03, 4.79548E-04,
     &        3.56005E-03, 1.69134E-03,-3.65972E-03, 1.41013E-03/
C     long 75deg, jun_so
      DATA (BMAG(6,2,J),J=1,49)/ 4.89533E-03,
     &        2.26020E-03, 6.66724E-03, 8.18291E-03, 1.66206E-02,
     &       -6.41557E-03,-4.05861E-02, 1.44279E-03, 8.11321E-03,
     &       -5.64520E-03,-5.20106E-03,-7.28377E-03,-2.69845E-03,
     &        2.97298E-03, 1.46302E-02, 6.82184E-03,-4.85625E-03,
     &        2.09111E-03, 3.50642E-03,-9.85817E-04, 1.88540E-03,
     &        2.70448E-03,-1.15200E-04,-2.63803E-06, 1.47333E-04,
     &        6.14008E-03, 3.01989E-03,-1.11480E-03,-4.42692E-04,
     &        2.58913E-03, 2.90064E-03, 9.29442E-05, 9.65070E-05,
     &       -4.38001E-03,-4.87861E-03,-1.45276E-03, 2.72817E-04,
     &       -4.74679E-03,-6.86367E-04, 1.87571E-04, 6.83616E-03,
     &        5.38422E-04,-2.39138E-04, 1.17800E-02, 4.25231E-04,
     &       -1.48959E-04, 6.08046E-04,-5.59117E-03,-1.54084E-03/
C     long 90deg, jun_so
      DATA (BMAG(7,2,J),J=1,49)/ 1.39138E-03,
     &        3.51483E-03, 1.44130E-02, 1.83488E-02, 1.67634E-02,
     &       -1.94549E-02,-4.49155E-02, 8.57109E-03, 8.86089E-03,
     &       -3.85367E-03,-2.64206E-03,-6.79312E-03,-2.20279E-03,
     &       -2.67148E-03, 9.68467E-03, 6.14145E-03,-4.84816E-03,
     &        3.73814E-03, 3.14920E-03,-8.78769E-04, 4.22774E-03,
     &        3.16629E-03,-7.39720E-04, 9.67002E-04, 3.98372E-03,
     &        7.70160E-03, 4.40931E-03,-1.23757E-03,-1.36070E-03,
     &        3.55611E-03,-1.28561E-04,-5.47098E-04, 5.13741E-04,
     &       -5.15756E-03,-1.88659E-03,-7.99251E-05, 6.00209E-04,
     &        6.65935E-04,-5.08679E-04,-1.19216E-03, 6.17285E-03,
     &        4.62636E-04, 1.30203E-04, 7.39218E-03, 9.25993E-04,
     &       -2.87375E-04, 4.94239E-04,-5.01133E-03,-1.88965E-03/
C     long 105deg, jun_so
      DATA (BMAG(8,2,J),J=1,49)/-1.46400E-03,
     &        1.37277E-02, 2.05560E-02, 1.25629E-02, 1.43337E-02,
     &       -2.12281E-02,-3.56954E-02, 2.99751E-03, 4.42356E-03,
     &       -5.52644E-03,-3.60453E-03,-6.83886E-03,-1.21363E-03,
     &        1.18114E-03, 6.79790E-03, 2.29305E-03,-2.74685E-03,
     &        1.90974E-03, 3.09029E-03,-4.36180E-03, 1.58852E-03,
     &        2.64326E-03,-6.65995E-04,-4.58555E-05,-6.99479E-04,
     &        6.09739E-03, 3.82453E-03,-1.07366E-03,-1.55393E-03,
     &        1.83934E-03,-1.71314E-03,-3.93729E-04, 4.18387E-04,
     &       -3.99885E-03, 4.44434E-04, 2.44743E-04, 3.37614E-04,
     &        2.62283E-03, 1.17815E-03,-4.66468E-04, 6.34476E-03,
     &       -4.03008E-04,-6.15267E-04, 3.11704E-03,-2.06882E-05,
     &        2.99521E-03,-1.52340E-05,-5.72692E-04, 1.07893E-03/
C     long 120deg, jun_so
      DATA (BMAG(9,2,J),J=1,49)/-2.55003E-03,
     &        2.25004E-02, 1.68114E-02, 1.48761E-02, 1.68129E-02,
     &       -1.99788E-02,-2.19466E-02,-4.90548E-03, 1.84013E-03,
     &       -7.88544E-03,-4.25509E-03,-8.05286E-03, 7.23727E-04,
     &       -4.56793E-03, 2.89390E-03, 6.59252E-04, 1.53396E-04,
     &        6.90499E-04, 2.39599E-03, 5.33193E-04, 2.78655E-04,
     &        2.14400E-03,-4.27638E-04,-8.34564E-04,-3.87237E-03,
     &        6.26333E-03, 2.84552E-03,-6.10698E-04,-8.56844E-04,
     &       -1.26188E-03, 1.96756E-03,-2.59791E-04,-5.52079E-04,
     &       -6.65513E-03,-1.35979E-03,-1.50914E-04, 4.75619E-04,
     &        2.57126E-03,-5.65721E-04, 7.85904E-04, 4.27410E-03,
     &       -1.41444E-03,-5.59489E-04, 4.84015E-03,-1.10597E-03,
     &       -1.61255E-04,-6.66033E-04, 1.82065E-03,-5.36387E-04/
C     long 135deg, jun_so
      DATA (BMAG(10,2,J),J=1,49)/-5.96480E-03,
     &        2.08942E-02, 1.39864E-02, 3.13580E-02, 2.12810E-02,
     &       -1.90698E-02,-1.78607E-02,-7.07242E-03, 2.20952E-03,
     &       -4.62665E-03, 9.88962E-04,-8.14606E-03,-5.82230E-04,
     &       -9.74968E-03, 1.93111E-03, 1.19147E-03, 1.50408E-03,
     &        2.18063E-03, 8.64880E-04,-5.91820E-04,-6.75547E-04,
     &        1.74684E-03,-8.22203E-04,-7.43782E-04, 3.59883E-03,
     &        8.54264E-03, 3.40626E-03,-1.02124E-03,-7.60663E-04,
     &        9.11661E-04, 4.88867E-03,-1.10643E-04,-4.47465E-04,
     &       -1.41554E-02,-9.35966E-06,-5.98611E-04, 7.30767E-04,
     &       -2.29990E-03, 5.66246E-04, 1.41817E-03, 8.01337E-03,
     &       -4.16254E-04, 5.39379E-04, 4.59224E-03, 5.41076E-05,
     &       -1.44239E-03,-3.61376E-04,-3.84849E-03,-4.62369E-03/
C     long 150deg, jun_so
      DATA (BMAG(11,2,J),J=1,49)/-6.38301E-03,
     &        1.95253E-02, 6.84303E-03, 3.29461E-02, 1.71150E-02,
     &       -2.35926E-02,-2.94375E-03,-6.31623E-03,-7.27078E-04,
     &       -5.00514E-04, 3.95586E-03,-7.58390E-03,-3.17730E-04,
     &       -8.12822E-03, 3.65805E-03, 2.86776E-03, 1.79169E-03,
     &        1.41994E-03,-6.99946E-04,-5.23980E-03,-4.13647E-04,
     &        1.87816E-03,-1.12099E-04,-1.09693E-03, 4.44200E-03,
     &        1.01832E-02, 3.51450E-03,-8.13624E-04,-1.30795E-03,
     &       -1.95242E-03, 2.84394E-03, 1.21250E-03, 1.14193E-04,
     &       -6.83977E-03, 4.58941E-03, 8.90065E-05, 3.87372E-04,
     &        7.76141E-04, 2.18103E-03, 5.33384E-04, 1.00322E-02,
     &        2.40761E-03, 5.27418E-04,-9.63030E-03, 1.35925E-04,
     &        3.38234E-03,-8.72072E-05,-5.48588E-03, 1.11426E-03/
C     long 165deg, jun_so
      DATA (BMAG(12,2,J),J=1,49)/-3.05485E-03,
     &        1.95474E-02,-2.38629E-03, 2.00531E-02, 1.37738E-02,
     &       -2.42307E-02, 1.12483E-02, 6.57031E-04,-1.59561E-03,
     &       -2.94775E-03, 2.51469E-03,-5.19853E-03, 7.81849E-04,
     &       -6.99376E-03, 7.54441E-04, 2.56070E-03, 7.14375E-04,
     &        7.01961E-04,-2.71641E-04,-1.87394E-03, 1.97711E-04,
     &        3.08680E-03, 2.03287E-03,-1.10864E-03,-3.74488E-03,
     &        9.05184E-03,-1.25770E-04,-1.81181E-03,-1.12676E-03,
     &       -2.14948E-03, 2.39604E-03, 1.37765E-03, 1.54061E-05,
     &       -3.96299E-03, 2.05423E-03, 1.04818E-03,-4.70496E-05,
     &        3.56500E-03, 9.93224E-04,-6.08904E-05, 6.95360E-03,
     &        3.40814E-03, 7.14485E-04,-1.43124E-02,-7.40158E-04,
     &        2.93080E-03,-1.31950E-03, 4.17345E-03, 5.90094E-03/
C     long 180deg, jun_so
      DATA (BMAG(13,2,J),J=1,49)/-4.53156E-03,
     &        1.29175E-02,-4.44417E-03, 7.89890E-03, 2.18382E-02,
     &       -2.27041E-02, 1.61050E-02, 3.51702E-03, 2.69509E-03,
     &       -5.63990E-03, 7.38992E-04,-1.48573E-03,-8.25341E-04,
     &       -8.95113E-03,-2.08834E-05, 2.65608E-04,-2.36283E-03,
     &        1.01211E-03, 1.82672E-03, 1.60106E-05,-2.46142E-03,
     &        2.44799E-03, 1.98060E-03,-1.24858E-03,-1.80809E-03,
     &        4.51876E-03,-3.11772E-03,-2.30837E-03,-1.03409E-03,
     &        2.68504E-03,-1.07495E-03, 4.52430E-04, 9.57959E-05,
     &       -1.00928E-02, 1.82496E-03, 5.88156E-04,-4.43500E-04,
     &        6.31465E-04,-5.17554E-05, 1.97096E-05, 6.40651E-03,
     &        2.48241E-03, 1.60709E-04,-7.56157E-03, 1.08723E-05,
     &        1.81204E-03, 3.27345E-04, 2.78781E-03, 8.46241E-03/
C     long 195deg, jun_so
      DATA (BMAG(14,2,J),J=1,49)/-9.89497E-03,
     &        1.11981E-02, 5.30810E-03,-2.40639E-03, 2.18177E-02,
     &       -1.50563E-02, 1.79419E-02,-3.75591E-04, 5.26153E-03,
     &       -5.16444E-03,-2.67741E-03,-1.45502E-03,-1.94226E-04,
     &       -8.30782E-03, 3.90415E-03, 7.34106E-04,-4.80231E-03,
     &        9.87672E-04, 2.52944E-03, 1.30315E-03,-4.97474E-03,
     &        1.41841E-03, 1.19299E-03,-1.22083E-03, 5.93165E-03,
     &       -7.29105E-04,-1.83413E-03,-1.21818E-03,-5.43574E-04,
     &        1.31383E-04,-3.03779E-03, 1.32761E-03, 6.09094E-04,
     &       -2.90159E-03, 5.08488E-03,-4.69058E-04,-1.55415E-04,
     &       -1.22568E-03, 8.48539E-04,-1.02662E-04, 6.71644E-03,
     &        1.23868E-03, 4.39692E-04,-4.74529E-03,-5.27251E-04,
     &        5.79461E-03, 2.88136E-03,-1.08141E-03, 8.63084E-04/
C     long 210deg, jun_so
      DATA (BMAG(15,2,J),J=1,49)/-1.20136E-02,
     &        1.50438E-02, 1.22452E-02,-4.18565E-03, 2.39812E-02,
     &       -1.47206E-02, 2.69897E-03,-1.29951E-03, 6.31952E-03,
     &       -4.02932E-03,-5.01235E-03,-2.88686E-03, 1.22360E-03,
     &       -1.92231E-03, 9.46669E-03, 8.82977E-04,-3.19595E-03,
     &        1.62352E-03, 2.02539E-03,-4.39722E-03,-2.10960E-03,
     &        9.34687E-04, 1.79502E-03,-1.29780E-03, 6.04015E-04,
     &       -1.36754E-03,-2.32522E-05,-6.19402E-04,-8.61820E-04,
     &       -9.32644E-04,-3.35639E-03, 1.03831E-03, 4.06122E-04,
     &        6.11349E-03, 3.15506E-03,-5.92998E-04, 2.73183E-04,
     &       -2.83342E-03, 1.20023E-03,-8.24541E-04, 9.37327E-03,
     &        3.81717E-04, 9.69824E-05,-1.28383E-03, 7.48756E-04,
     &       -8.82585E-04,-1.61796E-04, 4.32885E-03,-6.75295E-04/
C     long 225deg, jun_so
      DATA (BMAG(16,2,J),J=1,49)/-1.29553E-02,
     &        1.47686E-02, 9.10598E-03, 2.97106E-03, 3.15894E-02,
     &       -2.11409E-02,-1.69896E-02, 3.38905E-03, 1.06016E-02,
     &       -5.01261E-03,-5.11109E-03,-4.78842E-03,-4.55030E-04,
     &       -1.92999E-04, 8.56186E-03, 3.70805E-03,-2.07763E-03,
     &        2.40554E-03, 3.54930E-03,-8.94414E-03, 2.40759E-03,
     &       -1.37917E-05, 1.55381E-03,-1.58319E-03,-2.03972E-03,
     &        2.79949E-03,-7.05433E-04,-5.36687E-05,-3.82752E-04,
     &       -1.86781E-03,-4.20223E-03, 1.83932E-04, 9.33957E-04,
     &        8.48302E-03,-1.67121E-03,-3.52665E-04,-9.38756E-05,
     &        3.48119E-03, 1.86147E-04, 1.46634E-04, 6.80188E-03,
     &       -6.78747E-04,-8.50797E-04,-1.01281E-03, 7.05187E-04,
     &       -2.68177E-03, 5.56524E-04, 5.00893E-03, 3.80762E-03/
C     long 240deg, jun_so
      DATA (BMAG(17,2,J),J=1,49)/-7.29691E-03,
     &        1.55613E-02, 1.20679E-02, 1.15549E-02, 3.06581E-02,
     &       -1.88290E-02,-3.46421E-02, 2.33721E-04, 8.02095E-03,
     &       -6.61301E-03,-2.58063E-03,-4.57497E-03,-1.49118E-03,
     &        8.85845E-05, 6.82375E-03, 6.78277E-03,-2.49779E-04,
     &        3.89043E-03, 4.40513E-03,-7.01866E-03, 4.93914E-03,
     &       -6.57667E-04, 4.02393E-04,-5.96424E-04, 1.41273E-03,
     &        4.99309E-03,-4.86955E-04,-7.38745E-04, 2.56726E-05,
     &        3.32779E-05,-3.22120E-03, 1.21350E-04, 1.35669E-03,
     &        5.17897E-03,-5.85336E-03,-1.52027E-03,-3.32464E-04,
     &        7.92832E-03, 1.08489E-03, 1.08332E-03, 1.65014E-03,
     &       -4.21862E-04, 1.42647E-04,-1.05305E-03,-5.96885E-04,
     &        1.03284E-03, 2.42531E-03, 2.80482E-03, 3.52475E-03/
C     long 255deg, jun_so
      DATA (BMAG(18,2,J),J=1,49)/ 2.09600E-03,
     &        1.77944E-02, 1.93503E-02, 1.51926E-02, 1.36172E-02,
     &       -1.87461E-02,-4.50949E-02, 2.39694E-03, 1.33023E-02,
     &       -5.78223E-03,-3.44686E-03,-2.91085E-03,-2.07341E-04,
     &       -7.62742E-03, 5.18504E-03, 7.20513E-03, 2.24261E-03,
     &        5.45243E-03, 3.56012E-03, 2.29294E-04, 6.96729E-03,
     &        3.11409E-04, 6.47911E-04, 1.11041E-04, 7.43729E-03,
     &        3.08037E-03, 5.64653E-04,-2.41072E-03,-1.51785E-03,
     &        2.16132E-03,-1.17417E-03,-9.19274E-04, 1.02940E-03,
     &       -1.05518E-03,-3.18961E-03,-1.84532E-03,-6.73429E-04,
     &        9.58796E-04, 4.47281E-04, 6.42841E-04, 2.99672E-03,
     &        6.19790E-04, 1.13445E-03, 9.41398E-04,-1.30828E-03,
     &       -1.00804E-03, 9.91906E-04, 2.99221E-03,-1.69318E-03/
C     long 270deg, jun_so
      DATA (BMAG(19,2,J),J=1,49)/ 7.72714E-03,
     &        2.14832E-02, 2.13447E-02, 9.66830E-03,-2.69399E-03,
     &       -1.94329E-02,-4.73635E-02, 6.69208E-03, 8.89270E-03,
     &       -4.22121E-03,-2.48614E-03,-3.74816E-03,-6.60809E-04,
     &       -9.11356E-03, 4.02348E-03, 6.49967E-03, 3.21765E-03,
     &        4.78324E-03, 1.51904E-03,-6.75360E-04, 5.43201E-03,
     &       -2.89849E-05, 9.22524E-04,-2.80751E-04, 1.42224E-03,
     &        2.28975E-03, 2.10503E-03,-3.41950E-03,-2.14877E-03,
     &        2.14952E-03, 5.50425E-04, 1.38260E-04, 9.52650E-04,
     &       -5.26081E-03,-1.65010E-03,-2.12454E-03,-6.44068E-04,
     &       -2.65103E-03,-1.51612E-03,-8.39529E-04, 2.35490E-03,
     &        1.94871E-03, 7.25499E-04, 2.67466E-03, 1.89444E-04,
     &       -2.51630E-03, 1.57759E-04,-1.40407E-03,-1.91800E-03/
C     long 285deg, jun_so
      DATA (BMAG(20,2,J),J=1,49)/ 1.13860E-02,
     &        3.11469E-02, 2.57220E-02, 6.28671E-03,-4.28668E-03,
     &       -1.84881E-02,-5.28553E-02, 7.27967E-03,-5.39756E-03,
     &       -2.23898E-03, 2.47984E-03,-4.10249E-03,-6.62200E-04,
     &       -6.63375E-04, 4.74520E-03, 3.04944E-03, 1.74146E-03,
     &        3.28322E-03,-1.86489E-03,-6.91950E-03, 5.03741E-03,
     &       -3.56826E-04,-6.96669E-05, 1.37734E-05,-6.48033E-03,
     &        1.80841E-03, 1.63529E-03,-3.19004E-03,-2.20824E-03,
     &        1.36999E-03,-2.02555E-03, 1.72654E-03, 1.35732E-04,
     &       -2.51375E-03,-1.75124E-03,-2.21069E-03,-4.11408E-04,
     &       -1.47423E-03,-9.55304E-05,-7.72579E-04, 6.12753E-03,
     &        3.27864E-03, 9.37544E-04, 7.63918E-03, 7.28166E-04,
     &       -1.76905E-03,-1.06376E-03,-1.47750E-03,-2.52407E-03/
C     long 300deg, jun_so
      DATA (BMAG(21,2,J),J=1,49)/ 7.93136E-03,
     &        3.18159E-02, 2.79195E-02, 7.12458E-03,-6.01920E-03,
     &       -1.55261E-02,-5.13322E-02, 8.19635E-03,-3.95937E-03,
     &       -1.45517E-03, 4.52261E-03,-3.16871E-03, 3.65325E-04,
     &        1.95775E-03, 6.91466E-03, 3.11103E-03, 1.08563E-03,
     &        1.91290E-03,-4.26057E-03,-1.32934E-03, 3.91710E-03,
     &        1.64368E-03,-3.24030E-04, 6.66475E-04,-2.74901E-03,
     &        1.09959E-04, 4.60097E-04,-3.17967E-03,-1.40628E-03,
     &        6.04919E-04,-7.65216E-04, 1.01398E-03, 5.77238E-04,
     &       -5.05373E-03,-1.17757E-03,-4.21581E-04, 1.24975E-04,
     &       -2.50685E-03,-1.74355E-03,-4.97367E-04, 5.51649E-03,
     &        2.27602E-03, 1.16892E-03, 4.42782E-03, 1.05511E-03,
     &       -1.75075E-03, 1.92404E-04,-9.11493E-04,-4.40333E-03/
C     long 315deg, jun_so
      DATA (BMAG(22,2,J),J=1,49)/ 6.44565E-03,
     &        2.97712E-02, 2.19076E-02,-4.23022E-04,-9.45695E-03,
     &       -1.32449E-02,-4.85297E-02, 1.35215E-03,-2.78962E-03,
     &       -2.23675E-03, 2.41708E-03,-6.24874E-03,-1.05878E-03,
     &        8.62366E-05, 7.33941E-03, 4.35683E-03, 1.70718E-03,
     &        1.67332E-03,-3.18393E-03,-8.11524E-05, 2.42006E-03,
     &        2.02036E-03, 2.44521E-04, 7.93913E-04,-1.04549E-03,
     &       -1.84260E-04, 1.76582E-03,-2.33659E-03,-1.19128E-03,
     &        9.88198E-04,-3.56019E-05,-3.65066E-04, 7.22511E-04,
     &       -7.15009E-03,-2.36136E-03,-6.03724E-04, 4.08677E-04,
     &       -2.59329E-03,-3.27355E-03,-1.02006E-03,-2.28306E-03,
     &        1.36882E-03, 5.03286E-04,-1.93024E-03, 2.28282E-03,
     &        5.87182E-04, 1.65503E-03, 1.94493E-03,-4.63537E-04/
C     long 330deg, jun_so
      DATA (BMAG(23,2,J),J=1,49)/ 5.69088E-03,
     &        2.82060E-02, 2.47469E-02,-1.68618E-03,-7.41722E-03,
     &       -1.30738E-02,-4.92984E-02,-1.23258E-03,-3.64664E-03,
     &       -2.64030E-03,-8.52535E-04,-8.98373E-03,-2.74900E-03,
     &       -3.12319E-03, 2.10888E-03, 2.08594E-03, 2.26680E-03,
     &        2.09880E-03,-1.07041E-03,-3.80886E-03, 1.83172E-03,
     &        1.33681E-03, 1.22471E-03, 8.79896E-04,-3.35008E-03,
     &       -8.30671E-04, 5.13516E-04,-2.24706E-03,-1.67570E-03,
     &       -3.51453E-03,-2.65727E-03,-1.04495E-03, 2.35056E-04,
     &       -9.74846E-03,-1.56505E-03,-7.56391E-04, 2.14706E-04,
     &        3.71652E-04,-3.22549E-04,-5.75333E-05, 4.16924E-04,
     &       -1.00041E-03,-4.98381E-04,-2.55668E-03, 7.15254E-05,
     &        1.82019E-03, 1.68739E-03, 1.25324E-03, 3.69795E-03/
C     long 345deg, jun_so
      DATA (BMAG(24,2,J),J=1,49)/ 1.70907E-03,
     &        1.97097E-02, 2.45317E-02, 3.68833E-03,-1.73242E-03,
     &       -9.81836E-03,-4.66276E-02,-2.75539E-04,-1.05940E-03,
     &       -8.51957E-04, 7.16725E-04,-8.86392E-03,-1.65413E-03,
     &       -6.19724E-03,-3.83589E-04, 1.60803E-03, 2.48436E-03,
     &        3.09035E-03,-7.66003E-04,-3.92222E-03, 2.80926E-03,
     &        1.73624E-03,-2.46384E-04, 4.81089E-04,-1.81532E-03,
     &       -3.75925E-03,-2.49834E-03,-2.67172E-03,-1.37012E-03,
     &       -2.04329E-03,-2.50077E-03,-8.38074E-04, 5.71716E-04,
     &       -1.22096E-02,-1.40771E-03,-2.72496E-04,-5.72699E-07,
     &       -2.56126E-03, 4.99866E-04, 6.71257E-04,-1.09550E-03,
     &       -2.09073E-03,-5.24029E-04,-2.04179E-03,-1.74139E-03,
     &        2.72140E-03,-3.10644E-04,-1.90471E-03, 3.49882E-03/
C     long 0deg, sep_eq
      DATA (BMAG(1,3,J),J=1,49)/-9.02828E-03,
     &       -3.51686E-03,-2.92946E-03, 3.53663E-03, 1.99239E-02,
     &        2.52003E-03,-2.05387E-02,-7.30207E-04,-4.52864E-03,
     &        4.74511E-04,-3.15087E-04,-3.91748E-03,-3.46439E-04,
     &       -3.14360E-04, 4.55998E-03, 2.73264E-03, 5.27773E-04,
     &        1.78262E-03, 1.55867E-03,-1.47466E-03, 6.60581E-04,
     &       -1.21377E-03, 7.02116E-04, 1.31730E-03, 4.13439E-03,
     &       -1.38661E-03, 1.49723E-03, 5.78075E-04,-3.18542E-04,
     &       -4.69451E-04, 2.34396E-04, 6.30325E-04,-4.79743E-05,
     &       -8.81060E-03,-3.27325E-04,-5.31336E-04,-5.67239E-05,
     &       -2.34138E-04,-6.66670E-04, 1.35375E-04, 1.22672E-02,
     &        2.36510E-03, 9.20808E-04, 4.58742E-03, 7.49965E-04,
     &       -7.12950E-04,-1.43376E-03, 1.45901E-03,-6.57153E-04/
C     long 15deg, sep_eq
      DATA (BMAG(2,3,J),J=1,49)/-6.64198E-03,
     &       -7.88258E-03,-1.62703E-03, 6.41517E-03, 8.74042E-03,
     &        8.21580E-03,-1.32105E-02,-9.16042E-03,-1.10240E-03,
     &       -1.51001E-03,-2.34520E-04,-4.69174E-04,-4.57982E-04,
     &       -2.66060E-03, 3.87866E-03, 1.49338E-03,-9.33085E-04,
     &        2.43348E-03, 1.54078E-03, 3.63490E-03, 1.78943E-03,
     &        9.47179E-04,-1.33777E-04, 6.80599E-04, 5.06083E-03,
     &       -1.23215E-03, 1.46860E-03, 4.26106E-04,-9.00909E-04,
     &        2.77149E-03,-3.36762E-04, 1.50588E-04, 1.92489E-04,
     &       -6.61455E-03,-3.87430E-04,-9.44611E-04,-2.92293E-04,
     &        4.90524E-04, 1.45040E-03, 6.68468E-04, 1.03372E-02,
     &        2.44501E-03, 1.30767E-03, 4.04194E-03, 7.07023E-04,
     &        6.81279E-04,-1.02680E-03, 4.98866E-03, 4.52959E-05/
C     long 30deg, sep_eq
      DATA (BMAG(3,3,J),J=1,49)/-8.49769E-03,
     &       -8.88064E-03, 3.04336E-03, 3.77208E-03, 5.13813E-03,
     &        1.67083E-02,-1.47378E-02,-8.85719E-03, 8.34621E-04,
     &       -4.40858E-03, 5.38177E-04, 3.26261E-04,-2.48164E-04,
     &       -3.87671E-03, 2.67153E-03, 1.62932E-03,-5.81781E-04,
     &        2.84298E-03, 4.99986E-04, 3.29286E-03, 3.64651E-03,
     &        1.55237E-03,-1.44014E-05, 4.50913E-04, 5.95944E-03,
     &       -1.49134E-03, 5.96497E-05, 2.56633E-04,-2.02555E-04,
     &        4.63290E-03,-1.07895E-04, 1.00027E-04, 4.43260E-04,
     &        1.58484E-03, 1.23032E-03,-5.74815E-05, 2.17932E-04,
     &        5.71857E-03, 2.37151E-03, 9.02621E-04, 5.32127E-03,
     &        2.24876E-03, 5.13564E-04, 2.46380E-03,-3.05622E-05,
     &        6.77943E-06,-3.93525E-04, 4.48369E-03,-3.84178E-03/
C     long 45deg, sep_eq
      DATA (BMAG(4,3,J),J=1,49)/-1.26890E-02,
     &       -8.65743E-03, 8.03941E-03, 3.32968E-03, 8.08672E-03,
     &        1.19341E-02,-1.94652E-02,-6.34444E-03, 9.44342E-04,
     &       -4.49486E-03,-9.76638E-04,-1.69184E-03, 1.05478E-04,
     &       -5.14205E-03, 7.69143E-04, 1.64297E-03,-5.70518E-04,
     &        3.78215E-03, 1.18744E-03,-2.35374E-03, 3.73381E-03,
     &        5.78169E-04,-5.33657E-04, 5.21128E-04, 9.51550E-03,
     &        9.61391E-04, 2.70460E-04,-4.75375E-04, 1.87674E-04,
     &        4.67324E-03, 1.22160E-03, 8.56859E-04, 2.55395E-04,
     &        1.54762E-03, 5.48398E-04, 7.57283E-04, 2.39058E-04,
     &        4.07454E-03, 9.33625E-04, 4.74868E-05, 3.07656E-03,
     &        4.10807E-04,-6.30223E-04, 4.39671E-04,-2.11594E-03,
     &       -5.63897E-04,-5.64069E-05, 4.47522E-04,-1.12173E-03/
C     long 60deg, sep_eq
      DATA (BMAG(5,3,J),J=1,49)/-1.20514E-02,
     &       -7.61779E-03, 7.94026E-03, 8.71570E-03, 8.43847E-03,
     &        7.25778E-03,-1.84532E-02,-8.75424E-03, 1.78952E-03,
     &       -3.85588E-03,-3.41707E-03,-2.80609E-03, 1.46443E-03,
     &       -2.62129E-03, 1.31728E-03, 4.59093E-04,-7.06661E-04,
     &        3.60893E-03, 1.19006E-03,-5.76392E-03,-1.28433E-03,
     &       -3.02501E-04, 1.10531E-05, 9.68950E-04, 8.57963E-03,
     &        4.91998E-03, 2.55245E-03,-5.49657E-04,-2.11326E-04,
     &        6.09401E-07, 2.56271E-04, 1.15070E-03,-1.64116E-04,
     &       -2.66340E-03, 9.91376E-05, 1.02693E-03, 4.29976E-04,
     &        2.29578E-03,-9.52296E-04,-5.28670E-04, 1.92427E-03,
     &        1.38220E-04,-3.35072E-04,-7.70189E-04,-1.60798E-03,
     &        2.88678E-03,-3.00678E-04, 2.61749E-03, 1.78552E-05/
C     long 75deg, sep_eq
      DATA (BMAG(6,3,J),J=1,49)/-8.24398E-03,
     &       -9.06766E-03, 1.70750E-03, 1.20379E-02, 9.99310E-03,
     &        3.96127E-03,-1.88826E-02,-1.02833E-02, 2.05212E-05,
     &       -7.12472E-03,-3.90261E-03,-3.19126E-03, 2.48866E-03,
     &       -3.54744E-03,-2.75822E-03,-3.40616E-04, 2.76781E-03,
     &        3.23721E-03, 6.06364E-04,-9.52661E-03,-4.96983E-03,
     &        7.72537E-04, 1.47625E-03, 8.57993E-04, 5.88600E-03,
     &        6.17564E-03, 2.26203E-03,-6.67725E-05, 9.42659E-04,
     &       -2.01772E-03,-4.46957E-04,-1.24590E-04,-4.41206E-04,
     &        5.60718E-04,-4.63319E-04, 1.93638E-03, 1.12161E-03,
     &        6.67891E-03,-1.89925E-04, 6.54796E-05, 1.39394E-03,
     &        9.37948E-04,-2.28568E-04,-3.37010E-03, 2.44911E-06,
     &        1.53065E-03,-2.65743E-04, 2.20509E-03,-5.44482E-04/
C     long 90deg, sep_eq
      DATA (BMAG(7,3,J),J=1,49)/-5.25669E-03,
     &       -1.24531E-02,-1.90942E-03, 1.88668E-02, 1.54129E-02,
     &       -6.00021E-03,-1.90116E-02,-1.04977E-02,-4.42629E-04,
     &       -1.07663E-02,-4.08962E-03,-1.77844E-03, 3.20377E-03,
     &       -7.20725E-03,-6.04800E-03,-2.89767E-03, 3.35112E-03,
     &        4.53324E-03, 1.10926E-03,-1.33025E-02,-3.18680E-03,
     &        1.49925E-03, 1.08764E-03, 8.19573E-04, 1.75092E-03,
     &        6.96349E-03, 2.14430E-03,-1.60146E-04, 7.29711E-04,
     &        1.58212E-03, 7.96653E-04,-1.64792E-03,-7.42640E-04,
     &        2.91329E-03,-2.80089E-03, 2.65352E-04, 7.61351E-04,
     &        2.30877E-03,-1.65075E-03, 2.53716E-04, 2.08688E-03,
     &        7.94661E-04,-2.05872E-04,-1.38943E-03,-1.67573E-04,
     &        1.40804E-03, 2.13214E-04, 6.99293E-04,-7.26784E-04/
C     long 105deg, sep_eq
      DATA (BMAG(8,3,J),J=1,49)/-4.53343E-03,
     &       -8.99058E-03,-3.99096E-03, 1.92620E-02, 1.53306E-02,
     &       -1.44680E-02,-1.27885E-02,-1.02639E-02,-1.15800E-03,
     &       -1.24977E-02,-3.24627E-03,-2.76386E-03, 1.28804E-03,
     &       -6.66705E-03,-8.78794E-04,-3.50049E-03, 2.05500E-03,
     &        5.42333E-03, 2.58148E-03,-9.31299E-03,-2.51773E-03,
     &       -8.01824E-04, 2.13442E-04, 8.38410E-04,-3.23668E-03,
     &        6.47652E-03, 2.11939E-03,-1.07283E-04, 6.28490E-04,
     &        4.72205E-03, 8.05062E-04,-1.06894E-03,-4.75120E-04,
     &        3.41141E-03,-2.02989E-03,-3.74482E-04, 7.16832E-04,
     &        7.16336E-04,-1.72278E-03, 4.52310E-06, 2.70085E-03,
     &        8.38884E-04,-3.07631E-04, 2.14056E-03,-2.50571E-04,
     &        5.34262E-03, 4.60748E-04, 6.81000E-04, 8.68991E-04/
C     long 120deg, sep_eq
      DATA (BMAG(9,3,J),J=1,49)/-5.62309E-03,
     &       -4.39078E-03,-2.69214E-04, 1.62867E-02, 1.87706E-02,
     &       -1.40519E-02,-6.57875E-03,-1.24863E-02,-4.76841E-04,
     &       -1.08735E-02,-3.89209E-04,-4.58347E-03, 6.01409E-05,
     &       -7.84245E-03, 2.37024E-03,-3.63501E-03, 5.42011E-04,
     &        4.80576E-03, 4.01306E-03,-6.37101E-03,-3.80819E-03,
     &       -1.72780E-03, 3.19573E-04, 3.53993E-04,-3.22826E-05,
     &        5.99552E-03, 2.55315E-03, 8.11581E-04, 1.83796E-03,
     &        1.31112E-03, 1.28426E-03,-6.50108E-04,-2.40057E-04,
     &        6.24909E-04, 1.47275E-03, 1.44364E-04, 1.00229E-03,
     &        4.31276E-03, 5.01738E-04, 1.55665E-04, 9.96857E-04,
     &        2.31964E-04,-4.34713E-04,-4.66411E-03,-2.90008E-04,
     &        3.07106E-03, 8.33180E-05, 3.86972E-03, 1.43413E-03/
C     long 135deg, sep_eq
      DATA (BMAG(10,3,J),J=1,49)/-7.59851E-03,
     &       -7.18330E-03, 5.86430E-03, 2.19300E-02, 2.31664E-02,
     &       -8.37665E-03,-8.30691E-04,-1.55857E-02,-1.74656E-03,
     &       -8.07821E-03, 4.73622E-04,-2.94723E-03, 1.27612E-03,
     &       -5.63384E-03, 2.65920E-03,-5.37975E-03, 6.62988E-04,
     &        5.62726E-03, 3.06725E-03,-5.62074E-03,-3.56664E-03,
     &       -1.84039E-03,-8.86477E-05,-3.77325E-05, 3.13801E-03,
     &        8.34739E-03, 3.10407E-03, 3.50927E-05, 1.75999E-03,
     &        8.26561E-04,-1.22824E-04,-7.33274E-04,-1.75108E-04,
     &       -6.28818E-03,-8.12041E-04,-1.28567E-03, 9.01522E-04,
     &        2.46428E-03, 5.04215E-04, 1.75534E-04, 1.06984E-03,
     &       -1.61515E-03, 1.76058E-04,-6.23321E-03, 3.49678E-04,
     &       -7.68114E-04,-1.44204E-03, 1.21950E-03, 3.11138E-04/
C     long 150deg, sep_eq
      DATA (BMAG(11,3,J),J=1,49)/-9.73072E-03,
     &       -7.05009E-03, 6.83160E-03, 1.83571E-02, 2.22912E-02,
     &       -3.28905E-03, 4.52213E-03,-5.82901E-03,-3.87170E-03,
     &       -7.45611E-03, 1.17297E-03,-3.35524E-03,-4.64614E-04,
     &       -2.65912E-03,-1.35583E-04,-6.11110E-03, 1.66700E-03,
     &        6.08835E-03, 1.74473E-03,-6.73895E-03,-1.95167E-03,
     &       -2.24489E-03,-7.23986E-04, 3.07682E-05, 2.47571E-03,
     &        9.77688E-03, 3.18247E-03,-1.11323E-03, 1.14214E-03,
     &        7.13553E-03,-2.38793E-03,-3.03006E-04,-3.50104E-04,
     &       -5.79360E-03,-3.39183E-03,-1.80672E-03, 5.73069E-04,
     &        1.63774E-03, 2.63516E-04, 2.66410E-04,-2.04888E-04,
     &       -1.21453E-03, 4.59536E-04, 1.88049E-03,-3.23254E-04,
     &        1.61641E-04,-8.65326E-04, 3.26270E-03, 4.90697E-03/
C     long 165deg, sep_eq
      DATA (BMAG(12,3,J),J=1,49)/-7.95859E-03,
     &       -5.31274E-03,-1.36652E-03, 8.53403E-03, 2.73351E-02,
     &        5.88615E-03, 9.78395E-03,-2.51109E-03, 2.97602E-04,
     &       -4.64397E-03, 2.27718E-03,-3.57706E-03,-2.86668E-03,
     &       -7.79867E-03,-1.16413E-03,-2.88654E-03, 6.15288E-04,
     &        5.21099E-03, 2.09350E-03,-7.68426E-03,-1.98440E-03,
     &       -3.11838E-03,-4.42187E-04, 9.35363E-04, 8.27124E-03,
     &        4.83599E-03, 2.23207E-03,-2.57698E-04, 1.01233E-03,
     &        4.78506E-03,-1.35424E-03,-1.03946E-04,-4.58677E-04,
     &       -8.79899E-04,-9.33412E-04,-1.58879E-04, 2.38120E-04,
     &        5.10753E-03, 4.21437E-04, 7.41964E-04, 5.45423E-03,
     &        3.30842E-04, 1.96577E-06, 5.48474E-03,-4.76127E-04,
     &       -2.60043E-03,-3.30794E-04, 4.47931E-03, 5.21927E-03/
C     long 180deg, sep_eq
      DATA (BMAG(13,3,J),J=1,49)/-8.15276E-03,
     &       -8.03288E-03,-7.28266E-03, 8.40811E-03, 3.73912E-02,
     &        4.36116E-03, 1.02953E-02,-6.21431E-03, 4.30282E-03,
     &       -2.33809E-04, 2.30190E-03,-1.30146E-03,-4.89065E-03,
     &       -1.46106E-02,-1.73622E-03,-1.64306E-03,-2.08239E-03,
     &        4.49809E-03, 2.48565E-03,-3.09431E-03,-1.72394E-03,
     &       -3.18406E-03,-2.24234E-04, 1.26138E-03, 6.26637E-03,
     &        5.22245E-03, 1.60161E-03, 3.93826E-04,-3.30192E-04,
     &       -1.89272E-03,-1.61322E-03, 3.23584E-04,-2.88579E-04,
     &        4.26410E-03,-8.28615E-06,-3.05071E-04,-2.39838E-05,
     &        3.95204E-03, 3.91892E-04, 1.00150E-03, 2.99885E-03,
     &        1.12469E-03,-2.61878E-04, 6.07102E-03, 7.58863E-04,
     &       -1.91679E-03,-2.09640E-03,-6.32637E-04, 1.26343E-03/
C     long 195deg, sep_eq
      DATA (BMAG(14,3,J),J=1,49)/-7.45325E-03,
     &       -5.29967E-03,-6.18166E-03, 1.05355E-02, 3.72241E-02,
     &       -8.48383E-03,-3.85453E-03, 1.34474E-03, 4.54337E-03,
     &       -1.59999E-03,-2.65602E-04,-1.80327E-03,-4.90165E-03,
     &       -1.46973E-02,-2.93334E-03,-3.31276E-03,-3.55773E-03,
     &        4.32800E-03, 2.59869E-03,-4.48309E-03,-4.90440E-04,
     &       -1.80819E-03,-4.21796E-04, 1.02514E-03,-1.47033E-03,
     &        6.93838E-03, 1.16545E-03, 1.01741E-04,-5.26991E-04,
     &       -2.00931E-03,-8.35840E-04, 1.03607E-04,-6.17474E-05,
     &        7.51007E-04, 4.02499E-05,-1.60886E-04, 3.79139E-04,
     &        1.28322E-04, 5.66454E-05, 3.46622E-04,-3.94815E-03,
     &        4.45379E-04,-3.39585E-04,-1.02561E-03, 1.14206E-04,
     &        4.03699E-04,-1.86093E-03, 2.89792E-04, 3.46031E-03/
C     long 210deg, sep_eq
      DATA (BMAG(15,3,J),J=1,49)/-5.28645E-03,
     &        7.18056E-03,-2.10793E-03, 1.02375E-02, 2.68377E-02,
     &       -2.06507E-02,-1.16387E-02, 2.71596E-03, 6.74825E-03,
     &       -5.00704E-03,-2.93504E-03,-1.99913E-03,-1.91095E-03,
     &       -1.06793E-02, 1.02460E-03,-4.17365E-03,-3.23288E-03,
     &        6.15756E-03, 3.35903E-03,-1.87229E-03, 3.95562E-03,
     &       -2.11609E-03,-7.72818E-06, 4.84458E-04, 6.01261E-03,
     &        5.16843E-03, 1.43577E-03, 4.13721E-04,-8.03273E-06,
     &        1.48573E-03, 4.91102E-04,-1.33774E-03, 7.38919E-06,
     &       -2.35512E-03,-1.01921E-03, 8.88530E-04, 7.53755E-04,
     &        2.29933E-03, 1.61150E-03, 5.59244E-04,-4.76972E-04,
     &       -1.28530E-03,-4.63827E-04,-2.08128E-03, 1.00215E-04,
     &        5.33878E-04,-1.27135E-03,-1.28999E-03, 4.02979E-03/
C     long 225deg, sep_eq
      DATA (BMAG(16,3,J),J=1,49)/-7.28025E-03,
     &        8.19532E-03, 4.58561E-03, 1.84176E-02, 1.97394E-02,
     &       -2.81075E-02,-1.71776E-02,-2.38297E-03, 5.56585E-03,
     &       -5.60454E-03,-1.28861E-03,-7.19768E-04,-5.70623E-04,
     &       -1.41471E-02, 4.23265E-03,-2.05276E-03,-4.23592E-03,
     &        5.88703E-03, 3.82809E-03,-2.07807E-03, 5.60307E-03,
     &       -1.18505E-03,-1.02748E-05,-7.92241E-05, 1.53730E-02,
     &        4.53482E-03, 1.20922E-03, 1.38084E-05,-1.70903E-04,
     &        1.24896E-03, 3.59612E-04,-6.37731E-04,-4.30804E-04,
     &       -2.97704E-03,-2.13034E-03, 4.36075E-04, 7.11514E-04,
     &        5.04762E-03, 1.56428E-03, 8.33935E-04, 5.30314E-03,
     &        4.47791E-04, 3.24671E-04, 1.71698E-03,-7.68079E-05,
     &        8.18132E-03,-1.85685E-03,-1.67781E-03,-1.80157E-03/
C     long 240deg, sep_eq
      DATA (BMAG(17,3,J),J=1,49)/-6.65346E-03,
     &        7.62277E-03, 5.74322E-03, 2.05876E-02, 1.32951E-02,
     &       -2.67612E-02,-2.30693E-02,-3.59067E-03, 1.06189E-03,
     &       -4.35857E-03, 1.40156E-03,-1.90479E-03,-9.62134E-04,
     &       -1.62522E-02, 6.26444E-03, 9.31826E-04,-2.49236E-03,
     &        5.26637E-03, 1.68717E-03,-5.98303E-03, 5.35384E-03,
     &       -1.13742E-03, 7.88527E-04,-3.48999E-04, 1.20036E-02,
     &        5.68158E-03, 3.63558E-04,-1.78451E-03,-5.06793E-04,
     &       -2.37794E-03, 2.32247E-04, 9.62632E-04, 6.12573E-05,
     &       -2.37977E-03,-9.17501E-04, 8.63439E-04, 4.84050E-04,
     &        6.04603E-03, 1.78580E-03, 4.20213E-04, 7.40869E-03,
     &        7.01025E-04, 2.29960E-05,-2.82018E-04, 3.73987E-04,
     &        8.71785E-03,-1.50577E-04, 2.60728E-03,-4.14056E-03/
C     long 255deg, sep_eq
      DATA (BMAG(18,3,J),J=1,49)/-1.38466E-03,
     &        1.44751E-02, 1.51300E-04, 1.38740E-02, 1.17307E-02,
     &       -2.04701E-02,-1.71770E-02,-4.56392E-03,-3.43879E-03,
     &       -3.03491E-03, 2.95242E-03,-2.41779E-03, 6.53133E-05,
     &       -9.78774E-03, 3.61669E-03, 2.77965E-03, 1.43487E-03,
     &        5.32305E-03,-1.07385E-03,-3.32405E-03, 4.63486E-03,
     &       -7.83222E-04, 1.45516E-03,-4.03718E-04, 4.84491E-03,
     &        5.89070E-03,-3.05214E-05,-2.98192E-03,-5.03367E-04,
     &        4.72383E-03,-7.72437E-04, 1.24723E-03, 4.96617E-04,
     &        3.75485E-04, 1.67576E-03, 3.72962E-04,-9.29995E-05,
     &        4.19503E-03, 2.43349E-03, 2.08155E-04, 3.86757E-03,
     &       -1.36723E-03,-6.48866E-04, 1.13301E-03,-1.00927E-03,
     &        4.49309E-03, 7.98912E-04, 5.16040E-03,-3.96352E-03/
C     long 270deg, sep_eq
      DATA (BMAG(19,3,J),J=1,49)/ 1.28146E-03,
     &        1.84193E-02,-2.07974E-03, 6.02811E-03, 5.14657E-03,
     &       -1.34992E-02,-1.09500E-02,-6.52725E-03,-6.20612E-03,
     &       -1.38006E-03, 5.54115E-03,-1.59688E-03,-2.63312E-04,
     &       -7.71836E-03, 9.02466E-05, 4.86926E-03, 2.07172E-03,
     &        5.31161E-03,-1.21781E-03, 1.09892E-03, 2.32373E-03,
     &       -4.72157E-04, 1.58309E-03, 1.01715E-04, 7.01323E-03,
     &        3.41403E-03,-5.63384E-04,-2.44148E-03, 7.20473E-05,
     &        5.22160E-03,-6.35123E-06, 1.03065E-03, 3.70401E-04,
     &       -1.64407E-04, 3.38276E-03,-4.27251E-04,-6.46021E-04,
     &       -5.96960E-04, 1.83808E-03,-3.94462E-04, 2.25379E-03,
     &       -8.56340E-04,-8.20172E-04,-1.18558E-03,-8.61265E-04,
     &        1.13778E-03, 2.27283E-04, 5.61342E-03, 2.14491E-03/
C     long 285deg, sep_eq
      DATA (BMAG(20,3,J),J=1,49)/ 2.55696E-03,
     &        1.77850E-02,-4.55113E-03,-1.04776E-03, 9.97263E-04,
     &       -1.04478E-02,-9.93870E-03,-7.29871E-03,-7.82807E-03,
     &       -2.16309E-04, 4.53636E-03,-6.29260E-04,-1.09959E-03,
     &       -5.06534E-03, 2.58244E-03, 4.65846E-03, 1.48445E-03,
     &        5.28195E-03, 2.91555E-05, 4.59177E-03, 9.68878E-04,
     &       -2.14255E-03, 1.74693E-03, 5.26245E-04, 5.80075E-03,
     &        2.58736E-03,-4.07652E-04,-1.97222E-03, 4.28766E-04,
     &        1.21939E-03, 1.66859E-03, 1.27411E-03, 2.20957E-04,
     &       -1.80550E-03, 2.43665E-03, 4.15787E-05,-4.52396E-04,
     &       -5.14275E-04,-7.22649E-04,-6.65035E-04, 6.52513E-05,
     &        3.03749E-04,-8.40910E-04,-3.15433E-03, 1.03641E-03,
     &        1.72149E-03,-5.39253E-04, 4.60024E-03, 3.24548E-03/
C     long 300deg, sep_eq
      DATA (BMAG(21,3,J),J=1,49)/-1.54839E-04,
     &        1.61575E-02,-8.55254E-03,-4.13040E-03, 4.80211E-03,
     &       -4.75147E-04,-1.09673E-02,-3.72556E-03,-8.78311E-03,
     &       -1.51901E-03, 2.22916E-03,-1.48877E-03, 5.38584E-04,
     &       -3.06275E-03, 2.33860E-03, 3.67293E-03, 6.77774E-04,
     &        5.03428E-03,-4.01967E-05, 2.37741E-03, 1.38900E-03,
     &       -2.79028E-03, 7.79402E-04, 5.80659E-04,-7.94353E-04,
     &        2.50915E-03, 1.22976E-03,-1.67792E-03, 6.71922E-04,
     &        3.20282E-03, 1.05846E-03, 9.20713E-04,-4.11951E-04,
     &       -4.20681E-03,-4.21691E-04,-3.86941E-04, 9.25274E-05,
     &       -2.92106E-03,-3.40931E-03,-7.27063E-04, 1.48517E-03,
     &        1.11314E-03,-5.30305E-04, 2.00274E-03, 1.52645E-03,
     &        2.74554E-03, 2.69706E-04, 7.00218E-04, 1.16321E-03/
C     long 315deg, sep_eq
      DATA (BMAG(22,3,J),J=1,49)/-7.91649E-03,
     &        1.39801E-02,-4.85144E-03,-6.45701E-03, 7.21244E-03,
     &        1.09853E-02,-8.90312E-03, 9.41996E-05,-7.99724E-03,
     &       -1.14258E-03, 1.96519E-03,-3.22638E-03, 1.81201E-03,
     &        7.89843E-04, 7.33594E-05, 2.79805E-03, 5.72239E-04,
     &        3.88364E-03,-7.46369E-04, 1.63795E-03, 2.35719E-03,
     &       -2.95147E-03,-3.70535E-04, 3.72620E-04, 1.15836E-03,
     &        3.06926E-03, 1.36377E-03,-1.95641E-03, 2.68147E-04,
     &        8.32478E-04, 3.46369E-05, 4.62559E-04,-4.00879E-04,
     &       -4.90042E-03,-1.24796E-03,-4.40968E-04, 2.69030E-04,
     &       -4.87088E-03,-2.99794E-03,-8.18225E-04, 7.89859E-05,
     &        1.65939E-03,-4.01244E-04,-3.72226E-04, 2.45534E-03,
     &        2.06540E-03, 1.56224E-03, 1.52814E-03, 8.20065E-04/
C     long 330deg, sep_eq
      DATA (BMAG(23,3,J),J=1,49)/-1.18868E-02,
     &        1.09846E-02,-1.77310E-03,-7.32639E-03, 1.10738E-02,
     &        1.24633E-02,-1.60536E-02, 2.10246E-03,-8.97155E-03,
     &        2.63142E-03, 3.19560E-03,-4.64840E-03, 3.08674E-04,
     &        1.23438E-03,-1.91354E-04, 1.45275E-03, 1.25376E-03,
     &        2.89423E-03,-1.37921E-03, 8.93761E-05, 3.13262E-03,
     &       -1.75222E-03,-2.74904E-04, 4.66194E-04, 5.94927E-03,
     &        3.42341E-03, 2.08420E-03,-1.75180E-03,-4.41920E-04,
     &       -3.70135E-04, 5.16511E-04, 1.11223E-03,-1.67216E-04,
     &       -8.17628E-03,-7.21827E-04,-5.22242E-04, 6.30611E-05,
     &       -1.73930E-03,-1.23737E-03,-5.53892E-04, 1.72027E-03,
     &        8.06320E-04, 3.87317E-04,-3.85936E-03, 1.46085E-03,
     &       -2.15498E-03, 8.00167E-04, 4.13748E-03, 3.99989E-03/
C     long 345deg, sep_eq
      DATA (BMAG(24,3,J),J=1,49)/-1.19654E-02,
     &        4.66046E-03,-1.76916E-03,-4.48814E-03, 1.86952E-02,
     &        6.99523E-03,-2.22490E-02, 3.31195E-03,-8.94087E-03,
     &        2.82590E-03, 1.55821E-03,-5.14985E-03,-2.87690E-04,
     &        9.08951E-04, 2.37281E-03, 1.75096E-03, 1.71545E-03,
     &        2.44492E-03,-5.16734E-04,-3.19490E-03, 1.67227E-03,
     &       -1.26429E-03, 7.16825E-04, 9.85340E-04, 4.70735E-03,
     &       -1.41863E-05, 2.36150E-03, 9.62956E-05,-2.33178E-04,
     &       -2.44857E-03, 5.21813E-04, 1.20715E-03,-1.06213E-04,
     &       -9.49360E-03,-1.67227E-04,-7.82371E-04, 8.97977E-05,
     &        1.27355E-03,-1.35290E-03,-2.66877E-04, 9.48385E-03,
     &        1.51316E-03, 7.69660E-04,-1.67667E-04, 8.72011E-04,
     &       -2.48660E-03,-4.75907E-04, 4.28988E-03, 3.23453E-03/
C     long 0deg, dec_so
      DATA (BMAG(1,4,J),J=1,49)/ 5.67281E-03,
     &       -1.53383E-02, 4.50617E-03, 1.84611E-03,-5.15878E-03,
     &        2.67436E-02,-2.99682E-02, 1.16136E-02,-7.48607E-03,
     &        1.59931E-03, 4.10090E-03,-6.99253E-03, 5.00186E-03,
     &       -1.04974E-03,-4.95857E-03, 1.56145E-03, 1.12555E-03,
     &        2.31261E-03,-1.44088E-03,-4.21227E-03,-4.62694E-04,
     &       -2.22650E-03, 1.66923E-03, 5.37222E-04, 3.62097E-03,
     &       -4.66462E-03, 1.66661E-03, 1.13679E-03,-1.13360E-03,
     &        2.19658E-03, 2.17371E-03,-2.53064E-04,-2.52941E-04,
     &       -2.55457E-03, 9.89866E-04,-1.78510E-03, 1.27417E-03,
     &        3.27572E-03,-1.95028E-03, 3.58792E-04, 2.80177E-03,
     &       -2.59485E-03,-2.01074E-04, 3.44559E-04, 7.66673E-04,
     &        1.81947E-04,-1.80828E-04,-1.19753E-04, 1.67506E-04/
C     long 15deg, dec_so
      DATA (BMAG(2,4,J),J=1,49)/ 1.13014E-02,
     &       -2.69141E-02, 1.14766E-02, 8.55740E-03,-2.26856E-02,
     &        3.56746E-02,-3.18897E-02, 1.04901E-03,-3.43892E-03,
     &        7.48151E-04, 2.79361E-03,-6.46579E-03, 2.66521E-03,
     &       -1.22942E-03,-1.86627E-03, 1.83777E-03,-9.14289E-04,
     &        4.30770E-03,-1.25060E-03,-4.30288E-03, 1.78939E-04,
     &       -1.67576E-03, 4.78335E-04, 1.12887E-03, 2.37298E-03,
     &       -2.39219E-03, 1.12113E-03, 1.55141E-03,-8.95802E-04,
     &        5.41626E-03,-7.10677E-04, 9.45331E-04,-2.56170E-04,
     &       -1.00637E-03, 1.62574E-03,-1.38472E-03, 8.51362E-04,
     &        3.34860E-03,-1.07047E-03, 8.46111E-05, 2.31807E-03,
     &       -4.26093E-03, 1.50559E-04, 3.96479E-03, 8.50137E-04,
     &       -1.82654E-03,-5.22918E-04, 1.31492E-03,-1.38596E-03/
C     long 30deg, dec_so
      DATA (BMAG(3,4,J),J=1,49)/ 1.51004E-02,
     &       -3.07518E-02, 2.30637E-02, 7.09744E-03,-3.79424E-02,
     &        4.38296E-02,-3.45697E-02,-6.66407E-03, 1.48962E-03,
     &       -3.66364E-03, 1.19268E-03,-3.20170E-03, 1.82485E-03,
     &       -3.12684E-03,-2.75814E-03, 1.05659E-03,-8.46853E-04,
     &        4.73202E-03,-6.88640E-04,-1.74666E-03,-9.00347E-05,
     &        8.47746E-04, 3.52743E-05, 1.25336E-03,-3.84925E-03,
     &        1.44190E-04,-3.80200E-04, 1.33486E-03,-4.38411E-05,
     &        2.86305E-03,-2.63818E-03, 5.38088E-04,-6.02271E-04,
     &       -2.45234E-03, 1.10556E-03, 1.14371E-04, 3.91366E-05,
     &        4.73458E-03, 1.20232E-04, 5.63455E-04, 3.50014E-03,
     &       -2.41378E-03, 1.51229E-05, 5.38311E-03, 5.32839E-05,
     &       -5.01548E-03,-3.52764E-04,-2.45025E-03,-2.84470E-03/
C     long 45deg, dec_so
      DATA (BMAG(4,4,J),J=1,49)/ 1.47855E-02,
     &       -3.14044E-02, 3.03599E-02, 2.06481E-03,-3.90890E-02,
     &        4.33826E-02,-3.93247E-02,-8.16685E-03, 5.74264E-03,
     &       -5.39774E-03,-9.74538E-05,-2.98214E-03, 2.56931E-03,
     &       -8.10361E-03,-2.21565E-03, 1.39740E-03,-1.61851E-03,
     &        4.08512E-03, 3.25667E-04,-8.64246E-04,-1.04730E-03,
     &        2.18935E-03, 1.21004E-04, 1.48239E-03,-4.86528E-03,
     &        2.64547E-04,-5.17700E-04, 1.31559E-03, 2.16097E-04,
     &       -1.63300E-03,-2.08637E-03, 3.55750E-04,-7.46803E-04,
     &       -2.99917E-03, 1.75050E-03, 2.90904E-04,-2.63351E-04,
     &        7.26964E-03, 9.04671E-04, 3.22079E-04, 2.18582E-03,
     &       -1.39953E-03, 2.64409E-04, 2.74960E-03,-6.16631E-04,
     &       -4.17742E-03, 2.24185E-04,-1.76376E-03, 9.40192E-04/
C     long 60deg, dec_so
      DATA (BMAG(5,4,J),J=1,49)/ 1.07248E-02,
     &       -2.99021E-02, 3.01798E-02,-6.23271E-03,-2.72202E-02,
     &        4.17542E-02,-4.18490E-02,-2.49999E-03, 8.71332E-03,
     &       -7.47291E-03,-3.59251E-05,-4.94687E-03, 9.23516E-04,
     &       -1.26599E-02,-1.36703E-04, 1.19471E-03,-1.20787E-03,
     &        3.74982E-03, 5.57166E-04,-6.17522E-03,-1.78568E-03,
     &        1.35817E-03,-1.75141E-05, 1.84278E-03,-3.97491E-03,
     &       -4.31074E-04,-1.59519E-04, 1.26941E-03, 3.88380E-04,
     &       -1.45311E-03,-2.56919E-04, 5.25330E-04,-2.06907E-04,
     &       -1.26025E-03, 2.38859E-03,-6.57077E-04,-7.28085E-04,
     &        5.24366E-03,-4.94348E-04,-7.42600E-04, 3.32127E-03,
     &       -1.15544E-03, 6.18062E-04,-5.13070E-04, 2.14821E-04,
     &       -5.31620E-03, 4.40142E-04, 6.61159E-04, 1.48558E-03/
C     long 75deg, dec_so
      DATA (BMAG(6,4,J),J=1,49)/ 1.07847E-02,
     &       -3.02135E-02, 2.48094E-02,-3.86030E-03,-1.90248E-02,
     &        3.48656E-02,-4.45709E-02,-2.72760E-04, 8.36781E-03,
     &       -1.24351E-02, 2.30929E-03,-6.19856E-03, 5.61138E-04,
     &       -1.16390E-02, 1.11315E-03, 1.91833E-04,-2.54846E-03,
     &        4.76073E-03, 1.68134E-03,-9.05521E-03,-2.78139E-03,
     &        4.27600E-04, 4.62946E-04, 1.61572E-03,-2.50632E-03,
     &       -3.51948E-04,-6.76801E-04, 9.15700E-04, 1.78635E-03,
     &       -5.45601E-04, 4.58340E-04,-7.65013E-04,-3.35504E-04,
     &        3.06466E-03, 1.26824E-03,-6.66420E-04,-6.28289E-04,
     &        3.41746E-03,-1.26743E-03,-9.58072E-04, 3.52124E-03,
     &       -7.30286E-04, 1.41811E-04,-4.94108E-03, 1.01918E-03,
     &       -6.48567E-03, 1.56735E-03, 1.31003E-03,-1.57045E-04/
C     long 90deg, dec_so
      DATA (BMAG(7,4,J),J=1,49)/ 9.50573E-03,
     &       -2.86004E-02, 2.29756E-02,-5.70296E-04,-1.85803E-02,
     &        3.26096E-02,-4.11038E-02,-1.55296E-03, 8.72981E-03,
     &       -1.50567E-02, 4.29189E-03,-7.18281E-03, 3.53916E-03,
     &       -8.34100E-03, 3.30162E-04, 5.43233E-04,-2.97518E-03,
     &        5.54908E-03, 2.40999E-04,-4.98245E-03,-2.79978E-03,
     &       -6.12310E-04, 8.63000E-04, 1.32818E-03, 4.40472E-04,
     &       -4.43611E-05,-9.08495E-05, 3.92635E-04, 2.13061E-03,
     &        2.32260E-03, 4.80547E-04,-8.45479E-04,-2.16539E-05,
     &        2.72966E-03,-1.28739E-03,-3.75907E-04,-4.25324E-04,
     &        1.19715E-03,-6.03644E-04,-1.03654E-03, 1.99400E-03,
     &        1.69272E-03, 4.31644E-05,-4.48955E-04, 1.37813E-03,
     &       -3.43068E-03, 1.44270E-03, 6.97140E-04,-8.98595E-04/
C     long 105deg, dec_so
      DATA (BMAG(8,4,J),J=1,49)/ 5.45762E-03,
     &       -2.37702E-02, 1.72267E-02,-3.82477E-03,-5.42381E-03,
     &        2.02403E-02,-2.91449E-02,-3.90369E-03, 7.02844E-03,
     &       -1.21685E-02, 6.73620E-03,-8.20004E-03, 3.66063E-03,
     &       -9.36635E-03, 2.75508E-03,-9.71116E-04,-1.25881E-05,
     &        4.49601E-03, 3.27675E-04,-4.39375E-03,-1.49049E-03,
     &       -6.51699E-04, 7.36718E-04, 1.05638E-03, 5.75312E-03,
     &       -1.05742E-03, 2.41784E-05, 2.58235E-04, 1.84604E-03,
     &        2.62075E-03, 1.09176E-03,-5.51252E-04, 6.40911E-04,
     &        8.22488E-04,-3.98047E-04,-5.03187E-04,-2.62179E-04,
     &        3.74630E-05,-1.23386E-04,-1.19497E-03, 3.09250E-03,
     &        9.75295E-04, 1.61244E-04, 4.78344E-03, 1.20096E-03,
     &       -3.41518E-03, 1.25499E-03,-7.43365E-04,-4.92699E-04/
C     long 120deg, dec_so
      DATA (BMAG(9,4,J),J=1,49)/ 5.36556E-03,
     &       -2.21515E-02, 1.45408E-02,-7.22553E-03, 1.28216E-02,
     &        6.07609E-03,-1.63101E-02,-8.79899E-03, 4.51615E-03,
     &       -8.23818E-03, 7.10628E-03,-8.20021E-03, 1.73861E-03,
     &       -1.21311E-02, 2.60717E-03,-6.14886E-04, 8.81302E-04,
     &        3.73934E-03, 1.49241E-03,-6.79020E-03,-9.87141E-04,
     &       -2.50538E-04, 6.39733E-04, 3.80345E-04, 7.37022E-03,
     &        1.16753E-03,-6.55872E-04, 1.79938E-04, 2.18381E-03,
     &        4.72616E-03, 7.90963E-04,-5.99946E-04, 6.87480E-04,
     &        3.47218E-03,-3.89341E-04,-1.61415E-04,-7.21395E-05,
     &        3.25120E-03, 1.20144E-03,-9.02356E-04, 2.16088E-04,
     &        5.40493E-04, 8.13217E-05, 3.35413E-03, 2.13666E-04,
     &       -3.46475E-03, 1.31726E-03, 2.59480E-03, 2.53737E-03/
C     long 135deg, dec_so
      DATA (BMAG(10,4,J),J=1,49)/ 4.35468E-03,
     &       -1.82780E-02, 1.22874E-02,-1.07053E-02, 2.65443E-02,
     &        4.98913E-03,-4.96396E-03,-5.33334E-03, 4.03220E-03,
     &       -5.32008E-03, 4.01951E-03,-5.93401E-03, 2.01279E-03,
     &       -1.07264E-02,-2.57063E-04, 1.37818E-03,-7.85293E-05,
     &        3.63931E-03,-3.57871E-05,-8.16103E-03,-6.02245E-04,
     &       -1.28563E-03, 7.85786E-04, 4.99512E-04, 2.16231E-03,
     &        1.94947E-03, 2.81233E-04,-3.66896E-04, 1.86711E-03,
     &        3.15316E-03, 4.15799E-04,-1.23404E-04, 3.84788E-04,
     &        2.13123E-03,-1.27098E-03, 7.02209E-04,-7.29184E-04,
     &        4.01567E-03, 8.17415E-04,-4.35029E-04, 1.17009E-03,
     &        5.77763E-04,-2.76935E-04,-3.20580E-04, 8.32289E-04,
     &       -3.55896E-03, 1.60522E-03, 4.66665E-03, 4.09071E-03/
C     long 150deg, dec_so
      DATA (BMAG(11,4,J),J=1,49)/-2.86682E-03,
     &       -1.12418E-02, 1.31161E-02,-1.47109E-02, 4.45520E-02,
     &        8.62189E-03,-3.99009E-03, 1.24755E-03, 2.36096E-03,
     &       -3.07953E-03, 3.49316E-03,-4.08628E-03, 2.82239E-03,
     &       -5.37421E-03,-1.79248E-03, 3.23540E-03,-1.60235E-03,
     &        3.18955E-03,-5.16008E-04,-9.94653E-03, 8.36390E-04,
     &       -2.17511E-03, 3.80342E-04, 1.14528E-03,-1.00565E-03,
     &        1.32471E-03, 1.43663E-03,-8.69022E-04, 1.90093E-03,
     &       -1.13275E-03, 2.69042E-04,-4.38111E-04, 1.16470E-04,
     &       -3.45973E-03,-3.83532E-04, 3.43160E-04,-1.02109E-03,
     &       -1.50344E-03,-8.68180E-04, 2.86415E-05, 5.28936E-03,
     &       -1.11095E-03,-9.96060E-05, 1.85733E-03,-8.51892E-04,
     &       -2.14374E-03, 1.50547E-03,-7.27577E-04, 8.80727E-04/
C     long 165deg, dec_so
      DATA (BMAG(12,4,J),J=1,49)/-9.17518E-03,
     &       -1.05991E-02, 2.32907E-02,-2.70220E-02, 5.47692E-02,
     &        1.76908E-02,-1.19983E-02, 9.36240E-03,-7.61444E-04,
     &       -2.79902E-03, 5.03727E-03,-3.32663E-03, 2.31669E-03,
     &       -3.13591E-03,-6.08875E-03, 5.25652E-03,-1.48279E-03,
     &        2.00996E-03, 7.32274E-04,-1.35097E-02, 1.65860E-04,
     &       -2.29862E-03,-1.94531E-04, 1.77564E-03, 8.17962E-04,
     &        2.81477E-04, 2.03750E-03,-1.17082E-04, 1.69457E-03,
     &        1.43397E-03, 8.62336E-05,-5.75257E-04, 2.72598E-04,
     &       -1.68144E-03, 6.43040E-04, 2.65172E-04,-7.41673E-04,
     &        7.44483E-04,-7.58614E-04,-4.97735E-04, 3.00839E-03,
     &       -1.20768E-03, 7.51134E-04,-8.92738E-04,-1.42442E-03,
     &       -8.89541E-04, 3.97692E-04,-1.74062E-04,-3.14237E-03/
C     long 180deg, dec_so
      DATA (BMAG(13,4,J),J=1,49)/-9.09915E-03,
     &       -1.63615E-02, 3.27262E-02,-2.74252E-02, 4.16975E-02,
     &        2.10295E-02,-2.16680E-02, 1.85762E-02,-5.95811E-03,
     &       -2.86853E-03, 4.83569E-03,-4.64372E-03, 1.95380E-03,
     &       -1.89674E-03,-9.53958E-03, 4.78018E-03,-3.25388E-04,
     &        2.17482E-03, 8.55834E-04,-1.76154E-02, 1.00296E-03,
     &       -1.67882E-03,-1.27579E-04, 1.18288E-03, 3.15490E-04,
     &       -1.63992E-03, 2.64949E-03, 3.38734E-04, 8.62441E-04,
     &        3.23859E-03,-4.92240E-04,-1.07528E-03, 7.12691E-04,
     &       -1.64491E-03, 5.86101E-04, 6.53277E-04,-5.78812E-04,
     &        2.23918E-03, 3.33190E-04,-5.87012E-04, 4.33232E-03,
     &       -1.10746E-03, 1.31046E-03,-5.54894E-04, 6.22634E-04,
     &       -1.22343E-03,-1.29182E-05, 4.47458E-04,-3.64547E-04/
C     long 195deg, dec_so
      DATA (BMAG(14,4,J),J=1,49)/-7.25595E-03,
     &       -1.90026E-02, 3.35892E-02,-2.02704E-02, 3.08259E-02,
     &        1.37638E-02,-2.29992E-02, 1.38111E-02,-2.64410E-03,
     &       -3.46507E-03, 3.45515E-03,-4.92607E-03, 1.77403E-03,
     &        9.54742E-05,-8.18801E-03, 1.57218E-03,-1.05084E-03,
     &        3.79981E-03, 4.92728E-04,-2.03526E-02, 1.88336E-03,
     &       -5.52131E-04,-2.62509E-04, 1.22602E-03,-2.09288E-03,
     &       -1.45204E-03, 4.23005E-03,-5.92572E-04, 5.45279E-04,
     &       -7.19402E-05, 6.93533E-04,-1.27280E-03, 3.53936E-04,
     &       -2.03459E-03,-8.56909E-04, 1.23966E-04,-4.79253E-04,
     &       -1.68495E-03,-4.45097E-04,-1.61925E-05, 5.81059E-03,
     &       -1.71649E-04, 4.53742E-04, 4.28329E-03, 5.76838E-04,
     &        1.61915E-03,-2.02619E-03, 2.33846E-03, 6.46441E-04/
C     long 210deg, dec_so
      DATA (BMAG(15,4,J),J=1,49)/-3.82620E-03,
     &       -2.12378E-02, 2.62309E-02,-1.60683E-02, 2.36654E-02,
     &        9.68065E-03,-1.73471E-02, 2.64988E-03,-2.19027E-03,
     &       -7.71197E-04, 1.97455E-03,-3.88118E-03, 1.38943E-03,
     &        3.14183E-03,-6.68719E-03, 3.24398E-03,-5.12152E-04,
     &        2.48815E-03, 4.15604E-04,-1.65474E-02, 1.43362E-03,
     &       -1.75871E-04,-1.10642E-03, 1.98391E-03, 5.30029E-03,
     &       -2.06139E-03, 4.03293E-03,-5.88056E-04,-2.75918E-05,
     &       -2.47233E-04, 2.93621E-03,-6.30132E-04, 4.16510E-04,
     &        9.87790E-04,-1.69452E-03, 5.36973E-04,-2.16437E-04,
     &       -2.29347E-03,-1.31139E-03,-3.75320E-05, 1.95375E-03,
     &        7.31961E-04,-7.04457E-04, 1.74771E-03, 9.95510E-04,
     &       -8.95090E-04,-1.58420E-03, 5.59165E-03, 1.02527E-04/
C     long 225deg, dec_so
      DATA (BMAG(16,4,J),J=1,49)/ 5.10463E-04,
     &       -2.45635E-02, 2.10456E-02,-5.42375E-03, 1.84766E-02,
     &        3.32604E-03,-1.88546E-02,-2.51258E-03,-5.75941E-03,
     &        2.67061E-03, 4.36384E-04,-3.62434E-03, 2.71974E-03,
     &        7.95955E-03,-9.36952E-03, 4.67987E-03, 4.30935E-04,
     &        1.40309E-03, 1.42037E-03,-1.30675E-02, 1.48981E-03,
     &        5.95888E-04,-9.54067E-04, 1.56548E-03, 3.85007E-03,
     &       -2.40008E-03, 3.00201E-03,-1.88953E-04,-6.64387E-04,
     &       -1.47123E-03, 3.37951E-03,-2.84789E-04, 5.53656E-04,
     &        8.76936E-04,-3.04127E-04, 6.73028E-04,-3.70310E-04,
     &       -3.43986E-03, 2.09710E-04,-1.17549E-05, 6.94440E-03,
     &        5.66816E-04,-7.46961E-04, 3.75795E-03, 1.13678E-03,
     &       -4.30295E-03, 1.14917E-03, 5.30877E-03, 3.55445E-03/
C     long 240deg, dec_so
      DATA (BMAG(17,4,J),J=1,49)/ 2.94685E-04,
     &       -2.23682E-02, 1.90201E-02,-9.70720E-04, 2.01017E-02,
     &        1.21190E-03,-1.75598E-02, 1.05642E-03,-9.40666E-03,
     &        2.51377E-03, 2.11622E-03,-2.29157E-03, 2.34981E-03,
     &        5.94295E-03,-9.81157E-03, 1.31657E-03, 5.37200E-04,
     &        1.85094E-03, 2.01406E-03,-1.23981E-02, 7.06214E-04,
     &        1.11497E-03,-1.12406E-03, 1.60652E-03, 2.42900E-03,
     &        7.21768E-04, 3.35113E-03,-1.42603E-03,-7.67907E-04,
     &       -1.97088E-03, 4.42491E-03,-6.70205E-04,-5.57166E-05,
     &       -1.29954E-03,-2.09310E-04, 8.85909E-04,-6.79758E-04,
     &       -3.77584E-03,-6.00360E-04,-1.66175E-04, 5.49967E-03,
     &        2.06228E-04,-5.27277E-04, 5.24055E-03, 9.15526E-04,
     &        5.29905E-04, 7.08144E-04, 1.01095E-03, 3.57040E-03/
C     long 255deg, dec_so
      DATA (BMAG(18,4,J),J=1,49)/-3.59300E-03,
     &       -1.74672E-02, 1.86418E-02,-6.18155E-03, 2.13699E-02,
     &        9.99850E-03,-2.41586E-02, 6.17424E-03,-9.47716E-03,
     &        2.04210E-03, 1.84281E-03,-7.01812E-04, 1.54309E-03,
     &        9.80868E-04,-8.45572E-03, 2.03910E-03, 7.67381E-04,
     &        1.87207E-03, 9.74718E-04,-6.80748E-03,-2.60204E-03,
     &        2.32997E-03,-8.27403E-04, 1.59541E-03, 2.35438E-03,
     &        3.36031E-03, 1.65112E-03,-8.64347E-04,-8.01895E-04,
     &       -1.42416E-04, 3.74526E-03,-1.49505E-03, 4.32410E-04,
     &       -5.27254E-03, 3.87461E-04, 1.66607E-03,-1.26963E-04,
     &        1.52622E-03,-1.07507E-03,-2.07627E-04, 1.71249E-03,
     &        6.01555E-04,-7.80970E-04, 2.13115E-03, 3.28630E-04,
     &        1.39839E-03,-5.80262E-05,-2.08735E-03, 3.64384E-03/
C     long 270deg, dec_so
      DATA (BMAG(19,4,J),J=1,49)/-4.59532E-03,
     &       -1.38354E-02, 8.74143E-03,-1.73145E-03, 2.51204E-02,
     &        1.43527E-02,-2.83651E-02, 6.46000E-03,-5.83080E-03,
     &        2.13269E-03, 1.09840E-03,-1.86670E-03, 1.94506E-03,
     &       -2.15864E-03,-4.60393E-03, 2.65128E-03, 2.09425E-03,
     &        2.06847E-03,-6.29922E-04,-4.38055E-03,-1.61036E-03,
     &        2.38815E-03, 2.69895E-04, 1.15395E-03,-9.71410E-04,
     &       -9.69527E-04, 1.21806E-03, 4.82038E-04,-1.03357E-03,
     &        2.39599E-03, 1.57597E-03,-1.02153E-03, 6.83644E-04,
     &       -3.72446E-03, 8.56594E-04, 6.24565E-04, 3.16382E-04,
     &       -1.30652E-03, 1.64272E-04,-2.12690E-04,-8.14077E-04,
     &        1.93464E-03,-3.36099E-04, 1.92773E-03,-4.86061E-04,
     &        3.73871E-04, 5.18644E-04,-1.26734E-03, 4.04683E-03/
C     long 285deg, dec_so
      DATA (BMAG(20,4,J),J=1,49)/-2.24731E-03,
     &       -9.37886E-03,-6.40374E-03, 4.76349E-03, 2.47102E-02,
     &        1.06625E-02,-2.12263E-02, 4.75814E-03,-6.60720E-03,
     &        5.76014E-04, 3.91039E-03,-1.95493E-03, 1.23975E-03,
     &       -4.69126E-03,-2.64008E-03, 3.35081E-03, 2.03499E-03,
     &        2.40774E-03,-1.04675E-03, 3.97871E-05,-1.45319E-04,
     &        1.22086E-03, 9.05198E-04,-1.59007E-05, 1.70466E-03,
     &       -3.01864E-03, 1.11035E-03, 2.55248E-04,-1.30326E-03,
     &        1.48884E-03, 2.16855E-04, 3.08356E-04,-2.20874E-05,
     &       -3.33068E-03, 1.34689E-03,-5.44397E-04, 1.52942E-04,
     &       -3.65838E-03, 9.59284E-05,-2.50166E-04, 1.85825E-03,
     &        2.98881E-03,-8.61152E-05, 2.21659E-03,-2.74847E-04,
     &        4.09397E-03, 9.28350E-04,-1.46638E-03, 3.02716E-03/
C     long 300deg, dec_so
      DATA (BMAG(21,4,J),J=1,49)/-3.18589E-03,
     &       -4.83111E-03,-1.50606E-02,-3.19379E-05, 2.57953E-02,
     &        1.32591E-02,-1.91450E-02, 4.21829E-03,-6.21222E-03,
     &       -4.09646E-04, 4.89710E-03,-1.28196E-03, 5.31815E-04,
     &       -8.90517E-03, 2.24370E-04, 2.84629E-03, 2.83519E-04,
     &        3.38860E-03,-1.38075E-03, 5.73453E-03, 1.62761E-03,
     &        9.77453E-05, 3.31547E-04,-5.46975E-04, 4.47277E-03,
     &       -7.28023E-04,-1.41245E-04, 8.53055E-04,-1.00921E-03,
     &       -4.52740E-03,-4.95287E-04, 5.40868E-04, 9.84803E-05,
     &       -8.43748E-03, 1.48836E-03,-2.92303E-04, 2.51425E-04,
     &       -4.99283E-03, 4.14404E-05,-2.80008E-04, 9.51673E-03,
     &        3.21964E-03,-1.87147E-04, 4.03190E-03, 5.04324E-04,
     &        3.86851E-03, 8.57418E-04, 6.51713E-04, 5.80437E-03/
C     long 315deg, dec_so
      DATA (BMAG(22,4,J),J=1,49)/-6.75892E-03,
     &       -1.86000E-03,-1.65343E-02,-8.80683E-03, 2.70905E-02,
     &        1.61069E-02,-2.04430E-02, 2.52389E-03,-1.05285E-03,
     &       -2.88380E-03, 2.96409E-03,-5.52167E-04,-2.11889E-04,
     &       -8.81017E-03, 3.75977E-03, 2.10810E-03,-9.45562E-04,
     &        4.55146E-03,-1.56263E-03,-1.31646E-03, 4.11244E-03,
     &       -1.14829E-03,-4.03344E-04,-5.24582E-04, 2.14183E-04,
     &       -4.78363E-04,-4.90535E-04, 1.66372E-03,-4.63344E-04,
     &       -4.83977E-03, 5.99009E-04,-7.33105E-04, 6.75190E-04,
     &       -6.54952E-03, 7.60190E-04,-5.37979E-05, 1.48118E-04,
     &       -4.25483E-03,-7.61752E-04,-2.87084E-04, 6.36974E-03,
     &        6.60952E-04, 1.20069E-04, 4.15306E-03, 5.56980E-04,
     &        2.18717E-03, 6.27100E-04, 7.87864E-04, 4.95914E-03/
C     long 330deg, dec_so
      DATA (BMAG(23,4,J),J=1,49)/-8.75227E-03,
     &       -2.15121E-04,-1.30872E-02,-1.30124E-02, 2.77775E-02,
     &        1.69636E-02,-2.82455E-02, 1.90987E-03,-1.42698E-03,
     &       -2.77939E-03, 2.55541E-03,-2.65676E-03,-5.68834E-04,
     &       -2.79338E-03, 1.06378E-03, 1.77925E-03, 1.51070E-03,
     &        4.66076E-03,-2.21942E-03,-1.07645E-03, 3.00887E-03,
     &       -1.92032E-03,-3.43475E-04,-2.69654E-04,-1.34570E-04,
     &       -2.46063E-03, 4.30265E-04, 2.17957E-03,-4.13266E-04,
     &       -5.08780E-03, 2.50499E-03,-1.14684E-03, 5.52387E-04,
     &       -3.82836E-03, 2.68409E-03,-5.55400E-04,-9.39039E-05,
     &       -1.18365E-03,-2.43089E-03, 3.24400E-04, 1.17346E-03,
     &       -1.63603E-03, 5.79709E-05, 7.02292E-03, 3.37325E-04,
     &       -1.25200E-03,-3.14940E-04,-3.35987E-03, 1.43558E-04/
C     long 345deg, dec_so
      DATA (BMAG(24,4,J),J=1,49)/-4.17388E-03,
     &       -2.56695E-03,-3.58985E-03,-8.84937E-03, 1.50674E-02,
     &        2.21006E-02,-3.13298E-02, 9.73743E-03,-6.30090E-03,
     &       -4.73806E-04, 3.40926E-03,-5.88527E-03, 3.05167E-03,
     &       -8.12437E-04,-4.84605E-03, 5.79067E-04, 4.02507E-03,
     &        3.00389E-03,-3.04605E-03, 2.61995E-04, 6.10580E-04,
     &       -2.10356E-03, 9.30977E-04, 1.80406E-04, 2.30371E-03,
     &       -3.63255E-03, 1.03136E-03, 1.28485E-03,-5.79162E-04,
     &       -3.03280E-03, 3.16120E-03,-8.30091E-04, 1.25300E-04,
     &       -5.60348E-03, 1.67459E-03,-7.97515E-04, 3.25651E-04,
     &       -4.63576E-04,-2.67818E-03, 7.31003E-04, 4.09717E-03,
     &       -1.33248E-03,-3.17996E-04, 4.30204E-03, 4.60593E-04,
     &       -2.15169E-03,-5.24817E-04,-4.86604E-03,-1.64350E-03/
      DO 30 K=1,49
       DO 20 J=1,4
        DO 10 I=1,24
         AMAGO(I,J,K)=AMAG(I,J,K)
         BMAGO(I,J,K)=BMAG(I,J,K)
10      CONTINUE
20     CONTINUE
30    CONTINUE
C////////////////////////////////////////////////////////////////////////////////////
      RETURN
      END
C end kofesm
C
C
      SUBROUTINE KOFESS(ASOLO,BSOLO)
C////////////////////////////////coefficients - PF107 Es model dependence//////////////////////
C        index:long,seas,koef
      REAL ASOLO(24,4,81),BSOLO(24,4,81)
      REAL ASOL(24,4,81),BSOL(24,4,81)
C     long 0deg, mar_eq
      DATA (ASOL(1,1,J),J=1,81)/-5.66308E-04,
     &        1.36682E-04, 1.21307E-03,-8.81960E-05,-7.12659E-04,
     &        3.76397E-05, 5.17705E-04,-3.29155E-04,-3.36507E-05,
     &       -9.37545E-05, 7.10300E-05,-2.64530E-06,-7.42049E-05,
     &        6.09523E-05, 2.96456E-05,-2.36879E-05,-7.24507E-06,
     &       -1.65067E-04, 2.94083E-04,-2.10085E-04,-2.85512E-06,
     &        1.17829E-04,-4.76964E-05,-2.73828E-05,-9.92558E-06,
     &        4.43655E-05, 7.94710E-05,-4.77891E-05,-5.66652E-06,
     &        9.99705E-07, 4.03586E-06,-4.21107E-06, 5.83283E-05,
     &       -1.11319E-04, 5.04494E-05, 4.89920E-06, 1.42048E-06,
     &        1.73879E-08,-8.22271E-06,-6.81797E-05, 4.66004E-05,
     &       -3.38371E-05, 2.96845E-05, 5.13172E-06,-1.02160E-05,
     &       -3.07494E-05, 1.98920E-06, 1.42178E-05, 8.90003E-06,
     &       -1.14717E-05,-6.86883E-07, 2.75747E-06,-7.25064E-05,
     &       -4.89954E-06, 8.51413E-06,-2.68986E-06,-2.32772E-04,
     &       -8.46488E-05,-3.91042E-06,-5.41928E-06, 4.27000E-06,
     &       -3.47540E-05, 1.68849E-05, 3.36540E-06, 7.22470E-06,
     &        8.15735E-05,-2.23286E-05, 2.61398E-05,-1.43471E-06,
     &       -1.93922E-04,-1.71921E-05,-2.32597E-06, 1.61607E-04,
     &       -2.72212E-05, 8.64293E-07, 1.46568E-04, 5.65879E-06,
     &        3.26643E-06,-1.78125E-05,-1.76017E-05, 8.12965E-06/
C     long 15deg, mar_eq
      DATA (ASOL(2,1,J),J=1,81)/-4.69875E-04,
     &        2.52017E-04, 1.01092E-03,-1.72232E-04,-4.57446E-04,
     &       -6.71923E-05, 3.81611E-04,-6.25573E-05,-1.30702E-04,
     &       -1.08762E-05,-1.41397E-05, 6.15086E-05,-1.81538E-06,
     &       -1.90225E-05, 1.88376E-05, 1.27255E-05,-1.52893E-06,
     &       -9.42697E-05, 1.64376E-04,-2.43008E-04, 2.12450E-05,
     &        1.33479E-04,-4.81992E-05,-1.22228E-05,-1.48478E-05,
     &        7.04681E-05, 1.66790E-06,-9.55935E-05, 2.17720E-05,
     &        2.26061E-05,-2.92117E-06,-8.70563E-06,-8.91656E-05,
     &       -1.27686E-04, 9.10656E-05, 6.68843E-06,-5.07546E-06,
     &        1.10294E-05,-1.93007E-05,-6.59556E-05, 4.06274E-05,
     &       -3.55092E-05, 2.24039E-05, 5.66156E-06,-7.47919E-06,
     &        4.18926E-05, 6.65739E-05, 2.04831E-05,-1.31086E-05,
     &       -1.13516E-05, 1.81720E-06,-1.07066E-05,-9.52821E-05,
     &        4.24692E-06, 8.19641E-06,-4.25508E-06,-2.81920E-04,
     &       -6.40255E-05,-6.56241E-06, 7.01808E-06, 1.64641E-06,
     &        2.49676E-05,-3.94815E-06,-5.46948E-07, 1.05539E-05,
     &        2.45255E-05,-2.82474E-05, 3.80001E-05,-1.24728E-05,
     &       -1.91903E-04,-3.04877E-05,-6.73970E-06, 1.73837E-04,
     &       -2.03824E-05,-1.68814E-06, 1.17730E-04, 1.79598E-05,
     &        2.44397E-05,-1.48718E-05,-1.25507E-05, 5.13941E-05/
C     long 30deg, mar_eq
      DATA (ASOL(3,1,J),J=1,81)/-4.09537E-04,
     &        2.61801E-04, 8.29918E-04,-2.35939E-04,-2.96577E-04,
     &       -4.77201E-05, 2.52981E-04,-2.12706E-05,-8.64315E-05,
     &        1.20426E-04,-9.79335E-05, 6.95476E-05, 8.65384E-05,
     &       -9.13312E-05,-3.02896E-05, 5.20159E-05,-2.98648E-06,
     &        2.61459E-04, 3.71481E-05,-2.76418E-04, 9.01625E-05,
     &        8.00459E-05,-6.04888E-05, 5.78716E-06,-1.80311E-05,
     &        4.34534E-05,-2.40907E-05,-7.78311E-05, 2.94395E-05,
     &        1.82015E-05,-5.12748E-06, 3.12166E-07,-2.37224E-04,
     &       -9.36322E-05, 5.45587E-05,-8.34998E-06, 1.84275E-06,
     &        1.88094E-05,-2.36204E-05,-2.05600E-05, 1.21552E-05,
     &       -2.60284E-05, 2.59446E-05, 3.21059E-06,-5.67587E-06,
     &        6.73048E-05, 9.49740E-05, 1.82032E-05,-5.51053E-06,
     &       -6.97387E-06,-6.99741E-07,-2.20016E-05,-7.89395E-05,
     &        7.74050E-06, 5.20102E-06,-2.77796E-06,-2.08940E-04,
     &       -4.00648E-05,-2.37311E-06,-3.85938E-06, 4.43332E-06,
     &       -8.47265E-05, 3.71094E-06,-2.95476E-06, 1.29679E-05,
     &       -4.94563E-05,-2.50575E-06, 1.48025E-05,-4.81949E-06,
     &       -2.28042E-04,-5.54135E-05,-7.80211E-06, 8.72375E-05,
     &        3.99435E-06, 8.45469E-06,-7.62347E-05, 3.18816E-05,
     &        9.62035E-05,-2.47461E-07, 4.99712E-05, 4.42322E-05/
C     long 45deg, mar_eq
      DATA (ASOL(4,1,J),J=1,81)/-3.93479E-04,
     &        3.32606E-04, 6.94847E-04,-2.69179E-04,-2.67488E-04,
     &       -2.75607E-04, 1.14963E-04, 7.30797E-05, 6.87553E-05,
     &        1.43489E-04,-1.54394E-04, 3.08325E-05, 7.39680E-05,
     &       -8.76224E-05,-8.68960E-07, 5.28699E-05,-2.42091E-05,
     &        4.46887E-04,-2.42297E-05,-2.69450E-04, 9.96549E-05,
     &        2.61684E-05,-5.66698E-05, 3.92846E-05,-3.83030E-06,
     &        4.25362E-05, 5.03190E-06,-3.04173E-05, 9.65294E-06,
     &       -5.13695E-06, 3.55876E-08, 8.52629E-06,-1.23041E-04,
     &       -4.02601E-05, 1.94557E-05,-2.59813E-05,-6.40973E-06,
     &        1.93381E-05,-1.66679E-05,-1.40171E-04, 8.70890E-06,
     &       -2.11701E-05, 2.50320E-05,-5.70493E-06,-3.96226E-06,
     &        5.67950E-05, 7.61537E-05, 1.07523E-05, 1.60729E-05,
     &       -8.84612E-08,-6.46485E-06,-8.54450E-05,-3.04373E-05,
     &        9.27955E-06, 6.63401E-07, 5.89669E-06,-1.81960E-05,
     &       -3.27733E-05, 7.60687E-06,-7.75047E-06, 3.12969E-06,
     &       -9.59386E-05, 3.75111E-05, 1.14639E-05, 9.15174E-06,
     &       -4.63563E-05, 5.01163E-06, 8.34457E-06, 8.41043E-07,
     &       -1.86189E-04,-3.89687E-05,-8.06696E-06, 7.60122E-05,
     &        3.86945E-05, 8.96841E-06,-3.99312E-05, 2.23298E-05,
     &        1.07927E-04, 7.53048E-06, 7.62506E-05, 1.53382E-05/
C     long 60deg, mar_eq
      DATA (ASOL(5,1,J),J=1,81)/-3.72432E-04,
     &        4.33991E-04, 6.67935E-04,-2.99551E-04,-1.45382E-04,
     &       -4.42839E-04, 6.46671E-05, 7.75884E-05, 1.46028E-04,
     &        1.13894E-04,-1.84328E-04, 4.59839E-06, 8.98060E-05,
     &       -3.27749E-05, 1.01903E-05, 3.30713E-05,-2.46809E-05,
     &        4.14005E-04,-5.92457E-05,-2.33329E-04, 6.35498E-05,
     &        3.29290E-05,-3.66578E-05, 1.58512E-05, 5.37001E-06,
     &        1.35721E-04, 8.19789E-05,-1.25636E-05, 4.00688E-06,
     &       -3.81202E-06, 1.11831E-06, 8.31136E-06,-8.53184E-06,
     &        4.91046E-05, 1.25842E-05,-3.73257E-05,-1.09020E-05,
     &        6.29007E-06,-2.92792E-06,-1.21165E-04, 6.91639E-06,
     &       -8.66605E-06, 1.37220E-05,-7.24045E-06,-1.30576E-06,
     &        4.80882E-05, 9.87098E-05,-8.50072E-07, 3.09438E-06,
     &       -2.78354E-06,-4.55515E-06,-9.39617E-05, 3.36285E-05,
     &        2.12965E-05,-4.85472E-06, 3.76751E-06,-3.38186E-05,
     &       -2.58433E-05, 1.30575E-05,-5.46901E-06, 1.67228E-06,
     &       -9.73271E-05, 3.94095E-05, 9.19130E-06, 3.25901E-06,
     &       -2.54930E-05,-7.16455E-06,-9.86557E-06,-1.94587E-06,
     &       -8.49158E-05,-3.96508E-05,-4.32083E-06, 7.25329E-05,
     &        8.19909E-06,-7.57599E-06, 6.88714E-05, 1.80135E-05,
     &       -9.73903E-06,-1.48848E-05, 1.86469E-06, 5.23503E-05/
C     long 75deg, mar_eq
      DATA (ASOL(6,1,J),J=1,81)/-3.92291E-04,
     &        5.46973E-04, 7.05202E-04,-3.81136E-04, 3.97878E-05,
     &       -3.25401E-04,-1.55844E-04, 1.77004E-04, 1.81384E-04,
     &        1.15547E-04,-1.82618E-04, 8.30816E-06, 9.92535E-05,
     &       -1.09447E-05,-1.08299E-07, 2.95711E-05, 6.15110E-06,
     &        4.35228E-04,-3.60377E-05,-1.95583E-04, 3.71424E-05,
     &        2.79794E-05,-1.79568E-05, 1.26114E-05,-6.79610E-07,
     &        1.26234E-04, 1.28195E-04, 6.60557E-06, 2.54830E-05,
     &       -8.11463E-06, 3.65358E-06, 3.67917E-06,-2.45025E-05,
     &        4.06841E-05, 1.30403E-05,-2.82826E-05, 1.24493E-06,
     &        5.51694E-06,-5.65810E-06,-5.76373E-05, 7.12809E-06,
     &       -5.17853E-06, 6.41111E-06, 6.57861E-07,-2.04794E-06,
     &        1.01298E-04, 9.23699E-05,-7.94399E-06,-1.25398E-05,
     &       -9.70005E-06,-4.41830E-06, 4.93560E-05, 6.67286E-05,
     &        3.23328E-05,-1.85302E-05,-6.48192E-07,-5.53083E-05,
     &       -2.12223E-05, 1.08360E-05, 2.95156E-06, 3.85900E-06,
     &       -1.25426E-04, 2.69491E-05, 5.52544E-06, 5.11212E-06,
     &       -5.48672E-05,-2.36867E-05,-5.85263E-06, 2.22349E-06,
     &       -8.76217E-05,-2.09721E-05,-5.27110E-06, 1.26856E-05,
     &       -1.48536E-05,-1.08757E-05, 1.02014E-04, 1.04784E-05,
     &        7.74192E-05,-1.93102E-05, 2.48058E-05, 5.02831E-05/
C     long 90deg, mar_eq
      DATA (ASOL(7,1,J),J=1,81)/-4.17831E-04,
     &        6.23897E-04, 8.05568E-04,-4.47513E-04,-1.04266E-04,
     &       -2.37848E-04,-1.02386E-04, 2.47099E-04, 2.00986E-04,
     &       -1.05899E-07,-1.85750E-04, 6.08474E-05, 6.39844E-05,
     &        2.26560E-06, 4.76746E-06, 4.06108E-05, 1.90675E-05,
     &        4.21051E-04, 5.27983E-05,-2.40783E-04,-2.21955E-06,
     &        4.30033E-05,-8.18854E-07, 2.28974E-05,-1.14666E-05,
     &        1.12608E-04, 1.30278E-04,-3.38536E-06, 3.55229E-05,
     &        2.30486E-06,-2.72089E-06, 3.60327E-06, 6.47878E-06,
     &       -4.52702E-05, 1.84987E-05,-1.28870E-05,-8.29296E-06,
     &        1.13266E-05,-4.67875E-06,-9.59154E-05,-4.29647E-05,
     &       -2.44247E-05, 7.76587E-06, 1.22903E-06,-2.16515E-06,
     &        1.36463E-04, 1.10383E-04,-8.92990E-06,-1.71999E-05,
     &       -9.98991E-06,-5.44559E-06, 9.95369E-05, 3.79465E-05,
     &        4.14527E-05,-2.19548E-05,-1.77903E-07,-1.46597E-04,
     &       -3.36948E-05,-1.39987E-06, 1.78493E-06, 3.05141E-06,
     &       -5.93706E-05, 3.34050E-05,-4.66152E-06, 2.53577E-06,
     &       -7.21314E-05,-1.78389E-05, 9.23832E-06, 3.41511E-06,
     &       -1.19916E-04,-2.29471E-05,-8.26410E-06, 1.53250E-05,
     &       -4.36142E-05,-1.06702E-05, 2.97140E-05, 1.45219E-05,
     &        8.24743E-05, 1.04630E-05,-4.32969E-05,-6.49944E-05/
C     long 105deg, mar_eq
      DATA (ASOL(8,1,J),J=1,81)/-4.30480E-04,
     &        5.81162E-04, 8.24649E-04,-4.11108E-04,-1.63753E-04,
     &       -1.91486E-04,-1.24141E-04, 6.75403E-05, 2.43743E-04,
     &       -1.14376E-04,-1.91296E-04, 7.90624E-05, 8.20363E-05,
     &        1.44356E-06, 1.46228E-05, 3.55521E-05, 1.62639E-05,
     &        3.18587E-04, 7.16529E-05,-2.55998E-04, 1.80483E-05,
     &        4.08482E-05,-1.97673E-05, 7.37496E-06,-9.16689E-06,
     &        9.91678E-05, 1.20632E-04,-2.46994E-05, 4.03861E-05,
     &        2.50551E-05,-5.75900E-06,-1.63375E-06, 9.88277E-05,
     &       -2.08816E-05, 6.19100E-05,-2.55094E-05,-3.21661E-05,
     &        4.67511E-06,-2.99765E-06,-5.36684E-05,-3.03493E-05,
     &       -4.04636E-05, 8.64570E-06, 1.12220E-06,-4.47730E-06,
     &        1.68844E-05, 8.66781E-05, 1.39494E-05,-1.24443E-05,
     &       -1.08404E-05,-3.99905E-06, 1.01361E-04, 1.86006E-05,
     &        5.33521E-05,-1.76727E-05,-1.92852E-06,-1.08540E-04,
     &       -3.17643E-05,-4.87599E-06, 3.76160E-06, 1.38443E-06,
     &        1.93234E-05,-1.19941E-05,-9.17532E-06, 3.34545E-06,
     &       -4.88588E-05,-5.16919E-06, 8.94451E-07,-1.50909E-06,
     &       -1.77090E-04,-1.64393E-05,-4.69795E-06,-4.79868E-05,
     &       -2.24343E-05,-1.28361E-05,-5.09497E-06,-8.77845E-07,
     &        5.65610E-05, 9.96996E-06,-3.00228E-05,-1.03386E-04/
C     long 120deg, mar_eq
      DATA (ASOL(9,1,J),J=1,81)/-3.84158E-04,
     &        5.35011E-04, 6.99611E-04,-4.82617E-04,-2.45494E-04,
     &       -9.70638E-05,-1.77975E-04,-7.35407E-05, 1.33940E-04,
     &       -9.82285E-07,-1.76388E-04, 1.69908E-05, 8.93446E-05,
     &        5.85350E-06,-1.90986E-05,-1.79109E-07, 1.30002E-05,
     &        2.80586E-04,-4.92051E-06,-2.42933E-04, 5.88427E-05,
     &        5.09413E-05,-4.21460E-05, 9.39222E-06, 1.23440E-05,
     &        7.00801E-05, 6.98679E-05,-3.66440E-05, 4.24996E-05,
     &        2.86146E-05,-1.12992E-05,-6.67055E-06, 8.35157E-05,
     &       -3.10422E-05, 5.19507E-05,-2.84902E-05,-3.60430E-05,
     &        1.53209E-05, 1.85654E-06, 7.99898E-05, 1.06188E-05,
     &       -4.99933E-05, 1.12795E-05, 2.36010E-06,-1.46327E-07,
     &        4.76689E-05, 7.58796E-05, 2.69691E-05,-1.31224E-05,
     &       -6.23906E-06,-6.37695E-07, 1.30240E-05,-4.34103E-07,
     &        4.51475E-05,-1.61623E-05, 9.37113E-07,-1.49359E-04,
     &       -5.20904E-05, 9.41916E-07, 9.07156E-06,-2.64381E-06,
     &        7.38331E-05,-2.23823E-05, 7.76778E-06, 4.36308E-06,
     &        1.39536E-05, 2.17229E-05,-3.41892E-06,-4.32326E-06,
     &       -1.42124E-04,-6.75386E-06,-4.40731E-06,-1.00076E-04,
     &        6.36682E-06,-1.54976E-05, 3.57415E-05, 1.56579E-05,
     &        5.05548E-05, 1.14061E-05, 5.39791E-05,-8.07965E-05/
C     long 135deg, mar_eq
      DATA (ASOL(10,1,J),J=1,81)/-3.67095E-04,
     &        5.47485E-04, 6.12860E-04,-6.54943E-04,-2.77762E-04,
     &       -6.38507E-05,-1.11270E-04, 7.64015E-05, 1.23919E-04,
     &        1.86096E-04,-1.57711E-04,-4.77162E-05, 4.28366E-05,
     &       -1.29769E-05,-2.66325E-05,-2.67974E-05, 6.92052E-06,
     &        3.22118E-04,-3.68794E-05,-2.35416E-04, 7.70084E-05,
     &        5.90991E-05,-2.48698E-05, 1.67048E-05,-5.58389E-06,
     &        5.51692E-05, 7.56209E-05,-2.52425E-05, 1.66112E-05,
     &        2.84871E-05,-2.23601E-05,-5.17925E-06,-1.32884E-04,
     &       -6.48673E-05, 3.22728E-05,-1.90790E-05,-1.42653E-05,
     &        1.77980E-05, 8.80438E-07, 6.82205E-05, 2.30405E-05,
     &       -4.08854E-05, 4.77383E-06, 2.42973E-07,-8.12818E-07,
     &        1.25373E-04, 7.93397E-05, 1.60173E-05,-8.82323E-06,
     &       -7.21303E-06,-9.88470E-08,-7.96888E-05,-2.23686E-05,
     &        2.93152E-05,-7.63979E-06, 1.04185E-06,-1.66917E-04,
     &       -7.18233E-05,-2.22100E-06, 1.66437E-06,-1.10639E-06,
     &        6.57394E-05,-7.34862E-06, 7.10409E-06, 2.23307E-06,
     &        1.86103E-05, 5.47506E-06,-3.23257E-06,-4.02133E-06,
     &       -1.92844E-04,-2.88776E-05,-4.50118E-06, 3.55669E-05,
     &       -9.69351E-06,-3.31419E-06, 1.61617E-04, 1.14911E-05,
     &        2.24465E-05, 1.02528E-05, 6.29290E-05,-5.10679E-05/
C     long 150deg, mar_eq
      DATA (ASOL(11,1,J),J=1,81)/-4.67756E-04,
     &        6.58149E-04, 7.58361E-04,-8.78940E-04,-3.43094E-04,
     &        2.94674E-05,-7.88007E-05, 1.94502E-04, 1.38495E-04,
     &        2.64208E-04,-1.68117E-04,-4.03807E-05, 4.45900E-05,
     &       -2.72743E-05,-1.54219E-05,-2.88106E-05, 1.09251E-05,
     &        4.64798E-04,-4.74825E-05,-2.38170E-04, 1.10775E-04,
     &        4.75574E-06,-2.74160E-06, 3.63739E-05,-3.85454E-05,
     &        1.12260E-04, 1.22057E-04,-2.29998E-05, 9.76591E-06,
     &        1.01513E-05,-1.77485E-05,-8.52900E-06,-3.52783E-04,
     &       -8.39083E-05, 1.63488E-05,-4.89531E-06, 1.27103E-05,
     &        7.88857E-06, 3.62100E-06,-9.32305E-05,-4.21062E-06,
     &       -2.42570E-05, 1.47425E-06, 8.52288E-06,-2.96360E-06,
     &        2.28288E-04, 1.04284E-04, 1.75597E-05,-2.29927E-05,
     &       -1.34367E-05, 2.08359E-06,-3.37342E-05,-5.90525E-05,
     &        1.56063E-05,-5.60164E-06,-4.76249E-06,-2.01473E-04,
     &       -7.02861E-05,-1.63089E-05, 5.06762E-06, 3.06754E-06,
     &        1.38854E-04, 8.73409E-06, 4.58789E-06,-6.92015E-07,
     &        4.94177E-05, 2.24110E-08, 1.38960E-05,-4.76071E-06,
     &       -2.34788E-04,-3.58230E-05,-1.09437E-05, 9.73909E-05,
     &        7.72318E-06, 3.06923E-06, 2.08183E-04, 1.01154E-05,
     &       -2.10953E-05, 3.10383E-06,-4.70081E-05, 6.35524E-05/
C     long 165deg, mar_eq
      DATA (ASOL(12,1,J),J=1,81)/-6.00373E-04,
     &        6.90347E-04, 8.24839E-04,-8.43023E-04,-2.13590E-04,
     &        2.89750E-05,-6.46482E-05, 1.70238E-04, 7.89085E-05,
     &        1.96620E-04,-2.35081E-04, 6.80731E-05, 5.95480E-05,
     &       -4.69340E-05,-2.47345E-05,-2.59681E-05, 2.60391E-05,
     &        4.13049E-04, 1.17513E-05,-2.21634E-04, 1.23010E-04,
     &       -2.61815E-06,-1.03671E-05, 4.63593E-05,-3.43165E-05,
     &        1.56537E-04, 6.57557E-05,-5.23473E-05, 6.21960E-06,
     &        8.13856E-07,-2.15148E-06,-4.92672E-06,-3.21856E-04,
     &       -6.91618E-05, 1.45388E-05,-7.42466E-06, 1.29243E-05,
     &        1.34098E-05, 2.82464E-06,-1.19884E-04,-2.67570E-05,
     &       -1.96562E-05, 1.15528E-05, 5.14896E-06,-3.16588E-06,
     &        3.15525E-04, 1.38200E-04,-4.44879E-06,-1.35308E-05,
     &       -1.69893E-05, 5.95531E-06, 9.81623E-06,-6.16044E-05,
     &        1.67616E-05,-2.08800E-05, 1.51441E-06,-3.74330E-04,
     &       -4.99028E-05, 4.13425E-06, 5.60718E-06, 5.28246E-06,
     &        1.36430E-04, 1.12329E-05, 6.62406E-06,-1.95479E-07,
     &        4.03216E-05, 3.20195E-05, 1.47872E-05,-3.01006E-06,
     &       -2.07487E-04, 2.63922E-06,-6.96199E-06, 8.60643E-05,
     &        2.23080E-05,-4.14984E-06, 1.77650E-04, 2.61944E-05,
     &       -5.07839E-05,-8.10007E-06,-1.64473E-04, 8.48100E-05/
C     long 180deg, mar_eq
      DATA (ASOL(13,1,J),J=1,81)/-6.91227E-04,
     &        6.49498E-04, 8.15330E-04,-7.30611E-04,-2.05943E-05,
     &       -8.12203E-05, 2.51717E-05, 2.61618E-04,-8.93790E-05,
     &        4.87443E-05,-1.92983E-04, 1.37851E-04, 2.81937E-05,
     &       -5.44540E-05,-1.00691E-05,-2.29983E-05, 2.20591E-05,
     &        2.29466E-04, 7.49240E-05,-1.35201E-04, 6.93364E-05,
     &       -1.79310E-06,-9.11173E-06, 6.60115E-06,-6.60341E-06,
     &        1.04009E-04, 4.97579E-05,-3.79136E-05, 2.64290E-07,
     &       -1.12273E-05, 8.74105E-06,-3.16858E-06,-1.42130E-04,
     &       -5.30447E-05, 6.43954E-06,-6.85151E-06, 3.96716E-06,
     &        1.65774E-05,-3.19803E-06,-4.15974E-05,-2.10709E-05,
     &       -1.73543E-05, 1.78883E-05,-2.07661E-07,-3.35788E-06,
     &        2.45507E-04, 1.23972E-04,-2.55777E-05, 9.26784E-06,
     &       -1.85978E-05, 6.67962E-06, 2.77847E-06,-1.44731E-05,
     &        2.58338E-05,-2.40759E-05, 6.21105E-06,-4.01387E-04,
     &       -5.34373E-05, 1.79071E-05,-8.38680E-06, 8.77043E-06,
     &        1.19243E-04,-1.99684E-05, 4.83483E-06, 3.23616E-06,
     &        6.40528E-06, 4.68755E-05, 2.49399E-06,-4.29996E-06,
     &       -1.98890E-04, 1.26805E-05,-5.27637E-06, 6.58200E-05,
     &        2.55141E-05,-8.30008E-06, 1.35905E-04, 3.49774E-05,
     &        2.17123E-05,-1.11458E-06,-6.36490E-05, 8.98321E-05/
C     long 195deg, mar_eq
      DATA (ASOL(14,1,J),J=1,81)/-6.65943E-04,
     &        6.13745E-04, 9.03735E-04,-6.94175E-04,-1.74201E-04,
     &       -1.47799E-04, 1.21489E-04, 3.64573E-04,-5.29778E-05,
     &        2.76000E-06,-1.35341E-04, 1.51319E-04,-4.11764E-05,
     &       -5.88560E-05, 5.05559E-05,-2.71544E-05, 3.01493E-05,
     &        3.01402E-04,-2.19168E-05,-1.37228E-04, 7.18600E-05,
     &        3.17276E-05, 4.49180E-06,-4.01248E-05,-3.66064E-07,
     &        1.16141E-04, 3.97928E-05,-4.77757E-06, 2.91037E-05,
     &       -1.22743E-05, 6.05588E-06,-9.77466E-06,-5.88987E-05,
     &       -8.78863E-05,-1.07996E-06, 3.94661E-06, 3.92839E-06,
     &        9.95160E-06, 9.83234E-07,-3.51606E-05,-7.79205E-07,
     &       -2.12971E-05, 1.57208E-05, 3.06507E-06,-1.41078E-06,
     &        1.28876E-04, 9.02546E-05,-2.20285E-05, 1.94249E-05,
     &       -1.36685E-05, 1.80194E-07, 3.94162E-05,-3.85266E-05,
     &        2.87484E-05,-1.74367E-05, 1.94205E-06,-3.11242E-04,
     &       -6.32761E-05, 2.69422E-06,-1.74496E-05, 9.06016E-06,
     &        6.32127E-05,-1.93146E-05, 1.37539E-05, 4.29963E-06,
     &       -7.53284E-05,-4.00071E-06, 6.89694E-06,-3.87603E-06,
     &       -1.95832E-04,-3.02708E-05,-5.27918E-06, 8.33677E-05,
     &        2.47396E-05,-5.99377E-06, 7.70188E-05, 3.20177E-05,
     &       -1.35328E-05, 2.52906E-06, 3.52347E-05, 3.23615E-05/
C     long 210deg, mar_eq
      DATA (ASOL(15,1,J),J=1,81)/-5.75412E-04,
     &        6.02900E-04, 9.14019E-04,-7.38479E-04,-2.79820E-04,
     &       -1.73924E-04, 8.42578E-05, 4.13763E-04, 5.92235E-05,
     &        3.97109E-05,-1.59432E-04, 8.53811E-05,-2.32365E-05,
     &       -4.09802E-05, 8.27523E-05,-1.69377E-05,-9.62445E-06,
     &        3.74744E-04,-8.16064E-05,-1.76247E-04, 9.74724E-05,
     &        7.68521E-05,-2.72680E-06,-4.29308E-05, 2.00655E-06,
     &       -8.36275E-05, 9.67420E-05, 5.93031E-06, 4.53322E-05,
     &       -1.83137E-06,-4.39411E-06,-1.02127E-05,-1.16822E-05,
     &       -1.84461E-04, 4.50593E-05, 4.69103E-06, 1.19153E-05,
     &       -1.38322E-06,-1.89191E-06, 4.00528E-05, 1.90505E-05,
     &       -6.01691E-05, 1.43122E-05, 6.00937E-06,-8.08218E-07,
     &        1.35425E-04, 7.67796E-05,-1.26336E-05, 4.84892E-06,
     &       -1.41368E-05,-1.69083E-07, 1.01641E-04,-9.30452E-05,
     &        1.20230E-05,-1.50341E-05,-6.25699E-07,-1.72598E-04,
     &       -1.57799E-05, 4.71988E-06,-1.57753E-05, 9.95318E-06,
     &        1.44828E-05, 2.32138E-05, 1.25084E-05, 6.97128E-06,
     &       -1.73698E-04, 1.75134E-05, 1.24654E-05,-1.85807E-06,
     &       -1.78505E-04,-4.06828E-05,-2.66206E-06, 1.30494E-04,
     &        3.15912E-05, 3.29512E-08,-9.56510E-06, 3.84338E-05,
     &       -2.54614E-05,-1.26410E-05,-1.41085E-05,-3.40689E-05/
C     long 225deg, mar_eq
      DATA (ASOL(16,1,J),J=1,81)/-5.57088E-04,
     &        6.00196E-04, 9.43110E-04,-8.58706E-04,-3.49213E-04,
     &       -1.42218E-04, 1.46839E-04, 2.96413E-04,-3.38709E-05,
     &        4.92773E-05,-1.81203E-04, 4.87642E-05, 7.95562E-06,
     &       -3.70650E-05, 1.06977E-04,-2.65282E-05,-4.48967E-05,
     &        3.40110E-04,-7.18554E-05,-2.14075E-04, 1.14196E-04,
     &        8.80443E-05,-2.56821E-06,-2.14985E-05,-4.66774E-06,
     &       -7.46510E-05, 1.22142E-04, 5.31812E-06, 2.91885E-05,
     &        3.78776E-06,-4.75723E-06,-7.45748E-06, 2.70778E-05,
     &       -2.52024E-04, 7.08675E-05,-1.06341E-05, 1.91081E-05,
     &        6.93305E-06,-1.37575E-05,-1.90096E-06, 4.97393E-06,
     &       -5.08687E-05, 2.13269E-05, 4.23082E-06,-1.08177E-06,
     &        1.55587E-04, 1.44350E-04,-3.02280E-05,-2.02909E-06,
     &       -1.39898E-05, 3.46332E-07, 1.05738E-04,-9.93274E-05,
     &        2.56412E-05,-1.78956E-05, 1.32458E-06,-1.71921E-04,
     &       -4.60402E-05, 2.33747E-05,-1.45726E-05, 1.36050E-05,
     &        4.36168E-05, 1.68252E-05, 7.04594E-06, 7.37115E-06,
     &       -6.64229E-05, 5.53120E-05, 6.61051E-06,-5.83741E-06,
     &       -2.19724E-04,-2.71175E-05, 5.17189E-06, 1.08674E-04,
     &        4.95705E-05,-1.19052E-05, 2.94381E-05, 1.82539E-05,
     &        5.89430E-05,-5.81876E-06, 4.46133E-05, 4.20415E-05/
C     long 240deg, mar_eq
      DATA (ASOL(17,1,J),J=1,81)/-5.18526E-04,
     &        5.70449E-04, 9.22291E-04,-8.54182E-04,-4.51790E-04,
     &        1.29594E-04, 3.07290E-04,-6.02618E-05,-1.24648E-04,
     &       -7.07361E-06,-1.43043E-04, 7.01041E-05, 9.63809E-06,
     &       -3.13172E-05, 6.78157E-05,-1.37481E-05,-1.74016E-05,
     &        2.85844E-04, 7.99540E-06,-2.46733E-04, 9.20317E-05,
     &        1.08916E-04,-6.68089E-06,-2.96858E-05, 2.09099E-06,
     &        1.08693E-04, 1.74651E-04,-3.47536E-05, 1.07946E-05,
     &        1.14728E-05,-3.42998E-06, 5.04066E-06,-1.21264E-04,
     &       -2.59277E-04, 6.18172E-05, 5.18813E-06, 1.30085E-05,
     &        1.16315E-05,-1.40012E-05,-8.06135E-05,-5.16984E-05,
     &       -3.12004E-05, 2.05052E-05, 6.50170E-06,-6.59562E-07,
     &        1.89727E-04, 1.71353E-04,-2.98185E-05, 1.68549E-05,
     &       -2.54430E-05,-1.61899E-06, 6.66513E-05,-5.68115E-05,
     &        3.37366E-05,-1.17086E-05, 1.15752E-06,-2.67144E-04,
     &       -1.14054E-04, 3.84593E-05,-1.74976E-05, 1.44564E-05,
     &        1.04091E-04,-8.96650E-06, 5.61539E-06, 4.25494E-06,
     &        7.76844E-05, 4.50844E-05, 3.42408E-06,-8.11575E-06,
     &       -1.75091E-04,-4.85776E-05, 5.48665E-06,-1.95935E-05,
     &        3.55302E-05,-1.18981E-05, 1.18276E-04, 7.23021E-06,
     &        9.27488E-05,-3.35637E-06, 7.29484E-05, 3.03382E-05/
C     long 255deg, mar_eq
      DATA (ASOL(18,1,J),J=1,81)/-5.22414E-04,
     &        5.65840E-04, 9.48661E-04,-7.61099E-04,-5.16896E-04,
     &        3.73067E-04, 2.16696E-04,-2.21913E-04, 1.88369E-05,
     &        2.94498E-07,-1.13661E-04, 8.03322E-05,-4.59205E-06,
     &       -4.03380E-05, 2.97782E-05, 3.06038E-05, 1.23516E-05,
     &        1.71074E-04, 1.44805E-04,-2.59216E-04, 5.65279E-05,
     &        1.16181E-04,-5.19920E-05,-4.90716E-05, 1.80087E-05,
     &       -4.24633E-06, 2.25091E-04,-5.66792E-05,-8.41381E-06,
     &        2.05654E-05, 5.67635E-06,-7.16468E-06,-1.61213E-04,
     &       -2.40075E-04, 1.26489E-05, 1.19478E-05, 1.84242E-06,
     &        1.34357E-05,-6.74158E-06,-7.72621E-05,-5.44276E-05,
     &       -4.70770E-05, 1.91491E-05, 2.70247E-06, 1.57005E-07,
     &        1.44962E-04, 1.05173E-04,-1.96495E-05, 2.44236E-05,
     &       -2.91812E-05, 1.02365E-07, 1.19167E-04,-1.04186E-04,
     &        1.78645E-05,-5.93800E-06,-3.10348E-06,-2.00422E-04,
     &       -7.86086E-05, 2.98008E-05,-1.53735E-05, 7.22256E-06,
     &        1.01655E-04, 4.72399E-06,-4.43195E-06, 7.55634E-06,
     &        3.86907E-05, 4.80378E-05, 2.06728E-05,-6.89522E-06,
     &       -6.51676E-05,-5.78599E-05, 1.20937E-05, 9.94945E-05,
     &        1.29550E-05, 1.19971E-05, 4.19604E-05, 7.16514E-06,
     &        3.37516E-05, 4.72425E-06, 1.48693E-04,-2.06965E-05/
C     long 270deg, mar_eq
      DATA (ASOL(19,1,J),J=1,81)/-6.18096E-04,
     &        5.22651E-04, 1.05264E-03,-6.02013E-04,-5.55697E-04,
     &        2.48049E-04, 2.64738E-04,-1.35625E-04, 3.40920E-05,
     &        3.78735E-05,-1.02457E-04, 7.80819E-05,-3.86124E-05,
     &       -5.29793E-05, 3.61958E-05, 2.75058E-05, 1.00596E-05,
     &        1.16748E-04, 2.30855E-04,-2.02443E-04,-2.56030E-05,
     &        1.01495E-04,-4.53941E-06,-5.09381E-05,-7.83368E-06,
     &       -1.13997E-04, 1.38133E-04,-2.88405E-06,-2.65407E-05,
     &        9.54809E-06, 1.70466E-05,-1.75727E-05,-4.96116E-05,
     &       -2.27408E-04,-5.83744E-05, 5.04569E-05, 1.35656E-05,
     &       -4.12008E-07, 4.43034E-06,-9.02327E-05,-1.08115E-05,
     &       -5.31939E-05, 2.57475E-05, 3.48838E-06, 6.31245E-07,
     &        4.32867E-05, 1.19495E-04,-2.61944E-06, 9.64431E-06,
     &       -2.09513E-05, 3.77761E-07, 1.31135E-04,-1.66227E-04,
     &        2.13298E-05,-1.72202E-06,-9.19149E-06,-1.86542E-04,
     &       -7.40066E-05, 1.10501E-05,-7.67893E-06, 5.79850E-06,
     &        1.48249E-05, 3.33819E-05, 8.76184E-06, 9.08608E-06,
     &       -2.02970E-05, 5.23192E-05, 2.32773E-05,-1.07065E-06,
     &       -1.54392E-04,-7.23037E-05, 1.41805E-06, 1.31235E-04,
     &        4.55489E-05, 9.08592E-06, 5.28082E-06, 4.02307E-05,
     &        1.69163E-05,-6.13635E-09, 8.50638E-05, 1.05864E-05/
C     long 285deg, mar_eq
      DATA (ASOL(20,1,J),J=1,81)/-7.19886E-04,
     &        3.93814E-04, 1.24634E-03,-2.50185E-04,-6.40874E-04,
     &        2.97648E-06, 3.44454E-04,-2.13260E-05,-1.25375E-05,
     &        4.89418E-05, 2.78552E-05, 2.62019E-05,-9.52232E-05,
     &       -3.62563E-05, 6.11564E-05, 3.22890E-05,-1.83844E-05,
     &        1.70562E-04, 1.63221E-04,-1.64907E-04,-2.44639E-05,
     &        1.24031E-04, 3.55488E-05,-3.34878E-05,-6.55222E-05,
     &       -7.10645E-05, 2.07457E-06, 3.28716E-05,-2.07998E-05,
     &        3.37178E-06, 1.82781E-05,-6.65669E-06, 6.86410E-05,
     &       -1.41593E-04,-3.62215E-05, 7.55569E-05, 1.30808E-05,
     &       -1.58385E-05, 6.38834E-06,-9.49067E-05,-2.54213E-05,
     &       -2.63370E-05, 1.57892E-05, 1.22007E-05, 5.98310E-06,
     &       -8.95335E-06, 7.68788E-05, 3.14870E-05, 2.51072E-06,
     &       -1.92218E-05, 9.39033E-07, 2.03455E-04,-1.35571E-04,
     &        1.39053E-05, 6.28917E-07,-5.29300E-06,-1.84602E-04,
     &       -9.98961E-05, 1.59840E-05,-5.10327E-06, 7.64617E-06,
     &       -7.82816E-05, 4.36142E-05, 9.33361E-06, 4.43414E-06,
     &       -3.52790E-05, 4.07996E-05, 1.39107E-05, 9.57294E-07,
     &       -2.63100E-04,-5.73769E-05,-1.19299E-05, 6.16511E-05,
     &        5.56048E-05,-2.97653E-06, 8.38584E-05, 1.14550E-05,
     &        7.05747E-05,-9.03989E-06, 9.81691E-06,-7.13366E-06/
C     long 300deg, mar_eq
      DATA (ASOL(21,1,J),J=1,81)/-7.40694E-04,
     &        2.30797E-04, 1.42293E-03,-5.81753E-05,-7.07567E-04,
     &        2.93481E-05, 1.84432E-04,-1.24550E-04, 1.18725E-04,
     &       -1.41169E-05, 5.48422E-05,-6.92739E-05,-8.66447E-05,
     &        7.61138E-06, 6.85502E-05, 2.56726E-05,-3.34916E-05,
     &        2.24266E-04, 1.29119E-04,-1.90248E-04, 5.73110E-06,
     &        1.22703E-04,-1.03757E-05,-4.14708E-05,-4.86731E-05,
     &       -7.69655E-05,-4.18836E-05, 3.56967E-05,-1.51303E-05,
     &        9.86207E-07, 2.13569E-05,-7.34631E-06, 7.10455E-05,
     &       -3.87117E-05,-1.64633E-05, 5.85474E-05, 1.24072E-06,
     &       -1.77044E-05, 6.63504E-06, 5.65452E-05,-3.42143E-05,
     &       -1.62955E-05, 1.70090E-05, 6.26317E-06, 4.90236E-06,
     &        4.89351E-05, 5.77522E-05, 4.03294E-05,-4.60574E-06,
     &       -1.59202E-05,-2.40356E-06, 1.48120E-04,-7.36732E-05,
     &        5.35831E-06, 1.47481E-06,-1.49732E-07,-1.87480E-04,
     &       -8.25641E-05, 2.78730E-06, 2.81113E-06, 5.50434E-06,
     &       -5.77146E-05, 2.79634E-05, 9.92598E-07, 1.79914E-06,
     &       -3.20403E-06,-1.45684E-05, 1.18299E-05,-2.86706E-06,
     &       -2.22047E-04,-4.63218E-05,-5.87505E-06, 9.48817E-05,
     &        5.63373E-05, 4.47151E-06, 1.11697E-04,-5.30815E-06,
     &        2.43105E-05,-2.56046E-05, 5.07056E-05, 1.68307E-05/
C     long 315deg, mar_eq
      DATA (ASOL(22,1,J),J=1,81)/-7.63778E-04,
     &        1.21085E-04, 1.58089E-03,-4.90335E-05,-7.26659E-04,
     &        3.16650E-07, 8.69182E-05,-2.13526E-04, 2.88753E-04,
     &        4.65910E-05, 6.47682E-05,-8.40392E-05,-9.81344E-05,
     &        2.48084E-05, 3.20238E-05, 2.86659E-05, 2.98648E-06,
     &        2.58432E-04, 1.51122E-04,-2.41559E-04, 1.39334E-05,
     &        1.02015E-04,-2.82145E-05,-6.54301E-05,-1.77456E-05,
     &       -9.19071E-05, 5.47241E-06, 8.57058E-06,-1.30694E-05,
     &        1.26897E-05, 1.61439E-05,-1.20291E-05,-1.70802E-04,
     &       -1.48953E-05, 5.54126E-07, 1.64849E-05,-1.03793E-05,
     &       -5.13671E-06, 4.09000E-06, 4.08654E-05,-1.24479E-05,
     &        2.72887E-07, 1.52960E-05, 3.71301E-07,-5.19057E-06,
     &        4.55982E-05, 9.06041E-05, 1.82887E-05, 1.10224E-06,
     &       -9.66007E-06,-2.75303E-06, 1.70803E-04,-3.11501E-05,
     &        1.52490E-05, 8.21208E-06,-3.97799E-06,-1.70328E-04,
     &       -3.48684E-05,-6.31101E-07,-7.16127E-07, 1.12530E-07,
     &       -1.58916E-05,-1.62634E-05,-5.47066E-06, 1.79998E-07,
     &       -7.46215E-05,-6.22030E-05, 5.52584E-07,-2.83425E-06,
     &       -2.50596E-04,-4.48481E-05, 6.59871E-06, 1.18576E-04,
     &        3.47799E-05, 1.28851E-05, 9.85183E-05, 7.33480E-08,
     &        3.94385E-05,-2.74116E-05, 7.35453E-05,-1.07403E-05/
C     long 330deg, mar_eq
      DATA (ASOL(23,1,J),J=1,81)/-7.42412E-04,
     &        6.63662E-05, 1.59606E-03,-4.04966E-05,-8.15482E-04,
     &        6.08810E-05, 1.13109E-04,-3.15542E-04, 2.53886E-04,
     &        8.45831E-05, 1.15234E-04,-9.28347E-05,-1.19525E-04,
     &        5.23163E-05, 2.03188E-05, 8.29267E-06, 1.11571E-05,
     &        2.02656E-04, 1.46414E-04,-2.58145E-04, 3.69781E-05,
     &        1.00905E-04,-3.44046E-05,-4.45218E-05,-1.76571E-05,
     &        4.36190E-05, 3.40182E-05,-2.76768E-05,-2.94098E-06,
     &        1.52241E-05, 1.22832E-05,-1.23382E-05,-1.89549E-04,
     &        4.96007E-05, 3.19660E-06,-7.92166E-06,-1.17660E-05,
     &        4.64408E-06, 1.64762E-06,-5.97360E-05, 2.58286E-05,
     &        1.56897E-05, 2.20742E-06,-2.72043E-06,-1.14721E-05,
     &       -2.77280E-06, 9.55789E-05, 1.93191E-05,-2.84339E-07,
     &       -1.28945E-05, 3.68972E-08, 2.54513E-04,-2.11767E-05,
     &        4.13582E-07, 7.42496E-06,-3.75543E-06,-1.61544E-04,
     &       -1.08150E-05,-4.83338E-06,-3.32463E-06, 1.65077E-06,
     &       -1.04190E-06,-2.36315E-05,-1.48869E-06, 2.14997E-06,
     &       -6.65793E-06,-2.08743E-05, 1.73241E-06,-2.78146E-06,
     &       -2.74685E-04,-2.87840E-05, 8.54169E-06, 1.93930E-07,
     &       -5.66823E-06, 1.23050E-05, 4.32189E-05,-1.14060E-05,
     &        1.38191E-04,-2.24232E-05, 2.91721E-05,-2.92810E-05/
C     long 345deg, mar_eq
      DATA (ASOL(24,1,J),J=1,81)/-6.75936E-04,
     &        6.05348E-05, 1.42608E-03,-3.70289E-05,-8.45605E-04,
     &        1.03116E-04, 4.33964E-04,-4.11191E-04, 1.58179E-05,
     &        5.28121E-05, 9.49896E-05,-8.85644E-05,-8.82129E-05,
     &        8.93059E-05, 2.00732E-05,-2.69761E-05, 6.43658E-06,
     &        9.43311E-07, 2.33321E-04,-2.33812E-04, 3.41402E-05,
     &        1.21344E-04,-5.86069E-05,-4.85021E-05,-9.00434E-06,
     &        6.51484E-05, 7.51058E-05,-2.52634E-05, 1.29131E-07,
     &        1.31303E-06, 6.66474E-06,-2.87419E-06,-1.06807E-05,
     &       -4.85631E-06, 7.95923E-06,-7.97196E-06,-1.15128E-06,
     &        3.41845E-06, 1.94569E-07,-5.86511E-05, 3.81765E-05,
     &       -1.59747E-05, 2.01903E-05, 1.53836E-07,-1.00679E-05,
     &       -4.99534E-05, 3.82134E-05, 1.48448E-05, 5.43397E-06,
     &       -1.20515E-05,-1.97742E-06, 1.51227E-04,-4.89427E-05,
     &       -1.12881E-05, 5.44555E-06,-2.19405E-06,-2.16244E-04,
     &       -4.64077E-05,-5.40689E-06,-1.04628E-05, 6.36068E-06,
     &       -1.15656E-04, 2.00185E-05, 1.05417E-05, 6.68466E-06,
     &        1.17719E-04, 9.54720E-07, 1.58541E-05,-2.59311E-06,
     &       -1.49546E-04,-1.66419E-05, 2.76915E-06, 2.36228E-05,
     &       -2.52061E-05, 6.71213E-06,-1.09427E-05,-4.77058E-06,
     &        6.18936E-05,-6.63132E-06,-1.90898E-05, 1.96725E-05/
C     long 0deg, jun_so
      DATA (ASOL(1,2,J),J=1,81)/-6.45260E-05,
     &       -1.01480E-04, 4.44282E-04,-1.41098E-05,-5.28155E-04,
     &       -7.59706E-05, 1.13691E-04, 1.55652E-04, 3.84866E-04,
     &       -4.58443E-06,-5.72867E-05,-9.46322E-05, 9.47073E-05,
     &        8.43593E-05,-2.26052E-05,-8.42278E-06,-2.83454E-05,
     &       -1.44529E-04,-1.02578E-04,-6.74633E-05, 8.80074E-05,
     &        5.83067E-05,-6.66986E-05,-5.13502E-05, 1.95554E-06,
     &       -7.72606E-05,-1.26431E-05, 3.53965E-05,-3.75471E-06,
     &       -3.63817E-07, 2.72698E-06,-1.04947E-05,-2.08597E-04,
     &       -9.97987E-05,-2.63869E-05,-1.44129E-05,-1.51234E-05,
     &        7.57751E-06, 1.72708E-05,-1.14382E-04, 2.44864E-05,
     &        7.50519E-06, 1.21787E-05, 1.13443E-05,-7.75064E-07,
     &        2.01051E-04, 4.68601E-05, 2.99326E-05,-1.13315E-07,
     &       -4.22106E-06,-4.32439E-06,-9.86834E-06,-4.75367E-05,
     &       -1.02060E-05,-4.60688E-06,-8.95379E-06, 9.93654E-05,
     &       -4.40901E-05,-2.20629E-05, 9.42721E-07,-8.35644E-06,
     &        1.81141E-04, 1.77463E-05, 3.32575E-06, 5.25074E-06,
     &        4.16932E-06, 3.16490E-05, 1.14536E-05,-1.31462E-06,
     &       -1.41899E-05, 7.79764E-06, 8.19926E-06,-9.07970E-05,
     &       -1.04146E-05, 4.49260E-06, 3.57990E-05, 2.21108E-05,
     &        8.22350E-05, 2.52789E-05, 1.93921E-05,-2.74232E-05/
C     long 15deg, jun_so
      DATA (ASOL(2,2,J),J=1,81)/ 3.21779E-05,
     &        1.42717E-05, 3.31324E-04,-1.84886E-04,-6.07438E-04,
     &       -5.18913E-05, 2.69509E-04, 2.41751E-04, 3.11108E-04,
     &       -2.04200E-04,-1.92776E-04,-6.43820E-05, 1.71366E-04,
     &        9.38652E-05,-5.56528E-05,-9.07407E-06,-2.82469E-05,
     &       -2.92062E-04,-1.38448E-04, 5.44744E-06, 1.21510E-04,
     &        5.83460E-05,-9.69322E-05,-3.40579E-05, 2.42486E-05,
     &        3.36096E-05, 1.27635E-05, 1.52277E-05,-2.34881E-05,
     &        4.81199E-06, 1.32965E-05,-8.65288E-06,-3.12476E-04,
     &       -1.44386E-04,-4.59578E-05,-9.12123E-06, 1.33641E-05,
     &        7.84451E-06, 2.52508E-07,-9.74456E-05, 1.97721E-05,
     &        4.81567E-06, 9.80209E-06, 9.41759E-06, 1.64301E-07,
     &        1.37819E-04,-2.11043E-05, 1.18654E-05, 1.06266E-05,
     &       -9.56380E-07,-6.44420E-06,-1.19264E-04,-9.79039E-05,
     &       -1.49124E-05,-9.20921E-07,-4.88276E-06,-2.57506E-05,
     &       -5.39786E-05,-8.22659E-06, 7.45787E-06,-2.24205E-06,
     &        1.04493E-04, 2.16716E-05,-1.30083E-06, 6.91247E-06,
     &        4.12834E-05, 3.61331E-05, 3.18267E-06,-3.57136E-06,
     &       -7.21113E-05, 2.64765E-06, 6.02353E-06,-9.91517E-05,
     &       -2.29550E-05, 7.69566E-06,-1.49817E-05, 5.60914E-06,
     &        1.55813E-04, 2.60758E-05, 9.28524E-05, 3.73144E-05/
C     long 30deg, jun_so
      DATA (ASOL(3,2,J),J=1,81)/ 9.52393E-05,
     &        1.98146E-04, 2.97143E-04,-3.58173E-04,-7.02133E-04,
     &       -1.08477E-04, 5.17705E-04, 2.55538E-04, 1.60763E-04,
     &        7.22440E-06,-2.29659E-04,-9.82216E-05, 1.07051E-04,
     &        9.19985E-05,-1.17507E-05, 2.14497E-05,-1.19553E-05,
     &       -2.77120E-04,-1.31006E-04, 1.61257E-05, 1.13662E-04,
     &        4.06196E-05,-1.05356E-04,-3.58813E-05, 3.46524E-05,
     &        2.79361E-04, 1.20067E-04, 2.06568E-05,-9.50725E-06,
     &        8.89945E-06, 3.52674E-06,-6.58486E-06,-3.17219E-04,
     &       -1.52154E-04,-4.77868E-05, 1.88283E-05, 2.97620E-05,
     &        6.58994E-06,-1.74618E-05, 8.65159E-05, 8.01108E-05,
     &        1.91790E-05,-2.80273E-08, 3.13694E-06, 3.73016E-06,
     &        9.56223E-05, 9.61121E-06, 1.20675E-05, 1.94139E-05,
     &       -4.30034E-06,-6.60941E-06,-4.36536E-05,-6.43794E-05,
     &       -2.03044E-05,-1.43487E-06, 1.90184E-06,-1.14835E-04,
     &       -6.22196E-05,-1.97616E-06, 3.73380E-06, 1.79216E-06,
     &       -1.97493E-06, 1.29099E-05, 6.79213E-06, 8.17698E-06,
     &       -3.39638E-05, 1.78257E-05,-2.59667E-06, 1.59626E-07,
     &       -8.81864E-05,-2.57290E-06,-3.84081E-08,-3.08888E-05,
     &       -1.20265E-05, 1.64297E-06,-9.65860E-05,-1.73717E-05,
     &        9.02527E-05, 3.66782E-06,-1.96071E-05, 8.17548E-05/
C     long 45deg, jun_so
      DATA (ASOL(4,2,J),J=1,81)/ 1.36320E-04,
     &        3.38244E-04, 3.53092E-04,-4.39497E-04,-8.35547E-04,
     &       -6.10298E-05, 7.37064E-04, 1.45265E-04, 3.93197E-05,
     &        8.77151E-05,-2.39571E-04,-1.06925E-04, 7.36231E-05,
     &        7.52760E-05, 2.79103E-05, 4.06596E-05, 5.78226E-06,
     &       -1.97069E-04,-1.43946E-04,-1.06004E-04, 7.35961E-05,
     &        6.31593E-05,-7.17787E-05,-5.30347E-05, 1.24030E-05,
     &        2.92898E-04, 1.88517E-04, 5.29868E-05, 1.25523E-05,
     &       -1.73762E-05,-1.50812E-05,-1.24327E-06,-6.37961E-05,
     &       -1.65129E-04,-6.65043E-05, 2.19843E-05, 4.05151E-05,
     &        1.12520E-05,-2.05746E-05, 2.21867E-04, 6.32496E-05,
     &        2.94516E-05, 5.94205E-06,-1.07672E-06, 1.15424E-06,
     &        2.04996E-04, 5.38371E-05, 4.98743E-06, 3.38824E-06,
     &       -6.24367E-06,-3.53569E-07, 5.37821E-05,-2.13172E-06,
     &       -1.59327E-05,-7.43254E-06, 5.10626E-08,-2.05165E-04,
     &       -9.33732E-05,-2.90031E-05, 1.73631E-06,-1.93036E-06,
     &        2.28653E-05, 1.67853E-05, 9.38113E-06, 2.34026E-06,
     &       -8.99686E-05,-1.62042E-05,-1.39759E-06,-9.52819E-07,
     &       -7.76017E-05,-1.22982E-05, 8.56510E-06, 7.01599E-06,
     &       -1.00950E-05, 1.71741E-06,-1.19403E-04,-1.02059E-05,
     &        1.40375E-05,-2.73184E-05,-1.12396E-04, 1.65501E-04/
C     long 60deg, jun_so
      DATA (ASOL(5,2,J),J=1,81)/ 1.20808E-04,
     &        3.65471E-04, 3.37821E-04,-5.49744E-04,-7.56751E-04,
     &        2.08538E-04, 5.51300E-04, 9.52241E-05, 1.21147E-05,
     &        3.34933E-05,-2.27850E-04,-6.53176E-05, 1.06284E-04,
     &        6.28954E-05, 1.53176E-05, 1.70379E-05,-9.27846E-06,
     &       -5.12569E-05,-1.58625E-04,-1.75182E-04, 6.42649E-05,
     &        8.73487E-05,-4.52850E-05,-7.47066E-05,-4.09055E-06,
     &        1.53614E-04, 1.37898E-04, 5.02792E-05, 3.45832E-05,
     &       -8.34367E-06,-1.38550E-05,-1.49174E-06, 7.30921E-05,
     &       -1.66541E-04,-1.09760E-04,-9.25947E-06, 2.67175E-05,
     &        1.46662E-05,-4.10398E-06, 1.34108E-04, 5.73021E-05,
     &        2.90299E-05, 5.80685E-06,-3.38161E-06,-1.00885E-06,
     &        2.13164E-04, 6.55676E-05, 3.01260E-05, 6.03308E-07,
     &       -8.10860E-06, 2.12358E-06, 4.31021E-05, 2.74756E-06,
     &       -1.99226E-06,-4.92212E-06, 1.91089E-06,-2.90694E-04,
     &       -1.07496E-04,-3.26653E-05,-4.39459E-07,-5.16274E-06,
     &       -1.52020E-05, 1.14760E-05,-7.46545E-07,-2.14261E-06,
     &       -7.81406E-05,-5.58903E-06, 1.42167E-05, 9.74504E-06,
     &       -1.22433E-04,-2.98766E-06, 1.20977E-05,-3.25641E-06,
     &       -1.80398E-05, 7.17158E-06,-2.03822E-05,-2.97942E-05,
     &        5.38576E-05,-2.64336E-05, 7.51052E-06, 2.02613E-04/
C     long 75deg, jun_so
      DATA (ASOL(6,2,J),J=1,81)/ 6.61507E-05,
     &        3.18515E-04, 4.01938E-04,-5.65475E-04,-5.83899E-04,
     &        3.08694E-04, 3.60152E-04, 7.18692E-05, 9.91295E-05,
     &       -1.07884E-04,-2.05731E-04,-9.08551E-06, 1.31787E-04,
     &        5.19350E-05,-4.77066E-06, 4.56155E-06,-1.89157E-05,
     &        1.45040E-04,-7.29160E-05,-1.58474E-04, 6.10884E-05,
     &        6.19665E-05,-5.15946E-05,-6.74062E-05, 8.14508E-06,
     &       -1.48946E-05, 7.50163E-05, 3.90776E-05, 5.36519E-05,
     &        2.13837E-05,-1.27022E-05,-8.29424E-06,-8.81037E-05,
     &       -2.13057E-04,-1.07549E-04,-1.16629E-05, 1.76011E-05,
     &        1.12721E-05, 8.58403E-07, 6.50869E-05, 6.51743E-05,
     &        3.35779E-05, 5.96139E-07,-3.72371E-06,-5.21359E-06,
     &        2.75791E-04, 8.91623E-05, 4.39748E-05, 6.31528E-07,
     &       -1.48294E-05, 4.18874E-07, 4.95089E-05,-5.72667E-07,
     &        3.88360E-06, 3.01299E-06,-5.10690E-08,-2.38511E-04,
     &       -1.01422E-04,-2.27654E-05,-9.47644E-06,-5.86839E-06,
     &       -3.91418E-05,-4.26416E-06,-9.34643E-07,-3.60166E-06,
     &       -8.88588E-05, 3.63122E-06, 4.05552E-06, 7.27509E-06,
     &       -1.69364E-04, 3.21469E-05, 8.91861E-06,-2.22623E-05,
     &        1.74822E-05, 4.37490E-06,-2.80657E-05,-4.77082E-05,
     &        1.37447E-04,-3.49887E-06, 4.25042E-05, 1.36093E-04/
C     long 90deg, jun_so
      DATA (ASOL(7,2,J),J=1,81)/ 3.03209E-05,
     &        1.10440E-04, 3.33092E-04,-2.89740E-04,-4.32011E-04,
     &        1.73599E-04, 3.87168E-04, 2.24852E-04, 5.03745E-05,
     &       -3.72651E-04,-2.16258E-04, 8.55459E-05, 1.57172E-04,
     &        5.03717E-05,-2.31860E-05,-2.23329E-05,-6.98747E-06,
     &        1.75143E-04,-1.97487E-05,-1.47739E-04, 4.98322E-05,
     &        4.98434E-05,-5.37509E-05,-4.10785E-05, 2.02680E-05,
     &       -3.42753E-05, 4.47140E-05, 1.20684E-05, 2.74198E-05,
     &        1.03080E-05,-1.65625E-05,-3.83084E-06,-2.92122E-04,
     &       -2.14174E-04,-6.10798E-05, 1.92186E-05, 4.53989E-05,
     &        7.89701E-06,-1.95257E-05, 3.64867E-05, 1.62386E-05,
     &        1.11129E-05,-6.14550E-06, 1.55432E-07,-3.40572E-06,
     &        3.06886E-04, 5.81115E-05, 1.28915E-05,-7.41206E-06,
     &       -1.70631E-05,-6.04122E-07, 9.20289E-05, 2.50954E-05,
     &        2.59150E-05, 9.32842E-06,-3.59325E-06,-2.37466E-04,
     &       -5.48749E-05,-8.47399E-06,-1.07078E-05,-5.14708E-06,
     &       -7.96024E-05, 1.16313E-05, 3.52035E-06,-8.59743E-06,
     &       -1.06803E-04,-6.32596E-06,-7.34991E-06, 2.91846E-06,
     &       -1.35785E-04, 3.01755E-05, 6.90773E-06, 6.10642E-05,
     &        1.74132E-05,-3.53556E-07,-5.95472E-05,-1.74294E-05,
     &        1.01166E-04,-7.16657E-06, 3.59322E-05, 9.49988E-05/
C     long 105deg, jun_so
      DATA (ASOL(8,2,J),J=1,81)/ 4.16804E-05,
     &       -2.37336E-04, 2.75959E-05, 1.50686E-04,-1.46382E-04,
     &       -6.20373E-05, 2.77773E-04, 2.90110E-04,-1.67550E-04,
     &       -3.36535E-04,-1.66115E-04, 6.68701E-05, 1.13051E-04,
     &        9.69823E-05,-1.76831E-05,-3.45982E-05,-5.52154E-06,
     &        6.24934E-05,-1.34285E-06,-9.26711E-05, 4.48078E-05,
     &        7.52643E-05,-6.40843E-05,-4.90490E-05, 3.86693E-06,
     &       -5.84040E-05, 9.51152E-06, 1.11651E-05, 1.46972E-05,
     &        5.32669E-06,-8.69626E-07, 8.36819E-06,-2.66593E-04,
     &       -2.00166E-04,-3.62354E-05, 2.53927E-05, 5.38081E-05,
     &        1.32949E-06,-2.86808E-05, 1.33284E-04,-8.13334E-06,
     &       -2.89555E-05,-1.04563E-05, 9.59615E-06, 2.15339E-06,
     &        1.92301E-04, 2.96264E-06,-3.61500E-06,-4.99648E-06,
     &       -1.51052E-05,-7.73608E-07, 6.08351E-07, 1.11632E-05,
     &        2.76918E-05, 9.05737E-06, 1.45297E-07,-2.60313E-04,
     &       -3.84174E-05,-1.19474E-05,-9.87376E-06,-2.13074E-06,
     &       -1.61217E-04, 2.31844E-06, 5.18005E-06,-5.67974E-06,
     &       -2.01310E-04, 1.73992E-06, 4.32254E-07,-1.99842E-06,
     &       -6.24149E-05, 2.50383E-05, 1.15139E-05, 7.88253E-05,
     &       -2.70262E-05,-5.98399E-06,-5.82944E-05,-3.08992E-05,
     &        4.75671E-05, 4.57581E-06, 3.52284E-05, 9.38368E-06/
C     long 120deg, jun_so
      DATA (ASOL(9,2,J),J=1,81)/ 9.16154E-05,
     &       -2.77746E-04,-1.24278E-04, 2.95211E-05,-7.71993E-05,
     &       -1.65935E-04, 2.17626E-04, 4.38246E-04,-9.92572E-05,
     &       -1.63651E-04,-1.61394E-04,-2.99514E-05, 9.45565E-05,
     &        1.46943E-04,-2.40775E-05,-1.48396E-05,-1.39449E-05,
     &        4.34346E-05, 1.96636E-05,-8.72913E-05, 5.39869E-05,
     &        1.12370E-04,-5.34957E-05,-7.64400E-05, 6.59342E-07,
     &       -1.41542E-04,-3.61165E-05, 2.61782E-05, 1.31113E-05,
     &        4.80577E-06, 1.87702E-07, 9.13454E-06,-2.49872E-04,
     &       -2.44148E-04,-4.18688E-05,-1.78829E-06, 3.95900E-05,
     &        8.08234E-06,-1.90381E-05, 2.24711E-04,-1.80793E-05,
     &       -3.14145E-05,-7.44708E-06, 1.17364E-05,-3.25158E-06,
     &        1.75627E-04, 1.49129E-05,-1.43712E-05,-2.14877E-06,
     &       -1.34106E-05,-6.43490E-06,-2.25158E-06,-2.30313E-05,
     &        1.14348E-05, 3.67783E-06,-1.61194E-07,-2.02775E-04,
     &       -3.39523E-05,-6.20460E-06,-1.16551E-05,-2.12864E-06,
     &       -5.13698E-05,-2.38734E-06, 1.70430E-05, 1.20615E-06,
     &       -1.81999E-04, 2.80872E-05,-8.31621E-06,-8.01534E-06,
     &       -1.55487E-04, 5.85902E-06,-4.08492E-06, 4.52512E-05,
     &       -2.44631E-05,-7.37714E-06,-1.29218E-05,-1.21794E-05,
     &        1.17641E-05, 6.57183E-06, 3.34312E-05, 5.32691E-05/
C     long 135deg, jun_so
      DATA (ASOL(10,2,J),J=1,81)/ 1.25739E-04,
     &        8.26389E-05,-6.08945E-05,-5.49694E-04,-2.46581E-04,
     &       -5.67943E-05, 5.31945E-05, 6.39832E-04, 1.94986E-04,
     &       -1.27546E-05,-1.25361E-04,-9.87057E-05, 8.45671E-05,
     &        1.29266E-04,-3.57771E-06,-1.37948E-05,-1.14339E-05,
     &       -1.17804E-04,-9.62026E-05,-6.01671E-05, 5.02484E-05,
     &        9.09558E-05,-2.60157E-05,-5.69378E-05, 9.20506E-07,
     &        1.66331E-05, 2.27981E-05, 2.08196E-05, 1.36817E-05,
     &        1.04478E-05,-1.62856E-05,-3.01395E-06,-3.16495E-04,
     &       -2.47177E-04,-5.95655E-05,-2.28061E-05, 1.39577E-05,
     &        5.30195E-06, 4.28215E-06, 1.05535E-04,-2.31054E-05,
     &        3.45629E-06,-1.76854E-06, 4.36492E-06,-4.82193E-06,
     &        2.24191E-04, 8.96488E-06,-5.67228E-06,-3.06796E-06,
     &       -5.83934E-06,-5.28678E-06, 3.66099E-05,-5.38547E-05,
     &       -1.48180E-05,-7.42249E-06,-5.56232E-06,-2.02457E-04,
     &       -9.53148E-06, 1.19340E-05,-5.64612E-06,-2.70374E-06,
     &        1.09485E-05, 2.52418E-05, 1.37461E-05, 2.03082E-08,
     &       -3.74495E-05, 2.96271E-05,-1.26012E-05, 2.83702E-06,
     &       -1.99650E-04,-1.78090E-05,-2.38956E-05,-4.95392E-06,
     &       -1.85779E-05, 8.07412E-06, 4.68439E-05, 3.35299E-05,
     &        6.83395E-05,-9.16926E-07, 3.08959E-05, 1.12511E-04/
C     long 150deg, jun_so
      DATA (ASOL(11,2,J),J=1,81)/ 9.24582E-05,
     &        2.51258E-04, 3.25711E-06,-8.53942E-04,-2.89023E-04,
     &        2.23065E-04,-1.02221E-05, 4.69176E-04, 3.11786E-04,
     &        1.57863E-05,-7.39347E-05,-1.23497E-04, 4.37049E-06,
     &        1.25361E-04, 3.27826E-05,-2.59594E-05,-1.58842E-06,
     &       -3.14383E-04,-1.29231E-04, 2.31259E-05, 1.34486E-05,
     &        3.54745E-05,-1.95115E-05,-2.05494E-05, 8.84108E-06,
     &        1.96212E-04, 8.58706E-05, 1.40188E-05, 3.13456E-05,
     &        1.29923E-05,-2.43478E-05,-1.13131E-05,-3.24048E-04,
     &       -2.32901E-04,-7.97697E-05,-3.26322E-05, 1.35414E-05,
     &       -2.11044E-07, 8.15983E-06, 3.73051E-05,-6.91325E-06,
     &        2.67430E-05, 3.49891E-06, 2.72019E-06,-2.02286E-06,
     &        1.72307E-04, 9.43535E-06, 2.36470E-05, 5.42229E-06,
     &       -7.27502E-06,-4.60702E-06,-4.21659E-06,-9.25665E-05,
     &       -2.44177E-05,-1.20586E-05,-5.17280E-06,-2.33385E-04,
     &       -4.08954E-05, 5.85166E-06, 2.25071E-07,-3.43351E-06,
     &        3.84253E-05, 1.05665E-05, 1.51523E-05,-7.15685E-07,
     &        3.48089E-05, 3.08406E-05, 5.09813E-07, 8.93192E-06,
     &       -1.52273E-04,-3.69364E-05,-1.59335E-05,-1.38028E-04,
     &       -1.43996E-05, 9.18132E-06, 1.25475E-04, 1.54815E-05,
     &        1.03530E-04, 2.08614E-07,-7.90841E-05, 1.23010E-04/
C     long 165deg, jun_so
      DATA (ASOL(12,2,J),J=1,81)/ 1.49952E-05,
     &        1.67898E-04, 1.39962E-04,-7.29423E-04,-4.17046E-04,
     &        2.69603E-04, 1.82285E-04, 3.58149E-04, 1.80276E-04,
     &       -1.53800E-04,-1.38795E-04,-4.27563E-05, 7.00019E-06,
     &        8.24184E-05, 1.31729E-05,-2.74431E-05,-1.26326E-05,
     &       -3.02110E-04,-3.61541E-05, 1.21328E-05,-3.33899E-05,
     &        6.95549E-05,-1.22067E-05,-2.24739E-05, 9.74509E-06,
     &        1.42668E-04, 1.10164E-04, 1.68114E-05, 3.47948E-05,
     &        1.00926E-05,-2.56964E-05,-1.07488E-05,-4.01818E-04,
     &       -3.19357E-04,-9.75221E-05,-1.49643E-05, 9.66187E-06,
     &        2.80152E-06, 1.88055E-05,-1.83663E-05,-2.78409E-05,
     &        8.22051E-06, 2.34113E-06,-1.96667E-06, 1.02499E-08,
     &        1.78972E-04, 7.37727E-05, 3.04273E-05, 5.03138E-06,
     &       -8.51682E-06,-1.23262E-06,-2.36659E-06,-7.09832E-05,
     &       -6.53942E-06,-3.95043E-06,-2.51592E-06,-2.72330E-04,
     &       -6.85997E-05,-3.01518E-05,-5.43731E-06,-3.23026E-06,
     &        3.72531E-05,-5.47706E-06, 3.59766E-06,-6.71872E-06,
     &        2.02730E-05, 2.80843E-05, 9.57647E-06, 5.26931E-06,
     &       -1.86893E-04,-3.74277E-05,-1.50913E-05,-2.13795E-04,
     &       -2.81673E-05,-7.65832E-07, 1.42878E-04, 1.12997E-05,
     &        4.58846E-05, 2.58582E-05,-9.65801E-05, 1.30753E-04/
C     long 180deg, jun_so
      DATA (ASOL(13,2,J),J=1,81)/ 1.22484E-05,
     &        2.02076E-04, 1.69652E-04,-6.93774E-04,-5.40169E-04,
     &        2.02564E-04, 3.75996E-04, 3.78010E-04, 1.15304E-04,
     &       -1.88847E-04,-3.16322E-04, 1.01413E-05, 1.36248E-04,
     &        2.41441E-05,-2.49439E-05,-7.52277E-06,-1.97355E-05,
     &       -2.36960E-04, 7.45495E-05, 1.66373E-05,-5.57006E-05,
     &        5.83383E-05,-4.01814E-05,-3.70531E-05, 1.26488E-05,
     &        5.91557E-05, 2.07955E-04, 5.21360E-05, 1.15614E-05,
     &        1.26125E-05,-1.31114E-05,-5.06576E-06,-4.53899E-04,
     &       -3.04617E-04,-9.35119E-05, 8.21744E-06, 3.57989E-06,
     &       -4.30315E-06, 2.53800E-05, 6.93414E-05,-3.98426E-05,
     &        4.15747E-06,-3.82451E-06,-6.37923E-06,-1.66010E-06,
     &        1.99042E-04, 5.81230E-05, 3.03099E-05, 1.50637E-05,
     &       -7.62627E-06, 2.74489E-06,-6.39624E-06,-5.34043E-05,
     &       -6.61105E-06,-4.31916E-07,-1.27442E-06,-3.12834E-04,
     &       -5.10131E-05,-3.09963E-05,-7.06572E-06,-4.58964E-06,
     &        1.20422E-05,-3.11402E-05, 7.52768E-07,-1.03942E-05,
     &        3.34856E-05, 1.05095E-05, 2.44098E-06, 7.87197E-07,
     &       -1.10971E-04,-1.93931E-05,-2.42008E-05,-1.80332E-04,
     &       -1.93386E-05,-6.91026E-06,-1.96606E-05, 9.79508E-06,
     &        1.09470E-04, 5.30295E-05, 7.53492E-05,-1.60056E-05/
C     long 195deg, jun_so
      DATA (ASOL(14,2,J),J=1,81)/ 8.01435E-05,
     &        1.63505E-04, 4.36149E-05,-5.56779E-04,-4.32146E-04,
     &        8.42134E-05, 3.28684E-04, 3.44058E-04, 1.55425E-04,
     &       -1.56331E-04,-4.73504E-04,-6.42266E-05, 1.88349E-04,
     &        5.76901E-05,-3.55933E-05,-8.99370E-06,-1.17694E-05,
     &       -1.13450E-04, 7.85814E-05, 3.72961E-05, 1.33146E-05,
     &        2.12265E-05,-7.58089E-05,-3.87584E-05, 1.72057E-05,
     &        1.56859E-05, 2.01177E-04, 6.85472E-05, 9.35076E-06,
     &        4.66146E-07,-8.54267E-06,-7.27467E-06,-3.96873E-04,
     &       -1.78887E-04,-7.69077E-05, 2.84920E-06, 7.72169E-06,
     &       -5.59062E-06, 1.87478E-05, 2.05449E-04,-5.41228E-05,
     &       -1.11016E-05,-9.09667E-06,-1.57702E-06,-3.36737E-06,
     &        8.66905E-05, 1.63943E-05, 3.76947E-05, 1.18454E-05,
     &       -2.89665E-06, 3.34924E-06, 5.48511E-05,-4.98957E-05,
     &       -5.09891E-07,-2.25120E-06,-3.06292E-06,-3.19197E-04,
     &        2.19681E-06,-9.93622E-06,-6.56055E-06,-7.30253E-06,
     &        1.40872E-06, 1.48014E-05, 1.53421E-05,-9.70265E-07,
     &        6.31644E-05, 3.61159E-05,-6.18440E-07, 5.24526E-06,
     &       -3.03739E-05,-1.35363E-05,-1.05862E-05,-9.99959E-05,
     &       -1.13815E-05,-4.45843E-06,-1.04353E-04, 1.08645E-05,
     &        9.63083E-05, 5.47558E-05, 9.15765E-06,-3.12733E-05/
C     long 210deg, jun_so
      DATA (ASOL(15,2,J),J=1,81)/ 6.28617E-05,
     &        7.70601E-05,-7.36805E-06,-4.85722E-04,-3.06074E-04,
     &       -2.40082E-05, 1.74311E-04, 4.68698E-04, 2.46379E-04,
     &       -1.05286E-04,-4.29742E-04,-1.29421E-04, 1.05186E-04,
     &        1.10359E-04,-7.12829E-06,-6.16724E-05,-1.41652E-05,
     &       -5.07785E-05,-5.85561E-05, 2.00872E-05, 7.79974E-05,
     &        3.69585E-06,-7.41757E-05,-1.99030E-05, 5.63230E-06,
     &        1.17831E-05, 7.94629E-05,-3.09297E-06, 1.46596E-05,
     &        1.33527E-06,-1.09846E-05,-1.18687E-05,-3.03689E-04,
     &       -1.79871E-04,-9.77700E-05,-2.23082E-07, 1.58544E-05,
     &        2.44055E-06, 1.49598E-05, 1.53669E-04,-3.99012E-05,
     &       -4.60631E-05,-1.19756E-05,-5.76953E-06,-1.80816E-06,
     &       -4.18435E-05, 3.44459E-05, 6.13305E-05, 7.52724E-07,
     &       -8.23789E-06, 1.71787E-06, 4.45906E-05,-4.95666E-05,
     &        2.90632E-06,-2.05512E-06,-4.05122E-06,-2.92185E-04,
     &        2.34993E-06, 2.31623E-06,-7.10838E-06,-2.92919E-06,
     &       -1.67571E-05, 1.86932E-05, 1.64521E-05,-4.92215E-07,
     &        2.88535E-05, 5.98049E-05, 4.65046E-06, 5.66239E-06,
     &       -9.66544E-05, 2.09367E-05,-9.52876E-06, 2.70148E-05,
     &       -3.61780E-05,-1.20717E-05, 6.68599E-05, 1.97219E-05,
     &        2.99287E-05, 2.87961E-05,-4.02982E-05, 1.12636E-05/
C     long 225deg, jun_so
      DATA (ASOL(16,2,J),J=1,81)/ 1.46111E-05,
     &        1.68037E-04, 2.13210E-04,-6.37632E-04,-6.02032E-04,
     &        6.57114E-05, 4.36793E-04, 4.91183E-04, 2.63082E-04,
     &       -5.20701E-05,-3.96524E-04,-1.04523E-04, 7.28122E-05,
     &        1.04597E-04, 1.12424E-05,-5.30331E-05,-1.78223E-05,
     &        1.51869E-05,-1.20222E-04,-4.08138E-05, 1.18131E-04,
     &        5.34373E-06,-1.05133E-04,-4.31219E-05, 1.54187E-05,
     &       -8.07203E-05,-2.00239E-05,-6.83181E-05, 2.80078E-05,
     &        1.44157E-05,-1.75753E-05,-1.15806E-05,-2.35882E-04,
     &       -1.92213E-04,-1.35361E-04,-2.39543E-05, 1.19160E-05,
     &        1.25759E-05, 5.52445E-06, 1.57853E-04,-1.84587E-05,
     &       -5.08170E-05,-1.49528E-05,-2.18221E-06,-3.92044E-07,
     &        7.15611E-05, 9.64677E-05, 4.95618E-05,-1.05386E-05,
     &       -1.54900E-05,-1.12632E-06,-1.32658E-04,-8.39919E-05,
     &       -1.17827E-05, 2.81062E-06, 1.51356E-06,-3.01661E-04,
     &       -7.63435E-06,-5.13247E-06, 5.94258E-07,-3.43555E-06,
     &        5.35739E-06, 1.36348E-05, 1.49449E-05,-3.74033E-06,
     &       -5.80259E-05, 3.31725E-05,-1.50702E-05, 4.19960E-06,
     &       -1.86457E-04, 5.32955E-06,-1.98564E-05, 1.44525E-05,
     &       -4.26756E-05,-1.41594E-05, 1.33363E-04, 3.49694E-05,
     &        1.10171E-04, 1.24503E-05, 6.66284E-05,-1.28764E-05/
C     long 240deg, jun_so
      DATA (ASOL(17,2,J),J=1,81)/-2.31991E-05,
     &        2.13653E-04, 3.64492E-04,-5.86441E-04,-8.30125E-04,
     &       -1.09297E-05, 7.02333E-04, 4.77949E-04, 1.05682E-04,
     &       -9.85513E-05,-2.82399E-04,-5.21631E-05, 6.33925E-05,
     &        8.19176E-05, 1.00260E-05,-4.50655E-05,-3.37465E-05,
     &        1.02103E-04,-6.47215E-05,-7.92451E-05, 9.80059E-05,
     &        1.00948E-05,-1.23563E-04,-6.10477E-05, 3.16021E-05,
     &       -7.40638E-05,-4.03480E-05,-6.05980E-05, 1.47678E-05,
     &        1.20431E-05,-1.94653E-05,-1.09205E-05,-1.54927E-04,
     &       -1.81818E-04,-1.46786E-04,-3.39610E-05, 1.92084E-05,
     &        2.62772E-05, 2.74071E-06, 1.21171E-04,-1.91750E-05,
     &       -3.60186E-05,-1.01324E-05, 6.83307E-06, 2.80861E-06,
     &        2.65211E-04, 1.31479E-04, 2.27336E-05,-1.41339E-05,
     &       -1.59234E-05,-1.20737E-06,-9.75685E-05,-7.95117E-05,
     &       -1.16827E-05,-9.49227E-07, 3.08036E-06,-2.75144E-04,
     &       -1.08978E-05,-1.30318E-05,-5.91029E-06,-5.22894E-06,
     &        1.61273E-05, 1.88125E-06,-2.50053E-06,-2.49149E-06,
     &       -4.89422E-05, 2.50000E-05, 6.45802E-07, 3.63499E-06,
     &       -1.18124E-04, 3.62811E-06,-9.08506E-06,-2.16193E-05,
     &       -3.69154E-05, 3.46028E-07, 1.25322E-04, 3.23054E-05,
     &        1.49169E-04, 7.24414E-06, 6.48268E-05, 2.07845E-06/
C     long 255deg, jun_so
      DATA (ASOL(18,2,J),J=1,81)/-1.16685E-04,
     &        8.67179E-05, 2.93997E-04,-4.08254E-04,-7.35504E-04,
     &       -2.24282E-04, 8.36415E-04, 5.26372E-04, 1.22265E-05,
     &       -2.64285E-04,-2.03354E-04, 1.10252E-05, 4.93192E-05,
     &        4.10974E-05,-9.69578E-08,-5.35953E-05,-4.51308E-05,
     &        1.11909E-04,-2.60574E-07,-9.31404E-05, 4.45985E-05,
     &        2.41525E-05,-1.01925E-04,-5.83608E-05, 3.04082E-05,
     &       -4.00675E-05,-5.37531E-05,-5.41108E-05,-1.13445E-05,
     &       -7.24823E-06,-1.01577E-05,-8.31852E-06,-1.04095E-04,
     &       -2.05695E-04,-1.11296E-04,-7.67151E-06, 3.32020E-05,
     &        2.71856E-05,-2.59345E-06, 2.00898E-05,-3.64113E-05,
     &       -1.90749E-05,-1.60463E-05, 6.40246E-06, 7.15330E-06,
     &        2.23286E-04, 1.35564E-04, 2.68970E-05, 1.21442E-05,
     &       -1.14151E-05,-7.97466E-07, 1.57536E-04,-3.67273E-05,
     &       -1.28513E-05,-6.18168E-06,-1.22271E-06,-2.53274E-04,
     &       -1.70141E-05,-2.20882E-05,-8.34030E-06, 1.03187E-06,
     &       -2.18002E-05,-5.67300E-06,-1.23232E-06,-3.11976E-06,
     &       -4.81192E-05, 5.33633E-05, 1.64317E-05, 4.89657E-06,
     &       -6.62236E-05,-8.65934E-06,-2.87380E-06, 9.08288E-05,
     &       -7.22074E-06, 3.75967E-06, 1.79780E-04, 1.05669E-05,
     &        9.94692E-05, 1.68849E-05, 1.78331E-05, 3.55925E-05/
C     long 270deg, jun_so
      DATA (ASOL(19,2,J),J=1,81)/-1.64028E-04,
     &        1.57889E-04, 3.53563E-04,-4.29049E-04,-6.08681E-04,
     &       -1.61242E-04, 6.16455E-04, 3.34926E-04, 2.15764E-04,
     &       -2.33506E-04,-1.52004E-04, 3.89567E-05, 1.68311E-05,
     &        3.90430E-05, 1.50630E-05,-7.66521E-06,-2.84073E-05,
     &        1.34492E-04,-1.00029E-05,-1.02174E-04, 7.12043E-05,
     &        7.30279E-06,-6.94336E-05,-2.92281E-05, 5.35455E-06,
     &       -2.54048E-05,-5.26285E-05,-3.95067E-05,-8.07076E-06,
     &       -9.88158E-06,-1.55959E-06, 9.69101E-08,-9.89632E-05,
     &       -2.28537E-04,-9.82675E-05,-9.91676E-06, 2.40879E-05,
     &        2.18075E-05, 1.73200E-06,-3.83868E-05,-3.13736E-05,
     &       -1.58715E-05,-9.97047E-06, 3.72450E-06, 4.57614E-06,
     &        1.91151E-04, 1.71586E-04, 4.84851E-05, 1.02173E-05,
     &       -9.90323E-06, 8.86796E-07, 1.19181E-04,-1.80649E-05,
     &       -1.12610E-05,-4.72788E-06,-7.59405E-06,-1.93195E-04,
     &       -5.82504E-05,-1.22250E-05,-3.41992E-06, 2.84193E-06,
     &       -4.65647E-05,-2.21461E-05, 1.16449E-05, 4.74542E-07,
     &       -3.71575E-05, 4.94027E-05, 1.74039E-06, 3.19693E-06,
     &       -1.43278E-04,-1.17327E-05,-1.33473E-05, 7.29198E-05,
     &       -7.82422E-07, 1.92990E-06, 2.30706E-04, 4.53688E-06,
     &        3.84611E-05, 2.15884E-05,-3.67732E-05, 6.17562E-05/
C     long 285deg, jun_so
      DATA (ASOL(20,2,J),J=1,81)/-1.94197E-04,
     &        1.41838E-04, 4.79203E-04,-3.79811E-04,-5.76398E-04,
     &       -5.49465E-05, 5.10638E-04, 2.51692E-04, 2.53221E-04,
     &       -1.15879E-05,-6.50155E-05, 3.20154E-05,-4.00391E-05,
     &        2.36281E-05, 3.27265E-05, 2.03995E-05,-9.56718E-06,
     &        9.96654E-05,-3.32559E-05,-6.03884E-05, 9.92248E-05,
     &        4.31727E-06,-5.56034E-05,-2.12643E-05,-2.59035E-06,
     &        3.77400E-06,-3.30882E-05, 1.74888E-06, 3.06448E-05,
     &        3.71534E-07,-9.20391E-06,-4.05124E-06,-1.33424E-05,
     &       -1.30041E-04,-6.86394E-05,-4.33170E-05,-2.49520E-06,
     &        1.88499E-05, 1.79341E-05, 3.03510E-05, 2.19346E-05,
     &       -1.12119E-05,-9.04348E-06,-5.78713E-06,-5.04525E-06,
     &        1.89615E-04, 1.25225E-04, 3.67007E-05,-1.74853E-05,
     &       -6.66088E-06,-2.84866E-07,-9.50046E-06,-3.34257E-05,
     &       -7.71283E-06, 4.55449E-06,-9.63235E-06,-1.20760E-04,
     &       -6.45942E-05, 4.30223E-06,-6.64223E-06,-2.01341E-06,
     &       -9.83692E-05,-4.50388E-05, 1.34557E-05, 4.06333E-06,
     &       -2.17260E-05, 4.55036E-05,-1.17330E-06,-3.82131E-07,
     &       -1.70617E-04, 4.37620E-06,-1.66882E-05, 3.66102E-05,
     &       -5.87939E-06, 9.92843E-06, 1.10795E-04, 9.26494E-06,
     &        3.48152E-05, 2.81083E-05,-1.58498E-05, 1.23597E-04/
C     long 300deg, jun_so
      DATA (ASOL(21,2,J),J=1,81)/-2.30018E-04,
     &        4.76375E-05, 5.20600E-04,-2.54778E-04,-6.13928E-04,
     &       -1.38339E-04, 4.56858E-04, 3.35646E-04, 3.28292E-04,
     &        1.52465E-04,-6.00074E-05,-2.83746E-07,-7.77664E-05,
     &       -4.24197E-05, 1.91523E-05, 3.55770E-05,-9.97600E-06,
     &        7.99486E-05,-6.08516E-05,-4.43460E-05, 1.11012E-04,
     &        3.50195E-05,-3.80029E-05,-4.16714E-05,-2.20207E-06,
     &       -1.15551E-04,-7.52928E-05,-1.26949E-05, 2.52944E-05,
     &        9.45943E-06,-1.30550E-05,-2.08874E-05,-4.35478E-06,
     &       -6.55389E-05,-6.20352E-05,-5.13806E-05,-1.61547E-05,
     &        2.03859E-05, 2.49295E-05, 9.64125E-05, 1.51505E-05,
     &        1.40615E-06,-9.22911E-06,-7.22088E-06,-8.78358E-06,
     &        1.37728E-04, 7.12111E-05, 1.34036E-05,-1.75842E-05,
     &       -1.12331E-05,-3.54757E-06,-4.06678E-05,-2.83714E-05,
     &       -3.85397E-06, 7.40037E-06,-4.81229E-06,-3.19330E-05,
     &       -4.41889E-05, 1.31544E-05,-6.31757E-06,-4.69884E-06,
     &       -1.03993E-04,-4.74628E-05, 8.13755E-06, 4.58331E-09,
     &       -6.93579E-05, 5.10480E-05,-7.38634E-06,-1.86268E-06,
     &       -1.25138E-04,-6.73599E-06,-5.33417E-06, 2.09856E-05,
     &        1.34568E-06, 1.12476E-05,-1.03817E-05, 1.73340E-05,
     &        6.11829E-05, 5.72726E-05,-5.56585E-05, 9.88498E-05/
C     long 315deg, jun_so
      DATA (ASOL(22,2,J),J=1,81)/-2.76978E-04,
     &       -1.79193E-05, 5.47951E-04,-5.02017E-05,-5.20300E-04,
     &       -2.64052E-04, 1.69858E-04, 3.73073E-04, 4.07943E-04,
     &        1.59062E-04,-3.53841E-05,-2.09078E-05,-9.05502E-05,
     &       -3.75212E-05, 1.80608E-05, 4.52169E-05,-7.42726E-06,
     &        6.01110E-05,-8.28273E-05,-3.17575E-05, 9.72789E-05,
     &        2.54804E-05,-4.41194E-05,-3.06017E-05,-6.45497E-06,
     &       -6.19973E-05,-7.06541E-05,-6.00129E-05,-6.90887E-06,
     &        9.81374E-06,-5.74155E-06,-1.59165E-05,-2.66028E-05,
     &       -6.96332E-05,-7.10036E-05,-4.69590E-05,-1.98693E-05,
     &        2.04804E-05, 1.72778E-05, 6.89445E-05, 3.48137E-05,
     &        1.64045E-05,-5.32690E-06,-7.73040E-07,-4.27763E-06,
     &        4.95973E-05, 1.02264E-04, 1.66850E-05,-6.37421E-06,
     &       -1.77360E-05,-7.24744E-06,-1.37102E-04, 1.12074E-05,
     &       -1.04383E-05, 2.24530E-06,-2.99371E-06, 3.07412E-05,
     &       -6.18773E-05, 2.05311E-05,-3.52105E-06,-4.78764E-06,
     &       -7.27930E-06,-4.71064E-05, 7.25233E-06,-3.08472E-06,
     &       -8.64109E-05, 1.64718E-05,-1.03128E-05,-1.49772E-06,
     &       -1.11804E-04,-8.78402E-06,-2.03269E-07, 6.66048E-05,
     &        1.48800E-05,-5.74699E-06, 2.29071E-05, 1.49732E-05,
     &        2.85286E-05, 3.19686E-05,-2.99650E-05, 1.12505E-05/
C     long 330deg, jun_so
      DATA (ASOL(23,2,J),J=1,81)/-2.78546E-04,
     &       -9.86284E-05, 5.56074E-04, 8.36932E-05,-4.24191E-04,
     &       -2.20414E-04, 1.89849E-04, 1.96261E-04, 2.16577E-04,
     &        1.51216E-04, 7.59174E-06, 2.57047E-06,-3.64529E-05,
     &       -1.69403E-05,-3.96814E-06, 3.42000E-05,-2.23821E-06,
     &        9.51414E-05,-8.76523E-05,-7.13827E-05, 6.39948E-05,
     &        4.12487E-05,-4.90142E-05,-3.69907E-05, 3.98741E-06,
     &        2.93401E-05,-1.25964E-05,-3.33583E-05,-1.42872E-05,
     &        1.17833E-05, 8.44043E-06,-7.16241E-06,-5.70700E-05,
     &       -9.37716E-05,-6.74742E-05,-4.82666E-05,-2.68725E-05,
     &        1.90734E-05, 1.58564E-05, 5.16670E-05, 7.55516E-05,
     &        2.21475E-05, 3.60841E-07,-2.52588E-06,-2.84456E-06,
     &        2.63560E-05, 5.49424E-05,-4.62875E-06, 2.28558E-06,
     &       -9.23617E-06,-6.96754E-06,-4.45409E-05, 1.23726E-06,
     &       -1.87138E-05,-1.68060E-06,-3.92905E-06, 9.18691E-06,
     &       -6.42712E-05, 3.18881E-06,-9.71048E-06,-9.47193E-06,
     &        5.21351E-06,-4.62048E-05,-1.37096E-06,-3.88205E-06,
     &       -6.66739E-05,-6.40531E-06,-2.11787E-06, 2.82628E-06,
     &       -1.71739E-05, 3.21549E-06,-2.55855E-06, 9.52818E-05,
     &        2.56058E-05,-5.26991E-06, 7.00383E-06, 6.09667E-06,
     &       -7.00403E-05,-2.94142E-06, 3.81680E-05, 4.49839E-05/
C     long 345deg, jun_so
      DATA (ASOL(24,2,J),J=1,81)/-1.95234E-04,
     &       -1.24607E-04, 5.42515E-04, 6.95037E-05,-4.21784E-04,
     &       -1.49449E-04, 1.50009E-04, 6.98504E-05, 2.32595E-04,
     &        1.95508E-04, 4.85649E-06,-5.84074E-05, 1.05855E-05,
     &        3.07782E-05,-3.72652E-06, 1.43511E-05,-1.65717E-05,
     &        7.74899E-05,-1.01839E-04,-1.14910E-04, 5.71513E-05,
     &        4.15136E-05,-3.99950E-05,-4.83982E-05, 4.78454E-06,
     &       -3.20300E-05,-1.11357E-05, 3.81921E-05, 7.18243E-07,
     &        1.04657E-05, 9.65740E-06,-1.21327E-05,-1.68124E-04,
     &       -6.47754E-05,-4.43053E-05,-2.48025E-05,-2.33269E-05,
     &        1.29377E-05, 1.80755E-05,-3.77725E-05, 7.87567E-05,
     &        1.06802E-05, 6.98644E-06, 1.41166E-06,-3.70210E-06,
     &        1.41482E-04, 4.01046E-05, 1.97543E-05, 3.23550E-06,
     &       -9.63645E-06,-6.16002E-06, 3.27263E-05,-2.15891E-05,
     &       -1.00314E-06,-4.22705E-06,-6.90417E-06, 5.98964E-05,
     &       -4.76086E-05,-1.82627E-05,-1.11677E-05,-9.76258E-06,
     &        4.68530E-05,-1.18697E-05,-1.99650E-07,-1.75416E-06,
     &        6.71269E-07, 1.21707E-05, 1.10197E-05, 6.45306E-06,
     &        2.83468E-05, 1.20302E-05, 3.03017E-06, 8.86608E-06,
     &        9.76045E-06,-3.38626E-06, 1.31357E-05, 1.57616E-05,
     &       -4.10819E-05,-2.74999E-06,-3.14089E-05, 7.45703E-05/
C     long 0deg, sep_eq
      DATA (ASOL(1,3,J),J=1,81)/-1.82934E-04,
     &       -6.05497E-05, 6.37646E-04, 2.19751E-04,-4.54615E-04,
     &       -1.35846E-04, 3.03528E-05,-1.36982E-04, 1.05338E-04,
     &        2.72503E-05, 2.17069E-05,-4.09377E-05, 3.14109E-07,
     &       -6.49798E-06,-1.02105E-05, 2.79954E-05,-1.47646E-05,
     &       -1.07827E-04,-7.96046E-06,-5.55506E-05, 3.94464E-06,
     &        3.17471E-05,-5.25865E-05,-4.32266E-05, 1.66411E-05,
     &       -2.38731E-05,-1.94792E-05, 1.33375E-05,-2.25374E-05,
     &       -5.35239E-06, 4.08039E-07,-6.81643E-06, 3.59390E-05,
     &       -7.33655E-07,-1.29646E-05,-2.28909E-05,-1.52522E-05,
     &       -1.59795E-06, 2.95170E-06, 2.26140E-05, 2.09632E-05,
     &       -1.96250E-05, 1.26462E-05, 2.63206E-06,-3.26704E-06,
     &       -5.16482E-05, 1.03717E-05, 1.23432E-05, 9.19667E-06,
     &       -1.60973E-06,-3.37461E-06, 1.66877E-05, 6.58759E-07,
     &        6.37211E-06,-8.07147E-07,-4.64538E-06,-2.09296E-04,
     &       -4.85632E-05,-8.27096E-06, 3.38798E-06,-3.69695E-06,
     &        1.16794E-05, 1.77401E-05,-2.54453E-06, 1.41422E-06,
     &        3.86193E-05, 2.87119E-06, 5.68400E-06, 6.00754E-06,
     &       -7.56947E-05,-6.84754E-06,-7.28299E-06,-1.95553E-05,
     &        7.76186E-06, 9.79464E-06, 2.46304E-05, 3.10471E-05,
     &       -3.74686E-05, 2.47760E-06,-2.43798E-05, 1.97176E-05/
C     long 15deg, sep_eq
      DATA (ASOL(2,3,J),J=1,81)/-1.20539E-04,
     &       -8.85878E-05, 6.74463E-04, 2.13690E-04,-5.91867E-04,
     &        2.57706E-05, 2.06019E-04,-1.82087E-04, 9.85829E-05,
     &        9.41729E-05,-2.48662E-07,-6.63146E-05, 2.34026E-05,
     &       -6.01369E-06,-2.89614E-05, 2.71070E-05,-1.56675E-05,
     &       -2.00509E-04, 3.06957E-05,-5.87968E-05,-2.29987E-05,
     &        5.44105E-05,-4.96889E-05,-3.32981E-05, 1.20348E-05,
     &        1.25155E-06,-2.91241E-05,-5.75863E-06,-2.90195E-05,
     &        4.33704E-06, 3.90451E-06,-1.07719E-06,-6.13706E-05,
     &       -4.61131E-05,-2.25983E-05,-2.36498E-05,-6.05638E-06,
     &       -5.33476E-06,-3.42906E-06,-3.50332E-06, 3.45594E-05,
     &       -1.86788E-05, 1.35459E-05,-7.84234E-07,-6.92971E-06,
     &       -3.11276E-06, 3.32789E-05, 7.88385E-06,-2.14415E-06,
     &       -1.89049E-06,-3.20155E-06,-9.94014E-06,-3.98626E-05,
     &       -5.44249E-07,-3.93813E-06,-2.40606E-07,-2.76031E-04,
     &       -6.65383E-05,-4.96785E-06,-4.24601E-07,-1.40163E-06,
     &        1.46203E-05, 3.39717E-06,-3.52999E-06, 6.22986E-06,
     &        2.44703E-05, 1.39076E-05, 4.86879E-06, 5.39052E-06,
     &       -6.25221E-05,-1.62625E-06,-4.05017E-06, 5.16806E-05,
     &        2.05611E-05, 2.75795E-07,-4.20685E-07, 2.43278E-05,
     &       -2.33440E-05, 3.28190E-06,-8.41744E-06,-6.74496E-06/
C     long 30deg, sep_eq
      DATA (ASOL(3,3,J),J=1,81)/-4.19766E-05,
     &       -5.91081E-05, 5.14928E-04, 9.78214E-05,-6.13645E-04,
     &        6.17693E-06, 2.68383E-04,-5.24145E-05, 5.26828E-05,
     &        5.87090E-05,-6.42123E-08,-4.17146E-05,-1.18668E-05,
     &       -3.33361E-05, 1.61692E-05, 2.62092E-05,-1.88856E-05,
     &       -1.95167E-04,-3.91670E-06,-1.11216E-04,-1.23578E-05,
     &        8.88526E-05,-3.46451E-05,-2.51547E-05,-1.23673E-05,
     &        6.00244E-05, 7.33360E-06,-3.63145E-05,-3.47456E-05,
     &        1.31720E-05, 1.21249E-05,-2.55269E-06,-1.73938E-04,
     &       -8.29419E-05,-3.68556E-05,-2.05038E-05, 8.63483E-06,
     &        7.61074E-06,-4.23404E-06,-1.36428E-05, 5.89784E-06,
     &       -1.15366E-05, 6.51536E-06,-7.36856E-06,-2.28123E-06,
     &        1.22660E-05, 2.99060E-05, 9.07990E-06, 1.11549E-06,
     &       -6.19248E-07,-6.07723E-07,-3.19077E-05,-6.94827E-05,
     &        5.40229E-06, 3.11098E-06, 1.53996E-06,-2.33189E-04,
     &       -3.80645E-05,-5.98864E-06,-7.00558E-06,-5.46477E-07,
     &        1.42737E-05, 5.06908E-06, 6.67456E-06, 8.06711E-06,
     &        1.45121E-06, 1.60806E-05,-1.10598E-05,-6.45557E-07,
     &       -9.81952E-05, 4.81069E-06, 5.53297E-07, 1.36397E-04,
     &        1.08733E-05, 2.32131E-07, 4.45048E-05, 1.33500E-06,
     &        2.64229E-05,-2.05262E-05,-3.51756E-06,-1.06296E-05/
C     long 45deg, sep_eq
      DATA (ASOL(4,3,J),J=1,81)/ 5.43519E-05,
     &       -2.19322E-05, 2.51978E-04, 6.72047E-05,-3.64071E-04,
     &        6.50268E-05, 2.17082E-04, 6.93764E-05,-6.37325E-05,
     &       -1.25510E-04,-4.56670E-06, 2.65653E-05,-9.67903E-06,
     &       -2.24592E-05, 6.30918E-05, 1.02280E-05,-2.53433E-05,
     &       -8.27361E-05,-5.41031E-05,-1.45584E-04,-8.24476E-06,
     &        1.13620E-04,-3.02906E-05,-3.98811E-05,-4.00393E-05,
     &        1.51397E-04, 6.24153E-05,-6.60408E-06,-9.53845E-06,
     &        1.13715E-05, 4.80247E-06,-5.58777E-06,-2.11442E-04,
     &       -1.15547E-04,-2.43241E-05, 2.75847E-06, 1.24529E-05,
     &        1.77871E-06,-2.75675E-06,-1.29572E-05,-3.65247E-07,
     &       -5.14902E-06, 2.37805E-06,-9.52040E-06, 2.30987E-06,
     &        4.98376E-05, 3.37712E-05, 1.38433E-05, 7.72807E-06,
     &        2.90361E-07, 7.72965E-07, 5.73535E-05,-4.78594E-05,
     &        8.60542E-06, 6.61389E-06, 4.06811E-07,-1.52399E-04,
     &       -2.07308E-05,-5.48527E-06,-3.83658E-06, 2.35817E-06,
     &        9.39281E-05, 4.45915E-05, 1.95192E-05, 6.01847E-06,
     &       -3.90461E-05, 6.94606E-06,-4.96913E-06, 5.74738E-07,
     &       -1.06904E-04,-1.76862E-06,-1.10380E-06,-2.62608E-06,
     &       -9.72251E-06, 2.73158E-06, 6.94939E-05, 1.10370E-05,
     &        5.68634E-05,-2.65305E-05,-3.54072E-05,-3.22398E-06/
C     long 60deg, sep_eq
      DATA (ASOL(5,3,J),J=1,81)/ 9.25420E-06,
     &       -3.16925E-05, 1.42369E-04, 5.89347E-05,-1.59230E-04,
     &        1.45630E-04, 2.51678E-05, 3.88589E-05,-1.65162E-04,
     &       -1.94708E-04,-2.69826E-05, 7.97535E-05, 4.41366E-05,
     &       -3.94907E-05, 6.48009E-06,-2.80552E-05,-2.85779E-06,
     &       -2.30450E-05,-5.81525E-05,-1.50115E-04,-5.59882E-07,
     &        1.28454E-04,-3.84653E-06,-1.92864E-05,-3.79920E-05,
     &        1.03472E-04, 7.18391E-05, 9.03108E-06, 1.07849E-05,
     &        1.45718E-05,-6.79872E-07,-1.25092E-06,-1.07424E-04,
     &       -1.47397E-04,-3.48443E-05, 8.72031E-07, 6.21075E-06,
     &       -1.66663E-07, 6.25791E-06,-1.78240E-06,-6.13940E-06,
     &       -1.55135E-07,-4.49012E-07,-5.65097E-08, 3.23882E-06,
     &        1.04813E-04, 7.06886E-05, 1.78594E-05, 3.94200E-06,
     &       -6.84484E-07, 6.05576E-08, 7.09947E-05, 1.23599E-05,
     &        1.51261E-05, 1.55906E-06,-1.47163E-06,-1.00197E-04,
     &       -4.91716E-05,-1.03648E-05,-2.71396E-06, 1.47222E-06,
     &        9.04079E-05, 2.74959E-05, 2.62912E-05, 1.03618E-05,
     &       -5.17509E-05, 5.30680E-06, 5.42769E-06, 6.09812E-06,
     &       -9.36970E-05, 1.36278E-05, 3.24982E-06,-4.65620E-05,
     &        1.10818E-05,-3.02078E-06, 3.58498E-05, 2.93351E-05,
     &        7.25319E-05,-8.54634E-06,-3.37743E-05,-3.38337E-05/
C     long 75deg, sep_eq
      DATA (ASOL(6,3,J),J=1,81)/-7.35851E-05,
     &        3.29443E-06, 2.12855E-04,-5.23084E-05,-7.03270E-05,
     &        1.95840E-04,-4.28173E-05, 5.66210E-05,-9.04136E-05,
     &       -1.07823E-04,-4.89128E-05, 1.04155E-04, 1.19557E-04,
     &       -4.72687E-05,-4.82513E-05,-3.07166E-05, 2.21201E-05,
     &        2.40168E-05,-1.66773E-06,-1.34866E-04,-2.06412E-05,
     &        1.22044E-04, 1.46727E-05,-3.70466E-05,-4.18135E-05,
     &        1.08129E-04, 1.02729E-04,-1.55836E-05,-2.26293E-05,
     &        1.53824E-05, 1.91153E-06,-9.07349E-07, 2.12013E-05,
     &       -1.76437E-04,-4.42436E-05, 3.53389E-08,-5.00301E-06,
     &        1.47713E-06, 1.62202E-05,-2.41270E-05, 7.19385E-06,
     &        1.01648E-06,-5.09841E-06,-2.96082E-06,-1.31902E-06,
     &        1.00026E-04, 1.04252E-04, 1.28529E-05,-7.59381E-06,
     &       -1.12237E-06, 1.38744E-06, 1.48202E-04, 3.41286E-05,
     &        2.53219E-05, 4.30342E-06,-5.02432E-06,-1.24539E-04,
     &       -7.36849E-05,-6.46726E-06, 4.67108E-07,-4.07622E-06,
     &        5.28730E-05, 6.44393E-06, 1.98249E-05, 1.15598E-05,
     &       -1.76337E-05,-1.39058E-05,-4.69496E-06, 2.87641E-07,
     &       -1.41436E-04,-2.55043E-06,-7.92249E-07, 1.21887E-05,
     &        1.62209E-05,-9.62773E-06,-4.22652E-05, 8.80997E-07,
     &        4.70291E-05,-1.71109E-05, 1.17862E-06,-1.33126E-06/
C     long 90deg, sep_eq
      DATA (ASOL(7,3,J),J=1,81)/-1.73011E-04,
     &        9.95831E-05, 4.44887E-04,-2.68636E-04,-2.26131E-04,
     &        3.00330E-04, 7.78636E-07, 1.45461E-04, 2.04160E-05,
     &       -6.78939E-05,-1.00854E-04, 9.15990E-05, 1.59233E-04,
     &       -1.87819E-05,-6.28970E-05,-1.18235E-05, 3.07026E-05,
     &        1.64785E-04, 3.58611E-05,-1.68694E-04,-3.68941E-05,
     &        1.09317E-04, 2.09136E-05,-4.06256E-05,-3.90061E-05,
     &        1.14818E-04, 1.15979E-04,-1.96825E-05,-1.84823E-05,
     &        1.48313E-05,-5.17469E-07, 2.10251E-06, 4.78831E-05,
     &       -1.79259E-04,-4.04220E-05,-1.40919E-05,-4.04747E-06,
     &        7.53530E-06, 1.24519E-05,-7.97033E-06,-2.90802E-06,
     &        9.98260E-06,-2.45564E-06,-8.79954E-06,-1.98968E-06,
     &        3.60605E-05, 4.58537E-05, 1.26458E-05,-1.15802E-05,
     &       -4.28800E-06, 2.64720E-06, 2.07372E-04, 2.93365E-05,
     &        2.32153E-05, 3.89811E-06,-3.51346E-06,-7.42143E-05,
     &       -3.84006E-05,-5.26163E-06,-1.44436E-06,-1.63546E-06,
     &        5.46009E-05, 1.85185E-05, 1.36006E-05, 9.08257E-06,
     &       -1.14821E-04,-3.35749E-05,-1.15327E-05,-5.39707E-06,
     &       -8.14851E-05,-1.89778E-05,-7.07668E-06, 7.99717E-05,
     &       -7.70092E-06,-4.31435E-06,-7.16231E-05,-1.88270E-05,
     &       -4.76360E-05,-2.00832E-05, 2.21454E-05, 8.25809E-05/
C     long 105deg, sep_eq
      DATA (ASOL(8,3,J),J=1,81)/-1.99089E-04,
     &        5.19383E-05, 5.45440E-04,-2.89293E-04,-1.83023E-04,
     &        3.00594E-04,-1.25761E-04, 3.03773E-05,-2.71229E-05,
     &       -1.03777E-04,-5.10511E-05, 8.75976E-05, 1.43948E-04,
     &        1.03932E-05,-3.67977E-05, 8.20249E-07, 4.94073E-06,
     &        1.64629E-04, 6.98980E-05,-1.91762E-04,-3.68735E-05,
     &        9.34107E-05, 1.51806E-05,-1.22367E-05,-1.48300E-05,
     &        2.00549E-05, 6.22921E-05,-5.47177E-06, 1.60281E-05,
     &        1.24060E-05,-3.91559E-06, 9.86531E-06, 9.58347E-05,
     &       -1.31180E-04,-2.62730E-05,-2.38683E-05,-2.46019E-06,
     &        1.16483E-05, 4.30857E-06,-7.39675E-06,-3.04429E-05,
     &        1.25189E-05,-5.47353E-06,-1.03855E-06, 3.08640E-06,
     &       -2.58102E-05, 6.46892E-06, 1.75948E-05,-1.27042E-05,
     &       -6.47407E-06,-1.92852E-06, 2.32790E-04, 1.99139E-05,
     &        2.18709E-05,-3.52138E-06,-3.89252E-06, 2.90021E-05,
     &        3.60304E-05, 1.84832E-06,-3.95724E-06,-2.27541E-06,
     &       -1.74970E-05, 1.93813E-05, 1.07455E-05, 5.14079E-06,
     &       -1.86000E-04,-3.11782E-05,-1.53567E-05,-2.18961E-06,
     &       -9.56129E-06,-5.18203E-06,-3.22806E-06, 3.90185E-05,
     &       -1.57365E-05, 4.74772E-06,-2.32238E-05,-1.41114E-05,
     &       -1.97363E-05,-8.86957E-06, 5.40926E-06, 1.42740E-04/
C     long 120deg, sep_eq
      DATA (ASOL(9,3,J),J=1,81)/-1.55536E-04,
     &       -2.90472E-05, 3.86123E-04,-1.34146E-04,-7.32498E-05,
     &        1.20535E-04, 6.30529E-05, 2.10820E-05,-2.40655E-04,
     &       -7.69417E-05, 4.09878E-05, 6.41000E-05, 5.65893E-05,
     &        2.05350E-05,-1.58211E-05,-2.03547E-05, 4.45481E-06,
     &        1.42650E-04, 6.00252E-05,-1.71247E-04,-3.66924E-05,
     &        7.27138E-05, 1.12849E-05,-1.45742E-05,-5.78568E-06,
     &       -1.10228E-04, 4.94239E-05, 1.52983E-05, 2.55487E-05,
     &        7.22833E-06,-1.07665E-06, 4.20983E-06, 1.36662E-05,
     &       -7.37990E-05,-3.28266E-05,-2.09692E-05,-1.78966E-06,
     &        1.04310E-06,-2.89263E-06, 2.13078E-05,-4.06009E-05,
     &       -8.28707E-07,-1.00562E-06, 3.60221E-06,-1.23640E-06,
     &        1.36189E-04, 2.18352E-05, 2.12456E-05,-9.41010E-06,
     &       -6.52146E-06,-2.01945E-06, 1.41839E-04,-1.48326E-05,
     &        1.17153E-05,-9.03407E-06, 1.28444E-06,-7.06125E-05,
     &        5.49093E-05, 8.48357E-06,-5.74571E-06,-1.00199E-05,
     &       -4.56132E-05, 2.08557E-05, 9.39922E-06, 1.36991E-06,
     &       -1.49020E-05, 1.27661E-05,-5.34182E-06, 2.74216E-06,
     &       -3.03612E-05,-8.21728E-06,-6.81487E-07, 2.66351E-05,
     &        5.91989E-06, 2.98010E-06, 4.43518E-05, 7.14227E-06,
     &        1.55226E-05, 2.65522E-06,-5.65649E-05, 1.21642E-04/
C     long 135deg, sep_eq
      DATA (ASOL(10,3,J),J=1,81)/-1.57834E-04,
     &        3.12995E-05, 2.91929E-04,-1.44309E-04,-1.47605E-04,
     &       -1.68425E-05, 8.12262E-05, 1.62737E-04,-1.83159E-04,
     &       -1.02976E-04, 1.09614E-04, 6.78616E-05,-3.05092E-05,
     &       -3.26989E-06,-1.27335E-05,-4.93277E-05, 1.80257E-05,
     &        7.83694E-05, 9.99478E-06,-1.32041E-04,-3.64274E-05,
     &        6.55088E-05, 1.74238E-05,-1.66968E-05,-1.41207E-05,
     &       -1.43630E-04, 5.62032E-05, 1.53712E-07, 2.85235E-05,
     &       -8.51214E-07, 7.64824E-06, 1.66264E-06,-3.29013E-05,
     &       -7.64978E-05,-5.70818E-05,-3.34208E-05,-5.77605E-06,
     &       -1.67393E-06, 1.05019E-06, 6.17582E-05,-3.91201E-05,
     &       -1.75669E-05, 3.89287E-06, 2.19384E-07,-3.76324E-06,
     &        2.25374E-04, 2.60896E-05, 1.32409E-05,-8.47998E-06,
     &       -1.68084E-06,-2.62958E-06, 1.08335E-04,-3.27407E-05,
     &        5.34206E-06,-1.03571E-05,-1.22081E-06,-1.08549E-04,
     &        4.53462E-05,-6.03278E-06,-1.67033E-05,-7.26360E-06,
     &       -1.78436E-05, 2.13593E-05, 1.80656E-05, 8.71420E-07,
     &        1.94126E-05, 2.15325E-05, 3.11205E-06, 6.47682E-06,
     &       -1.47131E-05, 1.05245E-05,-1.25240E-06, 4.14936E-05,
     &        1.81000E-05,-2.21516E-06, 8.21368E-05, 1.91048E-05,
     &        2.58709E-05, 3.59555E-06,-7.03332E-05, 3.72855E-05/
C     long 150deg, sep_eq
      DATA (ASOL(11,3,J),J=1,81)/-2.30858E-04,
     &       -3.74884E-05, 4.23091E-04,-1.55429E-05,-1.55635E-04,
     &       -1.25217E-04,-1.81976E-04, 2.92248E-05,-6.25996E-05,
     &       -2.02528E-04, 1.28511E-04, 3.48958E-05,-6.28791E-05,
     &       -3.43164E-06, 1.29127E-06,-4.18327E-05,-3.83606E-06,
     &       -1.18969E-04, 5.07630E-05,-1.04110E-04,-3.61428E-05,
     &        8.03307E-05, 1.50304E-05,-3.89319E-05,-1.44264E-06,
     &       -1.27096E-04, 4.34708E-05,-3.72731E-05, 1.77991E-05,
     &        7.06703E-06, 7.37292E-06, 4.73241E-06,-7.47439E-05,
     &       -6.99365E-05,-7.13490E-05,-4.52787E-05, 4.35064E-06,
     &        5.19942E-06, 8.20036E-06,-8.16391E-05,-2.24103E-05,
     &       -2.14559E-05, 1.01807E-05,-6.05648E-06,-2.01736E-06,
     &        1.89166E-04, 1.78552E-05,-1.19369E-05,-3.46058E-06,
     &       -6.71269E-06, 3.95479E-07, 6.29617E-05,-7.52772E-06,
     &        3.04732E-06,-3.83925E-06,-6.37351E-06,-1.39298E-04,
     &        3.62404E-05,-4.33881E-06,-1.34860E-05, 2.86146E-07,
     &        5.98997E-05, 1.23249E-05, 6.33604E-06, 1.32398E-06,
     &        2.00171E-05, 2.38081E-06,-4.35066E-06, 2.22065E-07,
     &       -3.02023E-05, 2.17086E-05,-4.15840E-07,-5.71365E-05,
     &        1.39151E-05,-1.07728E-05, 2.48511E-05, 1.55126E-05,
     &        4.15320E-05, 2.00729E-05,-6.37246E-05, 1.34597E-05/
C     long 165deg, sep_eq
      DATA (ASOL(12,3,J),J=1,81)/-3.58639E-04,
     &       -7.31146E-05, 6.84319E-04, 1.24128E-04,-1.11886E-04,
     &       -1.93886E-04,-3.25008E-04,-1.11012E-04, 8.43319E-05,
     &       -1.53918E-04, 6.31085E-07,-6.95945E-06,-2.71519E-05,
     &        2.09451E-05,-1.70839E-05,-3.32547E-05,-4.50989E-06,
     &       -4.14096E-05, 7.60288E-05,-9.80941E-05,-2.83751E-05,
     &        7.48334E-05, 1.22293E-05,-3.61627E-05,-3.19429E-06,
     &       -1.26017E-04, 7.71085E-05,-2.89782E-05, 1.63592E-05,
     &        2.20976E-05,-4.81753E-06,-6.87452E-07,-1.01215E-04,
     &       -4.49052E-05,-9.09051E-05,-3.95147E-05, 1.98722E-06,
     &        7.26796E-06, 1.01059E-05,-1.54485E-04,-4.80796E-05,
     &       -9.31659E-06, 1.02310E-05,-7.64006E-06, 1.17629E-06,
     &       -5.79694E-06, 7.43058E-06,-2.17578E-05,-2.57547E-06,
     &       -1.35340E-05, 4.86930E-06, 8.17900E-05, 2.89458E-05,
     &       -1.15044E-05,-5.19743E-06,-7.17032E-06,-1.57334E-04,
     &       -1.94896E-05,-5.52023E-06,-4.68325E-06, 2.18595E-06,
     &        8.54944E-05, 1.68006E-06, 6.60186E-06, 5.49047E-07,
     &        6.28245E-05,-1.29083E-06,-3.33698E-06,-1.74695E-06,
     &       -7.81227E-05,-5.99325E-07,-2.56541E-06,-1.62067E-05,
     &        3.28387E-05,-1.47409E-05, 2.24813E-05, 1.74026E-05,
     &       -2.81723E-05, 2.29849E-06,-4.33491E-05,-3.93393E-05/
C     long 180deg, sep_eq
      DATA (ASOL(13,3,J),J=1,81)/-4.16696E-04,
     &       -1.60597E-05, 7.57585E-04,-1.76246E-05,-1.88411E-04,
     &       -4.26273E-05,-3.00791E-04,-7.86302E-06, 1.15188E-04,
     &       -8.61975E-07,-6.74981E-05,-8.07668E-06, 1.41589E-05,
     &        9.83511E-06,-3.68726E-05,-1.96969E-05, 2.54011E-05,
     &        1.46462E-04, 8.05698E-05,-7.89112E-05,-2.40341E-05,
     &        5.78188E-05,-2.22202E-06,-1.44798E-05,-7.40284E-06,
     &       -1.16023E-04, 8.55730E-05,-1.02132E-07, 2.61435E-05,
     &        1.98629E-05,-2.12135E-05,-9.44127E-06,-7.06070E-05,
     &       -8.67983E-05,-8.78967E-05,-4.03910E-05, 5.50819E-06,
     &        1.23102E-05, 3.95021E-06,-8.29237E-05,-3.99400E-05,
     &        9.34148E-06,-1.47005E-06,-4.94819E-06,-1.07549E-06,
     &       -3.04505E-05, 4.91653E-05,-1.54150E-05,-2.05591E-06,
     &       -1.27822E-05, 3.33987E-06, 1.34966E-04, 6.78565E-06,
     &       -1.56611E-05,-1.10000E-05,-5.09558E-06,-1.34267E-04,
     &       -6.09308E-05,-1.51239E-05,-6.53972E-06,-6.33890E-08,
     &        1.75696E-05, 1.61013E-05, 3.72879E-06,-1.42645E-06,
     &        2.65958E-05, 1.29118E-05,-9.81897E-06,-2.51068E-07,
     &       -1.00003E-04,-7.51135E-06,-5.06124E-06, 1.68765E-05,
     &        2.53786E-05,-6.05109E-06, 5.13363E-05, 1.16787E-06,
     &       -5.34646E-05,-1.36632E-05, 2.31436E-06,-5.37849E-05/
C     long 195deg, sep_eq
      DATA (ASOL(14,3,J),J=1,81)/-3.80652E-04,
     &       -3.32546E-05, 6.71631E-04,-6.11596E-05,-2.40890E-04,
     &        1.92141E-05,-2.63620E-04, 5.35094E-05, 1.63277E-04,
     &       -4.37068E-06,-8.86382E-05, 3.54772E-05, 4.16960E-05,
     &        3.08446E-06,-2.86103E-05,-2.77242E-05, 2.61996E-05,
     &        2.19218E-04, 7.04289E-05,-1.00147E-04,-2.08555E-05,
     &        8.53620E-05,-7.32350E-06,-4.40785E-05,-9.57701E-06,
     &       -1.31698E-04, 5.23979E-05, 5.18704E-06, 2.24274E-05,
     &        2.44010E-05,-1.57387E-05,-1.03154E-05, 2.43875E-05,
     &       -1.28448E-04,-6.12054E-05,-4.30237E-05, 5.75276E-06,
     &        1.61500E-05,-3.34842E-06, 1.29346E-05,-4.13111E-05,
     &       -2.25241E-06,-1.24329E-05, 1.13919E-08, 1.13452E-06,
     &       -1.07433E-06, 9.07362E-05,-7.38119E-06,-4.70130E-06,
     &       -8.35953E-06, 3.52778E-06, 9.37050E-05,-1.63623E-05,
     &       -3.90464E-06,-6.24145E-06,-1.35910E-06,-1.53333E-04,
     &       -3.80845E-05,-9.71703E-06,-6.67885E-06, 3.18496E-06,
     &       -6.09965E-05,-1.35421E-05,-5.25061E-06,-3.11065E-06,
     &        8.38895E-06, 1.32127E-05,-7.74438E-06, 7.84123E-07,
     &       -1.23749E-04, 1.45247E-06, 4.20976E-06, 4.02536E-05,
     &       -1.50340E-06,-1.76241E-06, 5.14957E-05, 1.94674E-05,
     &       -1.29261E-05,-6.85816E-06, 4.03659E-05, 5.29920E-05/
C     long 210deg, sep_eq
      DATA (ASOL(15,3,J),J=1,81)/-3.72293E-04,
     &       -5.73857E-05, 5.92903E-04, 2.90534E-05,-4.88338E-05,
     &        1.90585E-05,-3.12687E-04,-3.32225E-05, 1.08608E-04,
     &       -6.09786E-05,-1.09818E-04, 7.35218E-05, 6.95121E-05,
     &       -5.81361E-06,-2.72474E-05,-4.17442E-05, 1.13993E-05,
     &        2.42193E-04, 1.22797E-05,-1.21209E-04,-6.83255E-06,
     &        1.14236E-04,-1.91031E-05,-5.45468E-05,-2.05961E-05,
     &       -2.22071E-04, 1.23226E-05,-1.53986E-05, 6.87942E-06,
     &        3.67232E-05,-3.29138E-06,-1.19284E-05,-3.72954E-05,
     &       -1.94402E-04,-6.21959E-05,-2.02544E-05, 4.61966E-06,
     &        6.77134E-06,-1.64106E-07, 7.53780E-05,-4.73336E-05,
     &       -1.05732E-05,-2.03467E-05, 2.58600E-06, 3.55876E-06,
     &        2.74730E-05, 9.14534E-05,-4.49139E-06,-6.38333E-06,
     &        2.19321E-07, 1.92629E-06, 1.34123E-04,-5.37520E-06,
     &       -1.18763E-05,-6.62975E-06,-3.26769E-06,-1.78758E-04,
     &       -1.28576E-05,-4.64417E-06, 2.42018E-06, 8.52253E-07,
     &       -8.09234E-05,-2.83284E-05, 1.64732E-06,-3.21675E-07,
     &       -4.84593E-05, 6.72260E-06, 4.84635E-06, 9.29884E-07,
     &       -1.22624E-04, 1.06967E-05, 1.03146E-05, 1.60115E-05,
     &        9.09053E-06,-1.47851E-05, 5.96399E-05, 3.45253E-05,
     &        4.61592E-05,-6.44921E-06, 5.60294E-05, 1.83215E-05/
C     long 225deg, sep_eq
      DATA (ASOL(16,3,J),J=1,81)/-3.37135E-04,
     &       -1.02412E-04, 4.68790E-04, 4.38502E-05, 6.97075E-05,
     &        1.29294E-04,-1.21783E-04,-9.11640E-06,-8.85453E-05,
     &       -4.05436E-05,-5.55247E-06, 7.66712E-05, 4.44890E-05,
     &       -5.42467E-05,-2.33473E-05,-1.35964E-06, 1.72043E-05,
     &        1.87997E-04,-2.13785E-05,-1.15978E-04, 3.34006E-05,
     &        1.11306E-04,-2.45103E-05,-3.20322E-05,-1.44045E-05,
     &       -2.58083E-04, 1.16106E-06,-1.82940E-05,-6.90100E-06,
     &        3.04600E-05,-7.38640E-07,-1.46046E-05,-1.32869E-04,
     &       -1.83108E-04,-3.80418E-05,-4.16401E-06,-1.27640E-06,
     &       -1.61134E-06, 6.83862E-06, 1.31082E-04,-2.42806E-05,
     &       -3.67752E-05,-1.50921E-05,-1.14492E-06,-1.54943E-06,
     &        8.22083E-05, 8.65971E-05,-1.30405E-05,-1.23664E-05,
     &        2.84684E-06,-4.64930E-07, 4.13453E-05, 1.65464E-05,
     &       -1.23660E-05,-6.43424E-06,-2.56820E-06,-2.39840E-04,
     &       -3.23778E-05,-7.96199E-07, 5.77398E-06,-2.31689E-06,
     &       -5.45655E-05,-1.04064E-05,-7.42634E-06, 2.25356E-06,
     &       -1.26754E-04, 1.20186E-05, 9.32712E-06,-3.85835E-06,
     &       -1.14455E-04, 1.71068E-05, 1.96072E-06, 2.52770E-05,
     &        3.53687E-05,-5.96012E-06, 5.75814E-05, 4.19333E-05,
     &        2.94516E-05,-1.76258E-05, 7.60339E-05,-5.16643E-06/
C     long 240deg, sep_eq
      DATA (ASOL(17,3,J),J=1,81)/-3.08102E-04,
     &       -3.37264E-05, 4.99485E-04,-2.51805E-04,-5.26666E-05,
     &        3.35432E-04, 9.29023E-05,-2.82263E-05,-9.32630E-05,
     &       -5.32485E-05, 3.85726E-05, 3.72846E-05,-2.66322E-05,
     &       -6.87217E-05,-1.68139E-05, 2.53554E-05, 2.40385E-05,
     &        1.35139E-04,-5.46546E-05,-7.27416E-05, 4.54818E-05,
     &        6.26270E-05, 8.31732E-07,-2.82895E-05,-1.02935E-05,
     &       -1.88635E-04, 8.79651E-06,-2.58901E-05,-2.46075E-05,
     &        2.80062E-05, 3.21924E-08,-1.05209E-05,-6.28680E-05,
     &       -9.23274E-05,-8.79493E-06, 1.79442E-06,-3.26985E-06,
     &        7.13239E-07, 1.79254E-06, 6.40197E-05, 1.18259E-05,
     &       -5.48539E-05,-5.75570E-06,-7.85034E-07,-2.06977E-06,
     &        5.47496E-05, 8.20999E-05,-1.51319E-05,-1.14520E-05,
     &       -2.64855E-06, 5.17537E-07, 1.30809E-05, 2.01410E-06,
     &       -3.88408E-07,-4.70368E-07, 5.40469E-07,-1.97905E-04,
     &       -5.37145E-05, 1.31128E-05, 3.09985E-07, 1.79832E-08,
     &       -1.69085E-05,-2.36190E-05,-6.80620E-06, 4.15278E-06,
     &       -8.59493E-05, 2.55534E-05, 1.42147E-05,-3.58651E-06,
     &       -9.04683E-05, 1.77786E-05, 1.00244E-06, 9.58023E-05,
     &        2.09974E-05, 5.88034E-06, 3.86375E-05, 1.54035E-05,
     &        5.52040E-05,-1.11628E-05, 1.27422E-04, 1.98641E-05/
C     long 255deg, sep_eq
      DATA (ASOL(18,3,J),J=1,81)/-3.13488E-04,
     &        9.99309E-05, 7.25554E-04,-4.73982E-04,-3.69860E-04,
     &        4.54658E-04, 1.33104E-04,-1.73066E-04,-3.49166E-05,
     &       -1.07402E-07, 4.80261E-05, 4.89108E-05,-6.87270E-05,
     &       -4.15464E-05,-1.82040E-06,-2.70690E-06, 1.74439E-05,
     &        1.18588E-04,-6.06294E-05,-4.80975E-05, 4.68100E-05,
     &        4.78540E-05, 3.95092E-06,-3.01528E-05,-1.06482E-05,
     &       -1.82542E-04,-2.80187E-05,-4.03388E-05,-2.34472E-05,
     &        3.06220E-05,-4.83619E-06,-3.44816E-06,-6.38823E-05,
     &       -1.15212E-04,-1.64230E-05,-2.11055E-06, 1.62858E-05,
     &        1.98129E-06,-9.62904E-06, 3.42385E-05, 9.70010E-06,
     &       -2.38950E-05, 6.47275E-06, 4.73180E-07,-4.88606E-07,
     &        7.02305E-05, 6.08817E-05,-8.16769E-06,-6.85468E-06,
     &       -7.60414E-06, 2.66314E-06, 1.59895E-05,-1.77108E-06,
     &        9.86107E-06,-3.51151E-06,-1.73066E-06,-1.88385E-04,
     &       -3.08331E-05, 1.95478E-05,-7.23747E-06, 1.26220E-06,
     &        3.73901E-05,-1.19466E-05, 8.91196E-06, 4.98827E-06,
     &       -6.76563E-05,-1.66153E-06,-9.27990E-07,-5.86033E-06,
     &       -8.32739E-05,-2.21030E-06, 6.49196E-08, 4.76610E-05,
     &       -2.84530E-07,-5.20280E-06, 6.85839E-05, 1.33597E-05,
     &        1.18922E-04, 4.55854E-06, 7.55497E-05,-9.56938E-06/
C     long 270deg, sep_eq
      DATA (ASOL(19,3,J),J=1,81)/-3.99256E-04,
     &        1.05409E-04, 9.26488E-04,-4.56985E-04,-6.09529E-04,
     &        4.05532E-04, 1.73332E-04,-1.39521E-04, 1.95453E-05,
     &        1.66108E-04, 8.99726E-06, 2.15276E-05,-5.73490E-05,
     &       -3.65872E-05, 1.17152E-05, 2.05902E-07, 5.85365E-06,
     &        1.72779E-04,-3.36428E-05,-1.10102E-04, 3.48347E-05,
     &        5.47573E-05, 2.42520E-06,-1.51396E-05, 2.74245E-07,
     &       -2.13590E-04,-2.34743E-05,-3.35309E-05,-3.22225E-05,
     &        1.92883E-05,-7.61687E-06,-1.70597E-06,-1.10996E-04,
     &       -1.63585E-04,-4.72048E-05,-6.80500E-06, 2.23252E-05,
     &        9.46509E-06,-8.00443E-06, 8.40939E-05,-3.99822E-05,
     &       -2.55592E-05, 2.68346E-06, 3.57275E-07,-5.27232E-07,
     &        1.10485E-04, 3.19757E-05, 4.19163E-06, 4.19697E-06,
     &       -7.92285E-06,-3.16617E-07, 3.05418E-05, 1.63470E-05,
     &        5.63915E-06,-5.94721E-06,-4.69549E-06,-2.58594E-04,
     &       -5.57429E-05, 8.78822E-06,-9.68477E-06,-2.29226E-07,
     &       -7.64162E-06,-9.91479E-06,-2.28546E-06, 3.07385E-06,
     &       -7.57273E-05,-1.92503E-05,-8.07325E-06,-4.10752E-06,
     &       -1.25827E-04,-2.06036E-05, 3.55108E-06, 1.17088E-05,
     &        1.58779E-06,-4.35422E-06, 5.43022E-05, 3.24801E-05,
     &        9.53293E-05, 2.35540E-06, 5.81697E-05, 1.39516E-06/
C     long 285deg, sep_eq
      DATA (ASOL(20,3,J),J=1,81)/-4.13188E-04,
     &        1.30439E-05, 9.29561E-04,-3.51785E-04,-7.00900E-04,
     &        2.80467E-04, 2.05151E-04,-3.83525E-05, 1.46244E-04,
     &        1.69391E-04,-4.27404E-05,-5.49857E-05,-4.40902E-05,
     &       -5.27168E-05, 4.86965E-06, 1.57962E-05,-1.72912E-06,
     &        1.79810E-04,-1.08450E-05,-1.47311E-04, 1.52670E-05,
     &        6.44794E-05,-1.65634E-05,-2.31297E-05, 1.70822E-05,
     &       -2.09327E-04, 2.09631E-05,-1.22304E-05,-4.11869E-05,
     &        1.00602E-05,-7.61316E-06,-1.20786E-05, 7.06030E-07,
     &       -1.41638E-04,-6.66527E-05,-3.76591E-06, 1.69922E-05,
     &        1.13996E-05, 2.32336E-06, 2.02011E-04,-2.95276E-05,
     &       -2.66847E-05,-8.76160E-06, 1.32843E-06, 7.82713E-07,
     &        4.23345E-05, 2.22779E-05, 1.56294E-05, 6.33611E-06,
     &       -4.33288E-06,-6.40767E-07,-2.25438E-05, 8.05189E-06,
     &       -6.97628E-06,-6.54580E-06,-3.72319E-06,-2.65826E-04,
     &       -7.61580E-05, 6.73379E-06,-6.34187E-06,-2.98896E-06,
     &        1.67642E-05,-3.24615E-05, 7.06168E-07,-6.48701E-07,
     &       -5.64112E-05,-1.56075E-06, 2.09933E-06, 1.24649E-06,
     &       -1.02479E-04, 2.69191E-06, 2.10059E-06, 2.72257E-05,
     &       -8.85829E-06,-7.95128E-06, 5.75578E-05, 1.57391E-05,
     &        6.87055E-05, 4.83668E-06, 1.00601E-04,-1.81813E-05/
C     long 300deg, sep_eq
      DATA (ASOL(21,3,J),J=1,81)/-3.38533E-04,
     &       -5.88007E-05, 8.63452E-04,-1.28172E-04,-6.32383E-04,
     &       -2.80578E-06, 3.60420E-05, 2.42043E-05, 2.19947E-04,
     &        3.29169E-05,-8.89231E-06,-5.11173E-05,-5.52094E-05,
     &       -5.76043E-05, 1.00982E-05, 3.99431E-05,-1.46094E-05,
     &        6.77922E-05,-3.94753E-05,-1.43713E-04, 5.84548E-05,
     &        9.57474E-05,-4.18968E-05,-4.58528E-05, 1.91179E-05,
     &       -1.53642E-04,-1.79867E-05,-1.63904E-05,-1.57743E-05,
     &        1.80469E-05,-5.61964E-06,-1.83111E-05, 1.57369E-04,
     &       -5.46787E-05,-4.98471E-05,-1.19369E-05,-3.61261E-07,
     &        3.64442E-06, 4.62042E-06, 3.00184E-04, 1.20780E-05,
     &       -1.83462E-05,-1.12426E-05,-7.73018E-07, 2.80062E-07,
     &        4.16143E-05, 2.68669E-05, 1.55669E-05,-2.19618E-06,
     &       -3.14597E-06,-2.94126E-08, 3.63061E-06, 5.26838E-06,
     &       -5.16429E-06,-4.42517E-06,-1.80024E-06,-2.27108E-04,
     &       -5.12716E-05, 1.24025E-05, 5.15252E-07,-2.71786E-06,
     &        3.51381E-05,-2.51905E-05, 4.62393E-06, 2.55948E-06,
     &       -4.59001E-05,-1.23459E-05, 7.50834E-07,-3.82570E-06,
     &       -6.43192E-05, 2.40215E-05, 1.86078E-06, 4.29346E-06,
     &       -5.08128E-06,-6.11431E-07, 2.37494E-05, 1.32687E-05,
     &       -2.83453E-05, 6.40299E-06, 4.04236E-05,-5.46684E-05/
C     long 315deg, sep_eq
      DATA (ASOL(22,3,J),J=1,81)/-3.17189E-04,
     &       -1.15373E-04, 7.88793E-04, 1.36091E-04,-5.12409E-04,
     &       -2.93042E-04,-9.97869E-05, 7.16481E-05, 1.82833E-04,
     &       -1.61651E-05, 7.76055E-05, 6.49076E-06,-4.44678E-05,
     &       -5.43899E-05, 3.84781E-06, 4.48633E-05,-1.67505E-05,
     &       -5.06916E-05,-7.93652E-05,-1.36164E-04, 4.41545E-05,
     &        8.76220E-05,-1.62708E-05,-5.17820E-05,-7.81360E-06,
     &       -1.13900E-04,-4.93515E-05,-2.09515E-05,-9.40016E-06,
     &        1.30831E-05,-2.00623E-06,-1.34520E-05, 1.29994E-04,
     &        2.43034E-06,-1.95480E-05, 2.30825E-06,-1.36927E-05,
     &       -2.38566E-06, 8.48594E-06, 1.21441E-04, 3.01537E-05,
     &       -1.54486E-05,-3.56464E-06,-5.95034E-06,-1.08414E-06,
     &        9.19901E-05, 1.47770E-05, 7.17902E-06,-7.83586E-06,
     &       -8.34407E-06,-1.99036E-06, 1.14668E-04, 2.44523E-05,
     &        1.89743E-05,-3.77440E-06,-5.49326E-06,-1.75644E-04,
     &       -3.40122E-05,-5.70070E-06, 3.41219E-06,-1.64723E-07,
     &       -3.12872E-05,-7.76773E-06,-1.28863E-05, 3.26523E-06,
     &       -4.36275E-05,-1.79340E-05,-5.92314E-06,-4.94278E-06,
     &       -7.28709E-05, 6.07809E-06, 2.44071E-06, 5.09574E-05,
     &       -2.09771E-06, 1.05509E-05,-6.25410E-05, 2.39749E-05,
     &       -1.19889E-05, 1.04109E-05,-3.75281E-05,-4.70878E-05/
C     long 330deg, sep_eq
      DATA (ASOL(23,3,J),J=1,81)/-2.80577E-04,
     &       -6.28362E-05, 7.45079E-04, 1.64646E-04,-4.76708E-04,
     &       -3.84431E-04,-5.21468E-05, 7.49024E-05, 1.96912E-04,
     &        3.01210E-06, 1.20674E-04, 8.83846E-06,-7.03007E-05,
     &       -3.76063E-05, 1.62248E-05, 1.77928E-05,-1.85617E-05,
     &       -2.79511E-05,-9.09563E-05,-1.23200E-04,-1.03038E-06,
     &        5.39663E-05, 8.82974E-06,-3.07012E-05,-1.95511E-05,
     &       -5.97169E-05,-3.86867E-05,-1.30197E-05,-1.56884E-05,
     &       -1.16436E-06, 6.01651E-07,-5.07470E-06, 3.54289E-05,
     &       -1.41482E-05,-2.59512E-05, 6.75770E-06,-1.12125E-05,
     &       -3.51715E-06, 1.07695E-05,-5.68561E-05, 2.19341E-05,
     &       -1.80576E-05, 9.99999E-06, 1.28558E-06,-2.31281E-06,
     &        1.17991E-04,-1.08339E-05, 4.50244E-06,-6.95728E-06,
     &       -4.71911E-06,-1.60822E-06, 9.05946E-05, 4.40118E-06,
     &        2.29792E-05,-1.83644E-06,-4.15673E-06,-1.37765E-04,
     &       -2.13262E-05,-1.56935E-05,-1.24299E-06, 8.95406E-07,
     &       -1.76959E-05, 8.05188E-06,-8.74695E-06,-7.03850E-07,
     &       -5.95769E-06,-1.58153E-05,-1.75246E-05,-2.02092E-06,
     &       -1.05088E-04,-1.29829E-05,-4.95500E-06, 7.80280E-05,
     &       -7.62601E-06, 2.60846E-06,-7.80684E-05, 9.15939E-06,
     &        3.03566E-05, 2.09290E-05,-2.04789E-06,-1.32106E-05/
C     long 345deg, sep_eq
      DATA (ASOL(24,3,J),J=1,81)/-2.41753E-04,
     &       -7.18978E-06, 6.72275E-04, 1.13044E-04,-4.43311E-04,
     &       -3.19625E-04,-7.03475E-05,-2.83104E-05, 2.21037E-04,
     &        3.87948E-05, 7.01617E-05,-3.57141E-05,-6.60933E-05,
     &       -3.51053E-05, 1.53496E-05, 1.60482E-05,-1.52937E-05,
     &       -2.94248E-05,-6.84137E-05,-9.63796E-05, 7.89155E-06,
     &        3.49762E-05,-1.68482E-05,-2.98673E-05, 2.76201E-06,
     &       -4.42471E-05,-1.24099E-05,-1.03248E-05,-1.68805E-05,
     &       -1.94096E-06,-9.30387E-07,-8.86798E-06, 3.41032E-05,
     &        6.69618E-06,-3.67296E-05,-2.04607E-05,-1.37202E-05,
     &        2.98304E-06, 9.91991E-06,-3.24072E-05, 1.89303E-05,
     &       -2.28811E-05, 1.17940E-05, 3.57181E-06,-6.19093E-07,
     &        2.68925E-05,-2.55959E-05, 1.54985E-05, 6.47403E-06,
     &       -3.18399E-08,-1.10429E-06, 3.53940E-05, 7.94447E-07,
     &        1.61674E-05, 2.29161E-06,-2.54630E-06,-1.27026E-04,
     &       -3.26518E-05,-1.10260E-05,-1.07029E-06,-1.37386E-06,
     &       -6.36731E-06, 7.08980E-06,-1.17549E-06, 1.40656E-06,
     &        2.73971E-05,-9.85049E-06,-1.64822E-05, 1.76665E-06,
     &       -1.19096E-04,-7.59401E-06,-8.71898E-06, 5.37548E-06,
     &       -7.73033E-06, 6.02237E-06,-2.85888E-05,-7.91145E-07,
     &       -3.02777E-05, 1.33164E-05,-7.12731E-06, 1.49945E-05/
C     long 0deg, dec_so
      DATA (ASOL(1,4,J),J=1,81)/-1.88285E-04,
     &       -1.42719E-04, 6.64416E-04, 2.27206E-04,-6.07340E-04,
     &        6.54106E-05, 1.93814E-04,-4.16232E-04, 2.72453E-04,
     &       -1.57371E-04,-7.06455E-05, 6.89661E-05,-9.02010E-05,
     &        1.34231E-05, 2.88364E-05, 2.60942E-06, 1.41881E-05,
     &        1.36783E-04, 5.91756E-05,-4.47897E-05,-3.62947E-05,
     &        1.60644E-07, 2.33065E-05,-3.32179E-06,-1.78676E-05,
     &       -7.49055E-06, 2.08327E-05,-3.01300E-05,-3.28266E-05,
     &        1.07800E-06, 1.00550E-05,-7.91086E-06,-1.31198E-06,
     &        2.43210E-05,-1.97710E-05,-7.36217E-06, 1.03448E-05,
     &       -3.33650E-06,-1.35096E-06, 2.04441E-04,-5.74654E-05,
     &        1.40406E-05, 7.14110E-06,-1.77958E-07, 9.74126E-07,
     &        1.03858E-04,-3.93895E-05,-9.50265E-06, 5.57966E-06,
     &        6.98754E-07,-2.25133E-06, 8.98395E-05, 8.59203E-06,
     &       -9.11479E-06, 6.89420E-06,-7.68081E-06,-2.26317E-04,
     &        3.91023E-05,-5.97349E-06,-1.32355E-07, 2.96296E-06,
     &       -1.03233E-04, 1.90496E-05,-2.44449E-06, 2.02816E-06,
     &       -4.41383E-05,-8.88550E-06,-7.26108E-06,-7.78759E-07,
     &        1.46037E-05,-1.55617E-05, 4.36093E-06, 7.72005E-05,
     &        1.17968E-05,-1.47722E-06, 9.05567E-06, 3.63217E-06,
     &       -8.05484E-06,-5.21664E-07,-9.74185E-06, 7.37726E-05/
C     long 15deg, dec_so
      DATA (ASOL(2,4,J),J=1,81)/-2.37416E-04,
     &       -3.45192E-05, 6.42425E-04, 1.32583E-04,-3.69017E-04,
     &        1.19452E-04, 4.33409E-05,-3.68997E-04, 2.90442E-04,
     &       -9.46720E-06,-3.06607E-05, 4.08333E-05,-5.18421E-05,
     &       -3.95975E-06, 9.86884E-06, 1.22033E-05,-3.01636E-06,
     &        2.79068E-04,-5.10027E-05,-2.62369E-05,-9.26294E-06,
     &       -2.74450E-05, 2.25522E-05, 9.98729E-06,-4.07731E-06,
     &        1.49241E-04,-4.82761E-05,-2.08500E-05,-8.90819E-06,
     &       -6.79758E-06, 1.61468E-05,-7.35994E-06, 7.76605E-05,
     &       -4.88116E-05,-6.40935E-07, 6.72503E-06, 1.56012E-06,
     &        5.18886E-06,-2.23974E-06, 1.16190E-04, 6.30944E-06,
     &       -1.40135E-05, 1.71176E-05, 1.60931E-06,-3.16813E-08,
     &        7.80179E-05,-1.00470E-05, 4.63197E-06, 9.76831E-06,
     &       -7.85196E-06, 1.65101E-06, 9.39457E-05, 5.10745E-06,
     &        5.92842E-06, 5.94496E-06,-1.56027E-06,-1.34891E-04,
     &        2.14855E-05,-1.39146E-05, 3.15744E-06,-3.95738E-07,
     &       -1.42743E-04,-1.73437E-05,-2.71706E-06, 6.98962E-08,
     &       -3.61828E-06,-1.62286E-05, 9.67091E-06,-7.77518E-06,
     &        2.51973E-05, 6.19421E-06, 3.88129E-06, 1.42060E-04,
     &        1.55652E-05, 5.31819E-06, 8.36316E-05, 8.75774E-06,
     &       -1.65229E-05, 7.50834E-07,-8.28252E-05,-5.87402E-06/
C     long 30deg, dec_so
      DATA (ASOL(3,4,J),J=1,81)/-2.29941E-04,
     &        3.33834E-05, 4.99125E-04,-9.32892E-05,-1.94463E-04,
     &        2.47409E-04, 6.05735E-05,-2.50636E-04, 1.56115E-04,
     &        1.18498E-05,-3.15547E-05, 1.01193E-04,-2.10096E-05,
     &       -5.94309E-05, 7.75673E-06,-6.37229E-06, 4.43092E-07,
     &        2.96561E-04,-5.51270E-05,-6.40049E-05, 1.01215E-05,
     &       -2.14541E-05, 3.56033E-06, 5.16829E-06,-1.31623E-05,
     &        1.64826E-04,-4.53742E-05,-4.12911E-05, 2.45511E-07,
     &       -1.46917E-06, 1.50312E-05,-9.70201E-06, 5.25692E-05,
     &       -7.10716E-05,-4.52167E-06, 5.15153E-06,-3.00050E-06,
     &        6.98364E-06, 1.17400E-06,-8.73006E-06, 3.06988E-05,
     &       -1.63920E-05, 5.72738E-06,-5.77279E-06, 1.14528E-06,
     &        7.84129E-06, 6.56495E-05, 1.74002E-05, 6.50169E-06,
     &        4.68506E-07, 9.26178E-07,-1.45291E-05, 1.31931E-05,
     &        9.12513E-06, 4.80854E-06,-4.24726E-06,-1.29524E-05,
     &        6.63879E-07,-1.41103E-05,-1.13941E-06,-1.86652E-06,
     &       -1.16795E-04,-1.78914E-05,-1.56783E-06, 6.66088E-07,
     &        6.04548E-05,-1.16857E-05, 8.10357E-06,-5.09039E-06,
     &       -2.39391E-05, 1.89886E-06,-1.32530E-05, 6.92964E-05,
     &        3.38960E-05, 7.95542E-07, 1.45883E-04, 1.99588E-05,
     &        2.98803E-05, 1.42059E-05,-8.11993E-05,-3.56983E-05/
C     long 45deg, dec_so
      DATA (ASOL(4,4,J),J=1,81)/-1.88270E-04,
     &        1.18253E-04, 4.45234E-04,-2.44056E-04,-1.01663E-04,
     &        9.57107E-05, 1.36193E-05,-1.85319E-04, 1.32718E-04,
     &       -2.79698E-05,-1.43341E-04, 1.20648E-04,-2.21647E-05,
     &       -7.68576E-05, 2.56708E-05, 1.78740E-05, 5.18606E-06,
     &        3.12125E-04,-5.03715E-05,-1.32887E-04,-3.45266E-06,
     &       -9.90372E-06, 1.50909E-05, 1.27137E-06,-1.10019E-05,
     &        1.56785E-04,-4.72881E-05,-6.21664E-05,-7.14927E-06,
     &        3.71927E-06, 9.80252E-06,-7.03633E-07,-4.11403E-05,
     &       -5.95064E-06,-1.05464E-05, 4.43290E-06,-8.03685E-06,
     &        1.03405E-05, 1.17432E-06, 3.77625E-05, 1.96083E-05,
     &       -1.08925E-05,-1.18743E-06,-8.38909E-06, 1.93048E-06,
     &       -2.17974E-05, 6.41164E-05, 1.89705E-05, 3.09552E-06,
     &        1.97851E-06,-2.88438E-06,-5.95639E-05,-1.40879E-05,
     &        1.03060E-05, 5.10083E-06,-3.53530E-06, 6.77377E-05,
     &        2.13822E-06,-1.03358E-05, 4.88851E-06,-3.52281E-06,
     &       -5.87008E-05, 9.59365E-08,-7.79425E-06,-1.72642E-06,
     &        5.45066E-05,-1.36348E-05,-9.98164E-07, 5.51641E-07,
     &       -1.04246E-04,-1.51791E-05,-1.38633E-05, 2.23959E-05,
     &        3.17034E-05, 5.79977E-06, 1.70389E-04, 3.82022E-05,
     &        1.07561E-05, 1.58148E-05,-6.70327E-05,-9.73900E-05/
C     long 60deg, dec_so
      DATA (ASOL(5,4,J),J=1,81)/-1.48678E-04,
     &        1.76444E-04, 4.14646E-04,-2.05030E-04, 6.48147E-05,
     &        6.67585E-05,-7.00472E-05,-1.19990E-04, 5.97672E-05,
     &        8.11333E-05,-1.21524E-04, 1.06810E-04,-2.67595E-05,
     &       -6.39704E-05, 7.05286E-06, 2.98457E-05, 8.45501E-06,
     &        3.08170E-04,-7.67618E-05,-1.46148E-04,-2.30067E-05,
     &        5.67605E-06, 1.83241E-05, 9.21793E-06,-2.33562E-05,
     &        1.20812E-04,-4.17795E-05,-4.11025E-05, 1.84274E-06,
     &        8.10811E-06, 9.27977E-06, 6.47357E-06,-8.29084E-05,
     &        1.30203E-05, 1.96746E-06, 6.46212E-06,-1.47739E-05,
     &        1.21385E-05, 5.76756E-06, 1.64328E-04,-6.40847E-06,
     &       -1.64466E-05,-3.76701E-06,-8.45206E-06,-1.24425E-06,
     &       -4.30868E-06, 2.22405E-05, 2.50011E-05, 8.93653E-06,
     &       -9.78705E-06,-3.49016E-06, 6.36489E-05,-6.99084E-06,
     &        1.99053E-05, 2.77812E-06,-3.36103E-06,-5.28868E-05,
     &       -1.99017E-05,-8.44963E-06, 6.75335E-06, 2.02849E-07,
     &       -1.22463E-04,-1.81459E-05,-3.13337E-06,-1.62462E-06,
     &        7.76401E-06,-2.74215E-05, 4.19215E-06,-5.89133E-07,
     &       -1.18162E-04,-2.41335E-05,-1.59061E-06, 8.94473E-05,
     &        1.53514E-05, 3.81371E-06, 1.00872E-04, 1.90173E-05,
     &        5.24570E-05, 1.22966E-05,-2.33290E-05,-6.84422E-05/
C     long 75deg, dec_so
      DATA (ASOL(6,4,J),J=1,81)/-1.49970E-04,
     &        2.28875E-04, 3.14551E-04,-1.93794E-04, 1.62382E-04,
     &        1.89565E-04,-1.20322E-04,-1.46053E-04, 7.84088E-06,
     &        1.57825E-04,-8.96702E-05, 1.19519E-04, 4.67960E-05,
     &       -7.59568E-05, 4.60381E-07, 6.13572E-06, 2.38863E-05,
     &        2.88448E-04,-3.33148E-05,-1.31199E-04,-6.41542E-06,
     &        3.37047E-05,-1.44756E-05, 5.99346E-06,-4.53873E-05,
     &        1.58776E-04, 6.89752E-06,-3.87728E-05,-3.95628E-06,
     &        1.64498E-05, 1.16924E-05,-1.23051E-06,-1.15341E-04,
     &       -3.04100E-05, 7.49719E-06,-1.18847E-05,-1.00368E-05,
     &        1.12168E-06, 1.67791E-05, 1.29721E-04,-3.92072E-06,
     &       -1.42594E-05,-9.89604E-06,-3.76421E-06,-5.79420E-09,
     &       -2.00358E-05, 4.58874E-06, 2.31721E-05, 2.22248E-05,
     &       -5.90616E-06,-3.50847E-06, 9.76017E-05, 1.35943E-05,
     &        1.66003E-05, 4.16165E-06,-4.22379E-07,-1.53130E-04,
     &       -2.56777E-05, 9.92053E-06, 6.66121E-07, 8.40436E-07,
     &       -1.60893E-04,-3.10085E-05, 6.28497E-06,-2.22916E-06,
     &        4.66140E-06,-2.13369E-05, 1.08765E-05,-2.74812E-06,
     &       -1.36986E-04,-2.37081E-05, 2.65497E-06, 9.61047E-05,
     &        1.45658E-05,-7.58127E-07, 7.46713E-05,-7.19996E-06,
     &        6.83227E-05, 4.02606E-06, 6.72716E-06,-2.24204E-05/
C     long 90deg, dec_so
      DATA (ASOL(7,4,J),J=1,81)/-2.58712E-04,
     &        2.91884E-04, 3.61524E-04,-2.42437E-04,-5.59860E-05,
     &        2.11244E-04, 1.77516E-05,-1.31734E-04, 1.18639E-04,
     &        1.91643E-04,-1.16413E-04, 1.14246E-04, 6.09281E-05,
     &       -3.66362E-05, 4.42765E-06,-3.20823E-06, 1.90494E-05,
     &        1.51176E-04,-1.90933E-06,-1.14120E-04, 5.22461E-07,
     &        8.28529E-05,-2.07969E-05, 7.64288E-07,-4.12613E-05,
     &        1.39308E-04, 1.86078E-05,-3.47355E-05,-7.79725E-06,
     &        1.34653E-05, 1.08998E-05, 1.86137E-06,-1.07815E-04,
     &       -5.99091E-05,-6.24853E-06,-7.67026E-06, 8.63241E-07,
     &       -3.79287E-06, 1.66921E-05, 8.38464E-05, 8.24064E-06,
     &       -2.67689E-05,-5.67244E-06, 2.45427E-06, 6.00273E-06,
     &       -1.59001E-05, 1.30401E-05, 2.18319E-05, 1.55891E-05,
     &       -6.34989E-06,-2.42434E-06, 8.38497E-05,-3.69357E-06,
     &        1.19299E-05, 4.52226E-06, 2.50495E-07,-2.23469E-04,
     &       -2.69271E-05, 2.57512E-05, 1.92538E-06, 1.07167E-06,
     &       -1.71649E-04,-2.91280E-05, 1.25228E-05, 7.87479E-07,
     &        2.71823E-05,-1.44007E-05, 5.85977E-06,-5.39111E-08,
     &       -1.29926E-04,-2.34598E-06, 4.92665E-07, 7.25147E-05,
     &        2.63023E-05,-7.68693E-07, 1.17232E-04,-1.27020E-05,
     &        4.38137E-07, 4.63440E-06,-2.92220E-05,-3.08785E-05/
C     long 105deg, dec_so
      DATA (ASOL(8,4,J),J=1,81)/-3.45218E-04,
     &        2.57910E-04, 4.62205E-04,-2.27725E-04,-1.71548E-04,
     &        3.65343E-04,-5.38080E-05,-1.29871E-04, 9.93044E-05,
     &        2.55363E-04,-8.86898E-05, 3.87822E-05, 4.15564E-05,
     &        4.91314E-06,-1.73686E-06,-5.59781E-06,-2.25796E-06,
     &        1.21286E-04,-1.51427E-05,-8.16417E-05, 2.02565E-05,
     &        8.90772E-05,-1.94603E-05,-3.62673E-06,-3.02911E-05,
     &        2.69349E-05, 1.39026E-05,-1.83940E-05,-5.71932E-06,
     &        1.45500E-05, 1.48135E-05,-3.88489E-06,-5.76955E-05,
     &       -5.24314E-05, 1.26377E-05, 4.33452E-06,-5.59246E-06,
     &       -1.76930E-06, 7.30021E-06, 1.04126E-04, 1.14573E-05,
     &       -2.51328E-05,-4.69575E-07,-1.87642E-06, 4.31108E-06,
     &        2.22654E-05, 1.71538E-05, 2.17399E-05, 6.18514E-06,
     &       -1.07022E-05,-2.04524E-06, 6.01814E-05,-3.47033E-06,
     &        1.82090E-05,-3.81839E-08,-3.27251E-06,-2.52155E-04,
     &       -3.06388E-05, 1.79706E-05, 8.35073E-06, 2.42786E-06,
     &       -1.50895E-04,-2.27913E-05, 1.52303E-05, 5.28537E-06,
     &        3.30620E-05,-2.42107E-05,-1.08401E-06,-7.40611E-07,
     &       -3.49122E-05, 6.67722E-06,-4.58327E-06, 4.78148E-05,
     &        2.93070E-05,-5.46855E-06, 4.36496E-05,-6.50692E-07,
     &        2.29903E-05, 3.20150E-06, 1.83115E-05, 2.73940E-05/
C     long 120deg, dec_so
      DATA (ASOL(9,4,J),J=1,81)/-3.59719E-04,
     &        2.98007E-04, 4.11931E-04,-2.87095E-04,-4.10035E-05,
     &        3.05768E-04,-2.42354E-04,-8.74894E-05, 4.07190E-05,
     &        2.76474E-04,-1.05789E-04, 1.22226E-05,-1.31852E-05,
     &       -5.98977E-06,-1.40933E-05, 3.56706E-06,-1.62926E-05,
     &        2.15379E-04,-6.77769E-05,-5.46183E-05,-3.59064E-06,
     &        7.83743E-05,-2.70978E-05,-4.29014E-06,-2.04026E-05,
     &        8.70419E-05,-1.18313E-05,-2.99312E-05,-1.41812E-05,
     &        1.64146E-05, 2.09457E-05,-1.34780E-05,-4.23323E-05,
     &       -4.35284E-05, 4.07432E-05,-3.68648E-06,-2.27924E-06,
     &        3.38944E-06, 4.18660E-06, 8.83994E-05, 2.51705E-06,
     &       -1.23527E-05, 4.58155E-06,-4.29430E-06, 4.51869E-06,
     &       -1.15504E-05, 3.60622E-06, 2.82908E-05, 8.30293E-06,
     &       -3.23805E-06,-3.32168E-06, 4.37976E-05, 1.12215E-05,
     &        1.46782E-05,-6.17814E-06,-2.30290E-06,-2.19016E-04,
     &       -2.99011E-05, 7.04180E-06, 6.50466E-06, 1.12059E-07,
     &       -1.24700E-04,-2.16710E-05, 1.13783E-05, 6.91472E-07,
     &       -1.12954E-05,-1.86076E-05, 4.86946E-06, 4.95766E-06,
     &       -8.53052E-06, 1.31753E-05, 1.90912E-06,-1.79550E-06,
     &        2.75455E-05,-5.40943E-06,-6.09344E-07,-1.03377E-05,
     &        4.57817E-05,-3.72960E-06, 3.67990E-05, 8.73055E-06/
C     long 135deg, dec_so
      DATA (ASOL(10,4,J),J=1,81)/-3.93782E-04,
     &        3.82351E-04, 3.40138E-04,-3.48924E-04, 4.07837E-05,
     &        1.86234E-04,-2.18551E-04,-9.95609E-05, 1.30702E-04,
     &        2.33463E-04,-1.34298E-04, 7.42252E-06,-2.47169E-05,
     &       -2.40703E-05,-1.43376E-05, 1.11233E-05,-3.33544E-05,
     &        2.68877E-04,-5.56909E-05,-8.96653E-05,-2.28120E-05,
     &        8.88577E-05,-1.79851E-05,-6.88103E-06,-9.07232E-06,
     &        1.62627E-04, 9.43190E-07,-5.15026E-05,-2.66678E-05,
     &        8.57929E-06, 1.63585E-05,-1.40885E-05,-3.99532E-05,
     &       -3.20790E-05, 3.47219E-05,-4.09837E-06,-4.00459E-06,
     &        1.50298E-05, 4.87353E-06, 6.00399E-05,-6.15748E-06,
     &       -1.12748E-05, 2.37893E-06,-3.70106E-06, 5.85676E-06,
     &       -3.56888E-05,-8.22259E-06, 2.59501E-05, 1.04519E-05,
     &        2.04570E-06,-3.60616E-06, 8.40806E-05,-9.73619E-06,
     &        1.84603E-05,-1.17692E-05,-9.82709E-07,-1.73068E-04,
     &       -3.10531E-05, 1.28627E-05, 4.09828E-06,-1.59050E-06,
     &       -8.24894E-05,-1.26122E-05,-1.03903E-06, 2.60556E-06,
     &       -1.00089E-04, 1.65760E-06, 7.16648E-06, 5.09780E-06,
     &        8.64529E-07,-8.78877E-06, 7.71319E-06,-2.70227E-05,
     &        4.24058E-05,-7.44780E-06, 3.44222E-05,-1.96044E-05,
     &        1.82993E-05,-7.72191E-06, 2.33752E-05,-3.72849E-05/
C     long 150deg, dec_so
      DATA (ASOL(11,4,J),J=1,81)/-4.17801E-04,
     &        2.64428E-04, 4.49328E-04,-3.82794E-04,-5.05180E-05,
     &        1.68814E-04,-2.63954E-04,-3.84564E-05, 1.99937E-04,
     &        2.52357E-04,-2.44751E-05,-4.99220E-05,-3.94146E-05,
     &       -9.33131E-06,-2.32420E-05,-3.74116E-06,-4.02726E-05,
     &        2.52204E-04, 2.87928E-05,-1.34723E-04, 8.18319E-07,
     &        6.36935E-05, 4.10876E-06, 1.13975E-05,-1.45389E-05,
     &        1.51342E-04, 7.06861E-06,-4.72115E-05,-1.75862E-05,
     &        7.20730E-06, 2.75391E-06,-6.47237E-06,-7.12162E-05,
     &       -5.29943E-06,-5.10197E-07, 2.35449E-06, 8.32219E-07,
     &        5.80593E-06, 6.20511E-06, 1.09001E-04,-3.18741E-05,
     &        4.36687E-06,-1.11348E-06, 6.98647E-06, 4.20946E-07,
     &        1.29922E-05,-2.30984E-05, 2.77188E-05, 4.45727E-06,
     &       -6.25377E-06, 4.03105E-06, 7.05420E-05,-2.51645E-05,
     &        2.53979E-05,-1.34436E-05, 3.63770E-06,-1.48943E-04,
     &       -2.22974E-05, 8.27554E-06, 8.78759E-06,-4.53764E-06,
     &       -5.69178E-05, 4.63657E-07, 2.06499E-06, 6.88790E-06,
     &       -5.33437E-05, 9.48406E-06, 2.29371E-06,-6.84288E-08,
     &       -6.74722E-06,-2.41247E-05, 1.11624E-06,-3.25101E-05,
     &        1.99976E-05,-5.27098E-06, 1.94043E-06,-7.81378E-06,
     &        4.42093E-05,-2.39035E-06,-1.80955E-05, 1.26039E-06/
C     long 165deg, dec_so
      DATA (ASOL(12,4,J),J=1,81)/-4.54085E-04,
     &        8.40794E-05, 5.42661E-04,-9.80797E-05,-1.95821E-04,
     &        2.13406E-05,-1.66002E-04, 2.86565E-06, 1.81914E-04,
     &        1.83645E-04, 8.96438E-05,-5.35046E-05,-9.38618E-05,
     &        3.54281E-05,-2.80816E-05,-1.75186E-05,-1.81345E-05,
     &        2.01655E-04, 1.55993E-04,-1.10646E-04,-6.93587E-05,
     &        5.59883E-05, 1.44918E-05, 1.58956E-05,-3.72058E-05,
     &        1.95451E-04, 6.48517E-06,-3.93378E-05,-1.51436E-07,
     &        4.55942E-06,-1.00603E-07,-3.60889E-06,-1.30428E-04,
     &       -1.22998E-05,-6.37964E-05, 7.50166E-06, 4.80124E-06,
     &       -1.31123E-06, 6.66483E-06, 1.32667E-04,-4.32208E-05,
     &        1.51081E-05,-6.12758E-06, 1.40333E-05,-1.81186E-06,
     &        5.22032E-05,-5.52368E-05, 3.93224E-05, 1.05765E-07,
     &       -1.32934E-05, 6.14806E-06, 4.58889E-05,-1.62903E-05,
     &        1.32313E-05,-1.20555E-05, 3.82515E-06,-2.08644E-04,
     &       -7.82323E-06,-3.75216E-06, 5.47475E-06,-3.94107E-06,
     &       -7.19259E-06,-2.00437E-05, 1.60895E-06, 3.84266E-06,
     &        3.82398E-05,-9.86101E-06, 9.25822E-06, 3.45137E-06,
     &       -5.13035E-05,-7.56948E-06,-1.90973E-06,-2.49295E-05,
     &       -7.08724E-06, 1.59035E-06, 8.88208E-06,-9.20050E-06,
     &        7.56901E-05, 9.09819E-06,-6.14889E-05, 2.97018E-05/
C     long 180deg, dec_so
      DATA (ASOL(13,4,J),J=1,81)/-4.48061E-04,
     &       -4.33035E-05, 5.62464E-04, 1.13529E-04,-1.81011E-04,
     &       -1.19154E-04, 1.31600E-05,-8.79631E-05, 1.36503E-04,
     &       -2.92459E-05, 1.12139E-04, 3.16004E-05,-9.65674E-05,
     &        2.33693E-05,-1.52742E-05, 7.13817E-07,-1.67217E-05,
     &        1.52715E-04, 2.00153E-04,-8.62477E-05,-1.11621E-04,
     &        4.30312E-05, 3.82990E-05,-1.96792E-06,-3.99315E-05,
     &        2.03360E-04,-2.41790E-05,-2.75729E-05,-1.43784E-06,
     &        8.33954E-06, 1.00620E-05,-1.21567E-05,-2.08391E-04,
     &        1.10605E-05,-9.85089E-05, 9.72995E-06, 1.33456E-05,
     &       -1.19398E-06, 1.89874E-06, 5.49971E-05, 1.49819E-05,
     &        1.17352E-05,-8.91310E-06, 1.23512E-05,-9.97907E-07,
     &        1.45500E-04,-4.62030E-05, 1.51664E-05, 1.14323E-05,
     &       -2.12207E-05, 4.39432E-06, 1.28223E-04,-9.80741E-06,
     &       -6.10195E-06,-5.18364E-06,-4.27586E-06,-1.75471E-04,
     &       -1.17369E-05,-3.86411E-06,-5.35027E-07, 1.81850E-06,
     &        5.41148E-05,-3.38176E-05,-3.65768E-06, 2.98208E-06,
     &       -2.12289E-05,-1.70653E-05, 8.74253E-06, 5.24373E-06,
     &       -3.28750E-05,-7.80632E-06, 5.56347E-06,-1.50775E-05,
     &        1.82155E-05, 1.37763E-06, 7.48781E-05, 9.53729E-07,
     &        1.02057E-04,-6.92818E-06,-1.37196E-05, 1.87259E-05/
C     long 195deg, dec_so
      DATA (ASOL(14,4,J),J=1,81)/-3.43400E-04,
     &       -7.74998E-05, 4.60560E-04, 1.66732E-04,-1.85916E-04,
     &        3.98336E-06, 5.87817E-05,-1.38465E-04, 1.43236E-04,
     &       -1.36979E-04, 1.22476E-04, 4.84211E-05,-8.85374E-05,
     &        5.83111E-05,-6.60820E-06, 2.74659E-05,-4.06050E-05,
     &        3.69335E-05, 1.38204E-04,-2.86658E-05,-6.79278E-05,
     &        2.86307E-05, 2.77280E-05,-3.08617E-06,-3.27429E-05,
     &        7.12722E-05,-3.32166E-05, 5.65137E-06,-3.86491E-05,
     &        1.97457E-05, 2.20862E-05,-2.05829E-05,-2.10917E-04,
     &        7.71800E-05,-7.61763E-05, 1.38041E-05, 1.06512E-05,
     &       -2.87618E-06, 8.06826E-07, 3.60207E-05, 5.73759E-05,
     &       -3.42498E-05, 2.58294E-06, 6.67582E-06, 1.51230E-06,
     &        2.46336E-04,-6.50108E-05, 1.48231E-06, 1.83139E-05,
     &       -2.20841E-05, 9.44370E-06, 1.39625E-04,-8.21840E-07,
     &       -6.28613E-06,-5.00986E-06,-1.76214E-06,-1.99422E-04,
     &        4.61661E-06, 1.99309E-05,-4.01100E-06, 2.53413E-06,
     &        3.86256E-05,-1.61454E-05, 5.79234E-06, 3.85027E-06,
     &       -9.35640E-05,-2.29891E-05, 1.16636E-06, 1.90850E-06,
     &       -1.80580E-05,-1.40036E-05, 2.96495E-06, 5.85913E-06,
     &        2.98068E-05, 3.96275E-06, 6.54484E-05, 1.53410E-05,
     &        6.66186E-05,-1.28657E-05, 7.10372E-05,-3.59010E-06/
C     long 210deg, dec_so
      DATA (ASOL(15,4,J),J=1,81)/-2.79265E-04,
     &       -7.52727E-05, 3.33230E-04, 2.82671E-04,-2.70709E-04,
     &        2.43675E-04, 2.13671E-05,-4.04988E-04, 3.19885E-04,
     &       -1.30452E-04, 2.05880E-04,-2.21536E-05,-9.09272E-05,
     &        9.82054E-05,-3.27848E-05, 2.14979E-05,-1.66523E-05,
     &       -4.50486E-05, 7.75843E-05,-8.37966E-06,-5.26206E-05,
     &        4.22904E-05, 2.19089E-05, 1.62592E-06,-2.16394E-05,
     &       -6.43632E-06,-1.63178E-05,-4.12682E-06,-3.35322E-05,
     &        1.70542E-05, 3.28821E-05,-2.26341E-05,-2.04354E-04,
     &        8.27463E-05,-4.10613E-05, 2.53928E-05,-1.54136E-05,
     &       -2.75202E-06, 1.58450E-06, 5.09017E-05, 6.33784E-05,
     &       -2.59037E-05,-3.64765E-06, 6.97225E-06,-3.44046E-07,
     &        1.66264E-04,-6.53500E-05, 1.94868E-05, 5.74869E-06,
     &       -1.36679E-05, 7.46896E-06, 8.06077E-05,-2.86225E-05,
     &       -6.74982E-06,-1.08884E-09, 8.95140E-07,-2.39832E-04,
     &        1.15717E-05, 2.43773E-05,-3.38836E-06, 3.34262E-07,
     &        1.48397E-05, 6.26912E-07, 2.58753E-05,-4.54866E-06,
     &       -4.56811E-05,-2.10476E-05, 3.83625E-06, 4.28538E-06,
     &        6.11489E-06,-2.02384E-05, 6.38117E-06, 4.11604E-05,
     &        9.30361E-07,-3.36096E-06,-1.67232E-05, 5.04363E-06,
     &        1.33688E-05, 7.33804E-06, 7.53432E-05,-7.47669E-06/
C     long 225deg, dec_so
      DATA (ASOL(16,4,J),J=1,81)/-2.44030E-04,
     &       -9.41663E-05, 3.22686E-04, 2.37199E-04,-3.03046E-04,
     &        3.80938E-04, 1.93699E-05,-5.00443E-04, 3.54941E-04,
     &       -1.54173E-04, 2.63383E-04,-5.04285E-05,-1.17976E-04,
     &        9.32792E-05,-2.21438E-05,-1.67427E-05, 1.24762E-06,
     &       -7.66043E-05, 5.51540E-05,-3.41782E-05,-2.63852E-05,
     &        5.66637E-05, 2.80977E-05, 1.48001E-06,-1.16369E-05,
     &        5.37204E-05,-5.83250E-07,-2.47919E-05,-3.05723E-05,
     &        2.19420E-05, 2.70359E-05,-2.23485E-05,-2.38464E-04,
     &        7.86377E-05,-2.90853E-05, 1.49526E-05,-9.51853E-06,
     &       -1.24476E-05, 6.20676E-06, 1.20949E-04, 4.38755E-05,
     &       -5.52817E-06,-1.79025E-07, 6.55319E-06,-4.16105E-06,
     &        3.82305E-05,-3.88589E-05, 2.52526E-05,-6.98540E-06,
     &       -5.37387E-06, 3.06642E-07, 4.47342E-05,-3.83723E-05,
     &       -4.60441E-06,-1.18524E-07,-1.89937E-06,-2.88592E-04,
     &        2.83043E-06, 7.65985E-07, 4.31927E-06,-2.14640E-06,
     &        6.06166E-06,-1.57315E-05, 2.35031E-05,-2.90940E-06,
     &       -3.36321E-05,-1.35776E-05, 7.15563E-06, 5.22655E-06,
     &       -2.65414E-05,-2.01695E-05, 1.37526E-05, 3.57641E-05,
     &       -8.83952E-06, 3.93322E-06,-5.61283E-05, 1.01526E-05,
     &       -3.56938E-07, 8.91770E-06, 1.86163E-05,-3.61984E-05/
C     long 240deg, dec_so
      DATA (ASOL(17,4,J),J=1,81)/-1.87266E-04,
     &       -1.66410E-04, 3.22398E-04, 2.79726E-04,-4.50001E-04,
     &        4.16312E-04, 7.53740E-05,-5.23857E-04, 2.09025E-04,
     &       -1.36094E-04, 3.37224E-04,-5.68243E-05,-1.61490E-04,
     &        8.19505E-05,-1.61302E-05,-2.92369E-05,-2.76628E-06,
     &       -1.58389E-04, 1.76033E-04, 4.83201E-06,-5.64907E-05,
     &        7.11045E-05, 3.39709E-05,-1.88710E-05,-3.37274E-06,
     &        7.40761E-05,-3.92057E-05,-2.51706E-05,-3.83992E-05,
     &        3.17591E-05, 1.79178E-05,-2.15642E-05,-2.60830E-04,
     &        7.50664E-05,-5.93264E-05, 1.86791E-05, 1.20177E-05,
     &       -1.37082E-05, 3.09217E-06, 2.24275E-04, 1.65784E-05,
     &       -8.89238E-06, 1.00213E-05, 4.24389E-06,-4.39852E-06,
     &        9.45043E-05,-4.18028E-05, 7.25280E-06,-9.93504E-06,
     &       -1.81598E-06,-3.86951E-06, 1.35567E-04,-4.72175E-05,
     &        5.24976E-06,-6.72169E-06,-8.27358E-07,-3.10907E-04,
     &        6.69125E-06, 5.32557E-06, 5.62953E-06,-2.28842E-06,
     &       -3.88511E-05,-3.01367E-05, 8.92324E-07, 3.55429E-06,
     &       -1.28426E-04,-5.12259E-06,-1.65304E-06,-3.70787E-07,
     &       -7.68743E-05,-1.38928E-05,-7.66478E-07, 2.98021E-05,
     &        3.64990E-06, 1.37739E-05,-2.03821E-05, 1.92496E-05,
     &       -5.49371E-05, 8.31386E-06,-2.91630E-05,-2.20051E-05/
C     long 255deg, dec_so
      DATA (ASOL(18,4,J),J=1,81)/-2.31556E-04,
     &       -1.97870E-04, 4.06474E-04, 2.45503E-04,-5.54831E-04,
     &        4.07974E-04, 1.66069E-04,-6.09184E-04, 1.51888E-04,
     &       -8.39416E-06, 2.79045E-04,-3.87367E-05,-1.68782E-04,
     &        7.36240E-05,-4.52755E-05,-6.22078E-06,-6.28859E-06,
     &       -1.82314E-04, 3.05641E-04,-8.19964E-06,-8.62577E-05,
     &        8.85760E-05, 3.13667E-05,-2.80075E-05, 1.46772E-05,
     &        9.87977E-05,-8.96695E-05,-1.91579E-05,-1.22585E-05,
     &        2.30863E-05, 9.37198E-06,-1.29745E-05,-2.55403E-04,
     &        4.82480E-05,-8.68361E-05, 2.97001E-05, 2.24635E-05,
     &       -7.63861E-06,-4.56833E-06, 2.48699E-04,-4.91654E-06,
     &       -2.36846E-06, 3.31340E-06, 9.94599E-06,-7.69385E-06,
     &        1.68523E-04,-3.25582E-05,-7.32391E-06,-3.66805E-06,
     &       -4.55637E-06,-4.21907E-06, 1.87019E-04,-3.90081E-05,
     &       -8.81163E-06,-3.18966E-06, 1.35005E-06,-2.76560E-04,
     &        2.19093E-06, 1.57413E-05,-7.31991E-07, 2.00109E-06,
     &       -4.60035E-05,-1.70550E-05,-5.35512E-06, 5.15572E-06,
     &       -2.04968E-04, 2.49830E-05,-4.11490E-06, 1.19739E-06,
     &       -7.47556E-05, 1.30503E-06,-8.09162E-06, 3.28212E-05,
     &        3.50973E-05, 3.30282E-06, 5.62189E-05, 3.17168E-06,
     &       -1.20224E-04, 2.28742E-05, 9.91237E-06,-4.10808E-05/
C     long 270deg, dec_so
      DATA (ASOL(19,4,J),J=1,81)/-3.02987E-04,
     &       -2.39108E-04, 5.41759E-04, 2.68722E-04,-5.83445E-04,
     &        4.07249E-04, 1.72840E-04,-5.21096E-04, 2.28231E-04,
     &        1.01008E-04, 1.82513E-04,-3.98857E-05,-1.52924E-04,
     &        5.30770E-05,-6.81800E-05, 1.57504E-05,-6.24856E-06,
     &       -1.14700E-04, 2.63822E-04,-3.91597E-05,-5.94438E-05,
     &        8.89396E-05, 1.00825E-05,-1.42967E-05, 1.35788E-05,
     &        6.61257E-05,-8.57161E-05,-3.46802E-05,-1.11286E-05,
     &        1.92733E-05, 4.59139E-06,-1.21390E-05,-2.94368E-04,
     &        8.84671E-05,-1.01246E-04, 3.13821E-05, 3.09817E-05,
     &       -1.09419E-05,-4.33914E-06, 1.84966E-04,-8.85357E-06,
     &       -1.18558E-05,-9.54710E-06, 1.19726E-05,-5.84069E-06,
     &        1.72615E-04,-3.90953E-05,-2.04108E-06,-4.19887E-06,
     &       -4.15148E-06,-1.68946E-06, 1.32325E-04,-1.37657E-05,
     &       -2.01837E-05,-9.00959E-07, 1.77442E-06,-2.56973E-04,
     &        1.45590E-05, 2.14477E-05,-7.58540E-06, 1.35585E-06,
     &       -4.34260E-05, 4.40071E-06,-2.66741E-06, 2.10995E-06,
     &       -2.00841E-04, 5.11528E-05,-6.98492E-06, 4.48876E-06,
     &       -2.94259E-05, 1.23786E-05,-6.81218E-06, 9.72466E-05,
     &        3.52601E-05,-2.06652E-06, 6.38885E-05,-1.92230E-06,
     &       -9.63155E-05, 1.00712E-05, 5.60344E-05,-4.91729E-05/
C     long 285deg, dec_so
      DATA (ASOL(20,4,J),J=1,81)/-2.91531E-04,
     &       -3.40710E-04, 5.97599E-04, 3.95094E-04,-7.00129E-04,
     &        3.45303E-04, 2.24593E-04,-4.88077E-04, 2.09064E-04,
     &        6.57624E-05, 1.56915E-04,-2.45877E-05,-1.48093E-04,
     &        2.49078E-05,-6.81739E-05,-1.18165E-05,-6.05024E-06,
     &       -3.82252E-06, 1.40006E-04,-1.47055E-05,-3.16879E-05,
     &        4.51983E-05,-3.65544E-06,-3.27025E-06,-1.13056E-05,
     &       -5.17271E-05,-6.46654E-05,-3.25677E-05,-3.27139E-05,
     &        2.66817E-05, 1.38173E-06,-1.51939E-05,-4.33977E-04,
     &        1.77461E-04,-1.15623E-04, 3.01730E-05, 2.99028E-05,
     &       -1.87215E-05, 6.04510E-06, 8.37987E-05, 2.43903E-05,
     &       -1.88431E-05,-5.83814E-06, 5.04309E-06,-1.54497E-06,
     &        1.74597E-04,-4.89520E-05, 2.20045E-05,-1.26555E-05,
     &       -8.52400E-06, 4.43561E-06, 8.16598E-05, 7.07475E-06,
     &       -1.14563E-05,-4.54690E-06, 2.33438E-06,-1.53485E-04,
     &       -2.95317E-05, 3.11531E-05,-6.93115E-06,-2.85124E-07,
     &       -1.54138E-05,-8.86855E-06,-2.32505E-06,-1.88776E-06,
     &       -7.20742E-05, 2.04698E-05,-1.24342E-05, 3.52306E-06,
     &       -8.46614E-06, 5.42920E-06, 9.14278E-08, 8.84028E-05,
     &        4.58106E-06,-2.26188E-06, 5.73728E-06, 7.70781E-06,
     &       -3.21882E-05,-5.57887E-06, 8.41757E-05, 2.71784E-05/
C     long 300deg, dec_so
      DATA (ASOL(21,4,J),J=1,81)/-2.29423E-04,
     &       -3.42383E-04, 5.51110E-04, 4.29964E-04,-7.43275E-04,
     &        9.38537E-05, 4.53834E-04,-4.41555E-04, 3.53990E-05,
     &       -1.50840E-04, 1.37105E-04, 4.38098E-05,-1.28838E-04,
     &        5.39538E-06,-2.00472E-05,-3.15018E-05,-2.19001E-05,
     &        3.61076E-05, 8.23011E-05,-5.79515E-06, 1.05205E-05,
     &        2.90336E-05,-5.54779E-06,-1.47504E-06,-1.90700E-05,
     &       -1.26171E-04,-7.66845E-05,-2.31923E-06,-2.43049E-05,
     &        1.47549E-05, 2.94265E-06,-9.65485E-06,-6.22502E-04,
     &        2.30932E-04,-9.45603E-05,-5.74311E-07, 1.65508E-05,
     &       -1.22870E-05, 8.44379E-06, 1.56903E-04,-1.05177E-05,
     &       -2.91337E-06, 9.44991E-06, 1.23794E-06, 1.99222E-06,
     &        2.93876E-04,-3.15841E-05, 2.19759E-05,-1.45833E-05,
     &       -1.06337E-05, 6.54874E-06, 1.11455E-04, 3.13605E-05,
     &       -8.89601E-06,-6.22162E-07,-4.59918E-07,-2.38361E-04,
     &       -5.12571E-05, 1.87611E-05,-3.02363E-06,-2.42246E-07,
     &       -2.48226E-05,-1.49521E-05, 2.42896E-06, 2.29625E-06,
     &       -4.22252E-05, 3.15090E-05,-9.94204E-06, 2.08432E-06,
     &       -3.12588E-05, 1.49983E-05,-6.41264E-06,-2.81416E-05,
     &       -8.52184E-06,-3.45113E-06,-6.38593E-05, 1.10103E-05,
     &       -5.08453E-06, 1.85878E-05, 2.78866E-05, 5.27178E-05/
C     long 315deg, dec_so
      DATA (ASOL(22,4,J),J=1,81)/-1.78503E-04,
     &       -2.55593E-04, 5.35871E-04, 3.80967E-04,-7.76127E-04,
     &       -2.39841E-05, 6.01375E-04,-3.71349E-04, 2.72783E-05,
     &       -3.08430E-04, 1.64322E-04, 9.97530E-05,-1.09310E-04,
     &        4.91698E-06, 4.95448E-06,-3.24529E-05,-1.44479E-05,
     &       -3.19554E-05, 4.42537E-05,-3.56966E-05,-1.54376E-05,
     &        1.02389E-04, 1.13744E-05,-5.59605E-05,-4.06472E-06,
     &       -1.39157E-04,-9.63970E-05, 5.44425E-06,-1.17058E-05,
     &        1.09824E-05, 8.53939E-06,-1.21485E-05,-5.38089E-04,
     &        1.72128E-04,-6.56348E-05,-3.42732E-05, 2.06762E-05,
     &        2.31650E-06, 1.47412E-06, 2.32464E-04,-5.61231E-05,
     &       -1.27788E-06, 9.68939E-06, 4.52852E-06, 3.78891E-06,
     &        3.95171E-04,-1.73157E-05, 1.31687E-05,-1.96913E-05,
     &       -1.11010E-05, 3.62367E-06, 1.58954E-04, 2.84129E-05,
     &       -2.93817E-06, 3.36249E-06,-6.53209E-07,-2.29818E-04,
     &       -2.30974E-05,-6.11663E-07, 2.31741E-06,-3.23352E-06,
     &       -4.47214E-05,-9.92170E-06, 3.27507E-06, 3.37523E-06,
     &       -1.16940E-04, 3.08339E-05, 5.15755E-07,-4.05961E-06,
     &       -5.81326E-05, 1.12005E-05,-1.23425E-05, 4.27538E-05,
     &       -1.25186E-05,-2.39444E-06, 2.69590E-06,-4.27841E-06,
     &        2.87806E-05, 2.79303E-05,-6.03259E-06, 6.31731E-05/
C     long 330deg, dec_so
      DATA (ASOL(23,4,J),J=1,81)/-2.07285E-04,
     &       -2.13430E-04, 6.98730E-04, 3.62173E-04,-8.62494E-04,
     &        6.65854E-05, 5.39051E-04,-3.86114E-04, 2.62190E-04,
     &       -2.58577E-04, 1.32474E-04, 6.99803E-05,-1.14229E-04,
     &        4.07664E-05, 1.62513E-05,-2.17243E-05, 1.21304E-05,
     &        1.48213E-05, 2.13779E-06,-6.24593E-05,-5.48688E-05,
     &        1.08357E-04, 3.21579E-05,-8.01779E-05,-3.05435E-06,
     &       -1.34917E-04,-6.71565E-05,-2.26372E-05,-7.51456E-06,
     &        1.84017E-05, 4.54480E-06,-1.35424E-05,-3.45628E-04,
     &        1.32439E-04,-3.83359E-05,-4.76708E-05, 3.28248E-05,
     &        5.12765E-06,-8.84542E-06, 2.14181E-04,-7.44630E-05,
     &        5.12117E-06,-3.96646E-06, 3.78969E-06, 4.83570E-06,
     &        3.18128E-04, 1.57919E-06, 2.49884E-05,-1.35847E-05,
     &       -1.24032E-05, 3.58944E-07, 1.24117E-04, 3.10562E-05,
     &        3.08365E-06, 9.49066E-07, 2.45882E-06,-9.68338E-05,
     &       -3.69486E-05,-4.32366E-06, 5.74920E-06,-3.44758E-06,
     &       -2.02691E-06,-2.35886E-05, 2.26686E-06, 6.62006E-06,
     &       -1.18201E-04,-3.89717E-06, 2.89543E-06,-3.33740E-06,
     &       -1.17103E-04,-2.50498E-05,-4.88408E-07, 9.27165E-05,
     &       -3.33720E-06,-3.93882E-06, 6.78998E-05,-3.18939E-05,
     &        7.37929E-07, 6.82684E-06,-4.47966E-05, 4.90690E-05/
C     long 345deg, dec_so
      DATA (ASOL(24,4,J),J=1,81)/-1.93129E-04,
     &       -2.13346E-04, 7.08269E-04, 2.94576E-04,-7.90633E-04,
     &        7.88224E-05, 3.99263E-04,-4.22815E-04, 3.07933E-04,
     &       -2.46194E-04, 2.51564E-05, 6.77370E-05,-1.12225E-04,
     &        3.16216E-05, 2.03043E-05,-1.08390E-05, 2.32106E-05,
     &        1.63011E-05, 6.45166E-05,-5.33727E-05,-5.33448E-05,
     &        5.81280E-05, 2.47415E-05,-4.46476E-05,-6.62679E-06,
     &       -9.96059E-05, 7.79019E-06,-3.45411E-05,-1.05220E-05,
     &        9.18804E-06, 5.04898E-06,-9.87797E-06,-1.64702E-04,
     &        8.96396E-05,-2.63537E-05,-3.15992E-05, 2.04495E-05,
     &       -3.17683E-07,-6.41355E-06, 1.95087E-04,-8.70380E-05,
     &        2.49373E-05,-8.70191E-06,-8.43665E-07, 4.89593E-06,
     &        1.76891E-04,-1.02202E-05, 1.15766E-05,-2.53230E-06,
     &       -2.20241E-06,-2.89687E-06, 7.87450E-05, 2.86634E-05,
     &       -1.03866E-05, 4.36101E-06,-5.44220E-06,-1.78179E-04,
     &       -1.63485E-07,-6.03766E-06, 1.44667E-06, 9.35465E-07,
     &       -2.59007E-05,-1.82294E-06, 4.29971E-06, 7.97359E-06,
     &       -7.10108E-05,-2.20349E-06,-1.27822E-05, 2.60021E-06,
     &       -6.10425E-05,-3.88854E-05, 3.07786E-06, 4.85260E-05,
     &        8.50598E-06,-7.20507E-06, 1.90733E-05,-1.61117E-05,
     &       -5.13441E-06, 1.77839E-06,-5.36469E-05, 7.93922E-05/
C     long 0deg, mar_eq
      DATA (BSOL(1,1,J),J=1,81)/ 6.38208E-02,
     &       -1.59673E-02,-1.27881E-01, 1.16959E-02, 7.78517E-02,
     &        5.71219E-03,-8.60761E-02, 3.97083E-02, 1.79822E-02,
     &        1.18780E-02,-7.32701E-03, 1.00619E-04, 7.61814E-03,
     &       -7.54975E-03,-3.02615E-03, 4.90343E-03, 1.22229E-04,
     &        1.62888E-02,-3.03668E-02, 2.05753E-02,-5.49881E-05,
     &       -1.26178E-02, 3.09390E-03, 6.12876E-03, 6.74709E-04,
     &       -3.65530E-03,-8.69470E-03, 4.48244E-03, 4.93996E-04,
     &        1.52700E-04,-6.70077E-04, 4.98654E-04,-8.59084E-03,
     &        1.22851E-02,-4.51399E-03,-1.91746E-04,-9.88249E-05,
     &        2.64028E-04, 3.74601E-04, 7.23333E-03,-5.98116E-03,
     &        4.12481E-03,-3.10663E-03,-5.90376E-04, 1.16144E-03,
     &        3.41517E-03, 1.27110E-04,-1.66040E-03,-1.07773E-03,
     &        1.35187E-03, 1.08908E-04,-3.07769E-03, 7.65204E-03,
     &        1.03248E-03,-1.12782E-03, 3.46308E-04, 2.44578E-02,
     &        9.49172E-03, 5.24316E-04, 5.03958E-04,-4.72619E-04,
     &        4.83076E-03,-1.43082E-03,-5.42905E-04,-7.48847E-04,
     &       -1.08913E-02, 3.17063E-03,-3.03020E-03, 1.83930E-04,
     &        2.04036E-02, 1.76785E-03, 3.14469E-04,-1.91143E-02,
     &        3.28545E-03,-1.16670E-04,-1.74463E-02,-3.82786E-04,
     &       -2.02399E-03, 2.08121E-03, 2.15139E-03,-2.08916E-03/
C     long 15deg, mar_eq
      DATA (BSOL(2,1,J),J=1,81)/ 5.34366E-02,
     &       -2.89939E-02,-1.05561E-01, 2.22480E-02, 4.62520E-02,
     &        1.66469E-02,-6.93090E-02, 8.83020E-03, 2.78038E-02,
     &        2.18136E-03, 2.14329E-03,-7.12004E-03, 1.62031E-04,
     &        9.78570E-04,-2.19981E-03, 4.57835E-04,-1.36066E-05,
     &        9.49845E-03,-1.70906E-02, 2.43258E-02,-2.72069E-03,
     &       -1.44501E-02, 4.12217E-03, 4.65281E-03, 2.80650E-04,
     &       -6.20438E-03,-1.93858E-04, 9.30846E-03,-2.22625E-03,
     &       -2.07077E-03, 6.69606E-06, 1.05443E-03, 8.36814E-03,
     &        1.42785E-02,-9.12093E-03,-4.85385E-04, 7.86436E-04,
     &       -8.67008E-04, 1.52788E-03, 7.16499E-03,-5.28718E-03,
     &        4.81533E-03,-2.52007E-03,-7.46068E-04, 9.59658E-04,
     &       -4.98825E-03,-6.89606E-03,-2.08413E-03, 1.21285E-03,
     &        1.36659E-03,-1.79887E-04,-5.81101E-04, 1.05693E-02,
     &       -1.93785E-04,-9.33734E-04, 4.89726E-04, 2.98226E-02,
     &        6.72779E-03, 9.11143E-04,-7.76213E-04,-2.43302E-04,
     &       -2.24376E-03, 4.62785E-04,-1.38755E-04,-1.03670E-03,
     &       -4.49113E-03, 3.55336E-03,-4.44205E-03, 1.43518E-03,
     &        2.08318E-02, 3.36747E-03, 7.64654E-04,-1.94799E-02,
     &        2.35988E-03, 1.43415E-04,-1.40938E-02,-1.79738E-03,
     &       -4.17225E-03, 1.79838E-03, 1.61897E-03,-7.59963E-03/
C     long 30deg, mar_eq
      DATA (BSOL(3,1,J),J=1,81)/ 4.62949E-02,
     &       -3.04102E-02,-8.49625E-02, 2.80435E-02, 2.81587E-02,
     &        1.78434E-02,-5.80164E-02, 8.97854E-03, 1.84889E-02,
     &       -1.21260E-02, 1.16538E-02,-7.97405E-03,-8.45238E-03,
     &        8.95352E-03, 2.04977E-03,-4.74757E-03, 1.20686E-03,
     &       -2.84113E-02,-3.48716E-03, 2.85371E-02,-9.93756E-03,
     &       -9.30380E-03, 5.62145E-03, 2.91433E-03,-3.56931E-04,
     &       -3.72151E-03, 1.75980E-03, 7.93413E-03,-2.88950E-03,
     &       -2.00660E-03, 1.92192E-04, 5.01207E-04, 2.39423E-02,
     &        1.10199E-02,-5.56388E-03, 8.71634E-04,-3.71233E-06,
     &       -1.82910E-03, 2.12891E-03, 1.16373E-03,-1.38990E-03,
     &        3.81966E-03,-2.93318E-03,-4.11408E-04, 6.48410E-04,
     &       -7.84280E-03,-9.78972E-03,-1.74075E-03, 3.23944E-04,
     &        9.34274E-04, 8.39683E-05, 5.28354E-04, 9.01326E-03,
     &       -7.79341E-04,-4.83047E-04, 3.73376E-04, 2.25160E-02,
     &        3.81072E-03, 4.02760E-04, 4.85216E-04,-5.76967E-04,
     &        9.30336E-03,-1.03699E-03, 2.64238E-04,-1.29818E-03,
     &        5.83473E-03, 5.48873E-04,-1.96082E-03, 5.99050E-04,
     &        2.52289E-02, 6.13386E-03, 8.81430E-04,-9.67783E-03,
     &       -2.59096E-04,-8.00913E-04, 7.65459E-03,-3.48264E-03,
     &       -1.21867E-02, 3.95669E-04,-5.65110E-03,-6.14844E-03/
C     long 45deg, mar_eq
      DATA (BSOL(4,1,J),J=1,81)/ 4.43391E-02,
     &       -3.85047E-02,-6.86143E-02, 2.86993E-02, 2.68161E-02,
     &        4.47724E-02,-4.14871E-02,-1.02026E-03, 1.51564E-03,
     &       -1.52035E-02, 1.79009E-02,-4.08711E-03,-6.58461E-03,
     &        8.81808E-03,-1.90329E-03,-5.19521E-03, 3.50469E-03,
     &       -4.82030E-02, 3.79314E-03, 2.79791E-02,-1.14281E-02,
     &       -3.91385E-03, 5.55061E-03,-1.67668E-03,-1.83539E-03,
     &       -3.03327E-03,-2.08761E-03, 3.62428E-03,-1.25467E-03,
     &        1.81520E-04,-1.42642E-04,-4.21822E-04, 1.11782E-02,
     &        5.71800E-03,-2.06198E-03, 2.63739E-03, 7.39045E-04,
     &       -2.25048E-03, 1.74028E-03, 1.29986E-02,-3.43742E-04,
     &        2.88838E-03,-2.76722E-03, 5.94949E-04, 4.00217E-04,
     &       -7.35915E-03,-8.17994E-03,-8.88433E-04,-1.91125E-03,
     &        2.43163E-04, 7.13978E-04, 6.32356E-03, 3.85194E-03,
     &       -9.37396E-04, 4.50725E-05,-5.08990E-04, 2.84776E-03,
     &        3.29380E-03,-7.20950E-04, 9.65400E-04,-3.98237E-04,
     &        1.07331E-02,-4.31549E-03,-1.18130E-03,-9.24355E-04,
     &        7.27224E-03,-6.79406E-04,-1.21318E-03,-1.01178E-04,
     &        2.10811E-02, 3.79625E-03, 8.07547E-04,-7.94769E-03,
     &       -4.11442E-03,-8.59773E-04, 3.64574E-03,-2.37654E-03,
     &       -1.15848E-02,-4.94054E-04,-8.93495E-03,-1.49641E-03/
C     long 60deg, mar_eq
      DATA (BSOL(5,1,J),J=1,81)/ 4.10857E-02,
     &       -4.73805E-02,-6.77258E-02, 3.10238E-02, 1.62207E-02,
     &        5.59094E-02,-3.20093E-02,-5.49472E-04,-9.23852E-03,
     &       -1.17496E-02, 2.02642E-02,-1.13394E-03,-8.75411E-03,
     &        2.58647E-03,-2.12506E-03,-3.51985E-03, 3.71067E-03,
     &       -4.43753E-02, 7.64876E-03, 2.43192E-02,-7.76417E-03,
     &       -4.15339E-03, 3.75578E-03,-2.01901E-05,-1.84442E-03,
     &       -1.20534E-02,-1.00623E-02, 1.73920E-03,-9.49929E-04,
     &        1.68590E-04,-2.89004E-04,-6.62424E-04, 4.54781E-05,
     &       -3.93036E-03,-1.45779E-03, 4.09597E-03, 1.28513E-03,
     &       -1.05977E-03, 4.16618E-04, 1.19452E-02, 1.49814E-04,
     &        1.24045E-03,-1.44886E-03, 6.49036E-04, 7.23102E-05,
     &       -6.92508E-03,-1.08421E-02, 2.28754E-04,-2.81358E-04,
     &        6.52215E-04, 4.76570E-04, 7.43706E-03,-3.43703E-03,
     &       -2.22862E-03, 6.31074E-04,-2.61982E-04, 3.93217E-03,
     &        2.66522E-03,-1.37287E-03, 6.97315E-04,-1.52701E-04,
     &        1.07109E-02,-4.20251E-03,-1.03719E-03,-2.57641E-04,
     &        5.00311E-03, 1.34657E-04, 8.96270E-04, 2.02514E-04,
     &        9.27796E-03, 4.20223E-03, 4.59884E-04,-7.72809E-03,
     &       -8.45244E-04, 9.13958E-04,-6.97930E-03,-2.10869E-03,
     &        1.51022E-03, 1.59823E-03,-2.59264E-04,-5.61904E-03/
C     long 75deg, mar_eq
      DATA (BSOL(6,1,J),J=1,81)/ 4.26314E-02,
     &       -5.82476E-02,-7.39384E-02, 4.06217E-02,-2.91510E-04,
     &        3.51765E-02,-4.65760E-03,-9.11637E-03,-1.42944E-02,
     &       -1.10012E-02, 1.91731E-02,-1.10281E-03,-1.02251E-02,
     &        2.75769E-05,-4.85085E-04,-3.21841E-03, 4.77769E-04,
     &       -4.68041E-02, 4.94568E-03, 2.07390E-02,-4.61522E-03,
     &       -3.67718E-03, 1.96805E-03, 7.19773E-05,-8.22984E-04,
     &       -1.11791E-02,-1.52887E-02,-5.37764E-04,-3.01390E-03,
     &        4.03939E-04,-5.65195E-04,-1.11898E-04, 1.79433E-03,
     &       -3.12059E-03,-1.49088E-03, 3.13403E-03,-9.03374E-05,
     &       -1.02158E-03, 8.03518E-04, 6.47782E-03, 2.48155E-05,
     &        9.63364E-04,-7.76489E-04,-2.41246E-04, 1.00594E-04,
     &       -1.31416E-02,-9.77140E-03, 8.57517E-04, 1.47127E-03,
     &        1.42802E-03, 4.37964E-04,-6.97184E-03,-7.46420E-03,
     &       -3.53697E-03, 2.10432E-03, 1.73749E-04, 6.49977E-03,
     &        2.50775E-03,-1.11065E-03,-2.23801E-04,-3.54653E-04,
     &        1.40005E-02,-2.92428E-03,-7.55608E-04,-3.40151E-04,
     &        6.63491E-03, 2.23860E-03, 5.34854E-04,-2.11838E-04,
     &        9.27542E-03, 2.15554E-03, 5.08203E-04,-1.18029E-03,
     &        1.97479E-03, 1.36565E-03,-1.01647E-02,-1.16102E-03,
     &       -8.61492E-03, 2.08218E-03,-2.37433E-03,-7.09213E-03/
C     long 90deg, mar_eq
      DATA (BSOL(7,1,J),J=1,81)/ 4.54779E-02,
     &       -6.64515E-02,-8.56866E-02, 4.99111E-02, 1.50339E-02,
     &        2.65159E-02,-1.03055E-02,-1.55910E-02,-1.89517E-02,
     &        1.47435E-03, 1.99590E-02,-7.12987E-03,-6.04375E-03,
     &       -1.56845E-03,-8.27537E-04,-4.61280E-03,-8.56876E-04,
     &       -4.56500E-02,-4.68260E-03, 2.57345E-02,-3.72146E-04,
     &       -5.53287E-03,-6.10344E-05,-5.92831E-04, 9.48228E-05,
     &       -1.12003E-02,-1.51745E-02, 1.12780E-04,-3.83513E-03,
     &       -8.81134E-04, 1.86707E-04,-4.53245E-05,-1.98808E-03,
     &        6.37962E-03,-2.05881E-03, 1.47336E-03, 7.55509E-04,
     &       -1.63757E-03, 7.69688E-04, 1.03563E-02, 5.38197E-03,
     &        3.12992E-03,-1.16378E-03,-2.00106E-04, 1.23873E-04,
     &       -1.69119E-02,-1.18918E-02, 1.05807E-03, 1.96964E-03,
     &        1.52234E-03, 5.16855E-04,-1.29748E-02,-4.11157E-03,
     &       -4.50792E-03, 2.46625E-03, 4.70844E-05, 1.56319E-02,
     &        3.92710E-03, 2.79522E-04,-1.16127E-04,-2.79423E-04,
     &        6.62633E-03,-3.52993E-03, 5.34753E-04,-9.48809E-05,
     &        8.66545E-03, 1.86589E-03,-1.21066E-03,-2.85344E-04,
     &        1.28353E-02, 2.39016E-03, 7.52534E-04,-1.48716E-03,
     &        5.17891E-03, 1.35265E-03,-2.86198E-03,-1.68613E-03,
     &       -9.96598E-03,-1.16414E-03, 3.80908E-03, 5.57757E-03/
C     long 105deg, mar_eq
      DATA (BSOL(8,1,J),J=1,81)/ 4.76610E-02,
     &       -6.26381E-02,-8.74385E-02, 4.60264E-02, 2.14349E-02,
     &        2.01180E-02,-6.02164E-03, 7.51395E-04,-2.42707E-02,
     &        1.33469E-02, 2.10167E-02,-9.52135E-03,-7.54510E-03,
     &       -1.50513E-03,-1.57632E-03,-4.83038E-03,-7.76338E-04,
     &       -3.43068E-02,-7.24168E-03, 2.71687E-02,-2.21901E-03,
     &       -5.46146E-03, 2.37675E-03, 1.04594E-03,-2.78195E-04,
     &       -9.51745E-03,-1.32823E-02, 2.22068E-03,-4.05621E-03,
     &       -3.32131E-03, 6.23920E-04, 3.29001E-04,-1.34744E-02,
     &        4.01256E-03,-6.90010E-03, 2.81796E-03, 3.41793E-03,
     &       -1.02467E-03, 5.20055E-04, 5.05711E-03, 3.78456E-03,
     &        4.74917E-03,-1.15318E-03,-9.27026E-05, 3.76447E-04,
     &       -3.28084E-03,-9.70305E-03,-1.37893E-03, 1.42497E-03,
     &        1.52701E-03, 3.30788E-04,-1.33480E-02,-1.59227E-03,
     &       -5.71229E-03, 2.03369E-03, 1.97277E-04, 1.09319E-02,
     &        3.39021E-03, 6.04166E-04,-4.69762E-04,-5.79712E-05,
     &       -2.06922E-03, 1.16644E-03, 9.23839E-04,-2.96169E-04,
     &        7.31227E-03, 5.85780E-04,-3.66335E-04, 2.60816E-04,
     &        1.96274E-02, 1.97718E-03, 3.26027E-04, 5.24149E-03,
     &        2.63548E-03, 1.58980E-03,-1.13878E-04,-1.63425E-05,
     &       -7.26732E-03,-9.50004E-04, 2.60741E-03, 1.13414E-02/
C     long 120deg, mar_eq
      DATA (BSOL(9,1,J),J=1,81)/ 4.30549E-02,
     &       -5.77237E-02,-7.29547E-02, 5.31437E-02, 3.17910E-02,
     &        5.78850E-03, 3.98276E-03, 1.15324E-02,-9.26608E-03,
     &        1.11481E-03, 1.94374E-02,-2.66939E-03,-8.82781E-03,
     &       -1.25777E-03, 2.46849E-03,-1.01114E-03,-9.09330E-04,
     &       -2.99874E-02, 4.73549E-04, 2.58042E-02,-6.17313E-03,
     &       -7.12573E-03, 5.11914E-03, 5.21740E-04,-2.19950E-03,
     &       -6.54232E-03,-7.43027E-03, 3.61762E-03,-4.12085E-03,
     &       -3.59318E-03, 1.20829E-03, 9.37938E-04,-1.14918E-02,
     &        5.09599E-03,-5.79798E-03, 2.99769E-03, 3.89117E-03,
     &       -2.08431E-03,-2.73059E-04,-9.78136E-03,-8.99752E-04,
     &        5.83434E-03,-1.24085E-03,-2.10065E-04,-5.96817E-05,
     &       -6.07024E-03,-8.56306E-03,-2.83140E-03, 1.59041E-03,
     &        8.88223E-04, 5.74015E-06,-3.84228E-03, 8.18852E-04,
     &       -4.93095E-03, 1.87331E-03,-9.91873E-05, 1.56308E-02,
     &        5.59827E-03,-2.58899E-05,-1.11013E-03, 3.57838E-04,
     &       -7.87412E-03, 2.32762E-03,-9.90505E-04,-4.45512E-04,
     &        3.13154E-04,-2.33815E-03, 6.42724E-05, 5.64506E-04,
     &        1.56372E-02, 8.64931E-04, 2.85399E-04, 1.02645E-02,
     &       -6.11128E-04, 1.82141E-03,-4.73846E-03,-1.74738E-03,
     &       -5.68451E-03,-1.16017E-03,-5.67963E-03, 8.40272E-03/
C     long 135deg, mar_eq
      DATA (BSOL(10,1,J),J=1,81)/ 4.08678E-02,
     &       -5.92226E-02,-6.42643E-02, 7.18508E-02, 3.67960E-02,
     &        2.32010E-03,-1.45831E-03,-6.56322E-03,-5.90742E-03,
     &       -1.91166E-02, 1.71990E-02, 4.20924E-03,-3.86244E-03,
     &        8.14567E-04, 3.41811E-03, 2.14455E-03,-8.04933E-04,
     &       -3.43620E-02, 3.64198E-03, 2.53507E-02,-8.03541E-03,
     &       -8.30239E-03, 3.09053E-03,-2.46558E-04,-1.96393E-04,
     &       -5.74061E-03,-8.38391E-03, 2.76540E-03,-1.46595E-03,
     &       -3.50455E-03, 2.40789E-03, 7.27746E-04, 1.29217E-02,
     &        8.44006E-03,-3.45177E-03, 2.21336E-03, 1.31463E-03,
     &       -2.50389E-03,-1.50435E-04,-8.02595E-03,-2.48200E-03,
     &        4.91385E-03,-3.61119E-04,-2.57976E-05,-4.82847E-05,
     &       -1.36885E-02,-8.62270E-03,-1.91061E-03, 1.11151E-03,
     &        9.24458E-04,-8.65725E-05, 6.75892E-03, 3.39261E-03,
     &       -3.38762E-03, 9.20693E-04,-1.01433E-04, 1.78504E-02,
     &        7.57841E-03, 3.34142E-04,-2.93731E-04, 1.23453E-04,
     &       -5.94395E-03, 6.44946E-04,-6.50238E-04,-2.82323E-04,
     &       -1.35425E-03,-7.28407E-04, 3.48387E-05, 4.17914E-04,
     &        2.03374E-02, 3.36562E-03, 3.22912E-04,-4.79334E-03,
     &        1.06691E-03, 4.59017E-04,-1.86586E-02,-1.31362E-03,
     &       -3.91307E-03,-9.95089E-04,-8.17510E-03, 4.79341E-03/
C     long 150deg, mar_eq
      DATA (BSOL(11,1,J),J=1,81)/ 5.14070E-02,
     &       -7.21717E-02,-8.02770E-02, 9.63496E-02, 4.38853E-02,
     &       -8.04483E-03,-5.85667E-03,-1.83392E-02,-1.22588E-02,
     &       -2.65457E-02, 1.85564E-02, 3.42796E-03,-4.01953E-03,
     &        1.79508E-03, 2.15165E-03, 2.46414E-03,-1.48003E-03,
     &       -4.97261E-02, 4.81141E-03, 2.59778E-02,-1.16624E-02,
     &       -2.29487E-03, 4.69657E-04,-2.61370E-03, 3.33143E-03,
     &       -1.17782E-02,-1.38098E-02, 2.66396E-03,-9.29579E-04,
     &       -1.54713E-03, 1.99786E-03, 9.32321E-04, 3.68550E-02,
     &        1.03441E-02,-1.43752E-03, 9.44596E-04,-1.77359E-03,
     &       -1.48874E-03,-3.39964E-04, 1.01363E-02, 3.55652E-04,
     &        3.29778E-03, 8.03018E-05,-9.61395E-04, 1.68492E-04,
     &       -2.59287E-02,-1.11099E-02,-2.18703E-03, 2.57043E-03,
     &        1.55012E-03,-3.49996E-04, 1.48464E-03, 7.22525E-03,
     &       -1.77330E-03, 7.51176E-04, 5.33196E-04, 2.19964E-02,
     &        7.79680E-03, 1.98420E-03,-6.55340E-04,-3.25037E-04,
     &       -1.31298E-02,-1.12855E-03,-2.91993E-04, 2.66553E-05,
     &       -5.09899E-03,-3.36136E-04,-1.77335E-03, 4.67330E-04,
     &        2.53500E-02, 4.11698E-03, 1.21927E-03,-1.11467E-02,
     &       -8.19126E-04,-3.19343E-04,-2.33361E-02,-1.37969E-03,
     &        1.76533E-04,-6.11462E-05, 4.19263E-03,-7.91312E-03/
C     long 165deg, mar_eq
      DATA (BSOL(12,1,J),J=1,81)/ 6.53932E-02,
     &       -7.59591E-02,-8.71168E-02, 9.13460E-02, 3.15474E-02,
     &       -9.44248E-03,-1.21096E-02,-1.47925E-02,-3.76374E-03,
     &       -1.80094E-02, 2.59876E-02,-8.18683E-03,-5.46005E-03,
     &        3.32337E-03, 2.66550E-03, 2.84013E-03,-3.35438E-03,
     &       -4.42041E-02,-1.42934E-03, 2.45658E-02,-1.32035E-02,
     &       -1.26348E-03, 1.12939E-03,-3.79720E-03, 3.16711E-03,
     &       -1.61418E-02,-7.46842E-03, 5.47808E-03,-6.91704E-04,
     &       -3.49852E-04, 3.46226E-04, 3.94768E-04, 3.25997E-02,
     &        9.08462E-03,-1.25888E-03, 1.07191E-03,-1.77068E-03,
     &       -1.87548E-03,-2.24648E-04, 1.28067E-02, 3.03852E-03,
     &        2.75725E-03,-1.04169E-03,-5.94260E-04, 1.72498E-04,
     &       -3.54662E-02,-1.52775E-02, 3.04618E-04, 1.54156E-03,
     &        1.98842E-03,-7.33944E-04,-3.50334E-03, 7.38300E-03,
     &       -1.70008E-03, 2.49111E-03,-1.85299E-04, 4.05095E-02,
     &        5.83605E-03,-2.64997E-04,-7.12644E-04,-5.40715E-04,
     &       -1.34503E-02,-1.45833E-03,-6.86412E-04,-1.20824E-05,
     &       -4.27971E-03,-3.83827E-03,-1.83344E-03, 3.15245E-04,
     &        2.31593E-02,-3.03096E-04, 7.57929E-04,-8.77387E-03,
     &       -2.14622E-03, 4.54193E-04,-1.97615E-02,-3.22069E-03,
     &        3.60555E-03, 1.01237E-03, 1.80340E-02,-1.13124E-02/
C     long 180deg, mar_eq
      DATA (BSOL(13,1,J),J=1,81)/ 7.50597E-02,
     &       -7.09278E-02,-8.64350E-02, 7.81641E-02, 1.40419E-02,
     &        3.44110E-03,-2.62023E-02,-2.14839E-02, 1.91656E-02,
     &       -2.63856E-03, 2.14311E-02,-1.56901E-02,-1.78498E-03,
     &        3.76343E-03, 1.03626E-03, 2.97001E-03,-2.38484E-03,
     &       -2.37112E-02,-8.53320E-03, 1.50251E-02,-7.22516E-03,
     &       -1.54008E-03, 7.93612E-04, 7.61475E-04, 3.66201E-04,
     &       -1.01800E-02,-5.76116E-03, 3.43623E-03, 2.06504E-04,
     &        1.14752E-03,-7.99474E-04, 1.94328E-04, 1.35443E-02,
     &        7.46162E-03,-7.57691E-04, 9.50815E-04,-6.56118E-04,
     &       -2.21777E-03, 5.08757E-04, 3.43381E-03, 2.98626E-03,
     &        2.18990E-03,-1.87346E-03,-1.53455E-05, 2.47656E-04,
     &       -2.77187E-02,-1.35915E-02, 2.50056E-03,-9.80601E-04,
     &        2.23918E-03,-7.44758E-04,-2.92261E-03, 2.36265E-03,
     &       -2.87769E-03, 2.79493E-03,-6.59765E-04, 4.33775E-02,
     &        5.85274E-03,-1.83062E-03, 8.49389E-04,-9.83184E-04,
     &       -1.17232E-02, 1.89245E-03,-5.81275E-04,-3.62506E-04,
     &       -3.25191E-04,-5.46102E-03,-3.99464E-04, 5.03190E-04,
     &        2.08222E-02,-1.22854E-03, 4.56224E-04,-7.14451E-03,
     &       -2.45758E-03, 9.59207E-04,-1.51056E-02,-4.01661E-03,
     &       -4.09182E-03,-1.83275E-04, 6.20161E-03,-1.15852E-02/
C     long 195deg, mar_eq
      DATA (BSOL(14,1,J),J=1,81)/ 7.21389E-02,
     &       -6.69024E-02,-9.48017E-02, 7.34844E-02, 3.12679E-02,
     &        1.12927E-02,-3.61737E-02,-3.30699E-02, 1.62706E-02,
     &        1.27435E-03, 1.56450E-02,-1.72457E-02, 5.71845E-03,
     &        4.24958E-03,-5.48870E-03, 3.82240E-03,-2.87102E-03,
     &       -3.10549E-02, 1.40634E-03, 1.46525E-02,-7.22343E-03,
     &       -5.25249E-03,-4.77604E-04, 6.04121E-03, 1.35769E-05,
     &       -1.13842E-02,-4.93772E-03,-3.07496E-04,-2.59610E-03,
     &        1.22770E-03,-6.76495E-04, 1.18780E-03, 5.39531E-03,
     &        1.10132E-02, 6.78360E-05, 5.43614E-05,-6.69477E-04,
     &       -1.69270E-03, 1.73137E-04, 2.58544E-03, 9.52145E-04,
     &        2.61282E-03,-1.68593E-03,-4.88281E-04, 1.20552E-04,
     &       -1.59751E-02,-9.53081E-03, 2.27640E-03,-2.20244E-03,
     &        1.71971E-03,-6.44869E-05,-6.49398E-03, 4.89211E-03,
     &       -3.26842E-03, 1.99575E-03,-1.28417E-04, 3.27034E-02,
     &        6.84702E-03,-1.71839E-04, 1.86586E-03,-1.03698E-03,
     &       -5.98086E-03, 2.01047E-03,-1.60149E-03,-5.24818E-04,
     &        8.93143E-03, 1.91156E-04,-8.88039E-04, 3.94624E-04,
     &        1.92693E-02, 3.59833E-03, 4.79009E-04,-8.78090E-03,
     &       -2.68342E-03, 7.86499E-04,-7.49538E-03,-3.68846E-03,
     &        1.60400E-04,-6.37828E-04,-4.47956E-03,-5.41176E-03/
C     long 210deg, mar_eq
      DATA (BSOL(15,1,J),J=1,81)/ 6.30255E-02,
     &       -6.61494E-02,-9.56463E-02, 7.83212E-02, 4.14403E-02,
     &        1.36404E-02,-3.19997E-02,-3.73552E-02, 6.57336E-03,
     &       -2.92182E-03, 1.76922E-02,-1.06110E-02, 3.66321E-03,
     &        2.58068E-03,-9.28028E-03, 2.91845E-03, 1.65793E-03,
     &       -3.90241E-02, 7.97066E-03, 1.87780E-02,-1.01676E-02,
     &       -9.83691E-03, 5.61359E-04, 6.36801E-03,-2.03239E-04,
     &        1.07043E-02,-1.11881E-02,-1.19031E-03,-4.33671E-03,
     &        4.74542E-05, 2.37364E-04, 1.23591E-03,-8.01001E-04,
     &        2.14237E-02,-4.59074E-03,-1.35379E-04,-1.52236E-03,
     &       -3.59094E-04, 5.90961E-04,-5.23452E-03,-1.29891E-03,
     &        6.95213E-03,-1.65401E-03,-8.27638E-04, 7.42129E-05,
     &       -1.63642E-02,-8.22370E-03, 1.23906E-03,-6.88006E-04,
     &        1.93496E-03,-5.79207E-05,-1.21109E-02, 1.05905E-02,
     &       -1.31814E-03, 1.71892E-03, 7.96969E-05, 1.68336E-02,
     &        1.89549E-03,-4.09340E-04, 1.77338E-03,-1.14159E-03,
     &       -1.39473E-03,-2.95475E-03,-1.45193E-03,-7.74334E-04,
     &        1.95966E-02,-2.16723E-03,-1.57481E-03, 7.98673E-05,
     &        1.80057E-02, 4.75415E-03, 1.78197E-04,-1.45020E-02,
     &       -3.32246E-03, 2.45393E-05, 2.14063E-03,-4.64582E-03,
     &        8.86108E-04, 1.53359E-03, 1.05709E-03, 1.82963E-03/
C     long 225deg, mar_eq
      DATA (BSOL(16,1,J),J=1,81)/ 6.18212E-02,
     &       -6.56831E-02,-9.90533E-02, 9.08374E-02, 4.80256E-02,
     &        7.49442E-03,-3.74565E-02,-2.30590E-02, 1.76482E-02,
     &       -4.16567E-03, 1.99343E-02,-6.89446E-03,-2.75202E-05,
     &        2.46364E-03,-1.19877E-02, 3.91440E-03, 5.70850E-03,
     &       -3.60214E-02, 6.64762E-03, 2.30675E-02,-1.21480E-02,
     &       -1.09563E-02, 1.04172E-03, 4.26737E-03, 3.51369E-04,
     &        1.01751E-02,-1.36826E-02,-1.05618E-03,-2.73123E-03,
     &       -4.73386E-04, 2.78404E-04, 8.79764E-04,-4.93084E-03,
     &        2.89076E-02,-7.42792E-03, 1.12740E-03,-2.18774E-03,
     &       -1.09038E-03, 1.85877E-03,-7.91931E-04, 1.98478E-04,
     &        6.09492E-03,-2.52594E-03,-5.10918E-04, 8.48772E-05,
     &       -1.76260E-02,-1.57703E-02, 3.08551E-03, 1.46142E-04,
     &        1.98061E-03,-7.82050E-05,-1.28119E-02, 1.13363E-02,
     &       -2.62354E-03, 2.01747E-03,-1.65667E-04, 1.73335E-02,
     &        4.99954E-03,-2.57806E-03, 1.64302E-03,-1.47050E-03,
     &       -4.57845E-03,-2.08423E-03,-9.44168E-04,-7.97222E-04,
     &        8.23660E-03,-6.31706E-03,-9.23993E-04, 5.12004E-04,
     &        2.35591E-02, 3.20368E-03,-6.68587E-04,-1.21756E-02,
     &       -5.37971E-03, 1.17472E-03,-2.75302E-03,-2.42431E-03,
     &       -8.05920E-03, 1.37181E-03,-4.96607E-03,-5.58656E-03/
C     long 240deg, mar_eq
      DATA (BSOL(17,1,J),J=1,81)/ 5.76269E-02,
     &       -6.20786E-02,-9.64676E-02, 8.93287E-02, 5.84340E-02,
     &       -2.40371E-02,-5.43830E-02, 1.25700E-02, 2.45602E-02,
     &        2.29421E-03, 1.58199E-02,-9.06999E-03,-4.30751E-04,
     &        2.00504E-03,-7.47025E-03, 2.44741E-03, 2.37743E-03,
     &       -3.04229E-02,-2.18611E-03, 2.61564E-02,-9.39750E-03,
     &       -1.28788E-02, 1.57597E-03, 5.26949E-03,-1.25192E-04,
     &       -9.11759E-03,-1.92472E-02, 3.20117E-03,-7.91139E-04,
     &       -1.25487E-03, 1.34754E-05,-3.60540E-04, 1.22154E-02,
     &        2.99123E-02,-6.35596E-03,-7.85497E-04,-1.56804E-03,
     &       -1.57204E-03, 1.78763E-03, 7.81008E-03, 5.87272E-03,
     &        3.92391E-03,-2.30802E-03,-7.21184E-04, 1.36553E-05,
     &       -2.12766E-02,-1.87679E-02, 3.18307E-03,-1.87265E-03,
     &        3.12633E-03, 1.19516E-04,-8.79636E-03, 6.56327E-03,
     &       -3.47008E-03, 1.27609E-03,-1.25105E-04, 2.88976E-02,
     &        1.27032E-02,-4.24334E-03, 1.89717E-03,-1.55943E-03,
     &       -1.14809E-02, 1.00086E-03,-7.33230E-04,-5.26256E-04,
     &       -8.46988E-03,-4.98601E-03,-4.63810E-04, 7.17919E-04,
     &        1.93220E-02, 5.53715E-03,-6.05647E-04, 2.29299E-03,
     &       -3.95001E-03, 1.21881E-03,-1.27605E-02,-1.30420E-03,
     &       -1.13849E-02, 9.34521E-04,-7.62306E-03,-4.12622E-03/
C     long 255deg, mar_eq
      DATA (BSOL(18,1,J),J=1,81)/ 5.82767E-02,
     &       -6.17732E-02,-9.92314E-02, 7.90670E-02, 6.51651E-02,
     &       -4.91168E-02,-4.44486E-02, 3.10080E-02, 8.50453E-03,
     &        1.28635E-03, 1.28150E-02,-1.00655E-02, 9.49227E-04,
     &        3.56675E-03,-3.03400E-03,-2.21221E-03,-1.48083E-03,
     &       -1.80162E-02,-1.66753E-02, 2.70864E-02,-5.07432E-03,
     &       -1.36799E-02, 6.04448E-03, 7.49653E-03,-1.90271E-03,
     &        2.85590E-03,-2.48218E-02, 5.47272E-03, 1.33736E-03,
     &       -2.38424E-03,-1.00648E-03, 1.00192E-03, 1.65470E-02,
     &        2.79684E-02,-9.53221E-04,-1.23634E-03,-3.96522E-04,
     &       -1.80841E-03, 8.63838E-04, 8.02643E-03, 6.29803E-03,
     &        5.71084E-03,-2.08350E-03,-3.45903E-04,-7.88273E-05,
     &       -1.69303E-02,-1.17861E-02, 2.20045E-03,-2.78610E-03,
     &        3.49337E-03, 6.83657E-06,-1.52422E-02, 1.17407E-02,
     &       -1.67218E-03, 7.07944E-04, 3.35201E-04, 2.12081E-02,
     &        9.32406E-03,-3.35031E-03, 1.65500E-03,-7.70310E-04,
     &       -1.06281E-02,-3.98468E-04, 5.95490E-04,-9.34455E-04,
     &       -5.69180E-03,-5.26867E-03,-2.38205E-03, 6.45114E-04,
     &        6.42084E-03, 6.83625E-03,-1.18268E-03,-1.17319E-02,
     &       -1.39829E-03,-1.31578E-03,-4.58826E-03,-1.07961E-03,
     &       -5.45990E-03,-1.53153E-04,-1.68293E-02, 8.24967E-04/
C     long 270deg, mar_eq
      DATA (BSOL(19,1,J),J=1,81)/ 6.89826E-02,
     &       -5.64839E-02,-1.11352E-01, 6.16550E-02, 7.10598E-02,
     &       -3.32071E-02,-5.13071E-02, 2.30534E-02, 7.66498E-03,
     &       -3.49962E-03, 1.23236E-02,-9.39748E-03, 4.61553E-03,
     &        4.99375E-03,-3.95647E-03,-1.43237E-03,-1.31883E-03,
     &       -1.28672E-02,-2.58224E-02, 2.09784E-02, 3.54450E-03,
     &       -1.24939E-02, 9.28481E-04, 7.33128E-03, 4.35952E-04,
     &        1.36005E-02,-1.51098E-02,-2.66761E-04, 3.00337E-03,
     &       -1.12605E-03,-2.24434E-03, 2.05595E-03, 4.22120E-03,
     &        2.58333E-02, 6.74418E-03,-5.19866E-03,-1.82000E-03,
     &       -4.37386E-04,-3.73088E-04, 9.57716E-03, 1.55812E-03,
     &        6.31585E-03,-2.77571E-03,-5.25228E-04,-6.95911E-05,
     &       -6.06793E-03,-1.36054E-02, 4.31026E-04,-1.36149E-03,
     &        2.63325E-03, 2.35191E-05,-1.69841E-02, 1.88345E-02,
     &       -1.97847E-03, 2.92204E-04, 1.01912E-03, 1.93779E-02,
     &        8.82888E-03,-1.44218E-03, 8.08937E-04,-6.53480E-04,
     &       -1.09685E-03,-3.72741E-03,-7.47202E-04,-1.15659E-03,
     &        3.43684E-04,-5.72702E-03,-2.68274E-03, 5.86466E-05,
     &        1.58617E-02, 8.53499E-03, 1.45895E-04,-1.55396E-02,
     &       -4.94090E-03,-1.07003E-03,-2.61224E-04,-4.48897E-03,
     &       -4.43804E-03, 4.05869E-04,-9.95280E-03,-2.93238E-03/
C     long 285deg, mar_eq
      DATA (BSOL(20,1,J),J=1,81)/ 8.00835E-02,
     &       -4.11488E-02,-1.32602E-01, 2.42896E-02, 8.10385E-02,
     &       -3.70825E-03,-6.16226E-02, 9.76439E-03, 1.38646E-02,
     &       -3.99116E-03,-2.03669E-03,-3.87470E-03, 1.06141E-02,
     &        3.32673E-03,-6.91421E-03,-1.59002E-03, 1.78857E-03,
     &       -1.90799E-02,-1.83348E-02, 1.69066E-02, 3.09366E-03,
     &       -1.48444E-02,-3.30061E-03, 5.27768E-03, 6.58625E-03,
     &        9.17070E-03,-6.01748E-04,-4.04948E-03, 2.01163E-03,
     &       -3.05368E-04,-2.08019E-03, 8.24939E-04,-9.63772E-03,
     &        1.60721E-02, 4.86395E-03,-8.03426E-03,-1.73024E-03,
     &        1.39834E-03,-8.32542E-04, 1.02249E-02, 2.25223E-03,
     &        3.45694E-03,-1.62557E-03,-1.43408E-03,-6.39803E-04,
     &        5.45406E-04,-8.70751E-03,-3.34904E-03,-5.34194E-04,
     &        2.32850E-03,-8.30382E-05,-2.51270E-02, 1.53956E-02,
     &       -1.30498E-03,-9.41363E-06, 5.61485E-04, 1.83345E-02,
     &        1.16266E-02,-1.91593E-03, 4.60325E-04,-8.14703E-04,
     &        9.90849E-03,-4.79376E-03,-8.79494E-04,-6.69745E-04,
     &        2.45626E-03,-3.85681E-03,-1.76122E-03,-1.58766E-04,
     &        2.69556E-02, 6.52065E-03, 1.39849E-03,-7.91721E-03,
     &       -5.65088E-03, 1.61737E-04,-8.56500E-03,-1.22461E-03,
     &       -1.05582E-02, 1.10083E-03,-2.38174E-03, 3.72416E-04/
C     long 300deg, mar_eq
      DATA (BSOL(21,1,J),J=1,81)/ 8.21483E-02,
     &       -2.26024E-02,-1.51010E-01, 2.67560E-03, 8.70437E-02,
     &       -4.24741E-03,-4.60296E-02, 2.16193E-02, 1.43825E-03,
     &        3.67014E-03,-5.42729E-03, 6.76803E-03, 9.11330E-03,
     &       -1.17762E-03,-7.96861E-03,-7.15113E-04, 4.02321E-03,
     &       -2.51200E-02,-1.48171E-02, 1.92725E-02, 3.31288E-05,
     &       -1.46753E-02, 1.48281E-03, 6.73308E-03, 4.87162E-03,
     &        9.77710E-03, 4.23566E-03,-4.48711E-03, 1.46587E-03,
     &       -5.83061E-05,-2.29453E-03, 1.02628E-03,-1.08939E-02,
     &        4.69726E-03, 3.01965E-03,-6.27973E-03,-3.53268E-04,
     &        1.94522E-03,-9.49391E-04,-5.93274E-03, 2.70107E-03,
     &        2.26137E-03,-1.69269E-03,-5.99899E-04,-5.67972E-04,
     &       -5.77789E-03,-6.14709E-03,-4.38374E-03, 3.57132E-04,
     &        1.94192E-03, 2.79716E-04,-1.93788E-02, 8.75476E-03,
     &       -3.92664E-04,-8.80522E-05, 2.23064E-05, 1.84045E-02,
     &        9.58659E-03,-3.23395E-04,-4.55172E-04,-5.92418E-04,
     &        8.79463E-03,-3.31753E-03,-1.24534E-04,-2.73802E-04,
     &       -2.63773E-04, 1.91169E-03,-1.52205E-03, 2.90606E-04,
     &        2.31436E-02, 4.83435E-03, 6.44702E-04,-1.17184E-02,
     &       -5.53100E-03,-4.85855E-04,-1.16788E-02, 7.09939E-04,
     &       -5.08214E-03, 3.01099E-03,-7.60631E-03,-2.32857E-03/
C     long 315deg, mar_eq
      DATA (BSOL(22,1,J),J=1,81)/ 8.42058E-02,
     &       -1.12654E-02,-1.67090E-01, 1.54296E-03, 8.83750E-02,
     &        1.34263E-03,-3.79534E-02, 3.49595E-02,-1.84020E-02,
     &       -3.42000E-03,-6.57020E-03, 8.69820E-03, 1.01550E-02,
     &       -3.01867E-03,-4.06332E-03,-9.25071E-04,-2.86731E-05,
     &       -2.75058E-02,-1.67111E-02, 2.44074E-02,-1.10174E-03,
     &       -1.25716E-02, 3.20140E-03, 9.94853E-03, 1.06812E-03,
     &        1.14368E-02,-4.38272E-04,-1.70230E-03, 1.29801E-03,
     &       -1.29762E-03,-1.85333E-03, 1.57942E-03, 1.54122E-02,
     &        1.94704E-03, 6.93673E-04,-1.47870E-03, 1.29737E-03,
     &        7.37794E-04,-8.30633E-04,-3.76380E-03, 4.90795E-04,
     &        2.84290E-04,-1.50102E-03, 8.93664E-05, 5.85466E-04,
     &       -5.94130E-03,-9.73864E-03,-1.98691E-03,-2.36307E-04,
     &        1.22433E-03, 3.18887E-04,-2.22853E-02, 3.90754E-03,
     &       -1.49911E-03,-8.29961E-04, 5.19864E-04, 1.65763E-02,
     &        4.28199E-03, 2.59119E-05, 3.06347E-05,-2.42664E-05,
     &        3.89756E-03, 1.23964E-03, 6.38794E-04,-1.02290E-04,
     &        7.56539E-03, 7.10160E-03,-1.44830E-04, 2.80821E-04,
     &        2.74011E-02, 4.55009E-03,-6.63231E-04,-1.46035E-02,
     &       -3.59182E-03,-1.28126E-03,-1.12045E-02, 4.26565E-05,
     &       -5.79415E-03, 3.40015E-03,-9.42196E-03, 5.92554E-05/
C     long 330deg, mar_eq
      DATA (BSOL(23,1,J),J=1,81)/ 8.21188E-02,
     &       -6.19598E-03,-1.69432E-01, 2.37790E-03, 9.60402E-02,
     &       -2.70097E-03,-4.47575E-02, 4.71050E-02,-1.54686E-02,
     &       -7.71642E-03,-1.21509E-02, 9.77985E-03, 1.23035E-02,
     &       -6.48661E-03,-2.39459E-03, 1.13581E-03,-1.49946E-03,
     &       -2.19456E-02,-1.58750E-02, 2.60251E-02,-3.60450E-03,
     &       -1.21305E-02, 2.93084E-03, 8.12614E-03, 9.22659E-04,
     &       -2.60092E-03,-3.51459E-03, 2.22916E-03, 3.98890E-04,
     &       -1.77184E-03,-1.62643E-03, 1.62774E-03, 1.80443E-02,
     &       -5.07267E-03, 1.10205E-04, 1.40463E-03, 1.77084E-03,
     &       -2.33295E-04,-8.19530E-04, 7.09017E-03,-3.59897E-03,
     &       -1.38721E-03, 2.96895E-05, 2.99280E-04, 1.25924E-03,
     &       -4.16922E-04,-1.03331E-02,-1.99545E-03,-1.02588E-04,
     &        1.50210E-03, 2.63479E-05,-3.13692E-02, 2.46098E-03,
     &        1.50917E-04,-8.21323E-04, 5.34457E-04, 1.61888E-02,
     &        1.58090E-03, 3.89614E-04, 3.61451E-04,-1.65168E-04,
     &        1.46114E-03, 2.44327E-03, 1.37418E-04,-2.63375E-04,
     &        6.20917E-04, 2.98345E-03,-3.59192E-04, 2.34573E-04,
     &        2.94323E-02, 3.10389E-03,-8.39684E-04,-2.09352E-03,
     &        8.18225E-04,-1.26892E-03,-4.57484E-03, 1.01826E-03,
     &       -1.61504E-02, 2.80765E-03,-4.02169E-03, 1.23668E-03/
C     long 345deg, mar_eq
      DATA (BSOL(24,1,J),J=1,81)/ 7.54737E-02,
     &       -6.92800E-03,-1.51176E-01, 4.04350E-03, 9.65501E-02,
     &       -3.78251E-03,-7.95350E-02, 5.12467E-02, 1.28524E-02,
     &       -3.83796E-03,-1.00601E-02, 9.67490E-03, 8.95516E-03,
     &       -1.06282E-02,-2.19397E-03, 5.11743E-03,-1.51685E-03,
     &       -1.35277E-03,-2.44299E-02, 2.34087E-02,-3.47963E-03,
     &       -1.36497E-02, 4.27437E-03, 8.51934E-03, 1.00261E-03,
     &       -5.73872E-03,-8.04894E-03, 2.20744E-03, 1.09995E-04,
     &       -2.60856E-04,-1.04456E-03, 5.36358E-04,-1.63229E-03,
     &        8.50734E-04,-2.80224E-04, 1.33042E-03, 2.62510E-04,
     &       -2.75824E-05,-5.61631E-04, 6.27483E-03,-4.89134E-03,
     &        1.94031E-03,-1.94800E-03,-2.80921E-05, 1.11302E-03,
     &        6.32710E-03,-3.95764E-03,-1.62104E-03,-7.88975E-04,
     &        1.44565E-03, 2.34530E-04,-1.97107E-02, 5.25172E-03,
     &        1.55145E-03,-7.34651E-04, 3.18957E-04, 2.28738E-02,
     &        5.37048E-03, 5.81422E-04, 1.13845E-03,-6.95042E-04,
     &        1.37174E-02,-1.96143E-03,-1.18403E-03,-7.43780E-04,
     &       -1.37395E-02, 6.70355E-04,-1.89419E-03, 2.10678E-04,
     &        1.51053E-02, 1.75195E-03,-1.45645E-04,-4.63241E-03,
     &        3.00977E-03,-6.93938E-04, 1.56938E-03, 4.82412E-04,
     &       -8.47045E-03, 9.18644E-04, 1.91885E-03,-4.14282E-03/
C     long 0deg, jun_so
      DATA (BSOL(1,2,J),J=1,81)/ 8.30169E-03,
     &        9.62966E-03,-4.97188E-02, 1.02571E-02, 7.09644E-02,
     &        1.38072E-02,-3.06956E-02,-2.41825E-02,-4.72417E-02,
     &        2.03872E-03, 6.76823E-03, 1.07313E-02,-1.13556E-02,
     &       -1.04355E-02, 4.40138E-03, 2.18951E-03, 2.39758E-03,
     &        1.47036E-02, 1.17353E-02, 5.20154E-03,-1.00059E-02,
     &       -5.24435E-03, 7.72681E-03, 7.94519E-03, 2.62568E-04,
     &        1.02075E-02, 2.19402E-03,-5.16881E-03, 5.06182E-04,
     &        6.20192E-04,-3.86487E-04, 1.34552E-03, 2.37897E-02,
     &        1.18635E-02, 4.72326E-03, 1.97680E-03, 1.70849E-03,
     &       -9.32115E-04,-2.56234E-03, 1.36632E-02,-2.69930E-03,
     &       -5.02185E-04,-1.45367E-03,-1.24344E-03, 2.62253E-04,
     &       -2.37884E-02,-4.84209E-03,-3.33636E-03, 2.57509E-04,
     &        3.98972E-04, 3.70046E-04, 6.34087E-04, 5.61214E-03,
     &        1.31754E-03, 5.82694E-04, 9.76567E-04,-1.07556E-02,
     &        4.24474E-03, 2.63528E-03,-2.32280E-04, 9.27907E-04,
     &       -1.98360E-02,-2.26221E-03,-3.94324E-04,-4.92375E-04,
     &       -2.13812E-03,-3.76947E-03,-1.67787E-03, 2.39418E-04,
     &        1.70420E-03,-9.87223E-04,-8.32014E-04, 9.73793E-03,
     &        1.05892E-03,-4.09357E-04,-5.29716E-03,-2.69580E-03,
     &       -1.05225E-02,-2.70913E-03,-2.48005E-03, 2.51084E-03/
C     long 15deg, jun_so
      DATA (BSOL(2,2,J),J=1,81)/-2.95816E-03,
     &       -3.10308E-03,-3.47738E-02, 3.08988E-02, 7.71616E-02,
     &        9.51504E-03,-4.83042E-02,-3.10839E-02,-3.99935E-02,
     &        2.51649E-02, 2.22714E-02, 6.68692E-03,-1.94378E-02,
     &       -1.06589E-02, 7.67819E-03, 1.44081E-03, 1.91287E-03,
     &        3.08650E-02, 1.55653E-02,-2.56513E-03,-1.24435E-02,
     &       -4.60805E-03, 9.76122E-03, 5.36068E-03,-2.26055E-03,
     &       -3.01913E-03,-1.46625E-03,-2.70034E-03, 2.81190E-03,
     &       -3.40080E-05,-1.66179E-03, 1.17267E-03, 3.63156E-02,
     &        1.70494E-02, 6.83825E-03, 6.48463E-04,-1.56988E-03,
     &       -6.54701E-04,-5.31035E-04, 1.17099E-02,-2.16984E-03,
     &       -2.66360E-04,-1.19825E-03,-9.95781E-04, 2.29148E-04,
     &       -1.64433E-02, 2.93616E-03,-1.45115E-03,-1.04762E-03,
     &       -6.21868E-05, 6.65948E-04, 1.36456E-02, 1.17004E-02,
     &        1.93128E-03, 1.36653E-05, 4.63601E-04, 4.34240E-03,
     &        5.78331E-03, 1.05476E-03,-1.01795E-03, 2.40143E-04,
     &       -1.09984E-02,-2.41840E-03, 1.65223E-04,-6.49916E-04,
     &       -6.60824E-03,-4.57208E-03,-5.68740E-04, 5.18570E-04,
     &        1.03494E-02,-1.09981E-05,-5.38509E-04, 1.07296E-02,
     &        2.38845E-03,-8.86768E-04, 7.81041E-04,-1.02721E-03,
     &       -2.00300E-02,-3.10061E-03,-1.07348E-02,-5.86030E-03/
C     long 30deg, jun_so
      DATA (BSOL(3,2,J),J=1,81)/-1.04878E-02,
     &       -2.28071E-02,-2.85979E-02, 4.89774E-02, 8.48239E-02,
     &        1.67712E-02,-7.60527E-02,-3.06389E-02,-2.27440E-02,
     &       -1.89188E-04, 2.63797E-02, 1.11860E-02,-1.12963E-02,
     &       -1.02082E-02, 1.55001E-03,-3.29316E-03, 7.76281E-04,
     &        2.89177E-02, 1.35194E-02,-3.28779E-03,-1.01003E-02,
     &       -3.35214E-03, 9.62136E-03, 5.43907E-03,-3.44393E-03,
     &       -3.17368E-02,-1.42677E-02,-2.73236E-03, 1.31314E-03,
     &       -9.33475E-04,-4.78099E-04, 1.19036E-03, 3.64308E-02,
     &        1.79649E-02, 6.79403E-03,-2.29152E-03,-3.26205E-03,
     &       -6.82514E-04, 1.51559E-03,-1.03260E-02,-8.80561E-03,
     &       -1.74630E-03, 1.19074E-04,-2.56528E-04,-2.14605E-04,
     &       -1.10957E-02,-3.69265E-04,-1.44952E-03,-2.21615E-03,
     &        2.68200E-04, 7.72816E-04, 4.56486E-03, 7.68204E-03,
     &        2.58587E-03, 8.79264E-05,-2.34681E-04, 1.51706E-02,
     &        7.41198E-03, 3.26046E-04,-5.78733E-04,-1.89926E-04,
     &        1.32412E-03,-9.42893E-04,-6.08420E-04,-8.87690E-04,
     &        4.08546E-03,-2.25147E-03, 1.72653E-04, 9.52520E-06,
     &        1.28201E-02, 8.02850E-04, 2.01499E-04, 4.06240E-03,
     &        1.51667E-03,-2.01704E-04, 1.13893E-02, 1.74565E-03,
     &       -1.13884E-02,-5.06649E-04, 1.56722E-03,-1.09786E-02/
C     long 45deg, jun_so
      DATA (BSOL(4,2,J),J=1,81)/-1.53655E-02,
     &       -3.80876E-02,-3.45079E-02, 5.33973E-02, 1.01738E-01,
     &        1.66343E-02,-1.07949E-01,-2.13996E-02,-8.05178E-04,
     &       -1.03124E-02, 2.71740E-02, 1.15176E-02,-7.43215E-03,
     &       -8.29285E-03,-3.64650E-03,-5.22976E-03,-5.30849E-04,
     &        1.97592E-02, 1.48249E-02, 1.05426E-02,-5.35292E-03,
     &       -6.53182E-03, 6.71515E-03, 7.99564E-03,-1.44485E-03,
     &       -3.43006E-02,-2.26300E-02,-6.62390E-03,-1.28792E-03,
     &        1.95878E-03, 1.89720E-03, 5.22596E-04, 8.50832E-03,
     &        1.90269E-02, 8.83777E-03,-2.54399E-03,-4.44465E-03,
     &       -1.54967E-03, 1.98833E-03,-2.57032E-02,-6.64362E-03,
     &       -2.94392E-03,-5.16014E-04, 1.63877E-04,-9.80804E-05,
     &       -2.35605E-02,-4.86755E-03,-4.15276E-04,-3.90410E-04,
     &        5.23427E-04, 1.80051E-04,-6.13626E-03, 8.38265E-04,
     &        1.93817E-03, 6.77972E-04, 5.55320E-06, 2.43537E-02,
     &        1.13626E-02, 3.71939E-03,-3.88745E-04, 1.78958E-04,
     &       -2.13241E-03,-1.65615E-03,-9.81842E-04,-3.04383E-04,
     &        1.09889E-02, 1.74938E-03,-1.72068E-06, 7.77670E-05,
     &        9.33394E-03, 1.56803E-03,-7.54013E-04, 9.56794E-04,
     &        1.63872E-03, 8.43293E-05, 1.37379E-02, 1.03917E-03,
     &       -1.56969E-03, 3.32690E-03, 1.25865E-02,-2.06808E-02/
C     long 60deg, jun_so
      DATA (BSOL(5,2,J),J=1,81)/-1.41018E-02,
     &       -3.95518E-02,-3.28168E-02, 6.22890E-02, 9.71988E-02,
     &       -1.04564E-02,-9.50097E-02,-1.02062E-02, 9.31080E-03,
     &       -3.96131E-03, 2.61527E-02, 6.27862E-03,-1.10542E-02,
     &       -6.80324E-03,-2.65890E-03,-2.56104E-03, 1.29740E-03,
     &        3.31399E-03, 1.71311E-02, 1.81750E-02,-4.57683E-03,
     &       -9.62711E-03, 4.51891E-03, 1.04383E-02,-9.29353E-04,
     &       -2.00337E-02,-1.73119E-02,-6.69188E-03,-3.76535E-03,
     &        1.02868E-03, 2.02630E-03, 4.04253E-04,-7.19241E-03,
     &        1.92114E-02, 1.32118E-02, 7.39022E-04,-2.52938E-03,
     &       -2.01755E-03, 1.66919E-04,-1.56473E-02,-6.21986E-03,
     &       -2.85295E-03,-3.30987E-04, 2.79820E-04, 2.25710E-05,
     &       -2.55443E-02,-6.16583E-03,-3.34525E-03, 1.40757E-04,
     &        8.58051E-04,-1.08919E-04,-4.54141E-03, 4.62656E-04,
     &        3.02272E-04, 4.49125E-04,-1.58384E-04, 3.20576E-02,
     &        1.30836E-02, 4.54918E-03,-8.86865E-05, 5.47559E-04,
     &        1.43844E-03,-1.26958E-03, 5.20844E-06, 2.15700E-04,
     &        8.50829E-03, 3.96513E-04,-1.75314E-03,-1.05308E-03,
     &        1.38445E-02, 6.58364E-04,-1.09674E-03, 1.87059E-03,
     &        2.64786E-03,-6.99845E-04, 3.03705E-03, 3.18628E-03,
     &       -7.13655E-03, 2.88369E-03, 1.03873E-03,-2.68491E-02/
C     long 75deg, jun_so
      DATA (BSOL(6,2,J),J=1,81)/-8.28666E-03,
     &       -3.31883E-02,-3.99595E-02, 6.19222E-02, 7.87027E-02,
     &       -2.31077E-02,-7.29166E-02,-9.03082E-03,-3.48486E-03,
     &        1.28490E-02, 2.37097E-02,-1.08885E-04,-1.35337E-02,
     &       -6.39014E-03,-5.80264E-04,-1.33383E-03, 1.25812E-03,
     &       -1.84126E-02, 7.93708E-03, 1.66543E-02,-3.46289E-03,
     &       -7.13456E-03, 5.90870E-03, 9.80394E-03,-2.91014E-03,
     &        6.38182E-04,-1.00634E-02,-5.53415E-03,-5.60682E-03,
     &       -2.30961E-03, 1.92913E-03, 1.11591E-03, 9.98401E-03,
     &        2.40181E-02, 1.22258E-02, 7.91017E-04,-1.37597E-03,
     &       -1.67900E-03,-4.22913E-04,-7.29400E-03,-7.00261E-03,
     &       -3.02686E-03, 2.75677E-04, 3.47686E-04, 5.29270E-04,
     &       -3.37561E-02,-8.64586E-03,-5.26021E-03, 1.29495E-04,
     &        1.67682E-03, 7.27749E-05,-4.16752E-03, 9.12283E-04,
     &       -3.01326E-04,-2.95623E-04, 6.45889E-06, 2.64763E-02,
     &        1.19053E-02, 3.10246E-03, 9.56346E-04, 6.99407E-04,
     &        3.39418E-03, 8.03647E-04, 1.39652E-04, 3.28987E-04,
     &        9.82718E-03,-1.15043E-03,-6.48929E-04,-7.57409E-04,
     &        1.92212E-02,-3.42900E-03,-6.86432E-04, 3.91497E-03,
     &       -1.06025E-03,-3.59204E-04, 4.03764E-03, 4.83162E-03,
     &       -1.58551E-02,-3.82084E-05,-3.36675E-03,-1.95746E-02/
C     long 90deg, jun_so
      DATA (BSOL(7,2,J),J=1,81)/-4.39322E-03,
     &       -9.53094E-03,-3.23308E-02, 2.94068E-02, 6.07792E-02,
     &       -6.34252E-03,-7.05134E-02,-3.20223E-02, 6.96742E-04,
     &        4.38705E-02, 2.43330E-02,-1.09586E-02,-1.58032E-02,
     &       -6.53487E-03, 1.90920E-03, 2.08183E-03,-1.18231E-03,
     &       -2.15725E-02, 2.26243E-03, 1.58532E-02,-1.99280E-03,
     &       -6.15205E-03, 6.32244E-03, 6.79374E-03,-4.37373E-03,
     &        3.97855E-03,-5.99930E-03,-2.72847E-03,-2.64698E-03,
     &       -1.06438E-03, 2.24977E-03, 5.85174E-04, 3.36340E-02,
     &        2.31654E-02, 6.62131E-03,-2.35328E-03,-4.70288E-03,
     &       -1.30487E-03, 1.94678E-03,-4.36652E-03,-1.41287E-03,
     &       -4.43962E-04, 8.84090E-04,-1.26270E-04, 3.43935E-04,
     &       -3.85875E-02,-5.14310E-03,-1.61264E-03, 6.91826E-04,
     &        1.94468E-03, 1.63559E-04,-8.49383E-03,-2.21671E-03,
     &       -2.68407E-03,-8.17883E-04, 4.01530E-04, 2.77513E-02,
     &        6.12961E-03, 1.03391E-03, 1.05493E-03, 5.32770E-04,
     &        7.07117E-03,-9.53181E-04,-3.02756E-04, 8.75264E-04,
     &        1.24318E-02,-2.53866E-04, 5.55214E-04,-1.92706E-04,
     &        1.56994E-02,-3.50985E-03,-7.27481E-04,-5.06340E-03,
     &       -9.26828E-04, 3.27776E-04, 7.08056E-03, 1.23204E-03,
     &       -1.17627E-02, 2.43232E-04,-3.74357E-03,-1.38521E-02/
C     long 105deg, jun_so
      DATA (BSOL(8,2,J),J=1,81)/-5.71110E-03,
     &        2.72300E-02, 2.12291E-03,-1.81463E-02, 2.57303E-02,
     &        1.94199E-02,-4.98759E-02,-3.84747E-02, 2.45232E-02,
     &        3.89312E-02, 1.81375E-02,-8.67745E-03,-1.03748E-02,
     &       -1.16889E-02, 1.71802E-03, 3.66393E-03,-1.77075E-03,
     &       -8.44383E-03, 5.13131E-04, 9.77692E-03,-2.27719E-03,
     &       -8.99220E-03, 6.76122E-03, 7.41108E-03,-2.10473E-03,
     &        6.17509E-03,-1.42707E-03,-2.10302E-03,-1.33861E-03,
     &       -5.01085E-04, 3.19749E-04,-7.78556E-04, 3.04259E-02,
     &        2.10349E-02, 3.97063E-03,-2.71955E-03,-5.78039E-03,
     &       -4.46614E-04, 3.09061E-03,-1.53940E-02, 1.22221E-03,
     &        3.64131E-03, 9.84081E-04,-1.25762E-03,-1.86590E-04,
     &       -2.58325E-02, 6.55221E-04, 5.20101E-04, 2.45601E-04,
     &        1.69319E-03, 1.78217E-04, 1.95960E-03,-1.25892E-03,
     &       -3.12999E-03,-7.93436E-04, 6.12964E-05, 3.04583E-02,
     &        3.72689E-03, 1.33612E-03, 1.11327E-03, 1.79519E-04,
     &        1.67613E-02,-6.57923E-05,-5.77505E-04, 6.24866E-04,
     &        2.28639E-02,-1.05107E-03,-1.84615E-04, 3.91202E-04,
     &        8.58607E-03,-3.06734E-03,-1.35172E-03,-9.41793E-03,
     &        4.07186E-03, 9.15746E-04, 7.47251E-03, 2.96518E-03,
     &       -6.09733E-03,-1.33938E-03,-4.63849E-03,-3.54964E-03/
C     long 120deg, jun_so
      DATA (BSOL(9,2,J),J=1,81)/-1.04293E-02,
     &        2.98378E-02, 1.74186E-02,-2.49143E-03, 1.43769E-02,
     &        2.37865E-02,-3.75247E-02,-5.40169E-02, 1.61171E-02,
     &        1.84286E-02, 1.77643E-02, 2.04123E-03,-9.08931E-03,
     &       -1.71005E-02, 3.19137E-03, 9.84911E-04,-1.41511E-03,
     &       -4.86864E-03,-1.87871E-03, 8.95581E-03,-3.67531E-03,
     &       -1.24112E-02, 5.60624E-03, 9.87874E-03,-1.14444E-03,
     &        1.56588E-02, 3.73042E-03,-3.36519E-03,-1.05020E-03,
     &       -6.92528E-04,-4.54115E-05,-9.62248E-04, 2.74379E-02,
     &        2.67150E-02, 4.51265E-03,-2.55871E-04,-4.47170E-03,
     &       -1.21609E-03, 2.15424E-03,-2.58003E-02, 2.32326E-03,
     &        3.72437E-03, 7.03635E-04,-1.51849E-03, 3.29646E-04,
     &       -2.28535E-02,-1.10390E-03, 1.91792E-03,-1.47035E-05,
     &        1.38361E-03, 8.42420E-04, 2.77831E-03, 3.21368E-03,
     &       -1.22132E-03,-2.80184E-04, 1.03674E-04, 2.39649E-02,
     &        3.35084E-03, 6.89586E-04, 1.35166E-03, 1.59665E-04,
     &        5.84584E-03,-7.64719E-05,-1.84684E-03,-7.00817E-05,
     &        2.14194E-02,-3.71262E-03, 6.68165E-04, 9.52925E-04,
     &        1.95761E-02,-8.17753E-04, 4.09865E-04,-6.89804E-03,
     &        3.04546E-03, 8.96080E-04, 1.74503E-03, 1.29637E-03,
     &       -1.74180E-03,-1.24582E-03,-3.37985E-03,-7.04589E-03/
C     long 135deg, jun_so
      DATA (BSOL(10,2,J),J=1,81)/-1.37476E-02,
     &       -1.02092E-02, 9.63717E-03, 6.36185E-02, 3.47269E-02,
     &        8.81684E-03,-1.88081E-02,-8.03437E-02,-1.51117E-02,
     &        1.03390E-03, 1.31580E-02, 9.97730E-03,-8.25393E-03,
     &       -1.46049E-02, 1.54393E-03,-7.27353E-05,-1.76147E-03,
     &        1.31485E-02, 9.87213E-03, 5.67685E-03,-3.29590E-03,
     &       -9.85089E-03, 2.61068E-03, 7.22722E-03,-1.15565E-03,
     &       -1.60979E-03,-2.87229E-03,-2.49368E-03,-1.14460E-03,
     &       -1.39428E-03, 1.93132E-03, 2.53456E-04, 3.50397E-02,
     &        2.77562E-02, 5.99839E-03, 1.69858E-03,-1.56709E-03,
     &       -1.08815E-03,-4.83945E-04,-1.15493E-02, 3.03851E-03,
     &       -2.34006E-04, 4.80341E-04,-6.17765E-04, 3.11417E-04,
     &       -2.74969E-02,-8.05164E-04, 1.04809E-03, 1.12073E-04,
     &        4.82714E-04, 6.83820E-04,-2.20361E-03, 7.44328E-03,
     &        1.84927E-03, 7.71505E-04, 6.39171E-04, 2.44871E-02,
     &        1.15363E-03,-1.31589E-03, 6.90593E-04, 2.57200E-04,
     &        7.66472E-04,-2.99368E-03,-1.53260E-03, 1.05855E-04,
     &        4.58681E-03,-3.94785E-03, 1.04342E-03,-3.78502E-04,
     &        2.54004E-02, 1.74847E-03, 2.59117E-03,-4.84372E-04,
     &        1.82020E-03,-1.00082E-03,-6.12812E-03,-4.15501E-03,
     &       -9.16229E-03, 7.86376E-05,-2.42625E-03,-1.45563E-02/
C     long 150deg, jun_so
      DATA (BSOL(11,2,J),J=1,81)/-1.03068E-02,
     &       -3.05514E-02, 1.02317E-03, 9.85174E-02, 4.16562E-02,
     &       -2.09048E-02,-1.33863E-02,-6.07620E-02,-2.81076E-02,
     &       -1.62087E-03, 7.45764E-03, 1.26307E-02, 7.61775E-04,
     &       -1.42201E-02,-2.57317E-03, 1.09506E-03,-2.41573E-03,
     &        3.54119E-02, 1.30739E-02,-3.73221E-03, 6.88929E-04,
     &       -4.02038E-03, 1.54134E-03, 3.22547E-03,-2.26828E-03,
     &       -2.12046E-02,-1.02722E-02,-1.70638E-03,-3.08561E-03,
     &       -1.75738E-03, 3.02089E-03, 1.20880E-03, 3.66523E-02,
     &        2.67668E-02, 8.18002E-03, 2.96866E-03,-1.18644E-03,
     &       -5.60814E-04,-1.09049E-03,-3.55265E-03, 1.37144E-03,
     &       -2.71024E-03, 1.51362E-04,-2.64263E-04,-4.16939E-05,
     &       -2.04035E-02,-5.69870E-04,-2.27327E-03,-8.23411E-04,
     &        6.68171E-04, 5.62732E-04, 1.60290E-03, 1.19918E-02,
     &        2.71041E-03, 1.22545E-03, 6.76174E-04, 2.79780E-02,
     &        4.84571E-03,-3.56441E-04, 8.88509E-05, 3.65898E-04,
     &       -1.75284E-03,-9.34999E-04,-1.76094E-03, 1.64157E-04,
     &       -5.01553E-03,-4.23698E-03,-3.35738E-04,-1.10981E-03,
     &        2.00388E-02, 4.11361E-03, 1.93999E-03, 1.56372E-02,
     &        1.46887E-03,-1.18638E-03,-1.56233E-02,-2.29065E-03,
     &       -1.55648E-02,-1.37130E-04, 9.66108E-03,-1.62716E-02/
C     long 165deg, jun_so
      DATA (BSOL(12,2,J),J=1,81)/-2.06430E-03,
     &       -2.19696E-02,-1.56173E-02, 8.37002E-02, 5.70988E-02,
     &       -2.20269E-02,-3.77983E-02,-4.71525E-02,-1.26840E-02,
     &        1.76646E-02, 1.53694E-02, 3.26114E-03, 3.90483E-04,
     &       -9.49269E-03,-1.33221E-04, 1.39676E-03,-1.31587E-03,
     &        3.40117E-02, 2.44926E-03,-2.06358E-03, 6.36819E-03,
     &       -8.42857E-03, 3.58129E-04, 4.14615E-03,-2.65232E-03,
     &       -1.54889E-02,-1.29398E-02,-2.44153E-03,-3.62455E-03,
     &       -1.46183E-03, 3.27994E-03, 1.19650E-03, 4.45558E-02,
     &        3.61764E-02, 1.01748E-02, 1.31965E-03,-4.12086E-04,
     &       -7.78477E-04,-2.42803E-03, 2.12889E-03, 3.93223E-03,
     &       -3.79670E-04, 1.38324E-04, 1.24299E-04,-1.28855E-04,
     &       -2.01025E-02,-7.87035E-03,-2.96182E-03,-5.76310E-04,
     &        7.66216E-04, 1.61871E-04, 9.74417E-04, 9.37145E-03,
     &        7.83899E-04, 4.73148E-04, 4.46426E-04, 3.18335E-02,
     &        8.17174E-03, 3.74057E-03, 6.25480E-04, 3.34793E-04,
     &       -2.96548E-03, 5.56354E-04,-2.83193E-04, 8.26709E-04,
     &       -4.41389E-03,-4.11828E-03,-1.36782E-03,-6.79433E-04,
     &        2.26208E-02, 4.55495E-03, 1.92235E-03, 2.40541E-02,
     &        3.17573E-03, 1.34289E-04,-1.67168E-02,-1.39261E-03,
     &       -9.63487E-03,-3.01756E-03, 1.22178E-02,-1.59544E-02/
C     long 180deg, jun_so
      DATA (BSOL(13,2,J),J=1,81)/-1.69522E-03,
     &       -2.54431E-02,-1.86982E-02, 8.02083E-02, 7.00898E-02,
     &       -1.39216E-02,-5.63448E-02,-4.75511E-02,-3.93790E-03,
     &        2.08220E-02, 3.51332E-02,-2.18134E-03,-1.38041E-02,
     &       -2.63850E-03, 4.81016E-03,-7.85909E-04,-5.91445E-04,
     &        2.67901E-02,-9.38582E-03,-2.10050E-03, 8.88088E-03,
     &       -7.85028E-03, 3.11645E-03, 6.01687E-03,-2.82648E-03,
     &       -6.41640E-03,-2.38423E-02,-6.70862E-03,-9.16034E-04,
     &       -1.44679E-03, 1.84411E-03, 5.33383E-04, 4.95544E-02,
     &        3.45655E-02, 9.80639E-03,-1.19931E-03, 2.95007E-04,
     &        2.03889E-04,-3.24232E-03,-7.98776E-03, 5.62494E-03,
     &        5.51723E-06, 5.75741E-04, 5.15294E-04, 1.48238E-04,
     &       -2.22651E-02,-6.32853E-03,-2.87596E-03,-1.61857E-03,
     &        7.00957E-04,-2.54316E-04, 8.16440E-04, 6.69724E-03,
     &        7.33387E-04, 1.21873E-04, 2.33220E-04, 3.65211E-02,
     &        6.36760E-03, 3.76661E-03, 8.27871E-04, 4.95674E-04,
     &       -6.87336E-04, 3.34860E-03,-1.01328E-06, 1.17542E-03,
     &       -5.13957E-03,-2.23164E-03,-5.73904E-04,-2.15627E-04,
     &        1.44855E-02, 2.63945E-03, 2.88582E-03, 1.97374E-02,
     &        2.18585E-03, 1.10901E-03, 2.41238E-03,-1.30962E-03,
     &       -1.39431E-02,-6.17639E-03,-9.13336E-03, 2.93131E-05/
C     long 195deg, jun_so
      DATA (BSOL(14,2,J),J=1,81)/-8.92228E-03,
     &       -1.98150E-02,-3.78374E-03, 6.57110E-02, 5.56084E-02,
     &       -1.57149E-03,-4.86921E-02,-4.03893E-02,-1.00036E-02,
     &        1.66981E-02, 5.25405E-02, 6.38932E-03,-1.88367E-02,
     &       -6.22552E-03, 5.93828E-03,-7.92272E-04,-9.19778E-04,
     &        1.22530E-02,-9.78094E-03,-4.53113E-03, 1.09866E-03,
     &       -3.41658E-03, 7.14558E-03, 6.26599E-03,-3.04385E-03,
     &       -1.71581E-03,-2.25206E-02,-8.32236E-03,-4.21389E-04,
     &        9.59352E-06, 1.15883E-03, 6.22905E-04, 4.37647E-02,
     &        2.06193E-02, 7.84976E-03,-5.18476E-04,-1.80363E-04,
     &        3.72999E-04,-2.46791E-03,-2.32166E-02, 7.12325E-03,
     &        1.54520E-03, 1.17814E-03, 1.41943E-05, 3.43674E-04,
     &       -1.02712E-02,-2.37024E-03,-3.91523E-03,-1.46118E-03,
     &        1.36323E-04,-2.73653E-04,-6.18621E-03, 5.93492E-03,
     &       -2.35131E-05, 1.95392E-04, 4.15270E-04, 3.74433E-02,
     &        6.06164E-04, 1.52794E-03, 7.21397E-04, 8.13048E-04,
     &        7.08672E-04,-1.57216E-03,-1.69538E-03, 5.22474E-05,
     &       -6.63112E-03,-5.34231E-03,-3.57921E-04,-7.10894E-04,
     &        5.29544E-03, 1.93798E-03, 1.34626E-03, 1.11299E-02,
     &        1.69912E-03, 9.83584E-04, 1.17829E-02,-1.90695E-03,
     &       -1.08964E-02,-6.11103E-03,-2.14799E-03, 1.37462E-03/
C     long 210deg, jun_so
      DATA (BSOL(15,2,J),J=1,81)/-6.61572E-03,
     &       -9.74487E-03, 2.38402E-03, 5.76074E-02, 4.16559E-02,
     &        8.03209E-03,-2.94244E-02,-5.04813E-02,-2.56477E-02,
     &        1.09461E-02, 4.72179E-02, 1.35186E-02,-8.99131E-03,
     &       -1.15440E-02, 1.83112E-03, 4.89228E-03, 1.45301E-04,
     &        4.56486E-03, 5.13106E-03,-3.03696E-03,-6.36627E-03,
     &       -2.66252E-04, 7.33397E-03, 3.53002E-03,-1.18700E-03,
     &       -2.17626E-03,-9.54087E-03,-3.75314E-04,-9.33422E-04,
     &       -1.57793E-04, 1.51892E-03, 1.12076E-03, 3.34768E-02,
     &        2.07958E-02, 1.03875E-02,-6.15098E-05,-1.27479E-03,
     &       -7.97611E-04,-1.87876E-03,-1.73086E-02, 5.71775E-03,
     &        5.33765E-03, 1.47384E-03, 5.05641E-04, 1.92629E-04,
     &        3.47704E-03,-3.98617E-03,-6.57243E-03,-3.40793E-04,
     &        6.33119E-04,-1.67599E-04,-4.19300E-03, 6.13591E-03,
     &       -4.14495E-04, 1.29643E-04, 4.69905E-04, 3.40525E-02,
     &        8.11808E-05, 8.47915E-05, 8.46538E-04, 3.51781E-04,
     &        3.58163E-03,-1.72703E-03,-1.94740E-03,-1.60096E-05,
     &       -3.92918E-03,-8.00768E-03,-9.83425E-04,-7.66257E-04,
     &        1.19087E-02,-2.35895E-03, 1.11661E-03,-3.48788E-03,
     &        4.48131E-03, 1.71051E-03,-8.15472E-03,-2.55464E-03,
     &       -4.81434E-03,-2.85279E-03, 3.50795E-03,-3.11826E-03/
C     long 225deg, jun_so
      DATA (BSOL(16,2,J),J=1,81)/-1.14515E-03,
     &       -1.98856E-02,-2.19453E-02, 7.44792E-02, 7.72208E-02,
     &       -8.34777E-03,-5.77831E-02,-5.26178E-02,-2.80489E-02,
     &        5.59929E-03, 4.38437E-02, 1.08798E-02,-5.81106E-03,
     &       -1.08870E-02,-1.48037E-03, 3.84644E-03, 9.66224E-04,
     &       -2.69744E-03, 1.19487E-02, 4.11710E-03,-1.12101E-02,
     &       -8.22378E-05, 1.12483E-02, 5.40708E-03,-1.61011E-03,
     &        6.18898E-03, 5.06291E-04, 6.80149E-03,-2.31897E-03,
     &       -1.74907E-03, 2.21636E-03, 1.07452E-03, 2.62093E-02,
     &        2.30103E-02, 1.49872E-02, 2.69827E-03,-1.29708E-03,
     &       -2.21056E-03,-6.92932E-04,-1.88103E-02, 2.99318E-03,
     &        5.79304E-03, 1.77477E-03, 2.17040E-04, 6.15371E-05,
     &       -8.09927E-03,-1.03527E-02,-5.07024E-03, 9.41582E-04,
     &        1.39735E-03, 7.81884E-07, 1.52872E-02, 1.03617E-02,
     &        1.56598E-03,-3.85869E-04,-2.16380E-04, 3.46150E-02,
     &        8.55527E-04, 7.38742E-04, 1.47957E-04, 4.09271E-04,
     &       -8.60874E-05,-1.55324E-03,-1.86675E-03, 4.04886E-04,
     &        5.76107E-03,-5.08621E-03, 1.23133E-03,-5.90633E-04,
     &        2.18565E-02,-6.12706E-04, 2.18929E-03,-1.88606E-03,
     &        5.01760E-03, 1.76635E-03,-1.60990E-02,-4.42459E-03,
     &       -1.30322E-02,-9.43508E-04,-9.36078E-03,-1.25501E-04/
C     long 240deg, jun_so
      DATA (BSOL(17,2,J),J=1,81)/ 3.33156E-03,
     &       -2.55432E-02,-3.90074E-02, 7.13299E-02, 1.07195E-01,
     &       -3.20249E-03,-9.23831E-02,-5.43912E-02,-7.82431E-03,
     &        1.22614E-02, 3.27329E-02, 5.67944E-03,-5.68751E-03,
     &       -9.27285E-03,-1.89213E-03, 3.14320E-03, 2.25812E-03,
     &       -1.24036E-02, 6.19834E-03, 8.26320E-03,-9.39467E-03,
     &       -1.09177E-03, 1.38283E-02, 7.69677E-03,-3.36044E-03,
     &        6.47581E-03, 2.62794E-03, 6.17184E-03,-7.67565E-04,
     &       -1.52648E-03, 2.23888E-03, 8.58859E-04, 1.70948E-02,
     &        2.27328E-02, 1.71523E-02, 3.91413E-03,-2.52679E-03,
     &       -4.02560E-03,-4.77239E-04,-1.54196E-02, 2.77818E-03,
     &        4.38673E-03, 1.32241E-03,-6.75726E-04,-3.01055E-04,
     &       -3.08231E-02,-1.49874E-02,-2.48304E-03, 1.39963E-03,
     &        1.48456E-03, 3.92756E-06, 1.03065E-02, 9.99498E-03,
     &        2.00956E-03, 2.15812E-04,-4.26005E-04, 3.11157E-02,
     &        1.04503E-03, 1.39633E-03, 7.06485E-04, 5.42622E-04,
     &       -2.39329E-03,-7.08836E-04, 1.58102E-04, 2.88974E-04,
     &        5.64500E-03,-3.75416E-03,-4.09552E-04,-5.42592E-04,
     &        1.33766E-02,-4.95753E-04, 1.08316E-03, 3.80747E-03,
     &        4.61556E-03, 3.37486E-05,-1.45005E-02,-4.22756E-03,
     &       -1.75510E-02,-5.48221E-04,-9.11401E-03,-1.55751E-03/
C     long 255deg, jun_so
      DATA (BSOL(18,2,J),J=1,81)/ 1.39772E-02,
     &       -1.09503E-02,-3.32009E-02, 5.06080E-02, 1.01130E-01,
     &        2.17169E-02,-1.12325E-01,-6.29109E-02, 2.39113E-04,
     &        3.17894E-02, 2.50799E-02,-1.38624E-03,-5.55405E-03,
     &       -5.58424E-03,-7.20138E-04, 5.17944E-03, 3.63407E-03,
     &       -1.31741E-02,-1.35996E-03, 9.43100E-03,-3.63524E-03,
     &       -2.82341E-03, 1.18501E-02, 8.04611E-03,-3.22928E-03,
     &        4.59163E-03, 4.46095E-03, 5.17732E-03, 1.95462E-03,
     &        5.92271E-04, 1.24628E-03, 6.31045E-04, 1.09865E-02,
     &        2.57833E-02, 1.36008E-02, 9.51741E-04,-4.26378E-03,
     &       -4.26602E-03, 7.57821E-05,-3.82237E-03, 4.30969E-03,
     &        2.25566E-03, 1.92725E-03,-5.92046E-04,-7.97709E-04,
     &       -2.66402E-02,-1.55759E-02,-2.90798E-03,-1.39724E-03,
     &        1.17764E-03, 5.75324E-05,-1.82641E-02, 4.98992E-03,
     &        1.95039E-03, 8.69261E-04,-4.50987E-05, 2.81543E-02,
     &        1.96131E-03, 2.15570E-03, 8.34190E-04,-2.64263E-04,
     &        1.14058E-03, 6.32604E-04, 6.94174E-05, 3.65231E-04,
     &        6.06626E-03,-6.63927E-03,-1.94711E-03,-6.62872E-04,
     &        7.23726E-03, 7.39802E-04, 3.80974E-04,-8.94836E-03,
     &        1.19558E-03,-2.89642E-04,-2.05824E-02,-1.48449E-03,
     &       -1.26017E-02,-1.66994E-03,-1.74018E-03,-5.04792E-03/
C     long 270deg, jun_so
      DATA (BSOL(19,2,J),J=1,81)/ 1.93334E-02,
     &       -1.86755E-02,-4.08763E-02, 5.29899E-02, 8.86900E-02,
     &        1.65216E-02,-8.84792E-02,-4.22094E-02,-2.41533E-02,
     &        2.89749E-02, 1.91478E-02,-4.47924E-03,-2.45167E-03,
     &       -5.41994E-03,-1.97782E-03, 8.58412E-04, 1.95683E-03,
     &       -1.59294E-02,-6.09279E-04, 1.00359E-02,-6.71794E-03,
     &       -1.21848E-03, 8.44479E-03, 5.18957E-03,-4.22237E-04,
     &        3.38635E-03, 4.70906E-03, 3.57653E-03, 1.45843E-03,
     &        8.78695E-04, 2.31970E-04,-7.67865E-05, 1.04551E-02,
     &        2.87089E-02, 1.24146E-02, 1.13154E-03,-3.27435E-03,
     &       -3.43468E-03,-3.68679E-04, 4.42200E-03, 3.60615E-03,
     &        1.66856E-03, 1.14658E-03,-3.33678E-04,-4.56427E-04,
     &       -2.27739E-02,-1.92935E-02,-5.19613E-03,-1.20714E-03,
     &        1.20838E-03,-7.63737E-05,-1.39474E-02, 2.83789E-03,
     &        1.69097E-03, 7.37931E-04, 6.34531E-04, 2.02508E-02,
     &        6.71013E-03, 1.04304E-03, 3.25305E-04,-4.55659E-04,
     &        4.97229E-03, 2.59498E-03,-1.36604E-03,-7.47470E-05,
     &        4.31519E-03,-6.10511E-03,-3.46419E-04,-3.96240E-04,
     &        1.60858E-02, 1.28027E-03, 1.42593E-03,-7.75278E-03,
     &        1.78190E-04,-4.11796E-05,-2.57002E-02,-1.09182E-03,
     &       -6.17620E-03,-2.30195E-03, 5.17831E-03,-9.19490E-03/
C     long 285deg, jun_so
      DATA (BSOL(20,2,J),J=1,81)/ 2.27171E-02,
     &       -1.70997E-02,-5.45345E-02, 4.87009E-02, 8.34633E-02,
     &        8.81426E-03,-7.49751E-02,-3.13765E-02,-2.80599E-02,
     &        3.13943E-03, 8.22390E-03,-2.85799E-03, 4.27607E-03,
     &       -3.61645E-03,-3.46471E-03,-2.18968E-03,-5.89526E-04,
     &       -1.16958E-02, 2.83226E-03, 5.22542E-03,-1.03652E-02,
     &       -1.10113E-03, 6.98910E-03, 4.52881E-03,-4.15053E-05,
     &        1.05220E-03, 3.04045E-03,-1.01217E-03,-3.00940E-03,
     &       -2.41099E-04, 9.33742E-04, 5.01190E-04, 6.70223E-04,
     &        1.69293E-02, 8.99426E-03, 5.02333E-03, 5.55952E-05,
     &       -3.06467E-03,-2.43679E-03,-3.47595E-03,-2.53130E-03,
     &        1.21411E-03, 9.66197E-04, 7.04995E-04, 6.45647E-04,
     &       -2.24237E-02,-1.42004E-02,-3.78833E-03, 1.89179E-03,
     &        8.00799E-04, 5.04424E-05,-2.93429E-04, 4.38837E-03,
     &        1.34092E-03,-2.71773E-04, 9.54891E-04, 1.18624E-02,
     &        7.20706E-03,-7.26320E-04, 7.63336E-04, 2.08597E-04,
     &        1.21027E-02, 5.06236E-03,-1.31428E-03,-5.65381E-04,
     &        2.14372E-03,-5.43607E-03,-1.03789E-04,-3.66269E-06,
     &        1.98181E-02,-8.02573E-05, 1.74527E-03,-4.07796E-03,
     &        5.88561E-04,-1.10350E-03,-1.08585E-02,-1.20446E-03,
     &       -6.64119E-03,-3.09144E-03, 2.30732E-03,-1.66276E-02/
C     long 300deg, jun_so
      DATA (BSOL(21,2,J),J=1,81)/ 2.70439E-02,
     &       -6.83639E-03,-5.92586E-02, 3.27050E-02, 8.50800E-02,
     &        2.16151E-02,-6.59742E-02,-4.12184E-02,-3.60514E-02,
     &       -1.64944E-02, 6.83890E-03, 6.99302E-04, 8.74105E-03,
     &        3.95116E-03,-2.06028E-03,-4.32616E-03,-2.40453E-04,
     &       -8.67324E-03, 6.55369E-03, 3.59586E-03,-1.19651E-02,
     &       -4.45780E-03, 5.10933E-03, 6.51424E-03,-1.04689E-04,
     &        1.50827E-02, 8.39250E-03, 2.26882E-04,-2.91806E-03,
     &       -1.32837E-03, 1.15556E-03, 2.21271E-03,-1.35176E-03,
     &        8.63618E-03, 8.04127E-03, 6.05671E-03, 1.82298E-03,
     &       -3.31566E-03,-3.50063E-03,-1.10445E-02,-1.98659E-03,
     &       -2.24326E-04, 9.71170E-04, 8.59587E-04, 9.75990E-04,
     &       -1.58482E-02,-8.30754E-03,-1.20760E-03, 1.86043E-03,
     &        1.07705E-03, 3.29617E-04, 3.23670E-03, 3.82483E-03,
     &        6.64679E-04,-4.94727E-04, 5.11459E-04, 2.07104E-03,
     &        4.97798E-03,-1.67416E-03, 6.29826E-04, 4.91742E-04,
     &        1.23474E-02, 5.21518E-03,-6.37510E-04,-1.73100E-04,
     &        7.24487E-03,-6.40937E-03, 6.28606E-04, 1.44299E-04,
     &        1.49963E-02, 1.21848E-03, 3.92987E-04,-2.98389E-03,
     &        5.28830E-05,-1.36170E-03, 2.19468E-03,-1.63539E-03,
     &       -8.65924E-03,-6.49394E-03, 6.55640E-03,-1.30630E-02/
C     long 315deg, jun_so
      DATA (BSOL(22,2,J),J=1,81)/ 3.20653E-02,
     &       -1.54312E-04,-6.21478E-02, 8.85581E-03, 7.26462E-02,
     &        3.78381E-02,-2.98097E-02,-4.59298E-02,-4.40748E-02,
     &       -1.68969E-02, 3.92318E-03, 2.58784E-03, 1.02379E-02,
     &        3.61798E-03,-1.87151E-03,-5.14138E-03,-2.00006E-04,
     &       -6.34435E-03, 8.79757E-03, 1.94980E-03,-1.06192E-02,
     &       -3.29670E-03, 5.64294E-03, 5.05737E-03, 9.00635E-04,
     &        9.05073E-03, 8.17627E-03, 5.61572E-03, 2.53358E-04,
     &       -1.45780E-03, 4.45370E-04, 1.72529E-03, 6.98752E-04,
     &        8.67198E-03, 9.00570E-03, 5.62788E-03, 2.32135E-03,
     &       -2.99534E-03,-2.60354E-03,-7.51223E-03,-4.47596E-03,
     &       -1.80230E-03, 5.56727E-04, 1.28031E-04, 5.45875E-04,
     &       -5.27866E-03,-1.15711E-02,-1.74256E-03, 7.04648E-04,
     &        1.79223E-03, 7.16311E-04, 1.36206E-02,-8.89251E-04,
     &        1.11948E-03, 1.23860E-04, 3.67341E-04,-5.39927E-03,
     &        7.02841E-03,-2.43773E-03, 1.65647E-04, 4.81570E-04,
     &        1.36911E-03, 5.03613E-03,-6.36671E-04, 1.45962E-04,
     &        1.03953E-02,-2.26913E-03, 9.86148E-04, 7.15531E-05,
     &        1.33648E-02, 1.12504E-03,-1.92347E-04,-8.35340E-03,
     &       -1.20659E-03, 5.52292E-04,-2.64580E-03,-1.59874E-03,
     &       -3.05881E-03,-3.34270E-03, 3.10258E-03,-3.02259E-03/
C     long 330deg, jun_so
      DATA (BSOL(23,2,J),J=1,81)/ 3.20491E-02,
     &        8.77525E-03,-6.32544E-02,-4.52812E-03, 6.31775E-02,
     &        3.37203E-02,-3.22397E-02,-2.67226E-02,-2.32052E-02,
     &       -1.61104E-02,-1.39527E-03, 1.39635E-04, 3.88188E-03,
     &        1.16046E-03, 1.19000E-03,-3.14679E-03,-5.73596E-04,
     &       -1.09346E-02, 9.60642E-03, 6.49979E-03,-7.22724E-03,
     &       -5.40552E-03, 5.84209E-03, 6.22796E-03, 2.91350E-04,
     &       -1.69532E-03, 2.21862E-03, 2.79239E-03, 1.32240E-03,
     &       -1.39042E-03,-1.00114E-03, 1.05843E-03, 4.86231E-03,
     &        1.11374E-02, 8.78914E-03, 5.81084E-03, 3.26267E-03,
     &       -2.49497E-03,-2.44143E-03,-5.50220E-03,-8.97199E-03,
     &       -2.27296E-03,-1.56295E-04, 3.61541E-04, 4.43589E-04,
     &       -3.22564E-03,-5.96390E-03, 5.34844E-04,-1.79525E-04,
     &        9.50463E-04, 6.88992E-04, 2.58459E-03, 9.06096E-05,
     &        2.05227E-03, 5.15173E-04, 5.19400E-04,-2.06032E-03,
     &        7.04936E-03,-3.94370E-04, 8.64096E-04, 1.02910E-03,
     &        1.90669E-04, 4.74079E-03, 3.03984E-04, 3.58002E-04,
     &        8.06312E-03, 6.70985E-04, 4.09955E-05,-3.07067E-04,
     &        2.30769E-03,-3.57117E-04, 7.79450E-05,-1.06178E-02,
     &       -2.48896E-03, 6.54141E-04,-9.44793E-04,-6.07401E-04,
     &        8.00391E-03, 8.85153E-04,-5.39346E-03,-6.33576E-03/
C     long 345deg, jun_so
      DATA (BSOL(24,2,J),J=1,81)/ 2.29624E-02,
     &        1.22050E-02,-6.18205E-02,-1.44021E-03, 6.30531E-02,
     &        2.47739E-02,-3.26715E-02,-1.47914E-02,-2.73379E-02,
     &       -2.09352E-02,-9.67078E-04, 7.29049E-03,-1.71451E-03,
     &       -4.85160E-03, 1.58700E-03,-1.52547E-04, 1.33435E-03,
     &       -9.63736E-03, 1.11938E-02, 1.08270E-02,-6.67245E-03,
     &       -4.83535E-03, 4.88142E-03, 7.90851E-03, 3.30862E-04,
     &        5.71901E-03, 2.32816E-03,-5.42422E-03,-8.88616E-05,
     &       -7.80352E-04,-1.03398E-03, 1.68719E-03, 1.81754E-02,
     &        7.98729E-03, 6.48395E-03, 3.40343E-03, 2.88703E-03,
     &       -1.66755E-03,-2.77453E-03, 4.63221E-03,-9.13742E-03,
     &       -9.08147E-04,-8.50964E-04,-1.38778E-04, 5.10203E-04,
     &       -1.68235E-02,-4.12418E-03,-2.25697E-03,-1.71658E-04,
     &        9.95196E-04, 5.37261E-04,-4.99726E-03, 2.49340E-03,
     &        4.66078E-05, 6.97909E-04, 8.52077E-04,-6.62461E-03,
     &        5.00827E-03, 2.24005E-03, 1.03548E-03, 1.10678E-03,
     &       -4.39584E-03, 9.40800E-04, 6.64562E-05, 2.46291E-04,
     &       -7.91905E-04,-1.35202E-03,-1.51170E-03,-6.25507E-04,
     &       -2.51422E-03,-1.37065E-03,-3.35701E-04,-1.42306E-03,
     &       -8.76797E-04, 5.30278E-04,-2.04357E-03,-1.52491E-03,
     &        4.07797E-03, 7.69795E-04, 3.29134E-03,-9.09370E-03/
C     long 0deg, sep_eq
      DATA (BSOL(1,3,J),J=1,81)/ 2.29028E-02,
     &        6.24968E-03,-6.91207E-02,-1.99935E-02, 5.10776E-02,
     &        1.61866E-02,-2.53012E-02, 1.33809E-02, 3.01446E-03,
     &       -3.18701E-03,-2.04612E-03, 4.21728E-03,-9.16346E-04,
     &       -9.57573E-04, 1.22239E-03, 1.11046E-04, 1.91774E-03,
     &        1.06692E-02, 1.74146E-03, 4.34173E-03,-8.04036E-04,
     &       -3.64046E-03, 5.00402E-03, 6.94117E-03,-8.00946E-04,
     &        3.62471E-03, 2.49274E-03,-2.03014E-03, 2.21031E-03,
     &        9.02623E-04,-2.37917E-04, 6.79610E-04,-4.44392E-03,
     &        1.10128E-04, 2.39207E-03, 2.61054E-03, 1.56159E-03,
     &        2.89787E-04,-6.82349E-04,-3.12939E-03,-2.68415E-03,
     &        2.66481E-03,-1.01202E-03,-2.84245E-04, 3.93432E-04,
     &        5.84558E-03,-1.11575E-03,-1.47218E-03,-9.75899E-04,
     &        2.21265E-04, 3.72176E-04,-3.47155E-03,-2.02254E-05,
     &       -4.30421E-04, 7.20662E-05, 5.53907E-04, 2.34597E-02,
     &        5.25765E-03, 9.29514E-04,-4.72236E-04, 3.34302E-04,
     &       -8.57107E-04,-2.26324E-03, 1.92293E-04,-7.51784E-05,
     &       -4.98906E-03,-2.80996E-04,-9.20295E-04,-6.80087E-04,
     &        9.72110E-03, 6.85047E-04, 8.43412E-04, 2.17181E-03,
     &       -9.70186E-04,-1.02573E-03,-3.64388E-03,-3.69393E-03,
     &        2.32610E-03,-2.17199E-04, 2.90745E-03,-2.90469E-03/
C     long 15deg, sep_eq
      DATA (BSOL(2,3,J),J=1,81)/ 1.59804E-02,
     &        8.75120E-03,-7.25787E-02,-1.87208E-02, 6.36346E-02,
     &       -6.55408E-04,-4.48846E-02, 1.70391E-02,-2.75614E-03,
     &       -1.07433E-02, 8.22076E-04, 6.41671E-03,-3.09098E-03,
     &       -5.11620E-04, 3.32180E-03,-5.61786E-04, 1.85205E-03,
     &        2.07973E-02,-2.60178E-03, 4.52735E-03, 2.18825E-03,
     &       -5.64273E-03, 5.03946E-03, 6.73228E-03,-9.51587E-04,
     &        6.80027E-04, 3.40936E-03,-2.38447E-04, 2.91924E-03,
     &       -1.83731E-04,-6.94980E-04, 1.88211E-04, 7.09732E-03,
     &        5.14964E-03, 3.30280E-03, 2.48445E-03, 6.00979E-04,
     &        6.91337E-04, 2.82527E-05,-5.50239E-04,-3.94292E-03,
     &        2.55756E-03,-1.29990E-03,-5.45238E-05, 8.40072E-04,
     &        8.99059E-04,-3.70869E-03,-8.30151E-04, 2.89357E-04,
     &        2.59294E-04, 3.80196E-04, 3.25918E-04, 4.67351E-03,
     &        3.30329E-04, 3.44864E-04, 9.56781E-05, 3.11842E-02,
     &        7.17385E-03, 7.41112E-04,-1.24441E-06, 8.47618E-05,
     &       -7.17351E-04,-4.36125E-04, 4.58679E-04,-6.87003E-04,
     &       -2.90104E-03,-1.60852E-03,-8.65436E-04,-6.32400E-04,
     &        8.24487E-03,-1.39286E-04, 4.87763E-04,-6.09622E-03,
     &       -2.47896E-03,-2.32626E-05,-9.39880E-04,-2.85005E-03,
     &        1.55105E-03,-1.59879E-04, 5.87389E-04, 4.67840E-04/
C     long 30deg, sep_eq
      DATA (BSOL(3,3,J),J=1,81)/ 6.43764E-03,
     &        4.97386E-03,-5.36461E-02,-7.05160E-03, 6.63329E-02,
     &        6.17389E-03,-5.15490E-02, 1.94277E-03,-5.60097E-03,
     &       -5.60921E-03, 1.40232E-03, 3.74583E-03, 1.82442E-03,
     &        3.16033E-03,-2.53057E-03,-1.83272E-03, 2.51224E-03,
     &        2.05082E-02, 1.22855E-03, 1.05144E-02, 1.19611E-03,
     &       -9.72695E-03, 3.70114E-03, 6.05749E-03, 7.09689E-04,
     &       -6.70644E-03,-1.23814E-03, 3.06299E-03, 3.39480E-03,
     &       -1.56374E-03,-1.51446E-03, 7.98462E-04, 1.91024E-02,
     &        8.95319E-03, 4.76373E-03, 2.24789E-03,-9.81956E-04,
     &       -9.18267E-04, 2.41967E-04,-6.17209E-06,-6.56707E-04,
     &        1.84171E-03,-6.74788E-04, 6.78669E-04, 2.97610E-04,
     &       -1.62339E-03,-3.00558E-03,-6.68954E-04,-5.49830E-05,
     &        1.64201E-04, 1.87053E-04, 3.27928E-03, 7.88080E-03,
     &       -4.84169E-04,-4.25847E-04,-1.04401E-04, 2.67648E-02,
     &        4.27526E-03, 9.34493E-04, 7.84164E-04, 2.03665E-05,
     &       -1.67805E-03,-5.61304E-04,-6.00709E-04,-8.47709E-04,
     &        4.42999E-04,-2.06924E-03, 8.40635E-04, 6.85651E-05,
     &        1.23585E-02,-6.32504E-04,-5.34521E-05,-1.56271E-02,
     &       -9.73049E-04, 1.12855E-04,-5.48720E-03,-4.01050E-04,
     &       -3.36487E-03, 2.49103E-03, 5.60310E-04, 5.45582E-04/
C     long 45deg, sep_eq
      DATA (BSOL(4,3,J),J=1,81)/-5.48358E-03,
     &        1.24238E-03,-2.30699E-02,-6.30006E-03, 4.21622E-02,
     &        6.14720E-03,-4.91912E-02,-1.34837E-02, 9.65165E-03,
     &        1.63346E-02, 2.32552E-03,-3.28107E-03, 2.12450E-03,
     &        1.85335E-03,-8.16281E-03,-1.04617E-03, 3.14414E-03,
     &        8.35778E-03, 6.94120E-03, 1.48514E-02, 9.71910E-04,
     &       -1.30836E-02, 3.31361E-03, 6.77048E-03, 3.42237E-03,
     &       -1.63982E-02,-7.30493E-03, 5.29900E-04, 6.68430E-04,
     &       -1.51511E-03,-4.52856E-04, 1.13474E-03, 2.28967E-02,
     &        1.31252E-02, 2.98760E-03,-4.32738E-04,-1.41445E-03,
     &       -3.91379E-04, 2.23652E-04, 7.61680E-04, 3.08147E-04,
     &        9.10900E-04,-7.40136E-05, 9.92169E-04,-2.92558E-04,
     &       -7.62145E-03,-3.42159E-03,-1.23205E-03,-7.26809E-04,
     &        1.33103E-04,-2.98926E-05,-7.24785E-03, 5.43299E-03,
     &       -9.66372E-04,-7.91860E-04, 4.57965E-05, 1.85812E-02,
     &        2.44166E-03, 6.70277E-04, 4.08534E-04,-2.52137E-04,
     &       -1.02305E-02,-5.11206E-03,-2.04575E-03,-5.34510E-04,
     &        4.80243E-03,-1.22496E-03, 2.33164E-04,-1.38971E-04,
     &        1.26036E-02, 1.21265E-04, 1.54234E-04,-2.32945E-04,
     &        1.23921E-03,-1.65916E-04,-7.82682E-03,-1.51044E-03,
     &       -7.05830E-03, 2.70940E-03, 5.74912E-03,-3.35085E-04/
C     long 60deg, sep_eq
      DATA (BSOL(5,3,J),J=1,81)/-1.69022E-03,
     &        3.35901E-03,-1.17854E-02,-7.21849E-03, 2.41765E-02,
     &       -4.60724E-03,-3.01273E-02,-9.93886E-03, 1.88280E-02,
     &        2.46948E-02, 4.36661E-03,-8.67495E-03,-4.12632E-03,
     &        3.66402E-03,-1.58429E-03, 2.48503E-03, 1.64486E-04,
     &        2.03184E-03, 7.80502E-03, 1.58091E-02,-1.06938E-04,
     &       -1.45171E-02, 7.75133E-04, 3.63128E-03, 3.22235E-03,
     &       -1.10988E-02,-7.99466E-03,-1.07967E-03,-1.14942E-03,
     &       -1.69468E-03, 2.05067E-04, 5.64894E-04, 1.09664E-02,
     &        1.67464E-02, 3.57844E-03,-5.69512E-04,-6.20888E-04,
     &       -1.48015E-04,-7.36251E-04,-5.85864E-04, 8.98936E-04,
     &        3.20335E-04, 1.80341E-04, 4.52507E-05,-4.53342E-04,
     &       -1.40104E-02,-7.03495E-03,-1.70299E-03,-8.71749E-05,
     &        3.45847E-04,-8.54247E-05,-8.60884E-03,-1.39613E-03,
     &       -1.93140E-03,-6.49934E-05, 2.97910E-04, 1.28787E-02,
     &        5.16555E-03, 1.11050E-03, 2.37807E-04,-2.11483E-04,
     &       -1.06409E-02,-3.21467E-03,-2.80342E-03,-1.01418E-03,
     &        5.79371E-03,-1.06171E-03,-8.75644E-04,-7.33856E-04,
     &        1.00900E-02,-1.56214E-03,-3.90800E-04, 5.38920E-03,
     &       -8.90467E-04, 3.07353E-04,-3.35475E-03,-3.77317E-03,
     &       -8.41473E-03, 9.25778E-04, 5.16587E-03, 3.51614E-03/
C     long 75deg, sep_eq
      DATA (BSOL(6,3,J),J=1,81)/ 7.35377E-03,
     &        7.69604E-04,-2.15855E-02, 5.07412E-03, 1.54882E-02,
     &       -1.54596E-02,-2.27666E-02,-6.34219E-03, 8.56894E-03,
     &        1.48172E-02, 6.53249E-03,-1.19008E-02,-1.30438E-02,
     &        4.45463E-03, 5.07866E-03, 3.14396E-03,-2.51693E-03,
     &       -3.14461E-03, 1.55530E-03, 1.48989E-02, 1.74278E-03,
     &       -1.35929E-02,-7.74026E-04, 5.77234E-03, 3.31053E-03,
     &       -1.20021E-02,-1.14828E-02, 1.54498E-03, 2.67856E-03,
     &       -1.83941E-03,-2.10524E-04, 5.09524E-04,-3.53087E-03,
     &        1.95348E-02, 4.36817E-03,-5.07609E-04, 5.78539E-04,
     &       -2.90308E-04,-1.64605E-03, 1.26452E-03,-9.09334E-04,
     &        9.00348E-05, 3.94312E-04, 2.73196E-04,-2.64683E-05,
     &       -1.38505E-02,-1.11610E-02,-9.80661E-04, 1.32689E-03,
     &        4.20003E-04,-3.36509E-04,-1.61130E-02,-3.62340E-03,
     &       -3.00981E-03,-3.70554E-04, 6.94470E-04, 1.45078E-02,
     &        7.98190E-03, 6.64324E-04,-2.40363E-04, 3.23848E-04,
     &       -7.28884E-03,-3.57143E-04,-2.11795E-03,-1.17565E-03,
     &        1.89703E-03, 8.62240E-04, 3.00343E-04,-1.22403E-05,
     &        1.58219E-02, 2.16094E-04,-6.32975E-05,-1.46038E-03,
     &       -1.22541E-03, 9.77195E-04, 5.46012E-03,-5.29740E-04,
     &       -5.82566E-03, 1.91858E-03, 8.58155E-04,-8.56821E-04/
C     long 90deg, sep_eq
      DATA (BSOL(7,3,J),J=1,81)/ 1.90215E-02,
     &       -9.11187E-03,-4.75918E-02, 2.97095E-02, 3.31282E-02,
     &       -2.99382E-02,-2.39805E-02,-1.32419E-02,-2.28843E-03,
     &        1.02508E-02, 1.17326E-02,-1.07831E-02,-1.76183E-02,
     &        7.20769E-04, 7.43225E-03, 1.64152E-03,-4.11887E-03,
     &       -1.85936E-02,-3.10665E-03, 1.85575E-02, 3.63270E-03,
     &       -1.29801E-02,-1.50922E-03, 6.02532E-03, 2.89141E-03,
     &       -1.25087E-02,-1.32616E-02, 1.63130E-03, 2.37024E-03,
     &       -1.71544E-03, 5.00576E-05, 6.13137E-06,-6.15252E-03,
     &        1.95989E-02, 4.06323E-03, 1.18410E-03, 4.26347E-04,
     &       -1.02589E-03,-1.16971E-03, 1.02617E-05, 5.00122E-04,
     &       -9.13125E-04, 2.29762E-05, 7.98041E-04, 2.22248E-05,
     &       -7.94072E-03,-5.04721E-03,-9.58497E-04, 1.64478E-03,
     &        7.21868E-04,-4.27543E-04,-2.34684E-02,-2.99554E-03,
     &       -2.52982E-03,-3.07592E-04, 4.76140E-04, 8.62312E-03,
     &        4.10842E-03, 5.88717E-04, 4.65732E-05, 1.32119E-04,
     &       -7.75191E-03,-1.67000E-03,-1.42674E-03,-9.30612E-04,
     &        1.32945E-02, 3.01843E-03, 9.46824E-04, 6.25687E-04,
     &        9.30084E-03, 1.95154E-03, 6.92827E-04,-9.48613E-03,
     &        9.93252E-04, 5.78076E-04, 8.40998E-03, 1.87394E-03,
     &        4.00838E-03, 1.80755E-03,-2.03126E-03,-1.00813E-02/
C     long 105deg, sep_eq
      DATA (BSOL(8,3,J),J=1,81)/ 2.26836E-02,
     &       -6.29131E-03,-5.78721E-02, 3.34238E-02, 2.70311E-02,
     &       -3.32889E-02,-4.55959E-03,-2.50605E-03,-2.09813E-03,
     &        1.35360E-02, 6.35202E-03,-1.01869E-02,-1.55391E-02,
     &       -2.61111E-03, 5.07180E-03,-3.91684E-04,-2.18458E-03,
     &       -1.80156E-02,-6.92320E-03, 2.02673E-02, 4.39387E-03,
     &       -1.13485E-02,-1.40619E-03, 2.70005E-03, 7.56745E-04,
     &       -7.43569E-04,-7.39036E-03,-4.30707E-04,-1.15796E-03,
     &       -1.26511E-03, 3.66788E-04,-8.85592E-04,-1.13455E-02,
     &        1.43437E-02, 2.59650E-03, 2.37167E-03, 2.61396E-04,
     &       -1.60443E-03,-2.18073E-04, 2.20302E-04, 3.33155E-03,
     &       -1.03381E-03, 6.07308E-04,-3.71297E-05,-4.85671E-04,
     &       -1.12479E-03,-1.08281E-03,-1.46239E-03, 1.67315E-03,
     &        9.61618E-04, 1.70722E-04,-2.73744E-02,-1.85978E-03,
     &       -2.38646E-03, 3.86910E-04, 5.41854E-04,-1.97367E-03,
     &       -3.87486E-03,-2.98582E-04, 3.70749E-04, 3.02497E-04,
     &        8.28236E-04,-2.27217E-03,-1.27249E-03,-4.87070E-04,
     &        2.21855E-02, 3.38140E-03, 1.52316E-03, 3.18487E-04,
     &        4.93819E-04, 2.50697E-04, 3.50529E-04,-5.85367E-03,
     &        1.37993E-03,-4.03161E-04, 3.11548E-03, 1.34280E-03,
     &        6.86131E-04, 1.13941E-03,-6.46794E-04,-1.65065E-02/
C     long 120deg, sep_eq
      DATA (BSOL(9,3,J),J=1,81)/ 1.80986E-02,
     &        9.24935E-04,-4.12865E-02, 1.70269E-02, 1.58527E-02,
     &       -1.50198E-02,-2.07718E-02,-5.31906E-03, 2.19909E-02,
     &        1.02868E-02,-3.57567E-03,-7.33414E-03,-6.06554E-03,
     &       -3.64819E-03, 2.39942E-03, 1.70161E-03,-2.23082E-03,
     &       -1.60029E-02,-6.16589E-03, 1.77461E-02, 4.27574E-03,
     &       -8.44250E-03,-7.53262E-04, 2.26648E-03, 1.55096E-04,
     &        1.37434E-02,-5.44284E-03,-2.46771E-03,-2.46874E-03,
     &       -8.17166E-04, 1.99144E-04,-2.93484E-04,-2.46937E-03,
     &        8.18678E-03, 3.59535E-03, 2.20283E-03, 1.23394E-05,
     &       -5.79211E-04, 4.41785E-04,-3.04720E-03, 4.39996E-03,
     &        4.58707E-04, 1.66484E-04,-4.94794E-04, 1.74728E-05,
     &       -1.82112E-02,-2.79456E-03,-2.05944E-03, 1.19296E-03,
     &        1.01566E-03, 1.89086E-04,-1.68202E-02, 2.18993E-03,
     &       -1.36394E-03, 9.45696E-04,-7.17948E-05, 9.90524E-03,
     &       -5.56550E-03,-1.03119E-03, 5.78756E-04, 1.03372E-03,
     &        4.34689E-03,-2.55056E-03,-1.15202E-03,-1.43465E-04,
     &        1.82564E-03,-1.25469E-03, 6.60984E-04,-2.07591E-04,
     &        3.06833E-03, 8.60174E-04, 5.51423E-05,-3.59391E-03,
     &       -1.01833E-03,-3.93874E-04,-4.93666E-03,-9.86076E-04,
     &       -2.77969E-03, 1.71560E-04, 6.87583E-03,-1.52120E-02/
C     long 135deg, sep_eq
      DATA (BSOL(10,3,J),J=1,81)/ 1.84869E-02,
     &       -5.88939E-03,-3.25845E-02, 1.84170E-02, 2.63304E-02,
     &        1.42987E-03,-2.07121E-02,-2.40502E-02, 1.61652E-02,
     &        1.36029E-02,-1.13823E-02,-8.16238E-03, 3.47435E-03,
     &       -9.60138E-04, 1.65806E-03, 5.30516E-03,-3.05536E-03,
     &       -9.47066E-03,-9.93961E-04, 1.39133E-02, 4.14796E-03,
     &       -7.85825E-03,-1.30486E-03, 2.29819E-03, 9.03188E-04,
     &        1.62237E-02,-6.03788E-03,-4.04218E-04,-3.10641E-03,
     &       -2.00279E-04,-5.10203E-04,-4.74299E-05, 2.67615E-03,
     &        8.76260E-03, 6.46179E-03, 3.81145E-03, 2.67215E-04,
     &       -3.11218E-04, 2.81149E-06,-7.61678E-03, 4.52366E-03,
     &        2.16913E-03,-3.13891E-04,-1.02989E-04, 3.33841E-04,
     &       -2.70635E-02,-3.00960E-03,-1.32648E-03, 9.59626E-04,
     &        4.85232E-04, 3.40716E-04,-1.30710E-02, 4.20585E-03,
     &       -5.75468E-04, 1.13933E-03, 1.81657E-04, 1.31887E-02,
     &       -5.08359E-03, 5.98655E-04, 1.86632E-03, 6.64552E-04,
     &        1.88815E-03,-2.38724E-03,-2.16976E-03,-1.93473E-04,
     &       -2.47574E-03,-2.40551E-03,-3.36854E-04,-6.45998E-04,
     &        2.25686E-03,-1.01067E-03, 1.00465E-04,-4.92913E-03,
     &       -2.24955E-03, 1.52014E-04,-9.62557E-03,-2.58446E-03,
     &       -3.42050E-03,-2.16781E-04, 8.34707E-03,-5.66006E-03/
C     long 150deg, sep_eq
      DATA (BSOL(11,3,J),J=1,81)/ 2.62141E-02,
     &        1.98334E-03,-4.62956E-02, 4.40400E-03, 2.83273E-02,
     &        1.42246E-02, 6.07454E-03,-8.92256E-03, 6.45744E-03,
     &        2.43532E-02,-1.37319E-02,-5.12795E-03, 7.38850E-03,
     &       -5.56093E-04, 5.42398E-05, 4.49860E-03,-4.14861E-04,
     &        1.32357E-02,-5.60457E-03, 1.12739E-02, 4.76552E-03,
     &       -1.00237E-02,-1.68389E-03, 4.65259E-03,-1.12565E-03,
     &        1.36531E-02,-4.80127E-03, 3.63411E-03,-1.98340E-03,
     &       -1.09274E-03,-4.39581E-04,-3.48735E-04, 7.09232E-03,
     &        7.59960E-03, 7.90560E-03, 5.27190E-03,-7.46566E-04,
     &       -1.02415E-03,-7.51219E-04, 7.31882E-03, 2.51230E-03,
     &        2.43005E-03,-8.93555E-04, 6.67761E-04, 2.33488E-04,
     &       -2.25765E-02,-2.01033E-03, 1.51142E-03, 4.69550E-04,
     &        8.72484E-04, 5.21895E-05,-9.05652E-03, 1.33588E-03,
     &       -3.92717E-04, 4.83725E-04, 7.81109E-04, 1.63783E-02,
     &       -4.39521E-03, 4.53542E-04, 1.49902E-03,-1.08810E-04,
     &       -6.62410E-03,-1.42667E-03,-8.24712E-04,-2.11279E-04,
     &       -2.25599E-03,-4.90297E-05, 2.92725E-04,-9.57261E-05,
     &        3.81664E-03,-2.51688E-03,-9.19413E-05, 5.80064E-03,
     &       -1.83131E-03, 9.80057E-04,-3.07077E-03,-2.34820E-03,
     &       -5.76971E-03,-2.09486E-03, 7.30044E-03,-2.32785E-03/
C     long 165deg, sep_eq
      DATA (BSOL(12,3,J),J=1,81)/ 3.98443E-02,
     &        5.83676E-03,-7.49783E-02,-1.14393E-02, 2.32680E-02,
     &        2.29529E-02, 1.67244E-02, 7.69736E-03,-6.14063E-03,
     &        1.78764E-02, 6.76462E-04,-2.75935E-04, 3.40177E-03,
     &       -3.28333E-03, 2.52691E-03, 3.33003E-03,-7.85949E-04,
     &        6.23755E-03,-8.13896E-03, 1.09443E-02, 4.22190E-03,
     &       -9.35619E-03,-2.05748E-03, 4.60135E-03,-1.20749E-03,
     &        1.50672E-02,-8.46917E-03, 2.60579E-03,-1.86569E-03,
     &       -2.53003E-03, 8.43871E-04, 1.23017E-04, 9.54393E-03,
     &        5.13339E-03, 1.00468E-02, 4.39121E-03,-3.08595E-04,
     &       -1.21649E-03,-9.25448E-04, 1.40763E-02, 5.36820E-03,
     &        1.11433E-03,-9.71105E-04, 8.66911E-04,-4.42710E-05,
     &       -1.66347E-03,-1.10805E-03, 2.26796E-03, 3.24940E-04,
     &        1.63522E-03,-4.94987E-04,-1.18565E-02,-3.08346E-03,
     &        1.16603E-03, 6.67457E-04, 8.65880E-04, 1.67383E-02,
     &        1.79900E-03, 7.42595E-04, 4.88819E-04,-2.92372E-04,
     &       -9.90667E-03,-3.35698E-04,-7.82346E-04,-9.88837E-05,
     &       -5.55191E-03, 7.36999E-04, 1.08500E-04, 1.77223E-05,
     &        8.35036E-03,-4.23419E-04, 2.11385E-04, 1.23756E-03,
     &       -3.81688E-03, 1.39618E-03,-2.47881E-03,-2.30638E-03,
     &        1.49524E-03,-3.82039E-04, 5.35558E-03, 3.69991E-03/
C     long 180deg, sep_eq
      DATA (BSOL(13,3,J),J=1,81)/ 4.66111E-02,
     &       -1.07092E-03,-8.41040E-02, 4.48984E-03, 3.22824E-02,
     &        9.62209E-03, 1.00233E-02,-3.77229E-03,-7.83762E-03,
     &        1.27812E-03, 8.55502E-03, 1.32175E-04,-1.24087E-03,
     &       -2.85161E-03, 4.85965E-03, 2.27714E-03,-3.96578E-03,
     &       -1.43524E-02,-8.75492E-03, 9.02055E-03, 3.47986E-03,
     &       -7.58410E-03,-5.46895E-04, 2.83078E-03,-4.96084E-04,
     &        1.52501E-02,-9.51586E-03,-7.05931E-04,-2.73385E-03,
     &       -2.09366E-03, 2.41202E-03, 8.65272E-04, 6.80265E-03,
     &        1.01793E-02, 9.49100E-03, 4.41390E-03,-6.00821E-04,
     &       -1.85457E-03,-2.07712E-04, 7.65494E-03, 4.49627E-03,
     &       -5.33825E-04, 2.56097E-04, 3.98677E-04, 2.14485E-04,
     &        9.04439E-04,-5.60589E-03, 1.61962E-03, 8.77400E-05,
     &        1.57985E-03,-2.45519E-04,-1.71594E-02,-2.96038E-04,
     &        1.70868E-03, 1.18425E-03, 5.94977E-04, 1.30545E-02,
     &        6.51653E-03, 1.72174E-03, 7.32530E-04, 3.46025E-05,
     &       -1.99528E-03,-1.61199E-03,-5.59962E-04, 1.02231E-04,
     &       -9.31623E-04,-1.27101E-03, 9.41836E-04,-8.26968E-05,
     &        1.07682E-02, 1.84903E-04, 6.25985E-04,-2.79638E-03,
     &       -2.92380E-03, 5.94470E-04,-5.12219E-03,-2.58598E-04,
     &        4.68337E-03, 1.07612E-03, 4.76441E-04, 5.10677E-03/
C     long 195deg, sep_eq
      DATA (BSOL(14,3,J),J=1,81)/ 4.28072E-02,
     &        1.14892E-03,-7.36112E-02, 9.96609E-03, 3.79222E-02,
     &        3.77288E-03, 6.50769E-03,-8.96017E-03,-1.24629E-02,
     &        2.04228E-03, 1.07553E-02,-4.72970E-03,-3.47747E-03,
     &       -2.11016E-03, 3.53473E-03, 3.36295E-03,-3.51222E-03,
     &       -2.33866E-02,-7.79515E-03, 1.14819E-02, 3.04973E-03,
     &       -1.05909E-02, 3.72552E-04, 6.47205E-03,-7.36722E-05,
     &        1.65498E-02,-6.03338E-03,-1.24274E-03,-1.93951E-03,
     &       -2.51740E-03, 1.64612E-03, 8.92120E-04,-2.87042E-03,
     &        1.46014E-02, 6.39670E-03, 4.75429E-03,-7.13416E-04,
     &       -2.34928E-03, 6.76930E-04,-2.14655E-03, 4.76408E-03,
     &        8.09422E-04, 1.51114E-03,-2.24306E-04,-9.92884E-05,
     &       -1.54110E-03,-9.66220E-03, 9.03733E-04, 2.69161E-04,
     &        1.08549E-03,-2.28296E-04,-1.15310E-02, 2.50907E-03,
     &        3.72380E-04, 6.01435E-04, 2.20206E-04, 1.56806E-02,
     &        3.94130E-03, 1.09031E-03, 7.37829E-04,-3.27702E-04,
     &        6.46816E-03, 1.37519E-03, 4.80252E-04, 3.24377E-04,
     &        3.96329E-04,-1.49942E-03, 7.50302E-04,-9.77232E-05,
     &        1.35919E-02,-5.65009E-04,-3.60261E-04,-5.07643E-03,
     &       -1.03359E-04, 3.25146E-04,-4.33134E-03,-2.35593E-03,
     &        1.17273E-04, 6.30587E-04,-4.03717E-03,-6.67901E-03/
C     long 210deg, sep_eq
      DATA (BSOL(15,3,J),J=1,81)/ 4.20885E-02,
     &        3.38805E-03,-6.48043E-02, 7.15007E-04, 1.68416E-02,
     &        3.25857E-04, 1.30397E-02, 3.97705E-04,-8.28670E-03,
     &        8.37520E-03, 1.29330E-02,-8.97461E-03,-6.37820E-03,
     &       -4.38621E-04, 3.00406E-03, 5.04101E-03,-1.78573E-03,
     &       -2.67398E-02,-1.12866E-03, 1.39729E-02, 1.44823E-03,
     &       -1.37223E-02, 2.15612E-03, 8.05391E-03, 1.38795E-03,
     &        2.56278E-02,-1.82510E-03, 1.23423E-03,-1.50164E-04,
     &       -3.94577E-03, 1.63382E-04, 1.19840E-03, 3.57081E-03,
     &        2.19555E-02, 6.59425E-03, 2.19056E-03,-7.14447E-04,
     &       -1.32183E-03, 3.77955E-04,-9.32538E-03, 5.27109E-03,
     &        1.55148E-03, 2.47918E-03,-4.43618E-04,-4.47008E-04,
     &       -4.17215E-03,-9.56768E-03, 6.57804E-04, 5.33455E-04,
     &        1.24226E-04,-1.64101E-04,-1.59361E-02, 7.66856E-04,
     &        1.07048E-03, 6.48388E-04, 4.11762E-04, 1.91168E-02,
     &        1.10193E-03, 5.57916E-04,-2.83878E-04,-1.56220E-04,
     &        7.51028E-03, 2.59184E-03,-2.47184E-04, 2.55299E-06,
     &        6.67035E-03,-8.45917E-04,-6.70679E-04,-2.83387E-05,
     &        1.36776E-02,-1.20666E-03,-1.13361E-03,-2.46096E-03,
     &       -1.52154E-03, 1.65419E-03,-5.43785E-03,-4.33748E-03,
     &       -6.20542E-03, 9.93889E-04,-6.27096E-03,-4.35399E-03/
C     long 225deg, sep_eq
      DATA (BSOL(16,3,J),J=1,81)/ 3.82085E-02,
     &        8.49949E-03,-5.09478E-02,-2.87008E-03, 1.67245E-03,
     &       -1.52358E-02,-7.15599E-03,-5.22094E-03, 1.30813E-02,
     &        6.44685E-03, 1.49873E-03,-9.47149E-03,-4.33288E-03,
     &        5.08601E-03, 2.28414E-03, 4.81659E-04,-2.59910E-03,
     &       -2.10051E-02, 2.55875E-03, 1.27646E-02,-3.20669E-03,
     &       -1.29266E-02, 3.05477E-03, 5.97874E-03, 1.73900E-03,
     &        2.94521E-02,-3.67833E-05, 1.59517E-03, 1.23106E-03,
     &       -3.34341E-03,-3.17070E-04, 1.48463E-03, 1.43819E-02,
     &        2.07267E-02, 3.94496E-03, 3.54231E-04,-3.41862E-05,
     &       -2.90910E-04,-3.51355E-04,-1.48673E-02, 2.80782E-03,
     &        4.45160E-03, 1.82515E-03, 4.95722E-05, 5.87015E-05,
     &       -1.02061E-02,-9.04488E-03, 1.75498E-03, 1.39476E-03,
     &       -2.15585E-04, 2.53076E-05,-5.81519E-03,-1.86596E-03,
     &        1.25809E-03, 6.57979E-04, 2.88440E-04, 2.56566E-02,
     &        3.30428E-03,-1.66190E-04,-7.16356E-04, 2.38179E-04,
     &        4.42530E-03, 6.96807E-04, 8.19826E-04,-2.68810E-04,
     &        1.51908E-02,-1.65354E-03,-1.12692E-03, 5.00691E-04,
     &        1.24740E-02,-1.98627E-03,-6.71460E-05,-3.27883E-03,
     &       -4.03229E-03, 5.12174E-04,-6.03067E-03,-4.98460E-03,
     &       -3.59140E-03, 2.05971E-03,-8.67919E-03,-2.03830E-03/
C     long 240deg, sep_eq
      DATA (BSOL(17,3,J),J=1,81)/ 3.57227E-02,
     &        1.88689E-03,-5.44326E-02, 2.79885E-02, 1.22823E-02,
     &       -4.31461E-02,-2.78936E-02,-3.91406E-03, 1.36861E-02,
     &        7.83947E-03,-3.76829E-03,-5.54966E-03, 2.91702E-03,
     &        6.73581E-03, 2.10105E-03,-2.18036E-03,-3.65568E-03,
     &       -1.51369E-02, 5.73623E-03, 7.42911E-03,-4.61142E-03,
     &       -7.50286E-03, 1.02269E-04, 5.77238E-03, 2.49719E-03,
     &        2.22527E-02,-1.17273E-03, 2.50364E-03, 3.34432E-03,
     &       -3.37820E-03,-5.03026E-04, 1.12654E-03, 6.64179E-03,
     &        1.08665E-02, 8.95476E-04,-3.90340E-04, 2.13411E-04,
     &       -5.74864E-04, 8.16480E-05,-7.29622E-03,-1.19291E-03,
     &        6.34295E-03, 7.26330E-04,-6.57591E-07, 1.80335E-04,
     &       -7.21261E-03,-8.35445E-03, 1.84925E-03, 1.37294E-03,
     &        4.46515E-04,-1.18308E-04,-2.46965E-03, 1.18967E-04,
     &        8.71523E-05,-6.07251E-06,-9.18992E-05, 2.05939E-02,
     &        5.73262E-03,-1.81979E-03,-1.72586E-04, 4.15711E-05,
     &        1.96538E-03, 2.41588E-03, 7.88647E-04,-4.70055E-04,
     &        1.01887E-02,-2.74825E-03,-1.55784E-03, 3.96728E-04,
     &        9.58010E-03,-2.14229E-03,-4.54926E-05,-1.14491E-02,
     &       -2.17338E-03,-7.19994E-04,-4.04108E-03,-2.02874E-03,
     &       -7.58481E-03, 1.19933E-03,-1.34202E-02,-5.01184E-03/
C     long 255deg, sep_eq
      DATA (BSOL(18,3,J),J=1,81)/ 3.70074E-02,
     &       -1.17593E-02,-7.98613E-02, 5.23119E-02, 4.65517E-02,
     &       -5.93458E-02,-3.33060E-02, 1.20876E-02, 1.03597E-02,
     &        1.53431E-03,-4.83508E-03,-6.84996E-03, 7.26286E-03,
     &        3.86876E-03, 1.34908E-03, 1.23023E-03,-3.51690E-03,
     &       -1.40958E-02, 5.84726E-03, 4.82778E-03,-4.60589E-03,
     &       -6.50938E-03,-2.14665E-04, 6.11410E-03, 2.89743E-03,
     &        2.20465E-02, 2.24186E-03, 3.83940E-03, 3.29088E-03,
     &       -3.73172E-03, 7.71083E-05, 4.80324E-04, 6.44154E-03,
     &        1.38398E-02, 1.91518E-03, 6.68552E-05,-1.97153E-03,
     &       -7.98388E-04, 1.26157E-03,-4.95530E-03,-1.05268E-03,
     &        2.98811E-03,-5.55325E-04,-1.44505E-04, 5.49490E-05,
     &       -8.30592E-03,-6.33024E-03, 8.76838E-04, 8.57145E-04,
     &        1.02186E-03,-3.72488E-04,-2.89786E-03, 1.02679E-03,
     &       -1.02370E-03, 2.56668E-04, 1.57791E-04, 1.91583E-02,
     &        3.56299E-03,-2.43560E-03, 6.08126E-04,-1.35168E-04,
     &       -3.80688E-03, 1.33113E-03,-1.05520E-03,-5.72940E-04,
     &        7.73406E-03, 1.66160E-04, 6.41160E-05, 5.87752E-04,
     &        9.23377E-03, 7.89311E-05,-8.69994E-05,-5.00626E-03,
     &       -1.72419E-04, 5.40815E-04,-7.07414E-03,-1.87333E-03,
     &       -1.56872E-02,-3.28609E-04,-5.85952E-03,-1.19712E-03/
C     long 270deg, sep_eq
      DATA (BSOL(19,3,J),J=1,81)/ 4.70969E-02,
     &       -1.24217E-02,-1.03042E-01, 5.08143E-02, 7.32673E-02,
     &       -5.12612E-02,-3.99148E-02, 8.93522E-03, 6.48268E-03,
     &       -1.83172E-02,-6.34509E-04,-2.92041E-03, 5.90293E-03,
     &        3.21083E-03,-2.46419E-05, 9.77665E-04,-2.28749E-03,
     &       -2.04450E-02, 2.79040E-03, 1.10738E-02,-3.21415E-03,
     &       -7.38034E-03, 2.85724E-04, 4.41486E-03, 1.44389E-03,
     &        2.56894E-02, 2.15017E-03, 2.96145E-03, 4.02813E-03,
     &       -2.36720E-03, 4.77406E-04, 2.49509E-04, 1.22054E-02,
     &        1.92421E-02, 5.57125E-03, 6.66231E-04,-2.69345E-03,
     &       -1.61111E-03, 1.00411E-03,-1.09471E-02, 4.25270E-03,
     &        3.29112E-03,-1.40513E-04,-1.43534E-04, 5.58139E-05,
     &       -1.23727E-02,-3.55749E-03,-3.95278E-04,-3.75826E-04,
     &        1.05249E-03, 2.27898E-05,-4.69670E-03,-1.22813E-03,
     &       -4.01388E-04, 6.15132E-04, 4.54229E-04, 2.74594E-02,
     &        6.56652E-03,-1.29323E-03, 8.66342E-04, 2.05825E-05,
     &        3.84432E-04, 1.34080E-03, 2.31604E-04,-3.85937E-04,
     &        8.12940E-03, 2.20162E-03, 8.37341E-04, 3.54674E-04,
     &        1.39142E-02, 2.15734E-03,-5.32254E-04,-5.22761E-04,
     &       -2.88331E-04, 3.86097E-04,-5.65007E-03,-3.87489E-03,
     &       -1.26838E-02,-1.14839E-04,-4.75755E-03,-1.54120E-03/
C     long 285deg, sep_eq
      DATA (BSOL(20,3,J),J=1,81)/ 4.86915E-02,
     &       -1.98078E-03,-1.03667E-01, 3.93094E-02, 8.26453E-02,
     &       -3.29718E-02,-4.16218E-02, 7.46487E-04,-5.72825E-03,
     &       -1.90700E-02, 4.60652E-03, 5.61465E-03, 4.35651E-03,
     &        4.61656E-03,-1.44590E-05,-2.67969E-04,-1.00721E-03,
     &       -2.10698E-02, 4.55877E-04, 1.43827E-02,-1.62564E-03,
     &       -8.21815E-03, 2.68853E-03, 4.83429E-03,-1.08159E-03,
     &        2.59047E-02,-2.36096E-03, 4.13914E-04, 4.67255E-03,
     &       -1.26058E-03, 7.33679E-04, 1.39889E-03,-4.45138E-04,
     &        1.66310E-02, 8.15091E-03, 4.77194E-04,-2.07571E-03,
     &       -1.79102E-03,-2.71158E-04,-2.31513E-02, 3.06159E-03,
     &        3.35375E-03, 1.06294E-03,-2.31017E-04,-1.14382E-04,
     &       -5.28729E-03,-2.59377E-03,-1.60384E-03,-6.08067E-04,
     &        6.92999E-04, 1.04343E-04, 9.93712E-04,-5.21039E-04,
     &        1.13872E-03, 7.44310E-04, 3.30837E-04, 2.82160E-02,
     &        8.91903E-03,-8.59995E-04, 5.01780E-04, 3.12872E-04,
     &       -1.26688E-03, 3.61134E-03,-1.52494E-04, 2.09785E-05,
     &        5.52350E-03, 1.66528E-04,-2.84424E-04,-1.31362E-04,
     &        1.04510E-02,-1.33622E-04,-2.56956E-04,-3.02729E-03,
     &        1.14772E-03, 8.79348E-04,-5.52303E-03,-1.94768E-03,
     &       -9.61881E-03,-4.58084E-04,-1.14532E-02,-4.45353E-05/
C     long 300deg, sep_eq
      DATA (BSOL(21,3,J),J=1,81)/ 4.03040E-02,
     &        7.16088E-03,-9.49092E-02, 1.42825E-02, 7.34321E-02,
     &        1.32494E-04,-2.21645E-02,-2.51065E-03,-1.24088E-02,
     &       -2.68053E-03, 1.00325E-03, 4.99095E-03, 5.54351E-03,
     &        5.41615E-03,-8.15573E-04,-2.86583E-03, 9.34746E-04,
     &       -8.60882E-03, 4.11194E-03, 1.39476E-02,-6.88801E-03,
     &       -1.15332E-02, 5.60928E-03, 7.49895E-03,-1.62873E-03,
     &        1.88540E-02, 2.50773E-03, 1.10561E-03, 1.53785E-03,
     &       -2.03660E-03, 5.69679E-04, 2.06949E-03,-1.92050E-02,
     &        6.42907E-03, 6.51172E-03, 1.66372E-03, 3.71025E-05,
     &       -8.80873E-04,-6.81217E-04,-3.42450E-02,-1.70704E-03,
     &        2.52828E-03, 1.41651E-03, 2.52119E-05,-4.31152E-05,
     &       -5.29940E-03,-3.12272E-03,-1.64279E-03, 2.69505E-04,
     &        4.37176E-04, 1.68746E-05,-2.36001E-03,-1.55061E-05,
     &        8.01164E-04, 5.26093E-04, 2.37666E-04, 2.34521E-02,
     &        6.07127E-03,-1.47885E-03,-2.62369E-04, 3.16454E-04,
     &       -3.44014E-03, 2.66559E-03,-4.67507E-04,-2.91032E-04,
     &        4.78744E-03, 9.77385E-04,-2.07866E-04, 4.84087E-04,
     &        6.53857E-03,-2.52565E-03,-1.88496E-04,-8.95612E-04,
     &        6.64367E-04, 1.36065E-04,-7.31951E-04,-1.61072E-03,
     &        1.77534E-03,-7.00290E-04,-4.38165E-03, 3.64227E-03/
C     long 315deg, sep_eq
      DATA (BSOL(22,3,J),J=1,81)/ 3.77821E-02,
     &        1.35111E-02,-8.64499E-02,-1.36868E-02, 6.08286E-02,
     &        3.19420E-02,-8.54890E-03,-5.37291E-03,-6.25681E-03,
     &        2.93560E-03,-8.52155E-03,-1.18146E-03, 4.03988E-03,
     &        5.18709E-03,-9.04098E-05,-3.00732E-03, 1.74017E-03,
     &        4.69501E-03, 9.02309E-03, 1.34566E-02,-5.43495E-03,
     &       -1.10602E-02, 2.33986E-03, 8.28390E-03, 1.13973E-03,
     &        1.35597E-02, 5.98050E-03, 1.85928E-03, 8.12048E-04,
     &       -1.59327E-03, 1.38086E-04, 1.63335E-03,-1.62136E-02,
     &       -5.35806E-04, 2.80598E-03, 2.14440E-04, 1.75621E-03,
     &       -2.22546E-05,-1.41729E-03,-1.41427E-02,-3.79609E-03,
     &        2.01587E-03, 5.83891E-04, 6.50530E-04, 1.28874E-04,
     &       -1.02064E-02,-1.55977E-03,-7.51531E-04, 9.19856E-04,
     &        9.42503E-04, 1.96022E-04,-1.53881E-02,-2.79458E-03,
     &       -1.80393E-03, 5.49565E-04, 6.81249E-04, 1.79125E-02,
     &        4.12190E-03, 5.08813E-04,-5.38431E-04, 3.98601E-05,
     &        4.85828E-03, 9.88276E-04, 1.51565E-03,-3.69651E-04,
     &        4.45375E-03, 1.71409E-03, 5.02028E-04, 6.15408E-04,
     &        8.12255E-03,-8.94560E-04,-3.10838E-04,-6.74062E-03,
     &        2.44426E-04,-1.10365E-03, 8.19232E-03,-2.91515E-03,
     &       -4.65991E-04,-1.26546E-03, 4.57996E-03, 2.69031E-03/
C     long 330deg, sep_eq
      DATA (BSOL(23,3,J),J=1,81)/ 3.34942E-02,
     &        7.32798E-03,-8.16498E-02,-1.48837E-02, 5.94861E-02,
     &        4.19802E-02,-1.50876E-02,-6.99708E-03,-7.06333E-03,
     &       -3.31926E-04,-1.36820E-02,-9.73355E-04, 7.06178E-03,
     &        2.74325E-03,-1.61919E-03, 4.27415E-04, 2.09266E-03,
     &        2.60067E-03, 1.04941E-02, 1.23391E-02,-4.33975E-04,
     &       -7.70165E-03,-1.16746E-03, 5.85363E-03, 2.79026E-03,
     &        8.23341E-03, 4.68062E-03, 7.41757E-04, 1.52515E-03,
     &       -1.10812E-04,-1.82030E-04, 6.97290E-04,-5.16479E-03,
     &        1.29378E-03, 3.41143E-03,-2.98660E-04, 1.60739E-03,
     &        2.01578E-04,-1.79016E-03, 5.48767E-03,-2.79423E-03,
     &        2.27182E-03,-8.97097E-04,-1.18301E-04, 2.56911E-04,
     &       -1.31276E-02, 1.37362E-03,-2.77921E-04, 8.52671E-04,
     &        5.46354E-04, 1.81680E-04,-1.22361E-02,-6.73964E-04,
     &       -2.17029E-03, 3.61227E-04, 4.90059E-04, 1.44129E-02,
     &        2.50471E-03, 1.75334E-03, 3.26724E-05,-1.15333E-04,
     &        2.96697E-03,-7.13697E-04, 8.98646E-04, 7.25056E-05,
     &       -3.67237E-04, 1.74784E-03, 1.78146E-03, 2.80989E-04,
     &        1.24177E-02, 1.16057E-03, 5.51199E-04,-9.15908E-03,
     &        8.04103E-04,-1.06493E-04, 9.34879E-03,-1.23426E-03,
     &       -5.71190E-03,-2.12682E-03, 2.99064E-04,-3.53077E-04/
C     long 345deg, sep_eq
      DATA (BSOL(24,3,J),J=1,81)/ 2.92621E-02,
     &        6.64660E-04,-7.29533E-02,-8.53326E-03, 5.42472E-02,
     &        3.61127E-02,-1.27649E-02, 2.05498E-03,-8.21013E-03,
     &       -4.91121E-03,-7.99081E-03, 4.14099E-03, 6.88445E-03,
     &        2.06204E-03,-1.51817E-03, 8.52961E-04, 2.00560E-03,
     &        2.61408E-03, 8.28206E-03, 9.04659E-03,-1.51052E-03,
     &       -5.05133E-03, 1.16021E-03, 5.35558E-03, 7.62878E-04,
     &        6.40212E-03, 1.70337E-03, 4.47462E-04, 1.61442E-03,
     &        1.71370E-04,-1.13492E-04, 1.03342E-03,-5.05474E-03,
     &       -8.75041E-04, 4.92166E-03, 2.62411E-03, 1.70407E-03,
     &       -5.11034E-04,-1.53135E-03, 2.34970E-03,-2.59688E-03,
     &        2.95115E-03,-9.17595E-04,-3.25695E-04, 6.75131E-05,
     &       -3.08046E-03, 2.98596E-03,-1.59781E-03,-6.65992E-04,
     &        7.31421E-05, 1.59226E-04,-5.82600E-03,-1.62114E-04,
     &       -1.44359E-03,-1.48960E-04, 3.26519E-04, 1.38965E-02,
     &        3.67717E-03, 1.28780E-03, 4.50283E-05, 1.04637E-04,
     &        9.90852E-04,-8.90122E-04, 1.91810E-05,-1.03685E-04,
     &       -4.13772E-03, 1.23356E-03, 1.58814E-03,-2.03944E-04,
     &        1.41223E-02, 8.17142E-04, 9.51662E-04,-1.27622E-05,
     &        9.16091E-04,-5.00135E-04, 3.41828E-03,-2.46283E-04,
     &        1.68665E-03,-1.15402E-03, 1.32003E-03,-2.85578E-03/
C     long 0deg, dec_so
      DATA (BSOL(1,4,J),J=1,81)/ 2.29963E-02,
     &        1.71111E-02,-7.29194E-02,-2.63185E-02, 7.57215E-02,
     &       -6.62560E-03,-4.10492E-02, 5.23003E-02,-3.16641E-02,
     &        2.00515E-02, 7.61076E-03,-7.62477E-03, 9.04093E-03,
     &       -1.25709E-03,-2.21591E-03, 5.99607E-05,-1.80049E-03,
     &       -1.66439E-02,-5.24402E-03, 4.39343E-03, 2.98102E-03,
     &       -3.32296E-04,-3.48014E-03, 3.10580E-03, 1.62177E-03,
     &        2.32631E-03,-2.42487E-03, 2.54758E-03, 3.36695E-03,
     &        7.48852E-05,-8.85652E-04, 8.50745E-04,-8.50961E-04,
     &       -3.91327E-03, 3.08301E-03, 1.63224E-03,-1.56000E-03,
     &        6.30911E-04,-2.25942E-04,-2.43745E-02, 6.45358E-03,
     &       -9.65032E-04,-5.97345E-04, 1.41374E-05,-2.31687E-04,
     &       -1.37061E-02, 4.42515E-03, 1.11183E-03,-7.77980E-04,
     &       -1.06856E-04, 2.34934E-04,-1.07440E-02,-1.63435E-03,
     &        1.19917E-03,-6.38349E-04, 8.39876E-04, 2.44812E-02,
     &       -3.53491E-03, 5.75828E-04, 1.46623E-05,-3.25366E-04,
     &        1.26172E-02,-2.04838E-03, 1.17203E-04,-2.26027E-04,
     &        4.74893E-03, 8.44042E-04, 5.68388E-04, 7.24541E-05,
     &       -9.44025E-04, 1.51576E-03,-5.21405E-04,-9.40100E-03,
     &       -1.39081E-03, 2.13224E-04,-1.49077E-03,-5.61893E-04,
     &       -7.86029E-04,-2.55228E-04, 7.34764E-04,-9.05998E-03/
C     long 15deg, dec_so
      DATA (BSOL(2,4,J),J=1,81)/ 2.84318E-02,
     &        4.33809E-03,-7.02584E-02,-1.57360E-02, 4.88457E-02,
     &       -1.21700E-02,-2.28748E-02, 4.81164E-02,-3.88483E-02,
     &        3.44136E-03, 2.40875E-03,-3.77413E-03, 5.31427E-03,
     &       -1.17427E-04,-6.26103E-04,-1.75054E-03, 1.78812E-04,
     &       -3.08173E-02, 6.17771E-03, 2.44385E-03, 4.15698E-04,
     &        2.69873E-03,-3.12325E-03, 1.69416E-03,-3.29888E-04,
     &       -1.51976E-02, 4.22455E-03, 1.86241E-03, 8.91926E-04,
     &        7.64007E-04,-1.55930E-03, 8.20567E-04,-1.07246E-02,
     &        5.24666E-03, 6.52560E-04,-1.02675E-04,-4.78708E-04,
     &       -2.83990E-04, 8.12368E-07,-1.39485E-02,-3.20065E-04,
     &        2.28830E-03,-1.88438E-03,-1.95906E-04,-1.31898E-04,
     &       -1.06153E-02, 1.70968E-03,-5.19755E-04,-1.09590E-03,
     &        9.92113E-04,-2.11122E-04,-1.27551E-02,-9.53990E-04,
     &       -6.41404E-04,-5.00072E-04, 2.43763E-04, 1.46177E-02,
     &       -1.84997E-03, 1.41948E-03,-4.03208E-04, 7.37252E-05,
     &        1.67747E-02, 2.31054E-03, 4.88132E-05, 3.96078E-06,
     &        8.57385E-04, 1.83073E-03,-1.30556E-03, 8.30828E-04,
     &       -2.43598E-03,-7.75990E-04,-5.33541E-04,-1.67150E-02,
     &       -1.79630E-03,-3.91334E-04,-1.07642E-02,-9.32954E-04,
     &        1.99773E-04,-4.28419E-04, 8.72525E-03, 1.20118E-03/
C     long 30deg, dec_so
      DATA (BSOL(3,4,J),J=1,81)/ 2.82803E-02,
     &       -5.19446E-03,-5.32448E-02, 9.77526E-03, 2.64954E-02,
     &       -2.53105E-02,-2.14855E-02, 3.81919E-02,-2.98882E-02,
     &        1.56644E-03, 2.57404E-03,-1.12550E-02, 2.76804E-03,
     &        5.92767E-03,-1.08123E-03, 6.80680E-04, 5.69510E-04,
     &       -3.26170E-02, 6.44236E-03, 6.47671E-03,-1.65261E-03,
     &        2.05866E-03,-8.11948E-04, 1.60814E-03,-2.13543E-04,
     &       -1.74700E-02, 3.88029E-03, 4.24006E-03, 3.21919E-04,
     &       -9.44737E-05,-1.67973E-03, 1.32992E-03,-9.44299E-03,
     &        8.78653E-03, 5.65639E-04,-3.53155E-04, 2.75494E-04,
     &       -5.10666E-04,-4.09519E-04, 1.16038E-03,-3.22459E-03,
     &        2.52372E-03,-7.69999E-04, 5.98936E-04,-2.19870E-04,
     &       -1.85995E-03,-6.57589E-03,-1.80327E-03,-5.83214E-04,
     &        1.33847E-04,-2.39161E-04,-1.18690E-03,-1.34585E-03,
     &       -9.75295E-04,-4.45681E-04, 5.33408E-04, 1.16582E-03,
     &        1.27762E-04, 1.29091E-03,-7.55128E-05, 2.77768E-04,
     &        1.49026E-02, 2.27610E-03, 3.49984E-05,-1.13277E-04,
     &       -6.72994E-03, 1.28817E-03,-1.11059E-03, 5.61986E-04,
     &        3.91535E-03,-3.34479E-04, 1.47415E-03,-8.01004E-03,
     &       -3.58574E-03, 1.32980E-04,-1.73066E-02,-2.09537E-03,
     &       -6.11377E-03,-1.64246E-03, 8.22407E-03, 5.18816E-03/
C     long 45deg, dec_so
      DATA (BSOL(4,4,J),J=1,81)/ 2.35807E-02,
     &       -1.45965E-02,-4.71362E-02, 2.58006E-02, 1.25150E-02,
     &       -6.95496E-03,-1.55157E-02, 3.12123E-02,-2.90364E-02,
     &        6.53439E-03, 1.39338E-02,-1.38062E-02, 3.03009E-03,
     &        8.40429E-03,-2.76843E-03,-2.82656E-03, 7.28728E-04,
     &       -3.44118E-02, 6.34719E-03, 1.40918E-02,-1.64751E-06,
     &        8.86390E-04,-2.26203E-03, 1.85518E-03, 1.16321E-05,
     &       -1.64539E-02, 3.84687E-03, 6.81269E-03, 9.50103E-04,
     &       -1.11685E-03,-1.10745E-03, 5.11111E-04, 1.44798E-04,
     &        2.24509E-03, 5.50068E-04,-1.34386E-04, 8.94608E-04,
     &       -1.06251E-03,-2.90546E-04,-3.88627E-03,-2.16364E-03,
     &        1.75922E-03, 9.30671E-05, 9.58072E-04,-2.53237E-04,
     &        9.82323E-04,-6.94346E-03,-1.61835E-03,-3.43876E-04,
     &        2.35057E-05, 2.75383E-04, 3.84234E-03, 2.42902E-03,
     &       -1.22106E-03,-5.75046E-04, 4.05174E-04,-6.27276E-03,
     &       -2.45862E-04, 9.00788E-04,-7.08520E-04, 4.41588E-04,
     &        8.24829E-03, 3.22402E-04, 7.08189E-04, 1.03066E-04,
     &       -6.35155E-03, 1.00279E-03, 9.84013E-05,-3.22193E-05,
     &        1.42988E-02, 1.28227E-03, 1.49899E-03,-2.31034E-03,
     &       -3.19473E-03,-4.76370E-04,-1.98005E-02,-4.17738E-03,
     &       -4.05044E-03,-1.85478E-03, 6.52254E-03, 1.23643E-02/
C     long 60deg, dec_so
      DATA (BSOL(5,4,J),J=1,81)/ 1.77420E-02,
     &       -1.86080E-02,-4.63483E-02, 1.98965E-02,-5.32126E-03,
     &       -7.06475E-03,-4.29465E-03, 2.34958E-02,-2.16131E-02,
     &       -6.20013E-03, 1.13851E-02,-1.14234E-02, 3.23313E-03,
     &        6.46055E-03,-4.33557E-04,-4.89669E-03, 2.72549E-04,
     &       -3.41058E-02, 9.14206E-03, 1.57354E-02, 2.01297E-03,
     &       -7.17859E-04,-2.40971E-03, 8.20174E-04, 1.66345E-03,
     &       -1.21013E-02, 3.55277E-03, 4.62886E-03,-3.61885E-04,
     &       -1.51689E-03,-8.30271E-04,-4.78954E-04, 5.63681E-03,
     &       -1.99419E-04,-8.91047E-04,-5.25455E-04, 1.72288E-03,
     &       -1.38955E-03,-5.75385E-04,-1.82135E-02, 8.29709E-04,
     &        2.34155E-03, 2.99576E-04, 8.65441E-04, 2.06246E-04,
     &       -8.57691E-04,-2.19231E-03,-2.26211E-03,-8.97095E-04,
     &        1.29084E-03, 3.59305E-04,-9.30916E-03, 1.71046E-03,
     &       -2.33332E-03,-3.73404E-04, 4.43084E-04, 7.25479E-03,
     &        1.94008E-03, 7.36201E-04,-8.14657E-04, 1.94266E-05,
     &        1.45860E-02, 2.41537E-03, 3.46758E-04, 1.17893E-04,
     &       -1.55791E-03, 2.62280E-03,-3.40995E-04, 1.06166E-04,
     &        1.64305E-02, 2.42635E-03, 8.36176E-06,-1.01080E-02,
     &       -1.64919E-03,-3.93351E-04,-1.19894E-02,-2.09242E-03,
     &       -8.39173E-03,-1.81181E-03, 2.31143E-03, 7.68932E-03/
C     long 75deg, dec_so
      DATA (BSOL(6,4,J),J=1,81)/ 1.69224E-02,
     &       -2.20642E-02,-3.76605E-02, 2.07060E-02,-1.32326E-02,
     &       -2.74279E-02, 5.42312E-03, 2.73318E-02,-1.69085E-02,
     &       -1.51115E-02, 8.62817E-03,-1.24462E-02,-5.12243E-03,
     &        7.11745E-03, 3.21383E-04,-2.68842E-03,-9.61796E-04,
     &       -3.18679E-02, 4.10127E-03, 1.43533E-02,-1.12683E-04,
     &       -3.65011E-03, 1.54597E-03, 1.66178E-03, 3.31466E-03,
     &       -1.62043E-02,-1.70545E-03, 4.23875E-03, 6.15923E-04,
     &       -2.19685E-03,-1.21346E-03, 2.47197E-04, 1.02315E-02,
     &        4.02862E-03,-1.43213E-03, 1.21949E-03, 1.37364E-03,
     &       -1.35108E-04,-1.81364E-03,-1.37540E-02, 6.12114E-04,
     &        1.85300E-03, 9.69990E-04, 2.62843E-04, 2.06745E-05,
     &        1.08586E-03,-4.39801E-05,-2.05913E-03,-2.28221E-03,
     &        7.10291E-04, 3.37287E-04,-1.21184E-02,-8.24507E-04,
     &       -2.00224E-03,-4.92894E-04, 1.62785E-04, 1.80172E-02,
     &        2.47733E-03,-1.32782E-03,-1.45001E-04,-2.93631E-05,
     &        1.87051E-02, 3.79723E-03,-7.45821E-04, 2.45187E-04,
     &       -1.59924E-03, 2.23014E-03,-1.07389E-03, 3.78686E-04,
     &        1.74149E-02, 2.46540E-03,-3.74029E-04,-1.08167E-02,
     &       -1.67739E-03, 8.56389E-05,-8.77626E-03, 9.87677E-04,
     &       -1.04134E-02,-8.10337E-04,-1.08185E-04, 2.46782E-03/
C     long 90deg, dec_so
      DATA (BSOL(7,4,J),J=1,81)/ 2.90175E-02,
     &       -2.89584E-02,-4.33432E-02, 2.83115E-02, 1.29783E-02,
     &       -3.48385E-02,-8.06751E-03, 2.63505E-02,-2.53382E-02,
     &       -1.93439E-02, 1.27105E-02,-1.22980E-02,-6.95859E-03,
     &        2.58704E-03, 1.31860E-04,-1.63338E-03,-2.81890E-04,
     &       -1.64194E-02, 2.48134E-04, 1.23402E-02,-7.12761E-04,
     &       -9.38026E-03, 2.60129E-03, 2.07346E-03, 2.81753E-03,
     &       -1.32831E-02,-2.83834E-03, 3.21642E-03, 1.36016E-03,
     &       -1.88308E-03,-1.22061E-03,-6.99650E-05, 9.71705E-03,
     &        7.38446E-03, 6.64467E-05, 7.42447E-04, 3.44521E-05,
     &        5.68699E-04,-1.88039E-03,-8.87493E-03,-8.90498E-04,
     &        3.34998E-03, 4.41929E-04,-3.92499E-04,-7.45187E-04,
     &        1.15238E-03,-1.14790E-03,-2.15135E-03,-1.44356E-03,
     &        7.33462E-04, 2.68475E-04,-1.09487E-02, 1.18975E-03,
     &       -1.57731E-03,-4.81928E-04, 9.06267E-05, 2.54085E-02,
     &        2.81482E-03,-2.98045E-03,-3.86117E-04, 1.59401E-06,
     &        1.98156E-02, 3.53008E-03,-1.39011E-03,-3.81558E-05,
     &       -4.02594E-03, 1.14486E-03,-7.24166E-04, 1.28475E-04,
     &        1.57252E-02,-2.20189E-04,-1.85964E-04,-8.31933E-03,
     &       -2.95019E-03, 2.37330E-04,-1.32695E-02, 1.81692E-03,
     &       -1.79821E-03,-5.69710E-04, 4.90363E-03, 3.03702E-03/
C     long 105deg, dec_so
      DATA (BSOL(8,4,J),J=1,81)/ 3.94413E-02,
     &       -2.73862E-02,-5.26945E-02, 2.64024E-02, 2.57125E-02,
     &       -5.13330E-02,-1.36319E-04, 2.57275E-02,-2.03077E-02,
     &       -2.69330E-02, 1.06548E-02,-4.75089E-03,-3.84726E-03,
     &       -2.20297E-03, 2.94793E-04,-6.44603E-04, 1.32463E-03,
     &       -1.29043E-02, 1.87556E-03, 8.46836E-03,-2.74078E-03,
     &       -1.01316E-02, 2.64838E-03, 2.78408E-03, 1.24048E-03,
     &       -6.75177E-04,-1.89002E-03, 1.44699E-03, 1.27975E-03,
     &       -2.14953E-03,-1.74891E-03, 6.83302E-04, 3.71205E-03,
     &        6.65820E-03,-2.03853E-03,-2.29980E-04, 5.59918E-04,
     &        3.54948E-04,-8.16703E-04,-1.18894E-02,-1.36582E-03,
     &        3.11034E-03,-2.48890E-05, 7.92798E-05,-5.89884E-04,
     &       -2.46477E-03,-1.52124E-03,-2.21480E-03,-6.40715E-04,
     &        1.39104E-03, 1.71610E-04,-8.21744E-03, 1.25910E-03,
     &       -2.28567E-03, 2.83414E-05, 4.12695E-04, 2.82869E-02,
     &        3.27399E-03,-2.24181E-03,-1.03632E-03,-1.20881E-04,
     &        1.77526E-02, 2.85561E-03,-1.67240E-03,-5.68408E-04,
     &       -4.23482E-03, 2.14417E-03,-9.71964E-06, 1.88329E-04,
     &        4.76485E-03,-1.09204E-03, 3.33700E-04,-5.55109E-03,
     &       -3.26547E-03, 8.23448E-04,-4.67932E-03, 3.49110E-04,
     &       -4.17880E-03,-3.04275E-04,-8.28226E-04,-3.96311E-03/
C     long 120deg, dec_so
      DATA (BSOL(9,4,J),J=1,81)/ 4.16238E-02,
     &       -3.25488E-02,-4.73189E-02, 3.24229E-02, 1.14092E-02,
     &       -4.35678E-02, 2.23004E-02, 1.74251E-02,-1.29260E-02,
     &       -2.99426E-02, 1.22518E-02,-1.51078E-03, 2.57710E-03,
     &       -9.39462E-04, 1.30431E-03,-1.84090E-03, 3.16913E-03,
     &       -2.32605E-02, 7.61695E-03, 5.67506E-03, 1.57666E-04,
     &       -9.58158E-03, 3.80807E-03, 2.46184E-03, 5.63374E-04,
     &       -7.74003E-03, 9.64984E-04, 2.88130E-03, 2.00194E-03,
     &       -2.55525E-03,-2.23630E-03, 1.80617E-03, 2.43423E-03,
     &        5.66205E-03,-5.05517E-03, 7.61808E-04, 2.31621E-04,
     &       -2.63648E-04,-5.73300E-04,-1.03946E-02,-2.95540E-04,
     &        1.69080E-03,-3.96023E-04, 3.79520E-04,-5.84882E-04,
     &        5.75134E-04, 1.60497E-04,-3.01191E-03,-9.17312E-04,
     &        5.64642E-04, 2.36777E-04,-7.34191E-03,-5.93983E-04,
     &       -1.93381E-03, 7.36236E-04, 2.14754E-04, 2.49761E-02,
     &        3.42054E-03,-1.14344E-03,-8.05398E-04, 6.27554E-05,
     &        1.52427E-02, 2.87802E-03,-1.32267E-03,-1.10251E-04,
     &        1.72511E-03, 1.81090E-03,-6.20603E-04,-4.56044E-04,
     &        2.23183E-03,-1.50365E-03,-3.66225E-04, 6.68982E-05,
     &       -3.28244E-03, 7.31907E-04,-2.69475E-05, 1.24955E-03,
     &       -6.84076E-03, 3.68764E-04,-3.45604E-03,-1.84251E-03/
C     long 135deg, dec_so
      DATA (BSOL(10,4,J),J=1,81)/ 4.55699E-02,
     &       -4.25779E-02,-4.00482E-02, 3.93008E-02, 4.90336E-03,
     &       -2.99220E-02, 2.32738E-02, 1.31783E-02,-2.46663E-02,
     &       -2.57471E-02, 1.53185E-02,-1.10690E-03, 3.65820E-03,
     &        1.84975E-03, 7.02938E-04,-2.62958E-03, 5.62773E-03,
     &       -2.91640E-02, 5.96199E-03, 1.00646E-02, 2.41250E-03,
     &       -1.09895E-02, 2.72014E-03, 2.48640E-03, 1.89121E-05,
     &       -1.58067E-02,-7.17696E-04, 5.43059E-03, 2.96906E-03,
     &       -1.70486E-03,-1.59302E-03, 1.82301E-03, 1.75017E-03,
     &        4.84792E-03,-4.44742E-03, 6.82890E-04, 4.41343E-04,
     &       -1.42879E-03,-7.39092E-04,-7.02892E-03, 7.09063E-04,
     &        1.51248E-03,-1.53222E-04, 3.41070E-04,-6.56059E-04,
     &        2.96477E-03, 1.40030E-03,-2.67412E-03,-1.09169E-03,
     &       -1.78000E-04, 2.73600E-04,-1.20414E-02, 2.02166E-03,
     &       -2.35203E-03, 1.32431E-03, 9.82105E-05, 1.97340E-02,
     &        3.81147E-03,-1.82519E-03,-4.96201E-04, 2.08876E-04,
     &        1.03855E-02, 1.69648E-03,-3.02034E-05,-3.23369E-04,
     &        1.19632E-02,-4.23850E-04,-9.76644E-04,-4.78451E-04,
     &        1.76734E-03, 8.57011E-04,-1.10866E-03, 3.07746E-03,
     &       -4.80971E-03, 1.09878E-03,-4.03339E-03, 2.30651E-03,
     &       -3.87846E-03, 7.77206E-04,-2.21381E-03, 3.16317E-03/
C     long 150deg, dec_so
      DATA (BSOL(11,4,J),J=1,81)/ 4.81173E-02,
     &       -3.03229E-02,-5.13373E-02, 4.16275E-02, 1.73686E-02,
     &       -2.83626E-02, 2.94287E-02, 3.11613E-03,-2.88159E-02,
     &       -2.75557E-02, 3.00139E-03, 5.07062E-03, 5.47427E-03,
     &        2.42899E-04, 1.24485E-03,-5.53713E-04, 6.18425E-03,
     &       -2.68954E-02,-2.98930E-03, 1.47523E-02,-5.90547E-06,
     &       -8.33830E-03, 5.29263E-05,-3.63586E-05, 6.69999E-04,
     &       -1.41517E-02,-1.21750E-03, 4.93413E-03, 2.12888E-03,
     &       -1.49684E-03,-1.38393E-04, 8.40930E-04, 4.84905E-03,
     &        1.50095E-03,-2.96702E-04,-3.49046E-04,-4.45351E-05,
     &       -4.78081E-04,-9.29574E-04,-1.22651E-02, 3.48023E-03,
     &       -1.80669E-04, 2.26645E-04,-8.32058E-04,-5.90904E-05,
     &       -2.42347E-03, 2.95899E-03,-2.89910E-03,-4.92412E-04,
     &        7.05549E-04,-5.41852E-04,-1.00211E-02, 3.70097E-03,
     &       -2.88859E-03, 1.47364E-03,-3.49433E-04, 1.60234E-02,
     &        3.05289E-03,-1.32828E-03,-9.59940E-04, 5.20842E-04,
     &        7.44980E-03,-1.09442E-05,-2.77375E-04,-8.03956E-04,
     &        6.56341E-03,-1.19144E-03,-5.48369E-04, 7.57456E-05,
     &        2.63823E-03, 2.71340E-03,-1.89071E-04, 3.39166E-03,
     &       -1.95177E-03, 7.15772E-04, 2.33185E-04, 5.74942E-04,
     &       -6.39994E-03, 2.29367E-05, 2.86153E-03,-2.02618E-03/
C     long 165deg, dec_so
      DATA (BSOL(12,4,J),J=1,81)/ 5.12251E-02,
     &       -9.71415E-03,-6.24244E-02, 9.63734E-03, 3.49744E-02,
     &       -1.03995E-02, 1.22369E-02,-1.87636E-03,-2.04380E-02,
     &       -1.83737E-02,-9.95469E-03, 5.44127E-03, 1.15220E-02,
     &       -5.16848E-03, 1.89485E-03, 1.43366E-03, 3.38880E-03,
     &       -2.06559E-02,-1.66339E-02, 1.16914E-02, 7.59820E-03,
     &       -7.34506E-03,-1.36017E-03,-5.36189E-04, 2.90127E-03,
     &       -1.97184E-02,-6.70722E-04, 3.96985E-03, 3.19554E-04,
     &       -1.06596E-03, 1.28815E-04, 3.69046E-04, 1.18087E-02,
     &        1.30446E-03, 7.18224E-03,-8.18188E-04,-5.80338E-04,
     &        1.67719E-04,-9.56668E-04,-1.44537E-02, 4.81734E-03,
     &       -1.32698E-03, 7.83168E-04,-1.67454E-03, 1.85020E-04,
     &       -7.17301E-03, 6.57112E-03,-4.36312E-03,-2.07470E-05,
     &        1.52228E-03,-7.11463E-04,-7.89683E-03, 2.31621E-03,
     &       -1.33613E-03, 1.32035E-03,-3.62568E-04, 2.25717E-02,
     &        1.39612E-03, 1.25065E-04,-5.81881E-04, 4.76533E-04,
     &        1.84714E-03, 2.53315E-03,-2.22742E-04,-4.85468E-04,
     &       -3.78567E-03, 1.15589E-03,-1.30908E-03,-3.82687E-04,
     &        7.60361E-03, 1.22554E-03, 2.45877E-04, 1.91359E-03,
     &        8.21020E-04,-2.34442E-04,-9.12608E-04, 6.84869E-04,
     &       -9.77393E-03,-1.34061E-03, 7.54606E-03,-6.63873E-03/
C     long 180deg, dec_so
      DATA (BSOL(13,4,J),J=1,81)/ 5.01080E-02,
     &        5.37266E-03,-6.51133E-02,-1.42387E-02, 3.56958E-02,
     &        5.80630E-03,-1.55467E-02, 1.07463E-02,-1.20708E-02,
     &        6.04923E-03,-1.17763E-02,-4.61877E-03, 1.16313E-02,
     &       -4.00697E-03, 6.69105E-04,-4.06489E-04, 3.09940E-03,
     &       -1.51151E-02,-2.10976E-02, 8.97100E-03, 1.19550E-02,
     &       -6.06149E-03,-3.92872E-03, 1.60333E-03, 3.24078E-03,
     &       -2.06176E-02, 3.08009E-03, 2.44802E-03, 5.56128E-04,
     &       -1.07048E-03,-1.04155E-03, 1.07128E-03, 2.04267E-02,
     &       -1.92915E-03, 1.12642E-02,-9.73743E-04,-1.67658E-03,
     &        1.03316E-04,-3.11157E-04,-5.31388E-03,-1.32833E-03,
     &       -1.06892E-03, 1.09841E-03,-1.59190E-03, 9.55406E-05,
     &       -1.77839E-02, 5.79353E-03,-1.72254E-03,-1.31153E-03,
     &        2.47129E-03,-4.82032E-04,-1.69065E-02, 1.49542E-03,
     &        6.77816E-04, 5.19723E-04, 4.83728E-04, 1.90640E-02,
     &        1.37026E-03, 4.16054E-04, 2.84307E-05,-1.43310E-04,
     &       -5.72216E-03, 4.08542E-03, 3.50360E-04,-3.48381E-04,
     &        1.52363E-03, 1.75770E-03,-1.10720E-03,-5.77847E-04,
     &        5.09502E-03, 6.88969E-04,-6.10112E-04, 7.83977E-04,
     &       -2.31032E-03,-5.95410E-05,-8.55263E-03,-1.07362E-04,
     &       -1.14579E-02, 8.11441E-04, 2.75293E-03,-5.90881E-03/
C     long 195deg, dec_so
      DATA (BSOL(14,4,J),J=1,81)/ 3.87140E-02,
     &        9.97940E-03,-5.23010E-02,-2.05486E-02, 3.53700E-02,
     &       -6.19631E-03,-2.24227E-02, 2.10772E-02,-1.29108E-02,
     &        1.78760E-02,-1.31985E-02,-6.55162E-03, 1.05827E-02,
     &       -7.83276E-03, 4.20352E-04,-3.09229E-03, 5.57711E-03,
     &       -3.15405E-03,-1.39870E-02, 2.64990E-03, 6.53649E-03,
     &       -3.91801E-03,-2.56608E-03, 1.67392E-03, 2.29563E-03,
     &       -5.81319E-03, 3.72614E-03,-1.49642E-03, 4.93261E-03,
     &       -2.05929E-03,-2.50175E-03, 1.89164E-03, 2.12198E-02,
     &       -9.42598E-03, 8.66850E-03,-1.33321E-03,-1.27705E-03,
     &        3.69117E-04,-3.01136E-04,-3.93581E-03,-5.96393E-03,
     &        3.79069E-03,-3.36308E-04,-9.57532E-04,-1.34758E-04,
     &       -2.89386E-02, 8.01699E-03,-1.91974E-04,-2.13156E-03,
     &        2.56307E-03,-1.03999E-03,-1.64662E-02, 1.15982E-04,
     &        6.48687E-04, 5.03002E-04, 1.82551E-04, 2.15141E-02,
     &       -2.77005E-04,-2.10076E-03, 3.38876E-04,-2.04575E-04,
     &       -4.58159E-03, 1.83527E-03,-5.48002E-04,-4.92170E-04,
     &        9.21377E-03, 2.09022E-03,-3.83225E-04,-1.49823E-04,
     &        3.47715E-03, 9.91334E-04,-4.24471E-04,-1.54899E-03,
     &       -3.19383E-03,-2.41263E-04,-7.36466E-03,-1.75882E-03,
     &       -7.24556E-03, 1.51271E-03,-6.68762E-03,-2.43286E-03/
C     long 210deg, dec_so
      DATA (BSOL(15,4,J),J=1,81)/ 3.21291E-02,
     &        9.69611E-03,-3.81395E-02,-3.36701E-02, 4.38585E-02,
     &       -3.48003E-02,-1.82660E-02, 5.63409E-02,-3.49218E-02,
     &        1.66818E-02,-2.32031E-02, 1.66397E-03, 1.02095E-02,
     &       -1.19360E-02, 3.67320E-03,-2.37347E-03, 2.98524E-03,
     &        5.30436E-03,-7.66111E-03,-1.05373E-04, 4.94146E-03,
     &       -4.77060E-03,-1.96938E-03, 1.80111E-03, 1.11101E-03,
     &        3.20172E-03, 1.77676E-03,-4.06011E-04, 4.45503E-03,
     &       -1.69817E-03,-3.98511E-03, 2.21215E-03, 2.18321E-02,
     &       -1.00063E-02, 4.65559E-03,-2.52114E-03, 1.71826E-03,
     &        3.99696E-04,-3.58593E-04,-5.62487E-03,-6.61788E-03,
     &        2.81505E-03, 3.08457E-04,-9.08299E-04, 4.08487E-05,
     &       -1.95601E-02, 8.29015E-03,-2.10852E-03,-5.91929E-04,
     &        1.58347E-03,-8.82676E-04,-9.15339E-03, 2.44428E-03,
     &        7.73072E-04,-1.47985E-04,-2.69885E-05, 2.61451E-02,
     &       -1.14319E-03,-2.91085E-03, 2.89968E-04, 6.22274E-05,
     &       -1.66264E-03,-2.20392E-04,-2.81384E-03, 4.32814E-04,
     &        4.16053E-03, 2.24866E-03,-5.98637E-04,-4.09092E-04,
     &        6.25604E-04, 1.92136E-03,-1.00194E-03,-5.75385E-03,
     &        3.38327E-04, 5.31384E-04, 1.97464E-03,-6.78443E-04,
     &       -2.90120E-03,-7.68289E-04,-1.00617E-02,-1.42499E-03/
C     long 225deg, dec_so
      DATA (BSOL(16,4,J),J=1,81)/ 2.84766E-02,
     &        1.19912E-02,-3.67256E-02,-3.10354E-02, 4.70276E-02,
     &       -5.37740E-02,-1.76718E-02, 6.58977E-02,-3.60475E-02,
     &        1.95918E-02,-2.96993E-02, 4.66534E-03, 1.31130E-02,
     &       -1.11435E-02, 2.05895E-03, 2.29465E-03, 1.19665E-03,
     &        7.89454E-03,-5.87908E-03, 2.28997E-03, 2.60395E-03,
     &       -6.08794E-03,-2.41861E-03, 2.41955E-03, 2.23211E-05,
     &       -3.78339E-03, 3.88057E-04, 2.11132E-03, 4.02298E-03,
     &       -2.47889E-03,-3.45299E-03, 2.33049E-03, 2.65956E-02,
     &       -9.63169E-03, 3.38184E-03,-1.38886E-03, 9.65165E-04,
     &        1.39437E-03,-6.43079E-04,-1.29608E-02,-4.56910E-03,
     &        5.27501E-04,-9.56362E-06,-8.15255E-04, 3.92684E-04,
     &       -5.28438E-03, 5.30889E-03,-2.77201E-03, 8.21643E-04,
     &        7.54310E-04,-1.04513E-04,-4.72693E-03, 3.40957E-03,
     &        6.87105E-04,-2.23191E-04, 2.77272E-04, 3.21044E-02,
     &       -2.09251E-04,-4.07602E-04,-4.86784E-04, 3.22391E-04,
     &        1.94837E-04, 1.80029E-03,-2.64249E-03, 3.02716E-04,
     &        2.67922E-03, 1.67197E-03,-7.60077E-04,-5.96326E-04,
     &        4.00794E-03, 2.47948E-03,-1.75799E-03,-5.04039E-03,
     &        1.33564E-03,-5.18233E-04, 7.55385E-03,-1.45644E-03,
     &       -2.06549E-03,-8.45532E-04,-1.95095E-03, 1.32384E-03/
C     long 240deg, dec_so
      DATA (BSOL(17,4,J),J=1,81)/ 2.22114E-02,
     &        2.07745E-02,-3.56714E-02,-3.74993E-02, 6.25866E-02,
     &       -5.86246E-02,-2.35173E-02, 6.57441E-02,-1.70085E-02,
     &        1.66690E-02,-3.82801E-02, 5.60526E-03, 1.79042E-02,
     &       -9.76989E-03, 1.12987E-03, 4.20267E-03, 1.48815E-03,
     &        1.70470E-02,-1.95894E-02,-2.05580E-03, 6.34220E-03,
     &       -7.74367E-03,-3.11617E-03, 4.66343E-03,-5.93002E-04,
     &       -7.91250E-03, 4.75567E-03, 1.98575E-03, 4.74130E-03,
     &       -3.63303E-03,-2.49864E-03, 2.47463E-03, 2.95189E-02,
     &       -9.57114E-03, 7.18916E-03,-1.92878E-03,-1.56263E-03,
     &        1.49775E-03,-1.77198E-04,-2.53869E-02,-1.34619E-03,
     &        8.22261E-04,-1.20679E-03,-5.53795E-04, 4.21402E-04,
     &       -1.13147E-02, 5.40216E-03,-8.71494E-04, 1.07467E-03,
     &        3.19641E-04, 4.11497E-04,-1.50183E-02, 4.66023E-03,
     &       -2.81413E-04, 5.22410E-04, 1.17493E-04, 3.51890E-02,
     &       -5.25923E-04,-7.31673E-04,-6.22467E-04, 3.18296E-04,
     &        5.05128E-03, 3.54217E-03,-1.84287E-04,-3.94619E-04,
     &        1.34960E-02, 8.22763E-04, 2.13218E-04,-3.53458E-05,
     &        9.90704E-03, 1.63071E-03,-4.44958E-05,-4.19413E-03,
     &       -3.07060E-04,-1.63658E-03, 4.09531E-03,-2.75908E-03,
     &        5.09207E-03,-9.24969E-04, 5.18145E-03, 2.18105E-04/
C     long 255deg, dec_so
      DATA (BSOL(18,4,J),J=1,81)/ 2.74265E-02,
     &        2.42227E-02,-4.50298E-02,-3.46858E-02, 7.42465E-02,
     &       -5.66512E-02,-3.59972E-02, 7.50227E-02,-9.09443E-03,
     &        1.14595E-03,-3.18278E-02, 4.10263E-03, 1.83582E-02,
     &       -8.75520E-03, 4.64049E-03, 1.34462E-03, 1.40798E-03,
     &        1.89674E-02,-3.36318E-02,-7.59667E-04, 1.00447E-02,
     &       -1.01958E-02,-2.69894E-03, 5.64168E-03,-2.04677E-03,
     &       -1.11275E-02, 1.06240E-02, 1.10278E-03, 1.76685E-03,
     &       -2.62663E-03,-1.66283E-03, 1.69015E-03, 2.86217E-02,
     &       -6.25398E-03, 1.02421E-02,-3.18093E-03,-2.70504E-03,
     &        8.97138E-04, 7.57120E-04,-2.92299E-02, 1.20139E-03,
     &        2.05040E-04,-5.74366E-04,-1.10701E-03, 8.26280E-04,
     &       -1.93110E-02, 4.08304E-03, 8.39150E-04, 3.66722E-04,
     &        5.21237E-04, 4.94715E-04,-2.19031E-02, 4.06526E-03,
     &        1.35461E-03, 2.40380E-04,-1.89509E-04, 3.07129E-02,
     &        4.71803E-05,-1.76276E-03, 3.51839E-05,-2.22987E-04,
     &        5.94228E-03, 1.83396E-03, 6.10900E-04,-5.46649E-04,
     &        2.24160E-02,-2.61830E-03, 4.34062E-04,-2.44782E-04,
     &        1.00109E-02,-6.40182E-04, 9.10041E-04,-3.43955E-03,
     &       -4.17211E-03,-4.15112E-04,-5.00178E-03,-7.77930E-04,
     &        1.28969E-02,-2.92936E-03, 1.01852E-04, 3.69058E-03/
C     long 270deg, dec_so
      DATA (BSOL(19,4,J),J=1,81)/ 3.61743E-02,
     &        2.87215E-02,-5.98673E-02,-3.82440E-02, 7.52061E-02,
     &       -5.47121E-02,-3.96750E-02, 6.54049E-02,-1.50059E-02,
     &       -1.10565E-02,-2.02288E-02, 3.84388E-03, 1.62381E-02,
     &       -6.01001E-03, 7.78933E-03,-1.37289E-03, 9.72580E-04,
     &        1.08390E-02,-2.81632E-02, 2.26676E-03, 6.64109E-03,
     &       -1.07881E-02, 2.03594E-04, 4.20950E-03,-1.74590E-03,
     &       -6.07325E-03, 1.05289E-02, 2.91887E-03, 1.42619E-03,
     &       -2.45804E-03,-1.13673E-03, 1.62699E-03, 3.19123E-02,
     &       -1.06747E-02, 1.16730E-02,-3.26119E-03,-3.57746E-03,
     &        1.08661E-03, 6.43068E-04,-2.21976E-02, 2.01106E-03,
     &        1.30929E-03, 8.86008E-04,-1.40790E-03, 5.68156E-04,
     &       -1.98255E-02, 4.58681E-03, 2.26833E-04, 3.51300E-04,
     &        4.77126E-04, 2.78744E-04,-1.53759E-02, 1.26918E-03,
     &        2.71564E-03, 7.52432E-06,-2.49802E-04, 2.75200E-02,
     &       -1.57723E-03,-2.36951E-03, 7.78804E-04,-1.51940E-04,
     &        6.29870E-03,-7.30659E-04, 4.11045E-04,-1.84515E-04,
     &        2.18497E-02,-5.93432E-03, 7.57677E-04,-6.00511E-04,
     &        5.42047E-03,-1.91613E-03, 8.80965E-04,-1.12976E-02,
     &       -4.14410E-03, 8.16554E-06,-5.23994E-03,-8.01848E-05,
     &        9.52766E-03,-1.52942E-03,-4.61866E-03, 3.06399E-03/
C     long 285deg, dec_so
      DATA (BSOL(20,4,J),J=1,81)/ 3.54765E-02,
     &        3.98543E-02,-6.60000E-02,-5.16727E-02, 8.72752E-02,
     &       -4.58059E-02,-4.70976E-02, 6.30658E-02,-1.05067E-02,
     &       -6.01407E-03,-1.74621E-02, 1.67417E-03, 1.53336E-02,
     &       -2.54747E-03, 7.70604E-03, 2.25881E-03, 6.60230E-04,
     &       -6.90916E-04,-1.43589E-02,-8.28291E-04, 2.73473E-03,
     &       -5.75595E-03, 1.86407E-03, 2.24917E-03, 1.01664E-03,
     &        8.03647E-03, 8.41895E-03, 2.50176E-03, 3.70486E-03,
     &       -3.06335E-03,-7.49105E-04, 1.83227E-03, 4.68505E-02,
     &       -2.09482E-02, 1.32951E-02,-2.89925E-03,-3.60441E-03,
     &        1.90192E-03,-5.74563E-04,-1.01866E-02,-1.57625E-03,
     &        1.91770E-03, 5.04535E-04,-6.60992E-04, 4.40846E-05,
     &       -2.04959E-02, 5.46791E-03,-2.44715E-03, 1.30051E-03,
     &        9.96183E-04,-4.26068E-04,-8.83416E-03,-1.41224E-03,
     &        1.77175E-03, 3.88904E-04,-3.35328E-04, 1.56028E-02,
     &        3.16826E-03,-3.35085E-03, 6.03625E-04, 7.73493E-05,
     &        3.34442E-03, 5.82810E-04, 3.71933E-04, 2.61653E-04,
     &        6.48273E-03,-2.56584E-03, 1.31994E-03,-4.24460E-04,
     &        3.43241E-03,-1.12197E-03, 7.39851E-05,-1.16930E-02,
     &       -3.92257E-04, 7.92926E-05, 6.99042E-04,-8.39998E-04,
     &        2.54226E-03, 5.82945E-04,-8.01260E-03,-7.00287E-03/
C     long 300deg, dec_so
      DATA (BSOL(21,4,J),J=1,81)/ 2.84410E-02,
     &        4.04254E-02,-6.01886E-02,-5.45280E-02, 9.38187E-02,
     &       -1.49018E-02,-7.61907E-02, 5.70242E-02, 1.02864E-02,
     &        1.93271E-02,-1.54906E-02,-5.55805E-03, 1.31176E-02,
     &       -1.27400E-04, 2.13410E-03, 4.75829E-03, 2.70064E-03,
     &       -5.55656E-03,-7.90550E-03,-1.20686E-03,-2.36091E-03,
     &       -3.78777E-03, 2.01318E-03, 1.95859E-03, 1.88711E-03,
     &        1.57501E-02, 9.70525E-03,-1.04202E-03, 2.50386E-03,
     &       -1.05965E-03,-7.14045E-04, 1.03288E-03, 6.99409E-02,
     &       -2.70640E-02, 1.08049E-02, 5.41770E-04,-2.34747E-03,
     &        1.36596E-03,-9.53876E-04,-1.87130E-02, 2.29886E-03,
     &        3.98444E-04,-1.17168E-03,-2.02799E-04,-3.70360E-04,
     &       -3.45988E-02, 3.38255E-03,-2.21298E-03, 1.55406E-03,
     &        1.17640E-03,-7.05538E-04,-1.25914E-02,-4.18575E-03,
     &        1.63672E-03, 4.88540E-06,-4.96328E-05, 2.60389E-02,
     &        5.58094E-03,-1.83250E-03, 1.06183E-04, 9.69107E-06,
     &        3.39618E-03, 1.21616E-03,-1.44353E-04,-2.58311E-04,
     &        3.21321E-03,-4.13023E-03, 8.53939E-04,-2.13803E-04,
     &        4.36777E-03,-2.45500E-03, 9.05551E-04, 1.78272E-03,
     &        1.19264E-03, 3.06811E-04, 8.28492E-03,-1.16542E-03,
     &        1.44505E-04,-2.29345E-03,-2.18638E-03,-8.54380E-03/
C     long 315deg, dec_so
      DATA (BSOL(22,4,J),J=1,81)/ 2.22948E-02,
     &        3.08262E-02,-5.76648E-02,-4.66962E-02, 9.53122E-02,
     &        3.38336E-04,-9.51290E-02, 4.85946E-02, 1.06654E-02,
     &        3.73788E-02,-1.77675E-02,-1.13505E-02, 1.08487E-02,
     &        1.47215E-04,-3.67314E-04, 5.00091E-03, 2.21904E-03,
     &        1.28758E-03,-3.18475E-03, 2.69293E-03, 4.77057E-06,
     &       -1.17834E-02, 1.29782E-05, 8.84744E-03,-2.19781E-04,
     &        1.64886E-02, 1.20756E-02,-1.55000E-03, 7.24578E-04,
     &       -3.69779E-04,-9.12033E-04, 1.14175E-03, 6.06696E-02,
     &       -2.05422E-02, 7.88654E-03, 4.14635E-03,-3.03057E-03,
     &       -2.08890E-04,-2.63310E-04,-2.82460E-02, 7.48393E-03,
     &        7.70214E-04,-1.19749E-03,-5.23847E-04,-5.57522E-04,
     &       -4.67681E-02, 1.94299E-03,-1.04589E-03, 2.13354E-03,
     &        1.14901E-03,-3.88730E-04,-1.70182E-02,-3.75109E-03,
     &        1.11819E-03,-3.35096E-04,-6.07261E-05, 2.48163E-02,
     &        2.53443E-03, 2.07557E-04,-4.72340E-04, 2.45764E-04,
     &        5.00694E-03, 6.94788E-04,-3.25464E-04,-3.32342E-04,
     &        1.22195E-02,-4.19756E-03,-6.19826E-04, 5.44253E-04,
     &        6.87268E-03,-1.85349E-03, 1.72703E-03,-6.16273E-03,
     &        1.60997E-03, 1.91002E-04, 1.36352E-03, 2.41437E-04,
     &       -3.25515E-03,-3.25820E-03, 1.27577E-03,-9.22098E-03/
C     long 330deg, dec_so
      DATA (BSOL(23,4,J),J=1,81)/ 2.52282E-02,
     &        2.56902E-02,-7.57030E-02,-4.23682E-02, 1.04212E-01,
     &       -8.18617E-03,-8.66754E-02, 4.88853E-02,-1.73607E-02,
     &        3.20722E-02,-1.37670E-02,-8.34668E-03, 1.09270E-02,
     &       -4.02558E-03,-1.37910E-03, 4.43313E-03,-9.39424E-04,
     &       -3.16609E-03, 1.72188E-03, 5.62623E-03, 4.16267E-03,
     &       -1.21156E-02,-3.17913E-03, 1.11158E-02,-4.63037E-04,
     &        1.52200E-02, 8.79067E-03, 1.70069E-03, 1.34286E-04,
     &       -1.29847E-03,-3.20196E-04, 1.21789E-03, 3.73039E-02,
     &       -1.63250E-02, 5.38715E-03, 5.82940E-03,-4.27330E-03,
     &       -3.98178E-04, 7.09829E-04,-2.74031E-02, 9.42855E-03,
     &        1.07131E-04, 3.33696E-04,-4.35621E-04,-6.72232E-04,
     &       -3.77982E-02,-5.63176E-05,-2.43289E-03, 1.48251E-03,
     &        1.35604E-03,-4.80995E-05,-1.30786E-02,-4.05249E-03,
     &        2.86815E-04,-2.39706E-05,-3.69786E-04, 9.49221E-03,
     &        4.29971E-03, 4.83988E-04,-7.27820E-04, 3.35447E-04,
     &        5.30704E-04, 2.36641E-03,-4.01332E-04,-6.62700E-04,
     &        1.22698E-02, 2.95852E-04,-7.66105E-04, 4.02691E-04,
     &        1.43362E-02, 2.51578E-03, 3.36460E-04,-1.21822E-02,
     &        6.71859E-04, 3.62456E-04,-6.91194E-03, 3.26397E-03,
     &       -6.38855E-04,-8.24420E-04, 4.60772E-03,-7.41367E-03/
C     long 345deg, dec_so
      DATA (BSOL(24,4,J),J=1,81)/ 2.36730E-02,
     &        2.52806E-02,-7.72763E-02,-3.40618E-02, 9.62184E-02,
     &       -7.85924E-03,-6.71213E-02, 5.21606E-02,-2.73133E-02,
     &        3.03143E-02,-1.99565E-03,-7.89322E-03, 1.06653E-02,
     &       -3.00830E-03,-1.44668E-03, 2.65278E-03,-2.79956E-03,
     &       -3.56198E-03,-5.22692E-03, 4.44425E-03, 4.38954E-03,
     &       -6.27668E-03,-3.45058E-03, 7.28051E-03, 9.19621E-05,
     &        1.19139E-02, 1.57999E-04, 2.91599E-03, 6.59811E-04,
     &       -4.89540E-04,-3.82587E-04, 8.77644E-04, 1.73670E-02,
     &       -1.16705E-02, 4.12078E-03, 4.19294E-03,-2.77036E-03,
     &        3.81015E-04, 2.60902E-04,-2.42727E-02, 1.01088E-02,
     &       -2.13897E-03, 1.03122E-03, 5.75592E-05,-6.66808E-04,
     &       -2.14872E-02, 1.03863E-03,-1.07193E-03, 1.76967E-04,
     &        2.17602E-04, 2.79529E-04,-8.48089E-03,-3.81822E-03,
     &        1.47238E-03,-4.08737E-04, 5.78098E-04, 1.84825E-02,
     &        7.12693E-04, 5.43313E-04,-1.55669E-04,-9.33492E-05,
     &        3.88989E-03, 7.52726E-05,-5.64287E-04,-8.37582E-04,
     &        6.15711E-03, 2.67359E-04, 1.19305E-03,-3.52291E-04,
     &        8.40566E-03, 4.09080E-03,-1.45542E-04,-6.93619E-03,
     &       -7.40069E-04, 7.33300E-04,-1.99229E-03, 1.46886E-03,
     &       -1.13324E-03,-3.61414E-04, 5.46516E-03,-1.05698E-02/
      DO 30 K=1,81
       DO 20 J=1,4
        DO 10 I=1,24
         ASOLO(I,J,K)=ASOL(I,J,K)
         BSOLO(I,J,K)=BSOL(I,J,K)
10      CONTINUE
20     CONTINUE
30    CONTINUE
C////////////////////////////////////////////////////////////////////////////////////
      RETURN
      END
C end koefess
C
C
      SUBROUTINE SPHARM_IK1(C,MAXC,L,M,COLAT,AZ)
C CALCULATES THE COEFFICIENTS OF THE SPHERICAL HARMONIC
C FROM IRI 95 MODEL
C NOTE: COEFFICIENTS CORRESPONDING TO COS, SIN SWAPPED!!!
      DIMENSION C(MAXC)
      C(1)=1.
      K=2
      X=COS(COLAT)
      C(K)=X
      K=K+1
      DO 10 I=2,L
      C(K)=((2*I-1)*X*C(K-1)-(I-1)*C(K-2))/I
10    K=K+1
      Y=SIN(COLAT)
      DO 20 MT=1,M
      CAZ=COS(MT*AZ)
      SAZ=SIN(MT*AZ)
      C(K)=Y**MT
      K=K+1
      IF(MT.EQ.L) GOTO 16
      C(K)=C(K-1)*X*(2*MT+1)
      K=K+1
      IF((MT+1).EQ.L) GOTO 16
      DO 15 I=2+MT,L
      C(K)=((2*I-1)*X*C(K-1)-(I+MT-1)*C(K-2))/(I-MT)
15    K=K+1
16    N=L-MT+1
      DO 18 I=1,N
      C(K)=C(K-N)*SAZ
      C(K-N)=C(K-N)*CAZ
18    K=K+1
20    CONTINUE
      RETURN
      END
C
C
C *********************************************************************
C Indices software
C *********************************************************************
C
C
        function ckp(ap)
C-----------------------------------------------------------------------
C Converts ap index (ap is integer variable varying linearly from 0 to 
C 400) into kp index (xkp is real variable varying logarithmically from 
C 0 to 9). Using standardtables for deriving the 3-hourly kp index from 
C the 3-hourly ap index (e.g., 
C https://www.ncei.noaa.gov/products/geomagnetic-indices) 
C-----------------------------------------------------------------------

        integer		ap,ap_array
        real		kp_array,ap_log_array
        dimension 	ap_array(28),kp_array(28),alap(28)
        data ap_array /0,2,3,4,5,6,7,9,12,15,18,22,27,32,39,48,56,67,
     &                 80,94,111,132,154,179,207,236,300,400/
        
        do 1256 i=2,28
1256       kp_array(i)=(i-1)/3.
		
        if(ap.eq.0) then
        	ckp=0.0
        	return
        	endif
        if(ap.eq.1) then
        	ckp=kp_array(2)/2.
        	return
        	endif
        if(ap.lt.8.and.ap.gt.1) then
        	ckp=kp_array(ap)
        	return
        	endif

        xl_ap=log(ap*1.0)
                	
        i=8
1257    alap(i)=log(ap_array(i)*1.0)
        if(xl_ap.gt.alap(i)) then
                i=i+1
                if(i.le.28) goto 1257
                endif

        slope=(kp_array(i)-kp_array(i-1))/(alap(i)-alap(i-1))
       
		ckp = kp_array(i) + slope * (xl_ap - alap(i))
		
		return
		end
C                   
C        
		subroutine auroral_boundary(xkp,xmlt,cgmlat,ab_mlat)
C-----------------------------------------------------------------------
C Computes equatorward auroral boundary values for givern kp value.
C kp given in units of 0.1 (xkp) for the range from 0.0 to 9.0. Model 
C values are only used for kp=0,1,2,3,4,5,6,7,8,9 and a linear inter-
C polation is applied for intermediate kp values.
C 
C The auroral oval boundary is given as an array for corrected magnetic 
C latitude CGM (ab_mlat). The 48 values correspond to the MLT values 
C of 0.0,0.5,1.0,1.5,2.0 .. 23.5. If the input xmlt is greater than
C -1, then the program determines the CGM latitude, cgmlat, that 
C corresponds to the given MLT value (xmlt).
C
C Y. Zhang and L.J. Paxton, An empirical Kp-dependent global auroral 
C model based on TIMED/GUVI FUV data, Journal of Atmospheric and 
C Solar-Terrestrial Physics 70, 1231–1242, 2008.
C 
C----------------------------------------------------------------------- 

        dimension zp_mlat(48,10),ab_mlat(48),ab_mlt(48)

      data zp_mlat/
     * 66.1,65.9,65.9,66.0,66.2,66.5,66.7,67.0,67.4,67.8,68.2,68.7,
     * 69.4,70.0,70.5,70.8,71.0,71.3,71.9,72.7,73.8,75.4,77.0,77.8,
     * 77.3,76.7,76.4,76.2,75.9,75.4,74.7,74.1,73.5,73.0,72.5,71.9,
     * 71.6,71.1,70.6,70.0,69.2,68.5,67.9,67.5,67.2,66.9,66.7,66.4,
     * 63.0,62.9,63.0,63.0,63.1,63.2,63.3,63.6,64.0,64.5,65.0,65.6,
     * 66.2,66.7,67.1,67.6,68.1,68.6,69.4,70.3,71.5,72.8,74.1,74.9,
     * 74.8,74.7,74.7,74.5,74.0,73.1,72.2,71.2,70.4,69.7,68.9,68.2,
     * 67.5,66.9,66.3,65.8,65.4,65.0,64.5,64.1,63.7,63.3,63.1,62.9,
     * 61.1,61.3,61.5,61.7,61.9,62.1,62.2,62.4,62.7,63.0,63.4,64.0,
     * 64.4,65.0,65.5,65.9,66.4,66.9,67.5,68.3,69.3,70.5,71.6,72.3,
     * 72.7,72.8,72.8,72.4,71.6,70.6,69.7,68.9,68.2,67.5,66.7,65.9,
     * 65.0,64.3,63.7,63.4,63.1,62.8,62.4,62.0,61.5,61.2,61.0,61.0,
     * 59.6,60.0,60.4,60.7,60.7,60.7,60.5,60.4,60.6,61.1,61.8,62.5,
     * 63.0,63.4,63.7,64.1,64.6,65.4,66.2,67.0,67.7,68.5,69.3,70.1,
     * 70.6,70.9,70.9,70.4,69.3,68.0,66.9,66.0,65.2,64.5,63.7,63.0,
     * 62.3,61.7,61.2,60.9,60.6,60.4,60.2,60.1,59.8,59.6,59.4,59.4,
     * 58.5,58.8,59.2,59.4,59.4,59.2,58.9,58.9,59.2,59.7,60.5,61.2,
     * 61.7,62.0,62.3,62.6,63.3,64.1,65.1,65.9,66.4,66.9,67.5,68.4,
     * 69.0,69.2,68.9,68.1,66.7,65.3,64.2,63.4,62.7,62.0,61.1,60.4,
     * 59.7,59.2,58.9,58.6,58.4,58.4,58.4,58.5,58.5,58.4,58.3,58.3,
     * 57.6,57.8,57.9,57.9,57.7,57.5,57.4,57.5,57.9,58.6,59.3,59.8,
     * 60.3,60.5,60.8,61.2,62.0,63.0,64.1,64.9,65.4,65.7,66.2,66.8,
     * 67.2,66.8,66.0,64.8,63.4,62.1,61.3,60.7,60.1,59.3,58.2,57.1,
     * 56.6,56.3,56.1,56.0,56.0,56.2,56.6,56.9,57.1,57.3,57.4,57.5,
     * 54.3,54.9,55.4,55.6,55.6,55.3,55.1,55.0,55.3,55.8,56.5,57.2,
     * 57.8,58.3,58.7,59.4,60.3,61.2,62.0,62.8,63.4,63.9,64.1,64.1,
     * 63.8,63.3,62.5,61.5,60.2,58.9,57.7,56.7,56.0,55.5,55.1,54.8,
     * 54.6,54.3,53.9,53.4,53.2,53.1,53.3,53.4,53.5,53.5,53.6,53.8,
     * 52.9,53.6,54.2,54.6,54.6,54.3,54.0,53.7,53.8,54.1,54.8,55.7,
     * 56.4,56.9,57.4,58.0,58.8,59.6,60.2,60.8,61.7,62.4,62.6,62.2,
     * 61.5,60.7,59.8,58.9,57.9,56.8,55.5,54.5,53.8,53.4,53.3,53.3,
     * 53.5,53.2,52.7,52.1,51.7,51.7,51.7,51.9,51.9,52.0,52.1,52.4,
     * 51.8,52.5,53.2,53.6,53.6,53.3,52.9,52.5,52.4,52.6,53.3,54.2,
     * 55.0,55.6,56.1,56.7,57.3,57.9,58.1,58.6,59.7,60.7,60.9,60.3,
     * 59.2,58.1,57.1,56.3,55.5,54.6,53.5,52.5,51.8,51.4,51.4,51.7,
     * 52.0,51.9,51.4,50.8,50.4,50.3,50.4,50.5,50.6,50.7,50.8,51.2,
     * 50.9,51.7,52.4,52.9,52.9,52.5,52.0,51.5,51.3,51.4,52.1,53.0,
     * 53.9,54.5,55.0,55.5,56.0,56.4,56.4,56.8,58.0,59.3,59.5,58.7,
     * 57.4,56.1,54.9,54.1,53.5,52.8,51.8,50.8,50.1,49.7,49.8,50.4,
     * 50.9,50.9,50.3,49.7,49.3,49.2,49.3,49.4,49.5,49.6,49.8,50.2/

        
        if(xkp.gt.9.0) xkp=9.0
        kp1=int(xkp)+1
        xkp1=int(xkp)*1.0
        kp2=kp1+1
        if(kp2.gt.10) kp2=10

        do i=1,48 
           ab_mlat(i)=zp_mlat(i,kp1)+(xkp-xkp1)*
     &      	(zp_mlat(i,kp2)-zp_mlat(i,kp1))
           enddo
           
        cgmlat=-99.99

        if(xmlt.lt.0.0) return
        
        do i=1,48 
        	ab_mlt(i)=(i-1)*.5
			enddo
        i1=int(xmlt/0.5)+1
        if(i1.ge.48) i1=1
        i2=i1+1
      
        s1=(zp_mlat(i2,kp1)-zp_mlat(i1,kp1))/(ab_mlt(i2)-ab_mlt(i1))
        zmlkp1=zp_mlat(i1,kp1)+(xmlt-ab_mlt(i1))*s1
        s2=(zp_mlat(i2,kp2)-zp_mlat(i1,kp2))/(ab_mlt(i2)-ab_mlt(i1))
        zmlkp2=zp_mlat(i1,kp2)+(xmlt-ab_mlt(i1))*s2
        
        cgmlat=zmlkp1+(xkp-xkp1)*(zmlkp2-zmlkp1)
		return
		end
C
C
