MODULE Rad_CliRadLW USE Constants, ONLY : r8 USE Options, ONLY : co2val ! co2val is wgne standard value in ppm IMPLICIT NONE PRIVATE !c-----parameters defining the size of the pre-computed tables for !c transmittance using table look-up. !c "nx" is the number of intervals in pressure !c "no" is the number of intervals in o3 amount !c "nc" is the number of intervals in co2 amount !c "nh" is the number of intervals in h2o amount INTEGER, PARAMETER :: nx=26 INTEGER, PARAMETER :: no=21 INTEGER, PARAMETER :: nc=24 INTEGER, PARAMETER :: nh=31 INTEGER, PARAMETER :: nt=7 REAL(KIND=r8) :: c1 (nx,nc,nt),c2 (nx,nc,nt),c3 (nx,nc,nt) REAL(KIND=r8) :: o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt) REAL(KIND=r8) :: h11(nx,nh,nt),h12(nx,nh,nt),h13(nx,nh,nt) REAL(KIND=r8) :: h21(nx,nh,nt),h22(nx,nh,nt),h23(nx,nh,nt) REAL(KIND=r8) :: h71(nx,nh,nt),h72(nx,nh,nt),h73(nx,nh,nt) PUBLIC :: cliradlw,InitCliRadLW CONTAINS SUBROUTINE InitCliRadLW() INTEGER :: ip,it,iw !-----copy tables to enhance the speed of co2 (band 3), o3 (band5), ! and h2o (bands 1, 2, and 7 only) transmission calculations ! using table look-up. LOGICAL, PARAMETER :: first=.TRUE. LOGICAL, PARAMETER :: high=.TRUE. ! !----------------------------------------------------------------------- ! ! Functions: ! !----------------------------------------------------------------------- ! ! REAL :: expmn ! !----------------------------------------------------------------------- ! ! Include files: ! !----------------------------------------------------------------------- ! ! include "h2o.tran3" ! include "co2.tran3" ! include "o3.tran3" ! !----------------------------------------------------------------------- ! ! Save variables: ! !----------------------------------------------------------------------- ! ! save c1,c2,c3,o1,o2,o3 ! save h11,h12,h13,h21,h22,h23,h71,h72,h73 ! CALL raddata() IF (first) THEN !-----tables co2 and h2o are only used with 'high' option IF (high) THEN DO iw=1,nh DO ip=1,nx h11(ip,iw,1)=1.0_r8-h11(ip,iw,1) h21(ip,iw,1)=1.0_r8-h21(ip,iw,1) h71(ip,iw,1)=1.0_r8-h71(ip,iw,1) END DO END DO DO iw=1,nc DO ip=1,nx c1(ip,iw,1)=1.0_r8-c1(ip,iw,1) END DO END DO !-----tables are replicated to avoid memory bank conflicts DO it=2,nt DO iw=1,nc DO ip=1,nx c1 (ip,iw,it)= c1(ip,iw,1) c2 (ip,iw,it)= c2(ip,iw,1) c3 (ip,iw,it)= c3(ip,iw,1) END DO END DO DO iw=1,nh DO ip=1,nx h11(ip,iw,it)=h11(ip,iw,1) h12(ip,iw,it)=h12(ip,iw,1) h13(ip,iw,it)=h13(ip,iw,1) h21(ip,iw,it)=h21(ip,iw,1) h22(ip,iw,it)=h22(ip,iw,1) h23(ip,iw,it)=h23(ip,iw,1) h71(ip,iw,it)=h71(ip,iw,1) h72(ip,iw,it)=h72(ip,iw,1) h73(ip,iw,it)=h73(ip,iw,1) END DO END DO END DO END IF !-----always use table look-up for ozone transmittance DO iw=1,no DO ip=1,nx o1(ip,iw,1)=1.0_r8-o1(ip,iw,1) END DO END DO DO it=2,nt DO iw=1,no DO ip=1,nx o1 (ip,iw,it)= o1(ip,iw,1) o2 (ip,iw,it)= o2(ip,iw,1) o3 (ip,iw,it)= o3(ip,iw,1) END DO END DO END DO ! first=.FALSE. END IF END SUBROUTINE InitCliRadLW SUBROUTINE cliradlw ( & ! Model Info and flags m , & np , & ! Atmospheric fields pl20 , & !-> level pressure (pl) mb m*(np+1) Pint , & tl , & !-> layer temperature (ta) k m*np ql , & !-> layer specific humidity (wa) g/g m*np o3l , & !-> layer ozone mixing ratio by mass (oa) g/g m*np tgg , & !-> land or ocean surface temperature (tg) k m*ns ! LW Radiation fields ulwclr , & !-> net downward flux, clear-sky (flc) w/m**2 m*(np+1) ulwtop , & !-> net downward flux, all-sky (flx) w/m**2 m*(np+1) atlclr , & !-> Heating rate in clear case (K/s) compute cooling rate profile clear-sky (flc) atl , & !-> Heating rate (K/s) compute cooling rate profile all-sky (flx) rsclr , & !-> Net surface flux in clear case (W/m2 )specify output fluxes for lwrad clear-sky (flc) rs , & !-> Net surface flux (W/m2 ) specify output fluxes for lwrad all-sky (flx) dlwclr , & !-> Downward flux at surface in clear case (W/m2 ) dlwbot , & ! Cloud field and Microphysics cld , & clu ) IMPLICIT NONE !tar !tarINTEGER, PARAMETER :: r8 = SELECTED_REAL_KIND(15) ! Kind for 64-bits Real Numbers !tar ! atlclr....Heating rate in clear case (K/s) ! atl.......Heating rate (K/s) ! rsclr.....Net surface flux in clear case (W/m2 ) ! rs........Net surface flux ! dlwclr....Downward flux at surface in clear case (W/m2 ) ! dlwbot....Downward flux at surface (W/m2 ) ! Model Info and flags INTEGER, INTENT(in) :: m INTEGER, INTENT(in) :: np ! Atmospheric fields REAL(KIND=r8), INTENT(in) :: pl20(m,np) REAL(KIND=r8), INTENT(in) :: Pint(m,np+1) REAL(KIND=r8), INTENT(in) :: tl (m,np) REAL(KIND=r8), INTENT(in) :: ql (m,np) REAL(KIND=r8), INTENT(in) :: o3l (m,np) REAL(KIND=r8), INTENT(in) :: tgg (m) ! LW Radiation fields REAL(KIND=r8), INTENT(out) :: ulwclr (m) REAL(KIND=r8), INTENT(out) :: ulwtop (m) REAL(KIND=r8), INTENT(out) :: rsclr (m) REAL(KIND=r8), INTENT(out) :: rs (m) REAL(KIND=r8), INTENT(out) :: dlwclr (m) REAL(KIND=r8), INTENT(out) :: dlwbot (m) REAL(KIND=r8), INTENT(out) :: atlclr (m,np) REAL(KIND=r8), INTENT(out) :: atl (m,np) ! Cloud field and Microphysics REAL(KIND=r8), INTENT(in) :: cld (m,np) REAL(KIND=r8), INTENT(in) :: clu (m,np) !c-----working parameters INTEGER :: np1, i,j,k INTEGER, PARAMETER :: ns=1 REAL(KIND=r8) :: pl(m,np+2) !c level pressure (pl) mb m*(np+1) REAL(KIND=r8) :: ta(m,np+1) !c layer temperature (ta) k m*np REAL(KIND=r8) :: wa(m,np+1) !c layer specific humidity (wa) g/g m*np REAL(KIND=r8) :: oa(m,np+1) REAL(KIND=r8) :: tb (m) REAL(KIND=r8) :: fs (m,ns) REAL(KIND=r8) :: tg (m,ns) REAL(KIND=r8) :: eg (m,ns,10) REAL(KIND=r8) :: taucl(m,np+1,3) REAL(KIND=r8) :: tauc(m,np+1) REAL(KIND=r8) :: fcld (m,np+1) REAL(KIND=r8) :: flx (m,np+2) REAL(KIND=r8) :: flc (m,np+2) REAL(KIND=r8) :: dfdts(m,np+2) REAL(KIND=r8) :: sfcem(m) REAL(KIND=r8) :: dp (m,np+1) REAL(KIND=r8) :: radlwin (m) REAL(KIND=r8) :: co2 INTEGER, PARAMETER :: rlwopt=1 ! is, k=1 is for top while k=nz is at the surface. ! Calculate water vapor, co2, and o3 transmittances using table ! look-up. rlwopt = 0, or high=.false. LOGICAL :: high IF ( rlwopt == 0 ) THEN high = .FALSE. ELSE high = .TRUE. END IF !c ---- initialize output fluxes tb =0.0_r8 fs =0.0_r8 tg =0.0_r8 eg =0.0_r8 taucl=0.0_r8 tauc=0.0_r8 dfdts=0.0_r8 fcld =0.0_r8 flx =0.0_r8 flc =0.0_r8 sfcem=0.0_r8 dp =0.0_r8 ulwclr = 0.0_r8 ulwtop = 0.0_r8 atlclr = 0.0_r8 atl = 0.0_r8 rsclr = 0.0_r8 rs = 0.0_r8 dlwclr = 0.0_r8 dlwbot = 0.0_r8 !ctar REAL(KIND=r8) ::tck !ctar REAL(KIND=r8) ::tbk !c-----specify new ozone concentration !ctar co2val=300.0_r8 co2=co2val*1.0e-6_r8 !c-----specify input errays in irrad !ctar do k=1,np !ctar do i=1,m !ctar pl(i,k+1)=pl20(i,k) !ctar ta(i,k)=tl(i,k) !ctar wa(i,k)=ql(i,k) !ctar oa(i,k)=o3l(i,k) !ctar enddo !ctar enddo DO k=1,np+1 DO i=1,m pl(i,k+1)=Pint(i,k) ENDDO ENDDO DO k=1,np DO i=1,m ta(i,k+1)=tl(i,k) wa(i,k+1)=ql(i,k) oa(i,k+1)=o3l(i,k) ENDDO ENDDO !c adding of 2 layers at top 0 mb --1mb --- np1=np+1 !c-----high pressure level DO i=1,m !tar pl(i,1)=1. pl(i,1)=0.0_r8 !mb pl(i,2)=pl(i,3)*0.5_r8 !mb ta(i,1)=tl(i,1)-20.0_r8 !tar wa(i,1)=1.0e-12_r8 IF (o3l(i,1).GE.2.5e-6_r8) THEN oa(i,1)=o3l(i,1) ELSE oa(i,1)=2.5e-6_r8 ENDIF !ctar ENDDO !c-----specify near surface air temperature tb as mean of lowest layer and Tg DO i=1,m tb(i)=(ta(i,np+1)+tgg(i))*0.5_r8 !c tb(i)=tgg(i) ENDDO !c--------specify ground properties DO i=1,m fs(i,ns)=1.0_r8 tg(i,ns)=tgg(i) DO j=1,10 eg(i,ns,j)=1.0_r8 ENDDO ENDDO !c-----specify cloud optical depth DO k=1,np1 DO i=1,m dp(i,k)=pl(i,k+1)-pl(i,k) taucl(i,k,1)=0.0_r8 taucl(i,k,2)=0.0_r8 taucl(i,k,3)=0.0_r8 fcld(i,k)=0.0_r8 ENDDO ENDDO DO k=9,np DO i=1,m IF (cld(i,k).GT.clu(i,k).AND.cld(i,k).GT.0.1_r8) THEN fcld(i,k+1)=cld(i,k) IF (ta(i,k+1).GT.253.0_r8) THEN taucl(i,k+1,2)=0.05_r8*dp(i,k+1)*1.16_r8 ELSE taucl(i,k+1,1)=0.025_r8*dp(i,k+1)*1.16_r8 ENDIF ENDIF IF (clu(i,k).GE.cld(i,k).AND.clu(i,k).GT.0.1_r8) THEN fcld(i,k+1)=clu(i,k) taucl(i,k+1,2)=0.05_r8*dp(i,k+1)*1.16_r8 ENDIF ENDDO ENDDO DO k=1,np DO i=1,m tauc(i,k)=taucl(i,k,1)+taucl(i,k,2)+taucl(i,k,3) END DO END DO CALL irrad( & m , & ! INTEGER , INTENT(IN ) :: m np1 , & ! INTEGER , INTENT(IN ) :: np tauc (1:m,1:np1) , & ! REAL(KIND=r8), INTENT(IN ) :: taucl (m,np) fcld (1:m,1:np1) , & ! REAL(KIND=r8), INTENT(IN ) :: ccld (m,np) pl (1:m,1:np1+1), & ! REAL(KIND=r8), INTENT(IN ) :: pl (m,np+1) ta (1:m,1:np1) , & ! REAL(KIND=r8), INTENT(IN ) :: ta (m,np) wa (1:m,1:np1) , & ! REAL(KIND=r8), INTENT(IN ) :: wa (m,np) oa (1:m,1:np1) , & ! REAL(KIND=r8), INTENT(IN ) :: oa (m,np) co2 , & ! REAL(KIND=r8), INTENT(IN ) :: co2 tb (1:m) , & ! REAL(KIND=r8), INTENT(IN ) :: ts (m) high , & ! LOGICAL , INTENT(IN ) :: high radlwin (1:m) , & ! REAL(KIND=r8), INTENT(OUT ) :: radlwin (m) flx (1:m,1:np1+1), & ! REAL(KIND=r8), INTENT(OUT ) :: flx (m,np+1) flc (1:m,1:np1+1), & ! REAL(KIND=r8), INTENT(OUT ) :: flc (m,np+1) dfdts (1:m,1:np1+1), & ! REAL(KIND=r8), INTENT(OUT ) :: dfdts (m,np+1) sfcem (1:m) ) ! REAL(KIND=r8), INTENT(OUT ) :: sfcem (m) !c-----compute cooling rate profile !ctar DO k=1,np DO i=1,m ! atl(i,k)=-(flx(i,k+2)-flx(i,k+1))*8.441874/ & atl(i,k)=-(flx(i,k+2)-flx(i,k+1))*9.7706e-5_r8/ & dp(i,k+1) ! atlclr(i,k)=-(flc(i,k+2)-flc(i,k+1))*8.441874/ & atlclr(i,k)=-(flc(i,k+2)-flc(i,k+1))*9.7706e-5_r8/ & dp(i,k+1) ENDDO ENDDO DO k=1,np DO i=1,m IF(ABS(atlclr(i,k)) .LT. 1.e-22_r8) atlclr(i,k)=0._r8 IF(ABS(atl(i,k)) .LT. 1.e-22_r8) atl(i,k) =0._r8 ! atlclr(i,k) = atlclr(i,k) * 1.1574e-5 ! atl(i,k) = atl(i,k) * 1.1574e-5 ENDDO ENDDO !c-----specify output fluxes for lwrad !c emission by the surface (sfcem) w/m**2 m DO i=1,m ulwclr(i) = -flc(i,1) ulwtop(i) = -flx(i,1) rsclr(i) = -flc(i,np+2) rs(i) = -flx(i,np+2) dlwclr(i) = flc(i,np+2)-sfcem(i) dlwbot(i) = flx(i,np+2)-sfcem(i) ENDDO END SUBROUTINE cliradlw ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE IRRAD ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE irrad( & m , & ! INTEGER, INTENT(IN ) :: m np , & ! INTEGER, INTENT(IN ) :: np taucl , & ! REAL(KIND=r8), INTENT(IN ) :: taucl(m,np) ccld , & ! REAL(KIND=r8), INTENT(IN ) :: ccld (m,np) pl , & ! REAL(KIND=r8), INTENT(IN ) :: pl (m,np+1) ta , & ! REAL(KIND=r8), INTENT(IN ) :: ta (m,np) wa , & ! REAL(KIND=r8), INTENT(IN ) :: wa (m,np) oa , & ! REAL(KIND=r8), INTENT(IN ) :: oa (m,np) co2 , & ! REAL(KIND=r8), INTENT(IN ) :: co2 ts , & ! REAL(KIND=r8), INTENT(IN ) :: ts (m) high , & ! LOGICAL , INTENT(IN ) :: high radlwin , & ! REAL(KIND=r8), INTENT(OUT ) :: radlwin (m) flx , & ! REAL(KIND=r8), INTENT(OUT ) :: flx (m,np+1) flc , & ! REAL(KIND=r8), INTENT(OUT ) :: flc (m,np+1) dfdts , & ! REAL(KIND=r8), INTENT(OUT ) :: dfdts (m,np+1) st4 ) ! REAL(KIND=r8), INTENT(OUT ) :: st4 (m) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate IR fluxes due to water vapor, co2, and o3. Clouds in ! different layers are assumed randomly overlapped. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !******************** CLIRAD IR1 Date: Oct. 17, 1994 **************** !********************************************************************* ! ! This routine computes ir fluxes due to water vapor, co2, and o3. ! Clouds in different layers are assumed randomly overlapped. ! ! This is a vectorized code. It computes fluxes simultaneously for ! (m x n) soundings, which is a subset of (m x ndim) soundings. ! In a global climate model, m and ndim correspond to the numbers of ! grid boxes in the zonal and meridional directions, respectively. ! ! Detailed description of the radiation routine is given in ! Chou and Suarez (1994). ! ! There are two options for computing cooling rate profiles. ! ! if high = .true., transmission functions in the co2, o3, and the ! three water vapor bands with strong absorption are computed using ! table look-up. cooling rates are computed accurately from the ! surface up to 0.01 mb. ! if high = .false., transmission functions are computed using the ! k-distribution method with linear pressure scaling. cooling rates ! are not calculated accurately for pressures less than 20 mb. ! the computation is faster with high=.false. than with high=.true. ! ! The IR spectrum is divided into eight bands: ! ! bnad wavenumber (/cm) absorber method ! ! 1 0 - 340 h2o K/T ! 2 340 - 540 h2o K/T ! 3 540 - 800 h2o,cont,co2 K,S,K/T ! 4 800 - 980 h2o,cont K,S ! 5 980 - 1100 h2o,cont,o3 K,S,T ! 6 1100 - 1380 h2o,cont K,S ! 7 1380 - 1900 h2o K/T ! 8 1900 - 3000 h2o K ! ! Note : "h2o" for h2o line absorption ! "cont" for h2o continuum absorption ! "K" for k-distribution method ! "S" for one-parameter temperature scaling ! "T" for table look-up ! ! The 15 micrometer region (540-800/cm) is further divided into ! 3 sub-bands : ! ! subbnad wavenumber (/cm) ! ! 1 540 - 620 ! 2 620 - 720 ! 3 720 - 800 ! !---- Input parameters units size ! ! number of soundings in zonal direction (m) n/d 1 ! number of soundings in meridional direction (n) n/d 1 ! maximum number of soundings in ! meridional direction (ndim) n/d 1 ! number of atmospheric layers (np) n/d 1 ! cloud optical thickness (taucl) n/d m*ndim*np ! cloud cover (ccld) fraction m*ndim*np ! level pressure (pl) mb m*ndim*(np+1) ! layer temperature (ta) k m*ndim*np ! layer specific humidity (wa) g/g m*ndim*np ! layer ozone mixing ratio by mass (oa) g/g m*ndim*np ! surface temperature (ts) k m*ndim ! co2 mixing ratio by volumn (co2) pppv 1 ! high 1 ! ! pre-computed tables used in table look-up for transmittance calculations: ! ! c1 , c2, c3: for co2 (band 3) ! o1 , o2, o3: for o3 (band 5) ! h11,h12,h13: for h2o (band 1) ! h21,h22,h23: for h2o (band 2) ! h71,h72,h73: for h2o (band 7) ! !---- output parameters ! ! net downward flux, all-sky (flx) w/m**2 m*ndim*(np+1) ! net downward flux, clear-sky (flc) w/m**2 m*ndim*(np+1) ! sensitivity of net downward flux ! to surface temperature (dfdts) w/m**2/k m*ndim*(np+1) ! emission by the surface (st4) w/m**2 m*ndim ! ! Notes: ! ! (1) Water vapor continuum absorption is included in 540-1380 /cm. ! (2) Scattering by clouds is not included. ! (3) Clouds are assumed "gray" bodies. ! (4) The diffuse cloud transmission is computed to be exp(-1.66*taucl). ! (5) If there are no clouds, flx=flc. ! (6) plevel(1) is the pressure at the top of the model atmosphere, and ! plevel(np+1) is the surface pressure. ! ! ARPS note: pl was replaced by pa at scalar points (layers) ! ! (7) Downward flux is positive, and upward flux is negative. ! (8) dfdts is always negative because upward flux is defined as negative. ! (9) For questions and coding errors, please contact with Ming-Dah Chou, ! Code 913, NASA/Goddard Space Flight Center, Greenbelt, MD 20771. ! Phone: 301-286-4012, Fax: 301-286-1759, ! e-mail: chou@climate.gsfc.nasa.gov ! !-----parameters defining the size of the pre-computed tables for transmittance ! calculations using table look-up. ! ! "nx" is the number of intervals in pressure ! "no" is the number of intervals in o3 amount ! "nc" is the number of intervals in co2 amount ! "nh" is the number of intervals in h2o amount ! "nt" is the number of copies to be made from the pre-computed ! transmittance tables to reduce "memory-bank conflict" ! in parallel machines and, hence, enhancing the speed of ! computations using table look-up. ! If such advantage does not exist, "nt" can be set to 1. !*************************************************************************** ! !fpp$ expand (expmn) !!dir$ inline always expmn !*$* inline routine (expmn) ! !----------------------------------------------------------------------- ! ! !----------------------------------------------------------------------- ! ! Variable Declarations. ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER, INTENT(IN ) :: m INTEGER, INTENT(IN ) :: np !---- input parameters ------ REAL(KIND=r8), INTENT(IN ) :: taucl(m,np) REAL(KIND=r8), INTENT(IN ) :: ccld (m,np) REAL(KIND=r8), INTENT(IN ) :: pl (m,np+1) REAL(KIND=r8), INTENT(IN ) :: ta (m,np) REAL(KIND=r8), INTENT(IN ) :: wa (m,np) REAL(KIND=r8), INTENT(IN ) :: oa (m,np) REAL(KIND=r8), INTENT(IN ) :: co2 REAL(KIND=r8), INTENT(IN ) :: ts (m) LOGICAL , INTENT(IN ) :: high !---- output parameters ------ REAL(KIND=r8), INTENT(OUT ) :: radlwin (m) REAL(KIND=r8), INTENT(OUT ) :: flx (m,np+1) REAL(KIND=r8), INTENT(OUT ) :: flc (m,np+1) REAL(KIND=r8), INTENT(OUT ) :: dfdts (m,np+1) REAL(KIND=r8), INTENT(OUT ) :: st4 (m) ! !----------------------------------------------------------------------- ! ! Temporary arrays ! !----------------------------------------------------------------------- ! REAL(KIND=r8) :: fclr(m) REAL(KIND=r8) :: dbs(m) REAL(KIND=r8) :: trant(m) REAL(KIND=r8) :: th2o(m,6) REAL(KIND=r8) :: tcon(m,3) REAL(KIND=r8) :: tco2(m,6,2) REAL(KIND=r8) :: pa(m,np) REAL(KIND=r8) :: dt(m,np) REAL(KIND=r8) :: sh2o(m,np+1) REAL(KIND=r8) :: swpre(m,np+1) REAL(KIND=r8) :: swtem(m,np+1) REAL(KIND=r8) :: sco3(m,np+1) REAL(KIND=r8) :: scopre(m,np+1) REAL(KIND=r8) :: scotem(m,np+1) REAL(KIND=r8) :: dh2o(m,np) REAL(KIND=r8) :: dcont(m,np) REAL(KIND=r8) :: dco2(m,np) REAL(KIND=r8) :: do3(m,np) REAL(KIND=r8) :: flxu(m,np+1) REAL(KIND=r8) :: flxd(m,np+1) REAL(KIND=r8) :: clr(m,0:np+1) REAL(KIND=r8) :: blayer(m,0:np+1) REAL(KIND=r8) :: h2oexp(m,np,6) REAL(KIND=r8) :: conexp(m,np,3) REAL(KIND=r8) :: co2exp(m,np,6,2) ! !----------------------------------------------------------------------- ! ! Misc. local variables ! !----------------------------------------------------------------------- ! LOGICAL :: oznbnd LOGICAL :: co2bnd LOGICAL :: h2otbl LOGICAL :: conbnd REAL(KIND=r8) :: xx, w1,p1,dwe,dpe !---- static data ----- !-----the following coefficients (table 2 of chou and suarez, 1995) ! are for computing spectrally integtrated planck fluxes of ! the 8 bands using eq. (22) ! INTEGER, PARAMETER :: mw(8) =RESHAPE(SOURCE=(/6,6,8,6,6,8,6,16/),SHAPE=(/8/)) REAL(KIND=r8) :: cb(5,8) =RESHAPE(SOURCE=(/& -2.6844E-1_r8,-8.8994E-2_r8, 1.5676E-3_r8,-2.9349E-6_r8, 2.2233E-9_r8,& 3.7315E+1_r8,-7.4758E-1_r8, 4.6151E-3_r8,-6.3260E-6_r8, 3.5647E-9_r8,& 3.7187E+1_r8,-3.9085E-1_r8,-6.1072E-4_r8, 1.4534E-5_r8,-1.6863E-8_r8,& -4.1928E+1_r8, 1.0027E+0_r8,-8.5789E-3_r8, 2.9199E-5_r8,-2.5654E-8_r8,& -4.9163E+1_r8, 9.8457E-1_r8,-7.0968E-3_r8, 2.0478E-5_r8,-1.5514E-8_r8,& -1.0345E+2_r8, 1.8636E+0_r8,-1.1753E-2_r8, 2.7864E-5_r8,-1.1998E-8_r8,& -6.9233E+0_r8,-1.5878E-1_r8, 3.9160E-3_r8,-2.4496E-5_r8, 4.9301E-8_r8,& 1.1483E+2_r8,-2.2376E+0_r8, 1.6394E-2_r8,-5.3672E-5_r8, 6.6456E-8_r8/),SHAPE=(/5,8/)) INTEGER :: i INTEGER :: k INTEGER :: ib INTEGER :: ik INTEGER :: iq INTEGER :: isb INTEGER :: k1 INTEGER :: k2 !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! !-----compute layer pressure (pa) and layer temperature minus 250K (dt) DO k=1,np DO i=1,m dt(i,k)=ta(i,k)-250.0_r8 pa(i,k)=0.5_r8*(pl(i,k)+pl(i,k+1)) END DO END DO !-----compute layer absorber amount ! dh2o : water vapor amount (g/cm**2) ! dcont: scaled water vapor amount for continuum absorption (g/cm**2) ! dco2 : co2 amount (cm-atm)stp ! do3 : o3 amount (cm-atm)stp ! the factor 1.02 is equal to 1000/980 ! factors 789 and 476 are for unit conversion ! the factor 0.001618 is equal to 1.02/(.622*1013.25) ! the factor 6.081 is equal to 1800/296 DO k=1,np DO i=1,m dh2o(i,k) = 1.02_r8*wa(i,k)*(pl(i,k+1)-pl(i,k))+1.e-10_r8 dco2(i,k) = 789.0_r8*co2*(pl(i,k+1)-pl(i,k))+1.e-10_r8 do3 (i,k) = 476.0_r8*oa(i,k)*(pl(i,k+1)-pl(i,k))+1.e-10_r8 !-----compute scaled water vapor amount for h2o continuum absorption ! following eq. (43). xx=pa(i,k)*0.001618_r8*wa(i,k)*wa(i,k) & *(pl(i,k+1)-pl(i,k)) dcont(i,k) = xx*expmn(1800.0_r8/ta(i,k)-6.081_r8)+1.e-10_r8 !-----compute effective cloud-free fraction, clr, for each layer. ! the cloud diffuse transmittance is approximated by using a ! diffusivity factor of 1.66. clr(i,k)=1.0_r8-(ccld(i,k)*(1.0_r8-expmn(-1.66_r8*taucl(i,k)))) END DO END DO !-----compute column-integrated h2o amoumt, h2o-weighted pressure ! and temperature. it follows eqs. (37) and (38). IF (high) THEN CALL column(m , &! INTEGER , INTENT(IN ) :: m ! number of soundings in zonal direction (m) np , &! INTEGER , INTENT(IN ) :: np ! number of atmospheric layers (np) pa (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np) ! layer pressure (pa) dt (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np) ! layer temperature minus 250K (dt) dh2o (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: sabs0(m,n,np) ! layer absorber amount (sabs0) sh2o (1:m,1:np+1), &! REAL(KIND=r8), INTENT(OUT ) :: sabs (m,n,np+1)! column-integrated absorber amount (sabs) swpre(1:m,1:np+1), &! REAL(KIND=r8), INTENT(OUT ) :: spre (m,n,np+1)! column absorber-weighted pressure (spre) swtem(1:m,1:np+1) )! REAL(KIND=r8), INTENT(OUT ) :: stem (m,n,np+1)! column absorber-weighted temperature (stem) END IF !-----the surface (with an index np+1) is treated as a layer filled with ! black clouds. DO i=1,m clr(i,0) = 1.0_r8 clr(i,np+1) = 0.0_r8 st4(i) = 0.0_r8 END DO !-----initialize fluxes DO k=1,np+1 DO i=1,m flx(i,k) = 0.0_r8 flc(i,k) = 0.0_r8 dfdts(i,k)= 0.0_r8 flxu(i,k) = 0.0_r8 flxd(i,k) = 0.0_r8 END DO END DO !-----integration over spectral bands DO ib=1,8 !-----if h2otbl, compute h2o (line) transmittance using table look-up. ! if conbnd, compute h2o (continuum) transmittance in bands 3, 4, 5 and 6. ! if co2bnd, compute co2 transmittance in band 3. ! if oznbnd, compute o3 transmittance in band 5. h2otbl=high.AND.(ib == 1 .OR. ib == 2 .OR. ib == 7) conbnd=ib >= 3 .AND. ib <= 6 co2bnd=ib == 3 oznbnd=ib == 5 !-----blayer is the spectrally integrated planck flux of the mean layer ! temperature derived from eq. (22) ! the fitting for the planck flux is valid in the range 160-345 K. DO k=1,np DO i=1,m blayer(i,k)=ta(i,k)*(ta(i,k)*(ta(i,k) & *(ta(i,k)*cb(5,ib)+cb(4,ib))+cb(3,ib)) & +cb(2,ib))+cb(1,ib) END DO END DO !-----the earth's surface, with an index "np+1", is treated as a layer DO i=1,m blayer(i,0) = 0.0_r8 blayer(i,np+1)=ts(i)*(ts(i)*(ts(i) & *(ts(i)*cb(5,ib)+cb(4,ib))+cb(3,ib)) & +cb(2,ib))+cb(1,ib) !-----dbs is the derivative of the surface planck flux with respect to ! surface temperature (eq. 59). dbs(i)=ts(i)*(ts(i)*(ts(i) & *4.0_r8*cb(5,ib)+3.0_r8*cb(4,ib))+2.0_r8*cb(3,ib))+cb(2,ib) END DO !-----compute column-integrated absorber amoumt, absorber-weighted ! pressure and temperature for co2 (band 3) and o3 (band 5). ! it follows eqs. (37) and (38). !-----this is in the band loop to save storage IF( high .AND. co2bnd) THEN CALL column(m , &! INTEGER , INTENT(IN ) :: m ! number of soundings in zonal direction (m) np , &! INTEGER , INTENT(IN ) :: np ! number of atmospheric layers (np) pa (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np) ! layer pressure (pa) dt (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np) ! layer temperature minus 250K (dt) dco2 (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: sabs0(m,n,np) ! layer absorber amount (sabs0) sco3 (1:m,1:np+1), &! REAL(KIND=r8), INTENT(OUT ) :: sabs (m,n,np+1)! column-integrated absorber amount (sabs) scopre(1:m,1:np+1), &! REAL(KIND=r8), INTENT(OUT ) :: spre (m,n,np+1)! column absorber-weighted pressure (spre) scotem(1:m,1:np+1) )! REAL(KIND=r8), INTENT(OUT ) :: stem (m,n,np+1)! column absorber-weighted temperature (stem) END IF IF(oznbnd) THEN CALL column(m , &! INTEGER , INTENT(IN ) :: m ! number of soundings in zonal direction (m) np , &! INTEGER , INTENT(IN ) :: np ! number of atmospheric layers (np) pa (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np) ! layer pressure (pa) dt (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np) ! layer temperature minus 250K (dt) do3 (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: sabs0(m,n,np) ! layer absorber amount (sabs0) sco3 (1:m,1:np+1), &! REAL(KIND=r8), INTENT(OUT ) :: sabs (m,n,np+1)! column-integrated absorber amount (sabs) scopre(1:m,1:np+1), &! REAL(KIND=r8), INTENT(OUT ) :: spre (m,n,np+1)! column absorber-weighted pressure (spre) scotem(1:m,1:np+1) )! REAL(KIND=r8), INTENT(OUT ) :: stem (m,n,np+1)! column absorber-weighted temperature (stem) END IF !-----compute the exponential terms (eq. 32) at each layer for ! water vapor line absorption when k-distribution is used IF( .NOT. h2otbl) THEN CALL h2oexps(ib , &! INTEGER, INTENT(IN ) :: ib! spectral band (ib) m , &! INTEGER, INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np , &! INTEGER, INTENT(IN ) :: np! number of layers (np) dh2o (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: dh2o (m,n,np) ! layer water vapor amount for line absorption (dh2o) pa (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np) ! layer pressure (pa) dt (1:m,1:np) , &! REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np) ! layer temperature minus 250K (dt) h2oexp(1:m,1:np,1:6) )! REAL(KIND=r8), INTENT(INOUT) :: h2oexp(m,n,np,6) ! 6 exponentials for each layer (h2oexp) END IF !-----compute the exponential terms (eq. 46) at each layer for ! water vapor continuum absorption IF( conbnd) THEN CALL conexps(ib ,&!INTEGER, INTENT(IN ) :: ib! spectral band (ib) m ,&!INTEGER, INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np ,&!INTEGER, INTENT(IN ) :: np ! number of layers (np) dcont (1:m,1:np) ,&!REAL(KIND=r8), INTENT(IN ) :: dcont (m,n,np) ! layer scaled water vapor amount for continuum absorption (dcont) conexp(1:m,1:np,1:3) )!REAL(KIND=r8), INTENT(INOUT) :: conexp(m,n,np,3)! 1 or 3 exponentials for each layer (conexp) END IF !-----compute the exponential terms (eq. 32) at each layer for ! co2 absorption IF( .NOT.high .AND. co2bnd) THEN CALL co2exps(m ,& !INTEGER, INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np ,& !INTEGER, INTENT(IN ) :: np! number of layers (np) dco2 (1:m,1:np) ,& !REAL(KIND=r8), INTENT(IN ) :: dco2 (m,n,np) ! layer co2 amount (dco2) pa (1:m,1:np) ,& !REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np) ! layer pressure (pa) dt (1:m,1:np) ,& !REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np) ! layer temperature minus 250K (dt) co2exp(1:m,1:np,1:6,1:2) ) !REAL(KIND=r8), INTENT(INOUT) :: co2exp(m,n,np,6,2) ! 6 exponentials for each layer (co2exp) END IF !-----compute transmittances for regions between levels k1 and k2 ! and update the fluxes at the two levels. DO k1=1,np !-----initialize fclr, th2o, tcon, and tco2 DO i=1,m fclr(i)=1.0_r8 END DO !-----for h2o line absorption IF(.NOT. h2otbl) THEN DO ik=1,6 DO i=1,m th2o(i,ik)=1.0_r8 END DO END DO END IF !-----for h2o continuum absorption IF (conbnd) THEN DO iq=1,3 DO i=1,m tcon(i,iq)=1.0_r8 END DO END DO END IF !-----for co2 absorption when using k-distribution method. ! band 3 is divided into 3 sub-bands, but sub-bands 3a and 3c ! are combined in computing the co2 transmittance. IF (.NOT. high .AND. co2bnd) THEN DO isb=1,2 DO ik=1,6 DO i=1,m tco2(i,ik,isb)=1.0_r8 END DO END DO END DO END IF !-----loop over the bottom level of the region (k2) DO k2=k1+1,np+1 DO i=1,m trant(i)=1.0_r8 END DO IF(h2otbl) THEN w1=-8.0_r8 p1=-2.0_r8 dwe=0.3_r8 dpe=0.2_r8 !-----compute water vapor transmittance using table look-up IF (ib == 1 ) THEN CALL tablup(k1 , &!INTEGER ,INTENT(IN ) :: k1 indices for pressure levels (k1 and k2) k2 , &!INTEGER ,INTENT(IN ) :: k2 indices for pressure levels (k1 and k2) m , &!INTEGER ,INTENT(IN ) :: m number of grid intervals in zonal direction (m) np , &!INTEGER ,INTENT(IN ) :: np number of atmospheric layers (np) nx , &!INTEGER ,INTENT(IN ) :: nx number of pressure intervals in the table (nx) nh , &!INTEGER ,INTENT(IN ) :: nh number of absorber amount intervals in the table (nh) nt , &!INTEGER ,INTENT(IN ) :: nt number of tables copied (nt) sh2o (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: sabs(m,n,np+1) column-integrated absorber amount (sabs) swpre(1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: spre(m,n,np+1) column absorber amount-weighted pressure (spre) swtem(1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: stem(m,n,np+1) column absorber amount-weighted temperature (stem) w1 , &!REAL(KIND=r8),INTENT(IN ) :: w1 first value of absorber amount (log10) in the table (w1) p1 , &!REAL(KIND=r8),INTENT(IN ) :: p1 first value of pressure (log10) in the table (p1) dwe , &!REAL(KIND=r8),INTENT(IN ) :: dwe size of the interval of absorber amount (log10) in the table (dwe) dpe , &!REAL(KIND=r8),INTENT(IN ) :: dpe size of the interval of pressure (log10) in the table (dpe) h11 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) h12 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) h13 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) trant(1:m) )!REAL(KIND=r8),INTENT(INOUT) :: tran(m,n) updated transmittance (tran) END IF IF (ib == 2 ) THEN CALL tablup(k1 , &!INTEGER ,INTENT(IN ) :: k1 indices for pressure levels (k1 and k2) k2 , &!INTEGER ,INTENT(IN ) :: k2 indices for pressure levels (k1 and k2) m , &!INTEGER ,INTENT(IN ) :: m number of grid intervals in zonal direction (m) np , &!INTEGER ,INTENT(IN ) :: np number of atmospheric layers (np) nx , &!INTEGER ,INTENT(IN ) :: nx number of pressure intervals in the table (nx) nh , &!INTEGER ,INTENT(IN ) :: nh number of absorber amount intervals in the table (nh) nt , &!INTEGER ,INTENT(IN ) :: nt number of tables copied (nt) sh2o (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: sabs(m,n,np+1) column-integrated absorber amount (sabs) swpre (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: spre(m,n,np+1) column absorber amount-weighted pressure (spre) swtem (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: stem(m,n,np+1) column absorber amount-weighted temperature (stem) w1 , &!REAL(KIND=r8),INTENT(IN ) :: w1 first value of absorber amount (log10) in the table (w1) p1 , &!REAL(KIND=r8),INTENT(IN ) :: p1 first value of pressure (log10) in the table (p1) dwe , &!REAL(KIND=r8),INTENT(IN ) :: dwe size of the interval of absorber amount (log10) in the table (dwe) dpe , &!REAL(KIND=r8),INTENT(IN ) :: dpe size of the interval of pressure (log10) in the table (dpe) h21 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) h22 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) h23 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) trant (1:m) )!REAL(KIND=r8),INTENT(INOUT) :: tran(m,n) updated transmittance (tran) END IF IF (ib == 7 ) THEN CALL tablup(k1 , &!INTEGER ,INTENT(IN ) :: k1 indices for pressure levels (k1 and k2) k2 , &!INTEGER ,INTENT(IN ) :: k2 indices for pressure levels (k1 and k2) m , &!INTEGER ,INTENT(IN ) :: m number of grid intervals in zonal direction (m) np , &!INTEGER ,INTENT(IN ) :: np number of atmospheric layers (np) nx , &!INTEGER ,INTENT(IN ) :: nx number of pressure intervals in the table (nx) nh , &!INTEGER ,INTENT(IN ) :: nh number of absorber amount intervals in the table (nh) nt , &!INTEGER ,INTENT(IN ) :: nt number of tables copied (nt) sh2o (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: sabs(m,n,np+1) column-integrated absorber amount (sabs) swpre (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: spre(m,n,np+1) column absorber amount-weighted pressure (spre) swtem (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: stem(m,n,np+1) column absorber amount-weighted temperature (stem) w1 , &!REAL(KIND=r8),INTENT(IN ) :: w1 first value of absorber amount (log10) in the table (w1) p1 , &!REAL(KIND=r8),INTENT(IN ) :: p1 first value of pressure (log10) in the table (p1) dwe , &!REAL(KIND=r8),INTENT(IN ) :: dwe size of the interval of absorber amount (log10) in the table (dwe) dpe , &!REAL(KIND=r8),INTENT(IN ) :: dpe size of the interval of pressure (log10) in the table (dpe) h71 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) h72 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) h73 (1:nx,1:nh,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) trant (1:m) )!REAL(KIND=r8),INTENT(INOUT) :: tran(m,n) updated transmittance (tran) END IF ELSE !-----compute water vapor transmittance using k-distribution. CALL wvkdis(ib ,& !INTEGER , INTENT(IN ) :: ib ! spectral band (ib) m ,& !INTEGER , INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np ,& !INTEGER , INTENT(IN ) :: np ! number of levels (np) k2-1 ,& !INTEGER , INTENT(IN ) :: k ! current level (k) h2oexp(1:m,1:np,1:6) ,& !REAL(KIND=r8), INTENT(IN ) :: h2oexp(m,n,np,6) ! exponentials for continuum absorption (conexp) conexp(1:m,1:np,1:3) ,& !REAL(KIND=r8), INTENT(IN ) :: conexp(m,n,np,3) ! exponentials for line absorption (h2oexp) th2o (1:m,1:6) ,& !REAL(KIND=r8), INTENT(INOUT) :: th2o (m,n,6) ! transmittance between levels k1 and k2 due to water vapor line absorption (th2o) tcon (1:m,1:3) ,& !REAL(KIND=r8), INTENT(INOUT) :: tcon (m,n,3) ! transmittance between levels k1 and k2 due to water vapor continuum absorption (tcon) trant (1:m) ) !REAL(KIND=r8), INTENT(INOUT) :: tran (m,n) ! total transmittance (tran) END IF IF(co2bnd) THEN IF( high ) THEN !-----compute co2 transmittance using table look-up method w1=-4.0_r8 p1=-2.0_r8 dwe=0.3_r8 dpe=0.2_r8 CALL tablup(k1 , &!INTEGER ,INTENT(IN ) :: k1 indices for pressure levels (k1 and k2) k2 , &!INTEGER ,INTENT(IN ) :: k2 indices for pressure levels (k1 and k2) m , &!INTEGER ,INTENT(IN ) :: m number of grid intervals in zonal direction (m) np , &!INTEGER ,INTENT(IN ) :: np number of atmospheric layers (np) nx , &!INTEGER ,INTENT(IN ) :: nx number of pressure intervals in the table (nx) nc , &!INTEGER ,INTENT(IN ) :: nh number of absorber amount intervals in the table (nh) nt , &!INTEGER ,INTENT(IN ) :: nt number of tables copied (nt) sco3 (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: sabs(m,n,np+1) column-integrated absorber amount (sabs) scopre (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: spre(m,n,np+1) column absorber amount-weighted pressure (spre) scotem (1:m,1:np+1) , &!REAL(KIND=r8),INTENT(IN ) :: stem(m,n,np+1) column absorber amount-weighted temperature (stem) w1 , &!REAL(KIND=r8),INTENT(IN ) :: w1 first value of absorber amount (log10) in the table (w1) p1 , &!REAL(KIND=r8),INTENT(IN ) :: p1 first value of pressure (log10) in the table (p1) dwe , &!REAL(KIND=r8),INTENT(IN ) :: dwe size of the interval of absorber amount (log10) in the table (dwe) dpe , &!REAL(KIND=r8),INTENT(IN ) :: dpe size of the interval of pressure (log10) in the table (dpe) c1 (1:nx,1:nc,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) c2 (1:nx,1:nc,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) c3 (1:nx,1:nc,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) trant (1:m) ) !REAL(KIND=r8),INTENT(INOUT) :: tran(m,n) updated transmittance (tran) ELSE !-----compute co2 transmittance using k-distribution method CALL co2kdis(m , &! INTEGER , INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np , &! INTEGER , INTENT(IN ) :: np k2-1 , &! INTEGER , INTENT(IN ) :: k co2exp(1:m,1:np,1:6,1:2) , &! REAL(KIND=r8) , INTENT(IN ) :: co2exp(m,n,np,6,2) tco2 (1:m,1:6,1:2) , &! REAL(KIND=r8) , INTENT(INOUT ) :: tco2 (m,n,6,2) ! for the various values of the absorption coefficient (tco2) trant (1:m) )! REAL(KIND=r8) , INTENT(INOUT ) :: tran (m,n) ! total transmittance (tran) END IF END IF !-----compute o3 transmittance using table look-up IF (oznbnd) THEN w1=-6.0_r8 p1=-2.0_r8 dwe=0.3_r8 dpe=0.2_r8 CALL tablup(k1 , &!INTEGER ,INTENT(IN ) :: k1 indices for pressure levels (k1 and k2) k2 , &!INTEGER ,INTENT(IN ) :: k2 indices for pressure levels (k1 and k2) m , &!INTEGER ,INTENT(IN ) :: m number of grid intervals in zonal direction (m) np , &!INTEGER ,INTENT(IN ) :: np number of atmospheric layers (np) nx , &!INTEGER ,INTENT(IN ) :: nx number of pressure intervals in the table (nx) no , &!INTEGER ,INTENT(IN ) :: nh number of absorber amount intervals in the table (nh) nt , &!INTEGER ,INTENT(IN ) :: nt number of tables copied (nt) sco3 (1:m,1:np+1), &!REAL(KIND=r8),INTENT(IN ) :: sabs(m,n,np+1) column-integrated absorber amount (sabs) scopre (1:m,1:np+1), &!REAL(KIND=r8),INTENT(IN ) :: spre(m,n,np+1) column absorber amount-weighted pressure (spre) scotem (1:m,1:np+1), &!REAL(KIND=r8),INTENT(IN ) :: stem(m,n,np+1) column absorber amount-weighted temperature (stem) w1 , &!REAL(KIND=r8),INTENT(IN ) :: w1 first value of absorber amount (log10) in the table (w1) p1 , &!REAL(KIND=r8),INTENT(IN ) :: p1 first value of pressure (log10) in the table (p1) dwe , &!REAL(KIND=r8),INTENT(IN ) :: dwe size of the interval of absorber amount (log10) in the table (dwe) dpe , &!REAL(KIND=r8),INTENT(IN ) :: dpe size of the interval of pressure (log10) in the table (dpe) o1 (1:nx,1:no,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) o2 (1:nx,1:no,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) o3 (1:nx,1:no,1:nt), &!REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) trant (1:m) )!REAL(KIND=r8),INTENT(INOUT) :: tran(m,n) updated transmittance (tran) END IF !-----fclr is the clear line-of-sight between levels k1 and k2. ! in computing fclr, clouds are assumed randomly overlapped ! using eq. (10). DO i=1,m fclr(i) = fclr(i)*clr(i,k2-1) END DO !-----compute upward and downward fluxes !-----add "boundary" terms to the net downward flux. ! these are the first terms on the right-hand-side of ! eqs. (56a) and (56b). ! downward fluxes are positive. IF (k2 == k1+1) THEN DO i=1,m flc(i,k1)=flc(i,k1)-blayer(i,k1) flc(i,k2)=flc(i,k2)+blayer(i,k1) END DO END IF !-----add flux components involving the four layers above and below ! the levels k1 and k2. it follows eqs. (56a) and (56b). DO i=1,m xx=trant(i)*(blayer(i,k2-1)-blayer(i,k2)) flc(i,k1) =flc(i,k1)+xx xx=trant(i)*(blayer(i,k1-1)-blayer(i,k1)) flc(i,k2) =flc(i,k2)+xx END DO !-----compute upward and downward fluxes for all-sky situation IF (k2 == k1+1) THEN DO i=1,m flxu(i,k1)=flxu(i,k1)-blayer(i,k1) flxd(i,k2)=flxd(i,k2)+blayer(i,k1) END DO END IF DO i=1,m xx=trant(i)*(blayer(i,k2-1)-blayer(i,k2)) flxu(i,k1) =flxu(i,k1)+xx*fclr(i) xx=trant(i)*(blayer(i,k1-1)-blayer(i,k1)) flxd(i,k2) =flxd(i,k2)+xx*fclr(i) END DO END DO !-----compute the partial derivative of fluxes with respect to ! surface temperature (eq. 59). DO i=1,m dfdts(i,k1) =dfdts(i,k1)-dbs(i)*trant(i)*fclr(i) END DO END DO !-----add contribution from the surface to the flux terms at the surface. DO i=1,m dfdts(i,np+1) =dfdts(i,np+1)-dbs(i) END DO DO i=1,m flc(i,np+1)=flc(i,np+1)-blayer(i,np+1) flxu(i,np+1)=flxu(i,np+1)-blayer(i,np+1) st4(i)=st4(i)-blayer(i,np+1) END DO ! write(7,3211) ib, flxd(1,1,52),flxu(1,1,52) ! write(7,3211) ib, flxd(1,1,np+1),flxu(1,1,np+1) ! 3211 FORMAT ('ib, fluxd, fluxu=', i3,2F12.3) END DO DO k=1,np+1 DO i=1,m flx(i,k) = flxd(i,k)+flxu(i,k) radlwin(i) = flxd(i,np+1) END DO END DO RETURN END SUBROUTINE irrad ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE COLUMN ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE column(m , &! INTEGER , INTENT(IN ) :: m ! number of soundings in zonal direction (m) np , &! INTEGER , INTENT(IN ) :: np ! number of atmospheric layers (np) pa , &! REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np) ! layer pressure (pa) dt , &! REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np) ! layer temperature minus 250K (dt) sabs0 , &! REAL(KIND=r8), INTENT(IN ) :: sabs0(m,n,np)! layer absorber amount (sabs0) sabs , &! REAL(KIND=r8), INTENT(OUT ) :: sabs (m,n,np+1)! column-integrated absorber amount (sabs) spre , &! REAL(KIND=r8), INTENT(OUT ) :: spre (m,n,np+1)! column absorber-weighted pressure (spre) stem )! REAL(KIND=r8), INTENT(OUT ) :: stem (m,n,np+1)! column absorber-weighted temperature (stem) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate column-integrated (from top of the model atmosphere) ! absorber amount, absorber-weighted pressure and temperature. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !************************************************************************** !-----compute column-integrated (from top of the model atmosphere) ! absorber amount (sabs), absorber-weighted pressure (spre) and ! temperature (stem). ! computations of spre and stem follows eqs. (37) and (38). ! !--- input parameters ! number of soundings in zonal direction (m) ! number of soundings in meridional direction (n) ! number of atmospheric layers (np) ! layer pressure (pa) ! layer temperature minus 250K (dt) ! layer absorber amount (sabs0) ! !--- output parameters ! column-integrated absorber amount (sabs) ! column absorber-weighted pressure (spre) ! column absorber-weighted temperature (stem) ! !--- units of pa and dt are mb and k, respectively. ! units of sabs are g/cm**2 for water vapor and (cm-atm)stp for co2 and o3 !************************************************************************** ! !----------------------------------------------------------------------- ! ! Variable Declarations. ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER , INTENT(IN ) :: m INTEGER , INTENT(IN ) :: np !---- input parameters ----- REAL(KIND=r8), INTENT(IN ) :: pa (m,np) REAL(KIND=r8), INTENT(IN ) :: dt (m,np) REAL(KIND=r8), INTENT(IN ) :: sabs0(m,np) !---- output parameters ----- REAL(KIND=r8), INTENT(OUT ) :: sabs (m,np+1) REAL(KIND=r8), INTENT(OUT ) :: spre (m,np+1) REAL(KIND=r8), INTENT(OUT ) :: stem (m,np+1) !********************************************************************* INTEGER :: i INTEGER :: k ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! DO i=1,m sabs(i,1)=0.0_r8 spre(i,1)=0.0_r8 stem(i,1)=0.0_r8 END DO DO k=1,np DO i=1,m sabs(i,k+1)=sabs(i,k)+sabs0(i,k) spre(i,k+1)=spre(i,k)+pa(i,k)*sabs0(i,k) stem(i,k+1)=stem(i,k)+dt(i,k)*sabs0(i,k) END DO END DO RETURN END SUBROUTINE column ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE H2OEXPS ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE h2oexps(ib , &! INTEGER, INTENT(IN ) :: ib! spectral band (ib) m , &! INTEGER, INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np , &! INTEGER, INTENT(IN ) :: np! number of layers (np) dh2o , &! REAL(KIND=r8), INTENT(IN ) :: dh2o(m,n,np)! layer water vapor amount for line absorption (dh2o) pa , &! REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np)! layer pressure (pa) dt , &! REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np)! layer temperature minus 250K (dt) h2oexp )! REAL(KIND=r8), INTENT(INOUT) :: h2oexp(m,n,np,6) ! 6 exponentials for each layer (h2oexp) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate exponentials for water vapor line absorption in ! individual layers. ! !----------------------------------------------------------------------- ! ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION: ! ! 03/11/1996 (Yuhe Liu) ! Formatted code to ARPS standard format ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! ! compute exponentials for water vapor line absorption ! in individual layers. ! !---- input parameters ! spectral band (ib) ! number of grid intervals in zonal direction (m) ! number of grid intervals in meridional direction (n) ! number of layers (np) ! layer water vapor amount for line absorption (dh2o) ! layer pressure (pa) ! layer temperature minus 250K (dt) ! !---- output parameters ! 6 exponentials for each layer (h2oexp) ! !********************************************************************** ! !fpp$ expand (expmn) !!dir$ inline always expmn !*$* inline routine (expmn) ! !----------------------------------------------------------------------- ! ! Variable declarations ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER, INTENT(IN ) :: ib INTEGER, INTENT(IN ) :: m INTEGER, INTENT(IN ) :: np !---- input parameters ------ REAL(KIND=r8), INTENT(IN ) :: dh2o(m,np) REAL(KIND=r8), INTENT(IN ) :: pa (m,np) REAL(KIND=r8), INTENT(IN ) :: dt (m,np) !---- output parameters ----- REAL(KIND=r8), INTENT(INOUT) :: h2oexp(m,np,6) !---- temporary arrays ----- REAL(KIND=r8) :: xh !---- local misc. variables INTEGER :: i,k,ik !---- static data ----- !-----xkw are the absorption coefficients for the first ! k-distribution function due to water vapor line absorption ! (tables 4 and 7). units are cm**2/g REAL(KIND=r8), PARAMETER :: xkw(8) =RESHAPE(SOURCE=(/& 29.55_r8, 4.167E-1_r8, 1.328E-2_r8, 5.250E-4_r8, & 5.25E-4_r8, 2.340E-3_r8, 1.320E-0_r8, 5.250E-4_r8/),SHAPE=(/8/)) !-----mw are the ratios between neighboring absorption coefficients ! for water vapor line absorption (tables 4 and 7). INTEGER, PARAMETER :: mw(8) =RESHAPE(SOURCE=(/6,6,8,6,6,8,6,16/),SHAPE=(/8/)) !-----aw and bw (table 3) are the coefficients for temperature scaling ! in eq. (25). REAL(KIND=r8), PARAMETER :: aw(8) =RESHAPE(SOURCE=(/& 0.0021_r8, 0.0140_r8, 0.0167_r8, 0.0302_r8, & 0.0307_r8, 0.0154_r8, 0.0008_r8, 0.0096_r8/),SHAPE=(/8/)) REAL(KIND=r8), PARAMETER :: bw(8) =RESHAPE(SOURCE=(/& -1.01E-5_r8, 5.57E-5_r8, 8.54E-5_r8, 2.96E-4_r8,& 2.86E-4_r8, 7.53E-5_r8,-3.52E-6_r8, 1.64E-5_r8/),SHAPE=(/8/)) !-----expmn is an external function ! REAL :: expmn ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! !********************************************************************** ! note that the 3 sub-bands in band 3 use the same set of xkw, aw, ! and bw. therefore, h2oexp for these sub-bands are identical. !********************************************************************** DO k=1,np DO i=1,m !-----xh is the scaled water vapor amount for line absorption ! computed from (27). xh = dh2o(i,k)*(pa(i,k)*0.002_r8) & * ( 1.0_r8+(aw(ib)+bw(ib)* dt(i,k))*dt(i,k) ) !-----h2oexp is the water vapor transmittance of the layer (k2-1) ! due to line absorption h2oexp(i,k,1) = expmn(-xh*xkw(ib)) END DO END DO DO ik=2,6 IF(mw(ib) == 6) THEN DO k=1,np DO i=1,m xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) h2oexp(i,k,ik) = xh*xh*xh END DO END DO ELSE IF(mw(ib) == 8) THEN DO k=1,np DO i=1,m xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) xh = xh*xh h2oexp(i,k,ik) = xh*xh END DO END DO ELSE DO k=1,np DO i=1,m xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) xh = xh*xh xh = xh*xh h2oexp(i,k,ik) = xh*xh END DO END DO END IF END DO RETURN END SUBROUTINE h2oexps ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE CONEXPS ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE conexps( ib ,&!INTEGER, INTENT(IN ) :: ib! spectral band (ib) m ,&!INTEGER, INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np ,&!INTEGER, INTENT(IN ) :: np ! number of layers (np) dcont ,&!REAL(KIND=r8), INTENT(IN ) :: dcont(m,n,np) ! layer scaled water vapor amount for continuum absorption (dcont) conexp )!REAL(KIND=r8), INTENT(INOUT) :: conexp(m,n,np,3)! 1 or 3 exponentials for each layer (conexp) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate exponentials for continuum absorption in individual ! layers. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !********************************************************************** ! compute exponentials for continuum absorption in individual layers. ! !---- input parameters ! spectral band (ib) ! number of grid intervals in zonal direction (m) ! number of grid intervals in meridional direction (n) ! number of layers (np) ! layer scaled water vapor amount for continuum absorption (dcont) ! !---- output parameters ! 1 or 3 exponentials for each layer (conexp) ! !********************************************************************** ! !fpp$ expand (expmn) !!dir$ inline always expmn !*$* inline routine (expmn) ! !----------------------------------------------------------------------- ! ! Variable Declarations. ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER, INTENT(IN ) :: ib INTEGER, INTENT(IN ) :: m INTEGER, INTENT(IN ) :: np !---- input parameters ------ REAL(KIND=r8), INTENT(IN ) :: dcont(m,np) !---- updated parameters ----- REAL(KIND=r8), INTENT(INOUT) :: conexp(m,np,3) !---- temporary arrays ----- INTEGER :: i INTEGER :: k INTEGER :: iq !---- static data ----- !-----xke are the absorption coefficients for the first ! k-distribution function due to water vapor continuum absorption ! (table 6). units are cm**2/g REAL(KIND=r8), PARAMETER :: xke(8) =RESHAPE(SOURCE=(/& 0.00_r8, 0.00_r8, 27.40_r8, 15.8_r8, & 9.40_r8, 7.75_r8, 0.0_r8, 0.0_r8/),SHAPE=(/8/)) !-----ne is the number of terms in computing water vapor ! continuum transmittance (Table 6). ! band 3 is divided into 3 sub-bands. INTEGER, PARAMETER :: NE(8) =RESHAPE(SOURCE=(/0,0,3,1,1,1,0,0/),SHAPE=(/8/)) ! !----------------------------------------------------------------------- ! ! Functions: ! !----------------------------------------------------------------------- ! !-----expmn is an external function ! REAL :: expmn ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! DO k=1,np DO i=1,m conexp(i,k,1) = expmn(-dcont(i,k)*xke(ib)) END DO END DO IF (ib == 3) THEN !-----the absorption coefficients for sub-bands 3b (iq=2) and 3a (iq=3) ! are, respectively, double and quadruple that for sub-band 3c (iq=1) ! (table 6). DO iq=2,3 DO k=1,np DO i=1,m conexp(i,k,iq) = conexp(i,k,iq-1) *conexp(i,k,iq-1) END DO END DO END DO END IF RETURN END SUBROUTINE conexps ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE CO2EXPS ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE co2exps(m ,& !INTEGER, INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np ,& !INTEGER, INTENT(IN ) :: np! number of layers (np) dco2 ,& !REAL(KIND=r8), INTENT(IN ) :: dco2(m,n,np)! layer co2 amount (dco2) pa ,& !REAL(KIND=r8), INTENT(IN ) :: pa (m,n,np)! layer pressure (pa) dt ,& !REAL(KIND=r8), INTENT(IN ) :: dt (m,n,np)! layer temperature minus 250K (dt) co2exp ) !REAL(KIND=r8), INTENT(INOUT) :: co2exp(m,n,np,6,2) ! 6 exponentials for each layer (co2exp) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate co2 exponentials for individual layers. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! ! !********************************************************************** ! compute co2 exponentials for individual layers. ! !---- input parameters ! number of grid intervals in zonal direction (m) ! number of grid intervals in meridional direction (n) ! number of layers (np) ! layer co2 amount (dco2) ! layer pressure (pa) ! layer temperature minus 250K (dt) ! !---- output parameters ! 6 exponentials for each layer (co2exp) !********************************************************************** ! !fpp$ expand (expmn) !!dir$ inline always expmn !*$* inline routine (expmn) ! !----------------------------------------------------------------------- ! ! Variable Declarations. ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER, INTENT(IN ) :: m INTEGER, INTENT(IN ) :: np !---- input parameters ----- REAL(KIND=r8), INTENT(IN ) :: dco2(m,np) REAL(KIND=r8), INTENT(IN ) :: pa (m,np) REAL(KIND=r8), INTENT(IN ) :: dt (m,np) !---- output parameters ----- REAL(KIND=r8), INTENT(INOUT) :: co2exp(m,np,6,2) !---- temporary arrays ----- REAL(KIND=r8) :: xc INTEGER :: i INTEGER :: k !---- static data ----- !-----xkc is the absorption coefficients for the ! first k-distribution function due to co2 (table 7). ! units are 1/(cm-atm)stp. REAL(KIND=r8), PARAMETER :: xkc(2) =RESHAPE(SOURCE=(/2.656E-5_r8,2.656E-3_r8/),SHAPE=(/2/)) !-----parameters (table 3) for computing the scaled co2 amount ! using (27). REAL(KIND=r8), PARAMETER :: prc(2) =RESHAPE(SOURCE=(/ 300.0_r8, 30.0_r8/),SHAPE=(/2/)) REAL(KIND=r8), PARAMETER :: pm(2) =RESHAPE(SOURCE=(/ 0.5_r8, 0.85_r8/),SHAPE=(/2/)) REAL(KIND=r8), PARAMETER :: ac(2) =RESHAPE(SOURCE=(/ 0.0182_r8, 0.0042_r8/),SHAPE=(/2/)) REAL(KIND=r8), PARAMETER :: bc(2) =RESHAPE(SOURCE=(/1.07E-4_r8,2.00E-5_r8/),SHAPE=(/2/)) ! !----------------------------------------------------------------------- ! ! Functions: ! !----------------------------------------------------------------------- ! !-----function expmn ! REAL :: expmn ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! DO k=1,np DO i=1,m !-----compute the scaled co2 amount from eq. (27) for band-wings ! (sub-bands 3a and 3c). xc = dco2(i,k)*(pa(i,k)/prc(1))**pm(1) & *(1.0_r8+(ac(1)+bc(1)*dt(i,k))*dt(i,k)) !-----six exponential by powers of 8 (table 7). co2exp(i,k,1,1)=expmn(-xc*xkc(1)) xc=co2exp(i,k,1,1)*co2exp(i,k,1,1) xc=xc*xc co2exp(i,k,2,1)=xc*xc xc=co2exp(i,k,2,1)*co2exp(i,k,2,1) xc=xc*xc co2exp(i,k,3,1)=xc*xc xc=co2exp(i,k,3,1)*co2exp(i,k,3,1) xc=xc*xc co2exp(i,k,4,1)=xc*xc xc=co2exp(i,k,4,1)*co2exp(i,k,4,1) xc=xc*xc co2exp(i,k,5,1)=xc*xc xc=co2exp(i,k,5,1)*co2exp(i,k,5,1) xc=xc*xc co2exp(i,k,6,1)=xc*xc !-----compute the scaled co2 amount from eq. (27) for band-center ! region (sub-band 3b). xc = dco2(i,k)*(pa(i,k)/prc(2))**pm(2) & *(1.0_r8+(ac(2)+bc(2)*dt(i,k))*dt(i,k)) co2exp(i,k,1,2)=expmn(-xc*xkc(2)) xc=co2exp(i,k,1,2)*co2exp(i,k,1,2) xc=xc*xc co2exp(i,k,2,2)=xc*xc xc=co2exp(i,k,2,2)*co2exp(i,k,2,2) xc=xc*xc co2exp(i,k,3,2)=xc*xc xc=co2exp(i,k,3,2)*co2exp(i,k,3,2) xc=xc*xc co2exp(i,k,4,2)=xc*xc xc=co2exp(i,k,4,2)*co2exp(i,k,4,2) xc=xc*xc co2exp(i,k,5,2)=xc*xc xc=co2exp(i,k,5,2)*co2exp(i,k,5,2) xc=xc*xc co2exp(i,k,6,2)=xc*xc END DO END DO RETURN END SUBROUTINE co2exps ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE WVKDIS ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE wvkdis(ib ,& !INTEGER , INTENT(IN ) :: ib ! spectral band (ib) m ,& !INTEGER , INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np ,& !INTEGER , INTENT(IN ) :: np ! number of levels (np) k ,& !INTEGER , INTENT(IN ) :: k ! current level (k) h2oexp ,& !REAL(KIND=r8), INTENT(IN ) :: conexp(m,n,np,3) ! exponentials for line absorption (h2oexp) conexp ,& !REAL(KIND=r8), INTENT(IN ) :: h2oexp(m,n,np,6) ! exponentials for continuum absorption (conexp) th2o ,& !REAL(KIND=r8), INTENT(INOUT) :: th2o(m,n,6) ! transmittance between levels k1 and k2 due to water vapor line absorption (th2o) tcon ,& !REAL(KIND=r8), INTENT(INOUT) :: tcon(m,n,3) ! transmittance between levels k1 and k2 due to water vapor continuum absorption (tcon) tran ) !REAL(KIND=r8), INTENT(INOUT) :: tran(m,n) ! total transmittance (tran) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate water vapor transmittance using the k-distribution ! method. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !********************************************************************** ! compute water vapor transmittance between levels k1 and k2 for ! m x n soundings using the k-distribution method. ! ! computations follow eqs. (34), (46), (50) and (52). ! !---- input parameters ! spectral band (ib) ! number of grid intervals in zonal direction (m) ! number of grid intervals in meridional direction (n) ! number of levels (np) ! current level (k) ! exponentials for line absorption (h2oexp) ! exponentials for continuum absorption (conexp) ! !---- updated parameters ! transmittance between levels k1 and k2 due to ! water vapor line absorption (th2o) ! transmittance between levels k1 and k2 due to ! water vapor continuum absorption (tcon) ! total transmittance (tran) ! !********************************************************************** ! !----------------------------------------------------------------------- ! ! Variable declarations ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER, INTENT(IN ) :: ib INTEGER, INTENT(IN ) :: m INTEGER, INTENT(IN ) :: np INTEGER, INTENT(IN ) :: k !---- input parameters ------ REAL(KIND=r8), INTENT(IN ) :: conexp(m,np,3) REAL(KIND=r8), INTENT(IN ) :: h2oexp(m,np,6) !---- updated parameters ----- REAL(KIND=r8), INTENT(INOUT) :: th2o(m,6) REAL(KIND=r8), INTENT(INOUT) :: tcon(m,3) REAL(KIND=r8), INTENT(INOUT) :: tran(m) !---- temporary variable ----- REAL(KIND=r8) :: trnth2o INTEGER :: i !---- static data ----- !-----fkw is the planck-weighted k-distribution function due to h2o ! line absorption given in table 4 of Chou and Suarez (1995). ! the k-distribution function for the third band, fkw(*,3), is not used REAL(KIND=r8), PARAMETER :: fkw(6,8) = RESHAPE(SOURCE=(/& 0.2747_r8,0.2717_r8,0.2752_r8,0.1177_r8,0.0352_r8,0.0255_r8, & 0.1521_r8,0.3974_r8,0.1778_r8,0.1826_r8,0.0374_r8,0.0527_r8, & 1.00_r8, 1.00_r8, 1.00_r8, 1.00_r8, 1.00_r8, 1.00_r8, & 0.4654_r8,0.2991_r8,0.1343_r8,0.0646_r8,0.0226_r8,0.0140_r8, & 0.5543_r8,0.2723_r8,0.1131_r8,0.0443_r8,0.0160_r8,0.0000_r8, & 0.1846_r8,0.2732_r8,0.2353_r8,0.1613_r8,0.1146_r8,0.0310_r8, & 0.0740_r8,0.1636_r8,0.4174_r8,0.1783_r8,0.1101_r8,0.0566_r8, & 0.1437_r8,0.2197_r8,0.3185_r8,0.2351_r8,0.0647_r8,0.0183_r8/),SHAPE=(/6,8/)) !-----gkw is the planck-weighted k-distribution function due to h2o ! line absorption in the 3 subbands (800-720,620-720,540-620 /cm) ! of band 3 given in table 7. Note that the order of the sub-bands ! is reversed. REAL(KIND=r8), PARAMETER :: gkw(6,3)= RESHAPE(SOURCE=(/& 0.1782_r8,0.0593_r8,0.0215_r8,0.0068_r8,0.0022_r8,0.0000_r8, & 0.0923_r8,0.1675_r8,0.0923_r8,0.0187_r8,0.0178_r8,0.0000_r8, & 0.0000_r8,0.1083_r8,0.1581_r8,0.0455_r8,0.0274_r8,0.0041_r8/),SHAPE=(/6,3/)) !-----ne is the number of terms used in each band to compute water vapor ! continuum transmittance (table 6). INTEGER, PARAMETER :: NE(8)=RESHAPE(SOURCE=(/0,0,3,1,1,1,0,0/),SHAPE=(/8/)) ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! !-----tco2 are the six exp factors between levels k1 and k2 ! tran is the updated total transmittance between levels k1 and k2 !-----th2o is the 6 exp factors between levels k1 and k2 due to ! h2o line absorption. !-----tcon is the 3 exp factors between levels k1 and k2 due to ! h2o continuum absorption. !-----trnth2o is the total transmittance between levels k1 and k2 due ! to both line and continuum absorption computed from eq. (52). DO i=1,m th2o(i,1) = th2o(i,1)*h2oexp(i,k,1) th2o(i,2) = th2o(i,2)*h2oexp(i,k,2) th2o(i,3) = th2o(i,3)*h2oexp(i,k,3) th2o(i,4) = th2o(i,4)*h2oexp(i,k,4) th2o(i,5) = th2o(i,5)*h2oexp(i,k,5) th2o(i,6) = th2o(i,6)*h2oexp(i,k,6) END DO IF (NE(ib) == 0) THEN DO i=1,m trnth2o =(fkw(1,ib)*th2o(i,1) & + fkw(2,ib)*th2o(i,2) & + fkw(3,ib)*th2o(i,3) & + fkw(4,ib)*th2o(i,4) & + fkw(5,ib)*th2o(i,5) & + fkw(6,ib)*th2o(i,6)) tran(i)=tran(i)*trnth2o END DO ELSE IF (NE(ib) == 1) THEN DO i=1,m tcon(i,1)= tcon(i,1)*conexp(i,k,1) trnth2o =(fkw(1,ib)*th2o(i,1) & + fkw(2,ib)*th2o(i,2) & + fkw(3,ib)*th2o(i,3) & + fkw(4,ib)*th2o(i,4) & + fkw(5,ib)*th2o(i,5) & + fkw(6,ib)*th2o(i,6))*tcon(i,1) tran(i)=tran(i)*trnth2o END DO ELSE DO i=1,m tcon(i,1)= tcon(i,1)*conexp(i,k,1) tcon(i,2)= tcon(i,2)*conexp(i,k,2) tcon(i,3)= tcon(i,3)*conexp(i,k,3) trnth2o = ( gkw(1,1)*th2o(i,1) & + gkw(2,1)*th2o(i,2) & + gkw(3,1)*th2o(i,3) & + gkw(4,1)*th2o(i,4) & + gkw(5,1)*th2o(i,5) & + gkw(6,1)*th2o(i,6) ) * tcon(i,1) & + ( gkw(1,2)*th2o(i,1) & + gkw(2,2)*th2o(i,2) & + gkw(3,2)*th2o(i,3) & + gkw(4,2)*th2o(i,4) & + gkw(5,2)*th2o(i,5) & + gkw(6,2)*th2o(i,6) ) * tcon(i,2) & + ( gkw(1,3)*th2o(i,1) & + gkw(2,3)*th2o(i,2) & + gkw(3,3)*th2o(i,3) & + gkw(4,3)*th2o(i,4) & + gkw(5,3)*th2o(i,5) & + gkw(6,3)*th2o(i,6) ) * tcon(i,3) tran(i)=tran(i)*trnth2o END DO END IF RETURN END SUBROUTINE wvkdis ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE CO2KDIS ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE co2kdis( & m , &! INTEGER , INTENT(IN ) :: m ! number of grid intervals in zonal direction (m) np , &! INTEGER , INTENT(IN ) :: np k , &! INTEGER , INTENT(IN ) :: k co2exp , &! REAL(KIND=r8), INTENT(IN ) :: co2exp(m,n,np,6,2) tco2 , &! REAL(KIND=r8), INTENT(INOUT) :: tco2(m,n,6,2)! for the various values of the absorption coefficient (tco2) tran )! REAL(KIND=r8), INTENT(INOUT) :: tran(m,n)! total transmittance (tran) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate co2 transmittances using the k-distribution method ! ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !********************************************************************** ! compute co2 transmittances between levels k1 and k2 for m x n soundings ! using the k-distribution method with linear pressure scaling. ! ! computations follow eq. (34). ! !---- input parameters ! number of grid intervals in zonal direction (m) ! number of grid intervals in meridional direction (n) ! !---- updated parameters ! transmittance between levels k1 and k2 due to co2 absorption ! for the various values of the absorption coefficient (tco2) ! total transmittance (tran) ! !********************************************************************** ! !----------------------------------------------------------------------- ! ! Variable declarations ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER, INTENT(IN ) :: m INTEGER, INTENT(IN ) :: np INTEGER, INTENT(IN ) :: k !---- input parameters ----- REAL(KIND=r8), INTENT(IN ) :: co2exp(m,np,6,2) !---- updated parameters ----- REAL(KIND=r8), INTENT(INOUT) :: tco2(m,6,2) REAL(KIND=r8), INTENT(INOUT) :: tran(m) !---- temporary variable ----- REAL(KIND=r8) :: xc INTEGER :: i !-----gkc is the planck-weighted co2 k-distribution function ! in the band-wing and band-center regions given in table 7. ! for computing efficiency, sub-bands 3a and 3c are combined. REAL(KIND=r8), PARAMETER :: gkc(6,2) = RESHAPE(SOURCE=(/& 0.1395_r8,0.1407_r8,0.1549_r8,0.1357_r8,0.0182_r8,0.0220_r8,& 0.0766_r8,0.1372_r8,0.1189_r8,0.0335_r8,0.0169_r8,0.0059_r8/),SHAPE=(/6,2/)) ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! !-----tco2 is the 6 exp factors between levels k1 and k2. ! xc is the total co2 transmittance given by eq. (53). DO i=1,m !-----band-wings tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1) xc= gkc(1,1)*tco2(i,1,1) tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1) xc=xc+gkc(2,1)*tco2(i,2,1) tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1) xc=xc+gkc(3,1)*tco2(i,3,1) tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1) xc=xc+gkc(4,1)*tco2(i,4,1) tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1) xc=xc+gkc(5,1)*tco2(i,5,1) tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1) xc=xc+gkc(6,1)*tco2(i,6,1) !-----band-center region tco2(i,1,2)=tco2(i,1,2)*co2exp(i,k,1,2) xc=xc+gkc(1,2)*tco2(i,1,2) tco2(i,2,2)=tco2(i,2,2)*co2exp(i,k,2,2) xc=xc+gkc(2,2)*tco2(i,2,2) tco2(i,3,2)=tco2(i,3,2)*co2exp(i,k,3,2) xc=xc+gkc(3,2)*tco2(i,3,2) tco2(i,4,2)=tco2(i,4,2)*co2exp(i,k,4,2) xc=xc+gkc(4,2)*tco2(i,4,2) tco2(i,5,2)=tco2(i,5,2)*co2exp(i,k,5,2) xc=xc+gkc(5,2)*tco2(i,5,2) tco2(i,6,2)=tco2(i,6,2)*co2exp(i,k,6,2) xc=xc+gkc(6,2)*tco2(i,6,2) tran(i)=tran(i)*xc END DO RETURN END SUBROUTINE co2kdis ! ! !################################################################## !################################################################## !###### ###### !###### SUBROUTINE TABLUP ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE tablup( & k1 , &!INTEGER ,INTENT(IN ) :: k1 indices for pressure levels (k1 and k2) k2 , &!INTEGER ,INTENT(IN ) :: k2 indices for pressure levels (k1 and k2) m , &!INTEGER ,INTENT(IN ) :: m number of grid intervals in zonal direction (m) np , &!INTEGER ,INTENT(IN ) :: np number of atmospheric layers (np) nx , &!INTEGER ,INTENT(IN ) :: nx number of pressure intervals in the table (nx) nh , &!INTEGER ,INTENT(IN ) :: nh number of absorber amount intervals in the table (nh) nt , &!INTEGER ,INTENT(IN ) :: nt number of tables copied (nt) sabs , &!REAL(KIND=r8),INTENT(IN ) :: sabs(m,n,np+1) column-integrated absorber amount (sabs) spre , &!REAL(KIND=r8),INTENT(IN ) :: spre(m,n,np+1) column absorber amount-weighted pressure (spre) stem , &!REAL(KIND=r8),INTENT(IN ) :: stem(m,n,np+1) column absorber amount-weighted temperature (stem) w1 , &!REAL(KIND=r8),INTENT(IN ) :: w1 first value of absorber amount (log10) in the table (w1) p1 , &!REAL(KIND=r8),INTENT(IN ) :: p1 first value of pressure (log10) in the table (p1) dwe , &!REAL(KIND=r8),INTENT(IN ) :: dwe size of the interval of absorber amount (log10) in the table (dwe) dpe , &!REAL(KIND=r8),INTENT(IN ) :: dpe size of the interval of pressure (log10) in the table (dpe) coef1 , &!REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) coef2 , &!REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) coef3 , &!REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) pre-computed coefficients (coef1, coef2, and coef3) tran )!REAL(KIND=r8),INTENT(INOUT) :: tran(m,n) updated transmittance (tran) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate water vapor, co2, and o3 transmittances using table ! look-up. rlwopt = 0, or high=.false. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !********************************************************************** ! compute water vapor, co2, and o3 transmittances between levels k1 and k2 ! using table look-up for m x n soundings. ! ! Calculations follow Eq. (40) of Chou and Suarez (1995) ! !---- input --------------------- ! indices for pressure levels (k1 and k2) ! number of grid intervals in zonal direction (m) ! number of grid intervals in meridional direction (n) ! number of atmospheric layers (np) ! number of pressure intervals in the table (nx) ! number of absorber amount intervals in the table (nh) ! number of tables copied (nt) ! column-integrated absorber amount (sabs) ! column absorber amount-weighted pressure (spre) ! column absorber amount-weighted temperature (stem) ! first value of absorber amount (log10) in the table (w1) ! first value of pressure (log10) in the table (p1) ! size of the interval of absorber amount (log10) in the table (dwe) ! size of the interval of pressure (log10) in the table (dpe) ! pre-computed coefficients (coef1, coef2, and coef3) ! !---- updated --------------------- ! transmittance (tran) ! ! Note: ! (1) units of sabs are g/cm**2 for water vapor and (cm-atm)stp for co2 and o3. ! (2) units of spre and stem are, respectively, mb and K. ! (3) there are nt identical copies of the tables (coef1, coef2, and ! coef3). the prupose of using the multiple copies of tables is ! to increase the speed in parallel (vectorized) computations. ! if such advantage does not exist, nt can be set to 1. ! !********************************************************************** ! !----------------------------------------------------------------------- ! ! Variable declarations ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER ,INTENT(IN ) :: k1 INTEGER ,INTENT(IN ) :: k2 INTEGER ,INTENT(IN ) :: m INTEGER ,INTENT(IN ) :: np INTEGER ,INTENT(IN ) :: nx INTEGER ,INTENT(IN ) :: nh INTEGER ,INTENT(IN ) :: nt !---- input parameters ----- REAL(KIND=r8),INTENT(IN ) :: sabs(m,np+1) REAL(KIND=r8),INTENT(IN ) :: spre(m,np+1) REAL(KIND=r8),INTENT(IN ) :: stem(m,np+1) REAL(KIND=r8),INTENT(IN ) :: w1 REAL(KIND=r8),INTENT(IN ) :: p1 REAL(KIND=r8),INTENT(IN ) :: dwe REAL(KIND=r8),INTENT(IN ) :: dpe REAL(KIND=r8),INTENT(IN ) :: coef1(nx,nh,nt) REAL(KIND=r8),INTENT(IN ) :: coef2(nx,nh,nt) REAL(KIND=r8),INTENT(IN ) :: coef3(nx,nh,nt) !---- update parameter ----- REAL(KIND=r8), INTENT(INOUT) :: tran(m) !---- temporary variables ----- REAL(KIND=r8) :: x1 REAL(KIND=r8) :: x2 REAL(KIND=r8) :: x3 REAL(KIND=r8) :: we REAL(KIND=r8) :: pe REAL(KIND=r8) :: fw REAL(KIND=r8) :: fp REAL(KIND=r8) :: pa REAL(KIND=r8) :: pb REAL(KIND=r8) :: pc REAL(KIND=r8) :: ax REAL(KIND=r8) :: ba REAL(KIND=r8) :: bb REAL(KIND=r8) :: t1 REAL(KIND=r8) :: ca REAL(KIND=r8) :: cb REAL(KIND=r8) :: t2 INTEGER :: iw,ip,nn INTEGER :: i ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! DO i=1,m nn=MOD(i,nt)+1 x1=sabs(i,k2)-sabs(i,k1) x2=(spre(i,k2)-spre(i,k1))/x1 x3=(stem(i,k2)-stem(i,k1))/x1 we=(LOG10(x1)-w1)/dwe pe=(LOG10(x2)-p1)/dpe we=MAX(we,w1-2.0_r8*dwe) pe=MAX(pe,p1) iw=INT(we+1.5_r8) ip=INT(pe+1.5_r8) iw=MIN(iw,nh-1) iw=MAX(iw, 2) ip=MIN(ip,nx-1) ip=MAX(ip, 1) fw=we-FLOAT(iw-1) fp=pe-FLOAT(ip-1) !-----linear interpolation in pressure pa = coef1(ip,iw-1,nn)*(1.0_r8-fp)+coef1(ip+1,iw-1,nn)*fp pb = coef1(ip,iw, nn)*(1.0_r8-fp)+coef1(ip+1,iw, nn)*fp pc = coef1(ip,iw+1,nn)*(1.0_r8-fp)+coef1(ip+1,iw+1,nn)*fp !-----quadratic interpolation in absorber amount for coef1 ax = (-pa*(1.0_r8-fw)+pc*(1.0_r8+fw)) *fw*0.5_r8 + pb*(1.0_r8-fw*fw) !-----linear interpolation in absorber amount for coef2 and coef3 ba = coef2(ip,iw, nn)*(1.0_r8-fp)+coef2(ip+1,iw, nn)*fp bb = coef2(ip,iw+1,nn)*(1.0_r8-fp)+coef2(ip+1,iw+1,nn)*fp t1 = ba*(1.0_r8-fw) + bb*fw ca = coef3(ip,iw, nn)*(1.0_r8-fp)+coef3(ip+1,iw, nn)*fp cb = coef3(ip,iw+1,nn)*(1.0_r8-fp)+coef3(ip+1,iw+1,nn)*fp t2 = ca*(1.0_r8-fw) + cb*fw !-----update the total transmittance between levels k1 and k2 tran(i)= (ax + (t1+t2*x3) * x3)*tran(i) END DO RETURN END SUBROUTINE tablup ! !################################################################## !################################################################## !###### ###### !###### FUNCTION EXPMN ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! REAL(KIND=r8) FUNCTION expmn(fin) ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Calculate exponential for arguments in the range 0> fin > -10. ! !----------------------------------------------------------------------- ! ! AUTHOR: (a) Radiative Transfer Model: M.-D. Chou and M. Suarez ! (b) Cloud Optics:Tao, Lang, Simpson, Sui, Ferrier and ! Chou (1996) ! ! MODIFICATION HISTORY: ! ! 03/15/1996 (Yuhe Liu) ! Adopted the original code and formatted it in accordance with the ! ARPS coding standard. ! !----------------------------------------------------------------------- ! ! ORIGINAL COMMENTS: ! !************************************************************************** ! compute exponential for arguments in the range 0> fin > -10. ! !----------------------------------------------------------------------- ! ! Variable declarations ! !----------------------------------------------------------------------- ! IMPLICIT NONE REAL(KIND=r8), INTENT(IN) :: fin REAL(KIND=r8), PARAMETER :: one = 1.0_r8 REAL(KIND=r8), PARAMETER :: expmin = -10.0_r8 REAL(KIND=r8), PARAMETER :: e1=1.0_r8 REAL(KIND=r8), PARAMETER :: e2=-2.507213E-1_r8 REAL(KIND=r8), PARAMETER :: e3=2.92732E-2_r8 REAL(KIND=r8), PARAMETER :: e4=-3.827800E-3_r8 REAL(KIND=r8) :: tmp ! REAL(KIND=r8) :: expmn ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! ! Beginning of executable code... ! !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ! tmp = MAX( fin, expmin ) expmn = ((e4*tmp + e3)*tmp+e2)*tmp+e1 expmn = expmn * expmn expmn = one / (expmn * expmn) RETURN END FUNCTION expmn ! ! !################################################################## !################################################################## !###### ###### !###### BLOCK DATA RADDATA ###### !###### ###### !###### Developed by ###### !###### ###### !###### Goddard Cumulus Ensemble Modeling Group, NASA ###### !###### ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! SUBROUTINE raddata()! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Initialize pre-calculated look-up tables used in radiation ! computation. ! !----------------------------------------------------------------------- ! ! AUTHOR: Yuhe Liu ! 03/15/1996 ! ! Combined all files of look-up tables used in radiation computation ! into this file. Different tables are identified by different ! COMMON block names. ! !----------------------------------------------------------------------- ! IMPLICIT NONE INTEGER :: i, j,it,k ! !----------------------------------------------------------------------- ! ! The following DATA statements originally came from file ! "h2o.tran3", which define pre-computed tables used for h2o (bands ! 1, 2, and 7 only) transmittance calculations. ! !----------------------------------------------------------------------- ! ! integer nx,no,nc,nh,nt ! parameter (nx=26,no=21,nc=24,nh=31,nt=7) ! !----------------------------------------------------------------------- ! ! h2o.tran3 ! REAL :: h11(26,31,7),h12(26,31,7),h13(26,31,7) ! REAL :: h21(26,31,7),h22(26,31,7),h23(26,31,7) ! REAL :: h71(26,31,7),h72(26,31,7),h73(26,31,7) ! INTEGER, PARAMETER :: nx=26 ! INTEGER, PARAMETER :: no=21 ! INTEGER, PARAMETER :: nc=24 ! INTEGER, PARAMETER :: nh=31 ! INTEGER, PARAMETER :: nt=7 ! REAL(KIND=r8) :: c1 (nx,nc,nt),c2 (nx,nc,nt),c3 (nx,nc,nt) ! REAL(KIND=r8) :: o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt) ! REAL(KIND=r8) :: h11(nx,nh,nt),h12(nx,nh,nt),h13(nx,nh,nt) ! REAL(KIND=r8) :: h21(nx,nh,nt),h22(nx,nh,nt),h23(nx,nh,nt) ! REAL(KIND=r8) :: h71(nx,nh,nt),h72(nx,nh,nt),h73(nx,nh,nt) REAL(KIND=r8) :: data1(nx*3*nc) REAL(KIND=r8) :: data2(nx*3*no) REAL(KIND=r8) :: data3(nx*3*nh) REAL(KIND=r8) :: data4(nx*3*nh) REAL(KIND=r8) :: data5(nx*3*nh) data3(1:nx*3*nh)=RESHAPE(SOURCE=(/& !DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)/ & 0.6160E-04_r8, 0.9815E-04_r8, 0.1474E-03_r8, 0.2092E-03_r8, 0.2823E-03_r8, & 0.3662E-03_r8, 0.4615E-03_r8, 0.5710E-03_r8, 0.6998E-03_r8, 0.8554E-03_r8, & 0.1049E-02_r8, 0.1295E-02_r8, 0.1612E-02_r8, 0.2021E-02_r8, 0.2548E-02_r8, & 0.3230E-02_r8, 0.4123E-02_r8, 0.5306E-02_r8, 0.6887E-02_r8, 0.9021E-02_r8, & 0.1193E-01_r8, 0.1590E-01_r8, 0.2135E-01_r8, 0.2885E-01_r8, 0.3914E-01_r8, & 0.5317E-01_r8, 0.7223E-01_r8, 0.9800E-01_r8, 0.1326E+00_r8, 0.1783E+00_r8, & 0.2373E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)_r8,& & -0.2021E-06_r8, -0.3628E-06_r8, -0.5891E-06_r8, -0.8735E-06_r8, -0.1204E-05_r8, & -0.1579E-05_r8, -0.2002E-05_r8, -0.2494E-05_r8, -0.3093E-05_r8, -0.3852E-05_r8, & -0.4835E-05_r8, -0.6082E-05_r8, -0.7591E-05_r8, -0.9332E-05_r8, -0.1128E-04_r8, & -0.1347E-04_r8, -0.1596E-04_r8, -0.1890E-04_r8, -0.2241E-04_r8, -0.2672E-04_r8, & -0.3208E-04_r8, -0.3884E-04_r8, -0.4747E-04_r8, -0.5854E-04_r8, -0.7272E-04_r8, & -0.9092E-04_r8, -0.1146E-03_r8, -0.1458E-03_r8, -0.1877E-03_r8, -0.2435E-03_r8, & -0.3159E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)_r8,& & 0.5907E-09_r8, 0.8541E-09_r8, 0.1095E-08_r8, 0.1272E-08_r8, 0.1297E-08_r8, & 0.1105E-08_r8, 0.6788E-09_r8, -0.5585E-10_r8, -0.1147E-08_r8, -0.2746E-08_r8, & -0.5001E-08_r8, -0.7715E-08_r8, -0.1037E-07_r8, -0.1227E-07_r8, -0.1287E-07_r8, & -0.1175E-07_r8, -0.8517E-08_r8, -0.2920E-08_r8, 0.4786E-08_r8, 0.1407E-07_r8, & 0.2476E-07_r8, 0.3781E-07_r8, 0.5633E-07_r8, 0.8578E-07_r8, 0.1322E-06_r8, & 0.2013E-06_r8, 0.3006E-06_r8, 0.4409E-06_r8, 0.6343E-06_r8, 0.8896E-06_r8, & 0.1216E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8,& & 0.6166E-04_r8, 0.9828E-04_r8, 0.1477E-03_r8, 0.2097E-03_r8, 0.2833E-03_r8, & 0.3680E-03_r8, 0.4648E-03_r8, 0.5768E-03_r8, 0.7101E-03_r8, 0.8736E-03_r8, & 0.1080E-02_r8, 0.1348E-02_r8, 0.1700E-02_r8, 0.2162E-02_r8, 0.2767E-02_r8, & 0.3563E-02_r8, 0.4621E-02_r8, 0.6039E-02_r8, 0.7953E-02_r8, 0.1056E-01_r8, & 0.1412E-01_r8, 0.1901E-01_r8, 0.2574E-01_r8, 0.3498E-01_r8, 0.4763E-01_r8, & 0.6484E-01_r8, 0.8815E-01_r8, 0.1196E+00_r8, 0.1614E+00_r8, 0.2157E+00_r8, & 0.2844E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8,& & -0.2017E-06_r8, -0.3620E-06_r8, -0.5878E-06_r8, -0.8713E-06_r8, -0.1201E-05_r8, & -0.1572E-05_r8, -0.1991E-05_r8, -0.2476E-05_r8, -0.3063E-05_r8, -0.3808E-05_r8, & -0.4776E-05_r8, -0.6011E-05_r8, -0.7516E-05_r8, -0.9272E-05_r8, -0.1127E-04_r8, & -0.1355E-04_r8, -0.1620E-04_r8, -0.1936E-04_r8, -0.2321E-04_r8, -0.2797E-04_r8, & -0.3399E-04_r8, -0.4171E-04_r8, -0.5172E-04_r8, -0.6471E-04_r8, -0.8150E-04_r8, & -0.1034E-03_r8, -0.1321E-03_r8, -0.1705E-03_r8, -0.2217E-03_r8, -0.2889E-03_r8, & -0.3726E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8,& & 0.5894E-09_r8, 0.8519E-09_r8, 0.1092E-08_r8, 0.1267E-08_r8, 0.1289E-08_r8, & 0.1093E-08_r8, 0.6601E-09_r8, -0.7831E-10_r8, -0.1167E-08_r8, -0.2732E-08_r8, & -0.4864E-08_r8, -0.7334E-08_r8, -0.9581E-08_r8, -0.1097E-07_r8, -0.1094E-07_r8, & -0.8999E-08_r8, -0.4669E-08_r8, 0.2391E-08_r8, 0.1215E-07_r8, 0.2424E-07_r8, & 0.3877E-07_r8, 0.5711E-07_r8, 0.8295E-07_r8, 0.1218E-06_r8, 0.1793E-06_r8, & 0.2621E-06_r8, 0.3812E-06_r8, 0.5508E-06_r8, 0.7824E-06_r8, 0.1085E-05_r8, & 0.1462E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8,& & 0.6175E-04_r8, 0.9849E-04_r8, 0.1481E-03_r8, 0.2106E-03_r8, 0.2849E-03_r8, & 0.3708E-03_r8, 0.4698E-03_r8, 0.5857E-03_r8, 0.7257E-03_r8, 0.9006E-03_r8, & 0.1126E-02_r8, 0.1425E-02_r8, 0.1823E-02_r8, 0.2353E-02_r8, 0.3059E-02_r8, & 0.4002E-02_r8, 0.5270E-02_r8, 0.6984E-02_r8, 0.9316E-02_r8, 0.1251E-01_r8, & 0.1689E-01_r8, 0.2292E-01_r8, 0.3123E-01_r8, 0.4262E-01_r8, 0.5814E-01_r8, & 0.7921E-01_r8, 0.1077E+00_r8, 0.1458E+00_r8, 0.1957E+00_r8, 0.2595E+00_r8, & 0.3380E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8,& & -0.2011E-06_r8, -0.3609E-06_r8, -0.5859E-06_r8, -0.8680E-06_r8, -0.1195E-05_r8, & -0.1563E-05_r8, -0.1975E-05_r8, -0.2450E-05_r8, -0.3024E-05_r8, -0.3755E-05_r8, & -0.4711E-05_r8, -0.5941E-05_r8, -0.7455E-05_r8, -0.9248E-05_r8, -0.1132E-04_r8, & -0.1373E-04_r8, -0.1659E-04_r8, -0.2004E-04_r8, -0.2431E-04_r8, -0.2966E-04_r8, & -0.3653E-04_r8, -0.4549E-04_r8, -0.5724E-04_r8, -0.7259E-04_r8, -0.9265E-04_r8, & -0.1191E-03_r8, -0.1543E-03_r8, -0.2013E-03_r8, -0.2633E-03_r8, -0.3421E-03_r8, & -0.4350E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8,& & 0.5872E-09_r8, 0.8484E-09_r8, 0.1087E-08_r8, 0.1259E-08_r8, 0.1279E-08_r8, & 0.1077E-08_r8, 0.6413E-09_r8, -0.9334E-10_r8, -0.1161E-08_r8, -0.2644E-08_r8, & -0.4588E-08_r8, -0.6709E-08_r8, -0.8474E-08_r8, -0.9263E-08_r8, -0.8489E-08_r8, & -0.5553E-08_r8, 0.1203E-09_r8, 0.9035E-08_r8, 0.2135E-07_r8, 0.3689E-07_r8, & 0.5610E-07_r8, 0.8097E-07_r8, 0.1155E-06_r8, 0.1649E-06_r8, 0.2350E-06_r8, & 0.3353E-06_r8, 0.4806E-06_r8, 0.6858E-06_r8, 0.9617E-06_r8, 0.1315E-05_r8, & 0.1741E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8,& & 0.6189E-04_r8, 0.9882E-04_r8, 0.1488E-03_r8, 0.2119E-03_r8, 0.2873E-03_r8, & 0.3752E-03_r8, 0.4776E-03_r8, 0.5993E-03_r8, 0.7490E-03_r8, 0.9403E-03_r8, & 0.1192E-02_r8, 0.1531E-02_r8, 0.1990E-02_r8, 0.2610E-02_r8, 0.3446E-02_r8, & 0.4576E-02_r8, 0.6109E-02_r8, 0.8196E-02_r8, 0.1105E-01_r8, 0.1498E-01_r8, & 0.2039E-01_r8, 0.2785E-01_r8, 0.3809E-01_r8, 0.5209E-01_r8, 0.7112E-01_r8, & 0.9688E-01_r8, 0.1315E+00_r8, 0.1773E+00_r8, 0.2363E+00_r8, 0.3100E+00_r8, & 0.3976E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8,& & -0.2001E-06_r8, -0.3592E-06_r8, -0.5829E-06_r8, -0.8631E-06_r8, -0.1187E-05_r8, & -0.1549E-05_r8, -0.1953E-05_r8, -0.2415E-05_r8, -0.2975E-05_r8, -0.3694E-05_r8, & -0.4645E-05_r8, -0.5882E-05_r8, -0.7425E-05_r8, -0.9279E-05_r8, -0.1147E-04_r8, & -0.1406E-04_r8, -0.1717E-04_r8, -0.2100E-04_r8, -0.2580E-04_r8, -0.3191E-04_r8, & -0.3989E-04_r8, -0.5042E-04_r8, -0.6432E-04_r8, -0.8261E-04_r8, -0.1068E-03_r8, & -0.1389E-03_r8, -0.1820E-03_r8, -0.2391E-03_r8, -0.3127E-03_r8, -0.4021E-03_r8, & -0.5002E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8,& & 0.5838E-09_r8, 0.8426E-09_r8, 0.1081E-08_r8, 0.1249E-08_r8, 0.1267E-08_r8, & 0.1062E-08_r8, 0.6313E-09_r8, -0.8241E-10_r8, -0.1094E-08_r8, -0.2436E-08_r8, & -0.4100E-08_r8, -0.5786E-08_r8, -0.6992E-08_r8, -0.7083E-08_r8, -0.5405E-08_r8, & -0.1259E-08_r8, 0.6099E-08_r8, 0.1732E-07_r8, 0.3276E-07_r8, 0.5256E-07_r8, & 0.7756E-07_r8, 0.1103E-06_r8, 0.1547E-06_r8, 0.2159E-06_r8, 0.3016E-06_r8, & 0.4251E-06_r8, 0.6033E-06_r8, 0.8499E-06_r8, 0.1175E-05_r8, 0.1579E-05_r8, & 0.2044E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8,& & 0.6211E-04_r8, 0.9932E-04_r8, 0.1499E-03_r8, 0.2140E-03_r8, 0.2911E-03_r8, & 0.3820E-03_r8, 0.4895E-03_r8, 0.6196E-03_r8, 0.7834E-03_r8, 0.9973E-03_r8, & 0.1285E-02_r8, 0.1678E-02_r8, 0.2216E-02_r8, 0.2951E-02_r8, 0.3953E-02_r8, & 0.5319E-02_r8, 0.7186E-02_r8, 0.9743E-02_r8, 0.1326E-01_r8, 0.1811E-01_r8, & 0.2479E-01_r8, 0.3400E-01_r8, 0.4662E-01_r8, 0.6379E-01_r8, 0.8708E-01_r8, & 0.1185E+00_r8, 0.1603E+00_r8, 0.2147E+00_r8, 0.2835E+00_r8, 0.3667E+00_r8, & 0.4620E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8,& & -0.1987E-06_r8, -0.3565E-06_r8, -0.5784E-06_r8, -0.8557E-06_r8, -0.1175E-05_r8, & -0.1530E-05_r8, -0.1923E-05_r8, -0.2372E-05_r8, -0.2919E-05_r8, -0.3631E-05_r8, & -0.4587E-05_r8, -0.5848E-05_r8, -0.7442E-05_r8, -0.9391E-05_r8, -0.1173E-04_r8, & -0.1455E-04_r8, -0.1801E-04_r8, -0.2232E-04_r8, -0.2779E-04_r8, -0.3489E-04_r8, & -0.4428E-04_r8, -0.5678E-04_r8, -0.7333E-04_r8, -0.9530E-04_r8, -0.1246E-03_r8, & -0.1639E-03_r8, -0.2164E-03_r8, -0.2848E-03_r8, -0.3697E-03_r8, -0.4665E-03_r8, & -0.5646E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8,& & 0.5785E-09_r8, 0.8338E-09_r8, 0.1071E-08_r8, 0.1239E-08_r8, 0.1256E-08_r8, & 0.1057E-08_r8, 0.6480E-09_r8, -0.1793E-10_r8, -0.9278E-09_r8, -0.2051E-08_r8, & -0.3337E-08_r8, -0.4514E-08_r8, -0.5067E-08_r8, -0.4328E-08_r8, -0.1545E-08_r8, & 0.4100E-08_r8, 0.1354E-07_r8, 0.2762E-07_r8, 0.4690E-07_r8, 0.7190E-07_r8, & 0.1040E-06_r8, 0.1459E-06_r8, 0.2014E-06_r8, 0.2764E-06_r8, 0.3824E-06_r8, & 0.5359E-06_r8, 0.7532E-06_r8, 0.1047E-05_r8, 0.1424E-05_r8, 0.1873E-05_r8, & 0.2356E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8,& & 0.6246E-04_r8, 0.1001E-03_r8, 0.1515E-03_r8, 0.2171E-03_r8, 0.2970E-03_r8, & 0.3924E-03_r8, 0.5072E-03_r8, 0.6495E-03_r8, 0.8329E-03_r8, 0.1078E-02_r8, & 0.1413E-02_r8, 0.1876E-02_r8, 0.2516E-02_r8, 0.3399E-02_r8, 0.4612E-02_r8, & 0.6276E-02_r8, 0.8562E-02_r8, 0.1171E-01_r8, 0.1605E-01_r8, 0.2205E-01_r8, & 0.3032E-01_r8, 0.4167E-01_r8, 0.5717E-01_r8, 0.7821E-01_r8, 0.1067E+00_r8, & 0.1447E+00_r8, 0.1948E+00_r8, 0.2586E+00_r8, 0.3372E+00_r8, 0.4290E+00_r8, & 0.5295E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8,& & -0.1964E-06_r8, -0.3526E-06_r8, -0.5717E-06_r8, -0.8451E-06_r8, -0.1158E-05_r8, & -0.1504E-05_r8, -0.1886E-05_r8, -0.2322E-05_r8, -0.2861E-05_r8, -0.3576E-05_r8, & -0.4552E-05_r8, -0.5856E-05_r8, -0.7529E-05_r8, -0.9609E-05_r8, -0.1216E-04_r8, & -0.1528E-04_r8, -0.1916E-04_r8, -0.2408E-04_r8, -0.3043E-04_r8, -0.3880E-04_r8, & -0.4997E-04_r8, -0.6488E-04_r8, -0.8474E-04_r8, -0.1113E-03_r8, -0.1471E-03_r8, & -0.1950E-03_r8, -0.2583E-03_r8, -0.3384E-03_r8, -0.4326E-03_r8, -0.5319E-03_r8, & -0.6244E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8,& & 0.5713E-09_r8, 0.8263E-09_r8, 0.1060E-08_r8, 0.1226E-08_r8, 0.1252E-08_r8, & 0.1076E-08_r8, 0.7149E-09_r8, 0.1379E-09_r8, -0.6043E-09_r8, -0.1417E-08_r8, & -0.2241E-08_r8, -0.2830E-08_r8, -0.2627E-08_r8, -0.8950E-09_r8, 0.3231E-08_r8, & 0.1075E-07_r8, 0.2278E-07_r8, 0.4037E-07_r8, 0.6439E-07_r8, 0.9576E-07_r8, & 0.1363E-06_r8, 0.1886E-06_r8, 0.2567E-06_r8, 0.3494E-06_r8, 0.4821E-06_r8, & 0.6719E-06_r8, 0.9343E-06_r8, 0.1280E-05_r8, 0.1705E-05_r8, 0.2184E-05_r8, & 0.2651E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8,& & 0.6299E-04_r8, 0.1013E-03_r8, 0.1541E-03_r8, 0.2220E-03_r8, 0.3058E-03_r8, & 0.4078E-03_r8, 0.5334E-03_r8, 0.6928E-03_r8, 0.9032E-03_r8, 0.1190E-02_r8, & 0.1587E-02_r8, 0.2140E-02_r8, 0.2912E-02_r8, 0.3982E-02_r8, 0.5460E-02_r8, & 0.7500E-02_r8, 0.1031E-01_r8, 0.1420E-01_r8, 0.1958E-01_r8, 0.2700E-01_r8, & 0.3721E-01_r8, 0.5118E-01_r8, 0.7019E-01_r8, 0.9593E-01_r8, 0.1305E+00_r8, & 0.1763E+00_r8, 0.2354E+00_r8, 0.3091E+00_r8, 0.3969E+00_r8, 0.4952E+00_r8, & 0.5978E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8,& & -0.1932E-06_r8, -0.3467E-06_r8, -0.5623E-06_r8, -0.8306E-06_r8, -0.1136E-05_r8, & -0.1472E-05_r8, -0.1842E-05_r8, -0.2269E-05_r8, -0.2807E-05_r8, -0.3539E-05_r8, & -0.4553E-05_r8, -0.5925E-05_r8, -0.7710E-05_r8, -0.9968E-05_r8, -0.1278E-04_r8, & -0.1629E-04_r8, -0.2073E-04_r8, -0.2644E-04_r8, -0.3392E-04_r8, -0.4390E-04_r8, & -0.5727E-04_r8, -0.7516E-04_r8, -0.9916E-04_r8, -0.1315E-03_r8, -0.1752E-03_r8, & -0.2333E-03_r8, -0.3082E-03_r8, -0.3988E-03_r8, -0.4982E-03_r8, -0.5947E-03_r8, & -0.6764E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8,& & 0.5612E-09_r8, 0.8116E-09_r8, 0.1048E-08_r8, 0.1222E-08_r8, 0.1270E-08_r8, & 0.1141E-08_r8, 0.8732E-09_r8, 0.4336E-09_r8, -0.6548E-10_r8, -0.4774E-09_r8, & -0.7556E-09_r8, -0.6577E-09_r8, 0.4377E-09_r8, 0.3359E-08_r8, 0.9159E-08_r8, & 0.1901E-07_r8, 0.3422E-07_r8, 0.5616E-07_r8, 0.8598E-07_r8, 0.1251E-06_r8, & 0.1752E-06_r8, 0.2392E-06_r8, 0.3228E-06_r8, 0.4389E-06_r8, 0.6049E-06_r8, & 0.8370E-06_r8, 0.1150E-05_r8, 0.1547E-05_r8, 0.2012E-05_r8, 0.2493E-05_r8, & 0.2913E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8,& & 0.6378E-04_r8, 0.1032E-03_r8, 0.1579E-03_r8, 0.2293E-03_r8, 0.3190E-03_r8, & 0.4305E-03_r8, 0.5712E-03_r8, 0.7541E-03_r8, 0.1001E-02_r8, 0.1342E-02_r8, & 0.1819E-02_r8, 0.2489E-02_r8, 0.3427E-02_r8, 0.4734E-02_r8, 0.6548E-02_r8, & 0.9059E-02_r8, 0.1254E-01_r8, 0.1735E-01_r8, 0.2401E-01_r8, 0.3318E-01_r8, & 0.4577E-01_r8, 0.6292E-01_r8, 0.8620E-01_r8, 0.1176E+00_r8, 0.1594E+00_r8, & 0.2139E+00_r8, 0.2827E+00_r8, 0.3660E+00_r8, 0.4614E+00_r8, 0.5634E+00_r8, & 0.6649E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8,& & -0.1885E-06_r8, -0.3385E-06_r8, -0.5493E-06_r8, -0.8114E-06_r8, -0.1109E-05_r8, & -0.1436E-05_r8, -0.1796E-05_r8, -0.2219E-05_r8, -0.2770E-05_r8, -0.3535E-05_r8, & -0.4609E-05_r8, -0.6077E-05_r8, -0.8016E-05_r8, -0.1051E-04_r8, -0.1367E-04_r8, & -0.1768E-04_r8, -0.2283E-04_r8, -0.2955E-04_r8, -0.3849E-04_r8, -0.5046E-04_r8, & -0.6653E-04_r8, -0.8813E-04_r8, -0.1173E-03_r8, -0.1569E-03_r8, -0.2100E-03_r8, & -0.2794E-03_r8, -0.3656E-03_r8, -0.4637E-03_r8, -0.5629E-03_r8, -0.6512E-03_r8, & -0.7167E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8,& & 0.5477E-09_r8, 0.8000E-09_r8, 0.1039E-08_r8, 0.1234E-08_r8, 0.1331E-08_r8, & 0.1295E-08_r8, 0.1160E-08_r8, 0.9178E-09_r8, 0.7535E-09_r8, 0.8301E-09_r8, & 0.1184E-08_r8, 0.2082E-08_r8, 0.4253E-08_r8, 0.8646E-08_r8, 0.1650E-07_r8, & 0.2920E-07_r8, 0.4834E-07_r8, 0.7564E-07_r8, 0.1125E-06_r8, 0.1606E-06_r8, & 0.2216E-06_r8, 0.2992E-06_r8, 0.4031E-06_r8, 0.5493E-06_r8, 0.7549E-06_r8, & 0.1035E-05_r8, 0.1400E-05_r8, 0.1843E-05_r8, 0.2327E-05_r8, 0.2774E-05_r8, & 0.3143E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8,& & 0.6495E-04_r8, 0.1059E-03_r8, 0.1635E-03_r8, 0.2400E-03_r8, 0.3381E-03_r8, & 0.4631E-03_r8, 0.6246E-03_r8, 0.8394E-03_r8, 0.1134E-02_r8, 0.1546E-02_r8, & 0.2126E-02_r8, 0.2944E-02_r8, 0.4093E-02_r8, 0.5699E-02_r8, 0.7934E-02_r8, & 0.1104E-01_r8, 0.1535E-01_r8, 0.2131E-01_r8, 0.2956E-01_r8, 0.4089E-01_r8, & 0.5636E-01_r8, 0.7739E-01_r8, 0.1058E+00_r8, 0.1439E+00_r8, 0.1939E+00_r8, & 0.2578E+00_r8, 0.3364E+00_r8, 0.4283E+00_r8, 0.5290E+00_r8, 0.6314E+00_r8, & 0.7292E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8,& & -0.1822E-06_r8, -0.3274E-06_r8, -0.5325E-06_r8, -0.7881E-06_r8, -0.1079E-05_r8, & -0.1398E-05_r8, -0.1754E-05_r8, -0.2184E-05_r8, -0.2763E-05_r8, -0.3581E-05_r8, & -0.4739E-05_r8, -0.6341E-05_r8, -0.8484E-05_r8, -0.1128E-04_r8, -0.1490E-04_r8, & -0.1955E-04_r8, -0.2561E-04_r8, -0.3364E-04_r8, -0.4438E-04_r8, -0.5881E-04_r8, & -0.7822E-04_r8, -0.1045E-03_r8, -0.1401E-03_r8, -0.1884E-03_r8, -0.2523E-03_r8, & -0.3335E-03_r8, -0.4289E-03_r8, -0.5296E-03_r8, -0.6231E-03_r8, -0.6980E-03_r8, & -0.7406E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8,& & 0.5334E-09_r8, 0.7859E-09_r8, 0.1043E-08_r8, 0.1279E-08_r8, 0.1460E-08_r8, & 0.1560E-08_r8, 0.1618E-08_r8, 0.1657E-08_r8, 0.1912E-08_r8, 0.2569E-08_r8, & 0.3654E-08_r8, 0.5509E-08_r8, 0.8964E-08_r8, 0.1518E-07_r8, 0.2560E-07_r8, & 0.4178E-07_r8, 0.6574E-07_r8, 0.9958E-07_r8, 0.1449E-06_r8, 0.2031E-06_r8, & 0.2766E-06_r8, 0.3718E-06_r8, 0.5022E-06_r8, 0.6849E-06_r8, 0.9360E-06_r8, & 0.1268E-05_r8, 0.1683E-05_r8, 0.2157E-05_r8, 0.2625E-05_r8, 0.3020E-05_r8, & 0.3364E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8,& & 0.6661E-04_r8, 0.1098E-03_r8, 0.1716E-03_r8, 0.2554E-03_r8, 0.3653E-03_r8, & 0.5088E-03_r8, 0.6986E-03_r8, 0.9557E-03_r8, 0.1313E-02_r8, 0.1816E-02_r8, & 0.2527E-02_r8, 0.3532E-02_r8, 0.4947E-02_r8, 0.6929E-02_r8, 0.9694E-02_r8, & 0.1354E-01_r8, 0.1888E-01_r8, 0.2628E-01_r8, 0.3647E-01_r8, 0.5043E-01_r8, & 0.6941E-01_r8, 0.9514E-01_r8, 0.1297E+00_r8, 0.1755E+00_r8, 0.2347E+00_r8, & 0.3084E+00_r8, 0.3962E+00_r8, 0.4947E+00_r8, 0.5974E+00_r8, 0.6973E+00_r8, & 0.7898E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8,& & -0.1742E-06_r8, -0.3134E-06_r8, -0.5121E-06_r8, -0.7619E-06_r8, -0.1048E-05_r8, & -0.1364E-05_r8, -0.1725E-05_r8, -0.2177E-05_r8, -0.2801E-05_r8, -0.3694E-05_r8, & -0.4969E-05_r8, -0.6748E-05_r8, -0.9161E-05_r8, -0.1236E-04_r8, -0.1655E-04_r8, & -0.2203E-04_r8, -0.2927E-04_r8, -0.3894E-04_r8, -0.5192E-04_r8, -0.6936E-04_r8, & -0.9294E-04_r8, -0.1250E-03_r8, -0.1686E-03_r8, -0.2271E-03_r8, -0.3027E-03_r8, & -0.3944E-03_r8, -0.4951E-03_r8, -0.5928E-03_r8, -0.6755E-03_r8, -0.7309E-03_r8, & -0.7417E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8,& & 0.5179E-09_r8, 0.7789E-09_r8, 0.1071E-08_r8, 0.1382E-08_r8, 0.1690E-08_r8, & 0.1979E-08_r8, 0.2297E-08_r8, 0.2704E-08_r8, 0.3466E-08_r8, 0.4794E-08_r8, & 0.6746E-08_r8, 0.9739E-08_r8, 0.1481E-07_r8, 0.2331E-07_r8, 0.3679E-07_r8, & 0.5726E-07_r8, 0.8716E-07_r8, 0.1289E-06_r8, 0.1837E-06_r8, 0.2534E-06_r8, & 0.3424E-06_r8, 0.4609E-06_r8, 0.6245E-06_r8, 0.8495E-06_r8, 0.1151E-05_r8, & 0.1536E-05_r8, 0.1991E-05_r8, 0.2468E-05_r8, 0.2891E-05_r8, 0.3245E-05_r8, & 0.3580E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8,& & 0.6888E-04_r8, 0.1151E-03_r8, 0.1828E-03_r8, 0.2766E-03_r8, 0.4028E-03_r8, & 0.5713E-03_r8, 0.7987E-03_r8, 0.1111E-02_r8, 0.1548E-02_r8, 0.2167E-02_r8, & 0.3044E-02_r8, 0.4285E-02_r8, 0.6035E-02_r8, 0.8490E-02_r8, 0.1192E-01_r8, & 0.1670E-01_r8, 0.2333E-01_r8, 0.3249E-01_r8, 0.4506E-01_r8, 0.6220E-01_r8, & 0.8546E-01_r8, 0.1168E+00_r8, 0.1587E+00_r8, 0.2131E+00_r8, 0.2820E+00_r8, & 0.3653E+00_r8, 0.4609E+00_r8, 0.5630E+00_r8, 0.6645E+00_r8, 0.7599E+00_r8, & 0.8458E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8,& & -0.1647E-06_r8, -0.2974E-06_r8, -0.4900E-06_r8, -0.7358E-06_r8, -0.1022E-05_r8, & -0.1344E-05_r8, -0.1721E-05_r8, -0.2212E-05_r8, -0.2901E-05_r8, -0.3896E-05_r8, & -0.5327E-05_r8, -0.7342E-05_r8, -0.1011E-04_r8, -0.1382E-04_r8, -0.1875E-04_r8, & -0.2530E-04_r8, -0.3403E-04_r8, -0.4573E-04_r8, -0.6145E-04_r8, -0.8264E-04_r8, & -0.1114E-03_r8, -0.1507E-03_r8, -0.2039E-03_r8, -0.2737E-03_r8, -0.3607E-03_r8, & -0.4599E-03_r8, -0.5604E-03_r8, -0.6497E-03_r8, -0.7161E-03_r8, -0.7443E-03_r8, & -0.7133E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8,& & 0.5073E-09_r8, 0.7906E-09_r8, 0.1134E-08_r8, 0.1560E-08_r8, 0.2046E-08_r8, & 0.2589E-08_r8, 0.3254E-08_r8, 0.4107E-08_r8, 0.5481E-08_r8, 0.7602E-08_r8, & 0.1059E-07_r8, 0.1501E-07_r8, 0.2210E-07_r8, 0.3334E-07_r8, 0.5055E-07_r8, & 0.7629E-07_r8, 0.1134E-06_r8, 0.1642E-06_r8, 0.2298E-06_r8, 0.3133E-06_r8, & 0.4225E-06_r8, 0.5709E-06_r8, 0.7739E-06_r8, 0.1047E-05_r8, 0.1401E-05_r8, & 0.1833E-05_r8, 0.2308E-05_r8, 0.2753E-05_r8, 0.3125E-05_r8, 0.3467E-05_r8, & 0.3748E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8,& & 0.7179E-04_r8, 0.1221E-03_r8, 0.1975E-03_r8, 0.3049E-03_r8, 0.4529E-03_r8, & 0.6547E-03_r8, 0.9312E-03_r8, 0.1315E-02_r8, 0.1855E-02_r8, 0.2620E-02_r8, & 0.3705E-02_r8, 0.5243E-02_r8, 0.7414E-02_r8, 0.1046E-01_r8, 0.1472E-01_r8, & 0.2065E-01_r8, 0.2888E-01_r8, 0.4019E-01_r8, 0.5566E-01_r8, 0.7668E-01_r8, & 0.1051E+00_r8, 0.1432E+00_r8, 0.1932E+00_r8, 0.2571E+00_r8, 0.3358E+00_r8, & 0.4278E+00_r8, 0.5285E+00_r8, 0.6310E+00_r8, 0.7289E+00_r8, 0.8184E+00_r8, & 0.8954E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8,& & -0.1548E-06_r8, -0.2808E-06_r8, -0.4683E-06_r8, -0.7142E-06_r8, -0.1008E-05_r8, & -0.1347E-05_r8, -0.1758E-05_r8, -0.2306E-05_r8, -0.3083E-05_r8, -0.4214E-05_r8, & -0.5851E-05_r8, -0.8175E-05_r8, -0.1140E-04_r8, -0.1577E-04_r8, -0.2166E-04_r8, & -0.2955E-04_r8, -0.4014E-04_r8, -0.5434E-04_r8, -0.7343E-04_r8, -0.9931E-04_r8, & -0.1346E-03_r8, -0.1826E-03_r8, -0.2467E-03_r8, -0.3283E-03_r8, -0.4246E-03_r8, & -0.5264E-03_r8, -0.6211E-03_r8, -0.6970E-03_r8, -0.7402E-03_r8, -0.7316E-03_r8, & -0.6486E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8,& & 0.5078E-09_r8, 0.8244E-09_r8, 0.1255E-08_r8, 0.1826E-08_r8, 0.2550E-08_r8, & 0.3438E-08_r8, 0.4532E-08_r8, 0.5949E-08_r8, 0.8041E-08_r8, 0.1110E-07_r8, & 0.1534E-07_r8, 0.2157E-07_r8, 0.3116E-07_r8, 0.4570E-07_r8, 0.6747E-07_r8, & 0.9961E-07_r8, 0.1451E-06_r8, 0.2061E-06_r8, 0.2843E-06_r8, 0.3855E-06_r8, & 0.5213E-06_r8, 0.7060E-06_r8, 0.9544E-06_r8, 0.1280E-05_r8, 0.1684E-05_r8, & 0.2148E-05_r8, 0.2609E-05_r8, 0.3002E-05_r8, 0.3349E-05_r8, 0.3670E-05_r8, & 0.3780E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8,& & 0.7529E-04_r8, 0.1306E-03_r8, 0.2160E-03_r8, 0.3410E-03_r8, 0.5175E-03_r8, & 0.7626E-03_r8, 0.1103E-02_r8, 0.1577E-02_r8, 0.2246E-02_r8, 0.3196E-02_r8, & 0.4544E-02_r8, 0.6455E-02_r8, 0.9152E-02_r8, 0.1294E-01_r8, 0.1823E-01_r8, & 0.2560E-01_r8, 0.3577E-01_r8, 0.4971E-01_r8, 0.6870E-01_r8, 0.9443E-01_r8, & 0.1290E+00_r8, 0.1748E+00_r8, 0.2340E+00_r8, 0.3078E+00_r8, 0.3956E+00_r8, & 0.4942E+00_r8, 0.5969E+00_r8, 0.6970E+00_r8, 0.7896E+00_r8, 0.8714E+00_r8, & 0.9364E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8,& & -0.1461E-06_r8, -0.2663E-06_r8, -0.4512E-06_r8, -0.7027E-06_r8, -0.1014E-05_r8, & -0.1387E-05_r8, -0.1851E-05_r8, -0.2478E-05_r8, -0.3373E-05_r8, -0.4682E-05_r8, & -0.6588E-05_r8, -0.9311E-05_r8, -0.1311E-04_r8, -0.1834E-04_r8, -0.2544E-04_r8, & -0.3502E-04_r8, -0.4789E-04_r8, -0.6515E-04_r8, -0.8846E-04_r8, -0.1202E-03_r8, & -0.1635E-03_r8, -0.2217E-03_r8, -0.2975E-03_r8, -0.3897E-03_r8, -0.4913E-03_r8, & -0.5902E-03_r8, -0.6740E-03_r8, -0.7302E-03_r8, -0.7415E-03_r8, -0.6858E-03_r8, & -0.5447E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8,& & 0.5236E-09_r8, 0.8873E-09_r8, 0.1426E-08_r8, 0.2193E-08_r8, 0.3230E-08_r8, & 0.4555E-08_r8, 0.6200E-08_r8, 0.8298E-08_r8, 0.1126E-07_r8, 0.1544E-07_r8, & 0.2130E-07_r8, 0.2978E-07_r8, 0.4239E-07_r8, 0.6096E-07_r8, 0.8829E-07_r8, & 0.1280E-06_r8, 0.1830E-06_r8, 0.2555E-06_r8, 0.3493E-06_r8, 0.4740E-06_r8, & 0.6431E-06_r8, 0.8701E-06_r8, 0.1169E-05_r8, 0.1547E-05_r8, 0.1992E-05_r8, & 0.2460E-05_r8, 0.2877E-05_r8, 0.3230E-05_r8, 0.3569E-05_r8, 0.3782E-05_r8, & 0.3591E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8,& & 0.7911E-04_r8, 0.1403E-03_r8, 0.2378E-03_r8, 0.3847E-03_r8, 0.5973E-03_r8, & 0.8978E-03_r8, 0.1319E-02_r8, 0.1909E-02_r8, 0.2741E-02_r8, 0.3923E-02_r8, & 0.5600E-02_r8, 0.7977E-02_r8, 0.1133E-01_r8, 0.1604E-01_r8, 0.2262E-01_r8, & 0.3174E-01_r8, 0.4429E-01_r8, 0.6143E-01_r8, 0.8469E-01_r8, 0.1161E+00_r8, & 0.1579E+00_r8, 0.2124E+00_r8, 0.2813E+00_r8, 0.3647E+00_r8, 0.4603E+00_r8, & 0.5625E+00_r8, 0.6641E+00_r8, 0.7596E+00_r8, 0.8456E+00_r8, 0.9170E+00_r8, & 0.9670E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8,& & -0.1402E-06_r8, -0.2569E-06_r8, -0.4428E-06_r8, -0.7076E-06_r8, -0.1051E-05_r8, & -0.1478E-05_r8, -0.2019E-05_r8, -0.2752E-05_r8, -0.3802E-05_r8, -0.5343E-05_r8, & -0.7594E-05_r8, -0.1082E-04_r8, -0.1536E-04_r8, -0.2166E-04_r8, -0.3028E-04_r8, & -0.4195E-04_r8, -0.5761E-04_r8, -0.7867E-04_r8, -0.1072E-03_r8, -0.1462E-03_r8, & -0.1990E-03_r8, -0.2687E-03_r8, -0.3559E-03_r8, -0.4558E-03_r8, -0.5572E-03_r8, & -0.6476E-03_r8, -0.7150E-03_r8, -0.7439E-03_r8, -0.7133E-03_r8, -0.6015E-03_r8, & -0.4089E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8,& & 0.5531E-09_r8, 0.9757E-09_r8, 0.1644E-08_r8, 0.2650E-08_r8, 0.4074E-08_r8, & 0.5957E-08_r8, 0.8314E-08_r8, 0.1128E-07_r8, 0.1528E-07_r8, 0.2087E-07_r8, & 0.2874E-07_r8, 0.4002E-07_r8, 0.5631E-07_r8, 0.7981E-07_r8, 0.1139E-06_r8, & 0.1621E-06_r8, 0.2275E-06_r8, 0.3136E-06_r8, 0.4280E-06_r8, 0.5829E-06_r8, & 0.7917E-06_r8, 0.1067E-05_r8, 0.1419E-05_r8, 0.1844E-05_r8, 0.2310E-05_r8, & 0.2747E-05_r8, 0.3113E-05_r8, 0.3455E-05_r8, 0.3739E-05_r8, 0.3715E-05_r8, & 0.3125E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8,& & 0.8292E-04_r8, 0.1503E-03_r8, 0.2614E-03_r8, 0.4345E-03_r8, 0.6915E-03_r8, & 0.1061E-02_r8, 0.1584E-02_r8, 0.2320E-02_r8, 0.3359E-02_r8, 0.4831E-02_r8, & 0.6920E-02_r8, 0.9877E-02_r8, 0.1405E-01_r8, 0.1990E-01_r8, 0.2805E-01_r8, & 0.3933E-01_r8, 0.5477E-01_r8, 0.7579E-01_r8, 0.1042E+00_r8, 0.1423E+00_r8, & 0.1924E+00_r8, 0.2564E+00_r8, 0.3351E+00_r8, 0.4271E+00_r8, 0.5280E+00_r8, & 0.6306E+00_r8, 0.7286E+00_r8, 0.8182E+00_r8, 0.8952E+00_r8, 0.9530E+00_r8, & 0.9864E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8,& & -0.1378E-06_r8, -0.2542E-06_r8, -0.4461E-06_r8, -0.7333E-06_r8, -0.1125E-05_r8, & -0.1630E-05_r8, -0.2281E-05_r8, -0.3159E-05_r8, -0.4410E-05_r8, -0.6246E-05_r8, & -0.8933E-05_r8, -0.1280E-04_r8, -0.1826E-04_r8, -0.2589E-04_r8, -0.3639E-04_r8, & -0.5059E-04_r8, -0.6970E-04_r8, -0.9552E-04_r8, -0.1307E-03_r8, -0.1784E-03_r8, & -0.2422E-03_r8, -0.3237E-03_r8, -0.4203E-03_r8, -0.5227E-03_r8, -0.6184E-03_r8, & -0.6953E-03_r8, -0.7395E-03_r8, -0.7315E-03_r8, -0.6487E-03_r8, -0.4799E-03_r8, & -0.2625E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8,& & 0.5891E-09_r8, 0.1074E-08_r8, 0.1885E-08_r8, 0.3167E-08_r8, 0.5051E-08_r8, & 0.7631E-08_r8, 0.1092E-07_r8, 0.1500E-07_r8, 0.2032E-07_r8, 0.2769E-07_r8, & 0.3810E-07_r8, 0.5279E-07_r8, 0.7361E-07_r8, 0.1032E-06_r8, 0.1450E-06_r8, & 0.2026E-06_r8, 0.2798E-06_r8, 0.3832E-06_r8, 0.5242E-06_r8, 0.7159E-06_r8, & 0.9706E-06_r8, 0.1299E-05_r8, 0.1701E-05_r8, 0.2159E-05_r8, 0.2612E-05_r8, & 0.2998E-05_r8, 0.3341E-05_r8, 0.3661E-05_r8, 0.3775E-05_r8, 0.3393E-05_r8, & 0.2384E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8,& & 0.8637E-04_r8, 0.1598E-03_r8, 0.2853E-03_r8, 0.4876E-03_r8, 0.7970E-03_r8, & 0.1251E-02_r8, 0.1901E-02_r8, 0.2820E-02_r8, 0.4118E-02_r8, 0.5955E-02_r8, & 0.8557E-02_r8, 0.1224E-01_r8, 0.1742E-01_r8, 0.2467E-01_r8, 0.3476E-01_r8, & 0.4864E-01_r8, 0.6759E-01_r8, 0.9332E-01_r8, 0.1280E+00_r8, 0.1738E+00_r8, & 0.2330E+00_r8, 0.3069E+00_r8, 0.3949E+00_r8, 0.4935E+00_r8, 0.5964E+00_r8, & 0.6965E+00_r8, 0.7893E+00_r8, 0.8713E+00_r8, 0.9363E+00_r8, 0.9780E+00_r8, & 0.9961E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8,& & -0.1383E-06_r8, -0.2577E-06_r8, -0.4608E-06_r8, -0.7793E-06_r8, -0.1237E-05_r8, & -0.1850E-05_r8, -0.2652E-05_r8, -0.3728E-05_r8, -0.5244E-05_r8, -0.7451E-05_r8, & -0.1067E-04_r8, -0.1532E-04_r8, -0.2193E-04_r8, -0.3119E-04_r8, -0.4395E-04_r8, & -0.6126E-04_r8, -0.8466E-04_r8, -0.1164E-03_r8, -0.1596E-03_r8, -0.2177E-03_r8, & -0.2933E-03_r8, -0.3855E-03_r8, -0.4874E-03_r8, -0.5870E-03_r8, -0.6718E-03_r8, & -0.7290E-03_r8, -0.7411E-03_r8, -0.6859E-03_r8, -0.5450E-03_r8, -0.3353E-03_r8, & -0.1363E-03_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8,& & 0.6217E-09_r8, 0.1165E-08_r8, 0.2116E-08_r8, 0.3685E-08_r8, 0.6101E-08_r8, & 0.9523E-08_r8, 0.1400E-07_r8, 0.1959E-07_r8, 0.2668E-07_r8, 0.3629E-07_r8, & 0.4982E-07_r8, 0.6876E-07_r8, 0.9523E-07_r8, 0.1321E-06_r8, 0.1825E-06_r8, & 0.2505E-06_r8, 0.3420E-06_r8, 0.4677E-06_r8, 0.6416E-06_r8, 0.8760E-06_r8, & 0.1183E-05_r8, 0.1565E-05_r8, 0.2010E-05_r8, 0.2472E-05_r8, 0.2882E-05_r8, & 0.3229E-05_r8, 0.3564E-05_r8, 0.3777E-05_r8, 0.3589E-05_r8, 0.2786E-05_r8, & 0.1487E-05_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8,& & 0.8925E-04_r8, 0.1682E-03_r8, 0.3074E-03_r8, 0.5403E-03_r8, 0.9085E-03_r8, & 0.1463E-02_r8, 0.2268E-02_r8, 0.3416E-02_r8, 0.5040E-02_r8, 0.7333E-02_r8, & 0.1057E-01_r8, 0.1515E-01_r8, 0.2157E-01_r8, 0.3055E-01_r8, 0.4297E-01_r8, & 0.6001E-01_r8, 0.8323E-01_r8, 0.1146E+00_r8, 0.1565E+00_r8, 0.2111E+00_r8, & 0.2801E+00_r8, 0.3636E+00_r8, 0.4594E+00_r8, 0.5618E+00_r8, 0.6636E+00_r8, & 0.7592E+00_r8, 0.8454E+00_r8, 0.9169E+00_r8, 0.9669E+00_r8, 0.9923E+00_r8, & 0.9995E+00_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8,& & -0.1405E-06_r8, -0.2649E-06_r8, -0.4829E-06_r8, -0.8398E-06_r8, -0.1379E-05_r8, & -0.2132E-05_r8, -0.3138E-05_r8, -0.4487E-05_r8, -0.6353E-05_r8, -0.9026E-05_r8, & -0.1290E-04_r8, -0.1851E-04_r8, -0.2650E-04_r8, -0.3772E-04_r8, -0.5319E-04_r8, & -0.7431E-04_r8, -0.1031E-03_r8, -0.1422E-03_r8, -0.1951E-03_r8, -0.2648E-03_r8, & -0.3519E-03_r8, -0.4518E-03_r8, -0.5537E-03_r8, -0.6449E-03_r8, -0.7133E-03_r8, & -0.7432E-03_r8, -0.7133E-03_r8, -0.6018E-03_r8, -0.4092E-03_r8, -0.1951E-03_r8, & -0.5345E-04_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8,& & 0.6457E-09_r8, 0.1235E-08_r8, 0.2303E-08_r8, 0.4149E-08_r8, 0.7120E-08_r8, & 0.1152E-07_r8, 0.1749E-07_r8, 0.2508E-07_r8, 0.3462E-07_r8, 0.4718E-07_r8, & 0.6452E-07_r8, 0.8874E-07_r8, 0.1222E-06_r8, 0.1675E-06_r8, 0.2276E-06_r8, & 0.3076E-06_r8, 0.4174E-06_r8, 0.5714E-06_r8, 0.7837E-06_r8, 0.1067E-05_r8, & 0.1428E-05_r8, 0.1859E-05_r8, 0.2327E-05_r8, 0.2760E-05_r8, 0.3122E-05_r8, & 0.3458E-05_r8, 0.3739E-05_r8, 0.3715E-05_r8, 0.3126E-05_r8, 0.1942E-05_r8, & 0.6977E-06_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8,& & 0.9151E-04_r8, 0.1750E-03_r8, 0.3265E-03_r8, 0.5891E-03_r8, 0.1020E-02_r8, & 0.1688E-02_r8, 0.2679E-02_r8, 0.4109E-02_r8, 0.6138E-02_r8, 0.9002E-02_r8, & 0.1304E-01_r8, 0.1871E-01_r8, 0.2667E-01_r8, 0.3773E-01_r8, 0.5299E-01_r8, & 0.7386E-01_r8, 0.1022E+00_r8, 0.1403E+00_r8, 0.1905E+00_r8, 0.2546E+00_r8, & 0.3335E+00_r8, 0.4258E+00_r8, 0.5269E+00_r8, 0.6297E+00_r8, 0.7280E+00_r8, & 0.8178E+00_r8, 0.8950E+00_r8, 0.9529E+00_r8, 0.9864E+00_r8, 0.9983E+00_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8,& & -0.1431E-06_r8, -0.2731E-06_r8, -0.5072E-06_r8, -0.9057E-06_r8, -0.1537E-05_r8, & -0.2460E-05_r8, -0.3733E-05_r8, -0.5449E-05_r8, -0.7786E-05_r8, -0.1106E-04_r8, & -0.1574E-04_r8, -0.2249E-04_r8, -0.3212E-04_r8, -0.4564E-04_r8, -0.6438E-04_r8, & -0.9019E-04_r8, -0.1256E-03_r8, -0.1737E-03_r8, -0.2378E-03_r8, -0.3196E-03_r8, & -0.4163E-03_r8, -0.5191E-03_r8, -0.6154E-03_r8, -0.6931E-03_r8, -0.7384E-03_r8, & -0.7313E-03_r8, -0.6492E-03_r8, -0.4805E-03_r8, -0.2629E-03_r8, -0.8897E-04_r8, & -0.1432E-04_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8,& & 0.6607E-09_r8, 0.1282E-08_r8, 0.2441E-08_r8, 0.4522E-08_r8, 0.8027E-08_r8, & 0.1348E-07_r8, 0.2122E-07_r8, 0.3139E-07_r8, 0.4435E-07_r8, 0.6095E-07_r8, & 0.8319E-07_r8, 0.1139E-06_r8, 0.1557E-06_r8, 0.2107E-06_r8, 0.2819E-06_r8, & 0.3773E-06_r8, 0.5107E-06_r8, 0.6982E-06_r8, 0.9542E-06_r8, 0.1290E-05_r8, & 0.1703E-05_r8, 0.2170E-05_r8, 0.2628E-05_r8, 0.3013E-05_r8, 0.3352E-05_r8, & 0.3669E-05_r8, 0.3780E-05_r8, 0.3397E-05_r8, 0.2386E-05_r8, 0.1062E-05_r8, & 0.2216E-06_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8,& & 0.9320E-04_r8, 0.1803E-03_r8, 0.3422E-03_r8, 0.6317E-03_r8, 0.1124E-02_r8, & 0.1915E-02_r8, 0.3121E-02_r8, 0.4890E-02_r8, 0.7421E-02_r8, 0.1100E-01_r8, & 0.1602E-01_r8, 0.2306E-01_r8, 0.3288E-01_r8, 0.4647E-01_r8, 0.6515E-01_r8, & 0.9066E-01_r8, 0.1252E+00_r8, 0.1710E+00_r8, 0.2304E+00_r8, 0.3045E+00_r8, & 0.3928E+00_r8, 0.4918E+00_r8, 0.5951E+00_r8, 0.6956E+00_r8, 0.7887E+00_r8, & 0.8709E+00_r8, 0.9361E+00_r8, 0.9780E+00_r8, 0.9961E+00_r8, 0.9999E+00_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8,& & -0.1454E-06_r8, -0.2805E-06_r8, -0.5296E-06_r8, -0.9685E-06_r8, -0.1695E-05_r8, & -0.2812E-05_r8, -0.4412E-05_r8, -0.6606E-05_r8, -0.9573E-05_r8, -0.1363E-04_r8, & -0.1932E-04_r8, -0.2743E-04_r8, -0.3897E-04_r8, -0.5520E-04_r8, -0.7787E-04_r8, & -0.1094E-03_r8, -0.1529E-03_r8, -0.2117E-03_r8, -0.2880E-03_r8, -0.3809E-03_r8, & -0.4834E-03_r8, -0.5836E-03_r8, -0.6692E-03_r8, -0.7275E-03_r8, -0.7408E-03_r8, & -0.6865E-03_r8, -0.5459E-03_r8, -0.3360E-03_r8, -0.1365E-03_r8, -0.2935E-04_r8, & -0.2173E-05_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8,& & 0.6693E-09_r8, 0.1312E-08_r8, 0.2538E-08_r8, 0.4802E-08_r8, 0.8778E-08_r8, & 0.1528E-07_r8, 0.2501E-07_r8, 0.3836E-07_r8, 0.5578E-07_r8, 0.7806E-07_r8, & 0.1069E-06_r8, 0.1456E-06_r8, 0.1970E-06_r8, 0.2631E-06_r8, 0.3485E-06_r8, & 0.4642E-06_r8, 0.6268E-06_r8, 0.8526E-06_r8, 0.1157E-05_r8, 0.1545E-05_r8, & 0.2002E-05_r8, 0.2478E-05_r8, 0.2897E-05_r8, 0.3245E-05_r8, 0.3578E-05_r8, & 0.3789E-05_r8, 0.3598E-05_r8, 0.2792E-05_r8, 0.1489E-05_r8, 0.4160E-06_r8, & 0.3843E-07_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8,& & 0.9443E-04_r8, 0.1843E-03_r8, 0.3545E-03_r8, 0.6669E-03_r8, 0.1217E-02_r8, & 0.2133E-02_r8, 0.3577E-02_r8, 0.5742E-02_r8, 0.8880E-02_r8, 0.1333E-01_r8, & 0.1958E-01_r8, 0.2830E-01_r8, 0.4039E-01_r8, 0.5705E-01_r8, 0.7988E-01_r8, & 0.1110E+00_r8, 0.1526E+00_r8, 0.2072E+00_r8, 0.2764E+00_r8, 0.3604E+00_r8, & 0.4567E+00_r8, 0.5597E+00_r8, 0.6620E+00_r8, 0.7581E+00_r8, 0.8447E+00_r8, & 0.9165E+00_r8, 0.9668E+00_r8, 0.9923E+00_r8, 0.9995E+00_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8,& & -0.1472E-06_r8, -0.2866E-06_r8, -0.5485E-06_r8, -0.1024E-05_r8, -0.1842E-05_r8, & -0.3160E-05_r8, -0.5136E-05_r8, -0.7922E-05_r8, -0.1171E-04_r8, -0.1682E-04_r8, & -0.2381E-04_r8, -0.3355E-04_r8, -0.4729E-04_r8, -0.6673E-04_r8, -0.9417E-04_r8, & -0.1327E-03_r8, -0.1858E-03_r8, -0.2564E-03_r8, -0.3449E-03_r8, -0.4463E-03_r8, & -0.5495E-03_r8, -0.6420E-03_r8, -0.7116E-03_r8, -0.7427E-03_r8, -0.7139E-03_r8, & -0.6031E-03_r8, -0.4104E-03_r8, -0.1957E-03_r8, -0.5358E-04_r8, -0.6176E-05_r8, & -0.1347E-06_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8,& & 0.6750E-09_r8, 0.1332E-08_r8, 0.2602E-08_r8, 0.5003E-08_r8, 0.9367E-08_r8, & 0.1684E-07_r8, 0.2863E-07_r8, 0.4566E-07_r8, 0.6865E-07_r8, 0.9861E-07_r8, & 0.1368E-06_r8, 0.1856E-06_r8, 0.2479E-06_r8, 0.3274E-06_r8, 0.4315E-06_r8, & 0.5739E-06_r8, 0.7710E-06_r8, 0.1040E-05_r8, 0.1394E-05_r8, 0.1829E-05_r8, & 0.2309E-05_r8, 0.2759E-05_r8, 0.3131E-05_r8, 0.3472E-05_r8, 0.3755E-05_r8, & 0.3730E-05_r8, 0.3138E-05_r8, 0.1948E-05_r8, 0.6994E-06_r8, 0.1022E-06_r8, & 0.2459E-08_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8,& & 0.9530E-04_r8, 0.1872E-03_r8, 0.3638E-03_r8, 0.6949E-03_r8, 0.1295E-02_r8, & 0.2330E-02_r8, 0.4022E-02_r8, 0.6633E-02_r8, 0.1049E-01_r8, 0.1601E-01_r8, & 0.2378E-01_r8, 0.3456E-01_r8, 0.4941E-01_r8, 0.6980E-01_r8, 0.9765E-01_r8, & 0.1353E+00_r8, 0.1852E+00_r8, 0.2494E+00_r8, 0.3287E+00_r8, 0.4216E+00_r8, & 0.5234E+00_r8, 0.6272E+00_r8, 0.7261E+00_r8, 0.8166E+00_r8, 0.8943E+00_r8, & 0.9526E+00_r8, 0.9863E+00_r8, 0.9983E+00_r8, 0.1000E+01_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8,& & -0.1487E-06_r8, -0.2912E-06_r8, -0.5636E-06_r8, -0.1069E-05_r8, -0.1969E-05_r8, & -0.3483E-05_r8, -0.5858E-05_r8, -0.9334E-05_r8, -0.1416E-04_r8, -0.2067E-04_r8, & -0.2936E-04_r8, -0.4113E-04_r8, -0.5750E-04_r8, -0.8072E-04_r8, -0.1139E-03_r8, & -0.1606E-03_r8, -0.2246E-03_r8, -0.3076E-03_r8, -0.4067E-03_r8, -0.5121E-03_r8, & -0.6110E-03_r8, -0.6909E-03_r8, -0.7378E-03_r8, -0.7321E-03_r8, -0.6509E-03_r8, & -0.4825E-03_r8, -0.2641E-03_r8, -0.8936E-04_r8, -0.1436E-04_r8, -0.5966E-06_r8, & 0.0000E+00_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8,& & 0.6777E-09_r8, 0.1344E-08_r8, 0.2643E-08_r8, 0.5138E-08_r8, 0.9798E-08_r8, & 0.1809E-07_r8, 0.3185E-07_r8, 0.5285E-07_r8, 0.8249E-07_r8, 0.1222E-06_r8, & 0.1730E-06_r8, 0.2351E-06_r8, 0.3111E-06_r8, 0.4078E-06_r8, 0.5366E-06_r8, & 0.7117E-06_r8, 0.9495E-06_r8, 0.1266E-05_r8, 0.1667E-05_r8, 0.2132E-05_r8, & 0.2600E-05_r8, 0.3001E-05_r8, 0.3354E-05_r8, 0.3679E-05_r8, 0.3796E-05_r8, & 0.3414E-05_r8, 0.2399E-05_r8, 0.1067E-05_r8, 0.2222E-06_r8, 0.1075E-07_r8, & 0.0000E+00_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8,& & 0.9589E-04_r8, 0.1893E-03_r8, 0.3706E-03_r8, 0.7162E-03_r8, 0.1357E-02_r8, & 0.2500E-02_r8, 0.4434E-02_r8, 0.7523E-02_r8, 0.1220E-01_r8, 0.1900E-01_r8, & 0.2860E-01_r8, 0.4190E-01_r8, 0.6015E-01_r8, 0.8508E-01_r8, 0.1189E+00_r8, & 0.1643E+00_r8, 0.2233E+00_r8, 0.2976E+00_r8, 0.3865E+00_r8, 0.4865E+00_r8, & 0.5909E+00_r8, 0.6925E+00_r8, 0.7866E+00_r8, 0.8696E+00_r8, 0.9355E+00_r8, & 0.9778E+00_r8, 0.9961E+00_r8, 0.9999E+00_r8, 0.1000E+01_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8,& & -0.1496E-06_r8, -0.2947E-06_r8, -0.5749E-06_r8, -0.1105E-05_r8, -0.2074E-05_r8, & -0.3763E-05_r8, -0.6531E-05_r8, -0.1076E-04_r8, -0.1682E-04_r8, -0.2509E-04_r8, & -0.3605E-04_r8, -0.5049E-04_r8, -0.7012E-04_r8, -0.9787E-04_r8, -0.1378E-03_r8, & -0.1939E-03_r8, -0.2695E-03_r8, -0.3641E-03_r8, -0.4703E-03_r8, -0.5750E-03_r8, & -0.6648E-03_r8, -0.7264E-03_r8, -0.7419E-03_r8, -0.6889E-03_r8, -0.5488E-03_r8, & -0.3382E-03_r8, -0.1375E-03_r8, -0.2951E-04_r8, -0.2174E-05_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8,& & 0.6798E-09_r8, 0.1350E-08_r8, 0.2667E-08_r8, 0.5226E-08_r8, 0.1010E-07_r8, & 0.1903E-07_r8, 0.3455E-07_r8, 0.5951E-07_r8, 0.9658E-07_r8, 0.1479E-06_r8, & 0.2146E-06_r8, 0.2951E-06_r8, 0.3903E-06_r8, 0.5101E-06_r8, 0.6693E-06_r8, & 0.8830E-06_r8, 0.1168E-05_r8, 0.1532E-05_r8, 0.1968E-05_r8, 0.2435E-05_r8, & 0.2859E-05_r8, 0.3222E-05_r8, 0.3572E-05_r8, 0.3797E-05_r8, 0.3615E-05_r8, & 0.2811E-05_r8, 0.1500E-05_r8, 0.4185E-06_r8, 0.3850E-07_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8,& & 0.9629E-04_r8, 0.1907E-03_r8, 0.3755E-03_r8, 0.7321E-03_r8, 0.1406E-02_r8, & 0.2639E-02_r8, 0.4796E-02_r8, 0.8368E-02_r8, 0.1394E-01_r8, 0.2221E-01_r8, & 0.3400E-01_r8, 0.5037E-01_r8, 0.7279E-01_r8, 0.1033E+00_r8, 0.1442E+00_r8, & 0.1983E+00_r8, 0.2673E+00_r8, 0.3516E+00_r8, 0.4489E+00_r8, 0.5533E+00_r8, & 0.6572E+00_r8, 0.7547E+00_r8, 0.8425E+00_r8, 0.9153E+00_r8, 0.9663E+00_r8, & 0.9922E+00_r8, 0.9995E+00_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8,& & -0.1503E-06_r8, -0.2971E-06_r8, -0.5832E-06_r8, -0.1131E-05_r8, -0.2154E-05_r8, & -0.3992E-05_r8, -0.7122E-05_r8, -0.1211E-04_r8, -0.1954E-04_r8, -0.2995E-04_r8, & -0.4380E-04_r8, -0.6183E-04_r8, -0.8577E-04_r8, -0.1191E-03_r8, -0.1668E-03_r8, & -0.2333E-03_r8, -0.3203E-03_r8, -0.4237E-03_r8, -0.5324E-03_r8, -0.6318E-03_r8, & -0.7075E-03_r8, -0.7429E-03_r8, -0.7168E-03_r8, -0.6071E-03_r8, -0.4139E-03_r8, & -0.1976E-03_r8, -0.5410E-04_r8, -0.6215E-05_r8, -0.1343E-06_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8,& & 0.6809E-09_r8, 0.1356E-08_r8, 0.2683E-08_r8, 0.5287E-08_r8, 0.1030E-07_r8, & 0.1971E-07_r8, 0.3665E-07_r8, 0.6528E-07_r8, 0.1100E-06_r8, 0.1744E-06_r8, & 0.2599E-06_r8, 0.3650E-06_r8, 0.4887E-06_r8, 0.6398E-06_r8, 0.8358E-06_r8, & 0.1095E-05_r8, 0.1429E-05_r8, 0.1836E-05_r8, 0.2286E-05_r8, 0.2716E-05_r8, & 0.3088E-05_r8, 0.3444E-05_r8, 0.3748E-05_r8, 0.3740E-05_r8, 0.3157E-05_r8, & 0.1966E-05_r8, 0.7064E-06_r8, 0.1030E-06_r8, 0.2456E-08_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8,& & 0.9655E-04_r8, 0.1917E-03_r8, 0.3789E-03_r8, 0.7436E-03_r8, 0.1442E-02_r8, & 0.2748E-02_r8, 0.5100E-02_r8, 0.9128E-02_r8, 0.1563E-01_r8, 0.2553E-01_r8, & 0.3987E-01_r8, 0.5994E-01_r8, 0.8746E-01_r8, 0.1246E+00_r8, 0.1739E+00_r8, & 0.2376E+00_r8, 0.3170E+00_r8, 0.4107E+00_r8, 0.5141E+00_r8, 0.6198E+00_r8, & 0.7208E+00_r8, 0.8130E+00_r8, 0.8923E+00_r8, 0.9517E+00_r8, 0.9860E+00_r8, & 0.9983E+00_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8,& & -0.1508E-06_r8, -0.2989E-06_r8, -0.5892E-06_r8, -0.1151E-05_r8, -0.2216E-05_r8, & -0.4175E-05_r8, -0.7619E-05_r8, -0.1333E-04_r8, -0.2217E-04_r8, -0.3497E-04_r8, & -0.5238E-04_r8, -0.7513E-04_r8, -0.1049E-03_r8, -0.1455E-03_r8, -0.2021E-03_r8, & -0.2790E-03_r8, -0.3757E-03_r8, -0.4839E-03_r8, -0.5902E-03_r8, -0.6794E-03_r8, & -0.7344E-03_r8, -0.7341E-03_r8, -0.6557E-03_r8, -0.4874E-03_r8, -0.2674E-03_r8, & -0.9059E-04_r8, -0.1455E-04_r8, -0.5986E-06_r8, 0.0000E+00_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8,& & 0.6812E-09_r8, 0.1356E-08_r8, 0.2693E-08_r8, 0.5328E-08_r8, 0.1045E-07_r8, & 0.2021E-07_r8, 0.3826E-07_r8, 0.6994E-07_r8, 0.1218E-06_r8, 0.1997E-06_r8, & 0.3069E-06_r8, 0.4428E-06_r8, 0.6064E-06_r8, 0.8015E-06_r8, 0.1043E-05_r8, & 0.1351E-05_r8, 0.1733E-05_r8, 0.2168E-05_r8, 0.2598E-05_r8, 0.2968E-05_r8, & 0.3316E-05_r8, 0.3662E-05_r8, 0.3801E-05_r8, 0.3433E-05_r8, 0.2422E-05_r8, & 0.1081E-05_r8, 0.2256E-06_r8, 0.1082E-07_r8, 0.0000E+00_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8,& & 0.9672E-04_r8, 0.1923E-03_r8, 0.3813E-03_r8, 0.7518E-03_r8, 0.1469E-02_r8, & 0.2832E-02_r8, 0.5343E-02_r8, 0.9779E-02_r8, 0.1719E-01_r8, 0.2882E-01_r8, & 0.4606E-01_r8, 0.7051E-01_r8, 0.1042E+00_r8, 0.1493E+00_r8, 0.2081E+00_r8, & 0.2824E+00_r8, 0.3720E+00_r8, 0.4736E+00_r8, 0.5803E+00_r8, 0.6844E+00_r8, & 0.7810E+00_r8, 0.8663E+00_r8, 0.9339E+00_r8, 0.9772E+00_r8, 0.9960E+00_r8, & 0.9999E+00_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8,& & -0.1511E-06_r8, -0.3001E-06_r8, -0.5934E-06_r8, -0.1166E-05_r8, -0.2263E-05_r8, & -0.4319E-05_r8, -0.8028E-05_r8, -0.1438E-04_r8, -0.2460E-04_r8, -0.3991E-04_r8, & -0.6138E-04_r8, -0.9005E-04_r8, -0.1278E-03_r8, -0.1778E-03_r8, -0.2447E-03_r8, & -0.3313E-03_r8, -0.4342E-03_r8, -0.5424E-03_r8, -0.6416E-03_r8, -0.7146E-03_r8, & -0.7399E-03_r8, -0.6932E-03_r8, -0.5551E-03_r8, -0.3432E-03_r8, -0.1398E-03_r8, & -0.3010E-04_r8, -0.2229E-05_r8, 0.0000E+00_r8, 0.0000E+00_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8,& & 0.6815E-09_r8, 0.1358E-08_r8, 0.2698E-08_r8, 0.5355E-08_r8, 0.1054E-07_r8, & 0.2056E-07_r8, 0.3942E-07_r8, 0.7349E-07_r8, 0.1315E-06_r8, 0.2226E-06_r8, & 0.3537E-06_r8, 0.5266E-06_r8, 0.7407E-06_r8, 0.9958E-06_r8, 0.1296E-05_r8, & 0.1657E-05_r8, 0.2077E-05_r8, 0.2512E-05_r8, 0.2893E-05_r8, 0.3216E-05_r8, & 0.3562E-05_r8, 0.3811E-05_r8, 0.3644E-05_r8, 0.2841E-05_r8, 0.1524E-05_r8, & 0.4276E-06_r8, 0.3960E-07_r8, 0.0000E+00_r8, 0.0000E+00_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h11(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8,& & 0.9682E-04_r8, 0.1928E-03_r8, 0.3829E-03_r8, 0.7576E-03_r8, 0.1489E-02_r8, & 0.2894E-02_r8, 0.5533E-02_r8, 0.1031E-01_r8, 0.1856E-01_r8, 0.3195E-01_r8, & 0.5237E-01_r8, 0.8187E-01_r8, 0.1227E+00_r8, 0.1771E+00_r8, 0.2468E+00_r8, & 0.3321E+00_r8, 0.4312E+00_r8, 0.5384E+00_r8, 0.6455E+00_r8, 0.7463E+00_r8, & 0.8372E+00_r8, 0.9126E+00_r8, 0.9652E+00_r8, 0.9919E+00_r8, 0.9994E+00_r8, & 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, 0.1000E+01_r8, & 0.1000E+01_r8,& ! DATA ((h12(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8,& & -0.1513E-06_r8, -0.3009E-06_r8, -0.5966E-06_r8, -0.1176E-05_r8, -0.2299E-05_r8, & -0.4430E-05_r8, -0.8352E-05_r8, -0.1526E-04_r8, -0.2674E-04_r8, -0.4454E-04_r8, & -0.7042E-04_r8, -0.1062E-03_r8, -0.1540E-03_r8, -0.2163E-03_r8, -0.2951E-03_r8, & -0.3899E-03_r8, -0.4948E-03_r8, -0.5983E-03_r8, -0.6846E-03_r8, -0.7332E-03_r8, & -0.7182E-03_r8, -0.6142E-03_r8, -0.4209E-03_r8, -0.2014E-03_r8, -0.5530E-04_r8, & -0.6418E-05_r8, -0.1439E-06_r8, 0.0000E+00_r8, 0.0000E+00_r8, 0.0000E+00_r8, & 0.0000E+00_r8,& ! DATA ((h13(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8,& & 0.6817E-09_r8, 0.1359E-08_r8, 0.2702E-08_r8, 0.5374E-08_r8, 0.1061E-07_r8, & 0.2079E-07_r8, 0.4022E-07_r8, 0.7610E-07_r8, 0.1392E-06_r8, 0.2428E-06_r8, & 0.3992E-06_r8, 0.6149E-06_r8, 0.8893E-06_r8, 0.1220E-05_r8, 0.1599E-05_r8, & 0.2015E-05_r8, 0.2453E-05_r8, 0.2853E-05_r8, 0.3173E-05_r8, 0.3488E-05_r8, & 0.3792E-05_r8, 0.3800E-05_r8, 0.3210E-05_r8, 0.2002E-05_r8, 0.7234E-06_r8, & 0.1068E-06_r8, 0.2646E-08_r8, 0.0000E+00_r8, 0.0000E+00_r8, 0.0000E+00_r8, & 0.0000E+00_r8/),SHAPE=(/nx*3*nh/)) it=0 DO k=1,nx DO i=1,3 DO j=1,nh it=it+1 IF(i==1)THEN !WRITE(*,'(a5,2e17.9) ' )'h11 ',data3(it),h11(k,j) h11(k,j,1)=data3(it) END IF IF(i==2) THEN !WRITE(*,'(a5,2e17.9) ' )'h12 ',data3(it),h12(k,j) h12(k,j,1)=data3(it) END IF IF(i==3) THEN !WRITE(*,'(a5,2e17.9) ' )'h13 ',data3(it),h13(k,j) h13(k,j,1) =data3(it) END IF END DO END DO END DO !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! data4(1:nx*3*nh)=RESHAPE(SOURCE=(/& ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)/ & 0.3920E-05_r8, 0.7617E-05_r8, 0.1455E-04_r8, 0.2706E-04_r8, 0.4855E-04_r8, & 0.8315E-04_r8, 0.1349E-03_r8, 0.2063E-03_r8, 0.2984E-03_r8, 0.4109E-03_r8, & 0.5422E-03_r8, 0.6896E-03_r8, 0.8537E-03_r8, 0.1041E-02_r8, 0.1262E-02_r8, & 0.1534E-02_r8, 0.1870E-02_r8, 0.2286E-02_r8, 0.2803E-02_r8, 0.3444E-02_r8, & 0.4242E-02_r8, 0.5244E-02_r8, 0.6511E-02_r8, 0.8138E-02_r8, 0.1027E-01_r8, & 0.1312E-01_r8, 0.1697E-01_r8, 0.2222E-01_r8, 0.2941E-01_r8, 0.3923E-01_r8, & 0.5258E-01_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)/ & -0.5622E-07_r8, -0.1071E-06_r8, -0.1983E-06_r8, -0.3533E-06_r8, -0.5991E-06_r8, & -0.9592E-06_r8, -0.1444E-05_r8, -0.2049E-05_r8, -0.2764E-05_r8, -0.3577E-05_r8, & -0.4469E-05_r8, -0.5467E-05_r8, -0.6654E-05_r8, -0.8137E-05_r8, -0.1002E-04_r8, & -0.1237E-04_r8, -0.1528E-04_r8, -0.1884E-04_r8, -0.2310E-04_r8, -0.2809E-04_r8, & -0.3396E-04_r8, -0.4098E-04_r8, -0.4960E-04_r8, -0.6058E-04_r8, -0.7506E-04_r8, & -0.9451E-04_r8, -0.1207E-03_r8, -0.1558E-03_r8, -0.2026E-03_r8, -0.2648E-03_r8, & -0.3468E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)_r8, & & -0.2195E-09_r8, -0.4031E-09_r8, -0.7043E-09_r8, -0.1153E-08_r8, -0.1737E-08_r8, & -0.2395E-08_r8, -0.3020E-08_r8, -0.3549E-08_r8, -0.4034E-08_r8, -0.4421E-08_r8, & -0.4736E-08_r8, -0.5681E-08_r8, -0.8289E-08_r8, -0.1287E-07_r8, -0.1873E-07_r8, & -0.2523E-07_r8, -0.3223E-07_r8, -0.3902E-07_r8, -0.4409E-07_r8, -0.4699E-07_r8, & -0.4782E-07_r8, -0.4705E-07_r8, -0.4657E-07_r8, -0.4885E-07_r8, -0.5550E-07_r8, & -0.6619E-07_r8, -0.7656E-07_r8, -0.8027E-07_r8, -0.7261E-07_r8, -0.4983E-07_r8, & -0.1101E-07_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8, & & 0.3920E-05_r8, 0.7617E-05_r8, 0.1455E-04_r8, 0.2706E-04_r8, 0.4856E-04_r8, & 0.8318E-04_r8, 0.1349E-03_r8, 0.2065E-03_r8, 0.2986E-03_r8, 0.4114E-03_r8, & 0.5431E-03_r8, 0.6912E-03_r8, 0.8566E-03_r8, 0.1046E-02_r8, 0.1272E-02_r8, & 0.1552E-02_r8, 0.1902E-02_r8, 0.2342E-02_r8, 0.2899E-02_r8, 0.3605E-02_r8, & 0.4501E-02_r8, 0.5648E-02_r8, 0.7129E-02_r8, 0.9063E-02_r8, 0.1163E-01_r8, & 0.1509E-01_r8, 0.1980E-01_r8, 0.2626E-01_r8, 0.3510E-01_r8, 0.4717E-01_r8, & 0.6351E-01_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8, & & -0.5622E-07_r8, -0.1071E-06_r8, -0.1983E-06_r8, -0.3534E-06_r8, -0.5992E-06_r8, & -0.9594E-06_r8, -0.1445E-05_r8, -0.2050E-05_r8, -0.2766E-05_r8, -0.3580E-05_r8, & -0.4476E-05_r8, -0.5479E-05_r8, -0.6677E-05_r8, -0.8179E-05_r8, -0.1009E-04_r8, & -0.1251E-04_r8, -0.1553E-04_r8, -0.1928E-04_r8, -0.2384E-04_r8, -0.2930E-04_r8, & -0.3588E-04_r8, -0.4393E-04_r8, -0.5403E-04_r8, -0.6714E-04_r8, -0.8458E-04_r8, & -0.1082E-03_r8, -0.1400E-03_r8, -0.1829E-03_r8, -0.2401E-03_r8, -0.3157E-03_r8, & -0.4147E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8, & & -0.2195E-09_r8, -0.4032E-09_r8, -0.7046E-09_r8, -0.1153E-08_r8, -0.1738E-08_r8, & -0.2395E-08_r8, -0.3021E-08_r8, -0.3550E-08_r8, -0.4035E-08_r8, -0.4423E-08_r8, & -0.4740E-08_r8, -0.5692E-08_r8, -0.8314E-08_r8, -0.1292E-07_r8, -0.1882E-07_r8, & -0.2536E-07_r8, -0.3242E-07_r8, -0.3927E-07_r8, -0.4449E-07_r8, -0.4767E-07_r8, & -0.4889E-07_r8, -0.4857E-07_r8, -0.4860E-07_r8, -0.5132E-07_r8, -0.5847E-07_r8, & -0.6968E-07_r8, -0.8037E-07_r8, -0.8400E-07_r8, -0.7521E-07_r8, -0.4830E-07_r8, & -0.7562E-09_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8, & & 0.3920E-05_r8, 0.7617E-05_r8, 0.1455E-04_r8, 0.2707E-04_r8, 0.4858E-04_r8, & 0.8322E-04_r8, 0.1350E-03_r8, 0.2066E-03_r8, 0.2990E-03_r8, 0.4122E-03_r8, & 0.5444E-03_r8, 0.6937E-03_r8, 0.8611E-03_r8, 0.1054E-02_r8, 0.1287E-02_r8, & 0.1579E-02_r8, 0.1949E-02_r8, 0.2424E-02_r8, 0.3037E-02_r8, 0.3829E-02_r8, & 0.4854E-02_r8, 0.6190E-02_r8, 0.7942E-02_r8, 0.1026E-01_r8, 0.1338E-01_r8, & 0.1761E-01_r8, 0.2340E-01_r8, 0.3134E-01_r8, 0.4223E-01_r8, 0.5703E-01_r8, & 0.7694E-01_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8, & & -0.5622E-07_r8, -0.1071E-06_r8, -0.1983E-06_r8, -0.3535E-06_r8, -0.5994E-06_r8, & -0.9599E-06_r8, -0.1446E-05_r8, -0.2052E-05_r8, -0.2769E-05_r8, -0.3586E-05_r8, & -0.4487E-05_r8, -0.5499E-05_r8, -0.6712E-05_r8, -0.8244E-05_r8, -0.1021E-04_r8, & -0.1272E-04_r8, -0.1591E-04_r8, -0.1992E-04_r8, -0.2489E-04_r8, -0.3097E-04_r8, & -0.3845E-04_r8, -0.4782E-04_r8, -0.5982E-04_r8, -0.7558E-04_r8, -0.9674E-04_r8, & -0.1254E-03_r8, -0.1644E-03_r8, -0.2167E-03_r8, -0.2863E-03_r8, -0.3777E-03_r8, & -0.4959E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8, & & -0.2196E-09_r8, -0.4033E-09_r8, -0.7048E-09_r8, -0.1154E-08_r8, -0.1739E-08_r8, & -0.2396E-08_r8, -0.3022E-08_r8, -0.3551E-08_r8, -0.4036E-08_r8, -0.4425E-08_r8, & -0.4746E-08_r8, -0.5710E-08_r8, -0.8354E-08_r8, -0.1300E-07_r8, -0.1894E-07_r8, & -0.2554E-07_r8, -0.3265E-07_r8, -0.3958E-07_r8, -0.4502E-07_r8, -0.4859E-07_r8, & -0.5030E-07_r8, -0.5053E-07_r8, -0.5104E-07_r8, -0.5427E-07_r8, -0.6204E-07_r8, & -0.7388E-07_r8, -0.8477E-07_r8, -0.8760E-07_r8, -0.7545E-07_r8, -0.4099E-07_r8, & 0.2046E-07_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8, & & 0.3919E-05_r8, 0.7618E-05_r8, 0.1455E-04_r8, 0.2708E-04_r8, 0.4860E-04_r8, & 0.8327E-04_r8, 0.1352E-03_r8, 0.2070E-03_r8, 0.2997E-03_r8, 0.4134E-03_r8, & 0.5466E-03_r8, 0.6976E-03_r8, 0.8682E-03_r8, 0.1067E-02_r8, 0.1310E-02_r8, & 0.1619E-02_r8, 0.2020E-02_r8, 0.2543E-02_r8, 0.3232E-02_r8, 0.4136E-02_r8, & 0.5328E-02_r8, 0.6906E-02_r8, 0.9004E-02_r8, 0.1182E-01_r8, 0.1562E-01_r8, & 0.2081E-01_r8, 0.2794E-01_r8, 0.3773E-01_r8, 0.5111E-01_r8, 0.6919E-01_r8, & 0.9329E-01_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8, & & -0.5623E-07_r8, -0.1071E-06_r8, -0.1984E-06_r8, -0.3536E-06_r8, -0.5997E-06_r8, & -0.9606E-06_r8, -0.1447E-05_r8, -0.2055E-05_r8, -0.2775E-05_r8, -0.3596E-05_r8, & -0.4504E-05_r8, -0.5529E-05_r8, -0.6768E-05_r8, -0.8345E-05_r8, -0.1039E-04_r8, & -0.1304E-04_r8, -0.1645E-04_r8, -0.2082E-04_r8, -0.2633E-04_r8, -0.3322E-04_r8, & -0.4187E-04_r8, -0.5292E-04_r8, -0.6730E-04_r8, -0.8640E-04_r8, -0.1122E-03_r8, & -0.1472E-03_r8, -0.1948E-03_r8, -0.2585E-03_r8, -0.3428E-03_r8, -0.4523E-03_r8, & -0.5915E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8, & & -0.2196E-09_r8, -0.4034E-09_r8, -0.7050E-09_r8, -0.1154E-08_r8, -0.1740E-08_r8, & -0.2398E-08_r8, -0.3024E-08_r8, -0.3552E-08_r8, -0.4037E-08_r8, -0.4428E-08_r8, & -0.4756E-08_r8, -0.5741E-08_r8, -0.8418E-08_r8, -0.1310E-07_r8, -0.1910E-07_r8, & -0.2575E-07_r8, -0.3293E-07_r8, -0.3998E-07_r8, -0.4572E-07_r8, -0.4980E-07_r8, & -0.5211E-07_r8, -0.5287E-07_r8, -0.5390E-07_r8, -0.5782E-07_r8, -0.6650E-07_r8, & -0.7892E-07_r8, -0.8940E-07_r8, -0.8980E-07_r8, -0.7119E-07_r8, -0.2452E-07_r8, & 0.5823E-07_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8, & & 0.3919E-05_r8, 0.7618E-05_r8, 0.1455E-04_r8, 0.2709E-04_r8, 0.4863E-04_r8, & 0.8337E-04_r8, 0.1354E-03_r8, 0.2075E-03_r8, 0.3007E-03_r8, 0.4152E-03_r8, & 0.5500E-03_r8, 0.7038E-03_r8, 0.8793E-03_r8, 0.1086E-02_r8, 0.1345E-02_r8, & 0.1680E-02_r8, 0.2123E-02_r8, 0.2712E-02_r8, 0.3500E-02_r8, 0.4552E-02_r8, & 0.5958E-02_r8, 0.7844E-02_r8, 0.1038E-01_r8, 0.1381E-01_r8, 0.1847E-01_r8, & 0.2487E-01_r8, 0.3366E-01_r8, 0.4572E-01_r8, 0.6209E-01_r8, 0.8406E-01_r8, & 0.1130E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8, & & -0.5623E-07_r8, -0.1071E-06_r8, -0.1985E-06_r8, -0.3538E-06_r8, -0.6002E-06_r8, & -0.9618E-06_r8, -0.1450E-05_r8, -0.2059E-05_r8, -0.2783E-05_r8, -0.3611E-05_r8, & -0.4531E-05_r8, -0.5577E-05_r8, -0.6855E-05_r8, -0.8499E-05_r8, -0.1066E-04_r8, & -0.1351E-04_r8, -0.1723E-04_r8, -0.2207E-04_r8, -0.2829E-04_r8, -0.3621E-04_r8, & -0.4636E-04_r8, -0.5954E-04_r8, -0.7690E-04_r8, -0.1002E-03_r8, -0.1317E-03_r8, & -0.1746E-03_r8, -0.2326E-03_r8, -0.3099E-03_r8, -0.4111E-03_r8, -0.5407E-03_r8, & -0.7020E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8, & & -0.2197E-09_r8, -0.4037E-09_r8, -0.7054E-09_r8, -0.1155E-08_r8, -0.1741E-08_r8, & -0.2401E-08_r8, -0.3027E-08_r8, -0.3553E-08_r8, -0.4039E-08_r8, -0.4431E-08_r8, & -0.4775E-08_r8, -0.5784E-08_r8, -0.8506E-08_r8, -0.1326E-07_r8, -0.1931E-07_r8, & -0.2600E-07_r8, -0.3324E-07_r8, -0.4048E-07_r8, -0.4666E-07_r8, -0.5137E-07_r8, & -0.5428E-07_r8, -0.5558E-07_r8, -0.5730E-07_r8, -0.6228E-07_r8, -0.7197E-07_r8, & -0.8455E-07_r8, -0.9347E-07_r8, -0.8867E-07_r8, -0.5945E-07_r8, 0.5512E-08_r8, & 0.1209E-06_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8, & & 0.3919E-05_r8, 0.7619E-05_r8, 0.1456E-04_r8, 0.2710E-04_r8, 0.4868E-04_r8, & 0.8351E-04_r8, 0.1357E-03_r8, 0.2082E-03_r8, 0.3022E-03_r8, 0.4181E-03_r8, & 0.5554E-03_r8, 0.7134E-03_r8, 0.8963E-03_r8, 0.1117E-02_r8, 0.1397E-02_r8, & 0.1770E-02_r8, 0.2270E-02_r8, 0.2947E-02_r8, 0.3865E-02_r8, 0.5107E-02_r8, & 0.6787E-02_r8, 0.9062E-02_r8, 0.1215E-01_r8, 0.1634E-01_r8, 0.2209E-01_r8, & 0.2999E-01_r8, 0.4083E-01_r8, 0.5563E-01_r8, 0.7559E-01_r8, 0.1021E+00_r8, & 0.1364E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8, & & -0.5624E-07_r8, -0.1072E-06_r8, -0.1986E-06_r8, -0.3541E-06_r8, -0.6010E-06_r8, & -0.9636E-06_r8, -0.1453E-05_r8, -0.2067E-05_r8, -0.2796E-05_r8, -0.3634E-05_r8, & -0.4572E-05_r8, -0.5652E-05_r8, -0.6987E-05_r8, -0.8733E-05_r8, -0.1107E-04_r8, & -0.1418E-04_r8, -0.1832E-04_r8, -0.2378E-04_r8, -0.3092E-04_r8, -0.4017E-04_r8, & -0.5221E-04_r8, -0.6806E-04_r8, -0.8916E-04_r8, -0.1176E-03_r8, -0.1562E-03_r8, & -0.2087E-03_r8, -0.2793E-03_r8, -0.3724E-03_r8, -0.4928E-03_r8, -0.6440E-03_r8, & -0.8270E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8, & & -0.2198E-09_r8, -0.4040E-09_r8, -0.7061E-09_r8, -0.1156E-08_r8, -0.1744E-08_r8, & -0.2405E-08_r8, -0.3032E-08_r8, -0.3556E-08_r8, -0.4040E-08_r8, -0.4444E-08_r8, & -0.4800E-08_r8, -0.5848E-08_r8, -0.8640E-08_r8, -0.1346E-07_r8, -0.1957E-07_r8, & -0.2627E-07_r8, -0.3357E-07_r8, -0.4114E-07_r8, -0.4793E-07_r8, -0.5330E-07_r8, & -0.5676E-07_r8, -0.5873E-07_r8, -0.6152E-07_r8, -0.6783E-07_r8, -0.7834E-07_r8, & -0.9023E-07_r8, -0.9530E-07_r8, -0.8162E-07_r8, -0.3634E-07_r8, 0.5638E-07_r8, & 0.2189E-06_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8, & & 0.3919E-05_r8, 0.7620E-05_r8, 0.1457E-04_r8, 0.2713E-04_r8, 0.4877E-04_r8, & 0.8374E-04_r8, 0.1363E-03_r8, 0.2095E-03_r8, 0.3047E-03_r8, 0.4227E-03_r8, & 0.5637E-03_r8, 0.7282E-03_r8, 0.9224E-03_r8, 0.1162E-02_r8, 0.1475E-02_r8, & 0.1898E-02_r8, 0.2475E-02_r8, 0.3267E-02_r8, 0.4354E-02_r8, 0.5839E-02_r8, & 0.7866E-02_r8, 0.1063E-01_r8, 0.1440E-01_r8, 0.1957E-01_r8, 0.2666E-01_r8, & 0.3641E-01_r8, 0.4975E-01_r8, 0.6784E-01_r8, 0.9201E-01_r8, 0.1236E+00_r8, & 0.1639E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8, & & -0.5626E-07_r8, -0.1072E-06_r8, -0.1987E-06_r8, -0.3545E-06_r8, -0.6022E-06_r8, & -0.9665E-06_r8, -0.1460E-05_r8, -0.2078E-05_r8, -0.2817E-05_r8, -0.3671E-05_r8, & -0.4637E-05_r8, -0.5767E-05_r8, -0.7188E-05_r8, -0.9080E-05_r8, -0.1165E-04_r8, & -0.1513E-04_r8, -0.1981E-04_r8, -0.2609E-04_r8, -0.3441E-04_r8, -0.4534E-04_r8, & -0.5978E-04_r8, -0.7897E-04_r8, -0.1047E-03_r8, -0.1396E-03_r8, -0.1870E-03_r8, & -0.2510E-03_r8, -0.3363E-03_r8, -0.4475E-03_r8, -0.5888E-03_r8, -0.7621E-03_r8, & -0.9647E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8, & & -0.2200E-09_r8, -0.4045E-09_r8, -0.7071E-09_r8, -0.1159E-08_r8, -0.1748E-08_r8, & -0.2411E-08_r8, -0.3040E-08_r8, -0.3561E-08_r8, -0.4046E-08_r8, -0.4455E-08_r8, & -0.4839E-08_r8, -0.5941E-08_r8, -0.8815E-08_r8, -0.1371E-07_r8, -0.1983E-07_r8, & -0.2652E-07_r8, -0.3400E-07_r8, -0.4207E-07_r8, -0.4955E-07_r8, -0.5554E-07_r8, & -0.5966E-07_r8, -0.6261E-07_r8, -0.6688E-07_r8, -0.7454E-07_r8, -0.8521E-07_r8, & -0.9470E-07_r8, -0.9275E-07_r8, -0.6525E-07_r8, 0.3686E-08_r8, 0.1371E-06_r8, & 0.3623E-06_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8, & & 0.3919E-05_r8, 0.7622E-05_r8, 0.1458E-04_r8, 0.2717E-04_r8, 0.4890E-04_r8, & 0.8410E-04_r8, 0.1372E-03_r8, 0.2114E-03_r8, 0.3085E-03_r8, 0.4298E-03_r8, & 0.5765E-03_r8, 0.7508E-03_r8, 0.9618E-03_r8, 0.1229E-02_r8, 0.1586E-02_r8, & 0.2077E-02_r8, 0.2757E-02_r8, 0.3697E-02_r8, 0.5000E-02_r8, 0.6794E-02_r8, & 0.9260E-02_r8, 0.1264E-01_r8, 0.1728E-01_r8, 0.2365E-01_r8, 0.3242E-01_r8, & 0.4444E-01_r8, 0.6080E-01_r8, 0.8278E-01_r8, 0.1118E+00_r8, 0.1491E+00_r8, & 0.1956E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8, & & -0.5628E-07_r8, -0.1073E-06_r8, -0.1990E-06_r8, -0.3553E-06_r8, -0.6042E-06_r8, & -0.9710E-06_r8, -0.1469E-05_r8, -0.2096E-05_r8, -0.2849E-05_r8, -0.3728E-05_r8, & -0.4738E-05_r8, -0.5942E-05_r8, -0.7490E-05_r8, -0.9586E-05_r8, -0.1247E-04_r8, & -0.1644E-04_r8, -0.2184E-04_r8, -0.2916E-04_r8, -0.3898E-04_r8, -0.5205E-04_r8, & -0.6948E-04_r8, -0.9285E-04_r8, -0.1244E-03_r8, -0.1672E-03_r8, -0.2251E-03_r8, & -0.3028E-03_r8, -0.4051E-03_r8, -0.5365E-03_r8, -0.6998E-03_r8, -0.8940E-03_r8, & -0.1112E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8, & & -0.2204E-09_r8, -0.4052E-09_r8, -0.7088E-09_r8, -0.1162E-08_r8, -0.1755E-08_r8, & -0.2422E-08_r8, -0.3053E-08_r8, -0.3572E-08_r8, -0.4052E-08_r8, -0.4474E-08_r8, & -0.4898E-08_r8, -0.6082E-08_r8, -0.9046E-08_r8, -0.1400E-07_r8, -0.2009E-07_r8, & -0.2683E-07_r8, -0.3463E-07_r8, -0.4334E-07_r8, -0.5153E-07_r8, -0.5811E-07_r8, & -0.6305E-07_r8, -0.6749E-07_r8, -0.7346E-07_r8, -0.8208E-07_r8, -0.9173E-07_r8, & -0.9603E-07_r8, -0.8264E-07_r8, -0.3505E-07_r8, 0.6878E-07_r8, 0.2586E-06_r8, & 0.5530E-06_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8, & & 0.3919E-05_r8, 0.7625E-05_r8, 0.1459E-04_r8, 0.2723E-04_r8, 0.4910E-04_r8, & 0.8465E-04_r8, 0.1385E-03_r8, 0.2143E-03_r8, 0.3143E-03_r8, 0.4407E-03_r8, & 0.5960E-03_r8, 0.7850E-03_r8, 0.1020E-02_r8, 0.1326E-02_r8, 0.1744E-02_r8, & 0.2324E-02_r8, 0.3135E-02_r8, 0.4267E-02_r8, 0.5845E-02_r8, 0.8031E-02_r8, & 0.1105E-01_r8, 0.1520E-01_r8, 0.2093E-01_r8, 0.2880E-01_r8, 0.3962E-01_r8, & 0.5440E-01_r8, 0.7435E-01_r8, 0.1009E+00_r8, 0.1353E+00_r8, 0.1787E+00_r8, & 0.2317E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8, & & -0.5630E-07_r8, -0.1074E-06_r8, -0.1994E-06_r8, -0.3564E-06_r8, -0.6072E-06_r8, & -0.9779E-06_r8, -0.1484E-05_r8, -0.2124E-05_r8, -0.2900E-05_r8, -0.3817E-05_r8, & -0.4891E-05_r8, -0.6205E-05_r8, -0.7931E-05_r8, -0.1031E-04_r8, -0.1362E-04_r8, & -0.1821E-04_r8, -0.2454E-04_r8, -0.3320E-04_r8, -0.4493E-04_r8, -0.6068E-04_r8, & -0.8186E-04_r8, -0.1104E-03_r8, -0.1491E-03_r8, -0.2016E-03_r8, -0.2722E-03_r8, & -0.3658E-03_r8, -0.4873E-03_r8, -0.6404E-03_r8, -0.8253E-03_r8, -0.1037E-02_r8, & -0.1267E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8, & & -0.2207E-09_r8, -0.4061E-09_r8, -0.7117E-09_r8, -0.1169E-08_r8, -0.1767E-08_r8, & -0.2439E-08_r8, -0.3074E-08_r8, -0.3588E-08_r8, -0.4062E-08_r8, -0.4510E-08_r8, & -0.4983E-08_r8, -0.6261E-08_r8, -0.9324E-08_r8, -0.1430E-07_r8, -0.2036E-07_r8, & -0.2725E-07_r8, -0.3561E-07_r8, -0.4505E-07_r8, -0.5384E-07_r8, -0.6111E-07_r8, & -0.6731E-07_r8, -0.7355E-07_r8, -0.8112E-07_r8, -0.8978E-07_r8, -0.9616E-07_r8, & -0.9157E-07_r8, -0.6114E-07_r8, 0.1622E-07_r8, 0.1694E-06_r8, 0.4277E-06_r8, & 0.7751E-06_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8, & & 0.3919E-05_r8, 0.7629E-05_r8, 0.1462E-04_r8, 0.2733E-04_r8, 0.4940E-04_r8, & 0.8549E-04_r8, 0.1406E-03_r8, 0.2188E-03_r8, 0.3232E-03_r8, 0.4572E-03_r8, & 0.6253E-03_r8, 0.8354E-03_r8, 0.1105E-02_r8, 0.1464E-02_r8, 0.1960E-02_r8, & 0.2657E-02_r8, 0.3637E-02_r8, 0.5014E-02_r8, 0.6942E-02_r8, 0.9622E-02_r8, & 0.1333E-01_r8, 0.1846E-01_r8, 0.2553E-01_r8, 0.3526E-01_r8, 0.4859E-01_r8, & 0.6667E-01_r8, 0.9084E-01_r8, 0.1225E+00_r8, 0.1629E+00_r8, 0.2127E+00_r8, & 0.2721E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8, & & -0.5636E-07_r8, -0.1076E-06_r8, -0.2000E-06_r8, -0.3582E-06_r8, -0.6119E-06_r8, & -0.9888E-06_r8, -0.1507E-05_r8, -0.2168E-05_r8, -0.2978E-05_r8, -0.3952E-05_r8, & -0.5122E-05_r8, -0.6592E-05_r8, -0.8565E-05_r8, -0.1132E-04_r8, -0.1518E-04_r8, & -0.2060E-04_r8, -0.2811E-04_r8, -0.3848E-04_r8, -0.5261E-04_r8, -0.7173E-04_r8, & -0.9758E-04_r8, -0.1326E-03_r8, -0.1801E-03_r8, -0.2442E-03_r8, -0.3296E-03_r8, & -0.4415E-03_r8, -0.5840E-03_r8, -0.7591E-03_r8, -0.9636E-03_r8, -0.1189E-02_r8, & -0.1427E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8, & & -0.2214E-09_r8, -0.4080E-09_r8, -0.7156E-09_r8, -0.1178E-08_r8, -0.1784E-08_r8, & -0.2466E-08_r8, -0.3105E-08_r8, -0.3617E-08_r8, -0.4087E-08_r8, -0.4563E-08_r8, & -0.5110E-08_r8, -0.6492E-08_r8, -0.9643E-08_r8, -0.1461E-07_r8, -0.2069E-07_r8, & -0.2796E-07_r8, -0.3702E-07_r8, -0.4717E-07_r8, -0.5662E-07_r8, -0.6484E-07_r8, & -0.7271E-07_r8, -0.8079E-07_r8, -0.8928E-07_r8, -0.9634E-07_r8, -0.9625E-07_r8, & -0.7776E-07_r8, -0.2242E-07_r8, 0.9745E-07_r8, 0.3152E-06_r8, 0.6388E-06_r8, & 0.9992E-06_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8, & & 0.3919E-05_r8, 0.7639E-05_r8, 0.1466E-04_r8, 0.2748E-04_r8, 0.4986E-04_r8, & 0.8675E-04_r8, 0.1437E-03_r8, 0.2255E-03_r8, 0.3365E-03_r8, 0.4816E-03_r8, & 0.6682E-03_r8, 0.9082E-03_r8, 0.1224E-02_r8, 0.1653E-02_r8, 0.2253E-02_r8, & 0.3099E-02_r8, 0.4296E-02_r8, 0.5984E-02_r8, 0.8352E-02_r8, 0.1165E-01_r8, & 0.1623E-01_r8, 0.2257E-01_r8, 0.3132E-01_r8, 0.4333E-01_r8, 0.5968E-01_r8, & 0.8166E-01_r8, 0.1107E+00_r8, 0.1481E+00_r8, 0.1947E+00_r8, 0.2509E+00_r8, & 0.3170E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8, & & -0.5645E-07_r8, -0.1079E-06_r8, -0.2009E-06_r8, -0.3610E-06_r8, -0.6190E-06_r8, & -0.1005E-05_r8, -0.1541E-05_r8, -0.2235E-05_r8, -0.3096E-05_r8, -0.4155E-05_r8, & -0.5463E-05_r8, -0.7150E-05_r8, -0.9453E-05_r8, -0.1269E-04_r8, -0.1728E-04_r8, & -0.2375E-04_r8, -0.3279E-04_r8, -0.4531E-04_r8, -0.6246E-04_r8, -0.8579E-04_r8, & -0.1175E-03_r8, -0.1604E-03_r8, -0.2186E-03_r8, -0.2964E-03_r8, -0.3990E-03_r8, & -0.5311E-03_r8, -0.6957E-03_r8, -0.8916E-03_r8, -0.1112E-02_r8, -0.1346E-02_r8, & -0.1590E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8, & & -0.2225E-09_r8, -0.4104E-09_r8, -0.7217E-09_r8, -0.1192E-08_r8, -0.1811E-08_r8, & -0.2509E-08_r8, -0.3155E-08_r8, -0.3668E-08_r8, -0.4138E-08_r8, -0.4650E-08_r8, & -0.5296E-08_r8, -0.6785E-08_r8, -0.9991E-08_r8, -0.1494E-07_r8, -0.2122E-07_r8, & -0.2911E-07_r8, -0.3895E-07_r8, -0.4979E-07_r8, -0.6002E-07_r8, -0.6964E-07_r8, & -0.7935E-07_r8, -0.8887E-07_r8, -0.9699E-07_r8, -0.9967E-07_r8, -0.8883E-07_r8, & -0.4988E-07_r8, 0.4156E-07_r8, 0.2197E-06_r8, 0.5081E-06_r8, 0.8667E-06_r8, & 0.1212E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8, & & 0.3920E-05_r8, 0.7649E-05_r8, 0.1472E-04_r8, 0.2768E-04_r8, 0.5051E-04_r8, & 0.8856E-04_r8, 0.1481E-03_r8, 0.2352E-03_r8, 0.3557E-03_r8, 0.5169E-03_r8, & 0.7295E-03_r8, 0.1010E-02_r8, 0.1388E-02_r8, 0.1909E-02_r8, 0.2640E-02_r8, & 0.3678E-02_r8, 0.5151E-02_r8, 0.7231E-02_r8, 0.1015E-01_r8, 0.1423E-01_r8, & 0.1990E-01_r8, 0.2775E-01_r8, 0.3856E-01_r8, 0.5333E-01_r8, 0.7328E-01_r8, & 0.9980E-01_r8, 0.1343E+00_r8, 0.1778E+00_r8, 0.2308E+00_r8, 0.2936E+00_r8, & 0.3667E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8, & & -0.5658E-07_r8, -0.1083E-06_r8, -0.2023E-06_r8, -0.3650E-06_r8, -0.6295E-06_r8, & -0.1030E-05_r8, -0.1593E-05_r8, -0.2334E-05_r8, -0.3273E-05_r8, -0.4455E-05_r8, & -0.5955E-05_r8, -0.7935E-05_r8, -0.1067E-04_r8, -0.1455E-04_r8, -0.2007E-04_r8, & -0.2788E-04_r8, -0.3885E-04_r8, -0.5409E-04_r8, -0.7503E-04_r8, -0.1036E-03_r8, & -0.1425E-03_r8, -0.1951E-03_r8, -0.2660E-03_r8, -0.3598E-03_r8, -0.4817E-03_r8, & -0.6355E-03_r8, -0.8218E-03_r8, -0.1035E-02_r8, -0.1267E-02_r8, -0.1508E-02_r8, & -0.1755E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8, & & -0.2241E-09_r8, -0.4142E-09_r8, -0.7312E-09_r8, -0.1214E-08_r8, -0.1854E-08_r8, & -0.2578E-08_r8, -0.3250E-08_r8, -0.3765E-08_r8, -0.4238E-08_r8, -0.4809E-08_r8, & -0.5553E-08_r8, -0.7132E-08_r8, -0.1035E-07_r8, -0.1538E-07_r8, -0.2211E-07_r8, & -0.3079E-07_r8, -0.4142E-07_r8, -0.5303E-07_r8, -0.6437E-07_r8, -0.7566E-07_r8, & -0.8703E-07_r8, -0.9700E-07_r8, -0.1025E-06_r8, -0.9718E-07_r8, -0.6973E-07_r8, & -0.5265E-09_r8, 0.1413E-06_r8, 0.3895E-06_r8, 0.7321E-06_r8, 0.1085E-05_r8, & 0.1449E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8, & & 0.3920E-05_r8, 0.7668E-05_r8, 0.1480E-04_r8, 0.2798E-04_r8, 0.5143E-04_r8, & 0.9106E-04_r8, 0.1542E-03_r8, 0.2488E-03_r8, 0.3827E-03_r8, 0.5661E-03_r8, & 0.8143E-03_r8, 0.1150E-02_r8, 0.1608E-02_r8, 0.2246E-02_r8, 0.3147E-02_r8, & 0.4428E-02_r8, 0.6248E-02_r8, 0.8823E-02_r8, 0.1244E-01_r8, 0.1750E-01_r8, & 0.2452E-01_r8, 0.3424E-01_r8, 0.4756E-01_r8, 0.6564E-01_r8, 0.8981E-01_r8, & 0.1215E+00_r8, 0.1619E+00_r8, 0.2118E+00_r8, 0.2713E+00_r8, 0.3409E+00_r8, & 0.4215E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8, & & -0.5677E-07_r8, -0.1090E-06_r8, -0.2043E-06_r8, -0.3709E-06_r8, -0.6448E-06_r8, & -0.1066E-05_r8, -0.1669E-05_r8, -0.2480E-05_r8, -0.3532E-05_r8, -0.4887E-05_r8, & -0.6650E-05_r8, -0.9017E-05_r8, -0.1232E-04_r8, -0.1701E-04_r8, -0.2372E-04_r8, & -0.3325E-04_r8, -0.4664E-04_r8, -0.6528E-04_r8, -0.9095E-04_r8, -0.1260E-03_r8, & -0.1737E-03_r8, -0.2381E-03_r8, -0.3238E-03_r8, -0.4359E-03_r8, -0.5789E-03_r8, & -0.7549E-03_r8, -0.9607E-03_r8, -0.1188E-02_r8, -0.1427E-02_r8, -0.1674E-02_r8, & -0.1914E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8, & & -0.2262E-09_r8, -0.4191E-09_r8, -0.7441E-09_r8, -0.1244E-08_r8, -0.1916E-08_r8, & -0.2687E-08_r8, -0.3407E-08_r8, -0.3947E-08_r8, -0.4432E-08_r8, -0.5059E-08_r8, & -0.5896E-08_r8, -0.7538E-08_r8, -0.1079E-07_r8, -0.1606E-07_r8, -0.2346E-07_r8, & -0.3305E-07_r8, -0.4459E-07_r8, -0.5720E-07_r8, -0.6999E-07_r8, -0.8300E-07_r8, & -0.9536E-07_r8, -0.1039E-06_r8, -0.1036E-06_r8, -0.8526E-07_r8, -0.3316E-07_r8, & 0.7909E-07_r8, 0.2865E-06_r8, 0.6013E-06_r8, 0.9580E-06_r8, 0.1303E-05_r8, & 0.1792E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8, & & 0.3923E-05_r8, 0.7691E-05_r8, 0.1491E-04_r8, 0.2836E-04_r8, 0.5261E-04_r8, & 0.9432E-04_r8, 0.1623E-03_r8, 0.2667E-03_r8, 0.4187E-03_r8, 0.6323E-03_r8, & 0.9278E-03_r8, 0.1334E-02_r8, 0.1897E-02_r8, 0.2685E-02_r8, 0.3800E-02_r8, & 0.5388E-02_r8, 0.7646E-02_r8, 0.1084E-01_r8, 0.1533E-01_r8, 0.2160E-01_r8, & 0.3031E-01_r8, 0.4231E-01_r8, 0.5866E-01_r8, 0.8064E-01_r8, 0.1097E+00_r8, & 0.1471E+00_r8, 0.1938E+00_r8, 0.2501E+00_r8, 0.3163E+00_r8, 0.3932E+00_r8, & 0.4810E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8, & & -0.5703E-07_r8, -0.1098E-06_r8, -0.2071E-06_r8, -0.3788E-06_r8, -0.6657E-06_r8, & -0.1116E-05_r8, -0.1776E-05_r8, -0.2687E-05_r8, -0.3898E-05_r8, -0.5493E-05_r8, & -0.7607E-05_r8, -0.1048E-04_r8, -0.1450E-04_r8, -0.2024E-04_r8, -0.2845E-04_r8, & -0.4014E-04_r8, -0.5658E-04_r8, -0.7947E-04_r8, -0.1110E-03_r8, -0.1541E-03_r8, & -0.2125E-03_r8, -0.2907E-03_r8, -0.3936E-03_r8, -0.5261E-03_r8, -0.6912E-03_r8, & -0.8880E-03_r8, -0.1109E-02_r8, -0.1346E-02_r8, -0.1591E-02_r8, -0.1837E-02_r8, & -0.2054E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8, & & -0.2288E-09_r8, -0.4265E-09_r8, -0.7627E-09_r8, -0.1289E-08_r8, -0.2011E-08_r8, & -0.2861E-08_r8, -0.3673E-08_r8, -0.4288E-08_r8, -0.4812E-08_r8, -0.5475E-08_r8, & -0.6365E-08_r8, -0.8052E-08_r8, -0.1142E-07_r8, -0.1711E-07_r8, -0.2533E-07_r8, & -0.3597E-07_r8, -0.4862E-07_r8, -0.6259E-07_r8, -0.7708E-07_r8, -0.9150E-07_r8, & -0.1035E-06_r8, -0.1079E-06_r8, -0.9742E-07_r8, -0.5928E-07_r8, 0.2892E-07_r8, & 0.1998E-06_r8, 0.4789E-06_r8, 0.8298E-06_r8, 0.1172E-05_r8, 0.1583E-05_r8, & 0.2329E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8, & & 0.3928E-05_r8, 0.7724E-05_r8, 0.1504E-04_r8, 0.2883E-04_r8, 0.5403E-04_r8, & 0.9826E-04_r8, 0.1722E-03_r8, 0.2891E-03_r8, 0.4644E-03_r8, 0.7172E-03_r8, & 0.1074E-02_r8, 0.1572E-02_r8, 0.2267E-02_r8, 0.3245E-02_r8, 0.4632E-02_r8, & 0.6606E-02_r8, 0.9411E-02_r8, 0.1338E-01_r8, 0.1896E-01_r8, 0.2674E-01_r8, & 0.3751E-01_r8, 0.5227E-01_r8, 0.7222E-01_r8, 0.9875E-01_r8, 0.1332E+00_r8, & 0.1768E+00_r8, 0.2299E+00_r8, 0.2927E+00_r8, 0.3660E+00_r8, 0.4504E+00_r8, & 0.5444E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8, & & -0.5736E-07_r8, -0.1109E-06_r8, -0.2106E-06_r8, -0.3890E-06_r8, -0.6928E-06_r8, & -0.1181E-05_r8, -0.1917E-05_r8, -0.2965E-05_r8, -0.4396E-05_r8, -0.6315E-05_r8, & -0.8891E-05_r8, -0.1242E-04_r8, -0.1736E-04_r8, -0.2442E-04_r8, -0.3454E-04_r8, & -0.4892E-04_r8, -0.6916E-04_r8, -0.9735E-04_r8, -0.1362E-03_r8, -0.1891E-03_r8, & -0.2602E-03_r8, -0.3545E-03_r8, -0.4768E-03_r8, -0.6310E-03_r8, -0.8179E-03_r8, & -0.1032E-02_r8, -0.1265E-02_r8, -0.1508E-02_r8, -0.1757E-02_r8, -0.1989E-02_r8, & -0.2159E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8, & & -0.2321E-09_r8, -0.4350E-09_r8, -0.7861E-09_r8, -0.1347E-08_r8, -0.2144E-08_r8, & -0.3120E-08_r8, -0.4107E-08_r8, -0.4892E-08_r8, -0.5511E-08_r8, -0.6164E-08_r8, & -0.7054E-08_r8, -0.8811E-08_r8, -0.1240E-07_r8, -0.1862E-07_r8, -0.2773E-07_r8, & -0.3957E-07_r8, -0.5371E-07_r8, -0.6939E-07_r8, -0.8564E-07_r8, -0.1006E-06_r8, & -0.1100E-06_r8, -0.1066E-06_r8, -0.8018E-07_r8, -0.1228E-07_r8, 0.1263E-06_r8, & 0.3678E-06_r8, 0.7022E-06_r8, 0.1049E-05_r8, 0.1411E-05_r8, 0.2015E-05_r8, & 0.3099E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8, & & 0.2064E-05_r8, 0.4104E-05_r8, 0.8141E-05_r8, 0.1607E-04_r8, 0.3145E-04_r8, & 0.6080E-04_r8, 0.1153E-03_r8, 0.2129E-03_r8, 0.3802E-03_r8, 0.6538E-03_r8, & 0.1078E-02_r8, 0.1699E-02_r8, 0.2576E-02_r8, 0.3805E-02_r8, 0.5540E-02_r8, & 0.8004E-02_r8, 0.1149E-01_r8, 0.1640E-01_r8, 0.2329E-01_r8, 0.3290E-01_r8, & 0.4622E-01_r8, 0.6441E-01_r8, 0.8888E-01_r8, 0.1210E+00_r8, 0.1622E+00_r8, & 0.2132E+00_r8, 0.2745E+00_r8, 0.3470E+00_r8, 0.4317E+00_r8, 0.5286E+00_r8, & 0.6335E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8, & & -0.3122E-07_r8, -0.6175E-07_r8, -0.1214E-06_r8, -0.2361E-06_r8, -0.4518E-06_r8, & -0.8438E-06_r8, -0.1524E-05_r8, -0.2643E-05_r8, -0.4380E-05_r8, -0.6922E-05_r8, & -0.1042E-04_r8, -0.1504E-04_r8, -0.2125E-04_r8, -0.2987E-04_r8, -0.4200E-04_r8, & -0.5923E-04_r8, -0.8383E-04_r8, -0.1186E-03_r8, -0.1670E-03_r8, -0.2328E-03_r8, & -0.3204E-03_r8, -0.4347E-03_r8, -0.5802E-03_r8, -0.7595E-03_r8, -0.9703E-03_r8, & -0.1205E-02_r8, -0.1457E-02_r8, -0.1720E-02_r8, -0.1980E-02_r8, -0.2191E-02_r8, & -0.2290E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8, & & -0.1376E-09_r8, -0.2699E-09_r8, -0.5220E-09_r8, -0.9897E-09_r8, -0.1819E-08_r8, & -0.3186E-08_r8, -0.5224E-08_r8, -0.7896E-08_r8, -0.1090E-07_r8, -0.1349E-07_r8, & -0.1443E-07_r8, -0.1374E-07_r8, -0.1386E-07_r8, -0.1673E-07_r8, -0.2237E-07_r8, & -0.3248E-07_r8, -0.5050E-07_r8, -0.7743E-07_r8, -0.1097E-06_r8, -0.1369E-06_r8, & -0.1463E-06_r8, -0.1268E-06_r8, -0.6424E-07_r8, 0.5941E-07_r8, 0.2742E-06_r8, & 0.5924E-06_r8, 0.9445E-06_r8, 0.1286E-05_r8, 0.1819E-05_r8, 0.2867E-05_r8, & 0.4527E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8, & & 0.2452E-05_r8, 0.4881E-05_r8, 0.9693E-05_r8, 0.1918E-04_r8, 0.3768E-04_r8, & 0.7322E-04_r8, 0.1399E-03_r8, 0.2607E-03_r8, 0.4694E-03_r8, 0.8102E-03_r8, & 0.1334E-02_r8, 0.2098E-02_r8, 0.3180E-02_r8, 0.4710E-02_r8, 0.6879E-02_r8, & 0.9952E-02_r8, 0.1429E-01_r8, 0.2038E-01_r8, 0.2894E-01_r8, 0.4085E-01_r8, & 0.5722E-01_r8, 0.7939E-01_r8, 0.1088E+00_r8, 0.1468E+00_r8, 0.1945E+00_r8, & 0.2524E+00_r8, 0.3210E+00_r8, 0.4017E+00_r8, 0.4948E+00_r8, 0.5978E+00_r8, & 0.7040E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8, & & -0.3547E-07_r8, -0.7029E-07_r8, -0.1386E-06_r8, -0.2709E-06_r8, -0.5218E-06_r8, & -0.9840E-06_r8, -0.1799E-05_r8, -0.3156E-05_r8, -0.5272E-05_r8, -0.8357E-05_r8, & -0.1260E-04_r8, -0.1827E-04_r8, -0.2598E-04_r8, -0.3667E-04_r8, -0.5169E-04_r8, & -0.7312E-04_r8, -0.1037E-03_r8, -0.1467E-03_r8, -0.2060E-03_r8, -0.2857E-03_r8, & -0.3907E-03_r8, -0.5257E-03_r8, -0.6940E-03_r8, -0.8954E-03_r8, -0.1124E-02_r8, & -0.1371E-02_r8, -0.1632E-02_r8, -0.1897E-02_r8, -0.2131E-02_r8, -0.2275E-02_r8, & -0.2265E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8, & & -0.1482E-09_r8, -0.2910E-09_r8, -0.5667E-09_r8, -0.1081E-08_r8, -0.2005E-08_r8, & -0.3554E-08_r8, -0.5902E-08_r8, -0.8925E-08_r8, -0.1209E-07_r8, -0.1448E-07_r8, & -0.1536E-07_r8, -0.1565E-07_r8, -0.1763E-07_r8, -0.2088E-07_r8, -0.2564E-07_r8, & -0.3635E-07_r8, -0.5791E-07_r8, -0.8907E-07_r8, -0.1213E-06_r8, -0.1418E-06_r8, & -0.1397E-06_r8, -0.1000E-06_r8, -0.4427E-08_r8, 0.1713E-06_r8, 0.4536E-06_r8, & 0.8086E-06_r8, 0.1153E-05_r8, 0.1588E-05_r8, 0.2437E-05_r8, 0.3905E-05_r8, & 0.5874E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8, & & 0.2878E-05_r8, 0.5733E-05_r8, 0.1140E-04_r8, 0.2258E-04_r8, 0.4446E-04_r8, & 0.8668E-04_r8, 0.1664E-03_r8, 0.3120E-03_r8, 0.5656E-03_r8, 0.9812E-03_r8, & 0.1621E-02_r8, 0.2559E-02_r8, 0.3902E-02_r8, 0.5812E-02_r8, 0.8522E-02_r8, & 0.1235E-01_r8, 0.1773E-01_r8, 0.2530E-01_r8, 0.3590E-01_r8, 0.5058E-01_r8, & 0.7059E-01_r8, 0.9736E-01_r8, 0.1323E+00_r8, 0.1767E+00_r8, 0.2312E+00_r8, & 0.2962E+00_r8, 0.3728E+00_r8, 0.4619E+00_r8, 0.5623E+00_r8, 0.6685E+00_r8, & 0.7716E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8, & & -0.4064E-07_r8, -0.8066E-07_r8, -0.1593E-06_r8, -0.3124E-06_r8, -0.6049E-06_r8, & -0.1148E-05_r8, -0.2118E-05_r8, -0.3751E-05_r8, -0.6314E-05_r8, -0.1006E-04_r8, & -0.1526E-04_r8, -0.2232E-04_r8, -0.3196E-04_r8, -0.4525E-04_r8, -0.6394E-04_r8, & -0.9058E-04_r8, -0.1284E-03_r8, -0.1812E-03_r8, -0.2533E-03_r8, -0.3493E-03_r8, & -0.4740E-03_r8, -0.6315E-03_r8, -0.8228E-03_r8, -0.1044E-02_r8, -0.1286E-02_r8, & -0.1544E-02_r8, -0.1810E-02_r8, -0.2061E-02_r8, -0.2243E-02_r8, -0.2291E-02_r8, & -0.2152E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8, & & -0.1630E-09_r8, -0.3213E-09_r8, -0.6266E-09_r8, -0.1201E-08_r8, -0.2248E-08_r8, & -0.4030E-08_r8, -0.6770E-08_r8, -0.1033E-07_r8, -0.1392E-07_r8, -0.1640E-07_r8, & -0.1768E-07_r8, -0.1932E-07_r8, -0.2229E-07_r8, -0.2508E-07_r8, -0.2940E-07_r8, & -0.4200E-07_r8, -0.6717E-07_r8, -0.1002E-06_r8, -0.1286E-06_r8, -0.1402E-06_r8, & -0.1216E-06_r8, -0.5487E-07_r8, 0.8418E-07_r8, 0.3246E-06_r8, 0.6610E-06_r8, & 0.1013E-05_r8, 0.1394E-05_r8, 0.2073E-05_r8, 0.3337E-05_r8, 0.5175E-05_r8, & 0.7255E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8, & & 0.3282E-05_r8, 0.6539E-05_r8, 0.1300E-04_r8, 0.2578E-04_r8, 0.5085E-04_r8, & 0.9936E-04_r8, 0.1914E-03_r8, 0.3608E-03_r8, 0.6586E-03_r8, 0.1153E-02_r8, & 0.1924E-02_r8, 0.3074E-02_r8, 0.4742E-02_r8, 0.7126E-02_r8, 0.1051E-01_r8, & 0.1526E-01_r8, 0.2195E-01_r8, 0.3133E-01_r8, 0.4441E-01_r8, 0.6238E-01_r8, & 0.8664E-01_r8, 0.1186E+00_r8, 0.1597E+00_r8, 0.2108E+00_r8, 0.2723E+00_r8, & 0.3450E+00_r8, 0.4300E+00_r8, 0.5272E+00_r8, 0.6324E+00_r8, 0.7378E+00_r8, & 0.8330E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8, & & -0.4629E-07_r8, -0.9195E-07_r8, -0.1819E-06_r8, -0.3572E-06_r8, -0.6936E-06_r8, & -0.1323E-05_r8, -0.2456E-05_r8, -0.4385E-05_r8, -0.7453E-05_r8, -0.1200E-04_r8, & -0.1843E-04_r8, -0.2731E-04_r8, -0.3943E-04_r8, -0.5606E-04_r8, -0.7936E-04_r8, & -0.1123E-03_r8, -0.1588E-03_r8, -0.2231E-03_r8, -0.3101E-03_r8, -0.4247E-03_r8, & -0.5713E-03_r8, -0.7522E-03_r8, -0.9651E-03_r8, -0.1202E-02_r8, -0.1456E-02_r8, & -0.1721E-02_r8, -0.1983E-02_r8, -0.2196E-02_r8, -0.2296E-02_r8, -0.2224E-02_r8, & -0.1952E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8, & & -0.1827E-09_r8, -0.3607E-09_r8, -0.7057E-09_r8, -0.1359E-08_r8, -0.2552E-08_r8, & -0.4615E-08_r8, -0.7854E-08_r8, -0.1218E-07_r8, -0.1670E-07_r8, -0.2008E-07_r8, & -0.2241E-07_r8, -0.2516E-07_r8, -0.2796E-07_r8, -0.3015E-07_r8, -0.3506E-07_r8, & -0.4958E-07_r8, -0.7627E-07_r8, -0.1070E-06_r8, -0.1289E-06_r8, -0.1286E-06_r8, & -0.8843E-07_r8, 0.1492E-07_r8, 0.2118E-06_r8, 0.5155E-06_r8, 0.8665E-06_r8, & 0.1220E-05_r8, 0.1765E-05_r8, 0.2825E-05_r8, 0.4498E-05_r8, 0.6563E-05_r8, & 0.8422E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8, & & 0.3608E-05_r8, 0.7189E-05_r8, 0.1430E-04_r8, 0.2837E-04_r8, 0.5601E-04_r8, & 0.1097E-03_r8, 0.2120E-03_r8, 0.4017E-03_r8, 0.7396E-03_r8, 0.1311E-02_r8, & 0.2226E-02_r8, 0.3624E-02_r8, 0.5685E-02_r8, 0.8652E-02_r8, 0.1286E-01_r8, & 0.1878E-01_r8, 0.2709E-01_r8, 0.3868E-01_r8, 0.5471E-01_r8, 0.7654E-01_r8, & 0.1057E+00_r8, 0.1435E+00_r8, 0.1912E+00_r8, 0.2492E+00_r8, 0.3181E+00_r8, & 0.3990E+00_r8, 0.4926E+00_r8, 0.5960E+00_r8, 0.7027E+00_r8, 0.8027E+00_r8, & 0.8852E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8, & & -0.5164E-07_r8, -0.1026E-06_r8, -0.2031E-06_r8, -0.3994E-06_r8, -0.7771E-06_r8, & -0.1488E-05_r8, -0.2776E-05_r8, -0.5001E-05_r8, -0.8610E-05_r8, -0.1411E-04_r8, & -0.2209E-04_r8, -0.3328E-04_r8, -0.4860E-04_r8, -0.6954E-04_r8, -0.9861E-04_r8, & -0.1393E-03_r8, -0.1961E-03_r8, -0.2738E-03_r8, -0.3778E-03_r8, -0.5132E-03_r8, & -0.6831E-03_r8, -0.8868E-03_r8, -0.1118E-02_r8, -0.1368E-02_r8, -0.1632E-02_r8, & -0.1899E-02_r8, -0.2136E-02_r8, -0.2282E-02_r8, -0.2273E-02_r8, -0.2067E-02_r8, & -0.1679E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8, & & -0.2058E-09_r8, -0.4066E-09_r8, -0.7967E-09_r8, -0.1539E-08_r8, -0.2904E-08_r8, & -0.5293E-08_r8, -0.9116E-08_r8, -0.1447E-07_r8, -0.2058E-07_r8, -0.2608E-07_r8, & -0.3053E-07_r8, -0.3418E-07_r8, -0.3619E-07_r8, -0.3766E-07_r8, -0.4313E-07_r8, & -0.5817E-07_r8, -0.8299E-07_r8, -0.1072E-06_r8, -0.1195E-06_r8, -0.1031E-06_r8, & -0.3275E-07_r8, 0.1215E-06_r8, 0.3835E-06_r8, 0.7220E-06_r8, 0.1062E-05_r8, & 0.1504E-05_r8, 0.2367E-05_r8, 0.3854E-05_r8, 0.5842E-05_r8, 0.7875E-05_r8, & 0.9082E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8, & & 0.3827E-05_r8, 0.7626E-05_r8, 0.1518E-04_r8, 0.3013E-04_r8, 0.5955E-04_r8, & 0.1169E-03_r8, 0.2268E-03_r8, 0.4325E-03_r8, 0.8046E-03_r8, 0.1449E-02_r8, & 0.2512E-02_r8, 0.4185E-02_r8, 0.6707E-02_r8, 0.1038E-01_r8, 0.1561E-01_r8, & 0.2298E-01_r8, 0.3328E-01_r8, 0.4754E-01_r8, 0.6708E-01_r8, 0.9340E-01_r8, & 0.1280E+00_r8, 0.1722E+00_r8, 0.2267E+00_r8, 0.2918E+00_r8, 0.3688E+00_r8, & 0.4584E+00_r8, 0.5594E+00_r8, 0.6662E+00_r8, 0.7700E+00_r8, 0.8597E+00_r8, & 0.9266E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8, & & -0.5584E-07_r8, -0.1110E-06_r8, -0.2198E-06_r8, -0.4329E-06_r8, -0.8444E-06_r8, & -0.1623E-05_r8, -0.3049E-05_r8, -0.5551E-05_r8, -0.9714E-05_r8, -0.1627E-04_r8, & -0.2609E-04_r8, -0.4015E-04_r8, -0.5955E-04_r8, -0.8603E-04_r8, -0.1223E-03_r8, & -0.1724E-03_r8, -0.2413E-03_r8, -0.3346E-03_r8, -0.4578E-03_r8, -0.6155E-03_r8, & -0.8087E-03_r8, -0.1033E-02_r8, -0.1279E-02_r8, -0.1540E-02_r8, -0.1811E-02_r8, & -0.2065E-02_r8, -0.2251E-02_r8, -0.2301E-02_r8, -0.2163E-02_r8, -0.1828E-02_r8, & -0.1365E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8, & & -0.2274E-09_r8, -0.4498E-09_r8, -0.8814E-09_r8, -0.1708E-08_r8, -0.3247E-08_r8, & -0.5972E-08_r8, -0.1045E-07_r8, -0.1707E-07_r8, -0.2545E-07_r8, -0.3440E-07_r8, & -0.4259E-07_r8, -0.4822E-07_r8, -0.5004E-07_r8, -0.5061E-07_r8, -0.5485E-07_r8, & -0.6687E-07_r8, -0.8483E-07_r8, -0.9896E-07_r8, -0.9646E-07_r8, -0.5557E-07_r8, & 0.5765E-07_r8, 0.2752E-06_r8, 0.5870E-06_r8, 0.9188E-06_r8, 0.1291E-05_r8, & 0.1971E-05_r8, 0.3251E-05_r8, 0.5115E-05_r8, 0.7221E-05_r8, 0.8825E-05_r8, & 0.9032E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8, & & 0.3938E-05_r8, 0.7849E-05_r8, 0.1563E-04_r8, 0.3105E-04_r8, 0.6149E-04_r8, & 0.1210E-03_r8, 0.2361E-03_r8, 0.4537E-03_r8, 0.8543E-03_r8, 0.1565E-02_r8, & 0.2774E-02_r8, 0.4739E-02_r8, 0.7781E-02_r8, 0.1229E-01_r8, 0.1877E-01_r8, & 0.2791E-01_r8, 0.4064E-01_r8, 0.5812E-01_r8, 0.8180E-01_r8, 0.1132E+00_r8, & 0.1539E+00_r8, 0.2047E+00_r8, 0.2662E+00_r8, 0.3391E+00_r8, 0.4247E+00_r8, & 0.5226E+00_r8, 0.6287E+00_r8, 0.7351E+00_r8, 0.8311E+00_r8, 0.9066E+00_r8, & 0.9569E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8, & & -0.5833E-07_r8, -0.1160E-06_r8, -0.2300E-06_r8, -0.4540E-06_r8, -0.8885E-06_r8, & -0.1718E-05_r8, -0.3256E-05_r8, -0.6010E-05_r8, -0.1072E-04_r8, -0.1838E-04_r8, & -0.3026E-04_r8, -0.4772E-04_r8, -0.7223E-04_r8, -0.1057E-03_r8, -0.1512E-03_r8, & -0.2128E-03_r8, -0.2961E-03_r8, -0.4070E-03_r8, -0.5514E-03_r8, -0.7320E-03_r8, & -0.9467E-03_r8, -0.1187E-02_r8, -0.1446E-02_r8, -0.1717E-02_r8, -0.1985E-02_r8, & -0.2203E-02_r8, -0.2307E-02_r8, -0.2237E-02_r8, -0.1965E-02_r8, -0.1532E-02_r8, & -0.1044E-02_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8, & & -0.2426E-09_r8, -0.4805E-09_r8, -0.9447E-09_r8, -0.1841E-08_r8, -0.3519E-08_r8, & -0.6565E-08_r8, -0.1172E-07_r8, -0.1979E-07_r8, -0.3095E-07_r8, -0.4443E-07_r8, & -0.5821E-07_r8, -0.6868E-07_r8, -0.7282E-07_r8, -0.7208E-07_r8, -0.7176E-07_r8, & -0.7562E-07_r8, -0.8110E-07_r8, -0.7934E-07_r8, -0.5365E-07_r8, 0.2483E-07_r8, & 0.1959E-06_r8, 0.4731E-06_r8, 0.7954E-06_r8, 0.1123E-05_r8, 0.1652E-05_r8, & 0.2711E-05_r8, 0.4402E-05_r8, 0.6498E-05_r8, 0.8392E-05_r8, 0.9154E-05_r8, & 0.8261E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8, & & 0.3973E-05_r8, 0.7921E-05_r8, 0.1578E-04_r8, 0.3139E-04_r8, 0.6229E-04_r8, & 0.1231E-03_r8, 0.2414E-03_r8, 0.4680E-03_r8, 0.8923E-03_r8, 0.1663E-02_r8, & 0.3011E-02_r8, 0.5268E-02_r8, 0.8869E-02_r8, 0.1434E-01_r8, 0.2230E-01_r8, & 0.3359E-01_r8, 0.4924E-01_r8, 0.7057E-01_r8, 0.9908E-01_r8, 0.1363E+00_r8, & 0.1834E+00_r8, 0.2411E+00_r8, 0.3100E+00_r8, 0.3913E+00_r8, 0.4856E+00_r8, & 0.5901E+00_r8, 0.6981E+00_r8, 0.7994E+00_r8, 0.8832E+00_r8, 0.9424E+00_r8, & 0.9773E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8, & & -0.5929E-07_r8, -0.1180E-06_r8, -0.2344E-06_r8, -0.4638E-06_r8, -0.9118E-06_r8, & -0.1775E-05_r8, -0.3401E-05_r8, -0.6375E-05_r8, -0.1160E-04_r8, -0.2039E-04_r8, & -0.3444E-04_r8, -0.5575E-04_r8, -0.8641E-04_r8, -0.1287E-03_r8, -0.1856E-03_r8, & -0.2615E-03_r8, -0.3618E-03_r8, -0.4928E-03_r8, -0.6594E-03_r8, -0.8621E-03_r8, & -0.1095E-02_r8, -0.1349E-02_r8, -0.1618E-02_r8, -0.1894E-02_r8, -0.2140E-02_r8, & -0.2293E-02_r8, -0.2290E-02_r8, -0.2085E-02_r8, -0.1696E-02_r8, -0.1212E-02_r8, & -0.7506E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8, & & -0.2496E-09_r8, -0.4954E-09_r8, -0.9780E-09_r8, -0.1915E-08_r8, -0.3697E-08_r8, & -0.6991E-08_r8, -0.1279E-07_r8, -0.2231E-07_r8, -0.3653E-07_r8, -0.5541E-07_r8, & -0.7688E-07_r8, -0.9614E-07_r8, -0.1069E-06_r8, -0.1065E-06_r8, -0.9866E-07_r8, & -0.8740E-07_r8, -0.7192E-07_r8, -0.4304E-07_r8, 0.1982E-07_r8, 0.1525E-06_r8, & 0.3873E-06_r8, 0.6947E-06_r8, 0.1000E-05_r8, 0.1409E-05_r8, 0.2253E-05_r8, & 0.3739E-05_r8, 0.5744E-05_r8, 0.7812E-05_r8, 0.9067E-05_r8, 0.8746E-05_r8, & 0.6940E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8, & & 0.3978E-05_r8, 0.7933E-05_r8, 0.1581E-04_r8, 0.3149E-04_r8, 0.6260E-04_r8, & 0.1240E-03_r8, 0.2445E-03_r8, 0.4777E-03_r8, 0.9213E-03_r8, 0.1743E-02_r8, & 0.3217E-02_r8, 0.5756E-02_r8, 0.9929E-02_r8, 0.1644E-01_r8, 0.2612E-01_r8, & 0.3995E-01_r8, 0.5910E-01_r8, 0.8497E-01_r8, 0.1190E+00_r8, 0.1626E+00_r8, & 0.2165E+00_r8, 0.2813E+00_r8, 0.3583E+00_r8, 0.4485E+00_r8, 0.5505E+00_r8, & 0.6590E+00_r8, 0.7646E+00_r8, 0.8562E+00_r8, 0.9245E+00_r8, 0.9676E+00_r8, & 0.9897E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8, & & -0.5950E-07_r8, -0.1185E-06_r8, -0.2358E-06_r8, -0.4678E-06_r8, -0.9235E-06_r8, & -0.1810E-05_r8, -0.3503E-05_r8, -0.6664E-05_r8, -0.1236E-04_r8, -0.2223E-04_r8, & -0.3849E-04_r8, -0.6396E-04_r8, -0.1017E-03_r8, -0.1545E-03_r8, -0.2257E-03_r8, & -0.3192E-03_r8, -0.4399E-03_r8, -0.5933E-03_r8, -0.7824E-03_r8, -0.1005E-02_r8, & -0.1251E-02_r8, -0.1516E-02_r8, -0.1794E-02_r8, -0.2060E-02_r8, -0.2257E-02_r8, & -0.2318E-02_r8, -0.2186E-02_r8, -0.1853E-02_r8, -0.1386E-02_r8, -0.9021E-03_r8, & -0.5050E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8, & & -0.2515E-09_r8, -0.5001E-09_r8, -0.9904E-09_r8, -0.1951E-08_r8, -0.3800E-08_r8, & -0.7288E-08_r8, -0.1362E-07_r8, -0.2452E-07_r8, -0.4184E-07_r8, -0.6663E-07_r8, & -0.9770E-07_r8, -0.1299E-06_r8, -0.1533E-06_r8, -0.1584E-06_r8, -0.1425E-06_r8, & -0.1093E-06_r8, -0.5972E-07_r8, 0.1426E-07_r8, 0.1347E-06_r8, 0.3364E-06_r8, & 0.6209E-06_r8, 0.9169E-06_r8, 0.1243E-05_r8, 0.1883E-05_r8, 0.3145E-05_r8, & 0.5011E-05_r8, 0.7136E-05_r8, 0.8785E-05_r8, 0.9048E-05_r8, 0.7686E-05_r8, & 0.5368E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8, & & 0.3978E-05_r8, 0.7934E-05_r8, 0.1582E-04_r8, 0.3153E-04_r8, 0.6275E-04_r8, & 0.1246E-03_r8, 0.2466E-03_r8, 0.4847E-03_r8, 0.9432E-03_r8, 0.1808E-02_r8, & 0.3392E-02_r8, 0.6189E-02_r8, 0.1092E-01_r8, 0.1852E-01_r8, 0.3009E-01_r8, & 0.4683E-01_r8, 0.7008E-01_r8, 0.1012E+00_r8, 0.1416E+00_r8, 0.1920E+00_r8, & 0.2531E+00_r8, 0.3258E+00_r8, 0.4115E+00_r8, 0.5102E+00_r8, 0.6180E+00_r8, & 0.7267E+00_r8, 0.8252E+00_r8, 0.9030E+00_r8, 0.9550E+00_r8, 0.9838E+00_r8, & 0.9965E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8, & & -0.5953E-07_r8, -0.1187E-06_r8, -0.2363E-06_r8, -0.4697E-06_r8, -0.9304E-06_r8, & -0.1833E-05_r8, -0.3578E-05_r8, -0.6889E-05_r8, -0.1299E-04_r8, -0.2384E-04_r8, & -0.4227E-04_r8, -0.7201E-04_r8, -0.1174E-03_r8, -0.1825E-03_r8, -0.2710E-03_r8, & -0.3861E-03_r8, -0.5313E-03_r8, -0.7095E-03_r8, -0.9203E-03_r8, -0.1158E-02_r8, & -0.1417E-02_r8, -0.1691E-02_r8, -0.1968E-02_r8, -0.2200E-02_r8, -0.2320E-02_r8, & -0.2263E-02_r8, -0.1998E-02_r8, -0.1563E-02_r8, -0.1068E-02_r8, -0.6300E-03_r8, & -0.3174E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8, & & -0.2520E-09_r8, -0.5016E-09_r8, -0.9963E-09_r8, -0.1971E-08_r8, -0.3867E-08_r8, & -0.7500E-08_r8, -0.1427E-07_r8, -0.2634E-07_r8, -0.4656E-07_r8, -0.7753E-07_r8, & -0.1196E-06_r8, -0.1683E-06_r8, -0.2113E-06_r8, -0.2309E-06_r8, -0.2119E-06_r8, & -0.1518E-06_r8, -0.5200E-07_r8, 0.9274E-07_r8, 0.2973E-06_r8, 0.5714E-06_r8, & 0.8687E-06_r8, 0.1152E-05_r8, 0.1621E-05_r8, 0.2634E-05_r8, 0.4310E-05_r8, & 0.6418E-05_r8, 0.8347E-05_r8, 0.9162E-05_r8, 0.8319E-05_r8, 0.6209E-05_r8, & 0.3844E-05_r8, & ! DATA ((h21(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8, & & 0.3976E-05_r8, 0.7932E-05_r8, 0.1582E-04_r8, 0.3154E-04_r8, 0.6284E-04_r8, & 0.1250E-03_r8, 0.2479E-03_r8, 0.4896E-03_r8, 0.9592E-03_r8, 0.1857E-02_r8, & 0.3532E-02_r8, 0.6558E-02_r8, 0.1181E-01_r8, 0.2048E-01_r8, 0.3402E-01_r8, & 0.5399E-01_r8, 0.8188E-01_r8, 0.1190E+00_r8, 0.1664E+00_r8, 0.2243E+00_r8, & 0.2933E+00_r8, 0.3747E+00_r8, 0.4695E+00_r8, 0.5755E+00_r8, 0.6858E+00_r8, & 0.7903E+00_r8, 0.8773E+00_r8, 0.9391E+00_r8, 0.9758E+00_r8, 0.9934E+00_r8, & 0.9996E+00_r8, & ! DATA ((h22(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8, & & -0.5954E-07_r8, -0.1187E-06_r8, -0.2366E-06_r8, -0.4709E-06_r8, -0.9349E-06_r8, & -0.1849E-05_r8, -0.3632E-05_r8, -0.7058E-05_r8, -0.1350E-04_r8, -0.2521E-04_r8, & -0.4564E-04_r8, -0.7958E-04_r8, -0.1329E-03_r8, -0.2114E-03_r8, -0.3200E-03_r8, & -0.4611E-03_r8, -0.6353E-03_r8, -0.8409E-03_r8, -0.1072E-02_r8, -0.1324E-02_r8, & -0.1592E-02_r8, -0.1871E-02_r8, -0.2127E-02_r8, -0.2297E-02_r8, -0.2312E-02_r8, & -0.2123E-02_r8, -0.1738E-02_r8, -0.1247E-02_r8, -0.7744E-03_r8, -0.4117E-03_r8, & -0.1850E-03_r8, & ! DATA ((h23(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8, & & -0.2522E-09_r8, -0.5025E-09_r8, -0.9997E-09_r8, -0.1983E-08_r8, -0.3912E-08_r8, & -0.7650E-08_r8, -0.1474E-07_r8, -0.2777E-07_r8, -0.5055E-07_r8, -0.8745E-07_r8, & -0.1414E-06_r8, -0.2095E-06_r8, -0.2790E-06_r8, -0.3241E-06_r8, -0.3135E-06_r8, & -0.2269E-06_r8, -0.5896E-07_r8, 0.1875E-06_r8, 0.4996E-06_r8, 0.8299E-06_r8, & 0.1115E-05_r8, 0.1467E-05_r8, 0.2236E-05_r8, 0.3672E-05_r8, 0.5668E-05_r8, & 0.7772E-05_r8, 0.9094E-05_r8, 0.8827E-05_r8, 0.7041E-05_r8, 0.4638E-05_r8, & 0.2539E-05_r8/),SHAPE=(/nx*3*nh/)) it=0 DO k=1,nx DO i=1,3 DO j=1,nh it=it+1 IF(i==1) THEN !WRITE(*,'(a5,2e17.9) ' )'h21 ',data4(it),h21(k,j) h21(k,j,1) = data4(it) END IF IF(i==2) THEN !WRITE(*,'(a5,2e17.9) ' )'h22 ',data4(it),h22(k,j) h22(k,j,1) =data4(it) END IF IF(i==3) THEN !WRITE(*,'(a5,2e17.9) ' )'h23 ',data4(it),h23(k,j) h23(k,j,1)=data4(it) END IF END DO END DO END DO !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! data5(1:nx*3*nh)=RESHAPE(SOURCE=(/& ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)/ & 0.1342E-04_r8, 0.2640E-04_r8, 0.5137E-04_r8, 0.9829E-04_r8, 0.1832E-03_r8, & 0.3284E-03_r8, 0.5585E-03_r8, 0.8907E-03_r8, 0.1327E-02_r8, 0.1856E-02_r8, & 0.2461E-02_r8, 0.3138E-02_r8, 0.3898E-02_r8, 0.4766E-02_r8, 0.5783E-02_r8, & 0.7007E-02_r8, 0.8521E-02_r8, 0.1041E-01_r8, 0.1278E-01_r8, 0.1570E-01_r8, & 0.1928E-01_r8, 0.2361E-01_r8, 0.2884E-01_r8, 0.3520E-01_r8, 0.4305E-01_r8, & 0.5286E-01_r8, 0.6531E-01_r8, 0.8127E-01_r8, 0.1019E+00_r8, 0.1287E+00_r8, & 0.1632E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)_r8, & & -0.5685E-08_r8, -0.1331E-07_r8, -0.3249E-07_r8, -0.8137E-07_r8, -0.2048E-06_r8, & -0.4973E-06_r8, -0.1118E-05_r8, -0.2246E-05_r8, -0.3982E-05_r8, -0.6290E-05_r8, & -0.9040E-05_r8, -0.1215E-04_r8, -0.1567E-04_r8, -0.1970E-04_r8, -0.2449E-04_r8, & -0.3046E-04_r8, -0.3798E-04_r8, -0.4725E-04_r8, -0.5831E-04_r8, -0.7123E-04_r8, & -0.8605E-04_r8, -0.1028E-03_r8, -0.1212E-03_r8, -0.1413E-03_r8, -0.1635E-03_r8, & -0.1884E-03_r8, -0.2160E-03_r8, -0.2461E-03_r8, -0.2778E-03_r8, -0.3098E-03_r8, & -0.3411E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 1_r8, 1)_r8, & & 0.2169E-10_r8, 0.5237E-10_r8, 0.1296E-09_r8, 0.3204E-09_r8, 0.7665E-09_r8, & 0.1691E-08_r8, 0.3222E-08_r8, 0.5110E-08_r8, 0.6779E-08_r8, 0.7681E-08_r8, & 0.7378E-08_r8, 0.5836E-08_r8, 0.3191E-08_r8, -0.1491E-08_r8, -0.1022E-07_r8, & -0.2359E-07_r8, -0.3957E-07_r8, -0.5553E-07_r8, -0.6927E-07_r8, -0.7849E-07_r8, & -0.8139E-07_r8, -0.7853E-07_r8, -0.7368E-07_r8, -0.7220E-07_r8, -0.7780E-07_r8, & -0.9091E-07_r8, -0.1038E-06_r8, -0.9929E-07_r8, -0.5422E-07_r8, 0.5379E-07_r8, & 0.2350E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8, & & 0.1342E-04_r8, 0.2640E-04_r8, 0.5137E-04_r8, 0.9829E-04_r8, 0.1832E-03_r8, & 0.3284E-03_r8, 0.5586E-03_r8, 0.8908E-03_r8, 0.1327E-02_r8, 0.1856E-02_r8, & 0.2462E-02_r8, 0.3140E-02_r8, 0.3902E-02_r8, 0.4774E-02_r8, 0.5797E-02_r8, & 0.7033E-02_r8, 0.8570E-02_r8, 0.1050E-01_r8, 0.1294E-01_r8, 0.1599E-01_r8, & 0.1979E-01_r8, 0.2448E-01_r8, 0.3024E-01_r8, 0.3738E-01_r8, 0.4633E-01_r8, & 0.5766E-01_r8, 0.7218E-01_r8, 0.9096E-01_r8, 0.1154E+00_r8, 0.1471E+00_r8, & 0.1880E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8, & & -0.5684E-08_r8, -0.1331E-07_r8, -0.3248E-07_r8, -0.8133E-07_r8, -0.2047E-06_r8, & -0.4971E-06_r8, -0.1117E-05_r8, -0.2245E-05_r8, -0.3981E-05_r8, -0.6287E-05_r8, & -0.9035E-05_r8, -0.1215E-04_r8, -0.1565E-04_r8, -0.1967E-04_r8, -0.2444E-04_r8, & -0.3036E-04_r8, -0.3780E-04_r8, -0.4694E-04_r8, -0.5779E-04_r8, -0.7042E-04_r8, & -0.8491E-04_r8, -0.1013E-03_r8, -0.1196E-03_r8, -0.1399E-03_r8, -0.1625E-03_r8, & -0.1879E-03_r8, -0.2163E-03_r8, -0.2474E-03_r8, -0.2803E-03_r8, -0.3140E-03_r8, & -0.3478E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 2_r8, 2)_r8, & & 0.2168E-10_r8, 0.5242E-10_r8, 0.1295E-09_r8, 0.3201E-09_r8, 0.7662E-09_r8, & 0.1690E-08_r8, 0.3220E-08_r8, 0.5106E-08_r8, 0.6776E-08_r8, 0.7673E-08_r8, & 0.7362E-08_r8, 0.5808E-08_r8, 0.3138E-08_r8, -0.1595E-08_r8, -0.1041E-07_r8, & -0.2390E-07_r8, -0.4010E-07_r8, -0.5636E-07_r8, -0.7045E-07_r8, -0.7972E-07_r8, & -0.8178E-07_r8, -0.7677E-07_r8, -0.6876E-07_r8, -0.6381E-07_r8, -0.6583E-07_r8, & -0.7486E-07_r8, -0.8229E-07_r8, -0.7017E-07_r8, -0.1497E-07_r8, 0.1051E-06_r8, & 0.2990E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8, & & 0.1342E-04_r8, 0.2640E-04_r8, 0.5137E-04_r8, 0.9830E-04_r8, 0.1832E-03_r8, & 0.3285E-03_r8, 0.5587E-03_r8, 0.8911E-03_r8, 0.1328E-02_r8, 0.1857E-02_r8, & 0.2465E-02_r8, 0.3144E-02_r8, 0.3909E-02_r8, 0.4787E-02_r8, 0.5820E-02_r8, & 0.7075E-02_r8, 0.8646E-02_r8, 0.1064E-01_r8, 0.1319E-01_r8, 0.1643E-01_r8, & 0.2053E-01_r8, 0.2569E-01_r8, 0.3215E-01_r8, 0.4028E-01_r8, 0.5059E-01_r8, & 0.6380E-01_r8, 0.8088E-01_r8, 0.1031E+00_r8, 0.1321E+00_r8, 0.1698E+00_r8, & 0.2179E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8, & & -0.5682E-08_r8, -0.1330E-07_r8, -0.3247E-07_r8, -0.8129E-07_r8, -0.2046E-06_r8, & -0.4968E-06_r8, -0.1117E-05_r8, -0.2244E-05_r8, -0.3978E-05_r8, -0.6283E-05_r8, & -0.9027E-05_r8, -0.1213E-04_r8, -0.1563E-04_r8, -0.1963E-04_r8, -0.2436E-04_r8, & -0.3021E-04_r8, -0.3754E-04_r8, -0.4649E-04_r8, -0.5709E-04_r8, -0.6940E-04_r8, & -0.8359E-04_r8, -0.9986E-04_r8, -0.1182E-03_r8, -0.1388E-03_r8, -0.1620E-03_r8, & -0.1882E-03_r8, -0.2175E-03_r8, -0.2498E-03_r8, -0.2843E-03_r8, -0.3203E-03_r8, & -0.3573E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 3_r8, 3)_r8, & & 0.2167E-10_r8, 0.5238E-10_r8, 0.1294E-09_r8, 0.3198E-09_r8, 0.7656E-09_r8, & 0.1688E-08_r8, 0.3217E-08_r8, 0.5104E-08_r8, 0.6767E-08_r8, 0.7661E-08_r8, & 0.7337E-08_r8, 0.5764E-08_r8, 0.3051E-08_r8, -0.1752E-08_r8, -0.1068E-07_r8, & -0.2436E-07_r8, -0.4081E-07_r8, -0.5740E-07_r8, -0.7165E-07_r8, -0.8046E-07_r8, & -0.8082E-07_r8, -0.7289E-07_r8, -0.6141E-07_r8, -0.5294E-07_r8, -0.5134E-07_r8, & -0.5552E-07_r8, -0.5609E-07_r8, -0.3464E-07_r8, 0.3275E-07_r8, 0.1669E-06_r8, & 0.3745E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8, & & 0.1342E-04_r8, 0.2640E-04_r8, 0.5138E-04_r8, 0.9830E-04_r8, 0.1832E-03_r8, & 0.3286E-03_r8, 0.5589E-03_r8, 0.8915E-03_r8, 0.1329E-02_r8, 0.1859E-02_r8, & 0.2468E-02_r8, 0.3150E-02_r8, 0.3920E-02_r8, 0.4806E-02_r8, 0.5855E-02_r8, & 0.7140E-02_r8, 0.8763E-02_r8, 0.1085E-01_r8, 0.1356E-01_r8, 0.1707E-01_r8, & 0.2158E-01_r8, 0.2736E-01_r8, 0.3471E-01_r8, 0.4407E-01_r8, 0.5608E-01_r8, & 0.7161E-01_r8, 0.9184E-01_r8, 0.1183E+00_r8, 0.1528E+00_r8, 0.1973E+00_r8, & 0.2537E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8, & & -0.5680E-08_r8, -0.1329E-07_r8, -0.3243E-07_r8, -0.8121E-07_r8, -0.2044E-06_r8, & -0.4963E-06_r8, -0.1115E-05_r8, -0.2242E-05_r8, -0.3974E-05_r8, -0.6276E-05_r8, & -0.9015E-05_r8, -0.1211E-04_r8, -0.1559E-04_r8, -0.1956E-04_r8, -0.2423E-04_r8, & -0.2999E-04_r8, -0.3716E-04_r8, -0.4588E-04_r8, -0.5618E-04_r8, -0.6818E-04_r8, & -0.8218E-04_r8, -0.9847E-04_r8, -0.1171E-03_r8, -0.1382E-03_r8, -0.1621E-03_r8, & -0.1892E-03_r8, -0.2197E-03_r8, -0.2535E-03_r8, -0.2902E-03_r8, -0.3293E-03_r8, & -0.3700E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 4_r8, 4)_r8, & & 0.2166E-10_r8, 0.5229E-10_r8, 0.1294E-09_r8, 0.3193E-09_r8, 0.7644E-09_r8, & 0.1686E-08_r8, 0.3213E-08_r8, 0.5092E-08_r8, 0.6753E-08_r8, 0.7640E-08_r8, & 0.7302E-08_r8, 0.5696E-08_r8, 0.2917E-08_r8, -0.1984E-08_r8, -0.1108E-07_r8, & -0.2497E-07_r8, -0.4171E-07_r8, -0.5849E-07_r8, -0.7254E-07_r8, -0.8017E-07_r8, & -0.7802E-07_r8, -0.6662E-07_r8, -0.5153E-07_r8, -0.3961E-07_r8, -0.3387E-07_r8, & -0.3219E-07_r8, -0.2426E-07_r8, 0.8700E-08_r8, 0.9027E-07_r8, 0.2400E-06_r8, & 0.4623E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8, & & 0.1342E-04_r8, 0.2640E-04_r8, 0.5138E-04_r8, 0.9832E-04_r8, 0.1833E-03_r8, & 0.3287E-03_r8, 0.5591E-03_r8, 0.8922E-03_r8, 0.1330E-02_r8, 0.1862E-02_r8, & 0.2473E-02_r8, 0.3159E-02_r8, 0.3937E-02_r8, 0.4837E-02_r8, 0.5911E-02_r8, & 0.7240E-02_r8, 0.8943E-02_r8, 0.1117E-01_r8, 0.1411E-01_r8, 0.1798E-01_r8, & 0.2304E-01_r8, 0.2961E-01_r8, 0.3807E-01_r8, 0.4896E-01_r8, 0.6308E-01_r8, & 0.8148E-01_r8, 0.1056E+00_r8, 0.1371E+00_r8, 0.1780E+00_r8, 0.2303E+00_r8, & 0.2958E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8, & & -0.5675E-08_r8, -0.1328E-07_r8, -0.3239E-07_r8, -0.8110E-07_r8, -0.2040E-06_r8, & -0.4954E-06_r8, -0.1114E-05_r8, -0.2238E-05_r8, -0.3968E-05_r8, -0.6265E-05_r8, & -0.8996E-05_r8, -0.1208E-04_r8, -0.1553E-04_r8, -0.1945E-04_r8, -0.2404E-04_r8, & -0.2966E-04_r8, -0.3663E-04_r8, -0.4508E-04_r8, -0.5508E-04_r8, -0.6686E-04_r8, & -0.8082E-04_r8, -0.9732E-04_r8, -0.1165E-03_r8, -0.1382E-03_r8, -0.1630E-03_r8, & -0.1913E-03_r8, -0.2234E-03_r8, -0.2593E-03_r8, -0.2989E-03_r8, -0.3417E-03_r8, & -0.3857E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 5_r8, 5)_r8, & & 0.2163E-10_r8, 0.5209E-10_r8, 0.1291E-09_r8, 0.3186E-09_r8, 0.7626E-09_r8, & 0.1682E-08_r8, 0.3203E-08_r8, 0.5078E-08_r8, 0.6730E-08_r8, 0.7606E-08_r8, & 0.7246E-08_r8, 0.5592E-08_r8, 0.2735E-08_r8, -0.2325E-08_r8, -0.1162E-07_r8, & -0.2576E-07_r8, -0.4268E-07_r8, -0.5938E-07_r8, -0.7262E-07_r8, -0.7827E-07_r8, & -0.7297E-07_r8, -0.5786E-07_r8, -0.3930E-07_r8, -0.2373E-07_r8, -0.1295E-07_r8, & -0.3728E-08_r8, 0.1465E-07_r8, 0.6114E-07_r8, 0.1590E-06_r8, 0.3257E-06_r8, & 0.5622E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8, & & 0.1342E-04_r8, 0.2640E-04_r8, 0.5139E-04_r8, 0.9834E-04_r8, 0.1833E-03_r8, & 0.3288E-03_r8, 0.5596E-03_r8, 0.8932E-03_r8, 0.1332E-02_r8, 0.1866E-02_r8, & 0.2481E-02_r8, 0.3174E-02_r8, 0.3963E-02_r8, 0.4885E-02_r8, 0.5997E-02_r8, & 0.7394E-02_r8, 0.9215E-02_r8, 0.1164E-01_r8, 0.1489E-01_r8, 0.1924E-01_r8, & 0.2501E-01_r8, 0.3258E-01_r8, 0.4243E-01_r8, 0.5523E-01_r8, 0.7195E-01_r8, & 0.9387E-01_r8, 0.1226E+00_r8, 0.1601E+00_r8, 0.2084E+00_r8, 0.2695E+00_r8, & 0.3446E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8, & & -0.5671E-08_r8, -0.1326E-07_r8, -0.3234E-07_r8, -0.8091E-07_r8, -0.2035E-06_r8, & -0.4941E-06_r8, -0.1111E-05_r8, -0.2232E-05_r8, -0.3958E-05_r8, -0.6247E-05_r8, & -0.8966E-05_r8, -0.1202E-04_r8, -0.1544E-04_r8, -0.1929E-04_r8, -0.2377E-04_r8, & -0.2921E-04_r8, -0.3593E-04_r8, -0.4409E-04_r8, -0.5385E-04_r8, -0.6555E-04_r8, & -0.7965E-04_r8, -0.9656E-04_r8, -0.1163E-03_r8, -0.1390E-03_r8, -0.1649E-03_r8, & -0.1947E-03_r8, -0.2288E-03_r8, -0.2675E-03_r8, -0.3109E-03_r8, -0.3575E-03_r8, & -0.4039E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 6_r8, 6)_r8, & & 0.2155E-10_r8, 0.5188E-10_r8, 0.1288E-09_r8, 0.3175E-09_r8, 0.7599E-09_r8, & 0.1675E-08_r8, 0.3190E-08_r8, 0.5059E-08_r8, 0.6699E-08_r8, 0.7551E-08_r8, & 0.7154E-08_r8, 0.5435E-08_r8, 0.2452E-08_r8, -0.2802E-08_r8, -0.1235E-07_r8, & -0.2668E-07_r8, -0.4353E-07_r8, -0.5962E-07_r8, -0.7134E-07_r8, -0.7435E-07_r8, & -0.6551E-07_r8, -0.4676E-07_r8, -0.2475E-07_r8, -0.4876E-08_r8, 0.1235E-07_r8, & 0.3092E-07_r8, 0.6192E-07_r8, 0.1243E-06_r8, 0.2400E-06_r8, 0.4247E-06_r8, & 0.6755E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8, & & 0.1342E-04_r8, 0.2640E-04_r8, 0.5139E-04_r8, 0.9837E-04_r8, 0.1834E-03_r8, & 0.3291E-03_r8, 0.5603E-03_r8, 0.8949E-03_r8, 0.1336E-02_r8, 0.1873E-02_r8, & 0.2494E-02_r8, 0.3198E-02_r8, 0.4005E-02_r8, 0.4960E-02_r8, 0.6130E-02_r8, & 0.7628E-02_r8, 0.9618E-02_r8, 0.1232E-01_r8, 0.1599E-01_r8, 0.2097E-01_r8, & 0.2764E-01_r8, 0.3646E-01_r8, 0.4803E-01_r8, 0.6319E-01_r8, 0.8312E-01_r8, & 0.1093E+00_r8, 0.1436E+00_r8, 0.1881E+00_r8, 0.2448E+00_r8, 0.3153E+00_r8, & 0.4001E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8, & & -0.5665E-08_r8, -0.1322E-07_r8, -0.3224E-07_r8, -0.8063E-07_r8, -0.2027E-06_r8, & -0.4921E-06_r8, -0.1106E-05_r8, -0.2223E-05_r8, -0.3942E-05_r8, -0.6220E-05_r8, & -0.8920E-05_r8, -0.1194E-04_r8, -0.1530E-04_r8, -0.1905E-04_r8, -0.2337E-04_r8, & -0.2860E-04_r8, -0.3505E-04_r8, -0.4296E-04_r8, -0.5259E-04_r8, -0.6439E-04_r8, & -0.7884E-04_r8, -0.9635E-04_r8, -0.1170E-03_r8, -0.1407E-03_r8, -0.1681E-03_r8, & -0.1998E-03_r8, -0.2366E-03_r8, -0.2790E-03_r8, -0.3265E-03_r8, -0.3763E-03_r8, & -0.4235E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 7_r8, 7)_r8, & & 0.2157E-10_r8, 0.5178E-10_r8, 0.1283E-09_r8, 0.3162E-09_r8, 0.7558E-09_r8, & 0.1665E-08_r8, 0.3169E-08_r8, 0.5027E-08_r8, 0.6645E-08_r8, 0.7472E-08_r8, & 0.7017E-08_r8, 0.5212E-08_r8, 0.2059E-08_r8, -0.3443E-08_r8, -0.1321E-07_r8, & -0.2754E-07_r8, -0.4389E-07_r8, -0.5869E-07_r8, -0.6825E-07_r8, -0.6819E-07_r8, & -0.5570E-07_r8, -0.3343E-07_r8, -0.7592E-08_r8, 0.1778E-07_r8, 0.4322E-07_r8, & 0.7330E-07_r8, 0.1190E-06_r8, 0.1993E-06_r8, 0.3348E-06_r8, 0.5376E-06_r8, & 0.8030E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8, & & 0.1342E-04_r8, 0.2641E-04_r8, 0.5141E-04_r8, 0.9842E-04_r8, 0.1836E-03_r8, & 0.3295E-03_r8, 0.5614E-03_r8, 0.8975E-03_r8, 0.1341E-02_r8, 0.1884E-02_r8, & 0.2514E-02_r8, 0.3234E-02_r8, 0.4071E-02_r8, 0.5075E-02_r8, 0.6332E-02_r8, & 0.7976E-02_r8, 0.1021E-01_r8, 0.1328E-01_r8, 0.1751E-01_r8, 0.2329E-01_r8, & 0.3109E-01_r8, 0.4146E-01_r8, 0.5517E-01_r8, 0.7325E-01_r8, 0.9710E-01_r8, & 0.1284E+00_r8, 0.1693E+00_r8, 0.2217E+00_r8, 0.2876E+00_r8, 0.3679E+00_r8, & 0.4616E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8, & & -0.5652E-08_r8, -0.1318E-07_r8, -0.3210E-07_r8, -0.8018E-07_r8, -0.2014E-06_r8, & -0.4888E-06_r8, -0.1099E-05_r8, -0.2210E-05_r8, -0.3918E-05_r8, -0.6179E-05_r8, & -0.8849E-05_r8, -0.1182E-04_r8, -0.1509E-04_r8, -0.1871E-04_r8, -0.2284E-04_r8, & -0.2782E-04_r8, -0.3403E-04_r8, -0.4177E-04_r8, -0.5145E-04_r8, -0.6354E-04_r8, & -0.7853E-04_r8, -0.9681E-04_r8, -0.1185E-03_r8, -0.1437E-03_r8, -0.1729E-03_r8, & -0.2072E-03_r8, -0.2475E-03_r8, -0.2942E-03_r8, -0.3457E-03_r8, -0.3973E-03_r8, & -0.4434E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 8_r8, 8)_r8, & & 0.2153E-10_r8, 0.5151E-10_r8, 0.1273E-09_r8, 0.3136E-09_r8, 0.7488E-09_r8, & 0.1649E-08_r8, 0.3142E-08_r8, 0.4980E-08_r8, 0.6559E-08_r8, 0.7346E-08_r8, & 0.6813E-08_r8, 0.4884E-08_r8, 0.1533E-08_r8, -0.4209E-08_r8, -0.1409E-07_r8, & -0.2801E-07_r8, -0.4320E-07_r8, -0.5614E-07_r8, -0.6312E-07_r8, -0.5976E-07_r8, & -0.4369E-07_r8, -0.1775E-07_r8, 0.1280E-07_r8, 0.4534E-07_r8, 0.8106E-07_r8, & 0.1246E-06_r8, 0.1874E-06_r8, 0.2873E-06_r8, 0.4433E-06_r8, 0.6651E-06_r8, & 0.9477E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8, & & 0.1342E-04_r8, 0.2641E-04_r8, 0.5143E-04_r8, 0.9849E-04_r8, 0.1838E-03_r8, & 0.3302E-03_r8, 0.5631E-03_r8, 0.9016E-03_r8, 0.1350E-02_r8, 0.1901E-02_r8, & 0.2546E-02_r8, 0.3292E-02_r8, 0.4171E-02_r8, 0.5250E-02_r8, 0.6634E-02_r8, & 0.8486E-02_r8, 0.1104E-01_r8, 0.1460E-01_r8, 0.1955E-01_r8, 0.2635E-01_r8, & 0.3555E-01_r8, 0.4786E-01_r8, 0.6421E-01_r8, 0.8588E-01_r8, 0.1145E+00_r8, & 0.1519E+00_r8, 0.2003E+00_r8, 0.2615E+00_r8, 0.3372E+00_r8, 0.4269E+00_r8, & 0.5281E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8, & & -0.5629E-08_r8, -0.1310E-07_r8, -0.3186E-07_r8, -0.7948E-07_r8, -0.1995E-06_r8, & -0.4837E-06_r8, -0.1088E-05_r8, -0.2188E-05_r8, -0.3880E-05_r8, -0.6115E-05_r8, & -0.8743E-05_r8, -0.1165E-04_r8, -0.1480E-04_r8, -0.1824E-04_r8, -0.2216E-04_r8, & -0.2691E-04_r8, -0.3293E-04_r8, -0.4067E-04_r8, -0.5057E-04_r8, -0.6314E-04_r8, & -0.7885E-04_r8, -0.9813E-04_r8, -0.1212E-03_r8, -0.1482E-03_r8, -0.1799E-03_r8, & -0.2175E-03_r8, -0.2622E-03_r8, -0.3135E-03_r8, -0.3678E-03_r8, -0.4193E-03_r8, & -0.4627E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip= 9_r8, 9)_r8, & & 0.2121E-10_r8, 0.5076E-10_r8, 0.1257E-09_r8, 0.3091E-09_r8, 0.7379E-09_r8, & 0.1623E-08_r8, 0.3097E-08_r8, 0.4904E-08_r8, 0.6453E-08_r8, 0.7168E-08_r8, & 0.6534E-08_r8, 0.4458E-08_r8, 0.8932E-09_r8, -0.5026E-08_r8, -0.1469E-07_r8, & -0.2765E-07_r8, -0.4103E-07_r8, -0.5169E-07_r8, -0.5585E-07_r8, -0.4913E-07_r8, & -0.2954E-07_r8, 0.6372E-09_r8, 0.3738E-07_r8, 0.7896E-07_r8, 0.1272E-06_r8, & 0.1867E-06_r8, 0.2682E-06_r8, 0.3895E-06_r8, 0.5672E-06_r8, 0.8091E-06_r8, & 0.1114E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8, & & 0.1343E-04_r8, 0.2642E-04_r8, 0.5147E-04_r8, 0.9861E-04_r8, 0.1842E-03_r8, & 0.3312E-03_r8, 0.5658E-03_r8, 0.9080E-03_r8, 0.1364E-02_r8, 0.1928E-02_r8, & 0.2595E-02_r8, 0.3379E-02_r8, 0.4325E-02_r8, 0.5513E-02_r8, 0.7077E-02_r8, & 0.9215E-02_r8, 0.1220E-01_r8, 0.1640E-01_r8, 0.2226E-01_r8, 0.3032E-01_r8, & 0.4127E-01_r8, 0.5598E-01_r8, 0.7559E-01_r8, 0.1016E+00_r8, 0.1359E+00_r8, & 0.1804E+00_r8, 0.2372E+00_r8, 0.3081E+00_r8, 0.3935E+00_r8, 0.4916E+00_r8, & 0.5975E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8, & & -0.5597E-08_r8, -0.1300E-07_r8, -0.3148E-07_r8, -0.7838E-07_r8, -0.1964E-06_r8, & -0.4759E-06_r8, -0.1071E-05_r8, -0.2155E-05_r8, -0.3822E-05_r8, -0.6019E-05_r8, & -0.8586E-05_r8, -0.1139E-04_r8, -0.1439E-04_r8, -0.1764E-04_r8, -0.2134E-04_r8, & -0.2591E-04_r8, -0.3188E-04_r8, -0.3978E-04_r8, -0.5011E-04_r8, -0.6334E-04_r8, & -0.7998E-04_r8, -0.1006E-03_r8, -0.1253E-03_r8, -0.1547E-03_r8, -0.1895E-03_r8, & -0.2315E-03_r8, -0.2811E-03_r8, -0.3363E-03_r8, -0.3917E-03_r8, -0.4413E-03_r8, & -0.4809E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=10_r8,10)_r8, & & 0.2109E-10_r8, 0.5017E-10_r8, 0.1235E-09_r8, 0.3021E-09_r8, 0.7217E-09_r8, & 0.1585E-08_r8, 0.3028E-08_r8, 0.4796E-08_r8, 0.6285E-08_r8, 0.6910E-08_r8, & 0.6178E-08_r8, 0.3945E-08_r8, 0.2436E-09_r8, -0.5632E-08_r8, -0.1464E-07_r8, & -0.2596E-07_r8, -0.3707E-07_r8, -0.4527E-07_r8, -0.4651E-07_r8, -0.3644E-07_r8, & -0.1296E-07_r8, 0.2250E-07_r8, 0.6722E-07_r8, 0.1202E-06_r8, 0.1831E-06_r8, & 0.2605E-06_r8, 0.3627E-06_r8, 0.5062E-06_r8, 0.7064E-06_r8, 0.9725E-06_r8, & 0.1304E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8, & & 0.1343E-04_r8, 0.2644E-04_r8, 0.5152E-04_r8, 0.9878E-04_r8, 0.1847E-03_r8, & 0.3328E-03_r8, 0.5701E-03_r8, 0.9179E-03_r8, 0.1385E-02_r8, 0.1969E-02_r8, & 0.2671E-02_r8, 0.3513E-02_r8, 0.4554E-02_r8, 0.5900E-02_r8, 0.7713E-02_r8, & 0.1023E-01_r8, 0.1379E-01_r8, 0.1879E-01_r8, 0.2578E-01_r8, 0.3542E-01_r8, & 0.4854E-01_r8, 0.6622E-01_r8, 0.8983E-01_r8, 0.1211E+00_r8, 0.1619E+00_r8, & 0.2145E+00_r8, 0.2807E+00_r8, 0.3614E+00_r8, 0.4559E+00_r8, 0.5603E+00_r8, & 0.6675E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8, & & -0.5538E-08_r8, -0.1280E-07_r8, -0.3089E-07_r8, -0.7667E-07_r8, -0.1917E-06_r8, & -0.4642E-06_r8, -0.1045E-05_r8, -0.2106E-05_r8, -0.3736E-05_r8, -0.5878E-05_r8, & -0.8363E-05_r8, -0.1104E-04_r8, -0.1387E-04_r8, -0.1692E-04_r8, -0.2044E-04_r8, & -0.2493E-04_r8, -0.3101E-04_r8, -0.3926E-04_r8, -0.5020E-04_r8, -0.6429E-04_r8, & -0.8213E-04_r8, -0.1044E-03_r8, -0.1314E-03_r8, -0.1637E-03_r8, -0.2027E-03_r8, & -0.2498E-03_r8, -0.3042E-03_r8, -0.3617E-03_r8, -0.4163E-03_r8, -0.4625E-03_r8, & -0.4969E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=11_r8,11)_r8, & & 0.2067E-10_r8, 0.4903E-10_r8, 0.1200E-09_r8, 0.2917E-09_r8, 0.6965E-09_r8, & 0.1532E-08_r8, 0.2925E-08_r8, 0.4632E-08_r8, 0.6054E-08_r8, 0.6590E-08_r8, & 0.5746E-08_r8, 0.3436E-08_r8, -0.2251E-09_r8, -0.5703E-08_r8, -0.1344E-07_r8, & -0.2256E-07_r8, -0.3120E-07_r8, -0.3690E-07_r8, -0.3520E-07_r8, -0.2164E-07_r8, & 0.6510E-08_r8, 0.4895E-07_r8, 0.1037E-06_r8, 0.1702E-06_r8, 0.2502E-06_r8, & 0.3472E-06_r8, 0.4710E-06_r8, 0.6379E-06_r8, 0.8633E-06_r8, 0.1159E-05_r8, & 0.1514E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8, & & 0.1344E-04_r8, 0.2647E-04_r8, 0.5161E-04_r8, 0.9906E-04_r8, 0.1856E-03_r8, & 0.3353E-03_r8, 0.5765E-03_r8, 0.9331E-03_r8, 0.1417E-02_r8, 0.2032E-02_r8, & 0.2785E-02_r8, 0.3712E-02_r8, 0.4892E-02_r8, 0.6456E-02_r8, 0.8604E-02_r8, & 0.1162E-01_r8, 0.1590E-01_r8, 0.2192E-01_r8, 0.3033E-01_r8, 0.4193E-01_r8, & 0.5774E-01_r8, 0.7906E-01_r8, 0.1075E+00_r8, 0.1449E+00_r8, 0.1934E+00_r8, & 0.2549E+00_r8, 0.3309E+00_r8, 0.4213E+00_r8, 0.5232E+00_r8, 0.6308E+00_r8, & 0.7348E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8, & & -0.5476E-08_r8, -0.1257E-07_r8, -0.3008E-07_r8, -0.7418E-07_r8, -0.1848E-06_r8, & -0.4468E-06_r8, -0.1006E-05_r8, -0.2032E-05_r8, -0.3611E-05_r8, -0.5679E-05_r8, & -0.8058E-05_r8, -0.1059E-04_r8, -0.1324E-04_r8, -0.1612E-04_r8, -0.1956E-04_r8, & -0.2411E-04_r8, -0.3046E-04_r8, -0.3925E-04_r8, -0.5098E-04_r8, -0.6619E-04_r8, & -0.8562E-04_r8, -0.1100E-03_r8, -0.1399E-03_r8, -0.1761E-03_r8, -0.2202E-03_r8, & -0.2726E-03_r8, -0.3306E-03_r8, -0.3885E-03_r8, -0.4404E-03_r8, -0.4820E-03_r8, & -0.5082E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=12_r8,12)_r8, & & 0.2041E-10_r8, 0.4771E-10_r8, 0.1149E-09_r8, 0.2782E-09_r8, 0.6614E-09_r8, & 0.1451E-08_r8, 0.2778E-08_r8, 0.4401E-08_r8, 0.5736E-08_r8, 0.6189E-08_r8, & 0.5315E-08_r8, 0.3087E-08_r8, -0.2518E-09_r8, -0.4806E-08_r8, -0.1071E-07_r8, & -0.1731E-07_r8, -0.2346E-07_r8, -0.2659E-07_r8, -0.2184E-07_r8, -0.4261E-08_r8, & 0.2975E-07_r8, 0.8112E-07_r8, 0.1484E-06_r8, 0.2308E-06_r8, 0.3296E-06_r8, & 0.4475E-06_r8, 0.5942E-06_r8, 0.7859E-06_r8, 0.1041E-05_r8, 0.1369E-05_r8, & 0.1726E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8, & & 0.1345E-04_r8, 0.2650E-04_r8, 0.5173E-04_r8, 0.9947E-04_r8, 0.1868E-03_r8, & 0.3389E-03_r8, 0.5861E-03_r8, 0.9559E-03_r8, 0.1466E-02_r8, 0.2125E-02_r8, & 0.2955E-02_r8, 0.4004E-02_r8, 0.5376E-02_r8, 0.7235E-02_r8, 0.9824E-02_r8, & 0.1348E-01_r8, 0.1866E-01_r8, 0.2596E-01_r8, 0.3613E-01_r8, 0.5016E-01_r8, & 0.6929E-01_r8, 0.9504E-01_r8, 0.1292E+00_r8, 0.1738E+00_r8, 0.2309E+00_r8, & 0.3021E+00_r8, 0.3880E+00_r8, 0.4868E+00_r8, 0.5936E+00_r8, 0.7003E+00_r8, & 0.7964E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8, & & -0.5362E-08_r8, -0.1223E-07_r8, -0.2895E-07_r8, -0.7071E-07_r8, -0.1748E-06_r8, & -0.4219E-06_r8, -0.9516E-06_r8, -0.1928E-05_r8, -0.3436E-05_r8, -0.5409E-05_r8, & -0.7666E-05_r8, -0.1005E-04_r8, -0.1254E-04_r8, -0.1533E-04_r8, -0.1880E-04_r8, & -0.2358E-04_r8, -0.3038E-04_r8, -0.3988E-04_r8, -0.5264E-04_r8, -0.6934E-04_r8, & -0.9083E-04_r8, -0.1179E-03_r8, -0.1515E-03_r8, -0.1927E-03_r8, -0.2424E-03_r8, & -0.2994E-03_r8, -0.3591E-03_r8, -0.4155E-03_r8, -0.4634E-03_r8, -0.4982E-03_r8, & -0.5096E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=13_r8,13)_r8, & & 0.1976E-10_r8, 0.4551E-10_r8, 0.1086E-09_r8, 0.2601E-09_r8, 0.6126E-09_r8, & 0.1345E-08_r8, 0.2583E-08_r8, 0.4112E-08_r8, 0.5365E-08_r8, 0.5796E-08_r8, & 0.5031E-08_r8, 0.3182E-08_r8, 0.5970E-09_r8, -0.2547E-08_r8, -0.6172E-08_r8, & -0.1017E-07_r8, -0.1388E-07_r8, -0.1430E-07_r8, -0.6118E-08_r8, 0.1624E-07_r8, & 0.5791E-07_r8, 0.1205E-06_r8, 0.2025E-06_r8, 0.3032E-06_r8, 0.4225E-06_r8, & 0.5619E-06_r8, 0.7322E-06_r8, 0.9528E-06_r8, 0.1243E-05_r8, 0.1592E-05_r8, & 0.1904E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8, & & 0.1346E-04_r8, 0.2655E-04_r8, 0.5192E-04_r8, 0.1001E-03_r8, 0.1887E-03_r8, & 0.3442E-03_r8, 0.6001E-03_r8, 0.9892E-03_r8, 0.1536E-02_r8, 0.2262E-02_r8, & 0.3200E-02_r8, 0.4420E-02_r8, 0.6053E-02_r8, 0.8300E-02_r8, 0.1146E-01_r8, & 0.1592E-01_r8, 0.2224E-01_r8, 0.3112E-01_r8, 0.4348E-01_r8, 0.6051E-01_r8, & 0.8369E-01_r8, 0.1147E+00_r8, 0.1556E+00_r8, 0.2084E+00_r8, 0.2749E+00_r8, & 0.3561E+00_r8, 0.4511E+00_r8, 0.5562E+00_r8, 0.6644E+00_r8, 0.7655E+00_r8, & 0.8499E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8, & & -0.5210E-08_r8, -0.1172E-07_r8, -0.2731E-07_r8, -0.6598E-07_r8, -0.1615E-06_r8, & -0.3880E-06_r8, -0.8769E-06_r8, -0.1787E-05_r8, -0.3204E-05_r8, -0.5066E-05_r8, & -0.7197E-05_r8, -0.9451E-05_r8, -0.1185E-04_r8, -0.1465E-04_r8, -0.1831E-04_r8, & -0.2346E-04_r8, -0.3088E-04_r8, -0.4132E-04_r8, -0.5545E-04_r8, -0.7410E-04_r8, & -0.9820E-04_r8, -0.1288E-03_r8, -0.1670E-03_r8, -0.2140E-03_r8, -0.2692E-03_r8, & -0.3293E-03_r8, -0.3886E-03_r8, -0.4417E-03_r8, -0.4840E-03_r8, -0.5073E-03_r8, & -0.4944E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=14_r8,14)_r8, & & 0.1880E-10_r8, 0.4271E-10_r8, 0.9966E-10_r8, 0.2352E-09_r8, 0.5497E-09_r8, & 0.1205E-08_r8, 0.2334E-08_r8, 0.3765E-08_r8, 0.4993E-08_r8, 0.5532E-08_r8, & 0.5148E-08_r8, 0.4055E-08_r8, 0.2650E-08_r8, 0.1326E-08_r8, 0.2019E-09_r8, & -0.1124E-08_r8, -0.2234E-08_r8, 0.2827E-09_r8, 0.1247E-07_r8, 0.4102E-07_r8, & 0.9228E-07_r8, 0.1682E-06_r8, 0.2676E-06_r8, 0.3885E-06_r8, 0.5286E-06_r8, & 0.6904E-06_r8, 0.8871E-06_r8, 0.1142E-05_r8, 0.1466E-05_r8, 0.1800E-05_r8, & 0.2004E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8, & & 0.1348E-04_r8, 0.2663E-04_r8, 0.5216E-04_r8, 0.1009E-03_r8, 0.1912E-03_r8, & 0.3515E-03_r8, 0.6196E-03_r8, 0.1036E-02_r8, 0.1637E-02_r8, 0.2456E-02_r8, & 0.3544E-02_r8, 0.4996E-02_r8, 0.6973E-02_r8, 0.9722E-02_r8, 0.1360E-01_r8, & 0.1908E-01_r8, 0.2681E-01_r8, 0.3766E-01_r8, 0.5272E-01_r8, 0.7343E-01_r8, & 0.1015E+00_r8, 0.1388E+00_r8, 0.1874E+00_r8, 0.2492E+00_r8, 0.3257E+00_r8, & 0.4165E+00_r8, 0.5191E+00_r8, 0.6275E+00_r8, 0.7324E+00_r8, 0.8235E+00_r8, & 0.8939E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8, & & -0.5045E-08_r8, -0.1113E-07_r8, -0.2540E-07_r8, -0.6008E-07_r8, -0.1449E-06_r8, & -0.3457E-06_r8, -0.7826E-06_r8, -0.1609E-05_r8, -0.2920E-05_r8, -0.4665E-05_r8, & -0.6691E-05_r8, -0.8868E-05_r8, -0.1127E-04_r8, -0.1422E-04_r8, -0.1820E-04_r8, & -0.2389E-04_r8, -0.3213E-04_r8, -0.4380E-04_r8, -0.5975E-04_r8, -0.8092E-04_r8, & -0.1083E-03_r8, -0.1433E-03_r8, -0.1873E-03_r8, -0.2402E-03_r8, -0.2997E-03_r8, & -0.3607E-03_r8, -0.4178E-03_r8, -0.4662E-03_r8, -0.4994E-03_r8, -0.5028E-03_r8, & -0.4563E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=15_r8,15)_r8, & & 0.1804E-10_r8, 0.3983E-10_r8, 0.9045E-10_r8, 0.2080E-09_r8, 0.4786E-09_r8, & 0.1046E-08_r8, 0.2052E-08_r8, 0.3413E-08_r8, 0.4704E-08_r8, 0.5565E-08_r8, & 0.5887E-08_r8, 0.5981E-08_r8, 0.6202E-08_r8, 0.6998E-08_r8, 0.8493E-08_r8, & 0.1002E-07_r8, 0.1184E-07_r8, 0.1780E-07_r8, 0.3483E-07_r8, 0.7122E-07_r8, & 0.1341E-06_r8, 0.2259E-06_r8, 0.3446E-06_r8, 0.4866E-06_r8, 0.6486E-06_r8, & 0.8343E-06_r8, 0.1063E-05_r8, 0.1356E-05_r8, 0.1690E-05_r8, 0.1951E-05_r8, & 0.2005E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8, & & 0.1351E-04_r8, 0.2672E-04_r8, 0.5247E-04_r8, 0.1019E-03_r8, 0.1944E-03_r8, & 0.3609E-03_r8, 0.6451E-03_r8, 0.1098E-02_r8, 0.1772E-02_r8, 0.2718E-02_r8, & 0.4009E-02_r8, 0.5767E-02_r8, 0.8190E-02_r8, 0.1158E-01_r8, 0.1636E-01_r8, & 0.2311E-01_r8, 0.3260E-01_r8, 0.4586E-01_r8, 0.6425E-01_r8, 0.8940E-01_r8, & 0.1232E+00_r8, 0.1678E+00_r8, 0.2251E+00_r8, 0.2967E+00_r8, 0.3831E+00_r8, & 0.4825E+00_r8, 0.5901E+00_r8, 0.6976E+00_r8, 0.7946E+00_r8, 0.8725E+00_r8, & 0.9285E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8, & & -0.4850E-08_r8, -0.1045E-07_r8, -0.2334E-07_r8, -0.5367E-07_r8, -0.1265E-06_r8, & -0.2980E-06_r8, -0.6750E-06_r8, -0.1406E-05_r8, -0.2601E-05_r8, -0.4239E-05_r8, & -0.6201E-05_r8, -0.8389E-05_r8, -0.1091E-04_r8, -0.1413E-04_r8, -0.1859E-04_r8, & -0.2500E-04_r8, -0.3432E-04_r8, -0.4761E-04_r8, -0.6595E-04_r8, -0.9030E-04_r8, & -0.1219E-03_r8, -0.1624E-03_r8, -0.2126E-03_r8, -0.2708E-03_r8, -0.3327E-03_r8, & -0.3926E-03_r8, -0.4458E-03_r8, -0.4871E-03_r8, -0.5045E-03_r8, -0.4777E-03_r8, & -0.3954E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=16_r8,16)_r8, & & 0.1717E-10_r8, 0.3723E-10_r8, 0.8093E-10_r8, 0.1817E-09_r8, 0.4100E-09_r8, & 0.8932E-09_r8, 0.1791E-08_r8, 0.3126E-08_r8, 0.4634E-08_r8, 0.6095E-08_r8, & 0.7497E-08_r8, 0.9170E-08_r8, 0.1136E-07_r8, 0.1453E-07_r8, 0.1892E-07_r8, & 0.2369E-07_r8, 0.2909E-07_r8, 0.3922E-07_r8, 0.6232E-07_r8, 0.1083E-06_r8, & 0.1847E-06_r8, 0.2943E-06_r8, 0.4336E-06_r8, 0.5970E-06_r8, 0.7815E-06_r8, & 0.9959E-06_r8, 0.1263E-05_r8, 0.1583E-05_r8, 0.1880E-05_r8, 0.2009E-05_r8, & 0.1914E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8, & & 0.1353E-04_r8, 0.2681E-04_r8, 0.5283E-04_r8, 0.1031E-03_r8, 0.1981E-03_r8, & 0.3721E-03_r8, 0.6761E-03_r8, 0.1176E-02_r8, 0.1943E-02_r8, 0.3055E-02_r8, & 0.4612E-02_r8, 0.6766E-02_r8, 0.9760E-02_r8, 0.1396E-01_r8, 0.1986E-01_r8, & 0.2818E-01_r8, 0.3984E-01_r8, 0.5609E-01_r8, 0.7850E-01_r8, 0.1090E+00_r8, & 0.1495E+00_r8, 0.2023E+00_r8, 0.2691E+00_r8, 0.3508E+00_r8, 0.4465E+00_r8, & 0.5524E+00_r8, 0.6613E+00_r8, 0.7633E+00_r8, 0.8485E+00_r8, 0.9119E+00_r8, & 0.9543E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8, & & -0.4673E-08_r8, -0.9862E-08_r8, -0.2135E-07_r8, -0.4753E-07_r8, -0.1087E-06_r8, & -0.2512E-06_r8, -0.5671E-06_r8, -0.1199E-05_r8, -0.2281E-05_r8, -0.3842E-05_r8, & -0.5804E-05_r8, -0.8110E-05_r8, -0.1088E-04_r8, -0.1452E-04_r8, -0.1961E-04_r8, & -0.2696E-04_r8, -0.3768E-04_r8, -0.5311E-04_r8, -0.7444E-04_r8, -0.1028E-03_r8, & -0.1397E-03_r8, -0.1865E-03_r8, -0.2427E-03_r8, -0.3047E-03_r8, -0.3667E-03_r8, & -0.4237E-03_r8, -0.4712E-03_r8, -0.5003E-03_r8, -0.4921E-03_r8, -0.4286E-03_r8, & -0.3188E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=17_r8,17)_r8, & & 0.1653E-10_r8, 0.3436E-10_r8, 0.7431E-10_r8, 0.1605E-09_r8, 0.3548E-09_r8, & 0.7723E-09_r8, 0.1595E-08_r8, 0.2966E-08_r8, 0.4849E-08_r8, 0.7169E-08_r8, & 0.1003E-07_r8, 0.1366E-07_r8, 0.1825E-07_r8, 0.2419E-07_r8, 0.3186E-07_r8, & 0.4068E-07_r8, 0.5064E-07_r8, 0.6618E-07_r8, 0.9684E-07_r8, 0.1536E-06_r8, & 0.2450E-06_r8, 0.3730E-06_r8, 0.5328E-06_r8, 0.7184E-06_r8, 0.9291E-06_r8, & 0.1180E-05_r8, 0.1484E-05_r8, 0.1798E-05_r8, 0.1992E-05_r8, 0.1968E-05_r8, & 0.1736E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8, & & 0.1356E-04_r8, 0.2691E-04_r8, 0.5318E-04_r8, 0.1043E-03_r8, 0.2020E-03_r8, & 0.3841E-03_r8, 0.7100E-03_r8, 0.1263E-02_r8, 0.2144E-02_r8, 0.3464E-02_r8, & 0.5359E-02_r8, 0.8019E-02_r8, 0.1174E-01_r8, 0.1694E-01_r8, 0.2426E-01_r8, & 0.3451E-01_r8, 0.4883E-01_r8, 0.6870E-01_r8, 0.9593E-01_r8, 0.1326E+00_r8, & 0.1809E+00_r8, 0.2428E+00_r8, 0.3196E+00_r8, 0.4112E+00_r8, 0.5147E+00_r8, & 0.6239E+00_r8, 0.7297E+00_r8, 0.8217E+00_r8, 0.8928E+00_r8, 0.9421E+00_r8, & 0.9726E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8, & & -0.4532E-08_r8, -0.9395E-08_r8, -0.1978E-07_r8, -0.4272E-07_r8, -0.9442E-07_r8, & -0.2124E-06_r8, -0.4747E-06_r8, -0.1017E-05_r8, -0.2003E-05_r8, -0.3524E-05_r8, & -0.5567E-05_r8, -0.8108E-05_r8, -0.1127E-04_r8, -0.1547E-04_r8, -0.2138E-04_r8, & -0.2996E-04_r8, -0.4251E-04_r8, -0.6059E-04_r8, -0.8563E-04_r8, -0.1190E-03_r8, & -0.1623E-03_r8, -0.2156E-03_r8, -0.2767E-03_r8, -0.3403E-03_r8, -0.4006E-03_r8, & -0.4530E-03_r8, -0.4912E-03_r8, -0.4995E-03_r8, -0.4563E-03_r8, -0.3592E-03_r8, & -0.2383E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=18_r8,18)_r8, & & 0.1593E-10_r8, 0.3276E-10_r8, 0.6896E-10_r8, 0.1476E-09_r8, 0.3190E-09_r8, & 0.6944E-09_r8, 0.1474E-08_r8, 0.2935E-08_r8, 0.5300E-08_r8, 0.8697E-08_r8, & 0.1336E-07_r8, 0.1946E-07_r8, 0.2707E-07_r8, 0.3637E-07_r8, 0.4800E-07_r8, & 0.6187E-07_r8, 0.7806E-07_r8, 0.1008E-06_r8, 0.1404E-06_r8, 0.2089E-06_r8, & 0.3153E-06_r8, 0.4613E-06_r8, 0.6416E-06_r8, 0.8506E-06_r8, 0.1095E-05_r8, & 0.1387E-05_r8, 0.1708E-05_r8, 0.1956E-05_r8, 0.2003E-05_r8, 0.1836E-05_r8, & 0.1483E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8, & & 0.1358E-04_r8, 0.2700E-04_r8, 0.5350E-04_r8, 0.1054E-03_r8, 0.2057E-03_r8, & 0.3955E-03_r8, 0.7434E-03_r8, 0.1353E-02_r8, 0.2361E-02_r8, 0.3928E-02_r8, & 0.6237E-02_r8, 0.9531E-02_r8, 0.1416E-01_r8, 0.2063E-01_r8, 0.2968E-01_r8, & 0.4233E-01_r8, 0.5990E-01_r8, 0.8412E-01_r8, 0.1170E+00_r8, 0.1608E+00_r8, & 0.2177E+00_r8, 0.2894E+00_r8, 0.3764E+00_r8, 0.4768E+00_r8, 0.5855E+00_r8, & 0.6941E+00_r8, 0.7921E+00_r8, 0.8710E+00_r8, 0.9276E+00_r8, 0.9641E+00_r8, & 0.9846E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8, & & -0.4448E-08_r8, -0.9085E-08_r8, -0.1877E-07_r8, -0.3946E-07_r8, -0.8472E-07_r8, & -0.1852E-06_r8, -0.4074E-06_r8, -0.8791E-06_r8, -0.1789E-05_r8, -0.3314E-05_r8, & -0.5521E-05_r8, -0.8425E-05_r8, -0.1215E-04_r8, -0.1711E-04_r8, -0.2407E-04_r8, & -0.3421E-04_r8, -0.4905E-04_r8, -0.7032E-04_r8, -0.9985E-04_r8, -0.1394E-03_r8, & -0.1897E-03_r8, -0.2491E-03_r8, -0.3132E-03_r8, -0.3763E-03_r8, -0.4332E-03_r8, & -0.4786E-03_r8, -0.5005E-03_r8, -0.4775E-03_r8, -0.3970E-03_r8, -0.2794E-03_r8, & -0.1652E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=19_r8,19)_r8, & & 0.1566E-10_r8, 0.3219E-10_r8, 0.6635E-10_r8, 0.1400E-09_r8, 0.2999E-09_r8, & 0.6513E-09_r8, 0.1406E-08_r8, 0.2953E-08_r8, 0.5789E-08_r8, 0.1037E-07_r8, & 0.1709E-07_r8, 0.2623E-07_r8, 0.3777E-07_r8, 0.5159E-07_r8, 0.6823E-07_r8, & 0.8864E-07_r8, 0.1134E-06_r8, 0.1461E-06_r8, 0.1960E-06_r8, 0.2761E-06_r8, & 0.3962E-06_r8, 0.5583E-06_r8, 0.7580E-06_r8, 0.9957E-06_r8, 0.1282E-05_r8, & 0.1607E-05_r8, 0.1898E-05_r8, 0.2020E-05_r8, 0.1919E-05_r8, 0.1623E-05_r8, & 0.1171E-05_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8, & & 0.1360E-04_r8, 0.2707E-04_r8, 0.5375E-04_r8, 0.1063E-03_r8, 0.2087E-03_r8, & 0.4052E-03_r8, 0.7731E-03_r8, 0.1437E-02_r8, 0.2575E-02_r8, 0.4414E-02_r8, & 0.7212E-02_r8, 0.1128E-01_r8, 0.1704E-01_r8, 0.2509E-01_r8, 0.3631E-01_r8, & 0.5188E-01_r8, 0.7338E-01_r8, 0.1028E+00_r8, 0.1422E+00_r8, 0.1940E+00_r8, & 0.2603E+00_r8, 0.3422E+00_r8, 0.4387E+00_r8, 0.5459E+00_r8, 0.6563E+00_r8, & 0.7597E+00_r8, 0.8461E+00_r8, 0.9105E+00_r8, 0.9536E+00_r8, 0.9791E+00_r8, & 0.9920E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8, & & -0.4403E-08_r8, -0.8896E-08_r8, -0.1818E-07_r8, -0.3751E-07_r8, -0.7880E-07_r8, & -0.1683E-06_r8, -0.3640E-06_r8, -0.7852E-06_r8, -0.1640E-05_r8, -0.3191E-05_r8, & -0.5634E-05_r8, -0.9046E-05_r8, -0.1355E-04_r8, -0.1953E-04_r8, -0.2786E-04_r8, & -0.3995E-04_r8, -0.5752E-04_r8, -0.8256E-04_r8, -0.1174E-03_r8, -0.1638E-03_r8, & -0.2211E-03_r8, -0.2854E-03_r8, -0.3507E-03_r8, -0.4116E-03_r8, -0.4633E-03_r8, & -0.4966E-03_r8, -0.4921E-03_r8, -0.4309E-03_r8, -0.3215E-03_r8, -0.2016E-03_r8, & -0.1061E-03_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=20_r8,20)_r8, & & 0.1551E-10_r8, 0.3147E-10_r8, 0.6419E-10_r8, 0.1356E-09_r8, 0.2860E-09_r8, & 0.6178E-09_r8, 0.1353E-08_r8, 0.2934E-08_r8, 0.6095E-08_r8, 0.1174E-07_r8, & 0.2067E-07_r8, 0.3346E-07_r8, 0.5014E-07_r8, 0.7024E-07_r8, 0.9377E-07_r8, & 0.1226E-06_r8, 0.1592E-06_r8, 0.2056E-06_r8, 0.2678E-06_r8, 0.3584E-06_r8, & 0.4892E-06_r8, 0.6651E-06_r8, 0.8859E-06_r8, 0.1160E-05_r8, 0.1488E-05_r8, & 0.1814E-05_r8, 0.2010E-05_r8, 0.1984E-05_r8, 0.1748E-05_r8, 0.1338E-05_r8, & 0.8445E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8, & & 0.1361E-04_r8, 0.2711E-04_r8, 0.5393E-04_r8, 0.1070E-03_r8, 0.2110E-03_r8, & 0.4129E-03_r8, 0.7973E-03_r8, 0.1508E-02_r8, 0.2769E-02_r8, 0.4886E-02_r8, & 0.8229E-02_r8, 0.1322E-01_r8, 0.2037E-01_r8, 0.3038E-01_r8, 0.4427E-01_r8, & 0.6342E-01_r8, 0.8963E-01_r8, 0.1250E+00_r8, 0.1720E+00_r8, 0.2327E+00_r8, & 0.3089E+00_r8, 0.4007E+00_r8, 0.5052E+00_r8, 0.6163E+00_r8, 0.7241E+00_r8, & 0.8179E+00_r8, 0.8905E+00_r8, 0.9408E+00_r8, 0.9720E+00_r8, 0.9887E+00_r8, & 0.9961E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8, & & -0.4379E-08_r8, -0.8801E-08_r8, -0.1782E-07_r8, -0.3642E-07_r8, -0.7536E-07_r8, & -0.1581E-06_r8, -0.3366E-06_r8, -0.7227E-06_r8, -0.1532E-05_r8, -0.3106E-05_r8, & -0.5810E-05_r8, -0.9862E-05_r8, -0.1540E-04_r8, -0.2279E-04_r8, -0.3292E-04_r8, & -0.4738E-04_r8, -0.6817E-04_r8, -0.9765E-04_r8, -0.1384E-03_r8, -0.1918E-03_r8, & -0.2551E-03_r8, -0.3226E-03_r8, -0.3876E-03_r8, -0.4452E-03_r8, -0.4883E-03_r8, & -0.5005E-03_r8, -0.4598E-03_r8, -0.3633E-03_r8, -0.2416E-03_r8, -0.1349E-03_r8, & -0.6278E-04_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=21_r8,21)_r8, & & 0.1542E-10_r8, 0.3111E-10_r8, 0.6345E-10_r8, 0.1310E-09_r8, 0.2742E-09_r8, & 0.5902E-09_r8, 0.1289E-08_r8, 0.2826E-08_r8, 0.6103E-08_r8, 0.1250E-07_r8, & 0.2355E-07_r8, 0.4041E-07_r8, 0.6347E-07_r8, 0.9217E-07_r8, 0.1256E-06_r8, & 0.1658E-06_r8, 0.2175E-06_r8, 0.2824E-06_r8, 0.3607E-06_r8, 0.4614E-06_r8, & 0.6004E-06_r8, 0.7880E-06_r8, 0.1034E-05_r8, 0.1349E-05_r8, 0.1698E-05_r8, & 0.1965E-05_r8, 0.2021E-05_r8, 0.1857E-05_r8, 0.1500E-05_r8, 0.1015E-05_r8, & 0.5467E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8, & & 0.1362E-04_r8, 0.2714E-04_r8, 0.5405E-04_r8, 0.1074E-03_r8, 0.2127E-03_r8, & 0.4187E-03_r8, 0.8159E-03_r8, 0.1565E-02_r8, 0.2933E-02_r8, 0.5314E-02_r8, & 0.9222E-02_r8, 0.1525E-01_r8, 0.2406E-01_r8, 0.3649E-01_r8, 0.5367E-01_r8, & 0.7717E-01_r8, 0.1090E+00_r8, 0.1514E+00_r8, 0.2067E+00_r8, 0.2770E+00_r8, & 0.3633E+00_r8, 0.4640E+00_r8, 0.5742E+00_r8, 0.6853E+00_r8, 0.7859E+00_r8, & 0.8670E+00_r8, 0.9253E+00_r8, 0.9629E+00_r8, 0.9842E+00_r8, 0.9942E+00_r8, & 0.9983E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8, & & -0.4366E-08_r8, -0.8749E-08_r8, -0.1761E-07_r8, -0.3578E-07_r8, -0.7322E-07_r8, & -0.1517E-06_r8, -0.3189E-06_r8, -0.6785E-06_r8, -0.1446E-05_r8, -0.3014E-05_r8, & -0.5933E-05_r8, -0.1069E-04_r8, -0.1755E-04_r8, -0.2683E-04_r8, -0.3936E-04_r8, & -0.5675E-04_r8, -0.8137E-04_r8, -0.1160E-03_r8, -0.1630E-03_r8, -0.2223E-03_r8, & -0.2899E-03_r8, -0.3589E-03_r8, -0.4230E-03_r8, -0.4755E-03_r8, -0.5031E-03_r8, & -0.4834E-03_r8, -0.4036E-03_r8, -0.2849E-03_r8, -0.1687E-03_r8, -0.8356E-04_r8, & -0.3388E-04_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=22_r8,22)_r8, & & 0.1536E-10_r8, 0.3086E-10_r8, 0.6248E-10_r8, 0.1288E-09_r8, 0.2664E-09_r8, & 0.5637E-09_r8, 0.1222E-08_r8, 0.2680E-08_r8, 0.5899E-08_r8, 0.1262E-07_r8, & 0.2527E-07_r8, 0.4621E-07_r8, 0.7678E-07_r8, 0.1165E-06_r8, 0.1640E-06_r8, & 0.2199E-06_r8, 0.2904E-06_r8, 0.3783E-06_r8, 0.4787E-06_r8, 0.5925E-06_r8, & 0.7377E-06_r8, 0.9389E-06_r8, 0.1216E-05_r8, 0.1560E-05_r8, 0.1879E-05_r8, & 0.2025E-05_r8, 0.1940E-05_r8, 0.1650E-05_r8, 0.1194E-05_r8, 0.6981E-06_r8, & 0.3103E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8, & & 0.1362E-04_r8, 0.2716E-04_r8, 0.5413E-04_r8, 0.1077E-03_r8, 0.2139E-03_r8, & 0.4228E-03_r8, 0.8295E-03_r8, 0.1609E-02_r8, 0.3063E-02_r8, 0.5676E-02_r8, & 0.1013E-01_r8, 0.1726E-01_r8, 0.2799E-01_r8, 0.4332E-01_r8, 0.6452E-01_r8, & 0.9328E-01_r8, 0.1317E+00_r8, 0.1820E+00_r8, 0.2467E+00_r8, 0.3270E+00_r8, & 0.4228E+00_r8, 0.5308E+00_r8, 0.6434E+00_r8, 0.7499E+00_r8, 0.8395E+00_r8, & 0.9065E+00_r8, 0.9515E+00_r8, 0.9782E+00_r8, 0.9916E+00_r8, 0.9973E+00_r8, & 0.9993E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8, & & -0.4359E-08_r8, -0.8720E-08_r8, -0.1749E-07_r8, -0.3527E-07_r8, -0.7175E-07_r8, & -0.1473E-06_r8, -0.3062E-06_r8, -0.6451E-06_r8, -0.1372E-05_r8, -0.2902E-05_r8, & -0.5936E-05_r8, -0.1133E-04_r8, -0.1971E-04_r8, -0.3143E-04_r8, -0.4715E-04_r8, & -0.6833E-04_r8, -0.9759E-04_r8, -0.1379E-03_r8, -0.1907E-03_r8, -0.2542E-03_r8, & -0.3239E-03_r8, -0.3935E-03_r8, -0.4559E-03_r8, -0.4991E-03_r8, -0.5009E-03_r8, & -0.4414E-03_r8, -0.3306E-03_r8, -0.2077E-03_r8, -0.1093E-03_r8, -0.4754E-04_r8, & -0.1642E-04_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=23_r8,23)_r8, & & 0.1531E-10_r8, 0.3070E-10_r8, 0.6184E-10_r8, 0.1257E-09_r8, 0.2578E-09_r8, & 0.5451E-09_r8, 0.1159E-08_r8, 0.2526E-08_r8, 0.5585E-08_r8, 0.1225E-07_r8, & 0.2576E-07_r8, 0.5017E-07_r8, 0.8855E-07_r8, 0.1417E-06_r8, 0.2078E-06_r8, & 0.2858E-06_r8, 0.3802E-06_r8, 0.4946E-06_r8, 0.6226E-06_r8, 0.7572E-06_r8, & 0.9137E-06_r8, 0.1133E-05_r8, 0.1438E-05_r8, 0.1772E-05_r8, 0.1994E-05_r8, & 0.1994E-05_r8, 0.1779E-05_r8, 0.1375E-05_r8, 0.8711E-06_r8, 0.4273E-06_r8, & 0.1539E-06_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8, & & 0.1362E-04_r8, 0.2717E-04_r8, 0.5417E-04_r8, 0.1079E-03_r8, 0.2146E-03_r8, & 0.4256E-03_r8, 0.8393E-03_r8, 0.1641E-02_r8, 0.3163E-02_r8, 0.5968E-02_r8, & 0.1092E-01_r8, 0.1915E-01_r8, 0.3195E-01_r8, 0.5066E-01_r8, 0.7669E-01_r8, & 0.1117E+00_r8, 0.1578E+00_r8, 0.2173E+00_r8, 0.2919E+00_r8, 0.3824E+00_r8, & 0.4867E+00_r8, 0.5992E+00_r8, 0.7100E+00_r8, 0.8076E+00_r8, 0.8838E+00_r8, & 0.9370E+00_r8, 0.9702E+00_r8, 0.9880E+00_r8, 0.9959E+00_r8, 0.9988E+00_r8, & 0.9998E+00_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8, & & -0.4354E-08_r8, -0.8703E-08_r8, -0.1742E-07_r8, -0.3499E-07_r8, -0.7074E-07_r8, & -0.1441E-06_r8, -0.2971E-06_r8, -0.6195E-06_r8, -0.1309E-05_r8, -0.2780E-05_r8, & -0.5823E-05_r8, -0.1165E-04_r8, -0.2152E-04_r8, -0.3616E-04_r8, -0.5604E-04_r8, & -0.8230E-04_r8, -0.1173E-03_r8, -0.1635E-03_r8, -0.2211E-03_r8, -0.2868E-03_r8, & -0.3567E-03_r8, -0.4260E-03_r8, -0.4844E-03_r8, -0.5097E-03_r8, -0.4750E-03_r8, & -0.3779E-03_r8, -0.2522E-03_r8, -0.1409E-03_r8, -0.6540E-04_r8, -0.2449E-04_r8, & -0.6948E-05_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=24_r8,24)_r8, & & 0.1529E-10_r8, 0.3060E-10_r8, 0.6142E-10_r8, 0.1241E-09_r8, 0.2535E-09_r8, & 0.5259E-09_r8, 0.1107E-08_r8, 0.2383E-08_r8, 0.5243E-08_r8, 0.1161E-07_r8, & 0.2523E-07_r8, 0.5188E-07_r8, 0.9757E-07_r8, 0.1657E-06_r8, 0.2553E-06_r8, & 0.3629E-06_r8, 0.4878E-06_r8, 0.6323E-06_r8, 0.7923E-06_r8, 0.9575E-06_r8, & 0.1139E-05_r8, 0.1381E-05_r8, 0.1687E-05_r8, 0.1952E-05_r8, 0.2029E-05_r8, & 0.1890E-05_r8, 0.1552E-05_r8, 0.1062E-05_r8, 0.5728E-06_r8, 0.2280E-06_r8, & 0.6762E-07_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8, & & 0.1363E-04_r8, 0.2718E-04_r8, 0.5420E-04_r8, 0.1080E-03_r8, 0.2151E-03_r8, & 0.4275E-03_r8, 0.8461E-03_r8, 0.1664E-02_r8, 0.3237E-02_r8, 0.6195E-02_r8, & 0.1156E-01_r8, 0.2080E-01_r8, 0.3573E-01_r8, 0.5818E-01_r8, 0.8981E-01_r8, & 0.1323E+00_r8, 0.1874E+00_r8, 0.2570E+00_r8, 0.3423E+00_r8, 0.4425E+00_r8, & 0.5534E+00_r8, 0.6669E+00_r8, 0.7714E+00_r8, 0.8568E+00_r8, 0.9191E+00_r8, & 0.9597E+00_r8, 0.9828E+00_r8, 0.9938E+00_r8, 0.9981E+00_r8, 0.9996E+00_r8, & 0.1000E+01_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8, & & -0.4352E-08_r8, -0.8693E-08_r8, -0.1738E-07_r8, -0.3483E-07_r8, -0.7006E-07_r8, & -0.1423E-06_r8, -0.2905E-06_r8, -0.6008E-06_r8, -0.1258E-05_r8, -0.2663E-05_r8, & -0.5638E-05_r8, -0.1165E-04_r8, -0.2270E-04_r8, -0.4044E-04_r8, -0.6554E-04_r8, & -0.9855E-04_r8, -0.1407E-03_r8, -0.1928E-03_r8, -0.2534E-03_r8, -0.3197E-03_r8, & -0.3890E-03_r8, -0.4563E-03_r8, -0.5040E-03_r8, -0.4998E-03_r8, -0.4249E-03_r8, & -0.3025E-03_r8, -0.1794E-03_r8, -0.8860E-04_r8, -0.3575E-04_r8, -0.1122E-04_r8, & -0.2506E-05_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=25_r8,25)_r8, & & 0.1527E-10_r8, 0.3053E-10_r8, 0.6115E-10_r8, 0.1230E-09_r8, 0.2492E-09_r8, & 0.5149E-09_r8, 0.1068E-08_r8, 0.2268E-08_r8, 0.4932E-08_r8, 0.1089E-07_r8, & 0.2408E-07_r8, 0.5156E-07_r8, 0.1028E-06_r8, 0.1859E-06_r8, 0.3028E-06_r8, & 0.4476E-06_r8, 0.6124E-06_r8, 0.7932E-06_r8, 0.9879E-06_r8, 0.1194E-05_r8, & 0.1417E-05_r8, 0.1673E-05_r8, 0.1929E-05_r8, 0.2064E-05_r8, 0.1997E-05_r8, & 0.1725E-05_r8, 0.1267E-05_r8, 0.7464E-06_r8, 0.3312E-06_r8, 0.1066E-06_r8, & 0.2718E-07_r8, & ! DATA ((h71(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8, & & 0.1363E-04_r8, 0.2719E-04_r8, 0.5422E-04_r8, 0.1081E-03_r8, 0.2154E-03_r8, & 0.4287E-03_r8, 0.8506E-03_r8, 0.1680E-02_r8, 0.3291E-02_r8, 0.6364E-02_r8, & 0.1206E-01_r8, 0.2218E-01_r8, 0.3912E-01_r8, 0.6544E-01_r8, 0.1033E+00_r8, & 0.1544E+00_r8, 0.2198E+00_r8, 0.3008E+00_r8, 0.3970E+00_r8, 0.5060E+00_r8, & 0.6209E+00_r8, 0.7311E+00_r8, 0.8254E+00_r8, 0.8972E+00_r8, 0.9462E+00_r8, & 0.9757E+00_r8, 0.9907E+00_r8, 0.9970E+00_r8, 0.9992E+00_r8, 0.9999E+00_r8, & 0.1000E+01_r8, & ! DATA ((h72(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)_r8, & & -0.4351E-08_r8, -0.8688E-08_r8, -0.1736E-07_r8, -0.3473E-07_r8, -0.6966E-07_r8, & -0.1405E-06_r8, -0.2857E-06_r8, -0.5867E-06_r8, -0.1218E-05_r8, -0.2563E-05_r8, & -0.5435E-05_r8, -0.1144E-04_r8, -0.2321E-04_r8, -0.4379E-04_r8, -0.7487E-04_r8, & -0.1163E-03_r8, -0.1670E-03_r8, -0.2250E-03_r8, -0.2876E-03_r8, -0.3535E-03_r8, & -0.4215E-03_r8, -0.4826E-03_r8, -0.5082E-03_r8, -0.4649E-03_r8, -0.3564E-03_r8, & -0.2264E-03_r8, -0.1188E-03_r8, -0.5128E-04_r8, -0.1758E-04_r8, -0.4431E-05_r8, & -0.7275E-06_r8, & ! DATA ((h73(ip_r8,iw_r8,1)_r8,iw=1_r8,31)_r8,ip=26_r8,26)/ & 0.1525E-10_r8, 0.3048E-10_r8, 0.6097E-10_r8, 0.1223E-09_r8, 0.2466E-09_r8, & 0.5021E-09_r8, 0.1032E-08_r8, 0.2195E-08_r8, 0.4688E-08_r8, 0.1027E-07_r8, & 0.2279E-07_r8, 0.4999E-07_r8, 0.1046E-06_r8, 0.2009E-06_r8, 0.3460E-06_r8, & 0.5335E-06_r8, 0.7478E-06_r8, 0.9767E-06_r8, 0.1216E-05_r8, 0.1469E-05_r8, & 0.1735E-05_r8, 0.1977E-05_r8, 0.2121E-05_r8, 0.2103E-05_r8, 0.1902E-05_r8, & 0.1495E-05_r8, 0.9541E-06_r8, 0.4681E-06_r8, 0.1672E-06_r8, 0.4496E-07_r8, & 0.9859E-08_r8/),SHAPE=(/nx*3*nh/)) it=0 DO k=1,nx DO i=1,3 DO j=1,nh it=it+1 IF(i==1)THEN ! WRITE(*,'(a5,2e17.9) ' )'h81 ',data5(it),h81(k,j) h71(k,j,1)=data5(it) END IF IF(i==2)THEN ! WRITE(*,'(a5,2e17.9) ' )'h82 ',data5(it),h82(k,j) h72(k,j,1)=data5(it) END IF IF(i==3)THEN !WRITE(*,'(a5,2e17.9) ' )'h83 ',data5(it),h83(k,j) h73(k,j,1)=data5(it) END IF END DO END DO END DO ! !----------------------------------------------------------------------- ! ! The following DATA statements originally came from file ! "co2.tran3", which define pre-computed tables used for co2 (band ! 3) transmittance calculations. ! !----------------------------------------------------------------------- ! ! co2.tran3 ! REAL :: c1(26,24,7),c2(26,24,7),c3(26,24,7) ! ! COMMON /radtab002/ c1,c2,c3 data1(1:nx*3*nc)=RESHAPE(SOURCE=(/& ! DATA ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/ & 0.1444E-03_r8, 0.2378E-03_r8, 0.3644E-03_r8, 0.5245E-03_r8, 0.7311E-03_r8, & 0.1015E-02_r8, 0.1416E-02_r8, 0.1975E-02_r8, 0.2715E-02_r8, 0.3651E-02_r8, & 0.4813E-02_r8, 0.6264E-02_r8, 0.8084E-02_r8, 0.1037E-01_r8, 0.1327E-01_r8, & 0.1693E-01_r8, 0.2155E-01_r8, 0.2734E-01_r8, 0.3453E-01_r8, 0.4337E-01_r8, & 0.5414E-01_r8, 0.6726E-01_r8, 0.8335E-01_r8, 0.1032E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 1_r8, 1)_r8, & & -0.2878E-06_r8, -0.6295E-06_r8, -0.1270E-05_r8, -0.2323E-05_r8, -0.3910E-05_r8, & -0.6235E-05_r8, -0.9527E-05_r8, -0.1391E-04_r8, -0.1947E-04_r8, -0.2652E-04_r8, & -0.3568E-04_r8, -0.4777E-04_r8, -0.6363E-04_r8, -0.8414E-04_r8, -0.1102E-03_r8, & -0.1425E-03_r8, -0.1822E-03_r8, -0.2301E-03_r8, -0.2869E-03_r8, -0.3534E-03_r8, & -0.4305E-03_r8, -0.5188E-03_r8, -0.6173E-03_r8, -0.7229E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 1_r8, 1)_r8, & & -0.2369E-09_r8, -0.5453E-09_r8, -0.1434E-08_r8, -0.3513E-08_r8, -0.7277E-08_r8, & -0.1283E-07_r8, -0.1983E-07_r8, -0.2838E-07_r8, -0.4075E-07_r8, -0.6115E-07_r8, & -0.9201E-07_r8, -0.1325E-06_r8, -0.1844E-06_r8, -0.2534E-06_r8, -0.3430E-06_r8, & -0.4550E-06_r8, -0.5896E-06_r8, -0.7434E-06_r8, -0.9121E-06_r8, -0.1096E-05_r8, & -0.1298E-05_r8, -0.1508E-05_r8, -0.1689E-05_r8, -0.1773E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 2_r8, 2)_r8, & & 0.1444E-03_r8, 0.2379E-03_r8, 0.3646E-03_r8, 0.5250E-03_r8, 0.7320E-03_r8, & 0.1016E-02_r8, 0.1419E-02_r8, 0.1981E-02_r8, 0.2726E-02_r8, 0.3669E-02_r8, & 0.4847E-02_r8, 0.6325E-02_r8, 0.8193E-02_r8, 0.1056E-01_r8, 0.1358E-01_r8, & 0.1742E-01_r8, 0.2228E-01_r8, 0.2843E-01_r8, 0.3611E-01_r8, 0.4561E-01_r8, & 0.5730E-01_r8, 0.7169E-01_r8, 0.8952E-01_r8, 0.1117E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 2_r8, 2)_r8, & & -0.2875E-06_r8, -0.6289E-06_r8, -0.1269E-05_r8, -0.2321E-05_r8, -0.3907E-05_r8, & -0.6229E-05_r8, -0.9516E-05_r8, -0.1389E-04_r8, -0.1944E-04_r8, -0.2646E-04_r8, & -0.3559E-04_r8, -0.4762E-04_r8, -0.6340E-04_r8, -0.8384E-04_r8, -0.1098E-03_r8, & -0.1423E-03_r8, -0.1824E-03_r8, -0.2309E-03_r8, -0.2887E-03_r8, -0.3566E-03_r8, & -0.4355E-03_r8, -0.5260E-03_r8, -0.6274E-03_r8, -0.7367E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 2_r8, 2)_r8, & & -0.2382E-09_r8, -0.5476E-09_r8, -0.1437E-08_r8, -0.3520E-08_r8, -0.7291E-08_r8, & -0.1286E-07_r8, -0.1989E-07_r8, -0.2849E-07_r8, -0.4093E-07_r8, -0.6144E-07_r8, & -0.9241E-07_r8, -0.1330E-06_r8, -0.1852E-06_r8, -0.2542E-06_r8, -0.3435E-06_r8, & -0.4549E-06_r8, -0.5891E-06_r8, -0.7427E-06_r8, -0.9114E-06_r8, -0.1096E-05_r8, & -0.1298E-05_r8, -0.1509E-05_r8, -0.1689E-05_r8, -0.1772E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 3_r8, 3)_r8, & & 0.1445E-03_r8, 0.2381E-03_r8, 0.3650E-03_r8, 0.5258E-03_r8, 0.7335E-03_r8, & 0.1019E-02_r8, 0.1424E-02_r8, 0.1990E-02_r8, 0.2742E-02_r8, 0.3698E-02_r8, & 0.4899E-02_r8, 0.6418E-02_r8, 0.8353E-02_r8, 0.1083E-01_r8, 0.1401E-01_r8, & 0.1807E-01_r8, 0.2326E-01_r8, 0.2985E-01_r8, 0.3814E-01_r8, 0.4849E-01_r8, & 0.6134E-01_r8, 0.7733E-01_r8, 0.9732E-01_r8, 0.1223E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 3_r8, 3)_r8, & & -0.2871E-06_r8, -0.6279E-06_r8, -0.1267E-05_r8, -0.2318E-05_r8, -0.3901E-05_r8, & -0.6219E-05_r8, -0.9500E-05_r8, -0.1386E-04_r8, -0.1939E-04_r8, -0.2639E-04_r8, & -0.3547E-04_r8, -0.4743E-04_r8, -0.6313E-04_r8, -0.8354E-04_r8, -0.1096E-03_r8, & -0.1425E-03_r8, -0.1831E-03_r8, -0.2325E-03_r8, -0.2916E-03_r8, -0.3613E-03_r8, & -0.4425E-03_r8, -0.5361E-03_r8, -0.6412E-03_r8, -0.7550E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 3_r8, 3)_r8, & & -0.2404E-09_r8, -0.5516E-09_r8, -0.1443E-08_r8, -0.3531E-08_r8, -0.7310E-08_r8, & -0.1290E-07_r8, -0.1997E-07_r8, -0.2865E-07_r8, -0.4121E-07_r8, -0.6185E-07_r8, & -0.9295E-07_r8, -0.1337E-06_r8, -0.1860E-06_r8, -0.2549E-06_r8, -0.3438E-06_r8, & -0.4547E-06_r8, -0.5888E-06_r8, -0.7424E-06_r8, -0.9114E-06_r8, -0.1097E-05_r8, & -0.1300E-05_r8, -0.1511E-05_r8, -0.1691E-05_r8, -0.1771E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 4_r8, 4)_r8, & & 0.1446E-03_r8, 0.2383E-03_r8, 0.3656E-03_r8, 0.5270E-03_r8, 0.7358E-03_r8, & 0.1023E-02_r8, 0.1432E-02_r8, 0.2003E-02_r8, 0.2766E-02_r8, 0.3743E-02_r8, & 0.4979E-02_r8, 0.6557E-02_r8, 0.8587E-02_r8, 0.1121E-01_r8, 0.1459E-01_r8, & 0.1895E-01_r8, 0.2455E-01_r8, 0.3170E-01_r8, 0.4076E-01_r8, 0.5217E-01_r8, & 0.6649E-01_r8, 0.8448E-01_r8, 0.1071E+00_r8, 0.1353E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 4_r8, 4)_r8, & & -0.2865E-06_r8, -0.6264E-06_r8, -0.1264E-05_r8, -0.2313E-05_r8, -0.3892E-05_r8, & -0.6204E-05_r8, -0.9474E-05_r8, -0.1382E-04_r8, -0.1932E-04_r8, -0.2628E-04_r8, & -0.3530E-04_r8, -0.4720E-04_r8, -0.6286E-04_r8, -0.8333E-04_r8, -0.1097E-03_r8, & -0.1430E-03_r8, -0.1845E-03_r8, -0.2352E-03_r8, -0.2960E-03_r8, -0.3681E-03_r8, & -0.4523E-03_r8, -0.5496E-03_r8, -0.6595E-03_r8, -0.7790E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 4_r8, 4)_r8, & & -0.2433E-09_r8, -0.5580E-09_r8, -0.1454E-08_r8, -0.3550E-08_r8, -0.7345E-08_r8, & -0.1296E-07_r8, -0.2010E-07_r8, -0.2889E-07_r8, -0.4159E-07_r8, -0.6239E-07_r8, & -0.9360E-07_r8, -0.1345E-06_r8, -0.1867E-06_r8, -0.2554E-06_r8, -0.3439E-06_r8, & -0.4548E-06_r8, -0.5890E-06_r8, -0.7429E-06_r8, -0.9127E-06_r8, -0.1099E-05_r8, & -0.1304E-05_r8, -0.1516E-05_r8, -0.1693E-05_r8, -0.1770E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 5_r8, 5)_r8, & & 0.1448E-03_r8, 0.2387E-03_r8, 0.3666E-03_r8, 0.5290E-03_r8, 0.7394E-03_r8, & 0.1030E-02_r8, 0.1444E-02_r8, 0.2025E-02_r8, 0.2805E-02_r8, 0.3811E-02_r8, & 0.5099E-02_r8, 0.6761E-02_r8, 0.8919E-02_r8, 0.1173E-01_r8, 0.1538E-01_r8, & 0.2011E-01_r8, 0.2622E-01_r8, 0.3408E-01_r8, 0.4412E-01_r8, 0.5686E-01_r8, & 0.7302E-01_r8, 0.9346E-01_r8, 0.1192E+00_r8, 0.1512E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 5_r8, 5)_r8, & & -0.2854E-06_r8, -0.6241E-06_r8, -0.1260E-05_r8, -0.2305E-05_r8, -0.3878E-05_r8, & -0.6181E-05_r8, -0.9435E-05_r8, -0.1375E-04_r8, -0.1922E-04_r8, -0.2613E-04_r8, & -0.3510E-04_r8, -0.4696E-04_r8, -0.6265E-04_r8, -0.8334E-04_r8, -0.1102E-03_r8, & -0.1443E-03_r8, -0.1870E-03_r8, -0.2393E-03_r8, -0.3025E-03_r8, -0.3775E-03_r8, & -0.4656E-03_r8, -0.5678E-03_r8, -0.6835E-03_r8, -0.8098E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 5_r8, 5)_r8, & & -0.2485E-09_r8, -0.5672E-09_r8, -0.1468E-08_r8, -0.3577E-08_r8, -0.7395E-08_r8, & -0.1306E-07_r8, -0.2029E-07_r8, -0.2923E-07_r8, -0.4213E-07_r8, -0.6307E-07_r8, & -0.9429E-07_r8, -0.1351E-06_r8, -0.1872E-06_r8, -0.2557E-06_r8, -0.3442E-06_r8, & -0.4553E-06_r8, -0.5899E-06_r8, -0.7447E-06_r8, -0.9163E-06_r8, -0.1105E-05_r8, & -0.1311E-05_r8, -0.1522E-05_r8, -0.1697E-05_r8, -0.1766E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 6_r8, 6)_r8, & & 0.1450E-03_r8, 0.2394E-03_r8, 0.3680E-03_r8, 0.5320E-03_r8, 0.7452E-03_r8, & 0.1040E-02_r8, 0.1462E-02_r8, 0.2058E-02_r8, 0.2863E-02_r8, 0.3914E-02_r8, & 0.5275E-02_r8, 0.7051E-02_r8, 0.9378E-02_r8, 0.1243E-01_r8, 0.1641E-01_r8, & 0.2162E-01_r8, 0.2838E-01_r8, 0.3713E-01_r8, 0.4839E-01_r8, 0.6282E-01_r8, & 0.8125E-01_r8, 0.1046E+00_r8, 0.1340E+00_r8, 0.1702E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 6_r8, 6)_r8, & & -0.2837E-06_r8, -0.6203E-06_r8, -0.1252E-05_r8, -0.2292E-05_r8, -0.3857E-05_r8, & -0.6146E-05_r8, -0.9377E-05_r8, -0.1366E-04_r8, -0.1909E-04_r8, -0.2596E-04_r8, & -0.3489E-04_r8, -0.4676E-04_r8, -0.6263E-04_r8, -0.8372E-04_r8, -0.1113E-03_r8, & -0.1465E-03_r8, -0.1908E-03_r8, -0.2454E-03_r8, -0.3115E-03_r8, -0.3903E-03_r8, & -0.4833E-03_r8, -0.5915E-03_r8, -0.7144E-03_r8, -0.8483E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 6_r8, 6)_r8, & & -0.2557E-09_r8, -0.5835E-09_r8, -0.1495E-08_r8, -0.3619E-08_r8, -0.7472E-08_r8, & -0.1320E-07_r8, -0.2055E-07_r8, -0.2970E-07_r8, -0.4281E-07_r8, -0.6379E-07_r8, & -0.9492E-07_r8, -0.1356E-06_r8, -0.1876E-06_r8, -0.2561E-06_r8, -0.3451E-06_r8, & -0.4568E-06_r8, -0.5924E-06_r8, -0.7489E-06_r8, -0.9229E-06_r8, -0.1114E-05_r8, & -0.1321E-05_r8, -0.1531E-05_r8, -0.1700E-05_r8, -0.1756E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 7_r8, 7)_r8, & & 0.1454E-03_r8, 0.2404E-03_r8, 0.3704E-03_r8, 0.5368E-03_r8, 0.7542E-03_r8, & 0.1056E-02_r8, 0.1491E-02_r8, 0.2108E-02_r8, 0.2951E-02_r8, 0.4066E-02_r8, & 0.5529E-02_r8, 0.7457E-02_r8, 0.1000E-01_r8, 0.1336E-01_r8, 0.1777E-01_r8, & 0.2357E-01_r8, 0.3115E-01_r8, 0.4102E-01_r8, 0.5382E-01_r8, 0.7035E-01_r8, & 0.9154E-01_r8, 0.1184E+00_r8, 0.1519E+00_r8, 0.1926E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 7_r8, 7)_r8, & & -0.2811E-06_r8, -0.6147E-06_r8, -0.1241E-05_r8, -0.2272E-05_r8, -0.3825E-05_r8, & -0.6093E-05_r8, -0.9294E-05_r8, -0.1354E-04_r8, -0.1893E-04_r8, -0.2577E-04_r8, & -0.3472E-04_r8, -0.4672E-04_r8, -0.6292E-04_r8, -0.8464E-04_r8, -0.1132E-03_r8, & -0.1500E-03_r8, -0.1964E-03_r8, -0.2539E-03_r8, -0.3237E-03_r8, -0.4074E-03_r8, & -0.5065E-03_r8, -0.6222E-03_r8, -0.7532E-03_r8, -0.8955E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 7_r8, 7)_r8, & & -0.2673E-09_r8, -0.6022E-09_r8, -0.1531E-08_r8, -0.3682E-08_r8, -0.7588E-08_r8, & -0.1342E-07_r8, -0.2092E-07_r8, -0.3030E-07_r8, -0.4357E-07_r8, -0.6448E-07_r8, & -0.9533E-07_r8, -0.1359E-06_r8, -0.1879E-06_r8, -0.2570E-06_r8, -0.3470E-06_r8, & -0.4598E-06_r8, -0.5971E-06_r8, -0.7563E-06_r8, -0.9334E-06_r8, -0.1127E-05_r8, & -0.1336E-05_r8, -0.1543E-05_r8, -0.1701E-05_r8, -0.1738E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 8_r8, 8)_r8, & & 0.1460E-03_r8, 0.2420E-03_r8, 0.3740E-03_r8, 0.5443E-03_r8, 0.7681E-03_r8, & 0.1081E-02_r8, 0.1535E-02_r8, 0.2184E-02_r8, 0.3082E-02_r8, 0.4286E-02_r8, & 0.5885E-02_r8, 0.8011E-02_r8, 0.1083E-01_r8, 0.1458E-01_r8, 0.1954E-01_r8, & 0.2608E-01_r8, 0.3468E-01_r8, 0.4595E-01_r8, 0.6068E-01_r8, 0.7979E-01_r8, & 0.1043E+00_r8, 0.1351E+00_r8, 0.1731E+00_r8, 0.2184E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 8_r8, 8)_r8, & & -0.2770E-06_r8, -0.6058E-06_r8, -0.1224E-05_r8, -0.2243E-05_r8, -0.3777E-05_r8, & -0.6018E-05_r8, -0.9181E-05_r8, -0.1339E-04_r8, -0.1876E-04_r8, -0.2561E-04_r8, & -0.3467E-04_r8, -0.4695E-04_r8, -0.6370E-04_r8, -0.8635E-04_r8, -0.1163E-03_r8, & -0.1551E-03_r8, -0.2043E-03_r8, -0.2654E-03_r8, -0.3400E-03_r8, -0.4299E-03_r8, & -0.5366E-03_r8, -0.6609E-03_r8, -0.8010E-03_r8, -0.9521E-03_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 8_r8, 8)_r8, & & -0.2845E-09_r8, -0.6367E-09_r8, -0.1591E-08_r8, -0.3779E-08_r8, -0.7752E-08_r8, & -0.1370E-07_r8, -0.2140E-07_r8, -0.3101E-07_r8, -0.4437E-07_r8, -0.6498E-07_r8, & -0.9551E-07_r8, -0.1360E-06_r8, -0.1887E-06_r8, -0.2590E-06_r8, -0.3503E-06_r8, & -0.4650E-06_r8, -0.6052E-06_r8, -0.7681E-06_r8, -0.9488E-06_r8, -0.1145E-05_r8, & -0.1354E-05_r8, -0.1555E-05_r8, -0.1698E-05_r8, -0.1701E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 9_r8, 9)_r8, & & 0.1470E-03_r8, 0.2444E-03_r8, 0.3796E-03_r8, 0.5557E-03_r8, 0.7894E-03_r8, & 0.1119E-02_r8, 0.1600E-02_r8, 0.2296E-02_r8, 0.3271E-02_r8, 0.4596E-02_r8, & 0.6373E-02_r8, 0.8752E-02_r8, 0.1193E-01_r8, 0.1617E-01_r8, 0.2181E-01_r8, & 0.2928E-01_r8, 0.3916E-01_r8, 0.5220E-01_r8, 0.6930E-01_r8, 0.9150E-01_r8, & 0.1198E+00_r8, 0.1551E+00_r8, 0.1978E+00_r8, 0.2475E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 9_r8, 9)_r8, & & -0.2709E-06_r8, -0.5925E-06_r8, -0.1198E-05_r8, -0.2199E-05_r8, -0.3708E-05_r8, & -0.5913E-05_r8, -0.9036E-05_r8, -0.1322E-04_r8, -0.1861E-04_r8, -0.2556E-04_r8, & -0.3486E-04_r8, -0.4760E-04_r8, -0.6516E-04_r8, -0.8909E-04_r8, -0.1210E-03_r8, & -0.1624E-03_r8, -0.2151E-03_r8, -0.2808E-03_r8, -0.3615E-03_r8, -0.4590E-03_r8, & -0.5747E-03_r8, -0.7088E-03_r8, -0.8585E-03_r8, -0.1018E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip= 9_r8, 9)_r8, & & -0.3119E-09_r8, -0.6873E-09_r8, -0.1676E-08_r8, -0.3915E-08_r8, -0.7973E-08_r8, & -0.1407E-07_r8, -0.2200E-07_r8, -0.3179E-07_r8, -0.4505E-07_r8, -0.6522E-07_r8, & -0.9551E-07_r8, -0.1364E-06_r8, -0.1902E-06_r8, -0.2622E-06_r8, -0.3557E-06_r8, & -0.4735E-06_r8, -0.6178E-06_r8, -0.7853E-06_r8, -0.9700E-06_r8, -0.1169E-05_r8, & -0.1377E-05_r8, -0.1567E-05_r8, -0.1683E-05_r8, -0.1631E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=10_r8,10)_r8, & & 0.1484E-03_r8, 0.2482E-03_r8, 0.3882E-03_r8, 0.5732E-03_r8, 0.8217E-03_r8, & 0.1176E-02_r8, 0.1696E-02_r8, 0.2457E-02_r8, 0.3536E-02_r8, 0.5021E-02_r8, & 0.7028E-02_r8, 0.9728E-02_r8, 0.1336E-01_r8, 0.1821E-01_r8, 0.2470E-01_r8, & 0.3334E-01_r8, 0.4482E-01_r8, 0.6004E-01_r8, 0.8003E-01_r8, 0.1059E+00_r8, & 0.1385E+00_r8, 0.1785E+00_r8, 0.2259E+00_r8, 0.2794E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=10_r8,10)_r8, & & -0.2620E-06_r8, -0.5728E-06_r8, -0.1161E-05_r8, -0.2136E-05_r8, -0.3612E-05_r8, & -0.5777E-05_r8, -0.8867E-05_r8, -0.1306E-04_r8, -0.1854E-04_r8, -0.2572E-04_r8, & -0.3543E-04_r8, -0.4887E-04_r8, -0.6756E-04_r8, -0.9321E-04_r8, -0.1275E-03_r8, & -0.1723E-03_r8, -0.2295E-03_r8, -0.3011E-03_r8, -0.3894E-03_r8, -0.4960E-03_r8, & -0.6220E-03_r8, -0.7665E-03_r8, -0.9259E-03_r8, -0.1095E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=10_r8,10)_r8, & & -0.3497E-09_r8, -0.7575E-09_r8, -0.1791E-08_r8, -0.4091E-08_r8, -0.8254E-08_r8, & -0.1452E-07_r8, -0.2265E-07_r8, -0.3255E-07_r8, -0.4557E-07_r8, -0.6530E-07_r8, & -0.9557E-07_r8, -0.1374E-06_r8, -0.1930E-06_r8, -0.2675E-06_r8, -0.3644E-06_r8, & -0.4866E-06_r8, -0.6362E-06_r8, -0.8090E-06_r8, -0.9981E-06_r8, -0.1199E-05_r8, & -0.1402E-05_r8, -0.1574E-05_r8, -0.1643E-05_r8, -0.1506E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=11_r8,11)_r8, & & 0.1506E-03_r8, 0.2538E-03_r8, 0.4010E-03_r8, 0.5992E-03_r8, 0.8693E-03_r8, & 0.1258E-02_r8, 0.1834E-02_r8, 0.2683E-02_r8, 0.3901E-02_r8, 0.5591E-02_r8, & 0.7890E-02_r8, 0.1100E-01_r8, 0.1519E-01_r8, 0.2082E-01_r8, 0.2837E-01_r8, & 0.3845E-01_r8, 0.5192E-01_r8, 0.6981E-01_r8, 0.9323E-01_r8, 0.1232E+00_r8, & 0.1606E+00_r8, 0.2055E+00_r8, 0.2571E+00_r8, 0.3133E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=11_r8,11)_r8, & & -0.2494E-06_r8, -0.5450E-06_r8, -0.1108E-05_r8, -0.2049E-05_r8, -0.3485E-05_r8, & -0.5612E-05_r8, -0.8695E-05_r8, -0.1296E-04_r8, -0.1865E-04_r8, -0.2620E-04_r8, & -0.3654E-04_r8, -0.5099E-04_r8, -0.7121E-04_r8, -0.9909E-04_r8, -0.1365E-03_r8, & -0.1855E-03_r8, -0.2483E-03_r8, -0.3274E-03_r8, -0.4248E-03_r8, -0.5421E-03_r8, & -0.6794E-03_r8, -0.8346E-03_r8, -0.1003E-02_r8, -0.1181E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=11_r8,11)_r8, & & -0.3973E-09_r8, -0.8499E-09_r8, -0.1944E-08_r8, -0.4319E-08_r8, -0.8596E-08_r8, & -0.1501E-07_r8, -0.2332E-07_r8, -0.3326E-07_r8, -0.4600E-07_r8, -0.6541E-07_r8, & -0.9592E-07_r8, -0.1392E-06_r8, -0.1975E-06_r8, -0.2757E-06_r8, -0.3774E-06_r8, & -0.5057E-06_r8, -0.6614E-06_r8, -0.8401E-06_r8, -0.1034E-05_r8, -0.1235E-05_r8, & -0.1427E-05_r8, -0.1565E-05_r8, -0.1560E-05_r8, -0.1310E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=12_r8,12)_r8, & & 0.1537E-03_r8, 0.2618E-03_r8, 0.4196E-03_r8, 0.6368E-03_r8, 0.9377E-03_r8, & 0.1374E-02_r8, 0.2024E-02_r8, 0.2990E-02_r8, 0.4387E-02_r8, 0.6339E-02_r8, & 0.9008E-02_r8, 0.1263E-01_r8, 0.1752E-01_r8, 0.2410E-01_r8, 0.3296E-01_r8, & 0.4485E-01_r8, 0.6077E-01_r8, 0.8185E-01_r8, 0.1092E+00_r8, 0.1439E+00_r8, & 0.1861E+00_r8, 0.2356E+00_r8, 0.2906E+00_r8, 0.3483E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=12_r8,12)_r8, & & -0.2326E-06_r8, -0.5076E-06_r8, -0.1037E-05_r8, -0.1935E-05_r8, -0.3329E-05_r8, & -0.5433E-05_r8, -0.8553E-05_r8, -0.1298E-04_r8, -0.1902E-04_r8, -0.2716E-04_r8, & -0.3840E-04_r8, -0.5421E-04_r8, -0.7643E-04_r8, -0.1071E-03_r8, -0.1485E-03_r8, & -0.2028E-03_r8, -0.2727E-03_r8, -0.3608E-03_r8, -0.4689E-03_r8, -0.5981E-03_r8, & -0.7471E-03_r8, -0.9128E-03_r8, -0.1091E-02_r8, -0.1276E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=12_r8,12)_r8, & & -0.4576E-09_r8, -0.9621E-09_r8, -0.2122E-08_r8, -0.4569E-08_r8, -0.8941E-08_r8, & -0.1550E-07_r8, -0.2398E-07_r8, -0.3404E-07_r8, -0.4663E-07_r8, -0.6577E-07_r8, & -0.9677E-07_r8, -0.1421E-06_r8, -0.2042E-06_r8, -0.2878E-06_r8, -0.3962E-06_r8, & -0.5318E-06_r8, -0.6946E-06_r8, -0.8798E-06_r8, -0.1078E-05_r8, -0.1275E-05_r8, & -0.1445E-05_r8, -0.1523E-05_r8, -0.1413E-05_r8, -0.1030E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=13_r8,13)_r8, & & 0.1579E-03_r8, 0.2729E-03_r8, 0.4454E-03_r8, 0.6893E-03_r8, 0.1033E-02_r8, & 0.1533E-02_r8, 0.2280E-02_r8, 0.3396E-02_r8, 0.5018E-02_r8, 0.7299E-02_r8, & 0.1043E-01_r8, 0.1468E-01_r8, 0.2044E-01_r8, 0.2820E-01_r8, 0.3867E-01_r8, & 0.5278E-01_r8, 0.7166E-01_r8, 0.9648E-01_r8, 0.1283E+00_r8, 0.1679E+00_r8, & 0.2150E+00_r8, 0.2685E+00_r8, 0.3256E+00_r8, 0.3836E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=13_r8,13)_r8, & & -0.2120E-06_r8, -0.4613E-06_r8, -0.9487E-06_r8, -0.1798E-05_r8, -0.3153E-05_r8, & -0.5260E-05_r8, -0.8480E-05_r8, -0.1319E-04_r8, -0.1976E-04_r8, -0.2876E-04_r8, & -0.4125E-04_r8, -0.5885E-04_r8, -0.8357E-04_r8, -0.1178E-03_r8, -0.1640E-03_r8, & -0.2250E-03_r8, -0.3036E-03_r8, -0.4023E-03_r8, -0.5226E-03_r8, -0.6643E-03_r8, & -0.8250E-03_r8, -0.1001E-02_r8, -0.1187E-02_r8, -0.1378E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=13_r8,13)_r8, & & -0.5223E-09_r8, -0.1082E-08_r8, -0.2314E-08_r8, -0.4826E-08_r8, -0.9255E-08_r8, & -0.1596E-07_r8, -0.2472E-07_r8, -0.3507E-07_r8, -0.4774E-07_r8, -0.6677E-07_r8, & -0.9841E-07_r8, -0.1466E-06_r8, -0.2141E-06_r8, -0.3049E-06_r8, -0.4219E-06_r8, & -0.5662E-06_r8, -0.7370E-06_r8, -0.9290E-06_r8, -0.1129E-05_r8, -0.1315E-05_r8, & -0.1441E-05_r8, -0.1427E-05_r8, -0.1184E-05_r8, -0.6731E-06_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=14_r8,14)_r8, & & 0.1634E-03_r8, 0.2873E-03_r8, 0.4793E-03_r8, 0.7589E-03_r8, 0.1159E-02_r8, & 0.1742E-02_r8, 0.2614E-02_r8, 0.3916E-02_r8, 0.5817E-02_r8, 0.8503E-02_r8, & 0.1220E-01_r8, 0.1723E-01_r8, 0.2403E-01_r8, 0.3324E-01_r8, 0.4572E-01_r8, & 0.6253E-01_r8, 0.8488E-01_r8, 0.1140E+00_r8, 0.1507E+00_r8, 0.1952E+00_r8, & 0.2468E+00_r8, 0.3031E+00_r8, 0.3612E+00_r8, 0.4186E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=14_r8,14)_r8, & & -0.1896E-06_r8, -0.4100E-06_r8, -0.8500E-06_r8, -0.1645E-05_r8, -0.2972E-05_r8, & -0.5116E-05_r8, -0.8508E-05_r8, -0.1363E-04_r8, -0.2097E-04_r8, -0.3115E-04_r8, & -0.4531E-04_r8, -0.6517E-04_r8, -0.9298E-04_r8, -0.1315E-03_r8, -0.1837E-03_r8, & -0.2528E-03_r8, -0.3417E-03_r8, -0.4525E-03_r8, -0.5860E-03_r8, -0.7405E-03_r8, & -0.9123E-03_r8, -0.1097E-02_r8, -0.1290E-02_r8, -0.1482E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=14_r8,14)_r8, & & -0.5738E-09_r8, -0.1185E-08_r8, -0.2465E-08_r8, -0.5015E-08_r8, -0.9502E-08_r8, & -0.1640E-07_r8, -0.2567E-07_r8, -0.3675E-07_r8, -0.4990E-07_r8, -0.6893E-07_r8, & -0.1014E-06_r8, -0.1533E-06_r8, -0.2278E-06_r8, -0.3278E-06_r8, -0.4553E-06_r8, & -0.6098E-06_r8, -0.7899E-06_r8, -0.9876E-06_r8, -0.1184E-05_r8, -0.1342E-05_r8, & -0.1393E-05_r8, -0.1254E-05_r8, -0.8703E-06_r8, -0.2593E-06_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=15_r8,15)_r8, & & 0.1697E-03_r8, 0.3043E-03_r8, 0.5205E-03_r8, 0.8458E-03_r8, 0.1319E-02_r8, & 0.2009E-02_r8, 0.3034E-02_r8, 0.4563E-02_r8, 0.6800E-02_r8, 0.9975E-02_r8, & 0.1436E-01_r8, 0.2033E-01_r8, 0.2842E-01_r8, 0.3941E-01_r8, 0.5431E-01_r8, & 0.7432E-01_r8, 0.1007E+00_r8, 0.1344E+00_r8, 0.1762E+00_r8, 0.2255E+00_r8, & 0.2806E+00_r8, 0.3385E+00_r8, 0.3964E+00_r8, 0.4532E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=15_r8,15)_r8, & & -0.1689E-06_r8, -0.3610E-06_r8, -0.7531E-06_r8, -0.1495E-05_r8, -0.2803E-05_r8, & -0.5013E-05_r8, -0.8646E-05_r8, -0.1433E-04_r8, -0.2270E-04_r8, -0.3446E-04_r8, & -0.5077E-04_r8, -0.7342E-04_r8, -0.1049E-03_r8, -0.1486E-03_r8, -0.2080E-03_r8, & -0.2866E-03_r8, -0.3873E-03_r8, -0.5115E-03_r8, -0.6586E-03_r8, -0.8256E-03_r8, & -0.1008E-02_r8, -0.1201E-02_r8, -0.1398E-02_r8, -0.1583E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=15_r8,15)_r8, & & -0.6063E-09_r8, -0.1245E-08_r8, -0.2559E-08_r8, -0.5110E-08_r8, -0.9652E-08_r8, & -0.1685E-07_r8, -0.2693E-07_r8, -0.3933E-07_r8, -0.5373E-07_r8, -0.7330E-07_r8, & -0.1066E-06_r8, -0.1625E-06_r8, -0.2453E-06_r8, -0.3564E-06_r8, -0.4963E-06_r8, & -0.6636E-06_r8, -0.8532E-06_r8, -0.1054E-05_r8, -0.1236E-05_r8, -0.1339E-05_r8, & -0.1280E-05_r8, -0.9947E-06_r8, -0.4862E-06_r8, 0.1889E-06_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=16_r8,16)_r8, & & 0.1763E-03_r8, 0.3227E-03_r8, 0.5664E-03_r8, 0.9465E-03_r8, 0.1511E-02_r8, & 0.2335E-02_r8, 0.3549E-02_r8, 0.5348E-02_r8, 0.7977E-02_r8, 0.1172E-01_r8, & 0.1692E-01_r8, 0.2402E-01_r8, 0.3369E-01_r8, 0.4685E-01_r8, 0.6465E-01_r8, & 0.8835E-01_r8, 0.1192E+00_r8, 0.1579E+00_r8, 0.2046E+00_r8, 0.2579E+00_r8, & 0.3153E+00_r8, 0.3736E+00_r8, 0.4308E+00_r8, 0.4875E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=16_r8,16)_r8, & & -0.1533E-06_r8, -0.3224E-06_r8, -0.6725E-06_r8, -0.1365E-05_r8, -0.2657E-05_r8, & -0.4953E-05_r8, -0.8878E-05_r8, -0.1525E-04_r8, -0.2490E-04_r8, -0.3866E-04_r8, & -0.5766E-04_r8, -0.8372E-04_r8, -0.1197E-03_r8, -0.1695E-03_r8, -0.2372E-03_r8, & -0.3266E-03_r8, -0.4401E-03_r8, -0.5783E-03_r8, -0.7390E-03_r8, -0.9180E-03_r8, & -0.1110E-02_r8, -0.1309E-02_r8, -0.1503E-02_r8, -0.1676E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=16_r8,16)_r8, & & -0.6109E-09_r8, -0.1253E-08_r8, -0.2555E-08_r8, -0.5100E-08_r8, -0.9703E-08_r8, & -0.1729E-07_r8, -0.2846E-07_r8, -0.4291E-07_r8, -0.5988E-07_r8, -0.8135E-07_r8, & -0.1158E-06_r8, -0.1750E-06_r8, -0.2657E-06_r8, -0.3890E-06_r8, -0.5438E-06_r8, & -0.7262E-06_r8, -0.9256E-06_r8, -0.1122E-05_r8, -0.1269E-05_r8, -0.1284E-05_r8, & -0.1086E-05_r8, -0.6553E-06_r8, -0.5588E-07_r8, 0.6660E-06_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=17_r8,17)_r8, & & 0.1824E-03_r8, 0.3403E-03_r8, 0.6126E-03_r8, 0.1054E-02_r8, 0.1727E-02_r8, & 0.2716E-02_r8, 0.4160E-02_r8, 0.6275E-02_r8, 0.9353E-02_r8, 0.1375E-01_r8, & 0.1990E-01_r8, 0.2837E-01_r8, 0.3995E-01_r8, 0.5571E-01_r8, 0.7690E-01_r8, & 0.1048E+00_r8, 0.1404E+00_r8, 0.1841E+00_r8, 0.2353E+00_r8, 0.2916E+00_r8, & 0.3500E+00_r8, 0.4078E+00_r8, 0.4646E+00_r8, 0.5215E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=17_r8,17)_r8, & & -0.1436E-06_r8, -0.2978E-06_r8, -0.6179E-06_r8, -0.1270E-05_r8, -0.2546E-05_r8, & -0.4927E-05_r8, -0.9164E-05_r8, -0.1628E-04_r8, -0.2740E-04_r8, -0.4353E-04_r8, & -0.6579E-04_r8, -0.9606E-04_r8, -0.1375E-03_r8, -0.1943E-03_r8, -0.2712E-03_r8, & -0.3722E-03_r8, -0.4993E-03_r8, -0.6515E-03_r8, -0.8255E-03_r8, -0.1016E-02_r8, & -0.1217E-02_r8, -0.1417E-02_r8, -0.1602E-02_r8, -0.1757E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=17_r8,17)_r8, & & -0.6015E-09_r8, -0.1225E-08_r8, -0.2489E-08_r8, -0.4978E-08_r8, -0.9608E-08_r8, & -0.1756E-07_r8, -0.2993E-07_r8, -0.4715E-07_r8, -0.6853E-07_r8, -0.9454E-07_r8, & -0.1314E-06_r8, -0.1920E-06_r8, -0.2877E-06_r8, -0.4222E-06_r8, -0.5940E-06_r8, & -0.7936E-06_r8, -0.1002E-05_r8, -0.1181E-05_r8, -0.1262E-05_r8, -0.1156E-05_r8, & -0.8086E-06_r8, -0.2604E-06_r8, 0.4056E-06_r8, 0.1164E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=18_r8,18)_r8, & & 0.1875E-03_r8, 0.3555E-03_r8, 0.6547E-03_r8, 0.1159E-02_r8, 0.1954E-02_r8, & 0.3140E-02_r8, 0.4861E-02_r8, 0.7345E-02_r8, 0.1093E-01_r8, 0.1606E-01_r8, & 0.2330E-01_r8, 0.3339E-01_r8, 0.4729E-01_r8, 0.6613E-01_r8, 0.9118E-01_r8, & 0.1236E+00_r8, 0.1642E+00_r8, 0.2127E+00_r8, 0.2674E+00_r8, 0.3254E+00_r8, & 0.3836E+00_r8, 0.4408E+00_r8, 0.4978E+00_r8, 0.5551E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=18_r8,18)_r8, & & -0.1390E-06_r8, -0.2850E-06_r8, -0.5878E-06_r8, -0.1213E-05_r8, -0.2477E-05_r8, & -0.4934E-05_r8, -0.9466E-05_r8, -0.1731E-04_r8, -0.2990E-04_r8, -0.4860E-04_r8, & -0.7471E-04_r8, -0.1102E-03_r8, -0.1582E-03_r8, -0.2230E-03_r8, -0.3098E-03_r8, & -0.4228E-03_r8, -0.5632E-03_r8, -0.7291E-03_r8, -0.9158E-03_r8, -0.1117E-02_r8, & -0.1323E-02_r8, -0.1519E-02_r8, -0.1689E-02_r8, -0.1824E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=18_r8,18)_r8, & & -0.5875E-09_r8, -0.1187E-08_r8, -0.2392E-08_r8, -0.4777E-08_r8, -0.9321E-08_r8, & -0.1745E-07_r8, -0.3091E-07_r8, -0.5121E-07_r8, -0.7879E-07_r8, -0.1130E-06_r8, & -0.1555E-06_r8, -0.2161E-06_r8, -0.3110E-06_r8, -0.4527E-06_r8, -0.6400E-06_r8, & -0.8571E-06_r8, -0.1069E-05_r8, -0.1209E-05_r8, -0.1193E-05_r8, -0.9472E-06_r8, & -0.4712E-06_r8, 0.1597E-06_r8, 0.8892E-06_r8, 0.1671E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=19_r8,19)_r8, & & 0.1914E-03_r8, 0.3677E-03_r8, 0.6900E-03_r8, 0.1252E-02_r8, 0.2172E-02_r8, & 0.3581E-02_r8, 0.5632E-02_r8, 0.8553E-02_r8, 0.1271E-01_r8, 0.1866E-01_r8, & 0.2715E-01_r8, 0.3914E-01_r8, 0.5576E-01_r8, 0.7817E-01_r8, 0.1076E+00_r8, & 0.1449E+00_r8, 0.1903E+00_r8, 0.2429E+00_r8, 0.2999E+00_r8, 0.3582E+00_r8, & 0.4157E+00_r8, 0.4727E+00_r8, 0.5303E+00_r8, 0.5878E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=19_r8,19)_r8, & & -0.1371E-06_r8, -0.2799E-06_r8, -0.5756E-06_r8, -0.1190E-05_r8, -0.2455E-05_r8, & -0.4982E-05_r8, -0.9770E-05_r8, -0.1824E-04_r8, -0.3214E-04_r8, -0.5332E-04_r8, & -0.8371E-04_r8, -0.1255E-03_r8, -0.1814E-03_r8, -0.2555E-03_r8, -0.3528E-03_r8, & -0.4774E-03_r8, -0.6306E-03_r8, -0.8095E-03_r8, -0.1008E-02_r8, -0.1218E-02_r8, & -0.1424E-02_r8, -0.1610E-02_r8, -0.1763E-02_r8, -0.1875E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=19_r8,19)_r8, & & -0.5739E-09_r8, -0.1144E-08_r8, -0.2283E-08_r8, -0.4524E-08_r8, -0.8848E-08_r8, & -0.1686E-07_r8, -0.3096E-07_r8, -0.5411E-07_r8, -0.8876E-07_r8, -0.1343E-06_r8, & -0.1880E-06_r8, -0.2511E-06_r8, -0.3405E-06_r8, -0.4800E-06_r8, -0.6756E-06_r8, & -0.9041E-06_r8, -0.1105E-05_r8, -0.1184E-05_r8, -0.1049E-05_r8, -0.6701E-06_r8, & -0.1061E-06_r8, 0.5899E-06_r8, 0.1376E-05_r8, 0.2160E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=20_r8,20)_r8, & & 0.1942E-03_r8, 0.3767E-03_r8, 0.7173E-03_r8, 0.1328E-02_r8, 0.2364E-02_r8, & 0.4005E-02_r8, 0.6433E-02_r8, 0.9873E-02_r8, 0.1471E-01_r8, 0.2160E-01_r8, & 0.3150E-01_r8, 0.4565E-01_r8, 0.6537E-01_r8, 0.9183E-01_r8, 0.1260E+00_r8, & 0.1683E+00_r8, 0.2183E+00_r8, 0.2738E+00_r8, 0.3318E+00_r8, 0.3894E+00_r8, & 0.4463E+00_r8, 0.5038E+00_r8, 0.5619E+00_r8, 0.6191E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=20_r8,20)_r8, & & -0.1368E-06_r8, -0.2791E-06_r8, -0.5744E-06_r8, -0.1192E-05_r8, -0.2475E-05_r8, & -0.5078E-05_r8, -0.1008E-04_r8, -0.1903E-04_r8, -0.3392E-04_r8, -0.5726E-04_r8, & -0.9202E-04_r8, -0.1409E-03_r8, -0.2063E-03_r8, -0.2912E-03_r8, -0.3997E-03_r8, & -0.5357E-03_r8, -0.7004E-03_r8, -0.8911E-03_r8, -0.1100E-02_r8, -0.1314E-02_r8, & -0.1514E-02_r8, -0.1687E-02_r8, -0.1822E-02_r8, -0.1908E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=20_r8,20)_r8, & & -0.5617E-09_r8, -0.1109E-08_r8, -0.2184E-08_r8, -0.4264E-08_r8, -0.8251E-08_r8, & -0.1582E-07_r8, -0.3000E-07_r8, -0.5536E-07_r8, -0.9656E-07_r8, -0.1549E-06_r8, & -0.2254E-06_r8, -0.2999E-06_r8, -0.3855E-06_r8, -0.5114E-06_r8, -0.6982E-06_r8, & -0.9171E-06_r8, -0.1082E-05_r8, -0.1078E-05_r8, -0.8280E-06_r8, -0.3561E-06_r8, & 0.2636E-06_r8, 0.1015E-05_r8, 0.1836E-05_r8, 0.2588E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=21_r8,21)_r8, & & 0.1962E-03_r8, 0.3831E-03_r8, 0.7370E-03_r8, 0.1386E-02_r8, 0.2520E-02_r8, & 0.4379E-02_r8, 0.7206E-02_r8, 0.1125E-01_r8, 0.1692E-01_r8, 0.2493E-01_r8, & 0.3644E-01_r8, 0.5299E-01_r8, 0.7611E-01_r8, 0.1070E+00_r8, 0.1463E+00_r8, & 0.1936E+00_r8, 0.2474E+00_r8, 0.3046E+00_r8, 0.3621E+00_r8, 0.4188E+00_r8, & 0.4758E+00_r8, 0.5339E+00_r8, 0.5921E+00_r8, 0.6482E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=21_r8,21)_r8, & & -0.1371E-06_r8, -0.2803E-06_r8, -0.5786E-06_r8, -0.1206E-05_r8, -0.2522E-05_r8, & -0.5211E-05_r8, -0.1040E-04_r8, -0.1969E-04_r8, -0.3522E-04_r8, -0.6021E-04_r8, & -0.9890E-04_r8, -0.1552E-03_r8, -0.2312E-03_r8, -0.3285E-03_r8, -0.4496E-03_r8, & -0.5973E-03_r8, -0.7728E-03_r8, -0.9733E-03_r8, -0.1188E-02_r8, -0.1399E-02_r8, & -0.1590E-02_r8, -0.1748E-02_r8, -0.1862E-02_r8, -0.1922E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=21_r8,21)_r8, & & -0.5521E-09_r8, -0.1082E-08_r8, -0.2100E-08_r8, -0.4025E-08_r8, -0.7661E-08_r8, & -0.1462E-07_r8, -0.2837E-07_r8, -0.5493E-07_r8, -0.1013E-06_r8, -0.1716E-06_r8, & -0.2627E-06_r8, -0.3609E-06_r8, -0.4548E-06_r8, -0.5617E-06_r8, -0.7128E-06_r8, & -0.8814E-06_r8, -0.9684E-06_r8, -0.8687E-06_r8, -0.5417E-06_r8, -0.3260E-07_r8, & 0.6298E-06_r8, 0.1417E-05_r8, 0.2233E-05_r8, 0.2884E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=22_r8,22)_r8, & & 0.1974E-03_r8, 0.3872E-03_r8, 0.7505E-03_r8, 0.1427E-02_r8, 0.2638E-02_r8, & 0.4682E-02_r8, 0.7896E-02_r8, 0.1261E-01_r8, 0.1927E-01_r8, 0.2865E-01_r8, & 0.4207E-01_r8, 0.6125E-01_r8, 0.8802E-01_r8, 0.1236E+00_r8, 0.1681E+00_r8, & 0.2201E+00_r8, 0.2766E+00_r8, 0.3342E+00_r8, 0.3906E+00_r8, 0.4468E+00_r8, & 0.5043E+00_r8, 0.5628E+00_r8, 0.6204E+00_r8, 0.6743E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=22_r8,22)_r8, & & -0.1377E-06_r8, -0.2818E-06_r8, -0.5836E-06_r8, -0.1222E-05_r8, -0.2570E-05_r8, & -0.5339E-05_r8, -0.1069E-04_r8, -0.2019E-04_r8, -0.3606E-04_r8, -0.6211E-04_r8, & -0.1038E-03_r8, -0.1666E-03_r8, -0.2537E-03_r8, -0.3653E-03_r8, -0.5012E-03_r8, & -0.6623E-03_r8, -0.8484E-03_r8, -0.1055E-02_r8, -0.1268E-02_r8, -0.1470E-02_r8, & -0.1649E-02_r8, -0.1790E-02_r8, -0.1882E-02_r8, -0.1920E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=22_r8,22)_r8, & & -0.5464E-09_r8, -0.1064E-08_r8, -0.2050E-08_r8, -0.3874E-08_r8, -0.7265E-08_r8, & -0.1373E-07_r8, -0.2688E-07_r8, -0.5376E-07_r8, -0.1035E-06_r8, -0.1833E-06_r8, & -0.2955E-06_r8, -0.4267E-06_r8, -0.5474E-06_r8, -0.6443E-06_r8, -0.7332E-06_r8, & -0.7933E-06_r8, -0.7465E-06_r8, -0.5424E-06_r8, -0.1941E-06_r8, 0.3078E-06_r8, & 0.9845E-06_r8, 0.1771E-05_r8, 0.2515E-05_r8, 0.2962E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=23_r8,23)_r8, & & 0.1981E-03_r8, 0.3899E-03_r8, 0.7594E-03_r8, 0.1455E-02_r8, 0.2722E-02_r8, & 0.4913E-02_r8, 0.8469E-02_r8, 0.1387E-01_r8, 0.2168E-01_r8, 0.3275E-01_r8, & 0.4842E-01_r8, 0.7058E-01_r8, 0.1012E+00_r8, 0.1414E+00_r8, 0.1908E+00_r8, & 0.2467E+00_r8, 0.3050E+00_r8, 0.3620E+00_r8, 0.4176E+00_r8, 0.4739E+00_r8, & 0.5318E+00_r8, 0.5900E+00_r8, 0.6460E+00_r8, 0.6969E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=23_r8,23)_r8, & & -0.1374E-06_r8, -0.2821E-06_r8, -0.5849E-06_r8, -0.1227E-05_r8, -0.2587E-05_r8, & -0.5392E-05_r8, -0.1082E-04_r8, -0.2043E-04_r8, -0.3640E-04_r8, -0.6291E-04_r8, & -0.1064E-03_r8, -0.1742E-03_r8, -0.2713E-03_r8, -0.3983E-03_r8, -0.5523E-03_r8, & -0.7302E-03_r8, -0.9280E-03_r8, -0.1135E-02_r8, -0.1338E-02_r8, -0.1526E-02_r8, & -0.1690E-02_r8, -0.1811E-02_r8, -0.1880E-02_r8, -0.1904E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=23_r8,23)_r8, & & -0.5505E-09_r8, -0.1066E-08_r8, -0.2044E-08_r8, -0.3856E-08_r8, -0.7199E-08_r8, & -0.1353E-07_r8, -0.2638E-07_r8, -0.5316E-07_r8, -0.1044E-06_r8, -0.1908E-06_r8, & -0.3207E-06_r8, -0.4858E-06_r8, -0.6471E-06_r8, -0.7512E-06_r8, -0.7676E-06_r8, & -0.6661E-06_r8, -0.4252E-06_r8, -0.1067E-06_r8, 0.2334E-06_r8, 0.6913E-06_r8, & 0.1330E-05_r8, 0.2055E-05_r8, 0.2617E-05_r8, 0.2760E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=24_r8,24)_r8, & & 0.1986E-03_r8, 0.3917E-03_r8, 0.7654E-03_r8, 0.1475E-02_r8, 0.2782E-02_r8, & 0.5086E-02_r8, 0.8931E-02_r8, 0.1497E-01_r8, 0.2401E-01_r8, 0.3707E-01_r8, & 0.5549E-01_r8, 0.8107E-01_r8, 0.1157E+00_r8, 0.1604E+00_r8, 0.2138E+00_r8, & 0.2723E+00_r8, 0.3311E+00_r8, 0.3877E+00_r8, 0.4433E+00_r8, 0.5001E+00_r8, & 0.5580E+00_r8, 0.6152E+00_r8, 0.6683E+00_r8, 0.7158E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=24_r8,24)_r8, & & -0.1372E-06_r8, -0.2802E-06_r8, -0.5797E-06_r8, -0.1212E-05_r8, -0.2549E-05_r8, & -0.5312E-05_r8, -0.1068E-04_r8, -0.2023E-04_r8, -0.3609E-04_r8, -0.6255E-04_r8, & -0.1068E-03_r8, -0.1777E-03_r8, -0.2830E-03_r8, -0.4252E-03_r8, -0.6004E-03_r8, & -0.8005E-03_r8, -0.1011E-02_r8, -0.1213E-02_r8, -0.1399E-02_r8, -0.1569E-02_r8, & -0.1712E-02_r8, -0.1809E-02_r8, -0.1858E-02_r8, -0.1883E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=24_r8,24)_r8, & & -0.5589E-09_r8, -0.1071E-08_r8, -0.2083E-08_r8, -0.3965E-08_r8, -0.7465E-08_r8, & -0.1408E-07_r8, -0.2720E-07_r8, -0.5414E-07_r8, -0.1061E-06_r8, -0.1958E-06_r8, & -0.3365E-06_r8, -0.5263E-06_r8, -0.7236E-06_r8, -0.8420E-06_r8, -0.7920E-06_r8, & -0.5166E-06_r8, -0.5606E-07_r8, 0.4032E-06_r8, 0.7697E-06_r8, 0.1160E-05_r8, & 0.1692E-05_r8, 0.2251E-05_r8, 0.2483E-05_r8, 0.2295E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=25_r8,25)_r8, & & 0.1990E-03_r8, 0.3929E-03_r8, 0.7699E-03_r8, 0.1490E-02_r8, 0.2829E-02_r8, & 0.5226E-02_r8, 0.9314E-02_r8, 0.1593E-01_r8, 0.2618E-01_r8, 0.4144E-01_r8, & 0.6312E-01_r8, 0.9271E-01_r8, 0.1317E+00_r8, 0.1803E+00_r8, 0.2364E+00_r8, & 0.2956E+00_r8, 0.3541E+00_r8, 0.4111E+00_r8, 0.4680E+00_r8, 0.5255E+00_r8, & 0.5829E+00_r8, 0.6376E+00_r8, 0.6869E+00_r8, 0.7311E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=25_r8,25)_r8, & & -0.1366E-06_r8, -0.2772E-06_r8, -0.5687E-06_r8, -0.1179E-05_r8, -0.2458E-05_r8, & -0.5093E-05_r8, -0.1024E-04_r8, -0.1950E-04_r8, -0.3503E-04_r8, -0.6107E-04_r8, & -0.1053E-03_r8, -0.1782E-03_r8, -0.2902E-03_r8, -0.4470E-03_r8, -0.6455E-03_r8, & -0.8715E-03_r8, -0.1095E-02_r8, -0.1290E-02_r8, -0.1458E-02_r8, -0.1604E-02_r8, & -0.1716E-02_r8, -0.1783E-02_r8, -0.1821E-02_r8, -0.1862E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=25_r8,25)_r8, & & -0.5574E-09_r8, -0.1099E-08_r8, -0.2136E-08_r8, -0.4136E-08_r8, -0.7893E-08_r8, & -0.1505E-07_r8, -0.2894E-07_r8, -0.5650E-07_r8, -0.1084E-06_r8, -0.1986E-06_r8, & -0.3416E-06_r8, -0.5381E-06_r8, -0.7439E-06_r8, -0.8545E-06_r8, -0.7482E-06_r8, & -0.3541E-06_r8, 0.2762E-06_r8, 0.9306E-06_r8, 0.1416E-05_r8, 0.1754E-05_r8, & 0.2105E-05_r8, 0.2343E-05_r8, 0.2113E-05_r8, 0.1689E-05_r8, & ! DATA ((c1(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=26_r8,26)_r8, & & 0.1993E-03_r8, 0.3940E-03_r8, 0.7739E-03_r8, 0.1503E-02_r8, 0.2871E-02_r8, & 0.5350E-02_r8, 0.9655E-02_r8, 0.1679E-01_r8, 0.2817E-01_r8, 0.4563E-01_r8, & 0.7094E-01_r8, 0.1052E+00_r8, 0.1488E+00_r8, 0.2006E+00_r8, 0.2575E+00_r8, & 0.3155E+00_r8, 0.3732E+00_r8, 0.4317E+00_r8, 0.4909E+00_r8, 0.5496E+00_r8, & 0.6058E+00_r8, 0.6569E+00_r8, 0.7019E+00_r8, 0.7436E+00_r8, & ! DATA ((c2(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=26_r8,26)_r8, & & -0.1351E-06_r8, -0.2730E-06_r8, -0.5547E-06_r8, -0.1136E-05_r8, -0.2337E-05_r8, & -0.4789E-05_r8, -0.9589E-05_r8, -0.1836E-04_r8, -0.3337E-04_r8, -0.5890E-04_r8, & -0.1031E-03_r8, -0.1781E-03_r8, -0.2974E-03_r8, -0.4696E-03_r8, -0.6912E-03_r8, & -0.9400E-03_r8, -0.1174E-02_r8, -0.1368E-02_r8, -0.1521E-02_r8, -0.1635E-02_r8, & -0.1706E-02_r8, -0.1742E-02_r8, -0.1779E-02_r8, -0.1846E-02_r8, & ! DATA ((c3(ip_r8,iw_r8,1)_r8,iw=1_r8,24)_r8,ip=26_r8,26)/ & -0.5597E-09_r8, -0.1126E-08_r8, -0.2190E-08_r8, -0.4298E-08_r8, -0.8333E-08_r8, & -0.1610E-07_r8, -0.3092E-07_r8, -0.5912E-07_r8, -0.1108E-06_r8, -0.1982E-06_r8, & -0.3334E-06_r8, -0.5129E-06_r8, -0.6865E-06_r8, -0.7484E-06_r8, -0.5999E-06_r8, & -0.1961E-06_r8, 0.5028E-06_r8, 0.1395E-05_r8, 0.2125E-05_r8, 0.2489E-05_r8, & 0.2584E-05_r8, 0.2312E-05_r8, 0.1587E-05_r8, 0.1122E-05_r8/),SHAPE=(/nx*3*nc/)) it=0 DO k=1,nx DO i=1,3 DO j=1,nc it=it+1 IF(i==1)THEN ! WRITE(*,'(a5,2e16.9) ' )'c1',data1(it),c1(k,j) c1(k,j,1)=data1(it) END IF IF(i==2) THEN !WRITE(*,'(a5,2e16.9) ' )'c2',data1(it),c2(k,j) c2(k,j,1)=data1(it) END IF IF(i==3) THEN !WRITE(*,'(a5,2e16.9) ' )'c3',data1(it),c3(k,j) c3(k,j,1) = data1(it) END IF END DO END DO END DO ! !----------------------------------------------------------------------- ! ! The following DATA statements originally came from file ! "o3.tran3", which define pre-computed tables used for o3 (band5) ! transmittance calculations. ! !----------------------------------------------------------------------- ! ! o3.tran3 ! REAL :: o1(26,21,7),o2(26,21,7),o3(26,21,7) ! COMMON /radtab003 /o1,o2,o3 data2(1:nx*3*no)=RESHAPE(SOURCE=(/& ! DATA ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/ & 0.7117E-05_r8, 0.1419E-04_r8, 0.2828E-04_r8, 0.5629E-04_r8, 0.1117E-03_r8, & 0.2207E-03_r8, 0.4326E-03_r8, 0.8367E-03_r8, 0.1586E-02_r8, 0.2911E-02_r8, & 0.5106E-02_r8, 0.8433E-02_r8, 0.1302E-01_r8, 0.1896E-01_r8, 0.2658E-01_r8, & 0.3657E-01_r8, 0.4988E-01_r8, 0.6765E-01_r8, 0.9092E-01_r8, 0.1204E+00_r8, & 0.1559E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 1_r8, 1)_r8, & & 0.6531E-10_r8, 0.5926E-10_r8, -0.1646E-09_r8, -0.1454E-08_r8, -0.7376E-08_r8, & -0.2968E-07_r8, -0.1071E-06_r8, -0.3584E-06_r8, -0.1125E-05_r8, -0.3289E-05_r8, & -0.8760E-05_r8, -0.2070E-04_r8, -0.4259E-04_r8, -0.7691E-04_r8, -0.1264E-03_r8, & -0.1957E-03_r8, -0.2895E-03_r8, -0.4107E-03_r8, -0.5588E-03_r8, -0.7300E-03_r8, & -0.9199E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 1_r8, 1)_r8, & & -0.2438E-10_r8, -0.4826E-10_r8, -0.9474E-10_r8, -0.1828E-09_r8, -0.3406E-09_r8, & -0.6223E-09_r8, -0.1008E-08_r8, -0.1412E-08_r8, -0.1244E-08_r8, 0.8485E-09_r8, & 0.6343E-08_r8, 0.1201E-07_r8, 0.2838E-08_r8, -0.4024E-07_r8, -0.1257E-06_r8, & -0.2566E-06_r8, -0.4298E-06_r8, -0.6184E-06_r8, -0.7657E-06_r8, -0.8153E-06_r8, & -0.7552E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 2_r8, 2)_r8, & & 0.7117E-05_r8, 0.1419E-04_r8, 0.2828E-04_r8, 0.5629E-04_r8, 0.1117E-03_r8, & 0.2207E-03_r8, 0.4326E-03_r8, 0.8367E-03_r8, 0.1586E-02_r8, 0.2912E-02_r8, & 0.5107E-02_r8, 0.8435E-02_r8, 0.1303E-01_r8, 0.1897E-01_r8, 0.2660E-01_r8, & 0.3660E-01_r8, 0.4995E-01_r8, 0.6777E-01_r8, 0.9114E-01_r8, 0.1207E+00_r8, & 0.1566E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 2_r8, 2)_r8, & & 0.6193E-10_r8, 0.5262E-10_r8, -0.1774E-09_r8, -0.1478E-08_r8, -0.7416E-08_r8, & -0.2985E-07_r8, -0.1071E-06_r8, -0.3584E-06_r8, -0.1124E-05_r8, -0.3287E-05_r8, & -0.8753E-05_r8, -0.2069E-04_r8, -0.4256E-04_r8, -0.7686E-04_r8, -0.1264E-03_r8, & -0.1956E-03_r8, -0.2893E-03_r8, -0.4103E-03_r8, -0.5580E-03_r8, -0.7285E-03_r8, & -0.9171E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 2_r8, 2)_r8, & & -0.2436E-10_r8, -0.4822E-10_r8, -0.9466E-10_r8, -0.1827E-09_r8, -0.3404E-09_r8, & -0.6220E-09_r8, -0.1008E-08_r8, -0.1414E-08_r8, -0.1247E-08_r8, 0.8360E-09_r8, & 0.6312E-08_r8, 0.1194E-07_r8, 0.2753E-08_r8, -0.4040E-07_r8, -0.1260E-06_r8, & -0.2571E-06_r8, -0.4307E-06_r8, -0.6202E-06_r8, -0.7687E-06_r8, -0.8204E-06_r8, & -0.7636E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 3_r8, 3)_r8, & & 0.7117E-05_r8, 0.1419E-04_r8, 0.2828E-04_r8, 0.5628E-04_r8, 0.1117E-03_r8, & 0.2207E-03_r8, 0.4326E-03_r8, 0.8367E-03_r8, 0.1586E-02_r8, 0.2912E-02_r8, & 0.5109E-02_r8, 0.8439E-02_r8, 0.1303E-01_r8, 0.1899E-01_r8, 0.2664E-01_r8, & 0.3666E-01_r8, 0.5005E-01_r8, 0.6795E-01_r8, 0.9147E-01_r8, 0.1213E+00_r8, & 0.1576E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 3_r8, 3)_r8, & & 0.5658E-10_r8, 0.4212E-10_r8, -0.1977E-09_r8, -0.1516E-08_r8, -0.7481E-08_r8, & -0.2995E-07_r8, -0.1072E-06_r8, -0.3583E-06_r8, -0.1123E-05_r8, -0.3283E-05_r8, & -0.8744E-05_r8, -0.2067E-04_r8, -0.4252E-04_r8, -0.7679E-04_r8, -0.1262E-03_r8, & -0.1953E-03_r8, -0.2889E-03_r8, -0.4096E-03_r8, -0.5567E-03_r8, -0.7263E-03_r8, & -0.9130E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 3_r8, 3)_r8, & & -0.2433E-10_r8, -0.4815E-10_r8, -0.9453E-10_r8, -0.1825E-09_r8, -0.3400E-09_r8, & -0.6215E-09_r8, -0.1007E-08_r8, -0.1415E-08_r8, -0.1253E-08_r8, 0.8143E-09_r8, & 0.6269E-08_r8, 0.1186E-07_r8, 0.2604E-08_r8, -0.4067E-07_r8, -0.1264E-06_r8, & -0.2579E-06_r8, -0.4321E-06_r8, -0.6229E-06_r8, -0.7732E-06_r8, -0.8277E-06_r8, & -0.7752E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 4_r8, 4)_r8, & & 0.7116E-05_r8, 0.1419E-04_r8, 0.2828E-04_r8, 0.5628E-04_r8, 0.1117E-03_r8, & 0.2207E-03_r8, 0.4326E-03_r8, 0.8368E-03_r8, 0.1586E-02_r8, 0.2913E-02_r8, & 0.5111E-02_r8, 0.8444E-02_r8, 0.1305E-01_r8, 0.1902E-01_r8, 0.2669E-01_r8, & 0.3676E-01_r8, 0.5022E-01_r8, 0.6825E-01_r8, 0.9199E-01_r8, 0.1222E+00_r8, & 0.1591E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 4_r8, 4)_r8, & & 0.4814E-10_r8, 0.2552E-10_r8, -0.2298E-09_r8, -0.1576E-08_r8, -0.7579E-08_r8, & -0.3009E-07_r8, -0.1074E-06_r8, -0.3581E-06_r8, -0.1122E-05_r8, -0.3278E-05_r8, & -0.8729E-05_r8, -0.2063E-04_r8, -0.4245E-04_r8, -0.7667E-04_r8, -0.1260E-03_r8, & -0.1950E-03_r8, -0.2883E-03_r8, -0.4086E-03_r8, -0.5549E-03_r8, -0.7229E-03_r8, & -0.9071E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 4_r8, 4)_r8, & & -0.2428E-10_r8, -0.4805E-10_r8, -0.9433E-10_r8, -0.1821E-09_r8, -0.3394E-09_r8, & -0.6206E-09_r8, -0.1008E-08_r8, -0.1416E-08_r8, -0.1261E-08_r8, 0.7860E-09_r8, & 0.6188E-08_r8, 0.1171E-07_r8, 0.2389E-08_r8, -0.4109E-07_r8, -0.1271E-06_r8, & -0.2591E-06_r8, -0.4344E-06_r8, -0.6267E-06_r8, -0.7797E-06_r8, -0.8378E-06_r8, & -0.7901E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 5_r8, 5)_r8, & & 0.7116E-05_r8, 0.1419E-04_r8, 0.2827E-04_r8, 0.5627E-04_r8, 0.1117E-03_r8, & 0.2207E-03_r8, 0.4326E-03_r8, 0.8368E-03_r8, 0.1586E-02_r8, 0.2914E-02_r8, & 0.5114E-02_r8, 0.8454E-02_r8, 0.1307E-01_r8, 0.1906E-01_r8, 0.2677E-01_r8, & 0.3690E-01_r8, 0.5048E-01_r8, 0.6872E-01_r8, 0.9281E-01_r8, 0.1236E+00_r8, & 0.1615E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 5_r8, 5)_r8, & & 0.3482E-10_r8, -0.6492E-12_r8, -0.2805E-09_r8, -0.1671E-08_r8, -0.7740E-08_r8, & -0.3032E-07_r8, -0.1076E-06_r8, -0.3582E-06_r8, -0.1120E-05_r8, -0.3270E-05_r8, & -0.8704E-05_r8, -0.2058E-04_r8, -0.4235E-04_r8, -0.7649E-04_r8, -0.1257E-03_r8, & -0.1945E-03_r8, -0.2874E-03_r8, -0.4070E-03_r8, -0.5521E-03_r8, -0.7181E-03_r8, & -0.8990E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 5_r8, 5)_r8, & & -0.2419E-10_r8, -0.4788E-10_r8, -0.9401E-10_r8, -0.1815E-09_r8, -0.3385E-09_r8, & -0.6192E-09_r8, -0.1006E-08_r8, -0.1417E-08_r8, -0.1273E-08_r8, 0.7404E-09_r8, & 0.6068E-08_r8, 0.1148E-07_r8, 0.2021E-08_r8, -0.4165E-07_r8, -0.1281E-06_r8, & -0.2609E-06_r8, -0.4375E-06_r8, -0.6323E-06_r8, -0.7887E-06_r8, -0.8508E-06_r8, & -0.8067E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 6_r8, 6)_r8, & & 0.7114E-05_r8, 0.1419E-04_r8, 0.2827E-04_r8, 0.5627E-04_r8, 0.1117E-03_r8, & 0.2207E-03_r8, 0.4325E-03_r8, 0.8369E-03_r8, 0.1587E-02_r8, 0.2916E-02_r8, & 0.5120E-02_r8, 0.8468E-02_r8, 0.1310E-01_r8, 0.1913E-01_r8, 0.2690E-01_r8, & 0.3714E-01_r8, 0.5090E-01_r8, 0.6944E-01_r8, 0.9407E-01_r8, 0.1258E+00_r8, & 0.1651E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 6_r8, 6)_r8, & & 0.1388E-10_r8, -0.4180E-10_r8, -0.3601E-09_r8, -0.1820E-08_r8, -0.7993E-08_r8, & -0.3068E-07_r8, -0.1081E-06_r8, -0.3580E-06_r8, -0.1117E-05_r8, -0.3257E-05_r8, & -0.8667E-05_r8, -0.2049E-04_r8, -0.4218E-04_r8, -0.7620E-04_r8, -0.1253E-03_r8, & -0.1937E-03_r8, -0.2860E-03_r8, -0.4047E-03_r8, -0.5481E-03_r8, -0.7115E-03_r8, & -0.8885E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 6_r8, 6)_r8, & & -0.2406E-10_r8, -0.4762E-10_r8, -0.9351E-10_r8, -0.1806E-09_r8, -0.3370E-09_r8, & -0.6170E-09_r8, -0.1004E-08_r8, -0.1417E-08_r8, -0.1297E-08_r8, 0.6738E-09_r8, & 0.5895E-08_r8, 0.1113E-07_r8, 0.1466E-08_r8, -0.4265E-07_r8, -0.1298E-06_r8, & -0.2636E-06_r8, -0.4423E-06_r8, -0.6402E-06_r8, -0.8005E-06_r8, -0.8658E-06_r8, & -0.8222E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 7_r8, 7)_r8, & & 0.7113E-05_r8, 0.1418E-04_r8, 0.2826E-04_r8, 0.5625E-04_r8, 0.1117E-03_r8, & 0.2206E-03_r8, 0.4325E-03_r8, 0.8371E-03_r8, 0.1588E-02_r8, 0.2918E-02_r8, & 0.5128E-02_r8, 0.8491E-02_r8, 0.1315E-01_r8, 0.1923E-01_r8, 0.2710E-01_r8, & 0.3750E-01_r8, 0.5154E-01_r8, 0.7056E-01_r8, 0.9600E-01_r8, 0.1290E+00_r8, & 0.1703E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 7_r8, 7)_r8, & & -0.1889E-10_r8, -0.1062E-09_r8, -0.4847E-09_r8, -0.2053E-08_r8, -0.8389E-08_r8, & -0.3140E-07_r8, -0.1089E-06_r8, -0.3577E-06_r8, -0.1112E-05_r8, -0.3236E-05_r8, & -0.8607E-05_r8, -0.2035E-04_r8, -0.4192E-04_r8, -0.7576E-04_r8, -0.1245E-03_r8, & -0.1925E-03_r8, -0.2840E-03_r8, -0.4013E-03_r8, -0.5427E-03_r8, -0.7029E-03_r8, & -0.8756E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 7_r8, 7)_r8, & & -0.2385E-10_r8, -0.4722E-10_r8, -0.9273E-10_r8, -0.1791E-09_r8, -0.3348E-09_r8, & -0.6121E-09_r8, -0.9974E-09_r8, -0.1422E-08_r8, -0.1326E-08_r8, 0.5603E-09_r8, & 0.5604E-08_r8, 0.1061E-07_r8, 0.6106E-09_r8, -0.4398E-07_r8, -0.1321E-06_r8, & -0.2676E-06_r8, -0.4490E-06_r8, -0.6507E-06_r8, -0.8145E-06_r8, -0.8801E-06_r8, & -0.8311E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 8_r8, 8)_r8, & & 0.7110E-05_r8, 0.1418E-04_r8, 0.2825E-04_r8, 0.5623E-04_r8, 0.1116E-03_r8, & 0.2206E-03_r8, 0.4325E-03_r8, 0.8373E-03_r8, 0.1589E-02_r8, 0.2923E-02_r8, & 0.5141E-02_r8, 0.8526E-02_r8, 0.1324E-01_r8, 0.1940E-01_r8, 0.2741E-01_r8, & 0.3807E-01_r8, 0.5253E-01_r8, 0.7227E-01_r8, 0.9889E-01_r8, 0.1338E+00_r8, & 0.1777E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 8_r8, 8)_r8, & & -0.6983E-10_r8, -0.2063E-09_r8, -0.6785E-09_r8, -0.2416E-08_r8, -0.9000E-08_r8, & -0.3243E-07_r8, -0.1100E-06_r8, -0.3574E-06_r8, -0.1104E-05_r8, -0.3205E-05_r8, & -0.8516E-05_r8, -0.2014E-04_r8, -0.4151E-04_r8, -0.7508E-04_r8, -0.1234E-03_r8, & -0.1907E-03_r8, -0.2811E-03_r8, -0.3966E-03_r8, -0.5355E-03_r8, -0.6924E-03_r8, & -0.8613E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 8_r8, 8)_r8, & & -0.2353E-10_r8, -0.4659E-10_r8, -0.9153E-10_r8, -0.1769E-09_r8, -0.3313E-09_r8, & -0.6054E-09_r8, -0.9899E-09_r8, -0.1430E-08_r8, -0.1375E-08_r8, 0.3874E-09_r8, & 0.5171E-08_r8, 0.9807E-08_r8, -0.7345E-09_r8, -0.4604E-07_r8, -0.1356E-06_r8, & -0.2731E-06_r8, -0.4577E-06_r8, -0.6632E-06_r8, -0.8284E-06_r8, -0.8894E-06_r8, & -0.8267E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 9_r8, 9)_r8, & & 0.7105E-05_r8, 0.1417E-04_r8, 0.2823E-04_r8, 0.5620E-04_r8, 0.1116E-03_r8, & 0.2205E-03_r8, 0.4325E-03_r8, 0.8376E-03_r8, 0.1591E-02_r8, 0.2929E-02_r8, & 0.5162E-02_r8, 0.8581E-02_r8, 0.1336E-01_r8, 0.1966E-01_r8, 0.2790E-01_r8, & 0.3894E-01_r8, 0.5404E-01_r8, 0.7484E-01_r8, 0.1031E+00_r8, 0.1405E+00_r8, & 0.1880E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 9_r8, 9)_r8, & & -0.1481E-09_r8, -0.3601E-09_r8, -0.9762E-09_r8, -0.2973E-08_r8, -0.1014E-07_r8, & -0.3421E-07_r8, -0.1121E-06_r8, -0.3569E-06_r8, -0.1092E-05_r8, -0.3156E-05_r8, & -0.8375E-05_r8, -0.1981E-04_r8, -0.4090E-04_r8, -0.7405E-04_r8, -0.1218E-03_r8, & -0.1881E-03_r8, -0.2770E-03_r8, -0.3906E-03_r8, -0.5269E-03_r8, -0.6810E-03_r8, & -0.8471E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip= 9_r8, 9)_r8, & & -0.2304E-10_r8, -0.4564E-10_r8, -0.8969E-10_r8, -0.1735E-09_r8, -0.3224E-09_r8, & -0.5933E-09_r8, -0.9756E-09_r8, -0.1428E-08_r8, -0.1446E-08_r8, 0.1156E-09_r8, & 0.4499E-08_r8, 0.8469E-08_r8, -0.2720E-08_r8, -0.4904E-07_r8, -0.1401E-06_r8, & -0.2801E-06_r8, -0.4681E-06_r8, -0.6761E-06_r8, -0.8387E-06_r8, -0.8879E-06_r8, & -0.8040E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=10_r8,10)_r8, & & 0.7098E-05_r8, 0.1415E-04_r8, 0.2821E-04_r8, 0.5615E-04_r8, 0.1115E-03_r8, & 0.2204E-03_r8, 0.4325E-03_r8, 0.8382E-03_r8, 0.1593E-02_r8, 0.2940E-02_r8, & 0.5194E-02_r8, 0.8666E-02_r8, 0.1356E-01_r8, 0.2006E-01_r8, 0.2865E-01_r8, & 0.4026E-01_r8, 0.5631E-01_r8, 0.7863E-01_r8, 0.1093E+00_r8, 0.1500E+00_r8, & 0.2017E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=10_r8,10)_r8, & & -0.2661E-09_r8, -0.5923E-09_r8, -0.1426E-08_r8, -0.3816E-08_r8, -0.1159E-07_r8, & -0.3654E-07_r8, -0.1143E-06_r8, -0.3559E-06_r8, -0.1074E-05_r8, -0.3083E-05_r8, & -0.8159E-05_r8, -0.1932E-04_r8, -0.3998E-04_r8, -0.7253E-04_r8, -0.1194E-03_r8, & -0.1845E-03_r8, -0.2718E-03_r8, -0.3833E-03_r8, -0.5176E-03_r8, -0.6701E-03_r8, & -0.8354E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=10_r8,10)_r8, & & -0.2232E-10_r8, -0.4421E-10_r8, -0.8695E-10_r8, -0.1684E-09_r8, -0.3141E-09_r8, & -0.5765E-09_r8, -0.9606E-09_r8, -0.1434E-08_r8, -0.1551E-08_r8, -0.2663E-09_r8, & 0.3515E-08_r8, 0.6549E-08_r8, -0.5479E-08_r8, -0.5312E-07_r8, -0.1460E-06_r8, & -0.2883E-06_r8, -0.4787E-06_r8, -0.6863E-06_r8, -0.8399E-06_r8, -0.8703E-06_r8, & -0.7602E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=11_r8,11)_r8, & & 0.7088E-05_r8, 0.1413E-04_r8, 0.2817E-04_r8, 0.5608E-04_r8, 0.1114E-03_r8, & 0.2203E-03_r8, 0.4325E-03_r8, 0.8390E-03_r8, 0.1598E-02_r8, 0.2955E-02_r8, & 0.5242E-02_r8, 0.8796E-02_r8, 0.1386E-01_r8, 0.2067E-01_r8, 0.2978E-01_r8, & 0.4224E-01_r8, 0.5964E-01_r8, 0.8406E-01_r8, 0.1178E+00_r8, 0.1627E+00_r8, & 0.2197E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=11_r8,11)_r8, & & -0.4394E-09_r8, -0.9330E-09_r8, -0.2086E-08_r8, -0.5054E-08_r8, -0.1373E-07_r8, & -0.3971E-07_r8, -0.1178E-06_r8, -0.3546E-06_r8, -0.1049E-05_r8, -0.2976E-05_r8, & -0.7847E-05_r8, -0.1860E-04_r8, -0.3864E-04_r8, -0.7038E-04_r8, -0.1162E-03_r8, & -0.1798E-03_r8, -0.2654E-03_r8, -0.3754E-03_r8, -0.5091E-03_r8, -0.6621E-03_r8, & -0.8286E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=11_r8,11)_r8, & & -0.2127E-10_r8, -0.4216E-10_r8, -0.8300E-10_r8, -0.1611E-09_r8, -0.3019E-09_r8, & -0.5597E-09_r8, -0.9431E-09_r8, -0.1450E-08_r8, -0.1694E-08_r8, -0.7913E-09_r8, & 0.2144E-08_r8, 0.3990E-08_r8, -0.9282E-08_r8, -0.5810E-07_r8, -0.1525E-06_r8, & -0.2965E-06_r8, -0.4869E-06_r8, -0.6894E-06_r8, -0.8281E-06_r8, -0.8350E-06_r8, & -0.6956E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=12_r8,12)_r8, & & 0.7073E-05_r8, 0.1411E-04_r8, 0.2811E-04_r8, 0.5598E-04_r8, 0.1112E-03_r8, & 0.2201E-03_r8, 0.4324E-03_r8, 0.8401E-03_r8, 0.1604E-02_r8, 0.2978E-02_r8, & 0.5313E-02_r8, 0.8987E-02_r8, 0.1431E-01_r8, 0.2158E-01_r8, 0.3145E-01_r8, & 0.4512E-01_r8, 0.6440E-01_r8, 0.9161E-01_r8, 0.1293E+00_r8, 0.1793E+00_r8, & 0.2426E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=12_r8,12)_r8, & & -0.6829E-09_r8, -0.1412E-08_r8, -0.3014E-08_r8, -0.6799E-08_r8, -0.1675E-07_r8, & -0.4450E-07_r8, -0.1235E-06_r8, -0.3538E-06_r8, -0.1014E-05_r8, -0.2827E-05_r8, & -0.7407E-05_r8, -0.1759E-04_r8, -0.3676E-04_r8, -0.6744E-04_r8, -0.1120E-03_r8, & -0.1742E-03_r8, -0.2585E-03_r8, -0.3683E-03_r8, -0.5034E-03_r8, -0.6594E-03_r8, & -0.8290E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=12_r8,12)_r8, & & -0.1985E-10_r8, -0.3937E-10_r8, -0.7761E-10_r8, -0.1511E-09_r8, -0.2855E-09_r8, & -0.5313E-09_r8, -0.9251E-09_r8, -0.1470E-08_r8, -0.1898E-08_r8, -0.1519E-08_r8, & 0.2914E-09_r8, 0.5675E-09_r8, -0.1405E-07_r8, -0.6359E-07_r8, -0.1584E-06_r8, & -0.3020E-06_r8, -0.4893E-06_r8, -0.6821E-06_r8, -0.8021E-06_r8, -0.7834E-06_r8, & -0.6105E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=13_r8,13)_r8, & & 0.7053E-05_r8, 0.1407E-04_r8, 0.2804E-04_r8, 0.5584E-04_r8, 0.1110E-03_r8, & 0.2198E-03_r8, 0.4324E-03_r8, 0.8420E-03_r8, 0.1613E-02_r8, 0.3011E-02_r8, & 0.5416E-02_r8, 0.9263E-02_r8, 0.1495E-01_r8, 0.2289E-01_r8, 0.3384E-01_r8, & 0.4918E-01_r8, 0.7096E-01_r8, 0.1018E+00_r8, 0.1442E+00_r8, 0.2004E+00_r8, & 0.2708E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=13_r8,13)_r8, & & -0.1004E-08_r8, -0.2043E-08_r8, -0.4239E-08_r8, -0.9104E-08_r8, -0.2075E-07_r8, & -0.5096E-07_r8, -0.1307E-06_r8, -0.3520E-06_r8, -0.9671E-06_r8, -0.2630E-05_r8, & -0.6825E-05_r8, -0.1624E-04_r8, -0.3429E-04_r8, -0.6369E-04_r8, -0.1069E-03_r8, & -0.1680E-03_r8, -0.2520E-03_r8, -0.3635E-03_r8, -0.5029E-03_r8, -0.6647E-03_r8, & -0.8390E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=13_r8,13)_r8, & & -0.1807E-10_r8, -0.3587E-10_r8, -0.7085E-10_r8, -0.1385E-09_r8, -0.2648E-09_r8, & -0.4958E-09_r8, -0.8900E-09_r8, -0.1473E-08_r8, -0.2112E-08_r8, -0.2399E-08_r8, & -0.2002E-08_r8, -0.3646E-08_r8, -0.1931E-07_r8, -0.6852E-07_r8, -0.1618E-06_r8, & -0.3021E-06_r8, -0.4828E-06_r8, -0.6634E-06_r8, -0.7643E-06_r8, -0.7177E-06_r8, & -0.5054E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=14_r8,14)_r8, & & 0.7029E-05_r8, 0.1402E-04_r8, 0.2795E-04_r8, 0.5567E-04_r8, 0.1107E-03_r8, & 0.2195E-03_r8, 0.4326E-03_r8, 0.8447E-03_r8, 0.1625E-02_r8, 0.3056E-02_r8, & 0.5554E-02_r8, 0.9638E-02_r8, 0.1584E-01_r8, 0.2470E-01_r8, 0.3713E-01_r8, & 0.5470E-01_r8, 0.7969E-01_r8, 0.1149E+00_r8, 0.1631E+00_r8, 0.2263E+00_r8, & 0.3045E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=14_r8,14)_r8, & & -0.1387E-08_r8, -0.2798E-08_r8, -0.5706E-08_r8, -0.1187E-07_r8, -0.2564E-07_r8, & -0.5866E-07_r8, -0.1398E-06_r8, -0.3516E-06_r8, -0.9148E-06_r8, -0.2398E-05_r8, & -0.6122E-05_r8, -0.1459E-04_r8, -0.3125E-04_r8, -0.5923E-04_r8, -0.1013E-03_r8, & -0.1620E-03_r8, -0.2473E-03_r8, -0.3631E-03_r8, -0.5098E-03_r8, -0.6800E-03_r8, & -0.8603E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=14_r8,14)_r8, & & -0.1610E-10_r8, -0.3200E-10_r8, -0.6337E-10_r8, -0.1245E-09_r8, -0.2408E-09_r8, & -0.4533E-09_r8, -0.8405E-09_r8, -0.1464E-08_r8, -0.2337E-08_r8, -0.3341E-08_r8, & -0.4467E-08_r8, -0.8154E-08_r8, -0.2436E-07_r8, -0.7128E-07_r8, -0.1604E-06_r8, & -0.2945E-06_r8, -0.4666E-06_r8, -0.6357E-06_r8, -0.7187E-06_r8, -0.6419E-06_r8, & -0.3795E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=15_r8,15)_r8, & & 0.7003E-05_r8, 0.1397E-04_r8, 0.2785E-04_r8, 0.5550E-04_r8, 0.1104E-03_r8, & 0.2192E-03_r8, 0.4329E-03_r8, 0.8481E-03_r8, 0.1641E-02_r8, 0.3112E-02_r8, & 0.5729E-02_r8, 0.1012E-01_r8, 0.1698E-01_r8, 0.2708E-01_r8, 0.4146E-01_r8, & 0.6189E-01_r8, 0.9085E-01_r8, 0.1313E+00_r8, 0.1862E+00_r8, 0.2571E+00_r8, & 0.3433E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=15_r8,15)_r8, & & -0.1788E-08_r8, -0.3588E-08_r8, -0.7244E-08_r8, -0.1479E-07_r8, -0.3083E-07_r8, & -0.6671E-07_r8, -0.1497E-06_r8, -0.3519E-06_r8, -0.8607E-06_r8, -0.2154E-05_r8, & -0.5364E-05_r8, -0.1276E-04_r8, -0.2785E-04_r8, -0.5435E-04_r8, -0.9573E-04_r8, & -0.1570E-03_r8, -0.2455E-03_r8, -0.3682E-03_r8, -0.5253E-03_r8, -0.7065E-03_r8, & -0.8938E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=15_r8,15)_r8, & & -0.1429E-10_r8, -0.2843E-10_r8, -0.5645E-10_r8, -0.1115E-09_r8, -0.2181E-09_r8, & -0.4200E-09_r8, -0.7916E-09_r8, -0.1460E-08_r8, -0.2542E-08_r8, -0.4168E-08_r8, & -0.6703E-08_r8, -0.1215E-07_r8, -0.2821E-07_r8, -0.7073E-07_r8, -0.1530E-06_r8, & -0.2791E-06_r8, -0.4426E-06_r8, -0.6027E-06_r8, -0.6707E-06_r8, -0.5591E-06_r8, & -0.2328E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=16_r8,16)_r8, & & 0.6981E-05_r8, 0.1393E-04_r8, 0.2777E-04_r8, 0.5535E-04_r8, 0.1102E-03_r8, & 0.2190E-03_r8, 0.4336E-03_r8, 0.8527E-03_r8, 0.1660E-02_r8, 0.3177E-02_r8, & 0.5930E-02_r8, 0.1068E-01_r8, 0.1836E-01_r8, 0.3000E-01_r8, 0.4686E-01_r8, & 0.7083E-01_r8, 0.1046E+00_r8, 0.1511E+00_r8, 0.2134E+00_r8, 0.2924E+00_r8, & 0.3861E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=16_r8,16)_r8, & & -0.2141E-08_r8, -0.4286E-08_r8, -0.8603E-08_r8, -0.1737E-07_r8, -0.3548E-07_r8, & -0.7410E-07_r8, -0.1590E-06_r8, -0.3537E-06_r8, -0.8142E-06_r8, -0.1935E-05_r8, & -0.4658E-05_r8, -0.1099E-04_r8, -0.2444E-04_r8, -0.4948E-04_r8, -0.9067E-04_r8, & -0.1538E-03_r8, -0.2474E-03_r8, -0.3793E-03_r8, -0.5495E-03_r8, -0.7439E-03_r8, & -0.9383E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=16_r8,16)_r8, & & -0.1295E-10_r8, -0.2581E-10_r8, -0.5136E-10_r8, -0.1019E-09_r8, -0.2011E-09_r8, & -0.3916E-09_r8, -0.7585E-09_r8, -0.1439E-08_r8, -0.2648E-08_r8, -0.4747E-08_r8, & -0.8301E-08_r8, -0.1499E-07_r8, -0.3024E-07_r8, -0.6702E-07_r8, -0.1399E-06_r8, & -0.2564E-06_r8, -0.4117E-06_r8, -0.5669E-06_r8, -0.6239E-06_r8, -0.4748E-06_r8, & -0.7013E-07_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=17_r8,17)_r8, & & 0.6967E-05_r8, 0.1390E-04_r8, 0.2772E-04_r8, 0.5527E-04_r8, 0.1101E-03_r8, & 0.2191E-03_r8, 0.4346E-03_r8, 0.8579E-03_r8, 0.1679E-02_r8, 0.3244E-02_r8, & 0.6139E-02_r8, 0.1127E-01_r8, 0.1986E-01_r8, 0.3330E-01_r8, 0.5315E-01_r8, & 0.8139E-01_r8, 0.1207E+00_r8, 0.1741E+00_r8, 0.2442E+00_r8, 0.3311E+00_r8, & 0.4312E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=17_r8,17)_r8, & & -0.2400E-08_r8, -0.4796E-08_r8, -0.9599E-08_r8, -0.1927E-07_r8, -0.3892E-07_r8, & -0.7954E-07_r8, -0.1661E-06_r8, -0.3540E-06_r8, -0.7780E-06_r8, -0.1763E-05_r8, & -0.4092E-05_r8, -0.9512E-05_r8, -0.2142E-04_r8, -0.4502E-04_r8, -0.8640E-04_r8, & -0.1525E-03_r8, -0.2526E-03_r8, -0.3955E-03_r8, -0.5805E-03_r8, -0.7897E-03_r8, & -0.9899E-03_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=17_r8,17)_r8, & & -0.1220E-10_r8, -0.2432E-10_r8, -0.4845E-10_r8, -0.9640E-10_r8, -0.1912E-09_r8, & -0.3771E-09_r8, -0.7392E-09_r8, -0.1420E-08_r8, -0.2702E-08_r8, -0.5049E-08_r8, & -0.9214E-08_r8, -0.1659E-07_r8, -0.3101E-07_r8, -0.6162E-07_r8, -0.1235E-06_r8, & -0.2287E-06_r8, -0.3755E-06_r8, -0.5274E-06_r8, -0.5790E-06_r8, -0.3947E-06_r8, & 0.1003E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=18_r8,18)_r8, & & 0.6963E-05_r8, 0.1389E-04_r8, 0.2771E-04_r8, 0.5526E-04_r8, 0.1101E-03_r8, & 0.2193E-03_r8, 0.4359E-03_r8, 0.8629E-03_r8, 0.1698E-02_r8, 0.3305E-02_r8, & 0.6331E-02_r8, 0.1183E-01_r8, 0.2133E-01_r8, 0.3671E-01_r8, 0.5996E-01_r8, & 0.9320E-01_r8, 0.1389E+00_r8, 0.1999E+00_r8, 0.2778E+00_r8, 0.3717E+00_r8, & 0.4761E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=18_r8,18)_r8, & & -0.2557E-08_r8, -0.5106E-08_r8, -0.1020E-07_r8, -0.2043E-07_r8, -0.4103E-07_r8, & -0.8293E-07_r8, -0.1697E-06_r8, -0.3531E-06_r8, -0.7531E-06_r8, -0.1645E-05_r8, & -0.3690E-05_r8, -0.8411E-05_r8, -0.1902E-04_r8, -0.4118E-04_r8, -0.8276E-04_r8, & -0.1525E-03_r8, -0.2601E-03_r8, -0.4147E-03_r8, -0.6149E-03_r8, -0.8384E-03_r8, & -0.1042E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=18_r8,18)_r8, & & -0.1189E-10_r8, -0.2372E-10_r8, -0.4729E-10_r8, -0.9421E-10_r8, -0.1873E-09_r8, & -0.3713E-09_r8, -0.7317E-09_r8, -0.1437E-08_r8, -0.2764E-08_r8, -0.5243E-08_r8, & -0.9691E-08_r8, -0.1751E-07_r8, -0.3122E-07_r8, -0.5693E-07_r8, -0.1076E-06_r8, & -0.1981E-06_r8, -0.3324E-06_r8, -0.4785E-06_r8, -0.5280E-06_r8, -0.3174E-06_r8, & 0.2672E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=19_r8,19)_r8, & & 0.6963E-05_r8, 0.1389E-04_r8, 0.2771E-04_r8, 0.5528E-04_r8, 0.1102E-03_r8, & 0.2196E-03_r8, 0.4370E-03_r8, 0.8672E-03_r8, 0.1712E-02_r8, 0.3355E-02_r8, & 0.6488E-02_r8, 0.1230E-01_r8, 0.2262E-01_r8, 0.3989E-01_r8, 0.6677E-01_r8, & 0.1056E+00_r8, 0.1586E+00_r8, 0.2276E+00_r8, 0.3131E+00_r8, 0.4124E+00_r8, & 0.5188E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=19_r8,19)_r8, & & -0.2630E-08_r8, -0.5249E-08_r8, -0.1048E-07_r8, -0.2096E-07_r8, -0.4198E-07_r8, & -0.8440E-07_r8, -0.1710E-06_r8, -0.3513E-06_r8, -0.7326E-06_r8, -0.1562E-05_r8, & -0.3416E-05_r8, -0.7637E-05_r8, -0.1719E-04_r8, -0.3795E-04_r8, -0.7926E-04_r8, & -0.1524E-03_r8, -0.2680E-03_r8, -0.4344E-03_r8, -0.6486E-03_r8, -0.8838E-03_r8, & -0.1089E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=19_r8,19)_r8, & & -0.1188E-10_r8, -0.2369E-10_r8, -0.4725E-10_r8, -0.9417E-10_r8, -0.1875E-09_r8, & -0.3725E-09_r8, -0.7365E-09_r8, -0.1445E-08_r8, -0.2814E-08_r8, -0.5384E-08_r8, & -0.1008E-07_r8, -0.1816E-07_r8, -0.3179E-07_r8, -0.5453E-07_r8, -0.9500E-07_r8, & -0.1679E-06_r8, -0.2819E-06_r8, -0.4109E-06_r8, -0.4555E-06_r8, -0.2283E-06_r8, & 0.4283E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=20_r8,20)_r8, & & 0.6963E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5529E-04_r8, 0.1103E-03_r8, & 0.2198E-03_r8, 0.4377E-03_r8, 0.8701E-03_r8, 0.1723E-02_r8, 0.3391E-02_r8, & 0.6606E-02_r8, 0.1266E-01_r8, 0.2366E-01_r8, 0.4262E-01_r8, 0.7304E-01_r8, & 0.1179E+00_r8, 0.1789E+00_r8, 0.2563E+00_r8, 0.3487E+00_r8, 0.4516E+00_r8, & 0.5572E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=20_r8,20)_r8, & & -0.2651E-08_r8, -0.5291E-08_r8, -0.1056E-07_r8, -0.2110E-07_r8, -0.4221E-07_r8, & -0.8462E-07_r8, -0.1705E-06_r8, -0.3466E-06_r8, -0.7155E-06_r8, -0.1501E-05_r8, & -0.3223E-05_r8, -0.7079E-05_r8, -0.1581E-04_r8, -0.3517E-04_r8, -0.7553E-04_r8, & -0.1510E-03_r8, -0.2746E-03_r8, -0.4528E-03_r8, -0.6789E-03_r8, -0.9214E-03_r8, & -0.1124E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=20_r8,20)_r8, & & -0.1193E-10_r8, -0.2380E-10_r8, -0.4748E-10_r8, -0.9465E-10_r8, -0.1886E-09_r8, & -0.3751E-09_r8, -0.7436E-09_r8, -0.1466E-08_r8, -0.2872E-08_r8, -0.5508E-08_r8, & -0.1038E-07_r8, -0.1891E-07_r8, -0.3279E-07_r8, -0.5420E-07_r8, -0.8711E-07_r8, & -0.1403E-06_r8, -0.2248E-06_r8, -0.3221E-06_r8, -0.3459E-06_r8, -0.1066E-06_r8, & 0.5938E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=21_r8,21)_r8, & & 0.6964E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5530E-04_r8, 0.1103E-03_r8, & 0.2199E-03_r8, 0.4382E-03_r8, 0.8719E-03_r8, 0.1730E-02_r8, 0.3416E-02_r8, & 0.6690E-02_r8, 0.1293E-01_r8, 0.2445E-01_r8, 0.4479E-01_r8, 0.7837E-01_r8, & 0.1291E+00_r8, 0.1985E+00_r8, 0.2846E+00_r8, 0.3831E+00_r8, 0.4875E+00_r8, & 0.5902E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=21_r8,21)_r8, & & -0.2654E-08_r8, -0.5296E-08_r8, -0.1057E-07_r8, -0.2111E-07_r8, -0.4219E-07_r8, & -0.8445E-07_r8, -0.1696E-06_r8, -0.3428E-06_r8, -0.7013E-06_r8, -0.1458E-05_r8, & -0.3084E-05_r8, -0.6678E-05_r8, -0.1476E-04_r8, -0.3284E-04_r8, -0.7173E-04_r8, & -0.1481E-03_r8, -0.2786E-03_r8, -0.4688E-03_r8, -0.7052E-03_r8, -0.9506E-03_r8, & -0.1148E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=21_r8,21)_r8, & & -0.1195E-10_r8, -0.2384E-10_r8, -0.4755E-10_r8, -0.9482E-10_r8, -0.1890E-09_r8, & -0.3761E-09_r8, -0.7469E-09_r8, -0.1476E-08_r8, -0.2892E-08_r8, -0.5603E-08_r8, & -0.1060E-07_r8, -0.1942E-07_r8, -0.3393E-07_r8, -0.5508E-07_r8, -0.8290E-07_r8, & -0.1182E-06_r8, -0.1657E-06_r8, -0.2170E-06_r8, -0.1997E-06_r8, 0.6227E-07_r8, & 0.7847E-06_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=22_r8,22)_r8, & & 0.6964E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5530E-04_r8, 0.1103E-03_r8, & 0.2200E-03_r8, 0.4385E-03_r8, 0.8731E-03_r8, 0.1735E-02_r8, 0.3433E-02_r8, & 0.6748E-02_r8, 0.1311E-01_r8, 0.2502E-01_r8, 0.4642E-01_r8, 0.8258E-01_r8, & 0.1385E+00_r8, 0.2160E+00_r8, 0.3107E+00_r8, 0.4146E+00_r8, 0.5188E+00_r8, & 0.6171E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=22_r8,22)_r8, & & -0.2653E-08_r8, -0.5295E-08_r8, -0.1057E-07_r8, -0.2110E-07_r8, -0.4215E-07_r8, & -0.8430E-07_r8, -0.1690E-06_r8, -0.3403E-06_r8, -0.6919E-06_r8, -0.1427E-05_r8, & -0.2991E-05_r8, -0.6399E-05_r8, -0.1398E-04_r8, -0.3099E-04_r8, -0.6824E-04_r8, & -0.1441E-03_r8, -0.2795E-03_r8, -0.4814E-03_r8, -0.7282E-03_r8, -0.9739E-03_r8, & -0.1163E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=22_r8,22)_r8, & & -0.1195E-10_r8, -0.2384E-10_r8, -0.4756E-10_r8, -0.9485E-10_r8, -0.1891E-09_r8, & -0.3765E-09_r8, -0.7483E-09_r8, -0.1481E-08_r8, -0.2908E-08_r8, -0.5660E-08_r8, & -0.1075E-07_r8, -0.1980E-07_r8, -0.3472E-07_r8, -0.5626E-07_r8, -0.8149E-07_r8, & -0.1027E-06_r8, -0.1136E-06_r8, -0.1071E-06_r8, -0.2991E-07_r8, 0.2743E-06_r8, & 0.1017E-05_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=23_r8,23)_r8, & & 0.6964E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5530E-04_r8, 0.1103E-03_r8, & 0.2200E-03_r8, 0.4387E-03_r8, 0.8738E-03_r8, 0.1738E-02_r8, 0.3445E-02_r8, & 0.6786E-02_r8, 0.1324E-01_r8, 0.2541E-01_r8, 0.4757E-01_r8, 0.8567E-01_r8, & 0.1459E+00_r8, 0.2303E+00_r8, 0.3331E+00_r8, 0.4415E+00_r8, 0.5444E+00_r8, & 0.6377E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=23_r8,23)_r8, & & -0.2653E-08_r8, -0.5294E-08_r8, -0.1057E-07_r8, -0.2109E-07_r8, -0.4212E-07_r8, & -0.8420E-07_r8, -0.1686E-06_r8, -0.3388E-06_r8, -0.6858E-06_r8, -0.1406E-05_r8, & -0.2928E-05_r8, -0.6206E-05_r8, -0.1344E-04_r8, -0.2961E-04_r8, -0.6533E-04_r8, & -0.1399E-03_r8, -0.2780E-03_r8, -0.4904E-03_r8, -0.7488E-03_r8, -0.9953E-03_r8, & -0.1175E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=23_r8,23)_r8, & & -0.1195E-10_r8, -0.2384E-10_r8, -0.4756E-10_r8, -0.9485E-10_r8, -0.1891E-09_r8, & -0.3767E-09_r8, -0.7492E-09_r8, -0.1485E-08_r8, -0.2924E-08_r8, -0.5671E-08_r8, & -0.1084E-07_r8, -0.2009E-07_r8, -0.3549E-07_r8, -0.5773E-07_r8, -0.8208E-07_r8, & -0.9394E-07_r8, -0.7270E-07_r8, -0.3947E-08_r8, 0.1456E-06_r8, 0.5083E-06_r8, & 0.1270E-05_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=24_r8,24)_r8, & & 0.6964E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5531E-04_r8, 0.1103E-03_r8, & 0.2201E-03_r8, 0.4388E-03_r8, 0.8743E-03_r8, 0.1740E-02_r8, 0.3452E-02_r8, & 0.6811E-02_r8, 0.1332E-01_r8, 0.2567E-01_r8, 0.4835E-01_r8, 0.8782E-01_r8, & 0.1511E+00_r8, 0.2412E+00_r8, 0.3507E+00_r8, 0.4627E+00_r8, 0.5638E+00_r8, & 0.6526E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=24_r8,24)_r8, & & -0.2653E-08_r8, -0.5294E-08_r8, -0.1056E-07_r8, -0.2109E-07_r8, -0.4210E-07_r8, & -0.8413E-07_r8, -0.1684E-06_r8, -0.3379E-06_r8, -0.6820E-06_r8, -0.1393E-05_r8, & -0.2889E-05_r8, -0.6080E-05_r8, -0.1307E-04_r8, -0.2861E-04_r8, -0.6310E-04_r8, & -0.1363E-03_r8, -0.2758E-03_r8, -0.4969E-03_r8, -0.7681E-03_r8, -0.1017E-02_r8, & -0.1186E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=24_r8,24)_r8, & & -0.1195E-10_r8, -0.2384E-10_r8, -0.4756E-10_r8, -0.9485E-10_r8, -0.1891E-09_r8, & -0.3768E-09_r8, -0.7497E-09_r8, -0.1487E-08_r8, -0.2933E-08_r8, -0.5710E-08_r8, & -0.1089E-07_r8, -0.2037E-07_r8, -0.3616E-07_r8, -0.5907E-07_r8, -0.8351E-07_r8, & -0.8925E-07_r8, -0.4122E-07_r8, 0.8779E-07_r8, 0.3143E-06_r8, 0.7281E-06_r8, & 0.1500E-05_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=25_r8,25)_r8, & & 0.6964E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5531E-04_r8, 0.1103E-03_r8, & 0.2201E-03_r8, 0.4388E-03_r8, 0.8745E-03_r8, 0.1741E-02_r8, 0.3456E-02_r8, & 0.6827E-02_r8, 0.1337E-01_r8, 0.2584E-01_r8, 0.4885E-01_r8, 0.8924E-01_r8, & 0.1547E+00_r8, 0.2488E+00_r8, 0.3632E+00_r8, 0.4779E+00_r8, 0.5771E+00_r8, & 0.6627E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=25_r8,25)_r8, & & -0.2653E-08_r8, -0.5293E-08_r8, -0.1056E-07_r8, -0.2108E-07_r8, -0.4209E-07_r8, & -0.8409E-07_r8, -0.1682E-06_r8, -0.3373E-06_r8, -0.6797E-06_r8, -0.1383E-05_r8, & -0.2862E-05_r8, -0.5993E-05_r8, -0.1283E-04_r8, -0.2795E-04_r8, -0.6158E-04_r8, & -0.1338E-03_r8, -0.2743E-03_r8, -0.5030E-03_r8, -0.7863E-03_r8, -0.1038E-02_r8, & -0.1196E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=25_r8,25)_r8, & & -0.1195E-10_r8, -0.2383E-10_r8, -0.4755E-10_r8, -0.9484E-10_r8, -0.1891E-09_r8, & -0.3768E-09_r8, -0.7499E-09_r8, -0.1489E-08_r8, -0.2939E-08_r8, -0.5741E-08_r8, & -0.1100E-07_r8, -0.2066E-07_r8, -0.3660E-07_r8, -0.6002E-07_r8, -0.8431E-07_r8, & -0.8556E-07_r8, -0.1674E-07_r8, 0.1638E-06_r8, 0.4525E-06_r8, 0.8949E-06_r8, & 0.1669E-05_r8, & ! DATA ((o1(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=26_r8,26)_r8, & & 0.6964E-05_r8, 0.1389E-04_r8, 0.2772E-04_r8, 0.5531E-04_r8, 0.1103E-03_r8, & 0.2201E-03_r8, 0.4389E-03_r8, 0.8747E-03_r8, 0.1741E-02_r8, 0.3458E-02_r8, & 0.6836E-02_r8, 0.1340E-01_r8, 0.2594E-01_r8, 0.4916E-01_r8, 0.9011E-01_r8, & 0.1569E+00_r8, 0.2536E+00_r8, 0.3714E+00_r8, 0.4877E+00_r8, 0.5856E+00_r8, & 0.6695E+00_r8, & ! DATA ((o2(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=26_r8,26)_r8, & & -0.2652E-08_r8, -0.5292E-08_r8, -0.1056E-07_r8, -0.2108E-07_r8, -0.4208E-07_r8, & -0.8406E-07_r8, -0.1681E-06_r8, -0.3369E-06_r8, -0.6784E-06_r8, -0.1378E-05_r8, & -0.2843E-05_r8, -0.5944E-05_r8, -0.1269E-04_r8, -0.2759E-04_r8, -0.6078E-04_r8, & -0.1326E-03_r8, -0.2742E-03_r8, -0.5088E-03_r8, -0.8013E-03_r8, -0.1054E-02_r8, & -0.1202E-02_r8, & ! DATA ((o3(ip_r8,iw_r8,1)_r8,iw=1_r8,21)_r8,ip=26_r8,26)_r8, & & -0.1194E-10_r8, -0.2383E-10_r8, -0.4754E-10_r8, -0.9482E-10_r8, -0.1891E-09_r8, & -0.3768E-09_r8, -0.7499E-09_r8, -0.1489E-08_r8, -0.2941E-08_r8, -0.5752E-08_r8, & -0.1104E-07_r8, -0.2069E-07_r8, -0.3661E-07_r8, -0.6012E-07_r8, -0.8399E-07_r8, & -0.8183E-07_r8, 0.1930E-08_r8, 0.2167E-06_r8, 0.5434E-06_r8, 0.9990E-06_r8, & 0.1787E-05_r8/),SHAPE=(/nx*3*no/)) it=0 DO k=1,nx DO i=1,3 DO j=1,no it=it+1 IF(i==1) THEN !WRITE(*,'(a5,2e17.9) ' )'o1 ',data2(it),o1(k,j) o1(k,j,1)=data2(it) END IF IF(i==2)THEN !WRITE(*,'(a5,2e17.9) ' )'o2 ',data2(it),o2(k,j) o2(k,j,1)=data2(it) END IF IF(i==3) THEN !WRITE(*,'(a5,2e17.9) ' )'o3 ',data2(it),o3(k,j,1) o3(k,j,1) =data2(it) END IF END DO END DO END DO ! !----------------------------------------------------------------------- ! ! End of RADDATA ! !----------------------------------------------------------------------- ! END SUBROUTINE raddata END MODULE Rad_CliRadLW !PROGRAM Main ! USE Rad_CliRadLW, ONLY:InitCliRadLW ! IMPLICIT NONE ! REAL :: gkc1(6,2) ! DATA gkc1/ 0.1395,0.1407,0.1549,0.1357,0.0182,0.0220, & ! 0.0766,0.1372,0.1189,0.0335,0.0169,0.0059/ ! REAL, PARAMETER :: gkc(6,2)=RESHAPE(SOURCE=(/& ! 0.1395,0.1407,0.1549,0.1357,0.0182,0.0220,& ! 0.0766,0.1372,0.1189,0.0335,0.0169,0.0059/),SHAPE=(/6,2/)) ! ! CALL InitCliRadLW(.TRUE.) ! !-----gkc is the planck-weighted co2 k-distribution function ! in the band-wing and band-center regions given in table 7. ! for computing efficiency, sub-bands 3a and 3c are combined. !END PROGRAM Main