diff --git a/src/MNH/BASIC.f90 b/src/MNH/BASIC.f90
index d5183c46758b2534ba86787e61b908d9530ecb0e..0ae2370529f6dbbcf6679917b37d63f41945630e 100644
--- a/src/MNH/BASIC.f90
+++ b/src/MNH/BASIC.f90
@@ -41685,7 +41685,7 @@ IMPLICIT NONE
!! ---------------------
! check if output array is large enough
IF (KSPARSEDIM.LT.457) THEN
-+ call Print_msg( NVERB_FATAL, 'GEN', 'CH_SPARSE_GAZ', 'array KSPARSE is too small' )
+ call Print_msg( NVERB_FATAL, 'GEN', 'CH_SPARSE_GAZ', 'array KSPARSE is too small' )
END IF
!O3/O3
KSPARSE(1, 1)=1
diff --git a/src/MNH/ch_aqueous_tmicice.f90 b/src/MNH/ch_aqueous_tmicice.f90
index e51d52f374a2b6ff66cb7891b25af689cb400fd3..00cfb9d6ab22814c4691404c3bf4004dc1eb9bc1 100644
--- a/src/MNH/ch_aqueous_tmicice.f90
+++ b/src/MNH/ch_aqueous_tmicice.f90
@@ -573,8 +573,8 @@ IF( IMICRO >= 1 ) THEN
ZZW2(:,:) = 0.0
DO JL = 1,IMICRO
IF ( GRIM(JL) ) THEN
- ZZW1(JL,1) = MIN( ZZRCS(JL), XCRIMSS * ZZW(JL) * ZRCT(JL) & ! RCRIMSS
- * ZLBDAS(JL)**XEXCRIMSS * ZRHODREF(JL)**(-XCEXVT) )
+ ZZW1(JL,1) = MIN( ZZRCS(JL), XCRIMSS * ZZW(JL) * ZRCT(JL) * ZRST(JL) & ! RCRIMSS
+ * ZLBDAS(JL)**(XBS+XEXCRIMSS) * ZRHODREF(JL)**(-XCEXVT+1) )
ZZW2(JL,:) = ZZW1(JL,1) * ZCSVT(JL,:)/ZRCT(JL)
ZZW2(JL,:) = MAX(MIN(ZZW2(JL,:),(ZCSVT(JL,:)/PTSTEP)),0.0)
ZCRSVS(JL,:) = ZCRSVS(JL,:) - ZZW2(JL,:)
@@ -622,8 +622,8 @@ IF( IMICRO >= 1 ) THEN
ZZW2(:,:) = 0.0
DO JL = 1,IMICRO
IF ( GRIM(JL) .AND. (ZZRSS(JL)>0.0) ) THEN
- ZZW1(JL,2) = MIN( ZZRCS(JL), XCRIMSG * ZRCT(JL) * ZLBDAS(JL)**XEXCRIMSG & ! RCRIMSG
- * ZRHODREF(JL)**(-XCEXVT) - ZZW1(JL,1) )
+ ZZW1(JL,2) = MIN( ZZRCS(JL), XCRIMSG * ZRCT(JL) * ZRST(JL) * ZLBDAS(JL)**(XBS+XEXCRIMSG) & ! RCRIMSG
+ * ZRHODREF(JL)**(-XCEXVT+1) - ZZW1(JL,1) )
ZZW2(JL,:) = ZZW1(JL,2) * ZCSVT(JL,:)/ZRCT(JL)
ZZW2(JL,:) = MAX(MIN(ZZW2(JL,:),(ZCSVT(JL,:)/PTSTEP)),0.0)
ZCRSVS(JL,:) = ZCRSVS(JL,:) - ZZW2(JL,:)
@@ -731,7 +731,7 @@ IF( IMICRO >= 1 ) THEN
DO JL = 1,IMICRO
IF ( GACC(JL) ) THEN
ZZW1(JL,2) = & !! coef of RRACCS
- XFRACCSS*( ZLBDAS(JL)**XCXS )*( ZRHODREF(JL)**(-XCEXVT-1.) ) &
+ XFRACCSS*( ZRST(JL)*ZLBDAS(JL)**XBS )*( ZRHODREF(JL)**(-XCEXVT) ) &
*( XLBRACCS1/((ZLBDAS(JL)**2) ) + &
XLBRACCS2/( ZLBDAS(JL) * ZLBDAR(JL) ) + &
XLBRACCS3/( (ZLBDAR(JL)**2)) )/ZLBDAR(JL)**4
@@ -971,8 +971,8 @@ IF( IMICRO >= 1 ) THEN
WHERE( GDRY(:) )
ZZW1(:,3) = MIN( ZZRSS(:),XFSDRYG*ZZW(:) & ! RSDRYG
* EXP( XCOLEXSG*(ZZT(:)-XTT) ) &
- *( ZLBDAS(:)**(XCXS-XBS) )*( ZLBDAG(:)**XCXG ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
+ *ZRST(:)*( ZLBDAG(:)**XCXG ) &
+ *( ZRHODREF(:)**(-XCEXVT) ) &
*( XLBSDRYG1/( ZLBDAG(:)**2 ) + &
XLBSDRYG2/( ZLBDAG(:) * ZLBDAS(:) ) + &
XLBSDRYG3/( ZLBDAS(:)**2) ) )
diff --git a/src/MNH/default_desfmn.f90 b/src/MNH/default_desfmn.f90
index e9cb911452645c503e36a6ad0c3c6ce482434a17..67dde775a22dabd33d165459ca78edcc7ce611ba 100644
--- a/src/MNH/default_desfmn.f90
+++ b/src/MNH/default_desfmn.f90
@@ -275,24 +275,25 @@ USE MODD_EOL_SHARED_IO
USE MODD_ALLSTATION_n
!
!
-USE MODD_PARAM_LIMA, ONLY : LCOLD, LNUCL, LSEDI, LHHONI, LSNOW, LHAIL, LMEYERS, &
- NMOD_IFN, NMOM_I, XIFN_CONC, LIFN_HOM, CIFN_SPECIES, &
- CINT_MIXING, NMOD_IMM, NIND_SPECIE, LMURAKAMI, &
- YSNOW_T=>LSNOW_T, CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, &
- XFACTNUC_DEP, XFACTNUC_CON, &
- OWARM=>LWARM, LACTI, ORAIN=>LRAIN, OSEDC=>LSEDC, &
- OACTIT=>LACTIT, LBOUND, LSPRO, LADJ, LKHKO, &
- NMOD_CCN, XCCN_CONC, &
- LCCN_HOM, CCCN_MODES, &
- YALPHAR=>XALPHAR, YNUR=>XNUR, &
- YALPHAC=>XALPHAC, YNUC=>XNUC, CINI_CCN=>HINI_CCN, &
- CTYPE_CCN=>HTYPE_CCN, YFSOLUB_CCN=>XFSOLUB_CCN, &
- YACTEMP_CCN=>XACTEMP_CCN, YAERDIFF=>XAERDIFF, &
- YAERHEIGHT=>XAERHEIGHT, &
- LSCAV, LAERO_MASS, NPHILLIPS, &
- LCIBU, XNDEBRIS_CIBU, LRDSF, &
- ODEPOC=>LDEPOC, OVDEPOC=>XVDEPOC, OACTTKE=>LACTTKE, &
- LPTSPLIT, L_LFEEDBACKT=>LFEEDBACKT, L_NMAXITER=>NMAXITER, &
+USE MODD_PARAM_LIMA, ONLY : LCOLD, LNUCL, LSEDI, LHHONI, LSNOW, LHAIL, LMEYERS, &
+ NMOM_I, NMOM_S, NMOM_G, NMOM_H, &
+ NMOD_IFN, XIFN_CONC, LIFN_HOM, CIFN_SPECIES, &
+ CINT_MIXING, NMOD_IMM, NIND_SPECIE, LMURAKAMI, &
+ YSNOW_T=>LSNOW_T, CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, &
+ XFACTNUC_DEP, XFACTNUC_CON, &
+ OWARM=>LWARM, LACTI, ORAIN=>LRAIN, OSEDC=>LSEDC, &
+ OACTIT=>LACTIT, LBOUND, LSPRO, LADJ, LKHKO, NMOM_C, NMOM_R, &
+ NMOD_CCN, XCCN_CONC, LKESSLERAC, &
+ LCCN_HOM, CCCN_MODES, &
+ YALPHAR=>XALPHAR, YNUR=>XNUR, &
+ YALPHAC=>XALPHAC, YNUC=>XNUC, CINI_CCN=>HINI_CCN, &
+ CTYPE_CCN=>HTYPE_CCN, YFSOLUB_CCN=>XFSOLUB_CCN, &
+ YACTEMP_CCN=>XACTEMP_CCN, YAERDIFF=>XAERDIFF, &
+ YAERHEIGHT=>XAERHEIGHT, &
+ LSCAV, LAERO_MASS, NPHILLIPS, &
+ LCIBU, XNDEBRIS_CIBU, LRDSF, &
+ ODEPOC=>LDEPOC, OVDEPOC=>XVDEPOC, OACTTKE=>LACTTKE, &
+ LPTSPLIT, L_LFEEDBACKT=>LFEEDBACKT, L_NMAXITER=>NMAXITER, &
L_XMRSTEP=>XMRSTEP, L_XTSTEP_TS=>XTSTEP_TS
!
USE MODD_LATZ_EDFLX
@@ -983,71 +984,78 @@ IF (KMI == 1) THEN
L_XMRSTEP = 0.
L_XTSTEP_TS = 0.
!
- YNUC = 1.0
- YALPHAC = 3.0
- YNUR = 2.0
- YALPHAR = 1.0
-!
- OWARM = .TRUE.
- LACTI = .TRUE.
- ORAIN = .TRUE.
- OSEDC = .TRUE.
- OACTIT = .FALSE.
- LADJ = .TRUE.
- LSPRO = .FALSE.
- LKHKO = .FALSE.
- ODEPOC = .FALSE.
- LBOUND = .FALSE.
- OACTTKE = .TRUE.
-!
- OVDEPOC = 0.02 ! 2 cm/s
-!
- CINI_CCN = 'AER'
- CTYPE_CCN(:) = 'M'
-!
- YAERDIFF = 0.0
- YAERHEIGHT = 2000.
+ YNUC = 1.0
+ YALPHAC = 3.0
+ YNUR = 2.0
+ YALPHAR = 1.0
+!
+ OWARM = .TRUE.
+ LACTI = .TRUE.
+ ORAIN = .TRUE.
+ OSEDC = .TRUE.
+ OACTIT = .FALSE.
+ LADJ = .TRUE.
+ LSPRO = .FALSE.
+ LKHKO = .FALSE.
+ ODEPOC = .TRUE.
+ LBOUND = .FALSE.
+ OACTTKE = .TRUE.
+ LKESSLERAC = .FALSE.
+!
+ NMOM_C = 2
+ NMOM_R = 2
+!
+ OVDEPOC = 0.02 ! 2 cm/s
+!
+ CINI_CCN = 'AER'
+ CTYPE_CCN(:) = 'M'
+!
+ YAERDIFF = 0.0
+ YAERHEIGHT = 2000.
! YR_MEAN_CCN = 0.0 ! In case of 'CCN' initialization
! YLOGSIG_CCN = 0.0
- YFSOLUB_CCN = 1.0
- YACTEMP_CCN = 280.
+ YFSOLUB_CCN = 1.0
+ YACTEMP_CCN = 280.
!
- NMOD_CCN = 1
+ NMOD_CCN = 1
!
!* AP Scavenging
!
- LSCAV = .FALSE.
- LAERO_MASS = .FALSE.
-!
- LCCN_HOM = .TRUE.
- CCCN_MODES = 'COPT'
- XCCN_CONC(:)=300.
-
- LHHONI = .FALSE.
- LCOLD = .TRUE.
- LNUCL = .TRUE.
- LSEDI = .TRUE.
- LSNOW = .TRUE.
- LHAIL = .FALSE.
- YSNOW_T = .FALSE.
- LMURAKAMI = .TRUE.
- CPRISTINE_ICE_LIMA = 'PLAT'
- CHEVRIMED_ICE_LIMA = 'GRAU'
- XFACTNUC_DEP = 1.0
- XFACTNUC_CON = 1.0
- NMOM_I = 2
- NMOD_IFN = 1
- NIND_SPECIE = 1
- LMEYERS = .FALSE.
- LIFN_HOM = .TRUE.
- CIFN_SPECIES = 'PHILLIPS'
- CINT_MIXING = 'DM2'
- XIFN_CONC(:) = 100.
- NMOD_IMM = 0
- NPHILLIPS=8
- LCIBU = .FALSE.
- XNDEBRIS_CIBU = 50.0
- LRDSF = .FALSE.
+ LSCAV = .FALSE.
+ LAERO_MASS = .FALSE.
+!
+ LCCN_HOM = .TRUE.
+ CCCN_MODES = 'COPT'
+ XCCN_CONC(:)=300.
+!
+ LHHONI = .FALSE.
+ LCOLD = .TRUE.
+ LNUCL = .TRUE.
+ LSEDI = .TRUE.
+ LSNOW = .TRUE.
+ LHAIL = .FALSE.
+ YSNOW_T = .FALSE.
+ LMURAKAMI = .TRUE.
+ CPRISTINE_ICE_LIMA = 'PLAT'
+ CHEVRIMED_ICE_LIMA = 'GRAU'
+ XFACTNUC_DEP = 1.0
+ XFACTNUC_CON = 1.0
+ NMOM_I = 2
+ NMOM_S = 1
+ NMOM_G = 1
+ NMOM_H = 1
+ NMOD_IFN = 1
+ NIND_SPECIE = 1
+ LMEYERS = .FALSE.
+ LIFN_HOM = .TRUE.
+ CIFN_SPECIES = 'PHILLIPS'
+ CINT_MIXING = 'DM2'
+ XIFN_CONC(:) = 100.
+ NMOD_IMM = 0
+ NPHILLIPS=8
+ LCIBU = .FALSE.
+ XNDEBRIS_CIBU = 50.0
+ LRDSF = .FALSE.
ENDIF
!
!-------------------------------------------------------------------------------
diff --git a/src/MNH/ice4_fast_rs.f90 b/src/MNH/ice4_fast_rs.f90
index d44b1bcc74d9c632b038c8a3937c3c3d4fbc1efa..a4492a4b2bf13010ca8b1f8f43bfc9b1c7d64d4d 100644
--- a/src/MNH/ice4_fast_rs.f90
+++ b/src/MNH/ice4_fast_rs.f90
@@ -502,8 +502,8 @@ ELSE
!
PRSMLTG(:) = XFSCVMG*MAX( 0.0,( -PRSMLTG(:) * &
PRST(:)*PRHODREF(:) * &
- ( X0DEPS *PLBDAS(:)**XEX0DEPS + &
- X1DEPS*PCJ(:)*(1+0.5*(XFVELOS/PLBDAS(:))**XALPHAS)**(XNUS+XEX1DEPS/XALPHAS)*PLBDAS(:)**(XBS+XEX1DEPS)) - &
+ ( X0DEPS *PLBDAS(:)**(XBS+XEX0DEPS) + &
+ X1DEPS*PCJ(:)*(1+0.5*(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS)*PLBDAS(:)**(XBS+XEX1DEPS)) - &
( PRS_TEND(:, IRCRIMS) + PRS_TEND(:, IRRACCS)) * &
( PRHODREF(:)*XCL*(XTT-PT(:))) ) / &
( PRHODREF(:)*XLMTT ) )
diff --git a/src/MNH/ice4_sedimentation_split.f90 b/src/MNH/ice4_sedimentation_split.f90
index 90729a15c2f966083bdb5e81bbd3cf80032e7760..0566388bf710dcac48ea8a178fad8fcf83e98d87 100644
--- a/src/MNH/ice4_sedimentation_split.f90
+++ b/src/MNH/ice4_sedimentation_split.f90
@@ -326,7 +326,7 @@ SUBROUTINE INTERNAL_SEDIM_SPLI(KIB,KIE,KIT,KJB,KJE,KJT,KKB,KKTB,KKTE,KKT,KKL,KRR
!
USE MODD_CST, ONLY: XCPD,XP00,XRD
USE MODD_RAIN_ICE_DESCR, ONLY: XCC,XCEXVT,XDC,XLBEXC,XRTMIN,XALPHAS,XNUS,XBS,XFVELOS, &
- XLBDAS_MAX,XLBDAS_MIN,XLBEXS,XLBS
+ XLBDAS_MAX,XLBDAS_MIN,XLBEXS,XLBS,XTRANS_MP_GAMMAS
USE MODD_RAIN_ICE_PARAM, ONLY: XEXCSEDI,XEXSEDG,XEXSEDH,XEXSEDR,XEXSEDS,XFSEDG,XFSEDH,XFSEDI,XFSEDR,XFSEDS
USE MODD_PARAM_ICE, ONLY: LSNOW_T
!
@@ -449,9 +449,9 @@ DO WHILE (ANY(ZREMAINT>0.))
JK=I3(JL)
IF(PRXT(JI,JJ,JK)> XRTMIN(KSPE)) THEN
IF (LSNOW_T .AND. PT(JI,JJ,JK)>263.15) THEN
- ZLBDA = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*PT(JI,JJ,JK))),XLBDAS_MIN)
+ ZLBDA = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*PT(JI,JJ,JK))),XLBDAS_MIN)*XTRANS_MP_GAMMAS
ELSE IF (LSNOW_T) THEN
- ZLBDA = MAX(MIN(XLBDAS_MAX, 10**(6.226 -0.0106*PT(JI,JJ,JK))),XLBDAS_MIN)
+ ZLBDA = MAX(MIN(XLBDAS_MAX, 10**(6.226 -0.0106*PT(JI,JJ,JK))),XLBDAS_MIN)*XTRANS_MP_GAMMAS
ELSE
ZLBDA=MAX(MIN(XLBDAS_MAX, XLBS * ( PRHODREF(JI,JJ,JK) * PRXT(JI,JJ,JK) )**XLBEXS),XLBDAS_MIN)
END IF
diff --git a/src/MNH/ice4_slow.f90 b/src/MNH/ice4_slow.f90
index b9325050f16faa13ba945c3624755d55b89672bc..e712f77405646e80b4373bcdf542173ed7e3f28b 100644
--- a/src/MNH/ice4_slow.f90
+++ b/src/MNH/ice4_slow.f90
@@ -176,7 +176,7 @@ ELSE
DO JL=1, KSIZE
IF (ZMASK(JL)==1.) THEN
PRVDEPS(JL) = ( PRST(JL)*PSSI(JL)/PAI(JL) ) * &
- ( X0DEPS*PLBDAS(JL)**XEX0DEPS + X1DEPS*PCJ(JL) * (1+0.5*(XFVELOS/PLBDAS(JL))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) &
+ ( X0DEPS*PLBDAS(JL)**(XBS+XEX0DEPS) + X1DEPS*PCJ(JL) * (1+0.5*(XFVELOS/PLBDAS(JL))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) &
*(PLBDAS(JL))**(XBS+XEX1DEPS) )
END IF
END DO
diff --git a/src/MNH/ini_budget.f90 b/src/MNH/ini_budget.f90
index 91461134c79e9fb4f617f306e3ca9f7c1b23c30b..e446214f03f997d58562302d01d036a6bfa14e4e 100644
--- a/src/MNH/ini_budget.f90
+++ b/src/MNH/ini_budget.f90
@@ -209,6 +209,7 @@ end subroutine Budget_preallocate
! P. Wautelet 04/03/2021: budgets: add terms for drag due to buildings
! P. Wautelet 17/03/2021: choose source terms for budgets with character strings instead of multiple integer variables
! C. Barthe 14/03/2022: budgets: add terms for CIBU and RDSF in LIMA
+! M. Taufour 01/07/2022: budgets: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -238,6 +239,7 @@ use modd_nsv, only: csvnames,
nsv_lima_beg, nsv_lima_end, nsv_lima_ccn_acti, nsv_lima_ccn_free, nsv_lima_hom_haze, &
nsv_lima_ifn_free, nsv_lima_ifn_nucl, nsv_lima_imm_nucl, &
nsv_lima_nc, nsv_lima_nr, nsv_lima_ni, nsv_lima_scavmass, nsv_lima_spro, &
+ nsv_lima_ns, nsv_lima_ng, nsv_lima_nh, &
nsv_lnoxbeg, nsv_lnoxend, nsv_ppbeg, nsv_ppend, &
nsv_sltbeg, nsv_sltend, nsv_sltdepbeg, nsv_sltdepend, nsv_snwbeg, nsv_snwend, &
nsv_user
@@ -249,8 +251,8 @@ use modd_param_lima, only: laero_mass_lima => laero_mass, lacti_lima => lacti,
lhail_lima => lhail, lhhoni_lima => lhhoni, lmeyers_lima => lmeyers, lnucl_lima => lnucl, &
lptsplit, &
lrain_lima => lrain, lscav_lima => lscav, lsedc_lima => lsedc, lsedi_lima => lsedi, &
- lsnow_lima => lsnow, lspro_lima => lspro, lwarm_lima => lwarm, lcibu, lrdsf, nmom_i, &
- nmod_ccn, nmod_ifn, nmod_imm
+ lsnow_lima => lsnow, lspro_lima => lspro, lwarm_lima => lwarm, lcibu, lrdsf, &
+ nmom_c, nmom_r, nmom_i, nmom_s, nmom_g, nmom_h, nmod_ccn, nmod_ifn, nmod_imm
use modd_ref, only: lcouples
use modd_salt, only: lsalt
use modd_turb_n, only: lsubg_cond
@@ -1161,6 +1163,12 @@ if ( lbu_rth ) then
.or. hcloud(1:3) == 'ICE'
call Budget_source_add( tbudgets(NBUDGET_TH), tzsource )
+ tzsource%cmnhname = 'DEPH'
+ tzsource%clongname = 'deposition on hail'
+ tzsource%lavailable = ( hcloud == 'LIMA' .and. ( lptsplit .or. lhail_lima ) ) &
+ .or. hcloud == 'ICE4'
+ call Budget_source_add( tbudgets(NBUDGET_TH), tzsource )
+
tzsource%cmnhname = 'IMLT'
tzsource%clongname = 'melting of ice'
tzsource%lavailable = ( hcloud == 'LIMA' .and. ( lptsplit .or. ( lcold_lima .and. lwarm_lima ) ) ) .or. hcloud(1:3) == 'ICE'
@@ -1212,7 +1220,8 @@ if ( lbu_rth ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
- .or. hcloud == 'ICE4'
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
+ .or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_TH), tzsource )
tzsource%cmnhname = 'DRYH'
@@ -1224,6 +1233,7 @@ if ( lbu_rth ) then
tzsource%clongname = 'melting of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_TH), tzsource )
@@ -1539,6 +1549,12 @@ if ( tbudgets(NBUDGET_RV)%lenabled ) then
.or. hcloud(1:3) == 'ICE'
call Budget_source_add( tbudgets(NBUDGET_RV), tzsource )
+ tzsource%cmnhname = 'DEPH'
+ tzsource%clongname = 'deposition on HAIL'
+ tzsource%lavailable = ( hcloud == 'LIMA' .and. ( lptsplit .or. lhail_lima ) &
+ .or. hcloud == 'ICE4' )
+ call Budget_source_add( tbudgets(NBUDGET_RV), tzsource )
+
tzsource%cmnhname = 'CEDS'
tzsource%clongname = 'adjustment to saturation'
tzsource%lavailable = hcloud == 'LIMA'
@@ -1819,6 +1835,7 @@ if ( tbudgets(NBUDGET_RC)%lenabled ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RC), tzsource )
@@ -2048,6 +2065,7 @@ if ( tbudgets(NBUDGET_RR)%lenabled ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RR), tzsource )
@@ -2060,6 +2078,7 @@ if ( tbudgets(NBUDGET_RR)%lenabled ) then
tzsource%clongname = 'melting of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RR), tzsource )
@@ -2309,6 +2328,7 @@ if ( tbudgets(NBUDGET_RI)%lenabled ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RI), tzsource )
@@ -2515,6 +2535,7 @@ if ( tbudgets(NBUDGET_RS)%lenabled ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RS), tzsource )
@@ -2711,12 +2732,13 @@ if ( tbudgets(NBUDGET_RG)%lenabled ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RG), tzsource )
tzsource%cmnhname = 'COHG'
tzsource%clongname = 'conversion of hail to graupel'
- tzsource%lavailable = hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima .and. lwarm_lima .and. lsnow_lima
+ tzsource%lavailable = hcloud == 'LIMA' .and. (lptsplit .or. (lhail_lima .and. lcold_lima .and. lwarm_lima .and. lsnow_lima) )
call Budget_source_add( tbudgets(NBUDGET_RG), tzsource )
tzsource%cmnhname = 'HGCV'
@@ -2836,6 +2858,12 @@ if ( tbudgets(NBUDGET_RH)%lenabled ) then
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RH), tzsource )
+ tzsource%cmnhname = 'DEPH'
+ tzsource%clongname = 'deposition on hail'
+ tzsource%lavailable = ( hcloud == 'LIMA' .and. lhail_lima )
+ call Budget_source_add( tbudgets(NBUDGET_RH), tzsource )
+
+
tzsource%cmnhname = 'GHCV'
tzsource%clongname = 'graupel to hail conversion'
tzsource%lavailable = hcloud == 'ICE4' .and. lred .and. celec == 'NONE'
@@ -2852,13 +2880,14 @@ if ( tbudgets(NBUDGET_RH)%lenabled ) then
tzsource%clongname = 'wet growth of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RH), tzsource )
tzsource%cmnhname = 'COHG'
tzsource%clongname = 'conversion from hail to graupel'
- tzsource%lavailable = hcloud == 'LIMA' .and. .not.lptsplit .and. lhail_lima .and. lcold_lima &
- .and. lwarm_lima .and. lsnow_lima
+ tzsource%lavailable = hcloud == 'LIMA' .and. ( lptsplit .or. (lhail_lima .and. lcold_lima &
+ .and. lwarm_lima .and. lsnow_lima) )
call Budget_source_add( tbudgets(NBUDGET_RH), tzsource )
tzsource%cmnhname = 'HGCV'
@@ -2875,6 +2904,7 @@ if ( tbudgets(NBUDGET_RH)%lenabled ) then
tzsource%clongname = 'melting of hail'
tzsource%lavailable = ( hcloud == 'LIMA' .and. .not. lptsplit .and. lhail_lima .and. lcold_lima &
.and. lwarm_lima .and. lsnow_lima ) &
+ .or. ( hcloud == 'LIMA' .and. lptsplit ) &
.or. hcloud == 'ICE4'
call Budget_source_add( tbudgets(NBUDGET_RH), tzsource )
@@ -3237,7 +3267,7 @@ SV_BUDGETS: do jsv = 1, ksv
tzsource%cmnhname = 'WETH'
tzsource%clongname = 'wet growth of hail'
- tzsource%lavailable = .not.lptsplit .and. lhail_lima .and. lcold_lima .and. lwarm_lima .and. lsnow_lima
+ tzsource%lavailable = lptsplit .or. lhail_lima
call Budget_source_add( tbudgets(ibudget), tzsource )
tzsource%cmnhname = 'CORR2'
@@ -3325,12 +3355,12 @@ SV_BUDGETS: do jsv = 1, ksv
tzsource%cmnhname = 'WETH'
tzsource%clongname = 'wet growth of hail'
- tzsource%lavailable = .not.lptsplit .and. lhail_lima .and. lcold_lima .and. lwarm_lima .and. lsnow_lima
+ tzsource%lavailable = lptsplit .or. lhail_lima
call Budget_source_add( tbudgets(ibudget), tzsource )
tzsource%cmnhname = 'HMLT'
tzsource%clongname = 'melting of hail'
- tzsource%lavailable = .not.lptsplit .and. lhail_lima .and. lcold_lima .and. lwarm_lima .and. lsnow_lima
+ tzsource%lavailable = lptsplit .or. lhail_lima
call Budget_source_add( tbudgets(ibudget), tzsource )
tzsource%cmnhname = 'CORR2'
@@ -3482,7 +3512,7 @@ SV_BUDGETS: do jsv = 1, ksv
tzsource%cmnhname = 'WETH'
tzsource%clongname = 'wet growth of hail'
- tzsource%lavailable = .not.lptsplit .and. lhail_lima .and. lcold_lima .and. lwarm_lima .and. lsnow_lima
+ tzsource%lavailable = lptsplit .or. lhail_lima
call Budget_source_add( tbudgets(ibudget), tzsource )
tzsource%cmnhname = 'CEDS'
@@ -3495,7 +3525,142 @@ SV_BUDGETS: do jsv = 1, ksv
tzsource%lavailable = lptsplit
call Budget_source_add( tbudgets(ibudget), tzsource )
+ else if ( jsv == nsv_lima_ns ) then SV_LIMA
+
+ tzsource%cmnhname = 'SEDI'
+ tzsource%clongname = 'sedimentation'
+ tzsource%lavailable = lcold_lima .or. ( lcold_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CNVI'
+ tzsource%clongname = 'conversion of snow to cloud ice'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CNVS'
+ tzsource%clongname = 'conversion of pristine ice to snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'BRKU'
+ tzsource%clongname = 'break up of snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'RIM'
+ tzsource%clongname = 'heavy riming of cloud droplet on snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'ACC'
+ tzsource%clongname = 'accretion of rain on snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CMEL'
+ tzsource%clongname = 'conversion melting of snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'WETG'
+ tzsource%clongname = 'wet growth of graupel'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+ tzsource%cmnhname = 'DRYG'
+ tzsource%clongname = 'dry growth of graupel'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'WETH'
+ tzsource%clongname = 'wet growth of hail'
+ tzsource%lavailable = lptsplit .or. lhail_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'SSC'
+ tzsource%clongname = 'snow self collection'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CEDS'
+ tzsource%clongname = 'adjustment to saturation'
+ tzsource%lavailable = lcold_lima .and. .not.lptsplit .and. .not.lspro_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ else if ( jsv == nsv_lima_ng ) then SV_LIMA
+
+ tzsource%cmnhname = 'SEDI'
+ tzsource%clongname = 'sedimentation'
+ tzsource%lavailable = lcold_lima .or. ( lcold_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'RIM'
+ tzsource%clongname = 'heavy riming of cloud droplet on snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'ACC'
+ tzsource%clongname = 'accretion of rain on snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CMEL'
+ tzsource%clongname = 'conversion melting of snow'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CFRZ'
+ tzsource%clongname = 'conversion freezing of raindrop'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'WETG'
+ tzsource%clongname = 'wet growth of graupel'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'GMLT'
+ tzsource%clongname = 'graupel melting'
+ tzsource%lavailable = lptsplit .or. ( lcold_lima .and. lwarm_lima .and. lsnow_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'WETH'
+ tzsource%clongname = 'wet growth of hail'
+ tzsource%lavailable = lptsplit .or. lhail_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'COHG'
+ tzsource%clongname = 'conversion hail graupel'
+ tzsource%lavailable = lptsplit .or. lhail_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'CEDS'
+ tzsource%clongname = 'adjustment to saturation'
+ tzsource%lavailable = lcold_lima .and. .not.lptsplit .and. .not.lspro_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ else if ( jsv == nsv_lima_nh .and. lhail_lima) then SV_LIMA
+
+ tzsource%cmnhname = 'SEDI'
+ tzsource%clongname = 'sedimentation'
+ tzsource%lavailable = lcold_lima .or. ( lcold_lima .and. lsnow_lima .and. lhail_lima )
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'WETG'
+ tzsource%clongname = 'wet growth of graupel'
+ tzsource%lavailable = lptsplit .or. lhail_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'COHG'
+ tzsource%clongname = 'conversion hail graupel'
+ tzsource%lavailable = lptsplit .or. lhail_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
+ tzsource%cmnhname = 'HMLT'
+ tzsource%clongname = 'hail melting'
+ tzsource%lavailable = lptsplit .or. lhail_lima
+ call Budget_source_add( tbudgets(ibudget), tzsource )
+
else if ( jsv >= nsv_lima_ifn_free .and. jsv <= nsv_lima_ifn_free + nmod_ifn - 1 ) then SV_LIMA
! Free IFN concentration
tzsource%cmnhname = 'HIND'
diff --git a/src/MNH/ini_ice_c1r3.f90 b/src/MNH/ini_ice_c1r3.f90
index d04e1335813234391e13b0504dda31e1a8abeac8..b9117305dff2e766cefbfc7c30c7572f111c97b2 100644
--- a/src/MNH/ini_ice_c1r3.f90
+++ b/src/MNH/ini_ice_c1r3.f90
@@ -173,7 +173,7 @@ REAL :: PALPHAR,PALPHAS,PALPHAG
REAL :: PNUR,PNUS,PNUG
REAL :: PBR,PBS
REAL :: PCR,PCS,PCG
-REAL :: PDR,PDS,PDG
+REAL :: PDR,PDS,PFVELOS,PDG
REAL :: PESR,PEGS,PEGR
REAL :: PFDINFTY
REAL :: PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN
@@ -716,7 +716,7 @@ ALLOCATE( XKER_RACCS (NACCLBDAS,NACCLBDAR) )
ALLOCATE( XKER_SACCRG(NACCLBDAR,NACCLBDAS) )
!
CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
PFDINFTY )
IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
@@ -797,7 +797,7 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_RACCSS")')
@@ -929,7 +929,7 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
ALLOCATE( XKER_SDRYG(NDRYLBDAG,NDRYLBDAS) )
!
CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY )
IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
@@ -981,7 +981,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY,XKER_SDRYG )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SDRYG")')
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index 054d5f50f820b58ba72a593a6c0b91591a6eda3b..b07d03d4c2334d0ad1a23d773123a93ca33a9f6b 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -764,9 +764,9 @@ IF (CCLOUD=='LIMA' ) THEN
.OR. ( TPINIFILE%NMNHVERSION(1) == 5 .AND. TPINIFILE%NMNHVERSION(2) < 5 ) &
.OR. ( TPINIFILE%NMNHVERSION(1) == 5 .AND. TPINIFILE%NMNHVERSION(2) == 5 &
.AND. TPINIFILE%NMNHVERSION(3) < 1 ) ) THEN
- TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2)))//INDICE
+ TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(5)))//INDICE
ELSE
- TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2)))//INDICE
+ TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(5)))//INDICE
END IF
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
@@ -790,9 +790,9 @@ IF (CCLOUD=='LIMA' ) THEN
.OR. ( TPINIFILE%NMNHVERSION(1) == 5 .AND. TPINIFILE%NMNHVERSION(2) < 5 ) &
.OR. ( TPINIFILE%NMNHVERSION(1) == 5 .AND. TPINIFILE%NMNHVERSION(2) == 5 &
.AND. TPINIFILE%NMNHVERSION(3) < 1 ) ) THEN
- TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2)))//INDICE
+ TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(5)))//INDICE
ELSE
- TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2)))//INDICE
+ TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(5)))//INDICE
END IF
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
diff --git a/src/MNH/ini_lima.f90 b/src/MNH/ini_lima.f90
index d90f1e160430b979866f105574478d30d2d5f7dd..54c784e641111c8f83b00b5063f2006b38eb8569 100644
--- a/src/MNH/ini_lima.f90
+++ b/src/MNH/ini_lima.f90
@@ -148,9 +148,9 @@ XCTMIN(1) = 1.0 ! Not used
XCTMIN(2) = 1.0E-3 ! Nc
XCTMIN(3) = 1.0E-3 ! Nr
XCTMIN(4) = 1.0E-3 ! Ni
-XCTMIN(5) = 1.0E-3 ! Not used
-XCTMIN(6) = 1.0E-3 ! Not used
-XCTMIN(7) = 1.0E-3 ! Not used
+XCTMIN(5) = 1.0E-3 ! Ns
+XCTMIN(6) = 1.0E-3 ! Ng
+XCTMIN(7) = 1.0E-3 ! Nh
!
!
! Air density fall speed correction
diff --git a/src/MNH/ini_lima_cold_mixed.f90 b/src/MNH/ini_lima_cold_mixed.f90
index 8aaa67fb33df1ede4e7acbb8228c7fade4bb052d..d757a9fd64c5244858a855aac1d7f6afb17e7f20 100644
--- a/src/MNH/ini_lima_cold_mixed.f90
+++ b/src/MNH/ini_lima_cold_mixed.f90
@@ -43,6 +43,7 @@ END MODULE MODI_INI_LIMA_COLD_MIXED
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
! C. Barthe 14/03/2022: add CIBU and RDSF
! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -65,8 +66,11 @@ USE MODI_LIMA_FUNCTIONS
USE MODI_GAMMA
USE MODI_GAMMA_INC
USE MODI_RRCOLSS
+USE MODI_NRCOLSS
USE MODI_RZCOLX
+USE MODI_NZCOLX
USE MODI_RSCOLRG
+USE MODI_NSCOLRG
USE MODI_LIMA_READ_XKER_RACCS
USE MODI_LIMA_READ_XKER_SDRYG
USE MODI_LIMA_READ_XKER_RDRYG
@@ -100,7 +104,7 @@ REAL :: ZBOUND ! XDCSLIM*Lbda_s: upper bound for the partial
REAL :: ZEGS, ZEGR, ZEHS, ZEHG! Bulk collection efficiencies
!
INTEGER :: IND ! Number of interval to integrate the kernels
-REAL :: ZESR ! Mean efficiency of rain-aggregate collection
+REAL :: ZESR, ZESS ! Mean efficiency of rain-aggregate collection, aggregate-aggregate collection
REAL :: ZFDINFTY ! Factor used to define the "infinite" diameter
!
!
@@ -116,7 +120,7 @@ REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH
REAL :: PNUR,PNUS,PNUG,PNUH
REAL :: PBR,PBS,PBG,PBH
REAL :: PCR,PCS,PCG,PCH
-REAL :: PDR,PDS,PDG,PDH
+REAL :: PDR,PDS,PFVELOS,PDG,PDH
REAL :: PESR,PEGS,PEGR,PEHS,PEHG
REAL :: PFDINFTY
REAL :: PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN
@@ -204,10 +208,8 @@ XDS = 0.27
XFVELOS = 0.
END IF
-IF (.NOT. LSNOW_T) THEN
- XCCS = 5.0
- XCXS = 1.0
-END IF
+XCCS = 5.0
+XCXS = 1.0
XF0S = 0.86
XF1S = 0.28
@@ -242,8 +244,8 @@ XDH = 0.64
!XCCH = 5.E-4
!XCXH = 2.0
!!!!!!!!!!!!
- XCCH = 4.E4 ! Test of Ziegler (1988)
- XCXH = -1.0 ! Test of Ziegler (1988)
+XCCH = 4.E4 ! Test of Ziegler (1988)
+XCXH = -1.0 ! Test of Ziegler (1988)
!!! XCCH = 5.E5 ! Graupel_like
!!! XCXH = -0.5 ! Graupel_like
!!!!!!!!!!!!
@@ -272,17 +274,32 @@ IF (LSNOW_T) THEN
XNUS = 43.7 ! Generalized gamma law
XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
+ELSE IF (NMOM_S.EQ.2) THEN
+ XALPHAS = 1.0 ! Gamma law
+ XNUS = 2.0 !
+ XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
+ ( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
ELSE
XALPHAS = 1.0 ! Exponential law
XNUS = 1.0 ! Exponential law
XTRANS_MP_GAMMAS = 1.
END IF
!
-XALPHAG = 1.0 ! Exponential law
-XNUG = 1.0 ! Exponential law
-!
-XALPHAH = 1.0 ! Gamma law
-XNUH = 8.0 ! Gamma law with little dispersion
+if (NMOM_G.GE.2) then
+ XALPHAG = 1.0 !
+ XNUG = 2.0 !
+else
+ XALPHAG = 1.0 ! Exponential law
+ XNUG = 1.0 ! Exponential law
+end if
+!
+if (NMOM_H.GE.2) then
+ XALPHAH = 1.0 ! Gamma law
+ XNUH = 5.0 ! Gamma law with little dispersion
+else
+ XALPHAH = 1.0 ! Gamma law
+ XNUH = 8.0 ! Gamma law with little dispersion
+end if
!
!* 2.2 Constants for shape parameter
!
@@ -290,14 +307,30 @@ XLBEXI = 1.0/XBI
XLBI = XAI*MOMG(XALPHAI,XNUI,XBI)
!
XNS = 1.0/(XAS*MOMG(XALPHAS,XNUS,XBS))
-XLBEXS = 1.0/(XCXS-XBS)
-XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
+IF (NMOM_S.EQ.1) THEN
+ XLBEXS = 1.0/(XCXS-XBS)
+ XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
+ELSE
+ XLBEXS = 1./XBS
+ XLBS = XAS * MOMG(XALPHAS,XNUS,XBS)
+END IF
!
-XLBEXG = 1.0/(XCXG-XBG)
-XLBG = ( XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XLBEXG)
+XNG = 1.0/(XAG*MOMG(XALPHAG,XNUG,XBG))
+IF (NMOM_G.EQ.1) THEN
+ XLBEXG = 1.0/(XCXG-XBG)
+ XLBG = ( XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XLBEXG)
+ELSE
+ XLBEXG = 1./XBG
+ XLBG = XAG * MOMG(XALPHAG,XNUG,XBG)
+END IF
!
-XLBEXH = 1.0/(XCXH-XBH)
-XLBH = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
+IF (NMOM_H.EQ.1) THEN
+ XLBEXH = 1.0/(XCXH-XBH)
+ XLBH = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
+ELSE
+ XLBEXH = 1./XBH
+ XLBH = XAH * MOMG(XALPHAH,XNUH,XBH)
+END IF
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -308,8 +341,8 @@ IF (GFLAG) THEN
WRITE(UNIT=ILUOUT0,FMT='(" XLBEXH =",E13.6," XLBH =",E13.6)') XLBEXH,XLBH
END IF
!
-XLBDAS_MAX = 500000. ! LBDAS_MAX doit être compare avec LBDAS avec une forme de Marshall-Palmer
-XLBDAS_MIN = 1000.
+XLBDAS_MAX = 500000. ! used only before transforming lambda for non MP PSD
+XLBDAS_MIN = 1000. *1.E-10
XLBDAG_MAX = 100000.0
!
ZCONC_MAX = 1.E6 ! Maximal concentration for falling particules set to 1 per cc
@@ -377,6 +410,26 @@ XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
XEXSEDH = (XBH+XDH-XCXH)/(XBH-XCXH)
XFSEDH = XCH*XAH*XCCH*MOMG(XALPHAH,XNUH,XBH+XDH)* &
(XAH*XCCH*MOMG(XALPHAH,XNUH,XBH))**(-XEXSEDH)*(ZRHO00)**XCEXVT
+IF (NMOM_S.GE.2) THEN
+ XFSEDRS = XCS*GAMMA_X0D(XNUS+(XDS+XBS)/XALPHAS)/GAMMA_X0D(XNUS+XBS/XALPHAS)* &
+ (ZRHO00)**XCEXVT
+ XFSEDCS = XCS*GAMMA_X0D(XNUS+XDS/XALPHAS)/GAMMA_X0D(XNUS)* &
+ (ZRHO00)**XCEXVT
+END IF
+IF (NMOM_G.GE.2) THEN
+ XFSEDRG = XCG*GAMMA_X0D(XNUG+(XDG+XBG)/XALPHAG)/GAMMA_X0D(XNUG+XBG/XALPHAG)* &
+ (ZRHO00)**XCEXVT
+ XFSEDCG = XCG*GAMMA_X0D(XNUG+XDG/XALPHAG)/GAMMA_X0D(XNUG)* &
+ (ZRHO00)**XCEXVT
+END IF
+IF (NMOM_H.GE.2) THEN
+ XFSEDRH = XCH*GAMMA_X0D(XNUH+(XDH+XBH)/XALPHAH)/GAMMA_X0D(XNUH+XBH/XALPHAH)* &
+ (ZRHO00)**XCEXVT
+ XFSEDCH = XCH*GAMMA_X0D(XNUH+XDH/XALPHAH)/GAMMA_X0D(XNUH)* &
+ (ZRHO00)**XCEXVT
+END IF
+!
+!
!
XLB(4) = XLBI
XLBEX(4) = XLBEXI
@@ -389,18 +442,24 @@ XLBEX(5) = XLBEXS
XD(5) = XDS
XFSEDR(5) = XCS*GAMMA_X0D(XNUS+(XDS+XBS)/XALPHAS)/GAMMA_X0D(XNUS+XBS/XALPHAS)* &
(ZRHO00)**XCEXVT
+XFSEDC(5) = XCS*GAMMA_X0D(XNUS+XDS/XALPHAS)/GAMMA_X0D(XNUS)* &
+ (ZRHO00)**XCEXVT
!
XLB(6) = XLBG
XLBEX(6) = XLBEXG
XD(6) = XDG
XFSEDR(6) = XCG*GAMMA_X0D(XNUG+(XDG+XBG)/XALPHAG)/GAMMA_X0D(XNUG+XBG/XALPHAG)* &
(ZRHO00)**XCEXVT
+XFSEDC(6) = XCG*GAMMA_X0D(XNUG+XDG/XALPHAG)/GAMMA_X0D(XNUG)* &
+ (ZRHO00)**XCEXVT
!
XLB(7) = XLBH
XLBEX(7) = XLBEXH
XD(7) = XDH
XFSEDR(7) = XCH*GAMMA_X0D(XNUH+(XDH+XBH)/XALPHAH)/GAMMA_X0D(XNUH+XBH/XALPHAH)* &
(ZRHO00)**XCEXVT
+XFSEDC(7) = XCH*GAMMA_X0D(XNUH+XDH/XALPHAH)/GAMMA_X0D(XNUH)* &
+ (ZRHO00)**XCEXVT
!
!-------------------------------------------------------------------------------
!
@@ -639,21 +698,21 @@ XR1DEPSI = XC1DEPSI *(XAS*XDSCNVI_LIM**XBS)
!
! Vapor deposition on snow and graupel and hail
!
-X0DEPS = XNS*(4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = XNS*(4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = XBS-1.0
+X0DEPS = (4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
+X1DEPS = (4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
+XEX0DEPS = -1.0
XEX1DEPS = -0.5*(XDS+3.0)
!
-X0DEPG = (4.0*XPI)*XCCG*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
-X1DEPG = (4.0*XPI)*XCCG*XC1G*XF1G*SQRT(XCG)*MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
-XEX0DEPG = XCXG-1.0
-XEX1DEPG = XCXG-0.5*(XDG+3.0)
+X0DEPG = (4.0*XPI)*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
+X1DEPG = (4.0*XPI)*XC1G*XF1G*SQRT(XCG)*MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
+XEX0DEPG = -1.0
+XEX1DEPG = -0.5*(XDG+3.0)
+!
+X0DEPH = (4.0*XPI)*XC1H*XF0H*MOMG(XALPHAH,XNUH,1.)
+X1DEPH = (4.0*XPI)*XC1H*XF1H*SQRT(XCH)*MOMG(XALPHAH,XNUH,0.5*XDH+1.5)
+XEX0DEPH = -1.0
+XEX1DEPH = -0.5*(XDH+3.0)
!
-X0DEPH = (4.0*XPI)*XCCH*XC1H*XF0H*MOMG(XALPHAH,XNUH,1.)
-X1DEPH = (4.0*XPI)*XCCH*XC1H*XF1H*SQRT(XCH)*MOMG(XALPHAH,XNUH,0.5*XDH+1.5)
-XEX0DEPH = XCXH-1.0
-XEX1DEPH = XCXH-0.5*(XDH+3.0)
-!
!-------------------------------------------------------------------------------
!
!
@@ -712,7 +771,7 @@ XITAUTS_THRESHOLD = 7.5
!* 6.4 Constants for snow aggregation
!
XCOLEXIS = 0.05 ! Temperature factor of the I+S collection efficiency
-XFIAGGS = XNS*(XPI/4.0)*0.25*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
+XFIAGGS = (XPI/4.0)*0.25*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
XEXIAGGS = -XDS - 2.0
XAGGS_CLARGE1 = XKER_ZRNIC_A2*ZGAMI(2)
XAGGS_CLARGE2 = XKER_ZRNIC_A2*ZGAMS(2)
@@ -736,18 +795,18 @@ END IF
!
XDCSLIM = 0.007 ! D_cs^lim = 7 mm as suggested by Farley et al. (1989)
XCOLCS = 1.0
-XEXCRIMSS = -XDS-2.0
-XCRIMSS = XNS * (XPI/4.0)*XCOLCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
+XEXCRIMSS= -XDS-2.0
+XCRIMSS = (XPI/4.0)*XCOLCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
XEXCRIMSG= XEXCRIMSS
XCRIMSG = XCRIMSS
-XSRIMCG = XNS*XAS*MOMG(XALPHAS,XNUS,XBS)
+XSRIMCG = XAS*MOMG(XALPHAS,XNUS,XBS)
XEXSRIMCG= -XBS
!
!Pour Murakami 1990
-XSRIMCG2 = XNS*XAG*MOMG(XALPHAS,XNUS,XBG)
+XSRIMCG2 = XAG*MOMG(XALPHAS,XNUS,XBG)
XSRIMCG3 = 0.1
-XEXSRIMCG2=XBS-XBG
+XEXSRIMCG2=XBG
GFLAG = .TRUE.
IF (GFLAG) THEN
WRITE(UNIT=ILUOUT0,FMT='(" riming of the aggregates")')
@@ -806,17 +865,25 @@ XHMLINTP2 = 1.0 + XHMLINTP1*LOG( 25.E-6/(XGAMINC_HMC_BOUND_MIN)**(1.0/XALPHAC) )
!
!* 7.2 Constants for the accretion of raindrops onto aggregates
!
-XFRACCSS = XNS*XPI/4.0*XAR*(ZRHO00**XCEXVT)
+XFRACCSS = XPI/4.0*XAR*(ZRHO00**XCEXVT)
+XFNRACCSS = XPI/4.0*(ZRHO00**XCEXVT)
!
XLBRACCS1 = MOMG(XALPHAS,XNUS,2.)*MOMG(XALPHAR,XNUR,3.)
XLBRACCS2 = 2.*MOMG(XALPHAS,XNUS,1.)*MOMG(XALPHAR,XNUR,4.)
XLBRACCS3 = MOMG(XALPHAR,XNUR,5.)
+XLBNRACCS1 = MOMG(XALPHAS,XNUS,2.)
+XLBNRACCS2 = 2.*MOMG(XALPHAS,XNUS,1.)*MOMG(XALPHAR,XNUR,1.)
+XLBNRACCS3 = MOMG(XALPHAR,XNUR,2.)
!
-XFSACCRG = XNS*(XPI/4.0)*XAS*(ZRHO00**XCEXVT)
+XFSACCRG = (XPI/4.0)*XAS*(ZRHO00**XCEXVT)
+XFNSACCRG = (XPI/4.0)*(ZRHO00**XCEXVT)
!
XLBSACCR1 = MOMG(XALPHAR,XNUR,2.)*MOMG(XALPHAS,XNUS,XBS)
XLBSACCR2 = 2.*MOMG(XALPHAR,XNUR,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
XLBSACCR3 = MOMG(XALPHAS,XNUS,XBS+2.)
+XLBNSACCR1 = MOMG(XALPHAR,XNUR,2.)
+XLBNSACCR2 = 2.*MOMG(XALPHAR,XNUR,1.)*MOMG(XALPHAS,XNUS,1.)
+XLBNSACCR3 = MOMG(XALPHAS,XNUS,2.)
!
!* 7.2.1 Defining the ranges for the computation of the kernels
!
@@ -824,8 +891,8 @@ XLBSACCR3 = MOMG(XALPHAS,XNUS,XBS+2.)
! Notice: One magnitude of lambda discretized over 10 points for snow
!
NACCLBDAS = 40
-XACCLBDAS_MIN = 5.0E2*XTRANS_MP_GAMMAS !5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_RACCS
-XACCLBDAS_MAX = 1.0E5*XTRANS_MP_GAMMAS !5.0E5*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_RACCS
+XACCLBDAS_MIN = 5.0E1*XTRANS_MP_GAMMAS !5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_RACCS
+XACCLBDAS_MAX = 5.0E5*XTRANS_MP_GAMMAS !5.0E5*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_RACCS
ZRATE = LOG(XACCLBDAS_MAX/XACCLBDAS_MIN)/FLOAT(NACCLBDAS-1)
XACCINTP1S = 1.0 / ZRATE
XACCINTP2S = 1.0 - LOG( XACCLBDAS_MIN ) / ZRATE
@@ -845,16 +912,59 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_RACCSS, XKER_RACCS and XKER_SACCRG
ALLOCATE( XKER_RACCSS(NACCLBDAS,NACCLBDAR) )
ALLOCATE( XKER_RACCS (NACCLBDAS,NACCLBDAR) )
ALLOCATE( XKER_SACCRG(NACCLBDAR,NACCLBDAS) )
+ALLOCATE( XKER_N_RACCSS(NACCLBDAS,NACCLBDAR) )
+ALLOCATE( XKER_N_RACCS (NACCLBDAS,NACCLBDAR) )
+ALLOCATE( XKER_N_SACCRG(NACCLBDAR,NACCLBDAS) )
+CALL NRCOLSS ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZESR, XCS, XDS, XFVELOS, XCR, XDR, &
+ XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
+ ZFDINFTY, XKER_N_RACCSS, XAG, XBS, XAS )
+CALL NZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZESR, XCS, XDS, XFVELOS, XCR, XDR, 0., & !
+ XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
+ ZFDINFTY, XKER_N_RACCS )
+CALL NSCOLRG ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZESR, XCS, XDS, XFVELOS, XCR, XDR, &
+ XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
+ ZFDINFTY, XKER_N_SACCRG,XAG, XBS, XAS )
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_RACCSS) ) THEN")')
+DO J1 = 1 , NACCLBDAS
+ DO J2 = 1 , NACCLBDAR
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_RACCSS(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_RACCSS(J1,J2)
+ END DO
+END DO
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_RACCS) ) THEN")')
+DO J1 = 1 , NACCLBDAS
+ DO J2 = 1 , NACCLBDAR
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_RACCS(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_RACCS(J1,J2)
+ END DO
+END DO
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SACCRG) ) THEN")')
+DO J1 = 1 , NACCLBDAR
+ DO J2 = 1 , NACCLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SACCRG(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_SACCRG(J1,J2)
+ END DO
+END DO
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+
!
-CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
- PFDINFTY )
+CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY )
IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
(PESR/=ZESR) .OR. (PBS/=XBS) .OR. (PBR/=XBR) .OR. &
- (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
+ (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
(PACCLBDAS_MAX/=XACCLBDAS_MAX) .OR. (PACCLBDAR_MAX/=XACCLBDAR_MAX) .OR. &
(PACCLBDAS_MIN/=XACCLBDAS_MIN) .OR. (PACCLBDAR_MIN/=XACCLBDAR_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
@@ -888,6 +998,7 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("PBR=",E13.6)') XBR
WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=ILUOUT0,FMT='("PCR=",E13.6)') XCR
WRITE(UNIT=ILUOUT0,FMT='("PDR=",E13.6)') XDR
WRITE(UNIT=ILUOUT0,FMT='("PACCLBDAS_MAX=",E13.6)') &
@@ -927,15 +1038,84 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
- CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
- PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
+ CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_RACCSS")')
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_RACCS ")')
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SACCRG")')
END IF
!
+!* 7.2N Computations of the tabulated normalized kernels Snow Self Collection !!
+!
+!
+!if (NMOM_S.GE.2) then
+ XCOLSS = 0.1 ! Collection efficiency of S+S
+ XCOLEXSS = 0.1 ! Temperature factor of the S+S collection efficiency
+ XFNSSCS = (XPI/4.0)*XCOLSS*(ZRHO00**XCEXVT)/2.0
+!
+ XLBNSSCS1 = 2.0*MOMG(XALPHAS,XNUS,2.)
+ XLBNSSCS2 = 2.0*MOMG(XALPHAS,XNUS,1.)**2
+!
+!* 7.2N.1 Defining the ranges for the computation of the kernels
+!
+! Notice: One magnitude of lambda discretized over 10 points for snow
+!
+NSCLBDAS = 80
+XSCLBDAS_MIN = 1.0E0*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_RSCS
+XSCLBDAS_MAX = 5.0E10*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_RSCS
+ZRATE = LOG(XSCLBDAS_MAX/XSCLBDAS_MIN)/FLOAT(NSCLBDAS-1)
+XSCINTP1S = 1.0 / ZRATE
+XSCINTP2S = 1.0 - LOG( XSCLBDAS_MIN ) / ZRATE
+!
+!
+ IND = 50 ! Interval number, collection efficiency and infinite diameter
+ ZESS = 1.0 ! factor used to integrate the dimensional distributions when
+ ZFDINFTY = 20.0 ! computing the kernels XKER_SSCSS
+!
+ ALLOCATE( XKER_N_SSCS(NSCLBDAS,NSCLBDAS) )
+!
+ CALL NZCOLX ( IND, XALPHAS, XNUS, XALPHAS, XNUS, &
+ ZESS, XCS, XDS, XFVELOS, XCS, XDS, XFVELOS, &
+ XSCLBDAS_MAX, XSCLBDAS_MAX, XSCLBDAS_MIN, XSCLBDAS_MIN, &
+ ZFDINFTY, XKER_N_SSCS )
+!
+ WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
+ WRITE(UNIT=ILUOUT0,FMT='("**** UPDATE NEW SET OF SSCS KERNELS ***")')
+ WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("KND=",I3)') IND
+ WRITE(UNIT=ILUOUT0,FMT='("KSCLBDAS=",I3)') NSCLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='("PALPHAS=",E13.6)') XALPHAS
+ WRITE(UNIT=ILUOUT0,FMT='("PNUS=",E13.6)') XNUS
+ WRITE(UNIT=ILUOUT0,FMT='("PESS=",E13.6)') ZESS
+ WRITE(UNIT=ILUOUT0,FMT='("PBS=",E13.6)') XBS
+ WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
+ WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PSCLBDAS_MAX=",E13.6)') &
+ XSCLBDAS_MAX
+ WRITE(UNIT=ILUOUT0,FMT='("PSCLBDAS_MIN=",E13.6)') &
+ XSCLBDAS_MIN
+ WRITE(UNIT=ILUOUT0,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SSCS ) ) THEN")')
+ DO J1 = 1 , NSCLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SSCS (",I3,",",I3,") = ",E13.6)') &
+ J1,J1,XKER_N_SSCS (J1,J1)
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!
+!* 7.2N2 Constants for the 'spontaneous' break-up
+!
+ XACCS1=MOMG(XALPHAS,XNUS,XBS)
+ XSPONBUDS1 = 2.5E-3
+ XSPONBUDS2 = 3.5E-3
+ XSPONBUDS3 = 4.5E-3
+ XSPONCOEFS2 = ((XSPONBUDS3/XSPONBUDS2)**3 - 1.0)/(XSPONBUDS3-XSPONBUDS1)**2
+!
+!end if
!
!* 7.3 Constant for the conversion-melting rate
!
@@ -964,16 +1144,12 @@ END IF
NGAMINC = 80
!
!Note : Boundaries are rounded at 5.0 or 1.0 (down for Bound_min and up for Bound_max)
-XGAMINC_BOUND_CIBU_SMIN = 1.0E-5 ! Minimal value of (Lbda_s * D_cs^lim)**alpha) 0.2 mm
-XGAMINC_BOUND_CIBU_SMAX = 5.0E-3 ! Maximal value of (Lbda_s * D_cs^lim)**alpha) 1 mm
-XGAMINC_BOUND_CIBU_SMIN = 1.0E-5 ! Minimal value of (Lbda_s * D_cs^lim)**alpha) 0.2 mm
-XGAMINC_BOUND_CIBU_SMAX = 5.0E+2 ! Maximal value of (Lbda_s * D_cs^lim)**alpha) 1 mm
+XGAMINC_BOUND_CIBU_SMIN = 1.0E-5 * XTRANS_MP_GAMMAS**XALPHAS ! Minimal value of (Lbda_s * D_cs^lim)**alpha) 0.2 mm
+XGAMINC_BOUND_CIBU_SMAX = 5.0E+2 * XTRANS_MP_GAMMAS**XALPHAS ! Maximal value of (Lbda_s * D_cs^lim)**alpha) 1 mm
ZRATE_S = EXP(LOG(XGAMINC_BOUND_CIBU_SMAX/XGAMINC_BOUND_CIBU_SMIN)/FLOAT(NGAMINC-1))
!
-XGAMINC_BOUND_CIBU_GMIN = 1.0E-1 ! Minimal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
-XGAMINC_BOUND_CIBU_GMAX = 1.0E0 ! Maximal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
-XGAMINC_BOUND_CIBU_GMIN = 1.0E-1 ! Minimal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
-XGAMINC_BOUND_CIBU_GMAX = 5.0E+1 ! Maximal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
+XGAMINC_BOUND_CIBU_GMIN = 1.0E-1 ! Minimal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
+XGAMINC_BOUND_CIBU_GMAX = 5.0E+1 ! Maximal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
ZRATE_G = EXP(LOG(XGAMINC_BOUND_CIBU_GMAX/XGAMINC_BOUND_CIBU_GMIN)/FLOAT(NGAMINC-1))
!
ALLOCATE( XGAMINC_CIBU_S(4,NGAMINC) )
@@ -1003,13 +1179,13 @@ XCIBUINTP_G = XALPHAG / LOG(ZRATE_G)
XCIBUINTP1_G = 1.0 + XCIBUINTP_G * LOG(XDCGLIM_CIBU_MIN/(XGAMINC_BOUND_CIBU_GMIN)**(1.0/XALPHAG))
!
! For ZNI_CIBU
-XFACTOR_CIBU_NI = XNS * (XPI / 4.0) * XCCG * (ZRHO00**XCEXVT)
+XFACTOR_CIBU_NI = (XPI / 4.0) * (ZRHO00**XCEXVT)
XMOMGG_CIBU_1 = MOMG(XALPHAG,XNUG,2.0+XDG)
XMOMGG_CIBU_2 = MOMG(XALPHAG,XNUG,2.0)
XMOMGS_CIBU_1 = MOMG(XALPHAS,XNUS,XDS)
!
! For ZRI_CIBU
-XFACTOR_CIBU_RI = XNS * XAS * (XPI / 4.0) * XCCG * (ZRHO00**XCEXVT)
+XFACTOR_CIBU_RI = XAS * (XPI / 4.0) * (ZRHO00**XCEXVT)
XMOMGS_CIBU_2 = MOMG(XALPHAS,XNUS,XBS)
XMOMGS_CIBU_3 = MOMG(XALPHAS,XNUS,XBS+XDS)
!
@@ -1081,7 +1257,7 @@ END IF
! and for the Hallett-Mossop process
!
XCOLCG = 0.6 ! Estimated from Cober and List (1993)
-XFCDRYG = (XPI/4.0)*XCOLCG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
+XFCDRYG = (XPI/4.0)*XCOLCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
!
XHM_COLLCG= 0.9 ! Collision efficiency graupel/droplet (with Dc>25 microns)
XHM_FACTG = XHM_YIELD*(XHM_COLLCG/XCOLCG)
@@ -1094,7 +1270,7 @@ XCOLIG = 0.01 ! Collection efficiency of I+G
XCOLEXIG = 0.1 ! Temperature factor of the I+G collection efficiency
WRITE (ILUOUT0, FMT=*) ' NEW Constants for the cloud ice collection by the graupeln'
WRITE (ILUOUT0, FMT=*) ' XCOLIG, XCOLEXIG = ',XCOLIG,XCOLEXIG
-XFIDRYG = (XPI/4.0)*XCOLIG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
+XFIDRYG = (XPI/4.0)*XCOLIG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -1111,8 +1287,12 @@ XCOLSG = 0.01 ! Collection efficiency of S+G
XCOLEXSG = 0.1 ! Temperature factor of the S+G collection efficiency
WRITE (ILUOUT0, FMT=*) ' NEW Constants for the aggregate collection by the graupeln'
WRITE (ILUOUT0, FMT=*) ' XCOLSG, XCOLEXSG = ',XCOLSG,XCOLEXSG
-XFSDRYG = XNS*(XPI/4.0)*XCOLSG*XCCG*XAS*(ZRHO00**XCEXVT)
+XFSDRYG = XNS*(XPI/4.0)*XCOLSG*XAS*(ZRHO00**XCEXVT)
+XFNSDRYG= (XPI/4.0)*XCOLSG*(ZRHO00**XCEXVT)
!
+XLBNSDRYG1 = MOMG(XALPHAG,XNUG,2.)
+XLBNSDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAS,XNUS,1.)
+XLBNSDRYG3 = MOMG(XALPHAS,XNUS,2.)
XLBSDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAS,XNUS,XBS)
XLBSDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
XLBSDRYG3 = MOMG(XALPHAS,XNUS,XBS+2.)
@@ -1126,11 +1306,15 @@ END IF
!
!* 8.2.4 Constants for the raindrop collection by the graupeln
!
-XFRDRYG = ((XPI**2)/24.0)*XCCG*XRHOLW*(ZRHO00**XCEXVT)
+XFRDRYG = XNR*(XPI/4.0)*XAR*(ZRHO00**XCEXVT)
+XFNRDRYG= (XPI/4.0)*(ZRHO00**XCEXVT)
!
-XLBRDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAR,XNUR,3.)
-XLBRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,4.)
-XLBRDRYG3 = MOMG(XALPHAR,XNUR,5.)
+XLBRDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAR,XNUR,XBR)
+XLBRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,XBR+1.)
+XLBRDRYG3 = MOMG(XALPHAR,XNUR,XBR+2.)
+XLBNRDRYG1 = MOMG(XALPHAG,XNUG,2.)
+XLBNRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,1.)
+XLBNRDRYG3 = MOMG(XALPHAR,XNUR,2.)
!
! Notice: One magnitude of lambda discretized over 10 points
!
@@ -1141,8 +1325,8 @@ ZRATE = LOG(XDRYLBDAR_MAX/XDRYLBDAR_MIN)/REAL(NDRYLBDAR-1)
XDRYINTP1R = 1.0 / ZRATE
XDRYINTP2R = 1.0 - LOG( XDRYLBDAR_MIN ) / ZRATE
NDRYLBDAS = 80
-XDRYLBDAS_MIN = 5.0E2*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_SDRYG
-XDRYLBDAS_MAX = 1.0E5*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_SDRYG
+XDRYLBDAS_MIN = 5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_SDRYG
+XDRYLBDAS_MAX = 5.0E8*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_SDRYG
ZRATE = LOG(XDRYLBDAS_MAX/XDRYLBDAS_MIN)/REAL(NDRYLBDAS-1)
XDRYINTP1S = 1.0 / ZRATE
XDRYINTP2S = 1.0 - LOG( XDRYLBDAS_MIN ) / ZRATE
@@ -1160,16 +1344,32 @@ ZEGS = 1.0 ! factor used to integrate the dimensional distributions when
ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
!
ALLOCATE( XKER_SDRYG(NDRYLBDAG,NDRYLBDAS) )
-!
-CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY )
+!if (NMOM_S.GE.2) then
+ ALLOCATE( XKER_N_SDRYG(NDRYLBDAG,NDRYLBDAS) )
+ CALL NZCOLX ( IND, XALPHAG, XNUG, XALPHAS, XNUS, &
+ ZEGS, XCG, XDG, 0., XCS, XDS, XFVELOS, &
+ XDRYLBDAG_MAX, XDRYLBDAS_MAX, XDRYLBDAG_MIN, XDRYLBDAS_MIN, &
+ ZFDINFTY, XKER_N_SDRYG )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SDRYG) ) THEN")')
+ DO J1 = 1 , NDRYLBDAG
+ DO J2 = 1 , NDRYLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SDRYG(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_SDRYG(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
+!
+CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY )
IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
(PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PEGS/=ZEGS) .OR. (PBS/=XBS) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. &
+ (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
(PDRYLBDAG_MAX/=XDRYLBDAG_MAX) .OR. (PDRYLBDAS_MAX/=XDRYLBDAS_MAX) .OR. &
(PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAS_MIN/=XDRYLBDAS_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
@@ -1194,6 +1394,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("PDG=",E13.6)') XDG
WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=ILUOUT0,FMT='("PDRYLBDAG_MAX=",E13.6)') &
XDRYLBDAG_MAX
WRITE(UNIT=ILUOUT0,FMT='("PDRYLBDAS_MAX=",E13.6)') &
@@ -1213,10 +1414,10 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
- CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,XKER_SDRYG )
+ CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY,XKER_SDRYG )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SDRYG")')
END IF
!
@@ -1226,6 +1427,22 @@ ZEGR = 1.0 ! distributions when computing the kernel XKER_RDRYG
ZFDINFTY = 20.0
!
ALLOCATE( XKER_RDRYG(NDRYLBDAG,NDRYLBDAR) )
+!if ( NMOM_R.GE.2 ) then
+ ALLOCATE( XKER_N_RDRYG(NDRYLBDAG,NDRYLBDAR) )
+ CALL NZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZEGR, XCG, XDG, 0., XCR, XDR, 0., &
+ XDRYLBDAG_MAX, XDRYLBDAR_MAX, XDRYLBDAG_MIN, XDRYLBDAR_MIN, &
+ ZFDINFTY, XKER_N_RDRYG )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_RDRYG) ) THEN")')
+ DO J1 = 1 , NDRYLBDAG
+ DO J2 = 1 , NDRYLBDAR
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_RDRYG(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_RDRYG(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
!
CALL LIMA_READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
@@ -1240,7 +1457,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAR/=NDRYLBDAR) .OR. (KND/=IND) .OR. &
(PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAR_MIN/=XDRYLBDAR_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAR, XNUR, &
- ZEGR, XBR, XCG, XDG,0., XCR, XDR, 0., &
+ ZEGR, XBR, XCG, XDG, 0., XCR, XDR, 0., &
XDRYLBDAG_MAX, XDRYLBDAR_MAX, XDRYLBDAG_MIN, XDRYLBDAR_MIN, &
ZFDINFTY, XKER_RDRYG )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
@@ -1297,30 +1514,37 @@ END IF
!* 9.2.1 Constant for the cloud droplet and cloud ice collection
! by the hailstones
!
-XFWETH = (XPI/4.0)*XCCH*XCH*(ZRHO00**XCEXVT)*MOMG(XALPHAH,XNUH,XDH+2.0)
+XFWETH = (XPI/4.0)*XCH*(ZRHO00**XCEXVT)*MOMG(XALPHAH,XNUH,XDH+2.0)
!
!* 9.2.2 Constants for the aggregate collection by the hailstones
!
-!XFSWETH = (XPI/4.0)*XCCH*XCCS*XAS*(ZRHO00**XCEXVT)
-XFSWETH = XNS*(XPI/4.0)*XCCH*XAS*(ZRHO00**XCEXVT) ! Wurtz
+XFSWETH = XNS*(XPI/4.0)*XAS*(ZRHO00**XCEXVT)
+XFNSWETH= (XPI/4.0)*(ZRHO00**XCEXVT)
!
XLBSWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAS,XNUS,XBS)
XLBSWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
XLBSWETH3 = MOMG(XALPHAS,XNUS,XBS+2.)
+XLBNSWETH1 = MOMG(XALPHAH,XNUH,2.)
+XLBNSWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAS,XNUS,1.)
+XLBNSWETH3 = MOMG(XALPHAS,XNUS,2.)
!
!* 9.2.3 Constants for the graupel collection by the hailstones
!
-XFGWETH = (XPI/4.0)*XCCH*XCCG*XAG*(ZRHO00**XCEXVT)
+XFGWETH = XNG*(XPI/4.0)*XAG*(ZRHO00**XCEXVT)
+XFNGWETH= (XPI/4.0)*(ZRHO00**XCEXVT)
!
XLBGWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAG,XNUG,XBG)
XLBGWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAG,XNUG,XBG+1.)
XLBGWETH3 = MOMG(XALPHAG,XNUG,XBG+2.)
+XLBNGWETH1 = MOMG(XALPHAH,XNUH,2.)
+XLBNGWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAG,XNUG,1.)
+XLBNGWETH3 = MOMG(XALPHAG,XNUG,2.)
!
! Notice: One magnitude of lambda discretized over 10 points
!
NWETLBDAS = 80
-XWETLBDAS_MIN = 5.0E2*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_SWETH
-XWETLBDAS_MAX = 1.0E5*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_SWETH
+XWETLBDAS_MIN = 5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_SWETH
+XWETLBDAS_MAX = 5.0E8*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_SWETH
ZRATE = LOG(XWETLBDAS_MAX/XWETLBDAS_MIN)/REAL(NWETLBDAS-1)
XWETINTP1S = 1.0 / ZRATE
XWETINTP2S = 1.0 - LOG( XWETLBDAS_MIN ) / ZRATE
@@ -1343,22 +1567,38 @@ IND = 50 ! Interval number, collection efficiency and infinite diameter
ZEHS = 1.0 ! factor used to integrate the dimensional distributions when
ZFDINFTY = 20.0 ! computing the kernels XKER_SWETH
!
+!if ( NMOM_S.GE.2 ) then
+ IF( .NOT.ALLOCATED(XKER_N_SWETH) ) ALLOCATE( XKER_N_SWETH(NWETLBDAH,NWETLBDAS) )
+ CALL NZCOLX ( IND, XALPHAH, XNUH, XALPHAS, XNUS, &
+ ZEHS, XCH, XDH, 0., XCS, XDS, XFVELOS, & !
+ XWETLBDAH_MAX, XWETLBDAS_MAX, XWETLBDAH_MIN, XWETLBDAS_MIN, & !
+ ZFDINFTY, XKER_N_SWETH )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SWETH) ) THEN")')
+ DO J1 = 1 , NWETLBDAH
+ DO J2 = 1 , NWETLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SWETH(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_SWETH(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
IF( .NOT.ALLOCATED(XKER_SWETH) ) ALLOCATE( XKER_SWETH(NWETLBDAH,NWETLBDAS) )
!
-CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY )
+CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY )
IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
(PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PEHS/=ZEHS) .OR. (PBS/=XBS) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. &
+ (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
(PWETLBDAH_MAX/=XWETLBDAH_MAX) .OR. (PWETLBDAS_MAX/=XWETLBDAS_MAX) .OR. &
(PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAS_MIN/=XWETLBDAS_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAS, XNUS, &
- ZEHS, XBS, XCH, XDH,0., XCS, XDS, XFVELOS, &
+ ZEHS, XBS, XCH, XDH, 0., XCS, XDS, XFVELOS, &
XWETLBDAH_MAX, XWETLBDAS_MAX, XWETLBDAH_MIN, XWETLBDAS_MIN, &
ZFDINFTY, XKER_SWETH )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
@@ -1378,6 +1618,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("PDH=",E13.6)') XDH
WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=ILUOUT0,FMT='("PWETLBDAH_MAX=",E13.6)') &
XWETLBDAH_MAX
WRITE(UNIT=ILUOUT0,FMT='("PWETLBDAS_MAX=",E13.6)') &
@@ -1397,10 +1638,10 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
- CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,XKER_SWETH )
+ CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY,XKER_SWETH )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SWETH")')
END IF
!
@@ -1409,6 +1650,22 @@ IND = 50 ! Number of interval used to integrate the dimensional
ZEHG = 1.0 ! distributions when computing the kernel XKER_GWETH
ZFDINFTY = 20.0
!
+!if ( NMOM_G.GE.2 ) then
+ IF( .NOT.ALLOCATED(XKER_N_GWETH) ) ALLOCATE( XKER_N_GWETH(NWETLBDAH,NWETLBDAG) )
+ CALL NZCOLX ( IND, XALPHAH, XNUH, XALPHAG, XNUG, &
+ ZEHG, XCH, XDH, 0., XCG, XDG, 0., &
+ XWETLBDAH_MAX, XWETLBDAG_MAX, XWETLBDAH_MIN, XWETLBDAG_MIN, &
+ ZFDINFTY, XKER_N_GWETH )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_GWETH) ) THEN")')
+ DO J1 = 1 , NWETLBDAH
+ DO J2 = 1 , NWETLBDAG
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_GWETH(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_GWETH(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
IF( .NOT.ALLOCATED(XKER_GWETH) ) ALLOCATE( XKER_GWETH(NWETLBDAH,NWETLBDAG) )
!
CALL LIMA_READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
@@ -1424,7 +1681,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAG/=NWETLBDAG) .OR. (KND/=IND) .OR. &
(PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAG_MIN/=XWETLBDAG_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAG, XNUG, &
- ZEHG, XBG, XCH, XDH,0., XCG, XDG, 0., &
+ ZEHG, XBG, XCH, XDH, 0., XCG, XDG, 0., &
XWETLBDAH_MAX, XWETLBDAG_MAX, XWETLBDAH_MIN, XWETLBDAG_MIN, &
ZFDINFTY, XKER_GWETH )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
diff --git a/src/MNH/ini_lima_warm.f90 b/src/MNH/ini_lima_warm.f90
index 842552d8131dbe99f954f8c1aeaae70b8ea8f353..aea2517cab9d168a998aa6785bd35693674050d9 100644
--- a/src/MNH/ini_lima_warm.f90
+++ b/src/MNH/ini_lima_warm.f90
@@ -162,8 +162,17 @@ ZGAMR(6) = MOMG(XALPHAR,XNUR,3.)**(2./3.)/MOMG(XALPHAR,XNUR,2.)
!
XLBC = XAR*ZGAMC(2)
XLBEXC = 1.0/XBC
-XLBR = XAR*ZGAMR(2)
-XLBEXR = 1.0/XBR
+!
+XNR = 1.0/(XAR*MOMG(XALPHAR,XNUR,XBR))
+XCCR = 8.E6
+XCXR = -1.
+IF (NMOM_R.EQ.1) THEN
+ XLBEXR = 1.0/(XCXR-XBR)
+ XLBR = ( XAR*XCCR*MOMG(XALPHAR,XNUR,XBR) )**(-XLBEXR)
+ELSE
+ XLBR = XAR*ZGAMR(2)
+ XLBEXR = 1.0/XBR
+END IF
!
!
!------------------------------------------------------------------------------
@@ -353,6 +362,11 @@ XACCR_CSMALL2 = XKERA1*ZGAMR(3)
XACCR_RSMALL1 = XKERA1*ZGAMC(5)*XRHOLW*(XPI/6.0)
XACCR_RSMALL2 = XKERA1*ZGAMC(2)*ZGAMR(3)*XRHOLW*(XPI/6.0)
!
+! ICE3 accretion of cloud droplets by rain drops
+!
+XFCACCR = (XPI/4.0)*XCCR*XCR*(ZRHO00**XCEXVT)*MOMG(XALPHAR,XNUR,XDR+2.0)
+XEXCACCR = -XDR-3.0
+!
! Cst for the raindrop self-collection/breakup process
!
XSCBU2 = XKERA2*ZGAMR(2)
diff --git a/src/MNH/ini_nsv.f90 b/src/MNH/ini_nsv.f90
index 9ea8633fc038654987a6994537da2f0b521c672e..8f1da03c448a18c27de445bd0bd347e298e29c06 100644
--- a/src/MNH/ini_nsv.f90
+++ b/src/MNH/ini_nsv.f90
@@ -107,8 +107,9 @@ USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_NSV
USE MODD_PARAM_C2R2, ONLY: LSUPSAT
USE MODD_PARAM_LIMA, ONLY: NINDICE_CCN_IMM, NIMM, NMOD_CCN, LSCAV, LAERO_MASS, &
- NMOD_IFN, NMOD_IMM, LHHONI, &
- LWARM, LCOLD, LRAIN, LSPRO
+ NMOD_IFN, NMOD_IMM, LHHONI, LSNOW, LHAIL, &
+ LWARM, LCOLD, LRAIN, LSPRO, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY: CLIMA_COLD_NAMES
USE MODD_PARAM_LIMA_WARM, ONLY: CAERO_MASS, CLIMA_WARM_NAMES
USE MODD_PARAM_n, ONLY: CCLOUD, CELEC
@@ -193,16 +194,16 @@ END IF
IF (CCLOUD == 'LIMA' ) THEN
ISV = ISV+1
NSV_LIMA_BEG_A(KMI) = ISV
- IF (LWARM) THEN
+ IF (LWARM .AND. NMOM_C.GE.2) THEN
! Nc
NSV_LIMA_NC_A(KMI) = ISV
ISV = ISV+1
+ END IF
! Nr
- IF (LRAIN) THEN
+ IF (LWARM .AND. LRAIN .AND. NMOM_R.GE.2) THEN
NSV_LIMA_NR_A(KMI) = ISV
ISV = ISV+1
END IF
- END IF ! LWARM
! CCN
IF (NMOD_CCN .GT. 0) THEN
NSV_LIMA_CCN_FREE_A(KMI) = ISV
@@ -214,13 +215,27 @@ IF (CCLOUD == 'LIMA' ) THEN
IF (LSCAV .AND. LAERO_MASS) THEN
NSV_LIMA_SCAVMASS_A(KMI) = ISV
ISV = ISV+1
- END IF ! LSCAV
-!
- IF (LCOLD) THEN
+ END IF
! Ni
+ IF (LCOLD .AND. NMOM_I.GE.2) THEN
NSV_LIMA_NI_A(KMI) = ISV
ISV = ISV+1
- END IF ! LCOLD
+ END IF
+! Ns
+ IF (LCOLD .AND. LSNOW .AND. NMOM_S.GE.2) THEN
+ NSV_LIMA_NS_A(KMI) = ISV
+ ISV = ISV+1
+ END IF
+! Ng
+ IF (LCOLD .AND. LWARM .AND. LSNOW .AND. NMOM_G.GE.2) THEN
+ NSV_LIMA_NG_A(KMI) = ISV
+ ISV = ISV+1
+ END IF
+! Nh
+ IF (LCOLD .AND. LWARM .AND. LSNOW .AND. LHAIL .AND. NMOM_H.GE.2) THEN
+ NSV_LIMA_NH_A(KMI) = ISV
+ ISV = ISV+1
+ END IF
! IFN
IF (NMOD_IFN .GT. 0) THEN
NSV_LIMA_IFN_FREE_A(KMI) = ISV
@@ -233,7 +248,7 @@ IF (CCLOUD == 'LIMA' ) THEN
NSV_LIMA_IMM_NUCL_A(KMI) = ISV
ISV = ISV + MAX(1,NMOD_IMM)
END IF
-
+!
IF ( NMOD_IFN > 0 ) THEN
IF ( .NOT. ALLOCATED( NIMM ) ) ALLOCATE( NIMM(NMOD_CCN) )
NIMM(:) = 0
@@ -806,17 +821,23 @@ DO JSV = NSV_LIMA_BEG_A(KMI), NSV_LIMA_END_A(KMI)
CSVNAMES_A(JSV,KMI) = TRIM( CAERO_MASS(1) )
ELSE IF ( JSV == NSV_LIMA_NI_A(KMI) ) THEN
CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(1) )
+ ELSE IF ( JSV == NSV_LIMA_NS_A(KMI) ) THEN
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(2) )
+ ELSE IF ( JSV == NSV_LIMA_NG_A(KMI) ) THEN
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(3) )
+ ELSE IF ( JSV == NSV_LIMA_NH_A(KMI) ) THEN
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(4) )
ELSE IF ( JSV >= NSV_LIMA_IFN_FREE_A(KMI) .AND. JSV < NSV_LIMA_IFN_NUCL_A(KMI) ) THEN
WRITE( YNUM2, '( I2.2 )' ) JSV - NSV_LIMA_IFN_FREE_A(KMI) + 1
- CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(2) ) // YNUM2
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(5) ) // YNUM2
ELSE IF ( JSV >= NSV_LIMA_IFN_NUCL_A(KMI) .AND. JSV < ( NSV_LIMA_IFN_NUCL_A(KMI) + NMOD_IFN ) ) THEN
WRITE( YNUM2, '( I2.2 )' ) JSV - NSV_LIMA_IFN_NUCL_A(KMI) + 1
- CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(3) ) // YNUM2
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(6) ) // YNUM2
ELSE IF ( JSV >= NSV_LIMA_IMM_NUCL_A(KMI) .AND. JSV < ( NSV_LIMA_IMM_NUCL_A(KMI) + NMOD_IMM ) ) THEN
WRITE( YNUM2, '( I2.2 )' ) NINDICE_CCN_IMM(JSV-NSV_LIMA_IMM_NUCL_A(KMI)+1)
- CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(4) ) // YNUM2
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(7) ) // YNUM2
ELSE IF ( JSV == NSV_LIMA_HOM_HAZE_A(KMI) ) THEN
- CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(5) )
+ CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(8) )
ELSE IF ( JSV == NSV_LIMA_SPRO_A(KMI) ) THEN
CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_WARM_NAMES(5) )
ELSE
diff --git a/src/MNH/ini_rain_ice.f90 b/src/MNH/ini_rain_ice.f90
index 9f984f940bf7f14e574995b1659cbfe3086887ec..c20b57f38a29c7031fedf1993b1572b0ef04e307 100644
--- a/src/MNH/ini_rain_ice.f90
+++ b/src/MNH/ini_rain_ice.f90
@@ -184,7 +184,7 @@ REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH
REAL :: PNUR,PNUS,PNUG,PNUH
REAL :: PBR,PBS,PBG
REAL :: PCR,PCS,PCG,PCH
-REAL :: PDR,PDS,PDG,PDH
+REAL :: PDR,PDS,PFVELOS,PDG,PDH
REAL :: PESR,PEGS,PEGR,PEHS,PEHG,PEHR
REAL :: PFDINFTY
REAL :: PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN
@@ -507,20 +507,15 @@ XEXCSEDI =-0.9324*3.0
WRITE (KLUOUT,FMT=*)' PRISTINE ICE SEDIMENTATION for columns XFSEDI =',XFSEDI
!
!
-!IF (LSNOW_T) THEN
-!HOUZE/HAIC
- !XEXSEDS = -XDS !(2*XBS+XDS)
- !XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
- ! *(ZRHO00)**XCEXVT
-!LH_EXTENDED
+IF (LRED) THEN
XEXSEDS = -XDS-XBS
XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
*(ZRHO00)**XCEXVT
-!ELSE
-! XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
-! XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
-! (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
-!END IF
+ELSE
+ XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
+ XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
+ (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
+END IF
!
XEXSEDG = (XBG+XDG-XCXG)/(XBG-XCXG)
XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
@@ -595,7 +590,7 @@ X2DEPI = (4.0*XPI)*XC1I*XF2I*XC_I*MOMG(XALPHAI,XNUI,XDI+2.0)
!
X0DEPS = XNS*(4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
X1DEPS = XNS*(4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = XBS-1.0
+XEX0DEPS = -1.0
XEX1DEPS = -0.5*(XDS+3.0)
!
X0DEPG = (4.0*XPI)*XCCG*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
@@ -766,15 +761,15 @@ IF( .NOT.ALLOCATED(XKER_RACCSS) ) ALLOCATE( XKER_RACCSS(NACCLBDAS,NACCLBDAR) )
IF( .NOT.ALLOCATED(XKER_RACCS ) ) ALLOCATE( XKER_RACCS (NACCLBDAS,NACCLBDAR) )
IF( .NOT.ALLOCATED(XKER_SACCRG) ) ALLOCATE( XKER_SACCRG(NACCLBDAR,NACCLBDAS) )
!
-CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
- PFDINFTY )
+CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY )
IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
(PESR/=ZESR) .OR. (PBS/=XBS) .OR. (PBR/=XBR) .OR. &
- (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
+ (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
(PACCLBDAS_MAX/=XACCLBDAS_MAX) .OR. (PACCLBDAR_MAX/=XACCLBDAR_MAX) .OR. &
(PACCLBDAS_MIN/=XACCLBDAS_MIN) .OR. (PACCLBDAR_MIN/=XACCLBDAR_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
@@ -808,6 +803,7 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
WRITE(UNIT=KLUOUT,FMT='("PACCLBDAS_MAX=",E13.6)') &
@@ -847,10 +843,10 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=KLUOUT,FMT='("END IF")')
ELSE
- CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
- PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
+ CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCSS")')
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCS ")')
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SACCRG")')
@@ -975,14 +971,14 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
IF( .NOT.ALLOCATED(XKER_SDRYG) ) ALLOCATE( XKER_SDRYG(NDRYLBDAG,NDRYLBDAS) )
!
CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY )
IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
(PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PEGS/=ZEGS) .OR. (PBS/=XBS) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. &
+ (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
(PDRYLBDAG_MAX/=XDRYLBDAG_MAX) .OR. (PDRYLBDAS_MAX/=XDRYLBDAS_MAX) .OR. &
(PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAS_MIN/=XDRYLBDAS_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
@@ -1007,6 +1003,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MAX=",E13.6)') &
XDRYLBDAG_MAX
WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAS_MAX=",E13.6)') &
@@ -1027,7 +1024,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("END IF")')
ELSE
CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY,XKER_SDRYG )
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SDRYG")')
@@ -1180,14 +1177,14 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_SWETH
IF( .NOT.ALLOCATED(XKER_SWETH) ) ALLOCATE( XKER_SWETH(NWETLBDAH,NWETLBDAS) )
!
CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
PFDINFTY )
IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
(PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PEHS/=ZEHS) .OR. (PBS/=XBS) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. &
+ (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
(PWETLBDAH_MAX/=XWETLBDAH_MAX) .OR. (PWETLBDAS_MAX/=XWETLBDAS_MAX) .OR. &
(PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAS_MIN/=XWETLBDAS_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
@@ -1212,6 +1209,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
XWETLBDAH_MAX
WRITE(UNIT=KLUOUT,FMT='("PWETLBDAS_MAX=",E13.6)') &
@@ -1232,7 +1230,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("END IF")')
ELSE
CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
PFDINFTY,XKER_SWETH )
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SWETH")')
diff --git a/src/MNH/ini_rain_ice_elec.f90 b/src/MNH/ini_rain_ice_elec.f90
index add17924b62d35cfce8de422a822442887e51937..7c1eaf591957ce9b2d99915b2c79d7a1c584c5e9 100644
--- a/src/MNH/ini_rain_ice_elec.f90
+++ b/src/MNH/ini_rain_ice_elec.f90
@@ -87,7 +87,6 @@ END MODULE MODI_INI_RAIN_ICE_ELEC
!! Modifications:
!! C. Barthe 20/11/09 update to version 4.8.1
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
-! J. Wurtz 03/2022: New snow characteristics with LSNOW_T
!
!-------------------------------------------------------------------------------
!
@@ -165,7 +164,7 @@ REAL :: PALPHAR, PALPHAS, PALPHAG, PALPHAH
REAL :: PNUR, PNUS, PNUG, PNUH
REAL :: PBR, PBS, PBG, PBH
REAL :: PCR, PCS, PCG, PCH
-REAL :: PDR, PDS, PDG, PDH
+REAL :: PDR, PDS, PFVELOS, PDG, PDH
REAL :: PESR, PEGS, PEGR, PEHS, PEHG
REAL :: PACCLBDAS_MAX, PACCLBDAR_MAX, PACCLBDAS_MIN, PACCLBDAR_MIN
REAL :: PDRYLBDAG_MAX, PDRYLBDAS_MAX, PDRYLBDAG_MIN, PDRYLBDAS_MIN
@@ -272,25 +271,12 @@ XF2I = 0.14
!
XAS = 0.02
XBS = 1.9
-IF (LSNOW_T) THEN
-!Cas Gamma generalisee
-XCS = 11.52
-XDS = 0.39
-XFVELOS =0.097
-!Cas MP
-!XCS = 13.2
-!XDS = 0.423
-!XFVELOS = 25.14
-ELSE
-XCS = 5.
+XCS = 5.1
XDS = 0.27
XFVELOS = 0.
-END IF
!
-IF (.NOT. LSNOW_T) THEN
XCCS = 5.0
XCXS = 1.0
-END IF
!
XF0S = 0.86
XF1S = 0.28
@@ -357,17 +343,8 @@ XNUR = 1.0 ! Exponential law
XALPHAI = 3.0 ! Gamma law for the ice crystal volume
XNUI = 3.0 ! Gamma law with little dispersion
!
-IF (LSNOW_T) THEN
-!Cas GAMMAGEN
- XALPHAS = .214 ! Generalized gamma law
- XNUS = 43.7 ! Generalized gamma law
- XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
- ( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
-ELSE
- XALPHAS = 1.0 ! Exponential law
- XNUS = 1.0 ! Exponential law
- XTRANS_MP_GAMMAS = 1.
-END IF
+XALPHAS = 1.0 ! Exponential law
+XNUS = 1.0 ! Exponential law
!
XALPHAG = 1.0 ! Exponential law
XNUG = 1.0 ! Exponential law
@@ -389,7 +366,6 @@ XLBR = (XAR * XCCR * MOMG(XALPHAR,XNUR,XBR))**(-XLBEXR)
XLBEXI = 1.0 / (-XBI)
XLBI = (XAI * MOMG(XALPHAI,XNUI,XBI))**(-XLBEXI)
!
-XNS = 1.0/(XAS*MOMG(XALPHAS,XNUS,XBS))
XLBEXS = 1.0/(XCXS-XBS)
XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
!
@@ -406,8 +382,7 @@ XLBDAS_MAX = 100000.0
XLBDAG_MAX = 100000.0
!
ZCONC_MAX = 1.E6 ! Maximal concentration for falling particules set to 1 per cc
-XLBDAS_MAX = 1.E6
-XLBDAS_MIN = 1000.
+XLBDAS_MAX = (ZCONC_MAX / XCCS)**(1./XCXS)
!
IF (HCLOUD == 'ICE4') THEN
ALLOCATE( XRTMIN(7) )
@@ -468,20 +443,9 @@ XEXCSEDI =-0.9324 * 3.0
WRITE (KLUOUT,FMT=*)' PRISTINE ICE SEDIMENTATION for columns XFSEDI =',XFSEDI
!
!
-IF (LSNOW_T) THEN
-!HOUZE/HAIC
- !XEXSEDS = -XDS !(2*XBS+XDS)
- !XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
- ! *(ZRHO00)**XCEXVT
-!LH_EXTENDED
- XEXSEDS = -XDS-XBS
- XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
- *(ZRHO00)**XCEXVT
-ELSE
- XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
- XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
+XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
+XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
(XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
-END IF
!
XEXSEDG = (XBG+XDG-XCXG)/(XBG-XCXG)
XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
@@ -554,10 +518,10 @@ XSCFAC = (0.63**(1./3.)) * SQRT((ZRHO00)**XCEXVT) ! One assumes Sc=0.63
X0DEPI = (4.0 * XPI) * XC1I * XF0I * MOMG(XALPHAI,XNUI,1.)
X2DEPI = (4.0 * XPI) * XC1I * XF2I * XC_I * MOMG(XALPHAI,XNUI,XDI+2.0)
!
-X0DEPS = XNS*(4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = XNS*(4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = XBS-1.0
-XEX1DEPS = -0.5*(XDS+3.0)
+X0DEPS = (4.0 * XPI) * XCCS * XC1S * XF0S * MOMG(XALPHAS,XNUS,1.)
+X1DEPS = (4.0 * XPI) * XCCS * XC1S * XF1S * SQRT(XCS) * MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
+XEX0DEPS = XCXS - 1.0
+XEX1DEPS = XCXS - 0.5 * (XDS + 3.0)
!
X0DEPG = (4.0 * XPI) * XCCG * XC1G * XF0G * MOMG(XALPHAG,XNUG,1.)
X1DEPG = (4.0 * XPI) * XCCG * XC1G * XF1G * SQRT(XCG) * MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
@@ -590,8 +554,9 @@ END IF
!
XCOLIS = 0.25 ! Collection efficiency of I+S
XCOLEXIS = 0.05 ! Temperature factor of the I+S collection efficiency
-XFIAGGS = XNS*(XPI/4.0)*XCOLIS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-XEXIAGGS = -XDS - 2.0 ! GAMMGEN LH_EXTENDED
+XFIAGGS = (XPI / 4.0) * XCOLIS * XCCS * XCS * (ZRHO00**XCEXVT) * &
+ MOMG(XALPHAS,XNUS,XDS+2.0)
+XEXIAGGS = XCXS - XDS - 2.0
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -641,15 +606,12 @@ XEX1EVAR = -1.0 - 0.5 * (XDR + 3.0)
!
XDCSLIM = 0.007 ! D_cs^lim = 7 mm as suggested by Farley et al. (1989)
XCOLCS = 1.0
-XEXCRIMSS= -XDS-2.0
-XCRIMSS = XNS * (XPI/4.0)*XCOLCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
+XEXCRIMSS= XCXS - XDS - 2.0
+XCRIMSS = (XPI / 4.0) * XCOLCS * XCCS * XCS * (ZRHO00**XCEXVT) * MOMG(XALPHAS,XNUS,XDS+2.0)
XEXCRIMSG= XEXCRIMSS
XCRIMSG = XCRIMSS
-XSRIMCG = XNS*XAS*MOMG(XALPHAS,XNUS,XBS)
-XEXSRIMCG = -XBS
-XSRIMCG2 = XNS*XAG*MOMG(XALPHAS,XNUS,XBG)
-XSRIMCG3 = XFRACM90
-XEXSRIMCG2=XBS-XBG
+XSRIMCG = XCCS * XAS * MOMG(XALPHAS,XNUS,XBS)
+XEXSRIMCG= XCXS - XBS
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -680,13 +642,13 @@ XRIMINTP2 = 1.0 + XRIMINTP1 * LOG(XDCSLIM/(XGAMINC_BOUND_MIN)**(1.0/XALPHAS))
!
!* 7.2 Constants for the accretion of raindrops onto aggregates
!
-XFRACCSS = XNS*((XPI**2)/24.0)*XCCR*XRHOLW*(ZRHO00**XCEXVT)
+XFRACCSS = ((XPI**2) / 24.0) * XCCS * XCCR * XRHOLW * (ZRHO00**XCEXVT)
!
XLBRACCS1 = MOMG(XALPHAS,XNUS,2.) * MOMG(XALPHAR,XNUR,3.)
XLBRACCS2 = 2. * MOMG(XALPHAS,XNUS,1.) * MOMG(XALPHAR,XNUR,4.)
XLBRACCS3 = MOMG(XALPHAR,XNUR,5.)
!
-XFSACCRG = XNS*(XPI/4.0)*XAS*XCCR*(ZRHO00**XCEXVT)
+XFSACCRG = (XPI / 4.0) * XAS * XCCS * XCCR * (ZRHO00**XCEXVT)
!
XLBSACCR1 = MOMG(XALPHAR,XNUR,2.) * MOMG(XALPHAS,XNUS,XBS)
XLBSACCR2 = 2. * MOMG(XALPHAR,XNUR,1.) * MOMG(XALPHAS,XNUS,XBS+1.)
@@ -722,7 +684,7 @@ IF( .NOT.ALLOCATED(XKER_RACCS ) ) ALLOCATE( XKER_RACCS (NACCLBDAS,NACCLBDAR) )
IF( .NOT.ALLOCATED(XKER_SACCRG) ) ALLOCATE( XKER_SACCRG(NACCLBDAR,NACCLBDAS) )
!
CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
PFDINFTY )
IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
@@ -803,7 +765,7 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("END IF")')
ELSE
CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCSS")')
@@ -861,8 +823,6 @@ XCOLEXIG = 0.1 ! Temperature factor of the I+G collection efficiency
WRITE (KLUOUT, FMT=*) ' NEW Constants for the cloud ice collection by the graupeln'
WRITE (KLUOUT, FMT=*) ' XCOLIG, XCOLEXIG = ',XCOLIG,XCOLEXIG
XFIDRYG = (XPI/4.0)*XCOLIG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
-XEXFIDRYG=(XCXG-XDG-2.)/(XCXG-XBG)
-XFIDRYG2=XFIDRYG/XCOLIG*(XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XEXFIDRYG)
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -879,7 +839,8 @@ XCOLSG = 0.01 ! Collection efficiency of S+G
XCOLEXSG = 0.1 ! Temperature factor of the S+G collection efficiency
WRITE (KLUOUT, FMT=*) ' NEW Constants for the aggregate collection by the graupeln'
WRITE (KLUOUT, FMT=*) ' XCOLSG, XCOLEXSG = ',XCOLSG,XCOLEXSG
-XFSDRYG = XNS*(XPI/4.0)*XCOLSG*XCCG*XAS*(ZRHO00**XCEXVT)
+!
+XFSDRYG = (XPI / 4.0) * XCOLSG * XCCG * XCCS * XAS * (ZRHO00**XCEXVT)
!
XLBSDRYG1 = MOMG(XALPHAG,XNUG,2.) * MOMG(XALPHAS,XNUS,XBS)
XLBSDRYG2 = 2. * MOMG(XALPHAG,XNUG,1.) * MOMG(XALPHAS,XNUS,XBS+1.)
@@ -932,7 +893,7 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
IF( .NOT.ALLOCATED(XKER_SDRYG) ) ALLOCATE( XKER_SDRYG(NDRYLBDAG,NDRYLBDAS) )
!
CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY )
IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
@@ -984,7 +945,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("END IF")')
ELSE
CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY,XKER_SDRYG )
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SDRYG")')
@@ -1072,10 +1033,7 @@ XFWETH = (XPI / 4.0) * XCCH * XCH * (ZRHO00**XCEXVT) * MOMG(XALPHAH,XNUH,XDH+2.0
!
!* 9.2.2 Constants for the aggregate collection by the hailstones
!
-XCOLSH = 0.01 ! Collection efficiency of S+H
-XCOLEXSH = 0.1 ! Temperature factor of the S+H collection efficiency
-!XFSWETH = (XPI/4.0)*XCCH*XCCS*XAS*(ZRHO00**XCEXVT)
-XFSWETH = XNS*(XPI/4.0)*XCCH*XAS*(ZRHO00**XCEXVT) ! Wurtz
+XFSWETH = (XPI/4.0) * XCCH * XCCS * XAS * (ZRHO00**XCEXVT)
!
XLBSWETH1 = MOMG(XALPHAH,XNUH,2.) * MOMG(XALPHAS,XNUS,XBS)
XLBSWETH2 = 2. * MOMG(XALPHAH,XNUH,1.) * MOMG(XALPHAS,XNUS,XBS+1.)
@@ -1119,7 +1077,7 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_SWETH
IF( .NOT.ALLOCATED(XKER_SWETH) ) ALLOCATE( XKER_SWETH(NWETLBDAH,NWETLBDAS) )
!
CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
PFDINFTY )
IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
@@ -1171,7 +1129,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=KLUOUT,FMT='("END IF")')
ELSE
CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
PFDINFTY,XKER_SWETH )
WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SWETH")')
diff --git a/src/MNH/khko_notadjust.f90 b/src/MNH/khko_notadjust.f90
index 344c2e97643255c8eca1400ab2da6eeb7bd860a0..4ec4ecdab00f6597c1468a95ecef7af467dbf38b 100644
--- a/src/MNH/khko_notadjust.f90
+++ b/src/MNH/khko_notadjust.f90
@@ -10,7 +10,7 @@
INTERFACE
!
SUBROUTINE KHKO_NOTADJUST(KRR, KTCOUNT, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PZZ, &
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PZZ, &
PTHT,PRVT,PRCT,PRRT, &
PTHS, PRVS, PRCS, PRRS, PCCS, PCNUCS, PSAT, &
PCLDFR, PSRCS, PNPRO,PSSPRO )
@@ -25,7 +25,7 @@ REAL, INTENT(IN) :: PTSTEP ! Double Time step
! (single if cold start)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ ! Reference density
@@ -58,7 +58,7 @@ END MODULE MODI_KHKO_NOTADJUST
!
! ###############################################################################
SUBROUTINE KHKO_NOTADJUST(KRR, KTCOUNT, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PZZ, &
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PZZ, &
PTHT,PRVT,PRCT,PRRT, &
PTHS, PRVS, PRCS, PRRS, PCCS, PCNUCS, PSAT, &
PCLDFR, PSRCS, PNPRO,PSSPRO )
@@ -133,7 +133,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r.
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r.
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r.
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ ! Reference density
@@ -233,7 +233,7 @@ ZACT(:,:,:) = PCCS(:,:,:)
!
!* 2.2 estimate the Exner function at t+1 and t respectively
!
-ZEXNS(:,:,:)=((2.* PPABST(:,:,:)-PPABSM(:,:,:))/XP00 )**(XRD/XCPD)
+ZEXNS(:,:,:)=(PPABSTT(:,:,:)/XP00 )**(XRD/XCPD)
ZEXNT(:,:,:)=(PPABST(:,:,:)/XP00 )**(XRD/XCPD)
!sources terms *dt
PRRS(:,:,:) = PRRS(:,:,:) * PTSTEP
@@ -288,7 +288,7 @@ IF( INUCT >= 1 ) THEN
ALLOCATE(ZZLV(INUCT))
ALLOCATE(ZZCPH(INUCT))
DO JL=1,INUCT
- ZPRES(JL) = 2. * PPABST(I1(JL),I2(JL),I3(JL)) - PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZRHOD(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZRR(JL) = PRRS(I1(JL),I2(JL),I3(JL))
ZTT(JL) = PTHS(I1(JL),I2(JL),I3(JL))
@@ -337,7 +337,7 @@ ENDIF
WHERE(.NOT.GNUCT(:,:,:) )
ZRVSAT(:,:,:) = EXP(XALPW-XBETAW/PTHS(:,:,:)-XGAMW*ALOG(PTHS(:,:,:)))
!rvsat
- ZRVSAT(:,:,:) = (XMV / XMD)*ZRVSAT(:,:,:)/((2.* PPABST(:,:,:)-PPABSM(:,:,:))-ZRVSAT(:,:,:))
+ ZRVSAT(:,:,:) = (XMV / XMD)*ZRVSAT(:,:,:)/(PPABSTT(:,:,:)-ZRVSAT(:,:,:))
PSAT(:,:,:) = (PRVS(:,:,:)/ZRVSAT(:,:,:))-1D0
ENDWHERE
!
diff --git a/src/MNH/lima.f90 b/src/MNH/lima.f90
index 74d60c4ff3433b39da42c27bdef43af05e107777..9859c4bd02f194d19caae1e7e1cbd7c522344a7c 100644
--- a/src/MNH/lima.f90
+++ b/src/MNH/lima.f90
@@ -12,7 +12,7 @@ INTERFACE
SUBROUTINE LIMA ( KKA, KKU, KKL, &
PTSTEP, TPFILE, &
PRHODREF, PEXNREF, PDZZ, &
- PRHODJ, PPABSM, PPABST, &
+ PRHODJ, PPABST, &
NCCN, NIFN, NIMM, &
PDTHRAD, PTHT, PRT, PSVT, PW_NU, &
PTHS, PRS, PSVS, &
@@ -34,7 +34,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! Layer thikness (m)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! absolute pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! absolute pressure at t
!
INTEGER, INTENT(IN) :: NCCN ! for array size declarations
@@ -73,7 +72,7 @@ END MODULE MODI_LIMA
SUBROUTINE LIMA ( KKA, KKU, KKL, &
PTSTEP, TPFILE, &
PRHODREF, PEXNREF, PDZZ, &
- PRHODJ, PPABSM, PPABST, &
+ PRHODJ, PPABST, &
NCCN, NIFN, NIMM, &
PDTHRAD, PTHT, PRT, PSVT, PW_NU, &
PTHS, PRS, PSVS, &
@@ -121,13 +120,14 @@ USE MODD_CST, ONLY: XCI, XCL, XCPD, XCPV, XLSTT, XLVTT, XTT, XRHOLW,
USE MODD_IO, ONLY: TFILEDATA
USE MODD_NSV, ONLY: NSV_LIMA_BEG, &
NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
- NSV_LIMA_NI, NSV_LIMA_IFN_FREE, &
- NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
+ NSV_LIMA_NI, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, &
+ NSV_LIMA_IFN_FREE, NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: LCOLD, LRAIN, LWARM, NMOD_CCN, NMOD_IFN, NMOD_IMM, LHHONI, &
LACTIT, LFEEDBACKT, NMAXITER, XMRSTEP, XTSTEP_TS, &
LSEDC, LSEDI, XRTMIN, XCTMIN, LDEPOC, XVDEPOC, &
- LHAIL, LSNOW
+ LHAIL, LSNOW, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY: XAI, XBI
USE MODD_PARAM_LIMA_WARM, ONLY: XLBC, XLBEXC, XAC, XBC, XAR, XBR
USE MODD_TURB_n, ONLY: LSUBG_COND
@@ -158,7 +158,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! Layer thikness (m)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! absolute pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! absolute pressure at t
!
INTEGER, INTENT(IN) :: NCCN ! for array size declarations
@@ -193,9 +192,9 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PPRCFR ! Cloud fraction
!
! Prognostic variables and sources
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZTHT, ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, ZRHT
-REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCT, ZCRT, ZCIT
+REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCT, ZCRT, ZCIT, ZCST, ZCGT, ZCHT
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZTHS, ZRVS, ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS
-REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCS, ZCRS, ZCIS
+REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCS, ZCRS, ZCIS, ZCSS, ZCGS, ZCHS
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3),NCCN) :: ZCCNFT, ZCCNAT
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3),NCCN) :: ZCCNFS, ZCCNAS
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3),NIFN) :: ZIFNFT, ZIFNNT
@@ -215,7 +214,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: &
ZP1D, ZRHODREF1D, ZEXNREF1D, ZEXN1D, &
ZTHT1D, &
ZRVT1D, ZRCT1D, ZRRT1D, ZRIT1D, ZRST1D, ZRGT1D, ZRHT1D, &
- ZCCT1D, ZCRT1D, ZCIT1D, &
+ ZCCT1D, ZCRT1D, ZCIT1D, ZCST1D, ZCGT1D, ZCHT1D, &
ZEVAP1D
REAL, DIMENSION(:,:), ALLOCATABLE :: ZIFNN1D
@@ -238,26 +237,28 @@ REAL, DIMENSION(:), ALLOCATABLE :: &
Z_TH_DEPS, Z_RS_DEPS, & ! deposition of vapor on snow (DEPS) : rv=-rs, rs, th
Z_TH_DEPI, Z_RI_DEPI, & ! deposition of vapor on ice (DEPI) : rv=-ri, ri, th
Z_RI_CNVS, Z_CI_CNVS, & ! conversion ice -> snow (CNVS) : ri, Ni, rs=-ri
+ Z_CS_SSC, & ! self collection of snow (SSC) : Ns
Z_RI_AGGS, Z_CI_AGGS, & ! aggregation of ice on snow (AGGS) : ri, Ni, rs=-ri
Z_TH_DEPG, Z_RG_DEPG, & ! deposition of vapor on graupel (DEPG) : rv=-rg, rg, th
Z_TH_BERFI, Z_RC_BERFI, & ! Bergeron (BERFI) : rc, ri=-rc, th
- Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_RG_RIM, & ! cloud droplet riming (RIM) : rc, Nc, rs, rg, th
+ Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_CS_RIM, Z_RG_RIM, & ! cloud droplet riming (RIM) : rc, Nc, rs, Ns, rg, Ng=-Ns, th
Z_RI_HMS, Z_CI_HMS, Z_RS_HMS, & ! hallett mossop snow (HMS) : ri, Ni, rs
- Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_RG_ACC, & ! rain accretion on aggregates (ACC) : rr, Nr, rs, rg, th
- Z_RS_CMEL, & ! conversion-melting (CMEL) : rs, rg=-rs
+ Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_CS_ACC, Z_RG_ACC, & ! rain accretion on aggregates (ACC) : rr, Nr, rs, Ns, rg, Ng=-Ns, th
+ Z_RS_CMEL, Z_CS_CMEL, & ! conversion-melting (CMEL) : rs, rg=-rs
Z_TH_CFRZ, Z_RR_CFRZ, Z_CR_CFRZ, Z_RI_CFRZ, Z_CI_CFRZ, & ! rain freezing (CFRZ) : rr, Nr, ri, Ni, rg=-rr-ri, th
Z_RI_CIBU, Z_CI_CIBU, & ! collisional ice break-up (CIBU) : ri, Ni, rs=-ri
Z_RI_RDSF, Z_CI_RDSF, & ! rain drops freezing shattering (RDSF) : ri, Ni, rg=-ri
Z_TH_WETG, Z_RC_WETG, Z_CC_WETG, Z_RR_WETG, Z_CR_WETG, & ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
- Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_RG_WETG, Z_RH_WETG, & ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
+ Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_CS_WETG, Z_RG_WETG, Z_CG_WETG, Z_RH_WETG, & ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, Nh=-Ng, th
Z_TH_DRYG, Z_RC_DRYG, Z_CC_DRYG, Z_RR_DRYG, Z_CR_DRYG, & ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
- Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_RG_DRYG, & ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
+ Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_CS_DRYG, Z_RG_DRYG, & ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, Ns, rg, th
Z_RI_HMG, Z_CI_HMG, Z_RG_HMG, & ! hallett mossop graupel (HMG) : ri, Ni, rg
- Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, & ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
-! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
+ Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, Z_CG_GMLT, & ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
+ Z_TH_DEPH, Z_RH_DEPH, & ! deposition of vapor on hail (DEPH) : rv=-rh, rh, th
+ Z_TH_WETH, Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
+ Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_CS_WETH, Z_RG_WETH, Z_CG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
+ Z_RG_COHG, Z_CG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
+ Z_TH_HMLT, Z_RR_HMLT, Z_CR_HMLT, Z_CH_HMLT, & ! hail melting (HMLT) : rr, Nr, rh=-rr, th
Z_RV_CORR2, Z_RC_CORR2, Z_RR_CORR2, Z_RI_CORR2, &
Z_CC_CORR2, Z_CR_CORR2, Z_CI_CORR2
!
@@ -268,8 +269,8 @@ REAL, DIMENSION(SIZE(PTHT,1),SIZE(PTHT,2),SIZE(PTHT,3)) :: &
!
! Packed variables for total tendencies
REAL, DIMENSION(:), ALLOCATABLE :: &
- ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, ZA_RI, ZA_CI, ZA_RS, ZA_RG, ZA_RH, & ! ZA = continuous tendencies (kg/kg/s = S variable)
- ZB_TH, ZB_RV, ZB_RC, ZB_CC, ZB_RR, ZB_CR, ZB_RI, ZB_CI, ZB_RS, ZB_RG, ZB_RH ! ZB = instant mixing ratio change (kg/kg = T variable)
+ ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, ZA_RI, ZA_CI, ZA_RS, ZA_CS, ZA_RG, ZA_CG, ZA_RH, ZA_CH, & ! ZA = continuous tendencies (kg/kg/s = S variable)
+ ZB_TH, ZB_RV, ZB_RC, ZB_CC, ZB_RR, ZB_CR, ZB_RI, ZB_CI, ZB_RS, ZB_CS, ZB_RG, ZB_CG, ZB_RH, ZB_CH ! ZB = instant mixing ratio change (kg/kg = T variable)
REAL, DIMENSION(:,:), ALLOCATABLE :: ZB_IFNN
!
@@ -291,26 +292,28 @@ REAL, DIMENSION(:,:,:), ALLOCATABLE :: &
ZTOT_TH_DEPS, ZTOT_RS_DEPS, & ! deposition of vapor on snow (DEPS)
ZTOT_TH_DEPI, ZTOT_RI_DEPI, & ! deposition of vapor on ice (DEPI)
ZTOT_RI_CNVS, ZTOT_CI_CNVS, & ! conversion ice -> snow (CNVS)
+ ZTOT_CS_SSC, & ! self collection of snow (SSC)
ZTOT_RI_AGGS, ZTOT_CI_AGGS, & ! aggregation of ice on snow (AGGS)
ZTOT_TH_DEPG, ZTOT_RG_DEPG, & ! deposition of vapor on graupel (DEPG)
ZTOT_TH_BERFI, ZTOT_RC_BERFI, & ! Bergeron (BERFI)
- ZTOT_TH_RIM, ZTOT_RC_RIM, ZTOT_CC_RIM, ZTOT_RS_RIM, ZTOT_RG_RIM, & ! cloud droplet riming (RIM)
+ ZTOT_TH_RIM, ZTOT_RC_RIM, ZTOT_CC_RIM, ZTOT_RS_RIM, ZTOT_CS_RIM, ZTOT_RG_RIM, & ! cloud droplet riming (RIM)
ZTOT_RI_HMS, ZTOT_CI_HMS, ZTOT_RS_HMS, & ! hallett mossop snow (HMS)
- ZTOT_TH_ACC, ZTOT_RR_ACC, ZTOT_CR_ACC, ZTOT_RS_ACC, ZTOT_RG_ACC, & ! rain accretion on aggregates (ACC)
- ZTOT_RS_CMEL, & ! conversion-melting (CMEL)
+ ZTOT_TH_ACC, ZTOT_RR_ACC, ZTOT_CR_ACC, ZTOT_RS_ACC, ZTOT_CS_ACC, ZTOT_RG_ACC, & ! rain accretion on aggregates (ACC)
+ ZTOT_RS_CMEL, ZTOT_CS_CMEL, & ! conversion-melting (CMEL)
ZTOT_TH_CFRZ, ZTOT_RR_CFRZ, ZTOT_CR_CFRZ, ZTOT_RI_CFRZ, ZTOT_CI_CFRZ, & ! rain freezing (CFRZ)
ZTOT_RI_CIBU, ZTOT_CI_CIBU, & ! collisional ice break-up (CIBU)
ZTOT_RI_RDSF, ZTOT_CI_RDSF, & ! rain drops freezing shattering (RDSF)
ZTOT_TH_WETG, ZTOT_RC_WETG, ZTOT_CC_WETG, ZTOT_RR_WETG, ZTOT_CR_WETG, & ! wet growth of graupel (WETG)
- ZTOT_RI_WETG, ZTOT_CI_WETG, ZTOT_RS_WETG, ZTOT_RG_WETG, ZTOT_RH_WETG, & ! wet growth of graupel (WETG)
+ ZTOT_RI_WETG, ZTOT_CI_WETG, ZTOT_RS_WETG, ZTOT_CS_WETG, ZTOT_RG_WETG, ZTOT_CG_WETG, ZTOT_RH_WETG, & ! wet growth of graupel (WETG)
ZTOT_TH_DRYG, ZTOT_RC_DRYG, ZTOT_CC_DRYG, ZTOT_RR_DRYG, ZTOT_CR_DRYG, & ! dry growth of graupel (DRYG)
- ZTOT_RI_DRYG, ZTOT_CI_DRYG, ZTOT_RS_DRYG, ZTOT_RG_DRYG, & ! dry growth of graupel (DRYG)
+ ZTOT_RI_DRYG, ZTOT_CI_DRYG, ZTOT_RS_DRYG, ZTOT_CS_DRYG, ZTOT_RG_DRYG, & ! dry growth of graupel (DRYG)
ZTOT_RI_HMG, ZTOT_CI_HMG, ZTOT_RG_HMG, & ! hallett mossop graupel (HMG)
- ZTOT_TH_GMLT, ZTOT_RR_GMLT, ZTOT_CR_GMLT, & ! graupel melting (GMLT)
-! ZTOT_RC_WETH, ZTOT_CC_WETH, ZTOT_RR_WETH, ZTOT_CR_WETH, & ! wet growth of hail (WETH)
-! ZTOT_RI_WETH, ZTOT_CI_WETH, ZTOT_RS_WETH, ZTOT_RG_WETH, ZTOT_RH_WETH, & ! wet growth of hail (WETH)
-! ZTOT_RG_COHG, & ! conversion of hail into graupel (COHG)
-! ZTOT_RR_HMLT, ZTOT_CR_HMLT, & ! hail melting (HMLT)
+ ZTOT_TH_GMLT, ZTOT_RR_GMLT, ZTOT_CR_GMLT, ZTOT_CG_GMLT, & ! graupel melting (GMLT)
+ ZTOT_TH_DEPH, ZTOT_RH_DEPH, & ! deposition of vapor on hail (DEPH)
+ ZTOT_TH_WETH, ZTOT_RC_WETH, ZTOT_CC_WETH, ZTOT_RR_WETH, ZTOT_CR_WETH, & ! wet growth of hail (WETH)
+ ZTOT_RI_WETH, ZTOT_CI_WETH, ZTOT_RS_WETH, ZTOT_CS_WETH, ZTOT_RG_WETH, ZTOT_CG_WETH, ZTOT_RH_WETH, & ! wet growth of hail (WETH)
+ ZTOT_RG_COHG, ZTOT_CG_COHG, & ! conversion of hail into graupel (COHG)
+ ZTOT_TH_HMLT, ZTOT_RR_HMLT, ZTOT_CR_HMLT, ZTOT_CH_HMLT, & ! hail melting (HMLT)
ZTOT_RR_CVRC, ZTOT_CR_CVRC, & ! conversion of rain into cloud droplets if diameter too small
ZTOT_RV_CORR2, ZTOT_RC_CORR2, ZTOT_RR_CORR2, ZTOT_RI_CORR2, &
ZTOT_CC_CORR2, ZTOT_CR_CORR2, ZTOT_CI_CORR2
@@ -396,6 +399,12 @@ ZCRT(:,:,:) = 0.
ZCRS(:,:,:) = 0.
ZCIT(:,:,:) = 0.
ZCIS(:,:,:) = 0.
+ZCST(:,:,:) = 0.
+ZCSS(:,:,:) = 0.
+ZCGT(:,:,:) = 0.
+ZCGS(:,:,:) = 0.
+ZCHT(:,:,:) = 0.
+ZCHS(:,:,:) = 0.
ZCCNFT(:,:,:,:) = 0.
ZCCNAT(:,:,:,:) = 0.
ZCCNFS(:,:,:,:) = 0.
@@ -441,6 +450,7 @@ if ( lbu_enable ) then
allocate( ZTOT_RI_DEPI (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_DEPI(:,:,:) = 0.
allocate( ZTOT_RI_CNVS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_CNVS(:,:,:) = 0.
allocate( ZTOT_CI_CNVS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_CNVS(:,:,:) = 0.
+ allocate( ZTOT_CS_SSC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_SSC(:,:,:) = 0.
allocate( ZTOT_RI_AGGS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_AGGS(:,:,:) = 0.
allocate( ZTOT_CI_AGGS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_AGGS(:,:,:) = 0.
allocate( ZTOT_TH_DEPG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DEPG(:,:,:) = 0.
@@ -451,6 +461,7 @@ if ( lbu_enable ) then
allocate( ZTOT_RC_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_RIM(:,:,:) = 0.
allocate( ZTOT_CC_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_RIM(:,:,:) = 0.
allocate( ZTOT_RS_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_RIM(:,:,:) = 0.
+ allocate( ZTOT_CS_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_RIM(:,:,:) = 0.
allocate( ZTOT_RG_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_RIM(:,:,:) = 0.
allocate( ZTOT_RI_HMS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_HMS(:,:,:) = 0.
allocate( ZTOT_CI_HMS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_HMS(:,:,:) = 0.
@@ -459,8 +470,10 @@ if ( lbu_enable ) then
allocate( ZTOT_RR_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_ACC(:,:,:) = 0.
allocate( ZTOT_CR_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_ACC(:,:,:) = 0.
allocate( ZTOT_RS_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_ACC(:,:,:) = 0.
+ allocate( ZTOT_CS_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_ACC(:,:,:) = 0.
allocate( ZTOT_RG_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_ACC(:,:,:) = 0.
allocate( ZTOT_RS_CMEL (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_CMEL(:,:,:) = 0.
+ allocate( ZTOT_CS_CMEL (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_CMEL(:,:,:) = 0.
allocate( ZTOT_TH_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_CFRZ(:,:,:) = 0.
allocate( ZTOT_RR_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_CFRZ(:,:,:) = 0.
allocate( ZTOT_CR_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_CFRZ(:,:,:) = 0.
@@ -478,7 +491,9 @@ if ( lbu_enable ) then
allocate( ZTOT_RI_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_WETG(:,:,:) = 0.
allocate( ZTOT_CI_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_WETG(:,:,:) = 0.
allocate( ZTOT_RS_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_WETG(:,:,:) = 0.
+ allocate( ZTOT_CS_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_WETG(:,:,:) = 0.
allocate( ZTOT_RG_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_WETG(:,:,:) = 0.
+ allocate( ZTOT_CG_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_WETG(:,:,:) = 0.
allocate( ZTOT_RH_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_WETG(:,:,:) = 0.
allocate( ZTOT_TH_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DRYG(:,:,:) = 0.
allocate( ZTOT_RC_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_DRYG(:,:,:) = 0.
@@ -488,6 +503,7 @@ if ( lbu_enable ) then
allocate( ZTOT_RI_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_DRYG(:,:,:) = 0.
allocate( ZTOT_CI_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_DRYG(:,:,:) = 0.
allocate( ZTOT_RS_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_DRYG(:,:,:) = 0.
+ allocate( ZTOT_CS_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_DRYG(:,:,:) = 0.
allocate( ZTOT_RG_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_DRYG(:,:,:) = 0.
allocate( ZTOT_RI_HMG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_HMG(:,:,:) = 0.
allocate( ZTOT_CI_HMG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_HMG(:,:,:) = 0.
@@ -495,18 +511,27 @@ if ( lbu_enable ) then
allocate( ZTOT_TH_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_GMLT(:,:,:) = 0.
allocate( ZTOT_RR_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_GMLT(:,:,:) = 0.
allocate( ZTOT_CR_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_GMLT(:,:,:) = 0.
-! allocate( ZTOT_RC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_WETH(:,:,:) = 0.
-! allocate( ZTOT_CC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_WETH(:,:,:) = 0.
-! allocate( ZTOT_RR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_WETH(:,:,:) = 0.
-! allocate( ZTOT_CR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_WETH(:,:,:) = 0.
-! allocate( ZTOT_RI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_WETH(:,:,:) = 0.
-! allocate( ZTOT_CI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_WETH(:,:,:) = 0.
-! allocate( ZTOT_RS_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_WETH(:,:,:) = 0.
-! allocate( ZTOT_RG_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_WETH(:,:,:) = 0.
-! allocate( ZTOT_RH_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_WETH(:,:,:) = 0.
-! allocate( ZTOT_RG_COHG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_COHG(:,:,:) = 0.
-! allocate( ZTOT_RR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_HMLT(:,:,:) = 0.
-! allocate( ZTOT_CR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_HMLT(:,:,:) = 0.
+ allocate( ZTOT_CG_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_GMLT(:,:,:) = 0.
+ allocate( ZTOT_TH_DEPH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DEPH(:,:,:) = 0.
+ allocate( ZTOT_RH_DEPH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_DEPH(:,:,:) = 0.
+ allocate( ZTOT_TH_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_WETH(:,:,:) = 0.
+ allocate( ZTOT_RC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_WETH(:,:,:) = 0.
+ allocate( ZTOT_CC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_WETH(:,:,:) = 0.
+ allocate( ZTOT_RR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_WETH(:,:,:) = 0.
+ allocate( ZTOT_CR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_WETH(:,:,:) = 0.
+ allocate( ZTOT_RI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_WETH(:,:,:) = 0.
+ allocate( ZTOT_CI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_WETH(:,:,:) = 0.
+ allocate( ZTOT_RS_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_WETH(:,:,:) = 0.
+ allocate( ZTOT_CS_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_WETH(:,:,:) = 0.
+ allocate( ZTOT_RG_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_WETH(:,:,:) = 0.
+ allocate( ZTOT_CG_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_WETH(:,:,:) = 0.
+ allocate( ZTOT_RH_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_WETH(:,:,:) = 0.
+ allocate( ZTOT_RG_COHG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_COHG(:,:,:) = 0.
+ allocate( ZTOT_CG_COHG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_COHG(:,:,:) = 0.
+ allocate( ZTOT_TH_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_HMLT(:,:,:) = 0.
+ allocate( ZTOT_RR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_HMLT(:,:,:) = 0.
+ allocate( ZTOT_CR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_HMLT(:,:,:) = 0.
+ allocate( ZTOT_CH_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CH_HMLT(:,:,:) = 0.
allocate( ZTOT_RR_CVRC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_CVRC(:,:,:) = 0.
allocate( ZTOT_CR_CVRC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_CVRC(:,:,:) = 0.
@@ -541,12 +566,23 @@ IF ( KRR .GE. 7 ) ZRHS(:,:,:) = PRS(:,:,:,7)
!
! Concentrations
!
-IF ( LWARM ) ZCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC) * PTSTEP
-IF ( LWARM ) ZCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
-IF ( LWARM .AND. LRAIN ) ZCRT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR) * PTSTEP
-IF ( LWARM .AND. LRAIN ) ZCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
-IF ( LCOLD ) ZCIT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI) * PTSTEP
-IF ( LCOLD ) ZCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_C.GE.2) THEN
+ ZCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC) * PTSTEP
+ ZCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
+ELSE
+ ZCCT(:,:,:) = 300.E6 / PRHODREF(:,:,:)
+ ZCCS(:,:,:) = ZCCT(:,:,:) / PTSTEP
+END IF
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2) ZCRT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR) * PTSTEP
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2) ZCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
+IF ( LCOLD .AND. NMOM_I.GE.2) ZCIT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI) * PTSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2) ZCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( LCOLD .AND. LSNOW .AND. NMOM_S.GE.2) ZCST(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS) * PTSTEP
+IF ( LCOLD .AND. LSNOW .AND. NMOM_S.GE.2) ZCSS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS)
+IF ( LCOLD .AND. NMOM_G.GE.2) ZCGT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG) * PTSTEP
+IF ( LCOLD .AND. NMOM_G.GE.2) ZCGS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG)
+IF ( LCOLD .AND. NMOM_H.GE.2) ZCHT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH) * PTSTEP
+IF ( LCOLD .AND. NMOM_H.GE.2) ZCHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH)
!
IF ( NMOD_CCN .GE. 1 ) ZCCNFT(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) * PTSTEP
IF ( NMOD_CCN .GE. 1 ) ZCCNAT(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1) * PTSTEP
@@ -578,11 +614,11 @@ ZT(:,:,:) = ZTHT(:,:,:) * ZEXN(:,:,:)
! if ( lbudget_ri .and. lcold .and. lsnow ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CORR', zris(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_rs .and. lcold .and. lsnow ) call Budget_store_init( tbudgets(NBUDGET_RS), 'CORR', zrss(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_sv ) then
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_c.ge.2) &
! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CORR', zccs(:, :, :) * prhodj(:, :, :) )
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_r.ge.2) &
! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'CORR', zcrs(:, :, :) * prhodj(:, :, :) )
-! if ( lcold .and. lsnow ) &
+! if ( lcold .and. lsnow .and. nmom_i.ge.2) &
! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CORR', zcis(:, :, :) * prhodj(:, :, :) )
! end if
! end if
@@ -629,11 +665,11 @@ ZT(:,:,:) = ZTHT(:,:,:) * ZEXN(:,:,:)
! if ( lbudget_ri .and. lcold .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CORR', zris(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_rs .and. lcold .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RS), 'CORR', zrss(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_sv ) then
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_c.ge.2) &
! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CORR', zccs(:, :, :) * prhodj(:, :, :) )
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_r.ge.2) &
! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'CORR', zcrs(:, :, :) * prhodj(:, :, :) )
-! if ( lcold .and. lsnow ) &
+! if ( lcold .and. lsnow .and. nmom_i.ge.2) &
! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CORR', zcis(:, :, :) * prhodj(:, :, :) )
! end if
! end if
@@ -652,11 +688,11 @@ if ( lbu_enable ) then
if ( lbudget_rg .and. lcold .and. lsnow ) call Budget_store_init( tbudgets(NBUDGET_RG), 'SEDI', zrgs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rh .and. lcold .and. lhail ) call Budget_store_init( tbudgets(NBUDGET_RH), 'SEDI', zrhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm .and. lsedc ) &
+ if ( lwarm .and. lsedc .and. nmom_c.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'SEDI', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lwarm .and. lrain ) &
+ if ( lwarm .and. lrain .and. nmom_r.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'SEDI', zcrs(:, :, :) * prhodj(:, :, :) )
- if ( lcold .and. lsedi ) &
+ if ( lcold .and. lsedi .and. nmom_i.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', zcis(:, :, :) * prhodj(:, :, :) )
end if
end if
@@ -664,27 +700,27 @@ end if
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LWARM .AND. LSEDC) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'L', 2, 2, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRCS, ZCCS, PINPRC)
+ 'L', 2, 2, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRCS, ZCCS, PINPRC)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LWARM .AND. LRAIN) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'L', 2, 3, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRRS, ZCRS, PINPRR)
+ 'L', NMOM_R, 3, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRRS, ZCRS, PINPRR)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LSEDI) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 2, 4, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRIS, ZCIS, ZW2D)
+ 'I', NMOM_I, 4, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRIS, ZCIS, ZW2D)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LSNOW) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 1, 5, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRSS, ZW3D, PINPRS)
+ 'I', NMOM_S, 5, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRSS, ZCSS, PINPRS)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LSNOW) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 1, 6, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRGS, ZW3D, PINPRG)
+ 'I', NMOM_G, 6, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRGS, ZCGS, PINPRG)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LHAIL) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 1, 7, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRHS, ZW3D, PINPRH)
+ 'I', NMOM_H, 7, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRHS, ZCHS, PINPRH)
!
ZTHS(:,:,:) = ZT(:,:,:) / ZEXN(:,:,:) * ZINV_TSTEP
!
@@ -699,11 +735,11 @@ if ( lbu_enable ) then
if ( lbudget_rg .and. lcold .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RG), 'SEDI', zrgs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rh .and. lcold .and. lhail ) call Budget_store_end( tbudgets(NBUDGET_RH), 'SEDI', zrhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm .and. lsedc ) &
+ if ( lwarm .and. lsedc .and. nmom_c.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'SEDI', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lwarm .and. lrain ) &
+ if ( lwarm .and. lrain .and. nmom_r.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'SEDI', zcrs(:, :, :) * prhodj(:, :, :) )
- if ( lcold .and. lsedi ) &
+ if ( lcold .and. lsedi .and. nmom_i.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', zcis(:, :, :) * prhodj(:, :, :) )
end if
end if
@@ -712,7 +748,8 @@ end if
!
IF (LWARM .AND. LDEPOC) THEN
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'DEPO', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. nmom_c.ge.2) &
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
PINDEP(:,:)=0.
GDEP(:,:) = .FALSE.
@@ -725,35 +762,40 @@ IF (LWARM .AND. LDEPOC) THEN
END WHERE
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'DEPO', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. nmom_c.ge.2) &
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
END IF
!
!
-Z_RR_CVRC(:,:,:) = 0.
-Z_CR_CVRC(:,:,:) = 0.
-IF (LWARM .AND. LRAIN) THEN
- if( lbu_enable ) then
- if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
- end if
-
- CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCS*PTSTEP, ZRRS*PTSTEP, ZCCS*PTSTEP, ZCRS*PTSTEP, &
- Z_RR_CVRC, Z_CR_CVRC)
- !
- ZRCS(:,:,:) = ZRCS(:,:,:) - Z_RR_CVRC(:,:,:)/PTSTEP
- ZRRS(:,:,:) = ZRRS(:,:,:) + Z_RR_CVRC(:,:,:)/PTSTEP
- ZCCS(:,:,:) = ZCCS(:,:,:) - Z_CR_CVRC(:,:,:)/PTSTEP
- ZCRS(:,:,:) = ZCRS(:,:,:) + Z_CR_CVRC(:,:,:)/PTSTEP
-
- if( lbu_enable ) then
- if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
- end if
-END IF
+!!$Z_RR_CVRC(:,:,:) = 0.
+!!$Z_CR_CVRC(:,:,:) = 0.
+!!$IF (LWARM .AND. LRAIN) THEN
+!!$ if( lbu_enable ) then
+!!$ if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_c.ge.2) &
+!!$ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_r.ge.2) &
+!!$ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
+!!$ end if
+!!$
+!!$ CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCS*PTSTEP, ZRRS*PTSTEP, ZCCS*PTSTEP, ZCRS*PTSTEP, &
+!!$ Z_RR_CVRC, Z_CR_CVRC)
+!!$ !
+!!$ ZRCS(:,:,:) = ZRCS(:,:,:) - Z_RR_CVRC(:,:,:)/PTSTEP
+!!$ ZRRS(:,:,:) = ZRRS(:,:,:) + Z_RR_CVRC(:,:,:)/PTSTEP
+!!$ ZCCS(:,:,:) = ZCCS(:,:,:) - Z_CR_CVRC(:,:,:)/PTSTEP
+!!$ ZCRS(:,:,:) = ZCRS(:,:,:) + Z_CR_CVRC(:,:,:)/PTSTEP
+!!$
+!!$ if( lbu_enable ) then
+!!$ if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_c.ge.2) &
+!!$ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_r.ge.2) &
+!!$ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
+!!$ end if
+!!$END IF
!
! Update variables
!
@@ -767,9 +809,12 @@ IF ( KRR .GE. 5 ) ZRST(:,:,:) = ZRSS(:,:,:) * PTSTEP
IF ( KRR .GE. 6 ) ZRGT(:,:,:) = ZRGS(:,:,:) * PTSTEP
IF ( KRR .GE. 7 ) ZRHT(:,:,:) = ZRHS(:,:,:) * PTSTEP
!
-IF ( LWARM ) ZCCT(:,:,:) = ZCCS(:,:,:) * PTSTEP
-IF ( LWARM .AND. LRAIN ) ZCRT(:,:,:) = ZCRS(:,:,:) * PTSTEP
-IF ( LCOLD ) ZCIT(:,:,:) = ZCIS(:,:,:) * PTSTEP
+IF ( LWARM .AND. NMOM_C.GE.2 ) ZCCT(:,:,:) = ZCCS(:,:,:) * PTSTEP
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2 ) ZCRT(:,:,:) = ZCRS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2 ) ZCIT(:,:,:) = ZCIS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_S.GE.2 ) ZCST(:,:,:) = ZCSS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_G.GE.2 ) ZCGT(:,:,:) = ZCGS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_H.GE.2 ) ZCHT(:,:,:) = ZCHS(:,:,:) * PTSTEP
!
!-------------------------------------------------------------------------------
!
@@ -780,7 +825,9 @@ CALL LIMA_COMPUTE_CLOUD_FRACTIONS (IIB, IIE, IJB, IJE, IKB, IKE, KKL, &
ZCCT, ZRCT, &
ZCRT, ZRRT, &
ZCIT, ZRIT, &
- ZRST, ZRGT, ZRHT, &
+ ZCST, ZRST, &
+ ZCGT, ZRGT, &
+ ZCHT, ZRHT, &
PCLDFR, PICEFR, PPRCFR )
!
!-------------------------------------------------------------------------------
@@ -805,9 +852,12 @@ ZRSS(:,:,:) = ZRST(:,:,:) *ZINV_TSTEP
ZRGS(:,:,:) = ZRGT(:,:,:) *ZINV_TSTEP
ZRHS(:,:,:) = ZRHT(:,:,:) *ZINV_TSTEP
!
-ZCCS(:,:,:) = ZCCT(:,:,:) *ZINV_TSTEP
-ZCRS(:,:,:) = ZCRT(:,:,:) *ZINV_TSTEP
-ZCIS(:,:,:) = ZCIT(:,:,:) *ZINV_TSTEP
+IF (NMOM_C.GE.2) ZCCS(:,:,:) = ZCCT(:,:,:) *ZINV_TSTEP
+IF (NMOM_R.GE.2) ZCRS(:,:,:) = ZCRT(:,:,:) *ZINV_TSTEP
+IF (NMOM_I.GE.2) ZCIS(:,:,:) = ZCIT(:,:,:) *ZINV_TSTEP
+IF (NMOM_S.GE.2) ZCSS(:,:,:) = ZCST(:,:,:) *ZINV_TSTEP
+IF (NMOM_G.GE.2) ZCGS(:,:,:) = ZCGT(:,:,:) *ZINV_TSTEP
+IF (NMOM_H.GE.2) ZCHS(:,:,:) = ZCHT(:,:,:) *ZINV_TSTEP
!
ZCCNFS(:,:,:,:) = ZCCNFT(:,:,:,:) *ZINV_TSTEP
ZCCNAS(:,:,:,:) = ZCCNAT(:,:,:,:) *ZINV_TSTEP
@@ -891,6 +941,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(ZCCT1D(IPACK))
ALLOCATE(ZCRT1D(IPACK))
ALLOCATE(ZCIT1D(IPACK))
+ ALLOCATE(ZCST1D(IPACK))
+ ALLOCATE(ZCGT1D(IPACK))
+ ALLOCATE(ZCHT1D(IPACK))
ALLOCATE(ZIFNN1D(IPACK,NMOD_IFN))
ALLOCATE(ZEVAP1D(IPACK))
ALLOCATE(ZTIME1D(IPACK))
@@ -924,6 +977,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZCCT1D(II) = ZCCT(I1(II),I2(II),I3(II))
ZCRT1D(II) = ZCRT(I1(II),I2(II),I3(II))
ZCIT1D(II) = ZCIT(I1(II),I2(II),I3(II))
+ ZCST1D(II) = ZCST(I1(II),I2(II),I3(II))
+ ZCGT1D(II) = ZCGT(I1(II),I2(II),I3(II))
+ ZCHT1D(II) = ZCHT(I1(II),I2(II),I3(II))
ZIFNN1D(II,:) = ZIFNNT(I1(II),I2(II),I3(II),:)
ZEVAP1D(II) = PEVAP3D(I1(II),I2(II),I3(II))
ZTIME1D(II) = ZTIME(I1(II),I2(II),I3(II))
@@ -944,8 +1000,10 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
!
WHERE(ZCF1D(:)<1.E-10 .AND. ZRCT1D(:)>XRTMIN(2) .AND. ZCCT1D(:)>XCTMIN(2)) ZCF1D(:)=1.
WHERE(ZIF1D(:)<1.E-10 .AND. ZRIT1D(:)>XRTMIN(4) .AND. ZCIT1D(:)>XCTMIN(4)) ZIF1D(:)=1.
- WHERE(ZPF1D(:)<1.E-10 .AND. (ZRRT1D(:)>XRTMIN(3) .OR. ZRST1D(:)>XRTMIN(5) &
- .OR. ZRGT1D(:)>XRTMIN(6) .OR. ZRHT1D(:)>XRTMIN(7) ) ) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRRT1D(:)>XRTMIN(3) .AND. ZCRT1D(:)>XCTMIN(3)) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRST1D(:)>XRTMIN(5) .AND. ZCST1D(:)>XCTMIN(5)) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRGT1D(:)>XRTMIN(6) .AND. ZCGT1D(:)>XCTMIN(6)) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRHT1D(:)>XRTMIN(7) .AND. ZCHT1D(:)>XCTMIN(7)) ZPF1D(:)=1.
!
! Allocating 1D variables
!
@@ -963,6 +1021,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(ZA_CC(IPACK)) ; ZA_CC(:) = 0.
ALLOCATE(ZA_CR(IPACK)) ; ZA_CR(:) = 0.
ALLOCATE(ZA_CI(IPACK)) ; ZA_CI(:) = 0.
+ ALLOCATE(ZA_CS(IPACK)) ; ZA_CS(:) = 0.
+ ALLOCATE(ZA_CG(IPACK)) ; ZA_CG(:) = 0.
+ ALLOCATE(ZA_CH(IPACK)) ; ZA_CH(:) = 0.
!
ALLOCATE(ZB_TH(IPACK)) ; ZB_TH(:) = 0.
ALLOCATE(ZB_RV(IPACK)) ; ZB_RV(:) = 0.
@@ -975,6 +1036,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(ZB_CC(IPACK)) ; ZB_CC(:) = 0.
ALLOCATE(ZB_CR(IPACK)) ; ZB_CR(:) = 0.
ALLOCATE(ZB_CI(IPACK)) ; ZB_CI(:) = 0.
+ ALLOCATE(ZB_CS(IPACK)) ; ZB_CS(:) = 0.
+ ALLOCATE(ZB_CG(IPACK)) ; ZB_CG(:) = 0.
+ ALLOCATE(ZB_CH(IPACK)) ; ZB_CH(:) = 0.
ALLOCATE(ZB_IFNN(IPACK,NMOD_IFN)) ; ZB_IFNN(:,:) = 0.
!
ALLOCATE(Z_CR_BRKU(IPACK)) ; Z_CR_BRKU(:) = 0.
@@ -1005,68 +1069,96 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(Z_RI_DEPI(IPACK)) ; Z_RI_DEPI(:) = 0.
ALLOCATE(Z_RI_CNVS(IPACK)) ; Z_RI_CNVS(:) = 0.
ALLOCATE(Z_CI_CNVS(IPACK)) ; Z_CI_CNVS(:) = 0.
+ ALLOCATE(Z_CS_SSC(IPACK)) ; Z_CS_SSC(:) = 0.
ALLOCATE(Z_RI_AGGS(IPACK)) ; Z_RI_AGGS(:) = 0.
ALLOCATE(Z_CI_AGGS(IPACK)) ; Z_CI_AGGS(:) = 0.
ALLOCATE(Z_TH_DEPG(IPACK)) ; Z_TH_DEPG(:) = 0.
ALLOCATE(Z_RG_DEPG(IPACK)) ; Z_RG_DEPG(:) = 0.
ALLOCATE(Z_TH_BERFI(IPACK)) ; Z_TH_BERFI(:) = 0.
ALLOCATE(Z_RC_BERFI(IPACK)) ; Z_RC_BERFI(:) = 0.
- ALLOCATE(Z_TH_RIM(IPACK)) ; Z_TH_RIM = 0.
- ALLOCATE(Z_RC_RIM(IPACK)) ; Z_RC_RIM = 0.
- ALLOCATE(Z_CC_RIM(IPACK)) ; Z_CC_RIM = 0.
- ALLOCATE(Z_RS_RIM(IPACK)) ; Z_RS_RIM = 0.
- ALLOCATE(Z_RG_RIM(IPACK)) ; Z_RG_RIM = 0.
- ALLOCATE(Z_RI_HMS(IPACK)) ; Z_RI_HMS = 0.
- ALLOCATE(Z_CI_HMS(IPACK)) ; Z_CI_HMS = 0.
- ALLOCATE(Z_RS_HMS(IPACK)) ; Z_RS_HMS = 0.
- ALLOCATE(Z_TH_ACC(IPACK)) ; Z_TH_ACC = 0.
- ALLOCATE(Z_RR_ACC(IPACK)) ; Z_RR_ACC = 0.
- ALLOCATE(Z_CR_ACC(IPACK)) ; Z_CR_ACC = 0.
- ALLOCATE(Z_RS_ACC(IPACK)) ; Z_RS_ACC = 0.
- ALLOCATE(Z_RG_ACC(IPACK)) ; Z_RG_ACC = 0.
- ALLOCATE(Z_RS_CMEL(IPACK)) ; Z_RS_CMEL = 0.
- ALLOCATE(Z_TH_CFRZ(IPACK)) ; Z_TH_CFRZ = 0.
- ALLOCATE(Z_RR_CFRZ(IPACK)) ; Z_RR_CFRZ = 0.
- ALLOCATE(Z_CR_CFRZ(IPACK)) ; Z_CR_CFRZ = 0.
- ALLOCATE(Z_RI_CFRZ(IPACK)) ; Z_RI_CFRZ = 0.
- ALLOCATE(Z_CI_CFRZ(IPACK)) ; Z_CI_CFRZ = 0.
- ALLOCATE(Z_RI_CIBU(IPACK)) ; Z_RI_CIBU = 0.
- ALLOCATE(Z_CI_CIBU(IPACK)) ; Z_CI_CIBU = 0.
- ALLOCATE(Z_RI_RDSF(IPACK)) ; Z_RI_RDSF = 0.
- ALLOCATE(Z_CI_RDSF(IPACK)) ; Z_CI_RDSF = 0.
- ALLOCATE(Z_TH_WETG(IPACK)) ; Z_TH_WETG = 0.
- ALLOCATE(Z_RC_WETG(IPACK)) ; Z_RC_WETG = 0.
- ALLOCATE(Z_CC_WETG(IPACK)) ; Z_CC_WETG = 0.
- ALLOCATE(Z_RR_WETG(IPACK)) ; Z_RR_WETG = 0.
- ALLOCATE(Z_CR_WETG(IPACK)) ; Z_CR_WETG = 0.
- ALLOCATE(Z_RI_WETG(IPACK)) ; Z_RI_WETG = 0.
- ALLOCATE(Z_CI_WETG(IPACK)) ; Z_CI_WETG = 0.
- ALLOCATE(Z_RS_WETG(IPACK)) ; Z_RS_WETG = 0.
- ALLOCATE(Z_RG_WETG(IPACK)) ; Z_RG_WETG = 0.
- ALLOCATE(Z_RH_WETG(IPACK)) ; Z_RH_WETG = 0.
- ALLOCATE(Z_TH_DRYG(IPACK)) ; Z_TH_DRYG = 0.
- ALLOCATE(Z_RC_DRYG(IPACK)) ; Z_RC_DRYG = 0.
- ALLOCATE(Z_CC_DRYG(IPACK)) ; Z_CC_DRYG = 0.
- ALLOCATE(Z_RR_DRYG(IPACK)) ; Z_RR_DRYG = 0.
- ALLOCATE(Z_CR_DRYG(IPACK)) ; Z_CR_DRYG = 0.
- ALLOCATE(Z_RI_DRYG(IPACK)) ; Z_RI_DRYG = 0.
- ALLOCATE(Z_CI_DRYG(IPACK)) ; Z_CI_DRYG = 0.
- ALLOCATE(Z_RS_DRYG(IPACK)) ; Z_RS_DRYG = 0.
- ALLOCATE(Z_RG_DRYG(IPACK)) ; Z_RG_DRYG = 0.
- ALLOCATE(Z_RI_HMG(IPACK)) ; Z_RI_HMG = 0.
- ALLOCATE(Z_CI_HMG(IPACK)) ; Z_CI_HMG = 0.
- ALLOCATE(Z_RG_HMG(IPACK)) ; Z_RG_HMG = 0.
- ALLOCATE(Z_TH_GMLT(IPACK)) ; Z_TH_GMLT = 0.
- ALLOCATE(Z_RR_GMLT(IPACK)) ; Z_RR_GMLT = 0.
- ALLOCATE(Z_CR_GMLT(IPACK)) ; Z_CR_GMLT = 0.
+ ALLOCATE(Z_TH_RIM(IPACK)) ; Z_TH_RIM(:) = 0.
+ ALLOCATE(Z_RC_RIM(IPACK)) ; Z_RC_RIM(:) = 0.
+ ALLOCATE(Z_CC_RIM(IPACK)) ; Z_CC_RIM(:) = 0.
+ ALLOCATE(Z_RS_RIM(IPACK)) ; Z_RS_RIM(:) = 0.
+ ALLOCATE(Z_CS_RIM(IPACK)) ; Z_CS_RIM(:) = 0.
+ ALLOCATE(Z_RG_RIM(IPACK)) ; Z_RG_RIM(:) = 0.
+ ALLOCATE(Z_RI_HMS(IPACK)) ; Z_RI_HMS(:) = 0.
+ ALLOCATE(Z_CI_HMS(IPACK)) ; Z_CI_HMS(:) = 0.
+ ALLOCATE(Z_RS_HMS(IPACK)) ; Z_RS_HMS(:) = 0.
+ ALLOCATE(Z_TH_ACC(IPACK)) ; Z_TH_ACC(:) = 0.
+ ALLOCATE(Z_RR_ACC(IPACK)) ; Z_RR_ACC(:) = 0.
+ ALLOCATE(Z_CR_ACC(IPACK)) ; Z_CR_ACC(:) = 0.
+ ALLOCATE(Z_RS_ACC(IPACK)) ; Z_RS_ACC(:) = 0.
+ ALLOCATE(Z_CS_ACC(IPACK)) ; Z_CS_ACC(:) = 0.
+ ALLOCATE(Z_RG_ACC(IPACK)) ; Z_RG_ACC(:) = 0.
+ ALLOCATE(Z_RS_CMEL(IPACK)) ; Z_RS_CMEL(:) = 0.
+ ALLOCATE(Z_CS_CMEL(IPACK)) ; Z_CS_CMEL(:) = 0.
+ ALLOCATE(Z_TH_CFRZ(IPACK)) ; Z_TH_CFRZ(:) = 0.
+ ALLOCATE(Z_RR_CFRZ(IPACK)) ; Z_RR_CFRZ(:) = 0.
+ ALLOCATE(Z_CR_CFRZ(IPACK)) ; Z_CR_CFRZ(:) = 0.
+ ALLOCATE(Z_RI_CFRZ(IPACK)) ; Z_RI_CFRZ(:) = 0.
+ ALLOCATE(Z_CI_CFRZ(IPACK)) ; Z_CI_CFRZ(:) = 0.
+ ALLOCATE(Z_RI_CIBU(IPACK)) ; Z_RI_CIBU(:) = 0.
+ ALLOCATE(Z_CI_CIBU(IPACK)) ; Z_CI_CIBU(:) = 0.
+ ALLOCATE(Z_RI_RDSF(IPACK)) ; Z_RI_RDSF(:) = 0.
+ ALLOCATE(Z_CI_RDSF(IPACK)) ; Z_CI_RDSF(:) = 0.
+ ALLOCATE(Z_TH_WETG(IPACK)) ; Z_TH_WETG(:) = 0.
+ ALLOCATE(Z_RC_WETG(IPACK)) ; Z_RC_WETG(:) = 0.
+ ALLOCATE(Z_CC_WETG(IPACK)) ; Z_CC_WETG(:) = 0.
+ ALLOCATE(Z_RR_WETG(IPACK)) ; Z_RR_WETG(:) = 0.
+ ALLOCATE(Z_CR_WETG(IPACK)) ; Z_CR_WETG(:) = 0.
+ ALLOCATE(Z_RI_WETG(IPACK)) ; Z_RI_WETG(:) = 0.
+ ALLOCATE(Z_CI_WETG(IPACK)) ; Z_CI_WETG(:) = 0.
+ ALLOCATE(Z_RS_WETG(IPACK)) ; Z_RS_WETG(:) = 0.
+ ALLOCATE(Z_CS_WETG(IPACK)) ; Z_CS_WETG(:) = 0.
+ ALLOCATE(Z_RG_WETG(IPACK)) ; Z_RG_WETG(:) = 0.
+ ALLOCATE(Z_CG_WETG(IPACK)) ; Z_CG_WETG(:) = 0.
+ ALLOCATE(Z_RH_WETG(IPACK)) ; Z_RH_WETG(:) = 0.
+ ALLOCATE(Z_TH_DRYG(IPACK)) ; Z_TH_DRYG(:) = 0.
+ ALLOCATE(Z_RC_DRYG(IPACK)) ; Z_RC_DRYG(:) = 0.
+ ALLOCATE(Z_CC_DRYG(IPACK)) ; Z_CC_DRYG(:) = 0.
+ ALLOCATE(Z_RR_DRYG(IPACK)) ; Z_RR_DRYG(:) = 0.
+ ALLOCATE(Z_CR_DRYG(IPACK)) ; Z_CR_DRYG(:) = 0.
+ ALLOCATE(Z_RI_DRYG(IPACK)) ; Z_RI_DRYG(:) = 0.
+ ALLOCATE(Z_CI_DRYG(IPACK)) ; Z_CI_DRYG(:) = 0.
+ ALLOCATE(Z_RS_DRYG(IPACK)) ; Z_RS_DRYG(:) = 0.
+ ALLOCATE(Z_CS_DRYG(IPACK)) ; Z_CS_DRYG(:) = 0.
+ ALLOCATE(Z_RG_DRYG(IPACK)) ; Z_RG_DRYG(:) = 0.
+ ALLOCATE(Z_RI_HMG(IPACK)) ; Z_RI_HMG(:) = 0.
+ ALLOCATE(Z_CI_HMG(IPACK)) ; Z_CI_HMG(:) = 0.
+ ALLOCATE(Z_RG_HMG(IPACK)) ; Z_RG_HMG(:) = 0.
+ ALLOCATE(Z_TH_GMLT(IPACK)) ; Z_TH_GMLT(:) = 0.
+ ALLOCATE(Z_RR_GMLT(IPACK)) ; Z_RR_GMLT(:) = 0.
+ ALLOCATE(Z_CR_GMLT(IPACK)) ; Z_CR_GMLT(:) = 0.
+ ALLOCATE(Z_CG_GMLT(IPACK)) ; Z_CG_GMLT(:) = 0.
+ ALLOCATE(Z_TH_DEPH(IPACK)) ; Z_TH_DEPH(:) = 0.
+ ALLOCATE(Z_RH_DEPH(IPACK)) ; Z_RH_DEPH(:) = 0.
+ ALLOCATE(Z_TH_WETH(IPACK)) ; Z_TH_WETH(:) = 0.
+ ALLOCATE(Z_RC_WETH(IPACK)) ; Z_RC_WETH(:) = 0.
+ ALLOCATE(Z_CC_WETH(IPACK)) ; Z_CC_WETH(:) = 0.
+ ALLOCATE(Z_RR_WETH(IPACK)) ; Z_RR_WETH(:) = 0.
+ ALLOCATE(Z_CR_WETH(IPACK)) ; Z_CR_WETH(:) = 0.
+ ALLOCATE(Z_RI_WETH(IPACK)) ; Z_RI_WETH(:) = 0.
+ ALLOCATE(Z_CI_WETH(IPACK)) ; Z_CI_WETH(:) = 0.
+ ALLOCATE(Z_RS_WETH(IPACK)) ; Z_RS_WETH(:) = 0.
+ ALLOCATE(Z_CS_WETH(IPACK)) ; Z_CS_WETH(:) = 0.
+ ALLOCATE(Z_RG_WETH(IPACK)) ; Z_RG_WETH(:) = 0.
+ ALLOCATE(Z_CG_WETH(IPACK)) ; Z_CG_WETH(:) = 0.
+ ALLOCATE(Z_RH_WETH(IPACK)) ; Z_RH_WETH(:) = 0.
+ ALLOCATE(Z_RG_COHG(IPACK)) ; Z_RG_COHG(:) = 0.
+ ALLOCATE(Z_CG_COHG(IPACK)) ; Z_CG_COHG(:) = 0.
+ ALLOCATE(Z_TH_HMLT(IPACK)) ; Z_TH_HMLT(:) = 0.
+ ALLOCATE(Z_RR_HMLT(IPACK)) ; Z_RR_HMLT(:) = 0.
+ ALLOCATE(Z_CR_HMLT(IPACK)) ; Z_CR_HMLT(:) = 0.
+ ALLOCATE(Z_CH_HMLT(IPACK)) ; Z_CH_HMLT(:) = 0.
- ALLOCATE(Z_RV_CORR2(IPACK)) ; Z_RV_CORR2 = 0.
- ALLOCATE(Z_RC_CORR2(IPACK)) ; Z_RC_CORR2 = 0.
- ALLOCATE(Z_RR_CORR2(IPACK)) ; Z_RR_CORR2 = 0.
- ALLOCATE(Z_RI_CORR2(IPACK)) ; Z_RI_CORR2 = 0.
- ALLOCATE(Z_CC_CORR2(IPACK)) ; Z_CC_CORR2 = 0.
- ALLOCATE(Z_CR_CORR2(IPACK)) ; Z_CR_CORR2 = 0.
- ALLOCATE(Z_CI_CORR2(IPACK)) ; Z_CI_CORR2 = 0.
+ ALLOCATE(Z_RV_CORR2(IPACK)) ; Z_RV_CORR2(:) = 0.
+ ALLOCATE(Z_RC_CORR2(IPACK)) ; Z_RC_CORR2(:) = 0.
+ ALLOCATE(Z_RR_CORR2(IPACK)) ; Z_RR_CORR2(:) = 0.
+ ALLOCATE(Z_RI_CORR2(IPACK)) ; Z_RI_CORR2(:) = 0.
+ ALLOCATE(Z_CC_CORR2(IPACK)) ; Z_CC_CORR2(:) = 0.
+ ALLOCATE(Z_CR_CORR2(IPACK)) ; Z_CR_CORR2(:) = 0.
+ ALLOCATE(Z_CI_CORR2(IPACK)) ; Z_CI_CORR2(:) = 0.
!
!*** 4.1 Tendecies computation
!
@@ -1084,44 +1176,46 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZB_IFNN, &
ZCF1D, ZIF1D, ZPF1D )
- CALL LIMA_TENDENCIES (PTSTEP, LLCOMPUTE1D, &
- ZEXNREF1D, ZRHODREF1D, ZP1D, ZTHT1D, &
- ZRVT1D, ZRCT1D, ZRRT1D, ZRIT1D, ZRST1D, ZRGT1D, ZRHT1D,&
- ZCCT1D, ZCRT1D, ZCIT1D, &
- Z_TH_HONC, Z_RC_HONC, Z_CC_HONC, &
- Z_CC_SELF, &
- Z_RC_AUTO, Z_CC_AUTO, Z_CR_AUTO, &
- Z_RC_ACCR, Z_CC_ACCR, &
- Z_CR_SCBU, &
- Z_TH_EVAP, Z_RR_EVAP, Z_CR_EVAP, &
- Z_RI_CNVI, Z_CI_CNVI, &
- Z_TH_DEPS, Z_RS_DEPS, &
- Z_TH_DEPI, Z_RI_DEPI, &
- Z_RI_CNVS, Z_CI_CNVS, &
- Z_RI_AGGS, Z_CI_AGGS, &
- Z_TH_DEPG, Z_RG_DEPG, &
- Z_TH_BERFI, Z_RC_BERFI, &
- Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_RG_RIM, &
- Z_RI_HMS, Z_CI_HMS, Z_RS_HMS, &
- Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_RG_ACC, &
- Z_RS_CMEL, &
- Z_TH_CFRZ, Z_RR_CFRZ, Z_CR_CFRZ, Z_RI_CFRZ, Z_CI_CFRZ, &
- Z_RI_CIBU, Z_CI_CIBU, &
- Z_RI_RDSF, Z_CI_RDSF, &
- Z_TH_WETG, Z_RC_WETG, Z_CC_WETG, Z_RR_WETG, Z_CR_WETG, &
- Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_RG_WETG, Z_RH_WETG, &
- Z_TH_DRYG, Z_RC_DRYG, Z_CC_DRYG, Z_RR_DRYG, Z_CR_DRYG, &
- Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_RG_DRYG, &
- Z_RI_HMG, Z_CI_HMG, Z_RG_HMG, &
- Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, &
-!!! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-!!! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
- ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, &
- ZA_RI, ZA_CI, ZA_RS, ZA_RG, ZA_RH, &
- ZEVAP1D, &
- ZCF1D, ZIF1D, ZPF1D )
+ CALL LIMA_TENDENCIES (PTSTEP, LLCOMPUTE1D, &
+ ZEXNREF1D, ZRHODREF1D, ZP1D, ZTHT1D, &
+ ZRVT1D, ZRCT1D, ZRRT1D, ZRIT1D, ZRST1D, ZRGT1D, ZRHT1D, &
+ ZCCT1D, ZCRT1D, ZCIT1D, ZCST1D, ZCGT1D, ZCHT1D, &
+ Z_TH_HONC, Z_RC_HONC, Z_CC_HONC, &
+ Z_CC_SELF, &
+ Z_RC_AUTO, Z_CC_AUTO, Z_CR_AUTO, &
+ Z_RC_ACCR, Z_CC_ACCR, &
+ Z_CR_SCBU, &
+ Z_TH_EVAP, Z_RR_EVAP, Z_CR_EVAP, &
+ Z_RI_CNVI, Z_CI_CNVI, &
+ Z_TH_DEPS, Z_RS_DEPS, &
+ Z_TH_DEPI, Z_RI_DEPI, &
+ Z_RI_CNVS, Z_CI_CNVS, &
+ Z_CS_SSC, &
+ Z_RI_AGGS, Z_CI_AGGS, &
+ Z_TH_DEPG, Z_RG_DEPG, &
+ Z_TH_BERFI, Z_RC_BERFI, &
+ Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_CS_RIM, Z_RG_RIM, &
+ Z_RI_HMS, Z_CI_HMS, Z_RS_HMS, &
+ Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_CS_ACC, Z_RG_ACC, &
+ Z_RS_CMEL, Z_CS_CMEL, &
+ Z_TH_CFRZ, Z_RR_CFRZ, Z_CR_CFRZ, Z_RI_CFRZ, Z_CI_CFRZ, &
+ Z_RI_CIBU, Z_CI_CIBU, &
+ Z_RI_RDSF, Z_CI_RDSF, &
+ Z_TH_WETG, Z_RC_WETG, Z_CC_WETG, Z_RR_WETG, Z_CR_WETG, &
+ Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_CS_WETG, Z_RG_WETG, Z_CG_WETG, Z_RH_WETG, &
+ Z_TH_DRYG, Z_RC_DRYG, Z_CC_DRYG, Z_RR_DRYG, Z_CR_DRYG, &
+ Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_CS_DRYG, Z_RG_DRYG, &
+ Z_RI_HMG, Z_CI_HMG, Z_RG_HMG, &
+ Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, Z_CG_GMLT, &
+ Z_TH_DEPH, Z_RH_DEPH, &
+ Z_TH_WETH, Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, &
+ Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_CS_WETH, Z_RG_WETH, Z_CG_WETH, Z_RH_WETH, &
+ Z_RG_COHG, Z_CG_COHG, &
+ Z_TH_HMLT, Z_RR_HMLT, Z_CR_HMLT, Z_CH_HMLT, &
+ ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, &
+ ZA_RI, ZA_CI, ZA_RS, ZA_CS, ZA_RG, ZA_CG, ZA_RH, ZA_CH, &
+ ZEVAP1D, &
+ ZCF1D, ZIF1D, ZPF1D )
!
!*** 4.2 Integration time
@@ -1269,14 +1363,17 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTHT1D = ZTHT1D + ZA_TH(:) * ZMAXTIME(:) + ZB_TH(:)
ZRVT1D = ZRVT1D + ZA_RV(:) * ZMAXTIME(:) + ZB_RV(:)
ZRCT1D = ZRCT1D + ZA_RC(:) * ZMAXTIME(:) + ZB_RC(:)
- ZCCT1D = ZCCT1D + ZA_CC(:) * ZMAXTIME(:) + ZB_CC(:)
+ IF (NMOM_C.GE.2) ZCCT1D = ZCCT1D + ZA_CC(:) * ZMAXTIME(:) + ZB_CC(:)
ZRRT1D = ZRRT1D + ZA_RR(:) * ZMAXTIME(:) + ZB_RR(:)
- ZCRT1D = ZCRT1D + ZA_CR(:) * ZMAXTIME(:) + ZB_CR(:)
+ IF (NMOM_R.GE.2) ZCRT1D = ZCRT1D + ZA_CR(:) * ZMAXTIME(:) + ZB_CR(:)
ZRIT1D = ZRIT1D + ZA_RI(:) * ZMAXTIME(:) + ZB_RI(:)
- ZCIT1D = ZCIT1D + ZA_CI(:) * ZMAXTIME(:) + ZB_CI(:)
+ IF (NMOM_I.GE.2) ZCIT1D = ZCIT1D + ZA_CI(:) * ZMAXTIME(:) + ZB_CI(:)
ZRST1D = ZRST1D + ZA_RS(:) * ZMAXTIME(:) + ZB_RS(:)
+ IF (NMOM_S.GE.2) ZCST1D = ZCST1D + ZA_CS(:) * ZMAXTIME(:) + ZB_CS(:)
ZRGT1D = ZRGT1D + ZA_RG(:) * ZMAXTIME(:) + ZB_RG(:)
+ IF (NMOM_G.GE.2) ZCGT1D = ZCGT1D + ZA_CG(:) * ZMAXTIME(:) + ZB_CG(:)
ZRHT1D = ZRHT1D + ZA_RH(:) * ZMAXTIME(:) + ZB_RH(:)
+ IF (NMOM_H.GE.2) ZCHT1D = ZCHT1D + ZA_CH(:) * ZMAXTIME(:) + ZB_CH(:)
!
DO II=1,NMOD_IFN
ZIFNN1D(:,II) = ZIFNN1D(:,II) + ZB_IFNN(:,II)
@@ -1310,8 +1407,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZRVT1D = ZRVT1D + ZRIT1D
ZRIT1D = 0.
ZCIT1D = 0.
- END WHERE
-
+ END WHERE
!
!*** 4.5 Next loop
!
@@ -1328,9 +1424,12 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZRST(I1(II),I2(II),I3(II)) = ZRST1D(II)
ZRGT(I1(II),I2(II),I3(II)) = ZRGT1D(II)
ZRHT(I1(II),I2(II),I3(II)) = ZRHT1D(II)
- ZCCT(I1(II),I2(II),I3(II)) = ZCCT1D(II)
- ZCRT(I1(II),I2(II),I3(II)) = ZCRT1D(II)
- ZCIT(I1(II),I2(II),I3(II)) = ZCIT1D(II)
+ IF (NMOM_C.GE.2) ZCCT(I1(II),I2(II),I3(II)) = ZCCT1D(II)
+ IF (NMOM_R.GE.2) ZCRT(I1(II),I2(II),I3(II)) = ZCRT1D(II)
+ IF (NMOM_I.GE.2) ZCIT(I1(II),I2(II),I3(II)) = ZCIT1D(II)
+ IF (NMOM_S.GE.2) ZCST(I1(II),I2(II),I3(II)) = ZCST1D(II)
+ IF (NMOM_G.GE.2) ZCGT(I1(II),I2(II),I3(II)) = ZCGT1D(II)
+ IF (NMOM_H.GE.2) ZCHT(I1(II),I2(II),I3(II)) = ZCHT1D(II)
ZIFNNT(I1(II),I2(II),I3(II),:) = ZIFNN1D(II,:)
PEVAP3D(I1(II),I2(II),I3(II)) = ZEVAP1D(II)
ZTIME(I1(II),I2(II),I3(II)) = ZTIME1D(II)
@@ -1338,12 +1437,14 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
IITER(I1(II),I2(II),I3(II)) = IITER1D(II)
END DO
!
- CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCT, ZRRT, ZCCT, ZCRT, &
- Z_RR_CVRC, Z_CR_CVRC )
- ZRCT(:,:,:) = ZRCT(:,:,:) - Z_RR_CVRC(:,:,:)
- ZRRT(:,:,:) = ZRRT(:,:,:) + Z_RR_CVRC(:,:,:)
- ZCCT(:,:,:) = ZCCT(:,:,:) - Z_CR_CVRC(:,:,:)
- ZCRT(:,:,:) = ZCRT(:,:,:) + Z_CR_CVRC(:,:,:)
+!!$ IF (NMOM_C.GE.2 .AND. NMOM_R.GE.2) THEN
+!!$ CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCT, ZRRT, ZCCT, ZCRT, &
+!!$ Z_RR_CVRC, Z_CR_CVRC )
+!!$ ZRCT(:,:,:) = ZRCT(:,:,:) - Z_RR_CVRC(:,:,:)
+!!$ ZRRT(:,:,:) = ZRRT(:,:,:) + Z_RR_CVRC(:,:,:)
+!!$ ZCCT(:,:,:) = ZCCT(:,:,:) - Z_CR_CVRC(:,:,:)
+!!$ ZCRT(:,:,:) = ZCRT(:,:,:) + Z_CR_CVRC(:,:,:)
+!!$ END IF
!
!*** 4.4 Unpacking for budgets
!
@@ -1388,6 +1489,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RI_DEPI(I1(II),I2(II),I3(II)) = ZTOT_RI_DEPI(I1(II),I2(II),I3(II)) + Z_RI_DEPI(II) * ZMAXTIME(II)
ZTOT_RI_CNVS(I1(II),I2(II),I3(II)) = ZTOT_RI_CNVS(I1(II),I2(II),I3(II)) + Z_RI_CNVS(II) * ZMAXTIME(II)
ZTOT_CI_CNVS(I1(II),I2(II),I3(II)) = ZTOT_CI_CNVS(I1(II),I2(II),I3(II)) + Z_CI_CNVS(II) * ZMAXTIME(II)
+ ZTOT_CS_SSC(I1(II),I2(II),I3(II)) = ZTOT_CS_SSC(I1(II),I2(II),I3(II)) + Z_CS_SSC(II) * ZMAXTIME(II)
ZTOT_RI_AGGS(I1(II),I2(II),I3(II)) = ZTOT_RI_AGGS(I1(II),I2(II),I3(II)) + Z_RI_AGGS(II) * ZMAXTIME(II)
ZTOT_CI_AGGS(I1(II),I2(II),I3(II)) = ZTOT_CI_AGGS(I1(II),I2(II),I3(II)) + Z_CI_AGGS(II) * ZMAXTIME(II)
ZTOT_TH_DEPG(I1(II),I2(II),I3(II)) = ZTOT_TH_DEPG(I1(II),I2(II),I3(II)) + Z_TH_DEPG(II) * ZMAXTIME(II)
@@ -1398,6 +1500,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RC_RIM(I1(II),I2(II),I3(II)) = ZTOT_RC_RIM(I1(II),I2(II),I3(II)) + Z_RC_RIM(II) * ZMAXTIME(II)
ZTOT_CC_RIM(I1(II),I2(II),I3(II)) = ZTOT_CC_RIM(I1(II),I2(II),I3(II)) + Z_CC_RIM(II) * ZMAXTIME(II)
ZTOT_RS_RIM(I1(II),I2(II),I3(II)) = ZTOT_RS_RIM(I1(II),I2(II),I3(II)) + Z_RS_RIM(II) * ZMAXTIME(II)
+ ZTOT_CS_RIM(I1(II),I2(II),I3(II)) = ZTOT_CS_RIM(I1(II),I2(II),I3(II)) + Z_CS_RIM(II) * ZMAXTIME(II)
ZTOT_RG_RIM(I1(II),I2(II),I3(II)) = ZTOT_RG_RIM(I1(II),I2(II),I3(II)) + Z_RG_RIM(II) * ZMAXTIME(II)
ZTOT_RI_HMS(I1(II),I2(II),I3(II)) = ZTOT_RI_HMS(I1(II),I2(II),I3(II)) + Z_RI_HMS(II) * ZMAXTIME(II)
ZTOT_CI_HMS(I1(II),I2(II),I3(II)) = ZTOT_CI_HMS(I1(II),I2(II),I3(II)) + Z_CI_HMS(II) * ZMAXTIME(II)
@@ -1406,7 +1509,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RR_ACC(I1(II),I2(II),I3(II)) = ZTOT_RR_ACC(I1(II),I2(II),I3(II)) + Z_RR_ACC(II) * ZMAXTIME(II)
ZTOT_CR_ACC(I1(II),I2(II),I3(II)) = ZTOT_CR_ACC(I1(II),I2(II),I3(II)) + Z_CR_ACC(II) * ZMAXTIME(II)
ZTOT_RS_ACC(I1(II),I2(II),I3(II)) = ZTOT_RS_ACC(I1(II),I2(II),I3(II)) + Z_RS_ACC(II) * ZMAXTIME(II)
+ ZTOT_CS_ACC(I1(II),I2(II),I3(II)) = ZTOT_CS_ACC(I1(II),I2(II),I3(II)) + Z_CS_ACC(II) * ZMAXTIME(II)
ZTOT_RG_ACC(I1(II),I2(II),I3(II)) = ZTOT_RG_ACC(I1(II),I2(II),I3(II)) + Z_RG_ACC(II) * ZMAXTIME(II)
+ ZTOT_CS_CMEL(I1(II),I2(II),I3(II)) = ZTOT_CS_CMEL(I1(II),I2(II),I3(II)) + Z_CS_CMEL(II) * ZMAXTIME(II)
ZTOT_RS_CMEL(I1(II),I2(II),I3(II)) = ZTOT_RS_CMEL(I1(II),I2(II),I3(II)) + Z_RS_CMEL(II) * ZMAXTIME(II)
ZTOT_TH_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_TH_CFRZ(I1(II),I2(II),I3(II)) + Z_TH_CFRZ(II) * ZMAXTIME(II)
ZTOT_RR_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_RR_CFRZ(I1(II),I2(II),I3(II)) + Z_RR_CFRZ(II) * ZMAXTIME(II)
@@ -1425,7 +1530,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RI_WETG(I1(II),I2(II),I3(II)) = ZTOT_RI_WETG(I1(II),I2(II),I3(II)) + Z_RI_WETG(II) * ZMAXTIME(II)
ZTOT_CI_WETG(I1(II),I2(II),I3(II)) = ZTOT_CI_WETG(I1(II),I2(II),I3(II)) + Z_CI_WETG(II) * ZMAXTIME(II)
ZTOT_RS_WETG(I1(II),I2(II),I3(II)) = ZTOT_RS_WETG(I1(II),I2(II),I3(II)) + Z_RS_WETG(II) * ZMAXTIME(II)
+ ZTOT_CS_WETG(I1(II),I2(II),I3(II)) = ZTOT_CS_WETG(I1(II),I2(II),I3(II)) + Z_CS_WETG(II) * ZMAXTIME(II)
ZTOT_RG_WETG(I1(II),I2(II),I3(II)) = ZTOT_RG_WETG(I1(II),I2(II),I3(II)) + Z_RG_WETG(II) * ZMAXTIME(II)
+ ZTOT_CG_WETG(I1(II),I2(II),I3(II)) = ZTOT_CG_WETG(I1(II),I2(II),I3(II)) + Z_CG_WETG(II) * ZMAXTIME(II)
ZTOT_RH_WETG(I1(II),I2(II),I3(II)) = ZTOT_RH_WETG(I1(II),I2(II),I3(II)) + Z_RH_WETG(II) * ZMAXTIME(II)
ZTOT_TH_DRYG(I1(II),I2(II),I3(II)) = ZTOT_TH_DRYG(I1(II),I2(II),I3(II)) + Z_TH_DRYG(II) * ZMAXTIME(II)
ZTOT_RC_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RC_DRYG(I1(II),I2(II),I3(II)) + Z_RC_DRYG(II) * ZMAXTIME(II)
@@ -1435,6 +1542,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RI_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RI_DRYG(I1(II),I2(II),I3(II)) + Z_RI_DRYG(II) * ZMAXTIME(II)
ZTOT_CI_DRYG(I1(II),I2(II),I3(II)) = ZTOT_CI_DRYG(I1(II),I2(II),I3(II)) + Z_CI_DRYG(II) * ZMAXTIME(II)
ZTOT_RS_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RS_DRYG(I1(II),I2(II),I3(II)) + Z_RS_DRYG(II) * ZMAXTIME(II)
+ ZTOT_CS_DRYG(I1(II),I2(II),I3(II)) = ZTOT_CS_DRYG(I1(II),I2(II),I3(II)) + Z_CS_DRYG(II) * ZMAXTIME(II)
ZTOT_RG_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RG_DRYG(I1(II),I2(II),I3(II)) + Z_RG_DRYG(II) * ZMAXTIME(II)
ZTOT_RI_HMG(I1(II),I2(II),I3(II)) = ZTOT_RI_HMG(I1(II),I2(II),I3(II)) + Z_RI_HMG(II) * ZMAXTIME(II)
ZTOT_CI_HMG(I1(II),I2(II),I3(II)) = ZTOT_CI_HMG(I1(II),I2(II),I3(II)) + Z_CI_HMG(II) * ZMAXTIME(II)
@@ -1442,18 +1550,27 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_TH_GMLT(I1(II),I2(II),I3(II)) = ZTOT_TH_GMLT(I1(II),I2(II),I3(II)) + Z_TH_GMLT(II) * ZMAXTIME(II)
ZTOT_RR_GMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_GMLT(I1(II),I2(II),I3(II)) + Z_RR_GMLT(II) * ZMAXTIME(II)
ZTOT_CR_GMLT(I1(II),I2(II),I3(II)) = ZTOT_CR_GMLT(I1(II),I2(II),I3(II)) + Z_CR_GMLT(II) * ZMAXTIME(II)
-!!$ ZTOT_RC_WETH(I1(II),I2(II),I3(II)) = ZTOT_RC_WETH(I1(II),I2(II),I3(II)) + Z_RC_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_CC_WETH(I1(II),I2(II),I3(II)) = ZTOT_CC_WETH(I1(II),I2(II),I3(II)) + Z_CC_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RR_WETH(I1(II),I2(II),I3(II)) = ZTOT_RR_WETH(I1(II),I2(II),I3(II)) + Z_RR_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_CR_WETH(I1(II),I2(II),I3(II)) = ZTOT_CR_WETH(I1(II),I2(II),I3(II)) + Z_CR_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RI_WETH(I1(II),I2(II),I3(II)) = ZTOT_RI_WETH(I1(II),I2(II),I3(II)) + Z_RI_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_CI_WETH(I1(II),I2(II),I3(II)) = ZTOT_CI_WETH(I1(II),I2(II),I3(II)) + Z_CI_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RS_WETH(I1(II),I2(II),I3(II)) = ZTOT_RS_WETH(I1(II),I2(II),I3(II)) + Z_RS_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RG_WETH(I1(II),I2(II),I3(II)) = ZTOT_RG_WETH(I1(II),I2(II),I3(II)) + Z_RG_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RH_WETH(I1(II),I2(II),I3(II)) = ZTOT_RH_WETH(I1(II),I2(II),I3(II)) + Z_RH_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RG_COHG(I1(II),I2(II),I3(II)) = ZTOT_RG_COHG(I1(II),I2(II),I3(II)) + Z_RG_COHG(II) * ZMAXTIME(II)
-!!$ ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) + Z_RR_HMLT(II) * ZMAXTIME(II)
-!!$ ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) + Z_CR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_CG_GMLT(I1(II),I2(II),I3(II)) = ZTOT_CG_GMLT(I1(II),I2(II),I3(II)) + Z_CG_GMLT(II) * ZMAXTIME(II)
+ ZTOT_TH_DEPH(I1(II),I2(II),I3(II)) = ZTOT_TH_DEPH(I1(II),I2(II),I3(II)) + Z_TH_DEPH(II) * ZMAXTIME(II)
+ ZTOT_RH_DEPH(I1(II),I2(II),I3(II)) = ZTOT_RH_DEPH(I1(II),I2(II),I3(II)) + Z_RH_DEPH(II) * ZMAXTIME(II)
+ ZTOT_TH_WETH(I1(II),I2(II),I3(II)) = ZTOT_TH_WETH(I1(II),I2(II),I3(II)) + Z_TH_WETH(II) * ZMAXTIME(II)
+ ZTOT_RC_WETH(I1(II),I2(II),I3(II)) = ZTOT_RC_WETH(I1(II),I2(II),I3(II)) + Z_RC_WETH(II) * ZMAXTIME(II)
+ ZTOT_CC_WETH(I1(II),I2(II),I3(II)) = ZTOT_CC_WETH(I1(II),I2(II),I3(II)) + Z_CC_WETH(II) * ZMAXTIME(II)
+ ZTOT_RR_WETH(I1(II),I2(II),I3(II)) = ZTOT_RR_WETH(I1(II),I2(II),I3(II)) + Z_RR_WETH(II) * ZMAXTIME(II)
+ ZTOT_CR_WETH(I1(II),I2(II),I3(II)) = ZTOT_CR_WETH(I1(II),I2(II),I3(II)) + Z_CR_WETH(II) * ZMAXTIME(II)
+ ZTOT_RI_WETH(I1(II),I2(II),I3(II)) = ZTOT_RI_WETH(I1(II),I2(II),I3(II)) + Z_RI_WETH(II) * ZMAXTIME(II)
+ ZTOT_CI_WETH(I1(II),I2(II),I3(II)) = ZTOT_CI_WETH(I1(II),I2(II),I3(II)) + Z_CI_WETH(II) * ZMAXTIME(II)
+ ZTOT_RS_WETH(I1(II),I2(II),I3(II)) = ZTOT_RS_WETH(I1(II),I2(II),I3(II)) + Z_RS_WETH(II) * ZMAXTIME(II)
+ ZTOT_CS_WETH(I1(II),I2(II),I3(II)) = ZTOT_CS_WETH(I1(II),I2(II),I3(II)) + Z_CS_WETH(II) * ZMAXTIME(II)
+ ZTOT_RG_WETH(I1(II),I2(II),I3(II)) = ZTOT_RG_WETH(I1(II),I2(II),I3(II)) + Z_RG_WETH(II) * ZMAXTIME(II)
+ ZTOT_CG_WETH(I1(II),I2(II),I3(II)) = ZTOT_CG_WETH(I1(II),I2(II),I3(II)) + Z_CG_WETH(II) * ZMAXTIME(II)
+ ZTOT_RH_WETH(I1(II),I2(II),I3(II)) = ZTOT_RH_WETH(I1(II),I2(II),I3(II)) + Z_RH_WETH(II) * ZMAXTIME(II)
+ ZTOT_RG_COHG(I1(II),I2(II),I3(II)) = ZTOT_RG_COHG(I1(II),I2(II),I3(II)) + Z_RG_COHG(II) * ZMAXTIME(II)
+ ZTOT_CG_COHG(I1(II),I2(II),I3(II)) = ZTOT_CG_COHG(I1(II),I2(II),I3(II)) + Z_CG_COHG(II) * ZMAXTIME(II)
+ ZTOT_TH_HMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) + Z_RR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) + Z_RR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) + Z_CR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_CH_HMLT(I1(II),I2(II),I3(II)) = ZTOT_CH_HMLT(I1(II),I2(II),I3(II)) + Z_CH_HMLT(II) * ZMAXTIME(II)
!Correction term
ZTOT_RV_CORR2(I1(II),I2(II),I3(II)) = ZTOT_RV_CORR2(I1(II),I2(II),I3(II)) + Z_RV_CORR2(II)
@@ -1486,6 +1603,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(ZCCT1D)
DEALLOCATE(ZCRT1D)
DEALLOCATE(ZCIT1D)
+ DEALLOCATE(ZCST1D)
+ DEALLOCATE(ZCGT1D)
+ DEALLOCATE(ZCHT1D)
DEALLOCATE(ZIFNN1D)
DEALLOCATE(ZEVAP1D)
DEALLOCATE(ZTIME1D)
@@ -1517,6 +1637,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(ZA_CC)
DEALLOCATE(ZA_CR)
DEALLOCATE(ZA_CI)
+ DEALLOCATE(ZA_CS)
+ DEALLOCATE(ZA_CG)
+ DEALLOCATE(ZA_CH)
!
DEALLOCATE(ZB_TH)
DEALLOCATE(ZB_RV)
@@ -1529,6 +1652,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(ZB_CC)
DEALLOCATE(ZB_CR)
DEALLOCATE(ZB_CI)
+ DEALLOCATE(ZB_CS)
+ DEALLOCATE(ZB_CG)
+ DEALLOCATE(ZB_CH)
DEALLOCATE(ZB_IFNN)
!
DEALLOCATE(Z_CR_BRKU)
@@ -1559,6 +1685,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RI_DEPI)
DEALLOCATE(Z_RI_CNVS)
DEALLOCATE(Z_CI_CNVS)
+ DEALLOCATE(Z_CS_SSC)
DEALLOCATE(Z_RI_AGGS)
DEALLOCATE(Z_CI_AGGS)
DEALLOCATE(Z_TH_DEPG)
@@ -1569,6 +1696,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RC_RIM)
DEALLOCATE(Z_CC_RIM)
DEALLOCATE(Z_RS_RIM)
+ DEALLOCATE(Z_CS_RIM)
DEALLOCATE(Z_RG_RIM)
DEALLOCATE(Z_RI_HMS)
DEALLOCATE(Z_CI_HMS)
@@ -1577,7 +1705,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RR_ACC)
DEALLOCATE(Z_CR_ACC)
DEALLOCATE(Z_RS_ACC)
+ DEALLOCATE(Z_CS_ACC)
DEALLOCATE(Z_RG_ACC)
+ DEALLOCATE(Z_CS_CMEL)
DEALLOCATE(Z_RS_CMEL)
DEALLOCATE(Z_TH_CFRZ)
DEALLOCATE(Z_RR_CFRZ)
@@ -1596,7 +1726,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RI_WETG)
DEALLOCATE(Z_CI_WETG)
DEALLOCATE(Z_RS_WETG)
+ DEALLOCATE(Z_CS_WETG)
DEALLOCATE(Z_RG_WETG)
+ DEALLOCATE(Z_CG_WETG)
DEALLOCATE(Z_RH_WETG)
DEALLOCATE(Z_TH_DRYG)
DEALLOCATE(Z_RC_DRYG)
@@ -1606,6 +1738,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RI_DRYG)
DEALLOCATE(Z_CI_DRYG)
DEALLOCATE(Z_RS_DRYG)
+ DEALLOCATE(Z_CS_DRYG)
DEALLOCATE(Z_RG_DRYG)
DEALLOCATE(Z_RI_HMG)
DEALLOCATE(Z_CI_HMG)
@@ -1613,6 +1746,27 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_TH_GMLT)
DEALLOCATE(Z_RR_GMLT)
DEALLOCATE(Z_CR_GMLT)
+ DEALLOCATE(Z_CG_GMLT)
+ DEALLOCATE(Z_TH_DEPH)
+ DEALLOCATE(Z_RH_DEPH)
+ DEALLOCATE(Z_TH_WETH)
+ DEALLOCATE(Z_RC_WETH)
+ DEALLOCATE(Z_CC_WETH)
+ DEALLOCATE(Z_RR_WETH)
+ DEALLOCATE(Z_CR_WETH)
+ DEALLOCATE(Z_RI_WETH)
+ DEALLOCATE(Z_CI_WETH)
+ DEALLOCATE(Z_RS_WETH)
+ DEALLOCATE(Z_CS_WETH)
+ DEALLOCATE(Z_RG_WETH)
+ DEALLOCATE(Z_CG_WETH)
+ DEALLOCATE(Z_RH_WETH)
+ DEALLOCATE(Z_RG_COHG)
+ DEALLOCATE(Z_CG_COHG)
+ DEALLOCATE(Z_TH_HMLT)
+ DEALLOCATE(Z_RR_HMLT)
+ DEALLOCATE(Z_CR_HMLT)
+ DEALLOCATE(Z_CH_HMLT)
DEALLOCATE(Z_RV_CORR2)
DEALLOCATE(Z_RC_CORR2)
@@ -1642,9 +1796,12 @@ IF ( KRR .GE. 5 ) PRS(:,:,:,5) = ZRST(:,:,:) *ZINV_TSTEP
IF ( KRR .GE. 6 ) PRS(:,:,:,6) = ZRGT(:,:,:) *ZINV_TSTEP
IF ( KRR .GE. 7 ) PRS(:,:,:,7) = ZRHT(:,:,:) *ZINV_TSTEP
!
-IF ( LWARM ) PSVS(:,:,:,NSV_LIMA_NC) = ZCCT(:,:,:) *ZINV_TSTEP
-IF ( LWARM .AND. LRAIN ) PSVS(:,:,:,NSV_LIMA_NR) = ZCRT(:,:,:) *ZINV_TSTEP
-IF ( LCOLD ) PSVS(:,:,:,NSV_LIMA_NI) = ZCIT(:,:,:) *ZINV_TSTEP
+IF ( LWARM .AND. NMOM_C.GE.2 ) PSVS(:,:,:,NSV_LIMA_NC) = ZCCT(:,:,:) *ZINV_TSTEP
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2 ) PSVS(:,:,:,NSV_LIMA_NR) = ZCRT(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2 ) PSVS(:,:,:,NSV_LIMA_NI) = ZCIT(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_S.GE.2 ) PSVS(:,:,:,NSV_LIMA_NS) = ZCST(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_G.GE.2 ) PSVS(:,:,:,NSV_LIMA_NG) = ZCGT(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_H.GE.2 ) PSVS(:,:,:,NSV_LIMA_NH) = ZCHT(:,:,:) *ZINV_TSTEP
!
IF ( NMOD_CCN .GE. 1 ) PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) = ZCCNFT(:,:,:,:) *ZINV_TSTEP
IF ( NMOD_CCN .GE. 1 ) PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1) = ZCCNAT(:,:,:,:) *ZINV_TSTEP
@@ -1676,6 +1833,9 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_TH), 'WETG', ztot_th_wetg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_TH), 'DRYG', ztot_th_dryg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_TH), 'GMLT', ztot_th_gmlt (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_TH), 'DEPH', ztot_th_deph (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_TH), 'WETH', ztot_th_weth (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_TH), 'HMLT', ztot_th_hmlt (:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rv ) then
@@ -1684,6 +1844,7 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPI', -ztot_ri_depi (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPG', -ztot_rg_depg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RV), 'CORR2', ztot_rv_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPH', -ztot_rh_deph (:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rc ) then
@@ -1698,6 +1859,7 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RC), 'DRYG', ztot_rc_dryg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RC), 'CVRC', -ztot_rr_cvrc (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RC), 'CORR2', ztot_rc_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RC), 'WETH', ztot_rc_weth(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rr ) then
@@ -1711,7 +1873,9 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RR), 'DRYG', ztot_rr_dryg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RR), 'GMLT', ztot_rr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RR), 'CVRC', ztot_rr_cvrc(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(NBUDGET_RR), 'CORR2', ztot_rr_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RR), 'CORR2', ztot_rr_corr2(:, :, :)* zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RR), 'WETH', ztot_rr_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RR), 'HMLT', ztot_rr_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_ri ) then
@@ -1730,6 +1894,7 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RI), 'DRYG', ztot_ri_dryg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'HMG', ztot_ri_hmg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'CORR2', ztot_ri_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RI), 'WETH', ztot_ri_weth (:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rs ) then
@@ -1744,6 +1909,7 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RS), 'CIBU', -ztot_ri_cibu(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RS), 'WETG', ztot_rs_wetg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RS), 'DRYG', ztot_rs_dryg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RS), 'WETH', ztot_rs_weth(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rg ) then
@@ -1759,61 +1925,115 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RG), 'DRYG', ztot_rg_dryg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'HMG', ztot_rg_hmg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'GMLT', -ztot_rr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RG), 'WETH', ztot_rg_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RG), 'COHG', ztot_rg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rh ) then
- call Budget_store_add( tbudgets(NBUDGET_RH), 'WETG', ztot_rh_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'WETG', ztot_rh_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'DEPH', ztot_rh_deph(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'WETH', ztot_rh_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'COHG', -ztot_rg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'HMLT', -ztot_rr_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_sv ) then
!
! Cloud droplets
!
- idx = NBUDGET_SV1 - 1 + nsv_lima_nc
- call Budget_store_add( tbudgets(idx), 'SELF', ztot_cc_self (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cc_auto (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'ACCR', ztot_cc_accr (:, :, :) * zrhodjontstep(:, :, :) )
- !call Budget_store_add( tbudgets(idx), 'REVA', 0. )
- call Budget_store_add( tbudgets(idx), 'HONC', ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'IMLT', ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'RIM', ztot_cc_rim (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'WETG', ztot_cc_wetg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cc_dryg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CVRC', -ztot_cr_cvrc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cc_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ if (nmom_c.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_nc
+ call Budget_store_add( tbudgets(idx), 'SELF', ztot_cc_self (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cc_auto (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACCR', ztot_cc_accr (:, :, :) * zrhodjontstep(:, :, :) )
+ !call Budget_store_add( tbudgets(idx), 'REVA', 0. )
+ call Budget_store_add( tbudgets(idx), 'HONC', ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'IMLT', ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'RIM', ztot_cc_rim (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cc_wetg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cc_dryg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CVRC', -ztot_cr_cvrc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cc_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cc_weth (:, :, :) * zrhodjontstep(:, :, :) )
+ end if
!
! Rain drops
!
- idx = NBUDGET_SV1 - 1 + nsv_lima_nr
- call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cr_auto(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'SCBU', ztot_cr_scbu(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'REVA', ztot_cr_evap(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'BRKU', ztot_cr_brku(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'HONR', ztot_cr_honr(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'ACC', ztot_cr_acc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_cr_cfrz(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'WETG', ztot_cr_wetg(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cr_dryg(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'GMLT', ztot_cr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CVRC', ztot_cr_cvrc(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cr_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ if (nmom_r.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_nr
+ call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cr_auto(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'SCBU', ztot_cr_scbu(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'REVA', ztot_cr_evap(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'BRKU', ztot_cr_brku(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HONR', ztot_cr_honr(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACC', ztot_cr_acc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_cr_cfrz(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cr_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cr_dryg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'GMLT', ztot_cr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CVRC', ztot_cr_cvrc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cr_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cr_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMLT', ztot_cr_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
!
! Ice crystals
!
- idx = NBUDGET_SV1 - 1 + nsv_lima_ni
- call Budget_store_add( tbudgets(idx), 'HONC', -ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CNVI', ztot_ci_cnvi (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CNVS', ztot_ci_cnvs (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'AGGS', ztot_ci_aggs (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'IMLT', -ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'HMS', ztot_ci_hms (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_ci_cfrz (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CIBU', ztot_ci_cibu (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'RDSF', ztot_ci_rdsf (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'WETG', ztot_ci_wetg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'DRYG', ztot_ci_dryg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'HMG', ztot_ci_hmg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CORR2', ztot_ci_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ if (nmom_i.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ni
+ call Budget_store_add( tbudgets(idx), 'HONC', -ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CNVI', ztot_ci_cnvi (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CNVS', ztot_ci_cnvs (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'AGGS', ztot_ci_aggs (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'IMLT', -ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMS', ztot_ci_hms (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_ci_cfrz (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CIBU', ztot_ci_cibu (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'RDSF', ztot_ci_rdsf (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_ci_wetg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_ci_dryg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMG', ztot_ci_hmg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CORR2', ztot_ci_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_ci_weth (:, :, :) * zrhodjontstep(:, :, :) )
+ end if
+ !
+ ! Snow
+ !
+ if (nmom_s.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ns
+ call Budget_store_add( tbudgets(idx), 'CNVI', -ztot_ci_cnvi(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CNVS', -ztot_ci_cnvs(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'RIM', ztot_cs_rim(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACC', ztot_cs_acc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CMEL', ztot_cs_cmel(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'SSC', ztot_cs_ssc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cs_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cs_dryg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cs_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
+ !
+ ! Graupel
+ !
+ if (nmom_g.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ng
+ call Budget_store_add( tbudgets(idx), 'RIM', -ztot_cs_rim(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACC', -ztot_cs_acc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CMEL', -ztot_cs_cmel(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CFRZ', -ztot_cr_cfrz(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cg_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'GMLT', ztot_cg_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cg_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'COHG', ztot_cg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
+ !
+ ! Hail
+ !
+ if (nmom_h.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_nh
+ call Budget_store_add( tbudgets(idx), 'WETG', -ztot_cg_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'COHG', -ztot_cg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMLT', ztot_ch_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
do ii = 1, nmod_ifn
idx = NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + ii - 1
diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90
index 410c9a92043c33866f2c5b8205598815e12bae59..189fe45146155c66740f559f4db5c9e2bd006a29 100644
--- a/src/MNH/lima_adjust.f90
+++ b/src/MNH/lima_adjust.f90
@@ -11,8 +11,8 @@ INTERFACE
!
SUBROUTINE LIMA_ADJUST(KRR, KMI, TPFILE, &
OSUBG_COND, PTSTEP, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, &
- PPABST, &
+ PRHODREF, PRHODJ, PEXNREF, &
+ PPABST, PPABSTT, &
PRT, PRS, PSVT, PSVS, &
PTHS, PSRCS, PCLDFR, PICEFR, PRAINFR )
!
@@ -30,8 +30,8 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
!
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
!
@@ -59,8 +59,8 @@ END MODULE MODI_LIMA_ADJUST
! #############################################################
SUBROUTINE LIMA_ADJUST(KRR, KMI, TPFILE, &
OSUBG_COND, PTSTEP, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, &
- PPABST, &
+ PRHODREF, PRHODJ, PEXNREF, &
+ PPABST, PPABSTT, &
PRT, PRS, PSVT, PSVS, &
PTHS, PSRCS, PCLDFR, PICEFR, PRAINFR )
! #############################################################
@@ -187,8 +187,8 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
!
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
!
@@ -390,9 +390,9 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'CEDS', prcs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
- if ( lcold ) &
+ if ( lcold .and. nmom_i.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CEDS', pcis(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
@@ -440,7 +440,7 @@ END WHERE
!
!* 2.2 estimate the Exner function at t+1
!
-ZEXNS(:,:,:) = ( (2. * PPABST(:,:,:) - PPABSM(:,:,:)) / XP00 ) ** (XRD/XCPD)
+ZEXNS(:,:,:) = ( PPABSTT(:,:,:) / XP00 ) ** (XRD/XCPD)
!
! beginning of the iterative loop
!
@@ -515,7 +515,7 @@ IF( IMICRO >= 1 ) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -665,7 +665,7 @@ IF( IMICRO >= 1 ) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -801,7 +801,7 @@ IF( IMICRO >= 1 ) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -1253,7 +1253,7 @@ END IF
IF ( tpfile%lopened ) THEN
ZT(:,:,:) = ( PTHS(:,:,:) * ZDT ) * ZEXNS(:,:,:)
ZW(:,:,:) = EXP( XALPI - XBETAI/ZT(:,:,:) - XGAMI*ALOG(ZT(:,:,:) ) )
- ZW1(:,:,:)= 2.0*PPABST(:,:,:)-PPABSM(:,:,:)
+ ZW1(:,:,:)= PPABSTT(:,:,:)
ZW(:,:,:) = PRVT(:,:,:)*( ZW1(:,:,:)-ZW(:,:,:) ) / ( (XMV/XMD) * ZW(:,:,:) ) - 1.0
TZFIELD%CMNHNAME = 'SSI'
@@ -1279,9 +1279,9 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'CEDS', prcs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
- if ( lcold ) &
+ if ( lcold .and. nmom_i.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CEDS', pcis(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
diff --git a/src/MNH/lima_adjust_split.f90 b/src/MNH/lima_adjust_split.f90
index 19b6b3778d1b2307dbc608d1f3125e1f5ccf694c..3ddcc4049d622e5c529c5a5868c0283affc2cd5a 100644
--- a/src/MNH/lima_adjust_split.f90
+++ b/src/MNH/lima_adjust_split.f90
@@ -11,8 +11,8 @@ INTERFACE
!
SUBROUTINE LIMA_ADJUST_SPLIT(KRR, KMI, TPFILE, HCONDENS, HLAMBDA3, &
OSUBG_COND, OSIGMAS, PTSTEP, PSIGQSAT, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, PSIGS, PMFCONV, &
- PPABST, PZZ, PDTHRAD, PW_NU, &
+ PRHODREF, PRHODJ, PEXNREF, PSIGS, PMFCONV, &
+ PPABST, PPABSTT, PZZ, PDTHRAD, PW_NU, &
PRT, PRS, PSVT, PSVS, &
PTHS, PSRCS, PCLDFR, PICEFR, PRC_MF, PRI_MF, PCF_MF)
!
@@ -36,10 +36,10 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PMFCONV !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTHRAD ! Radiative temperature tendency
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
@@ -72,8 +72,8 @@ END MODULE MODI_LIMA_ADJUST_SPLIT
! ###########################################################################
SUBROUTINE LIMA_ADJUST_SPLIT(KRR, KMI, TPFILE, HCONDENS, HLAMBDA3, &
OSUBG_COND, OSIGMAS, PTSTEP, PSIGQSAT, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, PSIGS, PMFCONV, &
- PPABST, PZZ, PDTHRAD, PW_NU, &
+ PRHODREF, PRHODJ, PEXNREF, PSIGS, PMFCONV, &
+ PPABST, PPABSTT, PZZ, PDTHRAD, PW_NU, &
PRT, PRS, PSVT, PSVS, &
PTHS, PSRCS, PCLDFR, PICEFR, PRC_MF, PRI_MF, PCF_MF)
! ###########################################################################
@@ -198,10 +198,10 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PMFCONV !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTHRAD ! Radiative temperature tendency
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
@@ -374,11 +374,11 @@ PCIT(:,:,:) = 0.
PCCS(:,:,:) = 0.
! PCIS(:,:,:) = 0.
!
-IF ( LWARM ) PCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)*PTSTEP
-IF ( LCOLD ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
+IF ( LWARM .AND. NMOM_C.GE.2 ) PCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)*PTSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2 ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
!
-IF ( LWARM ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
-! IF ( LCOLD ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( LWARM .AND. NMOM_C.GE.2 ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
+! IF ( LCOLD .AND. NMOM_I.GE.2 ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
!
IF ( LSCAV .AND. LAERO_MASS ) PMAS(:,:,:) = PSVS(:,:,:,NSV_LIMA_SCAVMASS)
!
@@ -413,7 +413,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
!Remark: PRIS is not modified but source term kept for better coherence with lima_adjust and lima_notadjust
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
@@ -462,7 +462,7 @@ END WHERE
!
!* 2.2 estimate the Exner function at t+1
!
-ZEXNS(:,:,:) = ( (2. * PPABST(:,:,:) - PPABSM(:,:,:)) / XP00 ) ** (XRD/XCPD)
+ZEXNS(:,:,:) = ( PPABSTT(:,:,:) / XP00 ) ** (XRD/XCPD)
!
! beginning of the iterative loop
!
@@ -519,7 +519,7 @@ DO JITER =1,ITERMAX
Z_SIGS, PMFCONV, PCLDFR, Z_SRCS, GUSERI, G_SIGMAS, &
Z_SIGQSAT, PLV=ZLV, PLS=ZLS, PCPH=ZCPH )
END IF
- IF (OSUBG_COND) THEN
+ IF (OSUBG_COND .AND. NMOM_C.GE.2 .AND. LACTI) THEN
PSRCS=Z_SRCS
ZW_MF=0.
CALL LIMA_CCN_ACTIVATION (TPFILE, &
@@ -630,13 +630,15 @@ END IF
!
ZMASK(:,:,:) = 0.0
ZW(:,:,:) = 0.
-WHERE (PRCS(:,:,:) <= ZRTMIN(2) .OR. PCCS(:,:,:) <= ZCTMIN(2))
- PRVS(:,:,:) = PRVS(:,:,:) + PRCS(:,:,:)
- PTHS(:,:,:) = PTHS(:,:,:) - PRCS(:,:,:)*ZLV(:,:,:)/(ZCPH(:,:,:)*ZEXNS(:,:,:))
- PRCS(:,:,:) = 0.0
- ZW(:,:,:) = MAX(PCCS(:,:,:),0.)
- PCCS(:,:,:) = 0.0
-END WHERE
+IF (NMOM_C .GE. 2) THEN
+ WHERE (PRCS(:,:,:) <= ZRTMIN(2) .OR. PCCS(:,:,:) <=0.)
+ PRVS(:,:,:) = PRVS(:,:,:) + PRCS(:,:,:)
+ PTHS(:,:,:) = PTHS(:,:,:) - PRCS(:,:,:)*ZLV(:,:,:)/(ZCPH(:,:,:)*ZEXNS(:,:,:))
+ PRCS(:,:,:) = 0.0
+ ZW(:,:,:) = MAX(PCCS(:,:,:),0.)
+ PCCS(:,:,:) = 0.0
+ END WHERE
+END IF
!
ZW1(:,:,:) = 0.
IF (LWARM .AND. NMOD_CCN.GE.1) ZW1(:,:,:) = SUM(PNAS,DIM=4)
@@ -696,8 +698,8 @@ IF ( KRR .GE. 6 ) PRS(:,:,:,6) = PRGS(:,:,:)
!
! Prepare 3D number concentrations
!
-IF ( LWARM ) PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
-! IF ( LCOLD ) PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
+IF ( LWARM .AND. NMOM_C.GE.2 ) PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
+! IF ( LCOLD .AND. NMOM_I.GE.2 ) PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
!
IF ( LSCAV .AND. LAERO_MASS ) PSVS(:,:,:,NSV_LIMA_SCAVMASS) = PMAS(:,:,:)
!
@@ -720,7 +722,7 @@ END IF
IF ( tpfile%lopened ) THEN
ZT(:,:,:) = ( PTHS(:,:,:) * ZDT ) * ZEXNS(:,:,:)
ZW(:,:,:) = EXP( XALPI - XBETAI/ZT(:,:,:) - XGAMI*ALOG(ZT(:,:,:) ) )
- ZW1(:,:,:)= 2.0*PPABST(:,:,:)-PPABSM(:,:,:)
+ ZW1(:,:,:)= PPABSTT(:,:,:)
ZW(:,:,:) = PRVT(:,:,:)*( ZW1(:,:,:)-ZW(:,:,:) ) / ( (XMV/XMD) * ZW(:,:,:) ) - 1.0
TZFIELD%CMNHNAME = 'SSI'
@@ -746,7 +748,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'CEDS', prcs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
diff --git a/src/MNH/lima_cold.f90 b/src/MNH/lima_cold.f90
index 3e0a6b3e49e007c6b36efdad8d80ab6c33ee0fe9..56ee422eb7a119cf64698742900da317719b4c39 100644
--- a/src/MNH/lima_cold.f90
+++ b/src/MNH/lima_cold.f90
@@ -11,7 +11,6 @@ INTERFACE
SUBROUTINE LIMA_COLD (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRS, PINPRG, PINPRH)
@@ -36,9 +35,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -59,7 +55,6 @@ END MODULE MODI_LIMA_COLD
SUBROUTINE LIMA_COLD (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRS, PINPRG, PINPRH)
@@ -122,6 +117,7 @@ use modd_budget, only: lbu_enable,
tbudgets
USE MODD_NSV
USE MODD_PARAM_LIMA
+USE MODD_PARAM_LIMA_COLD, only: XLBS, XLBEXS, XACCS1, XSPONBUDS1, XSPONBUDS2, XSPONBUDS3, XSPONCOEFS2
use mode_budget, only: Budget_store_init, Budget_store_end
@@ -153,9 +149,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -190,10 +183,18 @@ REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2),SIZE(PZZ,3)) &
PCCT, & ! Cloud water C. at t
PCRT, & ! Rain water C. at t
PCIT, & ! Ice crystal C. at t
+ PCST, & ! Snow/aggregates C. at t
+ PCGT, & ! Graupel C. at t
+ PCHT, & ! Hail C. at t
!
PCCS, & ! Cloud water C. source
PCRS, & ! Rain water C. source
- PCIS ! Ice crystal C. source
+ PCIS, & ! Ice crystal C. source
+ PCSS, & ! Snow/aggregates C. source
+ PCGS, & ! Graupel C. source
+ PCHS, & ! Hail C. source
+ !
+ ZWLBDS ! Snow/aggregates lambda
!
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNFS ! CCN C. available source
!used as Free ice nuclei for
@@ -250,17 +251,29 @@ IF ( KRR .GE. 7 ) PRHS(:,:,:) = PRS(:,:,:,7)
PCCT(:,:,:) = 0.
PCRT(:,:,:) = 0.
PCIT(:,:,:) = 0.
+PCST(:,:,:) = 0.
+PCGT(:,:,:) = 0.
+PCHT(:,:,:) = 0.
PCCS(:,:,:) = 0.
PCRS(:,:,:) = 0.
PCIS(:,:,:) = 0.
+PCSS(:,:,:) = 0.
+PCGS(:,:,:) = 0.
+PCHS(:,:,:) = 0.
!
IF ( LWARM ) PCCT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCST(:,:,:) = PSVT(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NH)
!
IF ( LWARM ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCSS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH)
!
IF ( NMOD_CCN .GE. 1 ) THEN
ALLOCATE( PNFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_CCN) )
@@ -315,15 +328,17 @@ if ( lbu_enable ) then
if ( lbudget_rh .and. lhail ) call Budget_store_init( tbudgets(NBUDGET_RH), 'SEDI', prhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv .and. osedi ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', pcis(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_S.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SEDI', pcss(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_G.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'SEDI', pcgs(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_H.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'SEDI', pchs(:, :, :) * prhodj(:, :, :) )
end if
CALL LIMA_COLD_SEDIMENTATION (OSEDI, KSPLITG, PTSTEP, KMI, &
PZZ, PRHODJ, PRHODREF, &
PRIT, PCIT, &
PRIS, PRSS, PRGS, PRHS, PCIS, &
- PINPRS, PINPRG,&
- PINPRH )
-
+ PINPRS, PINPRG, PINPRH, &
+ PCSS=PCSS, PCGS=PCGS, PCHS=PCHS )
if ( lbu_enable ) then
if ( lbudget_ri .and. osedi ) call Budget_store_end( tbudgets(NBUDGET_RI), 'SEDI', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rs .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RS), 'SEDI', prss(:, :, :) * prhodj(:, :, :) )
@@ -331,6 +346,9 @@ if ( lbu_enable ) then
if ( lbudget_rh .and. lhail ) call Budget_store_end( tbudgets(NBUDGET_RH), 'SEDI', prhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv .and. osedi ) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', pcis(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_S.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SEDI', pcss(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_G.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'SEDI', pcgs(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_H.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'SEDI', pchs(:, :, :) * prhodj(:, :, :) )
end if
!-------------------------------------------------------------------------------
!
@@ -377,12 +395,42 @@ END IF
!
IF (LSNOW) THEN
!
- CALL LIMA_COLD_SLOW_PROCESSES(PTSTEP, KMI, PZZ, PRHODJ, &
+ IF(NMOM_S.GE.2) THEN
+ CALL LIMA_COLD_SLOW_PROCESSES(PTSTEP, KMI, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
PTHS, PRVS, PRIS, PRSS, &
- PCIT, PCIS )
+ PCIT, PCIS, PCST=PCST, PCSS=PCSS )
+ ELSE
+ CALL LIMA_COLD_SLOW_PROCESSES(PTSTEP, KMI, PZZ, PRHODJ, &
+ PRHODREF, PEXNREF, PPABST, &
+ PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
+ PTHS, PRVS, PRIS, PRSS, &
+ PCIT, PCIS )
+ END IF
+END IF
+!
+IF (NMOM_S.GE.2) THEN
!
+! 5. SPONTANEOUS BREAK-UP (NUMERICAL FILTER)
+! --------------------
+!
+ if ( lbu_enable .and. lbudget_sv) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'BRKU', pcss(:, :, :) * prhodj(:, :, :) )
+ end if
+
+ ZWLBDS(:,:,:) = 1.E10
+ WHERE ((PRSS(:,:,:)>XRTMIN(5)/PTSTEP) .AND. (PCSS(:,:,:)>XCTMIN(5)/PTSTEP ))
+ ZWLBDS(:,:,:) = (XLBS * PCSS(:,:,:) / PRSS(:,:,:) )**XLBEXS
+ END WHERE
+ WHERE (ZWLBDS(:,:,:)<(XACCS1/XSPONBUDS1))
+ PCSS(:,:,:) = PCSS(:,:,:)*MAX((1.+XSPONCOEFS2*(XACCS1/ZWLBDS(:,:,:)-XSPONBUDS1)**2),&
+ (XACCS1/ZWLBDS(:,:,:)/XSPONBUDS3)**3)
+ END WHERE
+!
+ if ( lbu_enable .and. lbudget_sv) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'BRKU', pcss(:, :, :) * prhodj(:, :, :) )
+ end if
END IF
!
!------------------------------------------------------------------------------
@@ -404,6 +452,9 @@ IF ( KRR .GE. 7 ) PRS(:,:,:,7) = PRHS(:,:,:)
IF ( LWARM ) PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
IF ( LWARM .AND. LRAIN ) PSVS(:,:,:,NSV_LIMA_NR) = PCRS(:,:,:)
IF ( LCOLD ) PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
+IF ( NMOM_S.GE.2 ) PSVS(:,:,:,NSV_LIMA_NS) = PCSS(:,:,:)
+IF ( NMOM_G.GE.2 ) PSVS(:,:,:,NSV_LIMA_NG) = PCGS(:,:,:)
+IF ( NMOM_H.GE.2 ) PSVS(:,:,:,NSV_LIMA_NH) = PCHS(:,:,:)
!
IF ( NMOD_CCN .GE. 1 ) THEN
PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) = PNFS(:,:,:,:)
diff --git a/src/MNH/lima_cold_sedimentation.f90 b/src/MNH/lima_cold_sedimentation.f90
index 6a62652b7dc00b57ff9f5d401f496f61af249b9c..13e80b57c456b0e61d9a3146a8f3c9fe1b75609e 100644
--- a/src/MNH/lima_cold_sedimentation.f90
+++ b/src/MNH/lima_cold_sedimentation.f90
@@ -12,7 +12,8 @@ INTERFACE
PZZ, PRHODJ, PRHODREF, &
PRIT, PCIT, &
PRIS, PRSS, PRGS, PRHS, PCIS, &
- PINPRS, PINPRG, PINPRH )
+ PINPRS, PINPRG, PINPRH, &
+ PCSS, PCGS, PCHS)
!
LOGICAL, INTENT(IN) :: OSEDI ! switch to activate the
! cloud ice sedimentation
@@ -32,6 +33,9 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. sour
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRGS ! Graupel m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRHS ! Hail m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregate C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCGS ! Graupel C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCHS ! Hail C. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRS ! Snow instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRG ! Graupel instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRH ! Hail instant precip
@@ -47,8 +51,8 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION
PZZ, PRHODJ, PRHODREF, &
PRIT, PCIT, &
PRIS, PRSS, PRGS, PRHS, PCIS, &
- PINPRS,PINPRG,&
- PINPRH )
+ PINPRS,PINPRG,PINPRH, &
+ PCSS, PCGS, PCHS)
! ######################################################################
!
!! PURPOSE
@@ -77,6 +81,7 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -86,10 +91,17 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION
USE MODD_CST, ONLY : XRHOLW
USE MODD_NSV
USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
-USE MODD_PARAM_LIMA, ONLY : XCEXVT, XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA, ONLY : XCEXVT, XRTMIN, XCTMIN, &
+ NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY : XLBEXI, XLBI, XDI, &
- XFSEDRI, XFSEDCI, XFSEDS, XEXSEDS
-USE MODD_PARAM_LIMA_MIXED, ONLY : XFSEDG, XEXSEDG, XFSEDH, XEXSEDH
+ XFSEDRI, XFSEDCI, XFSEDS, XEXSEDS, &
+ XLBEXS, XLBS, XDS, &
+ XFSEDRS, XFSEDCS
+
+USE MODD_PARAM_LIMA_MIXED, ONLY : XFSEDG, XEXSEDG, XFSEDH, XEXSEDH, &
+ XLBEXG, XLBG, XDG, &
+ XLBEXH, XLBH, XDH, &
+ XFSEDRG, XFSEDCG, XFSEDRH, XFSEDCH
!
use mode_tools, only: Countjv
!
@@ -117,6 +129,9 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. sour
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRGS ! Graupel m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRHS ! Hail m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregate C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCGS ! Graupel C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCHS ! Hail C. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRS ! Snow instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRG ! Graupel instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRH ! Hail instant precip
@@ -139,8 +154,11 @@ REAL, DIMENSION(:), ALLOCATABLE &
:: ZRIS, & ! Pristine ice m.r. source
ZCIS, & ! Pristine ice conc. source
ZRSS, & ! Snow/aggregate m.r. source
+ ZCSS, & ! Snow/aggregate conc. source
ZRGS, & ! Graupel/hail m.r. source
+ ZCGS, & ! Graupel/hail conc. source
ZRHS, & ! Graupel/hail m.r. source
+ ZCHS, & ! Graupel/hail conc. source
ZRIT, & ! Pristine ice m.r. at t
ZCIT, & ! Pristine ice conc. at t
ZRHODREF, & ! RHO Dry REFerence
@@ -148,8 +166,8 @@ REAL, DIMENSION(:), ALLOCATABLE &
ZZW, & ! Work array
ZZX, & ! Work array
ZZY, & ! Work array
- ZLBDAI, & ! Slope parameter of the ice crystal distr.
- ZRTMIN
+ ZLBDAI, ZLBDAS, ZLBDAG, ZLBDAH, & ! Slope parameter of the ice crystal distr.
+ ZRTMIN, ZCTMIN
!
INTEGER , DIMENSION(SIZE(PRHODREF)) :: I1,I2,I3 ! Indexes for PACK replacement
!
@@ -170,7 +188,9 @@ IKE=SIZE(PZZ,3) - JPVEXT
! Time splitting and ZRTMIN
!
ALLOCATE(ZRTMIN(SIZE(XRTMIN)))
+ALLOCATE(ZCTMIN(SIZE(XCTMIN)))
ZRTMIN(:) = XRTMIN(:) / PTSTEP
+ZCTMIN(:) = XCTMIN(:) / PTSTEP
!
ZTSPLITG= PTSTEP / REAL(KSPLITG)
!
@@ -185,9 +205,28 @@ PINPRH(:,:) = 0.
DO JN = 1 , KSPLITG
! Computation only where enough ice, snow, graupel or hail
GSEDIM(:,:,:) = .FALSE.
- GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(5) &
- .OR. PRGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(6) &
- .OR. PRHS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(7)
+IF (NMOM_S.EQ.2) THEN
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(5) .AND. &
+ PCSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(5)
+ELSE
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(5)
+END IF
+IF (NMOM_G.EQ.2) THEN
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ ( PRGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(6) .AND. &
+ PCGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(6) )
+ELSE
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ PRGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(6)
+END IF
+IF (NMOM_H.EQ.2) THEN
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ ( PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(7) .AND. &
+ PCSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(7) )
+ELSE
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(7)
+END IF
IF( OSEDI ) THEN
GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) &
.OR. PRIS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(4)
@@ -204,6 +243,9 @@ DO JN = 1 , KSPLITG
PRSS(:,:,:) = PRSS(:,:,:) * PTSTEP
PRGS(:,:,:) = PRGS(:,:,:) * PTSTEP
PRHS(:,:,:) = PRHS(:,:,:) * PTSTEP
+ IF(NMOM_S.EQ.2) PCSS(:,:,:) = PCSS(:,:,:) * PTSTEP
+ IF(NMOM_G.EQ.2) PCGS(:,:,:) = PCGS(:,:,:) * PTSTEP
+ IF(NMOM_H.EQ.2) PCHS(:,:,:) = PCHS(:,:,:) * PTSTEP
DO JK = IKB , IKE
ZW(:,:,JK)=ZTSPLITG/(PZZ(:,:,JK+1)-PZZ(:,:,JK))
END DO
@@ -259,21 +301,52 @@ DO JN = 1 , KSPLITG
!* 2.22 for aggregates
!
ZZW(:) = 0.
+ ZZX(:) = 0.0
+ ZZY(:) = 0.0
IF( MAXVAL(PRSS(:,:,:))>XRTMIN(5) ) THEN
ALLOCATE(ZRSS(ISEDIM))
- DO JL = 1,ISEDIM
- ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
- END DO
- WHERE( ZRSS(:)>XRTMIN(5) )
- ZZW(:) = XFSEDS * (ZRSS(:)*ZRHODREF(:))**XEXSEDS * ZRHODREF(:)**(-XCEXVT)
- END WHERE
- ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
- ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
- DO JK = IKB , IKE
- PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)* &
- (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
- END DO
- DEALLOCATE(ZRSS)
+ IF(NMOM_S.GE.2) THEN
+ ALLOCATE(ZCSS(ISEDIM))
+ ALLOCATE(ZLBDAS(ISEDIM))
+ DO JL = 1,ISEDIM
+ ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
+ ZCSS(JL) = PCSS(I1(JL),I2(JL),I3(JL))
+ END DO
+ ZLBDAS(:) = 1.E10
+ WHERE( ZRSS(:)>XRTMIN(5) .AND. ZCSS(:)>XCTMIN(5) )
+ ZLBDAS(:) = ( XLBS*ZCSS(:) / ZRSS(:) )**XLBEXS
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * (ZLBDAS(:)**(-XDS))
+ ZZW(:) = XFSEDRS * ZRSS(:) * ZZY(:) * ZRHODREF(:)
+ ZZX(:) = XFSEDCS * ZCSS(:) * ZZY(:) * ZRHODREF(:)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ ZWSEDC(:,:,:) = UNPACK( ZZX(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDC(:,:,IKB:IKE) = MIN( ZWSEDC(:,:,IKB:IKE), PCSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ PCSS(:,:,JK) = PCSS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDC(:,:,JK+1)-ZWSEDC(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRSS)
+ DEALLOCATE(ZCSS)
+ DEALLOCATE(ZLBDAS)
+ ELSE
+ DO JL = 1,ISEDIM
+ ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
+ END DO
+ WHERE( ZRSS(:)>XRTMIN(5) )
+ ZZW(:) = XFSEDS * (ZRSS(:)*ZRHODREF(:))**XEXSEDS * ZRHODREF(:)**(-XCEXVT)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRSS)
+ END IF
ELSE
ZWSEDR(:,:,IKB) = 0.0
END IF
@@ -283,21 +356,52 @@ DO JN = 1 , KSPLITG
!* 2.23 for graupeln
!
ZZW(:) = 0.
+ ZZX(:) = 0.0
+ ZZY(:) = 0.0
IF( MAXVAL(PRGS(:,:,:))>XRTMIN(6) ) THEN
ALLOCATE(ZRGS(ISEDIM))
- DO JL = 1,ISEDIM
- ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
- END DO
- WHERE( ZRGS(:)>XRTMIN(6) )
- ZZW(:) = XFSEDG * (ZRGS(:)*ZRHODREF(:))**XEXSEDG * ZRHODREF(:)**(-XCEXVT)
- END WHERE
- ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
- ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
- DO JK = IKB , IKE
- PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)* &
- (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
- END DO
- DEALLOCATE(ZRGS)
+ IF(NMOM_G.GE.2) THEN
+ ALLOCATE(ZCGS(ISEDIM))
+ ALLOCATE(ZLBDAG(ISEDIM))
+ DO JL = 1,ISEDIM
+ ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
+ ZCGS(JL) = PCGS(I1(JL),I2(JL),I3(JL))
+ END DO
+ ZLBDAG(:) = 1.E10
+ WHERE( ZRGS(:)>XRTMIN(6) .AND. ZCGS(:)>XCTMIN(6) )
+ ZLBDAG(:) = ( XLBS*ZCGS(:) / ZRGS(:) )**XLBEXG
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * (ZLBDAG(:)**(-XDG))
+ ZZW(:) = XFSEDRG * ZRGS(:) * ZZY(:) * ZRHODREF(:)
+ ZZX(:) = XFSEDCG * ZCGS(:) * ZZY(:) * ZRHODREF(:)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ ZWSEDC(:,:,:) = UNPACK( ZZX(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDC(:,:,IKB:IKE) = MIN( ZWSEDC(:,:,IKB:IKE), PCGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ PCGS(:,:,JK) = PCGS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDC(:,:,JK+1)-ZWSEDC(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRGS)
+ DEALLOCATE(ZCGS)
+ DEALLOCATE(ZLBDAG)
+ ELSE
+ DO JL = 1,ISEDIM
+ ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
+ END DO
+ WHERE( ZRGS(:)>XRTMIN(6) )
+ ZZW(:) = XFSEDG * (ZRGS(:)*ZRHODREF(:))**XEXSEDG * ZRHODREF(:)**(-XCEXVT)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRGS)
+ END IF
ELSE
ZWSEDR(:,:,IKB) = 0.0
END IF
@@ -307,21 +411,48 @@ DO JN = 1 , KSPLITG
!* 2.23 for hail
!
ZZW(:) = 0.
+ ZZX(:) = 0.
+ ZZY(:) = 0.
IF( MAXVAL(PRHS(:,:,:))>XRTMIN(7) ) THEN
ALLOCATE(ZRHS(ISEDIM))
- DO JL = 1,ISEDIM
- ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
- END DO
- WHERE( ZRHS(:)>XRTMIN(7) )
- ZZW(:) = XFSEDH * (ZRHS(:)*ZRHODREF(:))**XEXSEDH * ZRHODREF(:)**(-XCEXVT)
- END WHERE
- ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
- ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRHS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
- DO JK = IKB , IKE
- PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)* &
- (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
- END DO
- DEALLOCATE(ZRHS)
+ IF(NMOM_H.GE.2) THEN
+ ALLOCATE(ZCHS(ISEDIM))
+ ALLOCATE(ZLBDAH(ISEDIM))
+ DO JL = 1,ISEDIM
+ ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
+ ZCHS(JL) = PCHS(I1(JL),I2(JL),I3(JL))
+ END DO
+ ZLBDAH(:) = 1.E10
+ WHERE( ZRHS(:)>XRTMIN(7) .AND. ZCHS(:)>XCTMIN(7) )
+ ZLBDAH(:) = ( XLBH*ZCHS(:) / ZRHS(:) )**XLBEXH
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * (ZLBDAH(:)**(-XDH))
+ ZZW(:) = XFSEDRH * ZRHS(:) * ZZY(:) * ZRHODREF(:)
+ ZZX(:) = XFSEDCH * ZCHS(:) * ZZY(:) * ZRHODREF(:)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRHS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRHS)
+ DEALLOCATE(ZLBDAH)
+ DEALLOCATE(ZCHS)
+ ELSE
+ DO JL = 1,ISEDIM
+ ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
+ END DO
+ WHERE( ZRHS(:)>XRTMIN(7) )
+ ZZW(:) = XFSEDH * (ZRHS(:)*ZRHODREF(:))**XEXSEDH * ZRHODREF(:)**(-XCEXVT)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRHS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRHS)
+ END IF
ELSE
ZWSEDR(:,:,IKB) = 0.0
END IF
@@ -342,11 +473,15 @@ DO JN = 1 , KSPLITG
PRSS(:,:,:) = PRSS(:,:,:) / PTSTEP
PRGS(:,:,:) = PRGS(:,:,:) / PTSTEP
PRHS(:,:,:) = PRHS(:,:,:) / PTSTEP
+ IF(NMOM_S.GE.2) PCSS(:,:,:) = PCSS(:,:,:) / PTSTEP
+ IF(NMOM_G.GE.2) PCGS(:,:,:) = PCGS(:,:,:) / PTSTEP
+ IF(NMOM_H.GE.2) PCHS(:,:,:) = PCHS(:,:,:) / PTSTEP
END IF
END IF
END DO
!++cb++
DEALLOCATE(ZRTMIN)
+DEALLOCATE(ZCTMIN)
!--cb--
!
END SUBROUTINE LIMA_COLD_SEDIMENTATION
diff --git a/src/MNH/lima_cold_slow_processes.f90 b/src/MNH/lima_cold_slow_processes.f90
index 29c1aecbe47c04efb136d3175a07def0a5d552e9..0f74d6562a71c2d67b28f644df40dd449eb50bdd 100644
--- a/src/MNH/lima_cold_slow_processes.f90
+++ b/src/MNH/lima_cold_slow_processes.f90
@@ -12,7 +12,7 @@ INTERFACE
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
PTHS, PRVS, PRIS, PRSS, &
- PCIT, PCIS )
+ PCIT, PCIS, PCST, PCSS )
!
REAL, INTENT(IN) :: PTSTEP ! Time step
INTEGER, INTENT(IN) :: KMI ! Model index
@@ -37,8 +37,10 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIT ! Ice crystal C. at t
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(IN) :: PCST ! Ice crystal C. at t
!
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregates C. source
!
END SUBROUTINE LIMA_COLD_SLOW_PROCESSES
END INTERFACE
@@ -49,7 +51,7 @@ END MODULE MODI_LIMA_COLD_SLOW_PROCESSES
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
PTHS, PRVS, PRIS, PRSS, &
- PCIT, PCIS )
+ PCIT, PCIS, PCST, PCSS )
! ################################################################################
!
!! PURPOSE
@@ -81,6 +83,7 @@ END MODULE MODI_LIMA_COLD_SLOW_PROCESSES
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
! P. Wautelet 03/2020: use the new data structures and subroutines for budgets
! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -93,10 +96,10 @@ use modd_budget, only: lbu_enable, nbumod,
tbudgets
USE MODD_CST, ONLY: XP00, XRD, XRV, XMV, XMD, XCPD, XCPV, &
XCL, XCI, XTT, XLSTT, XALPI, XBETAI, XGAMI
-USE MODD_NSV, ONLY: NSV_LIMA_NI
+USE MODD_NSV, ONLY: NSV_LIMA_NI, NSV_LIMA_NS
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: LSNOW, LSNOW_T, XRTMIN, XCTMIN, &
- XALPHAI, XALPHAS, XNUI, XNUS
+ XALPHAI, XALPHAS, XNUI, XNUS, NMOM_S
USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XNS, XBI, XCXS, XCCS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
@@ -137,8 +140,10 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIT ! Ice crystal C. at t
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(IN) :: PCST ! Snow/aggregates C. at t
!
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregates C. source
!
!* 0.2 Declarations of local variables :
!
@@ -156,6 +161,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRST ! Snow/aggregate m.r. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZRGT ! Graupel/hail m.r. at t
!
REAL, DIMENSION(:), ALLOCATABLE :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCST ! Snow/aggregate conc. at t !
!
REAL, DIMENSION(:), ALLOCATABLE :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), ALLOCATABLE :: ZRIS ! Pristine ice m.r. source
@@ -164,6 +170,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRSS ! Snow/aggregate m.r. source
REAL, DIMENSION(:), ALLOCATABLE :: ZTHS ! Theta source
!
REAL, DIMENSION(:), ALLOCATABLE :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), ALLOCATABLE :: ZCSS ! Snow/aggregates conc. source
!
REAL, DIMENSION(:), ALLOCATABLE &
:: ZRHODREF, & ! RHO Dry REFerence
@@ -248,6 +255,8 @@ IF( IMICRO >= 1 ) THEN
ALLOCATE(ZTHS(IMICRO))
!
ALLOCATE(ZCIS(IMICRO))
+ ALLOCATE(ZCST(IMICRO))
+ ALLOCATE(ZCSS(IMICRO))
!
ALLOCATE(ZRHODREF(IMICRO))
ALLOCATE(ZZT(IMICRO))
@@ -270,6 +279,10 @@ IF( IMICRO >= 1 ) THEN
ZTHS(JL) = PTHS(I1(JL),I2(JL),I3(JL))
!
ZCIS(JL) = PCIS(I1(JL),I2(JL),I3(JL))
+ if (NMOM_S.GE.2) then
+ ZCST(JL) = PCST(I1(JL),I2(JL),I3(JL))
+ ZCSS(JL) = PCSS(I1(JL),I2(JL),I3(JL))
+ end if
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
@@ -318,7 +331,7 @@ IF( IMICRO >= 1 ) THEN
ZLBDAI(:) = ( XLBI*ZCIT(:) / ZRIT(:) )**XLBEXI
END WHERE
ZLBDAS(:) = 1.E10
- IF (LSNOW_T) THEN
+ IF (LSNOW_T .AND. NMOM_S.EQ.1) THEN
WHERE(ZZT(:)>263.15 .AND. ZRST(:)>XRTMIN(5))
ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZZT(:))),XLBDAS_MIN)
END WHERE
@@ -326,10 +339,18 @@ IF( IMICRO >= 1 ) THEN
ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZZT(:))),XLBDAS_MIN)
END WHERE
ZLBDAS(:) = ZLBDAS(:) * XTRANS_MP_GAMMAS
+ ZCST(:) = (XNS*ZRST(:)*ZLBDAS(:)**XBS)
+ ZCSS(:) = (XNS*ZRSS(:)*ZLBDAS(:)**XBS)
+ ELSE IF (NMOM_S.GE.2) THEN
+ WHERE (ZRST(:)>XRTMIN(5) .AND. ZCST(:)>XCTMIN(5))
+ ZLBDAS(:) = ( XLBS*ZCST(:) / ZRST(:) )**XLBEXS
+ END WHERE
ELSE
WHERE (ZRST(:)>XRTMIN(5) )
ZLBDAS(:) = MAX(MIN(XLBDAS_MAX,XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS),XLBDAS_MIN)
END WHERE
+ ZCST(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:)
+ ZCSS(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:)
END IF
!
ZKA(:) = 2.38E-2 + 0.0071E-2 * ( ZZT(:) - XTT ) ! k_a
@@ -352,20 +373,23 @@ IF( IMICRO >= 1 ) THEN
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'CNVI', prss(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVI', pcis(:, :, :) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2) &
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVI', pcss(:, :, :) * prhodj(:, :, :) )
end if
-
+!
ZZW(:) = 0.0
- WHERE ( ZLBDAS(:)<XLBDASCNVI_MAX .AND. (ZRST(:)>XRTMIN(5)) &
- .AND. (ZSSI(:)<0.0) )
+ WHERE ( ZLBDAS(:)<XLBDASCNVI_MAX .AND. (ZRST(:)>XRTMIN(5)) .AND.(ZCST(:)>XCTMIN(5)) &
+ .AND. (ZSSI(:)<0.0) )
ZZW(:) = (ZLBDAS(:)*XDSCNVI_LIM)**(XALPHAS)
- ZZX(:) = ( -ZSSI(:)/ZAI(:) ) * (XNS*ZRST(:)*ZLBDAS(:)**XBS) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
+ ZZX(:) = ( -ZSSI(:)/ZAI(:) ) * (ZCST(:)) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
!
ZZW(:) = MIN( ( XR0DEPSI+XR1DEPSI*ZCJ(:) )*ZZX(:),ZRSS(:) )
ZRIS(:) = ZRIS(:) + ZZW(:)
ZRSS(:) = ZRSS(:) - ZZW(:)
!
- ZZW(:) = ZZW(:)*( XC0DEPSI+XC1DEPSI*ZCJ(:) )/( XR0DEPSI+XR1DEPSI*ZCJ(:) )
+ ZZW(:) = MIN(ZZW(:)*( XC0DEPSI+XC1DEPSI*ZCJ(:) )/( XR0DEPSI+XR1DEPSI*ZCJ(:)),ZCSS(:) )
ZCIS(:) = ZCIS(:) + ZZW(:)
+ ZCSS(:) = ZCSS(:) - ZZW(:)
END WHERE
!
! Budget storage
@@ -376,6 +400,9 @@ IF( IMICRO >= 1 ) THEN
Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVI', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2 ) &
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVI', &
+ Unpack( zcss(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -390,18 +417,17 @@ IF( IMICRO >= 1 ) THEN
end if
ZZW(:) = 0.0
- WHERE ( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>ZRTMIN(5)) )
- ZZW(:) = ( ZRST(:)*ZSSI(:)/(ZAI(:)) ) * &
- ( X0DEPS*ZLBDAS(:)**XEX0DEPS + &
- (X1DEPS*ZCJ(:)*(1+0.5*(XFVELOS/ZLBDAS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) * &
- (ZLBDAS(:))**(XEX1DEPS+XBS)))
-
- ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- - MIN( ZRSS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
- ZRSS(:) = ZRSS(:) + ZZW(:)
- ZRVS(:) = ZRVS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
- END WHERE
+ WHERE ( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>ZRTMIN(5)) )
+ ZZW(:) = ( ZSSI(:)/(ZRHODREF(:)*ZAI(:)) ) * ZCST(:) * &
+ ( X0DEPS*ZLBDAS(:)**XEX0DEPS + &
+ X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS * &
+ (1+0.5*(XFVELOS/ZLBDAS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) )
+ ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
+ - MIN( ZRSS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
+ ZRSS(:) = ZRSS(:) + ZZW(:)
+ ZRVS(:) = ZRVS(:) - ZZW(:)
+ ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
+ END WHERE
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'DEPS', &
@@ -422,23 +448,27 @@ IF( IMICRO >= 1 ) THEN
Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVS', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVS', &
+ Unpack( zcss(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
ZZW(:) = 0.0
WHERE ( (ZLBDAI(:)<XLBDAICNVS_LIM) .AND. (ZCIT(:)>XCTMIN(4)) &
- .AND. (ZSSI(:)>0.0) )
+ .AND. (ZSSI(:)>0.0) )
ZZW(:) = (ZLBDAI(:)*XDICNVS_LIM)**(XALPHAI)
ZZX(:) = ( ZSSI(:)/ZAI(:) )*ZCIT(:) * (ZZW(:)**XNUI) *EXP(-ZZW(:))
!
- ZZW(:) = MAX( MIN( ( XR0DEPIS + XR1DEPIS*ZCJ(:) )*ZZX(:) &
- ,ZRIS(:) ) + ZRTMIN(5), ZRTMIN(5) ) - ZRTMIN(5)
+! Correction BVIE
+! ZZW(:) = MAX( MIN( ( XR0DEPIS + XR1DEPIS*ZCJ(:) )*ZZX(:)/ZRHODREF(:) &
+ ZZW(:) = MAX( MIN( ( XR0DEPIS + XR1DEPIS*ZCJ(:) )*ZZX(:) , ZRIS(:) ) , 0. )
ZRIS(:) = ZRIS(:) - ZZW(:)
ZRSS(:) = ZRSS(:) + ZZW(:)
!
ZZW(:) = MIN( ZZW(:)*(( XC0DEPIS+XC1DEPIS*ZCJ(:) ) &
- /( XR0DEPIS+XR1DEPIS*ZCJ(:) )),ZCIS(:) )
+ /( XR0DEPIS+XR1DEPIS*ZCJ(:) )),ZCIS(:) )
ZCIS(:) = ZCIS(:) - ZZW(:)
- END WHERE
+ ZCSS(:) = ZCSS(:) + ZZW(:)
+ END WHERE
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
@@ -448,6 +478,8 @@ IF( IMICRO >= 1 ) THEN
Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVS', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2 ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVS', &
+ Unpack( zcss(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -462,12 +494,11 @@ IF( IMICRO >= 1 ) THEN
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'AGGS', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
end if
-
+!
WHERE ( (ZRIT(:)>XRTMIN(4)) .AND. (ZRST(:)>XRTMIN(5)) .AND. (ZRIS(:)>ZRTMIN(4)) &
- .AND. (ZCIS(:)>ZCTMIN(4)) )
+ .AND. (ZCIS(:)>ZCTMIN(4)) )
ZZW1(:,3) = (ZLBDAI(:) / ZLBDAS(:))**3
- ZZW1(:,1) = (ZCIT(:)*(XNS*ZRST(:)*ZLBDAS(:)**XBS)*EXP(XCOLEXIS*(ZZT(:)-XTT) ))*ZRHODREF(:) &
- / (ZLBDAI(:)**3)
+ ZZW1(:,1) = (ZCIT(:)*ZCST(:)*EXP( XCOLEXIS*(ZZT(:)-XTT) )) / (ZLBDAI(:)**3)
ZZW1(:,2) = MIN( ZZW1(:,1)*(XAGGS_CLARGE1+XAGGS_CLARGE2*ZZW1(:,3)),ZCIS(:) )
ZCIS(:) = ZCIS(:) - ZZW1(:,2)
!
@@ -501,6 +532,11 @@ IF( IMICRO >= 1 ) THEN
!
ZW(:,:,:) = PCIS(:,:,:)
PCIS(:,:,:) = UNPACK( ZCIS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ if (NMOM_S.GE.2) then
+ ZW(:,:,:) = PCSS(:,:,:)
+ PCSS(:,:,:) = UNPACK( ZCSS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
+
!
ZW(:,:,:) = PTHS(:,:,:)
PTHS(:,:,:) = UNPACK( ZTHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
@@ -516,7 +552,9 @@ IF( IMICRO >= 1 ) THEN
DEALLOCATE(ZRIS)
DEALLOCATE(ZRSS)
DEALLOCATE(ZTHS)
- DEALLOCATE(ZCIS)
+ DEALLOCATE(ZCIS)
+ DEALLOCATE(ZCSS)
+ DEALLOCATE(ZCST)
DEALLOCATE(ZRHODREF)
DEALLOCATE(ZZT)
DEALLOCATE(ZPRES)
diff --git a/src/MNH/lima_collisional_ice_breakup.f90 b/src/MNH/lima_collisional_ice_breakup.f90
index c5afbb5914fe20f4a7c18761b3fa0e1c6318391a..3c22bf960b56fca62f3387524493a3a62438cdf8 100644
--- a/src/MNH/lima_collisional_ice_breakup.f90
+++ b/src/MNH/lima_collisional_ice_breakup.f90
@@ -10,7 +10,7 @@
INTERFACE
SUBROUTINE LIMA_COLLISIONAL_ICE_BREAKUP (LDCOMPUTE, &
PRHODREF, &
- PRIT, PRST, PRGT, PCIT, &
+ PRIT, PRST, PRGT, PCIT, PCST, PCGT, &
PLBDS, PLBDG, &
P_RI_CIBU, P_CI_CIBU )
!
@@ -22,6 +22,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRIT
REAL, DIMENSION(:), INTENT(IN) :: PRST
REAL, DIMENSION(:), INTENT(IN) :: PRGT
REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
+REAL, DIMENSION(:), INTENT(IN) :: PCGT
REAL, DIMENSION(:), INTENT(IN) :: PLBDS
REAL, DIMENSION(:), INTENT(IN) :: PLBDG
!
@@ -35,7 +37,7 @@ END MODULE MODI_LIMA_COLLISIONAL_ICE_BREAKUP
! #######################################################################
SUBROUTINE LIMA_COLLISIONAL_ICE_BREAKUP (LDCOMPUTE, &
PRHODREF, &
- PRIT, PRST, PRGT, PCIT, &
+ PRIT, PRST, PRGT, PCIT, PCST, PCGT, &
PLBDS, PLBDG, &
P_RI_CIBU, P_CI_CIBU )
! #######################################################################
@@ -83,6 +85,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRIT
REAL, DIMENSION(:), INTENT(IN) :: PRST
REAL, DIMENSION(:), INTENT(IN) :: PRGT
REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
+REAL, DIMENSION(:), INTENT(IN) :: PCGT
REAL, DIMENSION(:), INTENT(IN) :: PLBDS
REAL, DIMENSION(:), INTENT(IN) :: PLBDG
!
@@ -102,7 +106,7 @@ INTEGER, PARAMETER :: I_SEED_PARAM = 26032012
INTEGER, DIMENSION(:), ALLOCATABLE :: I_SEED
INTEGER :: NI_SEED
!
-REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_S, ZVEC1_S1, ZVEC1_S2, & ! Work vectors
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_S, ZVEC1_SW, ZVEC1_S1, ZVEC1_S2, & ! Work vectors
ZVEC1_S3, ZVEC1_S4, &
ZVEC1_S11, ZVEC1_S12, & ! for snow
ZVEC1_S21, ZVEC1_S22, &
@@ -174,6 +178,7 @@ IF (ICIBU > 0) THEN
! 1.3.1.0 allocations
!
ALLOCATE(ZVEC1_S(ICIBU))
+ ALLOCATE(ZVEC1_SW(ICIBU))
ALLOCATE(ZVEC1_S1(ICIBU))
ALLOCATE(ZVEC1_S2(ICIBU))
ALLOCATE(ZVEC1_S3(ICIBU))
@@ -195,6 +200,7 @@ IF (ICIBU > 0) THEN
! 1.3.1.1 select the PLBDS
!
ZVEC1_S(:) = PACK( PLBDS(:),MASK=GCIBU(:) )
+ ZVEC1_SW(:)= ( XFVELOS**XALPHAS + ZVEC1_S(:)**XALPHAS ) ** (1./XALPHAS) ! modified equivalent lambda
!
!
! 1.3.1.2 find the next lower indice for the PLBDS in the
@@ -233,29 +239,53 @@ IF (ICIBU > 0) THEN
!
!
! 1.3.1.5 perform the linear interpolation of the
-! normalized "XDS"-moment of the incomplete gamma function
+! normalized "XBS"-moment of the incomplete gamma function
!
! For lower boundary (0.2 mm)
- ZVEC1_S21(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
- - XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+ ZVEC1_S31(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
!
! For upper boundary (1 mm)
- ZVEC1_S22(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
- - XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+ ZVEC1_S32(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
!
! From 0.2 mm to 1 mm we need
- ZVEC1_S2(1:ICIBU) = XMOMGS_CIBU_1 * (ZVEC1_S22(1:ICIBU) - ZVEC1_S21(1:ICIBU))
+ ZVEC1_S3(1:ICIBU) = XMOMGS_CIBU_2 * (ZVEC1_S32(1:ICIBU) - ZVEC1_S31(1:ICIBU))
+!
+!
+! 1.3.1.2 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 1 (0.2 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S1(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP1_S ) )
+ IVEC2_S1(1:ICIBU) = INT( ZVEC2_S1(1:ICIBU) )
+ ZVEC2_S1(1:ICIBU) = ZVEC2_S1(1:ICIBU) - FLOAT( IVEC2_S1(1:ICIBU) )
+!
+!
+! 1.3.1.3 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 2 (1 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S2(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP2_S ) )
+ IVEC2_S2(1:ICIBU) = INT( ZVEC2_S2(1:ICIBU) )
+ ZVEC2_S2(1:ICIBU) = ZVEC2_S2(1:ICIBU) - FLOAT( IVEC2_S2(1:ICIBU) )
+!
+!
+! 1.3.1.5 perform the linear interpolation of the
+! normalized "XDS"-moment of the incomplete gamma function
!
! For lower boundary (0.2 mm)
- ZVEC1_S31(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
- - XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+ ZVEC1_S21(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
!
! For upper boundary (1 mm)
- ZVEC1_S32(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
- - XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+ ZVEC1_S22(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
!
! From 0.2 mm to 1 mm we need
- ZVEC1_S3(1:ICIBU) = XMOMGS_CIBU_2 * (ZVEC1_S32(1:ICIBU) - ZVEC1_S31(1:ICIBU))
+ ZVEC1_S2(1:ICIBU) = XMOMGS_CIBU_1 * (ZVEC1_S22(1:ICIBU) - ZVEC1_S21(1:ICIBU))
!
!
! 1.3.1.6 perform the linear interpolation of the
@@ -331,11 +361,11 @@ IF (ICIBU > 0) THEN
! 1.3.3 To compute final "CIBU" contributions
!
ZFRAG_CIBU(:) = UNPACK ( VECTOR=ZFRAGMENTS(:),MASK=GCIBU,FIELD=0.0 )
- ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PRST(:) / (PRHODREF(:)**XCEXVT)) * &
+ ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PCST(:) * PCGT(:) / (PRHODREF(:)**XCEXVT)) * &
(XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_1(:) * &
- PLBDS(:)**(XBS) * PLBDG(:)**(XCXG-(XDG+2.0)) &
+ PLBDG(:)**(-(XDG+2.0)) &
- XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_2(:) * &
- PLBDS(:)**(-XDS+XBS) * PLBDG(:)**(XCXG-2.0) * &
+ PLBDS(:)**(-XDS) * PLBDG(:)**(-2.0) * &
(1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS-XDS/XALPHAS) )
P_CI_CIBU(:) = MAX(ZNI_CIBU(:),0.)
@@ -343,11 +373,11 @@ IF (ICIBU > 0) THEN
DEALLOCATE(ZFRAGMENTS)
!
! Max value of rs removed by CIBU
- ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PRST(:) / (PRHODREF(:)**XCEXVT)) * &
+ ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PCST(:) * PCGT(:) / (PRHODREF(:)**XCEXVT)) * &
(XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_3(:) * &
- PLBDG(:)**(XCXG-(XDG+2.0)) &
+ PLBDS(:)**(-XBS) * PLBDG(:)**(-(XDG+2.0)) &
- XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_4(:) * &
- PLBDS(:)**(-XDS) * PLBDG(:)**(XCXG-2.0) * &
+ PLBDS(:)**(-XBS-XDS) * PLBDG(:)**(-2.0) * &
(1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS-(XBS+XDS)/XALPHAS) )
!
! The value of rs removed by CIBU is determined by the mean mass of pristine ice
@@ -360,6 +390,7 @@ IF (ICIBU > 0) THEN
P_RI_CIBU(:) = MAX(ZRI_CIBU(:), 0.)
!
DEALLOCATE(ZVEC1_S)
+ DEALLOCATE(ZVEC1_SW)
DEALLOCATE(ZVEC1_S1)
DEALLOCATE(ZVEC1_S2)
DEALLOCATE(ZVEC1_S3)
diff --git a/src/MNH/lima_compute_cloud_fractions.f90 b/src/MNH/lima_compute_cloud_fractions.f90
index ce1cedeeef9b7b72c85bd9b4828619ca1fc6a8aa..bc861da682fa9484669c5ed33d05d189230c20be 100644
--- a/src/MNH/lima_compute_cloud_fractions.f90
+++ b/src/MNH/lima_compute_cloud_fractions.f90
@@ -11,7 +11,9 @@ MODULE MODI_LIMA_COMPUTE_CLOUD_FRACTIONS
PCCT, PRCT, &
PCRT, PRRT, &
PCIT, PRIT, &
- PRST, PRGT, PRHT, &
+ PCST, PRST, &
+ PCGT, PRGT, &
+ PCHT, PRHT, &
PCLDFR, PICEFR, PPRCFR )
INTEGER, INTENT(IN) :: KIB !
INTEGER, INTENT(IN) :: KIE !
@@ -30,8 +32,13 @@ MODULE MODI_LIMA_COMPUTE_CLOUD_FRACTIONS
REAL, DIMENSION(:,:,:),INTENT(IN) :: PCIT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRIT !
!
+ REAL, DIMENSION(:,:,:),INTENT(IN) :: PCST !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRST !
+ !
+ REAL, DIMENSION(:,:,:),INTENT(IN) :: PCGT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRGT !
+ !
+ REAL, DIMENSION(:,:,:),INTENT(IN) :: PCHT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRHT !
!
REAL, DIMENSION(:,:,:),INTENT(INOUT) :: PCLDFR !
@@ -48,7 +55,9 @@ SUBROUTINE LIMA_COMPUTE_CLOUD_FRACTIONS (KIB, KIE, KJB, KJE, KKB, KKE, KKL, &
PCCT, PRCT, &
PCRT, PRRT, &
PCIT, PRIT, &
- PRST, PRGT, PRHT, &
+ PCST, PRST, &
+ PCGT, PRGT, &
+ PCHT, PRHT, &
PCLDFR, PICEFR, PPRCFR )
!################################################################
!
@@ -70,7 +79,8 @@ SUBROUTINE LIMA_COMPUTE_CLOUD_FRACTIONS (KIB, KIE, KJB, KJE, KKB, KKE, KKL, &
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XCTMIN, XRTMIN
+USE MODD_PARAM_LIMA, ONLY : XCTMIN, XRTMIN, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
!
IMPLICIT NONE
!
@@ -93,8 +103,13 @@ REAL, DIMENSION(:,:,:),INTENT(IN) :: PRRT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PCIT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRIT !
!
+REAL, DIMENSION(:,:,:),INTENT(IN) :: PCST !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRST !
+!
+REAL, DIMENSION(:,:,:),INTENT(IN) :: PCGT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRGT !
+!
+REAL, DIMENSION(:,:,:),INTENT(IN) :: PCHT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRHT !
!
REAL, DIMENSION(:,:,:),INTENT(INOUT) :: PCLDFR !
@@ -111,11 +126,11 @@ INTEGER :: JI, JJ, JK
! ---------------
!
! Liquid cloud fraction is kept from input data, except where PCLDFR=0 and rc>0
-WHERE(PCLDFR(:,:,:)<1.E-10 .AND. PRCT(:,:,:)>XRTMIN(2) .AND. PCCT(:,:,:)>XCTMIN(2)) PCLDFR(:,:,:)=1.
+WHERE(PCLDFR(:,:,:)<1.E-10 .AND. PRCT(:,:,:)>XRTMIN(2) .AND. (NMOM_C.EQ.1 .OR. PCCT(:,:,:)>XCTMIN(2))) PCLDFR(:,:,:)=1.
!
! Ice cloud fraction is currently 0 or 1
PICEFR(:,:,:)=0.
-WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(4)) PICEFR(:,:,:)=1.
+WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. (NMOM_I.EQ.1 .OR. PCIT(:,:,:)>XCTMIN(4))) PICEFR(:,:,:)=1.
!
! Precipitation fraction
!!$PPRCFR(:,:,:) = MAX(PCLDFR(:,:,:),PICEFR(:,:,:))
@@ -163,10 +178,10 @@ WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(
!!$ PRHT(:,:,:).GT.XRTMIN(7) ) PPRCFR(:,:,:) = 1.
!!$
PPRCFR(:,:,:) = 0.
-WHERE ( (PRRT(:,:,:).GT.0. .AND. PCRT(:,:,:).GT.0.) .OR. &
- PRST(:,:,:).GT.0. .OR. &
- PRGT(:,:,:).GT.0. .OR. &
- PRHT(:,:,:).GT.0. ) PPRCFR(:,:,:) = 1.
+WHERE ( (PRRT(:,:,:).GT.0. .AND. (NMOM_R.EQ.1 .OR. PCRT(:,:,:).GT.0.) ) .OR. &
+ (PRST(:,:,:).GT.0. .AND. (NMOM_S.EQ.1 .OR. PCST(:,:,:).GT.0.) ) .OR. &
+ (PRGT(:,:,:).GT.0. .AND. (NMOM_G.EQ.1 .OR. PCGT(:,:,:).GT.0.) ) .OR. &
+ (PRHT(:,:,:).GT.0. .AND. (NMOM_H.EQ.1 .OR. PCHT(:,:,:).GT.0.) ) ) PPRCFR(:,:,:) = 1.
!
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/lima_conversion_melting_snow.f90 b/src/MNH/lima_conversion_melting_snow.f90
index d1aa60aa4bce5b2f8b976da30a763c994472b5f6..454df3eba33b2ef1b975c33c3de003a0c6ac9c64 100644
--- a/src/MNH/lima_conversion_melting_snow.f90
+++ b/src/MNH/lima_conversion_melting_snow.f90
@@ -10,8 +10,8 @@
INTERFACE
SUBROUTINE LIMA_CONVERSION_MELTING_SNOW (LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
- PRVT, PRST, PLBDS, &
- P_RS_CMEL )
+ PRVT, PRST, PCST, PLBDS, &
+ P_RS_CMEL, P_CS_CMEL )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
@@ -23,10 +23,12 @@ REAL, DIMENSION(:), INTENT(IN) :: PDV !
REAL, DIMENSION(:), INTENT(IN) :: PCJ !
!
REAL, DIMENSION(:), INTENT(IN) :: PRVT !
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
!
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_CMEL
!
END SUBROUTINE LIMA_CONVERSION_MELTING_SNOW
END INTERFACE
@@ -35,8 +37,8 @@ END MODULE MODI_LIMA_CONVERSION_MELTING_SNOW
! ##############################################################################
SUBROUTINE LIMA_CONVERSION_MELTING_SNOW (LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
- PRVT, PRST, PLBDS, &
- P_RS_CMEL )
+ PRVT, PRST, PCST, PLBDS, &
+ P_RS_CMEL, P_CS_CMEL )
! ##############################################################################
!
!! PURPOSE
@@ -80,10 +82,12 @@ REAL, DIMENSION(:), INTENT(IN) :: PDV !
REAL, DIMENSION(:), INTENT(IN) :: PCJ !
!
REAL, DIMENSION(:), INTENT(IN) :: PRVT !
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
!
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_CMEL
!
!* 0.2 Declarations of local variables :
!
@@ -97,6 +101,7 @@ REAL, DIMENSION(SIZE(PRST)) :: ZW ! work arrays
!
!
P_RS_CMEL(:)=0.
+P_CS_CMEL(:)=0.
!
ZW(:) = 0.0
WHERE( (PRST(:)>XRTMIN(5)) .AND. (PT(:)>XTT) .AND. LDCOMPUTE(:) )
@@ -107,13 +112,14 @@ WHERE( (PRST(:)>XRTMIN(5)) .AND. (PT(:)>XTT) .AND. LDCOMPUTE(:) )
!
! compute RSMLT
!
- ZW(:) = XFSCVMG*MAX( 0.0,( -ZW(:) * PRST(:) * &
+ ZW(:) = XFSCVMG*MAX( 0.0,( -ZW(:) * PCST(:) * &
( X0DEPS*PLBDS(:)**XEX0DEPS + &
- X1DEPS*PCJ(:)*PLBDS(:)**(XEX1DEPS+XBS)* &
+ X1DEPS*PCJ(:)*PLBDS(:)**XEX1DEPS * &
(1+0.5*(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS)) ))
! On ne tient pas compte de la collection de pluie et gouttelettes par la neige si T>0 !!!!
! Note that no heat is exchanged because the graupeln produced are still icy!!!
P_RS_CMEL(:) = - ZW(:)
+ P_CS_CMEL(:) = - ZW(:) * PCST(:) / PRST(:)
!
END WHERE
!
diff --git a/src/MNH/lima_droplets_accretion.f90 b/src/MNH/lima_droplets_accretion.f90
index d97d99d3ed0e10522453e5d3043f15d819a102f8..c7a4232fdaf6fc57a7051f15d3c2c6e58afea091 100644
--- a/src/MNH/lima_droplets_accretion.f90
+++ b/src/MNH/lima_droplets_accretion.f90
@@ -64,11 +64,12 @@ END MODULE MODI_LIMA_DROPLETS_ACCRETION
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO, NMOM_C, NMOM_R, XCEXVT
USE MODD_PARAM_LIMA_WARM, ONLY : XLAUTR, XAUTO1, XLAUTR_THRESHOLD, &
XACCR4, XACCR5, XACCR3, XACCR2, XACCR1, &
XACCR_CLARGE1, XACCR_CLARGE2, XACCR_RLARGE1, XACCR_RLARGE2, &
- XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2
+ XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2, &
+ XFCACCR, XEXCACCR
!
IMPLICIT NONE
!
@@ -128,6 +129,14 @@ IF ( LKHKO ) THEN
!
END WHERE
!
+ELSE IF (NMOM_C.EQ.1 .AND. NMOM_R.EQ.1) THEN
+ GACCR(:) = PRRT(:)>XRTMIN(3) .AND. &
+ PRCT(:)>XRTMIN(2)
+ WHERE ( GACCR(:) )
+ P_RC_ACCR(:) = - XFCACCR * PRCT(:) &
+ * PLBDR(:)**XEXCACCR &
+ * PRHODREF(:)**(-XCEXVT)
+ END WHERE
ELSE
!
WHERE( PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. PRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:) )
diff --git a/src/MNH/lima_droplets_autoconversion.f90 b/src/MNH/lima_droplets_autoconversion.f90
index 27090666289087303630e97d95b1c7836fd33d07..3fa32e7a65c04cff7af42821ceaa37fcbf7b374e 100644
--- a/src/MNH/lima_droplets_autoconversion.f90
+++ b/src/MNH/lima_droplets_autoconversion.f90
@@ -59,7 +59,7 @@ END MODULE MODI_LIMA_DROPLETS_AUTOCONVERSION
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO, LKESSLERAC, NMOM_C
USE MODD_PARAM_LIMA_WARM, ONLY : XLAUTR, XAUTO1, XLAUTR_THRESHOLD, &
XITAUTR, XAUTO2, XITAUTR_THRESHOLD, &
XACCR4, XACCR5, XACCR3, XACCR1, XAC, XR0
@@ -96,7 +96,9 @@ ZW3(:) = 0.0
ZW2(:) = 0.0
ZW1(:) = 0.0
!
-IF (LKHKO) THEN
+IF (NMOM_C.EQ.1 .AND. LKESSLERAC) THEN
+ P_RC_AUTO(:) = - 1.E-3 * MAX ( PRCT(:) - 0.5E-3 / PRHODREF(:), 0. )
+ELSE IF (LKHKO) THEN
!
! 1. Autoconversion of cloud droplets (Berry-Reinhardt parameterization)
! ----------------------------------------------------------------------
diff --git a/src/MNH/lima_droplets_hom_freezing.f90 b/src/MNH/lima_droplets_hom_freezing.f90
index db27f466e707a422bea4756219d2ff30f024d8e8..58e12b5f14f1739266ea459c622a3b40a75b81a9 100644
--- a/src/MNH/lima_droplets_hom_freezing.f90
+++ b/src/MNH/lima_droplets_hom_freezing.f90
@@ -10,8 +10,7 @@ INTERFACE
SUBROUTINE LIMA_DROPLETS_HOM_FREEZING (PTSTEP, LDCOMPUTE, &
PT, PLVFACT, PLSFACT, &
PRCT, PCCT, PLBDC, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- PA_TH, PA_RC, PA_CC, PA_RI, PA_CI )
+ P_TH_HONC, P_RC_HONC, P_CC_HONC )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -28,12 +27,6 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_HONC
!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
-!
END SUBROUTINE LIMA_DROPLETS_HOM_FREEZING
END INTERFACE
END MODULE MODI_LIMA_DROPLETS_HOM_FREEZING
@@ -42,8 +35,7 @@ END MODULE MODI_LIMA_DROPLETS_HOM_FREEZING
SUBROUTINE LIMA_DROPLETS_HOM_FREEZING (PTSTEP, LDCOMPUTE, &
PT, PLVFACT, PLSFACT, &
PRCT, PCCT, PLBDC, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- PA_TH, PA_RC, PA_CC, PA_RI, PA_CI )
+ P_TH_HONC, P_RC_HONC, P_CC_HONC )
! ##########################################################################
!
!! PURPOSE
@@ -91,12 +83,6 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_HONC
!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
-!
!* 0.2 Declarations of local variables :
!
REAL, DIMENSION(SIZE(PT)) :: ZZW, ZZX, ZZY, ZTCELSIUS
@@ -130,13 +116,7 @@ WHERE ( (PT(:)<XTT-35.0) .AND. (PCCT(:)>XCTMIN(2)) .AND. (PRCT(:)>XRTMIN(2)) )
!
P_RC_HONC(:) = - ZZY(:)/PTSTEP
P_CC_HONC(:) = - ZZW(:)/PTSTEP
- P_TH_HONC(:) = P_RC_HONC(:) * (PLSFACT(:)-PLVFACT(:))
-!
- PA_TH(:) = PA_TH(:) + P_TH_HONC(:)
- PA_RC(:) = PA_RC(:) + P_RC_HONC(:)
- PA_CC(:) = PA_CC(:) + P_CC_HONC(:)
- PA_RI(:) = PA_RI(:) - P_RC_HONC(:)
- PA_CI(:) = PA_CI(:) - P_CC_HONC(:)
+! P_TH_HONC(:) = P_RC_HONC(:) * (PLSFACT(:)-PLVFACT(:))
!
END WHERE
!
diff --git a/src/MNH/lima_droplets_riming_snow.f90 b/src/MNH/lima_droplets_riming_snow.f90
index d5d32ad8f7a5cb3b01f7a46d415a5fcc91f6f9e4..b9d76536589f3b8752802dc34b3efcc8eb41433e 100644
--- a/src/MNH/lima_droplets_riming_snow.f90
+++ b/src/MNH/lima_droplets_riming_snow.f90
@@ -8,11 +8,11 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRCT, PCCT, PRST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS )
+ SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRCT, PCCT, PRST, PCST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -20,9 +20,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water mr at t
REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -32,6 +33,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_TH_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_RIM
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_RIM
!
REAL, DIMENSION(:), INTENT(OUT) :: P_RI_HMS
@@ -43,11 +45,11 @@ END INTERFACE
END MODULE MODI_LIMA_DROPLETS_RIMING_SNOW
!
! #########################################################################################
- SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRCT, PCCT, PRST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS )
+ SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRCT, PCCT, PRST, PCST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS )
! #########################################################################################
!
!! PURPOSE
@@ -90,9 +92,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRCT !
-REAL, DIMENSION(:), INTENT(IN) :: PCCT !
-REAL, DIMENSION(:), INTENT(IN) :: PRST !
+REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -101,6 +104,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
REAL, DIMENSION(:), INTENT(OUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_RIM
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_RIM
!
REAL, DIMENSION(:), INTENT(OUT) :: P_TH_RIM
@@ -112,8 +116,8 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RS_HMS
!
REAL, DIMENSION(SIZE(PRCT)) :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5
!
-INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
-REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2 ! Work vectors
+INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
+REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2,ZVEC1W ! Work vectors
INTEGER :: JI
!
!-------------------------------------------------------------------------------
@@ -128,37 +132,36 @@ DO JI = 1, SIZE(PRCT)
IF ( PRCT(JI)>XRTMIN(2) .AND. PRST(JI)>XRTMIN(5) .AND. PT(JI)<XTT .AND. LDCOMPUTE(JI) ) THEN
!
ZVEC1(JI) = PLBDS(JI)
+ ZVEC1W(JI)= ( XFVELOS**XALPHAS + PLBDS(JI)**XALPHAS ) ** (1./XALPHAS) ! modified equivalent lambda
!
-! 1. find the next lower indice for the ZLBDAS in the geometrical
-! set of Lbda_s used to tabulate some moments of the incomplete
-! gamma function
+! 2. perform the linear interpolation of the normalized
+! "2+XDS"-moment of the incomplete gamma function using the modified equivalent lambda
!
ZVEC2(JI) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
- XRIMINTP1 * LOG( ZVEC1(JI) ) + XRIMINTP2 ) )
+ XRIMINTP1 * LOG( ZVEC1W(JI) ) + XRIMINTP2 ) )
IVEC2(JI) = INT( ZVEC2(JI) )
ZVEC2(JI) = ZVEC2(JI) - REAL( IVEC2(JI) )
!
-! 2. perform the linear interpolation of the normalized
-! "2+XDS"-moment of the incomplete gamma function
-!
- ZVEC1(JI) = XGAMINC_RIM1( IVEC2(JI)+1 )* ZVEC2(JI) &
+ ZZW1(JI) = XGAMINC_RIM1( IVEC2(JI)+1 )* ZVEC2(JI) &
- XGAMINC_RIM1( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
- ZZW1(JI) = ZVEC1(JI)
!
! 3. perform the linear interpolation of the normalized
! "XBS"-moment of the incomplete gamma function
!
- ZVEC1(JI) = XGAMINC_RIM2( IVEC2(JI)+1 )* ZVEC2(JI) &
+ ZVEC2(JI) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ XRIMINTP1 * LOG( ZVEC1(JI) ) + XRIMINTP2 ) )
+ IVEC2(JI) = INT( ZVEC2(JI) )
+ ZVEC2(JI) = ZVEC2(JI) - REAL( IVEC2(JI) )
+!
+ ZZW2(JI) = XGAMINC_RIM2( IVEC2(JI)+1 )* ZVEC2(JI) &
- XGAMINC_RIM2( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
- ZZW2(JI) = ZVEC1(JI)
!
! 4. riming
!
! Cloud droplets collected
- P_RC_RIM(JI) = - XCRIMSS * PRCT(JI) * PRST(JI)*(1+(XFVELOS/PLBDS(JI))**XALPHAS)**(-XNUS+XEXCRIMSS/XALPHAS) &
- * PRHODREF(JI)**(-XCEXVT+1) &
- * (PLBDS(JI)) ** (XEXCRIMSS+XBS)
- P_CC_RIM(JI) = P_RC_RIM(JI) *(PCCT(JI)/PRCT(JI)) ! Lambda_c**3
+ P_RC_RIM(JI) = - XCRIMSS * PRCT(JI) * PCST(JI)*(1+(XFVELOS/PLBDS(JI))**XALPHAS)**(-XNUS+XEXCRIMSS/XALPHAS) &
+ * PRHODREF(JI)**(-XCEXVT+1) * PLBDS(JI)**XEXCRIMSS
+ P_CC_RIM(JI) = P_RC_RIM(JI) * PCCT(JI)/PRCT(JI) ! Lambda_c**3
!
! Cloud droplets collected on small aggregates add to snow
P_RS_RIM(JI) = - P_RC_RIM(JI) * ZZW1(JI)
@@ -168,28 +171,30 @@ DO JI = 1, SIZE(PRCT)
!
IF (LMURAKAMI) THEN
! Graupel formation based on Murakami
- ZVEC1(JI) = XGAMINC_RIM4( IVEC2(JI)+1 )* ZVEC2(JI) &
+ ZVEC1(JI) = XGAMINC_RIM4( IVEC2(JI)+1 )* ZVEC2(JI) &
- XGAMINC_RIM4( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
ZZW5(JI) = ZVEC1(JI)
- ZZW3(JI) = XSRIMCG *PRHODREF(JI)*PRST(JI)* PLBDS(JI)**(XEXSRIMCG+XBS) * (1.0 - ZZW2(JI))!/(PTSTEP*PRHODREF(JI))
- ZZW3(JI) = (P_RG_RIM(JI))*ZZW3(JI)/ &
+ ZZW3(JI) = XSRIMCG * PRHODREF(JI) * PCST(JI) * PLBDS(JI)**XEXSRIMCG * (1.0 - ZZW2(JI))!/(PTSTEP*PRHODREF(JI))
+ ZZW3(JI) = P_RG_RIM(JI)*ZZW3(JI)/ &
MAX(1.E-10, & !-20
- XSRIMCG3*XSRIMCG2*PRST(JI)*PRHODREF(JI)*PLBDS(JI)**(XEXSRIMCG2)*(1.-ZZW5(JI))- &
+ XSRIMCG3*XSRIMCG2*PCST(JI)*PRHODREF(JI)*PLBDS(JI)**(XEXSRIMCG2)*(1.-ZZW5(JI))- &
XSRIMCG3*ZZW3(JI))
ELSE
! Large aggregates collecting droplets add to graupel (instant process ???)
ZZW3(JI) = PRST(JI)*(1.0 - ZZW2(JI))/PTSTEP
END IF
P_RS_RIM(JI) = P_RS_RIM(JI) - ZZW3(JI)
+ P_CS_RIM(JI) = -ZZW3(JI) * PCST(JI)/PRST(JI)
P_RG_RIM(JI) = P_RG_RIM(JI) + ZZW3(JI)
!
P_TH_RIM(JI) = - P_RC_RIM(JI)*(PLSFACT(JI)-PLVFACT(JI))
ELSE
- P_TH_RIM(:) = 0.
- P_RC_RIM(:) = 0.
- P_CC_RIM(:) = 0.
- P_RS_RIM(:) = 0.
- P_RG_RIM(:) = 0.
+ P_TH_RIM(JI) = 0.
+ P_RC_RIM(JI) = 0.
+ P_CC_RIM(JI) = 0.
+ P_RS_RIM(JI) = 0.
+ P_CS_RIM(JI) = 0.
+ P_RG_RIM(JI) = 0.
END IF
!
!* Hallett-Mossop ice production (HMS)
@@ -203,7 +208,7 @@ DO JI = 1, SIZE(PRCT)
XHMLINTP1 * LOG( ZVEC1(JI) ) + XHMLINTP2 ) )
IVEC2(JI) = INT( ZVEC2(JI) )
ZVEC2(JI) = ZVEC2(JI) - REAL( IVEC2(JI) )
- ZVEC1(JI) = XGAMINC_HMC( IVEC2(JI)+1 )* ZVEC2(JI) &
+ ZVEC1(JI) = XGAMINC_HMC( IVEC2(JI)+1 )* ZVEC2(JI) &
- XGAMINC_HMC( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
ZZW4(JI) = ZVEC1(JI) ! Large droplets
!
@@ -214,14 +219,14 @@ DO JI = 1, SIZE(PRCT)
P_RI_HMS(JI) = P_CI_HMS(JI) * XMNU0 ! RCHMSI
P_RS_HMS(JI) = - P_RI_HMS(JI)
ELSE
- P_RI_HMS(:) = 0.
- P_CI_HMS(:) = 0.
- P_RS_HMS(:) = 0.
+ P_RI_HMS(JI) = 0.
+ P_CI_HMS(JI) = 0.
+ P_RS_HMS(JI) = 0.
END IF
ELSE
- P_RI_HMS(:) = 0.
- P_CI_HMS(:) = 0.
- P_RS_HMS(:) = 0.
+ P_RI_HMS(JI) = 0.
+ P_CI_HMS(JI) = 0.
+ P_RS_HMS(JI) = 0.
END IF
END DO
!
diff --git a/src/MNH/lima_graupel.f90 b/src/MNH/lima_graupel.f90
index 1883891a1a537d02e912df06c08e33cb07c15406..00ad1646afd9a083366e53b0bcab3406a243666e 100644
--- a/src/MNH/lima_graupel.f90
+++ b/src/MNH/lima_graupel.f90
@@ -11,17 +11,17 @@ INTERFACE
SUBROUTINE LIMA_GRAUPEL (PTSTEP, LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
- PCCT, PCRT, PCIT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, &
PLBDC, PLBDR, PLBDS, PLBDG, &
PLVFACT, PLSFACT, &
P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH )
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -43,6 +43,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRGT !
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
REAL, DIMENSION(:), INTENT(IN) :: PCRT !
REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
@@ -60,7 +62,9 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
@@ -71,6 +75,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
@@ -80,6 +85,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
@@ -89,8 +95,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
END SUBROUTINE LIMA_GRAUPEL
END INTERFACE
@@ -100,17 +109,17 @@ END MODULE MODI_LIMA_GRAUPEL
SUBROUTINE LIMA_GRAUPEL (PTSTEP, LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
- PCCT, PCRT, PCIT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, &
PLBDC, PLBDR, PLBDS, PLBDG, &
PLVFACT, PLSFACT, &
P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH )
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
! #################################################################################
!
!! PURPOSE
@@ -141,7 +150,9 @@ USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCEXVT, LHAIL
USE MODD_PARAM_LIMA_MIXED, ONLY : XCXG, XDG, X0DEPG, X1DEPG, NGAMINC, &
XFCDRYG, XFIDRYG, XCOLIG, XCOLSG, XCOLEXIG, XCOLEXSG, &
XFSDRYG, XLBSDRYG1, XLBSDRYG2, XLBSDRYG3, XKER_SDRYG, &
+ XFNSDRYG, XLBNSDRYG1, XLBNSDRYG2, XLBNSDRYG3, XKER_N_SDRYG, &
XFRDRYG, XLBRDRYG1, XLBRDRYG2, XLBRDRYG3, XKER_RDRYG, &
+ XFNRDRYG, XLBNRDRYG1, XLBNRDRYG2, XLBNRDRYG3, XKER_N_RDRYG, &
XHMTMIN, XHMTMAX, XHMLINTP1, XHMLINTP2, XHM_FACTG, XGAMINC_HMC, &
XEX0DEPG, XEX1DEPG, &
XDRYINTP1R, XDRYINTP1S, XDRYINTP1G, &
@@ -173,6 +184,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRGT !
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
REAL, DIMENSION(:), INTENT(IN) :: PCRT !
REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
@@ -190,7 +203,9 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
@@ -201,6 +216,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
@@ -210,6 +226,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
@@ -219,8 +236,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
!* 0.2 Declarations of local variables :
!
@@ -230,6 +250,7 @@ INTEGER :: JJ
!
REAL, DIMENSION(SIZE(PRCT)) :: Z1, Z2, Z3, Z4
REAL, DIMENSION(SIZE(PRCT)) :: ZZX, ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6, ZZW7
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW3N, ZZW4N, ZZW6N
REAL, DIMENSION(SIZE(PRCT)) :: ZRDRYG, ZRWETG
!
INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
@@ -240,6 +261,7 @@ INTEGER :: NHAIL
!-------------------------------------------------------------------------------
!
!
+P_TH_WETG(:) = 0.
P_RC_WETG(:) = 0.
P_CC_WETG(:) = 0.
P_RR_WETG(:) = 0.
@@ -247,9 +269,12 @@ P_CR_WETG(:) = 0.
P_RI_WETG(:) = 0.
P_CI_WETG(:) = 0.
P_RS_WETG(:) = 0.
+P_CS_WETG(:) = 0.
P_RG_WETG(:) = 0.
+P_CG_WETG(:) = 0.
P_RH_WETG(:) = 0.
!
+P_TH_DRYG(:) = 0.
P_RC_DRYG(:) = 0.
P_CC_DRYG(:) = 0.
P_RR_DRYG(:) = 0.
@@ -257,19 +282,24 @@ P_CR_DRYG(:) = 0.
P_RI_DRYG(:) = 0.
P_CI_DRYG(:) = 0.
P_RS_DRYG(:) = 0.
+P_CS_DRYG(:) = 0.
P_RG_DRYG(:) = 0.
!
P_RI_HMG(:) = 0.
P_CI_HMG(:) = 0.
P_RG_HMG(:) = 0.
!
+P_TH_GMLT(:) = 0.
P_RR_GMLT(:) = 0.
P_CR_GMLT(:) = 0.
+P_CG_GMLT(:) = 0.
!
ZZW1(:) = 0. ! RCDRYG
ZZW2(:) = 0. ! RIDRYG
ZZW3(:) = 0. ! RSDRYG
+ZZW3N(:) = 0.! NSDRYG
ZZW4(:) = 0. ! RRDRYG
+ZZW4N(:) = 0.! NRDRYG
ZZW5(:) = 0. ! RIWETG
ZZW6(:) = 0. ! RSWETG
ZZW7(:) = 0. !
@@ -285,15 +315,15 @@ ZRWETG(:) = 0.
! --------------------------------------------
!
WHERE( PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
- ZZW(:) = PLBDG(:)**(XCXG-XDG-2.0) * PRHODREF(:)**(-XCEXVT)
- ZZW1(:) = XFCDRYG * PRCT(:) * ZZW(:) ! RCDRYG - rc collected by graupel in dry mode
+ ZZW(:) = PCGT(:) * PLBDG(:)**(-XDG-2.0) * PRHODREF(:)**(1-XCEXVT)
+ ZZW1(:) = XFCDRYG * PRCT(:) * ZZW(:) ! RCDRYG - rc collected by graupel in dry mode
ZZW2(:) = XFIDRYG * EXP( XCOLEXIG*(PT(:)-XTT) ) * PRIT(:) * ZZW(:) ! RIDRYG - ri collected by graupel in dry mode
END WHERE
!
!* 1.b Collection of rs in the dry mode
! ------------------------------------
!
-GDRY(:) = (PRST(:)>XRTMIN(5)) .AND. (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:)
+GDRY(:) = PRST(:)>XRTMIN(5) .AND. PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:)
!
WHERE( GDRY )
!
@@ -330,19 +360,36 @@ WHERE( GDRY )
- Z4(:)*(ZVEC2(:) - 1.0) ) &
* (ZVEC1(:) - 1.0)
ZZW(:) = ZVEC3(:)
-!
ZZW3(:) = XFSDRYG * ZZW(:) * EXP( XCOLEXSG*(PT(:)-XTT) ) & ! RSDRYG - rs collected by graupel in dry mode
- *( PRST(:))*( PLBDG(:)**XCXG ) &
- *( PRHODREF(:)**(-XCEXVT) ) &
+ * PRST(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
*( XLBSDRYG1/( PLBDG(:)**2 ) + &
XLBSDRYG2/( PLBDG(:) * PLBDS(:) ) + &
XLBSDRYG3/( PLBDS(:)**2) )
+!
+ Z1(:) = GET_XKER_N_SDRYG(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_SDRYG(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_SDRYG(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_SDRYG(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW3N(:) = XFNSDRYG * ZZW(:) * EXP( XCOLEXSG*(PT(:)-XTT) ) & ! NSDRYG - Ns collected by graupel in dry mode
+ * PCST(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNSDRYG1/( PLBDG(:)**2 ) + &
+ XLBNSDRYG2/( PLBDG(:) * PLBDS(:) ) + &
+ XLBNSDRYG3/( PLBDS(:)**2) )
END WHERE
!
!* 1.c Collection of rr in the dry mode
! -------------------------------------
!
-GDRY(:) = (PRRT(:)>XRTMIN(3)) .AND. (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:)
+GDRY(:) = PRRT(:)>XRTMIN(3) .AND. PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:)
!
WHERE( GDRY )
!
@@ -379,14 +426,31 @@ WHERE( GDRY )
- Z4(:)*(ZVEC2(:) - 1.0) ) &
* (ZVEC1(:) - 1.0)
ZZW(:) = ZVEC3(:)
-!
-! BVIE manque PCRT ???????????????????????????????????
-! ZZW4(:) = XFRDRYG * ZZW(:) & ! RRDRYG
- ZZW4(:) = XFRDRYG * ZZW(:) * PCRT(:) & ! RRDRYG
- *( PLBDG(:)**XCXG ) * ( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRDRYG1/( PLBDG(:)**2 ) + &
- XLBRDRYG2/( PLBDG(:) * PLBDR(:) ) + &
- XLBRDRYG3/( PLBDR(:)**2) ) / PLBDR(:)**3
+ ZZW4(:) = XFRDRYG * ZZW(:) & ! RRDRYG
+ * PRRT(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBRDRYG1/( PLBDG(:)**2 ) + &
+ XLBRDRYG2/( PLBDG(:) * PLBDR(:) ) + &
+ XLBRDRYG3/( PLBDR(:)**2) )
+!
+ Z1(:) = GET_XKER_N_RDRYG(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_RDRYG(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_RDRYG(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_RDRYG(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW4N(:) = XFNRDRYG * ZZW(:) & ! NRDRYG
+ * PCRT(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNRDRYG1/( PLBDG(:)**2 ) + &
+ XLBNRDRYG2/( PLBDG(:) * PLBDR(:) ) + &
+ XLBNRDRYG3/( PLBDR(:)**2) )
+
END WHERE
!
! 1.d Total collection in the dry mode
@@ -401,6 +465,7 @@ ZZW(:) = 0.0
WHERE( PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
ZZW5(:) = ZZW2(:) / (XCOLIG*EXP(XCOLEXIG*(PT(:)-XTT)) ) ! RIWETG
ZZW6(:) = ZZW3(:) / (XCOLSG*EXP(XCOLEXSG*(PT(:)-XTT)) ) ! RSWETG
+ ZZW6N(:)= ZZW3N(:)/ (XCOLSG*EXP(XCOLEXSG*(PT(:)-XTT)) ) ! NSWETG
!
ZZW(:) = PRVT(:)*PPRES(:)/((XMV/XMD)+PRVT(:)) ! Vapor pressure
ZZW(:) = PKA(:)*(XTT-PT(:)) + &
@@ -408,12 +473,11 @@ WHERE( PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
*(XESTT-ZZW(:))/(XRV*PT(:)) )
!
! Total mass gained by graupel in wet mode
- ZRWETG(:) = MAX( 0.0, &
- ( ZZW(:) * ( X0DEPG* PLBDG(:)**XEX0DEPG + &
- X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG ) + &
- ( ZZW5(:)+ZZW6(:) ) * &
- ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PT(:))) ) ) / &
- ( PRHODREF(:)*(XLMTT-XCL*(XTT-PT(:))) ) )
+ ZRWETG(:) = MAX( 0.0, &
+ ( ZZW(:) * PCGT(:) * ( X0DEPG* PLBDG(:)**XEX0DEPG + &
+ X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG ) + &
+ ( ZZW5(:)+ZZW6(:) ) * ( XLMTT + (XCI-XCL)*(XTT-PT(:)) ) ) &
+ / (XLMTT-XCL*(XTT-PT(:))) )
!We must agregate, at least, the cold species
ZRWETG(:)=MAX(ZRWETG(:), ZZW5(:)+ZZW6(:))
END WHERE
@@ -425,7 +489,7 @@ ZZW(:) = 0.0
NHAIL = 0.
IF (LHAIL) NHAIL = 1.
WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT .AND. &
- (ZRDRYG(:)-ZZW2(:)-ZZW3(:))>=(ZRWETG(:)-ZZW5(:)-ZZW6(:)) .AND. ZRWETG(:)>0.0 )
+ (ZRDRYG(:)-ZZW2(:)-ZZW3(:))>=(ZRWETG(:)-ZZW5(:)-ZZW6(:)) .AND. ZRWETG(:)-ZZW5(:)-ZZW6(:)>0.0 )
!
! Mass of rain and cloud droplets frozen by graupel in wet mode : RCWETG + RRWETG = RWETG - RIWETG - RSWETG
ZZW7(:) = ZRWETG(:) - ZZW5(:) - ZZW6(:)
@@ -442,7 +506,9 @@ WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT .AND. &
P_RI_WETG(:) = - ZZW5(:)
P_CI_WETG(:) = P_RI_WETG(:) * PCIT(:)/MAX(PRIT(:),XRTMIN(4))
P_RS_WETG(:) = - ZZW6(:)
+ P_CS_WETG(:) = - ZZW6N(:)
P_RG_WETG(:) = - PRGT(:)/PTSTEP * ZZW(:) + ZRWETG(:) * (1.-ZZW(:))
+ P_CG_WETG(:) = - PCGT(:)/PTSTEP * ZZW(:)
P_RH_WETG(:) = PRGT(:)/PTSTEP * ZZW(:) + ZRWETG(:) * ZZW(:)
!
P_TH_WETG(:) = ZZW7(:) * (PLSFACT(:)-PLVFACT(:))
@@ -457,10 +523,11 @@ WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT .AND.
P_RC_DRYG(:) = - ZZW1(:)
P_CC_DRYG(:) = P_RC_DRYG(:) * PCCT(:)/MAX(PRCT(:),XRTMIN(2))
P_RR_DRYG(:) = - ZZW4(:)
- P_CR_DRYG(:) = P_RR_DRYG(:) * PCRT(:)/MAX(PRRT(:),XRTMIN(3))
+ P_CR_DRYG(:) = - ZZW4N(:)
P_RI_DRYG(:) = - ZZW2(:)
P_CI_DRYG(:) = P_RI_DRYG(:) * PCIT(:)/MAX(PRIT(:),XRTMIN(4))
P_RS_DRYG(:) = - ZZW3(:)
+ P_CS_DRYG(:) = - ZZW3N(:)
P_RG_DRYG(:) = ZRDRYG(:)
!
P_TH_DRYG(:) = (ZZW1(:) + ZZW4(:)) * (PLSFACT(:)-PLVFACT(:))
@@ -512,14 +579,14 @@ WHERE( (PRGT(:)>XRTMIN(6)) .AND. (PT(:)>XTT) .AND. LDCOMPUTE(:) )
!
! compute RGMLTR
!
- ZZX(:) = MAX( 0.0,( -ZZX(:) * &
- ( X0DEPG* PLBDG(:)**XEX0DEPG + &
+ ZZX(:) = MAX( 0.0,( -ZZX(:) * PCGT(:) * &
+ ( X0DEPG* PLBDG(:)**XEX0DEPG + &
X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG ) - &
- ( ZZW1(:)+ZZW4(:) ) * &
- ( PRHODREF(:)*XCL*(XTT-PT(:))) ) / &
- ( PRHODREF(:)*XLMTT ) )
+ ( ZZW1(:)+ZZW4(:) ) * ( XCL*(XTT-PT(:))) ) &
+ / XLMTT )
P_RR_GMLT(:) = ZZX(:)
P_CR_GMLT(:) = ZZX(:) * 5.0E6 ! obtained after averaging, Dshed=1mm and 500 microns
+ P_CG_GMLT(:) = - ZZX(:) * PCGT(:)/PRGT(:)
!
P_TH_GMLT(:) = - P_RR_GMLT(:) * (PLSFACT(:)-PLVFACT(:))
END WHERE
@@ -534,8 +601,11 @@ PA_CR(:) = PA_CR(:) + P_CR_WETG(:) + P_CR_DRYG(:) + P_CR_GMLT(:)
PA_RI(:) = PA_RI(:) + P_RI_WETG(:) + P_RI_DRYG(:) + P_RI_HMG(:)
PA_CI(:) = PA_CI(:) + P_CI_WETG(:) + P_CI_DRYG(:) + P_CI_HMG(:)
PA_RS(:) = PA_RS(:) + P_RS_WETG(:) + P_RS_DRYG(:)
+PA_CS(:) = PA_CS(:) + P_CS_WETG(:) + P_CS_DRYG(:)
PA_RG(:) = PA_RG(:) + P_RG_WETG(:) + P_RG_DRYG(:) + P_RG_HMG(:) - P_RR_GMLT(:)
+PA_CG(:) = PA_CG(:) + P_CG_WETG(:) + P_CG_GMLT(:)
PA_RH(:) = PA_RH(:) + P_RH_WETG(:)
+PA_CH(:) = PA_CH(:) - P_CG_WETG(:)
PA_TH(:) = PA_TH(:) + P_TH_WETG(:) + P_TH_DRYG(:) + P_TH_GMLT(:)
!
!-------------------------------------------------------------------------------
@@ -554,6 +624,20 @@ CONTAINS
END FUNCTION GET_XKER_SDRYG
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_SDRYG(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_SDRYG(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_SDRYG,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_N_SDRYG,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_SDRYG
+!
+!-------------------------------------------------------------------------------
!
FUNCTION GET_XKER_RDRYG(GRAUPEL,RAIN) RESULT(RET)
INTEGER, DIMENSION(:) :: GRAUPEL
@@ -568,5 +652,19 @@ CONTAINS
END FUNCTION GET_XKER_RDRYG
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_RDRYG(GRAUPEL,RAIN) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: RAIN
+ REAL, DIMENSION(SIZE(RAIN)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_RDRYG(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_RDRYG,1)),1),MAX(MIN(RAIN(I),SIZE(XKER_N_RDRYG,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_RDRYG
+!
+!-------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_GRAUPEL
diff --git a/src/MNH/lima_graupel_deposition.f90 b/src/MNH/lima_graupel_deposition.f90
index d283c9699bd1efbb3615b74716c3d50a6a29333f..83b28e3d202d33d6339b48fd0d81b7f5b79cdc5b 100644
--- a/src/MNH/lima_graupel_deposition.f90
+++ b/src/MNH/lima_graupel_deposition.f90
@@ -8,14 +8,15 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
- PRGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
- P_TH_DEPG, P_RG_DEPG )
+ SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRGT, PCGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
+ P_TH_DEPG, P_RG_DEPG )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRGT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT ! graupel mr
+REAL, DIMENSION(:), INTENT(IN) :: PCGT ! graupel conc
REAL, DIMENSION(:), INTENT(IN) :: PSSI !
REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
REAL, DIMENSION(:), INTENT(IN) :: PAI !
@@ -30,9 +31,9 @@ END INTERFACE
END MODULE MODI_LIMA_GRAUPEL_DEPOSITION
!
! ###########################################################################
- SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
- PRGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
- P_TH_DEPG, P_RG_DEPG )
+ SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRGT, PCGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
+ P_TH_DEPG, P_RG_DEPG )
! ###########################################################################
!
!! PURPOSE
@@ -51,12 +52,13 @@ END MODULE MODI_LIMA_GRAUPEL_DEPOSITION
!! -------------
!! Original 15/03/2018
!!
+! M. Taufour 07/2022 add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
USE MODD_PARAM_LIMA_MIXED, ONLY : X0DEPG, XEX0DEPG, X1DEPG, XEX1DEPG
!
IMPLICIT NONE
@@ -66,7 +68,8 @@ IMPLICIT NONE
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRGT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT ! graupel mr
+REAL, DIMENSION(:), INTENT(IN) :: PCGT ! graupel conc
REAL, DIMENSION(:), INTENT(IN) :: PSSI !
REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
REAL, DIMENSION(:), INTENT(IN) :: PAI !
@@ -85,9 +88,9 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RG_DEPG
!
P_TH_DEPG(:) = 0.0
P_RG_DEPG(:) = 0.0
-WHERE ( (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:) )
- P_RG_DEPG(:) = ( PSSI(:)/PAI(:)/PRHODREF(:) ) * &
- ( X0DEPG*PLBDG(:)**XEX0DEPG + X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG )
+WHERE ( PRGT(:)>XRTMIN(6) .AND. PCGT(:)>XCTMIN(6) .AND. LDCOMPUTE(:) )
+ P_RG_DEPG(:) = PSSI(:) / PAI(:) * PCGT(:) * &
+ ( X0DEPG*PLBDG(:)**XEX0DEPG + X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG )
P_TH_DEPG(:) = P_RG_DEPG(:)*PLSFACT(:)
END WHERE
!
diff --git a/src/MNH/lima_hail.f90 b/src/MNH/lima_hail.f90
new file mode 100644
index 0000000000000000000000000000000000000000..8392316ae4106fd1e9ed2cbb4f22d287b084818e
--- /dev/null
+++ b/src/MNH/lima_hail.f90
@@ -0,0 +1,576 @@
+!MNH_LIC Copyright 2018-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+! #################################
+ MODULE MODI_LIMA_HAIL
+! #################################
+!
+INTERFACE
+ SUBROUTINE LIMA_HAIL (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ PLBDC, PLBDR, PLBDS, PLBDG, PLBDH, &
+ PLVFACT, PLSFACT, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
+!
+REAL, INTENT(IN) :: PTSTEP
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+REAL, DIMENSION(:), INTENT(IN) :: PPRES !
+REAL, DIMENSION(:), INTENT(IN) :: PT !
+REAL, DIMENSION(:), INTENT(IN) :: PKA !
+REAL, DIMENSION(:), INTENT(IN) :: PDV !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRVT !
+REAL, DIMENSION(:), INTENT(IN) :: PRCT !
+REAL, DIMENSION(:), INTENT(IN) :: PRRT !
+REAL, DIMENSION(:), INTENT(IN) :: PRIT !
+REAL, DIMENSION(:), INTENT(IN) :: PRST !
+REAL, DIMENSION(:), INTENT(IN) :: PRGT !
+REAL, DIMENSION(:), INTENT(IN) :: PRHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PCCT !
+REAL, DIMENSION(:), INTENT(IN) :: PCRT !
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
+REAL, DIMENSION(:), INTENT(IN) :: PCHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
+!
+END SUBROUTINE LIMA_HAIL
+END INTERFACE
+END MODULE MODI_LIMA_HAIL
+!
+! #################################################################################
+ SUBROUTINE LIMA_HAIL (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ PLBDC, PLBDR, PLBDS, PLBDG, PLBDH, &
+ PLVFACT, PLSFACT, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
+! #################################################################################
+!
+!! PURPOSE
+!! -------
+!! Compute the wet/dry growth of graupel, associated Hallett-Mossop ice production,
+!! and graupel melting rates
+!!
+!! AUTHOR
+!! ------
+!! J.-M. Cohard * Laboratoire d'Aerologie*
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! S. Berthet * Laboratoire d'Aerologie*
+!! B. Vié * CNRM *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 15/03/2018
+! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
+! J. Wurtz 03/2022: new snow characteristics
+!
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_CST, ONLY : XTT, XMD, XMV, XRD, XRV, XLVTT, XLMTT, XESTT, XCL, XCI, XCPV
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT, LHAIL
+USE MODD_PARAM_LIMA_MIXED, ONLY : NWETLBDAG, XWETINTP1G, XWETINTP2G, &
+ NWETLBDAH, X0DEPH, X1DEPH, XDH, XEX0DEPH, XEX1DEPH, &
+ XFWETH, XWETINTP1H, XWETINTP2H, &
+ NWETLBDAS, XWETINTP1S, XWETINTP2S, &
+ XKER_N_GWETH, XKER_GWETH, XKER_N_SWETH, XKER_SWETH, &
+ XFSWETH, XLBSWETH1, XLBSWETH2, XLBSWETH3, &
+ XFNSWETH, XLBNSWETH1, XLBNSWETH2, XLBNSWETH3, &
+ XFGWETH, XLBGWETH1, XLBGWETH2, XLBGWETH3, &
+ XFNGWETH, XLBNGWETH1, XLBNGWETH2, XLBNGWETH3
+
+USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XCXS, XBS
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+REAL, INTENT(IN) :: PTSTEP
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+REAL, DIMENSION(:), INTENT(IN) :: PPRES !
+REAL, DIMENSION(:), INTENT(IN) :: PT !
+REAL, DIMENSION(:), INTENT(IN) :: PKA !
+REAL, DIMENSION(:), INTENT(IN) :: PDV !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRVT !
+REAL, DIMENSION(:), INTENT(IN) :: PRCT !
+REAL, DIMENSION(:), INTENT(IN) :: PRRT !
+REAL, DIMENSION(:), INTENT(IN) :: PRIT !
+REAL, DIMENSION(:), INTENT(IN) :: PRST !
+REAL, DIMENSION(:), INTENT(IN) :: PRGT !
+REAL, DIMENSION(:), INTENT(IN) :: PRHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PCCT !
+REAL, DIMENSION(:), INTENT(IN) :: PCRT !
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
+REAL, DIMENSION(:), INTENT(IN) :: PCHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
+!
+!* 0.2 Declarations of local variables :
+!
+LOGICAL, DIMENSION(SIZE(PRCT)) :: GWET
+INTEGER :: JJ
+!
+REAL, DIMENSION(SIZE(PRCT)) :: Z1, Z2, Z3, Z4
+REAL, DIMENSION(SIZE(PRCT)) :: ZZX, ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW3N, ZZW4N, ZZW6N
+REAL, DIMENSION(SIZE(PRCT)) :: ZRWETH
+!
+INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
+REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
+!
+INTEGER :: NHAIL
+REAL :: ZTHRH, ZTHRC
+!
+!-------------------------------------------------------------------------------
+!
+!
+P_TH_WETH(:) = 0.
+P_RC_WETH(:) = 0.
+P_CC_WETH(:) = 0.
+P_RR_WETH(:) = 0.
+P_CR_WETH(:) = 0.
+P_RI_WETH(:) = 0.
+P_CI_WETH(:) = 0.
+P_RS_WETH(:) = 0.
+P_CS_WETH(:) = 0.
+P_RG_WETH(:) = 0.
+P_CG_WETH(:) = 0.
+P_RH_WETH(:) = 0.
+!
+P_RG_COHG(:) = 0.
+P_CG_COHG(:) = 0.
+!
+P_TH_HMLT(:) = 0.
+P_RR_HMLT(:) = 0.
+P_CR_HMLT(:) = 0.
+P_CH_HMLT(:) = 0.
+!
+ZZW1(:) = 0. ! RCWETH
+ZZW2(:) = 0. ! RIWETH
+ZZW3(:) = 0. ! RSWETH
+ZZW3N(:) = 0.! NSWETH
+ZZW4(:) = 0. ! RGWETH
+ZZW4N(:) = 0.! NGWETH
+ZZW5(:) = 0. ! RCWETH+RRWETH
+ZZW6(:) = 0. ! RSWETH
+!
+ZRWETH(:) = 0.
+!
+!
+!* 1. Hail growth by collection (wet case only ?)
+! -----------------------------------------------
+!
+! 1.a Collection of rc and ri
+! ---------------------------
+!
+WHERE( PRHT(:)>XRTMIN(7) .AND. PCHT(:)>XCTMIN(7) .AND. LDCOMPUTE(:) )
+ ZZW(:) = PCHT(:) * PLBDH(:)**(-XDH-2.0) * PRHODREF(:)**(1-XCEXVT)
+ ZZW1(:) = XFWETH * PRCT(:) * ZZW(:) ! RCWETH
+ ZZW2(:) = XFWETH * PRIT(:) * ZZW(:) ! RIWETH
+END WHERE
+!
+!* 1.b Collection of rs
+! --------------------
+!
+GWET(:) = PRST(:)>XRTMIN(5) .AND. PRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) .AND. &
+ PCST(:)>XCTMIN(5) .AND. PCHT(:)>XCTMIN(7)
+!
+WHERE( GWET )
+!
+!* Select the (ZLBDAG,ZLBDAS) couplet
+!
+ ZVEC1(:) = PLBDH(:)
+ ZVEC2(:) = PLBDS(:)
+!
+!* find the next lower indice for the ZLBDAG and for the ZLBDAS
+! in the geometrical set of (Lbda_g,Lbda_s) couplet use to
+! tabulate the SDRYG-kernel
+!
+ ZVEC1(:) = MAX( 1.0001, MIN( REAL(NWETLBDAH)-0.0001, &
+ XWETINTP1H * LOG( ZVEC1(:) ) + XWETINTP2H ) )
+ IVEC1(:) = INT( ZVEC1(:) )
+ ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
+!
+ ZVEC2(:) = MAX( 1.0001, MIN( REAL(NWETLBDAS)-0.0001, &
+ XWETINTP1S * LOG( ZVEC2(:) ) + XWETINTP2S ) )
+ IVEC2(:) = INT( ZVEC2(:) )
+ ZVEC2(:) = ZVEC2(:) - REAL( IVEC2(:) )
+!
+!* perform the bilinear interpolation of the normalized
+! SDRYG-kernel
+ !
+ Z1(:) = GET_XKER_SWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_SWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_SWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_SWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW3(:) = XFSWETH * ZZW(:) & ! RSWETH
+ * PRST(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBSWETH1/( PLBDH(:)**2 ) + &
+ XLBSWETH2/( PLBDH(:) * PLBDS(:) ) + &
+ XLBSWETH3/( PLBDS(:)**2) )
+!
+ Z1(:) = GET_XKER_N_SWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_SWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_SWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_SWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW3N(:) = XFNSWETH * ZZW(:) & ! NSWETH
+ * PCST(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNSWETH1/( PLBDH(:)**2 ) + &
+ XLBNSWETH2/( PLBDH(:) * PLBDS(:) ) + &
+ XLBNSWETH3/( PLBDS(:)**2) )
+END WHERE
+!
+!* 1.c Collection of rg
+! ---------------------
+!
+GWET(:) = PRGT(:)>XRTMIN(6) .AND. PRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) .AND. &
+ PCGT(:)>XCTMIN(6) .AND. PCHT(:)>XCTMIN(7)
+!
+WHERE( GWET )
+!
+!* Select the (ZLBDAG,ZLBDAR) couplet
+!
+ ZVEC1(:) = PLBDH(:)
+ ZVEC2(:) = PLBDG(:)
+!
+!* Find the next lower indice for the ZLBDAG and for the ZLBDAR
+! in the geometrical set of (Lbda_g,Lbda_r) couplet use to
+! tabulate the RDRYG-kernel
+!
+ ZVEC1(:) = MAX( 1.0001, MIN( REAL(NWETLBDAH)-0.0001, &
+ XWETINTP1H * LOG( ZVEC1(:) ) + XWETINTP2H ) )
+ IVEC1(:) = INT( ZVEC1(:) )
+ ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
+!
+ ZVEC2(:) = MAX( 1.0001, MIN( REAL(NWETLBDAG)-0.0001, &
+ XWETINTP1G * LOG( ZVEC2(:) ) + XWETINTP2G ) )
+ IVEC2(:) = INT( ZVEC2(:) )
+ ZVEC2(:) = ZVEC2(:) - REAL( IVEC2(:) )
+!
+!* Perform the bilinear interpolation of the normalized
+! RDRYG-kernel
+!
+ Z1(:) = GET_XKER_GWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_GWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_GWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_GWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW4(:) = XFGWETH * ZZW(:) & ! RGWETH
+ * PRGT(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBGWETH1/( PLBDH(:)**2 ) + &
+ XLBGWETH2/( PLBDH(:) * PLBDG(:) ) + &
+ XLBGWETH3/( PLBDG(:)**2) )
+!
+ Z1(:) = GET_XKER_N_GWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_GWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_GWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_GWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW4N(:) = XFNGWETH * ZZW(:) & ! NGWETH
+ * PCGT(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNGWETH1/( PLBDH(:)**2 ) + &
+ XLBNGWETH2/( PLBDH(:) * PLBDG(:) ) + &
+ XLBNGWETH3/( PLBDG(:)**2) )
+
+END WHERE
+!
+! 1.e Wet growth of hail
+! ----------------------
+!
+ZZW(:) = 0.0
+WHERE( PRHT(:)>XRTMIN(6) .AND. PCHT(:) >XCTMIN(6) .AND. LDCOMPUTE(:) )
+ ZZW(:) = PRVT(:)*PPRES(:)/((XMV/XMD)+PRVT(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PT(:)) )
+!
+! Total mass gained by hail in wet mode
+ ZRWETH(:) = MAX( 0.0, &
+ ( ZZW(:) * PCHT(:) * ( X0DEPH* PLBDH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDH(:)**XEX1DEPH ) + &
+ ( ZZW2(:)+ZZW3(:)+ZZW4(:) ) * ( XLMTT + (XCI-XCL)*(XTT-PT(:)) ) ) &
+ / (XLMTT-XCL*(XTT-PT(:))) )
+ ! We must agregate, at least, the cold species
+ ZRWETH(:)=MAX(ZRWETH(:), ZZW2(:)+ZZW3(:)+ZZW4(:))
+END WHERE
+WHERE( PRHT(:)>XRTMIN(6) .AND. PCHT(:) >XCTMIN(6) .AND. PRRT(:)>XRTMIN(3) .AND. PCRT(:) >XCTMIN(3) .AND. LDCOMPUTE(:) )
+ ! Mass of rain frozen by hail RRWETH
+ ZZW5(:) = ZRWETH(:) - ZZW2(:) - ZZW3(:) - ZZW4(:) - ZZW1(:)
+END WHERE
+!
+ZZW(:) = 0.0
+WHERE( LDCOMPUTE(:) .AND. PT(:)<XTT .AND. ZZW5(:)>0.0 )
+ P_RC_WETH(:) = - ZZW1(:)
+ P_CC_WETH(:) = P_RC_WETH(:) * PCCT(:)/MAX(PRCT(:),XRTMIN(2))
+ P_RR_WETH(:) = - ZZW5(:)
+ P_CR_WETH(:) = P_RR_WETH(:) * PCRT(:)/MAX(PRRT(:),XRTMIN(3))
+ P_RI_WETH(:) = - ZZW2(:)
+ P_CI_WETH(:) = P_RI_WETH(:) * PCIT(:)/MAX(PRIT(:),XRTMIN(4))
+ P_RS_WETH(:) = - ZZW3(:)
+ P_CS_WETH(:) = - ZZW3N(:)
+ P_RG_WETH(:) = - ZZW4(:)
+ P_CG_WETH(:) = - ZZW4N(:)
+ P_RH_WETH(:) = ZRWETH(:)
+ !
+ P_TH_WETH(:) = (ZZW5(:)+ZZW1(:)) * (PLSFACT(:)-PLVFACT(:))
+END WHERE
+!
+!
+!* 2. Hail -> graupel conversion (COHG)
+! -------------------------------------
+!
+ZTHRH=0.01E-3
+ZTHRC=0.001E-3
+ZZW(:) = 0.0
+GWET(:) = PRHT(:)<ZTHRH .AND. PRCT(:)<ZTHRC .AND. PT(:)<XTT
+WHERE( GWET(:) )
+ P_RG_COHG(:) = PRHT * MIN( 1.0,MAX( 0.0,1.0-(PRCT(:)/ZTHRC) ) )
+ P_CG_COHG(:) = P_RG_COHG(:) * PCHT(:)/MAX(PRHT(:),XRTMIN(7))
+END WHERE
+!
+!
+!* 3. Hail Melting (HMLT)
+! -----------------------
+!
+ZZW(:) = 0.0
+WHERE( PRHT(:)>XRTMIN(6) .AND. PCHT(:)>XCTMIN(7) .AND. PT(:)>XTT .AND. LDCOMPUTE(:) )
+ ZZW(:) = PRVT(:)*PPRES(:)/((XMV/XMD)+PRVT(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PT(:)) )
+!
+! compute RHMLTR
+!
+ ZZW(:) = MAX( 0.0,( -ZZW(:) * PCHT(:) * &
+ ( X0DEPH* PLBDH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDH(:)**XEX1DEPH ) - &
+ ( ZZW5(:) ) * ( XCL*(XTT-PT(:))) ) &
+ / XLMTT )
+ P_RR_HMLT(:) = ZZW(:)
+ P_CR_HMLT(:) = ZZW(:) * 5.0E6 ! obtained after averaging, Dshed=1mm and 500 microns
+ P_CH_HMLT(:) = - ZZW(:) * PCHT(:)/PRHT(:)
+ !
+ P_TH_HMLT(:) = - P_RR_HMLT(:) * (PLSFACT(:)-PLVFACT(:))
+END WHERE
+!
+!
+!
+!
+PA_RC(:) = PA_RC(:) + P_RC_WETH(:)
+PA_CC(:) = PA_CC(:) + P_CC_WETH(:)
+PA_RR(:) = PA_RR(:) + P_RR_WETH(:) + P_RR_HMLT(:)
+PA_CR(:) = PA_CR(:) + P_CR_WETH(:) + P_CR_HMLT(:)
+PA_RI(:) = PA_RI(:) + P_RI_WETH(:)
+PA_CI(:) = PA_CI(:) + P_CI_WETH(:)
+PA_RS(:) = PA_RS(:) + P_RS_WETH(:)
+PA_CS(:) = PA_CS(:) + P_CS_WETH(:)
+PA_RG(:) = PA_RG(:) + P_RG_WETH(:) + P_RG_COHG(:)
+PA_CG(:) = PA_CG(:) + P_CG_WETH(:) + P_CG_COHG(:)
+PA_RH(:) = PA_RH(:) + P_RH_WETH(:) - P_RG_COHG(:) - P_RR_HMLT(:)
+PA_CH(:) = PA_CH(:) - P_CG_COHG(:) + P_CH_HMLT(:)
+PA_TH(:) = PA_TH(:) + P_TH_WETH(:) + P_TH_HMLT(:)
+!
+!-------------------------------------------------------------------------------
+!
+CONTAINS
+ FUNCTION GET_XKER_SWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_SWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_SWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_SWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_SWETH
+!
+!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_SWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_SWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_SWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_N_SWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_SWETH
+!
+!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_GWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_GWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_GWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_GWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_GWETH
+!
+!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_GWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_GWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_GWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_N_GWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_GWETH
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_HAIL
diff --git a/src/MNH/lima_hail_deposition.f90 b/src/MNH/lima_hail_deposition.f90
new file mode 100644
index 0000000000000000000000000000000000000000..1b411138fdfc344c7ab8cdc4043bc37e737baa2e
--- /dev/null
+++ b/src/MNH/lima_hail_deposition.f90
@@ -0,0 +1,100 @@
+!MNH_LIC Copyright 2018-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
+! #################################
+ MODULE MODI_LIMA_HAIL_DEPOSITION
+! #################################
+!
+INTERFACE
+ SUBROUTINE LIMA_HAIL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRHT, PCHT, PSSI, PLBDH, PAI, PCJ, PLSFACT, &
+ P_TH_DEPH, P_RH_DEPH )
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHT ! hail mr
+REAL, DIMENSION(:), INTENT(IN) :: PCHT ! hail conc
+REAL, DIMENSION(:), INTENT(IN) :: PSSI !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+REAL, DIMENSION(:), INTENT(IN) :: PAI !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH
+!!
+END SUBROUTINE LIMA_HAIL_DEPOSITION
+END INTERFACE
+END MODULE MODI_LIMA_HAIL_DEPOSITION
+!
+! ###########################################################################
+ SUBROUTINE LIMA_HAIL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRHT, PCHT, PSSI, PLBDH, PAI, PCJ, PLSFACT, &
+ P_TH_DEPH, P_RH_DEPH )
+! ###########################################################################
+!
+!! PURPOSE
+!! -------
+!! Deposition of water vapour on graupel
+!!
+!!
+!! AUTHOR
+!! ------
+!! J.-M. Cohard * Laboratoire d'Aerologie*
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! S. Berthet * Laboratoire d'Aerologie*
+!! B. Vié * CNRM *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 15/03/2018
+!!
+! M. Taufour 07/2022 add concentration for snow, graupel, hail
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA_MIXED, ONLY : X0DEPH, XEX0DEPH, X1DEPH, XEX1DEPH
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHT ! hail mr
+REAL, DIMENSION(:), INTENT(IN) :: PCHT ! hail conc
+REAL, DIMENSION(:), INTENT(IN) :: PSSI !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+REAL, DIMENSION(:), INTENT(IN) :: PAI !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH
+!
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1. Deposition of vapour on graupel
+! -------------------------------
+!
+P_TH_DEPH(:) = 0.0
+P_RH_DEPH(:) = 0.0
+WHERE ( PRHT(:)>XRTMIN(7) .AND. PCHT(:)>XCTMIN(7) .AND. LDCOMPUTE(:) )
+ P_RH_DEPH(:) = PSSI(:) / PAI(:) * PCHT(:) * &
+ ( X0DEPH*PLBDH(:)**XEX0DEPH + X1DEPH*PCJ(:)*PLBDH(:)**XEX1DEPH )
+ P_TH_DEPH(:) = P_RH_DEPH(:)*PLSFACT(:)
+END WHERE
+!
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_HAIL_DEPOSITION
diff --git a/src/MNH/lima_ice_aggregation_snow.f90 b/src/MNH/lima_ice_aggregation_snow.f90
index af815a498702f7fab7fe73ea159f7bb2c272b2f6..26b23005738fe4202944cb83e51d634d403aeede 100644
--- a/src/MNH/lima_ice_aggregation_snow.f90
+++ b/src/MNH/lima_ice_aggregation_snow.f90
@@ -8,10 +8,10 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
- PT, PRHODREF, &
- PRIT, PRST, PCIT, PLBDI, PLBDS, &
- P_RI_AGGS, P_CI_AGGS )
+ SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
+ PT, PRHODREF, &
+ PRIT, PRST, PCIT, PCST, PLBDI, PLBDS, &
+ P_RI_AGGS, P_CI_AGGS )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
@@ -21,6 +21,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
REAL, DIMENSION(:), INTENT(IN) :: PRIT
REAL, DIMENSION(:), INTENT(IN) :: PRST
REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
REAL, DIMENSION(:), INTENT(IN) :: PLBDI
REAL, DIMENSION(:), INTENT(IN) :: PLBDS
!
@@ -32,10 +33,10 @@ END INTERFACE
END MODULE MODI_LIMA_ICE_AGGREGATION_SNOW
!
! #######################################################################
- SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
- PT, PRHODREF, &
- PRIT, PRST, PCIT, PLBDI, PLBDS, &
- P_RI_AGGS, P_CI_AGGS )
+ SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
+ PT, PRHODREF, &
+ PRIT, PRST, PCIT, PCST, PLBDI, PLBDS, &
+ P_RI_AGGS, P_CI_AGGS )
! #######################################################################
!
!! PURPOSE
@@ -54,6 +55,7 @@ END MODULE MODI_LIMA_ICE_AGGREGATION_SNOW
!! Original 15/03/2018
! J. Wurtz 03/2022: new snow characteristics
! B. Vie 03/2022: Add option for 1-moment pristine ice
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -77,6 +79,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
REAL, DIMENSION(:), INTENT(IN) :: PRIT
REAL, DIMENSION(:), INTENT(IN) :: PRST
REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
REAL, DIMENSION(:), INTENT(IN) :: PLBDI
REAL, DIMENSION(:), INTENT(IN) :: PLBDS
!
@@ -101,21 +104,21 @@ P_RI_AGGS(:) = 0.
P_CI_AGGS(:) = 0.
!
!
-IF (NMOM_I.EQ.1) THEN
- WHERE ( (PRIT(:)>XRTMIN(4)) .AND. (PRST(:)>XRTMIN(5)) .AND. LDCOMPUTE(:) )
+IF (NMOM_I.EQ.1) THEN
+ WHERE ( PRIT(:)>XRTMIN(4) .AND. PRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
ZZW1(:) = XFIAGGS * EXP( XCOLEXIS*(PT(:)-XTT) ) &
* PRIT(:) &
- * PRST(:) * (1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEXIAGGS/XALPHAS) &
+ * PCST(:) * (1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEXIAGGS/XALPHAS) &
* PRHODREF(:)**(-XCEXVT+1.) &
- * ((PLBDS(:))**(XBS+XEXIAGGS))
+ * PLBDS(:)**XEXIAGGS
!
P_RI_AGGS(:) = - ZZW1(:)
END WHERE
ELSE
- WHERE ( (PRIT(:)>XRTMIN(4)) .AND. (PRST(:)>XRTMIN(5)) .AND. LDCOMPUTE(:) )
+ WHERE ( PRIT(:)>XRTMIN(4) .AND. PRST(:)>XRTMIN(5) .AND. &
+ PCIT(:)>XCTMIN(4) .AND. PCST(:)>XCTMIN(5) .AND. LDCOMPUTE(:) )
ZZW1(:) = (PLBDI(:) / PLBDS(:))**3
- ZZW2(:) = (PCIT(:)*(XNS*PRST(:)*PLBDS(:)**XBS)*EXP(XCOLEXIS*(PT(:)-XTT) ))*PRHODREF(:) &
- / (PLBDI(:)**3)
+ ZZW2(:) = PCIT(:)*PCST(:)*EXP(XCOLEXIS*(PT(:)-XTT))*PRHODREF(:) / (PLBDI(:)**3)
ZZW3(:) = ZZW2(:)*(XAGGS_CLARGE1+XAGGS_CLARGE2*ZZW1(:))
!
P_CI_AGGS(:) = - ZZW3(:)
diff --git a/src/MNH/lima_ice_deposition.f90 b/src/MNH/lima_ice_deposition.f90
index 2b46227b80ded9618b03c77b75eb75ce0a90a458..b9ca8ed7558349a6f1da6296770fd7a5e0a4c3d2 100644
--- a/src/MNH/lima_ice_deposition.f90
+++ b/src/MNH/lima_ice_deposition.f90
@@ -78,8 +78,7 @@ USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS,&
USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
- XSCFAC, X1DEPS, X0DEPS, XEX1DEPS, XEX0DEPS, &
- XDICNVS_LIM, XLBDAICNVS_LIM, &
+ XSCFAC, XDICNVS_LIM, XLBDAICNVS_LIM, &
XC0DEPIS, XC1DEPIS, XR0DEPIS, XR1DEPIS, &
XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
XAGGS_RLARGE1, XAGGS_RLARGE2, &
diff --git a/src/MNH/lima_inst_procs.f90 b/src/MNH/lima_inst_procs.f90
index ce7a127815611c7cd97b37c3c2d51c91665fb0e1..6a5aa149ea7368975e06dead5a299fc9e96d8226 100644
--- a/src/MNH/lima_inst_procs.f90
+++ b/src/MNH/lima_inst_procs.f90
@@ -102,7 +102,7 @@ SUBROUTINE LIMA_INST_PROCS (PTSTEP, LDCOMPUTE,
!-------------------------------------------------------------------------------
!
!
-USE MODD_PARAM_LIMA, ONLY : LCOLD, LWARM, LRAIN
+USE MODD_PARAM_LIMA, ONLY : LCOLD, LWARM, LRAIN, NMOM_R
!
USE MODI_LIMA_DROPS_BREAK_UP
USE MODI_LIMA_DROPS_HOM_FREEZING
@@ -159,7 +159,7 @@ REAL, DIMENSION(:) , INTENT(INOUT) :: PPF1D ! Precipitation fraction
!
!-------------------------------------------------------------------------------
!
-IF (LWARM .AND. LRAIN) THEN
+IF (LWARM .AND. LRAIN .AND. NMOM_R.GE.2) THEN
CALL LIMA_DROPS_BREAK_UP (LDCOMPUTE, & ! no dependance on CF, IF or PF
PCRT, PRRT, &
P_CR_BRKU, &
diff --git a/src/MNH/lima_mixed.f90 b/src/MNH/lima_mixed.f90
index 4d558eb1da83e2eb5d500c0ee18dbce977d80c42..400969656b513327addf6ebc070bff61d2e22fce 100644
--- a/src/MNH/lima_mixed.f90
+++ b/src/MNH/lima_mixed.f90
@@ -11,7 +11,6 @@ INTERFACE
SUBROUTINE LIMA_MIXED (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS)
!
@@ -35,9 +34,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -54,7 +50,6 @@ END MODULE MODI_LIMA_MIXED
SUBROUTINE LIMA_MIXED (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS )
! #######################################################################
@@ -97,6 +92,7 @@ END MODULE MODI_LIMA_MIXED
! P. Wautelet 28/05/2020: bugfix: correct array start for PSVT and PSVS
! P. Wautelet 02/02/2021: budgets: add missing source terms for SV budgets in LIMA
! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -109,10 +105,13 @@ USE MODD_CST, ONLY: XP00, XRD, XRV, XMV, XMD, XCPD, XCPV, &
USE MODD_NSV
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: NMOD_IFN, XRTMIN, XCTMIN, LWARM, LCOLD, &
- NMOD_CCN, NMOD_IMM, LRAIN, LSNOW, LHAIL, LSNOW_T
+ NMOD_CCN, NMOD_IMM, LRAIN, LSNOW, LHAIL, LSNOW_T, &
+ NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_WARM, ONLY: XLBC, XLBEXC, XLBR, XLBEXR
-USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XSCFAC, XLBDAS_MAX, XLBDAS_MIN, XTRANS_MP_GAMMAS
-USE MODD_PARAM_LIMA_MIXED, ONLY: XLBG, XLBEXG, XLBH, XLBEXH
+USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XSCFAC, &
+ XLBDAS_MAX, XLBDAS_MIN, XTRANS_MP_GAMMAS, &
+ XBS, XCCS, XCXS, XNS
+USE MODD_PARAM_LIMA_MIXED, ONLY: XLBG, XLBEXG, XCCG, XCXG, XLBH, XLBEXH, XCCH, XCXH
use mode_tools, only: Countjv
@@ -141,9 +140,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -175,15 +171,29 @@ REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2),SIZE(PZZ,3)) &
PCCT, & ! Cloud water C. at t
PCRT, & ! Rain water C. at t
PCIT, & ! Ice crystal C. at t
+ PCST, & ! Snow/aggregates C. at t
+ PCGT, & ! Graupel C. at t
+ PCHT, & ! Hail C. at t
!
PCCS, & ! Cloud water C. source
PCRS, & ! Rain water C. source
- PCIS ! Ice crystal C. source
-!
+ PCIS, & ! Ice crystal C. source
+ PCSS, & ! Snow/aggregates C. source
+ PCGS, & ! Graupel C. source
+ PCHS ! Hail C. source
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNFS ! CCN C. available source
+ !used as Free ice nuclei for
+ !HOMOGENEOUS nucleation of haze
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNAS ! Cloud C. nuclei C. source
+ !used as Free ice nuclei for
+ !IMMERSION freezing
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PIFS ! Free ice nuclei C. source
!for DEPOSITION and CONTACT
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PINS ! Activated ice nuclei C. source
!for DEPOSITION and CONTACT
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNIS ! Activated ice nuclei C. source
+ !for IMMERSION
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: PNHS ! Hom. freezing of CCN
!
! Replace PACK
LOGICAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: GMICRO
@@ -202,6 +212,9 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRHT ! Hail m.r. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZCCT ! Cloud water conc. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZCRT ! Rain water conc. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCST ! Snow/aggregates conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCGT ! Graupel conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCHT ! Hail conc. at t
!
REAL, DIMENSION(:), ALLOCATABLE :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), ALLOCATABLE :: ZRCS ! Cloud water m.r. source
@@ -216,6 +229,9 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZTHS ! Theta source
REAL, DIMENSION(:), ALLOCATABLE :: ZCCS ! Cloud water conc. source
REAL, DIMENSION(:), ALLOCATABLE :: ZCRS ! Rain water conc. source
REAL, DIMENSION(:), ALLOCATABLE :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), ALLOCATABLE :: ZCSS ! Snow/aggregates conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCGS ! Graupel conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCHS ! Hail conc. at t
!
REAL, DIMENSION(:,:), ALLOCATABLE :: ZIFS ! Free Ice nuclei conc. source
REAL, DIMENSION(:,:), ALLOCATABLE :: ZINS ! Nucleated Ice nuclei conc. source
@@ -290,17 +306,41 @@ IF ( KRR .GE. 7 ) PRHS(:,:,:) = PRS(:,:,:,7)
PCCT(:,:,:) = 0.
PCRT(:,:,:) = 0.
PCIT(:,:,:) = 0.
+PCST(:,:,:) = 0.
+PCGT(:,:,:) = 0.
+PCHT(:,:,:) = 0.
PCCS(:,:,:) = 0.
PCRS(:,:,:) = 0.
PCIS(:,:,:) = 0.
+PCSS(:,:,:) = 0.
+PCGS(:,:,:) = 0.
+PCHS(:,:,:) = 0.
!
IF ( LWARM ) PCCT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCST(:,:,:) = PSVT(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NH)
!
IF ( LWARM ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCSS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH)
+!
+IF ( NMOD_CCN .GE. 1 ) THEN
+ ALLOCATE( PNFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_CCN) )
+ ALLOCATE( PNAS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_CCN) )
+ PNFS(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1)
+ PNAS(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1)
+ELSE
+ ALLOCATE( PNFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),1) )
+ ALLOCATE( PNAS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),1) )
+ PNFS(:,:,:,:) = 0.
+ PNAS(:,:,:,:) = 0.
+END IF
!
IF ( NMOD_IFN .GE. 1 ) THEN
ALLOCATE( PIFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_IFN) )
@@ -314,6 +354,22 @@ ELSE
PINS(:,:,:,:) = 0.
END IF
!
+IF ( NMOD_IMM .GE. 1 ) THEN
+ ALLOCATE( PNIS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_IMM) )
+ PNIS(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_IMM_NUCL:NSV_LIMA_IMM_NUCL+NMOD_IMM-1)
+ELSE
+ ALLOCATE( PNIS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),1) )
+ PNIS(:,:,:,:) = 0.0
+END IF
+!
+IF ( OHHONI ) THEN
+ ALLOCATE( PNHS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) )
+ PNHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_HOM_HAZE)
+ELSE
+ ALLOCATE( PNHS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) )
+ PNHS(:,:,:) = 0.0
+END IF
+!
!-------------------------------------------------------------------------------
!
!
@@ -343,7 +399,7 @@ GMICRO(IIB:IIE,IJB:IJE,IKB:IKE) = PRCT(IIB:IIE,IJB:IJE,IKB:IKE)>XRTMIN(2) .OR. &
!
IMICRO = COUNTJV( GMICRO(:,:,:),I1(:),I2(:),I3(:))
!
-IF( IMICRO >= 1 ) THEN
+IF( IMICRO >= 0 ) THEN
!
ALLOCATE(ZRVT(IMICRO))
ALLOCATE(ZRCT(IMICRO))
@@ -355,7 +411,10 @@ IF( IMICRO >= 1 ) THEN
!
ALLOCATE(ZCCT(IMICRO))
ALLOCATE(ZCRT(IMICRO))
- ALLOCATE(ZCIT(IMICRO))
+ ALLOCATE(ZCIT(IMICRO))
+ ALLOCATE(ZCST(IMICRO))
+ ALLOCATE(ZCGT(IMICRO))
+ ALLOCATE(ZCHT(IMICRO))
!
ALLOCATE(ZRVS(IMICRO))
ALLOCATE(ZRCS(IMICRO))
@@ -368,7 +427,10 @@ IF( IMICRO >= 1 ) THEN
!
ALLOCATE(ZCCS(IMICRO))
ALLOCATE(ZCRS(IMICRO))
- ALLOCATE(ZCIS(IMICRO))
+ ALLOCATE(ZCIS(IMICRO))
+ ALLOCATE(ZCSS(IMICRO))
+ ALLOCATE(ZCGS(IMICRO))
+ ALLOCATE(ZCHS(IMICRO))
ALLOCATE(ZIFS(IMICRO,NMOD_IFN))
ALLOCATE(ZINS(IMICRO,NMOD_IFN))
!
@@ -388,6 +450,9 @@ IF( IMICRO >= 1 ) THEN
ZCCT(JL) = PCCT(I1(JL),I2(JL),I3(JL))
ZCRT(JL) = PCRT(I1(JL),I2(JL),I3(JL))
ZCIT(JL) = PCIT(I1(JL),I2(JL),I3(JL))
+ ZCST(JL) = PCST(I1(JL),I2(JL),I3(JL))
+ ZCGT(JL) = PCGT(I1(JL),I2(JL),I3(JL))
+ ZCHT(JL) = PCHT(I1(JL),I2(JL),I3(JL))
!
ZRVS(JL) = PRVS(I1(JL),I2(JL),I3(JL))
ZRCS(JL) = PRCS(I1(JL),I2(JL),I3(JL))
@@ -401,6 +466,9 @@ IF( IMICRO >= 1 ) THEN
ZCCS(JL) = PCCS(I1(JL),I2(JL),I3(JL))
ZCRS(JL) = PCRS(I1(JL),I2(JL),I3(JL))
ZCIS(JL) = PCIS(I1(JL),I2(JL),I3(JL))
+ ZCSS(JL) = PCSS(I1(JL),I2(JL),I3(JL))
+ ZCGS(JL) = PCGS(I1(JL),I2(JL),I3(JL))
+ ZCHS(JL) = PCHS(I1(JL),I2(JL),I3(JL))
DO JMOD_IFN = 1, NMOD_IFN
ZIFS(JL,JMOD_IFN) = PIFS(I1(JL),I2(JL),I3(JL),JMOD_IFN)
ZINS(JL,JMOD_IFN) = PINS(I1(JL),I2(JL),I3(JL),JMOD_IFN)
@@ -467,28 +535,56 @@ IF( IMICRO >= 1 ) THEN
WHERE (ZRIT(:)>XRTMIN(4) .AND. ZCIT(:)>XCTMIN(4))
ZLBDAI(:) = ( XLBI*ZCIT(:) / ZRIT(:) )**XLBEXI
END WHERE
- ZLBDAS(:) = 1.E10
- IF (LSNOW_T) THEN
+ IF (LSNOW_T .AND. NMOM_S.EQ.1) THEN
WHERE(ZZT(:)>263.15 .AND. ZRST(:)>XRTMIN(5))
ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZZT(:))),XLBDAS_MIN)
END WHERE
WHERE(ZZT(:)<=263.15 .AND. ZRST(:)>XRTMIN(5))
ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZZT(:))),XLBDAS_MIN)
END WHERE
- ZLBDAS(:) = ZLBDAS(:)*XTRANS_MP_GAMMAS
+ ZLBDAS(:) = ZLBDAS(:) * XTRANS_MP_GAMMAS
+ ZCST(:) = (XNS*ZRST(:)*ZLBDAS(:)**XBS)
+ ZCSS(:) = (XNS*ZRSS(:)*ZLBDAS(:)**XBS)
+ ELSE IF (NMOM_S.GE.2) THEN
+ WHERE (ZRST(:)>XRTMIN(5) .AND. ZCST(:)>XCTMIN(5))
+ ZLBDAS(:) = ( XLBS*ZCST(:) / ZRST(:) )**XLBEXS
+ END WHERE
ELSE
- WHERE (ZRST(:)>XRTMIN(5))
- ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS),XLBDAS_MIN)
+ ZLBDAS(:) = 1.E10
+ WHERE (ZRSS(:)>XRTMIN(5)/PTSTEP)
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX,XLBS*( ZRHODREF(:)*ZRSS(:)*PTSTEP )**XLBEXS),XLBDAS_MIN)
+ END WHERE
+ ZCSS(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:) / PTSTEP
+ ZLBDAS(:) = 1.E10
+ WHERE (ZRST(:)>XRTMIN(5) )
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX,XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS),XLBDAS_MIN)
END WHERE
+ ZCST(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:)
END IF
ZLBDAG(:) = 1.E10
- WHERE (ZRGT(:)>XRTMIN(6) )
- ZLBDAG(:) = XLBG*( ZRHODREF(:)*ZRGT(:) )**XLBEXG
- END WHERE
+ if (NMOM_G.GE.2) then
+ WHERE (ZRGT(:)>XRTMIN(6) .AND. ZCGT(:)>XCTMIN(6) )
+ ZLBDAG(:) = ( XLBG*ZCGT(:) / ZRGT(:) )**XLBEXG
+ END WHERE
+ else
+ WHERE (ZRGT(:)>XRTMIN(6) )
+ ZLBDAG(:) = XLBG*( ZRHODREF(:)*ZRGT(:) )**XLBEXG
+ END WHERE
+ ZCGT(:) = XCCG*ZLBDAG(:)**XCXG / ZRHODREF(:)
+ ZCGS(:) = XCCG*ZLBDAG(:)**XCXG / ZRHODREF(:)
+ end if
ZLBDAH(:) = 1.E10
- WHERE (ZRHT(:)>XRTMIN(7) )
- ZLBDAH(:) = XLBH*( ZRHODREF(:)*ZRHT(:) )**XLBEXH
- END WHERE
+ if (NMOM_H.GE.2) then
+ WHERE (ZRHT(:)>XRTMIN(7) .AND. ZCHT(:)>XCTMIN(7))
+ ZLBDAH(:) = ( XLBH*ZCHT(:) / ZRHT(:) )**XLBEXH
+ END WHERE
+ else
+ WHERE (ZRHT(:)>XRTMIN(7) )
+ ZLBDAH(:) = XLBH*( ZRHODREF(:)*ZRHT(:) )**XLBEXH
+ END WHERE
+ ZCHT(:) = XCCH*ZLBDAH(:)**XCXH / ZRHODREF(:)
+ ZCHS(:) = XCCH*ZLBDAH(:)**XCXH / ZRHODREF(:)
+ end if
!
!-------------------------------------------------------------------------------
!
@@ -496,15 +592,15 @@ IF( IMICRO >= 1 ) THEN
!* 2. Compute the slow processes involving cloud water and graupel
! ------------------------------------------------------------
!
- CALL LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
- ZLSFACT, ZLVFACT, ZAI, ZCJ, &
- ZRGT, ZCIT, &
- ZRVS, ZRCS, ZRIS, ZRGS, ZTHS, &
- ZCCS, ZCIS, ZIFS, ZINS, &
- ZLBDAI, ZLBDAG, &
- ZRHODJ, GMICRO, PRHODJ, KMI, &
- PTHS, PRVS, PRCS, PRIS, PRGS, &
- PCCS, PCIS, PINS )
+ CALL LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZAI, ZCJ, &
+ ZRGT, ZRHT, ZCIT, ZCGT, ZCHT, &
+ ZRVS, ZRCS, ZRIS, ZRGS, ZRHS, ZTHS, &
+ ZCCS, ZCIS, ZCGS, ZIFS, ZINS, &
+ ZLBDAI, ZLBDAG, ZLBDAH, &
+ ZRHODJ, GMICRO, PRHODJ, KMI, &
+ PTHS, PRVS, PRCS, PRIS, PRGS, PRHS, &
+ PCCS, PCIS )
!
!-------------------------------------------------------------------------------
!
@@ -513,16 +609,16 @@ IF( IMICRO >= 1 ) THEN
! ------------------------------------
!
IF (LSNOW) THEN
- CALL LIMA_MIXED_FAST_PROCESSES(ZRHODREF, ZZT, ZPRES, PTSTEP, &
- ZLSFACT, ZLVFACT, ZKA, ZDV, ZCJ, &
- ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
- ZRHT, ZCCT, ZCRT, ZCIT, &
- ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS, &
- ZTHS, ZCCS, ZCRS, ZCIS, &
- ZLBDAC, ZLBDAR, ZLBDAS, ZLBDAG, ZLBDAH, &
- ZRHODJ, GMICRO, PRHODJ, KMI, PTHS, &
- PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
- PCCS, PCRS, PCIS )
+ CALL LIMA_MIXED_FAST_PROCESSES(ZRHODREF, ZZT, ZPRES, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZKA, ZDV, ZCJ, &
+ ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
+ ZRHT, ZCCT, ZCRT, ZCIT, ZCST, ZCGT, ZCHT, &
+ ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS, &
+ ZTHS, ZCCS, ZCRS, ZCIS, ZCSS, ZCGS, ZCHS, &
+ ZLBDAC, ZLBDAR, ZLBDAI, ZLBDAS, ZLBDAG, ZLBDAH, &
+ ZRHODJ, GMICRO, PRHODJ, KMI, PTHS, &
+ PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
+ PCCS, PCRS, PCIS, PCSS, PCGS, PCHS )
END IF
!
!-------------------------------------------------------------------------------
@@ -557,6 +653,18 @@ END IF
PCRS(:,:,:) = UNPACK( ZCRS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
ZW(:,:,:) = PCIS(:,:,:)
PCIS(:,:,:) = UNPACK( ZCIS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ if (NMOM_S.GE.2) then
+ ZW(:,:,:) = PCSS(:,:,:)
+ PCSS(:,:,:) = UNPACK( ZCSS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
+ if (NMOM_G.GE.2) then
+ ZW(:,:,:) = PCGS(:,:,:)
+ PCGS(:,:,:) = UNPACK( ZCGS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
+ if (NMOM_H.GE.2) then
+ ZW(:,:,:) = PCHS(:,:,:)
+ PCHS(:,:,:) = UNPACK( ZCHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
!
DO JMOD_IFN = 1, NMOD_IFN
ZW(:,:,:) = PIFS(:,:,:,JMOD_IFN)
@@ -578,6 +686,9 @@ END IF
DEALLOCATE(ZCCT)
DEALLOCATE(ZCRT)
DEALLOCATE(ZCIT)
+ DEALLOCATE(ZCST)
+ DEALLOCATE(ZCGT)
+ DEALLOCATE(ZCHT)
!
DEALLOCATE(ZRVS)
DEALLOCATE(ZRCS)
@@ -591,6 +702,9 @@ END IF
DEALLOCATE(ZCCS)
DEALLOCATE(ZCRS)
DEALLOCATE(ZCIS)
+ DEALLOCATE(ZCSS)
+ DEALLOCATE(ZCGS)
+ DEALLOCATE(ZCHS)
DEALLOCATE(ZIFS)
DEALLOCATE(ZINS)
!
@@ -637,16 +751,32 @@ IF ( KRR .GE. 7 ) PRS(:,:,:,7) = PRHS(:,:,:)
!
PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
IF ( LRAIN ) PSVS(:,:,:,NSV_LIMA_NR) = PCRS(:,:,:)
+IF ( NMOM_S.GE.2 ) PSVS(:,:,:,NSV_LIMA_NS) = PCSS(:,:,:)
+IF ( NMOM_G.GE.2 ) PSVS(:,:,:,NSV_LIMA_NG) = PCGS(:,:,:)
+IF ( NMOM_H.GE.2 ) PSVS(:,:,:,NSV_LIMA_NH) = PCHS(:,:,:)
PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
!
+IF ( NMOD_CCN .GE. 1 ) THEN
+ PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) = PNFS(:,:,:,:)
+ PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1) = PNAS(:,:,:,:)
+END IF
+!
IF ( NMOD_IFN .GE. 1 ) THEN
PSVS(:,:,:,NSV_LIMA_IFN_FREE:NSV_LIMA_IFN_FREE+NMOD_IFN-1) = PIFS(:,:,:,:)
PSVS(:,:,:,NSV_LIMA_IFN_NUCL:NSV_LIMA_IFN_NUCL+NMOD_IFN-1) = PINS(:,:,:,:)
END IF
!
+IF ( NMOD_IMM .GE. 1 ) THEN
+ PSVS(:,:,:,NSV_LIMA_IMM_NUCL:NSV_LIMA_IMM_NUCL+NMOD_IMM-1) = PNIS(:,:,:,:)
+END IF
+!
!++cb++
+IF (ALLOCATED(PNFS)) DEALLOCATE(PNFS)
+IF (ALLOCATED(PNAS)) DEALLOCATE(PNAS)
IF (ALLOCATED(PIFS)) DEALLOCATE(PIFS)
IF (ALLOCATED(PINS)) DEALLOCATE(PINS)
+IF (ALLOCATED(PNIS)) DEALLOCATE(PNIS)
+IF (ALLOCATED(PNHS)) DEALLOCATE(PNHS)
!--cb--
!
!-------------------------------------------------------------------------------
diff --git a/src/MNH/lima_mixed_fast_processes.f90 b/src/MNH/lima_mixed_fast_processes.f90
index d8b553474404e8e10dbecb856aeca8d76e732b2c..6537474b4c65b126bd6e1052f844cd77d45c2e8b 100644
--- a/src/MNH/lima_mixed_fast_processes.f90
+++ b/src/MNH/lima_mixed_fast_processes.f90
@@ -8,16 +8,16 @@
! #####################################
!
INTERFACE
- SUBROUTINE LIMA_MIXED_FAST_PROCESSES (PRHODREF, PZT, PPRES, PTSTEP, &
- PLSFACT, PLVFACT, PKA, PDV, PCJ, &
- PRVT1D, PRCT1D, PRRT1D, PRIT1D, PRST1D, &
- PRGT1D, PRTH1D, PCCT1D, PCRT1D, PCIT1D, &
- PRCS1D, PRRS1D, PRIS1D, PRSS1D, PRGS1D, &
- PRHS1D, PTHS1D, PCCS1D, PCRS1D, PCIS1D, &
- PLBDAC, PLBDAR, PLBDAS, PLBDAG, PLBDAH, &
- PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
- PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
- PCCS, PCRS, PCIS )
+ SUBROUTINE LIMA_MIXED_FAST_PROCESSES (PRHODREF, PZT, PPRES, PTSTEP, &
+ PLSFACT, PLVFACT, PKA, PDV, PCJ, &
+ PRVT1D, PRCT1D, PRRT1D, PRIT1D, PRST1D, PRGT1D, &
+ PRHT1D, PCCT1D, PCRT1D, PCIT1D, PCST1D, PCGT1D, PCHT1D, &
+ PRCS1D, PRRS1D, PRIS1D, PRSS1D, PRGS1D, PRHS1D, &
+ PTHS1D, PCCS1D, PCRS1D, PCIS1D, PCSS1D, PCGS1D, PCHS1D, &
+ PLBDAC, PLBDAR, PLBDAI, PLBDAS, PLBDAG, PLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
+ PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
+ PCCS, PCRS, PCIS, PCSS, PCGS, PCHS )
!
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! RHO Dry REFerence
REAL, DIMENSION(:), INTENT(IN) :: PZT ! Temperature
@@ -36,11 +36,14 @@ REAL, DIMENSION(:), INTENT(IN) :: PRRT1D ! Rain water m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRIT1D ! Pristine ice m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRST1D ! Snow/aggregate m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRGT1D ! Graupel m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRTH1D ! Hail m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRHT1D ! Hail m.r. at t
!
REAL, DIMENSION(:), INTENT(IN) :: PCCT1D ! Cloud water conc. at t
REAL, DIMENSION(:), INTENT(IN) :: PCRT1D ! Rain water conc. at t
REAL, DIMENSION(:), INTENT(IN) :: PCIT1D ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST1D ! Snow/aggregate conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCGT1D ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCHT1D ! Hail conc. at t
!
REAL, DIMENSION(:), INTENT(INOUT) :: PRCS1D ! Cloud water m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: PRRS1D ! Rain water m.r. source
@@ -54,9 +57,13 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PTHS1D ! Theta source
REAL, DIMENSION(:), INTENT(INOUT) :: PCCS1D ! Cloud water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: PCRS1D ! Rain water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: PCIS1D ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCSS1D ! Snow/aggregate conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCGS1D ! Graupel conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCHS1D ! Hail conc. source
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDAC ! Slope param of the cloud droplet distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAR ! Slope param of the raindrop distr
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAI ! Slope param of the ice distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAS ! Slope param of the aggregate distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAG ! Slope param of the graupel distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAH ! Slope param of the hail distr.
@@ -76,22 +83,25 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCRS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCSS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCHS
!
END SUBROUTINE LIMA_MIXED_FAST_PROCESSES
END INTERFACE
END MODULE MODI_LIMA_MIXED_FAST_PROCESSES
!
! ###############################################################################
- SUBROUTINE LIMA_MIXED_FAST_PROCESSES (PRHODREF, PZT, PPRES, PTSTEP, &
- PLSFACT, PLVFACT, PKA, PDV, PCJ, &
- PRVT1D, PRCT1D, PRRT1D, PRIT1D, PRST1D, &
- PRGT1D, PRTH1D, PCCT1D, PCRT1D, PCIT1D, &
- PRCS1D, PRRS1D, PRIS1D, PRSS1D, PRGS1D, &
- PRHS1D, PTHS1D, PCCS1D, PCRS1D, PCIS1D, &
- PLBDAC, PLBDAR, PLBDAS, PLBDAG, PLBDAH, &
- PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
- PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
- PCCS, PCRS, PCIS )
+ SUBROUTINE LIMA_MIXED_FAST_PROCESSES (PRHODREF, PZT, PPRES, PTSTEP, &
+ PLSFACT, PLVFACT, PKA, PDV, PCJ, &
+ PRVT1D, PRCT1D, PRRT1D, PRIT1D, PRST1D, PRGT1D, &
+ PRHT1D, PCCT1D, PCRT1D, PCIT1D, PCST1D, PCGT1D, PCHT1D, &
+ PRCS1D, PRRS1D, PRIS1D, PRSS1D, PRGS1D, PRHS1D, &
+ PTHS1D, PCCS1D, PCRS1D, PCIS1D, PCSS1D, PCGS1D, PCHS1D, &
+ PLBDAC, PLBDAR, PLBDAI, PLBDAS, PLBDAG, PLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
+ PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
+ PCCS, PCRS, PCIS, PCSS, PCGS, PCHS )
! ###############################################################################
!
!!
@@ -146,6 +156,7 @@ END MODULE MODI_LIMA_MIXED_FAST_PROCESSES
! - change the name of some arguments to match the DOCTOR norm
! - change conditions for HMG to occur
! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -184,12 +195,15 @@ REAL, DIMENSION(:), INTENT(IN) :: PRCT1D ! Cloud water m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRRT1D ! Rain water m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRIT1D ! Pristine ice m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRST1D ! Snow/aggregate m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRGT1D ! Graupel/hail m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRTH1D ! Hail m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT1D ! Graupel m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRHT1D ! Hail m.r. at t
!
REAL, DIMENSION(:), INTENT(IN) :: PCCT1D ! Cloud water conc. at t
REAL, DIMENSION(:), INTENT(IN) :: PCRT1D ! Rain water conc. at t
REAL, DIMENSION(:), INTENT(IN) :: PCIT1D ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST1D ! Snow/aggregate conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCGT1D ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCHT1D ! Hail conc. at t
!
REAL, DIMENSION(:), INTENT(INOUT) :: PRCS1D ! Cloud water m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: PRRS1D ! Rain water m.r. source
@@ -203,9 +217,13 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PTHS1D ! Theta source
REAL, DIMENSION(:), INTENT(INOUT) :: PCCS1D ! Cloud water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: PCRS1D ! Rain water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: PCIS1D ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCSS1D ! Snow/aggregate conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCGS1D ! Graupel conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCHS1D ! Hail conc. source
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDAC ! Slope param of the cloud droplet distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAR ! Slope param of the raindrop distr
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAI ! Slope param of the ice distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAS ! Slope param of the aggregate distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAG ! Slope param of the graupel distr.
REAL, DIMENSION(:), INTENT(IN) :: PLBDAH ! Slope param of the hail distr.
@@ -214,7 +232,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDAH ! Slope param of the hail distr.
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
LOGICAL, DIMENSION(:,:,:), INTENT(IN) :: GMICRO
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ
-INTEGER, INTENT(IN) :: KMI
+INTEGER, INTENT(IN) :: KMI
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRS
@@ -225,7 +243,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCRS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
-
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCSS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCHS
!
!* 0.2 Declarations of local variables :
!
@@ -234,9 +254,10 @@ INTEGER :: IGRIM, IGACC, IGDRY, IGWET, IHAIL
INTEGER :: JJ
INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1,IVEC2 ! Vectors of indices
REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
-REAL, DIMENSION(SIZE(PZT)) :: ZZW, ZZX
-REAL, DIMENSION(SIZE(PZT)) :: ZRDRYG, ZRWETG
-REAL, DIMENSION(SIZE(PZT),7) :: ZZW1
+REAL, DIMENSION(SIZE(PZT)) :: ZZW, ZZX, ZZNW
+REAL, DIMENSION(SIZE(PRIT1D)) :: ZZDI, ZZDC
+REAL, DIMENSION(SIZE(PZT)) :: ZRDRYG, ZRWETG, ZNWETG
+REAL, DIMENSION(SIZE(PZT),7) :: ZZW1, ZZNW1
REAL :: NHAIL
REAL :: ZTHRH, ZTHRC
!
@@ -251,7 +272,7 @@ INTEGER, PARAMETER :: I_SEED_PARAM = 26032012
INTEGER, DIMENSION(:), ALLOCATABLE :: I_SEED
INTEGER :: NI_SEED
!
-REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_S, ZVEC1_S1, ZVEC1_S2, & ! Work vectors
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_S, ZVEC1_SW, ZVEC1_S1, ZVEC1_S2, & ! Work vectors
ZVEC1_S3, ZVEC1_S4, &
ZVEC1_S11, ZVEC1_S12, & ! for snow
ZVEC1_S21, ZVEC1_S22, &
@@ -282,10 +303,14 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZNI_RDSF,ZRI_RDSF ! RDSF rates
REAL, DIMENSION(:), ALLOCATABLE :: ZAUX ! used to distribute
REAL, DIMENSION(:,:), ALLOCATABLE :: ZFACT ! the total concentration in each shape
REAL, DIMENSION(:), ALLOCATABLE :: ZONEOVER_VAR ! for optimization
+LOGICAL :: M2_ICE
!
!
!-------------------------------------------------------------------------------
!
+M2_ICE = NMOM_S.GE.2 .AND. NMOM_G.GE.2
+IF (LHAIL) M2_ICE = M2_ICE .AND. NMOM_H.GE.2
+!
! #################
! FAST RS PROCESSES
! #################
@@ -299,6 +324,7 @@ SNOW: IF (LSNOW) THEN
ZZW1(:,:) = 0.0
!
GRIM(:) = (PRCT1D(:)>XRTMIN(2)) .AND. (PRST1D(:)>XRTMIN(5)) .AND. (PRCS1D(:)>XRTMIN(2)/PTSTEP) .AND. (PZT(:)<XTT)
+IF (NMOM_S.GE.2) GRIM(:) = GRIM(:) .AND. (PCST1D(:)>XCTMIN(5))
IGRIM = COUNT( GRIM(:) )
!
IF( IGRIM>0 ) THEN
@@ -313,6 +339,10 @@ IF( IGRIM>0 ) THEN
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'RIM', &
Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'RIM', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'RIM', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
! 1.1.0 allocations
@@ -345,16 +375,16 @@ IF( IGRIM>0 ) THEN
! 1.1.4 riming of the small sized aggregates
!
WHERE ( GRIM(:) )
- ZZW1(:,1) = MIN( PRCS1D(:), &
- XCRIMSS * ZZW(:) * PRCT1D(:) & ! RCRIMSS
- * PRST1D(:)*(1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEXCRIMSS/XALPHAS) &
- * PRHODREF(:)**(-XCEXVT+1) &
- * (PLBDAS(:)) ** (XEXCRIMSS+XBS) )
- PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
- PRSS1D(:) = PRSS1D(:) + ZZW1(:,1)
- PTHS1D(:) = PTHS1D(:) + ZZW1(:,1) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*(RCRIMSS))
-!
- PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,1)*(PCCT1D(:)/PRCT1D(:)),0.0 ) ! Lambda_c**3
+ ZZW1(:,1) = MIN( PRCS1D(:), &
+ XCRIMSS * ZZW(:) * PRCT1D(:) * PCST1D(:) &
+ * PLBDAS(:)**XEXCRIMSS &
+ * (1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEXCRIMSS/XALPHAS) &
+ * PRHODREF(:)**(-XCEXVT) )
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
+ PRSS1D(:) = PRSS1D(:) + ZZW1(:,1)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,1)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RCRIMSS))
+!
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,1)*(PCCT1D(:)/PRCT1D(:)),0.0 ) ! Lambda_c**3
END WHERE
!
! 1.1.5 perform the linear interpolation of the normalized
@@ -366,20 +396,23 @@ IF( IGRIM>0 ) THEN
!
! 1.1.6 riming-conversion of the large sized aggregates into graupeln
!
- WHERE ( GRIM(:) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) )
- ZZW1(:,2) = MIN( PRCS1D(:), &
- XCRIMSG * PRCT1D(:)* PRST1D(:) & ! RCRIMSG
- *(1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEXCRIMSG/XALPHAS)*PLBDAS(:)**(XBS+XEXCRIMSG) &
- * PRHODREF(:)**(-XCEXVT+1) &
- - ZZW1(:,1) )
- ZZW1(:,3) = MIN( PRSS1D(:), &
- XSRIMCG * XNS * PRST1D(:) * (1.0 - ZZW(:))/PTSTEP )
- PRCS1D(:) = PRCS1D(:) - ZZW1(:,2)
- PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
- PRGS1D(:) = PRGS1D(:) + ZZW1(:,2) + ZZW1(:,3)
- PTHS1D(:) = PTHS1D(:) + ZZW1(:,2) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*(RCRIMSG))
- !
- PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,2)*(PCCT1D(:)/PRCT1D(:)),0.0 ) ! Lambda_c**3
+ WHERE ( GRIM(:) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) .AND. (PCSS1D(:)>XCTMIN(5)/PTSTEP))
+ ZZW1(:,2) = MIN( PRCS1D(:), &
+ XCRIMSG * PRCT1D(:) * PCST1D(:) & ! RCRIMSG
+ * PLBDAS(:)**XEXCRIMSG*(1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEXCRIMSG/XALPHAS) &
+ * PRHODREF(:)**(-XCEXVT) &
+ - ZZW1(:,1) )
+ ZZW1(:,3) = MIN( PRSS1D(:), PCST1D(:) * &
+ XSRIMCG * PLBDAS(:)**XEXSRIMCG & ! RSRIMCG
+ * (1.0 - ZZW(:) )/PTSTEP)
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRGS1D(:) = PRGS1D(:) + ZZW1(:,2) + ZZW1(:,3)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,2)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RCRIMSG))
+!
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,2)*(PCCT1D(:)/PRCT1D(:)),0.0 ) ! Lambda_c**3
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZW1(:,3)*(PCST1D(:)/PRST1D(:)),0.0 )
+ PCGS1D(:) = MAX( PCGS1D(:)+ZZW1(:,3)*(PCST1D(:)/PRST1D(:)),0.0 ) !
END WHERE
DEALLOCATE(IVEC2)
DEALLOCATE(IVEC1)
@@ -398,6 +431,10 @@ IF( IGRIM>0 ) THEN
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'RIM', &
Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'RIM', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'RIM', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
END IF
!
@@ -518,6 +555,7 @@ IF (ICIBU > 0) THEN
! 1.3.1.0 allocations
!
ALLOCATE(ZVEC1_S(ICIBU))
+ ALLOCATE(ZVEC1_SW(ICIBU))
ALLOCATE(ZVEC1_S1(ICIBU))
ALLOCATE(ZVEC1_S2(ICIBU))
ALLOCATE(ZVEC1_S3(ICIBU))
@@ -539,6 +577,7 @@ IF (ICIBU > 0) THEN
! 1.3.1.1 select the PLBDAS
!
ZVEC1_S(:) = PACK( PLBDAS(:),MASK=GCIBU(:) )
+ ZVEC1_SW(:)= ( XFVELOS**XALPHAS + ZVEC1_S(:)**XALPHAS ) ** (1./XALPHAS) ! modified equivalent lambda
!
!
! 1.3.1.2 find the next lower indice for the PLBDAS in the
@@ -577,29 +616,53 @@ IF (ICIBU > 0) THEN
!
!
! 1.3.1.5 perform the linear interpolation of the
-! normalized "XDS"-moment of the incomplete gamma function
+! normalized "XBS"-moment of the incomplete gamma function
!
! For lower boundary (0.2 mm)
- ZVEC1_S21(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
- - XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+ ZVEC1_S31(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
!
! For upper boundary (1 mm)
- ZVEC1_S22(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
- - XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+ ZVEC1_S32(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
!
! From 0.2 mm to 1 mm we need
- ZVEC1_S2(1:ICIBU) = XMOMGS_CIBU_1 * (ZVEC1_S22(1:ICIBU) - ZVEC1_S21(1:ICIBU))
+ ZVEC1_S3(1:ICIBU) = XMOMGS_CIBU_2 * (ZVEC1_S32(1:ICIBU) - ZVEC1_S31(1:ICIBU))
+!
+!
+! 1.3.1.2 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 1 (0.2 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S1(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP1_S ) )
+ IVEC2_S1(1:ICIBU) = INT( ZVEC2_S1(1:ICIBU) )
+ ZVEC2_S1(1:ICIBU) = ZVEC2_S1(1:ICIBU) - FLOAT( IVEC2_S1(1:ICIBU) )
+!
+!
+! 1.3.1.3 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 2 (1 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S2(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP2_S ) )
+ IVEC2_S2(1:ICIBU) = INT( ZVEC2_S2(1:ICIBU) )
+ ZVEC2_S2(1:ICIBU) = ZVEC2_S2(1:ICIBU) - FLOAT( IVEC2_S2(1:ICIBU) )
+!
+!
+! 1.3.1.5 perform the linear interpolation of the
+! normalized "XDS"-moment of the incomplete gamma function
!
! For lower boundary (0.2 mm)
- ZVEC1_S31(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
- - XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+ ZVEC1_S21(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
!
! For upper boundary (1 mm)
- ZVEC1_S32(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
- - XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+ ZVEC1_S22(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
!
! From 0.2 mm to 1 mm we need
- ZVEC1_S3(1:ICIBU) = XMOMGS_CIBU_2 * (ZVEC1_S32(1:ICIBU) - ZVEC1_S31(1:ICIBU))
+ ZVEC1_S2(1:ICIBU) = XMOMGS_CIBU_1 * (ZVEC1_S22(1:ICIBU) - ZVEC1_S21(1:ICIBU))
!
!
! 1.3.1.6 perform the linear interpolation of the
@@ -686,12 +749,13 @@ IF (ICIBU > 0) THEN
ALLOCATE(ZFRAG_CIBU(SIZE(PZT)))
!
ZFRAG_CIBU(:) = UNPACK ( VECTOR=ZFRAGMENTS(:),MASK=GCIBU,FIELD=0.0 )
- ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PRST1D(:) / (PRHODREF(:)**XCEXVT)) * &
+ ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PCST1D(:) * PCGT1D(:) / (PRHODREF(:)**XCEXVT)) * &
(XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_1(:) * &
- PLBDAS(:)**(XBS) * PLBDAG(:)**(XCXG-(XDG+2.0)) &
+ PLBDAG(:)**(-(XDG+2.0)) &
- XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_2(:) * &
- PLBDAS(:)**(-XDS+XBS) * PLBDAG(:)**(XCXG-2.0) * &
+ PLBDAS(:)**(-XDS) * PLBDAG(:)**(-2.0) * &
(1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS-XDS/XALPHAS) )
+
PCIS1D(:) = PCIS1D(:) + MAX(ZNI_CIBU(:), 0.)
!
DEALLOCATE(ZFRAG_CIBU)
@@ -699,17 +763,17 @@ IF (ICIBU > 0) THEN
!
! Max value of rs removed by CIBU
ALLOCATE(ZRI_CIBU(SIZE(PZT)))
- ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PRST1D(:) / (PRHODREF(:)**XCEXVT)) * &
+ ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PCST1D(:) * PCGT1D(:) / (PRHODREF(:)**XCEXVT)) * &
(XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_3(:) * &
- PLBDAG(:)**(XCXG-(XDG+2.0)) &
+ PLBDAS(:)**(-XBS) * PLBDAG(:)**(-(XDG+2.0)) &
- XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_4(:) * &
- PLBDAS(:)**(-XDS) * PLBDAG(:)**(XCXG-2.0) * &
+ PLBDAS(:)**(-XBS-XDS) * PLBDAG(:)**(-2.0) * &
(1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS-(XBS+XDS)/XALPHAS) )
!
! The value of rs removed by CIBU is determined by the mean mass of pristine ice
WHERE( PRIT1D(:)>XRTMIN(4) .AND. PCIT1D(:)>XCTMIN(4) )
ZRI_CIBU(:) = MIN( ZRI_CIBU(:), PRSS1D(:), ZNI_CIBU(:)*PRIT1D(:)/PCIT1D(:) )
- ELSE WHERE
+ ELSEWHERE
ZRI_CIBU(:) = MIN( ZRI_CIBU(:), PRSS1D(:), MAX( ZNI_CIBU(:)*XMNU0,XRTMIN(4) ) )
END WHERE
!
@@ -717,6 +781,7 @@ IF (ICIBU > 0) THEN
PRSS1D(:) = PRSS1D(:) - MAX(ZRI_CIBU(:), 0.) !
!
DEALLOCATE(ZVEC1_S)
+ DEALLOCATE(ZVEC1_SW)
DEALLOCATE(ZVEC1_S1)
DEALLOCATE(ZVEC1_S2)
DEALLOCATE(ZVEC1_S3)
@@ -780,6 +845,10 @@ IF( IGACC>0 .AND. LRAIN) THEN
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'ACC', &
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'ACC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'ACC', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
! 1.4.0 allocations
@@ -792,7 +861,11 @@ IF( IGACC>0 .AND. LRAIN) THEN
!
! 1.4.1 select the (PLBDAS,PLBDAR) couplet
!
- ZVEC1(:) = PACK( PLBDAS(:),MASK=GACC(:) )
+ if (M2_ICE) then
+ ZVEC1(:) = PACK( MAX(MIN(PLBDAS(:),5.E5),5.E1),MASK=GACC(:) )
+ else
+ ZVEC1(:) = PACK( PLBDAS(:),MASK=GACC(:) )
+ end if
ZVEC2(:) = PACK( PLBDAR(:),MASK=GACC(:) )
!
! 1.4.2 find the next lower indice for the PLBDAS and for the PLBDAR
@@ -821,21 +894,44 @@ IF( IGACC>0 .AND. LRAIN) THEN
* (ZVEC1(JJ) - 1.0)
END DO
ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
+ DEALLOCATE(ZVEC3)
+ ALLOCATE(ZVEC3(IGACC))
+!
+!
+! 1.4.3b perform the bilinear interpolation of the normalized
+! RACCSS-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_RACCSS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCSS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_RACCSS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCSS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
!
! 1.4.4 raindrop accretion on the small sized aggregates
!
WHERE ( GACC(:) )
- ZZW1(:,2) = PCRT1D(:) * & !! coef of RRACCS
- XFRACCSS*( PRST1D(:)*PLBDAS(:)**XBS )*( PRHODREF(:)**(1-XCEXVT) ) &
- *( XLBRACCS1/((PLBDAS(:)**2) ) + &
- XLBRACCS2/( PLBDAS(:) * PLBDAR(:) ) + &
- XLBRACCS3/( (PLBDAR(:)**2)) )/PLBDAR(:)**XBR
- ZZW1(:,4) = MIN( PRRS1D(:),ZZW1(:,2)*ZZW(:) ) ! RRACCSS
- PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
- PRSS1D(:) = PRSS1D(:) + ZZW1(:,4)
- PTHS1D(:) = PTHS1D(:) + ZZW1(:,4) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*(RRACCSS))
-!
- PCRS1D(:) = MAX( PCRS1D(:)-ZZW1(:,4)*(PCRT1D(:)/PRRT1D(:)),0.0 ) ! Lambda_r**3
+ ZZW1(:,2) = PCRT1D(:) * & !! coef of RRACCS
+ XFRACCSS*( PCST1D(:) )*( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBRACCS1/((PLBDAS(:)**2) ) + &
+ XLBRACCS2/( PLBDAS(:) * PLBDAR(:) ) + &
+ XLBRACCS3/( (PLBDAR(:)**2)) )/PLBDAR(:)**3
+!
+ ZZNW1(:,2) = PCRT1D(:) * & !! coef of CRACCS
+ XFNRACCSS*( PCST1D(:) )*( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNRACCS1/((PLBDAS(:)**2) ) + &
+ XLBNRACCS2/( PLBDAS(:) * PLBDAR(:) ) + &
+ XLBNRACCS3/( (PLBDAR(:)**2)) )
+ ZZW1(:,4) = MIN( PRRS1D(:),ZZW1(:,2)*ZZW(:) ) ! RRACCSS
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
+ PRSS1D(:) = PRSS1D(:) + ZZW1(:,4)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,4)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RRACCSS))
+!
+ ZZNW1(:,4) = MIN( PCRS1D(:),ZZNW1(:,2)*ZZNW(:) ) ! NRACCSS
+ PCRS1D(:) = PCRS1D(:)-ZZNW1(:,4)
END WHERE
!
! 1.4.4b perform the bilinear interpolation of the normalized
@@ -850,6 +946,19 @@ IF( IGACC>0 .AND. LRAIN) THEN
* (ZVEC1(JJ) - 1.0)
END DO
ZZW1(:,2) = ZZW1(:,2)*UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! RRACCS
+!
+! 1.3.4b2 perform the bilinear interpolation of the normalized
+! RACCS-kernel
+!
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_RACCS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_RACCS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW1(:,2) = ZZNW1(:,2)*UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! NRACCS
!
! 1.4.5 perform the bilinear interpolation of the normalized
! SACCRG-kernel
@@ -864,28 +973,49 @@ IF( IGACC>0 .AND. LRAIN) THEN
END DO
ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
!
+! 1.3.5b perform the bilinear interpolation of the normalized
+! SACCRG-kernel
+!
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_SACCRG(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SACCRG(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * ZVEC2(JJ) &
+ - ( XKER_N_SACCRG(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SACCRG(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * (ZVEC2(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
+!
! 1.4.6 raindrop accretion-conversion of the large sized aggregates
! into graupeln
!
- WHERE ( GACC(:) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) )
- ZZW1(:,2) = MAX( MIN( PRRS1D(:),ZZW1(:,2)-ZZW1(:,4) ) , 0. ) ! RRACCSG
- ZZW1(:,3) = MIN( PRSS1D(:),PCRT1D(:)*XFSACCRG*ZZW(:)* & ! RSACCRG
- ( PRST1D(:) )*( PRHODREF(:)**(1-XCEXVT) ) &
- *( XLBSACCR1/((PLBDAR(:)**2) ) + &
- XLBSACCR2/( PLBDAR(:) * PLBDAS(:) ) + &
- XLBSACCR3/( (PLBDAS(:)**2)) ) )
- PRRS1D(:) = PRRS1D(:) - ZZW1(:,2)
- PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
- PRGS1D(:) = PRGS1D(:) + ZZW1(:,2) + ZZW1(:,3)
- PTHS1D(:) = PTHS1D(:) + ZZW1(:,2) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*(RRACCSG))
-!
- PCRS1D(:) = MAX( PCRS1D(:)-ZZW1(:,2)*(PCRT1D(:)/PRRT1D(:)),0.0 ) ! Lambda_r**3
+ WHERE ( GACC(:) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) .AND. (PCSS1D(:)>XCTMIN(5)/PTSTEP) )
+ ZZW1(:,2) = MAX( MIN( PRRS1D(:),ZZW1(:,2)-ZZW1(:,4) ) , 0. ) ! RRACCSG
+ ZZNW1(:,2) = MAX( MIN( PCRS1D(:),ZZNW1(:,2)-ZZNW1(:,4) ) , 0. ) ! NRACCSG
+ ZZW1(:,3) = MIN( PRSS1D(:),PCRT1D(:)*XFSACCRG*ZZW(:)* PCST1D(:) * & ! RSACCRG
+ PLBDAS(:)**(-XBS) * ( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBSACCR1/((PLBDAR(:)**2) ) + &
+ XLBSACCR2/( PLBDAR(:) * PLBDAS(:) ) + &
+ XLBSACCR3/( (PLBDAS(:)**2)) ) )
+ ZZNW1(:,3) = MIN( PCSS1D(:),PCRT1D(:)*XFNSACCRG*ZZNW(:)* PCST1D(:) * & ! NSACCRG
+ ( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNSACCR1/((PLBDAR(:)**2) ) + &
+ XLBNSACCR2/( PLBDAR(:) * PLBDAS(:) ) + &
+ XLBNSACCR3/( (PLBDAS(:)**2)) ) )
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRGS1D(:) = PRGS1D(:) + ZZW1(:,2)+ZZW1(:,3)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,2)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RRACCSG))
+!
+ PCRS1D(:) = PCRS1D(:)-ZZNW1(:,2) !
+ PCSS1D(:) = PCSS1D(:)-ZZNW1(:,3)
+ PCGS1D(:) = PCGS1D(:)+ZZNW1(:,3)
END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC3)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
@@ -899,6 +1029,10 @@ IF( IGACC>0 .AND. LRAIN) THEN
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'ACC', &
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'ACC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'ACC', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
END IF
!
@@ -911,30 +1045,34 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'CMEL', &
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2 .and. NMOM_G.GE.2 ) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CMEL', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CMEL', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
!
ZZW(:) = 0.0
WHERE( (PRST1D(:)>XRTMIN(5)) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) .AND. (PZT(:)>XTT) )
- ZZW(:) = PRVT1D(:) * PPRES(:) / ((XMV / XMD) + PRVT1D(:)) ! Vapor pressure
- ZZW(:) = PKA(:) * (XTT - PZT(:)) + &
- ( PDV(:) * (XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
- * (XESTT-ZZW(:))/(XRV*PZT(:)) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RSMLT
!
- ZZW(:) = MIN( PRSS1D(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * &
- PRST1D(:)*( X0DEPS* PLBDAS(:)**XEX0DEPS + &
- X1DEPS*PCJ(:)*(1+0.5*(XFVELOS/PLBDAS(:))**XALPHAS) &
- **(-XNUS+XEX1DEPS/XALPHAS)*(PLBDAS(:))**(XEX1DEPS+XBS))- &
+ ZZW(:) = MIN( PRSS1D(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * PCST1D(:) * &
+ ( X0DEPS* PLBDAS(:)**XEX0DEPS + &
+ X1DEPS*PCJ(:)*PLBDAS(:)**XEX1DEPS * &
+ (1+0.5*(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) ) - &
( ZZW1(:,1)+ZZW1(:,4) ) * &
( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
( PRHODREF(:)*XLMTT ) ) )
-!
-! note that RSCVMG = RSMLT*XFSCVMG but no heat is exchanged (at the rate RSMLT)
-! because the graupeln produced by this process are still icy!!!
-!
- PRSS1D(:) = PRSS1D(:) - ZZW(:)
- PRGS1D(:) = PRGS1D(:) + ZZW(:)
+ PRSS1D(:) = PRSS1D(:) - ZZW(:)
+ PRGS1D(:) = PRGS1D(:) + ZZW(:)
+ PCSS1D(:) = MAX( PCSS1D(:) - ZZW(:)*(MAX(PCST1D(:),XCTMIN(5))/MAX(PRST1D(:),XRTMIN(5))), 0.0 )
+ PCGS1D(:) = MAX( PCGS1D(:) + ZZW(:)*(MAX(PCST1D(:),XCTMIN(5))/MAX(PRST1D(:),XRTMIN(5))), 0.0 )
END WHERE
!
! Budget storage
@@ -943,6 +1081,12 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'CMEL', &
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2 .AND. NMOM_G.GE.2) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CMEL', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CMEL', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
END IF SNOW
@@ -970,24 +1114,27 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CFRZ', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CFRZ', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
ZZW1(:,3:4) = 0.0
WHERE( (PRIT1D(:)>XRTMIN(4)) .AND. (PRRT1D(:)>XRTMIN(3)) .AND. (PRIS1D(:)>XRTMIN(4)/PTSTEP) .AND. (PRRS1D(:)>XRTMIN(3)/PTSTEP) )
- ZZW1(:,3) = MIN( PRIS1D(:),XICFRR * PRIT1D(:) * PCRT1D(:) & ! RICFRRG
- * PLBDAR(:)**XEXICFRR &
- * PRHODREF(:)**(-XCEXVT-1.0) )
-!
- ZZW1(:,4) = MIN( PRRS1D(:),XRCFRI * PCIT1D(:) * PCRT1D(:) & ! RRCFRIG
- * PLBDAR(:)**XEXRCFRI &
- * PRHODREF(:)**(-XCEXVT-2.0) )
- PRIS1D(:) = PRIS1D(:) - ZZW1(:,3)
- PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
- PRGS1D(:) = PRGS1D(:) + ZZW1(:,3) + ZZW1(:,4)
- PTHS1D(:) = PTHS1D(:) + ZZW1(:,4) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*RRCFRIG)
-!
- PCIS1D(:) = MAX( PCIS1D(:)-ZZW1(:,3)*(PCIT1D(:)/PRIT1D(:)),0.0 ) ! CICFRRG
- PCRS1D(:) = MAX( PCRS1D(:)-ZZW1(:,4)*(PCRT1D(:)/PRRT1D(:)),0.0 ) ! CRCFRIG
+ ZZW1(:,3) = MIN( PRIS1D(:),XICFRR * PRIT1D(:) * PCRT1D(:) & ! RICFRRG
+ * PLBDAR(:)**XEXICFRR &
+ * PRHODREF(:)**(-XCEXVT-1.0) )
+!
+ ZZW1(:,4) = MIN( PRRS1D(:),XRCFRI * PCIT1D(:) * PCRT1D(:) & ! RRCFRIG
+ * PLBDAR(:)**XEXRCFRI &
+ * PRHODREF(:)**(-XCEXVT-2.0) )
+ PRIS1D(:) = PRIS1D(:) - ZZW1(:,3)
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
+ PRGS1D(:) = PRGS1D(:) + ZZW1(:,3)+ZZW1(:,4)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,4)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*RRCFRIG)
+!
+ PCIS1D(:) = MAX( PCIS1D(:)-ZZW1(:,3)*(PCIT1D(:)/PRIT1D(:)),0.0 ) ! CICFRRG
+ PCRS1D(:) = MAX( PCRS1D(:)-ZZW1(:,4)*(PCRT1D(:)/PRRT1D(:)),0.0 ) ! CRCFRIG
+ PCGS1D(:) = PCGS1D(:)+ZZW1(:,3)*(PCIT1D(:)/PRIT1D(:))
END WHERE
!
if ( nbumod == kmi .and. lbu_enable ) then
@@ -1003,6 +1150,8 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CFRZ', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2 ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CFRZ', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -1115,22 +1264,34 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETG', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if(M2_ICE) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ if (LHAIL) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'WETG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
!
ZZW1(:,:) = 0.0
-WHERE( ((PRCT1D(:)>XRTMIN(2)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRCS1D(:)>XRTMIN(2)/PTSTEP)) .OR. &
- ((PRIT1D(:)>XRTMIN(4)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRIS1D(:)>XRTMIN(4)/PTSTEP)) )
- ZZW(:) = PLBDAG(:)**(XCXG-XDG-2.0) * PRHODREF(:)**(-XCEXVT)
- ZZW1(:,1) = MIN( PRCS1D(:),XFCDRYG * PRCT1D(:) * ZZW(:) ) ! RCDRYG
- ZZW1(:,2) = MIN( PRIS1D(:),XFIDRYG * EXP( XCOLEXIG*(PZT(:)-XTT) ) &
- * PRIT1D(:) * ZZW(:) ) ! RIDRYG
+ZZNW1(:,:) = 0.0
+WHERE( ((PRCT1D(:)>XRTMIN(2)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRCS1D(:)>XRTMIN(2)/PTSTEP)) .OR. &
+ ((PRIT1D(:)>XRTMIN(4)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRIS1D(:)>XRTMIN(4)/PTSTEP)) )
+ ZZW(:) = PLBDAG(:)**(-XDG-2.0) * PRHODREF(:)**(-XCEXVT) * PCGT1D(:)
+ ZZW1(:,1) = MIN( PRCS1D(:),XFCDRYG * PRCT1D(:) * ZZW(:) ) ! RCDRYG
+ ZZNW1(:,1) = MIN( PCCS1D(:),ZZW1(:,1) * PCCT1D(:) / MAX(PRCT1D(:),XRTMIN(2)) )
+ ZZW1(:,2) = MIN( PRIS1D(:),XFIDRYG * EXP( XCOLEXIG*(PZT(:)-XTT) ) &
+ * PRIT1D(:) * ZZW(:) ) ! RIDRYG
+ ZZNW1(:,2) = MIN( PCIS1D(:),ZZW1(:,2) * PCIT1D(:) / MAX(PRIT1D(:),XRTMIN(4)) )
END WHERE
!
!* 2.3.1 accretion of aggregates on the graupeln
! ----------------------------------------------
!
GDRY(:) = (PRST1D(:)>XRTMIN(5)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP)
+if (M2_ICE) GDRY(:) = GDRY(:) .AND. (PCST1D(:)>XCTMIN(5)) .AND. PCSS1D(:)>XCTMIN(5)/PTSTEP
IGDRY = COUNT( GDRY(:) )
!
IF( IGDRY>0 ) THEN
@@ -1176,13 +1337,38 @@ IF( IGDRY>0 ) THEN
ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
!
WHERE( GDRY(:) )
- ZZW1(:,3) = MIN( PRSS1D(:),XFSDRYG*ZZW(:) & ! RSDRYG
+ ZZW1(:,3) = MIN( PRSS1D(:),XFSDRYG*ZZW(:) & ! RSDRYG
* EXP( XCOLEXSG*(PZT(:)-XTT) ) &
- *( PRST1D(:)) )*( PLBDAG(:)**XCXG ) &
- *( PRHODREF(:)**(-XCEXVT) ) &
+ *( PRST1D(:) )*( PCGT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
*( XLBSDRYG1/( PLBDAG(:)**2 ) + &
XLBSDRYG2/( PLBDAG(:) * PLBDAS(:) ) + &
- XLBSDRYG3/( PLBDAS(:)**2) )
+ XLBSDRYG3/( PLBDAS(:)**2) ) )
+ END WHERE
+!
+!
+!* 2.2.5b perform the bilinear interpolation of the normalized
+! SDRYG-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGDRY
+ ZVEC3(JJ) = ( XKER_N_SDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
+!
+ WHERE( GDRY(:) )
+ ZZNW1(:,3) = MIN( PCSS1D(:),XFNSDRYG*ZZNW(:) & ! NSDRYG
+ * EXP( XCOLEXSG*(PZT(:)-XTT) ) &
+ *( PCST1D(:) )*( PCGT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNSDRYG1/( PLBDAG(:)**2 ) + &
+ XLBNSDRYG2/( PLBDAG(:) * PLBDAS(:) ) + &
+ XLBNSDRYG3/( PLBDAS(:)**2)) )
+!
END WHERE
DEALLOCATE(IVEC2)
DEALLOCATE(IVEC1)
@@ -1240,12 +1426,33 @@ IF( IGDRY>0 ) THEN
ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
!
WHERE( GDRY(:) )
- ZZW1(:,4) = MIN( PRRS1D(:),XFRDRYG*ZZW(:) * PCRT1D(:) & ! RRDRYG
- *( PLBDAR(:)**(-3) )*( PLBDAG(:)**XCXG ) &
- *( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRDRYG1/( PLBDAG(:)**2 ) + &
- XLBRDRYG2/( PLBDAG(:) * PLBDAR(:) ) + &
- XLBRDRYG3/( PLBDAR(:)**2) ) )
+ ZZW1(:,4) = MIN( PRRS1D(:),XFRDRYG*ZZW(:) * PRRT1D(:) * PCGT1D(:) & !
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBRDRYG1/( PLBDAG(:)**2 ) + &
+ XLBRDRYG2/( PLBDAG(:) * PLBDAR(:) ) + &
+ XLBRDRYG3/( PLBDAR(:)**2) ) )
+ END WHERE
+!
+!
+!* 2.2.10b perform the bilinear interpolation of the normalized
+! RDRYG-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGDRY
+ ZVEC3(JJ) = ( XKER_N_RDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_RDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
+!
+ WHERE( GDRY(:) )
+ ZZNW1(:,4) = MIN( PCRS1D(:),XFNRDRYG*ZZNW(:) * PCRT1D(:) * PCGT1D(:) & ! NRDRYG
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNRDRYG1/( PLBDAG(:)**2 ) + &
+ XLBNRDRYG2/( PLBDAG(:) * PLBDAR(:) ) + &
+ XLBNRDRYG3/( PLBDAR(:)**2) ) )
END WHERE
DEALLOCATE(IVEC2)
DEALLOCATE(IVEC1)
@@ -1263,24 +1470,30 @@ ZRDRYG(:) = ZZW1(:,1) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,4)
ZZW(:) = 0.0
ZRWETG(:) = 0.0
WHERE( PRGT1D(:)>XRTMIN(6) )
- ZZW1(:,5) = MIN( PRIS1D(:), &
- ZZW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(PZT(:)-XTT)) ) ) ! RIWETG
- ZZW1(:,6) = MIN( PRSS1D(:), &
- ZZW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(PZT(:)-XTT)) ) ) ! RSWETG
-!
- ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
- ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
- ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*PZT(:)) )
-!
+ ZZW1(:,5) = MIN( PRIS1D(:), &
+ ZZW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(PZT(:)-XTT)) ) ) ! RIWETG
+ ZZNW1(:,5) = MIN( PCIS1D(:), &
+ ZZNW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(PZT(:)-XTT)) ) ) ! NIWETG
+ ZZW1(:,6) = MIN( PRSS1D(:), &
+ ZZW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(PZT(:)-XTT)) ) ) ! RSWETG
+!
+!
+ ZZNW1(:,6) = MIN( PCSS1D(:), &
+ ZZNW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(PZT(:)-XTT)) ) ) ! NSWETG
+!
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
+!
! compute RWETG
!
- ZRWETG(:) = MAX( 0.0, &
- ( ZZW(:) * ( X0DEPG* PLBDAG(:)**XEX0DEPG + &
- X1DEPG*PCJ(:)*PLBDAG(:)**XEX1DEPG ) + &
- ( ZZW1(:,5)+ZZW1(:,6) ) * &
- ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PZT(:))) ) ) / &
- ( PRHODREF(:)*(XLMTT-XCL*(XTT-PZT(:))) ) )
+ ZRWETG(:) = MAX( 0.0, &
+ ( ZZW(:) * PCGT1D(:) * ( X0DEPG* PLBDAG(:)**XEX0DEPG + &
+ X1DEPG*PCJ(:)*PLBDAG(:)**XEX1DEPG ) + &
+ ( ZZW1(:,5)+ZZW1(:,6) ) * &
+ ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PZT(:))) ) ) / &
+ ( PRHODREF(:)*(XLMTT-XCL*(XTT-PZT(:))) ) )
!We must agregate, at least, the cold species
ZRWETG(:)=MAX(ZRWETG(:), ZZW1(:,5)+ZZW1(:,6))
END WHERE
@@ -1305,7 +1518,9 @@ DO JJ=1, SIZE(PRGT1D)
ZZW1(JJ,7) = MAX( 0.0,MIN( ZZW(JJ),PRRS1D(JJ)+ZZW1(JJ,1) ) )
ZZX(JJ) = ZZW1(JJ,7) / ZZW(JJ)
ZZW1(JJ,5) = ZZW1(JJ,5)*ZZX(JJ)
+ ZZNW1(:,5) = ZZNW1(JJ,5)*ZZX(JJ)
ZZW1(JJ,6) = ZZW1(JJ,6)*ZZX(JJ)
+ ZZNW1(JJ,6) = ZZNW1(JJ,6)*ZZX(JJ)
ZRWETG(JJ) = ZZW1(JJ,7) + ZZW1(JJ,5) + ZZW1(JJ,6)
!
PRCS1D(JJ) = PRCS1D(JJ) - ZZW1(JJ,1)
@@ -1323,9 +1538,13 @@ DO JJ=1, SIZE(PRGT1D)
! f(L_f*(RCWETG+RRWETG))
!
PCCS1D(JJ) = MAX( PCCS1D(JJ)-ZZW1(JJ,1)*(PCCT1D(JJ)/MAX(PRCT1D(JJ),XRTMIN(2))),0.0 )
- PCIS1D(JJ) = MAX( PCIS1D(JJ)-ZZW1(JJ,5)*(PCIT1D(JJ)/MAX(PRIT1D(JJ),XRTMIN(4))),0.0 )
+ PCIS1D(JJ) = MAX( PCIS1D(JJ)-ZZNW1(JJ,5),0.0 )
PCRS1D(JJ) = MAX( PCRS1D(JJ)-MAX( ZZW1(JJ,7)-ZZW1(JJ,1),0.0 ) &
- *(PCRT1D(JJ)/MAX(PRRT1D(JJ),XRTMIN(3))),0.0 )
+ *(PCRT1D(JJ)/MAX(PRRT1D(JJ),XRTMIN(3))),0.0 )
+ PCSS1D(JJ) = MAX( PCSS1D(JJ)-ZZNW1(JJ,6),0.0 )
+ ZZNW(JJ) = PCGS1D(JJ)*ZRDRYG(JJ)*NHAIL/(ZRWETG(JJ)+ZRDRYG(JJ))
+ PCGS1D(JJ) = MAX( PCGS1D(JJ)-ZZNW(JJ),0.0 )
+ PCHS1D(JJ) = MAX( PCHS1D(JJ)+ZZNW(JJ),0.0 )
END IF
END DO
!
@@ -1352,6 +1571,14 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETG', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if(M2_ICE) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ if (LHAIL) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'WETG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
!
@@ -1377,23 +1604,25 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'DRYG', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'DRYG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
end if
!
-WHERE( PRGT1D(:)>XRTMIN(6) .AND. PZT(:)<XTT .AND. &
- (ZRDRYG(:)-ZZW1(:,2)-ZZW1(:,3))<(ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6)) .AND. ZRDRYG(:)>0.0 )
- PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
- PRIS1D(:) = PRIS1D(:) - ZZW1(:,2)
- PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
- PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
- PRGS1D(:) = PRGS1D(:) + ZRDRYG(:)
- PTHS1D(:) = PTHS1D(:) + (ZZW1(:,1)+ZZW1(:,4)) * (PLSFACT(:) - PLVFACT(:)) !
- ! f(L_f*(RCDRYG+RRDRYG))
-!
- PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,1)*(PCCT1D(:)/MAX(PRCT1D(:),XRTMIN(2))),0.0 )
- PCIS1D(:) = MAX( PCIS1D(:)-ZZW1(:,2)*(PCIT1D(:)/MAX(PRIT1D(:),XRTMIN(4))),0.0 )
- PCRS1D(:) = MAX( PCRS1D(:)-ZZW1(:,4)*(PCRT1D(:)/MAX(PRRT1D(:),XRTMIN(3))),0.0 )
- ! Approximate rates
+WHERE( PRGT1D(:)>XRTMIN(6) .AND. PZT(:)<XTT &
+ .AND. (ZRDRYG(:)-ZZW1(:,2)-ZZW1(:,3))<(ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6)) .AND. ZRDRYG(:)>0.0 ) ! case
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
+ PRIS1D(:) = PRIS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
+ PRGS1D(:) = PRGS1D(:) + ZRDRYG(:)
+ PTHS1D(:) = PTHS1D(:) + (ZZW1(:,1)+ZZW1(:,4))*(PLSFACT(:)-PLVFACT(:)) !
+ ! f(L_f*(RCDRYG+RRDRYG))
+!
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZNW1(:,1),0.0 )
+ PCIS1D(:) = MAX( PCIS1D(:)-ZZNW1(:,2),0.0 )
+ PCRS1D(:) = MAX( PCRS1D(:)-ZZNW1(:,4),0.0 )
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZNW1(:,3),0.0 )
END WHERE
!
! Budget storage
@@ -1417,6 +1646,8 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'DRYG', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'DRYG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
end if
!
@@ -1487,31 +1718,33 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'GMLT', &
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'GMLT', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
ZZW(:) = 0.0
-WHERE( (PRGT1D(:)>XRTMIN(6)) .AND. (PRGS1D(:)>XRTMIN(6)/PTSTEP) .AND. (PZT(:)>XTT) )
- ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
- ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
- ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*PZT(:)) )
+ WHERE( (PRGT1D(:)>XRTMIN(6)) .AND. (PRGS1D(:)>XRTMIN(6)/PTSTEP) .AND. (PZT(:)>XTT) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RGMLTR
!
- ZZW(:) = MIN( PRGS1D(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPG* PLBDAG(:)**XEX0DEPG + &
- X1DEPG*PCJ(:)*PLBDAG(:)**XEX1DEPG ) - &
- ( ZZW1(:,1)+ZZW1(:,4) ) * &
- ( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
- ( PRHODREF(:)*XLMTT ) ) )
- PRRS1D(:) = PRRS1D(:) + ZZW(:)
- PRGS1D(:) = PRGS1D(:) - ZZW(:)
- PTHS1D(:) = PTHS1D(:) - ZZW(:) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*(-RGMLTR))
-!
-! PCRS1D(:) = MAX( PCRS1D(:) + ZZW(:)*(XCCG*PLBDAG(:)**XCXG/PRGT1D(:)),0.0 )
- PCRS1D(:) = PCRS1D(:) + ZZW(:)*5.0E6 ! obtained after averaging
- ! Dshed=1mm and 500 microns
-END WHERE
+ ZZW(:) = MIN( PRGS1D(:), MAX( 0.0,( -ZZW(:) * PCGT1D(:) * &
+ ( X0DEPG* PLBDAG(:)**XEX0DEPG + &
+ X1DEPG*PCJ(:)*PLBDAG(:)**XEX1DEPG ) - &
+ ( ZZW1(:,1)+ZZW1(:,4) ) * &
+ ( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
+ ( PRHODREF(:)*XLMTT ) ) )
+ PRRS1D(:) = PRRS1D(:) + ZZW(:)
+ PRGS1D(:) = PRGS1D(:) - ZZW(:)
+ PTHS1D(:) = PTHS1D(:) - ZZW(:)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(-RGMLTR))
+!
+ PCRS1D(:) = PCRS1D(:) + ZZW(:)*5.0E6 ! obtained after averaging
+ ! Dshed=1mm and 500 microns
+ PCGS1D(:) = MAX( PCGS1D(:) - ZZW(:)*5.0E6, 0.0)
+ END WHERE
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'GMLT', &
@@ -1522,6 +1755,8 @@ if ( nbumod == kmi .and. lbu_enable ) then
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'GMLT', &
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'GMLT', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -1534,7 +1769,7 @@ end if
!
HAIL: IF (LHAIL) THEN
!
-GHAIL(:) = PRTH1D(:)>XRTMIN(7)
+GHAIL(:) = PRHT1D(:)>XRTMIN(7)
IHAIL = COUNT(GHAIL(:))
!
IF( IHAIL>0 ) THEN
@@ -1564,15 +1799,24 @@ IF( IHAIL>0 ) THEN
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETH', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETH', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETH', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
ZZW1(:,:) = 0.0
- WHERE( GHAIL(:) .AND. ( (PRCT1D(:)>XRTMIN(2) .AND. PRCS1D(:)>XRTMIN(2)/PTSTEP) .OR. &
- (PRIT1D(:)>XRTMIN(4) .AND. PRIS1D(:)>XRTMIN(4)/PTSTEP) ) )
- ZZW(:) = PLBDAH(:)**(XCXH-XDH-2.0) * PRHODREF(:)**(-XCEXVT)
- ZZW1(:,1) = MIN( PRCS1D(:),XFWETH * PRCT1D(:) * ZZW(:) ) ! RCWETH
- ZZW1(:,2) = MIN( PRIS1D(:),XFWETH * PRIT1D(:) * ZZW(:) ) ! RIWETH
+ ZZNW1(:,:) = 0.0
+ WHERE( GHAIL(:) .AND. ( (PRCT1D(:)>XRTMIN(2) .AND. PRCS1D(:)>XRTMIN(2)/PTSTEP ) .OR. &
+ (PRIT1D(:)>XRTMIN(4) .AND. PRIS1D(:)>XRTMIN(4)/PTSTEP) ) )
+ ZZW(:) = PCHT1D(:) * PLBDAH(:)**(-XDH-2.0) * PRHODREF(:)**(1-XCEXVT)
+ ZZW1(:,1) = MIN( PRCS1D(:),XFWETH * PRCT1D(:) * ZZW(:) ) ! RCWETH
+ ZZNW1(:,1) = MIN( PCCS1D(:),XFWETH * PCCT1D(:) * ZZW(:) ) !ZZW1(:,1) * ZCCT(:) / MAX(ZRCT(:),XRTMIN(2)) ) ! NCWETH
+ ZZW1(:,2) = MIN( PRIS1D(:),XFWETH * PRIT1D(:) * ZZW(:) ) ! RIWETH
+ ZZNW1(:,2) = MIN( PCIS1D(:),XFWETH * PCIT1D(:) * ZZW(:) ) !ZZW1(:,2) * ZCIT(:) / MAX(ZRIT(:),XRTMIN(4)) ) ! NIWETH
END WHERE
!
!* 3.1.1 accretion of aggregates on the hailstones
@@ -1624,12 +1868,33 @@ IF( IHAIL>0 ) THEN
ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
!
WHERE( GWET(:) )
- ZZW1(:,3) = MIN( PRSS1D(:),XFSWETH*ZZW(:) & ! RSWETH
- *( PRST1D(:))*( PLBDAH(:)**XCXH ) &
- *( PRHODREF(:)**(-XCEXVT) ) &
- *( XLBSWETH1/( PLBDAH(:)**2 ) + &
- XLBSWETH2/( PLBDAH(:) * PLBDAS(:) ) + &
- XLBSWETH3/( PLBDAS(:)**2) ) )
+ ZZW1(:,3) = MIN( PRSS1D(:),XFSWETH*ZZW(:) * PRST1D(:) * PCHT1D(:) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBSWETH1/( PLBDAH(:)**2 ) + &
+ XLBSWETH2/( PLBDAH(:) * PLBDAS(:) ) + &
+ XLBSWETH3/( PLBDAS(:)**2) ) )
+ END WHERE
+!
+!* 3.1.5b perform the bilinear interpolation of the normalized
+! SWETH-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGWET
+ ZVEC3(JJ) = ( XKER_N_SWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
+!
+ WHERE( GWET(:) )
+ ZZNW1(:,3) = MIN( PCSS1D(:),XFNSWETH*ZZNW(:) * PCST1D(:) & ! NSWETH
+ *( PCHT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNSWETH1/( PLBDAH(:)**2 ) + &
+ XLBNSWETH2/( PLBDAH(:) * PLBDAS(:) ) + &
+ XLBNSWETH3/( PLBDAS(:)**2) ) )
END WHERE
DEALLOCATE(IVEC2)
DEALLOCATE(IVEC1)
@@ -1687,13 +1952,34 @@ IF( IHAIL>0 ) THEN
ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
!
WHERE( GWET(:) )
- ZZW1(:,5) = MAX(MIN( PRGS1D(:),XFGWETH*ZZW(:) & ! RGWETH
- *( PLBDAG(:)**(XCXG-XBG) )*( PLBDAH(:)**XCXH ) &
- *( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBGWETH1/( PLBDAH(:)**2 ) + &
- XLBGWETH2/( PLBDAH(:) * PLBDAG(:) ) + &
- XLBGWETH3/( PLBDAG(:)**2) ) ),0. )
+ ZZW1(:,5) = MAX(MIN( PRGS1D(:),XFGWETH*ZZW(:) * PRGT1D(:) * PCHT1D(:) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBGWETH1/( PLBDAH(:)**2 ) + &
+ XLBGWETH2/( PLBDAH(:) * PLBDAG(:) ) + &
+ XLBGWETH3/( PLBDAG(:)**2) ) ),0. )
END WHERE
+!* 3.1.10b perform the bilinear interpolation of the normalized
+! GWETH-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGWET
+ ZVEC3(JJ) = ( XKER_N_GWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_GWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_GWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_GWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
+!
+ WHERE( GWET(:) )
+ ZZNW1(:,5) = MAX(MIN( PCGS1D(:),XFNGWETH*ZZNW(:) * PCGT1D(:) & ! NGWETH
+ *( PCHT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNGWETH1/( PLBDAH(:)**2 ) + &
+ XLBNGWETH2/( PLBDAH(:) * PLBDAG(:) ) + &
+ XLBNGWETH3/( PLBDAG(:)**2) ) ),0. )
+ END WHERE
+!
DEALLOCATE(IVEC2)
DEALLOCATE(IVEC1)
DEALLOCATE(ZVEC3)
@@ -1707,31 +1993,34 @@ IF( IHAIL>0 ) THEN
!
ZZW(:) = 0.0
WHERE( GHAIL(:) .AND. PZT(:)<XTT )
- ZZW(:) = PRVT1D(:) * PPRES(:) / ((XMV / XMD) + PRVT1D(:)) ! Vapor pressure
- ZZW(:) = PKA(:) * (XTT - PZT(:)) + &
- ( PDV(:) * (XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
- * (XESTT-ZZW(:))/(XRV*PZT(:)) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RWETH
!
- ZZW(:) = MAX(0., ( ZZW(:) * ( X0DEPH* PLBDAH(:)**XEX0DEPH + &
- X1DEPH*PCJ(:)*PLBDAH(:)**XEX1DEPH ) + &
- ( ZZW1(:,2)+ZZW1(:,3)+ZZW1(:,5) ) * &
- ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PZT(:))) ) ) / &
- ( PRHODREF(:)*(XLMTT-XCL*(XTT-PZT(:))) ) )
+ ZZW(:) = MAX(0., ( ZZW(:) * PCHT1D(:) * ( X0DEPH* PLBDAH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDAH(:)**XEX1DEPH ) + &
+ ( ZZW1(:,2)+ZZW1(:,3)+ZZW1(:,5) ) * &
+ ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PZT(:))) ) ) / &
+ ( PRHODREF(:)*(XLMTT-XCL*(XTT-PZT(:))) ) )
!
- ZZW1(:,6) = MAX( ZZW(:) - ZZW1(:,2) - ZZW1(:,3) - ZZW1(:,5),0.) ! RCWETH+RRWETH
- END WHERE
+ ZZW1(:,6) = MAX( ZZW(:) - ZZW1(:,2) - ZZW1(:,3) - ZZW1(:,5),0.) !RCWETH+RRWETH
+ END WHERE
!
- WHERE ( GHAIL(:) .AND. PZT(:)<XTT .AND. ZZW1(:,6)/=0.)
+ WHERE ( GHAIL(:) .AND. PZT(:)<XTT .AND. ZZW1(:,6)/=0.)
!
! limitation of the available rainwater mixing ratio (RRWETH < RRS !)
!
ZZW1(:,4) = MAX( 0.0,MIN( ZZW1(:,6),PRRS1D(:)+ZZW1(:,1) ) )
ZZX(:) = ZZW1(:,4) / ZZW1(:,6)
ZZW1(:,2) = ZZW1(:,2) * ZZX(:)
+ ZZNW1(:,2) = ZZNW1(:,2)*ZZX(:)
ZZW1(:,3) = ZZW1(:,3) * ZZX(:)
+ ZZNW1(:,3) = ZZNW1(:,3)*ZZX(:)
ZZW1(:,5) = ZZW1(:,5) * ZZX(:)
+ ZZNW1(:,5) = ZZNW1(:,5)*ZZX(:)
ZZW(:) = ZZW1(:,4) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,5)
!
!* 3.2.1 integrate the Wet growth of hail
@@ -1745,10 +2034,12 @@ IF( IHAIL>0 ) THEN
PTHS1D(:) = PTHS1D(:) + ZZW1(:,4) * (PLSFACT(:) - PLVFACT(:))
! f(L_f*(RCWETH+RRWETH))
!
- PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,1)*(PCCT1D(:)/MAX(PRCT1D(:),XRTMIN(2))),0.0 )
- PCIS1D(:) = MAX( PCIS1D(:)-ZZW1(:,2)*(PCIT1D(:)/MAX(PRIT1D(:),XRTMIN(4))),0.0 )
PCRS1D(:) = MAX( PCRS1D(:)-MAX( ZZW1(:,4)-ZZW1(:,1),0.0 ) &
- *(PCRT1D(:)/MAX(PRRT1D(:),XRTMIN(3))),0.0 )
+ *(PCRT1D(:)/MAX(PRRT1D(:),XRTMIN(3))),0.0 )
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZNW1(:,3),0.0 )
+ PCGS1D(:) = MAX( PCGS1D(:)-ZZNW1(:,5),0.0 )
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZNW1(:,1),0.0 )
+ PCIS1D(:) = MAX( PCIS1D(:)-ZZNW1(:,2),0.0 )
END WHERE
!
if ( nbumod == kmi .and. lbu_enable ) then
@@ -1773,6 +2064,12 @@ IF( IHAIL>0 ) THEN
Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETH', &
Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETH', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETH', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
END IF ! IHAIL>0
@@ -1789,13 +2086,19 @@ IF ( IHAIL>0 ) THEN
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'COHG', &
Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if (lbudget_sv .and. M2_ICE) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'COHG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'COHG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
!
ZTHRH = 0.01E-3
ZTHRC = 0.001E-3
ZZW(:) = 0.0
!
- WHERE( PRTH1D(:)<ZTHRH .AND. PRCT1D(:)<ZTHRC .AND. PZT(:)<XTT )
+ WHERE( PRHT1D(:)<ZTHRH .AND. PRCT1D(:)<ZTHRC .AND. PZT(:)<XTT )
ZZW(:) = MIN( 1.0,MAX( 0.0,1.0-(PRCT1D(:)/ZTHRC) ) )
!
! assume a linear percent conversion rate of hail into graupel
@@ -1804,12 +2107,24 @@ IF ( IHAIL>0 ) THEN
PRGS1D(:) = PRGS1D(:) + ZZW(:) ! partial conversion
PRHS1D(:) = PRHS1D(:) - ZZW(:) ! of hail into graupel
END WHERE
+ if (M2_ICE) then
+ WHERE( PRHT1D(:)<ZTHRH .AND. PRCT1D(:)<ZTHRC .AND. PZT(:)<XTT )
+ PCGS1D(:) = PCGS1D(:) + ZZW(:)* PCHS1D(:)/MAX(PRHS1D(:),XRTMIN(7))
+ PCHS1D(:) = MAX( PCHS1D(:) - ZZW(:)* PCHS1D(:)/MAX(PRHS1D(:),XRTMIN(7)), 0.0 )
+ END WHERE
+ end if
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'COHG', &
Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'COHG', &
Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if (lbudget_sv .and. M2_ICE) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'COHG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'COHG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
END IF
!
@@ -1817,52 +2132,128 @@ END IF
!* 3.4 Melting of the hailstones
!
IF ( IHAIL>0 ) THEN
- if ( nbumod == kmi .and. lbu_enable ) then
- if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'HMLT', &
- Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'HMLT', &
- Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'HMLT', &
- Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
- Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
- end if
-!
- ZZW(:) = 0.0
- WHERE( GHAIL(:) .AND. (PRHS1D(:)>XRTMIN(7)/PTSTEP) .AND. (PRTH1D(:)>XRTMIN(7)) .AND. (PZT(:)>XTT) )
- ZZW(:) = PRVT1D(:) * PPRES(:) / ((XMV / XMD) + PRVT1D(:)) ! Vapor pressure
- ZZW(:) = PKA(:) * (XTT - PZT(:)) + &
- ( PDV(:) * (XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
- * (XESTT - ZZW(:)) / (XRV * PZT(:)) )
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'HMLT', &
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'HMLT', &
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'HMLT', &
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'HMLT', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
+!
+ ZZW(:) = 0.0
+ WHERE( GHAIL(:) .AND. (PRHS1D(:)>XRTMIN(7)/PTSTEP) .AND. (PRHT1D(:)>XRTMIN(7)) .AND. (PZT(:)>XTT) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RHMLTR
!
- ZZW(:) = MIN( PRHS1D(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPH* PLBDAH(:)**XEX0DEPH + &
- X1DEPH*PCJ(:)*PLBDAH(:)**XEX1DEPH ) - &
- ZZW1(:,6)*( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
- ( PRHODREF(:)*XLMTT ) ) )
- PRRS1D(:) = PRRS1D(:) + ZZW(:)
- PRHS1D(:) = PRHS1D(:) - ZZW(:)
- PTHS1D(:) = PTHS1D(:) - ZZW(:) * (PLSFACT(:) - PLVFACT(:)) ! f(L_f*(-RHMLTR))
+ ZZW(:) = MIN( PRHS1D(:), MAX( 0.0,( -ZZW(:) * PCHT1D(:) * &
+ ( X0DEPH* PLBDAH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDAH(:)**XEX1DEPH ) - &
+ ZZW1(:,6)*( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
+ ( PRHODREF(:)*XLMTT ) ) )
+ PRRS1D(:) = PRRS1D(:) + ZZW(:)
+ PRHS1D(:) = PRHS1D(:) - ZZW(:)
+ PTHS1D(:) = PTHS1D(:) - ZZW(:)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(-RHMLTR))
!
- PCRS1D(:) = MAX( PCRS1D(:) + ZZW(:)*(XCCH*PLBDAH(:)**XCXH/PRTH1D(:)),0.0 )
- END WHERE
+ PCRS1D(:) = MAX( PCRS1D(:) + ZZW(:)*(PCHT1D(:)/PRHT1D(:)),0.0 )
+ PCHS1D(:) = MAX( PCHS1D(:) - ZZW(:)*(PCHT1D(:)/PRHT1D(:)),0.0 )
!
- if ( nbumod == kmi .and. lbu_enable ) then
- if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'HMLT', &
- Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'HMLT', &
- Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'HMLT', &
- Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
- Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
- end if
+ END WHERE
+!
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'HMLT', &
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'HMLT', &
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'HMLT', &
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'HMLT', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
END IF
!
END IF HAIL
!
+!
+!
+if( M2_ICE) then
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SSC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ end if
+!* 1.3NEW Aggregates self-collection
+! -------------------------------
+!
+ ZZNW1(:,:) = 0.0
+!
+ GACC(:) = PCST1D(:)>XCTMIN(5) .AND. PRST1D(:)>XRTMIN(5) .AND. PZT(:)<XTT
+ IGACC = COUNT( GACC(:) )
+!
+ IF( IGACC>0 ) THEN
+!
+! 1.3N.0 allocations
+!
+ ALLOCATE(ZVEC1(IGACC))
+ ALLOCATE(IVEC1(IGACC))
+!
+! 1.3N.1 select the (ZLBDAS,ZLBDAS) couplet
+!
+ ZVEC1(:) = PACK( PLBDAS(:),MASK=GACC(:) )
+!
+! 1.3N.2 find the next lower indice for the ZLBDAS and for the ZLBDAS
+! in the geometrical set of (Lbda_s,Lbda_s) couplet use to
+! tabulate the SACCS-kernel
+!
+ ZVEC1(1:IGACC) = MAX( 1.0001, MIN( FLOAT(NSCLBDAS)-0.0001, &
+ XSCINTP1S * LOG( ZVEC1(1:IGACC) ) + XSCINTP2S ) )
+ IVEC1(1:IGACC) = INT( ZVEC1(1:IGACC) )
+ ZVEC1(1:IGACC) = ZVEC1(1:IGACC) - FLOAT( IVEC1(1:IGACC) )
+!
+! 1.3N.3 perform the bilinear interpolation of the normalized
+! SSCS-kernel
+!
+ ALLOCATE(ZVEC3(IGACC))
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! NSACCS
+ DEALLOCATE(ZVEC3)
+!
+ WHERE( GACC(:) )
+! ZZNW1(:,5) = XSSC * (PRST1D(:) * PRHODREF(:))**EXPRS * PCST1D(:)**EXPNS
+ ZZNW1(:,5) = MIN( PCSS1D(:),XFNSSCS*ZZNW(:) & ! NSSCS
+ * EXP( XCOLEXSS*(PZT(:)-XTT) ) &
+ *( PCST1D(:) )**( 2 ) &
+ *( PRHODREF(:)**(-XCEXVT-1.) ) &
+ *( XLBNSSCS1/( PLBDAS(:)**2 ) + &
+ XLBNSSCS2/( PLBDAS(:)**2 ) ) )
+!
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZNW1(:,5),0.0 )
+ END WHERE
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC1)
+ END IF
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SSC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ end if
+end if
+!
!------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_MIXED_FAST_PROCESSES
diff --git a/src/MNH/lima_mixed_slow_processes.f90 b/src/MNH/lima_mixed_slow_processes.f90
index 6ef9b55f5035df58c4423f6250ebb369fcbed506..1daf983b673fe3e601bdfe4ccd33a7a5f7f93304 100644
--- a/src/MNH/lima_mixed_slow_processes.f90
+++ b/src/MNH/lima_mixed_slow_processes.f90
@@ -8,15 +8,15 @@
! #####################################
!
INTERFACE
- SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
- ZLSFACT, ZLVFACT, ZAI, ZCJ, &
- ZRGT, ZCIT, &
- ZRVS, ZRCS, ZRIS, ZRGS, ZTHS, &
- ZCCS, ZCIS, ZIFS, ZINS, &
- ZLBDAI, ZLBDAG, &
- PRHODJ1D, GMICRO, PRHODJ, KMI,&
- PTHS, PRVS, PRCS, PRIS, PRGS, &
- PCCS, PCIS, PINS )
+ SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZAI, ZCJ, &
+ ZRGT, ZRHT, ZCIT, ZCGT, ZCHT, &
+ ZRVS, ZRCS, ZRIS, ZRGS, ZRHS, ZTHS, &
+ ZCCS, ZCIS, ZCGS, ZIFS, ZINS, &
+ ZLBDAI, ZLBDAG, ZLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, &
+ PTHS, PRVS, PRCS, PRIS, PRGS, PRHS, &
+ PCCS, PCIS )
!
REAL, DIMENSION(:), INTENT(IN) :: ZRHODREF ! RHO Dry REFerence
REAL, DIMENSION(:), INTENT(IN) :: ZZT ! Temperature
@@ -29,21 +29,27 @@ REAL, DIMENSION(:), INTENT(IN) :: ZAI ! Thermodynamical function
REAL, DIMENSION(:), INTENT(IN) :: ZCJ ! for the ventilation coefficient
!
REAL, DIMENSION(:), INTENT(IN) :: ZRGT ! Graupel/hail m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZRHT ! Hail m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCGT ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCHT ! Hail conc. at t
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRIS ! Pristine ice m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRGS ! Graupel/hail m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZRHS ! Graupel/hail m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZTHS ! Theta source
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZCCS ! Cloud water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZCGS ! Graupel conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZIFS ! Free Ice nuclei conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZINS ! Nucleated Ice nuclei conc. source
!
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAI ! Slope parameter of the ice crystal distr.
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAG ! Slope parameter of the graupel distr.
+REAL, DIMENSION(:), INTENT(IN) :: ZLBDAH ! Slope parameter of the hail distr.
!
! used for budget storage
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
@@ -55,24 +61,24 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRIS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PINS
!
END SUBROUTINE LIMA_MIXED_SLOW_PROCESSES
END INTERFACE
END MODULE MODI_LIMA_MIXED_SLOW_PROCESSES
!
! #######################################################################
- SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
- ZLSFACT, ZLVFACT, ZAI, ZCJ, &
- ZRGT, ZCIT, &
- ZRVS, ZRCS, ZRIS, ZRGS, ZTHS, &
- ZCCS, ZCIS, ZIFS, ZINS, &
- ZLBDAI, ZLBDAG, &
- PRHODJ1D, GMICRO, PRHODJ, KMI,&
- PTHS, PRVS, PRCS, PRIS, PRGS, &
- PCCS, PCIS, PINS )
+ SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZAI, ZCJ, &
+ ZRGT, ZRHT, ZCIT, ZCGT, ZCHT, &
+ ZRVS, ZRCS, ZRIS, ZRGS, ZRHS, ZTHS, &
+ ZCCS, ZCIS, ZCGS, ZIFS, ZINS, &
+ ZLBDAI, ZLBDAG, ZLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, &
+ PTHS, PRVS, PRCS, PRIS, PRGS, PRHS, &
+ PCCS, PCIS )
! #######################################################################
!
!!
@@ -113,22 +119,24 @@ END MODULE MODI_LIMA_MIXED_SLOW_PROCESSES
!! C. Barthe * LACy * jan. 2014 add budgets
! P. Wautelet 03/2020: use the new data structures and subroutines for budgets
! P. Wautelet 02/02/2021: budgets: add missing source terms for SV budgets in LIMA
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
use modd_budget, only: lbu_enable, nbumod, &
- lbudget_th, lbudget_rv, lbudget_rc, lbudget_rc, lbudget_ri, lbudget_rg, lbudget_sv, &
- NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RC, NBUDGET_RI, NBUDGET_RG, NBUDGET_SV1, &
+ lbudget_th, lbudget_rv, lbudget_rc, lbudget_rc, lbudget_ri, lbudget_rg, lbudget_rh, lbudget_sv, &
+ NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RC, NBUDGET_RI, NBUDGET_RG, NBUDGET_RH, NBUDGET_SV1, &
tbudgets
USE MODD_CST, ONLY : XTT, XALPI, XBETAI, XGAMI, &
XALPW, XBETAW, XGAMW
USE MODD_NSV
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, NMOD_IFN, LSNOW
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, NMOD_IFN, LSNOW, LHAIL, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY : XDI, X0DEPI, X2DEPI, XSCFAC
-USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XLBDAG_MAX, &
- X0DEPG, XEX0DEPG, X1DEPG, XEX1DEPG
+USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XLBDAG_MAX, XCCG, XCXG, &
+ X0DEPG, XEX0DEPG, X1DEPG, XEX1DEPG, &
+ X0DEPH, XEX0DEPH, X1DEPH, XEX1DEPH
use mode_budget, only: Budget_store_add, Budget_store_init, Budget_store_end
IMPLICIT NONE
@@ -146,21 +154,27 @@ REAL, DIMENSION(:), INTENT(IN) :: ZAI ! Thermodynamical function
REAL, DIMENSION(:), INTENT(IN) :: ZCJ ! for the ventilation coefficient
!
REAL, DIMENSION(:), INTENT(IN) :: ZRGT ! Graupel/hail m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZRHT ! Hail m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCGT ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCHT ! hail conc. at t
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRIS ! Pristine ice m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRGS ! Graupel/hail m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZRHS ! hail m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZTHS ! Theta source
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZCCS ! Cloud water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZCGS ! Graupel conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZIFS ! Free Ice nuclei conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZINS ! Nucleated Ice nuclei conc. source
!
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAI ! Slope parameter of the ice crystal distr.
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAG ! Slope parameter of the graupel distr.
+REAL, DIMENSION(:), INTENT(IN) :: ZLBDAH ! Slope parameter of the hail distr.
!
! used for budget storage
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
@@ -172,9 +186,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRIS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PINS
!
!* 0.2 Declarations of local variables :
!
@@ -190,9 +204,9 @@ INTEGER :: JMOD_IFN
!
IF (LSNOW) THEN
ZZW(:) = 0.0
- WHERE ( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>XRTMIN(6)/PTSTEP) )
- ZZW(:) = ( ZSSI(:)/ZAI(:)/ZRHODREF(:) ) * &
- ( X0DEPG*ZLBDAG(:)**XEX0DEPG + X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG )
+ WHERE ( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>XRTMIN(6)/PTSTEP) )
+ ZZW(:) = ( ZSSI(:)/ZAI(:)/ZRHODREF(:) ) * ZCGT(:) * &
+ ( X0DEPG*ZLBDAG(:)**XEX0DEPG + X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG )
ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- MIN( ZRGS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
ZRGS(:) = ZRGS(:) + ZZW(:)
@@ -211,6 +225,34 @@ IF (LSNOW) THEN
end if
END IF
!
+!
+!* 1.0 Deposition of water vapor on r_h: RVDEPH
+! ---------------------------------------------
+!
+!
+IF (LHAIL .AND. NMOM_H.GE.2) THEN
+ ZZW(:) = 0.0
+ WHERE ( (ZRHT(:)>XRTMIN(7)) .AND. (ZRHS(:)>XRTMIN(7)/PTSTEP) )
+ ZZW(:) = ( ZSSI(:)/(ZAI(:)) ) * ZCHT(:) * &
+ ( X0DEPH*ZLBDAH(:)**XEX0DEPH + X1DEPH*ZCJ(:)*ZLBDAH(:)**XEX1DEPH )
+ ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
+ - MIN( ZRHS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
+ ZRHS(:) = ZRHS(:) + ZZW(:)
+ ZRVS(:) = ZRVS(:) - ZZW(:)
+ ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
+ END WHERE
+!
+! Budget storage
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_th ) call Budget_store_add( tbudgets(NBUDGET_TH), 'DEPH', &
+ Unpack( zzw(:) * zlsfact(:) * prhodj1d(:), mask = gmicro(:, :, :), field = 0. ) )
+ if ( lbudget_rv ) call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPH', &
+ Unpack( -zzw(:) * prhodj1d(:), mask = gmicro(:, :, :), field = 0. ) )
+ if ( lbudget_rh ) call Budget_store_add( tbudgets(NBUDGET_RH), 'DEPH', &
+ Unpack( zzw(:) * prhodj1d(:), mask = gmicro(:, :, :), field = 0. ) )
+ end if
+END IF
+!
!
!* 2 cloud ice Melting: RIMLTC and CIMLTC
! -----------------------------------------
@@ -223,10 +265,10 @@ END IF
if ( lbudget_sv ) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'IMLT', pccs(:, :, :) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'IMLT', pcis(:, :, :) * prhodj(:, :, :) )
- do jmod_ifn = 1,nmod_ifn
- call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
- pins(:, :, :, jmod_ifn) * prhodj(:, :, :) )
- enddo
+! do jmod_ifn = 1,nmod_ifn
+! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
+! pins(:, :, :, jmod_ifn) * prhodj(:, :, :) )
+! enddo
end if
end if
@@ -243,7 +285,7 @@ END IF
DO JMOD_IFN = 1,NMOD_IFN
! Correction BVIE aerosols not released but in droplets
! ZIFS(:,JMOD_IFN) = ZIFS(:,JMOD_IFN) + ZINS(:,JMOD_IFN)*(1.-ZMASK(:))
- ZINS(:,JMOD_IFN) = ZINS(:,JMOD_IFN) * ZMASK(:)
+! ZINS(:,JMOD_IFN) = ZINS(:,JMOD_IFN) * ZMASK(:)
ENDDO
!
! Budget storage
@@ -259,10 +301,10 @@ END IF
Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'IMLT', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
- do jmod_ifn = 1,nmod_ifn
- call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
- Unpack( zins(:, jmod_ifn), mask = gmicro(:, :, :), field = pins(:, :, :, jmod_ifn) ) * prhodj(:, :, :) )
- enddo
+! do jmod_ifn = 1,nmod_ifn
+! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
+! Unpack( zins(:, jmod_ifn), mask = gmicro(:, :, :), field = pins(:, :, :, jmod_ifn) ) * prhodj(:, :, :) )
+! enddo
end if
end if
!
diff --git a/src/MNH/lima_notadjust.f90 b/src/MNH/lima_notadjust.f90
index 48e97a2f32c15557758f71eddfe2c2f8517c9364..42a0b33d59f64b1be5a978b25edc8970fd9b4331 100644
--- a/src/MNH/lima_notadjust.f90
+++ b/src/MNH/lima_notadjust.f90
@@ -10,7 +10,7 @@
INTERFACE
!
SUBROUTINE LIMA_NOTADJUST(KMI, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PEXNREF, PZZ, &
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PEXNREF, PZZ, &
PTHT,PRT, PSVT, PTHS, PRS,PSVS, PCLDFR, PICEFR, PRAINFR, PSRCS )
!
USE MODD_IO, ONLY: TFILEDATA
@@ -22,7 +22,7 @@ REAL, INTENT(IN) :: PTSTEP ! Double Time step
! (single if cold start)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference density
@@ -50,7 +50,7 @@ END MODULE MODI_LIMA_NOTADJUST
!
! ####################################################################################
SUBROUTINE LIMA_NOTADJUST(KMI, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PEXNREF, PZZ, &
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PEXNREF, PZZ, &
PTHT,PRT, PSVT, PTHS, PRS,PSVS, PCLDFR, PICEFR, PRAINFR, PSRCS )
! ####################################################################################
!
@@ -112,7 +112,7 @@ REAL, INTENT(IN) :: PTSTEP ! Double Time step
! (single if cold start)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference density
@@ -192,7 +192,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'CEDS', prs(:, :, :, 2) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CEDS', prs(:, :, :, 4) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) then
+ if ( lwarm .and. nmom_c.ge.2) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', psvs(:, :, :, nsv_lima_nc) * prhodj(:, :, :) )
do jl = nsv_lima_ccn_free, nsv_lima_ccn_free + nmod_ccn - 1
idx = NBUDGET_SV1 - 1 + jl
@@ -250,7 +250,7 @@ END IF
!
!* 2.2 estimate the Exner function at t+1 and t respectively
!
-ZEXNS(:,:,:)=((2.* PPABST(:,:,:)-PPABSM(:,:,:))/XP00 )**(XRD/XCPD)
+ZEXNS(:,:,:)=(PPABSTT(:,:,:)/XP00 )**(XRD/XCPD)
ZEXNT(:,:,:)=(PPABST(:,:,:)/XP00 )**(XRD/XCPD)
!sources terms *dt
PRS(:,:,:,:) = PRS(:,:,:,:) * PTSTEP
@@ -337,7 +337,7 @@ IF( IMICRO >= 1 .AND. .NOT.LPTSPLIT) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -473,7 +473,7 @@ IF( INUCT >= 1 ) THEN
ALLOCATE(ZZLV(INUCT))
ALLOCATE(ZZCPH(INUCT))
DO JL=1,INUCT
- ZPRES(JL) = 2. * PPABST(I1(JL),I2(JL),I3(JL)) - PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZRHOD(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZRR(JL) = PRS(I1(JL),I2(JL),I3(JL),3)
ZTT(JL) = PTHS(I1(JL),I2(JL),I3(JL))
@@ -536,7 +536,7 @@ ENDIF
WHERE(.NOT.GNUCT(:,:,:) )
ZRVSAT(:,:,:) = EXP(XALPW-XBETAW/PTHS(:,:,:)-XGAMW*ALOG(PTHS(:,:,:)))
!rvsat
- ZRVSAT(:,:,:) = (XMV / XMD)*ZRVSAT(:,:,:)/((2.* PPABST(:,:,:)-PPABSM(:,:,:))-ZRVSAT(:,:,:))
+ ZRVSAT(:,:,:) = (XMV / XMD)*ZRVSAT(:,:,:)/(PPABSTT(:,:,:)-ZRVSAT(:,:,:))
ZSAT(:,:,:) = (PRS(:,:,:,1)/ZRVSAT(:,:,:))-1D0
ENDWHERE
!
@@ -610,7 +610,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'CEDS', prs(:, :, :, 2) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CEDS', prs(:, :, :, 4) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) then
+ if ( lwarm .and. nmom_c.ge.2) then
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', psvs(:, :, :, nsv_lima_nc) * prhodj(:, :, :) )
do jl = nsv_lima_ccn_free, nsv_lima_ccn_free + nmod_ccn - 1
idx = NBUDGET_SV1 - 1 + jl
diff --git a/src/MNH/lima_nucleation_procs.f90 b/src/MNH/lima_nucleation_procs.f90
index b28c91cb6cabe68aaecef7a782fba5e1038cc24d..07213550da89d9bb98882dbae62392b49d708ded 100644
--- a/src/MNH/lima_nucleation_procs.f90
+++ b/src/MNH/lima_nucleation_procs.f90
@@ -91,7 +91,7 @@ USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
USE MODD_NSV, ONLY : NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
NSV_LIMA_NI, NSV_LIMA_IFN_FREE, NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
USE MODD_PARAM_LIMA, ONLY : LCOLD, LNUCL, LMEYERS, LSNOW, LWARM, LACTI, LRAIN, LHHONI, &
- NMOD_CCN, NMOD_IFN, NMOD_IMM, XCTMIN, XRTMIN, LSPRO, NMOM_I
+ NMOD_CCN, NMOD_IFN, NMOD_IMM, XCTMIN, XRTMIN, LSPRO, NMOM_I, NMOM_C
USE MODD_TURB_n, ONLY : LSUBG_COND
use mode_budget, only: Budget_store_add, Budget_store_init, Budget_store_end
@@ -152,7 +152,7 @@ INTEGER :: JL
!
!-------------------------------------------------------------------------------
!
-IF ( LWARM .AND. LACTI .AND. NMOD_CCN >=1 ) THEN
+IF ( LWARM .AND. LACTI .AND. NMOD_CCN >=1 .AND. NMOM_C.GE.2) THEN
IF (.NOT.LSUBG_COND .AND. .NOT.LSPRO) THEN
@@ -245,7 +245,9 @@ IF ( LCOLD .AND. LNUCL .AND. NMOM_I>=2 .AND. .NOT.LMEYERS .AND. NMOD_IFN >= 1 )
if ( lbudget_rc ) call Budget_store_add( tbudgets(NBUDGET_RC), 'HINC', z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_ri ) call Budget_store_add( tbudgets(NBUDGET_RI), 'HINC', -z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_sv ) then
- call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ if (nmom_c.ge.2) then
+ call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ end if
call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HINC', -z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
do jl = 1, nmod_ccn
idx = NBUDGET_SV1 - 1 + nsv_lima_ccn_acti - 1 + jl
@@ -286,7 +288,9 @@ IF (LCOLD .AND. LNUCL .AND. NMOM_I>=2 .AND. LMEYERS) THEN
if ( lbudget_rc ) call Budget_store_add( tbudgets(NBUDGET_RC), 'HINC', z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_ri ) call Budget_store_add( tbudgets(NBUDGET_RI), 'HINC', -z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_sv ) then
- call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ if (nmom_c.ge.2) then
+ call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ end if
call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HINC', -z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if (nmod_ifn > 0 ) &
call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl), 'HINC', &
@@ -347,7 +351,7 @@ END IF
!
!-------------------------------------------------------------------------------
!
-IF ( LCOLD .AND. LNUCL .AND. LHHONI .AND. NMOD_CCN >= 1) THEN
+IF ( LCOLD .AND. LNUCL .AND. LHHONI .AND. NMOD_CCN >= 1 .AND. NMOM_I.GE.2) THEN
if ( lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'HONH', PTHT(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_rv ) call Budget_store_init( tbudgets(NBUDGET_RV), 'HONH', PRVT(:, :, :) * prhodj(:, :, :) / ptstep )
diff --git a/src/MNH/lima_rain_accr_snow.f90 b/src/MNH/lima_rain_accr_snow.f90
index 5ece49ac93b856337d711e5ac276a38bcb39fdfd..7be5e1b4c13a52e8649a1bacf8f686c0f959700a 100644
--- a/src/MNH/lima_rain_accr_snow.f90
+++ b/src/MNH/lima_rain_accr_snow.f90
@@ -8,10 +8,10 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRRT, PCRT, PRST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC )
+ SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRRT, PCRT, PRST, PCST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -19,9 +19,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -31,6 +32,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_ACC
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_ACC
!
END SUBROUTINE LIMA_RAIN_ACCR_SNOW
@@ -38,10 +40,10 @@ END INTERFACE
END MODULE MODI_LIMA_RAIN_ACCR_SNOW
!
! ###################################################################################
- SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRRT, PCRT, PRST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC )
+ SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRRT, PCRT, PRST, PCST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC )
! ###################################################################################
!
!! PURPOSE
@@ -71,11 +73,14 @@ USE MODD_CST, ONLY : XTT
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCEXVT
USE MODD_PARAM_LIMA_WARM, ONLY : XBR
USE MODD_PARAM_LIMA_COLD, ONLY : XBS, XTRANS_MP_GAMMAS
-USE MODD_PARAM_LIMA_MIXED, ONLY : NACCLBDAS, XACCINTP1S, XACCINTP2S, &
- NACCLBDAR, XACCINTP1R, XACCINTP2R, &
- XKER_RACCSS, XKER_RACCS, XKER_SACCRG, &
- XFRACCSS, XLBRACCS1, XLBRACCS2, XLBRACCS3, &
- XFSACCRG, XLBSACCR1, XLBSACCR2, XLBSACCR3
+USE MODD_PARAM_LIMA_MIXED, ONLY : NACCLBDAS, XACCINTP1S, XACCINTP2S, &
+ NACCLBDAR, XACCINTP1R, XACCINTP2R, &
+ XKER_RACCSS, XKER_RACCS, XKER_SACCRG, &
+ XKER_N_RACCSS, XKER_N_RACCS, XKER_N_SACCRG, &
+ XFRACCSS, XLBRACCS1, XLBRACCS2, XLBRACCS3, &
+ XFNRACCSS, XLBNRACCS1, XLBNRACCS2, XLBNRACCS3, &
+ XFSACCRG, XLBSACCR1, XLBSACCR2, XLBSACCR3, &
+ XFNSACCRG, XLBNSACCR1, XLBNSACCR2, XLBNSACCR3
!
IMPLICIT NONE
!
@@ -87,9 +92,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -99,6 +105,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_ACC
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_ACC
!
!* 0.2 Declarations of local variables :
@@ -107,6 +114,7 @@ LOGICAL, DIMENSION(SIZE(PRRT)) :: GACC
!
REAL, DIMENSION(SIZE(PRRT)) :: Z1, Z2, Z3, Z4
REAL, DIMENSION(SIZE(PRRT)) :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5
+REAL, DIMENSION(SIZE(PRRT)) :: ZZWC1, ZZWC2, ZZWC3, ZZWC4, ZZWC5
!
INTEGER, DIMENSION(SIZE(PRRT)) :: IVEC1,IVEC2 ! Vectors of indices
REAL, DIMENSION(SIZE(PRRT)) :: ZVEC1,ZVEC2,ZVEC3 ! Work vectors
@@ -162,7 +170,7 @@ WHERE( GACC )
!
! 1.3.3 perform the bilinear interpolation of the normalized
! RACCSS-kernel : for small rain drops transformed into snow
- !
+!
Z1(:) = GET_XKER_RACCSS(IVEC1(:)+1,IVEC2(:)+1)
Z2(:) = GET_XKER_RACCSS(IVEC1(:)+1,IVEC2(:) )
Z3(:) = GET_XKER_RACCSS(IVEC1(:) ,IVEC2(:)+1)
@@ -175,7 +183,22 @@ WHERE( GACC )
* (ZVEC1(:) - 1.0)
ZZW1(:) = ZVEC3(:)
!
-! 1.3.4b perform the bilinear interpolation of the normalized
+! 1.3.3b perform the bilinear interpolation of the normalized
+! RACCSS-kernel for concentration : for small rain drops transformed into snow
+!
+ Z1(:) = GET_XKER_N_RACCSS(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_RACCSS(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_RACCSS(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_RACCSS(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZWC1(:) = ZVEC3(:)
+!
+! 1.3.4 perform the bilinear interpolation of the normalized
! RACCS-kernel : total frozen rain drops
!
Z1(:) = GET_XKER_RACCS(IVEC1(:)+1,IVEC2(:)+1)
@@ -190,10 +213,26 @@ WHERE( GACC )
* (ZVEC1(:) - 1.0)
ZZW2(:) = ZVEC3(:)
!
+! 1.3.4b perform the bilinear interpolation of the normalized
+! RACCS-kernel for concentration : total frozen rain drops
+!
+ Z1(:) = GET_XKER_N_RACCS(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_RACCS(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_RACCS(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_RACCS(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZWC2(:) = ZVEC3(:)
+!
! Correction of ZZW1 to ensure that ZZW1 <= ZZW2
! ie coll. of small drops <= coll. of all drops
!
ZZW1(:) = MIN(ZZW1(:),ZZW2(:))
+ ZZWC1(:)= MIN(ZZWC1(:),ZZWC2(:))
!
! 1.3.5 perform the bilinear interpolation of the normalized
! SACCRG-kernel : snow transformed into graupel
@@ -210,27 +249,55 @@ WHERE( GACC )
* (ZVEC2(:) - 1.0)
ZZW3(:) = ZVEC3(:)
!
+! 1.3.5b perform the bilinear interpolation of the normalized
+! SACCRG-kernel for concentration : snow transformed into graupel
+!
+ Z1(:) = GET_XKER_N_SACCRG(IVEC2(:)+1,IVEC1(:)+1)
+ Z2(:) = GET_XKER_N_SACCRG(IVEC2(:)+1,IVEC1(:) )
+ Z3(:) = GET_XKER_N_SACCRG(IVEC2(:) ,IVEC1(:)+1)
+ Z4(:) = GET_XKER_N_SACCRG(IVEC2(:) ,IVEC1(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC1(:) &
+ - Z2(:)*(ZVEC1(:) - 1.0) ) &
+ * ZVEC2(:) &
+ - ( Z3(:)* ZVEC1(:) &
+ - Z4(:)*(ZVEC1(:) - 1.0) ) &
+ * (ZVEC2(:) - 1.0)
+ ZZWC3(:) = ZVEC3(:)
+!
! 1.3.4 raindrop accretion on the small sized aggregates
!
ZZW4(:) = PCRT(:) * & !! coef of RRACCS and RRACCS
- XFRACCSS *( PRST(:)*PLBDS(:)**XBS )*( PRHODREF(:)**(1-XCEXVT) ) &
+ XFRACCSS * PCST(:) * PRHODREF(:)**(1-XCEXVT) &
*( XLBRACCS1/( PLBDS(:)**2 ) + &
XLBRACCS2/( PLBDS(:) * PLBDR(:) ) + &
XLBRACCS3/( PLBDR(:)**2 ) ) / PLBDR(:)**XBR
+!
+ ZZWC4(:)= PCRT(:) * & !! coef of RRACCS and RRACCS
+ XFNRACCSS * PCST(:) * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNRACCS1/( PLBDS(:)**2 ) + &
+ XLBNRACCS2/( PLBDS(:) * PLBDR(:) ) + &
+ XLBNRACCS3/( PLBDR(:)**2 ) )
!
! 1.3.6 raindrop accretion-conversion of the large sized aggregates
! into graupeln
!
ZZW5(:) = XFSACCRG * ZZW3(:) * PCRT(:) * & ! RSACCRG
- ( PRST(:) )*( PRHODREF(:)**(1-XCEXVT) ) * &
+ PCST(:) * PLBDS(:)**(-XBS) * PRHODREF(:)**(1-XCEXVT) * &
( XLBSACCR1/( PLBDR(:)**2 ) + &
XLBSACCR2/( PLBDR(:) * PLBDS(:) ) + &
XLBSACCR3/( PLBDS(:)**2 ) )
+!
+ ZZWC5(:)= XFNSACCRG * ZZW3(:) * PCRT(:) * & ! RSACCRG
+ PCST(:) * PRHODREF(:)**(1-XCEXVT) * &
+ ( XLBNSACCR1/( PLBDR(:)**2 ) + &
+ XLBNSACCR2/( PLBDR(:) * PLBDS(:) ) + &
+ XLBNSACCR3/( PLBDS(:)**2 ) )
!
P_RR_ACC(:) = - ZZW4(:) * ZZW2(:)
- P_CR_ACC(:) = P_RR_ACC(:) * PCRT(:)/PRRT(:)
+ P_CR_ACC(:) = - ZZWC4(:) * ZZWC2(:)
P_RS_ACC(:) = ZZW4(:) * ZZW1(:) - ZZW5(:)
+ P_CS_ACC(:) = - ZZWC5(:)
P_RG_ACC(:) = ZZW4(:) * ( ZZW2(:) - ZZW1(:) ) + ZZW5(:)
P_TH_ACC(:) = - P_RR_ACC(:) * (PLSFACT(:)-PLVFACT(:))
!
@@ -253,6 +320,20 @@ CONTAINS
END FUNCTION GET_XKER_RACCSS
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_RACCSS(I1,I2) RESULT(RET)
+ INTEGER, DIMENSION(:) :: I1
+ INTEGER, DIMENSION(:) :: I2
+ REAL, DIMENSION(SIZE(I1)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(I1)
+ RET(I) = XKER_N_RACCSS(MAX(MIN(I1(I),SIZE(XKER_N_RACCSS,1)),1),MAX(MIN(I2(I),SIZE(XKER_N_RACCSS,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_RACCSS
+!
+!-------------------------------------------------------------------------------
!
FUNCTION GET_XKER_RACCS(I1,I2) RESULT(RET)
INTEGER, DIMENSION(:) :: I1
@@ -267,6 +348,20 @@ CONTAINS
END FUNCTION GET_XKER_RACCS
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_RACCS(I1,I2) RESULT(RET)
+ INTEGER, DIMENSION(:) :: I1
+ INTEGER, DIMENSION(:) :: I2
+ REAL, DIMENSION(SIZE(I1)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(I1)
+ RET(I) = XKER_N_RACCS(MAX(MIN(I1(I),SIZE(XKER_N_RACCS,1)),1),MAX(MIN(I2(I),SIZE(XKER_N_RACCS,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_RACCS
+!
+!-------------------------------------------------------------------------------
!
FUNCTION GET_XKER_SACCRG(I1,I2) RESULT(RET)
INTEGER, DIMENSION(:) :: I1
@@ -281,5 +376,19 @@ CONTAINS
END FUNCTION GET_XKER_SACCRG
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_SACCRG(I1,I2) RESULT(RET)
+ INTEGER, DIMENSION(:) :: I1
+ INTEGER, DIMENSION(:) :: I2
+ REAL, DIMENSION(SIZE(I1)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(I1)
+ RET(I) = XKER_N_SACCRG(MAX(MIN(I1(I),SIZE(XKER_N_SACCRG,1)),1),MAX(MIN(I2(I),SIZE(XKER_N_SACCRG,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_SACCRG
+!
+!-------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_RAIN_ACCR_SNOW
diff --git a/src/MNH/lima_rain_evaporation.f90 b/src/MNH/lima_rain_evaporation.f90
index f4c0df7d033880a071937fc0c696bacc2899879a..c7211f2fcd62960a43373cb63f19c38314ea6d0f 100644
--- a/src/MNH/lima_rain_evaporation.f90
+++ b/src/MNH/lima_rain_evaporation.f90
@@ -150,8 +150,7 @@ ELSE
!
! Compute the function G(T)
!
- ZZW2(:) = 1. / ( XRHOLW*((((PLV(:)/PT(:))**2)/(XTHCO*XRV)) + & ! G
- (XRV*PT(:))/(XDIVA*PEVSAT(:))))
+ ZZW2(:) = 1. / ( XRHOLW*((((PLV(:)/PT(:))**2)/(XTHCO*XRV)) + (XRV*PT(:))/(XDIVA*PEVSAT(:)))) !G
!
! Compute the evaporation tendency
!
diff --git a/src/MNH/lima_read_xker_raccs.f90 b/src/MNH/lima_read_xker_raccs.f90
index d29ce6cb23a171cb064521e7a94b6e9370ab381f..5a75adf255339c49ec3c786f1d70c08083274e16 100644
--- a/src/MNH/lima_read_xker_raccs.f90
+++ b/src/MNH/lima_read_xker_raccs.f90
@@ -13,10 +13,10 @@
! ###########################
!
INTERFACE
- SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
+ SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
!
INTEGER, INTENT(OUT) :: KND,KACCLBDAS,KACCLBDAR
REAL, INTENT(OUT) :: PALPHAS
@@ -28,6 +28,7 @@ REAL, INTENT(OUT) :: PBS
REAL, INTENT(OUT) :: PBR
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PCR
REAL, INTENT(OUT) :: PDR
REAL, INTENT(OUT) :: PACCLBDAS_MAX
@@ -45,10 +46,10 @@ END INTERFACE
!
END MODULE MODI_LIMA_READ_XKER_RACCS
! ##########################################################################
- SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
+ SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
! ##########################################################################
!
!!**** * * - initialize the kernels for the rain-snow accretion process
@@ -103,6 +104,7 @@ REAL, INTENT(OUT) :: PBS
REAL, INTENT(OUT) :: PBR
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PCR
REAL, INTENT(OUT) :: PDR
REAL, INTENT(OUT) :: PACCLBDAS_MAX
@@ -130,4822 +132,4822 @@ PBS= 0.190000E+01
PBR= 0.300000E+01
PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PCR= 0.842000E+03
PDR= 0.800000E+00
-PACCLBDAS_MAX= 0.500000E+06
+PACCLBDAS_MAX= 0.100000E+06
PACCLBDAR_MAX= 0.100000E+08
-PACCLBDAS_MIN= 0.500000E+02
+PACCLBDAS_MIN= 0.500000E+03
PACCLBDAR_MIN= 0.100000E+04
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_RACCSS) ) THEN
- PKER_RACCSS( 1, 1) = 0.814109E+01
- PKER_RACCSS( 1, 2) = 0.692586E+01
- PKER_RACCSS( 1, 3) = 0.565192E+01
- PKER_RACCSS( 1, 4) = 0.444434E+01
- PKER_RACCSS( 1, 5) = 0.337172E+01
- PKER_RACCSS( 1, 6) = 0.246569E+01
- PKER_RACCSS( 1, 7) = 0.173757E+01
- PKER_RACCSS( 1, 8) = 0.119489E+01
- PKER_RACCSS( 1, 9) = 0.847828E+00
- PKER_RACCSS( 1, 10) = 0.697256E+00
- PKER_RACCSS( 1, 11) = 0.717816E+00
- PKER_RACCSS( 1, 12) = 0.854882E+00
- PKER_RACCSS( 1, 13) = 0.104470E+01
- PKER_RACCSS( 1, 14) = 0.123807E+01
- PKER_RACCSS( 1, 15) = 0.141081E+01
- PKER_RACCSS( 1, 16) = 0.155700E+01
- PKER_RACCSS( 1, 17) = 0.167856E+01
- PKER_RACCSS( 1, 18) = 0.177921E+01
- PKER_RACCSS( 1, 19) = 0.186250E+01
- PKER_RACCSS( 1, 20) = 0.193142E+01
- PKER_RACCSS( 1, 21) = 0.198845E+01
- PKER_RACCSS( 1, 22) = 0.203565E+01
- PKER_RACCSS( 1, 23) = 0.207472E+01
- PKER_RACCSS( 1, 24) = 0.210705E+01
- PKER_RACCSS( 1, 25) = 0.213381E+01
- PKER_RACCSS( 1, 26) = 0.215596E+01
- PKER_RACCSS( 1, 27) = 0.217429E+01
- PKER_RACCSS( 1, 28) = 0.218947E+01
- PKER_RACCSS( 1, 29) = 0.220203E+01
- PKER_RACCSS( 1, 30) = 0.221243E+01
- PKER_RACCSS( 1, 31) = 0.222103E+01
- PKER_RACCSS( 1, 32) = 0.222816E+01
- PKER_RACCSS( 1, 33) = 0.223406E+01
- PKER_RACCSS( 1, 34) = 0.223894E+01
- PKER_RACCSS( 1, 35) = 0.224298E+01
- PKER_RACCSS( 1, 36) = 0.224632E+01
- PKER_RACCSS( 1, 37) = 0.224909E+01
- PKER_RACCSS( 1, 38) = 0.225138E+01
- PKER_RACCSS( 1, 39) = 0.225328E+01
- PKER_RACCSS( 1, 40) = 0.225485E+01
- PKER_RACCSS( 2, 1) = 0.731793E+01
- PKER_RACCSS( 2, 2) = 0.650784E+01
- PKER_RACCSS( 2, 3) = 0.549484E+01
- PKER_RACCSS( 2, 4) = 0.443777E+01
- PKER_RACCSS( 2, 5) = 0.344045E+01
- PKER_RACCSS( 2, 6) = 0.256167E+01
- PKER_RACCSS( 2, 7) = 0.183252E+01
- PKER_RACCSS( 2, 8) = 0.126978E+01
- PKER_RACCSS( 2, 9) = 0.884187E+00
- PKER_RACCSS( 2, 10) = 0.682228E+00
- PKER_RACCSS( 2, 11) = 0.651607E+00
- PKER_RACCSS( 2, 12) = 0.749498E+00
- PKER_RACCSS( 2, 13) = 0.917050E+00
- PKER_RACCSS( 2, 14) = 0.110111E+01
- PKER_RACCSS( 2, 15) = 0.127111E+01
- PKER_RACCSS( 2, 16) = 0.141681E+01
- PKER_RACCSS( 2, 17) = 0.153841E+01
- PKER_RACCSS( 2, 18) = 0.163915E+01
- PKER_RACCSS( 2, 19) = 0.172252E+01
- PKER_RACCSS( 2, 20) = 0.179149E+01
- PKER_RACCSS( 2, 21) = 0.184857E+01
- PKER_RACCSS( 2, 22) = 0.189580E+01
- PKER_RACCSS( 2, 23) = 0.193488E+01
- PKER_RACCSS( 2, 24) = 0.196723E+01
- PKER_RACCSS( 2, 25) = 0.199401E+01
- PKER_RACCSS( 2, 26) = 0.201617E+01
- PKER_RACCSS( 2, 27) = 0.203451E+01
- PKER_RACCSS( 2, 28) = 0.204969E+01
- PKER_RACCSS( 2, 29) = 0.206226E+01
- PKER_RACCSS( 2, 30) = 0.207266E+01
- PKER_RACCSS( 2, 31) = 0.208127E+01
- PKER_RACCSS( 2, 32) = 0.208839E+01
- PKER_RACCSS( 2, 33) = 0.209429E+01
- PKER_RACCSS( 2, 34) = 0.209918E+01
- PKER_RACCSS( 2, 35) = 0.210322E+01
- PKER_RACCSS( 2, 36) = 0.210656E+01
- PKER_RACCSS( 2, 37) = 0.210933E+01
- PKER_RACCSS( 2, 38) = 0.211163E+01
- PKER_RACCSS( 2, 39) = 0.211352E+01
- PKER_RACCSS( 2, 40) = 0.211509E+01
- PKER_RACCSS( 3, 1) = 0.620923E+01
- PKER_RACCSS( 3, 2) = 0.585074E+01
- PKER_RACCSS( 3, 3) = 0.516881E+01
- PKER_RACCSS( 3, 4) = 0.432464E+01
- PKER_RACCSS( 3, 5) = 0.344908E+01
- PKER_RACCSS( 3, 6) = 0.262906E+01
- PKER_RACCSS( 3, 7) = 0.191653E+01
- PKER_RACCSS( 3, 8) = 0.134324E+01
- PKER_RACCSS( 3, 9) = 0.929224E+00
- PKER_RACCSS( 3, 10) = 0.684394E+00
- PKER_RACCSS( 3, 11) = 0.605038E+00
- PKER_RACCSS( 3, 12) = 0.661387E+00
- PKER_RACCSS( 3, 13) = 0.802622E+00
- PKER_RACCSS( 3, 14) = 0.974479E+00
- PKER_RACCSS( 3, 15) = 0.114040E+01
- PKER_RACCSS( 3, 16) = 0.128524E+01
- PKER_RACCSS( 3, 17) = 0.140682E+01
- PKER_RACCSS( 3, 18) = 0.150766E+01
- PKER_RACCSS( 3, 19) = 0.159112E+01
- PKER_RACCSS( 3, 20) = 0.166016E+01
- PKER_RACCSS( 3, 21) = 0.171729E+01
- PKER_RACCSS( 3, 22) = 0.176455E+01
- PKER_RACCSS( 3, 23) = 0.180367E+01
- PKER_RACCSS( 3, 24) = 0.183604E+01
- PKER_RACCSS( 3, 25) = 0.186283E+01
- PKER_RACCSS( 3, 26) = 0.188500E+01
- PKER_RACCSS( 3, 27) = 0.190335E+01
- PKER_RACCSS( 3, 28) = 0.191854E+01
- PKER_RACCSS( 3, 29) = 0.193111E+01
- PKER_RACCSS( 3, 30) = 0.194152E+01
- PKER_RACCSS( 3, 31) = 0.195013E+01
- PKER_RACCSS( 3, 32) = 0.195726E+01
- PKER_RACCSS( 3, 33) = 0.196316E+01
- PKER_RACCSS( 3, 34) = 0.196805E+01
- PKER_RACCSS( 3, 35) = 0.197209E+01
- PKER_RACCSS( 3, 36) = 0.197544E+01
- PKER_RACCSS( 3, 37) = 0.197821E+01
- PKER_RACCSS( 3, 38) = 0.198050E+01
- PKER_RACCSS( 3, 39) = 0.198240E+01
- PKER_RACCSS( 3, 40) = 0.198397E+01
- PKER_RACCSS( 4, 1) = 0.489412E+01
- PKER_RACCSS( 4, 2) = 0.496003E+01
- PKER_RACCSS( 4, 3) = 0.464691E+01
- PKER_RACCSS( 4, 4) = 0.407266E+01
- PKER_RACCSS( 4, 5) = 0.337005E+01
- PKER_RACCSS( 4, 6) = 0.264746E+01
- PKER_RACCSS( 4, 7) = 0.197888E+01
- PKER_RACCSS( 4, 8) = 0.141145E+01
- PKER_RACCSS( 4, 9) = 0.977676E+00
- PKER_RACCSS( 4, 10) = 0.697624E+00
- PKER_RACCSS( 4, 11) = 0.574725E+00
- PKER_RACCSS( 4, 12) = 0.590243E+00
- PKER_RACCSS( 4, 13) = 0.701865E+00
- PKER_RACCSS( 4, 14) = 0.858232E+00
- PKER_RACCSS( 4, 15) = 0.101841E+01
- PKER_RACCSS( 4, 16) = 0.116181E+01
- PKER_RACCSS( 4, 17) = 0.128324E+01
- PKER_RACCSS( 4, 18) = 0.138420E+01
- PKER_RACCSS( 4, 19) = 0.146776E+01
- PKER_RACCSS( 4, 20) = 0.153689E+01
- PKER_RACCSS( 4, 21) = 0.159407E+01
- PKER_RACCSS( 4, 22) = 0.164139E+01
- PKER_RACCSS( 4, 23) = 0.168054E+01
- PKER_RACCSS( 4, 24) = 0.171293E+01
- PKER_RACCSS( 4, 25) = 0.173974E+01
- PKER_RACCSS( 4, 26) = 0.176193E+01
- PKER_RACCSS( 4, 27) = 0.178029E+01
- PKER_RACCSS( 4, 28) = 0.179549E+01
- PKER_RACCSS( 4, 29) = 0.180807E+01
- PKER_RACCSS( 4, 30) = 0.181848E+01
- PKER_RACCSS( 4, 31) = 0.182709E+01
- PKER_RACCSS( 4, 32) = 0.183423E+01
- PKER_RACCSS( 4, 33) = 0.184013E+01
- PKER_RACCSS( 4, 34) = 0.184502E+01
- PKER_RACCSS( 4, 35) = 0.184906E+01
- PKER_RACCSS( 4, 36) = 0.185241E+01
- PKER_RACCSS( 4, 37) = 0.185518E+01
- PKER_RACCSS( 4, 38) = 0.185747E+01
- PKER_RACCSS( 4, 39) = 0.185937E+01
- PKER_RACCSS( 4, 40) = 0.186094E+01
- PKER_RACCSS( 5, 1) = 0.352472E+01
- PKER_RACCSS( 5, 2) = 0.390184E+01
- PKER_RACCSS( 5, 3) = 0.393452E+01
- PKER_RACCSS( 5, 4) = 0.366051E+01
- PKER_RACCSS( 5, 5) = 0.317719E+01
- PKER_RACCSS( 5, 6) = 0.259404E+01
- PKER_RACCSS( 5, 7) = 0.200191E+01
- PKER_RACCSS( 5, 8) = 0.146469E+01
- PKER_RACCSS( 5, 9) = 0.102673E+01
- PKER_RACCSS( 5, 10) = 0.718755E+00
- PKER_RACCSS( 5, 11) = 0.556693E+00
- PKER_RACCSS( 5, 12) = 0.533409E+00
- PKER_RACCSS( 5, 13) = 0.614372E+00
- PKER_RACCSS( 5, 14) = 0.752546E+00
- PKER_RACCSS( 5, 15) = 0.904981E+00
- PKER_RACCSS( 5, 16) = 0.104611E+01
- PKER_RACCSS( 5, 17) = 0.116720E+01
- PKER_RACCSS( 5, 18) = 0.126824E+01
- PKER_RACCSS( 5, 19) = 0.135194E+01
- PKER_RACCSS( 5, 20) = 0.142116E+01
- PKER_RACCSS( 5, 21) = 0.147842E+01
- PKER_RACCSS( 5, 22) = 0.152579E+01
- PKER_RACCSS( 5, 23) = 0.156498E+01
- PKER_RACCSS( 5, 24) = 0.159741E+01
- PKER_RACCSS( 5, 25) = 0.162424E+01
- PKER_RACCSS( 5, 26) = 0.164644E+01
- PKER_RACCSS( 5, 27) = 0.166482E+01
- PKER_RACCSS( 5, 28) = 0.168003E+01
- PKER_RACCSS( 5, 29) = 0.169261E+01
- PKER_RACCSS( 5, 30) = 0.170303E+01
- PKER_RACCSS( 5, 31) = 0.171165E+01
- PKER_RACCSS( 5, 32) = 0.171879E+01
- PKER_RACCSS( 5, 33) = 0.172469E+01
- PKER_RACCSS( 5, 34) = 0.172958E+01
- PKER_RACCSS( 5, 35) = 0.173363E+01
- PKER_RACCSS( 5, 36) = 0.173698E+01
- PKER_RACCSS( 5, 37) = 0.173975E+01
- PKER_RACCSS( 5, 38) = 0.174205E+01
- PKER_RACCSS( 5, 39) = 0.174395E+01
- PKER_RACCSS( 5, 40) = 0.174552E+01
- PKER_RACCSS( 6, 1) = 0.228210E+01
- PKER_RACCSS( 6, 2) = 0.280066E+01
- PKER_RACCSS( 6, 3) = 0.308657E+01
- PKER_RACCSS( 6, 4) = 0.309355E+01
- PKER_RACCSS( 6, 5) = 0.285370E+01
- PKER_RACCSS( 6, 6) = 0.244776E+01
- PKER_RACCSS( 6, 7) = 0.196661E+01
- PKER_RACCSS( 6, 8) = 0.148740E+01
- PKER_RACCSS( 6, 9) = 0.106708E+01
- PKER_RACCSS( 6, 10) = 0.746205E+00
- PKER_RACCSS( 6, 11) = 0.551114E+00
- PKER_RACCSS( 6, 12) = 0.488949E+00
- PKER_RACCSS( 6, 13) = 0.538117E+00
- PKER_RACCSS( 6, 14) = 0.656577E+00
- PKER_RACCSS( 6, 15) = 0.799740E+00
- PKER_RACCSS( 6, 16) = 0.937749E+00
- PKER_RACCSS( 6, 17) = 0.105821E+01
- PKER_RACCSS( 6, 18) = 0.115932E+01
- PKER_RACCSS( 6, 19) = 0.124316E+01
- PKER_RACCSS( 6, 20) = 0.131250E+01
- PKER_RACCSS( 6, 21) = 0.136985E+01
- PKER_RACCSS( 6, 22) = 0.141729E+01
- PKER_RACCSS( 6, 23) = 0.145653E+01
- PKER_RACCSS( 6, 24) = 0.148899E+01
- PKER_RACCSS( 6, 25) = 0.151585E+01
- PKER_RACCSS( 6, 26) = 0.153808E+01
- PKER_RACCSS( 6, 27) = 0.155647E+01
- PKER_RACCSS( 6, 28) = 0.157169E+01
- PKER_RACCSS( 6, 29) = 0.158429E+01
- PKER_RACCSS( 6, 30) = 0.159471E+01
- PKER_RACCSS( 6, 31) = 0.160334E+01
- PKER_RACCSS( 6, 32) = 0.161048E+01
- PKER_RACCSS( 6, 33) = 0.161639E+01
- PKER_RACCSS( 6, 34) = 0.162128E+01
- PKER_RACCSS( 6, 35) = 0.162533E+01
- PKER_RACCSS( 6, 36) = 0.162868E+01
- PKER_RACCSS( 6, 37) = 0.163145E+01
- PKER_RACCSS( 6, 38) = 0.163375E+01
- PKER_RACCSS( 6, 39) = 0.163565E+01
- PKER_RACCSS( 6, 40) = 0.163722E+01
- PKER_RACCSS( 7, 1) = 0.148782E+01
- PKER_RACCSS( 7, 2) = 0.200771E+01
- PKER_RACCSS( 7, 3) = 0.220555E+01
- PKER_RACCSS( 7, 4) = 0.241780E+01
- PKER_RACCSS( 7, 5) = 0.240508E+01
- PKER_RACCSS( 7, 6) = 0.219547E+01
- PKER_RACCSS( 7, 7) = 0.185621E+01
- PKER_RACCSS( 7, 8) = 0.146365E+01
- PKER_RACCSS( 7, 9) = 0.108448E+01
- PKER_RACCSS( 7, 10) = 0.770204E+00
- PKER_RACCSS( 7, 11) = 0.556115E+00
- PKER_RACCSS( 7, 12) = 0.459612E+00
- PKER_RACCSS( 7, 13) = 0.474417E+00
- PKER_RACCSS( 7, 14) = 0.568754E+00
- PKER_RACCSS( 7, 15) = 0.700250E+00
- PKER_RACCSS( 7, 16) = 0.834630E+00
- PKER_RACCSS( 7, 17) = 0.954778E+00
- PKER_RACCSS( 7, 18) = 0.105642E+01
- PKER_RACCSS( 7, 19) = 0.114078E+01
- PKER_RACCSS( 7, 20) = 0.121042E+01
- PKER_RACCSS( 7, 21) = 0.126792E+01
- PKER_RACCSS( 7, 22) = 0.131544E+01
- PKER_RACCSS( 7, 23) = 0.135474E+01
- PKER_RACCSS( 7, 24) = 0.138724E+01
- PKER_RACCSS( 7, 25) = 0.141414E+01
- PKER_RACCSS( 7, 26) = 0.143639E+01
- PKER_RACCSS( 7, 27) = 0.145480E+01
- PKER_RACCSS( 7, 28) = 0.147003E+01
- PKER_RACCSS( 7, 29) = 0.148264E+01
- PKER_RACCSS( 7, 30) = 0.149307E+01
- PKER_RACCSS( 7, 31) = 0.150171E+01
- PKER_RACCSS( 7, 32) = 0.150885E+01
- PKER_RACCSS( 7, 33) = 0.151477E+01
- PKER_RACCSS( 7, 34) = 0.151966E+01
- PKER_RACCSS( 7, 35) = 0.152372E+01
- PKER_RACCSS( 7, 36) = 0.152707E+01
- PKER_RACCSS( 7, 37) = 0.152984E+01
- PKER_RACCSS( 7, 38) = 0.153214E+01
- PKER_RACCSS( 7, 39) = 0.153404E+01
- PKER_RACCSS( 7, 40) = 0.153562E+01
- PKER_RACCSS( 8, 1) = 0.262435E+01
- PKER_RACCSS( 8, 2) = 0.238666E+01
- PKER_RACCSS( 8, 3) = 0.233673E+01
- PKER_RACCSS( 8, 4) = 0.234057E+01
- PKER_RACCSS( 8, 5) = 0.228742E+01
- PKER_RACCSS( 8, 6) = 0.212164E+01
- PKER_RACCSS( 8, 7) = 0.184665E+01
- PKER_RACCSS( 8, 8) = 0.150391E+01
- PKER_RACCSS( 8, 9) = 0.114827E+01
- PKER_RACCSS( 8, 10) = 0.831674E+00
- PKER_RACCSS( 8, 11) = 0.595148E+00
- PKER_RACCSS( 8, 12) = 0.463804E+00
- PKER_RACCSS( 8, 13) = 0.440716E+00
- PKER_RACCSS( 8, 14) = 0.503716E+00
- PKER_RACCSS( 8, 15) = 0.616434E+00
- PKER_RACCSS( 8, 16) = 0.742493E+00
- PKER_RACCSS( 8, 17) = 0.859895E+00
- PKER_RACCSS( 8, 18) = 0.960763E+00
- PKER_RACCSS( 8, 19) = 0.104493E+01
- PKER_RACCSS( 8, 20) = 0.111460E+01
- PKER_RACCSS( 8, 21) = 0.117219E+01
- PKER_RACCSS( 8, 22) = 0.121981E+01
- PKER_RACCSS( 8, 23) = 0.125918E+01
- PKER_RACCSS( 8, 24) = 0.129174E+01
- PKER_RACCSS( 8, 25) = 0.131868E+01
- PKER_RACCSS( 8, 26) = 0.134096E+01
- PKER_RACCSS( 8, 27) = 0.135939E+01
- PKER_RACCSS( 8, 28) = 0.137465E+01
- PKER_RACCSS( 8, 29) = 0.138727E+01
- PKER_RACCSS( 8, 30) = 0.139771E+01
- PKER_RACCSS( 8, 31) = 0.140635E+01
- PKER_RACCSS( 8, 32) = 0.141350E+01
- PKER_RACCSS( 8, 33) = 0.141942E+01
- PKER_RACCSS( 8, 34) = 0.142432E+01
- PKER_RACCSS( 8, 35) = 0.142838E+01
- PKER_RACCSS( 8, 36) = 0.143173E+01
- PKER_RACCSS( 8, 37) = 0.143451E+01
- PKER_RACCSS( 8, 38) = 0.143681E+01
- PKER_RACCSS( 8, 39) = 0.143871E+01
- PKER_RACCSS( 8, 40) = 0.144029E+01
- PKER_RACCSS( 9, 1) = 0.258564E+01
- PKER_RACCSS( 9, 2) = 0.212607E+01
- PKER_RACCSS( 9, 3) = 0.191008E+01
- PKER_RACCSS( 9, 4) = 0.184553E+01
- PKER_RACCSS( 9, 5) = 0.182496E+01
- PKER_RACCSS( 9, 6) = 0.176067E+01
- PKER_RACCSS( 9, 7) = 0.160989E+01
- PKER_RACCSS( 9, 8) = 0.137709E+01
- PKER_RACCSS( 9, 9) = 0.109833E+01
- PKER_RACCSS( 9, 10) = 0.821651E+00
- PKER_RACCSS( 9, 11) = 0.593004E+00
- PKER_RACCSS( 9, 12) = 0.447502E+00
- PKER_RACCSS( 9, 13) = 0.400378E+00
- PKER_RACCSS( 9, 14) = 0.440619E+00
- PKER_RACCSS( 9, 15) = 0.537296E+00
- PKER_RACCSS( 9, 16) = 0.655296E+00
- PKER_RACCSS( 9, 17) = 0.769925E+00
- PKER_RACCSS( 9, 18) = 0.870332E+00
- PKER_RACCSS( 9, 19) = 0.954640E+00
- PKER_RACCSS( 9, 20) = 0.102452E+01
- PKER_RACCSS( 9, 21) = 0.108227E+01
- PKER_RACCSS( 9, 22) = 0.113001E+01
- PKER_RACCSS( 9, 23) = 0.116947E+01
- PKER_RACCSS( 9, 24) = 0.120209E+01
- PKER_RACCSS( 9, 25) = 0.122908E+01
- PKER_RACCSS( 9, 26) = 0.125140E+01
- PKER_RACCSS( 9, 27) = 0.126986E+01
- PKER_RACCSS( 9, 28) = 0.128513E+01
- PKER_RACCSS( 9, 29) = 0.129777E+01
- PKER_RACCSS( 9, 30) = 0.130823E+01
- PKER_RACCSS( 9, 31) = 0.131688E+01
- PKER_RACCSS( 9, 32) = 0.132404E+01
- PKER_RACCSS( 9, 33) = 0.132996E+01
- PKER_RACCSS( 9, 34) = 0.133487E+01
- PKER_RACCSS( 9, 35) = 0.133892E+01
- PKER_RACCSS( 9, 36) = 0.134228E+01
- PKER_RACCSS( 9, 37) = 0.134506E+01
- PKER_RACCSS( 9, 38) = 0.134736E+01
- PKER_RACCSS( 9, 39) = 0.134927E+01
- PKER_RACCSS( 9, 40) = 0.135084E+01
- PKER_RACCSS( 10, 1) = 0.326941E+01
- PKER_RACCSS( 10, 2) = 0.247738E+01
- PKER_RACCSS( 10, 3) = 0.198894E+01
- PKER_RACCSS( 10, 4) = 0.173769E+01
- PKER_RACCSS( 10, 5) = 0.163096E+01
- PKER_RACCSS( 10, 6) = 0.156919E+01
- PKER_RACCSS( 10, 7) = 0.147478E+01
- PKER_RACCSS( 10, 8) = 0.119527E+01
- PKER_RACCSS( 10, 9) = 0.100108E+01
- PKER_RACCSS( 10, 10) = 0.781320E+00
- PKER_RACCSS( 10, 11) = 0.578296E+00
- PKER_RACCSS( 10, 12) = 0.430609E+00
- PKER_RACCSS( 10, 13) = 0.363116E+00
- PKER_RACCSS( 10, 14) = 0.377933E+00
- PKER_RACCSS( 10, 15) = 0.453999E+00
- PKER_RACCSS( 10, 16) = 0.559195E+00
- PKER_RACCSS( 10, 17) = 0.666791E+00
- PKER_RACCSS( 10, 18) = 0.764030E+00
- PKER_RACCSS( 10, 19) = 0.848611E+00
- PKER_RACCSS( 10, 20) = 0.922036E+00
- PKER_RACCSS( 10, 21) = 0.985589E+00
- PKER_RACCSS( 10, 22) = 0.103929E+01
- PKER_RACCSS( 10, 23) = 0.108289E+01
- PKER_RACCSS( 10, 24) = 0.111739E+01
- PKER_RACCSS( 10, 25) = 0.114490E+01
- PKER_RACCSS( 10, 26) = 0.116733E+01
- PKER_RACCSS( 10, 27) = 0.118583E+01
- PKER_RACCSS( 10, 28) = 0.120113E+01
- PKER_RACCSS( 10, 29) = 0.121379E+01
- PKER_RACCSS( 10, 30) = 0.122426E+01
- PKER_RACCSS( 10, 31) = 0.123292E+01
- PKER_RACCSS( 10, 32) = 0.124009E+01
- PKER_RACCSS( 10, 33) = 0.124602E+01
- PKER_RACCSS( 10, 34) = 0.125093E+01
- PKER_RACCSS( 10, 35) = 0.125500E+01
- PKER_RACCSS( 10, 36) = 0.125836E+01
- PKER_RACCSS( 10, 37) = 0.126114E+01
- PKER_RACCSS( 10, 38) = 0.126344E+01
- PKER_RACCSS( 10, 39) = 0.126535E+01
- PKER_RACCSS( 10, 40) = 0.126692E+01
- PKER_RACCSS( 11, 1) = 0.540047E+01
- PKER_RACCSS( 11, 2) = 0.406788E+01
- PKER_RACCSS( 11, 3) = 0.307616E+01
- PKER_RACCSS( 11, 4) = 0.238233E+01
- PKER_RACCSS( 11, 5) = 0.192893E+01
- PKER_RACCSS( 11, 6) = 0.164024E+01
- PKER_RACCSS( 11, 7) = 0.143525E+01
- PKER_RACCSS( 11, 8) = 0.124898E+01
- PKER_RACCSS( 11, 9) = 0.104781E+01
- PKER_RACCSS( 11, 10) = 0.832136E+00
- PKER_RACCSS( 11, 11) = 0.625559E+00
- PKER_RACCSS( 11, 12) = 0.461096E+00
- PKER_RACCSS( 11, 13) = 0.367093E+00
- PKER_RACCSS( 11, 14) = 0.353793E+00
- PKER_RACCSS( 11, 15) = 0.408329E+00
- PKER_RACCSS( 11, 16) = 0.502430E+00
- PKER_RACCSS( 11, 17) = 0.607438E+00
- PKER_RACCSS( 11, 18) = 0.705454E+00
- PKER_RACCSS( 11, 19) = 0.789792E+00
- PKER_RACCSS( 11, 20) = 0.860149E+00
- PKER_RACCSS( 11, 21) = 0.918336E+00
- PKER_RACCSS( 11, 22) = 0.966393E+00
- PKER_RACCSS( 11, 23) = 0.100609E+01
- PKER_RACCSS( 11, 24) = 0.103890E+01
- PKER_RACCSS( 11, 25) = 0.106601E+01
- PKER_RACCSS( 11, 26) = 0.108843E+01
- PKER_RACCSS( 11, 27) = 0.110696E+01
- PKER_RACCSS( 11, 28) = 0.112230E+01
- PKER_RACCSS( 11, 29) = 0.113498E+01
- PKER_RACCSS( 11, 30) = 0.114547E+01
- PKER_RACCSS( 11, 31) = 0.115414E+01
- PKER_RACCSS( 11, 32) = 0.116132E+01
- PKER_RACCSS( 11, 33) = 0.116726E+01
- PKER_RACCSS( 11, 34) = 0.117218E+01
- PKER_RACCSS( 11, 35) = 0.117625E+01
- PKER_RACCSS( 11, 36) = 0.117961E+01
- PKER_RACCSS( 11, 37) = 0.118240E+01
- PKER_RACCSS( 11, 38) = 0.118470E+01
- PKER_RACCSS( 11, 39) = 0.118661E+01
- PKER_RACCSS( 11, 40) = 0.118819E+01
- PKER_RACCSS( 12, 1) = 0.782212E+01
- PKER_RACCSS( 12, 2) = 0.599420E+01
- PKER_RACCSS( 12, 3) = 0.455236E+01
- PKER_RACCSS( 12, 4) = 0.345125E+01
- PKER_RACCSS( 12, 5) = 0.264475E+01
- PKER_RACCSS( 12, 6) = 0.207701E+01
- PKER_RACCSS( 12, 7) = 0.168031E+01
- PKER_RACCSS( 12, 8) = 0.138445E+01
- PKER_RACCSS( 12, 9) = 0.113395E+01
- PKER_RACCSS( 12, 10) = 0.900399E+00
- PKER_RACCSS( 12, 11) = 0.683291E+00
- PKER_RACCSS( 12, 12) = 0.501952E+00
- PKER_RACCSS( 12, 13) = 0.380903E+00
- PKER_RACCSS( 12, 14) = 0.335581E+00
- PKER_RACCSS( 12, 15) = 0.362162E+00
- PKER_RACCSS( 12, 16) = 0.438221E+00
- PKER_RACCSS( 12, 17) = 0.534996E+00
- PKER_RACCSS( 12, 18) = 0.630498E+00
- PKER_RACCSS( 12, 19) = 0.714544E+00
- PKER_RACCSS( 12, 20) = 0.785149E+00
- PKER_RACCSS( 12, 21) = 0.843614E+00
- PKER_RACCSS( 12, 22) = 0.891886E+00
- PKER_RACCSS( 12, 23) = 0.931743E+00
- PKER_RACCSS( 12, 24) = 0.964664E+00
- PKER_RACCSS( 12, 25) = 0.991866E+00
- PKER_RACCSS( 12, 26) = 0.101435E+01
- PKER_RACCSS( 12, 27) = 0.103293E+01
- PKER_RACCSS( 12, 28) = 0.104830E+01
- PKER_RACCSS( 12, 29) = 0.106101E+01
- PKER_RACCSS( 12, 30) = 0.107152E+01
- PKER_RACCSS( 12, 31) = 0.108022E+01
- PKER_RACCSS( 12, 32) = 0.108741E+01
- PKER_RACCSS( 12, 33) = 0.109336E+01
- PKER_RACCSS( 12, 34) = 0.109828E+01
- PKER_RACCSS( 12, 35) = 0.110236E+01
- PKER_RACCSS( 12, 36) = 0.110573E+01
- PKER_RACCSS( 12, 37) = 0.110852E+01
- PKER_RACCSS( 12, 38) = 0.111082E+01
- PKER_RACCSS( 12, 39) = 0.111273E+01
- PKER_RACCSS( 12, 40) = 0.111431E+01
- PKER_RACCSS( 13, 1) = 0.981788E+01
- PKER_RACCSS( 13, 2) = 0.766217E+01
- PKER_RACCSS( 13, 3) = 0.591544E+01
- PKER_RACCSS( 13, 4) = 0.452414E+01
- PKER_RACCSS( 13, 5) = 0.344339E+01
- PKER_RACCSS( 13, 6) = 0.262943E+01
- PKER_RACCSS( 13, 7) = 0.203218E+01
- PKER_RACCSS( 13, 8) = 0.159445E+01
- PKER_RACCSS( 13, 9) = 0.125920E+01
- PKER_RACCSS( 13, 10) = 0.982700E+00
- PKER_RACCSS( 13, 11) = 0.743668E+00
- PKER_RACCSS( 13, 12) = 0.544085E+00
- PKER_RACCSS( 13, 13) = 0.399552E+00
- PKER_RACCSS( 13, 14) = 0.325874E+00
- PKER_RACCSS( 13, 15) = 0.325287E+00
- PKER_RACCSS( 13, 16) = 0.381940E+00
- PKER_RACCSS( 13, 17) = 0.468486E+00
- PKER_RACCSS( 13, 18) = 0.560310E+00
- PKER_RACCSS( 13, 19) = 0.643677E+00
- PKER_RACCSS( 13, 20) = 0.714489E+00
- PKER_RACCSS( 13, 21) = 0.773275E+00
- PKER_RACCSS( 13, 22) = 0.821809E+00
- PKER_RACCSS( 13, 23) = 0.861858E+00
- PKER_RACCSS( 13, 24) = 0.894921E+00
- PKER_RACCSS( 13, 25) = 0.922229E+00
- PKER_RACCSS( 13, 26) = 0.944790E+00
- PKER_RACCSS( 13, 27) = 0.963435E+00
- PKER_RACCSS( 13, 28) = 0.978848E+00
- PKER_RACCSS( 13, 29) = 0.991591E+00
- PKER_RACCSS( 13, 30) = 0.100213E+01
- PKER_RACCSS( 13, 31) = 0.101084E+01
- PKER_RACCSS( 13, 32) = 0.101805E+01
- PKER_RACCSS( 13, 33) = 0.102401E+01
- PKER_RACCSS( 13, 34) = 0.102895E+01
- PKER_RACCSS( 13, 35) = 0.103303E+01
- PKER_RACCSS( 13, 36) = 0.103640E+01
- PKER_RACCSS( 13, 37) = 0.103920E+01
- PKER_RACCSS( 13, 38) = 0.104151E+01
- PKER_RACCSS( 13, 39) = 0.104342E+01
- PKER_RACCSS( 13, 40) = 0.104500E+01
- PKER_RACCSS( 14, 1) = 0.113567E+02
- PKER_RACCSS( 14, 2) = 0.899336E+01
- PKER_RACCSS( 14, 3) = 0.705312E+01
- PKER_RACCSS( 14, 4) = 0.547412E+01
- PKER_RACCSS( 14, 5) = 0.420687E+01
- PKER_RACCSS( 14, 6) = 0.320973E+01
- PKER_RACCSS( 14, 7) = 0.244303E+01
- PKER_RACCSS( 14, 8) = 0.186415E+01
- PKER_RACCSS( 14, 9) = 0.142646E+01
- PKER_RACCSS( 14, 10) = 0.108627E+01
- PKER_RACCSS( 14, 11) = 0.811450E+00
- PKER_RACCSS( 14, 12) = 0.588974E+00
- PKER_RACCSS( 14, 13) = 0.422701E+00
- PKER_RACCSS( 14, 14) = 0.323861E+00
- PKER_RACCSS( 14, 15) = 0.298012E+00
- PKER_RACCSS( 14, 16) = 0.334007E+00
- PKER_RACCSS( 14, 17) = 0.408204E+00
- PKER_RACCSS( 14, 18) = 0.494846E+00
- PKER_RACCSS( 14, 19) = 0.576947E+00
- PKER_RACCSS( 14, 20) = 0.647860E+00
- PKER_RACCSS( 14, 21) = 0.707002E+00
- PKER_RACCSS( 14, 22) = 0.755849E+00
- PKER_RACCSS( 14, 23) = 0.796134E+00
- PKER_RACCSS( 14, 24) = 0.829370E+00
- PKER_RACCSS( 14, 25) = 0.856805E+00
- PKER_RACCSS( 14, 26) = 0.879461E+00
- PKER_RACCSS( 14, 27) = 0.898178E+00
- PKER_RACCSS( 14, 28) = 0.913645E+00
- PKER_RACCSS( 14, 29) = 0.926429E+00
- PKER_RACCSS( 14, 30) = 0.936998E+00
- PKER_RACCSS( 14, 31) = 0.945737E+00
- PKER_RACCSS( 14, 32) = 0.952964E+00
- PKER_RACCSS( 14, 33) = 0.958941E+00
- PKER_RACCSS( 14, 34) = 0.963884E+00
- PKER_RACCSS( 14, 35) = 0.967974E+00
- PKER_RACCSS( 14, 36) = 0.971357E+00
- PKER_RACCSS( 14, 37) = 0.974155E+00
- PKER_RACCSS( 14, 38) = 0.976471E+00
- PKER_RACCSS( 14, 39) = 0.978386E+00
- PKER_RACCSS( 14, 40) = 0.979971E+00
- PKER_RACCSS( 15, 1) = 0.124924E+02
- PKER_RACCSS( 15, 2) = 0.100003E+02
- PKER_RACCSS( 15, 3) = 0.794169E+01
- PKER_RACCSS( 15, 4) = 0.624828E+01
- PKER_RACCSS( 15, 5) = 0.486528E+01
- PKER_RACCSS( 15, 6) = 0.374844E+01
- PKER_RACCSS( 15, 7) = 0.286039E+01
- PKER_RACCSS( 15, 8) = 0.216647E+01
- PKER_RACCSS( 15, 9) = 0.163111E+01
- PKER_RACCSS( 15, 10) = 0.121825E+01
- PKER_RACCSS( 15, 11) = 0.895737E+00
- PKER_RACCSS( 15, 12) = 0.642706E+00
- PKER_RACCSS( 15, 13) = 0.452742E+00
- PKER_RACCSS( 15, 14) = 0.330032E+00
- PKER_RACCSS( 15, 15) = 0.279351E+00
- PKER_RACCSS( 15, 16) = 0.294228E+00
- PKER_RACCSS( 15, 17) = 0.354314E+00
- PKER_RACCSS( 15, 18) = 0.434176E+00
- PKER_RACCSS( 15, 19) = 0.514178E+00
- PKER_RACCSS( 15, 20) = 0.584975E+00
- PKER_RACCSS( 15, 21) = 0.644491E+00
- PKER_RACCSS( 15, 22) = 0.693710E+00
- PKER_RACCSS( 15, 23) = 0.734280E+00
- PKER_RACCSS( 15, 24) = 0.767726E+00
- PKER_RACCSS( 15, 25) = 0.795316E+00
- PKER_RACCSS( 15, 26) = 0.818088E+00
- PKER_RACCSS( 15, 27) = 0.836891E+00
- PKER_RACCSS( 15, 28) = 0.852423E+00
- PKER_RACCSS( 15, 29) = 0.865256E+00
- PKER_RACCSS( 15, 30) = 0.875863E+00
- PKER_RACCSS( 15, 31) = 0.884631E+00
- PKER_RACCSS( 15, 32) = 0.891880E+00
- PKER_RACCSS( 15, 33) = 0.897874E+00
- PKER_RACCSS( 15, 34) = 0.902831E+00
- PKER_RACCSS( 15, 35) = 0.906930E+00
- PKER_RACCSS( 15, 36) = 0.910321E+00
- PKER_RACCSS( 15, 37) = 0.913126E+00
- PKER_RACCSS( 15, 38) = 0.915447E+00
- PKER_RACCSS( 15, 39) = 0.917366E+00
- PKER_RACCSS( 15, 40) = 0.918954E+00
- PKER_RACCSS( 16, 1) = 0.136907E+02
- PKER_RACCSS( 16, 2) = 0.110657E+02
- PKER_RACCSS( 16, 3) = 0.889092E+01
- PKER_RACCSS( 16, 4) = 0.709169E+01
- PKER_RACCSS( 16, 5) = 0.560750E+01
- PKER_RACCSS( 16, 6) = 0.438940E+01
- PKER_RACCSS( 16, 7) = 0.339760E+01
- PKER_RACCSS( 16, 8) = 0.259872E+01
- PKER_RACCSS( 16, 9) = 0.196266E+01
- PKER_RACCSS( 16, 10) = 0.146081E+01
- PKER_RACCSS( 16, 11) = 0.106641E+01
- PKER_RACCSS( 16, 12) = 0.758348E+00
- PKER_RACCSS( 16, 13) = 0.524888E+00
- PKER_RACCSS( 16, 14) = 0.364964E+00
- PKER_RACCSS( 16, 15) = 0.280630E+00
- PKER_RACCSS( 16, 16) = 0.267498E+00
- PKER_RACCSS( 16, 17) = 0.308591E+00
- PKER_RACCSS( 16, 18) = 0.378682E+00
- PKER_RACCSS( 16, 19) = 0.455284E+00
- PKER_RACCSS( 16, 20) = 0.525585E+00
- PKER_RACCSS( 16, 21) = 0.585451E+00
- PKER_RACCSS( 16, 22) = 0.635103E+00
- PKER_RACCSS( 16, 23) = 0.676018E+00
- PKER_RACCSS( 16, 24) = 0.709719E+00
- PKER_RACCSS( 16, 25) = 0.737497E+00
- PKER_RACCSS( 16, 26) = 0.760408E+00
- PKER_RACCSS( 16, 27) = 0.779316E+00
- PKER_RACCSS( 16, 28) = 0.794926E+00
- PKER_RACCSS( 16, 29) = 0.807819E+00
- PKER_RACCSS( 16, 30) = 0.818471E+00
- PKER_RACCSS( 16, 31) = 0.827273E+00
- PKER_RACCSS( 16, 32) = 0.834549E+00
- PKER_RACCSS( 16, 33) = 0.840564E+00
- PKER_RACCSS( 16, 34) = 0.845537E+00
- PKER_RACCSS( 16, 35) = 0.849649E+00
- PKER_RACCSS( 16, 36) = 0.853049E+00
- PKER_RACCSS( 16, 37) = 0.855862E+00
- PKER_RACCSS( 16, 38) = 0.858188E+00
- PKER_RACCSS( 16, 39) = 0.860112E+00
- PKER_RACCSS( 16, 40) = 0.861704E+00
- PKER_RACCSS( 17, 1) = 0.143219E+02
- PKER_RACCSS( 17, 2) = 0.116425E+02
- PKER_RACCSS( 17, 3) = 0.942087E+01
- PKER_RACCSS( 17, 4) = 0.757943E+01
- PKER_RACCSS( 17, 5) = 0.605456E+01
- PKER_RACCSS( 17, 6) = 0.479437E+01
- PKER_RACCSS( 17, 7) = 0.375669E+01
- PKER_RACCSS( 17, 8) = 0.290705E+01
- PKER_RACCSS( 17, 9) = 0.221663E+01
- PKER_RACCSS( 17, 10) = 0.166050E+01
- PKER_RACCSS( 17, 11) = 0.121648E+01
- PKER_RACCSS( 17, 12) = 0.866211E+00
- PKER_RACCSS( 17, 13) = 0.597261E+00
- PKER_RACCSS( 17, 14) = 0.405300E+00
- PKER_RACCSS( 17, 15) = 0.290505E+00
- PKER_RACCSS( 17, 16) = 0.250047E+00
- PKER_RACCSS( 17, 17) = 0.270435E+00
- PKER_RACCSS( 17, 18) = 0.328579E+00
- PKER_RACCSS( 17, 19) = 0.400271E+00
- PKER_RACCSS( 17, 20) = 0.469487E+00
- PKER_RACCSS( 17, 21) = 0.529608E+00
- PKER_RACCSS( 17, 22) = 0.579747E+00
- PKER_RACCSS( 17, 23) = 0.621077E+00
- PKER_RACCSS( 17, 24) = 0.655088E+00
- PKER_RACCSS( 17, 25) = 0.683095E+00
- PKER_RACCSS( 17, 26) = 0.706175E+00
- PKER_RACCSS( 17, 27) = 0.725209E+00
- PKER_RACCSS( 17, 28) = 0.740914E+00
- PKER_RACCSS( 17, 29) = 0.753878E+00
- PKER_RACCSS( 17, 30) = 0.764585E+00
- PKER_RACCSS( 17, 31) = 0.773429E+00
- PKER_RACCSS( 17, 32) = 0.780736E+00
- PKER_RACCSS( 17, 33) = 0.786775E+00
- PKER_RACCSS( 17, 34) = 0.791767E+00
- PKER_RACCSS( 17, 35) = 0.795894E+00
- PKER_RACCSS( 17, 36) = 0.799306E+00
- PKER_RACCSS( 17, 37) = 0.802128E+00
- PKER_RACCSS( 17, 38) = 0.804461E+00
- PKER_RACCSS( 17, 39) = 0.806391E+00
- PKER_RACCSS( 17, 40) = 0.807987E+00
- PKER_RACCSS( 18, 1) = 0.147209E+02
- PKER_RACCSS( 18, 2) = 0.120131E+02
- PKER_RACCSS( 18, 3) = 0.976801E+01
- PKER_RACCSS( 18, 4) = 0.790632E+01
- PKER_RACCSS( 18, 5) = 0.636267E+01
- PKER_RACCSS( 18, 6) = 0.508334E+01
- PKER_RACCSS( 18, 7) = 0.402439E+01
- PKER_RACCSS( 18, 8) = 0.314991E+01
- PKER_RACCSS( 18, 9) = 0.243053E+01
- PKER_RACCSS( 18, 10) = 0.184200E+01
- PKER_RACCSS( 18, 11) = 0.136420E+01
- PKER_RACCSS( 18, 12) = 0.980889E+00
- PKER_RACCSS( 18, 13) = 0.680705E+00
- PKER_RACCSS( 18, 14) = 0.458391E+00
- PKER_RACCSS( 18, 15) = 0.313204E+00
- PKER_RACCSS( 18, 16) = 0.244163E+00
- PKER_RACCSS( 18, 17) = 0.241397E+00
- PKER_RACCSS( 18, 18) = 0.284627E+00
- PKER_RACCSS( 18, 19) = 0.349372E+00
- PKER_RACCSS( 18, 20) = 0.416570E+00
- PKER_RACCSS( 18, 21) = 0.476717E+00
- PKER_RACCSS( 18, 22) = 0.527374E+00
- PKER_RACCSS( 18, 23) = 0.569195E+00
- PKER_RACCSS( 18, 24) = 0.603582E+00
- PKER_RACCSS( 18, 25) = 0.631866E+00
- PKER_RACCSS( 18, 26) = 0.655151E+00
- PKER_RACCSS( 18, 27) = 0.674337E+00
- PKER_RACCSS( 18, 28) = 0.690157E+00
- PKER_RACCSS( 18, 29) = 0.703207E+00
- PKER_RACCSS( 18, 30) = 0.713979E+00
- PKER_RACCSS( 18, 31) = 0.722873E+00
- PKER_RACCSS( 18, 32) = 0.730219E+00
- PKER_RACCSS( 18, 33) = 0.736287E+00
- PKER_RACCSS( 18, 34) = 0.741302E+00
- PKER_RACCSS( 18, 35) = 0.745447E+00
- PKER_RACCSS( 18, 36) = 0.748872E+00
- PKER_RACCSS( 18, 37) = 0.751705E+00
- PKER_RACCSS( 18, 38) = 0.754046E+00
- PKER_RACCSS( 18, 39) = 0.755982E+00
- PKER_RACCSS( 18, 40) = 0.757584E+00
- PKER_RACCSS( 19, 1) = 0.149183E+02
- PKER_RACCSS( 19, 2) = 0.122030E+02
- PKER_RACCSS( 19, 3) = 0.994164E+01
- PKER_RACCSS( 19, 4) = 0.807634E+01
- PKER_RACCSS( 19, 5) = 0.652942E+01
- PKER_RACCSS( 19, 6) = 0.524643E+01
- PKER_RACCSS( 19, 7) = 0.418260E+01
- PKER_RACCSS( 19, 8) = 0.330120E+01
- PKER_RACCSS( 19, 9) = 0.257220E+01
- PKER_RACCSS( 19, 10) = 0.197109E+01
- PKER_RACCSS( 19, 11) = 0.147799E+01
- PKER_RACCSS( 19, 12) = 0.107723E+01
- PKER_RACCSS( 19, 13) = 0.757647E+00
- PKER_RACCSS( 19, 14) = 0.513325E+00
- PKER_RACCSS( 19, 15) = 0.343389E+00
- PKER_RACCSS( 19, 16) = 0.247854E+00
- PKER_RACCSS( 19, 17) = 0.221083E+00
- PKER_RACCSS( 19, 18) = 0.247150E+00
- PKER_RACCSS( 19, 19) = 0.302778E+00
- PKER_RACCSS( 19, 20) = 0.366775E+00
- PKER_RACCSS( 19, 21) = 0.426568E+00
- PKER_RACCSS( 19, 22) = 0.477725E+00
- PKER_RACCSS( 19, 23) = 0.520116E+00
- PKER_RACCSS( 19, 24) = 0.554956E+00
- PKER_RACCSS( 19, 25) = 0.583576E+00
- PKER_RACCSS( 19, 26) = 0.607109E+00
- PKER_RACCSS( 19, 27) = 0.626480E+00
- PKER_RACCSS( 19, 28) = 0.642437E+00
- PKER_RACCSS( 19, 29) = 0.655592E+00
- PKER_RACCSS( 19, 30) = 0.666442E+00
- PKER_RACCSS( 19, 31) = 0.675396E+00
- PKER_RACCSS( 19, 32) = 0.682788E+00
- PKER_RACCSS( 19, 33) = 0.688892E+00
- PKER_RACCSS( 19, 34) = 0.693934E+00
- PKER_RACCSS( 19, 35) = 0.698099E+00
- PKER_RACCSS( 19, 36) = 0.701541E+00
- PKER_RACCSS( 19, 37) = 0.704386E+00
- PKER_RACCSS( 19, 38) = 0.706738E+00
- PKER_RACCSS( 19, 39) = 0.708682E+00
- PKER_RACCSS( 19, 40) = 0.710289E+00
- PKER_RACCSS( 20, 1) = 0.149148E+02
- PKER_RACCSS( 20, 2) = 0.121968E+02
- PKER_RACCSS( 20, 3) = 0.994688E+01
- PKER_RACCSS( 20, 4) = 0.808241E+01
- PKER_RACCSS( 20, 5) = 0.653732E+01
- PKER_RACCSS( 20, 6) = 0.525704E+01
- PKER_RACCSS( 20, 7) = 0.419660E+01
- PKER_RACCSS( 20, 8) = 0.331897E+01
- PKER_RACCSS( 20, 9) = 0.259370E+01
- PKER_RACCSS( 20, 10) = 0.199579E+01
- PKER_RACCSS( 20, 11) = 0.150482E+01
- PKER_RACCSS( 20, 12) = 0.110452E+01
- PKER_RACCSS( 20, 13) = 0.783023E+00
- PKER_RACCSS( 20, 14) = 0.533371E+00
- PKER_RACCSS( 20, 15) = 0.353809E+00
- PKER_RACCSS( 20, 16) = 0.245035E+00
- PKER_RACCSS( 20, 17) = 0.204243E+00
- PKER_RACCSS( 20, 18) = 0.219182E+00
- PKER_RACCSS( 20, 19) = 0.268663E+00
- PKER_RACCSS( 20, 20) = 0.330431E+00
- PKER_RACCSS( 20, 21) = 0.389684E+00
- PKER_RACCSS( 20, 22) = 0.440619E+00
- PKER_RACCSS( 20, 23) = 0.482783E+00
- PKER_RACCSS( 20, 24) = 0.517411E+00
- PKER_RACCSS( 20, 25) = 0.545855E+00
- PKER_RACCSS( 20, 26) = 0.569246E+00
- PKER_RACCSS( 20, 27) = 0.588502E+00
- PKER_RACCSS( 20, 28) = 0.604366E+00
- PKER_RACCSS( 20, 29) = 0.617445E+00
- PKER_RACCSS( 20, 30) = 0.628235E+00
- PKER_RACCSS( 20, 31) = 0.637140E+00
- PKER_RACCSS( 20, 32) = 0.644493E+00
- PKER_RACCSS( 20, 33) = 0.650566E+00
- PKER_RACCSS( 20, 34) = 0.655583E+00
- PKER_RACCSS( 20, 35) = 0.659729E+00
- PKER_RACCSS( 20, 36) = 0.663155E+00
- PKER_RACCSS( 20, 37) = 0.665988E+00
- PKER_RACCSS( 20, 38) = 0.668329E+00
- PKER_RACCSS( 20, 39) = 0.670265E+00
- PKER_RACCSS( 20, 40) = 0.671867E+00
- PKER_RACCSS( 21, 1) = 0.150013E+02
- PKER_RACCSS( 21, 2) = 0.122869E+02
- PKER_RACCSS( 21, 3) = 0.100382E+02
- PKER_RACCSS( 21, 4) = 0.817497E+01
- PKER_RACCSS( 21, 5) = 0.663057E+01
- PKER_RACCSS( 21, 6) = 0.535086E+01
- PKER_RACCSS( 21, 7) = 0.429034E+01
- PKER_RACCSS( 21, 8) = 0.341176E+01
- PKER_RACCSS( 21, 9) = 0.268444E+01
- PKER_RACCSS( 21, 10) = 0.208320E+01
- PKER_RACCSS( 21, 11) = 0.158747E+01
- PKER_RACCSS( 21, 12) = 0.118074E+01
- PKER_RACCSS( 21, 13) = 0.850535E+00
- PKER_RACCSS( 21, 14) = 0.588897E+00
- PKER_RACCSS( 21, 15) = 0.392828E+00
- PKER_RACCSS( 21, 16) = 0.262954E+00
- PKER_RACCSS( 21, 17) = 0.199389E+00
- PKER_RACCSS( 21, 18) = 0.194569E+00
- PKER_RACCSS( 21, 19) = 0.231063E+00
- PKER_RACCSS( 21, 20) = 0.286983E+00
- PKER_RACCSS( 21, 21) = 0.344860E+00
- PKER_RACCSS( 21, 22) = 0.396111E+00
- PKER_RACCSS( 21, 23) = 0.438868E+00
- PKER_RACCSS( 21, 24) = 0.473989E+00
- PKER_RACCSS( 21, 25) = 0.502799E+00
- PKER_RACCSS( 21, 26) = 0.526459E+00
- PKER_RACCSS( 21, 27) = 0.545913E+00
- PKER_RACCSS( 21, 28) = 0.561925E+00
- PKER_RACCSS( 21, 29) = 0.575114E+00
- PKER_RACCSS( 21, 30) = 0.585987E+00
- PKER_RACCSS( 21, 31) = 0.594955E+00
- PKER_RACCSS( 21, 32) = 0.602355E+00
- PKER_RACCSS( 21, 33) = 0.608464E+00
- PKER_RACCSS( 21, 34) = 0.613509E+00
- PKER_RACCSS( 21, 35) = 0.617676E+00
- PKER_RACCSS( 21, 36) = 0.621119E+00
- PKER_RACCSS( 21, 37) = 0.623965E+00
- PKER_RACCSS( 21, 38) = 0.626316E+00
- PKER_RACCSS( 21, 39) = 0.628260E+00
- PKER_RACCSS( 21, 40) = 0.629867E+00
- PKER_RACCSS( 22, 1) = 0.150720E+02
- PKER_RACCSS( 22, 2) = 0.123594E+02
- PKER_RACCSS( 22, 3) = 0.101123E+02
- PKER_RACCSS( 22, 4) = 0.825051E+01
- PKER_RACCSS( 22, 5) = 0.670778E+01
- PKER_RACCSS( 22, 6) = 0.542920E+01
- PKER_RACCSS( 22, 7) = 0.436946E+01
- PKER_RACCSS( 22, 8) = 0.349113E+01
- PKER_RACCSS( 22, 9) = 0.276334E+01
- PKER_RACCSS( 22, 10) = 0.216073E+01
- PKER_RACCSS( 22, 11) = 0.166252E+01
- PKER_RACCSS( 22, 12) = 0.125192E+01
- PKER_RACCSS( 22, 13) = 0.915920E+00
- PKER_RACCSS( 22, 14) = 0.645535E+00
- PKER_RACCSS( 22, 15) = 0.436397E+00
- PKER_RACCSS( 22, 16) = 0.288654E+00
- PKER_RACCSS( 22, 17) = 0.203659E+00
- PKER_RACCSS( 22, 18) = 0.178071E+00
- PKER_RACCSS( 22, 19) = 0.199311E+00
- PKER_RACCSS( 22, 20) = 0.247192E+00
- PKER_RACCSS( 22, 21) = 0.302537E+00
- PKER_RACCSS( 22, 22) = 0.353781E+00
- PKER_RACCSS( 22, 23) = 0.397157E+00
- PKER_RACCSS( 22, 24) = 0.432857E+00
- PKER_RACCSS( 22, 25) = 0.462108E+00
- PKER_RACCSS( 22, 26) = 0.486096E+00
- PKER_RACCSS( 22, 27) = 0.505793E+00
- PKER_RACCSS( 22, 28) = 0.521983E+00
- PKER_RACCSS( 22, 29) = 0.535306E+00
- PKER_RACCSS( 22, 30) = 0.546278E+00
- PKER_RACCSS( 22, 31) = 0.555321E+00
- PKER_RACCSS( 22, 32) = 0.562778E+00
- PKER_RACCSS( 22, 33) = 0.568931E+00
- PKER_RACCSS( 22, 34) = 0.574009E+00
- PKER_RACCSS( 22, 35) = 0.578202E+00
- PKER_RACCSS( 22, 36) = 0.581665E+00
- PKER_RACCSS( 22, 37) = 0.584526E+00
- PKER_RACCSS( 22, 38) = 0.586889E+00
- PKER_RACCSS( 22, 39) = 0.588843E+00
- PKER_RACCSS( 22, 40) = 0.590457E+00
- PKER_RACCSS( 23, 1) = 0.150726E+02
- PKER_RACCSS( 23, 2) = 0.123607E+02
- PKER_RACCSS( 23, 3) = 0.101143E+02
- PKER_RACCSS( 23, 4) = 0.825344E+01
- PKER_RACCSS( 23, 5) = 0.671177E+01
- PKER_RACCSS( 23, 6) = 0.543448E+01
- PKER_RACCSS( 23, 7) = 0.437621E+01
- PKER_RACCSS( 23, 8) = 0.349956E+01
- PKER_RACCSS( 23, 9) = 0.277362E+01
- PKER_RACCSS( 23, 10) = 0.217295E+01
- PKER_RACCSS( 23, 11) = 0.167667E+01
- PKER_RACCSS( 23, 12) = 0.126773E+01
- PKER_RACCSS( 23, 13) = 0.932718E+00
- PKER_RACCSS( 23, 14) = 0.661907E+00
- PKER_RACCSS( 23, 15) = 0.449897E+00
- PKER_RACCSS( 23, 16) = 0.295961E+00
- PKER_RACCSS( 23, 17) = 0.201862E+00
- PKER_RACCSS( 23, 18) = 0.166501E+00
- PKER_RACCSS( 23, 19) = 0.180054E+00
- PKER_RACCSS( 23, 20) = 0.223817E+00
- PKER_RACCSS( 23, 21) = 0.277646E+00
- PKER_RACCSS( 23, 22) = 0.328410E+00
- PKER_RACCSS( 23, 23) = 0.371512E+00
- PKER_RACCSS( 23, 24) = 0.406971E+00
- PKER_RACCSS( 23, 25) = 0.436013E+00
- PKER_RACCSS( 23, 26) = 0.459823E+00
- PKER_RACCSS( 23, 27) = 0.479372E+00
- PKER_RACCSS( 23, 28) = 0.495442E+00
- PKER_RACCSS( 23, 29) = 0.508667E+00
- PKER_RACCSS( 23, 30) = 0.519559E+00
- PKER_RACCSS( 23, 31) = 0.528537E+00
- PKER_RACCSS( 23, 32) = 0.535942E+00
- PKER_RACCSS( 23, 33) = 0.542053E+00
- PKER_RACCSS( 23, 34) = 0.547098E+00
- PKER_RACCSS( 23, 35) = 0.551263E+00
- PKER_RACCSS( 23, 36) = 0.554705E+00
- PKER_RACCSS( 23, 37) = 0.557548E+00
- PKER_RACCSS( 23, 38) = 0.559898E+00
- PKER_RACCSS( 23, 39) = 0.561840E+00
- PKER_RACCSS( 23, 40) = 0.563446E+00
- PKER_RACCSS( 24, 1) = 0.151324E+02
- PKER_RACCSS( 24, 2) = 0.124216E+02
- PKER_RACCSS( 24, 3) = 0.101765E+02
- PKER_RACCSS( 24, 4) = 0.831675E+01
- PKER_RACCSS( 24, 5) = 0.677615E+01
- PKER_RACCSS( 24, 6) = 0.549978E+01
- PKER_RACCSS( 24, 7) = 0.444223E+01
- PKER_RACCSS( 24, 8) = 0.356597E+01
- PKER_RACCSS( 24, 9) = 0.284002E+01
- PKER_RACCSS( 24, 10) = 0.223881E+01
- PKER_RACCSS( 24, 11) = 0.174131E+01
- PKER_RACCSS( 24, 12) = 0.133030E+01
- PKER_RACCSS( 24, 13) = 0.992011E+00
- PKER_RACCSS( 24, 14) = 0.716009E+00
- PKER_RACCSS( 24, 15) = 0.495767E+00
- PKER_RACCSS( 24, 16) = 0.329155E+00
- PKER_RACCSS( 24, 17) = 0.217613E+00
- PKER_RACCSS( 24, 18) = 0.162580E+00
- PKER_RACCSS( 24, 19) = 0.158691E+00
- PKER_RACCSS( 24, 20) = 0.191157E+00
- PKER_RACCSS( 24, 21) = 0.240223E+00
- PKER_RACCSS( 24, 22) = 0.290187E+00
- PKER_RACCSS( 24, 23) = 0.333776E+00
- PKER_RACCSS( 24, 24) = 0.369843E+00
- PKER_RACCSS( 24, 25) = 0.399359E+00
- PKER_RACCSS( 24, 26) = 0.423520E+00
- PKER_RACCSS( 24, 27) = 0.443327E+00
- PKER_RACCSS( 24, 28) = 0.459588E+00
- PKER_RACCSS( 24, 29) = 0.472953E+00
- PKER_RACCSS( 24, 30) = 0.483950E+00
- PKER_RACCSS( 24, 31) = 0.493007E+00
- PKER_RACCSS( 24, 32) = 0.500470E+00
- PKER_RACCSS( 24, 33) = 0.506625E+00
- PKER_RACCSS( 24, 34) = 0.511703E+00
- PKER_RACCSS( 24, 35) = 0.515895E+00
- PKER_RACCSS( 24, 36) = 0.519356E+00
- PKER_RACCSS( 24, 37) = 0.522215E+00
- PKER_RACCSS( 24, 38) = 0.524576E+00
- PKER_RACCSS( 24, 39) = 0.526528E+00
- PKER_RACCSS( 24, 40) = 0.528140E+00
- PKER_RACCSS( 25, 1) = 0.151432E+02
- PKER_RACCSS( 25, 2) = 0.124328E+02
- PKER_RACCSS( 25, 3) = 0.101882E+02
- PKER_RACCSS( 25, 4) = 0.832899E+01
- PKER_RACCSS( 25, 5) = 0.678899E+01
- PKER_RACCSS( 25, 6) = 0.551328E+01
- PKER_RACCSS( 25, 7) = 0.445646E+01
- PKER_RACCSS( 25, 8) = 0.358099E+01
- PKER_RACCSS( 25, 9) = 0.285587E+01
- PKER_RACCSS( 25, 10) = 0.225550E+01
- PKER_RACCSS( 25, 11) = 0.175879E+01
- PKER_RACCSS( 25, 12) = 0.134845E+01
- PKER_RACCSS( 25, 13) = 0.101050E+01
- PKER_RACCSS( 25, 14) = 0.734111E+00
- PKER_RACCSS( 25, 15) = 0.512093E+00
- PKER_RACCSS( 25, 16) = 0.341419E+00
- PKER_RACCSS( 25, 17) = 0.223087E+00
- PKER_RACCSS( 25, 18) = 0.159345E+00
- PKER_RACCSS( 25, 19) = 0.147102E+00
- PKER_RACCSS( 25, 20) = 0.173839E+00
- PKER_RACCSS( 25, 21) = 0.220264E+00
- PKER_RACCSS( 25, 22) = 0.269389E+00
- PKER_RACCSS( 25, 23) = 0.312757E+00
- PKER_RACCSS( 25, 24) = 0.348700E+00
- PKER_RACCSS( 25, 25) = 0.378105E+00
- PKER_RACCSS( 25, 26) = 0.402161E+00
- PKER_RACCSS( 25, 27) = 0.421874E+00
- PKER_RACCSS( 25, 28) = 0.438052E+00
- PKER_RACCSS( 25, 29) = 0.451345E+00
- PKER_RACCSS( 25, 30) = 0.462282E+00
- PKER_RACCSS( 25, 31) = 0.471288E+00
- PKER_RACCSS( 25, 32) = 0.478709E+00
- PKER_RACCSS( 25, 33) = 0.484830E+00
- PKER_RACCSS( 25, 34) = 0.489880E+00
- PKER_RACCSS( 25, 35) = 0.494049E+00
- PKER_RACCSS( 25, 36) = 0.497492E+00
- PKER_RACCSS( 25, 37) = 0.500336E+00
- PKER_RACCSS( 25, 38) = 0.502685E+00
- PKER_RACCSS( 25, 39) = 0.504627E+00
- PKER_RACCSS( 25, 40) = 0.506233E+00
- PKER_RACCSS( 26, 1) = 0.151604E+02
- PKER_RACCSS( 26, 2) = 0.124505E+02
- PKER_RACCSS( 26, 3) = 0.102063E+02
- PKER_RACCSS( 26, 4) = 0.834759E+01
- PKER_RACCSS( 26, 5) = 0.680810E+01
- PKER_RACCSS( 26, 6) = 0.553290E+01
- PKER_RACCSS( 26, 7) = 0.447661E+01
- PKER_RACCSS( 26, 8) = 0.360165E+01
- PKER_RACCSS( 26, 9) = 0.287702E+01
- PKER_RACCSS( 26, 10) = 0.227707E+01
- PKER_RACCSS( 26, 11) = 0.178069E+01
- PKER_RACCSS( 26, 12) = 0.137049E+01
- PKER_RACCSS( 26, 13) = 0.103238E+01
- PKER_RACCSS( 26, 14) = 0.755232E+00
- PKER_RACCSS( 26, 15) = 0.531299E+00
- PKER_RACCSS( 26, 16) = 0.356723E+00
- PKER_RACCSS( 26, 17) = 0.231969E+00
- PKER_RACCSS( 26, 18) = 0.159466E+00
- PKER_RACCSS( 26, 19) = 0.138275E+00
- PKER_RACCSS( 26, 20) = 0.158408E+00
- PKER_RACCSS( 26, 21) = 0.201507E+00
- PKER_RACCSS( 26, 22) = 0.249601E+00
- PKER_RACCSS( 26, 23) = 0.292817E+00
- PKER_RACCSS( 26, 24) = 0.328766E+00
- PKER_RACCSS( 26, 25) = 0.358167E+00
- PKER_RACCSS( 26, 26) = 0.382203E+00
- PKER_RACCSS( 26, 27) = 0.401886E+00
- PKER_RACCSS( 26, 28) = 0.418030E+00
- PKER_RACCSS( 26, 29) = 0.431290E+00
- PKER_RACCSS( 26, 30) = 0.442195E+00
- PKER_RACCSS( 26, 31) = 0.451173E+00
- PKER_RACCSS( 26, 32) = 0.458570E+00
- PKER_RACCSS( 26, 33) = 0.464669E+00
- PKER_RACCSS( 26, 34) = 0.469702E+00
- PKER_RACCSS( 26, 35) = 0.473856E+00
- PKER_RACCSS( 26, 36) = 0.477287E+00
- PKER_RACCSS( 26, 37) = 0.480121E+00
- PKER_RACCSS( 26, 38) = 0.482463E+00
- PKER_RACCSS( 26, 39) = 0.484399E+00
- PKER_RACCSS( 26, 40) = 0.485999E+00
- PKER_RACCSS( 27, 1) = 0.151814E+02
- PKER_RACCSS( 27, 2) = 0.124719E+02
- PKER_RACCSS( 27, 3) = 0.102281E+02
- PKER_RACCSS( 27, 4) = 0.836990E+01
- PKER_RACCSS( 27, 5) = 0.683086E+01
- PKER_RACCSS( 27, 6) = 0.555611E+01
- PKER_RACCSS( 27, 7) = 0.450023E+01
- PKER_RACCSS( 27, 8) = 0.362567E+01
- PKER_RACCSS( 27, 9) = 0.290135E+01
- PKER_RACCSS( 27, 10) = 0.230164E+01
- PKER_RACCSS( 27, 11) = 0.180536E+01
- PKER_RACCSS( 27, 12) = 0.139509E+01
- PKER_RACCSS( 27, 13) = 0.105660E+01
- PKER_RACCSS( 27, 14) = 0.778555E+00
- PKER_RACCSS( 27, 15) = 0.552744E+00
- PKER_RACCSS( 27, 16) = 0.374600E+00
- PKER_RACCSS( 27, 17) = 0.243637E+00
- PKER_RACCSS( 27, 18) = 0.162579E+00
- PKER_RACCSS( 27, 19) = 0.131954E+00
- PKER_RACCSS( 27, 20) = 0.144584E+00
- PKER_RACCSS( 27, 21) = 0.183443E+00
- PKER_RACCSS( 27, 22) = 0.230184E+00
- PKER_RACCSS( 27, 23) = 0.273243E+00
- PKER_RACCSS( 27, 24) = 0.309289E+00
- PKER_RACCSS( 27, 25) = 0.338774E+00
- PKER_RACCSS( 27, 26) = 0.362856E+00
- PKER_RACCSS( 27, 27) = 0.382560E+00
- PKER_RACCSS( 27, 28) = 0.398710E+00
- PKER_RACCSS( 27, 29) = 0.411966E+00
- PKER_RACCSS( 27, 30) = 0.422862E+00
- PKER_RACCSS( 27, 31) = 0.431828E+00
- PKER_RACCSS( 27, 32) = 0.439214E+00
- PKER_RACCSS( 27, 33) = 0.445302E+00
- PKER_RACCSS( 27, 34) = 0.450325E+00
- PKER_RACCSS( 27, 35) = 0.454471E+00
- PKER_RACCSS( 27, 36) = 0.457894E+00
- PKER_RACCSS( 27, 37) = 0.460722E+00
- PKER_RACCSS( 27, 38) = 0.463059E+00
- PKER_RACCSS( 27, 39) = 0.464990E+00
- PKER_RACCSS( 27, 40) = 0.466587E+00
- PKER_RACCSS( 28, 1) = 0.151833E+02
- PKER_RACCSS( 28, 2) = 0.124739E+02
- PKER_RACCSS( 28, 3) = 0.102303E+02
- PKER_RACCSS( 28, 4) = 0.837216E+01
- PKER_RACCSS( 28, 5) = 0.683329E+01
- PKER_RACCSS( 28, 6) = 0.555874E+01
- PKER_RACCSS( 28, 7) = 0.450309E+01
- PKER_RACCSS( 28, 8) = 0.362879E+01
- PKER_RACCSS( 28, 9) = 0.290477E+01
- PKER_RACCSS( 28, 10) = 0.230538E+01
- PKER_RACCSS( 28, 11) = 0.180946E+01
- PKER_RACCSS( 28, 12) = 0.139955E+01
- PKER_RACCSS( 28, 13) = 0.106140E+01
- PKER_RACCSS( 28, 14) = 0.783576E+00
- PKER_RACCSS( 28, 15) = 0.557673E+00
- PKER_RACCSS( 28, 16) = 0.378779E+00
- PKER_RACCSS( 28, 17) = 0.246210E+00
- PKER_RACCSS( 28, 18) = 0.162452E+00
- PKER_RACCSS( 28, 19) = 0.128861E+00
- PKER_RACCSS( 28, 20) = 0.138936E+00
- PKER_RACCSS( 28, 21) = 0.176459E+00
- PKER_RACCSS( 28, 22) = 0.222625E+00
- PKER_RACCSS( 28, 23) = 0.265456E+00
- PKER_RACCSS( 28, 24) = 0.301332E+00
- PKER_RACCSS( 28, 25) = 0.330667E+00
- PKER_RACCSS( 28, 26) = 0.354619E+00
- PKER_RACCSS( 28, 27) = 0.374211E+00
- PKER_RACCSS( 28, 28) = 0.390266E+00
- PKER_RACCSS( 28, 29) = 0.403443E+00
- PKER_RACCSS( 28, 30) = 0.414273E+00
- PKER_RACCSS( 28, 31) = 0.423185E+00
- PKER_RACCSS( 28, 32) = 0.430527E+00
- PKER_RACCSS( 28, 33) = 0.436580E+00
- PKER_RACCSS( 28, 34) = 0.441573E+00
- PKER_RACCSS( 28, 35) = 0.445696E+00
- PKER_RACCSS( 28, 36) = 0.449101E+00
- PKER_RACCSS( 28, 37) = 0.451914E+00
- PKER_RACCSS( 28, 38) = 0.454239E+00
- PKER_RACCSS( 28, 39) = 0.456161E+00
- PKER_RACCSS( 28, 40) = 0.457750E+00
- PKER_RACCSS( 29, 1) = 0.151936E+02
- PKER_RACCSS( 29, 2) = 0.124845E+02
- PKER_RACCSS( 29, 3) = 0.102410E+02
- PKER_RACCSS( 29, 4) = 0.838316E+01
- PKER_RACCSS( 29, 5) = 0.684451E+01
- PKER_RACCSS( 29, 6) = 0.557018E+01
- PKER_RACCSS( 29, 7) = 0.451475E+01
- PKER_RACCSS( 29, 8) = 0.364064E+01
- PKER_RACCSS( 29, 9) = 0.291680E+01
- PKER_RACCSS( 29, 10) = 0.231756E+01
- PKER_RACCSS( 29, 11) = 0.182172E+01
- PKER_RACCSS( 29, 12) = 0.141183E+01
- PKER_RACCSS( 29, 13) = 0.107359E+01
- PKER_RACCSS( 29, 14) = 0.795449E+00
- PKER_RACCSS( 29, 15) = 0.568820E+00
- PKER_RACCSS( 29, 16) = 0.388406E+00
- PKER_RACCSS( 29, 17) = 0.253055E+00
- PKER_RACCSS( 29, 18) = 0.165100E+00
- PKER_RACCSS( 29, 19) = 0.126486E+00
- PKER_RACCSS( 29, 20) = 0.132218E+00
- PKER_RACCSS( 29, 21) = 0.167127E+00
- PKER_RACCSS( 29, 22) = 0.212335E+00
- PKER_RACCSS( 29, 23) = 0.254984E+00
- PKER_RACCSS( 29, 24) = 0.290865E+00
- PKER_RACCSS( 29, 25) = 0.320207E+00
- PKER_RACCSS( 29, 26) = 0.344152E+00
- PKER_RACCSS( 29, 27) = 0.363727E+00
- PKER_RACCSS( 29, 28) = 0.379760E+00
- PKER_RACCSS( 29, 29) = 0.392914E+00
- PKER_RACCSS( 29, 30) = 0.403723E+00
- PKER_RACCSS( 29, 31) = 0.412615E+00
- PKER_RACCSS( 29, 32) = 0.419938E+00
- PKER_RACCSS( 29, 33) = 0.425976E+00
- PKER_RACCSS( 29, 34) = 0.430956E+00
- PKER_RACCSS( 29, 35) = 0.435068E+00
- PKER_RACCSS( 29, 36) = 0.438464E+00
- PKER_RACCSS( 29, 37) = 0.441269E+00
- PKER_RACCSS( 29, 38) = 0.443588E+00
- PKER_RACCSS( 29, 39) = 0.445506E+00
- PKER_RACCSS( 29, 40) = 0.447091E+00
- PKER_RACCSS( 30, 1) = 0.152092E+02
- PKER_RACCSS( 30, 2) = 0.125003E+02
- PKER_RACCSS( 30, 3) = 0.102571E+02
- PKER_RACCSS( 30, 4) = 0.839954E+01
- PKER_RACCSS( 30, 5) = 0.686114E+01
- PKER_RACCSS( 30, 6) = 0.558706E+01
- PKER_RACCSS( 30, 7) = 0.453184E+01
- PKER_RACCSS( 30, 8) = 0.365791E+01
- PKER_RACCSS( 30, 9) = 0.293420E+01
- PKER_RACCSS( 30, 10) = 0.233502E+01
- PKER_RACCSS( 30, 11) = 0.183917E+01
- PKER_RACCSS( 30, 12) = 0.142914E+01
- PKER_RACCSS( 30, 13) = 0.109060E+01
- PKER_RACCSS( 30, 14) = 0.811894E+00
- PKER_RACCSS( 30, 15) = 0.584240E+00
- PKER_RACCSS( 30, 16) = 0.401963E+00
- PKER_RACCSS( 30, 17) = 0.263204E+00
- PKER_RACCSS( 30, 18) = 0.170121E+00
- PKER_RACCSS( 30, 19) = 0.125069E+00
- PKER_RACCSS( 30, 20) = 0.124997E+00
- PKER_RACCSS( 30, 21) = 0.156156E+00
- PKER_RACCSS( 30, 22) = 0.199916E+00
- PKER_RACCSS( 30, 23) = 0.242350E+00
- PKER_RACCSS( 30, 24) = 0.278332E+00
- PKER_RACCSS( 30, 25) = 0.307780E+00
- PKER_RACCSS( 30, 26) = 0.331793E+00
- PKER_RACCSS( 30, 27) = 0.351410E+00
- PKER_RACCSS( 30, 28) = 0.367466E+00
- PKER_RACCSS( 30, 29) = 0.380631E+00
- PKER_RACCSS( 30, 30) = 0.391442E+00
- PKER_RACCSS( 30, 31) = 0.400333E+00
- PKER_RACCSS( 30, 32) = 0.407654E+00
- PKER_RACCSS( 30, 33) = 0.413687E+00
- PKER_RACCSS( 30, 34) = 0.418663E+00
- PKER_RACCSS( 30, 35) = 0.422770E+00
- PKER_RACCSS( 30, 36) = 0.426162E+00
- PKER_RACCSS( 30, 37) = 0.428964E+00
- PKER_RACCSS( 30, 38) = 0.431280E+00
- PKER_RACCSS( 30, 39) = 0.433195E+00
- PKER_RACCSS( 30, 40) = 0.434778E+00
- PKER_RACCSS( 31, 1) = 0.152168E+02
- PKER_RACCSS( 31, 2) = 0.125081E+02
- PKER_RACCSS( 31, 3) = 0.102650E+02
- PKER_RACCSS( 31, 4) = 0.840757E+01
- PKER_RACCSS( 31, 5) = 0.686932E+01
- PKER_RACCSS( 31, 6) = 0.559536E+01
- PKER_RACCSS( 31, 7) = 0.454028E+01
- PKER_RACCSS( 31, 8) = 0.366647E+01
- PKER_RACCSS( 31, 9) = 0.294286E+01
- PKER_RACCSS( 31, 10) = 0.234375E+01
- PKER_RACCSS( 31, 11) = 0.184793E+01
- PKER_RACCSS( 31, 12) = 0.143790E+01
- PKER_RACCSS( 31, 13) = 0.109928E+01
- PKER_RACCSS( 31, 14) = 0.820370E+00
- PKER_RACCSS( 31, 15) = 0.592284E+00
- PKER_RACCSS( 31, 16) = 0.409147E+00
- PKER_RACCSS( 31, 17) = 0.268707E+00
- PKER_RACCSS( 31, 18) = 0.172988E+00
- PKER_RACCSS( 31, 19) = 0.124548E+00
- PKER_RACCSS( 31, 20) = 0.121193E+00
- PKER_RACCSS( 31, 21) = 0.150187E+00
- PKER_RACCSS( 31, 22) = 0.193042E+00
- PKER_RACCSS( 31, 23) = 0.235298E+00
- PKER_RACCSS( 31, 24) = 0.271298E+00
- PKER_RACCSS( 31, 25) = 0.300774E+00
- PKER_RACCSS( 31, 26) = 0.324800E+00
- PKER_RACCSS( 31, 27) = 0.344418E+00
- PKER_RACCSS( 31, 28) = 0.360469E+00
- PKER_RACCSS( 31, 29) = 0.373626E+00
- PKER_RACCSS( 31, 30) = 0.384427E+00
- PKER_RACCSS( 31, 31) = 0.393308E+00
- PKER_RACCSS( 31, 32) = 0.400619E+00
- PKER_RACCSS( 31, 33) = 0.406643E+00
- PKER_RACCSS( 31, 34) = 0.411612E+00
- PKER_RACCSS( 31, 35) = 0.415713E+00
- PKER_RACCSS( 31, 36) = 0.419099E+00
- PKER_RACCSS( 31, 37) = 0.421897E+00
- PKER_RACCSS( 31, 38) = 0.424209E+00
- PKER_RACCSS( 31, 39) = 0.426121E+00
- PKER_RACCSS( 31, 40) = 0.427702E+00
- PKER_RACCSS( 32, 1) = 0.152212E+02
- PKER_RACCSS( 32, 2) = 0.125125E+02
- PKER_RACCSS( 32, 3) = 0.102696E+02
- PKER_RACCSS( 32, 4) = 0.841222E+01
- PKER_RACCSS( 32, 5) = 0.687405E+01
- PKER_RACCSS( 32, 6) = 0.560018E+01
- PKER_RACCSS( 32, 7) = 0.454517E+01
- PKER_RACCSS( 32, 8) = 0.367144E+01
- PKER_RACCSS( 32, 9) = 0.294789E+01
- PKER_RACCSS( 32, 10) = 0.234884E+01
- PKER_RACCSS( 32, 11) = 0.185306E+01
- PKER_RACCSS( 32, 12) = 0.144305E+01
- PKER_RACCSS( 32, 13) = 0.110439E+01
- PKER_RACCSS( 32, 14) = 0.825390E+00
- PKER_RACCSS( 32, 15) = 0.597084E+00
- PKER_RACCSS( 32, 16) = 0.413476E+00
- PKER_RACCSS( 32, 17) = 0.272077E+00
- PKER_RACCSS( 32, 18) = 0.174803E+00
- PKER_RACCSS( 32, 19) = 0.124293E+00
- PKER_RACCSS( 32, 20) = 0.118931E+00
- PKER_RACCSS( 32, 21) = 0.146554E+00
- PKER_RACCSS( 32, 22) = 0.188828E+00
- PKER_RACCSS( 32, 23) = 0.230954E+00
- PKER_RACCSS( 32, 24) = 0.266952E+00
- PKER_RACCSS( 32, 25) = 0.296435E+00
- PKER_RACCSS( 32, 26) = 0.320462E+00
- PKER_RACCSS( 32, 27) = 0.340075E+00
- PKER_RACCSS( 32, 28) = 0.356117E+00
- PKER_RACCSS( 32, 29) = 0.369263E+00
- PKER_RACCSS( 32, 30) = 0.380055E+00
- PKER_RACCSS( 32, 31) = 0.388926E+00
- PKER_RACCSS( 32, 32) = 0.396228E+00
- PKER_RACCSS( 32, 33) = 0.402245E+00
- PKER_RACCSS( 32, 34) = 0.407208E+00
- PKER_RACCSS( 32, 35) = 0.411303E+00
- PKER_RACCSS( 32, 36) = 0.414685E+00
- PKER_RACCSS( 32, 37) = 0.417479E+00
- PKER_RACCSS( 32, 38) = 0.419788E+00
- PKER_RACCSS( 32, 39) = 0.421697E+00
- PKER_RACCSS( 32, 40) = 0.423276E+00
- PKER_RACCSS( 33, 1) = 0.152252E+02
- PKER_RACCSS( 33, 2) = 0.125166E+02
- PKER_RACCSS( 33, 3) = 0.102737E+02
- PKER_RACCSS( 33, 4) = 0.841642E+01
- PKER_RACCSS( 33, 5) = 0.687832E+01
- PKER_RACCSS( 33, 6) = 0.560452E+01
- PKER_RACCSS( 33, 7) = 0.454958E+01
- PKER_RACCSS( 33, 8) = 0.367590E+01
- PKER_RACCSS( 33, 9) = 0.295241E+01
- PKER_RACCSS( 33, 10) = 0.235339E+01
- PKER_RACCSS( 33, 11) = 0.185763E+01
- PKER_RACCSS( 33, 12) = 0.144761E+01
- PKER_RACCSS( 33, 13) = 0.110891E+01
- PKER_RACCSS( 33, 14) = 0.829809E+00
- PKER_RACCSS( 33, 15) = 0.601298E+00
- PKER_RACCSS( 33, 16) = 0.417299E+00
- PKER_RACCSS( 33, 17) = 0.275084E+00
- PKER_RACCSS( 33, 18) = 0.176517E+00
- PKER_RACCSS( 33, 19) = 0.124255E+00
- PKER_RACCSS( 33, 20) = 0.117165E+00
- PKER_RACCSS( 33, 21) = 0.143564E+00
- PKER_RACCSS( 33, 22) = 0.185315E+00
- PKER_RACCSS( 33, 23) = 0.227330E+00
- PKER_RACCSS( 33, 24) = 0.263338E+00
- PKER_RACCSS( 33, 25) = 0.292840E+00
- PKER_RACCSS( 33, 26) = 0.316875E+00
- PKER_RACCSS( 33, 27) = 0.336491E+00
- PKER_RACCSS( 33, 28) = 0.352533E+00
- PKER_RACCSS( 33, 29) = 0.365676E+00
- PKER_RACCSS( 33, 30) = 0.376463E+00
- PKER_RACCSS( 33, 31) = 0.385329E+00
- PKER_RACCSS( 33, 32) = 0.392627E+00
- PKER_RACCSS( 33, 33) = 0.398639E+00
- PKER_RACCSS( 33, 34) = 0.403598E+00
- PKER_RACCSS( 33, 35) = 0.407690E+00
- PKER_RACCSS( 33, 36) = 0.411069E+00
- PKER_RACCSS( 33, 37) = 0.413860E+00
- PKER_RACCSS( 33, 38) = 0.416168E+00
- PKER_RACCSS( 33, 39) = 0.418075E+00
- PKER_RACCSS( 33, 40) = 0.419653E+00
- PKER_RACCSS( 34, 1) = 0.152248E+02
- PKER_RACCSS( 34, 2) = 0.125162E+02
- PKER_RACCSS( 34, 3) = 0.102733E+02
- PKER_RACCSS( 34, 4) = 0.841600E+01
- PKER_RACCSS( 34, 5) = 0.687791E+01
- PKER_RACCSS( 34, 6) = 0.560412E+01
- PKER_RACCSS( 34, 7) = 0.454919E+01
- PKER_RACCSS( 34, 8) = 0.367553E+01
- PKER_RACCSS( 34, 9) = 0.295206E+01
- PKER_RACCSS( 34, 10) = 0.235307E+01
- PKER_RACCSS( 34, 11) = 0.185734E+01
- PKER_RACCSS( 34, 12) = 0.144736E+01
- PKER_RACCSS( 34, 13) = 0.110872E+01
- PKER_RACCSS( 34, 14) = 0.829656E+00
- PKER_RACCSS( 34, 15) = 0.601205E+00
- PKER_RACCSS( 34, 16) = 0.417236E+00
- PKER_RACCSS( 34, 17) = 0.275045E+00
- PKER_RACCSS( 34, 18) = 0.176424E+00
- PKER_RACCSS( 34, 19) = 0.124044E+00
- PKER_RACCSS( 34, 20) = 0.116894E+00
- PKER_RACCSS( 34, 21) = 0.143258E+00
- PKER_RACCSS( 34, 22) = 0.184999E+00
- PKER_RACCSS( 34, 23) = 0.226991E+00
- PKER_RACCSS( 34, 24) = 0.262972E+00
- PKER_RACCSS( 34, 25) = 0.292447E+00
- PKER_RACCSS( 34, 26) = 0.316461E+00
- PKER_RACCSS( 34, 27) = 0.336058E+00
- PKER_RACCSS( 34, 28) = 0.352084E+00
- PKER_RACCSS( 34, 29) = 0.365214E+00
- PKER_RACCSS( 34, 30) = 0.375991E+00
- PKER_RACCSS( 34, 31) = 0.384849E+00
- PKER_RACCSS( 34, 32) = 0.392140E+00
- PKER_RACCSS( 34, 33) = 0.398147E+00
- PKER_RACCSS( 34, 34) = 0.403101E+00
- PKER_RACCSS( 34, 35) = 0.407190E+00
- PKER_RACCSS( 34, 36) = 0.410566E+00
- PKER_RACCSS( 34, 37) = 0.413355E+00
- PKER_RACCSS( 34, 38) = 0.415661E+00
- PKER_RACCSS( 34, 39) = 0.417567E+00
- PKER_RACCSS( 34, 40) = 0.419144E+00
- PKER_RACCSS( 35, 1) = 0.152287E+02
- PKER_RACCSS( 35, 2) = 0.125202E+02
- PKER_RACCSS( 35, 3) = 0.102773E+02
- PKER_RACCSS( 35, 4) = 0.842010E+01
- PKER_RACCSS( 35, 5) = 0.688207E+01
- PKER_RACCSS( 35, 6) = 0.560834E+01
- PKER_RACCSS( 35, 7) = 0.455346E+01
- PKER_RACCSS( 35, 8) = 0.367984E+01
- PKER_RACCSS( 35, 9) = 0.295641E+01
- PKER_RACCSS( 35, 10) = 0.235744E+01
- PKER_RACCSS( 35, 11) = 0.186171E+01
- PKER_RACCSS( 35, 12) = 0.145171E+01
- PKER_RACCSS( 35, 13) = 0.111300E+01
- PKER_RACCSS( 35, 14) = 0.833823E+00
- PKER_RACCSS( 35, 15) = 0.605161E+00
- PKER_RACCSS( 35, 16) = 0.420842E+00
- PKER_RACCSS( 35, 17) = 0.277903E+00
- PKER_RACCSS( 35, 18) = 0.178147E+00
- PKER_RACCSS( 35, 19) = 0.124171E+00
- PKER_RACCSS( 35, 20) = 0.115464E+00
- PKER_RACCSS( 35, 21) = 0.140674E+00
- PKER_RACCSS( 35, 22) = 0.181919E+00
- PKER_RACCSS( 35, 23) = 0.223809E+00
- PKER_RACCSS( 35, 24) = 0.259812E+00
- PKER_RACCSS( 35, 25) = 0.289318E+00
- PKER_RACCSS( 35, 26) = 0.313352E+00
- PKER_RACCSS( 35, 27) = 0.332962E+00
- PKER_RACCSS( 35, 28) = 0.348995E+00
- PKER_RACCSS( 35, 29) = 0.362129E+00
- PKER_RACCSS( 35, 30) = 0.372907E+00
- PKER_RACCSS( 35, 31) = 0.381764E+00
- PKER_RACCSS( 35, 32) = 0.389054E+00
- PKER_RACCSS( 35, 33) = 0.395060E+00
- PKER_RACCSS( 35, 34) = 0.400012E+00
- PKER_RACCSS( 35, 35) = 0.404099E+00
- PKER_RACCSS( 35, 36) = 0.407474E+00
- PKER_RACCSS( 35, 37) = 0.410263E+00
- PKER_RACCSS( 35, 38) = 0.412567E+00
- PKER_RACCSS( 35, 39) = 0.414473E+00
- PKER_RACCSS( 35, 40) = 0.416049E+00
- PKER_RACCSS( 36, 1) = 0.152383E+02
- PKER_RACCSS( 36, 2) = 0.125299E+02
- PKER_RACCSS( 36, 3) = 0.102873E+02
- PKER_RACCSS( 36, 4) = 0.843016E+01
- PKER_RACCSS( 36, 5) = 0.689226E+01
- PKER_RACCSS( 36, 6) = 0.561865E+01
- PKER_RACCSS( 36, 7) = 0.456388E+01
- PKER_RACCSS( 36, 8) = 0.369036E+01
- PKER_RACCSS( 36, 9) = 0.296698E+01
- PKER_RACCSS( 36, 10) = 0.236804E+01
- PKER_RACCSS( 36, 11) = 0.187228E+01
- PKER_RACCSS( 36, 12) = 0.146219E+01
- PKER_RACCSS( 36, 13) = 0.112330E+01
- PKER_RACCSS( 36, 14) = 0.843833E+00
- PKER_RACCSS( 36, 15) = 0.614630E+00
- PKER_RACCSS( 36, 16) = 0.429489E+00
- PKER_RACCSS( 36, 17) = 0.284782E+00
- PKER_RACCSS( 36, 18) = 0.182494E+00
- PKER_RACCSS( 36, 19) = 0.124882E+00
- PKER_RACCSS( 36, 20) = 0.112591E+00
- PKER_RACCSS( 36, 21) = 0.135019E+00
- PKER_RACCSS( 36, 22) = 0.174978E+00
- PKER_RACCSS( 36, 23) = 0.216615E+00
- PKER_RACCSS( 36, 24) = 0.252695E+00
- PKER_RACCSS( 36, 25) = 0.282303E+00
- PKER_RACCSS( 36, 26) = 0.306412E+00
- PKER_RACCSS( 36, 27) = 0.326073E+00
- PKER_RACCSS( 36, 28) = 0.342140E+00
- PKER_RACCSS( 36, 29) = 0.355295E+00
- PKER_RACCSS( 36, 30) = 0.366087E+00
- PKER_RACCSS( 36, 31) = 0.374952E+00
- PKER_RACCSS( 36, 32) = 0.382247E+00
- PKER_RACCSS( 36, 33) = 0.388255E+00
- PKER_RACCSS( 36, 34) = 0.393208E+00
- PKER_RACCSS( 36, 35) = 0.397296E+00
- PKER_RACCSS( 36, 36) = 0.400670E+00
- PKER_RACCSS( 36, 37) = 0.403458E+00
- PKER_RACCSS( 36, 38) = 0.405763E+00
- PKER_RACCSS( 36, 39) = 0.407668E+00
- PKER_RACCSS( 36, 40) = 0.409243E+00
- PKER_RACCSS( 37, 1) = 0.000000E+00
- PKER_RACCSS( 37, 2) = 0.000000E+00
- PKER_RACCSS( 37, 3) = 0.000000E+00
- PKER_RACCSS( 37, 4) = 0.000000E+00
- PKER_RACCSS( 37, 5) = 0.000000E+00
- PKER_RACCSS( 37, 6) = 0.000000E+00
- PKER_RACCSS( 37, 7) = 0.000000E+00
- PKER_RACCSS( 37, 8) = 0.000000E+00
- PKER_RACCSS( 37, 9) = 0.000000E+00
- PKER_RACCSS( 37, 10) = 0.000000E+00
- PKER_RACCSS( 37, 11) = 0.000000E+00
- PKER_RACCSS( 37, 12) = 0.000000E+00
- PKER_RACCSS( 37, 13) = 0.000000E+00
- PKER_RACCSS( 37, 14) = 0.000000E+00
- PKER_RACCSS( 37, 15) = 0.000000E+00
- PKER_RACCSS( 37, 16) = 0.000000E+00
- PKER_RACCSS( 37, 17) = 0.000000E+00
- PKER_RACCSS( 37, 18) = 0.000000E+00
- PKER_RACCSS( 37, 19) = 0.000000E+00
- PKER_RACCSS( 37, 20) = 0.000000E+00
- PKER_RACCSS( 37, 21) = 0.000000E+00
- PKER_RACCSS( 37, 22) = 0.000000E+00
- PKER_RACCSS( 37, 23) = 0.000000E+00
- PKER_RACCSS( 37, 24) = 0.000000E+00
- PKER_RACCSS( 37, 25) = 0.000000E+00
- PKER_RACCSS( 37, 26) = 0.000000E+00
- PKER_RACCSS( 37, 27) = 0.000000E+00
- PKER_RACCSS( 37, 28) = 0.000000E+00
- PKER_RACCSS( 37, 29) = 0.000000E+00
- PKER_RACCSS( 37, 30) = 0.000000E+00
- PKER_RACCSS( 37, 31) = 0.000000E+00
- PKER_RACCSS( 37, 32) = 0.000000E+00
- PKER_RACCSS( 37, 33) = 0.000000E+00
- PKER_RACCSS( 37, 34) = 0.000000E+00
- PKER_RACCSS( 37, 35) = 0.000000E+00
- PKER_RACCSS( 37, 36) = 0.000000E+00
- PKER_RACCSS( 37, 37) = 0.000000E+00
- PKER_RACCSS( 37, 38) = 0.000000E+00
- PKER_RACCSS( 37, 39) = 0.000000E+00
- PKER_RACCSS( 37, 40) = 0.000000E+00
- PKER_RACCSS( 38, 1) = 0.000000E+00
- PKER_RACCSS( 38, 2) = 0.000000E+00
- PKER_RACCSS( 38, 3) = 0.000000E+00
- PKER_RACCSS( 38, 4) = 0.000000E+00
- PKER_RACCSS( 38, 5) = 0.000000E+00
- PKER_RACCSS( 38, 6) = 0.000000E+00
- PKER_RACCSS( 38, 7) = 0.000000E+00
- PKER_RACCSS( 38, 8) = 0.000000E+00
- PKER_RACCSS( 38, 9) = 0.000000E+00
- PKER_RACCSS( 38, 10) = 0.000000E+00
- PKER_RACCSS( 38, 11) = 0.000000E+00
- PKER_RACCSS( 38, 12) = 0.000000E+00
- PKER_RACCSS( 38, 13) = 0.000000E+00
- PKER_RACCSS( 38, 14) = 0.000000E+00
- PKER_RACCSS( 38, 15) = 0.000000E+00
- PKER_RACCSS( 38, 16) = 0.000000E+00
- PKER_RACCSS( 38, 17) = 0.000000E+00
- PKER_RACCSS( 38, 18) = 0.000000E+00
- PKER_RACCSS( 38, 19) = 0.000000E+00
- PKER_RACCSS( 38, 20) = 0.000000E+00
- PKER_RACCSS( 38, 21) = 0.000000E+00
- PKER_RACCSS( 38, 22) = 0.000000E+00
- PKER_RACCSS( 38, 23) = 0.000000E+00
- PKER_RACCSS( 38, 24) = 0.000000E+00
- PKER_RACCSS( 38, 25) = 0.000000E+00
- PKER_RACCSS( 38, 26) = 0.000000E+00
- PKER_RACCSS( 38, 27) = 0.000000E+00
- PKER_RACCSS( 38, 28) = 0.000000E+00
- PKER_RACCSS( 38, 29) = 0.000000E+00
- PKER_RACCSS( 38, 30) = 0.000000E+00
- PKER_RACCSS( 38, 31) = 0.000000E+00
- PKER_RACCSS( 38, 32) = 0.000000E+00
- PKER_RACCSS( 38, 33) = 0.000000E+00
- PKER_RACCSS( 38, 34) = 0.000000E+00
- PKER_RACCSS( 38, 35) = 0.000000E+00
- PKER_RACCSS( 38, 36) = 0.000000E+00
- PKER_RACCSS( 38, 37) = 0.000000E+00
- PKER_RACCSS( 38, 38) = 0.000000E+00
- PKER_RACCSS( 38, 39) = 0.000000E+00
- PKER_RACCSS( 38, 40) = 0.000000E+00
- PKER_RACCSS( 39, 1) = 0.000000E+00
- PKER_RACCSS( 39, 2) = 0.000000E+00
- PKER_RACCSS( 39, 3) = 0.000000E+00
- PKER_RACCSS( 39, 4) = 0.000000E+00
- PKER_RACCSS( 39, 5) = 0.000000E+00
- PKER_RACCSS( 39, 6) = 0.000000E+00
- PKER_RACCSS( 39, 7) = 0.000000E+00
- PKER_RACCSS( 39, 8) = 0.000000E+00
- PKER_RACCSS( 39, 9) = 0.000000E+00
- PKER_RACCSS( 39, 10) = 0.000000E+00
- PKER_RACCSS( 39, 11) = 0.000000E+00
- PKER_RACCSS( 39, 12) = 0.000000E+00
- PKER_RACCSS( 39, 13) = 0.000000E+00
- PKER_RACCSS( 39, 14) = 0.000000E+00
- PKER_RACCSS( 39, 15) = 0.000000E+00
- PKER_RACCSS( 39, 16) = 0.000000E+00
- PKER_RACCSS( 39, 17) = 0.000000E+00
- PKER_RACCSS( 39, 18) = 0.000000E+00
- PKER_RACCSS( 39, 19) = 0.000000E+00
- PKER_RACCSS( 39, 20) = 0.000000E+00
- PKER_RACCSS( 39, 21) = 0.000000E+00
- PKER_RACCSS( 39, 22) = 0.000000E+00
- PKER_RACCSS( 39, 23) = 0.000000E+00
- PKER_RACCSS( 39, 24) = 0.000000E+00
- PKER_RACCSS( 39, 25) = 0.000000E+00
- PKER_RACCSS( 39, 26) = 0.000000E+00
- PKER_RACCSS( 39, 27) = 0.000000E+00
- PKER_RACCSS( 39, 28) = 0.000000E+00
- PKER_RACCSS( 39, 29) = 0.000000E+00
- PKER_RACCSS( 39, 30) = 0.000000E+00
- PKER_RACCSS( 39, 31) = 0.000000E+00
- PKER_RACCSS( 39, 32) = 0.000000E+00
- PKER_RACCSS( 39, 33) = 0.000000E+00
- PKER_RACCSS( 39, 34) = 0.000000E+00
- PKER_RACCSS( 39, 35) = 0.000000E+00
- PKER_RACCSS( 39, 36) = 0.000000E+00
- PKER_RACCSS( 39, 37) = 0.000000E+00
- PKER_RACCSS( 39, 38) = 0.000000E+00
- PKER_RACCSS( 39, 39) = 0.000000E+00
- PKER_RACCSS( 39, 40) = 0.000000E+00
- PKER_RACCSS( 40, 1) = 0.000000E+00
- PKER_RACCSS( 40, 2) = 0.000000E+00
- PKER_RACCSS( 40, 3) = 0.000000E+00
- PKER_RACCSS( 40, 4) = 0.000000E+00
- PKER_RACCSS( 40, 5) = 0.000000E+00
- PKER_RACCSS( 40, 6) = 0.000000E+00
- PKER_RACCSS( 40, 7) = 0.000000E+00
- PKER_RACCSS( 40, 8) = 0.000000E+00
- PKER_RACCSS( 40, 9) = 0.000000E+00
- PKER_RACCSS( 40, 10) = 0.000000E+00
- PKER_RACCSS( 40, 11) = 0.000000E+00
- PKER_RACCSS( 40, 12) = 0.000000E+00
- PKER_RACCSS( 40, 13) = 0.000000E+00
- PKER_RACCSS( 40, 14) = 0.000000E+00
- PKER_RACCSS( 40, 15) = 0.000000E+00
- PKER_RACCSS( 40, 16) = 0.000000E+00
- PKER_RACCSS( 40, 17) = 0.000000E+00
- PKER_RACCSS( 40, 18) = 0.000000E+00
- PKER_RACCSS( 40, 19) = 0.000000E+00
- PKER_RACCSS( 40, 20) = 0.000000E+00
- PKER_RACCSS( 40, 21) = 0.000000E+00
- PKER_RACCSS( 40, 22) = 0.000000E+00
- PKER_RACCSS( 40, 23) = 0.000000E+00
- PKER_RACCSS( 40, 24) = 0.000000E+00
- PKER_RACCSS( 40, 25) = 0.000000E+00
- PKER_RACCSS( 40, 26) = 0.000000E+00
- PKER_RACCSS( 40, 27) = 0.000000E+00
- PKER_RACCSS( 40, 28) = 0.000000E+00
- PKER_RACCSS( 40, 29) = 0.000000E+00
- PKER_RACCSS( 40, 30) = 0.000000E+00
- PKER_RACCSS( 40, 31) = 0.000000E+00
- PKER_RACCSS( 40, 32) = 0.000000E+00
- PKER_RACCSS( 40, 33) = 0.000000E+00
- PKER_RACCSS( 40, 34) = 0.000000E+00
- PKER_RACCSS( 40, 35) = 0.000000E+00
- PKER_RACCSS( 40, 36) = 0.000000E+00
- PKER_RACCSS( 40, 37) = 0.000000E+00
- PKER_RACCSS( 40, 38) = 0.000000E+00
- PKER_RACCSS( 40, 39) = 0.000000E+00
- PKER_RACCSS( 40, 40) = 0.000000E+00
+ PKER_RACCSS( 1, 1) = 0.528720E+01
+ PKER_RACCSS( 1, 2) = 0.398400E+01
+ PKER_RACCSS( 1, 3) = 0.302895E+01
+ PKER_RACCSS( 1, 4) = 0.237465E+01
+ PKER_RACCSS( 1, 5) = 0.195524E+01
+ PKER_RACCSS( 1, 6) = 0.168792E+01
+ PKER_RACCSS( 1, 7) = 0.148845E+01
+ PKER_RACCSS( 1, 8) = 0.129468E+01
+ PKER_RACCSS( 1, 9) = 0.107972E+01
+ PKER_RACCSS( 1, 10) = 0.850496E+00
+ PKER_RACCSS( 1, 11) = 0.634891E+00
+ PKER_RACCSS( 1, 12) = 0.467411E+00
+ PKER_RACCSS( 1, 13) = 0.375075E+00
+ PKER_RACCSS( 1, 14) = 0.365360E+00
+ PKER_RACCSS( 1, 15) = 0.423666E+00
+ PKER_RACCSS( 1, 16) = 0.520234E+00
+ PKER_RACCSS( 1, 17) = 0.626529E+00
+ PKER_RACCSS( 1, 18) = 0.724955E+00
+ PKER_RACCSS( 1, 19) = 0.809322E+00
+ PKER_RACCSS( 1, 20) = 0.879615E+00
+ PKER_RACCSS( 1, 21) = 0.937740E+00
+ PKER_RACCSS( 1, 22) = 0.985750E+00
+ PKER_RACCSS( 1, 23) = 0.102541E+01
+ PKER_RACCSS( 1, 24) = 0.105819E+01
+ PKER_RACCSS( 1, 25) = 0.108529E+01
+ PKER_RACCSS( 1, 26) = 0.110769E+01
+ PKER_RACCSS( 1, 27) = 0.112622E+01
+ PKER_RACCSS( 1, 28) = 0.114154E+01
+ PKER_RACCSS( 1, 29) = 0.115421E+01
+ PKER_RACCSS( 1, 30) = 0.116470E+01
+ PKER_RACCSS( 1, 31) = 0.117337E+01
+ PKER_RACCSS( 1, 32) = 0.118055E+01
+ PKER_RACCSS( 1, 33) = 0.118649E+01
+ PKER_RACCSS( 1, 34) = 0.119140E+01
+ PKER_RACCSS( 1, 35) = 0.119547E+01
+ PKER_RACCSS( 1, 36) = 0.119883E+01
+ PKER_RACCSS( 1, 37) = 0.120161E+01
+ PKER_RACCSS( 1, 38) = 0.120392E+01
+ PKER_RACCSS( 1, 39) = 0.120583E+01
+ PKER_RACCSS( 1, 40) = 0.120740E+01
+ PKER_RACCSS( 2, 1) = 0.554890E+01
+ PKER_RACCSS( 2, 2) = 0.418321E+01
+ PKER_RACCSS( 2, 3) = 0.314889E+01
+ PKER_RACCSS( 2, 4) = 0.240737E+01
+ PKER_RACCSS( 2, 5) = 0.190943E+01
+ PKER_RACCSS( 2, 6) = 0.158958E+01
+ PKER_RACCSS( 2, 7) = 0.137235E+01
+ PKER_RACCSS( 2, 8) = 0.119098E+01
+ PKER_RACCSS( 2, 9) = 0.100482E+01
+ PKER_RACCSS( 2, 10) = 0.805920E+00
+ PKER_RACCSS( 2, 11) = 0.611576E+00
+ PKER_RACCSS( 2, 12) = 0.452139E+00
+ PKER_RACCSS( 2, 13) = 0.356504E+00
+ PKER_RACCSS( 2, 14) = 0.337999E+00
+ PKER_RACCSS( 2, 15) = 0.387823E+00
+ PKER_RACCSS( 2, 16) = 0.479092E+00
+ PKER_RACCSS( 2, 17) = 0.582883E+00
+ PKER_RACCSS( 2, 18) = 0.680501E+00
+ PKER_RACCSS( 2, 19) = 0.764817E+00
+ PKER_RACCSS( 2, 20) = 0.835258E+00
+ PKER_RACCSS( 2, 21) = 0.893531E+00
+ PKER_RACCSS( 2, 22) = 0.941654E+00
+ PKER_RACCSS( 2, 23) = 0.981400E+00
+ PKER_RACCSS( 2, 24) = 0.101424E+01
+ PKER_RACCSS( 2, 25) = 0.104138E+01
+ PKER_RACCSS( 2, 26) = 0.106382E+01
+ PKER_RACCSS( 2, 27) = 0.108237E+01
+ PKER_RACCSS( 2, 28) = 0.109771E+01
+ PKER_RACCSS( 2, 29) = 0.111040E+01
+ PKER_RACCSS( 2, 30) = 0.112090E+01
+ PKER_RACCSS( 2, 31) = 0.112958E+01
+ PKER_RACCSS( 2, 32) = 0.113676E+01
+ PKER_RACCSS( 2, 33) = 0.114271E+01
+ PKER_RACCSS( 2, 34) = 0.114763E+01
+ PKER_RACCSS( 2, 35) = 0.115170E+01
+ PKER_RACCSS( 2, 36) = 0.115506E+01
+ PKER_RACCSS( 2, 37) = 0.115785E+01
+ PKER_RACCSS( 2, 38) = 0.116015E+01
+ PKER_RACCSS( 2, 39) = 0.116206E+01
+ PKER_RACCSS( 2, 40) = 0.116364E+01
+ PKER_RACCSS( 3, 1) = 0.777160E+01
+ PKER_RACCSS( 3, 2) = 0.595032E+01
+ PKER_RACCSS( 3, 3) = 0.451790E+01
+ PKER_RACCSS( 3, 4) = 0.342854E+01
+ PKER_RACCSS( 3, 5) = 0.263483E+01
+ PKER_RACCSS( 3, 6) = 0.207865E+01
+ PKER_RACCSS( 3, 7) = 0.168958E+01
+ PKER_RACCSS( 3, 8) = 0.139680E+01
+ PKER_RACCSS( 3, 9) = 0.114514E+01
+ PKER_RACCSS( 3, 10) = 0.908247E+00
+ PKER_RACCSS( 3, 11) = 0.687947E+00
+ PKER_RACCSS( 3, 12) = 0.504752E+00
+ PKER_RACCSS( 3, 13) = 0.383293E+00
+ PKER_RACCSS( 3, 14) = 0.338906E+00
+ PKER_RACCSS( 3, 15) = 0.366909E+00
+ PKER_RACCSS( 3, 16) = 0.444356E+00
+ PKER_RACCSS( 3, 17) = 0.541950E+00
+ PKER_RACCSS( 3, 18) = 0.637739E+00
+ PKER_RACCSS( 3, 19) = 0.721828E+00
+ PKER_RACCSS( 3, 20) = 0.792410E+00
+ PKER_RACCSS( 3, 21) = 0.850846E+00
+ PKER_RACCSS( 3, 22) = 0.899095E+00
+ PKER_RACCSS( 3, 23) = 0.938935E+00
+ PKER_RACCSS( 3, 24) = 0.971843E+00
+ PKER_RACCSS( 3, 25) = 0.999035E+00
+ PKER_RACCSS( 3, 26) = 0.102151E+01
+ PKER_RACCSS( 3, 27) = 0.104009E+01
+ PKER_RACCSS( 3, 28) = 0.105546E+01
+ PKER_RACCSS( 3, 29) = 0.106816E+01
+ PKER_RACCSS( 3, 30) = 0.107867E+01
+ PKER_RACCSS( 3, 31) = 0.108736E+01
+ PKER_RACCSS( 3, 32) = 0.109455E+01
+ PKER_RACCSS( 3, 33) = 0.110050E+01
+ PKER_RACCSS( 3, 34) = 0.110543E+01
+ PKER_RACCSS( 3, 35) = 0.110950E+01
+ PKER_RACCSS( 3, 36) = 0.111287E+01
+ PKER_RACCSS( 3, 37) = 0.111566E+01
+ PKER_RACCSS( 3, 38) = 0.111797E+01
+ PKER_RACCSS( 3, 39) = 0.111987E+01
+ PKER_RACCSS( 3, 40) = 0.112145E+01
+ PKER_RACCSS( 4, 1) = 0.805774E+01
+ PKER_RACCSS( 4, 2) = 0.620290E+01
+ PKER_RACCSS( 4, 3) = 0.472252E+01
+ PKER_RACCSS( 4, 4) = 0.357131E+01
+ PKER_RACCSS( 4, 5) = 0.270794E+01
+ PKER_RACCSS( 4, 6) = 0.208624E+01
+ PKER_RACCSS( 4, 7) = 0.164932E+01
+ PKER_RACCSS( 4, 8) = 0.133402E+01
+ PKER_RACCSS( 4, 9) = 0.108366E+01
+ PKER_RACCSS( 4, 10) = 0.861948E+00
+ PKER_RACCSS( 4, 11) = 0.658666E+00
+ PKER_RACCSS( 4, 12) = 0.486621E+00
+ PKER_RACCSS( 4, 13) = 0.366890E+00
+ PKER_RACCSS( 4, 14) = 0.317418E+00
+ PKER_RACCSS( 4, 15) = 0.337862E+00
+ PKER_RACCSS( 4, 16) = 0.408677E+00
+ PKER_RACCSS( 4, 17) = 0.502267E+00
+ PKER_RACCSS( 4, 18) = 0.596480E+00
+ PKER_RACCSS( 4, 19) = 0.680297E+00
+ PKER_RACCSS( 4, 20) = 0.751009E+00
+ PKER_RACCSS( 4, 21) = 0.809622E+00
+ PKER_RACCSS( 4, 22) = 0.858012E+00
+ PKER_RACCSS( 4, 23) = 0.897956E+00
+ PKER_RACCSS( 4, 24) = 0.930941E+00
+ PKER_RACCSS( 4, 25) = 0.958191E+00
+ PKER_RACCSS( 4, 26) = 0.980709E+00
+ PKER_RACCSS( 4, 27) = 0.999322E+00
+ PKER_RACCSS( 4, 28) = 0.101471E+01
+ PKER_RACCSS( 4, 29) = 0.102743E+01
+ PKER_RACCSS( 4, 30) = 0.103796E+01
+ PKER_RACCSS( 4, 31) = 0.104666E+01
+ PKER_RACCSS( 4, 32) = 0.105386E+01
+ PKER_RACCSS( 4, 33) = 0.105982E+01
+ PKER_RACCSS( 4, 34) = 0.106474E+01
+ PKER_RACCSS( 4, 35) = 0.106882E+01
+ PKER_RACCSS( 4, 36) = 0.107219E+01
+ PKER_RACCSS( 4, 37) = 0.107499E+01
+ PKER_RACCSS( 4, 38) = 0.107729E+01
+ PKER_RACCSS( 4, 39) = 0.107921E+01
+ PKER_RACCSS( 4, 40) = 0.108079E+01
+ PKER_RACCSS( 5, 1) = 0.984134E+01
+ PKER_RACCSS( 5, 2) = 0.768407E+01
+ PKER_RACCSS( 5, 3) = 0.593483E+01
+ PKER_RACCSS( 5, 4) = 0.453996E+01
+ PKER_RACCSS( 5, 5) = 0.345468E+01
+ PKER_RACCSS( 5, 6) = 0.263565E+01
+ PKER_RACCSS( 5, 7) = 0.203378E+01
+ PKER_RACCSS( 5, 8) = 0.159275E+01
+ PKER_RACCSS( 5, 9) = 0.125599E+01
+ PKER_RACCSS( 5, 10) = 0.979504E+00
+ PKER_RACCSS( 5, 11) = 0.741294E+00
+ PKER_RACCSS( 5, 12) = 0.542607E+00
+ PKER_RACCSS( 5, 13) = 0.398707E+00
+ PKER_RACCSS( 5, 14) = 0.324415E+00
+ PKER_RACCSS( 5, 15) = 0.323256E+00
+ PKER_RACCSS( 5, 16) = 0.379206E+00
+ PKER_RACCSS( 5, 17) = 0.465245E+00
+ PKER_RACCSS( 5, 18) = 0.556856E+00
+ PKER_RACCSS( 5, 19) = 0.640174E+00
+ PKER_RACCSS( 5, 20) = 0.710994E+00
+ PKER_RACCSS( 5, 21) = 0.769798E+00
+ PKER_RACCSS( 5, 22) = 0.818346E+00
+ PKER_RACCSS( 5, 23) = 0.858406E+00
+ PKER_RACCSS( 5, 24) = 0.891477E+00
+ PKER_RACCSS( 5, 25) = 0.918790E+00
+ PKER_RACCSS( 5, 26) = 0.941356E+00
+ PKER_RACCSS( 5, 27) = 0.960005E+00
+ PKER_RACCSS( 5, 28) = 0.975420E+00
+ PKER_RACCSS( 5, 29) = 0.988165E+00
+ PKER_RACCSS( 5, 30) = 0.998704E+00
+ PKER_RACCSS( 5, 31) = 0.100742E+01
+ PKER_RACCSS( 5, 32) = 0.101463E+01
+ PKER_RACCSS( 5, 33) = 0.102059E+01
+ PKER_RACCSS( 5, 34) = 0.102553E+01
+ PKER_RACCSS( 5, 35) = 0.102961E+01
+ PKER_RACCSS( 5, 36) = 0.103298E+01
+ PKER_RACCSS( 5, 37) = 0.103578E+01
+ PKER_RACCSS( 5, 38) = 0.103809E+01
+ PKER_RACCSS( 5, 39) = 0.104000E+01
+ PKER_RACCSS( 5, 40) = 0.104158E+01
+ PKER_RACCSS( 6, 1) = 0.100946E+02
+ PKER_RACCSS( 6, 2) = 0.792320E+01
+ PKER_RACCSS( 6, 3) = 0.615079E+01
+ PKER_RACCSS( 6, 4) = 0.472200E+01
+ PKER_RACCSS( 6, 5) = 0.359201E+01
+ PKER_RACCSS( 6, 6) = 0.272124E+01
+ PKER_RACCSS( 6, 7) = 0.206891E+01
+ PKER_RACCSS( 6, 8) = 0.158855E+01
+ PKER_RACCSS( 6, 9) = 0.123006E+01
+ PKER_RACCSS( 6, 10) = 0.949015E+00
+ PKER_RACCSS( 6, 11) = 0.716857E+00
+ PKER_RACCSS( 6, 12) = 0.525942E+00
+ PKER_RACCSS( 6, 13) = 0.384576E+00
+ PKER_RACCSS( 6, 14) = 0.307254E+00
+ PKER_RACCSS( 6, 15) = 0.298968E+00
+ PKER_RACCSS( 6, 16) = 0.347796E+00
+ PKER_RACCSS( 6, 17) = 0.429181E+00
+ PKER_RACCSS( 6, 18) = 0.518637E+00
+ PKER_RACCSS( 6, 19) = 0.601403E+00
+ PKER_RACCSS( 6, 20) = 0.672307E+00
+ PKER_RACCSS( 6, 21) = 0.731313E+00
+ PKER_RACCSS( 6, 22) = 0.780036E+00
+ PKER_RACCSS( 6, 23) = 0.820228E+00
+ PKER_RACCSS( 6, 24) = 0.853395E+00
+ PKER_RACCSS( 6, 25) = 0.880779E+00
+ PKER_RACCSS( 6, 26) = 0.903398E+00
+ PKER_RACCSS( 6, 27) = 0.922086E+00
+ PKER_RACCSS( 6, 28) = 0.937532E+00
+ PKER_RACCSS( 6, 29) = 0.950300E+00
+ PKER_RACCSS( 6, 30) = 0.960856E+00
+ PKER_RACCSS( 6, 31) = 0.969586E+00
+ PKER_RACCSS( 6, 32) = 0.976805E+00
+ PKER_RACCSS( 6, 33) = 0.982777E+00
+ PKER_RACCSS( 6, 34) = 0.987716E+00
+ PKER_RACCSS( 6, 35) = 0.991802E+00
+ PKER_RACCSS( 6, 36) = 0.995182E+00
+ PKER_RACCSS( 6, 37) = 0.997979E+00
+ PKER_RACCSS( 6, 38) = 0.100029E+01
+ PKER_RACCSS( 6, 39) = 0.100221E+01
+ PKER_RACCSS( 6, 40) = 0.100379E+01
+ PKER_RACCSS( 7, 1) = 0.114324E+02
+ PKER_RACCSS( 7, 2) = 0.906703E+01
+ PKER_RACCSS( 7, 3) = 0.712265E+01
+ PKER_RACCSS( 7, 4) = 0.553681E+01
+ PKER_RACCSS( 7, 5) = 0.425959E+01
+ PKER_RACCSS( 7, 6) = 0.324955E+01
+ PKER_RACCSS( 7, 7) = 0.246840E+01
+ PKER_RACCSS( 7, 8) = 0.187588E+01
+ PKER_RACCSS( 7, 9) = 0.142816E+01
+ PKER_RACCSS( 7, 10) = 0.108266E+01
+ PKER_RACCSS( 7, 11) = 0.806742E+00
+ PKER_RACCSS( 7, 12) = 0.585128E+00
+ PKER_RACCSS( 7, 13) = 0.419236E+00
+ PKER_RACCSS( 7, 14) = 0.319529E+00
+ PKER_RACCSS( 7, 15) = 0.291120E+00
+ PKER_RACCSS( 7, 16) = 0.324513E+00
+ PKER_RACCSS( 7, 17) = 0.396667E+00
+ PKER_RACCSS( 7, 18) = 0.482222E+00
+ PKER_RACCSS( 7, 19) = 0.563981E+00
+ PKER_RACCSS( 7, 20) = 0.634892E+00
+ PKER_RACCSS( 7, 21) = 0.694111E+00
+ PKER_RACCSS( 7, 22) = 0.743028E+00
+ PKER_RACCSS( 7, 23) = 0.783365E+00
+ PKER_RACCSS( 7, 24) = 0.816640E+00
+ PKER_RACCSS( 7, 25) = 0.844104E+00
+ PKER_RACCSS( 7, 26) = 0.866782E+00
+ PKER_RACCSS( 7, 27) = 0.885515E+00
+ PKER_RACCSS( 7, 28) = 0.900994E+00
+ PKER_RACCSS( 7, 29) = 0.913787E+00
+ PKER_RACCSS( 7, 30) = 0.924363E+00
+ PKER_RACCSS( 7, 31) = 0.933108E+00
+ PKER_RACCSS( 7, 32) = 0.940339E+00
+ PKER_RACCSS( 7, 33) = 0.946319E+00
+ PKER_RACCSS( 7, 34) = 0.951265E+00
+ PKER_RACCSS( 7, 35) = 0.955356E+00
+ PKER_RACCSS( 7, 36) = 0.958741E+00
+ PKER_RACCSS( 7, 37) = 0.961540E+00
+ PKER_RACCSS( 7, 38) = 0.963857E+00
+ PKER_RACCSS( 7, 39) = 0.965773E+00
+ PKER_RACCSS( 7, 40) = 0.967359E+00
+ PKER_RACCSS( 8, 1) = 0.124239E+02
+ PKER_RACCSS( 8, 2) = 0.993225E+01
+ PKER_RACCSS( 8, 3) = 0.787544E+01
+ PKER_RACCSS( 8, 4) = 0.618577E+01
+ PKER_RACCSS( 8, 5) = 0.480894E+01
+ PKER_RACCSS( 8, 6) = 0.370096E+01
+ PKER_RACCSS( 8, 7) = 0.282411E+01
+ PKER_RACCSS( 8, 8) = 0.214244E+01
+ PKER_RACCSS( 8, 9) = 0.161816E+01
+ PKER_RACCSS( 8, 10) = 0.121306E+01
+ PKER_RACCSS( 8, 11) = 0.894753E+00
+ PKER_RACCSS( 8, 12) = 0.643111E+00
+ PKER_RACCSS( 8, 13) = 0.453850E+00
+ PKER_RACCSS( 8, 14) = 0.332849E+00
+ PKER_RACCSS( 8, 15) = 0.285241E+00
+ PKER_RACCSS( 8, 16) = 0.303258E+00
+ PKER_RACCSS( 8, 17) = 0.366013E+00
+ PKER_RACCSS( 8, 18) = 0.447330E+00
+ PKER_RACCSS( 8, 19) = 0.527851E+00
+ PKER_RACCSS( 8, 20) = 0.598698E+00
+ PKER_RACCSS( 8, 21) = 0.658133E+00
+ PKER_RACCSS( 8, 22) = 0.707263E+00
+ PKER_RACCSS( 8, 23) = 0.747765E+00
+ PKER_RACCSS( 8, 24) = 0.781160E+00
+ PKER_RACCSS( 8, 25) = 0.808713E+00
+ PKER_RACCSS( 8, 26) = 0.831457E+00
+ PKER_RACCSS( 8, 27) = 0.850239E+00
+ PKER_RACCSS( 8, 28) = 0.865756E+00
+ PKER_RACCSS( 8, 29) = 0.878577E+00
+ PKER_RACCSS( 8, 30) = 0.889175E+00
+ PKER_RACCSS( 8, 31) = 0.897936E+00
+ PKER_RACCSS( 8, 32) = 0.905180E+00
+ PKER_RACCSS( 8, 33) = 0.911169E+00
+ PKER_RACCSS( 8, 34) = 0.916123E+00
+ PKER_RACCSS( 8, 35) = 0.920221E+00
+ PKER_RACCSS( 8, 36) = 0.923610E+00
+ PKER_RACCSS( 8, 37) = 0.926413E+00
+ PKER_RACCSS( 8, 38) = 0.928732E+00
+ PKER_RACCSS( 8, 39) = 0.930651E+00
+ PKER_RACCSS( 8, 40) = 0.932238E+00
+ PKER_RACCSS( 9, 1) = 0.131489E+02
+ PKER_RACCSS( 9, 2) = 0.105758E+02
+ PKER_RACCSS( 9, 3) = 0.844671E+01
+ PKER_RACCSS( 9, 4) = 0.669006E+01
+ PKER_RACCSS( 9, 5) = 0.524801E+01
+ PKER_RACCSS( 9, 6) = 0.407401E+01
+ PKER_RACCSS( 9, 7) = 0.312961E+01
+ PKER_RACCSS( 9, 8) = 0.238088E+01
+ PKER_RACCSS( 9, 9) = 0.179468E+01
+ PKER_RACCSS( 9, 10) = 0.133782E+01
+ PKER_RACCSS( 9, 11) = 0.980036E+00
+ PKER_RACCSS( 9, 12) = 0.699733E+00
+ PKER_RACCSS( 9, 13) = 0.488184E+00
+ PKER_RACCSS( 9, 14) = 0.347494E+00
+ PKER_RACCSS( 9, 15) = 0.281651E+00
+ PKER_RACCSS( 9, 16) = 0.284820E+00
+ PKER_RACCSS( 9, 17) = 0.337669E+00
+ PKER_RACCSS( 9, 18) = 0.414080E+00
+ PKER_RACCSS( 9, 19) = 0.493001E+00
+ PKER_RACCSS( 9, 20) = 0.563677E+00
+ PKER_RACCSS( 9, 21) = 0.623324E+00
+ PKER_RACCSS( 9, 22) = 0.672689E+00
+ PKER_RACCSS( 9, 23) = 0.713373E+00
+ PKER_RACCSS( 9, 24) = 0.746903E+00
+ PKER_RACCSS( 9, 25) = 0.774555E+00
+ PKER_RACCSS( 9, 26) = 0.797373E+00
+ PKER_RACCSS( 9, 27) = 0.816210E+00
+ PKER_RACCSS( 9, 28) = 0.831768E+00
+ PKER_RACCSS( 9, 29) = 0.844622E+00
+ PKER_RACCSS( 9, 30) = 0.855243E+00
+ PKER_RACCSS( 9, 31) = 0.864022E+00
+ PKER_RACCSS( 9, 32) = 0.871280E+00
+ PKER_RACCSS( 9, 33) = 0.877281E+00
+ PKER_RACCSS( 9, 34) = 0.882243E+00
+ PKER_RACCSS( 9, 35) = 0.886347E+00
+ PKER_RACCSS( 9, 36) = 0.889741E+00
+ PKER_RACCSS( 9, 37) = 0.892549E+00
+ PKER_RACCSS( 9, 38) = 0.894871E+00
+ PKER_RACCSS( 9, 39) = 0.896792E+00
+ PKER_RACCSS( 9, 40) = 0.898382E+00
+ PKER_RACCSS( 10, 1) = 0.136750E+02
+ PKER_RACCSS( 10, 2) = 0.110498E+02
+ PKER_RACCSS( 10, 3) = 0.887496E+01
+ PKER_RACCSS( 10, 4) = 0.707597E+01
+ PKER_RACCSS( 10, 5) = 0.559242E+01
+ PKER_RACCSS( 10, 6) = 0.437547E+01
+ PKER_RACCSS( 10, 7) = 0.338541E+01
+ PKER_RACCSS( 10, 8) = 0.258877E+01
+ PKER_RACCSS( 10, 9) = 0.195522E+01
+ PKER_RACCSS( 10, 10) = 0.145573E+01
+ PKER_RACCSS( 10, 11) = 0.106313E+01
+ PKER_RACCSS( 10, 12) = 0.756187E+00
+ PKER_RACCSS( 10, 13) = 0.523593E+00
+ PKER_RACCSS( 10, 14) = 0.364631E+00
+ PKER_RACCSS( 10, 15) = 0.281388E+00
+ PKER_RACCSS( 10, 16) = 0.269623E+00
+ PKER_RACCSS( 10, 17) = 0.311784E+00
+ PKER_RACCSS( 10, 18) = 0.382556E+00
+ PKER_RACCSS( 10, 19) = 0.459434E+00
+ PKER_RACCSS( 10, 20) = 0.529788E+00
+ PKER_RACCSS( 10, 21) = 0.589631E+00
+ PKER_RACCSS( 10, 22) = 0.639249E+00
+ PKER_RACCSS( 10, 23) = 0.680137E+00
+ PKER_RACCSS( 10, 24) = 0.713818E+00
+ PKER_RACCSS( 10, 25) = 0.741581E+00
+ PKER_RACCSS( 10, 26) = 0.764482E+00
+ PKER_RACCSS( 10, 27) = 0.783381E+00
+ PKER_RACCSS( 10, 28) = 0.798985E+00
+ PKER_RACCSS( 10, 29) = 0.811873E+00
+ PKER_RACCSS( 10, 30) = 0.822522E+00
+ PKER_RACCSS( 10, 31) = 0.831321E+00
+ PKER_RACCSS( 10, 32) = 0.838595E+00
+ PKER_RACCSS( 10, 33) = 0.844608E+00
+ PKER_RACCSS( 10, 34) = 0.849579E+00
+ PKER_RACCSS( 10, 35) = 0.853690E+00
+ PKER_RACCSS( 10, 36) = 0.857090E+00
+ PKER_RACCSS( 10, 37) = 0.859902E+00
+ PKER_RACCSS( 10, 38) = 0.862228E+00
+ PKER_RACCSS( 10, 39) = 0.864152E+00
+ PKER_RACCSS( 10, 40) = 0.865743E+00
+ PKER_RACCSS( 11, 1) = 0.140563E+02
+ PKER_RACCSS( 11, 2) = 0.113981E+02
+ PKER_RACCSS( 11, 3) = 0.919450E+01
+ PKER_RACCSS( 11, 4) = 0.736921E+01
+ PKER_RACCSS( 11, 5) = 0.585988E+01
+ PKER_RACCSS( 11, 6) = 0.461590E+01
+ PKER_RACCSS( 11, 7) = 0.359614E+01
+ PKER_RACCSS( 11, 8) = 0.276683E+01
+ PKER_RACCSS( 11, 9) = 0.209889E+01
+ PKER_RACCSS( 11, 10) = 0.156598E+01
+ PKER_RACCSS( 11, 11) = 0.114396E+01
+ PKER_RACCSS( 11, 12) = 0.812968E+00
+ PKER_RACCSS( 11, 13) = 0.560871E+00
+ PKER_RACCSS( 11, 14) = 0.384305E+00
+ PKER_RACCSS( 11, 15) = 0.284209E+00
+ PKER_RACCSS( 11, 16) = 0.257298E+00
+ PKER_RACCSS( 11, 17) = 0.288361E+00
+ PKER_RACCSS( 11, 18) = 0.352782E+00
+ PKER_RACCSS( 11, 19) = 0.427151E+00
+ PKER_RACCSS( 11, 20) = 0.496990E+00
+ PKER_RACCSS( 11, 21) = 0.557002E+00
+ PKER_RACCSS( 11, 22) = 0.606893E+00
+ PKER_RACCSS( 11, 23) = 0.648007E+00
+ PKER_RACCSS( 11, 24) = 0.681857E+00
+ PKER_RACCSS( 11, 25) = 0.709744E+00
+ PKER_RACCSS( 11, 26) = 0.732736E+00
+ PKER_RACCSS( 11, 27) = 0.751704E+00
+ PKER_RACCSS( 11, 28) = 0.767360E+00
+ PKER_RACCSS( 11, 29) = 0.780287E+00
+ PKER_RACCSS( 11, 30) = 0.790965E+00
+ PKER_RACCSS( 11, 31) = 0.799788E+00
+ PKER_RACCSS( 11, 32) = 0.807079E+00
+ PKER_RACCSS( 11, 33) = 0.813105E+00
+ PKER_RACCSS( 11, 34) = 0.818087E+00
+ PKER_RACCSS( 11, 35) = 0.822206E+00
+ PKER_RACCSS( 11, 36) = 0.825612E+00
+ PKER_RACCSS( 11, 37) = 0.828429E+00
+ PKER_RACCSS( 11, 38) = 0.830759E+00
+ PKER_RACCSS( 11, 39) = 0.832686E+00
+ PKER_RACCSS( 11, 40) = 0.834279E+00
+ PKER_RACCSS( 12, 1) = 0.144643E+02
+ PKER_RACCSS( 12, 2) = 0.116548E+02
+ PKER_RACCSS( 12, 3) = 0.943346E+01
+ PKER_RACCSS( 12, 4) = 0.759213E+01
+ PKER_RACCSS( 12, 5) = 0.606718E+01
+ PKER_RACCSS( 12, 6) = 0.480667E+01
+ PKER_RACCSS( 12, 7) = 0.376829E+01
+ PKER_RACCSS( 12, 8) = 0.291758E+01
+ PKER_RACCSS( 12, 9) = 0.222576E+01
+ PKER_RACCSS( 12, 10) = 0.166801E+01
+ PKER_RACCSS( 12, 11) = 0.122238E+01
+ PKER_RACCSS( 12, 12) = 0.870703E+00
+ PKER_RACCSS( 12, 13) = 0.600531E+00
+ PKER_RACCSS( 12, 14) = 0.407251E+00
+ PKER_RACCSS( 12, 15) = 0.290903E+00
+ PKER_RACCSS( 12, 16) = 0.248669E+00
+ PKER_RACCSS( 12, 17) = 0.267650E+00
+ PKER_RACCSS( 12, 18) = 0.324857E+00
+ PKER_RACCSS( 12, 19) = 0.396152E+00
+ PKER_RACCSS( 12, 20) = 0.465254E+00
+ PKER_RACCSS( 12, 21) = 0.525388E+00
+ PKER_RACCSS( 12, 22) = 0.575567E+00
+ PKER_RACCSS( 12, 23) = 0.616932E+00
+ PKER_RACCSS( 12, 24) = 0.650971E+00
+ PKER_RACCSS( 12, 25) = 0.678997E+00
+ PKER_RACCSS( 12, 26) = 0.702092E+00
+ PKER_RACCSS( 12, 27) = 0.721136E+00
+ PKER_RACCSS( 12, 28) = 0.736849E+00
+ PKER_RACCSS( 12, 29) = 0.749820E+00
+ PKER_RACCSS( 12, 30) = 0.760531E+00
+ PKER_RACCSS( 12, 31) = 0.769378E+00
+ PKER_RACCSS( 12, 32) = 0.776689E+00
+ PKER_RACCSS( 12, 33) = 0.782730E+00
+ PKER_RACCSS( 12, 34) = 0.787724E+00
+ PKER_RACCSS( 12, 35) = 0.791852E+00
+ PKER_RACCSS( 12, 36) = 0.795265E+00
+ PKER_RACCSS( 12, 37) = 0.798087E+00
+ PKER_RACCSS( 12, 38) = 0.800421E+00
+ PKER_RACCSS( 12, 39) = 0.802351E+00
+ PKER_RACCSS( 12, 40) = 0.803947E+00
+ PKER_RACCSS( 13, 1) = 0.146218E+02
+ PKER_RACCSS( 13, 2) = 0.119195E+02
+ PKER_RACCSS( 13, 3) = 0.967880E+01
+ PKER_RACCSS( 13, 4) = 0.782085E+01
+ PKER_RACCSS( 13, 5) = 0.628066E+01
+ PKER_RACCSS( 13, 6) = 0.500499E+01
+ PKER_RACCSS( 13, 7) = 0.395033E+01
+ PKER_RACCSS( 13, 8) = 0.308122E+01
+ PKER_RACCSS( 13, 9) = 0.236849E+01
+ PKER_RACCSS( 13, 10) = 0.178787E+01
+ PKER_RACCSS( 13, 11) = 0.131877E+01
+ PKER_RACCSS( 13, 12) = 0.944429E+00
+ PKER_RACCSS( 13, 13) = 0.653226E+00
+ PKER_RACCSS( 13, 14) = 0.440077E+00
+ PKER_RACCSS( 13, 15) = 0.304731E+00
+ PKER_RACCSS( 13, 16) = 0.245176E+00
+ PKER_RACCSS( 13, 17) = 0.250424E+00
+ PKER_RACCSS( 13, 18) = 0.299107E+00
+ PKER_RACCSS( 13, 19) = 0.366527E+00
+ PKER_RACCSS( 13, 20) = 0.434567E+00
+ PKER_RACCSS( 13, 21) = 0.494744E+00
+ PKER_RACCSS( 13, 22) = 0.545221E+00
+ PKER_RACCSS( 13, 23) = 0.586863E+00
+ PKER_RACCSS( 13, 24) = 0.621112E+00
+ PKER_RACCSS( 13, 25) = 0.649293E+00
+ PKER_RACCSS( 13, 26) = 0.672503E+00
+ PKER_RACCSS( 13, 27) = 0.691633E+00
+ PKER_RACCSS( 13, 28) = 0.707410E+00
+ PKER_RACCSS( 13, 29) = 0.720429E+00
+ PKER_RACCSS( 13, 30) = 0.731176E+00
+ PKER_RACCSS( 13, 31) = 0.740052E+00
+ PKER_RACCSS( 13, 32) = 0.747384E+00
+ PKER_RACCSS( 13, 33) = 0.753441E+00
+ PKER_RACCSS( 13, 34) = 0.758448E+00
+ PKER_RACCSS( 13, 35) = 0.762586E+00
+ PKER_RACCSS( 13, 36) = 0.766007E+00
+ PKER_RACCSS( 13, 37) = 0.768835E+00
+ PKER_RACCSS( 13, 38) = 0.771173E+00
+ PKER_RACCSS( 13, 39) = 0.773107E+00
+ PKER_RACCSS( 13, 40) = 0.774707E+00
+ PKER_RACCSS( 14, 1) = 0.147878E+02
+ PKER_RACCSS( 14, 2) = 0.120765E+02
+ PKER_RACCSS( 14, 3) = 0.982870E+01
+ PKER_RACCSS( 14, 4) = 0.796483E+01
+ PKER_RACCSS( 14, 5) = 0.639086E+01
+ PKER_RACCSS( 14, 6) = 0.511162E+01
+ PKER_RACCSS( 14, 7) = 0.405229E+01
+ PKER_RACCSS( 14, 8) = 0.317683E+01
+ PKER_RACCSS( 14, 9) = 0.245579E+01
+ PKER_RACCSS( 14, 10) = 0.186496E+01
+ PKER_RACCSS( 14, 11) = 0.138431E+01
+ PKER_RACCSS( 14, 12) = 0.997780E+00
+ PKER_RACCSS( 14, 13) = 0.693897E+00
+ PKER_RACCSS( 14, 14) = 0.467067E+00
+ PKER_RACCSS( 14, 15) = 0.316229E+00
+ PKER_RACCSS( 14, 16) = 0.240669E+00
+ PKER_RACCSS( 14, 17) = 0.232169E+00
+ PKER_RACCSS( 14, 18) = 0.271909E+00
+ PKER_RACCSS( 14, 19) = 0.335655E+00
+ PKER_RACCSS( 14, 20) = 0.403449E+00
+ PKER_RACCSS( 14, 21) = 0.464483E+00
+ PKER_RACCSS( 14, 22) = 0.515682E+00
+ PKER_RACCSS( 14, 23) = 0.557735E+00
+ PKER_RACCSS( 14, 24) = 0.592233E+00
+ PKER_RACCSS( 14, 25) = 0.620588E+00
+ PKER_RACCSS( 14, 26) = 0.643926E+00
+ PKER_RACCSS( 14, 27) = 0.663151E+00
+ PKER_RACCSS( 14, 28) = 0.679000E+00
+ PKER_RACCSS( 14, 29) = 0.692073E+00
+ PKER_RACCSS( 14, 30) = 0.702861E+00
+ PKER_RACCSS( 14, 31) = 0.711768E+00
+ PKER_RACCSS( 14, 32) = 0.719123E+00
+ PKER_RACCSS( 14, 33) = 0.725199E+00
+ PKER_RACCSS( 14, 34) = 0.730220E+00
+ PKER_RACCSS( 14, 35) = 0.734369E+00
+ PKER_RACCSS( 14, 36) = 0.737798E+00
+ PKER_RACCSS( 14, 37) = 0.740633E+00
+ PKER_RACCSS( 14, 38) = 0.742977E+00
+ PKER_RACCSS( 14, 39) = 0.744915E+00
+ PKER_RACCSS( 14, 40) = 0.746517E+00
+ PKER_RACCSS( 15, 1) = 0.148885E+02
+ PKER_RACCSS( 15, 2) = 0.121740E+02
+ PKER_RACCSS( 15, 3) = 0.992387E+01
+ PKER_RACCSS( 15, 4) = 0.805817E+01
+ PKER_RACCSS( 15, 5) = 0.651095E+01
+ PKER_RACCSS( 15, 6) = 0.522781E+01
+ PKER_RACCSS( 15, 7) = 0.415208E+01
+ PKER_RACCSS( 15, 8) = 0.327178E+01
+ PKER_RACCSS( 15, 9) = 0.254431E+01
+ PKER_RACCSS( 15, 10) = 0.194528E+01
+ PKER_RACCSS( 15, 11) = 0.145480E+01
+ PKER_RACCSS( 15, 12) = 0.105720E+01
+ PKER_RACCSS( 15, 13) = 0.741190E+00
+ PKER_RACCSS( 15, 14) = 0.500943E+00
+ PKER_RACCSS( 15, 15) = 0.335395E+00
+ PKER_RACCSS( 15, 16) = 0.244295E+00
+ PKER_RACCSS( 15, 17) = 0.221579E+00
+ PKER_RACCSS( 15, 18) = 0.250580E+00
+ PKER_RACCSS( 15, 19) = 0.308148E+00
+ PKER_RACCSS( 15, 20) = 0.373522E+00
+ PKER_RACCSS( 15, 21) = 0.434461E+00
+ PKER_RACCSS( 15, 22) = 0.486484E+00
+ PKER_RACCSS( 15, 23) = 0.529311E+00
+ PKER_RACCSS( 15, 24) = 0.564249E+00
+ PKER_RACCSS( 15, 25) = 0.592835E+00
+ PKER_RACCSS( 15, 26) = 0.616320E+00
+ PKER_RACCSS( 15, 27) = 0.635651E+00
+ PKER_RACCSS( 15, 28) = 0.651579E+00
+ PKER_RACCSS( 15, 29) = 0.664712E+00
+ PKER_RACCSS( 15, 30) = 0.675546E+00
+ PKER_RACCSS( 15, 31) = 0.684487E+00
+ PKER_RACCSS( 15, 32) = 0.691869E+00
+ PKER_RACCSS( 15, 33) = 0.697965E+00
+ PKER_RACCSS( 15, 34) = 0.703002E+00
+ PKER_RACCSS( 15, 35) = 0.707163E+00
+ PKER_RACCSS( 15, 36) = 0.710601E+00
+ PKER_RACCSS( 15, 37) = 0.713444E+00
+ PKER_RACCSS( 15, 38) = 0.715793E+00
+ PKER_RACCSS( 15, 39) = 0.717736E+00
+ PKER_RACCSS( 15, 40) = 0.719342E+00
+ PKER_RACCSS( 16, 1) = 0.149643E+02
+ PKER_RACCSS( 16, 2) = 0.122432E+02
+ PKER_RACCSS( 16, 3) = 0.999279E+01
+ PKER_RACCSS( 16, 4) = 0.812705E+01
+ PKER_RACCSS( 16, 5) = 0.657982E+01
+ PKER_RACCSS( 16, 6) = 0.529649E+01
+ PKER_RACCSS( 16, 7) = 0.423206E+01
+ PKER_RACCSS( 16, 8) = 0.334958E+01
+ PKER_RACCSS( 16, 9) = 0.261879E+01
+ PKER_RACCSS( 16, 10) = 0.201500E+01
+ PKER_RACCSS( 16, 11) = 0.151824E+01
+ PKER_RACCSS( 16, 12) = 0.111282E+01
+ PKER_RACCSS( 16, 13) = 0.787503E+00
+ PKER_RACCSS( 16, 14) = 0.536182E+00
+ PKER_RACCSS( 16, 15) = 0.357709E+00
+ PKER_RACCSS( 16, 16) = 0.252427E+00
+ PKER_RACCSS( 16, 17) = 0.216248E+00
+ PKER_RACCSS( 16, 18) = 0.235070E+00
+ PKER_RACCSS( 16, 19) = 0.286475E+00
+ PKER_RACCSS( 16, 20) = 0.348775E+00
+ PKER_RACCSS( 16, 21) = 0.408252E+00
+ PKER_RACCSS( 16, 22) = 0.459577E+00
+ PKER_RACCSS( 16, 23) = 0.502202E+00
+ PKER_RACCSS( 16, 24) = 0.537236E+00
+ PKER_RACCSS( 16, 25) = 0.566000E+00
+ PKER_RACCSS( 16, 26) = 0.589641E+00
+ PKER_RACCSS( 16, 27) = 0.609091E+00
+ PKER_RACCSS( 16, 28) = 0.625108E+00
+ PKER_RACCSS( 16, 29) = 0.638308E+00
+ PKER_RACCSS( 16, 30) = 0.649192E+00
+ PKER_RACCSS( 16, 31) = 0.658171E+00
+ PKER_RACCSS( 16, 32) = 0.665583E+00
+ PKER_RACCSS( 16, 33) = 0.671702E+00
+ PKER_RACCSS( 16, 34) = 0.676755E+00
+ PKER_RACCSS( 16, 35) = 0.680930E+00
+ PKER_RACCSS( 16, 36) = 0.684379E+00
+ PKER_RACCSS( 16, 37) = 0.687230E+00
+ PKER_RACCSS( 16, 38) = 0.689586E+00
+ PKER_RACCSS( 16, 39) = 0.691533E+00
+ PKER_RACCSS( 16, 40) = 0.693143E+00
+ PKER_RACCSS( 17, 1) = 0.149110E+02
+ PKER_RACCSS( 17, 2) = 0.121929E+02
+ PKER_RACCSS( 17, 3) = 0.994290E+01
+ PKER_RACCSS( 17, 4) = 0.807839E+01
+ PKER_RACCSS( 17, 5) = 0.653328E+01
+ PKER_RACCSS( 17, 6) = 0.525301E+01
+ PKER_RACCSS( 17, 7) = 0.419017E+01
+ PKER_RACCSS( 17, 8) = 0.331277E+01
+ PKER_RACCSS( 17, 9) = 0.258781E+01
+ PKER_RACCSS( 17, 10) = 0.199030E+01
+ PKER_RACCSS( 17, 11) = 0.149981E+01
+ PKER_RACCSS( 17, 12) = 0.110010E+01
+ PKER_RACCSS( 17, 13) = 0.779276E+00
+ PKER_RACCSS( 17, 14) = 0.530410E+00
+ PKER_RACCSS( 17, 15) = 0.351710E+00
+ PKER_RACCSS( 17, 16) = 0.243856E+00
+ PKER_RACCSS( 17, 17) = 0.204039E+00
+ PKER_RACCSS( 17, 18) = 0.219748E+00
+ PKER_RACCSS( 17, 19) = 0.269792E+00
+ PKER_RACCSS( 17, 20) = 0.331944E+00
+ PKER_RACCSS( 17, 21) = 0.391473E+00
+ PKER_RACCSS( 17, 22) = 0.442581E+00
+ PKER_RACCSS( 17, 23) = 0.484818E+00
+ PKER_RACCSS( 17, 24) = 0.519457E+00
+ PKER_RACCSS( 17, 25) = 0.547891E+00
+ PKER_RACCSS( 17, 26) = 0.571271E+00
+ PKER_RACCSS( 17, 27) = 0.590518E+00
+ PKER_RACCSS( 17, 28) = 0.606376E+00
+ PKER_RACCSS( 17, 29) = 0.619451E+00
+ PKER_RACCSS( 17, 30) = 0.630237E+00
+ PKER_RACCSS( 17, 31) = 0.639140E+00
+ PKER_RACCSS( 17, 32) = 0.646491E+00
+ PKER_RACCSS( 17, 33) = 0.652562E+00
+ PKER_RACCSS( 17, 34) = 0.657578E+00
+ PKER_RACCSS( 17, 35) = 0.661723E+00
+ PKER_RACCSS( 17, 36) = 0.665149E+00
+ PKER_RACCSS( 17, 37) = 0.667981E+00
+ PKER_RACCSS( 17, 38) = 0.670322E+00
+ PKER_RACCSS( 17, 39) = 0.672258E+00
+ PKER_RACCSS( 17, 40) = 0.673858E+00
+ PKER_RACCSS( 18, 1) = 0.149633E+02
+ PKER_RACCSS( 18, 2) = 0.122476E+02
+ PKER_RACCSS( 18, 3) = 0.999821E+01
+ PKER_RACCSS( 18, 4) = 0.813426E+01
+ PKER_RACCSS( 18, 5) = 0.658956E+01
+ PKER_RACCSS( 18, 6) = 0.530943E+01
+ PKER_RACCSS( 18, 7) = 0.424876E+01
+ PKER_RACCSS( 18, 8) = 0.337038E+01
+ PKER_RACCSS( 18, 9) = 0.264373E+01
+ PKER_RACCSS( 18, 10) = 0.204371E+01
+ PKER_RACCSS( 18, 11) = 0.154982E+01
+ PKER_RACCSS( 18, 12) = 0.114568E+01
+ PKER_RACCSS( 18, 13) = 0.819098E+00
+ PKER_RACCSS( 18, 14) = 0.562637E+00
+ PKER_RACCSS( 18, 15) = 0.373798E+00
+ PKER_RACCSS( 18, 16) = 0.253619E+00
+ PKER_RACCSS( 18, 17) = 0.200537E+00
+ PKER_RACCSS( 18, 18) = 0.205133E+00
+ PKER_RACCSS( 18, 19) = 0.248069E+00
+ PKER_RACCSS( 18, 20) = 0.306998E+00
+ PKER_RACCSS( 18, 21) = 0.365645E+00
+ PKER_RACCSS( 18, 22) = 0.416774E+00
+ PKER_RACCSS( 18, 23) = 0.459245E+00
+ PKER_RACCSS( 18, 24) = 0.494124E+00
+ PKER_RACCSS( 18, 25) = 0.522754E+00
+ PKER_RACCSS( 18, 26) = 0.546281E+00
+ PKER_RACCSS( 18, 27) = 0.565637E+00
+ PKER_RACCSS( 18, 28) = 0.581576E+00
+ PKER_RACCSS( 18, 29) = 0.594711E+00
+ PKER_RACCSS( 18, 30) = 0.605543E+00
+ PKER_RACCSS( 18, 31) = 0.614480E+00
+ PKER_RACCSS( 18, 32) = 0.621856E+00
+ PKER_RACCSS( 18, 33) = 0.627948E+00
+ PKER_RACCSS( 18, 34) = 0.632979E+00
+ PKER_RACCSS( 18, 35) = 0.637136E+00
+ PKER_RACCSS( 18, 36) = 0.640571E+00
+ PKER_RACCSS( 18, 37) = 0.643409E+00
+ PKER_RACCSS( 18, 38) = 0.645756E+00
+ PKER_RACCSS( 18, 39) = 0.647696E+00
+ PKER_RACCSS( 18, 40) = 0.649300E+00
+ PKER_RACCSS( 19, 1) = 0.150092E+02
+ PKER_RACCSS( 19, 2) = 0.122952E+02
+ PKER_RACCSS( 19, 3) = 0.100464E+02
+ PKER_RACCSS( 19, 4) = 0.818334E+01
+ PKER_RACCSS( 19, 5) = 0.663935E+01
+ PKER_RACCSS( 19, 6) = 0.535974E+01
+ PKER_RACCSS( 19, 7) = 0.429927E+01
+ PKER_RACCSS( 19, 8) = 0.342067E+01
+ PKER_RACCSS( 19, 9) = 0.269324E+01
+ PKER_RACCSS( 19, 10) = 0.209179E+01
+ PKER_RACCSS( 19, 11) = 0.159570E+01
+ PKER_RACCSS( 19, 12) = 0.118845E+01
+ PKER_RACCSS( 19, 13) = 0.857511E+00
+ PKER_RACCSS( 19, 14) = 0.594805E+00
+ PKER_RACCSS( 19, 15) = 0.397214E+00
+ PKER_RACCSS( 19, 16) = 0.265319E+00
+ PKER_RACCSS( 19, 17) = 0.199392E+00
+ PKER_RACCSS( 19, 18) = 0.192464E+00
+ PKER_RACCSS( 19, 19) = 0.227473E+00
+ PKER_RACCSS( 19, 20) = 0.282643E+00
+ PKER_RACCSS( 19, 21) = 0.340316E+00
+ PKER_RACCSS( 19, 22) = 0.391584E+00
+ PKER_RACCSS( 19, 23) = 0.434406E+00
+ PKER_RACCSS( 19, 24) = 0.469583E+00
+ PKER_RACCSS( 19, 25) = 0.498435E+00
+ PKER_RACCSS( 19, 26) = 0.522126E+00
+ PKER_RACCSS( 19, 27) = 0.541603E+00
+ PKER_RACCSS( 19, 28) = 0.557631E+00
+ PKER_RACCSS( 19, 29) = 0.570834E+00
+ PKER_RACCSS( 19, 30) = 0.581716E+00
+ PKER_RACCSS( 19, 31) = 0.590691E+00
+ PKER_RACCSS( 19, 32) = 0.598097E+00
+ PKER_RACCSS( 19, 33) = 0.604210E+00
+ PKER_RACCSS( 19, 34) = 0.609258E+00
+ PKER_RACCSS( 19, 35) = 0.613428E+00
+ PKER_RACCSS( 19, 36) = 0.616873E+00
+ PKER_RACCSS( 19, 37) = 0.619720E+00
+ PKER_RACCSS( 19, 38) = 0.622073E+00
+ PKER_RACCSS( 19, 39) = 0.624017E+00
+ PKER_RACCSS( 19, 40) = 0.625625E+00
+ PKER_RACCSS( 20, 1) = 0.150506E+02
+ PKER_RACCSS( 20, 2) = 0.123375E+02
+ PKER_RACCSS( 20, 3) = 0.100899E+02
+ PKER_RACCSS( 20, 4) = 0.822762E+01
+ PKER_RACCSS( 20, 5) = 0.668443E+01
+ PKER_RACCSS( 20, 6) = 0.540547E+01
+ PKER_RACCSS( 20, 7) = 0.434543E+01
+ PKER_RACCSS( 20, 8) = 0.346694E+01
+ PKER_RACCSS( 20, 9) = 0.273919E+01
+ PKER_RACCSS( 20, 10) = 0.213687E+01
+ PKER_RACCSS( 20, 11) = 0.163926E+01
+ PKER_RACCSS( 20, 12) = 0.122969E+01
+ PKER_RACCSS( 20, 13) = 0.895288E+00
+ PKER_RACCSS( 20, 14) = 0.627384E+00
+ PKER_RACCSS( 20, 15) = 0.422108E+00
+ PKER_RACCSS( 20, 16) = 0.279742E+00
+ PKER_RACCSS( 20, 17) = 0.201318E+00
+ PKER_RACCSS( 20, 18) = 0.182433E+00
+ PKER_RACCSS( 20, 19) = 0.208783E+00
+ PKER_RACCSS( 20, 20) = 0.259513E+00
+ PKER_RACCSS( 20, 21) = 0.315816E+00
+ PKER_RACCSS( 20, 22) = 0.367115E+00
+ PKER_RACCSS( 20, 23) = 0.410295E+00
+ PKER_RACCSS( 20, 24) = 0.445798E+00
+ PKER_RACCSS( 20, 25) = 0.474895E+00
+ PKER_RACCSS( 20, 26) = 0.498768E+00
+ PKER_RACCSS( 20, 27) = 0.518379E+00
+ PKER_RACCSS( 20, 28) = 0.534508E+00
+ PKER_RACCSS( 20, 29) = 0.547785E+00
+ PKER_RACCSS( 20, 30) = 0.558723E+00
+ PKER_RACCSS( 20, 31) = 0.567741E+00
+ PKER_RACCSS( 20, 32) = 0.575179E+00
+ PKER_RACCSS( 20, 33) = 0.581316E+00
+ PKER_RACCSS( 20, 34) = 0.586383E+00
+ PKER_RACCSS( 20, 35) = 0.590568E+00
+ PKER_RACCSS( 20, 36) = 0.594024E+00
+ PKER_RACCSS( 20, 37) = 0.596879E+00
+ PKER_RACCSS( 20, 38) = 0.599239E+00
+ PKER_RACCSS( 20, 39) = 0.601189E+00
+ PKER_RACCSS( 20, 40) = 0.602801E+00
+ PKER_RACCSS( 21, 1) = 0.150883E+02
+ PKER_RACCSS( 21, 2) = 0.123761E+02
+ PKER_RACCSS( 21, 3) = 0.101293E+02
+ PKER_RACCSS( 21, 4) = 0.826795E+01
+ PKER_RACCSS( 21, 5) = 0.672557E+01
+ PKER_RACCSS( 21, 6) = 0.544731E+01
+ PKER_RACCSS( 21, 7) = 0.438783E+01
+ PKER_RACCSS( 21, 8) = 0.350965E+01
+ PKER_RACCSS( 21, 9) = 0.278189E+01
+ PKER_RACCSS( 21, 10) = 0.217913E+01
+ PKER_RACCSS( 21, 11) = 0.168054E+01
+ PKER_RACCSS( 21, 12) = 0.126927E+01
+ PKER_RACCSS( 21, 13) = 0.932157E+00
+ PKER_RACCSS( 21, 14) = 0.659992E+00
+ PKER_RACCSS( 21, 15) = 0.448085E+00
+ PKER_RACCSS( 21, 16) = 0.296290E+00
+ PKER_RACCSS( 21, 17) = 0.206056E+00
+ PKER_RACCSS( 21, 18) = 0.175119E+00
+ PKER_RACCSS( 21, 19) = 0.192180E+00
+ PKER_RACCSS( 21, 20) = 0.237716E+00
+ PKER_RACCSS( 21, 21) = 0.292175E+00
+ PKER_RACCSS( 21, 22) = 0.343345E+00
+ PKER_RACCSS( 21, 23) = 0.386873E+00
+ PKER_RACCSS( 21, 24) = 0.422729E+00
+ PKER_RACCSS( 21, 25) = 0.452098E+00
+ PKER_RACCSS( 21, 26) = 0.476172E+00
+ PKER_RACCSS( 21, 27) = 0.495932E+00
+ PKER_RACCSS( 21, 28) = 0.512172E+00
+ PKER_RACCSS( 21, 29) = 0.525532E+00
+ PKER_RACCSS( 21, 30) = 0.536532E+00
+ PKER_RACCSS( 21, 31) = 0.545597E+00
+ PKER_RACCSS( 21, 32) = 0.553070E+00
+ PKER_RACCSS( 21, 33) = 0.559235E+00
+ PKER_RACCSS( 21, 34) = 0.564323E+00
+ PKER_RACCSS( 21, 35) = 0.568523E+00
+ PKER_RACCSS( 21, 36) = 0.571992E+00
+ PKER_RACCSS( 21, 37) = 0.574857E+00
+ PKER_RACCSS( 21, 38) = 0.577224E+00
+ PKER_RACCSS( 21, 39) = 0.579180E+00
+ PKER_RACCSS( 21, 40) = 0.580796E+00
+ PKER_RACCSS( 22, 1) = 0.150616E+02
+ PKER_RACCSS( 22, 2) = 0.123494E+02
+ PKER_RACCSS( 22, 3) = 0.101028E+02
+ PKER_RACCSS( 22, 4) = 0.824177E+01
+ PKER_RACCSS( 22, 5) = 0.669992E+01
+ PKER_RACCSS( 22, 6) = 0.542247E+01
+ PKER_RACCSS( 22, 7) = 0.436411E+01
+ PKER_RACCSS( 22, 8) = 0.348743E+01
+ PKER_RACCSS( 22, 9) = 0.276155E+01
+ PKER_RACCSS( 22, 10) = 0.216106E+01
+ PKER_RACCSS( 22, 11) = 0.166509E+01
+ PKER_RACCSS( 22, 12) = 0.125663E+01
+ PKER_RACCSS( 22, 13) = 0.922338E+00
+ PKER_RACCSS( 22, 14) = 0.652608E+00
+ PKER_RACCSS( 22, 15) = 0.442303E+00
+ PKER_RACCSS( 22, 16) = 0.290764E+00
+ PKER_RACCSS( 22, 17) = 0.199789E+00
+ PKER_RACCSS( 22, 18) = 0.168024E+00
+ PKER_RACCSS( 22, 19) = 0.184374E+00
+ PKER_RACCSS( 22, 20) = 0.229833E+00
+ PKER_RACCSS( 22, 21) = 0.284268E+00
+ PKER_RACCSS( 22, 22) = 0.335094E+00
+ PKER_RACCSS( 22, 23) = 0.378101E+00
+ PKER_RACCSS( 22, 24) = 0.413464E+00
+ PKER_RACCSS( 22, 25) = 0.442432E+00
+ PKER_RACCSS( 22, 26) = 0.466188E+00
+ PKER_RACCSS( 22, 27) = 0.485698E+00
+ PKER_RACCSS( 22, 28) = 0.501739E+00
+ PKER_RACCSS( 22, 29) = 0.514942E+00
+ PKER_RACCSS( 22, 30) = 0.525819E+00
+ PKER_RACCSS( 22, 31) = 0.534785E+00
+ PKER_RACCSS( 22, 32) = 0.542181E+00
+ PKER_RACCSS( 22, 33) = 0.548285E+00
+ PKER_RACCSS( 22, 34) = 0.553324E+00
+ PKER_RACCSS( 22, 35) = 0.557486E+00
+ PKER_RACCSS( 22, 36) = 0.560925E+00
+ PKER_RACCSS( 22, 37) = 0.563766E+00
+ PKER_RACCSS( 22, 38) = 0.566114E+00
+ PKER_RACCSS( 22, 39) = 0.568055E+00
+ PKER_RACCSS( 22, 40) = 0.569660E+00
+ PKER_RACCSS( 23, 1) = 0.150979E+02
+ PKER_RACCSS( 23, 2) = 0.123864E+02
+ PKER_RACCSS( 23, 3) = 0.101406E+02
+ PKER_RACCSS( 23, 4) = 0.828021E+01
+ PKER_RACCSS( 23, 5) = 0.673899E+01
+ PKER_RACCSS( 23, 6) = 0.546206E+01
+ PKER_RACCSS( 23, 7) = 0.440407E+01
+ PKER_RACCSS( 23, 8) = 0.352753E+01
+ PKER_RACCSS( 23, 9) = 0.280152E+01
+ PKER_RACCSS( 23, 10) = 0.220055E+01
+ PKER_RACCSS( 23, 11) = 0.170365E+01
+ PKER_RACCSS( 23, 12) = 0.129373E+01
+ PKER_RACCSS( 23, 13) = 0.957190E+00
+ PKER_RACCSS( 23, 14) = 0.684027E+00
+ PKER_RACCSS( 23, 15) = 0.468385E+00
+ PKER_RACCSS( 23, 16) = 0.308911E+00
+ PKER_RACCSS( 23, 17) = 0.207457E+00
+ PKER_RACCSS( 23, 18) = 0.163835E+00
+ PKER_RACCSS( 23, 19) = 0.170561E+00
+ PKER_RACCSS( 23, 20) = 0.210020E+00
+ PKER_RACCSS( 23, 21) = 0.262126E+00
+ PKER_RACCSS( 23, 22) = 0.312660E+00
+ PKER_RACCSS( 23, 23) = 0.355977E+00
+ PKER_RACCSS( 23, 24) = 0.391676E+00
+ PKER_RACCSS( 23, 25) = 0.420901E+00
+ PKER_RACCSS( 23, 26) = 0.444846E+00
+ PKER_RACCSS( 23, 27) = 0.464494E+00
+ PKER_RACCSS( 23, 28) = 0.480638E+00
+ PKER_RACCSS( 23, 29) = 0.493917E+00
+ PKER_RACCSS( 23, 30) = 0.504849E+00
+ PKER_RACCSS( 23, 31) = 0.513857E+00
+ PKER_RACCSS( 23, 32) = 0.521285E+00
+ PKER_RACCSS( 23, 33) = 0.527413E+00
+ PKER_RACCSS( 23, 34) = 0.532470E+00
+ PKER_RACCSS( 23, 35) = 0.536646E+00
+ PKER_RACCSS( 23, 36) = 0.540095E+00
+ PKER_RACCSS( 23, 37) = 0.542944E+00
+ PKER_RACCSS( 23, 38) = 0.545298E+00
+ PKER_RACCSS( 23, 39) = 0.547244E+00
+ PKER_RACCSS( 23, 40) = 0.548853E+00
+ PKER_RACCSS( 24, 1) = 0.151313E+02
+ PKER_RACCSS( 24, 2) = 0.124205E+02
+ PKER_RACCSS( 24, 3) = 0.101754E+02
+ PKER_RACCSS( 24, 4) = 0.831562E+01
+ PKER_RACCSS( 24, 5) = 0.677501E+01
+ PKER_RACCSS( 24, 6) = 0.549861E+01
+ PKER_RACCSS( 24, 7) = 0.444105E+01
+ PKER_RACCSS( 24, 8) = 0.356478E+01
+ PKER_RACCSS( 24, 9) = 0.283883E+01
+ PKER_RACCSS( 24, 10) = 0.223762E+01
+ PKER_RACCSS( 24, 11) = 0.174013E+01
+ PKER_RACCSS( 24, 12) = 0.132916E+01
+ PKER_RACCSS( 24, 13) = 0.990915E+00
+ PKER_RACCSS( 24, 14) = 0.714994E+00
+ PKER_RACCSS( 24, 15) = 0.494886E+00
+ PKER_RACCSS( 24, 16) = 0.328492E+00
+ PKER_RACCSS( 24, 17) = 0.217252E+00
+ PKER_RACCSS( 24, 18) = 0.162589E+00
+ PKER_RACCSS( 24, 19) = 0.159037E+00
+ PKER_RACCSS( 24, 20) = 0.191737E+00
+ PKER_RACCSS( 24, 21) = 0.240913E+00
+ PKER_RACCSS( 24, 22) = 0.290897E+00
+ PKER_RACCSS( 24, 23) = 0.334479E+00
+ PKER_RACCSS( 24, 24) = 0.370533E+00
+ PKER_RACCSS( 24, 25) = 0.400040E+00
+ PKER_RACCSS( 24, 26) = 0.424194E+00
+ PKER_RACCSS( 24, 27) = 0.443995E+00
+ PKER_RACCSS( 24, 28) = 0.460252E+00
+ PKER_RACCSS( 24, 29) = 0.473614E+00
+ PKER_RACCSS( 24, 30) = 0.484609E+00
+ PKER_RACCSS( 24, 31) = 0.493664E+00
+ PKER_RACCSS( 24, 32) = 0.501127E+00
+ PKER_RACCSS( 24, 33) = 0.507281E+00
+ PKER_RACCSS( 24, 34) = 0.512358E+00
+ PKER_RACCSS( 24, 35) = 0.516549E+00
+ PKER_RACCSS( 24, 36) = 0.520010E+00
+ PKER_RACCSS( 24, 37) = 0.522868E+00
+ PKER_RACCSS( 24, 38) = 0.525229E+00
+ PKER_RACCSS( 24, 39) = 0.527180E+00
+ PKER_RACCSS( 24, 40) = 0.528793E+00
+ PKER_RACCSS( 25, 1) = 0.151186E+02
+ PKER_RACCSS( 25, 2) = 0.124078E+02
+ PKER_RACCSS( 25, 3) = 0.101626E+02
+ PKER_RACCSS( 25, 4) = 0.830303E+01
+ PKER_RACCSS( 25, 5) = 0.676263E+01
+ PKER_RACCSS( 25, 6) = 0.548657E+01
+ PKER_RACCSS( 25, 7) = 0.442948E+01
+ PKER_RACCSS( 25, 8) = 0.355385E+01
+ PKER_RACCSS( 25, 9) = 0.282871E+01
+ PKER_RACCSS( 25, 10) = 0.222851E+01
+ PKER_RACCSS( 25, 11) = 0.173221E+01
+ PKER_RACCSS( 25, 12) = 0.132257E+01
+ PKER_RACCSS( 25, 13) = 0.985715E+00
+ PKER_RACCSS( 25, 14) = 0.711082E+00
+ PKER_RACCSS( 25, 15) = 0.491890E+00
+ PKER_RACCSS( 25, 16) = 0.325723E+00
+ PKER_RACCSS( 25, 17) = 0.214049E+00
+ PKER_RACCSS( 25, 18) = 0.158333E+00
+ PKER_RACCSS( 25, 19) = 0.154025E+00
+ PKER_RACCSS( 25, 20) = 0.186503E+00
+ PKER_RACCSS( 25, 21) = 0.235616E+00
+ PKER_RACCSS( 25, 22) = 0.285368E+00
+ PKER_RACCSS( 25, 23) = 0.328578E+00
+ PKER_RACCSS( 25, 24) = 0.364257E+00
+ PKER_RACCSS( 25, 25) = 0.393449E+00
+ PKER_RACCSS( 25, 26) = 0.417350E+00
+ PKER_RACCSS( 25, 27) = 0.436948E+00
+ PKER_RACCSS( 25, 28) = 0.453043E+00
+ PKER_RACCSS( 25, 29) = 0.466276E+00
+ PKER_RACCSS( 25, 30) = 0.477167E+00
+ PKER_RACCSS( 25, 31) = 0.486140E+00
+ PKER_RACCSS( 25, 32) = 0.493537E+00
+ PKER_RACCSS( 25, 33) = 0.499640E+00
+ PKER_RACCSS( 25, 34) = 0.504676E+00
+ PKER_RACCSS( 25, 35) = 0.508835E+00
+ PKER_RACCSS( 25, 36) = 0.512269E+00
+ PKER_RACCSS( 25, 37) = 0.515107E+00
+ PKER_RACCSS( 25, 38) = 0.517453E+00
+ PKER_RACCSS( 25, 39) = 0.519391E+00
+ PKER_RACCSS( 25, 40) = 0.520994E+00
+ PKER_RACCSS( 26, 1) = 0.151502E+02
+ PKER_RACCSS( 26, 2) = 0.124400E+02
+ PKER_RACCSS( 26, 3) = 0.101954E+02
+ PKER_RACCSS( 26, 4) = 0.833638E+01
+ PKER_RACCSS( 26, 5) = 0.679650E+01
+ PKER_RACCSS( 26, 6) = 0.552089E+01
+ PKER_RACCSS( 26, 7) = 0.446415E+01
+ PKER_RACCSS( 26, 8) = 0.358874E+01
+ PKER_RACCSS( 26, 9) = 0.286364E+01
+ PKER_RACCSS( 26, 10) = 0.226323E+01
+ PKER_RACCSS( 26, 11) = 0.176644E+01
+ PKER_RACCSS( 26, 12) = 0.135592E+01
+ PKER_RACCSS( 26, 13) = 0.101768E+01
+ PKER_RACCSS( 26, 14) = 0.740844E+00
+ PKER_RACCSS( 26, 15) = 0.518070E+00
+ PKER_RACCSS( 26, 16) = 0.346172E+00
+ PKER_RACCSS( 26, 17) = 0.226017E+00
+ PKER_RACCSS( 26, 18) = 0.159878E+00
+ PKER_RACCSS( 26, 19) = 0.145246E+00
+ PKER_RACCSS( 26, 20) = 0.170270E+00
+ PKER_RACCSS( 26, 21) = 0.215832E+00
+ PKER_RACCSS( 26, 22) = 0.264733E+00
+ PKER_RACCSS( 26, 23) = 0.308137E+00
+ PKER_RACCSS( 26, 24) = 0.344161E+00
+ PKER_RACCSS( 26, 25) = 0.373631E+00
+ PKER_RACCSS( 26, 26) = 0.397736E+00
+ PKER_RACCSS( 26, 27) = 0.417484E+00
+ PKER_RACCSS( 26, 28) = 0.433688E+00
+ PKER_RACCSS( 26, 29) = 0.447000E+00
+ PKER_RACCSS( 26, 30) = 0.457951E+00
+ PKER_RACCSS( 26, 31) = 0.466967E+00
+ PKER_RACCSS( 26, 32) = 0.474396E+00
+ PKER_RACCSS( 26, 33) = 0.480523E+00
+ PKER_RACCSS( 26, 34) = 0.485577E+00
+ PKER_RACCSS( 26, 35) = 0.489749E+00
+ PKER_RACCSS( 26, 36) = 0.493194E+00
+ PKER_RACCSS( 26, 37) = 0.496040E+00
+ PKER_RACCSS( 26, 38) = 0.498391E+00
+ PKER_RACCSS( 26, 39) = 0.500334E+00
+ PKER_RACCSS( 26, 40) = 0.501941E+00
+ PKER_RACCSS( 27, 1) = 0.151451E+02
+ PKER_RACCSS( 27, 2) = 0.124349E+02
+ PKER_RACCSS( 27, 3) = 0.101904E+02
+ PKER_RACCSS( 27, 4) = 0.833146E+01
+ PKER_RACCSS( 27, 5) = 0.679173E+01
+ PKER_RACCSS( 27, 6) = 0.551633E+01
+ PKER_RACCSS( 27, 7) = 0.445987E+01
+ PKER_RACCSS( 27, 8) = 0.358481E+01
+ PKER_RACCSS( 27, 9) = 0.286015E+01
+ PKER_RACCSS( 27, 10) = 0.226029E+01
+ PKER_RACCSS( 27, 11) = 0.176412E+01
+ PKER_RACCSS( 27, 12) = 0.135430E+01
+ PKER_RACCSS( 27, 13) = 0.101677E+01
+ PKER_RACCSS( 27, 14) = 0.740564E+00
+ PKER_RACCSS( 27, 15) = 0.518139E+00
+ PKER_RACCSS( 27, 16) = 0.346058E+00
+ PKER_RACCSS( 27, 17) = 0.225045E+00
+ PKER_RACCSS( 27, 18) = 0.157543E+00
+ PKER_RACCSS( 27, 19) = 0.141661E+00
+ PKER_RACCSS( 27, 20) = 0.165829E+00
+ PKER_RACCSS( 27, 21) = 0.211007E+00
+ PKER_RACCSS( 27, 22) = 0.259680E+00
+ PKER_RACCSS( 27, 23) = 0.302834E+00
+ PKER_RACCSS( 27, 24) = 0.338612E+00
+ PKER_RACCSS( 27, 25) = 0.367872E+00
+ PKER_RACCSS( 27, 26) = 0.391804E+00
+ PKER_RACCSS( 27, 27) = 0.411411E+00
+ PKER_RACCSS( 27, 28) = 0.427500E+00
+ PKER_RACCSS( 27, 29) = 0.440721E+00
+ PKER_RACCSS( 27, 30) = 0.451597E+00
+ PKER_RACCSS( 27, 31) = 0.460554E+00
+ PKER_RACCSS( 27, 32) = 0.467935E+00
+ PKER_RACCSS( 27, 33) = 0.474024E+00
+ PKER_RACCSS( 27, 34) = 0.479048E+00
+ PKER_RACCSS( 27, 35) = 0.483196E+00
+ PKER_RACCSS( 27, 36) = 0.486622E+00
+ PKER_RACCSS( 27, 37) = 0.489452E+00
+ PKER_RACCSS( 27, 38) = 0.491791E+00
+ PKER_RACCSS( 27, 39) = 0.493725E+00
+ PKER_RACCSS( 27, 40) = 0.495324E+00
+ PKER_RACCSS( 28, 1) = 0.151746E+02
+ PKER_RACCSS( 28, 2) = 0.124649E+02
+ PKER_RACCSS( 28, 3) = 0.102210E+02
+ PKER_RACCSS( 28, 4) = 0.836251E+01
+ PKER_RACCSS( 28, 5) = 0.682323E+01
+ PKER_RACCSS( 28, 6) = 0.554824E+01
+ PKER_RACCSS( 28, 7) = 0.449210E+01
+ PKER_RACCSS( 28, 8) = 0.361726E+01
+ PKER_RACCSS( 28, 9) = 0.289267E+01
+ PKER_RACCSS( 28, 10) = 0.229268E+01
+ PKER_RACCSS( 28, 11) = 0.179615E+01
+ PKER_RACCSS( 28, 12) = 0.138566E+01
+ PKER_RACCSS( 28, 13) = 0.104705E+01
+ PKER_RACCSS( 28, 14) = 0.769113E+00
+ PKER_RACCSS( 28, 15) = 0.543868E+00
+ PKER_RACCSS( 28, 16) = 0.367164E+00
+ PKER_RACCSS( 28, 17) = 0.238904E+00
+ PKER_RACCSS( 28, 18) = 0.161752E+00
+ PKER_RACCSS( 28, 19) = 0.135585E+00
+ PKER_RACCSS( 28, 20) = 0.151808E+00
+ PKER_RACCSS( 28, 21) = 0.192655E+00
+ PKER_RACCSS( 28, 22) = 0.240085E+00
+ PKER_RACCSS( 28, 23) = 0.283326E+00
+ PKER_RACCSS( 28, 24) = 0.319439E+00
+ PKER_RACCSS( 28, 25) = 0.348983E+00
+ PKER_RACCSS( 28, 26) = 0.373123E+00
+ PKER_RACCSS( 28, 27) = 0.392882E+00
+ PKER_RACCSS( 28, 28) = 0.409082E+00
+ PKER_RACCSS( 28, 29) = 0.422382E+00
+ PKER_RACCSS( 28, 30) = 0.433316E+00
+ PKER_RACCSS( 28, 31) = 0.442315E+00
+ PKER_RACCSS( 28, 32) = 0.449727E+00
+ PKER_RACCSS( 28, 33) = 0.455838E+00
+ PKER_RACCSS( 28, 34) = 0.460879E+00
+ PKER_RACCSS( 28, 35) = 0.465040E+00
+ PKER_RACCSS( 28, 36) = 0.468475E+00
+ PKER_RACCSS( 28, 37) = 0.471313E+00
+ PKER_RACCSS( 28, 38) = 0.473658E+00
+ PKER_RACCSS( 28, 39) = 0.475596E+00
+ PKER_RACCSS( 28, 40) = 0.477197E+00
+ PKER_RACCSS( 29, 1) = 0.151744E+02
+ PKER_RACCSS( 29, 2) = 0.124648E+02
+ PKER_RACCSS( 29, 3) = 0.102209E+02
+ PKER_RACCSS( 29, 4) = 0.836258E+01
+ PKER_RACCSS( 29, 5) = 0.682343E+01
+ PKER_RACCSS( 29, 6) = 0.554859E+01
+ PKER_RACCSS( 29, 7) = 0.449264E+01
+ PKER_RACCSS( 29, 8) = 0.361802E+01
+ PKER_RACCSS( 29, 9) = 0.289369E+01
+ PKER_RACCSS( 29, 10) = 0.229399E+01
+ PKER_RACCSS( 29, 11) = 0.179779E+01
+ PKER_RACCSS( 29, 12) = 0.138765E+01
+ PKER_RACCSS( 29, 13) = 0.104938E+01
+ PKER_RACCSS( 29, 14) = 0.771698E+00
+ PKER_RACCSS( 29, 15) = 0.546477E+00
+ PKER_RACCSS( 29, 16) = 0.369302E+00
+ PKER_RACCSS( 29, 17) = 0.239969E+00
+ PKER_RACCSS( 29, 18) = 0.161044E+00
+ PKER_RACCSS( 29, 19) = 0.132978E+00
+ PKER_RACCSS( 29, 20) = 0.147668E+00
+ PKER_RACCSS( 29, 21) = 0.187753E+00
+ PKER_RACCSS( 29, 22) = 0.234860E+00
+ PKER_RACCSS( 29, 23) = 0.277923E+00
+ PKER_RACCSS( 29, 24) = 0.313888E+00
+ PKER_RACCSS( 29, 25) = 0.343302E+00
+ PKER_RACCSS( 29, 26) = 0.367332E+00
+ PKER_RACCSS( 29, 27) = 0.386998E+00
+ PKER_RACCSS( 29, 28) = 0.403120E+00
+ PKER_RACCSS( 29, 29) = 0.416356E+00
+ PKER_RACCSS( 29, 30) = 0.427238E+00
+ PKER_RACCSS( 29, 31) = 0.436194E+00
+ PKER_RACCSS( 29, 32) = 0.443573E+00
+ PKER_RACCSS( 29, 33) = 0.449656E+00
+ PKER_RACCSS( 29, 34) = 0.454675E+00
+ PKER_RACCSS( 29, 35) = 0.458817E+00
+ PKER_RACCSS( 29, 36) = 0.462238E+00
+ PKER_RACCSS( 29, 37) = 0.465065E+00
+ PKER_RACCSS( 29, 38) = 0.467400E+00
+ PKER_RACCSS( 29, 39) = 0.469331E+00
+ PKER_RACCSS( 29, 40) = 0.470927E+00
+ PKER_RACCSS( 30, 1) = 0.151777E+02
+ PKER_RACCSS( 30, 2) = 0.124682E+02
+ PKER_RACCSS( 30, 3) = 0.102244E+02
+ PKER_RACCSS( 30, 4) = 0.836622E+01
+ PKER_RACCSS( 30, 5) = 0.682721E+01
+ PKER_RACCSS( 30, 6) = 0.555252E+01
+ PKER_RACCSS( 30, 7) = 0.449672E+01
+ PKER_RACCSS( 30, 8) = 0.362228E+01
+ PKER_RACCSS( 30, 9) = 0.289813E+01
+ PKER_RACCSS( 30, 10) = 0.229862E+01
+ PKER_RACCSS( 30, 11) = 0.180260E+01
+ PKER_RACCSS( 30, 12) = 0.139263E+01
+ PKER_RACCSS( 30, 13) = 0.105449E+01
+ PKER_RACCSS( 30, 14) = 0.776814E+00
+ PKER_RACCSS( 30, 15) = 0.551329E+00
+ PKER_RACCSS( 30, 16) = 0.373385E+00
+ PKER_RACCSS( 30, 17) = 0.242532E+00
+ PKER_RACCSS( 30, 18) = 0.161357E+00
+ PKER_RACCSS( 30, 19) = 0.130712E+00
+ PKER_RACCSS( 30, 20) = 0.143314E+00
+ PKER_RACCSS( 30, 21) = 0.182278E+00
+ PKER_RACCSS( 30, 22) = 0.228959E+00
+ PKER_RACCSS( 30, 23) = 0.271893E+00
+ PKER_RACCSS( 30, 24) = 0.307788E+00
+ PKER_RACCSS( 30, 25) = 0.337139E+00
+ PKER_RACCSS( 30, 26) = 0.361112E+00
+ PKER_RACCSS( 30, 27) = 0.380727E+00
+ PKER_RACCSS( 30, 28) = 0.396805E+00
+ PKER_RACCSS( 30, 29) = 0.410003E+00
+ PKER_RACCSS( 30, 30) = 0.420852E+00
+ PKER_RACCSS( 30, 31) = 0.429781E+00
+ PKER_RACCSS( 30, 32) = 0.437137E+00
+ PKER_RACCSS( 30, 33) = 0.443202E+00
+ PKER_RACCSS( 30, 34) = 0.448206E+00
+ PKER_RACCSS( 30, 35) = 0.452337E+00
+ PKER_RACCSS( 30, 36) = 0.455748E+00
+ PKER_RACCSS( 30, 37) = 0.458567E+00
+ PKER_RACCSS( 30, 38) = 0.460896E+00
+ PKER_RACCSS( 30, 39) = 0.462821E+00
+ PKER_RACCSS( 30, 40) = 0.464413E+00
+ PKER_RACCSS( 31, 1) = 0.151836E+02
+ PKER_RACCSS( 31, 2) = 0.124743E+02
+ PKER_RACCSS( 31, 3) = 0.102306E+02
+ PKER_RACCSS( 31, 4) = 0.837255E+01
+ PKER_RACCSS( 31, 5) = 0.683368E+01
+ PKER_RACCSS( 31, 6) = 0.555914E+01
+ PKER_RACCSS( 31, 7) = 0.450350E+01
+ PKER_RACCSS( 31, 8) = 0.362919E+01
+ PKER_RACCSS( 31, 9) = 0.290518E+01
+ PKER_RACCSS( 31, 10) = 0.230579E+01
+ PKER_RACCSS( 31, 11) = 0.180986E+01
+ PKER_RACCSS( 31, 12) = 0.139994E+01
+ PKER_RACCSS( 31, 13) = 0.106178E+01
+ PKER_RACCSS( 31, 14) = 0.783938E+00
+ PKER_RACCSS( 31, 15) = 0.558007E+00
+ PKER_RACCSS( 31, 16) = 0.379065E+00
+ PKER_RACCSS( 31, 17) = 0.246416E+00
+ PKER_RACCSS( 31, 18) = 0.162546E+00
+ PKER_RACCSS( 31, 19) = 0.128822E+00
+ PKER_RACCSS( 31, 20) = 0.138784E+00
+ PKER_RACCSS( 31, 21) = 0.176237E+00
+ PKER_RACCSS( 31, 22) = 0.222379E+00
+ PKER_RACCSS( 31, 23) = 0.265209E+00
+ PKER_RACCSS( 31, 24) = 0.301089E+00
+ PKER_RACCSS( 31, 25) = 0.330428E+00
+ PKER_RACCSS( 31, 26) = 0.354383E+00
+ PKER_RACCSS( 31, 27) = 0.373977E+00
+ PKER_RACCSS( 31, 28) = 0.390033E+00
+ PKER_RACCSS( 31, 29) = 0.403211E+00
+ PKER_RACCSS( 31, 30) = 0.414042E+00
+ PKER_RACCSS( 31, 31) = 0.422955E+00
+ PKER_RACCSS( 31, 32) = 0.430297E+00
+ PKER_RACCSS( 31, 33) = 0.436350E+00
+ PKER_RACCSS( 31, 34) = 0.441344E+00
+ PKER_RACCSS( 31, 35) = 0.445466E+00
+ PKER_RACCSS( 31, 36) = 0.448871E+00
+ PKER_RACCSS( 31, 37) = 0.451684E+00
+ PKER_RACCSS( 31, 38) = 0.454009E+00
+ PKER_RACCSS( 31, 39) = 0.455931E+00
+ PKER_RACCSS( 31, 40) = 0.457521E+00
+ PKER_RACCSS( 32, 1) = 0.151915E+02
+ PKER_RACCSS( 32, 2) = 0.124823E+02
+ PKER_RACCSS( 32, 3) = 0.102388E+02
+ PKER_RACCSS( 32, 4) = 0.838091E+01
+ PKER_RACCSS( 32, 5) = 0.684220E+01
+ PKER_RACCSS( 32, 6) = 0.556781E+01
+ PKER_RACCSS( 32, 7) = 0.451231E+01
+ PKER_RACCSS( 32, 8) = 0.363813E+01
+ PKER_RACCSS( 32, 9) = 0.291422E+01
+ PKER_RACCSS( 32, 10) = 0.231491E+01
+ PKER_RACCSS( 32, 11) = 0.181901E+01
+ PKER_RACCSS( 32, 12) = 0.140907E+01
+ PKER_RACCSS( 32, 13) = 0.107079E+01
+ PKER_RACCSS( 32, 14) = 0.792668E+00
+ PKER_RACCSS( 32, 15) = 0.566164E+00
+ PKER_RACCSS( 32, 16) = 0.386094E+00
+ PKER_RACCSS( 32, 17) = 0.251429E+00
+ PKER_RACCSS( 32, 18) = 0.164568E+00
+ PKER_RACCSS( 32, 19) = 0.127239E+00
+ PKER_RACCSS( 32, 20) = 0.134121E+00
+ PKER_RACCSS( 32, 21) = 0.169713E+00
+ PKER_RACCSS( 32, 22) = 0.215193E+00
+ PKER_RACCSS( 32, 23) = 0.257911E+00
+ PKER_RACCSS( 32, 24) = 0.293817E+00
+ PKER_RACCSS( 32, 25) = 0.323182E+00
+ PKER_RACCSS( 32, 26) = 0.347148E+00
+ PKER_RACCSS( 32, 27) = 0.366744E+00
+ PKER_RACCSS( 32, 28) = 0.382796E+00
+ PKER_RACCSS( 32, 29) = 0.395967E+00
+ PKER_RACCSS( 32, 30) = 0.406790E+00
+ PKER_RACCSS( 32, 31) = 0.415694E+00
+ PKER_RACCSS( 32, 32) = 0.423028E+00
+ PKER_RACCSS( 32, 33) = 0.429074E+00
+ PKER_RACCSS( 32, 34) = 0.434062E+00
+ PKER_RACCSS( 32, 35) = 0.438179E+00
+ PKER_RACCSS( 32, 36) = 0.441579E+00
+ PKER_RACCSS( 32, 37) = 0.444389E+00
+ PKER_RACCSS( 32, 38) = 0.446711E+00
+ PKER_RACCSS( 32, 39) = 0.448630E+00
+ PKER_RACCSS( 32, 40) = 0.450218E+00
+ PKER_RACCSS( 33, 1) = 0.152009E+02
+ PKER_RACCSS( 33, 2) = 0.124919E+02
+ PKER_RACCSS( 33, 3) = 0.102486E+02
+ PKER_RACCSS( 33, 4) = 0.839080E+01
+ PKER_RACCSS( 33, 5) = 0.685225E+01
+ PKER_RACCSS( 33, 6) = 0.557801E+01
+ PKER_RACCSS( 33, 7) = 0.452265E+01
+ PKER_RACCSS( 33, 8) = 0.364859E+01
+ PKER_RACCSS( 33, 9) = 0.292477E+01
+ PKER_RACCSS( 33, 10) = 0.232551E+01
+ PKER_RACCSS( 33, 11) = 0.182961E+01
+ PKER_RACCSS( 33, 12) = 0.141959E+01
+ PKER_RACCSS( 33, 13) = 0.108114E+01
+ PKER_RACCSS( 33, 14) = 0.802676E+00
+ PKER_RACCSS( 33, 15) = 0.575530E+00
+ PKER_RACCSS( 33, 16) = 0.394264E+00
+ PKER_RACCSS( 33, 17) = 0.257440E+00
+ PKER_RACCSS( 33, 18) = 0.167330E+00
+ PKER_RACCSS( 33, 19) = 0.126058E+00
+ PKER_RACCSS( 33, 20) = 0.129424E+00
+ PKER_RACCSS( 33, 21) = 0.162814E+00
+ PKER_RACCSS( 33, 22) = 0.207467E+00
+ PKER_RACCSS( 33, 23) = 0.250066E+00
+ PKER_RACCSS( 33, 24) = 0.286027E+00
+ PKER_RACCSS( 33, 25) = 0.315448E+00
+ PKER_RACCSS( 33, 26) = 0.339449E+00
+ PKER_RACCSS( 33, 27) = 0.359065E+00
+ PKER_RACCSS( 33, 28) = 0.375127E+00
+ PKER_RACCSS( 33, 29) = 0.388301E+00
+ PKER_RACCSS( 33, 30) = 0.399124E+00
+ PKER_RACCSS( 33, 31) = 0.408026E+00
+ PKER_RACCSS( 33, 32) = 0.415356E+00
+ PKER_RACCSS( 33, 33) = 0.421398E+00
+ PKER_RACCSS( 33, 34) = 0.426383E+00
+ PKER_RACCSS( 33, 35) = 0.430497E+00
+ PKER_RACCSS( 33, 36) = 0.433894E+00
+ PKER_RACCSS( 33, 37) = 0.436701E+00
+ PKER_RACCSS( 33, 38) = 0.439021E+00
+ PKER_RACCSS( 33, 39) = 0.440939E+00
+ PKER_RACCSS( 33, 40) = 0.442525E+00
+ PKER_RACCSS( 34, 1) = 0.151971E+02
+ PKER_RACCSS( 34, 2) = 0.124880E+02
+ PKER_RACCSS( 34, 3) = 0.102447E+02
+ PKER_RACCSS( 34, 4) = 0.838691E+01
+ PKER_RACCSS( 34, 5) = 0.684835E+01
+ PKER_RACCSS( 34, 6) = 0.557411E+01
+ PKER_RACCSS( 34, 7) = 0.451878E+01
+ PKER_RACCSS( 34, 8) = 0.364477E+01
+ PKER_RACCSS( 34, 9) = 0.292103E+01
+ PKER_RACCSS( 34, 10) = 0.232187E+01
+ PKER_RACCSS( 34, 11) = 0.182612E+01
+ PKER_RACCSS( 34, 12) = 0.141629E+01
+ PKER_RACCSS( 34, 13) = 0.107808E+01
+ PKER_RACCSS( 34, 14) = 0.799892E+00
+ PKER_RACCSS( 34, 15) = 0.573060E+00
+ PKER_RACCSS( 34, 16) = 0.392110E+00
+ PKER_RACCSS( 34, 17) = 0.255733E+00
+ PKER_RACCSS( 34, 18) = 0.166098E+00
+ PKER_RACCSS( 34, 19) = 0.125461E+00
+ PKER_RACCSS( 34, 20) = 0.129380E+00
+ PKER_RACCSS( 34, 21) = 0.163200E+00
+ PKER_RACCSS( 34, 22) = 0.207975E+00
+ PKER_RACCSS( 34, 23) = 0.250519E+00
+ PKER_RACCSS( 34, 24) = 0.286368E+00
+ PKER_RACCSS( 34, 25) = 0.315685E+00
+ PKER_RACCSS( 34, 26) = 0.339602E+00
+ PKER_RACCSS( 34, 27) = 0.359151E+00
+ PKER_RACCSS( 34, 28) = 0.375158E+00
+ PKER_RACCSS( 34, 29) = 0.388290E+00
+ PKER_RACCSS( 34, 30) = 0.399078E+00
+ PKER_RACCSS( 34, 31) = 0.407953E+00
+ PKER_RACCSS( 34, 32) = 0.415262E+00
+ PKER_RACCSS( 34, 33) = 0.421287E+00
+ PKER_RACCSS( 34, 34) = 0.426258E+00
+ PKER_RACCSS( 34, 35) = 0.430362E+00
+ PKER_RACCSS( 34, 36) = 0.433751E+00
+ PKER_RACCSS( 34, 37) = 0.436551E+00
+ PKER_RACCSS( 34, 38) = 0.438866E+00
+ PKER_RACCSS( 34, 39) = 0.440779E+00
+ PKER_RACCSS( 34, 40) = 0.442362E+00
+ PKER_RACCSS( 35, 1) = 0.152099E+02
+ PKER_RACCSS( 35, 2) = 0.125010E+02
+ PKER_RACCSS( 35, 3) = 0.102578E+02
+ PKER_RACCSS( 35, 4) = 0.840025E+01
+ PKER_RACCSS( 35, 5) = 0.686188E+01
+ PKER_RACCSS( 35, 6) = 0.558781E+01
+ PKER_RACCSS( 35, 7) = 0.453263E+01
+ PKER_RACCSS( 35, 8) = 0.365873E+01
+ PKER_RACCSS( 35, 9) = 0.293505E+01
+ PKER_RACCSS( 35, 10) = 0.233590E+01
+ PKER_RACCSS( 35, 11) = 0.184008E+01
+ PKER_RACCSS( 35, 12) = 0.143009E+01
+ PKER_RACCSS( 35, 13) = 0.109157E+01
+ PKER_RACCSS( 35, 14) = 0.812879E+00
+ PKER_RACCSS( 35, 15) = 0.585208E+00
+ PKER_RACCSS( 35, 16) = 0.402826E+00
+ PKER_RACCSS( 35, 17) = 0.263849E+00
+ PKER_RACCSS( 35, 18) = 0.170369E+00
+ PKER_RACCSS( 35, 19) = 0.124824E+00
+ PKER_RACCSS( 35, 20) = 0.124271E+00
+ PKER_RACCSS( 35, 21) = 0.155136E+00
+ PKER_RACCSS( 35, 22) = 0.198773E+00
+ PKER_RACCSS( 35, 23) = 0.241168E+00
+ PKER_RACCSS( 35, 24) = 0.277131E+00
+ PKER_RACCSS( 35, 25) = 0.306563E+00
+ PKER_RACCSS( 35, 26) = 0.330561E+00
+ PKER_RACCSS( 35, 27) = 0.350164E+00
+ PKER_RACCSS( 35, 28) = 0.366208E+00
+ PKER_RACCSS( 35, 29) = 0.379363E+00
+ PKER_RACCSS( 35, 30) = 0.390166E+00
+ PKER_RACCSS( 35, 31) = 0.399049E+00
+ PKER_RACCSS( 35, 32) = 0.406364E+00
+ PKER_RACCSS( 35, 33) = 0.412392E+00
+ PKER_RACCSS( 35, 34) = 0.417364E+00
+ PKER_RACCSS( 35, 35) = 0.421468E+00
+ PKER_RACCSS( 35, 36) = 0.424857E+00
+ PKER_RACCSS( 35, 37) = 0.427657E+00
+ PKER_RACCSS( 35, 38) = 0.429971E+00
+ PKER_RACCSS( 35, 39) = 0.431885E+00
+ PKER_RACCSS( 35, 40) = 0.433467E+00
+ PKER_RACCSS( 36, 1) = 0.152117E+02
+ PKER_RACCSS( 36, 2) = 0.125029E+02
+ PKER_RACCSS( 36, 3) = 0.102598E+02
+ PKER_RACCSS( 36, 4) = 0.840225E+01
+ PKER_RACCSS( 36, 5) = 0.686393E+01
+ PKER_RACCSS( 36, 6) = 0.558991E+01
+ PKER_RACCSS( 36, 7) = 0.453478E+01
+ PKER_RACCSS( 36, 8) = 0.366093E+01
+ PKER_RACCSS( 36, 9) = 0.293730E+01
+ PKER_RACCSS( 36, 10) = 0.233820E+01
+ PKER_RACCSS( 36, 11) = 0.184242E+01
+ PKER_RACCSS( 36, 12) = 0.143247E+01
+ PKER_RACCSS( 36, 13) = 0.109397E+01
+ PKER_RACCSS( 36, 14) = 0.815257E+00
+ PKER_RACCSS( 36, 15) = 0.587501E+00
+ PKER_RACCSS( 36, 16) = 0.404877E+00
+ PKER_RACCSS( 36, 17) = 0.265403E+00
+ PKER_RACCSS( 36, 18) = 0.171085E+00
+ PKER_RACCSS( 36, 19) = 0.124480E+00
+ PKER_RACCSS( 36, 20) = 0.122892E+00
+ PKER_RACCSS( 36, 21) = 0.153094E+00
+ PKER_RACCSS( 36, 22) = 0.196462E+00
+ PKER_RACCSS( 36, 23) = 0.238785E+00
+ PKER_RACCSS( 36, 24) = 0.274730E+00
+ PKER_RACCSS( 36, 25) = 0.304147E+00
+ PKER_RACCSS( 36, 26) = 0.328131E+00
+ PKER_RACCSS( 36, 27) = 0.347719E+00
+ PKER_RACCSS( 36, 28) = 0.363748E+00
+ PKER_RACCSS( 36, 29) = 0.376890E+00
+ PKER_RACCSS( 36, 30) = 0.387681E+00
+ PKER_RACCSS( 36, 31) = 0.396555E+00
+ PKER_RACCSS( 36, 32) = 0.403861E+00
+ PKER_RACCSS( 36, 33) = 0.409882E+00
+ PKER_RACCSS( 36, 34) = 0.414848E+00
+ PKER_RACCSS( 36, 35) = 0.418948E+00
+ PKER_RACCSS( 36, 36) = 0.422333E+00
+ PKER_RACCSS( 36, 37) = 0.425130E+00
+ PKER_RACCSS( 36, 38) = 0.427442E+00
+ PKER_RACCSS( 36, 39) = 0.429353E+00
+ PKER_RACCSS( 36, 40) = 0.430933E+00
+ PKER_RACCSS( 37, 1) = 0.152162E+02
+ PKER_RACCSS( 37, 2) = 0.125075E+02
+ PKER_RACCSS( 37, 3) = 0.102644E+02
+ PKER_RACCSS( 37, 4) = 0.840697E+01
+ PKER_RACCSS( 37, 5) = 0.686872E+01
+ PKER_RACCSS( 37, 6) = 0.559478E+01
+ PKER_RACCSS( 37, 7) = 0.453971E+01
+ PKER_RACCSS( 37, 8) = 0.366592E+01
+ PKER_RACCSS( 37, 9) = 0.294234E+01
+ PKER_RACCSS( 37, 10) = 0.234327E+01
+ PKER_RACCSS( 37, 11) = 0.184749E+01
+ PKER_RACCSS( 37, 12) = 0.143752E+01
+ PKER_RACCSS( 37, 13) = 0.109895E+01
+ PKER_RACCSS( 37, 14) = 0.820105E+00
+ PKER_RACCSS( 37, 15) = 0.592091E+00
+ PKER_RACCSS( 37, 16) = 0.408984E+00
+ PKER_RACCSS( 37, 17) = 0.268575E+00
+ PKER_RACCSS( 37, 18) = 0.172806E+00
+ PKER_RACCSS( 37, 19) = 0.124277E+00
+ PKER_RACCSS( 37, 20) = 0.120892E+00
+ PKER_RACCSS( 37, 21) = 0.149864E+00
+ PKER_RACCSS( 37, 22) = 0.192716E+00
+ PKER_RACCSS( 37, 23) = 0.234946E+00
+ PKER_RACCSS( 37, 24) = 0.270912E+00
+ PKER_RACCSS( 37, 25) = 0.300356E+00
+ PKER_RACCSS( 37, 26) = 0.324355E+00
+ PKER_RACCSS( 37, 27) = 0.343951E+00
+ PKER_RACCSS( 37, 28) = 0.359984E+00
+ PKER_RACCSS( 37, 29) = 0.373125E+00
+ PKER_RACCSS( 37, 30) = 0.383915E+00
+ PKER_RACCSS( 37, 31) = 0.392786E+00
+ PKER_RACCSS( 37, 32) = 0.400089E+00
+ PKER_RACCSS( 37, 33) = 0.406107E+00
+ PKER_RACCSS( 37, 34) = 0.411070E+00
+ PKER_RACCSS( 37, 35) = 0.415167E+00
+ PKER_RACCSS( 37, 36) = 0.418550E+00
+ PKER_RACCSS( 37, 37) = 0.421345E+00
+ PKER_RACCSS( 37, 38) = 0.423655E+00
+ PKER_RACCSS( 37, 39) = 0.425565E+00
+ PKER_RACCSS( 37, 40) = 0.427145E+00
+ PKER_RACCSS( 38, 1) = 0.152141E+02
+ PKER_RACCSS( 38, 2) = 0.125054E+02
+ PKER_RACCSS( 38, 3) = 0.102623E+02
+ PKER_RACCSS( 38, 4) = 0.840483E+01
+ PKER_RACCSS( 38, 5) = 0.686657E+01
+ PKER_RACCSS( 38, 6) = 0.559262E+01
+ PKER_RACCSS( 38, 7) = 0.453755E+01
+ PKER_RACCSS( 38, 8) = 0.366377E+01
+ PKER_RACCSS( 38, 9) = 0.294022E+01
+ PKER_RACCSS( 38, 10) = 0.234118E+01
+ PKER_RACCSS( 38, 11) = 0.184546E+01
+ PKER_RACCSS( 38, 12) = 0.143556E+01
+ PKER_RACCSS( 38, 13) = 0.109710E+01
+ PKER_RACCSS( 38, 14) = 0.818377E+00
+ PKER_RACCSS( 38, 15) = 0.590523E+00
+ PKER_RACCSS( 38, 16) = 0.407592E+00
+ PKER_RACCSS( 38, 17) = 0.267490E+00
+ PKER_RACCSS( 38, 18) = 0.172060E+00
+ PKER_RACCSS( 38, 19) = 0.124040E+00
+ PKER_RACCSS( 38, 20) = 0.121054E+00
+ PKER_RACCSS( 38, 21) = 0.150368E+00
+ PKER_RACCSS( 38, 22) = 0.193361E+00
+ PKER_RACCSS( 38, 23) = 0.235585E+00
+ PKER_RACCSS( 38, 24) = 0.271500E+00
+ PKER_RACCSS( 38, 25) = 0.300895E+00
+ PKER_RACCSS( 38, 26) = 0.324855E+00
+ PKER_RACCSS( 38, 27) = 0.344420E+00
+ PKER_RACCSS( 38, 28) = 0.360428E+00
+ PKER_RACCSS( 38, 29) = 0.373550E+00
+ PKER_RACCSS( 38, 30) = 0.384324E+00
+ PKER_RACCSS( 38, 31) = 0.393183E+00
+ PKER_RACCSS( 38, 32) = 0.400477E+00
+ PKER_RACCSS( 38, 33) = 0.406488E+00
+ PKER_RACCSS( 38, 34) = 0.411445E+00
+ PKER_RACCSS( 38, 35) = 0.415537E+00
+ PKER_RACCSS( 38, 36) = 0.418917E+00
+ PKER_RACCSS( 38, 37) = 0.421709E+00
+ PKER_RACCSS( 38, 38) = 0.424018E+00
+ PKER_RACCSS( 38, 39) = 0.425926E+00
+ PKER_RACCSS( 38, 40) = 0.427504E+00
+ PKER_RACCSS( 39, 1) = 0.152231E+02
+ PKER_RACCSS( 39, 2) = 0.125144E+02
+ PKER_RACCSS( 39, 3) = 0.102715E+02
+ PKER_RACCSS( 39, 4) = 0.841416E+01
+ PKER_RACCSS( 39, 5) = 0.687602E+01
+ PKER_RACCSS( 39, 6) = 0.560219E+01
+ PKER_RACCSS( 39, 7) = 0.454722E+01
+ PKER_RACCSS( 39, 8) = 0.367352E+01
+ PKER_RACCSS( 39, 9) = 0.295000E+01
+ PKER_RACCSS( 39, 10) = 0.235098E+01
+ PKER_RACCSS( 39, 11) = 0.185521E+01
+ PKER_RACCSS( 39, 12) = 0.144521E+01
+ PKER_RACCSS( 39, 13) = 0.110654E+01
+ PKER_RACCSS( 39, 14) = 0.827503E+00
+ PKER_RACCSS( 39, 15) = 0.599111E+00
+ PKER_RACCSS( 39, 16) = 0.415316E+00
+ PKER_RACCSS( 39, 17) = 0.273523E+00
+ PKER_RACCSS( 39, 18) = 0.175601E+00
+ PKER_RACCSS( 39, 19) = 0.124209E+00
+ PKER_RACCSS( 39, 20) = 0.117997E+00
+ PKER_RACCSS( 39, 21) = 0.145016E+00
+ PKER_RACCSS( 39, 22) = 0.187036E+00
+ PKER_RACCSS( 39, 23) = 0.229103E+00
+ PKER_RACCSS( 39, 24) = 0.265099E+00
+ PKER_RACCSS( 39, 25) = 0.294585E+00
+ PKER_RACCSS( 39, 26) = 0.318610E+00
+ PKER_RACCSS( 39, 27) = 0.338219E+00
+ PKER_RACCSS( 39, 28) = 0.354257E+00
+ PKER_RACCSS( 39, 29) = 0.367399E+00
+ PKER_RACCSS( 39, 30) = 0.378186E+00
+ PKER_RACCSS( 39, 31) = 0.387053E+00
+ PKER_RACCSS( 39, 32) = 0.394351E+00
+ PKER_RACCSS( 39, 33) = 0.400364E+00
+ PKER_RACCSS( 39, 34) = 0.405323E+00
+ PKER_RACCSS( 39, 35) = 0.409416E+00
+ PKER_RACCSS( 39, 36) = 0.412796E+00
+ PKER_RACCSS( 39, 37) = 0.415588E+00
+ PKER_RACCSS( 39, 38) = 0.417896E+00
+ PKER_RACCSS( 39, 39) = 0.419805E+00
+ PKER_RACCSS( 39, 40) = 0.421382E+00
+ PKER_RACCSS( 40, 1) = 0.152263E+02
+ PKER_RACCSS( 40, 2) = 0.125177E+02
+ PKER_RACCSS( 40, 3) = 0.102748E+02
+ PKER_RACCSS( 40, 4) = 0.841753E+01
+ PKER_RACCSS( 40, 5) = 0.687945E+01
+ PKER_RACCSS( 40, 6) = 0.560566E+01
+ PKER_RACCSS( 40, 7) = 0.455073E+01
+ PKER_RACCSS( 40, 8) = 0.367707E+01
+ PKER_RACCSS( 40, 9) = 0.295358E+01
+ PKER_RACCSS( 40, 10) = 0.235457E+01
+ PKER_RACCSS( 40, 11) = 0.185881E+01
+ PKER_RACCSS( 40, 12) = 0.144878E+01
+ PKER_RACCSS( 40, 13) = 0.111007E+01
+ PKER_RACCSS( 40, 14) = 0.830934E+00
+ PKER_RACCSS( 40, 15) = 0.602364E+00
+ PKER_RACCSS( 40, 16) = 0.418267E+00
+ PKER_RACCSS( 40, 17) = 0.275848E+00
+ PKER_RACCSS( 40, 18) = 0.176973E+00
+ PKER_RACCSS( 40, 19) = 0.124289E+00
+ PKER_RACCSS( 40, 20) = 0.116772E+00
+ PKER_RACCSS( 40, 21) = 0.142870E+00
+ PKER_RACCSS( 40, 22) = 0.184489E+00
+ PKER_RACCSS( 40, 23) = 0.226478E+00
+ PKER_RACCSS( 40, 24) = 0.262493E+00
+ PKER_RACCSS( 40, 25) = 0.292003E+00
+ PKER_RACCSS( 40, 26) = 0.316044E+00
+ PKER_RACCSS( 40, 27) = 0.335664E+00
+ PKER_RACCSS( 40, 28) = 0.351707E+00
+ PKER_RACCSS( 40, 29) = 0.364852E+00
+ PKER_RACCSS( 40, 30) = 0.375639E+00
+ PKER_RACCSS( 40, 31) = 0.384506E+00
+ PKER_RACCSS( 40, 32) = 0.391803E+00
+ PKER_RACCSS( 40, 33) = 0.397815E+00
+ PKER_RACCSS( 40, 34) = 0.402773E+00
+ PKER_RACCSS( 40, 35) = 0.406865E+00
+ PKER_RACCSS( 40, 36) = 0.410243E+00
+ PKER_RACCSS( 40, 37) = 0.413035E+00
+ PKER_RACCSS( 40, 38) = 0.415342E+00
+ PKER_RACCSS( 40, 39) = 0.417250E+00
+ PKER_RACCSS( 40, 40) = 0.418827E+00
END IF
!
IF( PRESENT(PKER_RACCS ) ) THEN
- PKER_RACCS ( 1, 1) = 0.102167E+02
- PKER_RACCS ( 1, 2) = 0.798984E+01
- PKER_RACCS ( 1, 3) = 0.617380E+01
- PKER_RACCS ( 1, 4) = 0.469167E+01
- PKER_RACCS ( 1, 5) = 0.348534E+01
- PKER_RACCS ( 1, 6) = 0.251422E+01
- PKER_RACCS ( 1, 7) = 0.175460E+01
- PKER_RACCS ( 1, 8) = 0.119906E+01
- PKER_RACCS ( 1, 9) = 0.848431E+00
- PKER_RACCS ( 1, 10) = 0.697315E+00
- PKER_RACCS ( 1, 11) = 0.717816E+00
- PKER_RACCS ( 1, 12) = 0.854882E+00
- PKER_RACCS ( 1, 13) = 0.104470E+01
- PKER_RACCS ( 1, 14) = 0.123807E+01
- PKER_RACCS ( 1, 15) = 0.141081E+01
- PKER_RACCS ( 1, 16) = 0.155700E+01
- PKER_RACCS ( 1, 17) = 0.167856E+01
- PKER_RACCS ( 1, 18) = 0.177921E+01
- PKER_RACCS ( 1, 19) = 0.186250E+01
- PKER_RACCS ( 1, 20) = 0.193142E+01
- PKER_RACCS ( 1, 21) = 0.198845E+01
- PKER_RACCS ( 1, 22) = 0.203565E+01
- PKER_RACCS ( 1, 23) = 0.207472E+01
- PKER_RACCS ( 1, 24) = 0.210705E+01
- PKER_RACCS ( 1, 25) = 0.213381E+01
- PKER_RACCS ( 1, 26) = 0.215596E+01
- PKER_RACCS ( 1, 27) = 0.217429E+01
- PKER_RACCS ( 1, 28) = 0.218947E+01
- PKER_RACCS ( 1, 29) = 0.220203E+01
- PKER_RACCS ( 1, 30) = 0.221243E+01
- PKER_RACCS ( 1, 31) = 0.222103E+01
- PKER_RACCS ( 1, 32) = 0.222816E+01
- PKER_RACCS ( 1, 33) = 0.223406E+01
- PKER_RACCS ( 1, 34) = 0.223894E+01
- PKER_RACCS ( 1, 35) = 0.224298E+01
- PKER_RACCS ( 1, 36) = 0.224632E+01
- PKER_RACCS ( 1, 37) = 0.224909E+01
- PKER_RACCS ( 1, 38) = 0.225138E+01
- PKER_RACCS ( 1, 39) = 0.225328E+01
- PKER_RACCS ( 1, 40) = 0.225485E+01
- PKER_RACCS ( 2, 1) = 0.104818E+02
- PKER_RACCS ( 2, 2) = 0.821523E+01
- PKER_RACCS ( 2, 3) = 0.637111E+01
- PKER_RACCS ( 2, 4) = 0.486846E+01
- PKER_RACCS ( 2, 5) = 0.364524E+01
- PKER_RACCS ( 2, 6) = 0.265651E+01
- PKER_RACCS ( 2, 7) = 0.187379E+01
- PKER_RACCS ( 2, 8) = 0.128476E+01
- PKER_RACCS ( 2, 9) = 0.888040E+00
- PKER_RACCS ( 2, 10) = 0.682820E+00
- PKER_RACCS ( 2, 11) = 0.651649E+00
- PKER_RACCS ( 2, 12) = 0.749498E+00
- PKER_RACCS ( 2, 13) = 0.917050E+00
- PKER_RACCS ( 2, 14) = 0.110111E+01
- PKER_RACCS ( 2, 15) = 0.127111E+01
- PKER_RACCS ( 2, 16) = 0.141681E+01
- PKER_RACCS ( 2, 17) = 0.153841E+01
- PKER_RACCS ( 2, 18) = 0.163915E+01
- PKER_RACCS ( 2, 19) = 0.172252E+01
- PKER_RACCS ( 2, 20) = 0.179149E+01
- PKER_RACCS ( 2, 21) = 0.184857E+01
- PKER_RACCS ( 2, 22) = 0.189580E+01
- PKER_RACCS ( 2, 23) = 0.193488E+01
- PKER_RACCS ( 2, 24) = 0.196723E+01
- PKER_RACCS ( 2, 25) = 0.199401E+01
- PKER_RACCS ( 2, 26) = 0.201617E+01
- PKER_RACCS ( 2, 27) = 0.203451E+01
- PKER_RACCS ( 2, 28) = 0.204969E+01
- PKER_RACCS ( 2, 29) = 0.206226E+01
- PKER_RACCS ( 2, 30) = 0.207266E+01
- PKER_RACCS ( 2, 31) = 0.208127E+01
- PKER_RACCS ( 2, 32) = 0.208839E+01
- PKER_RACCS ( 2, 33) = 0.209429E+01
- PKER_RACCS ( 2, 34) = 0.209918E+01
- PKER_RACCS ( 2, 35) = 0.210322E+01
- PKER_RACCS ( 2, 36) = 0.210656E+01
- PKER_RACCS ( 2, 37) = 0.210933E+01
- PKER_RACCS ( 2, 38) = 0.211163E+01
- PKER_RACCS ( 2, 39) = 0.211352E+01
- PKER_RACCS ( 2, 40) = 0.211509E+01
- PKER_RACCS ( 3, 1) = 0.107644E+02
- PKER_RACCS ( 3, 2) = 0.845121E+01
- PKER_RACCS ( 3, 3) = 0.657371E+01
- PKER_RACCS ( 3, 4) = 0.504697E+01
- PKER_RACCS ( 3, 5) = 0.380515E+01
- PKER_RACCS ( 3, 6) = 0.279922E+01
- PKER_RACCS ( 3, 7) = 0.199615E+01
- PKER_RACCS ( 3, 8) = 0.137873E+01
- PKER_RACCS ( 3, 9) = 0.942712E+00
- PKER_RACCS ( 3, 10) = 0.688122E+00
- PKER_RACCS ( 3, 11) = 0.605662E+00
- PKER_RACCS ( 3, 12) = 0.661434E+00
- PKER_RACCS ( 3, 13) = 0.802624E+00
- PKER_RACCS ( 3, 14) = 0.974479E+00
- PKER_RACCS ( 3, 15) = 0.114040E+01
- PKER_RACCS ( 3, 16) = 0.128524E+01
- PKER_RACCS ( 3, 17) = 0.140682E+01
- PKER_RACCS ( 3, 18) = 0.150766E+01
- PKER_RACCS ( 3, 19) = 0.159112E+01
- PKER_RACCS ( 3, 20) = 0.166016E+01
- PKER_RACCS ( 3, 21) = 0.171729E+01
- PKER_RACCS ( 3, 22) = 0.176455E+01
- PKER_RACCS ( 3, 23) = 0.180367E+01
- PKER_RACCS ( 3, 24) = 0.183604E+01
- PKER_RACCS ( 3, 25) = 0.186283E+01
- PKER_RACCS ( 3, 26) = 0.188500E+01
- PKER_RACCS ( 3, 27) = 0.190335E+01
- PKER_RACCS ( 3, 28) = 0.191854E+01
- PKER_RACCS ( 3, 29) = 0.193111E+01
- PKER_RACCS ( 3, 30) = 0.194152E+01
- PKER_RACCS ( 3, 31) = 0.195013E+01
- PKER_RACCS ( 3, 32) = 0.195726E+01
- PKER_RACCS ( 3, 33) = 0.196316E+01
- PKER_RACCS ( 3, 34) = 0.196805E+01
- PKER_RACCS ( 3, 35) = 0.197209E+01
- PKER_RACCS ( 3, 36) = 0.197544E+01
- PKER_RACCS ( 3, 37) = 0.197821E+01
- PKER_RACCS ( 3, 38) = 0.198050E+01
- PKER_RACCS ( 3, 39) = 0.198240E+01
- PKER_RACCS ( 3, 40) = 0.198397E+01
- PKER_RACCS ( 4, 1) = 0.110672E+02
- PKER_RACCS ( 4, 2) = 0.870087E+01
- PKER_RACCS ( 4, 3) = 0.678439E+01
- PKER_RACCS ( 4, 4) = 0.522941E+01
- PKER_RACCS ( 4, 5) = 0.396642E+01
- PKER_RACCS ( 4, 6) = 0.294262E+01
- PKER_RACCS ( 4, 7) = 0.212084E+01
- PKER_RACCS ( 4, 8) = 0.147885E+01
- PKER_RACCS ( 4, 9) = 0.100866E+01
- PKER_RACCS ( 4, 10) = 0.710145E+00
- PKER_RACCS ( 4, 11) = 0.578505E+00
- PKER_RACCS ( 4, 12) = 0.590976E+00
- PKER_RACCS ( 4, 13) = 0.701961E+00
- PKER_RACCS ( 4, 14) = 0.858251E+00
- PKER_RACCS ( 4, 15) = 0.101841E+01
- PKER_RACCS ( 4, 16) = 0.116181E+01
- PKER_RACCS ( 4, 17) = 0.128324E+01
- PKER_RACCS ( 4, 18) = 0.138420E+01
- PKER_RACCS ( 4, 19) = 0.146776E+01
- PKER_RACCS ( 4, 20) = 0.153689E+01
- PKER_RACCS ( 4, 21) = 0.159407E+01
- PKER_RACCS ( 4, 22) = 0.164139E+01
- PKER_RACCS ( 4, 23) = 0.168054E+01
- PKER_RACCS ( 4, 24) = 0.171293E+01
- PKER_RACCS ( 4, 25) = 0.173974E+01
- PKER_RACCS ( 4, 26) = 0.176193E+01
- PKER_RACCS ( 4, 27) = 0.178029E+01
- PKER_RACCS ( 4, 28) = 0.179549E+01
- PKER_RACCS ( 4, 29) = 0.180807E+01
- PKER_RACCS ( 4, 30) = 0.181848E+01
- PKER_RACCS ( 4, 31) = 0.182709E+01
- PKER_RACCS ( 4, 32) = 0.183423E+01
- PKER_RACCS ( 4, 33) = 0.184013E+01
- PKER_RACCS ( 4, 34) = 0.184502E+01
- PKER_RACCS ( 4, 35) = 0.184906E+01
- PKER_RACCS ( 4, 36) = 0.185241E+01
- PKER_RACCS ( 4, 37) = 0.185518E+01
- PKER_RACCS ( 4, 38) = 0.185747E+01
- PKER_RACCS ( 4, 39) = 0.185937E+01
- PKER_RACCS ( 4, 40) = 0.186094E+01
- PKER_RACCS ( 5, 1) = 0.113912E+02
- PKER_RACCS ( 5, 2) = 0.896656E+01
- PKER_RACCS ( 5, 3) = 0.700573E+01
- PKER_RACCS ( 5, 4) = 0.541800E+01
- PKER_RACCS ( 5, 5) = 0.413072E+01
- PKER_RACCS ( 5, 6) = 0.308761E+01
- PKER_RACCS ( 5, 7) = 0.224753E+01
- PKER_RACCS ( 5, 8) = 0.158389E+01
- PKER_RACCS ( 5, 9) = 0.108428E+01
- PKER_RACCS ( 5, 10) = 0.746312E+00
- PKER_RACCS ( 5, 11) = 0.568858E+00
- PKER_RACCS ( 5, 12) = 0.537607E+00
- PKER_RACCS ( 5, 13) = 0.615320E+00
- PKER_RACCS ( 5, 14) = 0.752699E+00
- PKER_RACCS ( 5, 15) = 0.904977E+00
- PKER_RACCS ( 5, 16) = 0.104611E+01
- PKER_RACCS ( 5, 17) = 0.116720E+01
- PKER_RACCS ( 5, 18) = 0.126824E+01
- PKER_RACCS ( 5, 19) = 0.135194E+01
- PKER_RACCS ( 5, 20) = 0.142116E+01
- PKER_RACCS ( 5, 21) = 0.147842E+01
- PKER_RACCS ( 5, 22) = 0.152579E+01
- PKER_RACCS ( 5, 23) = 0.156498E+01
- PKER_RACCS ( 5, 24) = 0.159741E+01
- PKER_RACCS ( 5, 25) = 0.162424E+01
- PKER_RACCS ( 5, 26) = 0.164644E+01
- PKER_RACCS ( 5, 27) = 0.166482E+01
- PKER_RACCS ( 5, 28) = 0.168003E+01
- PKER_RACCS ( 5, 29) = 0.169261E+01
- PKER_RACCS ( 5, 30) = 0.170303E+01
- PKER_RACCS ( 5, 31) = 0.171165E+01
- PKER_RACCS ( 5, 32) = 0.171879E+01
- PKER_RACCS ( 5, 33) = 0.172469E+01
- PKER_RACCS ( 5, 34) = 0.172958E+01
- PKER_RACCS ( 5, 35) = 0.173363E+01
- PKER_RACCS ( 5, 36) = 0.173698E+01
- PKER_RACCS ( 5, 37) = 0.173975E+01
- PKER_RACCS ( 5, 38) = 0.174205E+01
- PKER_RACCS ( 5, 39) = 0.174395E+01
- PKER_RACCS ( 5, 40) = 0.174552E+01
- PKER_RACCS ( 6, 1) = 0.117349E+02
- PKER_RACCS ( 6, 2) = 0.924914E+01
- PKER_RACCS ( 6, 3) = 0.723971E+01
- PKER_RACCS ( 6, 4) = 0.561487E+01
- PKER_RACCS ( 6, 5) = 0.429976E+01
- PKER_RACCS ( 6, 6) = 0.323520E+01
- PKER_RACCS ( 6, 7) = 0.237647E+01
- PKER_RACCS ( 6, 8) = 0.169289E+01
- PKER_RACCS ( 6, 9) = 0.116768E+01
- PKER_RACCS ( 6, 10) = 0.795704E+00
- PKER_RACCS ( 6, 11) = 0.576137E+00
- PKER_RACCS ( 6, 12) = 0.501314E+00
- PKER_RACCS ( 6, 13) = 0.543341E+00
- PKER_RACCS ( 6, 14) = 0.658228E+00
- PKER_RACCS ( 6, 15) = 0.800085E+00
- PKER_RACCS ( 6, 16) = 0.937788E+00
- PKER_RACCS ( 6, 17) = 0.105821E+01
- PKER_RACCS ( 6, 18) = 0.115932E+01
- PKER_RACCS ( 6, 19) = 0.124316E+01
- PKER_RACCS ( 6, 20) = 0.131250E+01
- PKER_RACCS ( 6, 21) = 0.136985E+01
- PKER_RACCS ( 6, 22) = 0.141729E+01
- PKER_RACCS ( 6, 23) = 0.145653E+01
- PKER_RACCS ( 6, 24) = 0.148899E+01
- PKER_RACCS ( 6, 25) = 0.151585E+01
- PKER_RACCS ( 6, 26) = 0.153808E+01
- PKER_RACCS ( 6, 27) = 0.155647E+01
- PKER_RACCS ( 6, 28) = 0.157169E+01
- PKER_RACCS ( 6, 29) = 0.158429E+01
- PKER_RACCS ( 6, 30) = 0.159471E+01
- PKER_RACCS ( 6, 31) = 0.160334E+01
- PKER_RACCS ( 6, 32) = 0.161048E+01
- PKER_RACCS ( 6, 33) = 0.161639E+01
- PKER_RACCS ( 6, 34) = 0.162128E+01
- PKER_RACCS ( 6, 35) = 0.162533E+01
- PKER_RACCS ( 6, 36) = 0.162868E+01
- PKER_RACCS ( 6, 37) = 0.163145E+01
- PKER_RACCS ( 6, 38) = 0.163375E+01
- PKER_RACCS ( 6, 39) = 0.163565E+01
- PKER_RACCS ( 6, 40) = 0.163722E+01
- PKER_RACCS ( 7, 1) = 0.120933E+02
- PKER_RACCS ( 7, 2) = 0.954726E+01
- PKER_RACCS ( 7, 3) = 0.748704E+01
- PKER_RACCS ( 7, 4) = 0.582164E+01
- PKER_RACCS ( 7, 5) = 0.447529E+01
- PKER_RACCS ( 7, 6) = 0.338667E+01
- PKER_RACCS ( 7, 7) = 0.250813E+01
- PKER_RACCS ( 7, 8) = 0.180540E+01
- PKER_RACCS ( 7, 9) = 0.125732E+01
- PKER_RACCS ( 7, 10) = 0.855207E+00
- PKER_RACCS ( 7, 11) = 0.597925E+00
- PKER_RACCS ( 7, 12) = 0.481149E+00
- PKER_RACCS ( 7, 13) = 0.486186E+00
- PKER_RACCS ( 7, 14) = 0.575287E+00
- PKER_RACCS ( 7, 15) = 0.703816E+00
- PKER_RACCS ( 7, 16) = 0.836624E+00
- PKER_RACCS ( 7, 17) = 0.955895E+00
- PKER_RACCS ( 7, 18) = 0.105696E+01
- PKER_RACCS ( 7, 19) = 0.114096E+01
- PKER_RACCS ( 7, 20) = 0.121046E+01
- PKER_RACCS ( 7, 21) = 0.126792E+01
- PKER_RACCS ( 7, 22) = 0.131544E+01
- PKER_RACCS ( 7, 23) = 0.135474E+01
- PKER_RACCS ( 7, 24) = 0.138724E+01
- PKER_RACCS ( 7, 25) = 0.141414E+01
- PKER_RACCS ( 7, 26) = 0.143639E+01
- PKER_RACCS ( 7, 27) = 0.145480E+01
- PKER_RACCS ( 7, 28) = 0.147003E+01
- PKER_RACCS ( 7, 29) = 0.148264E+01
- PKER_RACCS ( 7, 30) = 0.149307E+01
- PKER_RACCS ( 7, 31) = 0.150171E+01
- PKER_RACCS ( 7, 32) = 0.150885E+01
- PKER_RACCS ( 7, 33) = 0.151477E+01
- PKER_RACCS ( 7, 34) = 0.151966E+01
- PKER_RACCS ( 7, 35) = 0.152372E+01
- PKER_RACCS ( 7, 36) = 0.152707E+01
- PKER_RACCS ( 7, 37) = 0.152984E+01
- PKER_RACCS ( 7, 38) = 0.153214E+01
- PKER_RACCS ( 7, 39) = 0.153404E+01
- PKER_RACCS ( 7, 40) = 0.153562E+01
- PKER_RACCS ( 8, 1) = 0.124583E+02
- PKER_RACCS ( 8, 2) = 0.985684E+01
- PKER_RACCS ( 8, 3) = 0.774660E+01
- PKER_RACCS ( 8, 4) = 0.603889E+01
- PKER_RACCS ( 8, 5) = 0.465857E+01
- PKER_RACCS ( 8, 6) = 0.354333E+01
- PKER_RACCS ( 8, 7) = 0.264340E+01
- PKER_RACCS ( 8, 8) = 0.192140E+01
- PKER_RACCS ( 8, 9) = 0.135239E+01
- PKER_RACCS ( 8, 10) = 0.923762E+00
- PKER_RACCS ( 8, 11) = 0.632168E+00
- PKER_RACCS ( 8, 12) = 0.476040E+00
- PKER_RACCS ( 8, 13) = 0.443617E+00
- PKER_RACCS ( 8, 14) = 0.504159E+00
- PKER_RACCS ( 8, 15) = 0.616439E+00
- PKER_RACCS ( 8, 16) = 0.742493E+00
- PKER_RACCS ( 8, 17) = 0.859895E+00
- PKER_RACCS ( 8, 18) = 0.960763E+00
- PKER_RACCS ( 8, 19) = 0.104493E+01
- PKER_RACCS ( 8, 20) = 0.111460E+01
- PKER_RACCS ( 8, 21) = 0.117219E+01
- PKER_RACCS ( 8, 22) = 0.121981E+01
- PKER_RACCS ( 8, 23) = 0.125918E+01
- PKER_RACCS ( 8, 24) = 0.129174E+01
- PKER_RACCS ( 8, 25) = 0.131868E+01
- PKER_RACCS ( 8, 26) = 0.134096E+01
- PKER_RACCS ( 8, 27) = 0.135939E+01
- PKER_RACCS ( 8, 28) = 0.137465E+01
- PKER_RACCS ( 8, 29) = 0.138727E+01
- PKER_RACCS ( 8, 30) = 0.139771E+01
- PKER_RACCS ( 8, 31) = 0.140635E+01
- PKER_RACCS ( 8, 32) = 0.141350E+01
- PKER_RACCS ( 8, 33) = 0.141942E+01
- PKER_RACCS ( 8, 34) = 0.142432E+01
- PKER_RACCS ( 8, 35) = 0.142838E+01
- PKER_RACCS ( 8, 36) = 0.143173E+01
- PKER_RACCS ( 8, 37) = 0.143451E+01
- PKER_RACCS ( 8, 38) = 0.143681E+01
- PKER_RACCS ( 8, 39) = 0.143871E+01
- PKER_RACCS ( 8, 40) = 0.144029E+01
- PKER_RACCS ( 9, 1) = 0.128193E+02
- PKER_RACCS ( 9, 2) = 0.101710E+02
- PKER_RACCS ( 9, 3) = 0.801494E+01
- PKER_RACCS ( 9, 4) = 0.626567E+01
- PKER_RACCS ( 9, 5) = 0.485005E+01
- PKER_RACCS ( 9, 6) = 0.370613E+01
- PKER_RACCS ( 9, 7) = 0.278307E+01
- PKER_RACCS ( 9, 8) = 0.204116E+01
- PKER_RACCS ( 9, 9) = 0.145223E+01
- PKER_RACCS ( 9, 10) = 0.999910E+00
- PKER_RACCS ( 9, 11) = 0.678225E+00
- PKER_RACCS ( 9, 12) = 0.485619E+00
- PKER_RACCS ( 9, 13) = 0.415703E+00
- PKER_RACCS ( 9, 14) = 0.445551E+00
- PKER_RACCS ( 9, 15) = 0.538377E+00
- PKER_RACCS ( 9, 16) = 0.655431E+00
- PKER_RACCS ( 9, 17) = 0.769934E+00
- PKER_RACCS ( 9, 18) = 0.870332E+00
- PKER_RACCS ( 9, 19) = 0.954640E+00
- PKER_RACCS ( 9, 20) = 0.102452E+01
- PKER_RACCS ( 9, 21) = 0.108227E+01
- PKER_RACCS ( 9, 22) = 0.113001E+01
- PKER_RACCS ( 9, 23) = 0.116947E+01
- PKER_RACCS ( 9, 24) = 0.120209E+01
- PKER_RACCS ( 9, 25) = 0.122908E+01
- PKER_RACCS ( 9, 26) = 0.125140E+01
- PKER_RACCS ( 9, 27) = 0.126986E+01
- PKER_RACCS ( 9, 28) = 0.128513E+01
- PKER_RACCS ( 9, 29) = 0.129777E+01
- PKER_RACCS ( 9, 30) = 0.130823E+01
- PKER_RACCS ( 9, 31) = 0.131688E+01
- PKER_RACCS ( 9, 32) = 0.132404E+01
- PKER_RACCS ( 9, 33) = 0.132996E+01
- PKER_RACCS ( 9, 34) = 0.133487E+01
- PKER_RACCS ( 9, 35) = 0.133892E+01
- PKER_RACCS ( 9, 36) = 0.134228E+01
- PKER_RACCS ( 9, 37) = 0.134506E+01
- PKER_RACCS ( 9, 38) = 0.134736E+01
- PKER_RACCS ( 9, 39) = 0.134927E+01
- PKER_RACCS ( 9, 40) = 0.135084E+01
- PKER_RACCS ( 10, 1) = 0.131653E+02
- PKER_RACCS ( 10, 2) = 0.104811E+02
- PKER_RACCS ( 10, 3) = 0.828636E+01
- PKER_RACCS ( 10, 4) = 0.649911E+01
- PKER_RACCS ( 10, 5) = 0.504891E+01
- PKER_RACCS ( 10, 6) = 0.387538E+01
- PKER_RACCS ( 10, 7) = 0.292777E+01
- PKER_RACCS ( 10, 8) = 0.216507E+01
- PKER_RACCS ( 10, 9) = 0.155660E+01
- PKER_RACCS ( 10, 10) = 0.108253E+01
- PKER_RACCS ( 10, 11) = 0.733699E+00
- PKER_RACCS ( 10, 12) = 0.508107E+00
- PKER_RACCS ( 10, 13) = 0.401864E+00
- PKER_RACCS ( 10, 14) = 0.399605E+00
- PKER_RACCS ( 10, 15) = 0.470066E+00
- PKER_RACCS ( 10, 16) = 0.575534E+00
- PKER_RACCS ( 10, 17) = 0.685829E+00
- PKER_RACCS ( 10, 18) = 0.785326E+00
- PKER_RACCS ( 10, 19) = 0.869715E+00
- PKER_RACCS ( 10, 20) = 0.939821E+00
- PKER_RACCS ( 10, 21) = 0.997773E+00
- PKER_RACCS ( 10, 22) = 0.104565E+01
- PKER_RACCS ( 10, 23) = 0.108522E+01
- PKER_RACCS ( 10, 24) = 0.111793E+01
- PKER_RACCS ( 10, 25) = 0.114497E+01
- PKER_RACCS ( 10, 26) = 0.116733E+01
- PKER_RACCS ( 10, 27) = 0.118583E+01
- PKER_RACCS ( 10, 28) = 0.120113E+01
- PKER_RACCS ( 10, 29) = 0.121379E+01
- PKER_RACCS ( 10, 30) = 0.122426E+01
- PKER_RACCS ( 10, 31) = 0.123292E+01
- PKER_RACCS ( 10, 32) = 0.124009E+01
- PKER_RACCS ( 10, 33) = 0.124602E+01
- PKER_RACCS ( 10, 34) = 0.125093E+01
- PKER_RACCS ( 10, 35) = 0.125500E+01
- PKER_RACCS ( 10, 36) = 0.125836E+01
- PKER_RACCS ( 10, 37) = 0.126114E+01
- PKER_RACCS ( 10, 38) = 0.126344E+01
- PKER_RACCS ( 10, 39) = 0.126535E+01
- PKER_RACCS ( 10, 40) = 0.126692E+01
- PKER_RACCS ( 11, 1) = 0.134866E+02
- PKER_RACCS ( 11, 2) = 0.107778E+02
- PKER_RACCS ( 11, 3) = 0.855355E+01
- PKER_RACCS ( 11, 4) = 0.673440E+01
- PKER_RACCS ( 11, 5) = 0.525269E+01
- PKER_RACCS ( 11, 6) = 0.405032E+01
- PKER_RACCS ( 11, 7) = 0.307764E+01
- PKER_RACCS ( 11, 8) = 0.229345E+01
- PKER_RACCS ( 11, 9) = 0.166544E+01
- PKER_RACCS ( 11, 10) = 0.117103E+01
- PKER_RACCS ( 11, 11) = 0.797857E+00
- PKER_RACCS ( 11, 12) = 0.541886E+00
- PKER_RACCS ( 11, 13) = 0.401262E+00
- PKER_RACCS ( 11, 14) = 0.366324E+00
- PKER_RACCS ( 11, 15) = 0.411835E+00
- PKER_RACCS ( 11, 16) = 0.503075E+00
- PKER_RACCS ( 11, 17) = 0.607497E+00
- PKER_RACCS ( 11, 18) = 0.705455E+00
- PKER_RACCS ( 11, 19) = 0.789792E+00
- PKER_RACCS ( 11, 20) = 0.860149E+00
- PKER_RACCS ( 11, 21) = 0.918336E+00
- PKER_RACCS ( 11, 22) = 0.966393E+00
- PKER_RACCS ( 11, 23) = 0.100609E+01
- PKER_RACCS ( 11, 24) = 0.103890E+01
- PKER_RACCS ( 11, 25) = 0.106601E+01
- PKER_RACCS ( 11, 26) = 0.108843E+01
- PKER_RACCS ( 11, 27) = 0.110696E+01
- PKER_RACCS ( 11, 28) = 0.112229E+01
- PKER_RACCS ( 11, 29) = 0.113498E+01
- PKER_RACCS ( 11, 30) = 0.114547E+01
- PKER_RACCS ( 11, 31) = 0.115414E+01
- PKER_RACCS ( 11, 32) = 0.116132E+01
- PKER_RACCS ( 11, 33) = 0.116726E+01
- PKER_RACCS ( 11, 34) = 0.117218E+01
- PKER_RACCS ( 11, 35) = 0.117625E+01
- PKER_RACCS ( 11, 36) = 0.117961E+01
- PKER_RACCS ( 11, 37) = 0.118240E+01
- PKER_RACCS ( 11, 38) = 0.118470E+01
- PKER_RACCS ( 11, 39) = 0.118661E+01
- PKER_RACCS ( 11, 40) = 0.118819E+01
- PKER_RACCS ( 12, 1) = 0.137765E+02
- PKER_RACCS ( 12, 2) = 0.110532E+02
- PKER_RACCS ( 12, 3) = 0.880887E+01
- PKER_RACCS ( 12, 4) = 0.696546E+01
- PKER_RACCS ( 12, 5) = 0.545739E+01
- PKER_RACCS ( 12, 6) = 0.422884E+01
- PKER_RACCS ( 12, 7) = 0.323193E+01
- PKER_RACCS ( 12, 8) = 0.242617E+01
- PKER_RACCS ( 12, 9) = 0.177863E+01
- PKER_RACCS ( 12, 10) = 0.126480E+01
- PKER_RACCS ( 12, 11) = 0.869502E+00
- PKER_RACCS ( 12, 12) = 0.586444E+00
- PKER_RACCS ( 12, 13) = 0.413638E+00
- PKER_RACCS ( 12, 14) = 0.345906E+00
- PKER_RACCS ( 12, 15) = 0.364471E+00
- PKER_RACCS ( 12, 16) = 0.438529E+00
- PKER_RACCS ( 12, 17) = 0.535017E+00
- PKER_RACCS ( 12, 18) = 0.630497E+00
- PKER_RACCS ( 12, 19) = 0.714544E+00
- PKER_RACCS ( 12, 20) = 0.785149E+00
- PKER_RACCS ( 12, 21) = 0.843614E+00
- PKER_RACCS ( 12, 22) = 0.891886E+00
- PKER_RACCS ( 12, 23) = 0.931743E+00
- PKER_RACCS ( 12, 24) = 0.964664E+00
- PKER_RACCS ( 12, 25) = 0.991866E+00
- PKER_RACCS ( 12, 26) = 0.101435E+01
- PKER_RACCS ( 12, 27) = 0.103293E+01
- PKER_RACCS ( 12, 28) = 0.104830E+01
- PKER_RACCS ( 12, 29) = 0.106101E+01
- PKER_RACCS ( 12, 30) = 0.107152E+01
- PKER_RACCS ( 12, 31) = 0.108022E+01
- PKER_RACCS ( 12, 32) = 0.108741E+01
- PKER_RACCS ( 12, 33) = 0.109336E+01
- PKER_RACCS ( 12, 34) = 0.109828E+01
- PKER_RACCS ( 12, 35) = 0.110236E+01
- PKER_RACCS ( 12, 36) = 0.110573E+01
- PKER_RACCS ( 12, 37) = 0.110852E+01
- PKER_RACCS ( 12, 38) = 0.111082E+01
- PKER_RACCS ( 12, 39) = 0.111273E+01
- PKER_RACCS ( 12, 40) = 0.111431E+01
- PKER_RACCS ( 13, 1) = 0.140319E+02
- PKER_RACCS ( 13, 2) = 0.113018E+02
- PKER_RACCS ( 13, 3) = 0.904571E+01
- PKER_RACCS ( 13, 4) = 0.718591E+01
- PKER_RACCS ( 13, 5) = 0.565791E+01
- PKER_RACCS ( 13, 6) = 0.440756E+01
- PKER_RACCS ( 13, 7) = 0.338881E+01
- PKER_RACCS ( 13, 8) = 0.256245E+01
- PKER_RACCS ( 13, 9) = 0.189581E+01
- PKER_RACCS ( 13, 10) = 0.136334E+01
- PKER_RACCS ( 13, 11) = 0.947657E+00
- PKER_RACCS ( 13, 12) = 0.639932E+00
- PKER_RACCS ( 13, 13) = 0.437803E+00
- PKER_RACCS ( 13, 14) = 0.338008E+00
- PKER_RACCS ( 13, 15) = 0.328139E+00
- PKER_RACCS ( 13, 16) = 0.382351E+00
- PKER_RACCS ( 13, 17) = 0.468516E+00
- PKER_RACCS ( 13, 18) = 0.560309E+00
- PKER_RACCS ( 13, 19) = 0.643677E+00
- PKER_RACCS ( 13, 20) = 0.714489E+00
- PKER_RACCS ( 13, 21) = 0.773275E+00
- PKER_RACCS ( 13, 22) = 0.821808E+00
- PKER_RACCS ( 13, 23) = 0.861858E+00
- PKER_RACCS ( 13, 24) = 0.894921E+00
- PKER_RACCS ( 13, 25) = 0.922228E+00
- PKER_RACCS ( 13, 26) = 0.944789E+00
- PKER_RACCS ( 13, 27) = 0.963435E+00
- PKER_RACCS ( 13, 28) = 0.978847E+00
- PKER_RACCS ( 13, 29) = 0.991591E+00
- PKER_RACCS ( 13, 30) = 0.100213E+01
- PKER_RACCS ( 13, 31) = 0.101084E+01
- PKER_RACCS ( 13, 32) = 0.101805E+01
- PKER_RACCS ( 13, 33) = 0.102401E+01
- PKER_RACCS ( 13, 34) = 0.102895E+01
- PKER_RACCS ( 13, 35) = 0.103303E+01
- PKER_RACCS ( 13, 36) = 0.103640E+01
- PKER_RACCS ( 13, 37) = 0.103920E+01
- PKER_RACCS ( 13, 38) = 0.104151E+01
- PKER_RACCS ( 13, 39) = 0.104342E+01
- PKER_RACCS ( 13, 40) = 0.104500E+01
- PKER_RACCS ( 14, 1) = 0.142526E+02
- PKER_RACCS ( 14, 2) = 0.115209E+02
- PKER_RACCS ( 14, 3) = 0.925951E+01
- PKER_RACCS ( 14, 4) = 0.739026E+01
- PKER_RACCS ( 14, 5) = 0.584892E+01
- PKER_RACCS ( 14, 6) = 0.458219E+01
- PKER_RACCS ( 14, 7) = 0.354538E+01
- PKER_RACCS ( 14, 8) = 0.270063E+01
- PKER_RACCS ( 14, 9) = 0.201611E+01
- PKER_RACCS ( 14, 10) = 0.146603E+01
- PKER_RACCS ( 14, 11) = 0.103157E+01
- PKER_RACCS ( 14, 12) = 0.701686E+00
- PKER_RACCS ( 14, 13) = 0.472410E+00
- PKER_RACCS ( 14, 14) = 0.342083E+00
- PKER_RACCS ( 14, 15) = 0.303081E+00
- PKER_RACCS ( 14, 16) = 0.334956E+00
- PKER_RACCS ( 14, 17) = 0.408312E+00
- PKER_RACCS ( 14, 18) = 0.494848E+00
- PKER_RACCS ( 14, 19) = 0.576946E+00
- PKER_RACCS ( 14, 20) = 0.647859E+00
- PKER_RACCS ( 14, 21) = 0.707002E+00
- PKER_RACCS ( 14, 22) = 0.755849E+00
- PKER_RACCS ( 14, 23) = 0.796134E+00
- PKER_RACCS ( 14, 24) = 0.829370E+00
- PKER_RACCS ( 14, 25) = 0.856804E+00
- PKER_RACCS ( 14, 26) = 0.879461E+00
- PKER_RACCS ( 14, 27) = 0.898177E+00
- PKER_RACCS ( 14, 28) = 0.913644E+00
- PKER_RACCS ( 14, 29) = 0.926428E+00
- PKER_RACCS ( 14, 30) = 0.936997E+00
- PKER_RACCS ( 14, 31) = 0.945736E+00
- PKER_RACCS ( 14, 32) = 0.952963E+00
- PKER_RACCS ( 14, 33) = 0.958940E+00
- PKER_RACCS ( 14, 34) = 0.963884E+00
- PKER_RACCS ( 14, 35) = 0.967973E+00
- PKER_RACCS ( 14, 36) = 0.971356E+00
- PKER_RACCS ( 14, 37) = 0.974154E+00
- PKER_RACCS ( 14, 38) = 0.976470E+00
- PKER_RACCS ( 14, 39) = 0.978385E+00
- PKER_RACCS ( 14, 40) = 0.979971E+00
- PKER_RACCS ( 15, 1) = 0.144408E+02
- PKER_RACCS ( 15, 2) = 0.117106E+02
- PKER_RACCS ( 15, 3) = 0.944817E+01
- PKER_RACCS ( 15, 4) = 0.757478E+01
- PKER_RACCS ( 15, 5) = 0.602588E+01
- PKER_RACCS ( 15, 6) = 0.474829E+01
- PKER_RACCS ( 15, 7) = 0.369801E+01
- PKER_RACCS ( 15, 8) = 0.283819E+01
- PKER_RACCS ( 15, 9) = 0.213794E+01
- PKER_RACCS ( 15, 10) = 0.157180E+01
- PKER_RACCS ( 15, 11) = 0.112020E+01
- PKER_RACCS ( 15, 12) = 0.770447E+00
- PKER_RACCS ( 15, 13) = 0.516893E+00
- PKER_RACCS ( 15, 14) = 0.357861E+00
- PKER_RACCS ( 15, 15) = 0.289607E+00
- PKER_RACCS ( 15, 16) = 0.297216E+00
- PKER_RACCS ( 15, 17) = 0.354956E+00
- PKER_RACCS ( 15, 18) = 0.434258E+00
- PKER_RACCS ( 15, 19) = 0.514182E+00
- PKER_RACCS ( 15, 20) = 0.584974E+00
- PKER_RACCS ( 15, 21) = 0.644491E+00
- PKER_RACCS ( 15, 22) = 0.693710E+00
- PKER_RACCS ( 15, 23) = 0.734280E+00
- PKER_RACCS ( 15, 24) = 0.767726E+00
- PKER_RACCS ( 15, 25) = 0.795315E+00
- PKER_RACCS ( 15, 26) = 0.818087E+00
- PKER_RACCS ( 15, 27) = 0.836890E+00
- PKER_RACCS ( 15, 28) = 0.852422E+00
- PKER_RACCS ( 15, 29) = 0.865255E+00
- PKER_RACCS ( 15, 30) = 0.875862E+00
- PKER_RACCS ( 15, 31) = 0.884630E+00
- PKER_RACCS ( 15, 32) = 0.891879E+00
- PKER_RACCS ( 15, 33) = 0.897873E+00
- PKER_RACCS ( 15, 34) = 0.902830E+00
- PKER_RACCS ( 15, 35) = 0.906929E+00
- PKER_RACCS ( 15, 36) = 0.910320E+00
- PKER_RACCS ( 15, 37) = 0.913125E+00
- PKER_RACCS ( 15, 38) = 0.915446E+00
- PKER_RACCS ( 15, 39) = 0.917365E+00
- PKER_RACCS ( 15, 40) = 0.918953E+00
- PKER_RACCS ( 16, 1) = 0.146000E+02
- PKER_RACCS ( 16, 2) = 0.118728E+02
- PKER_RACCS ( 16, 3) = 0.961176E+01
- PKER_RACCS ( 16, 4) = 0.773776E+01
- PKER_RACCS ( 16, 5) = 0.618568E+01
- PKER_RACCS ( 16, 6) = 0.490207E+01
- PKER_RACCS ( 16, 7) = 0.384296E+01
- PKER_RACCS ( 16, 8) = 0.297203E+01
- PKER_RACCS ( 16, 9) = 0.225904E+01
- PKER_RACCS ( 16, 10) = 0.167906E+01
- PKER_RACCS ( 16, 11) = 0.121230E+01
- PKER_RACCS ( 16, 12) = 0.844921E+00
- PKER_RACCS ( 16, 13) = 0.569587E+00
- PKER_RACCS ( 16, 14) = 0.384481E+00
- PKER_RACCS ( 16, 15) = 0.287547E+00
- PKER_RACCS ( 16, 16) = 0.269381E+00
- PKER_RACCS ( 16, 17) = 0.308942E+00
- PKER_RACCS ( 16, 18) = 0.378718E+00
- PKER_RACCS ( 16, 19) = 0.455285E+00
- PKER_RACCS ( 16, 20) = 0.525584E+00
- PKER_RACCS ( 16, 21) = 0.585450E+00
- PKER_RACCS ( 16, 22) = 0.635102E+00
- PKER_RACCS ( 16, 23) = 0.676017E+00
- PKER_RACCS ( 16, 24) = 0.709718E+00
- PKER_RACCS ( 16, 25) = 0.737496E+00
- PKER_RACCS ( 16, 26) = 0.760407E+00
- PKER_RACCS ( 16, 27) = 0.779315E+00
- PKER_RACCS ( 16, 28) = 0.794925E+00
- PKER_RACCS ( 16, 29) = 0.807818E+00
- PKER_RACCS ( 16, 30) = 0.818470E+00
- PKER_RACCS ( 16, 31) = 0.827272E+00
- PKER_RACCS ( 16, 32) = 0.834548E+00
- PKER_RACCS ( 16, 33) = 0.840562E+00
- PKER_RACCS ( 16, 34) = 0.845535E+00
- PKER_RACCS ( 16, 35) = 0.849647E+00
- PKER_RACCS ( 16, 36) = 0.853048E+00
- PKER_RACCS ( 16, 37) = 0.855860E+00
- PKER_RACCS ( 16, 38) = 0.858187E+00
- PKER_RACCS ( 16, 39) = 0.860111E+00
- PKER_RACCS ( 16, 40) = 0.861703E+00
- PKER_RACCS ( 17, 1) = 0.147341E+02
- PKER_RACCS ( 17, 2) = 0.120103E+02
- PKER_RACCS ( 17, 3) = 0.975189E+01
- PKER_RACCS ( 17, 4) = 0.787932E+01
- PKER_RACCS ( 17, 5) = 0.632699E+01
- PKER_RACCS ( 17, 6) = 0.504099E+01
- PKER_RACCS ( 17, 7) = 0.397709E+01
- PKER_RACCS ( 17, 8) = 0.309897E+01
- PKER_RACCS ( 17, 9) = 0.237672E+01
- PKER_RACCS ( 17, 10) = 0.178573E+01
- PKER_RACCS ( 17, 11) = 0.130626E+01
- PKER_RACCS ( 17, 12) = 0.923760E+00
- PKER_RACCS ( 17, 13) = 0.629526E+00
- PKER_RACCS ( 17, 14) = 0.420645E+00
- PKER_RACCS ( 17, 15) = 0.296483E+00
- PKER_RACCS ( 17, 16) = 0.251869E+00
- PKER_RACCS ( 17, 17) = 0.270840E+00
- PKER_RACCS ( 17, 18) = 0.328636E+00
- PKER_RACCS ( 17, 19) = 0.400275E+00
- PKER_RACCS ( 17, 20) = 0.469486E+00
- PKER_RACCS ( 17, 21) = 0.529608E+00
- PKER_RACCS ( 17, 22) = 0.579747E+00
- PKER_RACCS ( 17, 23) = 0.621076E+00
- PKER_RACCS ( 17, 24) = 0.655088E+00
- PKER_RACCS ( 17, 25) = 0.683094E+00
- PKER_RACCS ( 17, 26) = 0.706174E+00
- PKER_RACCS ( 17, 27) = 0.725208E+00
- PKER_RACCS ( 17, 28) = 0.740913E+00
- PKER_RACCS ( 17, 29) = 0.753877E+00
- PKER_RACCS ( 17, 30) = 0.764583E+00
- PKER_RACCS ( 17, 31) = 0.773427E+00
- PKER_RACCS ( 17, 32) = 0.780735E+00
- PKER_RACCS ( 17, 33) = 0.786774E+00
- PKER_RACCS ( 17, 34) = 0.791766E+00
- PKER_RACCS ( 17, 35) = 0.795893E+00
- PKER_RACCS ( 17, 36) = 0.799305E+00
- PKER_RACCS ( 17, 37) = 0.802126E+00
- PKER_RACCS ( 17, 38) = 0.804459E+00
- PKER_RACCS ( 17, 39) = 0.806389E+00
- PKER_RACCS ( 17, 40) = 0.807985E+00
- PKER_RACCS ( 18, 1) = 0.148471E+02
- PKER_RACCS ( 18, 2) = 0.121265E+02
- PKER_RACCS ( 18, 3) = 0.987110E+01
- PKER_RACCS ( 18, 4) = 0.800089E+01
- PKER_RACCS ( 18, 5) = 0.644994E+01
- PKER_RACCS ( 18, 6) = 0.516395E+01
- PKER_RACCS ( 18, 7) = 0.409829E+01
- PKER_RACCS ( 18, 8) = 0.321639E+01
- PKER_RACCS ( 18, 9) = 0.248825E+01
- PKER_RACCS ( 18, 10) = 0.188937E+01
- PKER_RACCS ( 18, 11) = 0.140001E+01
- PKER_RACCS ( 18, 12) = 0.100512E+01
- PKER_RACCS ( 18, 13) = 0.694965E+00
- PKER_RACCS ( 18, 14) = 0.465425E+00
- PKER_RACCS ( 18, 15) = 0.316022E+00
- PKER_RACCS ( 18, 16) = 0.245025E+00
- PKER_RACCS ( 18, 17) = 0.241586E+00
- PKER_RACCS ( 18, 18) = 0.284650E+00
- PKER_RACCS ( 18, 19) = 0.349371E+00
- PKER_RACCS ( 18, 20) = 0.416569E+00
- PKER_RACCS ( 18, 21) = 0.476716E+00
- PKER_RACCS ( 18, 22) = 0.527374E+00
- PKER_RACCS ( 18, 23) = 0.569195E+00
- PKER_RACCS ( 18, 24) = 0.603581E+00
- PKER_RACCS ( 18, 25) = 0.631865E+00
- PKER_RACCS ( 18, 26) = 0.655150E+00
- PKER_RACCS ( 18, 27) = 0.674336E+00
- PKER_RACCS ( 18, 28) = 0.690155E+00
- PKER_RACCS ( 18, 29) = 0.703206E+00
- PKER_RACCS ( 18, 30) = 0.713977E+00
- PKER_RACCS ( 18, 31) = 0.722871E+00
- PKER_RACCS ( 18, 32) = 0.730217E+00
- PKER_RACCS ( 18, 33) = 0.736286E+00
- PKER_RACCS ( 18, 34) = 0.741300E+00
- PKER_RACCS ( 18, 35) = 0.745445E+00
- PKER_RACCS ( 18, 36) = 0.748871E+00
- PKER_RACCS ( 18, 37) = 0.751703E+00
- PKER_RACCS ( 18, 38) = 0.754044E+00
- PKER_RACCS ( 18, 39) = 0.755981E+00
- PKER_RACCS ( 18, 40) = 0.757582E+00
- PKER_RACCS ( 19, 1) = 0.149424E+02
- PKER_RACCS ( 19, 2) = 0.122248E+02
- PKER_RACCS ( 19, 3) = 0.997223E+01
- PKER_RACCS ( 19, 4) = 0.810461E+01
- PKER_RACCS ( 19, 5) = 0.655579E+01
- PKER_RACCS ( 19, 6) = 0.527114E+01
- PKER_RACCS ( 19, 7) = 0.420569E+01
- PKER_RACCS ( 19, 8) = 0.332252E+01
- PKER_RACCS ( 19, 9) = 0.259139E+01
- PKER_RACCS ( 19, 10) = 0.198760E+01
- PKER_RACCS ( 19, 11) = 0.149127E+01
- PKER_RACCS ( 19, 12) = 0.108695E+01
- PKER_RACCS ( 19, 13) = 0.763957E+00
- PKER_RACCS ( 19, 14) = 0.516893E+00
- PKER_RACCS ( 19, 15) = 0.345184E+00
- PKER_RACCS ( 19, 16) = 0.248721E+00
- PKER_RACCS ( 19, 17) = 0.221527E+00
- PKER_RACCS ( 19, 18) = 0.247368E+00
- PKER_RACCS ( 19, 19) = 0.302857E+00
- PKER_RACCS ( 19, 20) = 0.366792E+00
- PKER_RACCS ( 19, 21) = 0.426569E+00
- PKER_RACCS ( 19, 22) = 0.477725E+00
- PKER_RACCS ( 19, 23) = 0.520116E+00
- PKER_RACCS ( 19, 24) = 0.554955E+00
- PKER_RACCS ( 19, 25) = 0.583575E+00
- PKER_RACCS ( 19, 26) = 0.607108E+00
- PKER_RACCS ( 19, 27) = 0.626479E+00
- PKER_RACCS ( 19, 28) = 0.642436E+00
- PKER_RACCS ( 19, 29) = 0.655590E+00
- PKER_RACCS ( 19, 30) = 0.666441E+00
- PKER_RACCS ( 19, 31) = 0.675394E+00
- PKER_RACCS ( 19, 32) = 0.682786E+00
- PKER_RACCS ( 19, 33) = 0.688890E+00
- PKER_RACCS ( 19, 34) = 0.693932E+00
- PKER_RACCS ( 19, 35) = 0.698097E+00
- PKER_RACCS ( 19, 36) = 0.701540E+00
- PKER_RACCS ( 19, 37) = 0.704385E+00
- PKER_RACCS ( 19, 38) = 0.706736E+00
- PKER_RACCS ( 19, 39) = 0.708680E+00
- PKER_RACCS ( 19, 40) = 0.710287E+00
- PKER_RACCS ( 20, 1) = 0.150233E+02
- PKER_RACCS ( 20, 2) = 0.123081E+02
- PKER_RACCS ( 20, 3) = 0.100581E+02
- PKER_RACCS ( 20, 4) = 0.819292E+01
- PKER_RACCS ( 20, 5) = 0.664638E+01
- PKER_RACCS ( 20, 6) = 0.536365E+01
- PKER_RACCS ( 20, 7) = 0.429950E+01
- PKER_RACCS ( 20, 8) = 0.341669E+01
- PKER_RACCS ( 20, 9) = 0.268467E+01
- PKER_RACCS ( 20, 10) = 0.207848E+01
- PKER_RACCS ( 20, 11) = 0.157790E+01
- PKER_RACCS ( 20, 12) = 0.116706E+01
- PKER_RACCS ( 20, 13) = 0.834456E+00
- PKER_RACCS ( 20, 14) = 0.573438E+00
- PKER_RACCS ( 20, 15) = 0.382407E+00
- PKER_RACCS ( 20, 16) = 0.262345E+00
- PKER_RACCS ( 20, 17) = 0.211120E+00
- PKER_RACCS ( 20, 18) = 0.217516E+00
- PKER_RACCS ( 20, 19) = 0.261278E+00
- PKER_RACCS ( 20, 20) = 0.320279E+00
- PKER_RACCS ( 20, 21) = 0.379014E+00
- PKER_RACCS ( 20, 22) = 0.430562E+00
- PKER_RACCS ( 20, 23) = 0.473590E+00
- PKER_RACCS ( 20, 24) = 0.508970E+00
- PKER_RACCS ( 20, 25) = 0.537995E+00
- PKER_RACCS ( 20, 26) = 0.561829E+00
- PKER_RACCS ( 20, 27) = 0.581423E+00
- PKER_RACCS ( 20, 28) = 0.597547E+00
- PKER_RACCS ( 20, 29) = 0.610827E+00
- PKER_RACCS ( 20, 30) = 0.621772E+00
- PKER_RACCS ( 20, 31) = 0.630798E+00
- PKER_RACCS ( 20, 32) = 0.638244E+00
- PKER_RACCS ( 20, 33) = 0.644390E+00
- PKER_RACCS ( 20, 34) = 0.649465E+00
- PKER_RACCS ( 20, 35) = 0.653656E+00
- PKER_RACCS ( 20, 36) = 0.657117E+00
- PKER_RACCS ( 20, 37) = 0.659978E+00
- PKER_RACCS ( 20, 38) = 0.662341E+00
- PKER_RACCS ( 20, 39) = 0.664294E+00
- PKER_RACCS ( 20, 40) = 0.665909E+00
- PKER_RACCS ( 21, 1) = 0.150922E+02
- PKER_RACCS ( 21, 2) = 0.123791E+02
- PKER_RACCS ( 21, 3) = 0.101311E+02
- PKER_RACCS ( 21, 4) = 0.826818E+01
- PKER_RACCS ( 21, 5) = 0.672379E+01
- PKER_RACCS ( 21, 6) = 0.544309E+01
- PKER_RACCS ( 21, 7) = 0.438067E+01
- PKER_RACCS ( 21, 8) = 0.349910E+01
- PKER_RACCS ( 21, 9) = 0.276755E+01
- PKER_RACCS ( 21, 10) = 0.216074E+01
- PKER_RACCS ( 21, 11) = 0.165815E+01
- PKER_RACCS ( 21, 12) = 0.124340E+01
- PKER_RACCS ( 21, 13) = 0.904204E+00
- PKER_RACCS ( 21, 14) = 0.632746E+00
- PKER_RACCS ( 21, 15) = 0.426104E+00
- PKER_RACCS ( 21, 16) = 0.285124E+00
- PKER_RACCS ( 21, 17) = 0.210547E+00
- PKER_RACCS ( 21, 18) = 0.196012E+00
- PKER_RACCS ( 21, 19) = 0.225390E+00
- PKER_RACCS ( 21, 20) = 0.277352E+00
- PKER_RACCS ( 21, 21) = 0.334022E+00
- PKER_RACCS ( 21, 22) = 0.385682E+00
- PKER_RACCS ( 21, 23) = 0.429377E+00
- PKER_RACCS ( 21, 24) = 0.465390E+00
- PKER_RACCS ( 21, 25) = 0.494904E+00
- PKER_RACCS ( 21, 26) = 0.519101E+00
- PKER_RACCS ( 21, 27) = 0.538964E+00
- PKER_RACCS ( 21, 28) = 0.555290E+00
- PKER_RACCS ( 21, 29) = 0.568721E+00
- PKER_RACCS ( 21, 30) = 0.579780E+00
- PKER_RACCS ( 21, 31) = 0.588892E+00
- PKER_RACCS ( 21, 32) = 0.596405E+00
- PKER_RACCS ( 21, 33) = 0.602602E+00
- PKER_RACCS ( 21, 34) = 0.607715E+00
- PKER_RACCS ( 21, 35) = 0.611936E+00
- PKER_RACCS ( 21, 36) = 0.615421E+00
- PKER_RACCS ( 21, 37) = 0.618300E+00
- PKER_RACCS ( 21, 38) = 0.620677E+00
- PKER_RACCS ( 21, 39) = 0.622642E+00
- PKER_RACCS ( 21, 40) = 0.624265E+00
- PKER_RACCS ( 22, 1) = 0.151514E+02
- PKER_RACCS ( 22, 2) = 0.124399E+02
- PKER_RACCS ( 22, 3) = 0.101937E+02
- PKER_RACCS ( 22, 4) = 0.833253E+01
- PKER_RACCS ( 22, 5) = 0.679003E+01
- PKER_RACCS ( 22, 6) = 0.551121E+01
- PKER_RACCS ( 22, 7) = 0.445059E+01
- PKER_RACCS ( 22, 8) = 0.357060E+01
- PKER_RACCS ( 22, 9) = 0.284022E+01
- PKER_RACCS ( 22, 10) = 0.223394E+01
- PKER_RACCS ( 22, 11) = 0.173091E+01
- PKER_RACCS ( 22, 12) = 0.131432E+01
- PKER_RACCS ( 22, 13) = 0.971179E+00
- PKER_RACCS ( 22, 14) = 0.692512E+00
- PKER_RACCS ( 22, 15) = 0.473921E+00
- PKER_RACCS ( 22, 16) = 0.315613E+00
- PKER_RACCS ( 22, 17) = 0.219438E+00
- PKER_RACCS ( 22, 18) = 0.183228E+00
- PKER_RACCS ( 22, 19) = 0.195928E+00
- PKER_RACCS ( 22, 20) = 0.238467E+00
- PKER_RACCS ( 22, 21) = 0.291650E+00
- PKER_RACCS ( 22, 22) = 0.342933E+00
- PKER_RACCS ( 22, 23) = 0.387253E+00
- PKER_RACCS ( 22, 24) = 0.423987E+00
- PKER_RACCS ( 22, 25) = 0.454083E+00
- PKER_RACCS ( 22, 26) = 0.478717E+00
- PKER_RACCS ( 22, 27) = 0.498906E+00
- PKER_RACCS ( 22, 28) = 0.515474E+00
- PKER_RACCS ( 22, 29) = 0.529087E+00
- PKER_RACCS ( 22, 30) = 0.540283E+00
- PKER_RACCS ( 22, 31) = 0.549500E+00
- PKER_RACCS ( 22, 32) = 0.557092E+00
- PKER_RACCS ( 22, 33) = 0.563350E+00
- PKER_RACCS ( 22, 34) = 0.568510E+00
- PKER_RACCS ( 22, 35) = 0.572767E+00
- PKER_RACCS ( 22, 36) = 0.576280E+00
- PKER_RACCS ( 22, 37) = 0.579180E+00
- PKER_RACCS ( 22, 38) = 0.581575E+00
- PKER_RACCS ( 22, 39) = 0.583552E+00
- PKER_RACCS ( 22, 40) = 0.585186E+00
- PKER_RACCS ( 23, 1) = 0.152025E+02
- PKER_RACCS ( 23, 2) = 0.124923E+02
- PKER_RACCS ( 23, 3) = 0.102475E+02
- PKER_RACCS ( 23, 4) = 0.838786E+01
- PKER_RACCS ( 23, 5) = 0.684693E+01
- PKER_RACCS ( 23, 6) = 0.556974E+01
- PKER_RACCS ( 23, 7) = 0.451078E+01
- PKER_RACCS ( 23, 8) = 0.363239E+01
- PKER_RACCS ( 23, 9) = 0.290344E+01
- PKER_RACCS ( 23, 10) = 0.229827E+01
- PKER_RACCS ( 23, 11) = 0.179578E+01
- PKER_RACCS ( 23, 12) = 0.137880E+01
- PKER_RACCS ( 23, 13) = 0.103376E+01
- PKER_RACCS ( 23, 14) = 0.750698E+00
- PKER_RACCS ( 23, 15) = 0.523775E+00
- PKER_RACCS ( 23, 16) = 0.351748E+00
- PKER_RACCS ( 23, 17) = 0.236670E+00
- PKER_RACCS ( 23, 18) = 0.179378E+00
- PKER_RACCS ( 23, 19) = 0.173687E+00
- PKER_RACCS ( 23, 20) = 0.204334E+00
- PKER_RACCS ( 23, 21) = 0.252182E+00
- PKER_RACCS ( 23, 22) = 0.302250E+00
- PKER_RACCS ( 23, 23) = 0.347024E+00
- PKER_RACCS ( 23, 24) = 0.384540E+00
- PKER_RACCS ( 23, 25) = 0.415319E+00
- PKER_RACCS ( 23, 26) = 0.440475E+00
- PKER_RACCS ( 23, 27) = 0.461054E+00
- PKER_RACCS ( 23, 28) = 0.477914E+00
- PKER_RACCS ( 23, 29) = 0.491746E+00
- PKER_RACCS ( 23, 30) = 0.503108E+00
- PKER_RACCS ( 23, 31) = 0.512450E+00
- PKER_RACCS ( 23, 32) = 0.520137E+00
- PKER_RACCS ( 23, 33) = 0.526468E+00
- PKER_RACCS ( 23, 34) = 0.531684E+00
- PKER_RACCS ( 23, 35) = 0.535984E+00
- PKER_RACCS ( 23, 36) = 0.539531E+00
- PKER_RACCS ( 23, 37) = 0.542457E+00
- PKER_RACCS ( 23, 38) = 0.544872E+00
- PKER_RACCS ( 23, 39) = 0.546865E+00
- PKER_RACCS ( 23, 40) = 0.548511E+00
- PKER_RACCS ( 24, 1) = 0.152471E+02
- PKER_RACCS ( 24, 2) = 0.125379E+02
- PKER_RACCS ( 24, 3) = 0.102942E+02
- PKER_RACCS ( 24, 4) = 0.843571E+01
- PKER_RACCS ( 24, 5) = 0.689606E+01
- PKER_RACCS ( 24, 6) = 0.562023E+01
- PKER_RACCS ( 24, 7) = 0.456270E+01
- PKER_RACCS ( 24, 8) = 0.368577E+01
- PKER_RACCS ( 24, 9) = 0.295826E+01
- PKER_RACCS ( 24, 10) = 0.235439E+01
- PKER_RACCS ( 24, 11) = 0.185292E+01
- PKER_RACCS ( 24, 12) = 0.143643E+01
- PKER_RACCS ( 24, 13) = 0.109091E+01
- PKER_RACCS ( 24, 14) = 0.805605E+00
- PKER_RACCS ( 24, 15) = 0.573417E+00
- PKER_RACCS ( 24, 16) = 0.391471E+00
- PKER_RACCS ( 24, 17) = 0.260876E+00
- PKER_RACCS ( 24, 18) = 0.184180E+00
- PKER_RACCS ( 24, 19) = 0.159396E+00
- PKER_RACCS ( 24, 20) = 0.175814E+00
- PKER_RACCS ( 24, 21) = 0.216094E+00
- PKER_RACCS ( 24, 22) = 0.263726E+00
- PKER_RACCS ( 24, 23) = 0.308551E+00
- PKER_RACCS ( 24, 24) = 0.346845E+00
- PKER_RACCS ( 24, 25) = 0.378402E+00
- PKER_RACCS ( 24, 26) = 0.404175E+00
- PKER_RACCS ( 24, 27) = 0.425220E+00
- PKER_RACCS ( 24, 28) = 0.442431E+00
- PKER_RACCS ( 24, 29) = 0.456527E+00
- PKER_RACCS ( 24, 30) = 0.468088E+00
- PKER_RACCS ( 24, 31) = 0.477580E+00
- PKER_RACCS ( 24, 32) = 0.485382E+00
- PKER_RACCS ( 24, 33) = 0.491800E+00
- PKER_RACCS ( 24, 34) = 0.497083E+00
- PKER_RACCS ( 24, 35) = 0.501435E+00
- PKER_RACCS ( 24, 36) = 0.505022E+00
- PKER_RACCS ( 24, 37) = 0.507979E+00
- PKER_RACCS ( 24, 38) = 0.510418E+00
- PKER_RACCS ( 24, 39) = 0.512430E+00
- PKER_RACCS ( 24, 40) = 0.514090E+00
- PKER_RACCS ( 25, 1) = 0.152861E+02
- PKER_RACCS ( 25, 2) = 0.125778E+02
- PKER_RACCS ( 25, 3) = 0.103349E+02
- PKER_RACCS ( 25, 4) = 0.847739E+01
- PKER_RACCS ( 25, 5) = 0.693876E+01
- PKER_RACCS ( 25, 6) = 0.566404E+01
- PKER_RACCS ( 25, 7) = 0.460768E+01
- PKER_RACCS ( 25, 8) = 0.373200E+01
- PKER_RACCS ( 25, 9) = 0.300578E+01
- PKER_RACCS ( 25, 10) = 0.240320E+01
- PKER_RACCS ( 25, 11) = 0.190291E+01
- PKER_RACCS ( 25, 12) = 0.148735E+01
- PKER_RACCS ( 25, 13) = 0.114219E+01
- PKER_RACCS ( 25, 14) = 0.856136E+00
- PKER_RACCS ( 25, 15) = 0.621029E+00
- PKER_RACCS ( 25, 16) = 0.432440E+00
- PKER_RACCS ( 25, 17) = 0.290169E+00
- PKER_RACCS ( 25, 18) = 0.196768E+00
- PKER_RACCS ( 25, 19) = 0.153201E+00
- PKER_RACCS ( 25, 20) = 0.153672E+00
- PKER_RACCS ( 25, 21) = 0.184048E+00
- PKER_RACCS ( 25, 22) = 0.227585E+00
- PKER_RACCS ( 25, 23) = 0.271783E+00
- PKER_RACCS ( 25, 24) = 0.310728E+00
- PKER_RACCS ( 25, 25) = 0.343135E+00
- PKER_RACCS ( 25, 26) = 0.369625E+00
- PKER_RACCS ( 25, 27) = 0.391222E+00
- PKER_RACCS ( 25, 28) = 0.408850E+00
- PKER_RACCS ( 25, 29) = 0.423262E+00
- PKER_RACCS ( 25, 30) = 0.435061E+00
- PKER_RACCS ( 25, 31) = 0.444734E+00
- PKER_RACCS ( 25, 32) = 0.452673E+00
- PKER_RACCS ( 25, 33) = 0.459196E+00
- PKER_RACCS ( 25, 34) = 0.464560E+00
- PKER_RACCS ( 25, 35) = 0.468974E+00
- PKER_RACCS ( 25, 36) = 0.472608E+00
- PKER_RACCS ( 25, 37) = 0.475602E+00
- PKER_RACCS ( 25, 38) = 0.478070E+00
- PKER_RACCS ( 25, 39) = 0.480104E+00
- PKER_RACCS ( 25, 40) = 0.481782E+00
- PKER_RACCS ( 26, 1) = 0.153206E+02
- PKER_RACCS ( 26, 2) = 0.126129E+02
- PKER_RACCS ( 26, 3) = 0.103707E+02
- PKER_RACCS ( 26, 4) = 0.851394E+01
- PKER_RACCS ( 26, 5) = 0.697612E+01
- PKER_RACCS ( 26, 6) = 0.570228E+01
- PKER_RACCS ( 26, 7) = 0.464688E+01
- PKER_RACCS ( 26, 8) = 0.377223E+01
- PKER_RACCS ( 26, 9) = 0.304711E+01
- PKER_RACCS ( 26, 10) = 0.244567E+01
- PKER_RACCS ( 26, 11) = 0.194653E+01
- PKER_RACCS ( 26, 12) = 0.153202E+01
- PKER_RACCS ( 26, 13) = 0.118766E+01
- PKER_RACCS ( 26, 14) = 0.901746E+00
- PKER_RACCS ( 26, 15) = 0.665390E+00
- PKER_RACCS ( 26, 16) = 0.472866E+00
- PKER_RACCS ( 26, 17) = 0.322299E+00
- PKER_RACCS ( 26, 18) = 0.215438E+00
- PKER_RACCS ( 26, 19) = 0.154776E+00
- PKER_RACCS ( 26, 20) = 0.138541E+00
- PKER_RACCS ( 26, 21) = 0.156867E+00
- PKER_RACCS ( 26, 22) = 0.194320E+00
- PKER_RACCS ( 26, 23) = 0.236800E+00
- PKER_RACCS ( 26, 24) = 0.276076E+00
- PKER_RACCS ( 26, 25) = 0.309341E+00
- PKER_RACCS ( 26, 26) = 0.336639E+00
- PKER_RACCS ( 26, 27) = 0.358880E+00
- PKER_RACCS ( 26, 28) = 0.377001E+00
- PKER_RACCS ( 26, 29) = 0.391788E+00
- PKER_RACCS ( 26, 30) = 0.403872E+00
- PKER_RACCS ( 26, 31) = 0.413761E+00
- PKER_RACCS ( 26, 32) = 0.421865E+00
- PKER_RACCS ( 26, 33) = 0.428514E+00
- PKER_RACCS ( 26, 34) = 0.433974E+00
- PKER_RACCS ( 26, 35) = 0.438462E+00
- PKER_RACCS ( 26, 36) = 0.442154E+00
- PKER_RACCS ( 26, 37) = 0.445192E+00
- PKER_RACCS ( 26, 38) = 0.447694E+00
- PKER_RACCS ( 26, 39) = 0.449755E+00
- PKER_RACCS ( 26, 40) = 0.451454E+00
- PKER_RACCS ( 27, 1) = 0.153513E+02
- PKER_RACCS ( 27, 2) = 0.126440E+02
- PKER_RACCS ( 27, 3) = 0.104024E+02
- PKER_RACCS ( 27, 4) = 0.854622E+01
- PKER_RACCS ( 27, 5) = 0.700904E+01
- PKER_RACCS ( 27, 6) = 0.573589E+01
- PKER_RACCS ( 27, 7) = 0.468125E+01
- PKER_RACCS ( 27, 8) = 0.380743E+01
- PKER_RACCS ( 27, 9) = 0.308321E+01
- PKER_RACCS ( 27, 10) = 0.248274E+01
- PKER_RACCS ( 27, 11) = 0.198462E+01
- PKER_RACCS ( 27, 12) = 0.157114E+01
- PKER_RACCS ( 27, 13) = 0.122770E+01
- PKER_RACCS ( 27, 14) = 0.942392E+00
- PKER_RACCS ( 27, 15) = 0.705810E+00
- PKER_RACCS ( 27, 16) = 0.511279E+00
- PKER_RACCS ( 27, 17) = 0.355415E+00
- PKER_RACCS ( 27, 18) = 0.238463E+00
- PKER_RACCS ( 27, 19) = 0.163223E+00
- PKER_RACCS ( 27, 20) = 0.130700E+00
- PKER_RACCS ( 27, 21) = 0.135369E+00
- PKER_RACCS ( 27, 22) = 0.164571E+00
- PKER_RACCS ( 27, 23) = 0.203879E+00
- PKER_RACCS ( 27, 24) = 0.242868E+00
- PKER_RACCS ( 27, 25) = 0.276880E+00
- PKER_RACCS ( 27, 26) = 0.305049E+00
- PKER_RACCS ( 27, 27) = 0.328022E+00
- PKER_RACCS ( 27, 28) = 0.346718E+00
- PKER_RACCS ( 27, 29) = 0.361946E+00
- PKER_RACCS ( 27, 30) = 0.374368E+00
- PKER_RACCS ( 27, 31) = 0.384516E+00
- PKER_RACCS ( 27, 32) = 0.392817E+00
- PKER_RACCS ( 27, 33) = 0.399617E+00
- PKER_RACCS ( 27, 34) = 0.405192E+00
- PKER_RACCS ( 27, 35) = 0.409769E+00
- PKER_RACCS ( 27, 36) = 0.413529E+00
- PKER_RACCS ( 27, 37) = 0.416620E+00
- PKER_RACCS ( 27, 38) = 0.419163E+00
- PKER_RACCS ( 27, 39) = 0.421256E+00
- PKER_RACCS ( 27, 40) = 0.422980E+00
- PKER_RACCS ( 28, 1) = 0.153787E+02
- PKER_RACCS ( 28, 2) = 0.126718E+02
- PKER_RACCS ( 28, 3) = 0.104307E+02
- PKER_RACCS ( 28, 4) = 0.857492E+01
- PKER_RACCS ( 28, 5) = 0.703823E+01
- PKER_RACCS ( 28, 6) = 0.576563E+01
- PKER_RACCS ( 28, 7) = 0.471159E+01
- PKER_RACCS ( 28, 8) = 0.383843E+01
- PKER_RACCS ( 28, 9) = 0.311494E+01
- PKER_RACCS ( 28, 10) = 0.251526E+01
- PKER_RACCS ( 28, 11) = 0.201799E+01
- PKER_RACCS ( 28, 12) = 0.160542E+01
- PKER_RACCS ( 28, 13) = 0.126288E+01
- PKER_RACCS ( 28, 14) = 0.978347E+00
- PKER_RACCS ( 28, 15) = 0.742102E+00
- PKER_RACCS ( 28, 16) = 0.546792E+00
- PKER_RACCS ( 28, 17) = 0.387821E+00
- PKER_RACCS ( 28, 18) = 0.264011E+00
- PKER_RACCS ( 28, 19) = 0.177228E+00
- PKER_RACCS ( 28, 20) = 0.129810E+00
- PKER_RACCS ( 28, 21) = 0.120099E+00
- PKER_RACCS ( 28, 22) = 0.139117E+00
- PKER_RACCS ( 28, 23) = 0.173453E+00
- PKER_RACCS ( 28, 24) = 0.211216E+00
- PKER_RACCS ( 28, 25) = 0.245678E+00
- PKER_RACCS ( 28, 26) = 0.274712E+00
- PKER_RACCS ( 28, 27) = 0.298492E+00
- PKER_RACCS ( 28, 28) = 0.317842E+00
- PKER_RACCS ( 28, 29) = 0.333584E+00
- PKER_RACCS ( 28, 30) = 0.346404E+00
- PKER_RACCS ( 28, 31) = 0.356858E+00
- PKER_RACCS ( 28, 32) = 0.365393E+00
- PKER_RACCS ( 28, 33) = 0.372373E+00
- PKER_RACCS ( 28, 34) = 0.378086E+00
- PKER_RACCS ( 28, 35) = 0.382769E+00
- PKER_RACCS ( 28, 36) = 0.386611E+00
- PKER_RACCS ( 28, 37) = 0.389765E+00
- PKER_RACCS ( 28, 38) = 0.392357E+00
- PKER_RACCS ( 28, 39) = 0.394489E+00
- PKER_RACCS ( 28, 40) = 0.396242E+00
- PKER_RACCS ( 29, 1) = 0.154034E+02
- PKER_RACCS ( 29, 2) = 0.126968E+02
- PKER_RACCS ( 29, 3) = 0.104560E+02
- PKER_RACCS ( 29, 4) = 0.860059E+01
- PKER_RACCS ( 29, 5) = 0.706430E+01
- PKER_RACCS ( 29, 6) = 0.579212E+01
- PKER_RACCS ( 29, 7) = 0.473855E+01
- PKER_RACCS ( 29, 8) = 0.386591E+01
- PKER_RACCS ( 29, 9) = 0.314299E+01
- PKER_RACCS ( 29, 10) = 0.254395E+01
- PKER_RACCS ( 29, 11) = 0.204738E+01
- PKER_RACCS ( 29, 12) = 0.163556E+01
- PKER_RACCS ( 29, 13) = 0.129383E+01
- PKER_RACCS ( 29, 14) = 0.101007E+01
- PKER_RACCS ( 29, 15) = 0.774394E+00
- PKER_RACCS ( 29, 16) = 0.579032E+00
- PKER_RACCS ( 29, 17) = 0.418516E+00
- PKER_RACCS ( 29, 18) = 0.290262E+00
- PKER_RACCS ( 29, 19) = 0.194914E+00
- PKER_RACCS ( 29, 20) = 0.134958E+00
- PKER_RACCS ( 29, 21) = 0.111247E+00
- PKER_RACCS ( 29, 22) = 0.118691E+00
- PKER_RACCS ( 29, 23) = 0.146181E+00
- PKER_RACCS ( 29, 24) = 0.181396E+00
- PKER_RACCS ( 29, 25) = 0.215756E+00
- PKER_RACCS ( 29, 26) = 0.245535E+00
- PKER_RACCS ( 29, 27) = 0.270155E+00
- PKER_RACCS ( 29, 28) = 0.290229E+00
- PKER_RACCS ( 29, 29) = 0.306555E+00
- PKER_RACCS ( 29, 30) = 0.319836E+00
- PKER_RACCS ( 29, 31) = 0.330648E+00
- PKER_RACCS ( 29, 32) = 0.339462E+00
- PKER_RACCS ( 29, 33) = 0.346655E+00
- PKER_RACCS ( 29, 34) = 0.352533E+00
- PKER_RACCS ( 29, 35) = 0.357343E+00
- PKER_RACCS ( 29, 36) = 0.361282E+00
- PKER_RACCS ( 29, 37) = 0.364512E+00
- PKER_RACCS ( 29, 38) = 0.367163E+00
- PKER_RACCS ( 29, 39) = 0.369340E+00
- PKER_RACCS ( 29, 40) = 0.371129E+00
- PKER_RACCS ( 30, 1) = 0.154257E+02
- PKER_RACCS ( 30, 2) = 0.127194E+02
- PKER_RACCS ( 30, 3) = 0.104788E+02
- PKER_RACCS ( 30, 4) = 0.862370E+01
- PKER_RACCS ( 30, 5) = 0.708771E+01
- PKER_RACCS ( 30, 6) = 0.581587E+01
- PKER_RACCS ( 30, 7) = 0.476266E+01
- PKER_RACCS ( 30, 8) = 0.389043E+01
- PKER_RACCS ( 30, 9) = 0.316795E+01
- PKER_RACCS ( 30, 10) = 0.256941E+01
- PKER_RACCS ( 30, 11) = 0.207340E+01
- PKER_RACCS ( 30, 12) = 0.166220E+01
- PKER_RACCS ( 30, 13) = 0.132114E+01
- PKER_RACCS ( 30, 14) = 0.103807E+01
- PKER_RACCS ( 30, 15) = 0.803030E+00
- PKER_RACCS ( 30, 16) = 0.607970E+00
- PKER_RACCS ( 30, 17) = 0.446859E+00
- PKER_RACCS ( 30, 18) = 0.316050E+00
- PKER_RACCS ( 30, 19) = 0.214747E+00
- PKER_RACCS ( 30, 20) = 0.144869E+00
- PKER_RACCS ( 30, 21) = 0.108490E+00
- PKER_RACCS ( 30, 22) = 0.103788E+00
- PKER_RACCS ( 30, 23) = 0.122733E+00
- PKER_RACCS ( 30, 24) = 0.153869E+00
- PKER_RACCS ( 30, 25) = 0.187267E+00
- PKER_RACCS ( 30, 26) = 0.217494E+00
- PKER_RACCS ( 30, 27) = 0.242915E+00
- PKER_RACCS ( 30, 28) = 0.263753E+00
- PKER_RACCS ( 30, 29) = 0.280725E+00
- PKER_RACCS ( 30, 30) = 0.294528E+00
- PKER_RACCS ( 30, 31) = 0.305756E+00
- PKER_RACCS ( 30, 32) = 0.314894E+00
- PKER_RACCS ( 30, 33) = 0.322340E+00
- PKER_RACCS ( 30, 34) = 0.328414E+00
- PKER_RACCS ( 30, 35) = 0.333374E+00
- PKER_RACCS ( 30, 36) = 0.337431E+00
- PKER_RACCS ( 30, 37) = 0.340751E+00
- PKER_RACCS ( 30, 38) = 0.343472E+00
- PKER_RACCS ( 30, 39) = 0.345703E+00
- PKER_RACCS ( 30, 40) = 0.347534E+00
- PKER_RACCS ( 31, 1) = 0.154460E+02
- PKER_RACCS ( 31, 2) = 0.127399E+02
- PKER_RACCS ( 31, 3) = 0.104995E+02
- PKER_RACCS ( 31, 4) = 0.864461E+01
- PKER_RACCS ( 31, 5) = 0.710885E+01
- PKER_RACCS ( 31, 6) = 0.583727E+01
- PKER_RACCS ( 31, 7) = 0.478435E+01
- PKER_RACCS ( 31, 8) = 0.391243E+01
- PKER_RACCS ( 31, 9) = 0.319031E+01
- PKER_RACCS ( 31, 10) = 0.259216E+01
- PKER_RACCS ( 31, 11) = 0.209658E+01
- PKER_RACCS ( 31, 12) = 0.168588E+01
- PKER_RACCS ( 31, 13) = 0.134536E+01
- PKER_RACCS ( 31, 14) = 0.106288E+01
- PKER_RACCS ( 31, 15) = 0.828426E+00
- PKER_RACCS ( 31, 16) = 0.633811E+00
- PKER_RACCS ( 31, 17) = 0.472627E+00
- PKER_RACCS ( 31, 18) = 0.340455E+00
- PKER_RACCS ( 31, 19) = 0.235395E+00
- PKER_RACCS ( 31, 20) = 0.158197E+00
- PKER_RACCS ( 31, 21) = 0.111047E+00
- PKER_RACCS ( 31, 22) = 0.944902E-01
- PKER_RACCS ( 31, 23) = 0.103740E+00
- PKER_RACCS ( 31, 24) = 0.129188E+00
- PKER_RACCS ( 31, 25) = 0.160505E+00
- PKER_RACCS ( 31, 26) = 0.190663E+00
- PKER_RACCS ( 31, 27) = 0.216732E+00
- PKER_RACCS ( 31, 28) = 0.238325E+00
- PKER_RACCS ( 31, 29) = 0.255978E+00
- PKER_RACCS ( 31, 30) = 0.270357E+00
- PKER_RACCS ( 31, 31) = 0.282055E+00
- PKER_RACCS ( 31, 32) = 0.291568E+00
- PKER_RACCS ( 31, 33) = 0.299310E+00
- PKER_RACCS ( 31, 34) = 0.305614E+00
- PKER_RACCS ( 31, 35) = 0.310754E+00
- PKER_RACCS ( 31, 36) = 0.314949E+00
- PKER_RACCS ( 31, 37) = 0.318377E+00
- PKER_RACCS ( 31, 38) = 0.321181E+00
- PKER_RACCS ( 31, 39) = 0.323477E+00
- PKER_RACCS ( 31, 40) = 0.325358E+00
- PKER_RACCS ( 32, 1) = 0.154645E+02
- PKER_RACCS ( 32, 2) = 0.127586E+02
- PKER_RACCS ( 32, 3) = 0.105183E+02
- PKER_RACCS ( 32, 4) = 0.866361E+01
- PKER_RACCS ( 32, 5) = 0.712804E+01
- PKER_RACCS ( 32, 6) = 0.585666E+01
- PKER_RACCS ( 32, 7) = 0.480396E+01
- PKER_RACCS ( 32, 8) = 0.393229E+01
- PKER_RACCS ( 32, 9) = 0.321044E+01
- PKER_RACCS ( 32, 10) = 0.261259E+01
- PKER_RACCS ( 32, 11) = 0.211736E+01
- PKER_RACCS ( 32, 12) = 0.170704E+01
- PKER_RACCS ( 32, 13) = 0.136696E+01
- PKER_RACCS ( 32, 14) = 0.108496E+01
- PKER_RACCS ( 32, 15) = 0.851011E+00
- PKER_RACCS ( 32, 16) = 0.656851E+00
- PKER_RACCS ( 32, 17) = 0.495858E+00
- PKER_RACCS ( 32, 18) = 0.363104E+00
- PKER_RACCS ( 32, 19) = 0.255729E+00
- PKER_RACCS ( 32, 20) = 0.173391E+00
- PKER_RACCS ( 32, 21) = 0.117751E+00
- PKER_RACCS ( 32, 22) = 0.904719E-01
- PKER_RACCS ( 32, 23) = 0.895825E-01
- PKER_RACCS ( 32, 24) = 0.107971E+00
- PKER_RACCS ( 32, 25) = 0.135888E+00
- PKER_RACCS ( 32, 26) = 0.165226E+00
- PKER_RACCS ( 32, 27) = 0.191642E+00
- PKER_RACCS ( 32, 28) = 0.213902E+00
- PKER_RACCS ( 32, 29) = 0.232232E+00
- PKER_RACCS ( 32, 30) = 0.247217E+00
- PKER_RACCS ( 32, 31) = 0.259430E+00
- PKER_RACCS ( 32, 32) = 0.269367E+00
- PKER_RACCS ( 32, 33) = 0.277448E+00
- PKER_RACCS ( 32, 34) = 0.284022E+00
- PKER_RACCS ( 32, 35) = 0.289372E+00
- PKER_RACCS ( 32, 36) = 0.293732E+00
- PKER_RACCS ( 32, 37) = 0.297288E+00
- PKER_RACCS ( 32, 38) = 0.300191E+00
- PKER_RACCS ( 32, 39) = 0.302565E+00
- PKER_RACCS ( 32, 40) = 0.304507E+00
- PKER_RACCS ( 33, 1) = 0.154815E+02
- PKER_RACCS ( 33, 2) = 0.127757E+02
- PKER_RACCS ( 33, 3) = 0.105355E+02
- PKER_RACCS ( 33, 4) = 0.868096E+01
- PKER_RACCS ( 33, 5) = 0.714554E+01
- PKER_RACCS ( 33, 6) = 0.587431E+01
- PKER_RACCS ( 33, 7) = 0.482179E+01
- PKER_RACCS ( 33, 8) = 0.395030E+01
- PKER_RACCS ( 33, 9) = 0.322867E+01
- PKER_RACCS ( 33, 10) = 0.263106E+01
- PKER_RACCS ( 33, 11) = 0.213609E+01
- PKER_RACCS ( 33, 12) = 0.172607E+01
- PKER_RACCS ( 33, 13) = 0.138633E+01
- PKER_RACCS ( 33, 14) = 0.110471E+01
- PKER_RACCS ( 33, 15) = 0.871183E+00
- PKER_RACCS ( 33, 16) = 0.677438E+00
- PKER_RACCS ( 33, 17) = 0.516731E+00
- PKER_RACCS ( 33, 18) = 0.383819E+00
- PKER_RACCS ( 33, 19) = 0.275185E+00
- PKER_RACCS ( 33, 20) = 0.189408E+00
- PKER_RACCS ( 33, 21) = 0.127387E+00
- PKER_RACCS ( 33, 22) = 0.909968E-01
- PKER_RACCS ( 33, 23) = 0.802651E-01
- PKER_RACCS ( 33, 24) = 0.906465E-01
- PKER_RACCS ( 33, 25) = 0.113901E+00
- PKER_RACCS ( 33, 26) = 0.141477E+00
- PKER_RACCS ( 33, 27) = 0.167764E+00
- PKER_RACCS ( 33, 28) = 0.190502E+00
- PKER_RACCS ( 33, 29) = 0.209445E+00
- PKER_RACCS ( 33, 30) = 0.225030E+00
- PKER_RACCS ( 33, 31) = 0.237783E+00
- PKER_RACCS ( 33, 32) = 0.248183E+00
- PKER_RACCS ( 33, 33) = 0.256648E+00
- PKER_RACCS ( 33, 34) = 0.263530E+00
- PKER_RACCS ( 33, 35) = 0.269127E+00
- PKER_RACCS ( 33, 36) = 0.273680E+00
- PKER_RACCS ( 33, 37) = 0.277387E+00
- PKER_RACCS ( 33, 38) = 0.280409E+00
- PKER_RACCS ( 33, 39) = 0.282874E+00
- PKER_RACCS ( 33, 40) = 0.284888E+00
- PKER_RACCS ( 34, 1) = 0.154971E+02
- PKER_RACCS ( 34, 2) = 0.127914E+02
- PKER_RACCS ( 34, 3) = 0.105513E+02
- PKER_RACCS ( 34, 4) = 0.869687E+01
- PKER_RACCS ( 34, 5) = 0.716155E+01
- PKER_RACCS ( 34, 6) = 0.589045E+01
- PKER_RACCS ( 34, 7) = 0.483806E+01
- PKER_RACCS ( 34, 8) = 0.396672E+01
- PKER_RACCS ( 34, 9) = 0.324525E+01
- PKER_RACCS ( 34, 10) = 0.264782E+01
- PKER_RACCS ( 34, 11) = 0.215307E+01
- PKER_RACCS ( 34, 12) = 0.174328E+01
- PKER_RACCS ( 34, 13) = 0.140380E+01
- PKER_RACCS ( 34, 14) = 0.112249E+01
- PKER_RACCS ( 34, 15) = 0.889288E+00
- PKER_RACCS ( 34, 16) = 0.695896E+00
- PKER_RACCS ( 34, 17) = 0.535492E+00
- PKER_RACCS ( 34, 18) = 0.402635E+00
- PKER_RACCS ( 34, 19) = 0.293345E+00
- PKER_RACCS ( 34, 20) = 0.205473E+00
- PKER_RACCS ( 34, 21) = 0.138918E+00
- PKER_RACCS ( 34, 22) = 0.951741E-01
- PKER_RACCS ( 34, 23) = 0.754374E-01
- PKER_RACCS ( 34, 24) = 0.774875E-01
- PKER_RACCS ( 34, 25) = 0.949890E-01
- PKER_RACCS ( 34, 26) = 0.119774E+00
- PKER_RACCS ( 34, 27) = 0.145296E+00
- PKER_RACCS ( 34, 28) = 0.168211E+00
- PKER_RACCS ( 34, 29) = 0.187630E+00
- PKER_RACCS ( 34, 30) = 0.203759E+00
- PKER_RACCS ( 34, 31) = 0.217043E+00
- PKER_RACCS ( 34, 32) = 0.227927E+00
- PKER_RACCS ( 34, 33) = 0.236809E+00
- PKER_RACCS ( 34, 34) = 0.244039E+00
- PKER_RACCS ( 34, 35) = 0.249918E+00
- PKER_RACCS ( 34, 36) = 0.254696E+00
- PKER_RACCS ( 34, 37) = 0.258581E+00
- PKER_RACCS ( 34, 38) = 0.261742E+00
- PKER_RACCS ( 34, 39) = 0.264317E+00
- PKER_RACCS ( 34, 40) = 0.266416E+00
- PKER_RACCS ( 35, 1) = 0.155115E+02
- PKER_RACCS ( 35, 2) = 0.128058E+02
- PKER_RACCS ( 35, 3) = 0.105659E+02
- PKER_RACCS ( 35, 4) = 0.871149E+01
- PKER_RACCS ( 35, 5) = 0.717627E+01
- PKER_RACCS ( 35, 6) = 0.590526E+01
- PKER_RACCS ( 35, 7) = 0.485298E+01
- PKER_RACCS ( 35, 8) = 0.398175E+01
- PKER_RACCS ( 35, 9) = 0.326040E+01
- PKER_RACCS ( 35, 10) = 0.266312E+01
- PKER_RACCS ( 35, 11) = 0.216852E+01
- PKER_RACCS ( 35, 12) = 0.175891E+01
- PKER_RACCS ( 35, 13) = 0.141964E+01
- PKER_RACCS ( 35, 14) = 0.113856E+01
- PKER_RACCS ( 35, 15) = 0.905624E+00
- PKER_RACCS ( 35, 16) = 0.712519E+00
- PKER_RACCS ( 35, 17) = 0.552390E+00
- PKER_RACCS ( 35, 18) = 0.419682E+00
- PKER_RACCS ( 35, 19) = 0.310127E+00
- PKER_RACCS ( 35, 20) = 0.220956E+00
- PKER_RACCS ( 35, 21) = 0.151287E+00
- PKER_RACCS ( 35, 22) = 0.101963E+00
- PKER_RACCS ( 35, 23) = 0.745072E-01
- PKER_RACCS ( 35, 24) = 0.684396E-01
- PKER_RACCS ( 35, 25) = 0.794810E-01
- PKER_RACCS ( 35, 26) = 0.100476E+00
- PKER_RACCS ( 35, 27) = 0.124496E+00
- PKER_RACCS ( 35, 28) = 0.147175E+00
- PKER_RACCS ( 35, 29) = 0.166857E+00
- PKER_RACCS ( 35, 30) = 0.183413E+00
- PKER_RACCS ( 35, 31) = 0.197175E+00
- PKER_RACCS ( 35, 32) = 0.208532E+00
- PKER_RACCS ( 35, 33) = 0.217848E+00
- PKER_RACCS ( 35, 34) = 0.225456E+00
- PKER_RACCS ( 35, 35) = 0.231651E+00
- PKER_RACCS ( 35, 36) = 0.236687E+00
- PKER_RACCS ( 35, 37) = 0.240779E+00
- PKER_RACCS ( 35, 38) = 0.244104E+00
- PKER_RACCS ( 35, 39) = 0.246808E+00
- PKER_RACCS ( 35, 40) = 0.249007E+00
- PKER_RACCS ( 36, 1) = 0.155248E+02
- PKER_RACCS ( 36, 2) = 0.128192E+02
- PKER_RACCS ( 36, 3) = 0.105793E+02
- PKER_RACCS ( 36, 4) = 0.872498E+01
- PKER_RACCS ( 36, 5) = 0.718982E+01
- PKER_RACCS ( 36, 6) = 0.591889E+01
- PKER_RACCS ( 36, 7) = 0.486669E+01
- PKER_RACCS ( 36, 8) = 0.399555E+01
- PKER_RACCS ( 36, 9) = 0.327430E+01
- PKER_RACCS ( 36, 10) = 0.267713E+01
- PKER_RACCS ( 36, 11) = 0.218265E+01
- PKER_RACCS ( 36, 12) = 0.177318E+01
- PKER_RACCS ( 36, 13) = 0.143407E+01
- PKER_RACCS ( 36, 14) = 0.115317E+01
- PKER_RACCS ( 36, 15) = 0.920438E+00
- PKER_RACCS ( 36, 16) = 0.727562E+00
- PKER_RACCS ( 36, 17) = 0.567668E+00
- PKER_RACCS ( 36, 18) = 0.435133E+00
- PKER_RACCS ( 36, 19) = 0.325510E+00
- PKER_RACCS ( 36, 20) = 0.235636E+00
- PKER_RACCS ( 36, 21) = 0.163886E+00
- PKER_RACCS ( 36, 22) = 0.110458E+00
- PKER_RACCS ( 36, 23) = 0.766826E-01
- PKER_RACCS ( 36, 24) = 0.631683E-01
- PKER_RACCS ( 36, 25) = 0.674487E-01
- PKER_RACCS ( 36, 26) = 0.838666E-01
- PKER_RACCS ( 36, 27) = 0.105624E+00
- PKER_RACCS ( 36, 28) = 0.127576E+00
- PKER_RACCS ( 36, 29) = 0.147242E+00
- PKER_RACCS ( 36, 30) = 0.164054E+00
- PKER_RACCS ( 36, 31) = 0.178188E+00
- PKER_RACCS ( 36, 32) = 0.189965E+00
- PKER_RACCS ( 36, 33) = 0.199703E+00
- PKER_RACCS ( 36, 34) = 0.207702E+00
- PKER_RACCS ( 36, 35) = 0.214240E+00
- PKER_RACCS ( 36, 36) = 0.219565E+00
- PKER_RACCS ( 36, 37) = 0.223893E+00
- PKER_RACCS ( 36, 38) = 0.227409E+00
- PKER_RACCS ( 36, 39) = 0.230264E+00
- PKER_RACCS ( 36, 40) = 0.232583E+00
- PKER_RACCS ( 37, 1) = 0.155372E+02
- PKER_RACCS ( 37, 2) = 0.128316E+02
- PKER_RACCS ( 37, 3) = 0.105917E+02
- PKER_RACCS ( 37, 4) = 0.873745E+01
- PKER_RACCS ( 37, 5) = 0.720235E+01
- PKER_RACCS ( 37, 6) = 0.593147E+01
- PKER_RACCS ( 37, 7) = 0.487933E+01
- PKER_RACCS ( 37, 8) = 0.400827E+01
- PKER_RACCS ( 37, 9) = 0.328710E+01
- PKER_RACCS ( 37, 10) = 0.269001E+01
- PKER_RACCS ( 37, 11) = 0.219563E+01
- PKER_RACCS ( 37, 12) = 0.178626E+01
- PKER_RACCS ( 37, 13) = 0.144727E+01
- PKER_RACCS ( 37, 14) = 0.116651E+01
- PKER_RACCS ( 37, 15) = 0.933935E+00
- PKER_RACCS ( 37, 16) = 0.741238E+00
- PKER_RACCS ( 37, 17) = 0.581536E+00
- PKER_RACCS ( 37, 18) = 0.449170E+00
- PKER_RACCS ( 37, 19) = 0.339580E+00
- PKER_RACCS ( 37, 20) = 0.249319E+00
- PKER_RACCS ( 37, 21) = 0.176301E+00
- PKER_RACCS ( 37, 22) = 0.119980E+00
- PKER_RACCS ( 37, 23) = 0.812228E-01
- PKER_RACCS ( 37, 24) = 0.611617E-01
- PKER_RACCS ( 37, 25) = 0.588377E-01
- PKER_RACCS ( 37, 26) = 0.701370E-01
- PKER_RACCS ( 37, 27) = 0.889143E-01
- PKER_RACCS ( 37, 28) = 0.109599E+00
- PKER_RACCS ( 37, 29) = 0.128927E+00
- PKER_RACCS ( 37, 30) = 0.145782E+00
- PKER_RACCS ( 37, 31) = 0.160136E+00
- PKER_RACCS ( 37, 32) = 0.172235E+00
- PKER_RACCS ( 37, 33) = 0.182345E+00
- PKER_RACCS ( 37, 34) = 0.190722E+00
- PKER_RACCS ( 37, 35) = 0.197614E+00
- PKER_RACCS ( 37, 36) = 0.203250E+00
- PKER_RACCS ( 37, 37) = 0.207843E+00
- PKER_RACCS ( 37, 38) = 0.211576E+00
- PKER_RACCS ( 37, 39) = 0.214606E+00
- PKER_RACCS ( 37, 40) = 0.217065E+00
- PKER_RACCS ( 38, 1) = 0.155486E+02
- PKER_RACCS ( 38, 2) = 0.128431E+02
- PKER_RACCS ( 38, 3) = 0.106033E+02
- PKER_RACCS ( 38, 4) = 0.874901E+01
- PKER_RACCS ( 38, 5) = 0.721394E+01
- PKER_RACCS ( 38, 6) = 0.594312E+01
- PKER_RACCS ( 38, 7) = 0.489103E+01
- PKER_RACCS ( 38, 8) = 0.402001E+01
- PKER_RACCS ( 38, 9) = 0.329890E+01
- PKER_RACCS ( 38, 10) = 0.270188E+01
- PKER_RACCS ( 38, 11) = 0.220757E+01
- PKER_RACCS ( 38, 12) = 0.179829E+01
- PKER_RACCS ( 38, 13) = 0.145939E+01
- PKER_RACCS ( 38, 14) = 0.117873E+01
- PKER_RACCS ( 38, 15) = 0.946284E+00
- PKER_RACCS ( 38, 16) = 0.753726E+00
- PKER_RACCS ( 38, 17) = 0.594177E+00
- PKER_RACCS ( 38, 18) = 0.461958E+00
- PKER_RACCS ( 38, 19) = 0.352443E+00
- PKER_RACCS ( 38, 20) = 0.262014E+00
- PKER_RACCS ( 38, 21) = 0.188177E+00
- PKER_RACCS ( 38, 22) = 0.129859E+00
- PKER_RACCS ( 38, 23) = 0.873684E-01
- PKER_RACCS ( 38, 24) = 0.618482E-01
- PKER_RACCS ( 38, 25) = 0.533670E-01
- PKER_RACCS ( 38, 26) = 0.593061E-01
- PKER_RACCS ( 38, 27) = 0.745116E-01
- PKER_RACCS ( 38, 28) = 0.934019E-01
- PKER_RACCS ( 38, 29) = 0.112045E+00
- PKER_RACCS ( 38, 30) = 0.128716E+00
- PKER_RACCS ( 38, 31) = 0.143109E+00
- PKER_RACCS ( 38, 32) = 0.155390E+00
- PKER_RACCS ( 38, 33) = 0.165779E+00
- PKER_RACCS ( 38, 34) = 0.174487E+00
- PKER_RACCS ( 38, 35) = 0.181718E+00
- PKER_RACCS ( 38, 36) = 0.187676E+00
- PKER_RACCS ( 38, 37) = 0.192553E+00
- PKER_RACCS ( 38, 38) = 0.196528E+00
- PKER_RACCS ( 38, 39) = 0.199758E+00
- PKER_RACCS ( 38, 40) = 0.202379E+00
- PKER_RACCS ( 39, 1) = 0.155593E+02
- PKER_RACCS ( 39, 2) = 0.128537E+02
- PKER_RACCS ( 39, 3) = 0.106139E+02
- PKER_RACCS ( 39, 4) = 0.875973E+01
- PKER_RACCS ( 39, 5) = 0.722471E+01
- PKER_RACCS ( 39, 6) = 0.595391E+01
- PKER_RACCS ( 39, 7) = 0.490186E+01
- PKER_RACCS ( 39, 8) = 0.403089E+01
- PKER_RACCS ( 39, 9) = 0.330982E+01
- PKER_RACCS ( 39, 10) = 0.271285E+01
- PKER_RACCS ( 39, 11) = 0.221860E+01
- PKER_RACCS ( 39, 12) = 0.180938E+01
- PKER_RACCS ( 39, 13) = 0.147055E+01
- PKER_RACCS ( 39, 14) = 0.118998E+01
- PKER_RACCS ( 39, 15) = 0.957626E+00
- PKER_RACCS ( 39, 16) = 0.765175E+00
- PKER_RACCS ( 39, 17) = 0.605746E+00
- PKER_RACCS ( 39, 18) = 0.473650E+00
- PKER_RACCS ( 39, 19) = 0.364221E+00
- PKER_RACCS ( 39, 20) = 0.273730E+00
- PKER_RACCS ( 39, 21) = 0.199436E+00
- PKER_RACCS ( 39, 22) = 0.139756E+00
- PKER_RACCS ( 39, 23) = 0.945196E-01
- PKER_RACCS ( 39, 24) = 0.645897E-01
- PKER_RACCS ( 39, 25) = 0.506197E-01
- PKER_RACCS ( 39, 26) = 0.512198E-01
- PKER_RACCS ( 39, 27) = 0.624590E-01
- PKER_RACCS ( 39, 28) = 0.790782E-01
- PKER_RACCS ( 39, 29) = 0.966942E-01
- PKER_RACCS ( 39, 30) = 0.112959E+00
- PKER_RACCS ( 39, 31) = 0.127212E+00
- PKER_RACCS ( 39, 32) = 0.139513E+00
- PKER_RACCS ( 39, 33) = 0.150051E+00
- PKER_RACCS ( 39, 34) = 0.159002E+00
- PKER_RACCS ( 39, 35) = 0.166528E+00
- PKER_RACCS ( 39, 36) = 0.172792E+00
- PKER_RACCS ( 39, 37) = 0.177962E+00
- PKER_RACCS ( 39, 38) = 0.182197E+00
- PKER_RACCS ( 39, 39) = 0.185650E+00
- PKER_RACCS ( 39, 40) = 0.188455E+00
- PKER_RACCS ( 40, 1) = 0.155692E+02
- PKER_RACCS ( 40, 2) = 0.128637E+02
- PKER_RACCS ( 40, 3) = 0.106239E+02
- PKER_RACCS ( 40, 4) = 0.876971E+01
- PKER_RACCS ( 40, 5) = 0.723471E+01
- PKER_RACCS ( 40, 6) = 0.596394E+01
- PKER_RACCS ( 40, 7) = 0.491192E+01
- PKER_RACCS ( 40, 8) = 0.404098E+01
- PKER_RACCS ( 40, 9) = 0.331995E+01
- PKER_RACCS ( 40, 10) = 0.272302E+01
- PKER_RACCS ( 40, 11) = 0.222881E+01
- PKER_RACCS ( 40, 12) = 0.181964E+01
- PKER_RACCS ( 40, 13) = 0.148087E+01
- PKER_RACCS ( 40, 14) = 0.120036E+01
- PKER_RACCS ( 40, 15) = 0.968076E+00
- PKER_RACCS ( 40, 16) = 0.775708E+00
- PKER_RACCS ( 40, 17) = 0.616371E+00
- PKER_RACCS ( 40, 18) = 0.484375E+00
- PKER_RACCS ( 40, 19) = 0.375030E+00
- PKER_RACCS ( 40, 20) = 0.284536E+00
- PKER_RACCS ( 40, 21) = 0.209971E+00
- PKER_RACCS ( 40, 22) = 0.149448E+00
- PKER_RACCS ( 40, 23) = 0.102257E+00
- PKER_RACCS ( 40, 24) = 0.688589E-01
- PKER_RACCS ( 40, 25) = 0.501439E-01
- PKER_RACCS ( 40, 26) = 0.457017E-01
- PKER_RACCS ( 40, 27) = 0.527560E-01
- PKER_RACCS ( 40, 28) = 0.666825E-01
- PKER_RACCS ( 40, 29) = 0.829271E-01
- PKER_RACCS ( 40, 30) = 0.985768E-01
- PKER_RACCS ( 40, 31) = 0.112531E+00
- PKER_RACCS ( 40, 32) = 0.124696E+00
- PKER_RACCS ( 40, 33) = 0.135236E+00
- PKER_RACCS ( 40, 34) = 0.144309E+00
- PKER_RACCS ( 40, 35) = 0.152047E+00
- PKER_RACCS ( 40, 36) = 0.158575E+00
- PKER_RACCS ( 40, 37) = 0.164022E+00
- PKER_RACCS ( 40, 38) = 0.168524E+00
- PKER_RACCS ( 40, 39) = 0.172216E+00
- PKER_RACCS ( 40, 40) = 0.175226E+00
+ PKER_RACCS ( 1, 1) = 0.134090E+02
+ PKER_RACCS ( 1, 2) = 0.107054E+02
+ PKER_RACCS ( 1, 3) = 0.848758E+01
+ PKER_RACCS ( 1, 4) = 0.667572E+01
+ PKER_RACCS ( 1, 5) = 0.520148E+01
+ PKER_RACCS ( 1, 6) = 0.400614E+01
+ PKER_RACCS ( 1, 7) = 0.303972E+01
+ PKER_RACCS ( 1, 8) = 0.226095E+01
+ PKER_RACCS ( 1, 9) = 0.163780E+01
+ PKER_RACCS ( 1, 10) = 0.114830E+01
+ PKER_RACCS ( 1, 11) = 0.781080E+00
+ PKER_RACCS ( 1, 12) = 0.532395E+00
+ PKER_RACCS ( 1, 13) = 0.400156E+00
+ PKER_RACCS ( 1, 14) = 0.373377E+00
+ PKER_RACCS ( 1, 15) = 0.425455E+00
+ PKER_RACCS ( 1, 16) = 0.520485E+00
+ PKER_RACCS ( 1, 17) = 0.626549E+00
+ PKER_RACCS ( 1, 18) = 0.724954E+00
+ PKER_RACCS ( 1, 19) = 0.809321E+00
+ PKER_RACCS ( 1, 20) = 0.879615E+00
+ PKER_RACCS ( 1, 21) = 0.937740E+00
+ PKER_RACCS ( 1, 22) = 0.985750E+00
+ PKER_RACCS ( 1, 23) = 0.102541E+01
+ PKER_RACCS ( 1, 24) = 0.105819E+01
+ PKER_RACCS ( 1, 25) = 0.108529E+01
+ PKER_RACCS ( 1, 26) = 0.110769E+01
+ PKER_RACCS ( 1, 27) = 0.112622E+01
+ PKER_RACCS ( 1, 28) = 0.114154E+01
+ PKER_RACCS ( 1, 29) = 0.115421E+01
+ PKER_RACCS ( 1, 30) = 0.116470E+01
+ PKER_RACCS ( 1, 31) = 0.117337E+01
+ PKER_RACCS ( 1, 32) = 0.118055E+01
+ PKER_RACCS ( 1, 33) = 0.118649E+01
+ PKER_RACCS ( 1, 34) = 0.119140E+01
+ PKER_RACCS ( 1, 35) = 0.119547E+01
+ PKER_RACCS ( 1, 36) = 0.119883E+01
+ PKER_RACCS ( 1, 37) = 0.120161E+01
+ PKER_RACCS ( 1, 38) = 0.120392E+01
+ PKER_RACCS ( 1, 39) = 0.120583E+01
+ PKER_RACCS ( 1, 40) = 0.120740E+01
+ PKER_RACCS ( 2, 1) = 0.135845E+02
+ PKER_RACCS ( 2, 2) = 0.108701E+02
+ PKER_RACCS ( 2, 3) = 0.863825E+01
+ PKER_RACCS ( 2, 4) = 0.681034E+01
+ PKER_RACCS ( 2, 5) = 0.531940E+01
+ PKER_RACCS ( 2, 6) = 0.410813E+01
+ PKER_RACCS ( 2, 7) = 0.312741E+01
+ PKER_RACCS ( 2, 8) = 0.233617E+01
+ PKER_RACCS ( 2, 9) = 0.170177E+01
+ PKER_RACCS ( 2, 10) = 0.120095E+01
+ PKER_RACCS ( 2, 11) = 0.820350E+00
+ PKER_RACCS ( 2, 12) = 0.555260E+00
+ PKER_RACCS ( 2, 13) = 0.404118E+00
+ PKER_RACCS ( 2, 14) = 0.358108E+00
+ PKER_RACCS ( 2, 15) = 0.395253E+00
+ PKER_RACCS ( 2, 16) = 0.481228E+00
+ PKER_RACCS ( 2, 17) = 0.583293E+00
+ PKER_RACCS ( 2, 18) = 0.680545E+00
+ PKER_RACCS ( 2, 19) = 0.764818E+00
+ PKER_RACCS ( 2, 20) = 0.835258E+00
+ PKER_RACCS ( 2, 21) = 0.893531E+00
+ PKER_RACCS ( 2, 22) = 0.941654E+00
+ PKER_RACCS ( 2, 23) = 0.981400E+00
+ PKER_RACCS ( 2, 24) = 0.101424E+01
+ PKER_RACCS ( 2, 25) = 0.104138E+01
+ PKER_RACCS ( 2, 26) = 0.106382E+01
+ PKER_RACCS ( 2, 27) = 0.108237E+01
+ PKER_RACCS ( 2, 28) = 0.109771E+01
+ PKER_RACCS ( 2, 29) = 0.111040E+01
+ PKER_RACCS ( 2, 30) = 0.112090E+01
+ PKER_RACCS ( 2, 31) = 0.112958E+01
+ PKER_RACCS ( 2, 32) = 0.113676E+01
+ PKER_RACCS ( 2, 33) = 0.114271E+01
+ PKER_RACCS ( 2, 34) = 0.114763E+01
+ PKER_RACCS ( 2, 35) = 0.115169E+01
+ PKER_RACCS ( 2, 36) = 0.115506E+01
+ PKER_RACCS ( 2, 37) = 0.115785E+01
+ PKER_RACCS ( 2, 38) = 0.116015E+01
+ PKER_RACCS ( 2, 39) = 0.116206E+01
+ PKER_RACCS ( 2, 40) = 0.116364E+01
+ PKER_RACCS ( 3, 1) = 0.137492E+02
+ PKER_RACCS ( 3, 2) = 0.110270E+02
+ PKER_RACCS ( 3, 3) = 0.878421E+01
+ PKER_RACCS ( 3, 4) = 0.694285E+01
+ PKER_RACCS ( 3, 5) = 0.543713E+01
+ PKER_RACCS ( 3, 6) = 0.421101E+01
+ PKER_RACCS ( 3, 7) = 0.321643E+01
+ PKER_RACCS ( 3, 8) = 0.241279E+01
+ PKER_RACCS ( 3, 9) = 0.176719E+01
+ PKER_RACCS ( 3, 10) = 0.125524E+01
+ PKER_RACCS ( 3, 11) = 0.862079E+00
+ PKER_RACCS ( 3, 12) = 0.581603E+00
+ PKER_RACCS ( 3, 13) = 0.411935E+00
+ PKER_RACCS ( 3, 14) = 0.347397E+00
+ PKER_RACCS ( 3, 15) = 0.368639E+00
+ PKER_RACCS ( 3, 16) = 0.444572E+00
+ PKER_RACCS ( 3, 17) = 0.541961E+00
+ PKER_RACCS ( 3, 18) = 0.637738E+00
+ PKER_RACCS ( 3, 19) = 0.721828E+00
+ PKER_RACCS ( 3, 20) = 0.792410E+00
+ PKER_RACCS ( 3, 21) = 0.850846E+00
+ PKER_RACCS ( 3, 22) = 0.899095E+00
+ PKER_RACCS ( 3, 23) = 0.938934E+00
+ PKER_RACCS ( 3, 24) = 0.971843E+00
+ PKER_RACCS ( 3, 25) = 0.999035E+00
+ PKER_RACCS ( 3, 26) = 0.102151E+01
+ PKER_RACCS ( 3, 27) = 0.104009E+01
+ PKER_RACCS ( 3, 28) = 0.105546E+01
+ PKER_RACCS ( 3, 29) = 0.106816E+01
+ PKER_RACCS ( 3, 30) = 0.107867E+01
+ PKER_RACCS ( 3, 31) = 0.108736E+01
+ PKER_RACCS ( 3, 32) = 0.109455E+01
+ PKER_RACCS ( 3, 33) = 0.110050E+01
+ PKER_RACCS ( 3, 34) = 0.110543E+01
+ PKER_RACCS ( 3, 35) = 0.110950E+01
+ PKER_RACCS ( 3, 36) = 0.111287E+01
+ PKER_RACCS ( 3, 37) = 0.111566E+01
+ PKER_RACCS ( 3, 38) = 0.111796E+01
+ PKER_RACCS ( 3, 39) = 0.111987E+01
+ PKER_RACCS ( 3, 40) = 0.112145E+01
+ PKER_RACCS ( 4, 1) = 0.139024E+02
+ PKER_RACCS ( 4, 2) = 0.111751E+02
+ PKER_RACCS ( 4, 3) = 0.892419E+01
+ PKER_RACCS ( 4, 4) = 0.707204E+01
+ PKER_RACCS ( 4, 5) = 0.555365E+01
+ PKER_RACCS ( 4, 6) = 0.431410E+01
+ PKER_RACCS ( 4, 7) = 0.330640E+01
+ PKER_RACCS ( 4, 8) = 0.249065E+01
+ PKER_RACCS ( 4, 9) = 0.183393E+01
+ PKER_RACCS ( 4, 10) = 0.131111E+01
+ PKER_RACCS ( 4, 11) = 0.905886E+00
+ PKER_RACCS ( 4, 12) = 0.610767E+00
+ PKER_RACCS ( 4, 13) = 0.423608E+00
+ PKER_RACCS ( 4, 14) = 0.340343E+00
+ PKER_RACCS ( 4, 15) = 0.345614E+00
+ PKER_RACCS ( 4, 16) = 0.410691E+00
+ PKER_RACCS ( 4, 17) = 0.502602E+00
+ PKER_RACCS ( 4, 18) = 0.596509E+00
+ PKER_RACCS ( 4, 19) = 0.680297E+00
+ PKER_RACCS ( 4, 20) = 0.751009E+00
+ PKER_RACCS ( 4, 21) = 0.809622E+00
+ PKER_RACCS ( 4, 22) = 0.858012E+00
+ PKER_RACCS ( 4, 23) = 0.897956E+00
+ PKER_RACCS ( 4, 24) = 0.930941E+00
+ PKER_RACCS ( 4, 25) = 0.958190E+00
+ PKER_RACCS ( 4, 26) = 0.980708E+00
+ PKER_RACCS ( 4, 27) = 0.999321E+00
+ PKER_RACCS ( 4, 28) = 0.101471E+01
+ PKER_RACCS ( 4, 29) = 0.102743E+01
+ PKER_RACCS ( 4, 30) = 0.103796E+01
+ PKER_RACCS ( 4, 31) = 0.104666E+01
+ PKER_RACCS ( 4, 32) = 0.105386E+01
+ PKER_RACCS ( 4, 33) = 0.105982E+01
+ PKER_RACCS ( 4, 34) = 0.106474E+01
+ PKER_RACCS ( 4, 35) = 0.106882E+01
+ PKER_RACCS ( 4, 36) = 0.107219E+01
+ PKER_RACCS ( 4, 37) = 0.107498E+01
+ PKER_RACCS ( 4, 38) = 0.107729E+01
+ PKER_RACCS ( 4, 39) = 0.107921E+01
+ PKER_RACCS ( 4, 40) = 0.108079E+01
+ PKER_RACCS ( 5, 1) = 0.140440E+02
+ PKER_RACCS ( 5, 2) = 0.113137E+02
+ PKER_RACCS ( 5, 3) = 0.905720E+01
+ PKER_RACCS ( 5, 4) = 0.719677E+01
+ PKER_RACCS ( 5, 5) = 0.566793E+01
+ PKER_RACCS ( 5, 6) = 0.441661E+01
+ PKER_RACCS ( 5, 7) = 0.339684E+01
+ PKER_RACCS ( 5, 8) = 0.256948E+01
+ PKER_RACCS ( 5, 9) = 0.190189E+01
+ PKER_RACCS ( 5, 10) = 0.136848E+01
+ PKER_RACCS ( 5, 11) = 0.951793E+00
+ PKER_RACCS ( 5, 12) = 0.642849E+00
+ PKER_RACCS ( 5, 13) = 0.439293E+00
+ PKER_RACCS ( 5, 14) = 0.337948E+00
+ PKER_RACCS ( 5, 15) = 0.326568E+00
+ PKER_RACCS ( 5, 16) = 0.379708E+00
+ PKER_RACCS ( 5, 17) = 0.465286E+00
+ PKER_RACCS ( 5, 18) = 0.556855E+00
+ PKER_RACCS ( 5, 19) = 0.640174E+00
+ PKER_RACCS ( 5, 20) = 0.710994E+00
+ PKER_RACCS ( 5, 21) = 0.769797E+00
+ PKER_RACCS ( 5, 22) = 0.818345E+00
+ PKER_RACCS ( 5, 23) = 0.858406E+00
+ PKER_RACCS ( 5, 24) = 0.891477E+00
+ PKER_RACCS ( 5, 25) = 0.918790E+00
+ PKER_RACCS ( 5, 26) = 0.941356E+00
+ PKER_RACCS ( 5, 27) = 0.960004E+00
+ PKER_RACCS ( 5, 28) = 0.975420E+00
+ PKER_RACCS ( 5, 29) = 0.988165E+00
+ PKER_RACCS ( 5, 30) = 0.998704E+00
+ PKER_RACCS ( 5, 31) = 0.100742E+01
+ PKER_RACCS ( 5, 32) = 0.101463E+01
+ PKER_RACCS ( 5, 33) = 0.102059E+01
+ PKER_RACCS ( 5, 34) = 0.102552E+01
+ PKER_RACCS ( 5, 35) = 0.102961E+01
+ PKER_RACCS ( 5, 36) = 0.103298E+01
+ PKER_RACCS ( 5, 37) = 0.103578E+01
+ PKER_RACCS ( 5, 38) = 0.103809E+01
+ PKER_RACCS ( 5, 39) = 0.104000E+01
+ PKER_RACCS ( 5, 40) = 0.104158E+01
+ PKER_RACCS ( 6, 1) = 0.141741E+02
+ PKER_RACCS ( 6, 2) = 0.114425E+02
+ PKER_RACCS ( 6, 3) = 0.918249E+01
+ PKER_RACCS ( 6, 4) = 0.731606E+01
+ PKER_RACCS ( 6, 5) = 0.577897E+01
+ PKER_RACCS ( 6, 6) = 0.451770E+01
+ PKER_RACCS ( 6, 7) = 0.348713E+01
+ PKER_RACCS ( 6, 8) = 0.264891E+01
+ PKER_RACCS ( 6, 9) = 0.197088E+01
+ PKER_RACCS ( 6, 10) = 0.142722E+01
+ PKER_RACCS ( 6, 11) = 0.999536E+00
+ PKER_RACCS ( 6, 12) = 0.677714E+00
+ PKER_RACCS ( 6, 13) = 0.458271E+00
+ PKER_RACCS ( 6, 14) = 0.339110E+00
+ PKER_RACCS ( 6, 15) = 0.311017E+00
+ PKER_RACCS ( 6, 16) = 0.351615E+00
+ PKER_RACCS ( 6, 17) = 0.430054E+00
+ PKER_RACCS ( 6, 18) = 0.518766E+00
+ PKER_RACCS ( 6, 19) = 0.601413E+00
+ PKER_RACCS ( 6, 20) = 0.672307E+00
+ PKER_RACCS ( 6, 21) = 0.731313E+00
+ PKER_RACCS ( 6, 22) = 0.780036E+00
+ PKER_RACCS ( 6, 23) = 0.820228E+00
+ PKER_RACCS ( 6, 24) = 0.853395E+00
+ PKER_RACCS ( 6, 25) = 0.880779E+00
+ PKER_RACCS ( 6, 26) = 0.903397E+00
+ PKER_RACCS ( 6, 27) = 0.922086E+00
+ PKER_RACCS ( 6, 28) = 0.937531E+00
+ PKER_RACCS ( 6, 29) = 0.950299E+00
+ PKER_RACCS ( 6, 30) = 0.960856E+00
+ PKER_RACCS ( 6, 31) = 0.969585E+00
+ PKER_RACCS ( 6, 32) = 0.976805E+00
+ PKER_RACCS ( 6, 33) = 0.982776E+00
+ PKER_RACCS ( 6, 34) = 0.987715E+00
+ PKER_RACCS ( 6, 35) = 0.991801E+00
+ PKER_RACCS ( 6, 36) = 0.995181E+00
+ PKER_RACCS ( 6, 37) = 0.997978E+00
+ PKER_RACCS ( 6, 38) = 0.100029E+01
+ PKER_RACCS ( 6, 39) = 0.100221E+01
+ PKER_RACCS ( 6, 40) = 0.100379E+01
+ PKER_RACCS ( 7, 1) = 0.142930E+02
+ PKER_RACCS ( 7, 2) = 0.115615E+02
+ PKER_RACCS ( 7, 3) = 0.929959E+01
+ PKER_RACCS ( 7, 4) = 0.742913E+01
+ PKER_RACCS ( 7, 5) = 0.588584E+01
+ PKER_RACCS ( 7, 6) = 0.461649E+01
+ PKER_RACCS ( 7, 7) = 0.357658E+01
+ PKER_RACCS ( 7, 8) = 0.272850E+01
+ PKER_RACCS ( 7, 9) = 0.204060E+01
+ PKER_RACCS ( 7, 10) = 0.148714E+01
+ PKER_RACCS ( 7, 11) = 0.104908E+01
+ PKER_RACCS ( 7, 12) = 0.714985E+00
+ PKER_RACCS ( 7, 13) = 0.480632E+00
+ PKER_RACCS ( 7, 14) = 0.344490E+00
+ PKER_RACCS ( 7, 15) = 0.299383E+00
+ PKER_RACCS ( 7, 16) = 0.326602E+00
+ PKER_RACCS ( 7, 17) = 0.397018E+00
+ PKER_RACCS ( 7, 18) = 0.482253E+00
+ PKER_RACCS ( 7, 19) = 0.563981E+00
+ PKER_RACCS ( 7, 20) = 0.634892E+00
+ PKER_RACCS ( 7, 21) = 0.694110E+00
+ PKER_RACCS ( 7, 22) = 0.743027E+00
+ PKER_RACCS ( 7, 23) = 0.783365E+00
+ PKER_RACCS ( 7, 24) = 0.816640E+00
+ PKER_RACCS ( 7, 25) = 0.844104E+00
+ PKER_RACCS ( 7, 26) = 0.866781E+00
+ PKER_RACCS ( 7, 27) = 0.885514E+00
+ PKER_RACCS ( 7, 28) = 0.900993E+00
+ PKER_RACCS ( 7, 29) = 0.913787E+00
+ PKER_RACCS ( 7, 30) = 0.924363E+00
+ PKER_RACCS ( 7, 31) = 0.933107E+00
+ PKER_RACCS ( 7, 32) = 0.940338E+00
+ PKER_RACCS ( 7, 33) = 0.946318E+00
+ PKER_RACCS ( 7, 34) = 0.951264E+00
+ PKER_RACCS ( 7, 35) = 0.955355E+00
+ PKER_RACCS ( 7, 36) = 0.958740E+00
+ PKER_RACCS ( 7, 37) = 0.961540E+00
+ PKER_RACCS ( 7, 38) = 0.963856E+00
+ PKER_RACCS ( 7, 39) = 0.965772E+00
+ PKER_RACCS ( 7, 40) = 0.967358E+00
+ PKER_RACCS ( 8, 1) = 0.144015E+02
+ PKER_RACCS ( 8, 2) = 0.116708E+02
+ PKER_RACCS ( 8, 3) = 0.940827E+01
+ PKER_RACCS ( 8, 4) = 0.753543E+01
+ PKER_RACCS ( 8, 5) = 0.598779E+01
+ PKER_RACCS ( 8, 6) = 0.471217E+01
+ PKER_RACCS ( 8, 7) = 0.366448E+01
+ PKER_RACCS ( 8, 8) = 0.280770E+01
+ PKER_RACCS ( 8, 9) = 0.211072E+01
+ PKER_RACCS ( 8, 10) = 0.154800E+01
+ PKER_RACCS ( 8, 11) = 0.110005E+01
+ PKER_RACCS ( 8, 12) = 0.754559E+00
+ PKER_RACCS ( 8, 13) = 0.506188E+00
+ PKER_RACCS ( 8, 14) = 0.353456E+00
+ PKER_RACCS ( 8, 15) = 0.291637E+00
+ PKER_RACCS ( 8, 16) = 0.304698E+00
+ PKER_RACCS ( 8, 17) = 0.366220E+00
+ PKER_RACCS ( 8, 18) = 0.447342E+00
+ PKER_RACCS ( 8, 19) = 0.527850E+00
+ PKER_RACCS ( 8, 20) = 0.598698E+00
+ PKER_RACCS ( 8, 21) = 0.658132E+00
+ PKER_RACCS ( 8, 22) = 0.707263E+00
+ PKER_RACCS ( 8, 23) = 0.747764E+00
+ PKER_RACCS ( 8, 24) = 0.781160E+00
+ PKER_RACCS ( 8, 25) = 0.808712E+00
+ PKER_RACCS ( 8, 26) = 0.831456E+00
+ PKER_RACCS ( 8, 27) = 0.850238E+00
+ PKER_RACCS ( 8, 28) = 0.865755E+00
+ PKER_RACCS ( 8, 29) = 0.878576E+00
+ PKER_RACCS ( 8, 30) = 0.889174E+00
+ PKER_RACCS ( 8, 31) = 0.897935E+00
+ PKER_RACCS ( 8, 32) = 0.905179E+00
+ PKER_RACCS ( 8, 33) = 0.911169E+00
+ PKER_RACCS ( 8, 34) = 0.916122E+00
+ PKER_RACCS ( 8, 35) = 0.920220E+00
+ PKER_RACCS ( 8, 36) = 0.923609E+00
+ PKER_RACCS ( 8, 37) = 0.926412E+00
+ PKER_RACCS ( 8, 38) = 0.928731E+00
+ PKER_RACCS ( 8, 39) = 0.930650E+00
+ PKER_RACCS ( 8, 40) = 0.932237E+00
+ PKER_RACCS ( 9, 1) = 0.145000E+02
+ PKER_RACCS ( 9, 2) = 0.117707E+02
+ PKER_RACCS ( 9, 3) = 0.950857E+01
+ PKER_RACCS ( 9, 4) = 0.763464E+01
+ PKER_RACCS ( 9, 5) = 0.608420E+01
+ PKER_RACCS ( 9, 6) = 0.480400E+01
+ PKER_RACCS ( 9, 7) = 0.375010E+01
+ PKER_RACCS ( 9, 8) = 0.288590E+01
+ PKER_RACCS ( 9, 9) = 0.218080E+01
+ PKER_RACCS ( 9, 10) = 0.160949E+01
+ PKER_RACCS ( 9, 11) = 0.115228E+01
+ PKER_RACCS ( 9, 12) = 0.796014E+00
+ PKER_RACCS ( 9, 13) = 0.534489E+00
+ PKER_RACCS ( 9, 14) = 0.365993E+00
+ PKER_RACCS ( 9, 15) = 0.287438E+00
+ PKER_RACCS ( 9, 16) = 0.286151E+00
+ PKER_RACCS ( 9, 17) = 0.337864E+00
+ PKER_RACCS ( 9, 18) = 0.414092E+00
+ PKER_RACCS ( 9, 19) = 0.492999E+00
+ PKER_RACCS ( 9, 20) = 0.563677E+00
+ PKER_RACCS ( 9, 21) = 0.623323E+00
+ PKER_RACCS ( 9, 22) = 0.672688E+00
+ PKER_RACCS ( 9, 23) = 0.713372E+00
+ PKER_RACCS ( 9, 24) = 0.746902E+00
+ PKER_RACCS ( 9, 25) = 0.774554E+00
+ PKER_RACCS ( 9, 26) = 0.797372E+00
+ PKER_RACCS ( 9, 27) = 0.816209E+00
+ PKER_RACCS ( 9, 28) = 0.831767E+00
+ PKER_RACCS ( 9, 29) = 0.844621E+00
+ PKER_RACCS ( 9, 30) = 0.855242E+00
+ PKER_RACCS ( 9, 31) = 0.864021E+00
+ PKER_RACCS ( 9, 32) = 0.871279E+00
+ PKER_RACCS ( 9, 33) = 0.877280E+00
+ PKER_RACCS ( 9, 34) = 0.882242E+00
+ PKER_RACCS ( 9, 35) = 0.886346E+00
+ PKER_RACCS ( 9, 36) = 0.889740E+00
+ PKER_RACCS ( 9, 37) = 0.892548E+00
+ PKER_RACCS ( 9, 38) = 0.894870E+00
+ PKER_RACCS ( 9, 39) = 0.896791E+00
+ PKER_RACCS ( 9, 40) = 0.898380E+00
+ PKER_RACCS ( 10, 1) = 0.145893E+02
+ PKER_RACCS ( 10, 2) = 0.118619E+02
+ PKER_RACCS ( 10, 3) = 0.960068E+01
+ PKER_RACCS ( 10, 4) = 0.772665E+01
+ PKER_RACCS ( 10, 5) = 0.617469E+01
+ PKER_RACCS ( 10, 6) = 0.489137E+01
+ PKER_RACCS ( 10, 7) = 0.383276E+01
+ PKER_RACCS ( 10, 8) = 0.296249E+01
+ PKER_RACCS ( 10, 9) = 0.225032E+01
+ PKER_RACCS ( 10, 10) = 0.167125E+01
+ PKER_RACCS ( 10, 11) = 0.120554E+01
+ PKER_RACCS ( 10, 12) = 0.839354E+00
+ PKER_RACCS ( 10, 13) = 0.565536E+00
+ PKER_RACCS ( 10, 14) = 0.382241E+00
+ PKER_RACCS ( 10, 15) = 0.287309E+00
+ PKER_RACCS ( 10, 16) = 0.271075E+00
+ PKER_RACCS ( 10, 17) = 0.312029E+00
+ PKER_RACCS ( 10, 18) = 0.382576E+00
+ PKER_RACCS ( 10, 19) = 0.459433E+00
+ PKER_RACCS ( 10, 20) = 0.529787E+00
+ PKER_RACCS ( 10, 21) = 0.589630E+00
+ PKER_RACCS ( 10, 22) = 0.639249E+00
+ PKER_RACCS ( 10, 23) = 0.680137E+00
+ PKER_RACCS ( 10, 24) = 0.713818E+00
+ PKER_RACCS ( 10, 25) = 0.741581E+00
+ PKER_RACCS ( 10, 26) = 0.764481E+00
+ PKER_RACCS ( 10, 27) = 0.783380E+00
+ PKER_RACCS ( 10, 28) = 0.798984E+00
+ PKER_RACCS ( 10, 29) = 0.811872E+00
+ PKER_RACCS ( 10, 30) = 0.822520E+00
+ PKER_RACCS ( 10, 31) = 0.831320E+00
+ PKER_RACCS ( 10, 32) = 0.838593E+00
+ PKER_RACCS ( 10, 33) = 0.844606E+00
+ PKER_RACCS ( 10, 34) = 0.849578E+00
+ PKER_RACCS ( 10, 35) = 0.853689E+00
+ PKER_RACCS ( 10, 36) = 0.857089E+00
+ PKER_RACCS ( 10, 37) = 0.859901E+00
+ PKER_RACCS ( 10, 38) = 0.862227E+00
+ PKER_RACCS ( 10, 39) = 0.864150E+00
+ PKER_RACCS ( 10, 40) = 0.865742E+00
+ PKER_RACCS ( 11, 1) = 0.146703E+02
+ PKER_RACCS ( 11, 2) = 0.119448E+02
+ PKER_RACCS ( 11, 3) = 0.968497E+01
+ PKER_RACCS ( 11, 4) = 0.781152E+01
+ PKER_RACCS ( 11, 5) = 0.625903E+01
+ PKER_RACCS ( 11, 6) = 0.497385E+01
+ PKER_RACCS ( 11, 7) = 0.391189E+01
+ PKER_RACCS ( 11, 8) = 0.303687E+01
+ PKER_RACCS ( 11, 9) = 0.231879E+01
+ PKER_RACCS ( 11, 10) = 0.173290E+01
+ PKER_RACCS ( 11, 11) = 0.125941E+01
+ PKER_RACCS ( 11, 12) = 0.884086E+00
+ PKER_RACCS ( 11, 13) = 0.598926E+00
+ PKER_RACCS ( 11, 14) = 0.401517E+00
+ PKER_RACCS ( 11, 15) = 0.290601E+00
+ PKER_RACCS ( 11, 16) = 0.259133E+00
+ PKER_RACCS ( 11, 17) = 0.288729E+00
+ PKER_RACCS ( 11, 18) = 0.352826E+00
+ PKER_RACCS ( 11, 19) = 0.427152E+00
+ PKER_RACCS ( 11, 20) = 0.496989E+00
+ PKER_RACCS ( 11, 21) = 0.557002E+00
+ PKER_RACCS ( 11, 22) = 0.606893E+00
+ PKER_RACCS ( 11, 23) = 0.648007E+00
+ PKER_RACCS ( 11, 24) = 0.681856E+00
+ PKER_RACCS ( 11, 25) = 0.709743E+00
+ PKER_RACCS ( 11, 26) = 0.732735E+00
+ PKER_RACCS ( 11, 27) = 0.751703E+00
+ PKER_RACCS ( 11, 28) = 0.767359E+00
+ PKER_RACCS ( 11, 29) = 0.780286E+00
+ PKER_RACCS ( 11, 30) = 0.790964E+00
+ PKER_RACCS ( 11, 31) = 0.799786E+00
+ PKER_RACCS ( 11, 32) = 0.807077E+00
+ PKER_RACCS ( 11, 33) = 0.813104E+00
+ PKER_RACCS ( 11, 34) = 0.818086E+00
+ PKER_RACCS ( 11, 35) = 0.822205E+00
+ PKER_RACCS ( 11, 36) = 0.825611E+00
+ PKER_RACCS ( 11, 37) = 0.828428E+00
+ PKER_RACCS ( 11, 38) = 0.830757E+00
+ PKER_RACCS ( 11, 39) = 0.832684E+00
+ PKER_RACCS ( 11, 40) = 0.834278E+00
+ PKER_RACCS ( 12, 1) = 0.147436E+02
+ PKER_RACCS ( 12, 2) = 0.120200E+02
+ PKER_RACCS ( 12, 3) = 0.976189E+01
+ PKER_RACCS ( 12, 4) = 0.788948E+01
+ PKER_RACCS ( 12, 5) = 0.633720E+01
+ PKER_RACCS ( 12, 6) = 0.505113E+01
+ PKER_RACCS ( 12, 7) = 0.398701E+01
+ PKER_RACCS ( 12, 8) = 0.310848E+01
+ PKER_RACCS ( 12, 9) = 0.238565E+01
+ PKER_RACCS ( 12, 10) = 0.179393E+01
+ PKER_RACCS ( 12, 11) = 0.131359E+01
+ PKER_RACCS ( 12, 12) = 0.930027E+00
+ PKER_RACCS ( 12, 13) = 0.634422E+00
+ PKER_RACCS ( 12, 14) = 0.423837E+00
+ PKER_RACCS ( 12, 15) = 0.297693E+00
+ PKER_RACCS ( 12, 16) = 0.250948E+00
+ PKER_RACCS ( 12, 17) = 0.268258E+00
+ PKER_RACCS ( 12, 18) = 0.324985E+00
+ PKER_RACCS ( 12, 19) = 0.396170E+00
+ PKER_RACCS ( 12, 20) = 0.465254E+00
+ PKER_RACCS ( 12, 21) = 0.525388E+00
+ PKER_RACCS ( 12, 22) = 0.575567E+00
+ PKER_RACCS ( 12, 23) = 0.616932E+00
+ PKER_RACCS ( 12, 24) = 0.650970E+00
+ PKER_RACCS ( 12, 25) = 0.678996E+00
+ PKER_RACCS ( 12, 26) = 0.702091E+00
+ PKER_RACCS ( 12, 27) = 0.721135E+00
+ PKER_RACCS ( 12, 28) = 0.736848E+00
+ PKER_RACCS ( 12, 29) = 0.749819E+00
+ PKER_RACCS ( 12, 30) = 0.760529E+00
+ PKER_RACCS ( 12, 31) = 0.769377E+00
+ PKER_RACCS ( 12, 32) = 0.776687E+00
+ PKER_RACCS ( 12, 33) = 0.782728E+00
+ PKER_RACCS ( 12, 34) = 0.787722E+00
+ PKER_RACCS ( 12, 35) = 0.791850E+00
+ PKER_RACCS ( 12, 36) = 0.795263E+00
+ PKER_RACCS ( 12, 37) = 0.798085E+00
+ PKER_RACCS ( 12, 38) = 0.800419E+00
+ PKER_RACCS ( 12, 39) = 0.802349E+00
+ PKER_RACCS ( 12, 40) = 0.803946E+00
+ PKER_RACCS ( 13, 1) = 0.148101E+02
+ PKER_RACCS ( 13, 2) = 0.120884E+02
+ PKER_RACCS ( 13, 3) = 0.983194E+01
+ PKER_RACCS ( 13, 4) = 0.796086E+01
+ PKER_RACCS ( 13, 5) = 0.640930E+01
+ PKER_RACCS ( 13, 6) = 0.512311E+01
+ PKER_RACCS ( 13, 7) = 0.405779E+01
+ PKER_RACCS ( 13, 8) = 0.317687E+01
+ PKER_RACCS ( 13, 9) = 0.245041E+01
+ PKER_RACCS ( 13, 10) = 0.185392E+01
+ PKER_RACCS ( 13, 11) = 0.136765E+01
+ PKER_RACCS ( 13, 12) = 0.976720E+00
+ PKER_RACCS ( 13, 13) = 0.671766E+00
+ PKER_RACCS ( 13, 14) = 0.449002E+00
+ PKER_RACCS ( 13, 15) = 0.308199E+00
+ PKER_RACCS ( 13, 16) = 0.246209E+00
+ PKER_RACCS ( 13, 17) = 0.250643E+00
+ PKER_RACCS ( 13, 18) = 0.299133E+00
+ PKER_RACCS ( 13, 19) = 0.366527E+00
+ PKER_RACCS ( 13, 20) = 0.434566E+00
+ PKER_RACCS ( 13, 21) = 0.494744E+00
+ PKER_RACCS ( 13, 22) = 0.545221E+00
+ PKER_RACCS ( 13, 23) = 0.586862E+00
+ PKER_RACCS ( 13, 24) = 0.621111E+00
+ PKER_RACCS ( 13, 25) = 0.649292E+00
+ PKER_RACCS ( 13, 26) = 0.672502E+00
+ PKER_RACCS ( 13, 27) = 0.691631E+00
+ PKER_RACCS ( 13, 28) = 0.707408E+00
+ PKER_RACCS ( 13, 29) = 0.720427E+00
+ PKER_RACCS ( 13, 30) = 0.731175E+00
+ PKER_RACCS ( 13, 31) = 0.740050E+00
+ PKER_RACCS ( 13, 32) = 0.747382E+00
+ PKER_RACCS ( 13, 33) = 0.753440E+00
+ PKER_RACCS ( 13, 34) = 0.758446E+00
+ PKER_RACCS ( 13, 35) = 0.762584E+00
+ PKER_RACCS ( 13, 36) = 0.766005E+00
+ PKER_RACCS ( 13, 37) = 0.768833E+00
+ PKER_RACCS ( 13, 38) = 0.771172E+00
+ PKER_RACCS ( 13, 39) = 0.773106E+00
+ PKER_RACCS ( 13, 40) = 0.774705E+00
+ PKER_RACCS ( 14, 1) = 0.148703E+02
+ PKER_RACCS ( 14, 2) = 0.121504E+02
+ PKER_RACCS ( 14, 3) = 0.989568E+01
+ PKER_RACCS ( 14, 4) = 0.802606E+01
+ PKER_RACCS ( 14, 5) = 0.647555E+01
+ PKER_RACCS ( 14, 6) = 0.518978E+01
+ PKER_RACCS ( 14, 7) = 0.412404E+01
+ PKER_RACCS ( 14, 8) = 0.324166E+01
+ PKER_RACCS ( 14, 9) = 0.251261E+01
+ PKER_RACCS ( 14, 10) = 0.191236E+01
+ PKER_RACCS ( 14, 11) = 0.142114E+01
+ PKER_RACCS ( 14, 12) = 0.102382E+01
+ PKER_RACCS ( 14, 13) = 0.710429E+00
+ PKER_RACCS ( 14, 14) = 0.476613E+00
+ PKER_RACCS ( 14, 15) = 0.321863E+00
+ PKER_RACCS ( 14, 16) = 0.244851E+00
+ PKER_RACCS ( 14, 17) = 0.236098E+00
+ PKER_RACCS ( 14, 18) = 0.275511E+00
+ PKER_RACCS ( 14, 19) = 0.338333E+00
+ PKER_RACCS ( 14, 20) = 0.404917E+00
+ PKER_RACCS ( 14, 21) = 0.465028E+00
+ PKER_RACCS ( 14, 22) = 0.515805E+00
+ PKER_RACCS ( 14, 23) = 0.557750E+00
+ PKER_RACCS ( 14, 24) = 0.592233E+00
+ PKER_RACCS ( 14, 25) = 0.620587E+00
+ PKER_RACCS ( 14, 26) = 0.643925E+00
+ PKER_RACCS ( 14, 27) = 0.663150E+00
+ PKER_RACCS ( 14, 28) = 0.678999E+00
+ PKER_RACCS ( 14, 29) = 0.692071E+00
+ PKER_RACCS ( 14, 30) = 0.702860E+00
+ PKER_RACCS ( 14, 31) = 0.711766E+00
+ PKER_RACCS ( 14, 32) = 0.719122E+00
+ PKER_RACCS ( 14, 33) = 0.725198E+00
+ PKER_RACCS ( 14, 34) = 0.730218E+00
+ PKER_RACCS ( 14, 35) = 0.734367E+00
+ PKER_RACCS ( 14, 36) = 0.737797E+00
+ PKER_RACCS ( 14, 37) = 0.740631E+00
+ PKER_RACCS ( 14, 38) = 0.742975E+00
+ PKER_RACCS ( 14, 39) = 0.744913E+00
+ PKER_RACCS ( 14, 40) = 0.746515E+00
+ PKER_RACCS ( 15, 1) = 0.149250E+02
+ PKER_RACCS ( 15, 2) = 0.122068E+02
+ PKER_RACCS ( 15, 3) = 0.995366E+01
+ PKER_RACCS ( 15, 4) = 0.808554E+01
+ PKER_RACCS ( 15, 5) = 0.653627E+01
+ PKER_RACCS ( 15, 6) = 0.525129E+01
+ PKER_RACCS ( 15, 7) = 0.418569E+01
+ PKER_RACCS ( 15, 8) = 0.330262E+01
+ PKER_RACCS ( 15, 9) = 0.257187E+01
+ PKER_RACCS ( 15, 10) = 0.196884E+01
+ PKER_RACCS ( 15, 11) = 0.147364E+01
+ PKER_RACCS ( 15, 12) = 0.107095E+01
+ PKER_RACCS ( 15, 13) = 0.750228E+00
+ PKER_RACCS ( 15, 14) = 0.506382E+00
+ PKER_RACCS ( 15, 15) = 0.338812E+00
+ PKER_RACCS ( 15, 16) = 0.247144E+00
+ PKER_RACCS ( 15, 17) = 0.224719E+00
+ PKER_RACCS ( 15, 18) = 0.254112E+00
+ PKER_RACCS ( 15, 19) = 0.311617E+00
+ PKER_RACCS ( 15, 20) = 0.376314E+00
+ PKER_RACCS ( 15, 21) = 0.436206E+00
+ PKER_RACCS ( 15, 22) = 0.487272E+00
+ PKER_RACCS ( 15, 23) = 0.529545E+00
+ PKER_RACCS ( 15, 24) = 0.564289E+00
+ PKER_RACCS ( 15, 25) = 0.592838E+00
+ PKER_RACCS ( 15, 26) = 0.616318E+00
+ PKER_RACCS ( 15, 27) = 0.635650E+00
+ PKER_RACCS ( 15, 28) = 0.651578E+00
+ PKER_RACCS ( 15, 29) = 0.664711E+00
+ PKER_RACCS ( 15, 30) = 0.675544E+00
+ PKER_RACCS ( 15, 31) = 0.684485E+00
+ PKER_RACCS ( 15, 32) = 0.691867E+00
+ PKER_RACCS ( 15, 33) = 0.697964E+00
+ PKER_RACCS ( 15, 34) = 0.703000E+00
+ PKER_RACCS ( 15, 35) = 0.707161E+00
+ PKER_RACCS ( 15, 36) = 0.710600E+00
+ PKER_RACCS ( 15, 37) = 0.713442E+00
+ PKER_RACCS ( 15, 38) = 0.715791E+00
+ PKER_RACCS ( 15, 39) = 0.717734E+00
+ PKER_RACCS ( 15, 40) = 0.719340E+00
+ PKER_RACCS ( 16, 1) = 0.149746E+02
+ PKER_RACCS ( 16, 2) = 0.122580E+02
+ PKER_RACCS ( 16, 3) = 0.100064E+02
+ PKER_RACCS ( 16, 4) = 0.813975E+01
+ PKER_RACCS ( 16, 5) = 0.659179E+01
+ PKER_RACCS ( 16, 6) = 0.530783E+01
+ PKER_RACCS ( 16, 7) = 0.424279E+01
+ PKER_RACCS ( 16, 8) = 0.335961E+01
+ PKER_RACCS ( 16, 9) = 0.262794E+01
+ PKER_RACCS ( 16, 10) = 0.202298E+01
+ PKER_RACCS ( 16, 11) = 0.152474E+01
+ PKER_RACCS ( 16, 12) = 0.111762E+01
+ PKER_RACCS ( 16, 13) = 0.790608E+00
+ PKER_RACCS ( 16, 14) = 0.537869E+00
+ PKER_RACCS ( 16, 15) = 0.358451E+00
+ PKER_RACCS ( 16, 16) = 0.252678E+00
+ PKER_RACCS ( 16, 17) = 0.216307E+00
+ PKER_RACCS ( 16, 18) = 0.235077E+00
+ PKER_RACCS ( 16, 19) = 0.286474E+00
+ PKER_RACCS ( 16, 20) = 0.348774E+00
+ PKER_RACCS ( 16, 21) = 0.408251E+00
+ PKER_RACCS ( 16, 22) = 0.459577E+00
+ PKER_RACCS ( 16, 23) = 0.502202E+00
+ PKER_RACCS ( 16, 24) = 0.537235E+00
+ PKER_RACCS ( 16, 25) = 0.565999E+00
+ PKER_RACCS ( 16, 26) = 0.589640E+00
+ PKER_RACCS ( 16, 27) = 0.609090E+00
+ PKER_RACCS ( 16, 28) = 0.625107E+00
+ PKER_RACCS ( 16, 29) = 0.638306E+00
+ PKER_RACCS ( 16, 30) = 0.649190E+00
+ PKER_RACCS ( 16, 31) = 0.658170E+00
+ PKER_RACCS ( 16, 32) = 0.665581E+00
+ PKER_RACCS ( 16, 33) = 0.671700E+00
+ PKER_RACCS ( 16, 34) = 0.676754E+00
+ PKER_RACCS ( 16, 35) = 0.680928E+00
+ PKER_RACCS ( 16, 36) = 0.684378E+00
+ PKER_RACCS ( 16, 37) = 0.687228E+00
+ PKER_RACCS ( 16, 38) = 0.689584E+00
+ PKER_RACCS ( 16, 39) = 0.691531E+00
+ PKER_RACCS ( 16, 40) = 0.693141E+00
+ PKER_RACCS ( 17, 1) = 0.150199E+02
+ PKER_RACCS ( 17, 2) = 0.123046E+02
+ PKER_RACCS ( 17, 3) = 0.100544E+02
+ PKER_RACCS ( 17, 4) = 0.818917E+01
+ PKER_RACCS ( 17, 5) = 0.664253E+01
+ PKER_RACCS ( 17, 6) = 0.535971E+01
+ PKER_RACCS ( 17, 7) = 0.429548E+01
+ PKER_RACCS ( 17, 8) = 0.341263E+01
+ PKER_RACCS ( 17, 9) = 0.268062E+01
+ PKER_RACCS ( 17, 10) = 0.207449E+01
+ PKER_RACCS ( 17, 11) = 0.157406E+01
+ PKER_RACCS ( 17, 12) = 0.116346E+01
+ PKER_RACCS ( 17, 13) = 0.831223E+00
+ PKER_RACCS ( 17, 14) = 0.570778E+00
+ PKER_RACCS ( 17, 15) = 0.380540E+00
+ PKER_RACCS ( 17, 16) = 0.261478E+00
+ PKER_RACCS ( 17, 17) = 0.211389E+00
+ PKER_RACCS ( 17, 18) = 0.218705E+00
+ PKER_RACCS ( 17, 19) = 0.263066E+00
+ PKER_RACCS ( 17, 20) = 0.322333E+00
+ PKER_RACCS ( 17, 21) = 0.381142E+00
+ PKER_RACCS ( 17, 22) = 0.432675E+00
+ PKER_RACCS ( 17, 23) = 0.475672E+00
+ PKER_RACCS ( 17, 24) = 0.511025E+00
+ PKER_RACCS ( 17, 25) = 0.540030E+00
+ PKER_RACCS ( 17, 26) = 0.563849E+00
+ PKER_RACCS ( 17, 27) = 0.583432E+00
+ PKER_RACCS ( 17, 28) = 0.599547E+00
+ PKER_RACCS ( 17, 29) = 0.612821E+00
+ PKER_RACCS ( 17, 30) = 0.623761E+00
+ PKER_RACCS ( 17, 31) = 0.632783E+00
+ PKER_RACCS ( 17, 32) = 0.640227E+00
+ PKER_RACCS ( 17, 33) = 0.646371E+00
+ PKER_RACCS ( 17, 34) = 0.651444E+00
+ PKER_RACCS ( 17, 35) = 0.655634E+00
+ PKER_RACCS ( 17, 36) = 0.659094E+00
+ PKER_RACCS ( 17, 37) = 0.661954E+00
+ PKER_RACCS ( 17, 38) = 0.664317E+00
+ PKER_RACCS ( 17, 39) = 0.666270E+00
+ PKER_RACCS ( 17, 40) = 0.667884E+00
+ PKER_RACCS ( 18, 1) = 0.150611E+02
+ PKER_RACCS ( 18, 2) = 0.123471E+02
+ PKER_RACCS ( 18, 3) = 0.100982E+02
+ PKER_RACCS ( 18, 4) = 0.823424E+01
+ PKER_RACCS ( 18, 5) = 0.668887E+01
+ PKER_RACCS ( 18, 6) = 0.540722E+01
+ PKER_RACCS ( 18, 7) = 0.434396E+01
+ PKER_RACCS ( 18, 8) = 0.346174E+01
+ PKER_RACCS ( 18, 9) = 0.272984E+01
+ PKER_RACCS ( 18, 10) = 0.212315E+01
+ PKER_RACCS ( 18, 11) = 0.162127E+01
+ PKER_RACCS ( 18, 12) = 0.120806E+01
+ PKER_RACCS ( 18, 13) = 0.871602E+00
+ PKER_RACCS ( 18, 14) = 0.604653E+00
+ PKER_RACCS ( 18, 15) = 0.404841E+00
+ PKER_RACCS ( 18, 16) = 0.273423E+00
+ PKER_RACCS ( 18, 17) = 0.209600E+00
+ PKER_RACCS ( 18, 18) = 0.205031E+00
+ PKER_RACCS ( 18, 19) = 0.241487E+00
+ PKER_RACCS ( 18, 20) = 0.297071E+00
+ PKER_RACCS ( 18, 21) = 0.354876E+00
+ PKER_RACCS ( 18, 22) = 0.406530E+00
+ PKER_RACCS ( 18, 23) = 0.449911E+00
+ PKER_RACCS ( 18, 24) = 0.485614E+00
+ PKER_RACCS ( 18, 25) = 0.514888E+00
+ PKER_RACCS ( 18, 26) = 0.538905E+00
+ PKER_RACCS ( 18, 27) = 0.558635E+00
+ PKER_RACCS ( 18, 28) = 0.574861E+00
+ PKER_RACCS ( 18, 29) = 0.588218E+00
+ PKER_RACCS ( 18, 30) = 0.599220E+00
+ PKER_RACCS ( 18, 31) = 0.608290E+00
+ PKER_RACCS ( 18, 32) = 0.615770E+00
+ PKER_RACCS ( 18, 33) = 0.621942E+00
+ PKER_RACCS ( 18, 34) = 0.627036E+00
+ PKER_RACCS ( 18, 35) = 0.631242E+00
+ PKER_RACCS ( 18, 36) = 0.634716E+00
+ PKER_RACCS ( 18, 37) = 0.637585E+00
+ PKER_RACCS ( 18, 38) = 0.639956E+00
+ PKER_RACCS ( 18, 39) = 0.641915E+00
+ PKER_RACCS ( 18, 40) = 0.643534E+00
+ PKER_RACCS ( 19, 1) = 0.150988E+02
+ PKER_RACCS ( 19, 2) = 0.123859E+02
+ PKER_RACCS ( 19, 3) = 0.101382E+02
+ PKER_RACCS ( 19, 4) = 0.827539E+01
+ PKER_RACCS ( 19, 5) = 0.673121E+01
+ PKER_RACCS ( 19, 6) = 0.545071E+01
+ PKER_RACCS ( 19, 7) = 0.438849E+01
+ PKER_RACCS ( 19, 8) = 0.350707E+01
+ PKER_RACCS ( 19, 9) = 0.277562E+01
+ PKER_RACCS ( 19, 10) = 0.216883E+01
+ PKER_RACCS ( 19, 11) = 0.166613E+01
+ PKER_RACCS ( 19, 12) = 0.125110E+01
+ PKER_RACCS ( 19, 13) = 0.911367E+00
+ PKER_RACCS ( 19, 14) = 0.639001E+00
+ PKER_RACCS ( 19, 15) = 0.430939E+00
+ PKER_RACCS ( 19, 16) = 0.287969E+00
+ PKER_RACCS ( 19, 17) = 0.210983E+00
+ PKER_RACCS ( 19, 18) = 0.194223E+00
+ PKER_RACCS ( 19, 19) = 0.221986E+00
+ PKER_RACCS ( 19, 20) = 0.273075E+00
+ PKER_RACCS ( 19, 21) = 0.329460E+00
+ PKER_RACCS ( 19, 22) = 0.381110E+00
+ PKER_RACCS ( 19, 23) = 0.424875E+00
+ PKER_RACCS ( 19, 24) = 0.460960E+00
+ PKER_RACCS ( 19, 25) = 0.490530E+00
+ PKER_RACCS ( 19, 26) = 0.514769E+00
+ PKER_RACCS ( 19, 27) = 0.534664E+00
+ PKER_RACCS ( 19, 28) = 0.551012E+00
+ PKER_RACCS ( 19, 29) = 0.564461E+00
+ PKER_RACCS ( 19, 30) = 0.575533E+00
+ PKER_RACCS ( 19, 31) = 0.584656E+00
+ PKER_RACCS ( 19, 32) = 0.592176E+00
+ PKER_RACCS ( 19, 33) = 0.598379E+00
+ PKER_RACCS ( 19, 34) = 0.603497E+00
+ PKER_RACCS ( 19, 35) = 0.607721E+00
+ PKER_RACCS ( 19, 36) = 0.611209E+00
+ PKER_RACCS ( 19, 37) = 0.614090E+00
+ PKER_RACCS ( 19, 38) = 0.616469E+00
+ PKER_RACCS ( 19, 39) = 0.618434E+00
+ PKER_RACCS ( 19, 40) = 0.620059E+00
+ PKER_RACCS ( 20, 1) = 0.151334E+02
+ PKER_RACCS ( 20, 2) = 0.124214E+02
+ PKER_RACCS ( 20, 3) = 0.101747E+02
+ PKER_RACCS ( 20, 4) = 0.831300E+01
+ PKER_RACCS ( 20, 5) = 0.676993E+01
+ PKER_RACCS ( 20, 6) = 0.549053E+01
+ PKER_RACCS ( 20, 7) = 0.442934E+01
+ PKER_RACCS ( 20, 8) = 0.354883E+01
+ PKER_RACCS ( 20, 9) = 0.281803E+01
+ PKER_RACCS ( 20, 10) = 0.221150E+01
+ PKER_RACCS ( 20, 11) = 0.170847E+01
+ PKER_RACCS ( 20, 12) = 0.129228E+01
+ PKER_RACCS ( 20, 13) = 0.950157E+00
+ PKER_RACCS ( 20, 14) = 0.673464E+00
+ PKER_RACCS ( 20, 15) = 0.458333E+00
+ PKER_RACCS ( 20, 16) = 0.305176E+00
+ PKER_RACCS ( 20, 17) = 0.215568E+00
+ PKER_RACCS ( 20, 18) = 0.186321E+00
+ PKER_RACCS ( 20, 19) = 0.204559E+00
+ PKER_RACCS ( 20, 20) = 0.250422E+00
+ PKER_RACCS ( 20, 21) = 0.304915E+00
+ PKER_RACCS ( 20, 22) = 0.356388E+00
+ PKER_RACCS ( 20, 23) = 0.400522E+00
+ PKER_RACCS ( 20, 24) = 0.437017E+00
+ PKER_RACCS ( 20, 25) = 0.466917E+00
+ PKER_RACCS ( 20, 26) = 0.491402E+00
+ PKER_RACCS ( 20, 27) = 0.511479E+00
+ PKER_RACCS ( 20, 28) = 0.527965E+00
+ PKER_RACCS ( 20, 29) = 0.541516E+00
+ PKER_RACCS ( 20, 30) = 0.552666E+00
+ PKER_RACCS ( 20, 31) = 0.561847E+00
+ PKER_RACCS ( 20, 32) = 0.569412E+00
+ PKER_RACCS ( 20, 33) = 0.575649E+00
+ PKER_RACCS ( 20, 34) = 0.580793E+00
+ PKER_RACCS ( 20, 35) = 0.585038E+00
+ PKER_RACCS ( 20, 36) = 0.588542E+00
+ PKER_RACCS ( 20, 37) = 0.591434E+00
+ PKER_RACCS ( 20, 38) = 0.593823E+00
+ PKER_RACCS ( 20, 39) = 0.595796E+00
+ PKER_RACCS ( 20, 40) = 0.597426E+00
+ PKER_RACCS ( 21, 1) = 0.151652E+02
+ PKER_RACCS ( 21, 2) = 0.124540E+02
+ PKER_RACCS ( 21, 3) = 0.102082E+02
+ PKER_RACCS ( 21, 4) = 0.834744E+01
+ PKER_RACCS ( 21, 5) = 0.680537E+01
+ PKER_RACCS ( 21, 6) = 0.552699E+01
+ PKER_RACCS ( 21, 7) = 0.446681E+01
+ PKER_RACCS ( 21, 8) = 0.358724E+01
+ PKER_RACCS ( 21, 9) = 0.285721E+01
+ PKER_RACCS ( 21, 10) = 0.225118E+01
+ PKER_RACCS ( 21, 11) = 0.174822E+01
+ PKER_RACCS ( 21, 12) = 0.133141E+01
+ PKER_RACCS ( 21, 13) = 0.987614E+00
+ PKER_RACCS ( 21, 14) = 0.707582E+00
+ PKER_RACCS ( 21, 15) = 0.486558E+00
+ PKER_RACCS ( 21, 16) = 0.324414E+00
+ PKER_RACCS ( 21, 17) = 0.223054E+00
+ PKER_RACCS ( 21, 18) = 0.181308E+00
+ PKER_RACCS ( 21, 19) = 0.189484E+00
+ PKER_RACCS ( 21, 20) = 0.229271E+00
+ PKER_RACCS ( 21, 21) = 0.281292E+00
+ PKER_RACCS ( 21, 22) = 0.332355E+00
+ PKER_RACCS ( 21, 23) = 0.376815E+00
+ PKER_RACCS ( 21, 24) = 0.413745E+00
+ PKER_RACCS ( 21, 25) = 0.444006E+00
+ PKER_RACCS ( 21, 26) = 0.468764E+00
+ PKER_RACCS ( 21, 27) = 0.489045E+00
+ PKER_RACCS ( 21, 28) = 0.505683E+00
+ PKER_RACCS ( 21, 29) = 0.519348E+00
+ PKER_RACCS ( 21, 30) = 0.530584E+00
+ PKER_RACCS ( 21, 31) = 0.539830E+00
+ PKER_RACCS ( 21, 32) = 0.547445E+00
+ PKER_RACCS ( 21, 33) = 0.553720E+00
+ PKER_RACCS ( 21, 34) = 0.558894E+00
+ PKER_RACCS ( 21, 35) = 0.563161E+00
+ PKER_RACCS ( 21, 36) = 0.566682E+00
+ PKER_RACCS ( 21, 37) = 0.569589E+00
+ PKER_RACCS ( 21, 38) = 0.571988E+00
+ PKER_RACCS ( 21, 39) = 0.573969E+00
+ PKER_RACCS ( 21, 40) = 0.575606E+00
+ PKER_RACCS ( 22, 1) = 0.151944E+02
+ PKER_RACCS ( 22, 2) = 0.124840E+02
+ PKER_RACCS ( 22, 3) = 0.102389E+02
+ PKER_RACCS ( 22, 4) = 0.837904E+01
+ PKER_RACCS ( 22, 5) = 0.683786E+01
+ PKER_RACCS ( 22, 6) = 0.556042E+01
+ PKER_RACCS ( 22, 7) = 0.450119E+01
+ PKER_RACCS ( 22, 8) = 0.362254E+01
+ PKER_RACCS ( 22, 9) = 0.289334E+01
+ PKER_RACCS ( 22, 10) = 0.228796E+01
+ PKER_RACCS ( 22, 11) = 0.178533E+01
+ PKER_RACCS ( 22, 12) = 0.136834E+01
+ PKER_RACCS ( 22, 13) = 0.102351E+01
+ PKER_RACCS ( 22, 14) = 0.741020E+00
+ PKER_RACCS ( 22, 15) = 0.515301E+00
+ PKER_RACCS ( 22, 16) = 0.345292E+00
+ PKER_RACCS ( 22, 17) = 0.233110E+00
+ PKER_RACCS ( 22, 18) = 0.179411E+00
+ PKER_RACCS ( 22, 19) = 0.176906E+00
+ PKER_RACCS ( 22, 20) = 0.209753E+00
+ PKER_RACCS ( 22, 21) = 0.258648E+00
+ PKER_RACCS ( 22, 22) = 0.309006E+00
+ PKER_RACCS ( 22, 23) = 0.353720E+00
+ PKER_RACCS ( 22, 24) = 0.391101E+00
+ PKER_RACCS ( 22, 25) = 0.421757E+00
+ PKER_RACCS ( 22, 26) = 0.446818E+00
+ PKER_RACCS ( 22, 27) = 0.467326E+00
+ PKER_RACCS ( 22, 28) = 0.484133E+00
+ PKER_RACCS ( 22, 29) = 0.497925E+00
+ PKER_RACCS ( 22, 30) = 0.509256E+00
+ PKER_RACCS ( 22, 31) = 0.518575E+00
+ PKER_RACCS ( 22, 32) = 0.526245E+00
+ PKER_RACCS ( 22, 33) = 0.532563E+00
+ PKER_RACCS ( 22, 34) = 0.537769E+00
+ PKER_RACCS ( 22, 35) = 0.542061E+00
+ PKER_RACCS ( 22, 36) = 0.545601E+00
+ PKER_RACCS ( 22, 37) = 0.548523E+00
+ PKER_RACCS ( 22, 38) = 0.550934E+00
+ PKER_RACCS ( 22, 39) = 0.552924E+00
+ PKER_RACCS ( 22, 40) = 0.554568E+00
+ PKER_RACCS ( 23, 1) = 0.152213E+02
+ PKER_RACCS ( 23, 2) = 0.125116E+02
+ PKER_RACCS ( 23, 3) = 0.102672E+02
+ PKER_RACCS ( 23, 4) = 0.840809E+01
+ PKER_RACCS ( 23, 5) = 0.686771E+01
+ PKER_RACCS ( 23, 6) = 0.559111E+01
+ PKER_RACCS ( 23, 7) = 0.453276E+01
+ PKER_RACCS ( 23, 8) = 0.365498E+01
+ PKER_RACCS ( 23, 9) = 0.292663E+01
+ PKER_RACCS ( 23, 10) = 0.232198E+01
+ PKER_RACCS ( 23, 11) = 0.181986E+01
+ PKER_RACCS ( 23, 12) = 0.140301E+01
+ PKER_RACCS ( 23, 13) = 0.105763E+01
+ PKER_RACCS ( 23, 14) = 0.773440E+00
+ PKER_RACCS ( 23, 15) = 0.544069E+00
+ PKER_RACCS ( 23, 16) = 0.367556E+00
+ PKER_RACCS ( 23, 17) = 0.245797E+00
+ PKER_RACCS ( 23, 18) = 0.180284E+00
+ PKER_RACCS ( 23, 19) = 0.166899E+00
+ PKER_RACCS ( 23, 20) = 0.192026E+00
+ PKER_RACCS ( 23, 21) = 0.237101E+00
+ PKER_RACCS ( 23, 22) = 0.286355E+00
+ PKER_RACCS ( 23, 23) = 0.331210E+00
+ PKER_RACCS ( 23, 24) = 0.369048E+00
+ PKER_RACCS ( 23, 25) = 0.400132E+00
+ PKER_RACCS ( 23, 26) = 0.425526E+00
+ PKER_RACCS ( 23, 27) = 0.446284E+00
+ PKER_RACCS ( 23, 28) = 0.463279E+00
+ PKER_RACCS ( 23, 29) = 0.477213E+00
+ PKER_RACCS ( 23, 30) = 0.488651E+00
+ PKER_RACCS ( 23, 31) = 0.498050E+00
+ PKER_RACCS ( 23, 32) = 0.505782E+00
+ PKER_RACCS ( 23, 33) = 0.512146E+00
+ PKER_RACCS ( 23, 34) = 0.517388E+00
+ PKER_RACCS ( 23, 35) = 0.521708E+00
+ PKER_RACCS ( 23, 36) = 0.525270E+00
+ PKER_RACCS ( 23, 37) = 0.528208E+00
+ PKER_RACCS ( 23, 38) = 0.530632E+00
+ PKER_RACCS ( 23, 39) = 0.532633E+00
+ PKER_RACCS ( 23, 40) = 0.534284E+00
+ PKER_RACCS ( 24, 1) = 0.152463E+02
+ PKER_RACCS ( 24, 2) = 0.125371E+02
+ PKER_RACCS ( 24, 3) = 0.102934E+02
+ PKER_RACCS ( 24, 4) = 0.843486E+01
+ PKER_RACCS ( 24, 5) = 0.689519E+01
+ PKER_RACCS ( 24, 6) = 0.561934E+01
+ PKER_RACCS ( 24, 7) = 0.456178E+01
+ PKER_RACCS ( 24, 8) = 0.368482E+01
+ PKER_RACCS ( 24, 9) = 0.295728E+01
+ PKER_RACCS ( 24, 10) = 0.235339E+01
+ PKER_RACCS ( 24, 11) = 0.185190E+01
+ PKER_RACCS ( 24, 12) = 0.143540E+01
+ PKER_RACCS ( 24, 13) = 0.108987E+01
+ PKER_RACCS ( 24, 14) = 0.804596E+00
+ PKER_RACCS ( 24, 15) = 0.572486E+00
+ PKER_RACCS ( 24, 16) = 0.390700E+00
+ PKER_RACCS ( 24, 17) = 0.260363E+00
+ PKER_RACCS ( 24, 18) = 0.184022E+00
+ PKER_RACCS ( 24, 19) = 0.159599E+00
+ PKER_RACCS ( 24, 20) = 0.176302E+00
+ PKER_RACCS ( 24, 21) = 0.216750E+00
+ PKER_RACCS ( 24, 22) = 0.264440E+00
+ PKER_RACCS ( 24, 23) = 0.309269E+00
+ PKER_RACCS ( 24, 24) = 0.347549E+00
+ PKER_RACCS ( 24, 25) = 0.379090E+00
+ PKER_RACCS ( 24, 26) = 0.404851E+00
+ PKER_RACCS ( 24, 27) = 0.425886E+00
+ PKER_RACCS ( 24, 28) = 0.443090E+00
+ PKER_RACCS ( 24, 29) = 0.457180E+00
+ PKER_RACCS ( 24, 30) = 0.468736E+00
+ PKER_RACCS ( 24, 31) = 0.478226E+00
+ PKER_RACCS ( 24, 32) = 0.486025E+00
+ PKER_RACCS ( 24, 33) = 0.492441E+00
+ PKER_RACCS ( 24, 34) = 0.497723E+00
+ PKER_RACCS ( 24, 35) = 0.502074E+00
+ PKER_RACCS ( 24, 36) = 0.505660E+00
+ PKER_RACCS ( 24, 37) = 0.508616E+00
+ PKER_RACCS ( 24, 38) = 0.511055E+00
+ PKER_RACCS ( 24, 39) = 0.513066E+00
+ PKER_RACCS ( 24, 40) = 0.514727E+00
+ PKER_RACCS ( 25, 1) = 0.152694E+02
+ PKER_RACCS ( 25, 2) = 0.125607E+02
+ PKER_RACCS ( 25, 3) = 0.103175E+02
+ PKER_RACCS ( 25, 4) = 0.845958E+01
+ PKER_RACCS ( 25, 5) = 0.692053E+01
+ PKER_RACCS ( 25, 6) = 0.564534E+01
+ PKER_RACCS ( 25, 7) = 0.458850E+01
+ PKER_RACCS ( 25, 8) = 0.371229E+01
+ PKER_RACCS ( 25, 9) = 0.298552E+01
+ PKER_RACCS ( 25, 10) = 0.238237E+01
+ PKER_RACCS ( 25, 11) = 0.188156E+01
+ PKER_RACCS ( 25, 12) = 0.146555E+01
+ PKER_RACCS ( 25, 13) = 0.112016E+01
+ PKER_RACCS ( 25, 14) = 0.834300E+00
+ PKER_RACCS ( 25, 15) = 0.600243E+00
+ PKER_RACCS ( 25, 16) = 0.414249E+00
+ PKER_RACCS ( 25, 17) = 0.276705E+00
+ PKER_RACCS ( 25, 18) = 0.190253E+00
+ PKER_RACCS ( 25, 19) = 0.154899E+00
+ PKER_RACCS ( 25, 20) = 0.162591E+00
+ PKER_RACCS ( 25, 21) = 0.197712E+00
+ PKER_RACCS ( 25, 22) = 0.243310E+00
+ PKER_RACCS ( 25, 23) = 0.287888E+00
+ PKER_RACCS ( 25, 24) = 0.326572E+00
+ PKER_RACCS ( 25, 25) = 0.358595E+00
+ PKER_RACCS ( 25, 26) = 0.384755E+00
+ PKER_RACCS ( 25, 27) = 0.406096E+00
+ PKER_RACCS ( 25, 28) = 0.423530E+00
+ PKER_RACCS ( 25, 29) = 0.437795E+00
+ PKER_RACCS ( 25, 30) = 0.449483E+00
+ PKER_RACCS ( 25, 31) = 0.459071E+00
+ PKER_RACCS ( 25, 32) = 0.466947E+00
+ PKER_RACCS ( 25, 33) = 0.473421E+00
+ PKER_RACCS ( 25, 34) = 0.478747E+00
+ PKER_RACCS ( 25, 35) = 0.483132E+00
+ PKER_RACCS ( 25, 36) = 0.486744E+00
+ PKER_RACCS ( 25, 37) = 0.489721E+00
+ PKER_RACCS ( 25, 38) = 0.492175E+00
+ PKER_RACCS ( 25, 39) = 0.494199E+00
+ PKER_RACCS ( 25, 40) = 0.495869E+00
+ PKER_RACCS ( 26, 1) = 0.152909E+02
+ PKER_RACCS ( 26, 2) = 0.125826E+02
+ PKER_RACCS ( 26, 3) = 0.103399E+02
+ PKER_RACCS ( 26, 4) = 0.848247E+01
+ PKER_RACCS ( 26, 5) = 0.694396E+01
+ PKER_RACCS ( 26, 6) = 0.566936E+01
+ PKER_RACCS ( 26, 7) = 0.461314E+01
+ PKER_RACCS ( 26, 8) = 0.373761E+01
+ PKER_RACCS ( 26, 9) = 0.301154E+01
+ PKER_RACCS ( 26, 10) = 0.240912E+01
+ PKER_RACCS ( 26, 11) = 0.190899E+01
+ PKER_RACCS ( 26, 12) = 0.149356E+01
+ PKER_RACCS ( 26, 13) = 0.114849E+01
+ PKER_RACCS ( 26, 14) = 0.862417E+00
+ PKER_RACCS ( 26, 15) = 0.627063E+00
+ PKER_RACCS ( 26, 16) = 0.437825E+00
+ PKER_RACCS ( 26, 17) = 0.294289E+00
+ PKER_RACCS ( 26, 18) = 0.198892E+00
+ PKER_RACCS ( 26, 19) = 0.152918E+00
+ PKER_RACCS ( 26, 20) = 0.151248E+00
+ PKER_RACCS ( 26, 21) = 0.180182E+00
+ PKER_RACCS ( 26, 22) = 0.223041E+00
+ PKER_RACCS ( 26, 23) = 0.267078E+00
+ PKER_RACCS ( 26, 24) = 0.306091E+00
+ PKER_RACCS ( 26, 25) = 0.338613E+00
+ PKER_RACCS ( 26, 26) = 0.365204E+00
+ PKER_RACCS ( 26, 27) = 0.386880E+00
+ PKER_RACCS ( 26, 28) = 0.404569E+00
+ PKER_RACCS ( 26, 29) = 0.419026E+00
+ PKER_RACCS ( 26, 30) = 0.430860E+00
+ PKER_RACCS ( 26, 31) = 0.440559E+00
+ PKER_RACCS ( 26, 32) = 0.448518E+00
+ PKER_RACCS ( 26, 33) = 0.455057E+00
+ PKER_RACCS ( 26, 34) = 0.460432E+00
+ PKER_RACCS ( 26, 35) = 0.464855E+00
+ PKER_RACCS ( 26, 36) = 0.468496E+00
+ PKER_RACCS ( 26, 37) = 0.471496E+00
+ PKER_RACCS ( 26, 38) = 0.473967E+00
+ PKER_RACCS ( 26, 39) = 0.476005E+00
+ PKER_RACCS ( 26, 40) = 0.477686E+00
+ PKER_RACCS ( 27, 1) = 0.153109E+02
+ PKER_RACCS ( 27, 2) = 0.126030E+02
+ PKER_RACCS ( 27, 3) = 0.103607E+02
+ PKER_RACCS ( 27, 4) = 0.850370E+01
+ PKER_RACCS ( 27, 5) = 0.696566E+01
+ PKER_RACCS ( 27, 6) = 0.569158E+01
+ PKER_RACCS ( 27, 7) = 0.463592E+01
+ PKER_RACCS ( 27, 8) = 0.376099E+01
+ PKER_RACCS ( 27, 9) = 0.303557E+01
+ PKER_RACCS ( 27, 10) = 0.243381E+01
+ PKER_RACCS ( 27, 11) = 0.193434E+01
+ PKER_RACCS ( 27, 12) = 0.151953E+01
+ PKER_RACCS ( 27, 13) = 0.117491E+01
+ PKER_RACCS ( 27, 14) = 0.888890E+00
+ PKER_RACCS ( 27, 15) = 0.652763E+00
+ PKER_RACCS ( 27, 16) = 0.461178E+00
+ PKER_RACCS ( 27, 17) = 0.312679E+00
+ PKER_RACCS ( 27, 18) = 0.209327E+00
+ PKER_RACCS ( 27, 19) = 0.153534E+00
+ PKER_RACCS ( 27, 20) = 0.142201E+00
+ PKER_RACCS ( 27, 21) = 0.164281E+00
+ PKER_RACCS ( 27, 22) = 0.203743E+00
+ PKER_RACCS ( 27, 23) = 0.246868E+00
+ PKER_RACCS ( 27, 24) = 0.286092E+00
+ PKER_RACCS ( 27, 25) = 0.319109E+00
+ PKER_RACCS ( 27, 26) = 0.346163E+00
+ PKER_RACCS ( 27, 27) = 0.368205E+00
+ PKER_RACCS ( 27, 28) = 0.386173E+00
+ PKER_RACCS ( 27, 29) = 0.400843E+00
+ PKER_RACCS ( 27, 30) = 0.412838E+00
+ PKER_RACCS ( 27, 31) = 0.422660E+00
+ PKER_RACCS ( 27, 32) = 0.430713E+00
+ PKER_RACCS ( 27, 33) = 0.437322E+00
+ PKER_RACCS ( 27, 34) = 0.442752E+00
+ PKER_RACCS ( 27, 35) = 0.447217E+00
+ PKER_RACCS ( 27, 36) = 0.450891E+00
+ PKER_RACCS ( 27, 37) = 0.453915E+00
+ PKER_RACCS ( 27, 38) = 0.456406E+00
+ PKER_RACCS ( 27, 39) = 0.458459E+00
+ PKER_RACCS ( 27, 40) = 0.460152E+00
+ PKER_RACCS ( 28, 1) = 0.153296E+02
+ PKER_RACCS ( 28, 2) = 0.126220E+02
+ PKER_RACCS ( 28, 3) = 0.103800E+02
+ PKER_RACCS ( 28, 4) = 0.852344E+01
+ PKER_RACCS ( 28, 5) = 0.698582E+01
+ PKER_RACCS ( 28, 6) = 0.571219E+01
+ PKER_RACCS ( 28, 7) = 0.465702E+01
+ PKER_RACCS ( 28, 8) = 0.378263E+01
+ PKER_RACCS ( 28, 9) = 0.305778E+01
+ PKER_RACCS ( 28, 10) = 0.245663E+01
+ PKER_RACCS ( 28, 11) = 0.195779E+01
+ PKER_RACCS ( 28, 12) = 0.154358E+01
+ PKER_RACCS ( 28, 13) = 0.119948E+01
+ PKER_RACCS ( 28, 14) = 0.913701E+00
+ PKER_RACCS ( 28, 15) = 0.677201E+00
+ PKER_RACCS ( 28, 16) = 0.483961E+00
+ PKER_RACCS ( 28, 17) = 0.331617E+00
+ PKER_RACCS ( 28, 18) = 0.221589E+00
+ PKER_RACCS ( 28, 19) = 0.156463E+00
+ PKER_RACCS ( 28, 20) = 0.135600E+00
+ PKER_RACCS ( 28, 21) = 0.150201E+00
+ PKER_RACCS ( 28, 22) = 0.185555E+00
+ PKER_RACCS ( 28, 23) = 0.227299E+00
+ PKER_RACCS ( 28, 24) = 0.266566E+00
+ PKER_RACCS ( 28, 25) = 0.300058E+00
+ PKER_RACCS ( 28, 26) = 0.327598E+00
+ PKER_RACCS ( 28, 27) = 0.350036E+00
+ PKER_RACCS ( 28, 28) = 0.368311E+00
+ PKER_RACCS ( 28, 29) = 0.383215E+00
+ PKER_RACCS ( 28, 30) = 0.395389E+00
+ PKER_RACCS ( 28, 31) = 0.405347E+00
+ PKER_RACCS ( 28, 32) = 0.413503E+00
+ PKER_RACCS ( 28, 33) = 0.420191E+00
+ PKER_RACCS ( 28, 34) = 0.425682E+00
+ PKER_RACCS ( 28, 35) = 0.430193E+00
+ PKER_RACCS ( 28, 36) = 0.433903E+00
+ PKER_RACCS ( 28, 37) = 0.436955E+00
+ PKER_RACCS ( 28, 38) = 0.439468E+00
+ PKER_RACCS ( 28, 39) = 0.441538E+00
+ PKER_RACCS ( 28, 40) = 0.443243E+00
+ PKER_RACCS ( 29, 1) = 0.153471E+02
+ PKER_RACCS ( 29, 2) = 0.126398E+02
+ PKER_RACCS ( 29, 3) = 0.103981E+02
+ PKER_RACCS ( 29, 4) = 0.854185E+01
+ PKER_RACCS ( 29, 5) = 0.700458E+01
+ PKER_RACCS ( 29, 6) = 0.573134E+01
+ PKER_RACCS ( 29, 7) = 0.467661E+01
+ PKER_RACCS ( 29, 8) = 0.380268E+01
+ PKER_RACCS ( 29, 9) = 0.307834E+01
+ PKER_RACCS ( 29, 10) = 0.247774E+01
+ PKER_RACCS ( 29, 11) = 0.197949E+01
+ PKER_RACCS ( 29, 12) = 0.156587E+01
+ PKER_RACCS ( 29, 13) = 0.122230E+01
+ PKER_RACCS ( 29, 14) = 0.936885E+00
+ PKER_RACCS ( 29, 15) = 0.700294E+00
+ PKER_RACCS ( 29, 16) = 0.505964E+00
+ PKER_RACCS ( 29, 17) = 0.350712E+00
+ PKER_RACCS ( 29, 18) = 0.234989E+00
+ PKER_RACCS ( 29, 19) = 0.161691E+00
+ PKER_RACCS ( 29, 20) = 0.131407E+00
+ PKER_RACCS ( 29, 21) = 0.138067E+00
+ PKER_RACCS ( 29, 22) = 0.168588E+00
+ PKER_RACCS ( 29, 23) = 0.208441E+00
+ PKER_RACCS ( 29, 24) = 0.247520E+00
+ PKER_RACCS ( 29, 25) = 0.281437E+00
+ PKER_RACCS ( 29, 26) = 0.309480E+00
+ PKER_RACCS ( 29, 27) = 0.332344E+00
+ PKER_RACCS ( 29, 28) = 0.350952E+00
+ PKER_RACCS ( 29, 29) = 0.366113E+00
+ PKER_RACCS ( 29, 30) = 0.378484E+00
+ PKER_RACCS ( 29, 31) = 0.388592E+00
+ PKER_RACCS ( 29, 32) = 0.396862E+00
+ PKER_RACCS ( 29, 33) = 0.403639E+00
+ PKER_RACCS ( 29, 34) = 0.409196E+00
+ PKER_RACCS ( 29, 35) = 0.413759E+00
+ PKER_RACCS ( 29, 36) = 0.417509E+00
+ PKER_RACCS ( 29, 37) = 0.420592E+00
+ PKER_RACCS ( 29, 38) = 0.423129E+00
+ PKER_RACCS ( 29, 39) = 0.425217E+00
+ PKER_RACCS ( 29, 40) = 0.426937E+00
+ PKER_RACCS ( 30, 1) = 0.153635E+02
+ PKER_RACCS ( 30, 2) = 0.126564E+02
+ PKER_RACCS ( 30, 3) = 0.104150E+02
+ PKER_RACCS ( 30, 4) = 0.855904E+01
+ PKER_RACCS ( 30, 5) = 0.702208E+01
+ PKER_RACCS ( 30, 6) = 0.574919E+01
+ PKER_RACCS ( 30, 7) = 0.469483E+01
+ PKER_RACCS ( 30, 8) = 0.382131E+01
+ PKER_RACCS ( 30, 9) = 0.309742E+01
+ PKER_RACCS ( 30, 10) = 0.249732E+01
+ PKER_RACCS ( 30, 11) = 0.199959E+01
+ PKER_RACCS ( 30, 12) = 0.158651E+01
+ PKER_RACCS ( 30, 13) = 0.124348E+01
+ PKER_RACCS ( 30, 14) = 0.958493E+00
+ PKER_RACCS ( 30, 15) = 0.722012E+00
+ PKER_RACCS ( 30, 16) = 0.527028E+00
+ PKER_RACCS ( 30, 17) = 0.369596E+00
+ PKER_RACCS ( 30, 18) = 0.249312E+00
+ PKER_RACCS ( 30, 19) = 0.168624E+00
+ PKER_RACCS ( 30, 20) = 0.129429E+00
+ PKER_RACCS ( 30, 21) = 0.127896E+00
+ PKER_RACCS ( 30, 22) = 0.152978E+00
+ PKER_RACCS ( 30, 23) = 0.190385E+00
+ PKER_RACCS ( 30, 24) = 0.228978E+00
+ PKER_RACCS ( 30, 25) = 0.263233E+00
+ PKER_RACCS ( 30, 26) = 0.291782E+00
+ PKER_RACCS ( 30, 27) = 0.315097E+00
+ PKER_RACCS ( 30, 28) = 0.334066E+00
+ PKER_RACCS ( 30, 29) = 0.349508E+00
+ PKER_RACCS ( 30, 30) = 0.362094E+00
+ PKER_RACCS ( 30, 31) = 0.372368E+00
+ PKER_RACCS ( 30, 32) = 0.380766E+00
+ PKER_RACCS ( 30, 33) = 0.387639E+00
+ PKER_RACCS ( 30, 34) = 0.393271E+00
+ PKER_RACCS ( 30, 35) = 0.397892E+00
+ PKER_RACCS ( 30, 36) = 0.401685E+00
+ PKER_RACCS ( 30, 37) = 0.404802E+00
+ PKER_RACCS ( 30, 38) = 0.407366E+00
+ PKER_RACCS ( 30, 39) = 0.409474E+00
+ PKER_RACCS ( 30, 40) = 0.411210E+00
+ PKER_RACCS ( 31, 1) = 0.153789E+02
+ PKER_RACCS ( 31, 2) = 0.126721E+02
+ PKER_RACCS ( 31, 3) = 0.104309E+02
+ PKER_RACCS ( 31, 4) = 0.857513E+01
+ PKER_RACCS ( 31, 5) = 0.703845E+01
+ PKER_RACCS ( 31, 6) = 0.576585E+01
+ PKER_RACCS ( 31, 7) = 0.471181E+01
+ PKER_RACCS ( 31, 8) = 0.383866E+01
+ PKER_RACCS ( 31, 9) = 0.311517E+01
+ PKER_RACCS ( 31, 10) = 0.251549E+01
+ PKER_RACCS ( 31, 11) = 0.201823E+01
+ PKER_RACCS ( 31, 12) = 0.160567E+01
+ PKER_RACCS ( 31, 13) = 0.126314E+01
+ PKER_RACCS ( 31, 14) = 0.978607E+00
+ PKER_RACCS ( 31, 15) = 0.742366E+00
+ PKER_RACCS ( 31, 16) = 0.547054E+00
+ PKER_RACCS ( 31, 17) = 0.388066E+00
+ PKER_RACCS ( 31, 18) = 0.264213E+00
+ PKER_RACCS ( 31, 19) = 0.177352E+00
+ PKER_RACCS ( 31, 20) = 0.129825E+00
+ PKER_RACCS ( 31, 21) = 0.120005E+00
+ PKER_RACCS ( 31, 22) = 0.138939E+00
+ PKER_RACCS ( 31, 23) = 0.173230E+00
+ PKER_RACCS ( 31, 24) = 0.210978E+00
+ PKER_RACCS ( 31, 25) = 0.245442E+00
+ PKER_RACCS ( 31, 26) = 0.274483E+00
+ PKER_RACCS ( 31, 27) = 0.298269E+00
+ PKER_RACCS ( 31, 28) = 0.317624E+00
+ PKER_RACCS ( 31, 29) = 0.333371E+00
+ PKER_RACCS ( 31, 30) = 0.346194E+00
+ PKER_RACCS ( 31, 31) = 0.356650E+00
+ PKER_RACCS ( 31, 32) = 0.365187E+00
+ PKER_RACCS ( 31, 33) = 0.372168E+00
+ PKER_RACCS ( 31, 34) = 0.377883E+00
+ PKER_RACCS ( 31, 35) = 0.382567E+00
+ PKER_RACCS ( 31, 36) = 0.386409E+00
+ PKER_RACCS ( 31, 37) = 0.389564E+00
+ PKER_RACCS ( 31, 38) = 0.392157E+00
+ PKER_RACCS ( 31, 39) = 0.394288E+00
+ PKER_RACCS ( 31, 40) = 0.396042E+00
+ PKER_RACCS ( 32, 1) = 0.153934E+02
+ PKER_RACCS ( 32, 2) = 0.126867E+02
+ PKER_RACCS ( 32, 3) = 0.104457E+02
+ PKER_RACCS ( 32, 4) = 0.859022E+01
+ PKER_RACCS ( 32, 5) = 0.705378E+01
+ PKER_RACCS ( 32, 6) = 0.578144E+01
+ PKER_RACCS ( 32, 7) = 0.472769E+01
+ PKER_RACCS ( 32, 8) = 0.385484E+01
+ PKER_RACCS ( 32, 9) = 0.313170E+01
+ PKER_RACCS ( 32, 10) = 0.253241E+01
+ PKER_RACCS ( 32, 11) = 0.203557E+01
+ PKER_RACCS ( 32, 12) = 0.162345E+01
+ PKER_RACCS ( 32, 13) = 0.128140E+01
+ PKER_RACCS ( 32, 14) = 0.997321E+00
+ PKER_RACCS ( 32, 15) = 0.761395E+00
+ PKER_RACCS ( 32, 16) = 0.565988E+00
+ PKER_RACCS ( 32, 17) = 0.405983E+00
+ PKER_RACCS ( 32, 18) = 0.279303E+00
+ PKER_RACCS ( 32, 19) = 0.187116E+00
+ PKER_RACCS ( 32, 20) = 0.132134E+00
+ PKER_RACCS ( 32, 21) = 0.114155E+00
+ PKER_RACCS ( 32, 22) = 0.126553E+00
+ PKER_RACCS ( 32, 23) = 0.157131E+00
+ PKER_RACCS ( 32, 24) = 0.193586E+00
+ PKER_RACCS ( 32, 25) = 0.228071E+00
+ PKER_RACCS ( 32, 26) = 0.257565E+00
+ PKER_RACCS ( 32, 27) = 0.281834E+00
+ PKER_RACCS ( 32, 28) = 0.301599E+00
+ PKER_RACCS ( 32, 29) = 0.317674E+00
+ PKER_RACCS ( 32, 30) = 0.330754E+00
+ PKER_RACCS ( 32, 31) = 0.341411E+00
+ PKER_RACCS ( 32, 32) = 0.350103E+00
+ PKER_RACCS ( 32, 33) = 0.357202E+00
+ PKER_RACCS ( 32, 34) = 0.363008E+00
+ PKER_RACCS ( 32, 35) = 0.367762E+00
+ PKER_RACCS ( 32, 36) = 0.371659E+00
+ PKER_RACCS ( 32, 37) = 0.374856E+00
+ PKER_RACCS ( 32, 38) = 0.377481E+00
+ PKER_RACCS ( 32, 39) = 0.379638E+00
+ PKER_RACCS ( 32, 40) = 0.381411E+00
+ PKER_RACCS ( 33, 1) = 0.154071E+02
+ PKER_RACCS ( 33, 2) = 0.127006E+02
+ PKER_RACCS ( 33, 3) = 0.104597E+02
+ PKER_RACCS ( 33, 4) = 0.860441E+01
+ PKER_RACCS ( 33, 5) = 0.706817E+01
+ PKER_RACCS ( 33, 6) = 0.579605E+01
+ PKER_RACCS ( 33, 7) = 0.474255E+01
+ PKER_RACCS ( 33, 8) = 0.386998E+01
+ PKER_RACCS ( 33, 9) = 0.314713E+01
+ PKER_RACCS ( 33, 10) = 0.254818E+01
+ PKER_RACCS ( 33, 11) = 0.205171E+01
+ PKER_RACCS ( 33, 12) = 0.164000E+01
+ PKER_RACCS ( 33, 13) = 0.129838E+01
+ PKER_RACCS ( 33, 14) = 0.101473E+01
+ PKER_RACCS ( 33, 15) = 0.779158E+00
+ PKER_RACCS ( 33, 16) = 0.583828E+00
+ PKER_RACCS ( 33, 17) = 0.423172E+00
+ PKER_RACCS ( 33, 18) = 0.294399E+00
+ PKER_RACCS ( 33, 19) = 0.197948E+00
+ PKER_RACCS ( 33, 20) = 0.136212E+00
+ PKER_RACCS ( 33, 21) = 0.110420E+00
+ PKER_RACCS ( 33, 22) = 0.115959E+00
+ PKER_RACCS ( 33, 23) = 0.142210E+00
+ PKER_RACCS ( 33, 24) = 0.176880E+00
+ PKER_RACCS ( 33, 25) = 0.211147E+00
+ PKER_RACCS ( 33, 26) = 0.241022E+00
+ PKER_RACCS ( 33, 27) = 0.265773E+00
+ PKER_RACCS ( 33, 28) = 0.285966E+00
+ PKER_RACCS ( 33, 29) = 0.302391E+00
+ PKER_RACCS ( 33, 30) = 0.315751E+00
+ PKER_RACCS ( 33, 31) = 0.326625E+00
+ PKER_RACCS ( 33, 32) = 0.335487E+00
+ PKER_RACCS ( 33, 33) = 0.342717E+00
+ PKER_RACCS ( 33, 34) = 0.348624E+00
+ PKER_RACCS ( 33, 35) = 0.353456E+00
+ PKER_RACCS ( 33, 36) = 0.357412E+00
+ PKER_RACCS ( 33, 37) = 0.360656E+00
+ PKER_RACCS ( 33, 38) = 0.363317E+00
+ PKER_RACCS ( 33, 39) = 0.365502E+00
+ PKER_RACCS ( 33, 40) = 0.367297E+00
+ PKER_RACCS ( 34, 1) = 0.154200E+02
+ PKER_RACCS ( 34, 2) = 0.127136E+02
+ PKER_RACCS ( 34, 3) = 0.104729E+02
+ PKER_RACCS ( 34, 4) = 0.861777E+01
+ PKER_RACCS ( 34, 5) = 0.708171E+01
+ PKER_RACCS ( 34, 6) = 0.580978E+01
+ PKER_RACCS ( 34, 7) = 0.475649E+01
+ PKER_RACCS ( 34, 8) = 0.388416E+01
+ PKER_RACCS ( 34, 9) = 0.316157E+01
+ PKER_RACCS ( 34, 10) = 0.256291E+01
+ PKER_RACCS ( 34, 11) = 0.206676E+01
+ PKER_RACCS ( 34, 12) = 0.165541E+01
+ PKER_RACCS ( 34, 13) = 0.131418E+01
+ PKER_RACCS ( 34, 14) = 0.103094E+01
+ PKER_RACCS ( 34, 15) = 0.795734E+00
+ PKER_RACCS ( 34, 16) = 0.600574E+00
+ PKER_RACCS ( 34, 17) = 0.439562E+00
+ PKER_RACCS ( 34, 18) = 0.309298E+00
+ PKER_RACCS ( 34, 19) = 0.209348E+00
+ PKER_RACCS ( 34, 20) = 0.141894E+00
+ PKER_RACCS ( 34, 21) = 0.108690E+00
+ PKER_RACCS ( 34, 22) = 0.107195E+00
+ PKER_RACCS ( 34, 23) = 0.128577E+00
+ PKER_RACCS ( 34, 24) = 0.160953E+00
+ PKER_RACCS ( 34, 25) = 0.194706E+00
+ PKER_RACCS ( 34, 26) = 0.224853E+00
+ PKER_RACCS ( 34, 27) = 0.250070E+00
+ PKER_RACCS ( 34, 28) = 0.270704E+00
+ PKER_RACCS ( 34, 29) = 0.287498E+00
+ PKER_RACCS ( 34, 30) = 0.301157E+00
+ PKER_RACCS ( 34, 31) = 0.312268E+00
+ PKER_RACCS ( 34, 32) = 0.321315E+00
+ PKER_RACCS ( 34, 33) = 0.328690E+00
+ PKER_RACCS ( 34, 34) = 0.334708E+00
+ PKER_RACCS ( 34, 35) = 0.339626E+00
+ PKER_RACCS ( 34, 36) = 0.343649E+00
+ PKER_RACCS ( 34, 37) = 0.346944E+00
+ PKER_RACCS ( 34, 38) = 0.349645E+00
+ PKER_RACCS ( 34, 39) = 0.351860E+00
+ PKER_RACCS ( 34, 40) = 0.353679E+00
+ PKER_RACCS ( 35, 1) = 0.154322E+02
+ PKER_RACCS ( 35, 2) = 0.127259E+02
+ PKER_RACCS ( 35, 3) = 0.104854E+02
+ PKER_RACCS ( 35, 4) = 0.863037E+01
+ PKER_RACCS ( 35, 5) = 0.709446E+01
+ PKER_RACCS ( 35, 6) = 0.582271E+01
+ PKER_RACCS ( 35, 7) = 0.476960E+01
+ PKER_RACCS ( 35, 8) = 0.389747E+01
+ PKER_RACCS ( 35, 9) = 0.317511E+01
+ PKER_RACCS ( 35, 10) = 0.257670E+01
+ PKER_RACCS ( 35, 11) = 0.208084E+01
+ PKER_RACCS ( 35, 12) = 0.166980E+01
+ PKER_RACCS ( 35, 13) = 0.132892E+01
+ PKER_RACCS ( 35, 14) = 0.104605E+01
+ PKER_RACCS ( 35, 15) = 0.811197E+00
+ PKER_RACCS ( 35, 16) = 0.616268E+00
+ PKER_RACCS ( 35, 17) = 0.455093E+00
+ PKER_RACCS ( 35, 18) = 0.323758E+00
+ PKER_RACCS ( 35, 19) = 0.221083E+00
+ PKER_RACCS ( 35, 20) = 0.148645E+00
+ PKER_RACCS ( 35, 21) = 0.108723E+00
+ PKER_RACCS ( 35, 22) = 0.100277E+00
+ PKER_RACCS ( 35, 23) = 0.116364E+00
+ PKER_RACCS ( 35, 24) = 0.145915E+00
+ PKER_RACCS ( 35, 25) = 0.178804E+00
+ PKER_RACCS ( 35, 26) = 0.209075E+00
+ PKER_RACCS ( 35, 27) = 0.234718E+00
+ PKER_RACCS ( 35, 28) = 0.255794E+00
+ PKER_RACCS ( 35, 29) = 0.272973E+00
+ PKER_RACCS ( 35, 30) = 0.286949E+00
+ PKER_RACCS ( 35, 31) = 0.298317E+00
+ PKER_RACCS ( 35, 32) = 0.307566E+00
+ PKER_RACCS ( 35, 33) = 0.315098E+00
+ PKER_RACCS ( 35, 34) = 0.321239E+00
+ PKER_RACCS ( 35, 35) = 0.326251E+00
+ PKER_RACCS ( 35, 36) = 0.330348E+00
+ PKER_RACCS ( 35, 37) = 0.333700E+00
+ PKER_RACCS ( 35, 38) = 0.336445E+00
+ PKER_RACCS ( 35, 39) = 0.338695E+00
+ PKER_RACCS ( 35, 40) = 0.340540E+00
+ PKER_RACCS ( 36, 1) = 0.154437E+02
+ PKER_RACCS ( 36, 2) = 0.127376E+02
+ PKER_RACCS ( 36, 3) = 0.104972E+02
+ PKER_RACCS ( 36, 4) = 0.864228E+01
+ PKER_RACCS ( 36, 5) = 0.710650E+01
+ PKER_RACCS ( 36, 6) = 0.583489E+01
+ PKER_RACCS ( 36, 7) = 0.478195E+01
+ PKER_RACCS ( 36, 8) = 0.390999E+01
+ PKER_RACCS ( 36, 9) = 0.318783E+01
+ PKER_RACCS ( 36, 10) = 0.258964E+01
+ PKER_RACCS ( 36, 11) = 0.209403E+01
+ PKER_RACCS ( 36, 12) = 0.168327E+01
+ PKER_RACCS ( 36, 13) = 0.134269E+01
+ PKER_RACCS ( 36, 14) = 0.106015E+01
+ PKER_RACCS ( 36, 15) = 0.825632E+00
+ PKER_RACCS ( 36, 16) = 0.630963E+00
+ PKER_RACCS ( 36, 17) = 0.469771E+00
+ PKER_RACCS ( 36, 18) = 0.337705E+00
+ PKER_RACCS ( 36, 19) = 0.233002E+00
+ PKER_RACCS ( 36, 20) = 0.156540E+00
+ PKER_RACCS ( 36, 21) = 0.110543E+00
+ PKER_RACCS ( 36, 22) = 0.952936E-01
+ PKER_RACCS ( 36, 23) = 0.105698E+00
+ PKER_RACCS ( 36, 24) = 0.131883E+00
+ PKER_RACCS ( 36, 25) = 0.163510E+00
+ PKER_RACCS ( 36, 26) = 0.193709E+00
+ PKER_RACCS ( 36, 27) = 0.219715E+00
+ PKER_RACCS ( 36, 28) = 0.241223E+00
+ PKER_RACCS ( 36, 29) = 0.258796E+00
+ PKER_RACCS ( 36, 30) = 0.273106E+00
+ PKER_RACCS ( 36, 31) = 0.284746E+00
+ PKER_RACCS ( 36, 32) = 0.294214E+00
+ PKER_RACCS ( 36, 33) = 0.301919E+00
+ PKER_RACCS ( 36, 34) = 0.308194E+00
+ PKER_RACCS ( 36, 35) = 0.313312E+00
+ PKER_RACCS ( 36, 36) = 0.317489E+00
+ PKER_RACCS ( 36, 37) = 0.320904E+00
+ PKER_RACCS ( 36, 38) = 0.323698E+00
+ PKER_RACCS ( 36, 39) = 0.325986E+00
+ PKER_RACCS ( 36, 40) = 0.327861E+00
+ PKER_RACCS ( 37, 1) = 0.154547E+02
+ PKER_RACCS ( 37, 2) = 0.127487E+02
+ PKER_RACCS ( 37, 3) = 0.105084E+02
+ PKER_RACCS ( 37, 4) = 0.865355E+01
+ PKER_RACCS ( 37, 5) = 0.711789E+01
+ PKER_RACCS ( 37, 6) = 0.584640E+01
+ PKER_RACCS ( 37, 7) = 0.479360E+01
+ PKER_RACCS ( 37, 8) = 0.392180E+01
+ PKER_RACCS ( 37, 9) = 0.319981E+01
+ PKER_RACCS ( 37, 10) = 0.260181E+01
+ PKER_RACCS ( 37, 11) = 0.210640E+01
+ PKER_RACCS ( 37, 12) = 0.169588E+01
+ PKER_RACCS ( 37, 13) = 0.135558E+01
+ PKER_RACCS ( 37, 14) = 0.107334E+01
+ PKER_RACCS ( 37, 15) = 0.839123E+00
+ PKER_RACCS ( 37, 16) = 0.644719E+00
+ PKER_RACCS ( 37, 17) = 0.483597E+00
+ PKER_RACCS ( 37, 18) = 0.351093E+00
+ PKER_RACCS ( 37, 19) = 0.244805E+00
+ PKER_RACCS ( 37, 20) = 0.164956E+00
+ PKER_RACCS ( 37, 21) = 0.113667E+00
+ PKER_RACCS ( 37, 22) = 0.920176E-01
+ PKER_RACCS ( 37, 23) = 0.966205E-01
+ PKER_RACCS ( 37, 24) = 0.118987E+00
+ PKER_RACCS ( 37, 25) = 0.148905E+00
+ PKER_RACCS ( 37, 26) = 0.178792E+00
+ PKER_RACCS ( 37, 27) = 0.205068E+00
+ PKER_RACCS ( 37, 28) = 0.226984E+00
+ PKER_RACCS ( 37, 29) = 0.244952E+00
+ PKER_RACCS ( 37, 30) = 0.259607E+00
+ PKER_RACCS ( 37, 31) = 0.271536E+00
+ PKER_RACCS ( 37, 32) = 0.281239E+00
+ PKER_RACCS ( 37, 33) = 0.289131E+00
+ PKER_RACCS ( 37, 34) = 0.295554E+00
+ PKER_RACCS ( 37, 35) = 0.300786E+00
+ PKER_RACCS ( 37, 36) = 0.305053E+00
+ PKER_RACCS ( 37, 37) = 0.308537E+00
+ PKER_RACCS ( 37, 38) = 0.311385E+00
+ PKER_RACCS ( 37, 39) = 0.313715E+00
+ PKER_RACCS ( 37, 40) = 0.315623E+00
+ PKER_RACCS ( 38, 1) = 0.154651E+02
+ PKER_RACCS ( 38, 2) = 0.127592E+02
+ PKER_RACCS ( 38, 3) = 0.105189E+02
+ PKER_RACCS ( 38, 4) = 0.866424E+01
+ PKER_RACCS ( 38, 5) = 0.712867E+01
+ PKER_RACCS ( 38, 6) = 0.585730E+01
+ PKER_RACCS ( 38, 7) = 0.480461E+01
+ PKER_RACCS ( 38, 8) = 0.393294E+01
+ PKER_RACCS ( 38, 9) = 0.321110E+01
+ PKER_RACCS ( 38, 10) = 0.261326E+01
+ PKER_RACCS ( 38, 11) = 0.211804E+01
+ PKER_RACCS ( 38, 12) = 0.170773E+01
+ PKER_RACCS ( 38, 13) = 0.136766E+01
+ PKER_RACCS ( 38, 14) = 0.108568E+01
+ PKER_RACCS ( 38, 15) = 0.851746E+00
+ PKER_RACCS ( 38, 16) = 0.657601E+00
+ PKER_RACCS ( 38, 17) = 0.496617E+00
+ PKER_RACCS ( 38, 18) = 0.363853E+00
+ PKER_RACCS ( 38, 19) = 0.256418E+00
+ PKER_RACCS ( 38, 20) = 0.173936E+00
+ PKER_RACCS ( 38, 21) = 0.118035E+00
+ PKER_RACCS ( 38, 22) = 0.904182E-01
+ PKER_RACCS ( 38, 23) = 0.891827E-01
+ PKER_RACCS ( 38, 24) = 0.107309E+00
+ PKER_RACCS ( 38, 25) = 0.135085E+00
+ PKER_RACCS ( 38, 26) = 0.164376E+00
+ PKER_RACCS ( 38, 27) = 0.190797E+00
+ PKER_RACCS ( 38, 28) = 0.213077E+00
+ PKER_RACCS ( 38, 29) = 0.231429E+00
+ PKER_RACCS ( 38, 30) = 0.246435E+00
+ PKER_RACCS ( 38, 31) = 0.258666E+00
+ PKER_RACCS ( 38, 32) = 0.268619E+00
+ PKER_RACCS ( 38, 33) = 0.276713E+00
+ PKER_RACCS ( 38, 34) = 0.283296E+00
+ PKER_RACCS ( 38, 35) = 0.288655E+00
+ PKER_RACCS ( 38, 36) = 0.293021E+00
+ PKER_RACCS ( 38, 37) = 0.296581E+00
+ PKER_RACCS ( 38, 38) = 0.299489E+00
+ PKER_RACCS ( 38, 39) = 0.301865E+00
+ PKER_RACCS ( 38, 40) = 0.303809E+00
+ PKER_RACCS ( 39, 1) = 0.154751E+02
+ PKER_RACCS ( 39, 2) = 0.127692E+02
+ PKER_RACCS ( 39, 3) = 0.105290E+02
+ PKER_RACCS ( 39, 4) = 0.867437E+01
+ PKER_RACCS ( 39, 5) = 0.713890E+01
+ PKER_RACCS ( 39, 6) = 0.586761E+01
+ PKER_RACCS ( 39, 7) = 0.481503E+01
+ PKER_RACCS ( 39, 8) = 0.394348E+01
+ PKER_RACCS ( 39, 9) = 0.322176E+01
+ PKER_RACCS ( 39, 10) = 0.262407E+01
+ PKER_RACCS ( 39, 11) = 0.212901E+01
+ PKER_RACCS ( 39, 12) = 0.171888E+01
+ PKER_RACCS ( 39, 13) = 0.137901E+01
+ PKER_RACCS ( 39, 14) = 0.109726E+01
+ PKER_RACCS ( 39, 15) = 0.863575E+00
+ PKER_RACCS ( 39, 16) = 0.669676E+00
+ PKER_RACCS ( 39, 17) = 0.508853E+00
+ PKER_RACCS ( 39, 18) = 0.375974E+00
+ PKER_RACCS ( 39, 19) = 0.267742E+00
+ PKER_RACCS ( 39, 20) = 0.183133E+00
+ PKER_RACCS ( 39, 21) = 0.123400E+00
+ PKER_RACCS ( 39, 22) = 0.903156E-01
+ PKER_RACCS ( 39, 23) = 0.833086E-01
+ PKER_RACCS ( 39, 24) = 0.969146E-01
+ PKER_RACCS ( 39, 25) = 0.122138E+00
+ PKER_RACCS ( 39, 26) = 0.150523E+00
+ PKER_RACCS ( 39, 27) = 0.176926E+00
+ PKER_RACCS ( 39, 28) = 0.199507E+00
+ PKER_RACCS ( 39, 29) = 0.218223E+00
+ PKER_RACCS ( 39, 30) = 0.233578E+00
+ PKER_RACCS ( 39, 31) = 0.246119E+00
+ PKER_RACCS ( 39, 32) = 0.256334E+00
+ PKER_RACCS ( 39, 33) = 0.264645E+00
+ PKER_RACCS ( 39, 34) = 0.271402E+00
+ PKER_RACCS ( 39, 35) = 0.276898E+00
+ PKER_RACCS ( 39, 36) = 0.281372E+00
+ PKER_RACCS ( 39, 37) = 0.285017E+00
+ PKER_RACCS ( 39, 38) = 0.287991E+00
+ PKER_RACCS ( 39, 39) = 0.290418E+00
+ PKER_RACCS ( 39, 40) = 0.292402E+00
+ PKER_RACCS ( 40, 1) = 0.154845E+02
+ PKER_RACCS ( 40, 2) = 0.127787E+02
+ PKER_RACCS ( 40, 3) = 0.105386E+02
+ PKER_RACCS ( 40, 4) = 0.868401E+01
+ PKER_RACCS ( 40, 5) = 0.714861E+01
+ PKER_RACCS ( 40, 6) = 0.587741E+01
+ PKER_RACCS ( 40, 7) = 0.482491E+01
+ PKER_RACCS ( 40, 8) = 0.395346E+01
+ PKER_RACCS ( 40, 9) = 0.323185E+01
+ PKER_RACCS ( 40, 10) = 0.263428E+01
+ PKER_RACCS ( 40, 11) = 0.213936E+01
+ PKER_RACCS ( 40, 12) = 0.172939E+01
+ PKER_RACCS ( 40, 13) = 0.138969E+01
+ PKER_RACCS ( 40, 14) = 0.110814E+01
+ PKER_RACCS ( 40, 15) = 0.874679E+00
+ PKER_RACCS ( 40, 16) = 0.681005E+00
+ PKER_RACCS ( 40, 17) = 0.520355E+00
+ PKER_RACCS ( 40, 18) = 0.387440E+00
+ PKER_RACCS ( 40, 19) = 0.278646E+00
+ PKER_RACCS ( 40, 20) = 0.192385E+00
+ PKER_RACCS ( 40, 21) = 0.129387E+00
+ PKER_RACCS ( 40, 22) = 0.915189E-01
+ PKER_RACCS ( 40, 23) = 0.790250E-01
+ PKER_RACCS ( 40, 24) = 0.878891E-01
+ PKER_RACCS ( 40, 25) = 0.110149E+00
+ PKER_RACCS ( 40, 26) = 0.137298E+00
+ PKER_RACCS ( 40, 27) = 0.163493E+00
+ PKER_RACCS ( 40, 28) = 0.186290E+00
+ PKER_RACCS ( 40, 29) = 0.205334E+00
+ PKER_RACCS ( 40, 30) = 0.221025E+00
+ PKER_RACCS ( 40, 31) = 0.233879E+00
+ PKER_RACCS ( 40, 32) = 0.244367E+00
+ PKER_RACCS ( 40, 33) = 0.252907E+00
+ PKER_RACCS ( 40, 34) = 0.259851E+00
+ PKER_RACCS ( 40, 35) = 0.265497E+00
+ PKER_RACCS ( 40, 36) = 0.270089E+00
+ PKER_RACCS ( 40, 37) = 0.273828E+00
+ PKER_RACCS ( 40, 38) = 0.276873E+00
+ PKER_RACCS ( 40, 39) = 0.279358E+00
+ PKER_RACCS ( 40, 40) = 0.281386E+00
END IF
!
IF( PRESENT(PKER_SACCRG) ) THEN
- PKER_SACCRG( 1, 1) = 0.403346E-01
- PKER_SACCRG( 1, 2) = 0.679214E-01
- PKER_SACCRG( 1, 3) = 0.105303E+00
- PKER_SACCRG( 1, 4) = 0.191884E+00
- PKER_SACCRG( 1, 5) = 0.356499E+00
- PKER_SACCRG( 1, 6) = 0.645361E+00
- PKER_SACCRG( 1, 7) = 0.109656E+01
- PKER_SACCRG( 1, 8) = 0.172233E+01
- PKER_SACCRG( 1, 9) = 0.249565E+01
- PKER_SACCRG( 1, 10) = 0.335221E+01
- PKER_SACCRG( 1, 11) = 0.421020E+01
- PKER_SACCRG( 1, 12) = 0.500014E+01
- PKER_SACCRG( 1, 13) = 0.568528E+01
- PKER_SACCRG( 1, 14) = 0.626334E+01
- PKER_SACCRG( 1, 15) = 0.675253E+01
- PKER_SACCRG( 1, 16) = 0.717505E+01
- PKER_SACCRG( 1, 17) = 0.754648E+01
- PKER_SACCRG( 1, 18) = 0.787497E+01
- PKER_SACCRG( 1, 19) = 0.816359E+01
- PKER_SACCRG( 1, 20) = 0.839531E+01
- PKER_SACCRG( 1, 21) = 0.861132E+01
- PKER_SACCRG( 1, 22) = 0.879448E+01
- PKER_SACCRG( 1, 23) = 0.891918E+01
- PKER_SACCRG( 1, 24) = 0.905216E+01
- PKER_SACCRG( 1, 25) = 0.913347E+01
- PKER_SACCRG( 1, 26) = 0.920118E+01
- PKER_SACCRG( 1, 27) = 0.926006E+01
- PKER_SACCRG( 1, 28) = 0.928744E+01
- PKER_SACCRG( 1, 29) = 0.931698E+01
- PKER_SACCRG( 1, 30) = 0.934860E+01
- PKER_SACCRG( 1, 31) = 0.936637E+01
- PKER_SACCRG( 1, 32) = 0.937727E+01
- PKER_SACCRG( 1, 33) = 0.938596E+01
- PKER_SACCRG( 1, 34) = 0.938735E+01
- PKER_SACCRG( 1, 35) = 0.939455E+01
- PKER_SACCRG( 1, 36) = 0.940989E+01
- PKER_SACCRG( 1, 37) = 0.000000E+00
- PKER_SACCRG( 1, 38) = 0.000000E+00
- PKER_SACCRG( 1, 39) = 0.000000E+00
- PKER_SACCRG( 1, 40) = 0.000000E+00
- PKER_SACCRG( 2, 1) = 0.232705E-01
- PKER_SACCRG( 2, 2) = 0.335875E-01
- PKER_SACCRG( 2, 3) = 0.565187E-01
- PKER_SACCRG( 2, 4) = 0.875474E-01
- PKER_SACCRG( 2, 5) = 0.159343E+00
- PKER_SACCRG( 2, 6) = 0.295630E+00
- PKER_SACCRG( 2, 7) = 0.534289E+00
- PKER_SACCRG( 2, 8) = 0.906069E+00
- PKER_SACCRG( 2, 9) = 0.141997E+01
- PKER_SACCRG( 2, 10) = 0.205255E+01
- PKER_SACCRG( 2, 11) = 0.274997E+01
- PKER_SACCRG( 2, 12) = 0.344544E+01
- PKER_SACCRG( 2, 13) = 0.408314E+01
- PKER_SACCRG( 2, 14) = 0.463534E+01
- PKER_SACCRG( 2, 15) = 0.510239E+01
- PKER_SACCRG( 2, 16) = 0.550069E+01
- PKER_SACCRG( 2, 17) = 0.584817E+01
- PKER_SACCRG( 2, 18) = 0.615710E+01
- PKER_SACCRG( 2, 19) = 0.643286E+01
- PKER_SACCRG( 2, 20) = 0.665945E+01
- PKER_SACCRG( 2, 21) = 0.687323E+01
- PKER_SACCRG( 2, 22) = 0.705716E+01
- PKER_SACCRG( 2, 23) = 0.718460E+01
- PKER_SACCRG( 2, 24) = 0.732011E+01
- PKER_SACCRG( 2, 25) = 0.740395E+01
- PKER_SACCRG( 2, 26) = 0.747372E+01
- PKER_SACCRG( 2, 27) = 0.753430E+01
- PKER_SACCRG( 2, 28) = 0.756268E+01
- PKER_SACCRG( 2, 29) = 0.759307E+01
- PKER_SACCRG( 2, 30) = 0.762550E+01
- PKER_SACCRG( 2, 31) = 0.764373E+01
- PKER_SACCRG( 2, 32) = 0.765493E+01
- PKER_SACCRG( 2, 33) = 0.766384E+01
- PKER_SACCRG( 2, 34) = 0.766528E+01
- PKER_SACCRG( 2, 35) = 0.767265E+01
- PKER_SACCRG( 2, 36) = 0.768832E+01
- PKER_SACCRG( 2, 37) = 0.000000E+00
- PKER_SACCRG( 2, 38) = 0.000000E+00
- PKER_SACCRG( 2, 39) = 0.000000E+00
- PKER_SACCRG( 2, 40) = 0.000000E+00
- PKER_SACCRG( 3, 1) = 0.183931E-01
- PKER_SACCRG( 3, 2) = 0.194765E-01
- PKER_SACCRG( 3, 3) = 0.280964E-01
- PKER_SACCRG( 3, 4) = 0.472341E-01
- PKER_SACCRG( 3, 5) = 0.730819E-01
- PKER_SACCRG( 3, 6) = 0.132827E+00
- PKER_SACCRG( 3, 7) = 0.245992E+00
- PKER_SACCRG( 3, 8) = 0.443632E+00
- PKER_SACCRG( 3, 9) = 0.750424E+00
- PKER_SACCRG( 3, 10) = 0.117268E+01
- PKER_SACCRG( 3, 11) = 0.168954E+01
- PKER_SACCRG( 3, 12) = 0.225593E+01
- PKER_SACCRG( 3, 13) = 0.281701E+01
- PKER_SACCRG( 3, 14) = 0.332851E+01
- PKER_SACCRG( 3, 15) = 0.377021E+01
- PKER_SACCRG( 3, 16) = 0.414495E+01
- PKER_SACCRG( 3, 17) = 0.446759E+01
- PKER_SACCRG( 3, 18) = 0.475325E+01
- PKER_SACCRG( 3, 19) = 0.501103E+01
- PKER_SACCRG( 3, 20) = 0.522794E+01
- PKER_SACCRG( 3, 21) = 0.543570E+01
- PKER_SACCRG( 3, 22) = 0.561785E+01
- PKER_SACCRG( 3, 23) = 0.574685E+01
- PKER_SACCRG( 3, 24) = 0.588391E+01
- PKER_SACCRG( 3, 25) = 0.597001E+01
- PKER_SACCRG( 3, 26) = 0.604169E+01
- PKER_SACCRG( 3, 27) = 0.610387E+01
- PKER_SACCRG( 3, 28) = 0.613328E+01
- PKER_SACCRG( 3, 29) = 0.616451E+01
- PKER_SACCRG( 3, 30) = 0.619771E+01
- PKER_SACCRG( 3, 31) = 0.621641E+01
- PKER_SACCRG( 3, 32) = 0.622789E+01
- PKER_SACCRG( 3, 33) = 0.623702E+01
- PKER_SACCRG( 3, 34) = 0.623852E+01
- PKER_SACCRG( 3, 35) = 0.624605E+01
- PKER_SACCRG( 3, 36) = 0.626204E+01
- PKER_SACCRG( 3, 37) = 0.000000E+00
- PKER_SACCRG( 3, 38) = 0.000000E+00
- PKER_SACCRG( 3, 39) = 0.000000E+00
- PKER_SACCRG( 3, 40) = 0.000000E+00
- PKER_SACCRG( 4, 1) = 0.114393E-01
- PKER_SACCRG( 4, 2) = 0.155094E-01
- PKER_SACCRG( 4, 3) = 0.164106E-01
- PKER_SACCRG( 4, 4) = 0.236526E-01
- PKER_SACCRG( 4, 5) = 0.397213E-01
- PKER_SACCRG( 4, 6) = 0.613666E-01
- PKER_SACCRG( 4, 7) = 0.111326E+00
- PKER_SACCRG( 4, 8) = 0.205685E+00
- PKER_SACCRG( 4, 9) = 0.369928E+00
- PKER_SACCRG( 4, 10) = 0.623698E+00
- PKER_SACCRG( 4, 11) = 0.970783E+00
- PKER_SACCRG( 4, 12) = 0.139255E+01
- PKER_SACCRG( 4, 13) = 0.185072E+01
- PKER_SACCRG( 4, 14) = 0.230015E+01
- PKER_SACCRG( 4, 15) = 0.270627E+01
- PKER_SACCRG( 4, 16) = 0.305559E+01
- PKER_SACCRG( 4, 17) = 0.335340E+01
- PKER_SACCRG( 4, 18) = 0.361392E+01
- PKER_SACCRG( 4, 19) = 0.384970E+01
- PKER_SACCRG( 4, 20) = 0.405246E+01
- PKER_SACCRG( 4, 21) = 0.425002E+01
- PKER_SACCRG( 4, 22) = 0.442724E+01
- PKER_SACCRG( 4, 23) = 0.455616E+01
- PKER_SACCRG( 4, 24) = 0.469337E+01
- PKER_SACCRG( 4, 25) = 0.478122E+01
- PKER_SACCRG( 4, 26) = 0.485452E+01
- PKER_SACCRG( 4, 27) = 0.491813E+01
- PKER_SACCRG( 4, 28) = 0.494855E+01
- PKER_SACCRG( 4, 29) = 0.498058E+01
- PKER_SACCRG( 4, 30) = 0.501450E+01
- PKER_SACCRG( 4, 31) = 0.503365E+01
- PKER_SACCRG( 4, 32) = 0.504542E+01
- PKER_SACCRG( 4, 33) = 0.505475E+01
- PKER_SACCRG( 4, 34) = 0.505631E+01
- PKER_SACCRG( 4, 35) = 0.506399E+01
- PKER_SACCRG( 4, 36) = 0.508029E+01
- PKER_SACCRG( 4, 37) = 0.000000E+00
- PKER_SACCRG( 4, 38) = 0.000000E+00
- PKER_SACCRG( 4, 39) = 0.000000E+00
- PKER_SACCRG( 4, 40) = 0.000000E+00
- PKER_SACCRG( 5, 1) = 0.885989E-02
- PKER_SACCRG( 5, 2) = 0.975839E-02
- PKER_SACCRG( 5, 3) = 0.132035E-01
- PKER_SACCRG( 5, 4) = 0.139558E-01
- PKER_SACCRG( 5, 5) = 0.200916E-01
- PKER_SACCRG( 5, 6) = 0.296110E-01
- PKER_SACCRG( 5, 7) = 0.519536E-01
- PKER_SACCRG( 5, 8) = 0.940172E-01
- PKER_SACCRG( 5, 9) = 0.173205E+00
- PKER_SACCRG( 5, 10) = 0.310322E+00
- PKER_SACCRG( 5, 11) = 0.520780E+00
- PKER_SACCRG( 5, 12) = 0.806566E+00
- PKER_SACCRG( 5, 13) = 0.115020E+01
- PKER_SACCRG( 5, 14) = 0.151872E+01
- PKER_SACCRG( 5, 15) = 0.187497E+01
- PKER_SACCRG( 5, 16) = 0.219377E+01
- PKER_SACCRG( 5, 17) = 0.246641E+01
- PKER_SACCRG( 5, 18) = 0.270162E+01
- PKER_SACCRG( 5, 19) = 0.291200E+01
- PKER_SACCRG( 5, 20) = 0.309558E+01
- PKER_SACCRG( 5, 21) = 0.327751E+01
- PKER_SACCRG( 5, 22) = 0.344551E+01
- PKER_SACCRG( 5, 23) = 0.357190E+01
- PKER_SACCRG( 5, 24) = 0.370734E+01
- PKER_SACCRG( 5, 25) = 0.379614E+01
- PKER_SACCRG( 5, 26) = 0.387059E+01
- PKER_SACCRG( 5, 27) = 0.393531E+01
- PKER_SACCRG( 5, 28) = 0.396669E+01
- PKER_SACCRG( 5, 29) = 0.399944E+01
- PKER_SACCRG( 5, 30) = 0.403397E+01
- PKER_SACCRG( 5, 31) = 0.405353E+01
- PKER_SACCRG( 5, 32) = 0.406555E+01
- PKER_SACCRG( 5, 33) = 0.407508E+01
- PKER_SACCRG( 5, 34) = 0.407671E+01
- PKER_SACCRG( 5, 35) = 0.408453E+01
- PKER_SACCRG( 5, 36) = 0.410107E+01
- PKER_SACCRG( 5, 37) = 0.000000E+00
- PKER_SACCRG( 5, 38) = 0.000000E+00
- PKER_SACCRG( 5, 39) = 0.000000E+00
- PKER_SACCRG( 5, 40) = 0.000000E+00
- PKER_SACCRG( 6, 1) = 0.939278E-02
- PKER_SACCRG( 6, 2) = 0.770370E-02
- PKER_SACCRG( 6, 3) = 0.844219E-02
- PKER_SACCRG( 6, 4) = 0.113902E-01
- PKER_SACCRG( 6, 5) = 0.120225E-01
- PKER_SACCRG( 6, 6) = 0.172828E-01
- PKER_SACCRG( 6, 7) = 0.254190E-01
- PKER_SACCRG( 6, 8) = 0.444876E-01
- PKER_SACCRG( 6, 9) = 0.802697E-01
- PKER_SACCRG( 6, 10) = 0.147308E+00
- PKER_SACCRG( 6, 11) = 0.262153E+00
- PKER_SACCRG( 6, 12) = 0.437891E+00
- PKER_SACCRG( 6, 13) = 0.673319E+00
- PKER_SACCRG( 6, 14) = 0.951922E+00
- PKER_SACCRG( 6, 15) = 0.124486E+01
- PKER_SACCRG( 6, 16) = 0.152378E+01
- PKER_SACCRG( 6, 17) = 0.176859E+01
- PKER_SACCRG( 6, 18) = 0.197911E+01
- PKER_SACCRG( 6, 19) = 0.216406E+01
- PKER_SACCRG( 6, 20) = 0.232602E+01
- PKER_SACCRG( 6, 21) = 0.248802E+01
- PKER_SACCRG( 6, 22) = 0.264189E+01
- PKER_SACCRG( 6, 23) = 0.276205E+01
- PKER_SACCRG( 6, 24) = 0.289262E+01
- PKER_SACCRG( 6, 25) = 0.298091E+01
- PKER_SACCRG( 6, 26) = 0.305566E+01
- PKER_SACCRG( 6, 27) = 0.312099E+01
- PKER_SACCRG( 6, 28) = 0.315321E+01
- PKER_SACCRG( 6, 29) = 0.318651E+01
- PKER_SACCRG( 6, 30) = 0.322151E+01
- PKER_SACCRG( 6, 31) = 0.324141E+01
- PKER_SACCRG( 6, 32) = 0.325366E+01
- PKER_SACCRG( 6, 33) = 0.326335E+01
- PKER_SACCRG( 6, 34) = 0.326504E+01
- PKER_SACCRG( 6, 35) = 0.327297E+01
- PKER_SACCRG( 6, 36) = 0.328972E+01
- PKER_SACCRG( 6, 37) = 0.000000E+00
- PKER_SACCRG( 6, 38) = 0.000000E+00
- PKER_SACCRG( 6, 39) = 0.000000E+00
- PKER_SACCRG( 6, 40) = 0.000000E+00
- PKER_SACCRG( 7, 1) = 0.197193E-02
- PKER_SACCRG( 7, 2) = 0.840926E-02
- PKER_SACCRG( 7, 3) = 0.684203E-02
- PKER_SACCRG( 7, 4) = 0.744934E-02
- PKER_SACCRG( 7, 5) = 0.100142E-01
- PKER_SACCRG( 7, 6) = 0.105435E-01
- PKER_SACCRG( 7, 7) = 0.151114E-01
- PKER_SACCRG( 7, 8) = 0.221799E-01
- PKER_SACCRG( 7, 9) = 0.387273E-01
- PKER_SACCRG( 7, 10) = 0.696342E-01
- PKER_SACCRG( 7, 11) = 0.126786E+00
- PKER_SACCRG( 7, 12) = 0.224173E+00
- PKER_SACCRG( 7, 13) = 0.371284E+00
- PKER_SACCRG( 7, 14) = 0.564401E+00
- PKER_SACCRG( 7, 15) = 0.787177E+00
- PKER_SACCRG( 7, 16) = 0.101687E+01
- PKER_SACCRG( 7, 17) = 0.122807E+01
- PKER_SACCRG( 7, 18) = 0.141258E+01
- PKER_SACCRG( 7, 19) = 0.157270E+01
- PKER_SACCRG( 7, 20) = 0.171283E+01
- PKER_SACCRG( 7, 21) = 0.185341E+01
- PKER_SACCRG( 7, 22) = 0.199032E+01
- PKER_SACCRG( 7, 23) = 0.210129E+01
- PKER_SACCRG( 7, 24) = 0.222356E+01
- PKER_SACCRG( 7, 25) = 0.230903E+01
- PKER_SACCRG( 7, 26) = 0.238240E+01
- PKER_SACCRG( 7, 27) = 0.244719E+01
- PKER_SACCRG( 7, 28) = 0.247983E+01
- PKER_SACCRG( 7, 29) = 0.251337E+01
- PKER_SACCRG( 7, 30) = 0.254858E+01
- PKER_SACCRG( 7, 31) = 0.256871E+01
- PKER_SACCRG( 7, 32) = 0.258114E+01
- PKER_SACCRG( 7, 33) = 0.259094E+01
- PKER_SACCRG( 7, 34) = 0.259270E+01
- PKER_SACCRG( 7, 35) = 0.260070E+01
- PKER_SACCRG( 7, 36) = 0.261756E+01
- PKER_SACCRG( 7, 37) = 0.000000E+00
- PKER_SACCRG( 7, 38) = 0.000000E+00
- PKER_SACCRG( 7, 39) = 0.000000E+00
- PKER_SACCRG( 7, 40) = 0.000000E+00
- PKER_SACCRG( 8, 1) = 0.287028E-02
- PKER_SACCRG( 8, 2) = 0.183962E-02
- PKER_SACCRG( 8, 3) = 0.778156E-02
- PKER_SACCRG( 8, 4) = 0.626956E-02
- PKER_SACCRG( 8, 5) = 0.676623E-02
- PKER_SACCRG( 8, 6) = 0.546166E-02
- PKER_SACCRG( 8, 7) = 0.943103E-02
- PKER_SACCRG( 8, 8) = 0.135380E-01
- PKER_SACCRG( 8, 9) = 0.198532E-01
- PKER_SACCRG( 8, 10) = 0.345712E-01
- PKER_SACCRG( 8, 11) = 0.614306E-01
- PKER_SACCRG( 8, 12) = 0.111431E+00
- PKER_SACCRG( 8, 13) = 0.195294E+00
- PKER_SACCRG( 8, 14) = 0.318747E+00
- PKER_SACCRG( 8, 15) = 0.475607E+00
- PKER_SACCRG( 8, 16) = 0.653793E+00
- PKER_SACCRG( 8, 17) = 0.827434E+00
- PKER_SACCRG( 8, 18) = 0.984457E+00
- PKER_SACCRG( 8, 19) = 0.111823E+01
- PKER_SACCRG( 8, 20) = 0.123445E+01
- PKER_SACCRG( 8, 21) = 0.135038E+01
- PKER_SACCRG( 8, 22) = 0.146703E+01
- PKER_SACCRG( 8, 23) = 0.156617E+01
- PKER_SACCRG( 8, 24) = 0.167765E+01
- PKER_SACCRG( 8, 25) = 0.175863E+01
- PKER_SACCRG( 8, 26) = 0.182918E+01
- PKER_SACCRG( 8, 27) = 0.189212E+01
- PKER_SACCRG( 8, 28) = 0.192450E+01
- PKER_SACCRG( 8, 29) = 0.195757E+01
- PKER_SACCRG( 8, 30) = 0.199227E+01
- PKER_SACCRG( 8, 31) = 0.201226E+01
- PKER_SACCRG( 8, 32) = 0.202464E+01
- PKER_SACCRG( 8, 33) = 0.203441E+01
- PKER_SACCRG( 8, 34) = 0.203619E+01
- PKER_SACCRG( 8, 35) = 0.204416E+01
- PKER_SACCRG( 8, 36) = 0.206100E+01
- PKER_SACCRG( 8, 37) = 0.000000E+00
- PKER_SACCRG( 8, 38) = 0.000000E+00
- PKER_SACCRG( 8, 39) = 0.000000E+00
- PKER_SACCRG( 8, 40) = 0.000000E+00
- PKER_SACCRG( 9, 1) = 0.227973E-03
- PKER_SACCRG( 9, 2) = 0.282707E-02
- PKER_SACCRG( 9, 3) = 0.180146E-02
- PKER_SACCRG( 9, 4) = 0.195291E-02
- PKER_SACCRG( 9, 5) = 0.601462E-02
- PKER_SACCRG( 9, 6) = 0.639847E-02
- PKER_SACCRG( 9, 7) = 0.503409E-02
- PKER_SACCRG( 9, 8) = 0.874760E-02
- PKER_SACCRG( 9, 9) = 0.125924E-01
- PKER_SACCRG( 9, 10) = 0.187098E-01
- PKER_SACCRG( 9, 11) = 0.315437E-01
- PKER_SACCRG( 9, 12) = 0.563136E-01
- PKER_SACCRG( 9, 13) = 0.100517E+00
- PKER_SACCRG( 9, 14) = 0.173643E+00
- PKER_SACCRG( 9, 15) = 0.275822E+00
- PKER_SACCRG( 9, 16) = 0.405835E+00
- PKER_SACCRG( 9, 17) = 0.540959E+00
- PKER_SACCRG( 9, 18) = 0.670349E+00
- PKER_SACCRG( 9, 19) = 0.779801E+00
- PKER_SACCRG( 9, 20) = 0.873659E+00
- PKER_SACCRG( 9, 21) = 0.964651E+00
- PKER_SACCRG( 9, 22) = 0.105792E+01
- PKER_SACCRG( 9, 23) = 0.114069E+01
- PKER_SACCRG( 9, 24) = 0.123707E+01
- PKER_SACCRG( 9, 25) = 0.131072E+01
- PKER_SACCRG( 9, 26) = 0.137674E+01
- PKER_SACCRG( 9, 27) = 0.143675E+01
- PKER_SACCRG( 9, 28) = 0.146856E+01
- PKER_SACCRG( 9, 29) = 0.150083E+01
- PKER_SACCRG( 9, 30) = 0.153465E+01
- PKER_SACCRG( 9, 31) = 0.155430E+01
- PKER_SACCRG( 9, 32) = 0.156652E+01
- PKER_SACCRG( 9, 33) = 0.157614E+01
- PKER_SACCRG( 9, 34) = 0.157797E+01
- PKER_SACCRG( 9, 35) = 0.158578E+01
- PKER_SACCRG( 9, 36) = 0.160221E+01
- PKER_SACCRG( 9, 37) = 0.000000E+00
- PKER_SACCRG( 9, 38) = 0.000000E+00
- PKER_SACCRG( 9, 39) = 0.000000E+00
- PKER_SACCRG( 9, 40) = 0.000000E+00
- PKER_SACCRG( 10, 1) = 0.836884E-05
- PKER_SACCRG( 10, 2) = 0.241023E-03
- PKER_SACCRG( 10, 3) = 0.298555E-02
- PKER_SACCRG( 10, 4) = 0.189539E-02
- PKER_SACCRG( 10, 5) = 0.204013E-02
- PKER_SACCRG( 10, 6) = 0.618434E-02
- PKER_SACCRG( 10, 7) = 0.624911E-02
- PKER_SACCRG( 10, 8) = 0.493580E-02
- PKER_SACCRG( 10, 9) = 0.859150E-02
- PKER_SACCRG( 10, 10) = 0.132122E-01
- PKER_SACCRG( 10, 11) = 0.178104E-01
- PKER_SACCRG( 10, 12) = 0.313842E-01
- PKER_SACCRG( 10, 13) = 0.543137E-01
- PKER_SACCRG( 10, 14) = 0.957524E-01
- PKER_SACCRG( 10, 15) = 0.158366E+00
- PKER_SACCRG( 10, 16) = 0.250247E+00
- PKER_SACCRG( 10, 17) = 0.351339E+00
- PKER_SACCRG( 10, 18) = 0.455229E+00
- PKER_SACCRG( 10, 19) = 0.541376E+00
- PKER_SACCRG( 10, 20) = 0.613508E+00
- PKER_SACCRG( 10, 21) = 0.679512E+00
- PKER_SACCRG( 10, 22) = 0.748499E+00
- PKER_SACCRG( 10, 23) = 0.812917E+00
- PKER_SACCRG( 10, 24) = 0.891097E+00
- PKER_SACCRG( 10, 25) = 0.953782E+00
- PKER_SACCRG( 10, 26) = 0.101178E+01
- PKER_SACCRG( 10, 27) = 0.106610E+01
- PKER_SACCRG( 10, 28) = 0.109586E+01
- PKER_SACCRG( 10, 29) = 0.112638E+01
- PKER_SACCRG( 10, 30) = 0.115867E+01
- PKER_SACCRG( 10, 31) = 0.117769E+01
- PKER_SACCRG( 10, 32) = 0.118959E+01
- PKER_SACCRG( 10, 33) = 0.119896E+01
- PKER_SACCRG( 10, 34) = 0.120079E+01
- PKER_SACCRG( 10, 35) = 0.120838E+01
- PKER_SACCRG( 10, 36) = 0.122431E+01
- PKER_SACCRG( 10, 37) = 0.000000E+00
- PKER_SACCRG( 10, 38) = 0.000000E+00
- PKER_SACCRG( 10, 39) = 0.000000E+00
- PKER_SACCRG( 10, 40) = 0.000000E+00
- PKER_SACCRG( 11, 1) = 0.000000E+00
- PKER_SACCRG( 11, 2) = 0.984489E-05
- PKER_SACCRG( 11, 3) = 0.280498E-03
- PKER_SACCRG( 11, 4) = 0.349195E-02
- PKER_SACCRG( 11, 5) = 0.223140E-02
- PKER_SACCRG( 11, 6) = 0.240058E-02
- PKER_SACCRG( 11, 7) = 0.683543E-02
- PKER_SACCRG( 11, 8) = 0.692007E-02
- PKER_SACCRG( 11, 9) = 0.514199E-02
- PKER_SACCRG( 11, 10) = 0.114977E-01
- PKER_SACCRG( 11, 11) = 0.109728E-01
- PKER_SACCRG( 11, 12) = 0.211442E-01
- PKER_SACCRG( 11, 13) = 0.346586E-01
- PKER_SACCRG( 11, 14) = 0.591042E-01
- PKER_SACCRG( 11, 15) = 0.961841E-01
- PKER_SACCRG( 11, 16) = 0.162562E+00
- PKER_SACCRG( 11, 17) = 0.237843E+00
- PKER_SACCRG( 11, 18) = 0.321714E+00
- PKER_SACCRG( 11, 19) = 0.387542E+00
- PKER_SACCRG( 11, 20) = 0.440755E+00
- PKER_SACCRG( 11, 21) = 0.483048E+00
- PKER_SACCRG( 11, 22) = 0.527421E+00
- PKER_SACCRG( 11, 23) = 0.571319E+00
- PKER_SACCRG( 11, 24) = 0.628617E+00
- PKER_SACCRG( 11, 25) = 0.677728E+00
- PKER_SACCRG( 11, 26) = 0.725464E+00
- PKER_SACCRG( 11, 27) = 0.771793E+00
- PKER_SACCRG( 11, 28) = 0.798056E+00
- PKER_SACCRG( 11, 29) = 0.825035E+00
- PKER_SACCRG( 11, 30) = 0.853830E+00
- PKER_SACCRG( 11, 31) = 0.871001E+00
- PKER_SACCRG( 11, 32) = 0.881834E+00
- PKER_SACCRG( 11, 33) = 0.890401E+00
- PKER_SACCRG( 11, 34) = 0.892044E+00
- PKER_SACCRG( 11, 35) = 0.899026E+00
- PKER_SACCRG( 11, 36) = 0.913978E+00
- PKER_SACCRG( 11, 37) = 0.000000E+00
- PKER_SACCRG( 11, 38) = 0.000000E+00
- PKER_SACCRG( 11, 39) = 0.000000E+00
- PKER_SACCRG( 11, 40) = 0.000000E+00
- PKER_SACCRG( 12, 1) = 0.000000E+00
- PKER_SACCRG( 12, 2) = 0.000000E+00
- PKER_SACCRG( 12, 3) = 0.131525E-04
- PKER_SACCRG( 12, 4) = 0.376734E-03
- PKER_SACCRG( 12, 5) = 0.481352E-02
- PKER_SACCRG( 12, 6) = 0.318057E-02
- PKER_SACCRG( 12, 7) = 0.345470E-02
- PKER_SACCRG( 12, 8) = 0.420666E-02
- PKER_SACCRG( 12, 9) = 0.383001E-02
- PKER_SACCRG( 12, 10) = 0.110848E-01
- PKER_SACCRG( 12, 11) = 0.934829E-02
- PKER_SACCRG( 12, 12) = 0.183949E-01
- PKER_SACCRG( 12, 13) = 0.295675E-01
- PKER_SACCRG( 12, 14) = 0.470543E-01
- PKER_SACCRG( 12, 15) = 0.695886E-01
- PKER_SACCRG( 12, 16) = 0.122527E+00
- PKER_SACCRG( 12, 17) = 0.181754E+00
- PKER_SACCRG( 12, 18) = 0.253508E+00
- PKER_SACCRG( 12, 19) = 0.304324E+00
- PKER_SACCRG( 12, 20) = 0.342444E+00
- PKER_SACCRG( 12, 21) = 0.363399E+00
- PKER_SACCRG( 12, 22) = 0.384221E+00
- PKER_SACCRG( 12, 23) = 0.406941E+00
- PKER_SACCRG( 12, 24) = 0.441951E+00
- PKER_SACCRG( 12, 25) = 0.474892E+00
- PKER_SACCRG( 12, 26) = 0.509393E+00
- PKER_SACCRG( 12, 27) = 0.545053E+00
- PKER_SACCRG( 12, 28) = 0.566107E+00
- PKER_SACCRG( 12, 29) = 0.588592E+00
- PKER_SACCRG( 12, 30) = 0.613355E+00
- PKER_SACCRG( 12, 31) = 0.628544E+00
- PKER_SACCRG( 12, 32) = 0.638273E+00
- PKER_SACCRG( 12, 33) = 0.646003E+00
- PKER_SACCRG( 12, 34) = 0.647602E+00
- PKER_SACCRG( 12, 35) = 0.653888E+00
- PKER_SACCRG( 12, 36) = 0.667119E+00
- PKER_SACCRG( 12, 37) = 0.000000E+00
- PKER_SACCRG( 12, 38) = 0.000000E+00
- PKER_SACCRG( 12, 39) = 0.000000E+00
- PKER_SACCRG( 12, 40) = 0.000000E+00
- PKER_SACCRG( 13, 1) = 0.000000E+00
- PKER_SACCRG( 13, 2) = 0.000000E+00
- PKER_SACCRG( 13, 3) = 0.715754E-07
- PKER_SACCRG( 13, 4) = 0.213213E-04
- PKER_SACCRG( 13, 5) = 0.638125E-03
- PKER_SACCRG( 13, 6) = 0.842445E-03
- PKER_SACCRG( 13, 7) = 0.719221E-02
- PKER_SACCRG( 13, 8) = 0.932081E-02
- PKER_SACCRG( 13, 9) = 0.442957E-02
- PKER_SACCRG( 13, 10) = 0.154869E-01
- PKER_SACCRG( 13, 11) = 0.137909E-01
- PKER_SACCRG( 13, 12) = 0.248513E-01
- PKER_SACCRG( 13, 13) = 0.394496E-01
- PKER_SACCRG( 13, 14) = 0.513911E-01
- PKER_SACCRG( 13, 15) = 0.661668E-01
- PKER_SACCRG( 13, 16) = 0.115529E+00
- PKER_SACCRG( 13, 17) = 0.166381E+00
- PKER_SACCRG( 13, 18) = 0.234091E+00
- PKER_SACCRG( 13, 19) = 0.276281E+00
- PKER_SACCRG( 13, 20) = 0.304686E+00
- PKER_SACCRG( 13, 21) = 0.307989E+00
- PKER_SACCRG( 13, 22) = 0.307891E+00
- PKER_SACCRG( 13, 23) = 0.310412E+00
- PKER_SACCRG( 13, 24) = 0.323293E+00
- PKER_SACCRG( 13, 25) = 0.338766E+00
- PKER_SACCRG( 13, 26) = 0.358236E+00
- PKER_SACCRG( 13, 27) = 0.380952E+00
- PKER_SACCRG( 13, 28) = 0.395254E+00
- PKER_SACCRG( 13, 29) = 0.411396E+00
- PKER_SACCRG( 13, 30) = 0.429868E+00
- PKER_SACCRG( 13, 31) = 0.441480E+00
- PKER_SACCRG( 13, 32) = 0.449014E+00
- PKER_SACCRG( 13, 33) = 0.455042E+00
- PKER_SACCRG( 13, 34) = 0.456301E+00
- PKER_SACCRG( 13, 35) = 0.461238E+00
- PKER_SACCRG( 13, 36) = 0.471725E+00
- PKER_SACCRG( 13, 37) = 0.000000E+00
- PKER_SACCRG( 13, 38) = 0.000000E+00
- PKER_SACCRG( 13, 39) = 0.000000E+00
- PKER_SACCRG( 13, 40) = 0.000000E+00
- PKER_SACCRG( 14, 1) = 0.000000E+00
- PKER_SACCRG( 14, 2) = 0.000000E+00
- PKER_SACCRG( 14, 3) = 0.000000E+00
- PKER_SACCRG( 14, 4) = 0.381946E-06
- PKER_SACCRG( 14, 5) = 0.473573E-04
- PKER_SACCRG( 14, 6) = 0.165120E-02
- PKER_SACCRG( 14, 7) = 0.389733E-02
- PKER_SACCRG( 14, 8) = 0.389488E-01
- PKER_SACCRG( 14, 9) = 0.960356E-02
- PKER_SACCRG( 14, 10) = 0.289006E-01
- PKER_SACCRG( 14, 11) = 0.219911E-01
- PKER_SACCRG( 14, 12) = 0.526837E-01
- PKER_SACCRG( 14, 13) = 0.654887E-01
- PKER_SACCRG( 14, 14) = 0.683643E-01
- PKER_SACCRG( 14, 15) = 0.802145E-01
- PKER_SACCRG( 14, 16) = 0.134652E+00
- PKER_SACCRG( 14, 17) = 0.180678E+00
- PKER_SACCRG( 14, 18) = 0.248857E+00
- PKER_SACCRG( 14, 19) = 0.287693E+00
- PKER_SACCRG( 14, 20) = 0.311977E+00
- PKER_SACCRG( 14, 21) = 0.302501E+00
- PKER_SACCRG( 14, 22) = 0.285666E+00
- PKER_SACCRG( 14, 23) = 0.270663E+00
- PKER_SACCRG( 14, 24) = 0.263508E+00
- PKER_SACCRG( 14, 25) = 0.261858E+00
- PKER_SACCRG( 14, 26) = 0.265704E+00
- PKER_SACCRG( 14, 27) = 0.274260E+00
- PKER_SACCRG( 14, 28) = 0.280343E+00
- PKER_SACCRG( 14, 29) = 0.288745E+00
- PKER_SACCRG( 14, 30) = 0.299555E+00
- PKER_SACCRG( 14, 31) = 0.306742E+00
- PKER_SACCRG( 14, 32) = 0.311519E+00
- PKER_SACCRG( 14, 33) = 0.315446E+00
- PKER_SACCRG( 14, 34) = 0.316143E+00
- PKER_SACCRG( 14, 35) = 0.319453E+00
- PKER_SACCRG( 14, 36) = 0.326846E+00
- PKER_SACCRG( 14, 37) = 0.000000E+00
- PKER_SACCRG( 14, 38) = 0.000000E+00
- PKER_SACCRG( 14, 39) = 0.000000E+00
- PKER_SACCRG( 14, 40) = 0.000000E+00
- PKER_SACCRG( 15, 1) = 0.000000E+00
- PKER_SACCRG( 15, 2) = 0.000000E+00
- PKER_SACCRG( 15, 3) = 0.000000E+00
- PKER_SACCRG( 15, 4) = 0.000000E+00
- PKER_SACCRG( 15, 5) = 0.156840E-05
- PKER_SACCRG( 15, 6) = 0.190758E-03
- PKER_SACCRG( 15, 7) = 0.213304E-01
- PKER_SACCRG( 15, 8) = 0.441574E-01
- PKER_SACCRG( 15, 9) = 0.400468E-01
- PKER_SACCRG( 15, 10) = 0.704682E-01
- PKER_SACCRG( 15, 11) = 0.469944E-01
- PKER_SACCRG( 15, 12) = 0.981183E-01
- PKER_SACCRG( 15, 13) = 0.100527E+00
- PKER_SACCRG( 15, 14) = 0.109911E+00
- PKER_SACCRG( 15, 15) = 0.122766E+00
- PKER_SACCRG( 15, 16) = 0.166781E+00
- PKER_SACCRG( 15, 17) = 0.213821E+00
- PKER_SACCRG( 15, 18) = 0.285192E+00
- PKER_SACCRG( 15, 19) = 0.323590E+00
- PKER_SACCRG( 15, 20) = 0.348069E+00
- PKER_SACCRG( 15, 21) = 0.330921E+00
- PKER_SACCRG( 15, 22) = 0.302486E+00
- PKER_SACCRG( 15, 23) = 0.274134E+00
- PKER_SACCRG( 15, 24) = 0.250992E+00
- PKER_SACCRG( 15, 25) = 0.234616E+00
- PKER_SACCRG( 15, 26) = 0.224211E+00
- PKER_SACCRG( 15, 27) = 0.219091E+00
- PKER_SACCRG( 15, 28) = 0.216667E+00
- PKER_SACCRG( 15, 29) = 0.216954E+00
- PKER_SACCRG( 15, 30) = 0.219635E+00
- PKER_SACCRG( 15, 31) = 0.221903E+00
- PKER_SACCRG( 15, 32) = 0.223652E+00
- PKER_SACCRG( 15, 33) = 0.225260E+00
- PKER_SACCRG( 15, 34) = 0.225539E+00
- PKER_SACCRG( 15, 35) = 0.227017E+00
- PKER_SACCRG( 15, 36) = 0.230425E+00
- PKER_SACCRG( 15, 37) = 0.000000E+00
- PKER_SACCRG( 15, 38) = 0.000000E+00
- PKER_SACCRG( 15, 39) = 0.000000E+00
- PKER_SACCRG( 15, 40) = 0.000000E+00
- PKER_SACCRG( 16, 1) = 0.000000E+00
- PKER_SACCRG( 16, 2) = 0.000000E+00
- PKER_SACCRG( 16, 3) = 0.000000E+00
- PKER_SACCRG( 16, 4) = 0.000000E+00
- PKER_SACCRG( 16, 5) = 0.000000E+00
- PKER_SACCRG( 16, 6) = 0.119071E-04
- PKER_SACCRG( 16, 7) = 0.989929E-02
- PKER_SACCRG( 16, 8) = 0.528890E+00
- PKER_SACCRG( 16, 9) = 0.450696E-01
- PKER_SACCRG( 16, 10) = 0.655297E-01
- PKER_SACCRG( 16, 11) = 0.132187E+00
- PKER_SACCRG( 16, 12) = 0.215348E+00
- PKER_SACCRG( 16, 13) = 0.167588E+00
- PKER_SACCRG( 16, 14) = 0.216205E+00
- PKER_SACCRG( 16, 15) = 0.162196E+00
- PKER_SACCRG( 16, 16) = 0.244005E+00
- PKER_SACCRG( 16, 17) = 0.269648E+00
- PKER_SACCRG( 16, 18) = 0.340900E+00
- PKER_SACCRG( 16, 19) = 0.372264E+00
- PKER_SACCRG( 16, 20) = 0.398617E+00
- PKER_SACCRG( 16, 21) = 0.377733E+00
- PKER_SACCRG( 16, 22) = 0.342874E+00
- PKER_SACCRG( 16, 23) = 0.305984E+00
- PKER_SACCRG( 16, 24) = 0.271888E+00
- PKER_SACCRG( 16, 25) = 0.244614E+00
- PKER_SACCRG( 16, 26) = 0.222952E+00
- PKER_SACCRG( 16, 27) = 0.206393E+00
- PKER_SACCRG( 16, 28) = 0.196281E+00
- PKER_SACCRG( 16, 29) = 0.189043E+00
- PKER_SACCRG( 16, 30) = 0.183996E+00
- PKER_SACCRG( 16, 31) = 0.181421E+00
- PKER_SACCRG( 16, 32) = 0.180072E+00
- PKER_SACCRG( 16, 33) = 0.179344E+00
- PKER_SACCRG( 16, 34) = 0.178990E+00
- PKER_SACCRG( 16, 35) = 0.178753E+00
- PKER_SACCRG( 16, 36) = 0.178876E+00
- PKER_SACCRG( 16, 37) = 0.000000E+00
- PKER_SACCRG( 16, 38) = 0.000000E+00
- PKER_SACCRG( 16, 39) = 0.000000E+00
- PKER_SACCRG( 16, 40) = 0.000000E+00
- PKER_SACCRG( 17, 1) = 0.000000E+00
- PKER_SACCRG( 17, 2) = 0.000000E+00
- PKER_SACCRG( 17, 3) = 0.000000E+00
- PKER_SACCRG( 17, 4) = 0.000000E+00
- PKER_SACCRG( 17, 5) = 0.000000E+00
- PKER_SACCRG( 17, 6) = 0.284464E-06
- PKER_SACCRG( 17, 7) = 0.376463E-02
- PKER_SACCRG( 17, 8) = 0.586668E+00
- PKER_SACCRG( 17, 9) = 0.500034E-01
- PKER_SACCRG( 17, 10) = 0.220639E+00
- PKER_SACCRG( 17, 11) = 0.146258E+00
- PKER_SACCRG( 17, 12) = 0.237708E+00
- PKER_SACCRG( 17, 13) = 0.306782E+00
- PKER_SACCRG( 17, 14) = 0.354063E+00
- PKER_SACCRG( 17, 15) = 0.280860E+00
- PKER_SACCRG( 17, 16) = 0.308089E+00
- PKER_SACCRG( 17, 17) = 0.339505E+00
- PKER_SACCRG( 17, 18) = 0.414880E+00
- PKER_SACCRG( 17, 19) = 0.430629E+00
- PKER_SACCRG( 17, 20) = 0.452781E+00
- PKER_SACCRG( 17, 21) = 0.429564E+00
- PKER_SACCRG( 17, 22) = 0.392080E+00
- PKER_SACCRG( 17, 23) = 0.351048E+00
- PKER_SACCRG( 17, 24) = 0.310955E+00
- PKER_SACCRG( 17, 25) = 0.277207E+00
- PKER_SACCRG( 17, 26) = 0.248275E+00
- PKER_SACCRG( 17, 27) = 0.223790E+00
- PKER_SACCRG( 17, 28) = 0.208062E+00
- PKER_SACCRG( 17, 29) = 0.195017E+00
- PKER_SACCRG( 17, 30) = 0.183624E+00
- PKER_SACCRG( 17, 31) = 0.176886E+00
- PKER_SACCRG( 17, 32) = 0.172790E+00
- PKER_SACCRG( 17, 33) = 0.169882E+00
- PKER_SACCRG( 17, 34) = 0.169010E+00
- PKER_SACCRG( 17, 35) = 0.166994E+00
- PKER_SACCRG( 17, 36) = 0.163299E+00
- PKER_SACCRG( 17, 37) = 0.000000E+00
- PKER_SACCRG( 17, 38) = 0.000000E+00
- PKER_SACCRG( 17, 39) = 0.000000E+00
- PKER_SACCRG( 17, 40) = 0.000000E+00
- PKER_SACCRG( 18, 1) = 0.000000E+00
- PKER_SACCRG( 18, 2) = 0.000000E+00
- PKER_SACCRG( 18, 3) = 0.000000E+00
- PKER_SACCRG( 18, 4) = 0.000000E+00
- PKER_SACCRG( 18, 5) = 0.000000E+00
- PKER_SACCRG( 18, 6) = 0.000000E+00
- PKER_SACCRG( 18, 7) = 0.105382E-02
- PKER_SACCRG( 18, 8) = 0.635938E+00
- PKER_SACCRG( 18, 9) = 0.581236E+00
- PKER_SACCRG( 18, 10) = 0.175918E+00
- PKER_SACCRG( 18, 11) = 0.158333E+00
- PKER_SACCRG( 18, 12) = 0.645276E+00
- PKER_SACCRG( 18, 13) = 0.647795E+00
- PKER_SACCRG( 18, 14) = 0.383206E+00
- PKER_SACCRG( 18, 15) = 0.415829E+00
- PKER_SACCRG( 18, 16) = 0.392871E+00
- PKER_SACCRG( 18, 17) = 0.447385E+00
- PKER_SACCRG( 18, 18) = 0.473465E+00
- PKER_SACCRG( 18, 19) = 0.487585E+00
- PKER_SACCRG( 18, 20) = 0.505825E+00
- PKER_SACCRG( 18, 21) = 0.478975E+00
- PKER_SACCRG( 18, 22) = 0.440594E+00
- PKER_SACCRG( 18, 23) = 0.398291E+00
- PKER_SACCRG( 18, 24) = 0.355953E+00
- PKER_SACCRG( 18, 25) = 0.319332E+00
- PKER_SACCRG( 18, 26) = 0.286857E+00
- PKER_SACCRG( 18, 27) = 0.258053E+00
- PKER_SACCRG( 18, 28) = 0.239021E+00
- PKER_SACCRG( 18, 29) = 0.222386E+00
- PKER_SACCRG( 18, 30) = 0.206903E+00
- PKER_SACCRG( 18, 31) = 0.197361E+00
- PKER_SACCRG( 18, 32) = 0.191347E+00
- PKER_SACCRG( 18, 33) = 0.186901E+00
- PKER_SACCRG( 18, 34) = 0.185599E+00
- PKER_SACCRG( 18, 35) = 0.182341E+00
- PKER_SACCRG( 18, 36) = 0.176179E+00
- PKER_SACCRG( 18, 37) = 0.000000E+00
- PKER_SACCRG( 18, 38) = 0.000000E+00
- PKER_SACCRG( 18, 39) = 0.000000E+00
- PKER_SACCRG( 18, 40) = 0.000000E+00
- PKER_SACCRG( 19, 1) = 0.000000E+00
- PKER_SACCRG( 19, 2) = 0.000000E+00
- PKER_SACCRG( 19, 3) = 0.000000E+00
- PKER_SACCRG( 19, 4) = 0.000000E+00
- PKER_SACCRG( 19, 5) = 0.000000E+00
- PKER_SACCRG( 19, 6) = 0.000000E+00
- PKER_SACCRG( 19, 7) = 0.194865E-03
- PKER_SACCRG( 19, 8) = 0.676347E+00
- PKER_SACCRG( 19, 9) = 0.621969E+00
- PKER_SACCRG( 19, 10) = 0.131032E+00
- PKER_SACCRG( 19, 11) = 0.658583E+00
- PKER_SACCRG( 19, 12) = 0.685804E+00
- PKER_SACCRG( 19, 13) = 0.688335E+00
- PKER_SACCRG( 19, 14) = 0.677066E+00
- PKER_SACCRG( 19, 15) = 0.442768E+00
- PKER_SACCRG( 19, 16) = 0.511298E+00
- PKER_SACCRG( 19, 17) = 0.544390E+00
- PKER_SACCRG( 19, 18) = 0.574263E+00
- PKER_SACCRG( 19, 19) = 0.551361E+00
- PKER_SACCRG( 19, 20) = 0.554396E+00
- PKER_SACCRG( 19, 21) = 0.521768E+00
- PKER_SACCRG( 19, 22) = 0.483164E+00
- PKER_SACCRG( 19, 23) = 0.440915E+00
- PKER_SACCRG( 19, 24) = 0.398417E+00
- PKER_SACCRG( 19, 25) = 0.361201E+00
- PKER_SACCRG( 19, 26) = 0.327700E+00
- PKER_SACCRG( 19, 27) = 0.297381E+00
- PKER_SACCRG( 19, 28) = 0.276977E+00
- PKER_SACCRG( 19, 29) = 0.258775E+00
- PKER_SACCRG( 19, 30) = 0.241338E+00
- PKER_SACCRG( 19, 31) = 0.230370E+00
- PKER_SACCRG( 19, 32) = 0.223349E+00
- PKER_SACCRG( 19, 33) = 0.218072E+00
- PKER_SACCRG( 19, 34) = 0.216544E+00
- PKER_SACCRG( 19, 35) = 0.212586E+00
- PKER_SACCRG( 19, 36) = 0.204880E+00
- PKER_SACCRG( 19, 37) = 0.000000E+00
- PKER_SACCRG( 19, 38) = 0.000000E+00
- PKER_SACCRG( 19, 39) = 0.000000E+00
- PKER_SACCRG( 19, 40) = 0.000000E+00
- PKER_SACCRG( 20, 1) = 0.000000E+00
- PKER_SACCRG( 20, 2) = 0.000000E+00
- PKER_SACCRG( 20, 3) = 0.000000E+00
- PKER_SACCRG( 20, 4) = 0.000000E+00
- PKER_SACCRG( 20, 5) = 0.000000E+00
- PKER_SACCRG( 20, 6) = 0.000000E+00
- PKER_SACCRG( 20, 7) = 0.210974E-04
- PKER_SACCRG( 20, 8) = 0.709956E+00
- PKER_SACCRG( 20, 9) = 0.655815E+00
- PKER_SACCRG( 20, 10) = 0.956725E-01
- PKER_SACCRG( 20, 11) = 0.692386E+00
- PKER_SACCRG( 20, 12) = 0.719525E+00
- PKER_SACCRG( 20, 13) = 0.722068E+00
- PKER_SACCRG( 20, 14) = 0.710869E+00
- PKER_SACCRG( 20, 15) = 0.691117E+00
- PKER_SACCRG( 20, 16) = 0.690018E+00
- PKER_SACCRG( 20, 17) = 0.573065E+00
- PKER_SACCRG( 20, 18) = 0.605475E+00
- PKER_SACCRG( 20, 19) = 0.604580E+00
- PKER_SACCRG( 20, 20) = 0.595016E+00
- PKER_SACCRG( 20, 21) = 0.559020E+00
- PKER_SACCRG( 20, 22) = 0.519154E+00
- PKER_SACCRG( 20, 23) = 0.477263E+00
- PKER_SACCRG( 20, 24) = 0.435286E+00
- PKER_SACCRG( 20, 25) = 0.398364E+00
- PKER_SACCRG( 20, 26) = 0.364991E+00
- PKER_SACCRG( 20, 27) = 0.334611E+00
- PKER_SACCRG( 20, 28) = 0.313905E+00
- PKER_SACCRG( 20, 29) = 0.295342E+00
- PKER_SACCRG( 20, 30) = 0.277428E+00
- PKER_SACCRG( 20, 31) = 0.266023E+00
- PKER_SACCRG( 20, 32) = 0.258671E+00
- PKER_SACCRG( 20, 33) = 0.253118E+00
- PKER_SACCRG( 20, 34) = 0.251504E+00
- PKER_SACCRG( 20, 35) = 0.247323E+00
- PKER_SACCRG( 20, 36) = 0.239150E+00
- PKER_SACCRG( 20, 37) = 0.000000E+00
- PKER_SACCRG( 20, 38) = 0.000000E+00
- PKER_SACCRG( 20, 39) = 0.000000E+00
- PKER_SACCRG( 20, 40) = 0.000000E+00
- PKER_SACCRG( 21, 1) = 0.000000E+00
- PKER_SACCRG( 21, 2) = 0.000000E+00
- PKER_SACCRG( 21, 3) = 0.000000E+00
- PKER_SACCRG( 21, 4) = 0.000000E+00
- PKER_SACCRG( 21, 5) = 0.000000E+00
- PKER_SACCRG( 21, 6) = 0.000000E+00
- PKER_SACCRG( 21, 7) = 0.115787E-05
- PKER_SACCRG( 21, 8) = 0.737622E+00
- PKER_SACCRG( 21, 9) = 0.683641E+00
- PKER_SACCRG( 21, 10) = 0.742791E-01
- PKER_SACCRG( 21, 11) = 0.720196E+00
- PKER_SACCRG( 21, 12) = 0.747281E+00
- PKER_SACCRG( 21, 13) = 0.749836E+00
- PKER_SACCRG( 21, 14) = 0.738685E+00
- PKER_SACCRG( 21, 15) = 0.719015E+00
- PKER_SACCRG( 21, 16) = 0.717958E+00
- PKER_SACCRG( 21, 17) = 0.702249E+00
- PKER_SACCRG( 21, 18) = 0.688360E+00
- PKER_SACCRG( 21, 19) = 0.631563E+00
- PKER_SACCRG( 21, 20) = 0.632341E+00
- PKER_SACCRG( 21, 21) = 0.589665E+00
- PKER_SACCRG( 21, 22) = 0.548711E+00
- PKER_SACCRG( 21, 23) = 0.507170E+00
- PKER_SACCRG( 21, 24) = 0.465784E+00
- PKER_SACCRG( 21, 25) = 0.429322E+00
- PKER_SACCRG( 21, 26) = 0.396378E+00
- PKER_SACCRG( 21, 27) = 0.366391E+00
- PKER_SACCRG( 21, 28) = 0.345783E+00
- PKER_SACCRG( 21, 29) = 0.327346E+00
- PKER_SACCRG( 21, 30) = 0.309575E+00
- PKER_SACCRG( 21, 31) = 0.298199E+00
- PKER_SACCRG( 21, 32) = 0.290842E+00
- PKER_SACCRG( 21, 33) = 0.285284E+00
- PKER_SACCRG( 21, 34) = 0.283648E+00
- PKER_SACCRG( 21, 35) = 0.279467E+00
- PKER_SACCRG( 21, 36) = 0.271303E+00
- PKER_SACCRG( 21, 37) = 0.000000E+00
- PKER_SACCRG( 21, 38) = 0.000000E+00
- PKER_SACCRG( 21, 39) = 0.000000E+00
- PKER_SACCRG( 21, 40) = 0.000000E+00
- PKER_SACCRG( 22, 1) = 0.000000E+00
- PKER_SACCRG( 22, 2) = 0.000000E+00
- PKER_SACCRG( 22, 3) = 0.000000E+00
- PKER_SACCRG( 22, 4) = 0.000000E+00
- PKER_SACCRG( 22, 5) = 0.000000E+00
- PKER_SACCRG( 22, 6) = 0.000000E+00
- PKER_SACCRG( 22, 7) = 0.153493E-07
- PKER_SACCRG( 22, 8) = 0.760420E+00
- PKER_SACCRG( 22, 9) = 0.706545E+00
- PKER_SACCRG( 22, 10) = 0.650587E-01
- PKER_SACCRG( 22, 11) = 0.743098E+00
- PKER_SACCRG( 22, 12) = 0.770151E+00
- PKER_SACCRG( 22, 13) = 0.772714E+00
- PKER_SACCRG( 22, 14) = 0.761598E+00
- PKER_SACCRG( 22, 15) = 0.741985E+00
- PKER_SACCRG( 22, 16) = 0.740959E+00
- PKER_SACCRG( 22, 17) = 0.725323E+00
- PKER_SACCRG( 22, 18) = 0.711529E+00
- PKER_SACCRG( 22, 19) = 0.653730E+00
- PKER_SACCRG( 22, 20) = 0.655849E+00
- PKER_SACCRG( 22, 21) = 0.613326E+00
- PKER_SACCRG( 22, 22) = 0.573001E+00
- PKER_SACCRG( 22, 23) = 0.531612E+00
- PKER_SACCRG( 22, 24) = 0.490679E+00
- PKER_SACCRG( 22, 25) = 0.454592E+00
- PKER_SACCRG( 22, 26) = 0.422026E+00
- PKER_SACCRG( 22, 27) = 0.392436E+00
- PKER_SACCRG( 22, 28) = 0.371968E+00
- PKER_SACCRG( 22, 29) = 0.353731E+00
- PKER_SACCRG( 22, 30) = 0.336228E+00
- PKER_SACCRG( 22, 31) = 0.324990E+00
- PKER_SACCRG( 22, 32) = 0.317714E+00
- PKER_SACCRG( 22, 33) = 0.312229E+00
- PKER_SACCRG( 22, 34) = 0.310590E+00
- PKER_SACCRG( 22, 35) = 0.306480E+00
- PKER_SACCRG( 22, 36) = 0.298487E+00
- PKER_SACCRG( 22, 37) = 0.000000E+00
- PKER_SACCRG( 22, 38) = 0.000000E+00
- PKER_SACCRG( 22, 39) = 0.000000E+00
- PKER_SACCRG( 22, 40) = 0.000000E+00
- PKER_SACCRG( 23, 1) = 0.000000E+00
- PKER_SACCRG( 23, 2) = 0.000000E+00
- PKER_SACCRG( 23, 3) = 0.000000E+00
- PKER_SACCRG( 23, 4) = 0.000000E+00
- PKER_SACCRG( 23, 5) = 0.000000E+00
- PKER_SACCRG( 23, 6) = 0.000000E+00
- PKER_SACCRG( 23, 7) = 0.000000E+00
- PKER_SACCRG( 23, 8) = 0.779223E+00
- PKER_SACCRG( 23, 9) = 0.725418E+00
- PKER_SACCRG( 23, 10) = 0.629066E-01
- PKER_SACCRG( 23, 11) = 0.761978E+00
- PKER_SACCRG( 23, 12) = 0.789011E+00
- PKER_SACCRG( 23, 13) = 0.791581E+00
- PKER_SACCRG( 23, 14) = 0.780490E+00
- PKER_SACCRG( 23, 15) = 0.760916E+00
- PKER_SACCRG( 23, 16) = 0.759915E+00
- PKER_SACCRG( 23, 17) = 0.744331E+00
- PKER_SACCRG( 23, 18) = 0.730605E+00
- PKER_SACCRG( 23, 19) = 0.703564E+00
- PKER_SACCRG( 23, 20) = 0.675170E+00
- PKER_SACCRG( 23, 21) = 0.632741E+00
- PKER_SACCRG( 23, 22) = 0.592686E+00
- PKER_SACCRG( 23, 23) = 0.551579E+00
- PKER_SACCRG( 23, 24) = 0.510978E+00
- PKER_SACCRG( 23, 25) = 0.475153E+00
- PKER_SACCRG( 23, 26) = 0.442855E+00
- PKER_SACCRG( 23, 27) = 0.413554E+00
- PKER_SACCRG( 23, 28) = 0.393180E+00
- PKER_SACCRG( 23, 29) = 0.375093E+00
- PKER_SACCRG( 23, 30) = 0.357805E+00
- PKER_SACCRG( 23, 31) = 0.346682E+00
- PKER_SACCRG( 23, 32) = 0.339475E+00
- PKER_SACCRG( 23, 33) = 0.334055E+00
- PKER_SACCRG( 23, 34) = 0.332413E+00
- PKER_SACCRG( 23, 35) = 0.328367E+00
- PKER_SACCRG( 23, 36) = 0.320537E+00
- PKER_SACCRG( 23, 37) = 0.000000E+00
- PKER_SACCRG( 23, 38) = 0.000000E+00
- PKER_SACCRG( 23, 39) = 0.000000E+00
- PKER_SACCRG( 23, 40) = 0.000000E+00
- PKER_SACCRG( 24, 1) = 0.000000E+00
- PKER_SACCRG( 24, 2) = 0.000000E+00
- PKER_SACCRG( 24, 3) = 0.000000E+00
- PKER_SACCRG( 24, 4) = 0.000000E+00
- PKER_SACCRG( 24, 5) = 0.000000E+00
- PKER_SACCRG( 24, 6) = 0.000000E+00
- PKER_SACCRG( 24, 7) = 0.000000E+00
- PKER_SACCRG( 24, 8) = 0.794744E+00
- PKER_SACCRG( 24, 9) = 0.740984E+00
- PKER_SACCRG( 24, 10) = 0.633801E-01
- PKER_SACCRG( 24, 11) = 0.777556E+00
- PKER_SACCRG( 24, 12) = 0.804576E+00
- PKER_SACCRG( 24, 13) = 0.807152E+00
- PKER_SACCRG( 24, 14) = 0.796079E+00
- PKER_SACCRG( 24, 15) = 0.776533E+00
- PKER_SACCRG( 24, 16) = 0.775550E+00
- PKER_SACCRG( 24, 17) = 0.760004E+00
- PKER_SACCRG( 24, 18) = 0.746329E+00
- PKER_SACCRG( 24, 19) = 0.719365E+00
- PKER_SACCRG( 24, 20) = 0.691070E+00
- PKER_SACCRG( 24, 21) = 0.651450E+00
- PKER_SACCRG( 24, 22) = 0.608840E+00
- PKER_SACCRG( 24, 23) = 0.567932E+00
- PKER_SACCRG( 24, 24) = 0.527565E+00
- PKER_SACCRG( 24, 25) = 0.491917E+00
- PKER_SACCRG( 24, 26) = 0.459798E+00
- PKER_SACCRG( 24, 27) = 0.430691E+00
- PKER_SACCRG( 24, 28) = 0.410367E+00
- PKER_SACCRG( 24, 29) = 0.392372E+00
- PKER_SACCRG( 24, 30) = 0.375227E+00
- PKER_SACCRG( 24, 31) = 0.364178E+00
- PKER_SACCRG( 24, 32) = 0.357015E+00
- PKER_SACCRG( 24, 33) = 0.351637E+00
- PKER_SACCRG( 24, 34) = 0.349989E+00
- PKER_SACCRG( 24, 35) = 0.345989E+00
- PKER_SACCRG( 24, 36) = 0.338276E+00
- PKER_SACCRG( 24, 37) = 0.000000E+00
- PKER_SACCRG( 24, 38) = 0.000000E+00
- PKER_SACCRG( 24, 39) = 0.000000E+00
- PKER_SACCRG( 24, 40) = 0.000000E+00
- PKER_SACCRG( 25, 1) = 0.000000E+00
- PKER_SACCRG( 25, 2) = 0.000000E+00
- PKER_SACCRG( 25, 3) = 0.000000E+00
- PKER_SACCRG( 25, 4) = 0.000000E+00
- PKER_SACCRG( 25, 5) = 0.000000E+00
- PKER_SACCRG( 25, 6) = 0.000000E+00
- PKER_SACCRG( 25, 7) = 0.000000E+00
- PKER_SACCRG( 25, 8) = 0.807563E+00
- PKER_SACCRG( 25, 9) = 0.753833E+00
- PKER_SACCRG( 25, 10) = 0.643394E-01
- PKER_SACCRG( 25, 11) = 0.790417E+00
- PKER_SACCRG( 25, 12) = 0.817430E+00
- PKER_SACCRG( 25, 13) = 0.820012E+00
- PKER_SACCRG( 25, 14) = 0.808951E+00
- PKER_SACCRG( 25, 15) = 0.789425E+00
- PKER_SACCRG( 25, 16) = 0.788455E+00
- PKER_SACCRG( 25, 17) = 0.772937E+00
- PKER_SACCRG( 25, 18) = 0.759299E+00
- PKER_SACCRG( 25, 19) = 0.732392E+00
- PKER_SACCRG( 25, 20) = 0.704169E+00
- PKER_SACCRG( 25, 21) = 0.664647E+00
- PKER_SACCRG( 25, 22) = 0.622123E+00
- PKER_SACCRG( 25, 23) = 0.581352E+00
- PKER_SACCRG( 25, 24) = 0.541148E+00
- PKER_SACCRG( 25, 25) = 0.505619E+00
- PKER_SACCRG( 25, 26) = 0.473619E+00
- PKER_SACCRG( 25, 27) = 0.444639E+00
- PKER_SACCRG( 25, 28) = 0.424336E+00
- PKER_SACCRG( 25, 29) = 0.406394E+00
- PKER_SACCRG( 25, 30) = 0.389340E+00
- PKER_SACCRG( 25, 31) = 0.378332E+00
- PKER_SACCRG( 25, 32) = 0.371193E+00
- PKER_SACCRG( 25, 33) = 0.365840E+00
- PKER_SACCRG( 25, 34) = 0.364185E+00
- PKER_SACCRG( 25, 35) = 0.360213E+00
- PKER_SACCRG( 25, 36) = 0.352580E+00
- PKER_SACCRG( 25, 37) = 0.000000E+00
- PKER_SACCRG( 25, 38) = 0.000000E+00
- PKER_SACCRG( 25, 39) = 0.000000E+00
- PKER_SACCRG( 25, 40) = 0.000000E+00
- PKER_SACCRG( 26, 1) = 0.000000E+00
- PKER_SACCRG( 26, 2) = 0.000000E+00
- PKER_SACCRG( 26, 3) = 0.000000E+00
- PKER_SACCRG( 26, 4) = 0.000000E+00
- PKER_SACCRG( 26, 5) = 0.000000E+00
- PKER_SACCRG( 26, 6) = 0.000000E+00
- PKER_SACCRG( 26, 7) = 0.000000E+00
- PKER_SACCRG( 26, 8) = 0.818155E+00
- PKER_SACCRG( 26, 9) = 0.764445E+00
- PKER_SACCRG( 26, 10) = 0.652138E-01
- PKER_SACCRG( 26, 11) = 0.801042E+00
- PKER_SACCRG( 26, 12) = 0.828051E+00
- PKER_SACCRG( 26, 13) = 0.830636E+00
- PKER_SACCRG( 26, 14) = 0.819585E+00
- PKER_SACCRG( 26, 15) = 0.800072E+00
- PKER_SACCRG( 26, 16) = 0.799113E+00
- PKER_SACCRG( 26, 17) = 0.783616E+00
- PKER_SACCRG( 26, 18) = 0.770006E+00
- PKER_SACCRG( 26, 19) = 0.743140E+00
- PKER_SACCRG( 26, 20) = 0.714971E+00
- PKER_SACCRG( 26, 21) = 0.675519E+00
- PKER_SACCRG( 26, 22) = 0.633061E+00
- PKER_SACCRG( 26, 23) = 0.592381E+00
- PKER_SACCRG( 26, 24) = 0.552293E+00
- PKER_SACCRG( 26, 25) = 0.516845E+00
- PKER_SACCRG( 26, 26) = 0.484922E+00
- PKER_SACCRG( 26, 27) = 0.456026E+00
- PKER_SACCRG( 26, 28) = 0.435725E+00
- PKER_SACCRG( 26, 29) = 0.417811E+00
- PKER_SACCRG( 26, 30) = 0.400812E+00
- PKER_SACCRG( 26, 31) = 0.389826E+00
- PKER_SACCRG( 26, 32) = 0.382698E+00
- PKER_SACCRG( 26, 33) = 0.377358E+00
- PKER_SACCRG( 26, 34) = 0.375696E+00
- PKER_SACCRG( 26, 35) = 0.371742E+00
- PKER_SACCRG( 26, 36) = 0.364161E+00
- PKER_SACCRG( 26, 37) = 0.000000E+00
- PKER_SACCRG( 26, 38) = 0.000000E+00
- PKER_SACCRG( 26, 39) = 0.000000E+00
- PKER_SACCRG( 26, 40) = 0.000000E+00
- PKER_SACCRG( 27, 1) = 0.000000E+00
- PKER_SACCRG( 27, 2) = 0.000000E+00
- PKER_SACCRG( 27, 3) = 0.000000E+00
- PKER_SACCRG( 27, 4) = 0.000000E+00
- PKER_SACCRG( 27, 5) = 0.000000E+00
- PKER_SACCRG( 27, 6) = 0.000000E+00
- PKER_SACCRG( 27, 7) = 0.000000E+00
- PKER_SACCRG( 27, 8) = 0.826912E+00
- PKER_SACCRG( 27, 9) = 0.773214E+00
- PKER_SACCRG( 27, 10) = 0.722825E+00
- PKER_SACCRG( 27, 11) = 0.809822E+00
- PKER_SACCRG( 27, 12) = 0.836829E+00
- PKER_SACCRG( 27, 13) = 0.839417E+00
- PKER_SACCRG( 27, 14) = 0.828373E+00
- PKER_SACCRG( 27, 15) = 0.808870E+00
- PKER_SACCRG( 27, 16) = 0.807920E+00
- PKER_SACCRG( 27, 17) = 0.792438E+00
- PKER_SACCRG( 27, 18) = 0.778848E+00
- PKER_SACCRG( 27, 19) = 0.752014E+00
- PKER_SACCRG( 27, 20) = 0.723884E+00
- PKER_SACCRG( 27, 21) = 0.684484E+00
- PKER_SACCRG( 27, 22) = 0.642077E+00
- PKER_SACCRG( 27, 23) = 0.601458E+00
- PKER_SACCRG( 27, 24) = 0.561451E+00
- PKER_SACCRG( 27, 25) = 0.526058E+00
- PKER_SACCRG( 27, 26) = 0.494186E+00
- PKER_SACCRG( 27, 27) = 0.465344E+00
- PKER_SACCRG( 27, 28) = 0.445036E+00
- PKER_SACCRG( 27, 29) = 0.427133E+00
- PKER_SACCRG( 27, 30) = 0.410167E+00
- PKER_SACCRG( 27, 31) = 0.399191E+00
- PKER_SACCRG( 27, 32) = 0.392065E+00
- PKER_SACCRG( 27, 33) = 0.386731E+00
- PKER_SACCRG( 27, 34) = 0.385063E+00
- PKER_SACCRG( 27, 35) = 0.381119E+00
- PKER_SACCRG( 27, 36) = 0.373572E+00
- PKER_SACCRG( 27, 37) = 0.000000E+00
- PKER_SACCRG( 27, 38) = 0.000000E+00
- PKER_SACCRG( 27, 39) = 0.000000E+00
- PKER_SACCRG( 27, 40) = 0.000000E+00
- PKER_SACCRG( 28, 1) = 0.000000E+00
- PKER_SACCRG( 28, 2) = 0.000000E+00
- PKER_SACCRG( 28, 3) = 0.000000E+00
- PKER_SACCRG( 28, 4) = 0.000000E+00
- PKER_SACCRG( 28, 5) = 0.000000E+00
- PKER_SACCRG( 28, 6) = 0.000000E+00
- PKER_SACCRG( 28, 7) = 0.000000E+00
- PKER_SACCRG( 28, 8) = 0.834152E+00
- PKER_SACCRG( 28, 9) = 0.780463E+00
- PKER_SACCRG( 28, 10) = 0.730085E+00
- PKER_SACCRG( 28, 11) = 0.817081E+00
- PKER_SACCRG( 28, 12) = 0.844087E+00
- PKER_SACCRG( 28, 13) = 0.846678E+00
- PKER_SACCRG( 28, 14) = 0.835638E+00
- PKER_SACCRG( 28, 15) = 0.816143E+00
- PKER_SACCRG( 28, 16) = 0.815199E+00
- PKER_SACCRG( 28, 17) = 0.799728E+00
- PKER_SACCRG( 28, 18) = 0.786155E+00
- PKER_SACCRG( 28, 19) = 0.759343E+00
- PKER_SACCRG( 28, 20) = 0.731242E+00
- PKER_SACCRG( 28, 21) = 0.691881E+00
- PKER_SACCRG( 28, 22) = 0.649512E+00
- PKER_SACCRG( 28, 23) = 0.608935E+00
- PKER_SACCRG( 28, 24) = 0.568988E+00
- PKER_SACCRG( 28, 25) = 0.533631E+00
- PKER_SACCRG( 28, 26) = 0.501792E+00
- PKER_SACCRG( 28, 27) = 0.472984E+00
- PKER_SACCRG( 28, 28) = 0.452665E+00
- PKER_SACCRG( 28, 29) = 0.434765E+00
- PKER_SACCRG( 28, 30) = 0.417816E+00
- PKER_SACCRG( 28, 31) = 0.406842E+00
- PKER_SACCRG( 28, 32) = 0.399715E+00
- PKER_SACCRG( 28, 33) = 0.394383E+00
- PKER_SACCRG( 28, 34) = 0.392708E+00
- PKER_SACCRG( 28, 35) = 0.388770E+00
- PKER_SACCRG( 28, 36) = 0.381244E+00
- PKER_SACCRG( 28, 37) = 0.000000E+00
- PKER_SACCRG( 28, 38) = 0.000000E+00
- PKER_SACCRG( 28, 39) = 0.000000E+00
- PKER_SACCRG( 28, 40) = 0.000000E+00
- PKER_SACCRG( 29, 1) = 0.000000E+00
- PKER_SACCRG( 29, 2) = 0.000000E+00
- PKER_SACCRG( 29, 3) = 0.000000E+00
- PKER_SACCRG( 29, 4) = 0.000000E+00
- PKER_SACCRG( 29, 5) = 0.000000E+00
- PKER_SACCRG( 29, 6) = 0.000000E+00
- PKER_SACCRG( 29, 7) = 0.000000E+00
- PKER_SACCRG( 29, 8) = 0.840140E+00
- PKER_SACCRG( 29, 9) = 0.786456E+00
- PKER_SACCRG( 29, 10) = 0.736085E+00
- PKER_SACCRG( 29, 11) = 0.823083E+00
- PKER_SACCRG( 29, 12) = 0.850089E+00
- PKER_SACCRG( 29, 13) = 0.852682E+00
- PKER_SACCRG( 29, 14) = 0.841646E+00
- PKER_SACCRG( 29, 15) = 0.822156E+00
- PKER_SACCRG( 29, 16) = 0.821217E+00
- PKER_SACCRG( 29, 17) = 0.805755E+00
- PKER_SACCRG( 29, 18) = 0.792194E+00
- PKER_SACCRG( 29, 19) = 0.765399E+00
- PKER_SACCRG( 29, 20) = 0.737321E+00
- PKER_SACCRG( 29, 21) = 0.697987E+00
- PKER_SACCRG( 29, 22) = 0.655647E+00
- PKER_SACCRG( 29, 23) = 0.615100E+00
- PKER_SACCRG( 29, 24) = 0.575195E+00
- PKER_SACCRG( 29, 25) = 0.539863E+00
- PKER_SACCRG( 29, 26) = 0.508047E+00
- PKER_SACCRG( 29, 27) = 0.479260E+00
- PKER_SACCRG( 29, 28) = 0.458928E+00
- PKER_SACCRG( 29, 29) = 0.441026E+00
- PKER_SACCRG( 29, 30) = 0.424085E+00
- PKER_SACCRG( 29, 31) = 0.413109E+00
- PKER_SACCRG( 29, 32) = 0.405979E+00
- PKER_SACCRG( 29, 33) = 0.400646E+00
- PKER_SACCRG( 29, 34) = 0.398965E+00
- PKER_SACCRG( 29, 35) = 0.395030E+00
- PKER_SACCRG( 29, 36) = 0.387518E+00
- PKER_SACCRG( 29, 37) = 0.000000E+00
- PKER_SACCRG( 29, 38) = 0.000000E+00
- PKER_SACCRG( 29, 39) = 0.000000E+00
- PKER_SACCRG( 29, 40) = 0.000000E+00
- PKER_SACCRG( 30, 1) = 0.000000E+00
- PKER_SACCRG( 30, 2) = 0.000000E+00
- PKER_SACCRG( 30, 3) = 0.000000E+00
- PKER_SACCRG( 30, 4) = 0.000000E+00
- PKER_SACCRG( 30, 5) = 0.000000E+00
- PKER_SACCRG( 30, 6) = 0.000000E+00
- PKER_SACCRG( 30, 7) = 0.000000E+00
- PKER_SACCRG( 30, 8) = 0.845094E+00
- PKER_SACCRG( 30, 9) = 0.791414E+00
- PKER_SACCRG( 30, 10) = 0.741047E+00
- PKER_SACCRG( 30, 11) = 0.828048E+00
- PKER_SACCRG( 30, 12) = 0.855054E+00
- PKER_SACCRG( 30, 13) = 0.857648E+00
- PKER_SACCRG( 30, 14) = 0.846615E+00
- PKER_SACCRG( 30, 15) = 0.827129E+00
- PKER_SACCRG( 30, 16) = 0.826194E+00
- PKER_SACCRG( 30, 17) = 0.810738E+00
- PKER_SACCRG( 30, 18) = 0.797187E+00
- PKER_SACCRG( 30, 19) = 0.770405E+00
- PKER_SACCRG( 30, 20) = 0.742343E+00
- PKER_SACCRG( 30, 21) = 0.703031E+00
- PKER_SACCRG( 30, 22) = 0.660711E+00
- PKER_SACCRG( 30, 23) = 0.620186E+00
- PKER_SACCRG( 30, 24) = 0.580313E+00
- PKER_SACCRG( 30, 25) = 0.544997E+00
- PKER_SACCRG( 30, 26) = 0.513195E+00
- PKER_SACCRG( 30, 27) = 0.484422E+00
- PKER_SACCRG( 30, 28) = 0.464077E+00
- PKER_SACCRG( 30, 29) = 0.446170E+00
- PKER_SACCRG( 30, 30) = 0.429233E+00
- PKER_SACCRG( 30, 31) = 0.418253E+00
- PKER_SACCRG( 30, 32) = 0.411117E+00
- PKER_SACCRG( 30, 33) = 0.405783E+00
- PKER_SACCRG( 30, 34) = 0.404097E+00
- PKER_SACCRG( 30, 35) = 0.400163E+00
- PKER_SACCRG( 30, 36) = 0.392659E+00
- PKER_SACCRG( 30, 37) = 0.000000E+00
- PKER_SACCRG( 30, 38) = 0.000000E+00
- PKER_SACCRG( 30, 39) = 0.000000E+00
- PKER_SACCRG( 30, 40) = 0.000000E+00
- PKER_SACCRG( 31, 1) = 0.000000E+00
- PKER_SACCRG( 31, 2) = 0.000000E+00
- PKER_SACCRG( 31, 3) = 0.000000E+00
- PKER_SACCRG( 31, 4) = 0.000000E+00
- PKER_SACCRG( 31, 5) = 0.000000E+00
- PKER_SACCRG( 31, 6) = 0.000000E+00
- PKER_SACCRG( 31, 7) = 0.000000E+00
- PKER_SACCRG( 31, 8) = 0.849193E+00
- PKER_SACCRG( 31, 9) = 0.795515E+00
- PKER_SACCRG( 31, 10) = 0.745151E+00
- PKER_SACCRG( 31, 11) = 0.832155E+00
- PKER_SACCRG( 31, 12) = 0.859161E+00
- PKER_SACCRG( 31, 13) = 0.861757E+00
- PKER_SACCRG( 31, 14) = 0.850726E+00
- PKER_SACCRG( 31, 15) = 0.831243E+00
- PKER_SACCRG( 31, 16) = 0.830311E+00
- PKER_SACCRG( 31, 17) = 0.814860E+00
- PKER_SACCRG( 31, 18) = 0.801315E+00
- PKER_SACCRG( 31, 19) = 0.774544E+00
- PKER_SACCRG( 31, 20) = 0.746495E+00
- PKER_SACCRG( 31, 21) = 0.707199E+00
- PKER_SACCRG( 31, 22) = 0.665314E+00
- PKER_SACCRG( 31, 23) = 0.624385E+00
- PKER_SACCRG( 31, 24) = 0.584535E+00
- PKER_SACCRG( 31, 25) = 0.549231E+00
- PKER_SACCRG( 31, 26) = 0.517437E+00
- PKER_SACCRG( 31, 27) = 0.488673E+00
- PKER_SACCRG( 31, 28) = 0.468316E+00
- PKER_SACCRG( 31, 29) = 0.450402E+00
- PKER_SACCRG( 31, 30) = 0.433466E+00
- PKER_SACCRG( 31, 31) = 0.422481E+00
- PKER_SACCRG( 31, 32) = 0.415341E+00
- PKER_SACCRG( 31, 33) = 0.410003E+00
- PKER_SACCRG( 31, 34) = 0.408314E+00
- PKER_SACCRG( 31, 35) = 0.404379E+00
- PKER_SACCRG( 31, 36) = 0.396881E+00
- PKER_SACCRG( 31, 37) = 0.000000E+00
- PKER_SACCRG( 31, 38) = 0.000000E+00
- PKER_SACCRG( 31, 39) = 0.000000E+00
- PKER_SACCRG( 31, 40) = 0.000000E+00
- PKER_SACCRG( 32, 1) = 0.000000E+00
- PKER_SACCRG( 32, 2) = 0.000000E+00
- PKER_SACCRG( 32, 3) = 0.000000E+00
- PKER_SACCRG( 32, 4) = 0.000000E+00
- PKER_SACCRG( 32, 5) = 0.000000E+00
- PKER_SACCRG( 32, 6) = 0.000000E+00
- PKER_SACCRG( 32, 7) = 0.000000E+00
- PKER_SACCRG( 32, 8) = 0.852585E+00
- PKER_SACCRG( 32, 9) = 0.798908E+00
- PKER_SACCRG( 32, 10) = 0.748546E+00
- PKER_SACCRG( 32, 11) = 0.835553E+00
- PKER_SACCRG( 32, 12) = 0.862560E+00
- PKER_SACCRG( 32, 13) = 0.865156E+00
- PKER_SACCRG( 32, 14) = 0.854127E+00
- PKER_SACCRG( 32, 15) = 0.834646E+00
- PKER_SACCRG( 32, 16) = 0.833717E+00
- PKER_SACCRG( 32, 17) = 0.818269E+00
- PKER_SACCRG( 32, 18) = 0.804730E+00
- PKER_SACCRG( 32, 19) = 0.777966E+00
- PKER_SACCRG( 32, 20) = 0.749927E+00
- PKER_SACCRG( 32, 21) = 0.710643E+00
- PKER_SACCRG( 32, 22) = 0.668772E+00
- PKER_SACCRG( 32, 23) = 0.627853E+00
- PKER_SACCRG( 32, 24) = 0.588019E+00
- PKER_SACCRG( 32, 25) = 0.552723E+00
- PKER_SACCRG( 32, 26) = 0.520936E+00
- PKER_SACCRG( 32, 27) = 0.492177E+00
- PKER_SACCRG( 32, 28) = 0.471809E+00
- PKER_SACCRG( 32, 29) = 0.453889E+00
- PKER_SACCRG( 32, 30) = 0.436952E+00
- PKER_SACCRG( 32, 31) = 0.425962E+00
- PKER_SACCRG( 32, 32) = 0.418817E+00
- PKER_SACCRG( 32, 33) = 0.413477E+00
- PKER_SACCRG( 32, 34) = 0.411784E+00
- PKER_SACCRG( 32, 35) = 0.407849E+00
- PKER_SACCRG( 32, 36) = 0.400353E+00
- PKER_SACCRG( 32, 37) = 0.000000E+00
- PKER_SACCRG( 32, 38) = 0.000000E+00
- PKER_SACCRG( 32, 39) = 0.000000E+00
- PKER_SACCRG( 32, 40) = 0.000000E+00
- PKER_SACCRG( 33, 1) = 0.000000E+00
- PKER_SACCRG( 33, 2) = 0.000000E+00
- PKER_SACCRG( 33, 3) = 0.000000E+00
- PKER_SACCRG( 33, 4) = 0.000000E+00
- PKER_SACCRG( 33, 5) = 0.000000E+00
- PKER_SACCRG( 33, 6) = 0.000000E+00
- PKER_SACCRG( 33, 7) = 0.000000E+00
- PKER_SACCRG( 33, 8) = 0.855391E+00
- PKER_SACCRG( 33, 9) = 0.801716E+00
- PKER_SACCRG( 33, 10) = 0.751355E+00
- PKER_SACCRG( 33, 11) = 0.838364E+00
- PKER_SACCRG( 33, 12) = 0.865372E+00
- PKER_SACCRG( 33, 13) = 0.867969E+00
- PKER_SACCRG( 33, 14) = 0.856941E+00
- PKER_SACCRG( 33, 15) = 0.837462E+00
- PKER_SACCRG( 33, 16) = 0.836534E+00
- PKER_SACCRG( 33, 17) = 0.821090E+00
- PKER_SACCRG( 33, 18) = 0.807555E+00
- PKER_SACCRG( 33, 19) = 0.780797E+00
- PKER_SACCRG( 33, 20) = 0.752765E+00
- PKER_SACCRG( 33, 21) = 0.713491E+00
- PKER_SACCRG( 33, 22) = 0.671630E+00
- PKER_SACCRG( 33, 23) = 0.630717E+00
- PKER_SACCRG( 33, 24) = 0.590897E+00
- PKER_SACCRG( 33, 25) = 0.555606E+00
- PKER_SACCRG( 33, 26) = 0.523823E+00
- PKER_SACCRG( 33, 27) = 0.495067E+00
- PKER_SACCRG( 33, 28) = 0.474689E+00
- PKER_SACCRG( 33, 29) = 0.456764E+00
- PKER_SACCRG( 33, 30) = 0.439825E+00
- PKER_SACCRG( 33, 31) = 0.428830E+00
- PKER_SACCRG( 33, 32) = 0.421681E+00
- PKER_SACCRG( 33, 33) = 0.416338E+00
- PKER_SACCRG( 33, 34) = 0.414643E+00
- PKER_SACCRG( 33, 35) = 0.410707E+00
- PKER_SACCRG( 33, 36) = 0.403213E+00
- PKER_SACCRG( 33, 37) = 0.000000E+00
- PKER_SACCRG( 33, 38) = 0.000000E+00
- PKER_SACCRG( 33, 39) = 0.000000E+00
- PKER_SACCRG( 33, 40) = 0.000000E+00
- PKER_SACCRG( 34, 1) = 0.000000E+00
- PKER_SACCRG( 34, 2) = 0.000000E+00
- PKER_SACCRG( 34, 3) = 0.000000E+00
- PKER_SACCRG( 34, 4) = 0.000000E+00
- PKER_SACCRG( 34, 5) = 0.000000E+00
- PKER_SACCRG( 34, 6) = 0.000000E+00
- PKER_SACCRG( 34, 7) = 0.000000E+00
- PKER_SACCRG( 34, 8) = 0.857714E+00
- PKER_SACCRG( 34, 9) = 0.804039E+00
- PKER_SACCRG( 34, 10) = 0.753680E+00
- PKER_SACCRG( 34, 11) = 0.840691E+00
- PKER_SACCRG( 34, 12) = 0.867699E+00
- PKER_SACCRG( 34, 13) = 0.870297E+00
- PKER_SACCRG( 34, 14) = 0.859270E+00
- PKER_SACCRG( 34, 15) = 0.839792E+00
- PKER_SACCRG( 34, 16) = 0.838866E+00
- PKER_SACCRG( 34, 17) = 0.823423E+00
- PKER_SACCRG( 34, 18) = 0.809892E+00
- PKER_SACCRG( 34, 19) = 0.783139E+00
- PKER_SACCRG( 34, 20) = 0.755113E+00
- PKER_SACCRG( 34, 21) = 0.715845E+00
- PKER_SACCRG( 34, 22) = 0.673992E+00
- PKER_SACCRG( 34, 23) = 0.633085E+00
- PKER_SACCRG( 34, 24) = 0.593274E+00
- PKER_SACCRG( 34, 25) = 0.557987E+00
- PKER_SACCRG( 34, 26) = 0.526206E+00
- PKER_SACCRG( 34, 27) = 0.497452E+00
- PKER_SACCRG( 34, 28) = 0.477066E+00
- PKER_SACCRG( 34, 29) = 0.459136E+00
- PKER_SACCRG( 34, 30) = 0.442195E+00
- PKER_SACCRG( 34, 31) = 0.431196E+00
- PKER_SACCRG( 34, 32) = 0.424043E+00
- PKER_SACCRG( 34, 33) = 0.418698E+00
- PKER_SACCRG( 34, 34) = 0.417000E+00
- PKER_SACCRG( 34, 35) = 0.413064E+00
- PKER_SACCRG( 34, 36) = 0.405570E+00
- PKER_SACCRG( 34, 37) = 0.000000E+00
- PKER_SACCRG( 34, 38) = 0.000000E+00
- PKER_SACCRG( 34, 39) = 0.000000E+00
- PKER_SACCRG( 34, 40) = 0.000000E+00
- PKER_SACCRG( 35, 1) = 0.000000E+00
- PKER_SACCRG( 35, 2) = 0.000000E+00
- PKER_SACCRG( 35, 3) = 0.000000E+00
- PKER_SACCRG( 35, 4) = 0.000000E+00
- PKER_SACCRG( 35, 5) = 0.000000E+00
- PKER_SACCRG( 35, 6) = 0.000000E+00
- PKER_SACCRG( 35, 7) = 0.000000E+00
- PKER_SACCRG( 35, 8) = 0.859637E+00
- PKER_SACCRG( 35, 9) = 0.805962E+00
- PKER_SACCRG( 35, 10) = 0.755603E+00
- PKER_SACCRG( 35, 11) = 0.842616E+00
- PKER_SACCRG( 35, 12) = 0.869625E+00
- PKER_SACCRG( 35, 13) = 0.872223E+00
- PKER_SACCRG( 35, 14) = 0.861197E+00
- PKER_SACCRG( 35, 15) = 0.841720E+00
- PKER_SACCRG( 35, 16) = 0.840795E+00
- PKER_SACCRG( 35, 17) = 0.825354E+00
- PKER_SACCRG( 35, 18) = 0.811826E+00
- PKER_SACCRG( 35, 19) = 0.785076E+00
- PKER_SACCRG( 35, 20) = 0.757054E+00
- PKER_SACCRG( 35, 21) = 0.717792E+00
- PKER_SACCRG( 35, 22) = 0.675945E+00
- PKER_SACCRG( 35, 23) = 0.635042E+00
- PKER_SACCRG( 35, 24) = 0.595238E+00
- PKER_SACCRG( 35, 25) = 0.559954E+00
- PKER_SACCRG( 35, 26) = 0.528174E+00
- PKER_SACCRG( 35, 27) = 0.499421E+00
- PKER_SACCRG( 35, 28) = 0.479029E+00
- PKER_SACCRG( 35, 29) = 0.461094E+00
- PKER_SACCRG( 35, 30) = 0.444151E+00
- PKER_SACCRG( 35, 31) = 0.433148E+00
- PKER_SACCRG( 35, 32) = 0.425993E+00
- PKER_SACCRG( 35, 33) = 0.420646E+00
- PKER_SACCRG( 35, 34) = 0.418946E+00
- PKER_SACCRG( 35, 35) = 0.415009E+00
- PKER_SACCRG( 35, 36) = 0.407516E+00
- PKER_SACCRG( 35, 37) = 0.000000E+00
- PKER_SACCRG( 35, 38) = 0.000000E+00
- PKER_SACCRG( 35, 39) = 0.000000E+00
- PKER_SACCRG( 35, 40) = 0.000000E+00
- PKER_SACCRG( 36, 1) = 0.000000E+00
- PKER_SACCRG( 36, 2) = 0.000000E+00
- PKER_SACCRG( 36, 3) = 0.000000E+00
- PKER_SACCRG( 36, 4) = 0.000000E+00
- PKER_SACCRG( 36, 5) = 0.000000E+00
- PKER_SACCRG( 36, 6) = 0.000000E+00
- PKER_SACCRG( 36, 7) = 0.000000E+00
- PKER_SACCRG( 36, 8) = 0.861228E+00
- PKER_SACCRG( 36, 9) = 0.807554E+00
- PKER_SACCRG( 36, 10) = 0.757195E+00
- PKER_SACCRG( 36, 11) = 0.844210E+00
- PKER_SACCRG( 36, 12) = 0.871219E+00
- PKER_SACCRG( 36, 13) = 0.873817E+00
- PKER_SACCRG( 36, 14) = 0.862791E+00
- PKER_SACCRG( 36, 15) = 0.843315E+00
- PKER_SACCRG( 36, 16) = 0.842391E+00
- PKER_SACCRG( 36, 17) = 0.826952E+00
- PKER_SACCRG( 36, 18) = 0.813425E+00
- PKER_SACCRG( 36, 19) = 0.786678E+00
- PKER_SACCRG( 36, 20) = 0.758660E+00
- PKER_SACCRG( 36, 21) = 0.719402E+00
- PKER_SACCRG( 36, 22) = 0.677560E+00
- PKER_SACCRG( 36, 23) = 0.636660E+00
- PKER_SACCRG( 36, 24) = 0.596861E+00
- PKER_SACCRG( 36, 25) = 0.561579E+00
- PKER_SACCRG( 36, 26) = 0.529800E+00
- PKER_SACCRG( 36, 27) = 0.501048E+00
- PKER_SACCRG( 36, 28) = 0.480650E+00
- PKER_SACCRG( 36, 29) = 0.462712E+00
- PKER_SACCRG( 36, 30) = 0.445767E+00
- PKER_SACCRG( 36, 31) = 0.434761E+00
- PKER_SACCRG( 36, 32) = 0.427602E+00
- PKER_SACCRG( 36, 33) = 0.422254E+00
- PKER_SACCRG( 36, 34) = 0.420553E+00
- PKER_SACCRG( 36, 35) = 0.416615E+00
- PKER_SACCRG( 36, 36) = 0.409122E+00
- PKER_SACCRG( 36, 37) = 0.000000E+00
- PKER_SACCRG( 36, 38) = 0.000000E+00
- PKER_SACCRG( 36, 39) = 0.000000E+00
- PKER_SACCRG( 36, 40) = 0.000000E+00
- PKER_SACCRG( 37, 1) = 0.000000E+00
- PKER_SACCRG( 37, 2) = 0.000000E+00
- PKER_SACCRG( 37, 3) = 0.000000E+00
- PKER_SACCRG( 37, 4) = 0.000000E+00
- PKER_SACCRG( 37, 5) = 0.000000E+00
- PKER_SACCRG( 37, 6) = 0.000000E+00
- PKER_SACCRG( 37, 7) = 0.000000E+00
- PKER_SACCRG( 37, 8) = 0.862545E+00
- PKER_SACCRG( 37, 9) = 0.808871E+00
- PKER_SACCRG( 37, 10) = 0.758513E+00
- PKER_SACCRG( 37, 11) = 0.845529E+00
- PKER_SACCRG( 37, 12) = 0.872538E+00
- PKER_SACCRG( 37, 13) = 0.875137E+00
- PKER_SACCRG( 37, 14) = 0.864111E+00
- PKER_SACCRG( 37, 15) = 0.844636E+00
- PKER_SACCRG( 37, 16) = 0.843713E+00
- PKER_SACCRG( 37, 17) = 0.828275E+00
- PKER_SACCRG( 37, 18) = 0.814749E+00
- PKER_SACCRG( 37, 19) = 0.788004E+00
- PKER_SACCRG( 37, 20) = 0.759989E+00
- PKER_SACCRG( 37, 21) = 0.720734E+00
- PKER_SACCRG( 37, 22) = 0.678896E+00
- PKER_SACCRG( 37, 23) = 0.637998E+00
- PKER_SACCRG( 37, 24) = 0.598203E+00
- PKER_SACCRG( 37, 25) = 0.562923E+00
- PKER_SACCRG( 37, 26) = 0.531144E+00
- PKER_SACCRG( 37, 27) = 0.502392E+00
- PKER_SACCRG( 37, 28) = 0.481990E+00
- PKER_SACCRG( 37, 29) = 0.464049E+00
- PKER_SACCRG( 37, 30) = 0.447102E+00
- PKER_SACCRG( 37, 31) = 0.436093E+00
- PKER_SACCRG( 37, 32) = 0.428933E+00
- PKER_SACCRG( 37, 33) = 0.423583E+00
- PKER_SACCRG( 37, 34) = 0.421881E+00
- PKER_SACCRG( 37, 35) = 0.417942E+00
- PKER_SACCRG( 37, 36) = 0.410449E+00
- PKER_SACCRG( 37, 37) = 0.000000E+00
- PKER_SACCRG( 37, 38) = 0.000000E+00
- PKER_SACCRG( 37, 39) = 0.000000E+00
- PKER_SACCRG( 37, 40) = 0.000000E+00
- PKER_SACCRG( 38, 1) = 0.000000E+00
- PKER_SACCRG( 38, 2) = 0.000000E+00
- PKER_SACCRG( 38, 3) = 0.000000E+00
- PKER_SACCRG( 38, 4) = 0.000000E+00
- PKER_SACCRG( 38, 5) = 0.000000E+00
- PKER_SACCRG( 38, 6) = 0.000000E+00
- PKER_SACCRG( 38, 7) = 0.000000E+00
- PKER_SACCRG( 38, 8) = 0.864084E+00
- PKER_SACCRG( 38, 9) = 0.810382E+00
- PKER_SACCRG( 38, 10) = 0.759998E+00
- PKER_SACCRG( 38, 11) = 0.847060E+00
- PKER_SACCRG( 38, 12) = 0.874083E+00
- PKER_SACCRG( 38, 13) = 0.876684E+00
- PKER_SACCRG( 38, 14) = 0.865653E+00
- PKER_SACCRG( 38, 15) = 0.846168E+00
- PKER_SACCRG( 38, 16) = 0.845245E+00
- PKER_SACCRG( 38, 17) = 0.829800E+00
- PKER_SACCRG( 38, 18) = 0.816269E+00
- PKER_SACCRG( 38, 19) = 0.789511E+00
- PKER_SACCRG( 38, 20) = 0.761484E+00
- PKER_SACCRG( 38, 21) = 0.722211E+00
- PKER_SACCRG( 38, 22) = 0.680354E+00
- PKER_SACCRG( 38, 23) = 0.639436E+00
- PKER_SACCRG( 38, 24) = 0.599624E+00
- PKER_SACCRG( 38, 25) = 0.564327E+00
- PKER_SACCRG( 38, 26) = 0.532532E+00
- PKER_SACCRG( 38, 27) = 0.503764E+00
- PKER_SACCRG( 38, 28) = 0.483348E+00
- PKER_SACCRG( 38, 29) = 0.465395E+00
- PKER_SACCRG( 38, 30) = 0.448438E+00
- PKER_SACCRG( 38, 31) = 0.437422E+00
- PKER_SACCRG( 38, 32) = 0.430256E+00
- PKER_SACCRG( 38, 33) = 0.424902E+00
- PKER_SACCRG( 38, 34) = 0.423198E+00
- PKER_SACCRG( 38, 35) = 0.419256E+00
- PKER_SACCRG( 38, 36) = 0.411759E+00
- PKER_SACCRG( 38, 37) = 0.000000E+00
- PKER_SACCRG( 38, 38) = 0.000000E+00
- PKER_SACCRG( 38, 39) = 0.000000E+00
- PKER_SACCRG( 38, 40) = 0.000000E+00
- PKER_SACCRG( 39, 1) = 0.000000E+00
- PKER_SACCRG( 39, 2) = 0.000000E+00
- PKER_SACCRG( 39, 3) = 0.000000E+00
- PKER_SACCRG( 39, 4) = 0.000000E+00
- PKER_SACCRG( 39, 5) = 0.000000E+00
- PKER_SACCRG( 39, 6) = 0.000000E+00
- PKER_SACCRG( 39, 7) = 0.000000E+00
- PKER_SACCRG( 39, 8) = 0.864538E+00
- PKER_SACCRG( 39, 9) = 0.810864E+00
- PKER_SACCRG( 39, 10) = 0.760506E+00
- PKER_SACCRG( 39, 11) = 0.847524E+00
- PKER_SACCRG( 39, 12) = 0.874534E+00
- PKER_SACCRG( 39, 13) = 0.877133E+00
- PKER_SACCRG( 39, 14) = 0.866108E+00
- PKER_SACCRG( 39, 15) = 0.846633E+00
- PKER_SACCRG( 39, 16) = 0.845711E+00
- PKER_SACCRG( 39, 17) = 0.830275E+00
- PKER_SACCRG( 39, 18) = 0.816752E+00
- PKER_SACCRG( 39, 19) = 0.790009E+00
- PKER_SACCRG( 39, 20) = 0.761998E+00
- PKER_SACCRG( 39, 21) = 0.722748E+00
- PKER_SACCRG( 39, 22) = 0.680914E+00
- PKER_SACCRG( 39, 23) = 0.640019E+00
- PKER_SACCRG( 39, 24) = 0.600230E+00
- PKER_SACCRG( 39, 25) = 0.564952E+00
- PKER_SACCRG( 39, 26) = 0.533174E+00
- PKER_SACCRG( 39, 27) = 0.504421E+00
- PKER_SACCRG( 39, 28) = 0.484013E+00
- PKER_SACCRG( 39, 29) = 0.466067E+00
- PKER_SACCRG( 39, 30) = 0.449117E+00
- PKER_SACCRG( 39, 31) = 0.438105E+00
- PKER_SACCRG( 39, 32) = 0.430941E+00
- PKER_SACCRG( 39, 33) = 0.425589E+00
- PKER_SACCRG( 39, 34) = 0.423885E+00
- PKER_SACCRG( 39, 35) = 0.419946E+00
- PKER_SACCRG( 39, 36) = 0.412452E+00
- PKER_SACCRG( 39, 37) = 0.000000E+00
- PKER_SACCRG( 39, 38) = 0.000000E+00
- PKER_SACCRG( 39, 39) = 0.000000E+00
- PKER_SACCRG( 39, 40) = 0.000000E+00
- PKER_SACCRG( 40, 1) = 0.000000E+00
- PKER_SACCRG( 40, 2) = 0.000000E+00
- PKER_SACCRG( 40, 3) = 0.000000E+00
- PKER_SACCRG( 40, 4) = 0.000000E+00
- PKER_SACCRG( 40, 5) = 0.000000E+00
- PKER_SACCRG( 40, 6) = 0.000000E+00
- PKER_SACCRG( 40, 7) = 0.000000E+00
- PKER_SACCRG( 40, 8) = 0.865285E+00
- PKER_SACCRG( 40, 9) = 0.811611E+00
- PKER_SACCRG( 40, 10) = 0.761253E+00
- PKER_SACCRG( 40, 11) = 0.848272E+00
- PKER_SACCRG( 40, 12) = 0.875282E+00
- PKER_SACCRG( 40, 13) = 0.877881E+00
- PKER_SACCRG( 40, 14) = 0.866857E+00
- PKER_SACCRG( 40, 15) = 0.847382E+00
- PKER_SACCRG( 40, 16) = 0.846460E+00
- PKER_SACCRG( 40, 17) = 0.831024E+00
- PKER_SACCRG( 40, 18) = 0.817502E+00
- PKER_SACCRG( 40, 19) = 0.790761E+00
- PKER_SACCRG( 40, 20) = 0.762751E+00
- PKER_SACCRG( 40, 21) = 0.723502E+00
- PKER_SACCRG( 40, 22) = 0.681670E+00
- PKER_SACCRG( 40, 23) = 0.640776E+00
- PKER_SACCRG( 40, 24) = 0.600989E+00
- PKER_SACCRG( 40, 25) = 0.565711E+00
- PKER_SACCRG( 40, 26) = 0.533933E+00
- PKER_SACCRG( 40, 27) = 0.505180E+00
- PKER_SACCRG( 40, 28) = 0.484770E+00
- PKER_SACCRG( 40, 29) = 0.466822E+00
- PKER_SACCRG( 40, 30) = 0.449871E+00
- PKER_SACCRG( 40, 31) = 0.438858E+00
- PKER_SACCRG( 40, 32) = 0.431693E+00
- PKER_SACCRG( 40, 33) = 0.426340E+00
- PKER_SACCRG( 40, 34) = 0.424636E+00
- PKER_SACCRG( 40, 35) = 0.420696E+00
- PKER_SACCRG( 40, 36) = 0.413202E+00
- PKER_SACCRG( 40, 37) = 0.000000E+00
- PKER_SACCRG( 40, 38) = 0.000000E+00
- PKER_SACCRG( 40, 39) = 0.000000E+00
- PKER_SACCRG( 40, 40) = 0.000000E+00
+ PKER_SACCRG( 1, 1) = 0.399987E+01
+ PKER_SACCRG( 1, 2) = 0.447717E+01
+ PKER_SACCRG( 1, 3) = 0.492595E+01
+ PKER_SACCRG( 1, 4) = 0.533995E+01
+ PKER_SACCRG( 1, 5) = 0.571728E+01
+ PKER_SACCRG( 1, 6) = 0.605883E+01
+ PKER_SACCRG( 1, 7) = 0.636828E+01
+ PKER_SACCRG( 1, 8) = 0.664992E+01
+ PKER_SACCRG( 1, 9) = 0.690800E+01
+ PKER_SACCRG( 1, 10) = 0.714623E+01
+ PKER_SACCRG( 1, 11) = 0.736743E+01
+ PKER_SACCRG( 1, 12) = 0.757359E+01
+ PKER_SACCRG( 1, 13) = 0.776564E+01
+ PKER_SACCRG( 1, 14) = 0.794440E+01
+ PKER_SACCRG( 1, 15) = 0.811000E+01
+ PKER_SACCRG( 1, 16) = 0.826282E+01
+ PKER_SACCRG( 1, 17) = 0.838457E+01
+ PKER_SACCRG( 1, 18) = 0.851396E+01
+ PKER_SACCRG( 1, 19) = 0.863196E+01
+ PKER_SACCRG( 1, 20) = 0.873920E+01
+ PKER_SACCRG( 1, 21) = 0.883640E+01
+ PKER_SACCRG( 1, 22) = 0.889422E+01
+ PKER_SACCRG( 1, 23) = 0.897596E+01
+ PKER_SACCRG( 1, 24) = 0.904984E+01
+ PKER_SACCRG( 1, 25) = 0.908430E+01
+ PKER_SACCRG( 1, 26) = 0.914732E+01
+ PKER_SACCRG( 1, 27) = 0.917281E+01
+ PKER_SACCRG( 1, 28) = 0.922714E+01
+ PKER_SACCRG( 1, 29) = 0.924793E+01
+ PKER_SACCRG( 1, 30) = 0.926803E+01
+ PKER_SACCRG( 1, 31) = 0.928805E+01
+ PKER_SACCRG( 1, 32) = 0.930820E+01
+ PKER_SACCRG( 1, 33) = 0.932851E+01
+ PKER_SACCRG( 1, 34) = 0.932992E+01
+ PKER_SACCRG( 1, 35) = 0.935211E+01
+ PKER_SACCRG( 1, 36) = 0.935868E+01
+ PKER_SACCRG( 1, 37) = 0.936799E+01
+ PKER_SACCRG( 1, 38) = 0.936746E+01
+ PKER_SACCRG( 1, 39) = 0.938188E+01
+ PKER_SACCRG( 1, 40) = 0.938790E+01
+ PKER_SACCRG( 2, 1) = 0.257317E+01
+ PKER_SACCRG( 2, 2) = 0.297953E+01
+ PKER_SACCRG( 2, 3) = 0.337807E+01
+ PKER_SACCRG( 2, 4) = 0.375843E+01
+ PKER_SACCRG( 2, 5) = 0.411347E+01
+ PKER_SACCRG( 2, 6) = 0.443938E+01
+ PKER_SACCRG( 2, 7) = 0.473590E+01
+ PKER_SACCRG( 2, 8) = 0.500487E+01
+ PKER_SACCRG( 2, 9) = 0.524955E+01
+ PKER_SACCRG( 2, 10) = 0.547369E+01
+ PKER_SACCRG( 2, 11) = 0.568073E+01
+ PKER_SACCRG( 2, 12) = 0.587360E+01
+ PKER_SACCRG( 2, 13) = 0.605386E+01
+ PKER_SACCRG( 2, 14) = 0.622304E+01
+ PKER_SACCRG( 2, 15) = 0.638125E+01
+ PKER_SACCRG( 2, 16) = 0.652893E+01
+ PKER_SACCRG( 2, 17) = 0.664892E+01
+ PKER_SACCRG( 2, 18) = 0.677643E+01
+ PKER_SACCRG( 2, 19) = 0.689384E+01
+ PKER_SACCRG( 2, 20) = 0.700141E+01
+ PKER_SACCRG( 2, 21) = 0.709957E+01
+ PKER_SACCRG( 2, 22) = 0.715927E+01
+ PKER_SACCRG( 2, 23) = 0.724236E+01
+ PKER_SACCRG( 2, 24) = 0.731774E+01
+ PKER_SACCRG( 2, 25) = 0.735370E+01
+ PKER_SACCRG( 2, 26) = 0.741812E+01
+ PKER_SACCRG( 2, 27) = 0.744470E+01
+ PKER_SACCRG( 2, 28) = 0.750030E+01
+ PKER_SACCRG( 2, 29) = 0.752188E+01
+ PKER_SACCRG( 2, 30) = 0.754267E+01
+ PKER_SACCRG( 2, 31) = 0.756331E+01
+ PKER_SACCRG( 2, 32) = 0.758402E+01
+ PKER_SACCRG( 2, 33) = 0.760486E+01
+ PKER_SACCRG( 2, 34) = 0.760641E+01
+ PKER_SACCRG( 2, 35) = 0.762912E+01
+ PKER_SACCRG( 2, 36) = 0.763588E+01
+ PKER_SACCRG( 2, 37) = 0.764543E+01
+ PKER_SACCRG( 2, 38) = 0.764492E+01
+ PKER_SACCRG( 2, 39) = 0.765966E+01
+ PKER_SACCRG( 2, 40) = 0.766582E+01
+ PKER_SACCRG( 3, 1) = 0.155359E+01
+ PKER_SACCRG( 3, 2) = 0.187100E+01
+ PKER_SACCRG( 3, 3) = 0.219896E+01
+ PKER_SACCRG( 3, 4) = 0.252674E+01
+ PKER_SACCRG( 3, 5) = 0.284459E+01
+ PKER_SACCRG( 3, 6) = 0.314498E+01
+ PKER_SACCRG( 3, 7) = 0.342333E+01
+ PKER_SACCRG( 3, 8) = 0.367781E+01
+ PKER_SACCRG( 3, 9) = 0.390918E+01
+ PKER_SACCRG( 3, 10) = 0.411969E+01
+ PKER_SACCRG( 3, 11) = 0.431258E+01
+ PKER_SACCRG( 3, 12) = 0.449120E+01
+ PKER_SACCRG( 3, 13) = 0.465765E+01
+ PKER_SACCRG( 3, 14) = 0.481462E+01
+ PKER_SACCRG( 3, 15) = 0.496245E+01
+ PKER_SACCRG( 3, 16) = 0.510197E+01
+ PKER_SACCRG( 3, 17) = 0.521783E+01
+ PKER_SACCRG( 3, 18) = 0.534109E+01
+ PKER_SACCRG( 3, 19) = 0.545596E+01
+ PKER_SACCRG( 3, 20) = 0.556232E+01
+ PKER_SACCRG( 3, 21) = 0.566026E+01
+ PKER_SACCRG( 3, 22) = 0.572137E+01
+ PKER_SACCRG( 3, 23) = 0.580512E+01
+ PKER_SACCRG( 3, 24) = 0.588150E+01
+ PKER_SACCRG( 3, 25) = 0.591889E+01
+ PKER_SACCRG( 3, 26) = 0.598444E+01
+ PKER_SACCRG( 3, 27) = 0.601211E+01
+ PKER_SACCRG( 3, 28) = 0.606880E+01
+ PKER_SACCRG( 3, 29) = 0.609120E+01
+ PKER_SACCRG( 3, 30) = 0.611268E+01
+ PKER_SACCRG( 3, 31) = 0.613391E+01
+ PKER_SACCRG( 3, 32) = 0.615518E+01
+ PKER_SACCRG( 3, 33) = 0.617653E+01
+ PKER_SACCRG( 3, 34) = 0.617824E+01
+ PKER_SACCRG( 3, 35) = 0.620144E+01
+ PKER_SACCRG( 3, 36) = 0.620840E+01
+ PKER_SACCRG( 3, 37) = 0.621818E+01
+ PKER_SACCRG( 3, 38) = 0.621770E+01
+ PKER_SACCRG( 3, 39) = 0.623274E+01
+ PKER_SACCRG( 3, 40) = 0.623904E+01
+ PKER_SACCRG( 4, 1) = 0.875860E+00
+ PKER_SACCRG( 4, 2) = 0.110134E+01
+ PKER_SACCRG( 4, 3) = 0.134822E+01
+ PKER_SACCRG( 4, 4) = 0.160881E+01
+ PKER_SACCRG( 4, 5) = 0.187421E+01
+ PKER_SACCRG( 4, 6) = 0.213579E+01
+ PKER_SACCRG( 4, 7) = 0.238622E+01
+ PKER_SACCRG( 4, 8) = 0.262044E+01
+ PKER_SACCRG( 4, 9) = 0.283583E+01
+ PKER_SACCRG( 4, 10) = 0.303210E+01
+ PKER_SACCRG( 4, 11) = 0.321087E+01
+ PKER_SACCRG( 4, 12) = 0.337513E+01
+ PKER_SACCRG( 4, 13) = 0.352689E+01
+ PKER_SACCRG( 4, 14) = 0.366996E+01
+ PKER_SACCRG( 4, 15) = 0.380504E+01
+ PKER_SACCRG( 4, 16) = 0.393372E+01
+ PKER_SACCRG( 4, 17) = 0.404297E+01
+ PKER_SACCRG( 4, 18) = 0.415945E+01
+ PKER_SACCRG( 4, 19) = 0.426955E+01
+ PKER_SACCRG( 4, 20) = 0.437282E+01
+ PKER_SACCRG( 4, 21) = 0.446904E+01
+ PKER_SACCRG( 4, 22) = 0.453084E+01
+ PKER_SACCRG( 4, 23) = 0.461428E+01
+ PKER_SACCRG( 4, 24) = 0.469094E+01
+ PKER_SACCRG( 4, 25) = 0.472959E+01
+ PKER_SACCRG( 4, 26) = 0.479583E+01
+ PKER_SACCRG( 4, 27) = 0.482454E+01
+ PKER_SACCRG( 4, 28) = 0.488206E+01
+ PKER_SACCRG( 4, 29) = 0.490526E+01
+ PKER_SACCRG( 4, 30) = 0.492739E+01
+ PKER_SACCRG( 4, 31) = 0.494920E+01
+ PKER_SACCRG( 4, 32) = 0.497098E+01
+ PKER_SACCRG( 4, 33) = 0.499281E+01
+ PKER_SACCRG( 4, 34) = 0.499471E+01
+ PKER_SACCRG( 4, 35) = 0.501835E+01
+ PKER_SACCRG( 4, 36) = 0.502550E+01
+ PKER_SACCRG( 4, 37) = 0.503550E+01
+ PKER_SACCRG( 4, 38) = 0.503506E+01
+ PKER_SACCRG( 4, 39) = 0.505039E+01
+ PKER_SACCRG( 4, 40) = 0.505681E+01
+ PKER_SACCRG( 5, 1) = 0.460895E+00
+ PKER_SACCRG( 5, 2) = 0.605919E+00
+ PKER_SACCRG( 5, 3) = 0.775143E+00
+ PKER_SACCRG( 5, 4) = 0.964417E+00
+ PKER_SACCRG( 5, 5) = 0.116869E+01
+ PKER_SACCRG( 5, 6) = 0.138013E+01
+ PKER_SACCRG( 5, 7) = 0.159243E+01
+ PKER_SACCRG( 5, 8) = 0.179838E+01
+ PKER_SACCRG( 5, 9) = 0.199273E+01
+ PKER_SACCRG( 5, 10) = 0.217235E+01
+ PKER_SACCRG( 5, 11) = 0.233632E+01
+ PKER_SACCRG( 5, 12) = 0.248611E+01
+ PKER_SACCRG( 5, 13) = 0.262361E+01
+ PKER_SACCRG( 5, 14) = 0.275140E+01
+ PKER_SACCRG( 5, 15) = 0.287193E+01
+ PKER_SACCRG( 5, 16) = 0.298734E+01
+ PKER_SACCRG( 5, 17) = 0.308689E+01
+ PKER_SACCRG( 5, 18) = 0.319347E+01
+ PKER_SACCRG( 5, 19) = 0.329579E+01
+ PKER_SACCRG( 5, 20) = 0.339342E+01
+ PKER_SACCRG( 5, 21) = 0.348581E+01
+ PKER_SACCRG( 5, 22) = 0.354717E+01
+ PKER_SACCRG( 5, 23) = 0.362898E+01
+ PKER_SACCRG( 5, 24) = 0.370492E+01
+ PKER_SACCRG( 5, 25) = 0.374451E+01
+ PKER_SACCRG( 5, 26) = 0.381080E+01
+ PKER_SACCRG( 5, 27) = 0.384042E+01
+ PKER_SACCRG( 5, 28) = 0.389836E+01
+ PKER_SACCRG( 5, 29) = 0.392230E+01
+ PKER_SACCRG( 5, 30) = 0.394504E+01
+ PKER_SACCRG( 5, 31) = 0.396735E+01
+ PKER_SACCRG( 5, 32) = 0.398957E+01
+ PKER_SACCRG( 5, 33) = 0.401181E+01
+ PKER_SACCRG( 5, 34) = 0.401393E+01
+ PKER_SACCRG( 5, 35) = 0.403793E+01
+ PKER_SACCRG( 5, 36) = 0.404527E+01
+ PKER_SACCRG( 5, 37) = 0.405546E+01
+ PKER_SACCRG( 5, 38) = 0.405508E+01
+ PKER_SACCRG( 5, 39) = 0.407064E+01
+ PKER_SACCRG( 5, 40) = 0.407718E+01
+ PKER_SACCRG( 6, 1) = 0.228048E+00
+ PKER_SACCRG( 6, 2) = 0.312445E+00
+ PKER_SACCRG( 6, 3) = 0.417663E+00
+ PKER_SACCRG( 6, 4) = 0.542871E+00
+ PKER_SACCRG( 6, 5) = 0.686642E+00
+ PKER_SACCRG( 6, 6) = 0.843774E+00
+ PKER_SACCRG( 6, 7) = 0.101059E+01
+ PKER_SACCRG( 6, 8) = 0.118021E+01
+ PKER_SACCRG( 6, 9) = 0.134662E+01
+ PKER_SACCRG( 6, 10) = 0.150479E+01
+ PKER_SACCRG( 6, 11) = 0.165159E+01
+ PKER_SACCRG( 6, 12) = 0.178633E+01
+ PKER_SACCRG( 6, 13) = 0.190976E+01
+ PKER_SACCRG( 6, 14) = 0.202279E+01
+ PKER_SACCRG( 6, 15) = 0.212917E+01
+ PKER_SACCRG( 6, 16) = 0.223008E+01
+ PKER_SACCRG( 6, 17) = 0.231837E+01
+ PKER_SACCRG( 6, 18) = 0.241270E+01
+ PKER_SACCRG( 6, 19) = 0.250455E+01
+ PKER_SACCRG( 6, 20) = 0.259368E+01
+ PKER_SACCRG( 6, 21) = 0.267953E+01
+ PKER_SACCRG( 6, 22) = 0.273856E+01
+ PKER_SACCRG( 6, 23) = 0.281669E+01
+ PKER_SACCRG( 6, 24) = 0.289026E+01
+ PKER_SACCRG( 6, 25) = 0.293006E+01
+ PKER_SACCRG( 6, 26) = 0.299542E+01
+ PKER_SACCRG( 6, 27) = 0.302563E+01
+ PKER_SACCRG( 6, 28) = 0.308341E+01
+ PKER_SACCRG( 6, 29) = 0.310794E+01
+ PKER_SACCRG( 6, 30) = 0.313116E+01
+ PKER_SACCRG( 6, 31) = 0.315386E+01
+ PKER_SACCRG( 6, 32) = 0.317643E+01
+ PKER_SACCRG( 6, 33) = 0.319897E+01
+ PKER_SACCRG( 6, 34) = 0.320132E+01
+ PKER_SACCRG( 6, 35) = 0.322558E+01
+ PKER_SACCRG( 6, 36) = 0.323308E+01
+ PKER_SACCRG( 6, 37) = 0.324343E+01
+ PKER_SACCRG( 6, 38) = 0.324312E+01
+ PKER_SACCRG( 6, 39) = 0.325884E+01
+ PKER_SACCRG( 6, 40) = 0.326548E+01
+ PKER_SACCRG( 7, 1) = 0.108822E+00
+ PKER_SACCRG( 7, 2) = 0.153369E+00
+ PKER_SACCRG( 7, 3) = 0.212460E+00
+ PKER_SACCRG( 7, 4) = 0.287703E+00
+ PKER_SACCRG( 7, 5) = 0.380006E+00
+ PKER_SACCRG( 7, 6) = 0.486803E+00
+ PKER_SACCRG( 7, 7) = 0.607291E+00
+ PKER_SACCRG( 7, 8) = 0.736611E+00
+ PKER_SACCRG( 7, 9) = 0.869565E+00
+ PKER_SACCRG( 7, 10) = 0.100095E+01
+ PKER_SACCRG( 7, 11) = 0.112636E+01
+ PKER_SACCRG( 7, 12) = 0.124357E+01
+ PKER_SACCRG( 7, 13) = 0.135200E+01
+ PKER_SACCRG( 7, 14) = 0.145109E+01
+ PKER_SACCRG( 7, 15) = 0.154307E+01
+ PKER_SACCRG( 7, 16) = 0.162951E+01
+ PKER_SACCRG( 7, 17) = 0.170634E+01
+ PKER_SACCRG( 7, 18) = 0.178769E+01
+ PKER_SACCRG( 7, 19) = 0.186793E+01
+ PKER_SACCRG( 7, 20) = 0.194700E+01
+ PKER_SACCRG( 7, 21) = 0.202443E+01
+ PKER_SACCRG( 7, 22) = 0.207965E+01
+ PKER_SACCRG( 7, 23) = 0.215206E+01
+ PKER_SACCRG( 7, 24) = 0.222133E+01
+ PKER_SACCRG( 7, 25) = 0.226024E+01
+ PKER_SACCRG( 7, 26) = 0.232305E+01
+ PKER_SACCRG( 7, 27) = 0.235312E+01
+ PKER_SACCRG( 7, 28) = 0.240960E+01
+ PKER_SACCRG( 7, 29) = 0.243431E+01
+ PKER_SACCRG( 7, 30) = 0.245766E+01
+ PKER_SACCRG( 7, 31) = 0.248048E+01
+ PKER_SACCRG( 7, 32) = 0.250315E+01
+ PKER_SACCRG( 7, 33) = 0.252581E+01
+ PKER_SACCRG( 7, 34) = 0.252840E+01
+ PKER_SACCRG( 7, 35) = 0.255273E+01
+ PKER_SACCRG( 7, 36) = 0.256037E+01
+ PKER_SACCRG( 7, 37) = 0.257082E+01
+ PKER_SACCRG( 7, 38) = 0.257059E+01
+ PKER_SACCRG( 7, 39) = 0.258639E+01
+ PKER_SACCRG( 7, 40) = 0.259309E+01
+ PKER_SACCRG( 8, 1) = 0.528716E-01
+ PKER_SACCRG( 8, 2) = 0.738656E-01
+ PKER_SACCRG( 8, 3) = 0.104761E+00
+ PKER_SACCRG( 8, 4) = 0.145922E+00
+ PKER_SACCRG( 8, 5) = 0.200590E+00
+ PKER_SACCRG( 8, 6) = 0.266564E+00
+ PKER_SACCRG( 8, 7) = 0.347455E+00
+ PKER_SACCRG( 8, 8) = 0.439289E+00
+ PKER_SACCRG( 8, 9) = 0.538750E+00
+ PKER_SACCRG( 8, 10) = 0.641435E+00
+ PKER_SACCRG( 8, 11) = 0.742928E+00
+ PKER_SACCRG( 8, 12) = 0.840123E+00
+ PKER_SACCRG( 8, 13) = 0.933153E+00
+ PKER_SACCRG( 8, 14) = 0.101669E+01
+ PKER_SACCRG( 8, 15) = 0.109379E+01
+ PKER_SACCRG( 8, 16) = 0.116555E+01
+ PKER_SACCRG( 8, 17) = 0.122901E+01
+ PKER_SACCRG( 8, 18) = 0.129587E+01
+ PKER_SACCRG( 8, 19) = 0.136253E+01
+ PKER_SACCRG( 8, 20) = 0.142961E+01
+ PKER_SACCRG( 8, 21) = 0.149682E+01
+ PKER_SACCRG( 8, 22) = 0.154680E+01
+ PKER_SACCRG( 8, 23) = 0.161203E+01
+ PKER_SACCRG( 8, 24) = 0.167558E+01
+ PKER_SACCRG( 8, 25) = 0.171288E+01
+ PKER_SACCRG( 8, 26) = 0.177187E+01
+ PKER_SACCRG( 8, 27) = 0.180128E+01
+ PKER_SACCRG( 8, 28) = 0.185526E+01
+ PKER_SACCRG( 8, 29) = 0.187967E+01
+ PKER_SACCRG( 8, 30) = 0.190269E+01
+ PKER_SACCRG( 8, 31) = 0.192514E+01
+ PKER_SACCRG( 8, 32) = 0.194743E+01
+ PKER_SACCRG( 8, 33) = 0.196972E+01
+ PKER_SACCRG( 8, 34) = 0.197248E+01
+ PKER_SACCRG( 8, 35) = 0.199642E+01
+ PKER_SACCRG( 8, 36) = 0.200404E+01
+ PKER_SACCRG( 8, 37) = 0.201440E+01
+ PKER_SACCRG( 8, 38) = 0.201423E+01
+ PKER_SACCRG( 8, 39) = 0.202988E+01
+ PKER_SACCRG( 8, 40) = 0.203655E+01
+ PKER_SACCRG( 9, 1) = 0.278736E-01
+ PKER_SACCRG( 9, 2) = 0.380862E-01
+ PKER_SACCRG( 9, 3) = 0.527022E-01
+ PKER_SACCRG( 9, 4) = 0.728700E-01
+ PKER_SACCRG( 9, 5) = 0.103495E+00
+ PKER_SACCRG( 9, 6) = 0.140384E+00
+ PKER_SACCRG( 9, 7) = 0.190987E+00
+ PKER_SACCRG( 9, 8) = 0.252072E+00
+ PKER_SACCRG( 9, 9) = 0.321788E+00
+ PKER_SACCRG( 9, 10) = 0.397021E+00
+ PKER_SACCRG( 9, 11) = 0.474298E+00
+ PKER_SACCRG( 9, 12) = 0.550671E+00
+ PKER_SACCRG( 9, 13) = 0.628126E+00
+ PKER_SACCRG( 9, 14) = 0.696224E+00
+ PKER_SACCRG( 9, 15) = 0.760530E+00
+ PKER_SACCRG( 9, 16) = 0.818368E+00
+ PKER_SACCRG( 9, 17) = 0.869376E+00
+ PKER_SACCRG( 9, 18) = 0.921962E+00
+ PKER_SACCRG( 9, 19) = 0.974261E+00
+ PKER_SACCRG( 9, 20) = 0.102767E+01
+ PKER_SACCRG( 9, 21) = 0.108227E+01
+ PKER_SACCRG( 9, 22) = 0.112440E+01
+ PKER_SACCRG( 9, 23) = 0.117981E+01
+ PKER_SACCRG( 9, 24) = 0.123524E+01
+ PKER_SACCRG( 9, 25) = 0.126928E+01
+ PKER_SACCRG( 9, 26) = 0.132283E+01
+ PKER_SACCRG( 9, 27) = 0.135076E+01
+ PKER_SACCRG( 9, 28) = 0.140121E+01
+ PKER_SACCRG( 9, 29) = 0.142494E+01
+ PKER_SACCRG( 9, 30) = 0.144733E+01
+ PKER_SACCRG( 9, 31) = 0.146916E+01
+ PKER_SACCRG( 9, 32) = 0.149084E+01
+ PKER_SACCRG( 9, 33) = 0.151254E+01
+ PKER_SACCRG( 9, 34) = 0.151553E+01
+ PKER_SACCRG( 9, 35) = 0.153878E+01
+ PKER_SACCRG( 9, 36) = 0.154633E+01
+ PKER_SACCRG( 9, 37) = 0.155650E+01
+ PKER_SACCRG( 9, 38) = 0.155645E+01
+ PKER_SACCRG( 9, 39) = 0.157170E+01
+ PKER_SACCRG( 9, 40) = 0.157824E+01
+ PKER_SACCRG( 10, 1) = 0.166015E-01
+ PKER_SACCRG( 10, 2) = 0.207180E-01
+ PKER_SACCRG( 10, 3) = 0.294022E-01
+ PKER_SACCRG( 10, 4) = 0.391607E-01
+ PKER_SACCRG( 10, 5) = 0.559000E-01
+ PKER_SACCRG( 10, 6) = 0.744121E-01
+ PKER_SACCRG( 10, 7) = 0.105256E+00
+ PKER_SACCRG( 10, 8) = 0.144477E+00
+ PKER_SACCRG( 10, 9) = 0.191560E+00
+ PKER_SACCRG( 10, 10) = 0.244595E+00
+ PKER_SACCRG( 10, 11) = 0.300939E+00
+ PKER_SACCRG( 10, 12) = 0.358043E+00
+ PKER_SACCRG( 10, 13) = 0.421591E+00
+ PKER_SACCRG( 10, 14) = 0.475395E+00
+ PKER_SACCRG( 10, 15) = 0.526709E+00
+ PKER_SACCRG( 10, 16) = 0.571706E+00
+ PKER_SACCRG( 10, 17) = 0.610208E+00
+ PKER_SACCRG( 10, 18) = 0.648730E+00
+ PKER_SACCRG( 10, 19) = 0.686542E+00
+ PKER_SACCRG( 10, 20) = 0.725822E+00
+ PKER_SACCRG( 10, 21) = 0.767019E+00
+ PKER_SACCRG( 10, 22) = 0.800082E+00
+ PKER_SACCRG( 10, 23) = 0.844217E+00
+ PKER_SACCRG( 10, 24) = 0.889576E+00
+ PKER_SACCRG( 10, 25) = 0.918526E+00
+ PKER_SACCRG( 10, 26) = 0.964209E+00
+ PKER_SACCRG( 10, 27) = 0.988904E+00
+ PKER_SACCRG( 10, 28) = 0.103361E+01
+ PKER_SACCRG( 10, 29) = 0.105534E+01
+ PKER_SACCRG( 10, 30) = 0.107605E+01
+ PKER_SACCRG( 10, 31) = 0.109642E+01
+ PKER_SACCRG( 10, 32) = 0.111684E+01
+ PKER_SACCRG( 10, 33) = 0.113743E+01
+ PKER_SACCRG( 10, 34) = 0.114050E+01
+ PKER_SACCRG( 10, 35) = 0.116270E+01
+ PKER_SACCRG( 10, 36) = 0.117006E+01
+ PKER_SACCRG( 10, 37) = 0.117989E+01
+ PKER_SACCRG( 10, 38) = 0.117995E+01
+ PKER_SACCRG( 10, 39) = 0.119464E+01
+ PKER_SACCRG( 10, 40) = 0.120099E+01
+ PKER_SACCRG( 11, 1) = 0.111044E-01
+ PKER_SACCRG( 11, 2) = 0.140992E-01
+ PKER_SACCRG( 11, 3) = 0.200609E-01
+ PKER_SACCRG( 11, 4) = 0.232439E-01
+ PKER_SACCRG( 11, 5) = 0.354694E-01
+ PKER_SACCRG( 11, 6) = 0.436900E-01
+ PKER_SACCRG( 11, 7) = 0.632818E-01
+ PKER_SACCRG( 11, 8) = 0.896661E-01
+ PKER_SACCRG( 11, 9) = 0.121930E+00
+ PKER_SACCRG( 11, 10) = 0.159502E+00
+ PKER_SACCRG( 11, 11) = 0.200025E+00
+ PKER_SACCRG( 11, 12) = 0.241698E+00
+ PKER_SACCRG( 11, 13) = 0.295144E+00
+ PKER_SACCRG( 11, 14) = 0.336006E+00
+ PKER_SACCRG( 11, 15) = 0.377386E+00
+ PKER_SACCRG( 11, 16) = 0.411206E+00
+ PKER_SACCRG( 11, 17) = 0.438302E+00
+ PKER_SACCRG( 11, 18) = 0.463886E+00
+ PKER_SACCRG( 11, 19) = 0.487520E+00
+ PKER_SACCRG( 11, 20) = 0.512578E+00
+ PKER_SACCRG( 11, 21) = 0.539738E+00
+ PKER_SACCRG( 11, 22) = 0.562324E+00
+ PKER_SACCRG( 11, 23) = 0.593764E+00
+ PKER_SACCRG( 11, 24) = 0.627461E+00
+ PKER_SACCRG( 11, 25) = 0.649948E+00
+ PKER_SACCRG( 11, 26) = 0.686103E+00
+ PKER_SACCRG( 11, 27) = 0.706568E+00
+ PKER_SACCRG( 11, 28) = 0.743765E+00
+ PKER_SACCRG( 11, 29) = 0.762569E+00
+ PKER_SACCRG( 11, 30) = 0.780660E+00
+ PKER_SACCRG( 11, 31) = 0.798542E+00
+ PKER_SACCRG( 11, 32) = 0.816528E+00
+ PKER_SACCRG( 11, 33) = 0.834806E+00
+ PKER_SACCRG( 11, 34) = 0.837659E+00
+ PKER_SACCRG( 11, 35) = 0.857477E+00
+ PKER_SACCRG( 11, 36) = 0.864115E+00
+ PKER_SACCRG( 11, 37) = 0.873008E+00
+ PKER_SACCRG( 11, 38) = 0.873061E+00
+ PKER_SACCRG( 11, 39) = 0.886446E+00
+ PKER_SACCRG( 11, 40) = 0.892271E+00
+ PKER_SACCRG( 12, 1) = 0.112036E-01
+ PKER_SACCRG( 12, 2) = 0.114329E-01
+ PKER_SACCRG( 12, 3) = 0.178923E-01
+ PKER_SACCRG( 12, 4) = 0.188532E-01
+ PKER_SACCRG( 12, 5) = 0.299182E-01
+ PKER_SACCRG( 12, 6) = 0.308733E-01
+ PKER_SACCRG( 12, 7) = 0.473754E-01
+ PKER_SACCRG( 12, 8) = 0.689542E-01
+ PKER_SACCRG( 12, 9) = 0.934473E-01
+ PKER_SACCRG( 12, 10) = 0.121252E+00
+ PKER_SACCRG( 12, 11) = 0.151891E+00
+ PKER_SACCRG( 12, 12) = 0.183271E+00
+ PKER_SACCRG( 12, 13) = 0.231566E+00
+ PKER_SACCRG( 12, 14) = 0.262842E+00
+ PKER_SACCRG( 12, 15) = 0.297656E+00
+ PKER_SACCRG( 12, 16) = 0.323172E+00
+ PKER_SACCRG( 12, 17) = 0.340540E+00
+ PKER_SACCRG( 12, 18) = 0.354846E+00
+ PKER_SACCRG( 12, 19) = 0.365491E+00
+ PKER_SACCRG( 12, 20) = 0.377022E+00
+ PKER_SACCRG( 12, 21) = 0.390392E+00
+ PKER_SACCRG( 12, 22) = 0.401842E+00
+ PKER_SACCRG( 12, 23) = 0.420150E+00
+ PKER_SACCRG( 12, 24) = 0.441206E+00
+ PKER_SACCRG( 12, 25) = 0.455697E+00
+ PKER_SACCRG( 12, 26) = 0.480831E+00
+ PKER_SACCRG( 12, 27) = 0.495365E+00
+ PKER_SACCRG( 12, 28) = 0.523291E+00
+ PKER_SACCRG( 12, 29) = 0.537770E+00
+ PKER_SACCRG( 12, 30) = 0.552060E+00
+ PKER_SACCRG( 12, 31) = 0.566509E+00
+ PKER_SACCRG( 12, 32) = 0.581415E+00
+ PKER_SACCRG( 12, 33) = 0.596879E+00
+ PKER_SACCRG( 12, 34) = 0.599387E+00
+ PKER_SACCRG( 12, 35) = 0.616587E+00
+ PKER_SACCRG( 12, 36) = 0.622495E+00
+ PKER_SACCRG( 12, 37) = 0.630411E+00
+ PKER_SACCRG( 12, 38) = 0.630571E+00
+ PKER_SACCRG( 12, 39) = 0.642452E+00
+ PKER_SACCRG( 12, 40) = 0.647681E+00
+ PKER_SACCRG( 13, 1) = 0.131271E-01
+ PKER_SACCRG( 13, 2) = 0.104043E-01
+ PKER_SACCRG( 13, 3) = 0.247665E-01
+ PKER_SACCRG( 13, 4) = 0.205990E-01
+ PKER_SACCRG( 13, 5) = 0.395001E-01
+ PKER_SACCRG( 13, 6) = 0.312666E-01
+ PKER_SACCRG( 13, 7) = 0.477825E-01
+ PKER_SACCRG( 13, 8) = 0.683581E-01
+ PKER_SACCRG( 13, 9) = 0.919629E-01
+ PKER_SACCRG( 13, 10) = 0.115448E+00
+ PKER_SACCRG( 13, 11) = 0.140886E+00
+ PKER_SACCRG( 13, 12) = 0.165972E+00
+ PKER_SACCRG( 13, 13) = 0.214164E+00
+ PKER_SACCRG( 13, 14) = 0.239404E+00
+ PKER_SACCRG( 13, 15) = 0.271635E+00
+ PKER_SACCRG( 13, 16) = 0.292801E+00
+ PKER_SACCRG( 13, 17) = 0.302897E+00
+ PKER_SACCRG( 13, 18) = 0.308546E+00
+ PKER_SACCRG( 13, 19) = 0.308094E+00
+ PKER_SACCRG( 13, 20) = 0.307713E+00
+ PKER_SACCRG( 13, 21) = 0.308408E+00
+ PKER_SACCRG( 13, 22) = 0.309140E+00
+ PKER_SACCRG( 13, 23) = 0.314537E+00
+ PKER_SACCRG( 13, 24) = 0.322967E+00
+ PKER_SACCRG( 13, 25) = 0.328752E+00
+ PKER_SACCRG( 13, 26) = 0.342013E+00
+ PKER_SACCRG( 13, 27) = 0.349707E+00
+ PKER_SACCRG( 13, 28) = 0.366946E+00
+ PKER_SACCRG( 13, 29) = 0.376098E+00
+ PKER_SACCRG( 13, 30) = 0.385551E+00
+ PKER_SACCRG( 13, 31) = 0.395538E+00
+ PKER_SACCRG( 13, 32) = 0.406180E+00
+ PKER_SACCRG( 13, 33) = 0.417508E+00
+ PKER_SACCRG( 13, 34) = 0.419391E+00
+ PKER_SACCRG( 13, 35) = 0.432329E+00
+ PKER_SACCRG( 13, 36) = 0.436853E+00
+ PKER_SACCRG( 13, 37) = 0.442935E+00
+ PKER_SACCRG( 13, 38) = 0.443078E+00
+ PKER_SACCRG( 13, 39) = 0.452270E+00
+ PKER_SACCRG( 13, 40) = 0.456355E+00
+ PKER_SACCRG( 14, 1) = 0.220972E-01
+ PKER_SACCRG( 14, 2) = 0.225095E-01
+ PKER_SACCRG( 14, 3) = 0.530807E-01
+ PKER_SACCRG( 14, 4) = 0.350162E-01
+ PKER_SACCRG( 14, 5) = 0.652405E-01
+ PKER_SACCRG( 14, 6) = 0.408581E-01
+ PKER_SACCRG( 14, 7) = 0.676352E-01
+ PKER_SACCRG( 14, 8) = 0.883821E-01
+ PKER_SACCRG( 14, 9) = 0.111280E+00
+ PKER_SACCRG( 14, 10) = 0.135342E+00
+ PKER_SACCRG( 14, 11) = 0.155830E+00
+ PKER_SACCRG( 14, 12) = 0.177813E+00
+ PKER_SACCRG( 14, 13) = 0.229268E+00
+ PKER_SACCRG( 14, 14) = 0.250281E+00
+ PKER_SACCRG( 14, 15) = 0.283477E+00
+ PKER_SACCRG( 14, 16) = 0.304267E+00
+ PKER_SACCRG( 14, 17) = 0.309800E+00
+ PKER_SACCRG( 14, 18) = 0.310052E+00
+ PKER_SACCRG( 14, 19) = 0.301145E+00
+ PKER_SACCRG( 14, 20) = 0.291190E+00
+ PKER_SACCRG( 14, 21) = 0.281443E+00
+ PKER_SACCRG( 14, 22) = 0.272681E+00
+ PKER_SACCRG( 14, 23) = 0.266753E+00
+ PKER_SACCRG( 14, 24) = 0.263570E+00
+ PKER_SACCRG( 14, 25) = 0.260816E+00
+ PKER_SACCRG( 14, 26) = 0.262490E+00
+ PKER_SACCRG( 14, 27) = 0.262938E+00
+ PKER_SACCRG( 14, 28) = 0.269023E+00
+ PKER_SACCRG( 14, 29) = 0.271997E+00
+ PKER_SACCRG( 14, 30) = 0.275827E+00
+ PKER_SACCRG( 14, 31) = 0.280494E+00
+ PKER_SACCRG( 14, 32) = 0.285992E+00
+ PKER_SACCRG( 14, 33) = 0.292310E+00
+ PKER_SACCRG( 14, 34) = 0.293159E+00
+ PKER_SACCRG( 14, 35) = 0.300976E+00
+ PKER_SACCRG( 14, 36) = 0.303711E+00
+ PKER_SACCRG( 14, 37) = 0.307540E+00
+ PKER_SACCRG( 14, 38) = 0.307562E+00
+ PKER_SACCRG( 14, 39) = 0.313606E+00
+ PKER_SACCRG( 14, 40) = 0.316326E+00
+ PKER_SACCRG( 15, 1) = 0.480528E-01
+ PKER_SACCRG( 15, 2) = 0.460914E-01
+ PKER_SACCRG( 15, 3) = 0.991170E-01
+ PKER_SACCRG( 15, 4) = 0.567181E-01
+ PKER_SACCRG( 15, 5) = 0.100010E+00
+ PKER_SACCRG( 15, 6) = 0.697060E-01
+ PKER_SACCRG( 15, 7) = 0.107823E+00
+ PKER_SACCRG( 15, 8) = 0.125346E+00
+ PKER_SACCRG( 15, 9) = 0.161990E+00
+ PKER_SACCRG( 15, 10) = 0.179953E+00
+ PKER_SACCRG( 15, 11) = 0.199216E+00
+ PKER_SACCRG( 15, 12) = 0.212246E+00
+ PKER_SACCRG( 15, 13) = 0.266104E+00
+ PKER_SACCRG( 15, 14) = 0.283092E+00
+ PKER_SACCRG( 15, 15) = 0.318102E+00
+ PKER_SACCRG( 15, 16) = 0.341638E+00
+ PKER_SACCRG( 15, 17) = 0.344908E+00
+ PKER_SACCRG( 15, 18) = 0.342998E+00
+ PKER_SACCRG( 15, 19) = 0.328675E+00
+ PKER_SACCRG( 15, 20) = 0.312172E+00
+ PKER_SACCRG( 15, 21) = 0.294796E+00
+ PKER_SACCRG( 15, 22) = 0.278738E+00
+ PKER_SACCRG( 15, 23) = 0.263956E+00
+ PKER_SACCRG( 15, 24) = 0.251370E+00
+ PKER_SACCRG( 15, 25) = 0.241265E+00
+ PKER_SACCRG( 15, 26) = 0.232919E+00
+ PKER_SACCRG( 15, 27) = 0.226634E+00
+ PKER_SACCRG( 15, 28) = 0.222478E+00
+ PKER_SACCRG( 15, 29) = 0.219366E+00
+ PKER_SACCRG( 15, 30) = 0.217473E+00
+ PKER_SACCRG( 15, 31) = 0.216686E+00
+ PKER_SACCRG( 15, 32) = 0.216856E+00
+ PKER_SACCRG( 15, 33) = 0.217936E+00
+ PKER_SACCRG( 15, 34) = 0.217490E+00
+ PKER_SACCRG( 15, 35) = 0.219960E+00
+ PKER_SACCRG( 15, 36) = 0.220717E+00
+ PKER_SACCRG( 15, 37) = 0.222091E+00
+ PKER_SACCRG( 15, 38) = 0.221940E+00
+ PKER_SACCRG( 15, 39) = 0.224482E+00
+ PKER_SACCRG( 15, 40) = 0.225640E+00
+ PKER_SACCRG( 16, 1) = 0.135520E+00
+ PKER_SACCRG( 16, 2) = 0.511950E-01
+ PKER_SACCRG( 16, 3) = 0.217525E+00
+ PKER_SACCRG( 16, 4) = 0.105404E+00
+ PKER_SACCRG( 16, 5) = 0.166738E+00
+ PKER_SACCRG( 16, 6) = 0.106414E+00
+ PKER_SACCRG( 16, 7) = 0.155389E+00
+ PKER_SACCRG( 16, 8) = 0.202391E+00
+ PKER_SACCRG( 16, 9) = 0.244428E+00
+ PKER_SACCRG( 16, 10) = 0.245798E+00
+ PKER_SACCRG( 16, 11) = 0.254901E+00
+ PKER_SACCRG( 16, 12) = 0.267555E+00
+ PKER_SACCRG( 16, 13) = 0.327857E+00
+ PKER_SACCRG( 16, 14) = 0.332092E+00
+ PKER_SACCRG( 16, 15) = 0.367307E+00
+ PKER_SACCRG( 16, 16) = 0.392455E+00
+ PKER_SACCRG( 16, 17) = 0.394028E+00
+ PKER_SACCRG( 16, 18) = 0.392223E+00
+ PKER_SACCRG( 16, 19) = 0.375124E+00
+ PKER_SACCRG( 16, 20) = 0.354933E+00
+ PKER_SACCRG( 16, 21) = 0.332995E+00
+ PKER_SACCRG( 16, 22) = 0.312234E+00
+ PKER_SACCRG( 16, 23) = 0.291567E+00
+ PKER_SACCRG( 16, 24) = 0.272491E+00
+ PKER_SACCRG( 16, 25) = 0.256940E+00
+ PKER_SACCRG( 16, 26) = 0.241153E+00
+ PKER_SACCRG( 16, 27) = 0.229504E+00
+ PKER_SACCRG( 16, 28) = 0.217125E+00
+ PKER_SACCRG( 16, 29) = 0.208776E+00
+ PKER_SACCRG( 16, 30) = 0.201869E+00
+ PKER_SACCRG( 16, 31) = 0.196184E+00
+ PKER_SACCRG( 16, 32) = 0.191474E+00
+ PKER_SACCRG( 16, 33) = 0.187627E+00
+ PKER_SACCRG( 16, 34) = 0.185787E+00
+ PKER_SACCRG( 16, 35) = 0.183153E+00
+ PKER_SACCRG( 16, 36) = 0.181879E+00
+ PKER_SACCRG( 16, 37) = 0.180812E+00
+ PKER_SACCRG( 16, 38) = 0.180310E+00
+ PKER_SACCRG( 16, 39) = 0.179588E+00
+ PKER_SACCRG( 16, 40) = 0.179256E+00
+ PKER_SACCRG( 17, 1) = 0.149690E+00
+ PKER_SACCRG( 17, 2) = 0.141906E+00
+ PKER_SACCRG( 17, 3) = 0.239915E+00
+ PKER_SACCRG( 17, 4) = 0.227359E+00
+ PKER_SACCRG( 17, 5) = 0.305318E+00
+ PKER_SACCRG( 17, 6) = 0.174320E+00
+ PKER_SACCRG( 17, 7) = 0.234389E+00
+ PKER_SACCRG( 17, 8) = 0.286831E+00
+ PKER_SACCRG( 17, 9) = 0.330246E+00
+ PKER_SACCRG( 17, 10) = 0.364514E+00
+ PKER_SACCRG( 17, 11) = 0.342438E+00
+ PKER_SACCRG( 17, 12) = 0.336986E+00
+ PKER_SACCRG( 17, 13) = 0.395814E+00
+ PKER_SACCRG( 17, 14) = 0.394930E+00
+ PKER_SACCRG( 17, 15) = 0.422717E+00
+ PKER_SACCRG( 17, 16) = 0.449479E+00
+ PKER_SACCRG( 17, 17) = 0.446458E+00
+ PKER_SACCRG( 17, 18) = 0.445329E+00
+ PKER_SACCRG( 17, 19) = 0.426914E+00
+ PKER_SACCRG( 17, 20) = 0.405255E+00
+ PKER_SACCRG( 17, 21) = 0.381244E+00
+ PKER_SACCRG( 17, 22) = 0.358154E+00
+ PKER_SACCRG( 17, 23) = 0.334400E+00
+ PKER_SACCRG( 17, 24) = 0.311688E+00
+ PKER_SACCRG( 17, 25) = 0.293019E+00
+ PKER_SACCRG( 17, 26) = 0.272662E+00
+ PKER_SACCRG( 17, 27) = 0.257596E+00
+ PKER_SACCRG( 17, 28) = 0.239717E+00
+ PKER_SACCRG( 17, 29) = 0.227718E+00
+ PKER_SACCRG( 17, 30) = 0.217234E+00
+ PKER_SACCRG( 17, 31) = 0.207875E+00
+ PKER_SACCRG( 17, 32) = 0.199391E+00
+ PKER_SACCRG( 17, 33) = 0.191669E+00
+ PKER_SACCRG( 17, 34) = 0.188808E+00
+ PKER_SACCRG( 17, 35) = 0.181843E+00
+ PKER_SACCRG( 17, 36) = 0.178876E+00
+ PKER_SACCRG( 17, 37) = 0.175666E+00
+ PKER_SACCRG( 17, 38) = 0.174997E+00
+ PKER_SACCRG( 17, 39) = 0.171113E+00
+ PKER_SACCRG( 17, 40) = 0.169320E+00
+ PKER_SACCRG( 18, 1) = 0.631893E+00
+ PKER_SACCRG( 18, 2) = 0.153945E+00
+ PKER_SACCRG( 18, 3) = 0.650972E+00
+ PKER_SACCRG( 18, 4) = 0.246364E+00
+ PKER_SACCRG( 18, 5) = 0.329959E+00
+ PKER_SACCRG( 18, 6) = 0.313802E+00
+ PKER_SACCRG( 18, 7) = 0.376499E+00
+ PKER_SACCRG( 18, 8) = 0.424102E+00
+ PKER_SACCRG( 18, 9) = 0.458899E+00
+ PKER_SACCRG( 18, 10) = 0.483029E+00
+ PKER_SACCRG( 18, 11) = 0.423961E+00
+ PKER_SACCRG( 18, 12) = 0.444275E+00
+ PKER_SACCRG( 18, 13) = 0.488870E+00
+ PKER_SACCRG( 18, 14) = 0.465758E+00
+ PKER_SACCRG( 18, 15) = 0.479440E+00
+ PKER_SACCRG( 18, 16) = 0.503775E+00
+ PKER_SACCRG( 18, 17) = 0.497695E+00
+ PKER_SACCRG( 18, 18) = 0.495552E+00
+ PKER_SACCRG( 18, 19) = 0.476283E+00
+ PKER_SACCRG( 18, 20) = 0.454089E+00
+ PKER_SACCRG( 18, 21) = 0.429503E+00
+ PKER_SACCRG( 18, 22) = 0.405667E+00
+ PKER_SACCRG( 18, 23) = 0.380824E+00
+ PKER_SACCRG( 18, 24) = 0.356738E+00
+ PKER_SACCRG( 18, 25) = 0.336694E+00
+ PKER_SACCRG( 18, 26) = 0.314290E+00
+ PKER_SACCRG( 18, 27) = 0.297525E+00
+ PKER_SACCRG( 18, 28) = 0.276852E+00
+ PKER_SACCRG( 18, 29) = 0.262848E+00
+ PKER_SACCRG( 18, 30) = 0.250291E+00
+ PKER_SACCRG( 18, 31) = 0.238780E+00
+ PKER_SACCRG( 18, 32) = 0.228015E+00
+ PKER_SACCRG( 18, 33) = 0.217832E+00
+ PKER_SACCRG( 18, 34) = 0.214245E+00
+ PKER_SACCRG( 18, 35) = 0.204475E+00
+ PKER_SACCRG( 18, 36) = 0.200354E+00
+ PKER_SACCRG( 18, 37) = 0.195678E+00
+ PKER_SACCRG( 18, 38) = 0.194830E+00
+ PKER_SACCRG( 18, 39) = 0.188818E+00
+ PKER_SACCRG( 18, 40) = 0.186017E+00
+ PKER_SACCRG( 19, 1) = 0.672459E+00
+ PKER_SACCRG( 19, 2) = 0.163837E+00
+ PKER_SACCRG( 19, 3) = 0.691468E+00
+ PKER_SACCRG( 19, 4) = 0.261952E+00
+ PKER_SACCRG( 19, 5) = 0.685434E+00
+ PKER_SACCRG( 19, 6) = 0.334035E+00
+ PKER_SACCRG( 19, 7) = 0.400420E+00
+ PKER_SACCRG( 19, 8) = 0.669587E+00
+ PKER_SACCRG( 19, 9) = 0.667157E+00
+ PKER_SACCRG( 19, 10) = 0.514395E+00
+ PKER_SACCRG( 19, 11) = 0.531395E+00
+ PKER_SACCRG( 19, 12) = 0.540837E+00
+ PKER_SACCRG( 19, 13) = 0.569345E+00
+ PKER_SACCRG( 19, 14) = 0.526146E+00
+ PKER_SACCRG( 19, 15) = 0.546382E+00
+ PKER_SACCRG( 19, 16) = 0.559661E+00
+ PKER_SACCRG( 19, 17) = 0.544617E+00
+ PKER_SACCRG( 19, 18) = 0.539552E+00
+ PKER_SACCRG( 19, 19) = 0.519707E+00
+ PKER_SACCRG( 19, 20) = 0.496750E+00
+ PKER_SACCRG( 19, 21) = 0.472143E+00
+ PKER_SACCRG( 19, 22) = 0.448291E+00
+ PKER_SACCRG( 19, 23) = 0.423441E+00
+ PKER_SACCRG( 19, 24) = 0.399209E+00
+ PKER_SACCRG( 19, 25) = 0.378889E+00
+ PKER_SACCRG( 19, 26) = 0.356036E+00
+ PKER_SACCRG( 19, 27) = 0.338767E+00
+ PKER_SACCRG( 19, 28) = 0.317227E+00
+ PKER_SACCRG( 19, 29) = 0.302476E+00
+ PKER_SACCRG( 19, 30) = 0.289109E+00
+ PKER_SACCRG( 19, 31) = 0.276715E+00
+ PKER_SACCRG( 19, 32) = 0.264965E+00
+ PKER_SACCRG( 19, 33) = 0.253649E+00
+ PKER_SACCRG( 19, 34) = 0.249729E+00
+ PKER_SACCRG( 19, 35) = 0.238588E+00
+ PKER_SACCRG( 19, 36) = 0.233884E+00
+ PKER_SACCRG( 19, 37) = 0.228445E+00
+ PKER_SACCRG( 19, 38) = 0.227525E+00
+ PKER_SACCRG( 19, 39) = 0.220364E+00
+ PKER_SACCRG( 19, 40) = 0.217009E+00
+ PKER_SACCRG( 20, 1) = 0.706202E+00
+ PKER_SACCRG( 20, 2) = 0.674724E+00
+ PKER_SACCRG( 20, 3) = 0.725166E+00
+ PKER_SACCRG( 20, 4) = 0.693017E+00
+ PKER_SACCRG( 20, 5) = 0.719179E+00
+ PKER_SACCRG( 20, 6) = 0.350831E+00
+ PKER_SACCRG( 20, 7) = 0.699643E+00
+ PKER_SACCRG( 20, 8) = 0.703444E+00
+ PKER_SACCRG( 20, 9) = 0.701049E+00
+ PKER_SACCRG( 20, 10) = 0.694012E+00
+ PKER_SACCRG( 20, 11) = 0.683408E+00
+ PKER_SACCRG( 20, 12) = 0.569529E+00
+ PKER_SACCRG( 20, 13) = 0.599833E+00
+ PKER_SACCRG( 20, 14) = 0.594737E+00
+ PKER_SACCRG( 20, 15) = 0.575600E+00
+ PKER_SACCRG( 20, 16) = 0.606275E+00
+ PKER_SACCRG( 20, 17) = 0.583940E+00
+ PKER_SACCRG( 20, 18) = 0.579501E+00
+ PKER_SACCRG( 20, 19) = 0.555831E+00
+ PKER_SACCRG( 20, 20) = 0.532892E+00
+ PKER_SACCRG( 20, 21) = 0.508257E+00
+ PKER_SACCRG( 20, 22) = 0.484543E+00
+ PKER_SACCRG( 20, 23) = 0.459997E+00
+ PKER_SACCRG( 20, 24) = 0.436069E+00
+ PKER_SACCRG( 20, 25) = 0.415864E+00
+ PKER_SACCRG( 20, 26) = 0.393252E+00
+ PKER_SACCRG( 20, 27) = 0.375986E+00
+ PKER_SACCRG( 20, 28) = 0.354568E+00
+ PKER_SACCRG( 20, 29) = 0.339711E+00
+ PKER_SACCRG( 20, 30) = 0.326208E+00
+ PKER_SACCRG( 20, 31) = 0.313640E+00
+ PKER_SACCRG( 20, 32) = 0.301685E+00
+ PKER_SACCRG( 20, 33) = 0.290116E+00
+ PKER_SACCRG( 20, 34) = 0.286041E+00
+ PKER_SACCRG( 20, 35) = 0.274570E+00
+ PKER_SACCRG( 20, 36) = 0.269672E+00
+ PKER_SACCRG( 20, 37) = 0.264008E+00
+ PKER_SACCRG( 20, 38) = 0.263022E+00
+ PKER_SACCRG( 20, 39) = 0.255533E+00
+ PKER_SACCRG( 20, 40) = 0.251995E+00
+ PKER_SACCRG( 21, 1) = 0.733970E+00
+ PKER_SACCRG( 21, 2) = 0.702591E+00
+ PKER_SACCRG( 21, 3) = 0.752907E+00
+ PKER_SACCRG( 21, 4) = 0.720853E+00
+ PKER_SACCRG( 21, 5) = 0.746955E+00
+ PKER_SACCRG( 21, 6) = 0.715100E+00
+ PKER_SACCRG( 21, 7) = 0.727495E+00
+ PKER_SACCRG( 21, 8) = 0.731302E+00
+ PKER_SACCRG( 21, 9) = 0.728932E+00
+ PKER_SACCRG( 21, 10) = 0.721938E+00
+ PKER_SACCRG( 21, 11) = 0.711393E+00
+ PKER_SACCRG( 21, 12) = 0.593102E+00
+ PKER_SACCRG( 21, 13) = 0.695541E+00
+ PKER_SACCRG( 21, 14) = 0.620207E+00
+ PKER_SACCRG( 21, 15) = 0.628080E+00
+ PKER_SACCRG( 21, 16) = 0.652667E+00
+ PKER_SACCRG( 21, 17) = 0.620258E+00
+ PKER_SACCRG( 21, 18) = 0.612351E+00
+ PKER_SACCRG( 21, 19) = 0.586131E+00
+ PKER_SACCRG( 21, 20) = 0.562595E+00
+ PKER_SACCRG( 21, 21) = 0.537939E+00
+ PKER_SACCRG( 21, 22) = 0.514380E+00
+ PKER_SACCRG( 21, 23) = 0.490128E+00
+ PKER_SACCRG( 21, 24) = 0.466554E+00
+ PKER_SACCRG( 21, 25) = 0.446527E+00
+ PKER_SACCRG( 21, 26) = 0.424301E+00
+ PKER_SACCRG( 21, 27) = 0.407171E+00
+ PKER_SACCRG( 21, 28) = 0.386147E+00
+ PKER_SACCRG( 21, 29) = 0.371397E+00
+ PKER_SACCRG( 21, 30) = 0.357992E+00
+ PKER_SACCRG( 21, 31) = 0.345523E+00
+ PKER_SACCRG( 21, 32) = 0.333669E+00
+ PKER_SACCRG( 21, 33) = 0.322203E+00
+ PKER_SACCRG( 21, 34) = 0.318066E+00
+ PKER_SACCRG( 21, 35) = 0.306710E+00
+ PKER_SACCRG( 21, 36) = 0.301805E+00
+ PKER_SACCRG( 21, 37) = 0.296159E+00
+ PKER_SACCRG( 21, 38) = 0.295137E+00
+ PKER_SACCRG( 21, 39) = 0.287697E+00
+ PKER_SACCRG( 21, 40) = 0.284163E+00
+ PKER_SACCRG( 22, 1) = 0.756844E+00
+ PKER_SACCRG( 22, 2) = 0.725532E+00
+ PKER_SACCRG( 22, 3) = 0.775766E+00
+ PKER_SACCRG( 22, 4) = 0.743775E+00
+ PKER_SACCRG( 22, 5) = 0.769838E+00
+ PKER_SACCRG( 22, 6) = 0.738050E+00
+ PKER_SACCRG( 22, 7) = 0.750432E+00
+ PKER_SACCRG( 22, 8) = 0.754243E+00
+ PKER_SACCRG( 22, 9) = 0.751893E+00
+ PKER_SACCRG( 22, 10) = 0.744930E+00
+ PKER_SACCRG( 22, 11) = 0.734426E+00
+ PKER_SACCRG( 22, 12) = 0.721165E+00
+ PKER_SACCRG( 22, 13) = 0.718670E+00
+ PKER_SACCRG( 22, 14) = 0.641274E+00
+ PKER_SACCRG( 22, 15) = 0.649585E+00
+ PKER_SACCRG( 22, 16) = 0.676054E+00
+ PKER_SACCRG( 22, 17) = 0.643178E+00
+ PKER_SACCRG( 22, 18) = 0.635995E+00
+ PKER_SACCRG( 22, 19) = 0.609851E+00
+ PKER_SACCRG( 22, 20) = 0.586561E+00
+ PKER_SACCRG( 22, 21) = 0.562281E+00
+ PKER_SACCRG( 22, 22) = 0.538734E+00
+ PKER_SACCRG( 22, 23) = 0.514737E+00
+ PKER_SACCRG( 22, 24) = 0.491439E+00
+ PKER_SACCRG( 22, 25) = 0.471548E+00
+ PKER_SACCRG( 22, 26) = 0.449647E+00
+ PKER_SACCRG( 22, 27) = 0.432634E+00
+ PKER_SACCRG( 22, 28) = 0.411979E+00
+ PKER_SACCRG( 22, 29) = 0.397342E+00
+ PKER_SACCRG( 22, 30) = 0.384054E+00
+ PKER_SACCRG( 22, 31) = 0.371713E+00
+ PKER_SACCRG( 22, 32) = 0.360005E+00
+ PKER_SACCRG( 22, 33) = 0.348703E+00
+ PKER_SACCRG( 22, 34) = 0.344524E+00
+ PKER_SACCRG( 22, 35) = 0.333379E+00
+ PKER_SACCRG( 22, 36) = 0.328512E+00
+ PKER_SACCRG( 22, 37) = 0.322944E+00
+ PKER_SACCRG( 22, 38) = 0.321892E+00
+ PKER_SACCRG( 22, 39) = 0.314603E+00
+ PKER_SACCRG( 22, 40) = 0.311127E+00
+ PKER_SACCRG( 23, 1) = 0.775706E+00
+ PKER_SACCRG( 23, 2) = 0.744439E+00
+ PKER_SACCRG( 23, 3) = 0.794619E+00
+ PKER_SACCRG( 23, 4) = 0.762671E+00
+ PKER_SACCRG( 23, 5) = 0.788709E+00
+ PKER_SACCRG( 23, 6) = 0.756967E+00
+ PKER_SACCRG( 23, 7) = 0.769340E+00
+ PKER_SACCRG( 23, 8) = 0.773156E+00
+ PKER_SACCRG( 23, 9) = 0.770820E+00
+ PKER_SACCRG( 23, 10) = 0.763878E+00
+ PKER_SACCRG( 23, 11) = 0.753405E+00
+ PKER_SACCRG( 23, 12) = 0.740181E+00
+ PKER_SACCRG( 23, 13) = 0.737717E+00
+ PKER_SACCRG( 23, 14) = 0.658644E+00
+ PKER_SACCRG( 23, 15) = 0.667482E+00
+ PKER_SACCRG( 23, 16) = 0.695288E+00
+ PKER_SACCRG( 23, 17) = 0.662065E+00
+ PKER_SACCRG( 23, 18) = 0.655413E+00
+ PKER_SACCRG( 23, 19) = 0.631353E+00
+ PKER_SACCRG( 23, 20) = 0.606862E+00
+ PKER_SACCRG( 23, 21) = 0.582096E+00
+ PKER_SACCRG( 23, 22) = 0.558680E+00
+ PKER_SACCRG( 23, 23) = 0.534834E+00
+ PKER_SACCRG( 23, 24) = 0.511732E+00
+ PKER_SACCRG( 23, 25) = 0.491930E+00
+ PKER_SACCRG( 23, 26) = 0.470265E+00
+ PKER_SACCRG( 23, 27) = 0.453327E+00
+ PKER_SACCRG( 23, 28) = 0.432946E+00
+ PKER_SACCRG( 23, 29) = 0.418385E+00
+ PKER_SACCRG( 23, 30) = 0.405177E+00
+ PKER_SACCRG( 23, 31) = 0.392930E+00
+ PKER_SACCRG( 23, 32) = 0.381332E+00
+ PKER_SACCRG( 23, 33) = 0.370158E+00
+ PKER_SACCRG( 23, 34) = 0.365940E+00
+ PKER_SACCRG( 23, 35) = 0.354967E+00
+ PKER_SACCRG( 23, 36) = 0.350131E+00
+ PKER_SACCRG( 23, 37) = 0.344630E+00
+ PKER_SACCRG( 23, 38) = 0.343550E+00
+ PKER_SACCRG( 23, 39) = 0.336395E+00
+ PKER_SACCRG( 23, 40) = 0.332970E+00
+ PKER_SACCRG( 24, 1) = 0.791271E+00
+ PKER_SACCRG( 24, 2) = 0.760034E+00
+ PKER_SACCRG( 24, 3) = 0.810179E+00
+ PKER_SACCRG( 24, 4) = 0.778261E+00
+ PKER_SACCRG( 24, 5) = 0.804283E+00
+ PKER_SACCRG( 24, 6) = 0.772571E+00
+ PKER_SACCRG( 24, 7) = 0.784940E+00
+ PKER_SACCRG( 24, 8) = 0.788760E+00
+ PKER_SACCRG( 24, 9) = 0.786434E+00
+ PKER_SACCRG( 24, 10) = 0.779509E+00
+ PKER_SACCRG( 24, 11) = 0.769057E+00
+ PKER_SACCRG( 24, 12) = 0.755859E+00
+ PKER_SACCRG( 24, 13) = 0.753420E+00
+ PKER_SACCRG( 24, 14) = 0.672962E+00
+ PKER_SACCRG( 24, 15) = 0.682290E+00
+ PKER_SACCRG( 24, 16) = 0.711126E+00
+ PKER_SACCRG( 24, 17) = 0.677623E+00
+ PKER_SACCRG( 24, 18) = 0.671382E+00
+ PKER_SACCRG( 24, 19) = 0.647406E+00
+ PKER_SACCRG( 24, 20) = 0.623008E+00
+ PKER_SACCRG( 24, 21) = 0.598346E+00
+ PKER_SACCRG( 24, 22) = 0.574999E+00
+ PKER_SACCRG( 24, 23) = 0.551276E+00
+ PKER_SACCRG( 24, 24) = 0.528313E+00
+ PKER_SACCRG( 24, 25) = 0.508569E+00
+ PKER_SACCRG( 24, 26) = 0.487068E+00
+ PKER_SACCRG( 24, 27) = 0.470175E+00
+ PKER_SACCRG( 24, 28) = 0.449986E+00
+ PKER_SACCRG( 24, 29) = 0.435469E+00
+ PKER_SACCRG( 24, 30) = 0.422310E+00
+ PKER_SACCRG( 24, 31) = 0.410120E+00
+ PKER_SACCRG( 24, 32) = 0.398592E+00
+ PKER_SACCRG( 24, 33) = 0.387503E+00
+ PKER_SACCRG( 24, 34) = 0.383248E+00
+ PKER_SACCRG( 24, 35) = 0.372395E+00
+ PKER_SACCRG( 24, 36) = 0.367574E+00
+ PKER_SACCRG( 24, 37) = 0.362117E+00
+ PKER_SACCRG( 24, 38) = 0.361015E+00
+ PKER_SACCRG( 24, 39) = 0.353953E+00
+ PKER_SACCRG( 24, 40) = 0.350564E+00
+ PKER_SACCRG( 25, 1) = 0.804124E+00
+ PKER_SACCRG( 25, 2) = 0.772907E+00
+ PKER_SACCRG( 25, 3) = 0.823030E+00
+ PKER_SACCRG( 25, 4) = 0.791131E+00
+ PKER_SACCRG( 25, 5) = 0.817144E+00
+ PKER_SACCRG( 25, 6) = 0.785453E+00
+ PKER_SACCRG( 25, 7) = 0.797819E+00
+ PKER_SACCRG( 25, 8) = 0.801643E+00
+ PKER_SACCRG( 25, 9) = 0.799325E+00
+ PKER_SACCRG( 25, 10) = 0.792411E+00
+ PKER_SACCRG( 25, 11) = 0.781974E+00
+ PKER_SACCRG( 25, 12) = 0.768796E+00
+ PKER_SACCRG( 25, 13) = 0.766375E+00
+ PKER_SACCRG( 25, 14) = 0.747397E+00
+ PKER_SACCRG( 25, 15) = 0.694512E+00
+ PKER_SACCRG( 25, 16) = 0.724180E+00
+ PKER_SACCRG( 25, 17) = 0.690443E+00
+ PKER_SACCRG( 25, 18) = 0.684531E+00
+ PKER_SACCRG( 25, 19) = 0.660615E+00
+ PKER_SACCRG( 25, 20) = 0.636284E+00
+ PKER_SACCRG( 25, 21) = 0.611695E+00
+ PKER_SACCRG( 25, 22) = 0.588394E+00
+ PKER_SACCRG( 25, 23) = 0.564758E+00
+ PKER_SACCRG( 25, 24) = 0.541893E+00
+ PKER_SACCRG( 25, 25) = 0.522183E+00
+ PKER_SACCRG( 25, 26) = 0.500798E+00
+ PKER_SACCRG( 25, 27) = 0.483930E+00
+ PKER_SACCRG( 25, 28) = 0.463874E+00
+ PKER_SACCRG( 25, 29) = 0.449381E+00
+ PKER_SACCRG( 25, 30) = 0.436248E+00
+ PKER_SACCRG( 25, 31) = 0.424091E+00
+ PKER_SACCRG( 25, 32) = 0.412606E+00
+ PKER_SACCRG( 25, 33) = 0.401570E+00
+ PKER_SACCRG( 25, 34) = 0.397282E+00
+ PKER_SACCRG( 25, 35) = 0.386507E+00
+ PKER_SACCRG( 25, 36) = 0.381693E+00
+ PKER_SACCRG( 25, 37) = 0.376263E+00
+ PKER_SACCRG( 25, 38) = 0.375140E+00
+ PKER_SACCRG( 25, 39) = 0.368141E+00
+ PKER_SACCRG( 25, 40) = 0.364774E+00
+ PKER_SACCRG( 26, 1) = 0.814743E+00
+ PKER_SACCRG( 26, 2) = 0.783539E+00
+ PKER_SACCRG( 26, 3) = 0.833649E+00
+ PKER_SACCRG( 26, 4) = 0.801763E+00
+ PKER_SACCRG( 26, 5) = 0.827770E+00
+ PKER_SACCRG( 26, 6) = 0.796092E+00
+ PKER_SACCRG( 26, 7) = 0.808458E+00
+ PKER_SACCRG( 26, 8) = 0.812284E+00
+ PKER_SACCRG( 26, 9) = 0.809972E+00
+ PKER_SACCRG( 26, 10) = 0.803067E+00
+ PKER_SACCRG( 26, 11) = 0.792642E+00
+ PKER_SACCRG( 26, 12) = 0.779477E+00
+ PKER_SACCRG( 26, 13) = 0.777070E+00
+ PKER_SACCRG( 26, 14) = 0.758113E+00
+ PKER_SACCRG( 26, 15) = 0.746182E+00
+ PKER_SACCRG( 26, 16) = 0.734949E+00
+ PKER_SACCRG( 26, 17) = 0.714296E+00
+ PKER_SACCRG( 26, 18) = 0.695369E+00
+ PKER_SACCRG( 26, 19) = 0.671496E+00
+ PKER_SACCRG( 26, 20) = 0.647212E+00
+ PKER_SACCRG( 26, 21) = 0.622676E+00
+ PKER_SACCRG( 26, 22) = 0.599406E+00
+ PKER_SACCRG( 26, 23) = 0.575832E+00
+ PKER_SACCRG( 26, 24) = 0.553035E+00
+ PKER_SACCRG( 26, 25) = 0.533347E+00
+ PKER_SACCRG( 26, 26) = 0.512043E+00
+ PKER_SACCRG( 26, 27) = 0.495187E+00
+ PKER_SACCRG( 26, 28) = 0.475225E+00
+ PKER_SACCRG( 26, 29) = 0.460742E+00
+ PKER_SACCRG( 26, 30) = 0.447621E+00
+ PKER_SACCRG( 26, 31) = 0.435481E+00
+ PKER_SACCRG( 26, 32) = 0.424021E+00
+ PKER_SACCRG( 26, 33) = 0.413018E+00
+ PKER_SACCRG( 26, 34) = 0.408700E+00
+ PKER_SACCRG( 26, 35) = 0.397977E+00
+ PKER_SACCRG( 26, 36) = 0.393162E+00
+ PKER_SACCRG( 26, 37) = 0.387747E+00
+ PKER_SACCRG( 26, 38) = 0.386608E+00
+ PKER_SACCRG( 26, 39) = 0.379650E+00
+ PKER_SACCRG( 26, 40) = 0.376296E+00
+ PKER_SACCRG( 27, 1) = 0.823519E+00
+ PKER_SACCRG( 27, 2) = 0.792324E+00
+ PKER_SACCRG( 27, 3) = 0.842426E+00
+ PKER_SACCRG( 27, 4) = 0.810549E+00
+ PKER_SACCRG( 27, 5) = 0.836552E+00
+ PKER_SACCRG( 27, 6) = 0.804884E+00
+ PKER_SACCRG( 27, 7) = 0.817249E+00
+ PKER_SACCRG( 27, 8) = 0.821078E+00
+ PKER_SACCRG( 27, 9) = 0.818771E+00
+ PKER_SACCRG( 27, 10) = 0.811873E+00
+ PKER_SACCRG( 27, 11) = 0.801455E+00
+ PKER_SACCRG( 27, 12) = 0.788301E+00
+ PKER_SACCRG( 27, 13) = 0.785904E+00
+ PKER_SACCRG( 27, 14) = 0.766962E+00
+ PKER_SACCRG( 27, 15) = 0.755049E+00
+ PKER_SACCRG( 27, 16) = 0.743837E+00
+ PKER_SACCRG( 27, 17) = 0.723206E+00
+ PKER_SACCRG( 27, 18) = 0.704309E+00
+ PKER_SACCRG( 27, 19) = 0.680467E+00
+ PKER_SACCRG( 27, 20) = 0.656218E+00
+ PKER_SACCRG( 27, 21) = 0.631719E+00
+ PKER_SACCRG( 27, 22) = 0.608470E+00
+ PKER_SACCRG( 27, 23) = 0.584940E+00
+ PKER_SACCRG( 27, 24) = 0.562192E+00
+ PKER_SACCRG( 27, 25) = 0.542517E+00
+ PKER_SACCRG( 27, 26) = 0.521269E+00
+ PKER_SACCRG( 27, 27) = 0.504419E+00
+ PKER_SACCRG( 27, 28) = 0.484522E+00
+ PKER_SACCRG( 27, 29) = 0.470042E+00
+ PKER_SACCRG( 27, 30) = 0.456925E+00
+ PKER_SACCRG( 27, 31) = 0.444793E+00
+ PKER_SACCRG( 27, 32) = 0.433346E+00
+ PKER_SACCRG( 27, 33) = 0.422362E+00
+ PKER_SACCRG( 27, 34) = 0.418019E+00
+ PKER_SACCRG( 27, 35) = 0.407328E+00
+ PKER_SACCRG( 27, 36) = 0.402510E+00
+ PKER_SACCRG( 27, 37) = 0.397103E+00
+ PKER_SACCRG( 27, 38) = 0.395950E+00
+ PKER_SACCRG( 27, 39) = 0.389019E+00
+ PKER_SACCRG( 27, 40) = 0.385673E+00
+ PKER_SACCRG( 28, 1) = 0.830775E+00
+ PKER_SACCRG( 28, 2) = 0.799587E+00
+ PKER_SACCRG( 28, 3) = 0.849682E+00
+ PKER_SACCRG( 28, 4) = 0.817812E+00
+ PKER_SACCRG( 28, 5) = 0.843813E+00
+ PKER_SACCRG( 28, 6) = 0.812152E+00
+ PKER_SACCRG( 28, 7) = 0.824517E+00
+ PKER_SACCRG( 28, 8) = 0.828348E+00
+ PKER_SACCRG( 28, 9) = 0.826044E+00
+ PKER_SACCRG( 28, 10) = 0.819151E+00
+ PKER_SACCRG( 28, 11) = 0.808739E+00
+ PKER_SACCRG( 28, 12) = 0.795593E+00
+ PKER_SACCRG( 28, 13) = 0.793204E+00
+ PKER_SACCRG( 28, 14) = 0.774273E+00
+ PKER_SACCRG( 28, 15) = 0.762373E+00
+ PKER_SACCRG( 28, 16) = 0.751178E+00
+ PKER_SACCRG( 28, 17) = 0.730562E+00
+ PKER_SACCRG( 28, 18) = 0.711688E+00
+ PKER_SACCRG( 28, 19) = 0.687869E+00
+ PKER_SACCRG( 28, 20) = 0.663645E+00
+ PKER_SACCRG( 28, 21) = 0.639174E+00
+ PKER_SACCRG( 28, 22) = 0.615938E+00
+ PKER_SACCRG( 28, 23) = 0.592440E+00
+ PKER_SACCRG( 28, 24) = 0.569727E+00
+ PKER_SACCRG( 28, 25) = 0.550059E+00
+ PKER_SACCRG( 28, 26) = 0.528852E+00
+ PKER_SACCRG( 28, 27) = 0.512002E+00
+ PKER_SACCRG( 28, 28) = 0.492152E+00
+ PKER_SACCRG( 28, 29) = 0.477670E+00
+ PKER_SACCRG( 28, 30) = 0.464553E+00
+ PKER_SACCRG( 28, 31) = 0.452423E+00
+ PKER_SACCRG( 28, 32) = 0.440982E+00
+ PKER_SACCRG( 28, 33) = 0.430009E+00
+ PKER_SACCRG( 28, 34) = 0.425644E+00
+ PKER_SACCRG( 28, 35) = 0.414973E+00
+ PKER_SACCRG( 28, 36) = 0.410151E+00
+ PKER_SACCRG( 28, 37) = 0.404747E+00
+ PKER_SACCRG( 28, 38) = 0.403582E+00
+ PKER_SACCRG( 28, 39) = 0.396668E+00
+ PKER_SACCRG( 28, 40) = 0.393326E+00
+ PKER_SACCRG( 29, 1) = 0.836776E+00
+ PKER_SACCRG( 29, 2) = 0.805592E+00
+ PKER_SACCRG( 29, 3) = 0.855684E+00
+ PKER_SACCRG( 29, 4) = 0.823818E+00
+ PKER_SACCRG( 29, 5) = 0.849817E+00
+ PKER_SACCRG( 29, 6) = 0.818161E+00
+ PKER_SACCRG( 29, 7) = 0.830527E+00
+ PKER_SACCRG( 29, 8) = 0.834359E+00
+ PKER_SACCRG( 29, 9) = 0.832058E+00
+ PKER_SACCRG( 29, 10) = 0.825168E+00
+ PKER_SACCRG( 29, 11) = 0.814761E+00
+ PKER_SACCRG( 29, 12) = 0.801620E+00
+ PKER_SACCRG( 29, 13) = 0.799238E+00
+ PKER_SACCRG( 29, 14) = 0.780315E+00
+ PKER_SACCRG( 29, 15) = 0.768425E+00
+ PKER_SACCRG( 29, 16) = 0.757243E+00
+ PKER_SACCRG( 29, 17) = 0.736638E+00
+ PKER_SACCRG( 29, 18) = 0.717781E+00
+ PKER_SACCRG( 29, 19) = 0.693979E+00
+ PKER_SACCRG( 29, 20) = 0.669774E+00
+ PKER_SACCRG( 29, 21) = 0.645322E+00
+ PKER_SACCRG( 29, 22) = 0.622097E+00
+ PKER_SACCRG( 29, 23) = 0.598621E+00
+ PKER_SACCRG( 29, 24) = 0.575934E+00
+ PKER_SACCRG( 29, 25) = 0.556269E+00
+ PKER_SACCRG( 29, 26) = 0.535091E+00
+ PKER_SACCRG( 29, 27) = 0.518240E+00
+ PKER_SACCRG( 29, 28) = 0.498423E+00
+ PKER_SACCRG( 29, 29) = 0.483938E+00
+ PKER_SACCRG( 29, 30) = 0.470817E+00
+ PKER_SACCRG( 29, 31) = 0.458687E+00
+ PKER_SACCRG( 29, 32) = 0.447247E+00
+ PKER_SACCRG( 29, 33) = 0.436279E+00
+ PKER_SACCRG( 29, 34) = 0.431896E+00
+ PKER_SACCRG( 29, 35) = 0.421239E+00
+ PKER_SACCRG( 29, 36) = 0.416410E+00
+ PKER_SACCRG( 29, 37) = 0.411007E+00
+ PKER_SACCRG( 29, 38) = 0.409833E+00
+ PKER_SACCRG( 29, 39) = 0.402930E+00
+ PKER_SACCRG( 29, 40) = 0.399589E+00
+ PKER_SACCRG( 30, 1) = 0.841739E+00
+ PKER_SACCRG( 30, 2) = 0.810558E+00
+ PKER_SACCRG( 30, 3) = 0.860648E+00
+ PKER_SACCRG( 30, 4) = 0.828785E+00
+ PKER_SACCRG( 30, 5) = 0.854784E+00
+ PKER_SACCRG( 30, 6) = 0.823131E+00
+ PKER_SACCRG( 30, 7) = 0.835497E+00
+ PKER_SACCRG( 30, 8) = 0.839331E+00
+ PKER_SACCRG( 30, 9) = 0.837032E+00
+ PKER_SACCRG( 30, 10) = 0.830145E+00
+ PKER_SACCRG( 30, 11) = 0.819741E+00
+ PKER_SACCRG( 30, 12) = 0.806604E+00
+ PKER_SACCRG( 30, 13) = 0.804228E+00
+ PKER_SACCRG( 30, 14) = 0.785311E+00
+ PKER_SACCRG( 30, 15) = 0.773428E+00
+ PKER_SACCRG( 30, 16) = 0.762256E+00
+ PKER_SACCRG( 30, 17) = 0.741659E+00
+ PKER_SACCRG( 30, 18) = 0.722815E+00
+ PKER_SACCRG( 30, 19) = 0.699025E+00
+ PKER_SACCRG( 30, 20) = 0.674834E+00
+ PKER_SACCRG( 30, 21) = 0.650397E+00
+ PKER_SACCRG( 30, 22) = 0.627179E+00
+ PKER_SACCRG( 30, 23) = 0.603719E+00
+ PKER_SACCRG( 30, 24) = 0.581051E+00
+ PKER_SACCRG( 30, 25) = 0.561387E+00
+ PKER_SACCRG( 30, 26) = 0.540231E+00
+ PKER_SACCRG( 30, 27) = 0.523377E+00
+ PKER_SACCRG( 30, 28) = 0.503583E+00
+ PKER_SACCRG( 30, 29) = 0.489094E+00
+ PKER_SACCRG( 30, 30) = 0.475968E+00
+ PKER_SACCRG( 30, 31) = 0.463836E+00
+ PKER_SACCRG( 30, 32) = 0.452396E+00
+ PKER_SACCRG( 30, 33) = 0.441430E+00
+ PKER_SACCRG( 30, 34) = 0.437032E+00
+ PKER_SACCRG( 30, 35) = 0.426382E+00
+ PKER_SACCRG( 30, 36) = 0.421549E+00
+ PKER_SACCRG( 30, 37) = 0.416144E+00
+ PKER_SACCRG( 30, 38) = 0.414964E+00
+ PKER_SACCRG( 30, 39) = 0.408066E+00
+ PKER_SACCRG( 30, 40) = 0.404726E+00
+ PKER_SACCRG( 31, 1) = 0.845845E+00
+ PKER_SACCRG( 31, 2) = 0.814666E+00
+ PKER_SACCRG( 31, 3) = 0.864755E+00
+ PKER_SACCRG( 31, 4) = 0.832894E+00
+ PKER_SACCRG( 31, 5) = 0.858893E+00
+ PKER_SACCRG( 31, 6) = 0.827242E+00
+ PKER_SACCRG( 31, 7) = 0.839609E+00
+ PKER_SACCRG( 31, 8) = 0.843443E+00
+ PKER_SACCRG( 31, 9) = 0.841146E+00
+ PKER_SACCRG( 31, 10) = 0.834261E+00
+ PKER_SACCRG( 31, 11) = 0.823860E+00
+ PKER_SACCRG( 31, 12) = 0.810727E+00
+ PKER_SACCRG( 31, 13) = 0.808354E+00
+ PKER_SACCRG( 31, 14) = 0.789441E+00
+ PKER_SACCRG( 31, 15) = 0.777564E+00
+ PKER_SACCRG( 31, 16) = 0.766399E+00
+ PKER_SACCRG( 31, 17) = 0.745810E+00
+ PKER_SACCRG( 31, 18) = 0.726974E+00
+ PKER_SACCRG( 31, 19) = 0.703195E+00
+ PKER_SACCRG( 31, 20) = 0.679014E+00
+ PKER_SACCRG( 31, 21) = 0.654588E+00
+ PKER_SACCRG( 31, 22) = 0.631374E+00
+ PKER_SACCRG( 31, 23) = 0.607927E+00
+ PKER_SACCRG( 31, 24) = 0.585272E+00
+ PKER_SACCRG( 31, 25) = 0.565609E+00
+ PKER_SACCRG( 31, 26) = 0.544468E+00
+ PKER_SACCRG( 31, 27) = 0.527611E+00
+ PKER_SACCRG( 31, 28) = 0.507834E+00
+ PKER_SACCRG( 31, 29) = 0.493340E+00
+ PKER_SACCRG( 31, 30) = 0.480210E+00
+ PKER_SACCRG( 31, 31) = 0.468075E+00
+ PKER_SACCRG( 31, 32) = 0.456634E+00
+ PKER_SACCRG( 31, 33) = 0.445668E+00
+ PKER_SACCRG( 31, 34) = 0.441257E+00
+ PKER_SACCRG( 31, 35) = 0.430612E+00
+ PKER_SACCRG( 31, 36) = 0.425773E+00
+ PKER_SACCRG( 31, 37) = 0.420368E+00
+ PKER_SACCRG( 31, 38) = 0.419181E+00
+ PKER_SACCRG( 31, 39) = 0.412287E+00
+ PKER_SACCRG( 31, 40) = 0.408947E+00
+ PKER_SACCRG( 32, 1) = 0.849243E+00
+ PKER_SACCRG( 32, 2) = 0.818065E+00
+ PKER_SACCRG( 32, 3) = 0.868153E+00
+ PKER_SACCRG( 32, 4) = 0.836294E+00
+ PKER_SACCRG( 32, 5) = 0.862292E+00
+ PKER_SACCRG( 32, 6) = 0.830643E+00
+ PKER_SACCRG( 32, 7) = 0.843010E+00
+ PKER_SACCRG( 32, 8) = 0.846846E+00
+ PKER_SACCRG( 32, 9) = 0.844549E+00
+ PKER_SACCRG( 32, 10) = 0.837666E+00
+ PKER_SACCRG( 32, 11) = 0.827268E+00
+ PKER_SACCRG( 32, 12) = 0.814136E+00
+ PKER_SACCRG( 32, 13) = 0.811766E+00
+ PKER_SACCRG( 32, 14) = 0.792857E+00
+ PKER_SACCRG( 32, 15) = 0.780985E+00
+ PKER_SACCRG( 32, 16) = 0.769826E+00
+ PKER_SACCRG( 32, 17) = 0.749241E+00
+ PKER_SACCRG( 32, 18) = 0.730413E+00
+ PKER_SACCRG( 32, 19) = 0.706641E+00
+ PKER_SACCRG( 32, 20) = 0.682467E+00
+ PKER_SACCRG( 32, 21) = 0.658050E+00
+ PKER_SACCRG( 32, 22) = 0.634839E+00
+ PKER_SACCRG( 32, 23) = 0.611401E+00
+ PKER_SACCRG( 32, 24) = 0.588756E+00
+ PKER_SACCRG( 32, 25) = 0.569093E+00
+ PKER_SACCRG( 32, 26) = 0.547963E+00
+ PKER_SACCRG( 32, 27) = 0.531103E+00
+ PKER_SACCRG( 32, 28) = 0.511339E+00
+ PKER_SACCRG( 32, 29) = 0.496840E+00
+ PKER_SACCRG( 32, 30) = 0.483707E+00
+ PKER_SACCRG( 32, 31) = 0.471568E+00
+ PKER_SACCRG( 32, 32) = 0.460125E+00
+ PKER_SACCRG( 32, 33) = 0.449158E+00
+ PKER_SACCRG( 32, 34) = 0.444737E+00
+ PKER_SACCRG( 32, 35) = 0.434095E+00
+ PKER_SACCRG( 32, 36) = 0.429252E+00
+ PKER_SACCRG( 32, 37) = 0.423844E+00
+ PKER_SACCRG( 32, 38) = 0.422653E+00
+ PKER_SACCRG( 32, 39) = 0.415761E+00
+ PKER_SACCRG( 32, 40) = 0.412421E+00
+ PKER_SACCRG( 33, 1) = 0.852054E+00
+ PKER_SACCRG( 33, 2) = 0.820877E+00
+ PKER_SACCRG( 33, 3) = 0.870965E+00
+ PKER_SACCRG( 33, 4) = 0.839107E+00
+ PKER_SACCRG( 33, 5) = 0.865105E+00
+ PKER_SACCRG( 33, 6) = 0.833457E+00
+ PKER_SACCRG( 33, 7) = 0.845825E+00
+ PKER_SACCRG( 33, 8) = 0.849661E+00
+ PKER_SACCRG( 33, 9) = 0.847366E+00
+ PKER_SACCRG( 33, 10) = 0.840484E+00
+ PKER_SACCRG( 33, 11) = 0.830086E+00
+ PKER_SACCRG( 33, 12) = 0.816957E+00
+ PKER_SACCRG( 33, 13) = 0.814589E+00
+ PKER_SACCRG( 33, 14) = 0.795683E+00
+ PKER_SACCRG( 33, 15) = 0.783814E+00
+ PKER_SACCRG( 33, 16) = 0.772660E+00
+ PKER_SACCRG( 33, 17) = 0.752078E+00
+ PKER_SACCRG( 33, 18) = 0.733256E+00
+ PKER_SACCRG( 33, 19) = 0.709489E+00
+ PKER_SACCRG( 33, 20) = 0.685322E+00
+ PKER_SACCRG( 33, 21) = 0.660911E+00
+ PKER_SACCRG( 33, 22) = 0.637702E+00
+ PKER_SACCRG( 33, 23) = 0.614271E+00
+ PKER_SACCRG( 33, 24) = 0.591633E+00
+ PKER_SACCRG( 33, 25) = 0.571969E+00
+ PKER_SACCRG( 33, 26) = 0.550848E+00
+ PKER_SACCRG( 33, 27) = 0.533985E+00
+ PKER_SACCRG( 33, 28) = 0.514230E+00
+ PKER_SACCRG( 33, 29) = 0.499728E+00
+ PKER_SACCRG( 33, 30) = 0.486590E+00
+ PKER_SACCRG( 33, 31) = 0.474448E+00
+ PKER_SACCRG( 33, 32) = 0.463003E+00
+ PKER_SACCRG( 33, 33) = 0.452035E+00
+ PKER_SACCRG( 33, 34) = 0.447606E+00
+ PKER_SACCRG( 33, 35) = 0.436965E+00
+ PKER_SACCRG( 33, 36) = 0.432118E+00
+ PKER_SACCRG( 33, 37) = 0.426709E+00
+ PKER_SACCRG( 33, 38) = 0.425514E+00
+ PKER_SACCRG( 33, 39) = 0.418623E+00
+ PKER_SACCRG( 33, 40) = 0.415282E+00
+ PKER_SACCRG( 34, 1) = 0.854380E+00
+ PKER_SACCRG( 34, 2) = 0.823204E+00
+ PKER_SACCRG( 34, 3) = 0.873292E+00
+ PKER_SACCRG( 34, 4) = 0.841435E+00
+ PKER_SACCRG( 34, 5) = 0.867433E+00
+ PKER_SACCRG( 34, 6) = 0.835786E+00
+ PKER_SACCRG( 34, 7) = 0.848154E+00
+ PKER_SACCRG( 34, 8) = 0.851991E+00
+ PKER_SACCRG( 34, 9) = 0.849696E+00
+ PKER_SACCRG( 34, 10) = 0.842815E+00
+ PKER_SACCRG( 34, 11) = 0.832419E+00
+ PKER_SACCRG( 34, 12) = 0.819291E+00
+ PKER_SACCRG( 34, 13) = 0.816925E+00
+ PKER_SACCRG( 34, 14) = 0.798021E+00
+ PKER_SACCRG( 34, 15) = 0.786154E+00
+ PKER_SACCRG( 34, 16) = 0.775003E+00
+ PKER_SACCRG( 34, 17) = 0.754425E+00
+ PKER_SACCRG( 34, 18) = 0.735607E+00
+ PKER_SACCRG( 34, 19) = 0.711844E+00
+ PKER_SACCRG( 34, 20) = 0.687682E+00
+ PKER_SACCRG( 34, 21) = 0.663275E+00
+ PKER_SACCRG( 34, 22) = 0.640068E+00
+ PKER_SACCRG( 34, 23) = 0.616642E+00
+ PKER_SACCRG( 34, 24) = 0.594010E+00
+ PKER_SACCRG( 34, 25) = 0.574345E+00
+ PKER_SACCRG( 34, 26) = 0.553231E+00
+ PKER_SACCRG( 34, 27) = 0.536365E+00
+ PKER_SACCRG( 34, 28) = 0.516617E+00
+ PKER_SACCRG( 34, 29) = 0.502111E+00
+ PKER_SACCRG( 34, 30) = 0.488970E+00
+ PKER_SACCRG( 34, 31) = 0.476825E+00
+ PKER_SACCRG( 34, 32) = 0.465378E+00
+ PKER_SACCRG( 34, 33) = 0.454409E+00
+ PKER_SACCRG( 34, 34) = 0.449974E+00
+ PKER_SACCRG( 34, 35) = 0.439333E+00
+ PKER_SACCRG( 34, 36) = 0.434483E+00
+ PKER_SACCRG( 34, 37) = 0.429072E+00
+ PKER_SACCRG( 34, 38) = 0.427873E+00
+ PKER_SACCRG( 34, 39) = 0.420984E+00
+ PKER_SACCRG( 34, 40) = 0.417642E+00
+ PKER_SACCRG( 35, 1) = 0.856306E+00
+ PKER_SACCRG( 35, 2) = 0.825130E+00
+ PKER_SACCRG( 35, 3) = 0.875218E+00
+ PKER_SACCRG( 35, 4) = 0.843361E+00
+ PKER_SACCRG( 35, 5) = 0.869359E+00
+ PKER_SACCRG( 35, 6) = 0.837713E+00
+ PKER_SACCRG( 35, 7) = 0.850081E+00
+ PKER_SACCRG( 35, 8) = 0.853918E+00
+ PKER_SACCRG( 35, 9) = 0.851624E+00
+ PKER_SACCRG( 35, 10) = 0.844744E+00
+ PKER_SACCRG( 35, 11) = 0.834349E+00
+ PKER_SACCRG( 35, 12) = 0.821222E+00
+ PKER_SACCRG( 35, 13) = 0.818858E+00
+ PKER_SACCRG( 35, 14) = 0.799955E+00
+ PKER_SACCRG( 35, 15) = 0.788090E+00
+ PKER_SACCRG( 35, 16) = 0.776942E+00
+ PKER_SACCRG( 35, 17) = 0.756366E+00
+ PKER_SACCRG( 35, 18) = 0.737552E+00
+ PKER_SACCRG( 35, 19) = 0.713792E+00
+ PKER_SACCRG( 35, 20) = 0.689633E+00
+ PKER_SACCRG( 35, 21) = 0.665230E+00
+ PKER_SACCRG( 35, 22) = 0.642024E+00
+ PKER_SACCRG( 35, 23) = 0.618601E+00
+ PKER_SACCRG( 35, 24) = 0.595974E+00
+ PKER_SACCRG( 35, 25) = 0.576309E+00
+ PKER_SACCRG( 35, 26) = 0.555199E+00
+ PKER_SACCRG( 35, 27) = 0.538331E+00
+ PKER_SACCRG( 35, 28) = 0.518588E+00
+ PKER_SACCRG( 35, 29) = 0.504079E+00
+ PKER_SACCRG( 35, 30) = 0.490935E+00
+ PKER_SACCRG( 35, 31) = 0.478788E+00
+ PKER_SACCRG( 35, 32) = 0.467339E+00
+ PKER_SACCRG( 35, 33) = 0.456368E+00
+ PKER_SACCRG( 35, 34) = 0.451928E+00
+ PKER_SACCRG( 35, 35) = 0.441287E+00
+ PKER_SACCRG( 35, 36) = 0.436435E+00
+ PKER_SACCRG( 35, 37) = 0.431022E+00
+ PKER_SACCRG( 35, 38) = 0.429821E+00
+ PKER_SACCRG( 35, 39) = 0.422932E+00
+ PKER_SACCRG( 35, 40) = 0.419589E+00
+ PKER_SACCRG( 36, 1) = 0.857899E+00
+ PKER_SACCRG( 36, 2) = 0.826724E+00
+ PKER_SACCRG( 36, 3) = 0.876812E+00
+ PKER_SACCRG( 36, 4) = 0.844955E+00
+ PKER_SACCRG( 36, 5) = 0.870954E+00
+ PKER_SACCRG( 36, 6) = 0.839308E+00
+ PKER_SACCRG( 36, 7) = 0.851676E+00
+ PKER_SACCRG( 36, 8) = 0.855514E+00
+ PKER_SACCRG( 36, 9) = 0.853220E+00
+ PKER_SACCRG( 36, 10) = 0.846340E+00
+ PKER_SACCRG( 36, 11) = 0.835946E+00
+ PKER_SACCRG( 36, 12) = 0.822820E+00
+ PKER_SACCRG( 36, 13) = 0.820457E+00
+ PKER_SACCRG( 36, 14) = 0.801555E+00
+ PKER_SACCRG( 36, 15) = 0.789692E+00
+ PKER_SACCRG( 36, 16) = 0.778546E+00
+ PKER_SACCRG( 36, 17) = 0.757972E+00
+ PKER_SACCRG( 36, 18) = 0.739160E+00
+ PKER_SACCRG( 36, 19) = 0.715403E+00
+ PKER_SACCRG( 36, 20) = 0.691246E+00
+ PKER_SACCRG( 36, 21) = 0.666846E+00
+ PKER_SACCRG( 36, 22) = 0.643641E+00
+ PKER_SACCRG( 36, 23) = 0.620221E+00
+ PKER_SACCRG( 36, 24) = 0.597598E+00
+ PKER_SACCRG( 36, 25) = 0.577931E+00
+ PKER_SACCRG( 36, 26) = 0.556825E+00
+ PKER_SACCRG( 36, 27) = 0.539955E+00
+ PKER_SACCRG( 36, 28) = 0.520216E+00
+ PKER_SACCRG( 36, 29) = 0.505705E+00
+ PKER_SACCRG( 36, 30) = 0.492559E+00
+ PKER_SACCRG( 36, 31) = 0.480409E+00
+ PKER_SACCRG( 36, 32) = 0.468959E+00
+ PKER_SACCRG( 36, 33) = 0.457987E+00
+ PKER_SACCRG( 36, 34) = 0.453542E+00
+ PKER_SACCRG( 36, 35) = 0.442901E+00
+ PKER_SACCRG( 36, 36) = 0.438047E+00
+ PKER_SACCRG( 36, 37) = 0.432633E+00
+ PKER_SACCRG( 36, 38) = 0.431430E+00
+ PKER_SACCRG( 36, 39) = 0.424541E+00
+ PKER_SACCRG( 36, 40) = 0.421197E+00
+ PKER_SACCRG( 37, 1) = 0.859218E+00
+ PKER_SACCRG( 37, 2) = 0.828043E+00
+ PKER_SACCRG( 37, 3) = 0.878131E+00
+ PKER_SACCRG( 37, 4) = 0.846275E+00
+ PKER_SACCRG( 37, 5) = 0.872273E+00
+ PKER_SACCRG( 37, 6) = 0.840628E+00
+ PKER_SACCRG( 37, 7) = 0.852996E+00
+ PKER_SACCRG( 37, 8) = 0.856834E+00
+ PKER_SACCRG( 37, 9) = 0.854541E+00
+ PKER_SACCRG( 37, 10) = 0.847662E+00
+ PKER_SACCRG( 37, 11) = 0.837268E+00
+ PKER_SACCRG( 37, 12) = 0.824142E+00
+ PKER_SACCRG( 37, 13) = 0.821780E+00
+ PKER_SACCRG( 37, 14) = 0.802879E+00
+ PKER_SACCRG( 37, 15) = 0.791018E+00
+ PKER_SACCRG( 37, 16) = 0.779873E+00
+ PKER_SACCRG( 37, 17) = 0.759300E+00
+ PKER_SACCRG( 37, 18) = 0.740491E+00
+ PKER_SACCRG( 37, 19) = 0.716735E+00
+ PKER_SACCRG( 37, 20) = 0.692581E+00
+ PKER_SACCRG( 37, 21) = 0.668183E+00
+ PKER_SACCRG( 37, 22) = 0.644978E+00
+ PKER_SACCRG( 37, 23) = 0.621561E+00
+ PKER_SACCRG( 37, 24) = 0.598940E+00
+ PKER_SACCRG( 37, 25) = 0.579273E+00
+ PKER_SACCRG( 37, 26) = 0.558169E+00
+ PKER_SACCRG( 37, 27) = 0.541298E+00
+ PKER_SACCRG( 37, 28) = 0.521561E+00
+ PKER_SACCRG( 37, 29) = 0.507048E+00
+ PKER_SACCRG( 37, 30) = 0.493900E+00
+ PKER_SACCRG( 37, 31) = 0.481749E+00
+ PKER_SACCRG( 37, 32) = 0.470297E+00
+ PKER_SACCRG( 37, 33) = 0.459324E+00
+ PKER_SACCRG( 37, 34) = 0.454876E+00
+ PKER_SACCRG( 37, 35) = 0.444235E+00
+ PKER_SACCRG( 37, 36) = 0.439379E+00
+ PKER_SACCRG( 37, 37) = 0.433964E+00
+ PKER_SACCRG( 37, 38) = 0.432759E+00
+ PKER_SACCRG( 37, 39) = 0.425870E+00
+ PKER_SACCRG( 37, 40) = 0.422526E+00
+ PKER_SACCRG( 38, 1) = 0.860756E+00
+ PKER_SACCRG( 38, 2) = 0.829566E+00
+ PKER_SACCRG( 38, 3) = 0.879679E+00
+ PKER_SACCRG( 38, 4) = 0.847807E+00
+ PKER_SACCRG( 38, 5) = 0.873819E+00
+ PKER_SACCRG( 38, 6) = 0.842157E+00
+ PKER_SACCRG( 38, 7) = 0.854532E+00
+ PKER_SACCRG( 38, 8) = 0.858372E+00
+ PKER_SACCRG( 38, 9) = 0.856078E+00
+ PKER_SACCRG( 38, 10) = 0.849196E+00
+ PKER_SACCRG( 38, 11) = 0.838797E+00
+ PKER_SACCRG( 38, 12) = 0.825665E+00
+ PKER_SACCRG( 38, 13) = 0.823303E+00
+ PKER_SACCRG( 38, 14) = 0.804393E+00
+ PKER_SACCRG( 38, 15) = 0.792526E+00
+ PKER_SACCRG( 38, 16) = 0.781377E+00
+ PKER_SACCRG( 38, 17) = 0.760794E+00
+ PKER_SACCRG( 38, 18) = 0.741977E+00
+ PKER_SACCRG( 38, 19) = 0.718211E+00
+ PKER_SACCRG( 38, 20) = 0.694045E+00
+ PKER_SACCRG( 38, 21) = 0.669636E+00
+ PKER_SACCRG( 38, 22) = 0.646420E+00
+ PKER_SACCRG( 38, 23) = 0.622992E+00
+ PKER_SACCRG( 38, 24) = 0.600361E+00
+ PKER_SACCRG( 38, 25) = 0.580683E+00
+ PKER_SACCRG( 38, 26) = 0.559571E+00
+ PKER_SACCRG( 38, 27) = 0.542690E+00
+ PKER_SACCRG( 38, 28) = 0.522945E+00
+ PKER_SACCRG( 38, 29) = 0.508423E+00
+ PKER_SACCRG( 38, 30) = 0.495266E+00
+ PKER_SACCRG( 38, 31) = 0.483108E+00
+ PKER_SACCRG( 38, 32) = 0.471648E+00
+ PKER_SACCRG( 38, 33) = 0.460669E+00
+ PKER_SACCRG( 38, 34) = 0.456216E+00
+ PKER_SACCRG( 38, 35) = 0.445569E+00
+ PKER_SACCRG( 38, 36) = 0.440709E+00
+ PKER_SACCRG( 38, 37) = 0.435290E+00
+ PKER_SACCRG( 38, 38) = 0.434084E+00
+ PKER_SACCRG( 38, 39) = 0.427190E+00
+ PKER_SACCRG( 38, 40) = 0.423844E+00
+ PKER_SACCRG( 39, 1) = 0.861213E+00
+ PKER_SACCRG( 39, 2) = 0.830039E+00
+ PKER_SACCRG( 39, 3) = 0.880127E+00
+ PKER_SACCRG( 39, 4) = 0.848271E+00
+ PKER_SACCRG( 39, 5) = 0.874269E+00
+ PKER_SACCRG( 39, 6) = 0.842624E+00
+ PKER_SACCRG( 39, 7) = 0.854993E+00
+ PKER_SACCRG( 39, 8) = 0.858831E+00
+ PKER_SACCRG( 39, 9) = 0.856539E+00
+ PKER_SACCRG( 39, 10) = 0.849660E+00
+ PKER_SACCRG( 39, 11) = 0.839267E+00
+ PKER_SACCRG( 39, 12) = 0.826142E+00
+ PKER_SACCRG( 39, 13) = 0.823781E+00
+ PKER_SACCRG( 39, 14) = 0.804882E+00
+ PKER_SACCRG( 39, 15) = 0.793022E+00
+ PKER_SACCRG( 39, 16) = 0.781880E+00
+ PKER_SACCRG( 39, 17) = 0.761309E+00
+ PKER_SACCRG( 39, 18) = 0.742502E+00
+ PKER_SACCRG( 39, 19) = 0.718749E+00
+ PKER_SACCRG( 39, 20) = 0.694597E+00
+ PKER_SACCRG( 39, 21) = 0.670202E+00
+ PKER_SACCRG( 39, 22) = 0.646998E+00
+ PKER_SACCRG( 39, 23) = 0.623585E+00
+ PKER_SACCRG( 39, 24) = 0.600967E+00
+ PKER_SACCRG( 39, 25) = 0.581299E+00
+ PKER_SACCRG( 39, 26) = 0.560199E+00
+ PKER_SACCRG( 39, 27) = 0.543325E+00
+ PKER_SACCRG( 39, 28) = 0.523593E+00
+ PKER_SACCRG( 39, 29) = 0.509076E+00
+ PKER_SACCRG( 39, 30) = 0.495926E+00
+ PKER_SACCRG( 39, 31) = 0.483772E+00
+ PKER_SACCRG( 39, 32) = 0.472318E+00
+ PKER_SACCRG( 39, 33) = 0.461343E+00
+ PKER_SACCRG( 39, 34) = 0.456891E+00
+ PKER_SACCRG( 39, 35) = 0.446249E+00
+ PKER_SACCRG( 39, 36) = 0.441390E+00
+ PKER_SACCRG( 39, 37) = 0.435974E+00
+ PKER_SACCRG( 39, 38) = 0.434767E+00
+ PKER_SACCRG( 39, 39) = 0.427877E+00
+ PKER_SACCRG( 39, 40) = 0.424532E+00
+ PKER_SACCRG( 40, 1) = 0.861961E+00
+ PKER_SACCRG( 40, 2) = 0.830787E+00
+ PKER_SACCRG( 40, 3) = 0.880875E+00
+ PKER_SACCRG( 40, 4) = 0.849019E+00
+ PKER_SACCRG( 40, 5) = 0.875018E+00
+ PKER_SACCRG( 40, 6) = 0.843373E+00
+ PKER_SACCRG( 40, 7) = 0.855742E+00
+ PKER_SACCRG( 40, 8) = 0.859580E+00
+ PKER_SACCRG( 40, 9) = 0.857287E+00
+ PKER_SACCRG( 40, 10) = 0.850409E+00
+ PKER_SACCRG( 40, 11) = 0.840016E+00
+ PKER_SACCRG( 40, 12) = 0.826892E+00
+ PKER_SACCRG( 40, 13) = 0.824532E+00
+ PKER_SACCRG( 40, 14) = 0.805632E+00
+ PKER_SACCRG( 40, 15) = 0.793773E+00
+ PKER_SACCRG( 40, 16) = 0.782632E+00
+ PKER_SACCRG( 40, 17) = 0.762061E+00
+ PKER_SACCRG( 40, 18) = 0.743256E+00
+ PKER_SACCRG( 40, 19) = 0.719504E+00
+ PKER_SACCRG( 40, 20) = 0.695353E+00
+ PKER_SACCRG( 40, 21) = 0.670959E+00
+ PKER_SACCRG( 40, 22) = 0.647755E+00
+ PKER_SACCRG( 40, 23) = 0.624342E+00
+ PKER_SACCRG( 40, 24) = 0.601725E+00
+ PKER_SACCRG( 40, 25) = 0.582057E+00
+ PKER_SACCRG( 40, 26) = 0.560958E+00
+ PKER_SACCRG( 40, 27) = 0.544084E+00
+ PKER_SACCRG( 40, 28) = 0.524353E+00
+ PKER_SACCRG( 40, 29) = 0.509835E+00
+ PKER_SACCRG( 40, 30) = 0.496684E+00
+ PKER_SACCRG( 40, 31) = 0.484529E+00
+ PKER_SACCRG( 40, 32) = 0.473074E+00
+ PKER_SACCRG( 40, 33) = 0.462099E+00
+ PKER_SACCRG( 40, 34) = 0.457644E+00
+ PKER_SACCRG( 40, 35) = 0.447003E+00
+ PKER_SACCRG( 40, 36) = 0.442143E+00
+ PKER_SACCRG( 40, 37) = 0.436726E+00
+ PKER_SACCRG( 40, 38) = 0.435518E+00
+ PKER_SACCRG( 40, 39) = 0.428628E+00
+ PKER_SACCRG( 40, 40) = 0.425283E+00
END IF
-
!
END SUBROUTINE LIMA_READ_XKER_RACCS
diff --git a/src/MNH/lima_read_xker_sdryg.f90 b/src/MNH/lima_read_xker_sdryg.f90
index b47dc11a0fadb04e7b6abbfa43fffdc01f55893c..f3c2377e598d75bfa99128901bc11047e768d4ee 100644
--- a/src/MNH/lima_read_xker_sdryg.f90
+++ b/src/MNH/lima_read_xker_sdryg.f90
@@ -13,10 +13,10 @@
! ###########################
!
INTERFACE
- SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,PKER_SDRYG )
+ SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY,PKER_SDRYG )
!
INTEGER, INTENT(OUT) :: KND,KDRYLBDAG,KDRYLBDAS
REAL, INTENT(OUT) :: PALPHAG
@@ -29,6 +29,7 @@ REAL, INTENT(OUT) :: PCG
REAL, INTENT(OUT) :: PDG
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PDRYLBDAG_MAX
REAL, INTENT(OUT) :: PDRYLBDAS_MAX
REAL, INTENT(OUT) :: PDRYLBDAG_MIN
@@ -42,10 +43,10 @@ END INTERFACE
!
END MODULE MODI_LIMA_READ_XKER_SDRYG
! ########################################################################
- SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,PKER_SDRYG )
+ SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY,PKER_SDRYG )
! ########################################################################
!
!!**** * * - initialize the kernels for the snow-graupel dry growth process
@@ -101,6 +102,7 @@ REAL, INTENT(OUT) :: PCG
REAL, INTENT(OUT) :: PDG
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PDRYLBDAG_MAX
REAL, INTENT(OUT) :: PDRYLBDAS_MAX
REAL, INTENT(OUT) :: PDRYLBDAG_MIN
@@ -125,3213 +127,3214 @@ PCG= 0.122000E+03
PDG= 0.660000E+00
PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PDRYLBDAG_MAX= 0.100000E+08
-PDRYLBDAS_MAX= 0.250000E+10
+PDRYLBDAS_MAX= 0.100000E+06
PDRYLBDAG_MIN= 0.100000E+04
-PDRYLBDAS_MIN= 0.250000E+02
+PDRYLBDAS_MIN= 0.500000E+03
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_SDRYG) ) THEN
-PKER_SDRYG( 1, 1) = 0.181263E+01
-PKER_SDRYG( 1, 2) = 0.163147E+01
-PKER_SDRYG( 1, 3) = 0.146558E+01
-PKER_SDRYG( 1, 4) = 0.131501E+01
-PKER_SDRYG( 1, 5) = 0.117971E+01
-PKER_SDRYG( 1, 6) = 0.105940E+01
-PKER_SDRYG( 1, 7) = 0.954664E+00
-PKER_SDRYG( 1, 8) = 0.865241E+00
-PKER_SDRYG( 1, 9) = 0.791190E+00
-PKER_SDRYG( 1, 10) = 0.733135E+00
-PKER_SDRYG( 1, 11) = 0.691332E+00
-PKER_SDRYG( 1, 12) = 0.666135E+00
-PKER_SDRYG( 1, 13) = 0.658669E+00
-PKER_SDRYG( 1, 14) = 0.669468E+00
-PKER_SDRYG( 1, 15) = 0.699407E+00
-PKER_SDRYG( 1, 16) = 0.749020E+00
-PKER_SDRYG( 1, 17) = 0.817882E+00
-PKER_SDRYG( 1, 18) = 0.905102E+00
-PKER_SDRYG( 1, 19) = 0.100805E+01
-PKER_SDRYG( 1, 20) = 0.112208E+01
-PKER_SDRYG( 1, 21) = 0.124139E+01
-PKER_SDRYG( 1, 22) = 0.136056E+01
-PKER_SDRYG( 1, 23) = 0.147535E+01
-PKER_SDRYG( 1, 24) = 0.158271E+01
-PKER_SDRYG( 1, 25) = 0.168072E+01
-PKER_SDRYG( 1, 26) = 0.176838E+01
-PKER_SDRYG( 1, 27) = 0.184560E+01
-PKER_SDRYG( 1, 28) = 0.191298E+01
-PKER_SDRYG( 1, 29) = 0.197156E+01
-PKER_SDRYG( 1, 30) = 0.202257E+01
-PKER_SDRYG( 1, 31) = 0.206716E+01
-PKER_SDRYG( 1, 32) = 0.210638E+01
-PKER_SDRYG( 1, 33) = 0.214108E+01
-PKER_SDRYG( 1, 34) = 0.217197E+01
-PKER_SDRYG( 1, 35) = 0.219964E+01
-PKER_SDRYG( 1, 36) = 0.222456E+01
-PKER_SDRYG( 1, 37) = 0.224714E+01
-PKER_SDRYG( 1, 38) = 0.226768E+01
-PKER_SDRYG( 1, 39) = 0.228645E+01
-PKER_SDRYG( 1, 40) = 0.230366E+01
-PKER_SDRYG( 1, 41) = 0.231950E+01
-PKER_SDRYG( 1, 42) = 0.233413E+01
-PKER_SDRYG( 1, 43) = 0.234766E+01
-PKER_SDRYG( 1, 44) = 0.236020E+01
-PKER_SDRYG( 1, 45) = 0.237186E+01
-PKER_SDRYG( 1, 46) = 0.238271E+01
-PKER_SDRYG( 1, 47) = 0.239281E+01
-PKER_SDRYG( 1, 48) = 0.240224E+01
-PKER_SDRYG( 1, 49) = 0.241105E+01
-PKER_SDRYG( 1, 50) = 0.241928E+01
-PKER_SDRYG( 1, 51) = 0.242698E+01
-PKER_SDRYG( 1, 52) = 0.243418E+01
-PKER_SDRYG( 1, 53) = 0.244092E+01
-PKER_SDRYG( 1, 54) = 0.244724E+01
-PKER_SDRYG( 1, 55) = 0.245316E+01
-PKER_SDRYG( 1, 56) = 0.245871E+01
-PKER_SDRYG( 1, 57) = 0.246392E+01
-PKER_SDRYG( 1, 58) = 0.246880E+01
-PKER_SDRYG( 1, 59) = 0.247338E+01
-PKER_SDRYG( 1, 60) = 0.247767E+01
-PKER_SDRYG( 1, 61) = 0.248171E+01
-PKER_SDRYG( 1, 62) = 0.248549E+01
-PKER_SDRYG( 1, 63) = 0.248904E+01
-PKER_SDRYG( 1, 64) = 0.249237E+01
-PKER_SDRYG( 1, 65) = 0.249550E+01
-PKER_SDRYG( 1, 66) = 0.249843E+01
-PKER_SDRYG( 1, 67) = 0.250119E+01
-PKER_SDRYG( 1, 68) = 0.250377E+01
-PKER_SDRYG( 1, 69) = 0.250620E+01
-PKER_SDRYG( 1, 70) = 0.250848E+01
-PKER_SDRYG( 1, 71) = 0.251062E+01
-PKER_SDRYG( 1, 72) = 0.251263E+01
-PKER_SDRYG( 1, 73) = 0.251452E+01
-PKER_SDRYG( 1, 74) = 0.251629E+01
-PKER_SDRYG( 1, 75) = 0.251796E+01
-PKER_SDRYG( 1, 76) = 0.251952E+01
-PKER_SDRYG( 1, 77) = 0.252099E+01
-PKER_SDRYG( 1, 78) = 0.252236E+01
-PKER_SDRYG( 1, 79) = 0.252366E+01
-PKER_SDRYG( 1, 80) = 0.252487E+01
-PKER_SDRYG( 2, 1) = 0.199024E+01
-PKER_SDRYG( 2, 2) = 0.180156E+01
-PKER_SDRYG( 2, 3) = 0.162637E+01
-PKER_SDRYG( 2, 4) = 0.146459E+01
-PKER_SDRYG( 2, 5) = 0.131591E+01
-PKER_SDRYG( 2, 6) = 0.118046E+01
-PKER_SDRYG( 2, 7) = 0.105818E+01
-PKER_SDRYG( 2, 8) = 0.949189E+00
-PKER_SDRYG( 2, 9) = 0.853560E+00
-PKER_SDRYG( 2, 10) = 0.771539E+00
-PKER_SDRYG( 2, 11) = 0.703653E+00
-PKER_SDRYG( 2, 12) = 0.650109E+00
-PKER_SDRYG( 2, 13) = 0.611685E+00
-PKER_SDRYG( 2, 14) = 0.589133E+00
-PKER_SDRYG( 2, 15) = 0.583308E+00
-PKER_SDRYG( 2, 16) = 0.595133E+00
-PKER_SDRYG( 2, 17) = 0.625162E+00
-PKER_SDRYG( 2, 18) = 0.673359E+00
-PKER_SDRYG( 2, 19) = 0.738907E+00
-PKER_SDRYG( 2, 20) = 0.819564E+00
-PKER_SDRYG( 2, 21) = 0.912202E+00
-PKER_SDRYG( 2, 22) = 0.101189E+01
-PKER_SDRYG( 2, 23) = 0.111334E+01
-PKER_SDRYG( 2, 24) = 0.121202E+01
-PKER_SDRYG( 2, 25) = 0.130478E+01
-PKER_SDRYG( 2, 26) = 0.138982E+01
-PKER_SDRYG( 2, 27) = 0.146651E+01
-PKER_SDRYG( 2, 28) = 0.153473E+01
-PKER_SDRYG( 2, 29) = 0.159487E+01
-PKER_SDRYG( 2, 30) = 0.164760E+01
-PKER_SDRYG( 2, 31) = 0.169376E+01
-PKER_SDRYG( 2, 32) = 0.173428E+01
-PKER_SDRYG( 2, 33) = 0.177003E+01
-PKER_SDRYG( 2, 34) = 0.180176E+01
-PKER_SDRYG( 2, 35) = 0.183010E+01
-PKER_SDRYG( 2, 36) = 0.185555E+01
-PKER_SDRYG( 2, 37) = 0.187853E+01
-PKER_SDRYG( 2, 38) = 0.189939E+01
-PKER_SDRYG( 2, 39) = 0.191841E+01
-PKER_SDRYG( 2, 40) = 0.193583E+01
-PKER_SDRYG( 2, 41) = 0.195183E+01
-PKER_SDRYG( 2, 42) = 0.196657E+01
-PKER_SDRYG( 2, 43) = 0.198020E+01
-PKER_SDRYG( 2, 44) = 0.199282E+01
-PKER_SDRYG( 2, 45) = 0.200454E+01
-PKER_SDRYG( 2, 46) = 0.201543E+01
-PKER_SDRYG( 2, 47) = 0.202557E+01
-PKER_SDRYG( 2, 48) = 0.203503E+01
-PKER_SDRYG( 2, 49) = 0.204386E+01
-PKER_SDRYG( 2, 50) = 0.205211E+01
-PKER_SDRYG( 2, 51) = 0.205982E+01
-PKER_SDRYG( 2, 52) = 0.206703E+01
-PKER_SDRYG( 2, 53) = 0.207379E+01
-PKER_SDRYG( 2, 54) = 0.208011E+01
-PKER_SDRYG( 2, 55) = 0.208604E+01
-PKER_SDRYG( 2, 56) = 0.209159E+01
-PKER_SDRYG( 2, 57) = 0.209680E+01
-PKER_SDRYG( 2, 58) = 0.210169E+01
-PKER_SDRYG( 2, 59) = 0.210627E+01
-PKER_SDRYG( 2, 60) = 0.211056E+01
-PKER_SDRYG( 2, 61) = 0.211460E+01
-PKER_SDRYG( 2, 62) = 0.211838E+01
-PKER_SDRYG( 2, 63) = 0.212193E+01
-PKER_SDRYG( 2, 64) = 0.212526E+01
-PKER_SDRYG( 2, 65) = 0.212839E+01
-PKER_SDRYG( 2, 66) = 0.213133E+01
-PKER_SDRYG( 2, 67) = 0.213408E+01
-PKER_SDRYG( 2, 68) = 0.213667E+01
-PKER_SDRYG( 2, 69) = 0.213910E+01
-PKER_SDRYG( 2, 70) = 0.214138E+01
-PKER_SDRYG( 2, 71) = 0.214352E+01
-PKER_SDRYG( 2, 72) = 0.214553E+01
-PKER_SDRYG( 2, 73) = 0.214742E+01
-PKER_SDRYG( 2, 74) = 0.214919E+01
-PKER_SDRYG( 2, 75) = 0.215085E+01
-PKER_SDRYG( 2, 76) = 0.215242E+01
-PKER_SDRYG( 2, 77) = 0.215388E+01
-PKER_SDRYG( 2, 78) = 0.215526E+01
-PKER_SDRYG( 2, 79) = 0.215655E+01
-PKER_SDRYG( 2, 80) = 0.215777E+01
-PKER_SDRYG( 3, 1) = 0.215301E+01
-PKER_SDRYG( 3, 2) = 0.196106E+01
-PKER_SDRYG( 3, 3) = 0.178154E+01
-PKER_SDRYG( 3, 4) = 0.161399E+01
-PKER_SDRYG( 3, 5) = 0.145810E+01
-PKER_SDRYG( 3, 6) = 0.131365E+01
-PKER_SDRYG( 3, 7) = 0.118061E+01
-PKER_SDRYG( 3, 8) = 0.105881E+01
-PKER_SDRYG( 3, 9) = 0.948427E+00
-PKER_SDRYG( 3, 10) = 0.849613E+00
-PKER_SDRYG( 3, 11) = 0.762396E+00
-PKER_SDRYG( 3, 12) = 0.687541E+00
-PKER_SDRYG( 3, 13) = 0.625331E+00
-PKER_SDRYG( 3, 14) = 0.576279E+00
-PKER_SDRYG( 3, 15) = 0.541413E+00
-PKER_SDRYG( 3, 16) = 0.521621E+00
-PKER_SDRYG( 3, 17) = 0.517675E+00
-PKER_SDRYG( 3, 18) = 0.530574E+00
-PKER_SDRYG( 3, 19) = 0.560443E+00
-PKER_SDRYG( 3, 20) = 0.606854E+00
-PKER_SDRYG( 3, 21) = 0.668028E+00
-PKER_SDRYG( 3, 22) = 0.741035E+00
-PKER_SDRYG( 3, 23) = 0.822187E+00
-PKER_SDRYG( 3, 24) = 0.907057E+00
-PKER_SDRYG( 3, 25) = 0.991322E+00
-PKER_SDRYG( 3, 26) = 0.107147E+01
-PKER_SDRYG( 3, 27) = 0.114544E+01
-PKER_SDRYG( 3, 28) = 0.121245E+01
-PKER_SDRYG( 3, 29) = 0.127245E+01
-PKER_SDRYG( 3, 30) = 0.132580E+01
-PKER_SDRYG( 3, 31) = 0.137302E+01
-PKER_SDRYG( 3, 32) = 0.141473E+01
-PKER_SDRYG( 3, 33) = 0.145157E+01
-PKER_SDRYG( 3, 34) = 0.148421E+01
-PKER_SDRYG( 3, 35) = 0.151328E+01
-PKER_SDRYG( 3, 36) = 0.153931E+01
-PKER_SDRYG( 3, 37) = 0.156275E+01
-PKER_SDRYG( 3, 38) = 0.158397E+01
-PKER_SDRYG( 3, 39) = 0.160327E+01
-PKER_SDRYG( 3, 40) = 0.162090E+01
-PKER_SDRYG( 3, 41) = 0.163707E+01
-PKER_SDRYG( 3, 42) = 0.165195E+01
-PKER_SDRYG( 3, 43) = 0.166569E+01
-PKER_SDRYG( 3, 44) = 0.167839E+01
-PKER_SDRYG( 3, 45) = 0.169017E+01
-PKER_SDRYG( 3, 46) = 0.170112E+01
-PKER_SDRYG( 3, 47) = 0.171130E+01
-PKER_SDRYG( 3, 48) = 0.172079E+01
-PKER_SDRYG( 3, 49) = 0.172965E+01
-PKER_SDRYG( 3, 50) = 0.173791E+01
-PKER_SDRYG( 3, 51) = 0.174564E+01
-PKER_SDRYG( 3, 52) = 0.175287E+01
-PKER_SDRYG( 3, 53) = 0.175963E+01
-PKER_SDRYG( 3, 54) = 0.176596E+01
-PKER_SDRYG( 3, 55) = 0.177190E+01
-PKER_SDRYG( 3, 56) = 0.177746E+01
-PKER_SDRYG( 3, 57) = 0.178267E+01
-PKER_SDRYG( 3, 58) = 0.178755E+01
-PKER_SDRYG( 3, 59) = 0.179214E+01
-PKER_SDRYG( 3, 60) = 0.179644E+01
-PKER_SDRYG( 3, 61) = 0.180047E+01
-PKER_SDRYG( 3, 62) = 0.180425E+01
-PKER_SDRYG( 3, 63) = 0.180781E+01
-PKER_SDRYG( 3, 64) = 0.181114E+01
-PKER_SDRYG( 3, 65) = 0.181427E+01
-PKER_SDRYG( 3, 66) = 0.181720E+01
-PKER_SDRYG( 3, 67) = 0.181996E+01
-PKER_SDRYG( 3, 68) = 0.182255E+01
-PKER_SDRYG( 3, 69) = 0.182498E+01
-PKER_SDRYG( 3, 70) = 0.182726E+01
-PKER_SDRYG( 3, 71) = 0.182940E+01
-PKER_SDRYG( 3, 72) = 0.183141E+01
-PKER_SDRYG( 3, 73) = 0.183330E+01
-PKER_SDRYG( 3, 74) = 0.183507E+01
-PKER_SDRYG( 3, 75) = 0.183673E+01
-PKER_SDRYG( 3, 76) = 0.183829E+01
-PKER_SDRYG( 3, 77) = 0.183976E+01
-PKER_SDRYG( 3, 78) = 0.184114E+01
-PKER_SDRYG( 3, 79) = 0.184243E+01
-PKER_SDRYG( 3, 80) = 0.184365E+01
-PKER_SDRYG( 4, 1) = 0.229654E+01
-PKER_SDRYG( 4, 2) = 0.210356E+01
-PKER_SDRYG( 4, 3) = 0.192245E+01
-PKER_SDRYG( 4, 4) = 0.175260E+01
-PKER_SDRYG( 4, 5) = 0.159350E+01
-PKER_SDRYG( 4, 6) = 0.144476E+01
-PKER_SDRYG( 4, 7) = 0.130608E+01
-PKER_SDRYG( 4, 8) = 0.117720E+01
-PKER_SDRYG( 4, 9) = 0.105807E+01
-PKER_SDRYG( 4, 10) = 0.948604E+00
-PKER_SDRYG( 4, 11) = 0.849002E+00
-PKER_SDRYG( 4, 12) = 0.759416E+00
-PKER_SDRYG( 4, 13) = 0.680260E+00
-PKER_SDRYG( 4, 14) = 0.611882E+00
-PKER_SDRYG( 4, 15) = 0.554963E+00
-PKER_SDRYG( 4, 16) = 0.510479E+00
-PKER_SDRYG( 4, 17) = 0.479128E+00
-PKER_SDRYG( 4, 18) = 0.462033E+00
-PKER_SDRYG( 4, 19) = 0.460154E+00
-PKER_SDRYG( 4, 20) = 0.473966E+00
-PKER_SDRYG( 4, 21) = 0.503313E+00
-PKER_SDRYG( 4, 22) = 0.547021E+00
-PKER_SDRYG( 4, 23) = 0.602691E+00
-PKER_SDRYG( 4, 24) = 0.667130E+00
-PKER_SDRYG( 4, 25) = 0.736445E+00
-PKER_SDRYG( 4, 26) = 0.807101E+00
-PKER_SDRYG( 4, 27) = 0.875737E+00
-PKER_SDRYG( 4, 28) = 0.940003E+00
-PKER_SDRYG( 4, 29) = 0.998698E+00
-PKER_SDRYG( 4, 30) = 0.105152E+01
-PKER_SDRYG( 4, 31) = 0.109873E+01
-PKER_SDRYG( 4, 32) = 0.114082E+01
-PKER_SDRYG( 4, 33) = 0.117832E+01
-PKER_SDRYG( 4, 34) = 0.121173E+01
-PKER_SDRYG( 4, 35) = 0.124152E+01
-PKER_SDRYG( 4, 36) = 0.126818E+01
-PKER_SDRYG( 4, 37) = 0.129212E+01
-PKER_SDRYG( 4, 38) = 0.131373E+01
-PKER_SDRYG( 4, 39) = 0.133335E+01
-PKER_SDRYG( 4, 40) = 0.135123E+01
-PKER_SDRYG( 4, 41) = 0.136759E+01
-PKER_SDRYG( 4, 42) = 0.138262E+01
-PKER_SDRYG( 4, 43) = 0.139647E+01
-PKER_SDRYG( 4, 44) = 0.140927E+01
-PKER_SDRYG( 4, 45) = 0.142112E+01
-PKER_SDRYG( 4, 46) = 0.143212E+01
-PKER_SDRYG( 4, 47) = 0.144235E+01
-PKER_SDRYG( 4, 48) = 0.145188E+01
-PKER_SDRYG( 4, 49) = 0.146076E+01
-PKER_SDRYG( 4, 50) = 0.146905E+01
-PKER_SDRYG( 4, 51) = 0.147679E+01
-PKER_SDRYG( 4, 52) = 0.148403E+01
-PKER_SDRYG( 4, 53) = 0.149081E+01
-PKER_SDRYG( 4, 54) = 0.149715E+01
-PKER_SDRYG( 4, 55) = 0.150309E+01
-PKER_SDRYG( 4, 56) = 0.150865E+01
-PKER_SDRYG( 4, 57) = 0.151387E+01
-PKER_SDRYG( 4, 58) = 0.151876E+01
-PKER_SDRYG( 4, 59) = 0.152334E+01
-PKER_SDRYG( 4, 60) = 0.152764E+01
-PKER_SDRYG( 4, 61) = 0.153168E+01
-PKER_SDRYG( 4, 62) = 0.153546E+01
-PKER_SDRYG( 4, 63) = 0.153902E+01
-PKER_SDRYG( 4, 64) = 0.154235E+01
-PKER_SDRYG( 4, 65) = 0.154548E+01
-PKER_SDRYG( 4, 66) = 0.154842E+01
-PKER_SDRYG( 4, 67) = 0.155117E+01
-PKER_SDRYG( 4, 68) = 0.155376E+01
-PKER_SDRYG( 4, 69) = 0.155619E+01
-PKER_SDRYG( 4, 70) = 0.155847E+01
-PKER_SDRYG( 4, 71) = 0.156061E+01
-PKER_SDRYG( 4, 72) = 0.156262E+01
-PKER_SDRYG( 4, 73) = 0.156451E+01
-PKER_SDRYG( 4, 74) = 0.156628E+01
-PKER_SDRYG( 4, 75) = 0.156795E+01
-PKER_SDRYG( 4, 76) = 0.156951E+01
-PKER_SDRYG( 4, 77) = 0.157098E+01
-PKER_SDRYG( 4, 78) = 0.157235E+01
-PKER_SDRYG( 4, 79) = 0.157365E+01
-PKER_SDRYG( 4, 80) = 0.157486E+01
-PKER_SDRYG( 5, 1) = 0.242058E+01
-PKER_SDRYG( 5, 2) = 0.222747E+01
-PKER_SDRYG( 5, 3) = 0.204603E+01
-PKER_SDRYG( 5, 4) = 0.187558E+01
-PKER_SDRYG( 5, 5) = 0.171547E+01
-PKER_SDRYG( 5, 6) = 0.156517E+01
-PKER_SDRYG( 5, 7) = 0.142419E+01
-PKER_SDRYG( 5, 8) = 0.129215E+01
-PKER_SDRYG( 5, 9) = 0.116874E+01
-PKER_SDRYG( 5, 10) = 0.105374E+01
-PKER_SDRYG( 5, 11) = 0.947064E+00
-PKER_SDRYG( 5, 12) = 0.848754E+00
-PKER_SDRYG( 5, 13) = 0.758866E+00
-PKER_SDRYG( 5, 14) = 0.677714E+00
-PKER_SDRYG( 5, 15) = 0.605727E+00
-PKER_SDRYG( 5, 16) = 0.543389E+00
-PKER_SDRYG( 5, 17) = 0.491619E+00
-PKER_SDRYG( 5, 18) = 0.451355E+00
-PKER_SDRYG( 5, 19) = 0.423473E+00
-PKER_SDRYG( 5, 20) = 0.409129E+00
-PKER_SDRYG( 5, 21) = 0.409111E+00
-PKER_SDRYG( 5, 22) = 0.423458E+00
-PKER_SDRYG( 5, 23) = 0.451630E+00
-PKER_SDRYG( 5, 24) = 0.491797E+00
-PKER_SDRYG( 5, 25) = 0.541294E+00
-PKER_SDRYG( 5, 26) = 0.596703E+00
-PKER_SDRYG( 5, 27) = 0.654696E+00
-PKER_SDRYG( 5, 28) = 0.712443E+00
-PKER_SDRYG( 5, 29) = 0.767659E+00
-PKER_SDRYG( 5, 30) = 0.818920E+00
-PKER_SDRYG( 5, 31) = 0.865491E+00
-PKER_SDRYG( 5, 32) = 0.907343E+00
-PKER_SDRYG( 5, 33) = 0.944838E+00
-PKER_SDRYG( 5, 34) = 0.978432E+00
-PKER_SDRYG( 5, 35) = 0.100859E+01
-PKER_SDRYG( 5, 36) = 0.103569E+01
-PKER_SDRYG( 5, 37) = 0.106011E+01
-PKER_SDRYG( 5, 38) = 0.108214E+01
-PKER_SDRYG( 5, 39) = 0.110210E+01
-PKER_SDRYG( 5, 40) = 0.112025E+01
-PKER_SDRYG( 5, 41) = 0.113682E+01
-PKER_SDRYG( 5, 42) = 0.115202E+01
-PKER_SDRYG( 5, 43) = 0.116600E+01
-PKER_SDRYG( 5, 44) = 0.117890E+01
-PKER_SDRYG( 5, 45) = 0.119084E+01
-PKER_SDRYG( 5, 46) = 0.120190E+01
-PKER_SDRYG( 5, 47) = 0.121218E+01
-PKER_SDRYG( 5, 48) = 0.122174E+01
-PKER_SDRYG( 5, 49) = 0.123065E+01
-PKER_SDRYG( 5, 50) = 0.123897E+01
-PKER_SDRYG( 5, 51) = 0.124673E+01
-PKER_SDRYG( 5, 52) = 0.125398E+01
-PKER_SDRYG( 5, 53) = 0.126077E+01
-PKER_SDRYG( 5, 54) = 0.126712E+01
-PKER_SDRYG( 5, 55) = 0.127307E+01
-PKER_SDRYG( 5, 56) = 0.127864E+01
-PKER_SDRYG( 5, 57) = 0.128386E+01
-PKER_SDRYG( 5, 58) = 0.128875E+01
-PKER_SDRYG( 5, 59) = 0.129334E+01
-PKER_SDRYG( 5, 60) = 0.129764E+01
-PKER_SDRYG( 5, 61) = 0.130168E+01
-PKER_SDRYG( 5, 62) = 0.130547E+01
-PKER_SDRYG( 5, 63) = 0.130902E+01
-PKER_SDRYG( 5, 64) = 0.131236E+01
-PKER_SDRYG( 5, 65) = 0.131549E+01
-PKER_SDRYG( 5, 66) = 0.131842E+01
-PKER_SDRYG( 5, 67) = 0.132118E+01
-PKER_SDRYG( 5, 68) = 0.132377E+01
-PKER_SDRYG( 5, 69) = 0.132620E+01
-PKER_SDRYG( 5, 70) = 0.132848E+01
-PKER_SDRYG( 5, 71) = 0.133062E+01
-PKER_SDRYG( 5, 72) = 0.133263E+01
-PKER_SDRYG( 5, 73) = 0.133452E+01
-PKER_SDRYG( 5, 74) = 0.133629E+01
-PKER_SDRYG( 5, 75) = 0.133796E+01
-PKER_SDRYG( 5, 76) = 0.133952E+01
-PKER_SDRYG( 5, 77) = 0.134098E+01
-PKER_SDRYG( 5, 78) = 0.134236E+01
-PKER_SDRYG( 5, 79) = 0.134365E+01
-PKER_SDRYG( 5, 80) = 0.134487E+01
-PKER_SDRYG( 6, 1) = 0.252692E+01
-PKER_SDRYG( 6, 2) = 0.233392E+01
-PKER_SDRYG( 6, 3) = 0.215256E+01
-PKER_SDRYG( 6, 4) = 0.198212E+01
-PKER_SDRYG( 6, 5) = 0.182193E+01
-PKER_SDRYG( 6, 6) = 0.167134E+01
-PKER_SDRYG( 6, 7) = 0.152979E+01
-PKER_SDRYG( 6, 8) = 0.139676E+01
-PKER_SDRYG( 6, 9) = 0.127181E+01
-PKER_SDRYG( 6, 10) = 0.115455E+01
-PKER_SDRYG( 6, 11) = 0.104468E+01
-PKER_SDRYG( 6, 12) = 0.942046E+00
-PKER_SDRYG( 6, 13) = 0.846498E+00
-PKER_SDRYG( 6, 14) = 0.758078E+00
-PKER_SDRYG( 6, 15) = 0.676915E+00
-PKER_SDRYG( 6, 16) = 0.603393E+00
-PKER_SDRYG( 6, 17) = 0.537925E+00
-PKER_SDRYG( 6, 18) = 0.481299E+00
-PKER_SDRYG( 6, 19) = 0.434300E+00
-PKER_SDRYG( 6, 20) = 0.397962E+00
-PKER_SDRYG( 6, 21) = 0.373555E+00
-PKER_SDRYG( 6, 22) = 0.361810E+00
-PKER_SDRYG( 6, 23) = 0.363261E+00
-PKER_SDRYG( 6, 24) = 0.377804E+00
-PKER_SDRYG( 6, 25) = 0.404141E+00
-PKER_SDRYG( 6, 26) = 0.440111E+00
-PKER_SDRYG( 6, 27) = 0.482932E+00
-PKER_SDRYG( 6, 28) = 0.529526E+00
-PKER_SDRYG( 6, 29) = 0.577250E+00
-PKER_SDRYG( 6, 30) = 0.623904E+00
-PKER_SDRYG( 6, 31) = 0.668115E+00
-PKER_SDRYG( 6, 32) = 0.708971E+00
-PKER_SDRYG( 6, 33) = 0.746106E+00
-PKER_SDRYG( 6, 34) = 0.779586E+00
-PKER_SDRYG( 6, 35) = 0.809709E+00
-PKER_SDRYG( 6, 36) = 0.836864E+00
-PKER_SDRYG( 6, 37) = 0.861427E+00
-PKER_SDRYG( 6, 38) = 0.883701E+00
-PKER_SDRYG( 6, 39) = 0.903939E+00
-PKER_SDRYG( 6, 40) = 0.922359E+00
-PKER_SDRYG( 6, 41) = 0.939166E+00
-PKER_SDRYG( 6, 42) = 0.954549E+00
-PKER_SDRYG( 6, 43) = 0.968675E+00
-PKER_SDRYG( 6, 44) = 0.981689E+00
-PKER_SDRYG( 6, 45) = 0.993712E+00
-PKER_SDRYG( 6, 46) = 0.100485E+01
-PKER_SDRYG( 6, 47) = 0.101518E+01
-PKER_SDRYG( 6, 48) = 0.102479E+01
-PKER_SDRYG( 6, 49) = 0.103373E+01
-PKER_SDRYG( 6, 50) = 0.104207E+01
-PKER_SDRYG( 6, 51) = 0.104986E+01
-PKER_SDRYG( 6, 52) = 0.105713E+01
-PKER_SDRYG( 6, 53) = 0.106393E+01
-PKER_SDRYG( 6, 54) = 0.107029E+01
-PKER_SDRYG( 6, 55) = 0.107624E+01
-PKER_SDRYG( 6, 56) = 0.108182E+01
-PKER_SDRYG( 6, 57) = 0.108704E+01
-PKER_SDRYG( 6, 58) = 0.109194E+01
-PKER_SDRYG( 6, 59) = 0.109653E+01
-PKER_SDRYG( 6, 60) = 0.110084E+01
-PKER_SDRYG( 6, 61) = 0.110488E+01
-PKER_SDRYG( 6, 62) = 0.110866E+01
-PKER_SDRYG( 6, 63) = 0.111222E+01
-PKER_SDRYG( 6, 64) = 0.111556E+01
-PKER_SDRYG( 6, 65) = 0.111869E+01
-PKER_SDRYG( 6, 66) = 0.112162E+01
-PKER_SDRYG( 6, 67) = 0.112438E+01
-PKER_SDRYG( 6, 68) = 0.112697E+01
-PKER_SDRYG( 6, 69) = 0.112940E+01
-PKER_SDRYG( 6, 70) = 0.113168E+01
-PKER_SDRYG( 6, 71) = 0.113382E+01
-PKER_SDRYG( 6, 72) = 0.113583E+01
-PKER_SDRYG( 6, 73) = 0.113772E+01
-PKER_SDRYG( 6, 74) = 0.113949E+01
-PKER_SDRYG( 6, 75) = 0.114116E+01
-PKER_SDRYG( 6, 76) = 0.114272E+01
-PKER_SDRYG( 6, 77) = 0.114419E+01
-PKER_SDRYG( 6, 78) = 0.114556E+01
-PKER_SDRYG( 6, 79) = 0.114686E+01
-PKER_SDRYG( 6, 80) = 0.114807E+01
-PKER_SDRYG( 7, 1) = 0.261786E+01
-PKER_SDRYG( 7, 2) = 0.242499E+01
-PKER_SDRYG( 7, 3) = 0.224378E+01
-PKER_SDRYG( 7, 4) = 0.207350E+01
-PKER_SDRYG( 7, 5) = 0.191346E+01
-PKER_SDRYG( 7, 6) = 0.176300E+01
-PKER_SDRYG( 7, 7) = 0.162153E+01
-PKER_SDRYG( 7, 8) = 0.148846E+01
-PKER_SDRYG( 7, 9) = 0.136328E+01
-PKER_SDRYG( 7, 10) = 0.124549E+01
-PKER_SDRYG( 7, 11) = 0.113468E+01
-PKER_SDRYG( 7, 12) = 0.103050E+01
-PKER_SDRYG( 7, 13) = 0.932669E+00
-PKER_SDRYG( 7, 14) = 0.840960E+00
-PKER_SDRYG( 7, 15) = 0.755294E+00
-PKER_SDRYG( 7, 16) = 0.675723E+00
-PKER_SDRYG( 7, 17) = 0.602410E+00
-PKER_SDRYG( 7, 18) = 0.535732E+00
-PKER_SDRYG( 7, 19) = 0.476253E+00
-PKER_SDRYG( 7, 20) = 0.424743E+00
-PKER_SDRYG( 7, 21) = 0.382214E+00
-PKER_SDRYG( 7, 22) = 0.349787E+00
-PKER_SDRYG( 7, 23) = 0.328527E+00
-PKER_SDRYG( 7, 24) = 0.319129E+00
-PKER_SDRYG( 7, 25) = 0.321804E+00
-PKER_SDRYG( 7, 26) = 0.335925E+00
-PKER_SDRYG( 7, 27) = 0.359789E+00
-PKER_SDRYG( 7, 28) = 0.391183E+00
-PKER_SDRYG( 7, 29) = 0.427436E+00
-PKER_SDRYG( 7, 30) = 0.466046E+00
-PKER_SDRYG( 7, 31) = 0.504837E+00
-PKER_SDRYG( 7, 32) = 0.542368E+00
-PKER_SDRYG( 7, 33) = 0.577763E+00
-PKER_SDRYG( 7, 34) = 0.610469E+00
-PKER_SDRYG( 7, 35) = 0.640344E+00
-PKER_SDRYG( 7, 36) = 0.667411E+00
-PKER_SDRYG( 7, 37) = 0.691907E+00
-PKER_SDRYG( 7, 38) = 0.714147E+00
-PKER_SDRYG( 7, 39) = 0.734403E+00
-PKER_SDRYG( 7, 40) = 0.752915E+00
-PKER_SDRYG( 7, 41) = 0.769870E+00
-PKER_SDRYG( 7, 42) = 0.785417E+00
-PKER_SDRYG( 7, 43) = 0.799696E+00
-PKER_SDRYG( 7, 44) = 0.812835E+00
-PKER_SDRYG( 7, 45) = 0.824958E+00
-PKER_SDRYG( 7, 46) = 0.836170E+00
-PKER_SDRYG( 7, 47) = 0.846564E+00
-PKER_SDRYG( 7, 48) = 0.856219E+00
-PKER_SDRYG( 7, 49) = 0.865201E+00
-PKER_SDRYG( 7, 50) = 0.873570E+00
-PKER_SDRYG( 7, 51) = 0.881376E+00
-PKER_SDRYG( 7, 52) = 0.888666E+00
-PKER_SDRYG( 7, 53) = 0.895479E+00
-PKER_SDRYG( 7, 54) = 0.901851E+00
-PKER_SDRYG( 7, 55) = 0.907814E+00
-PKER_SDRYG( 7, 56) = 0.913398E+00
-PKER_SDRYG( 7, 57) = 0.918628E+00
-PKER_SDRYG( 7, 58) = 0.923530E+00
-PKER_SDRYG( 7, 59) = 0.928125E+00
-PKER_SDRYG( 7, 60) = 0.932433E+00
-PKER_SDRYG( 7, 61) = 0.936474E+00
-PKER_SDRYG( 7, 62) = 0.940264E+00
-PKER_SDRYG( 7, 63) = 0.943820E+00
-PKER_SDRYG( 7, 64) = 0.947157E+00
-PKER_SDRYG( 7, 65) = 0.950288E+00
-PKER_SDRYG( 7, 66) = 0.953227E+00
-PKER_SDRYG( 7, 67) = 0.955985E+00
-PKER_SDRYG( 7, 68) = 0.958574E+00
-PKER_SDRYG( 7, 69) = 0.961004E+00
-PKER_SDRYG( 7, 70) = 0.963286E+00
-PKER_SDRYG( 7, 71) = 0.965428E+00
-PKER_SDRYG( 7, 72) = 0.967438E+00
-PKER_SDRYG( 7, 73) = 0.969326E+00
-PKER_SDRYG( 7, 74) = 0.971099E+00
-PKER_SDRYG( 7, 75) = 0.972763E+00
-PKER_SDRYG( 7, 76) = 0.974325E+00
-PKER_SDRYG( 7, 77) = 0.975792E+00
-PKER_SDRYG( 7, 78) = 0.977169E+00
-PKER_SDRYG( 7, 79) = 0.978462E+00
-PKER_SDRYG( 7, 80) = 0.979677E+00
-PKER_SDRYG( 8, 1) = 0.269561E+01
-PKER_SDRYG( 8, 2) = 0.250283E+01
-PKER_SDRYG( 8, 3) = 0.232174E+01
-PKER_SDRYG( 8, 4) = 0.215161E+01
-PKER_SDRYG( 8, 5) = 0.199174E+01
-PKER_SDRYG( 8, 6) = 0.184149E+01
-PKER_SDRYG( 8, 7) = 0.170023E+01
-PKER_SDRYG( 8, 8) = 0.156739E+01
-PKER_SDRYG( 8, 9) = 0.144242E+01
-PKER_SDRYG( 8, 10) = 0.132479E+01
-PKER_SDRYG( 8, 11) = 0.121403E+01
-PKER_SDRYG( 8, 12) = 0.110969E+01
-PKER_SDRYG( 8, 13) = 0.101137E+01
-PKER_SDRYG( 8, 14) = 0.918736E+00
-PKER_SDRYG( 8, 15) = 0.831495E+00
-PKER_SDRYG( 8, 16) = 0.749451E+00
-PKER_SDRYG( 8, 17) = 0.672563E+00
-PKER_SDRYG( 8, 18) = 0.600835E+00
-PKER_SDRYG( 8, 19) = 0.534485E+00
-PKER_SDRYG( 8, 20) = 0.473951E+00
-PKER_SDRYG( 8, 21) = 0.419909E+00
-PKER_SDRYG( 8, 22) = 0.373149E+00
-PKER_SDRYG( 8, 23) = 0.334877E+00
-PKER_SDRYG( 8, 24) = 0.306095E+00
-PKER_SDRYG( 8, 25) = 0.287726E+00
-PKER_SDRYG( 8, 26) = 0.280481E+00
-PKER_SDRYG( 8, 27) = 0.283946E+00
-PKER_SDRYG( 8, 28) = 0.297076E+00
-PKER_SDRYG( 8, 29) = 0.318238E+00
-PKER_SDRYG( 8, 30) = 0.345049E+00
-PKER_SDRYG( 8, 31) = 0.375221E+00
-PKER_SDRYG( 8, 32) = 0.406792E+00
-PKER_SDRYG( 8, 33) = 0.438182E+00
-PKER_SDRYG( 8, 34) = 0.468400E+00
-PKER_SDRYG( 8, 35) = 0.496851E+00
-PKER_SDRYG( 8, 36) = 0.523262E+00
-PKER_SDRYG( 8, 37) = 0.547514E+00
-PKER_SDRYG( 8, 38) = 0.569649E+00
-PKER_SDRYG( 8, 39) = 0.589826E+00
-PKER_SDRYG( 8, 40) = 0.608254E+00
-PKER_SDRYG( 8, 41) = 0.625149E+00
-PKER_SDRYG( 8, 42) = 0.640693E+00
-PKER_SDRYG( 8, 43) = 0.655025E+00
-PKER_SDRYG( 8, 44) = 0.668253E+00
-PKER_SDRYG( 8, 45) = 0.680470E+00
-PKER_SDRYG( 8, 46) = 0.691766E+00
-PKER_SDRYG( 8, 47) = 0.702228E+00
-PKER_SDRYG( 8, 48) = 0.711935E+00
-PKER_SDRYG( 8, 49) = 0.720959E+00
-PKER_SDRYG( 8, 50) = 0.729360E+00
-PKER_SDRYG( 8, 51) = 0.737193E+00
-PKER_SDRYG( 8, 52) = 0.744502E+00
-PKER_SDRYG( 8, 53) = 0.751331E+00
-PKER_SDRYG( 8, 54) = 0.757715E+00
-PKER_SDRYG( 8, 55) = 0.763688E+00
-PKER_SDRYG( 8, 56) = 0.769279E+00
-PKER_SDRYG( 8, 57) = 0.774516E+00
-PKER_SDRYG( 8, 58) = 0.779422E+00
-PKER_SDRYG( 8, 59) = 0.784021E+00
-PKER_SDRYG( 8, 60) = 0.788332E+00
-PKER_SDRYG( 8, 61) = 0.792375E+00
-PKER_SDRYG( 8, 62) = 0.796167E+00
-PKER_SDRYG( 8, 63) = 0.799725E+00
-PKER_SDRYG( 8, 64) = 0.803062E+00
-PKER_SDRYG( 8, 65) = 0.806194E+00
-PKER_SDRYG( 8, 66) = 0.809134E+00
-PKER_SDRYG( 8, 67) = 0.811893E+00
-PKER_SDRYG( 8, 68) = 0.814482E+00
-PKER_SDRYG( 8, 69) = 0.816913E+00
-PKER_SDRYG( 8, 70) = 0.819194E+00
-PKER_SDRYG( 8, 71) = 0.821336E+00
-PKER_SDRYG( 8, 72) = 0.823347E+00
-PKER_SDRYG( 8, 73) = 0.825235E+00
-PKER_SDRYG( 8, 74) = 0.827008E+00
-PKER_SDRYG( 8, 75) = 0.828672E+00
-PKER_SDRYG( 8, 76) = 0.830234E+00
-PKER_SDRYG( 8, 77) = 0.831701E+00
-PKER_SDRYG( 8, 78) = 0.833078E+00
-PKER_SDRYG( 8, 79) = 0.834372E+00
-PKER_SDRYG( 8, 80) = 0.835586E+00
-PKER_SDRYG( 9, 1) = 0.276207E+01
-PKER_SDRYG( 9, 2) = 0.256937E+01
-PKER_SDRYG( 9, 3) = 0.238837E+01
-PKER_SDRYG( 9, 4) = 0.221834E+01
-PKER_SDRYG( 9, 5) = 0.205861E+01
-PKER_SDRYG( 9, 6) = 0.190852E+01
-PKER_SDRYG( 9, 7) = 0.176746E+01
-PKER_SDRYG( 9, 8) = 0.163486E+01
-PKER_SDRYG( 9, 9) = 0.151015E+01
-PKER_SDRYG( 9, 10) = 0.139283E+01
-PKER_SDRYG( 9, 11) = 0.128239E+01
-PKER_SDRYG( 9, 12) = 0.117836E+01
-PKER_SDRYG( 9, 13) = 0.108030E+01
-PKER_SDRYG( 9, 14) = 0.987804E+00
-PKER_SDRYG( 9, 15) = 0.900480E+00
-PKER_SDRYG( 9, 16) = 0.818006E+00
-PKER_SDRYG( 9, 17) = 0.740119E+00
-PKER_SDRYG( 9, 18) = 0.666640E+00
-PKER_SDRYG( 9, 19) = 0.597469E+00
-PKER_SDRYG( 9, 20) = 0.532692E+00
-PKER_SDRYG( 9, 21) = 0.472590E+00
-PKER_SDRYG( 9, 22) = 0.417593E+00
-PKER_SDRYG( 9, 23) = 0.368487E+00
-PKER_SDRYG( 9, 24) = 0.326216E+00
-PKER_SDRYG( 9, 25) = 0.291847E+00
-PKER_SDRYG( 9, 26) = 0.266518E+00
-PKER_SDRYG( 9, 27) = 0.250973E+00
-PKER_SDRYG( 9, 28) = 0.245401E+00
-PKER_SDRYG( 9, 29) = 0.249224E+00
-PKER_SDRYG( 9, 30) = 0.261135E+00
-PKER_SDRYG( 9, 31) = 0.279371E+00
-PKER_SDRYG( 9, 32) = 0.301823E+00
-PKER_SDRYG( 9, 33) = 0.326652E+00
-PKER_SDRYG( 9, 34) = 0.352342E+00
-PKER_SDRYG( 9, 35) = 0.377786E+00
-PKER_SDRYG( 9, 36) = 0.402202E+00
-PKER_SDRYG( 9, 37) = 0.425256E+00
-PKER_SDRYG( 9, 38) = 0.446772E+00
-PKER_SDRYG( 9, 39) = 0.466663E+00
-PKER_SDRYG( 9, 40) = 0.484977E+00
-PKER_SDRYG( 9, 41) = 0.501779E+00
-PKER_SDRYG( 9, 42) = 0.517214E+00
-PKER_SDRYG( 9, 43) = 0.531452E+00
-PKER_SDRYG( 9, 44) = 0.544618E+00
-PKER_SDRYG( 9, 45) = 0.556824E+00
-PKER_SDRYG( 9, 46) = 0.568153E+00
-PKER_SDRYG( 9, 47) = 0.578667E+00
-PKER_SDRYG( 9, 48) = 0.588428E+00
-PKER_SDRYG( 9, 49) = 0.597497E+00
-PKER_SDRYG( 9, 50) = 0.605935E+00
-PKER_SDRYG( 9, 51) = 0.613795E+00
-PKER_SDRYG( 9, 52) = 0.621127E+00
-PKER_SDRYG( 9, 53) = 0.627973E+00
-PKER_SDRYG( 9, 54) = 0.634371E+00
-PKER_SDRYG( 9, 55) = 0.640354E+00
-PKER_SDRYG( 9, 56) = 0.645954E+00
-PKER_SDRYG( 9, 57) = 0.651197E+00
-PKER_SDRYG( 9, 58) = 0.656109E+00
-PKER_SDRYG( 9, 59) = 0.660711E+00
-PKER_SDRYG( 9, 60) = 0.665026E+00
-PKER_SDRYG( 9, 61) = 0.669071E+00
-PKER_SDRYG( 9, 62) = 0.672865E+00
-PKER_SDRYG( 9, 63) = 0.676424E+00
-PKER_SDRYG( 9, 64) = 0.679763E+00
-PKER_SDRYG( 9, 65) = 0.682897E+00
-PKER_SDRYG( 9, 66) = 0.685837E+00
-PKER_SDRYG( 9, 67) = 0.688596E+00
-PKER_SDRYG( 9, 68) = 0.691186E+00
-PKER_SDRYG( 9, 69) = 0.693617E+00
-PKER_SDRYG( 9, 70) = 0.695899E+00
-PKER_SDRYG( 9, 71) = 0.698041E+00
-PKER_SDRYG( 9, 72) = 0.700052E+00
-PKER_SDRYG( 9, 73) = 0.701940E+00
-PKER_SDRYG( 9, 74) = 0.703713E+00
-PKER_SDRYG( 9, 75) = 0.705377E+00
-PKER_SDRYG( 9, 76) = 0.706940E+00
-PKER_SDRYG( 9, 77) = 0.708407E+00
-PKER_SDRYG( 9, 78) = 0.709784E+00
-PKER_SDRYG( 9, 79) = 0.711077E+00
-PKER_SDRYG( 9, 80) = 0.712292E+00
-PKER_SDRYG( 10, 1) = 0.281890E+01
-PKER_SDRYG( 10, 2) = 0.262625E+01
-PKER_SDRYG( 10, 3) = 0.244531E+01
-PKER_SDRYG( 10, 4) = 0.227537E+01
-PKER_SDRYG( 10, 5) = 0.211573E+01
-PKER_SDRYG( 10, 6) = 0.196576E+01
-PKER_SDRYG( 10, 7) = 0.182485E+01
-PKER_SDRYG( 10, 8) = 0.169243E+01
-PKER_SDRYG( 10, 9) = 0.156795E+01
-PKER_SDRYG( 10, 10) = 0.145089E+01
-PKER_SDRYG( 10, 11) = 0.134077E+01
-PKER_SDRYG( 10, 12) = 0.123711E+01
-PKER_SDRYG( 10, 13) = 0.113947E+01
-PKER_SDRYG( 10, 14) = 0.104741E+01
-PKER_SDRYG( 10, 15) = 0.960534E+00
-PKER_SDRYG( 10, 16) = 0.878447E+00
-PKER_SDRYG( 10, 17) = 0.800800E+00
-PKER_SDRYG( 10, 18) = 0.727272E+00
-PKER_SDRYG( 10, 19) = 0.657611E+00
-PKER_SDRYG( 10, 20) = 0.591632E+00
-PKER_SDRYG( 10, 21) = 0.529264E+00
-PKER_SDRYG( 10, 22) = 0.470668E+00
-PKER_SDRYG( 10, 23) = 0.416097E+00
-PKER_SDRYG( 10, 24) = 0.366106E+00
-PKER_SDRYG( 10, 25) = 0.321553E+00
-PKER_SDRYG( 10, 26) = 0.283464E+00
-PKER_SDRYG( 10, 27) = 0.252856E+00
-PKER_SDRYG( 10, 28) = 0.230814E+00
-PKER_SDRYG( 10, 29) = 0.217753E+00
-PKER_SDRYG( 10, 30) = 0.213511E+00
-PKER_SDRYG( 10, 31) = 0.217435E+00
-PKER_SDRYG( 10, 32) = 0.227916E+00
-PKER_SDRYG( 10, 33) = 0.243286E+00
-PKER_SDRYG( 10, 34) = 0.261931E+00
-PKER_SDRYG( 10, 35) = 0.282270E+00
-PKER_SDRYG( 10, 36) = 0.303153E+00
-PKER_SDRYG( 10, 37) = 0.323799E+00
-PKER_SDRYG( 10, 38) = 0.343682E+00
-PKER_SDRYG( 10, 39) = 0.362526E+00
-PKER_SDRYG( 10, 40) = 0.380218E+00
-PKER_SDRYG( 10, 41) = 0.396712E+00
-PKER_SDRYG( 10, 42) = 0.412002E+00
-PKER_SDRYG( 10, 43) = 0.426131E+00
-PKER_SDRYG( 10, 44) = 0.439189E+00
-PKER_SDRYG( 10, 45) = 0.451282E+00
-PKER_SDRYG( 10, 46) = 0.462518E+00
-PKER_SDRYG( 10, 47) = 0.472980E+00
-PKER_SDRYG( 10, 48) = 0.482733E+00
-PKER_SDRYG( 10, 49) = 0.491822E+00
-PKER_SDRYG( 10, 50) = 0.500291E+00
-PKER_SDRYG( 10, 51) = 0.508181E+00
-PKER_SDRYG( 10, 52) = 0.515537E+00
-PKER_SDRYG( 10, 53) = 0.522403E+00
-PKER_SDRYG( 10, 54) = 0.528816E+00
-PKER_SDRYG( 10, 55) = 0.534811E+00
-PKER_SDRYG( 10, 56) = 0.540420E+00
-PKER_SDRYG( 10, 57) = 0.545671E+00
-PKER_SDRYG( 10, 58) = 0.550588E+00
-PKER_SDRYG( 10, 59) = 0.555195E+00
-PKER_SDRYG( 10, 60) = 0.559513E+00
-PKER_SDRYG( 10, 61) = 0.563561E+00
-PKER_SDRYG( 10, 62) = 0.567358E+00
-PKER_SDRYG( 10, 63) = 0.570918E+00
-PKER_SDRYG( 10, 64) = 0.574259E+00
-PKER_SDRYG( 10, 65) = 0.577393E+00
-PKER_SDRYG( 10, 66) = 0.580334E+00
-PKER_SDRYG( 10, 67) = 0.583094E+00
-PKER_SDRYG( 10, 68) = 0.585685E+00
-PKER_SDRYG( 10, 69) = 0.588116E+00
-PKER_SDRYG( 10, 70) = 0.590398E+00
-PKER_SDRYG( 10, 71) = 0.592541E+00
-PKER_SDRYG( 10, 72) = 0.594552E+00
-PKER_SDRYG( 10, 73) = 0.596440E+00
-PKER_SDRYG( 10, 74) = 0.598213E+00
-PKER_SDRYG( 10, 75) = 0.599877E+00
-PKER_SDRYG( 10, 76) = 0.601440E+00
-PKER_SDRYG( 10, 77) = 0.602907E+00
-PKER_SDRYG( 10, 78) = 0.604284E+00
-PKER_SDRYG( 10, 79) = 0.605578E+00
-PKER_SDRYG( 10, 80) = 0.606792E+00
-PKER_SDRYG( 11, 1) = 0.286750E+01
-PKER_SDRYG( 11, 2) = 0.267488E+01
-PKER_SDRYG( 11, 3) = 0.249399E+01
-PKER_SDRYG( 11, 4) = 0.232410E+01
-PKER_SDRYG( 11, 5) = 0.216454E+01
-PKER_SDRYG( 11, 6) = 0.201465E+01
-PKER_SDRYG( 11, 7) = 0.187385E+01
-PKER_SDRYG( 11, 8) = 0.174156E+01
-PKER_SDRYG( 11, 9) = 0.161724E+01
-PKER_SDRYG( 11, 10) = 0.150038E+01
-PKER_SDRYG( 11, 11) = 0.139051E+01
-PKER_SDRYG( 11, 12) = 0.128715E+01
-PKER_SDRYG( 11, 13) = 0.118986E+01
-PKER_SDRYG( 11, 14) = 0.109824E+01
-PKER_SDRYG( 11, 15) = 0.101186E+01
-PKER_SDRYG( 11, 16) = 0.930332E+00
-PKER_SDRYG( 11, 17) = 0.853282E+00
-PKER_SDRYG( 11, 18) = 0.780348E+00
-PKER_SDRYG( 11, 19) = 0.711193E+00
-PKER_SDRYG( 11, 20) = 0.645511E+00
-PKER_SDRYG( 11, 21) = 0.583060E+00
-PKER_SDRYG( 11, 22) = 0.523685E+00
-PKER_SDRYG( 11, 23) = 0.467360E+00
-PKER_SDRYG( 11, 24) = 0.414210E+00
-PKER_SDRYG( 11, 25) = 0.364609E+00
-PKER_SDRYG( 11, 26) = 0.319253E+00
-PKER_SDRYG( 11, 27) = 0.278944E+00
-PKER_SDRYG( 11, 28) = 0.244812E+00
-PKER_SDRYG( 11, 29) = 0.217874E+00
-PKER_SDRYG( 11, 30) = 0.198828E+00
-PKER_SDRYG( 11, 31) = 0.187973E+00
-PKER_SDRYG( 11, 32) = 0.184872E+00
-PKER_SDRYG( 11, 33) = 0.188508E+00
-PKER_SDRYG( 11, 34) = 0.197506E+00
-PKER_SDRYG( 11, 35) = 0.210328E+00
-PKER_SDRYG( 11, 36) = 0.225647E+00
-PKER_SDRYG( 11, 37) = 0.242242E+00
-PKER_SDRYG( 11, 38) = 0.259254E+00
-PKER_SDRYG( 11, 39) = 0.276128E+00
-PKER_SDRYG( 11, 40) = 0.292461E+00
-PKER_SDRYG( 11, 41) = 0.308005E+00
-PKER_SDRYG( 11, 42) = 0.322690E+00
-PKER_SDRYG( 11, 43) = 0.336481E+00
-PKER_SDRYG( 11, 44) = 0.349355E+00
-PKER_SDRYG( 11, 45) = 0.361342E+00
-PKER_SDRYG( 11, 46) = 0.372471E+00
-PKER_SDRYG( 11, 47) = 0.382818E+00
-PKER_SDRYG( 11, 48) = 0.392468E+00
-PKER_SDRYG( 11, 49) = 0.401482E+00
-PKER_SDRYG( 11, 50) = 0.409913E+00
-PKER_SDRYG( 11, 51) = 0.417799E+00
-PKER_SDRYG( 11, 52) = 0.425169E+00
-PKER_SDRYG( 11, 53) = 0.432052E+00
-PKER_SDRYG( 11, 54) = 0.438481E+00
-PKER_SDRYG( 11, 55) = 0.444490E+00
-PKER_SDRYG( 11, 56) = 0.450109E+00
-PKER_SDRYG( 11, 57) = 0.455368E+00
-PKER_SDRYG( 11, 58) = 0.460292E+00
-PKER_SDRYG( 11, 59) = 0.464904E+00
-PKER_SDRYG( 11, 60) = 0.469226E+00
-PKER_SDRYG( 11, 61) = 0.473277E+00
-PKER_SDRYG( 11, 62) = 0.477076E+00
-PKER_SDRYG( 11, 63) = 0.480638E+00
-PKER_SDRYG( 11, 64) = 0.483980E+00
-PKER_SDRYG( 11, 65) = 0.487116E+00
-PKER_SDRYG( 11, 66) = 0.490058E+00
-PKER_SDRYG( 11, 67) = 0.492818E+00
-PKER_SDRYG( 11, 68) = 0.495409E+00
-PKER_SDRYG( 11, 69) = 0.497841E+00
-PKER_SDRYG( 11, 70) = 0.500124E+00
-PKER_SDRYG( 11, 71) = 0.502267E+00
-PKER_SDRYG( 11, 72) = 0.504278E+00
-PKER_SDRYG( 11, 73) = 0.506166E+00
-PKER_SDRYG( 11, 74) = 0.507939E+00
-PKER_SDRYG( 11, 75) = 0.509604E+00
-PKER_SDRYG( 11, 76) = 0.511166E+00
-PKER_SDRYG( 11, 77) = 0.512633E+00
-PKER_SDRYG( 11, 78) = 0.514011E+00
-PKER_SDRYG( 11, 79) = 0.515304E+00
-PKER_SDRYG( 11, 80) = 0.516519E+00
-PKER_SDRYG( 12, 1) = 0.290906E+01
-PKER_SDRYG( 12, 2) = 0.271647E+01
-PKER_SDRYG( 12, 3) = 0.253562E+01
-PKER_SDRYG( 12, 4) = 0.236577E+01
-PKER_SDRYG( 12, 5) = 0.220625E+01
-PKER_SDRYG( 12, 6) = 0.205643E+01
-PKER_SDRYG( 12, 7) = 0.191570E+01
-PKER_SDRYG( 12, 8) = 0.178350E+01
-PKER_SDRYG( 12, 9) = 0.165930E+01
-PKER_SDRYG( 12, 10) = 0.154259E+01
-PKER_SDRYG( 12, 11) = 0.143289E+01
-PKER_SDRYG( 12, 12) = 0.132974E+01
-PKER_SDRYG( 12, 13) = 0.123273E+01
-PKER_SDRYG( 12, 14) = 0.114144E+01
-PKER_SDRYG( 12, 15) = 0.105546E+01
-PKER_SDRYG( 12, 16) = 0.974419E+00
-PKER_SDRYG( 12, 17) = 0.897945E+00
-PKER_SDRYG( 12, 18) = 0.825675E+00
-PKER_SDRYG( 12, 19) = 0.757259E+00
-PKER_SDRYG( 12, 20) = 0.692357E+00
-PKER_SDRYG( 12, 21) = 0.630647E+00
-PKER_SDRYG( 12, 22) = 0.571852E+00
-PKER_SDRYG( 12, 23) = 0.515731E+00
-PKER_SDRYG( 12, 24) = 0.462161E+00
-PKER_SDRYG( 12, 25) = 0.411137E+00
-PKER_SDRYG( 12, 26) = 0.362843E+00
-PKER_SDRYG( 12, 27) = 0.317811E+00
-PKER_SDRYG( 12, 28) = 0.276701E+00
-PKER_SDRYG( 12, 29) = 0.240451E+00
-PKER_SDRYG( 12, 30) = 0.210140E+00
-PKER_SDRYG( 12, 31) = 0.186654E+00
-PKER_SDRYG( 12, 32) = 0.170411E+00
-PKER_SDRYG( 12, 33) = 0.161472E+00
-PKER_SDRYG( 12, 34) = 0.159162E+00
-PKER_SDRYG( 12, 35) = 0.162388E+00
-PKER_SDRYG( 12, 36) = 0.169994E+00
-PKER_SDRYG( 12, 37) = 0.180588E+00
-PKER_SDRYG( 12, 38) = 0.193112E+00
-PKER_SDRYG( 12, 39) = 0.206687E+00
-PKER_SDRYG( 12, 40) = 0.220641E+00
-PKER_SDRYG( 12, 41) = 0.234505E+00
-PKER_SDRYG( 12, 42) = 0.247994E+00
-PKER_SDRYG( 12, 43) = 0.260933E+00
-PKER_SDRYG( 12, 44) = 0.273225E+00
-PKER_SDRYG( 12, 45) = 0.284842E+00
-PKER_SDRYG( 12, 46) = 0.295768E+00
-PKER_SDRYG( 12, 47) = 0.305996E+00
-PKER_SDRYG( 12, 48) = 0.315542E+00
-PKER_SDRYG( 12, 49) = 0.324451E+00
-PKER_SDRYG( 12, 50) = 0.332775E+00
-PKER_SDRYG( 12, 51) = 0.340574E+00
-PKER_SDRYG( 12, 52) = 0.347888E+00
-PKER_SDRYG( 12, 53) = 0.354748E+00
-PKER_SDRYG( 12, 54) = 0.361176E+00
-PKER_SDRYG( 12, 55) = 0.367194E+00
-PKER_SDRYG( 12, 56) = 0.372824E+00
-PKER_SDRYG( 12, 57) = 0.378091E+00
-PKER_SDRYG( 12, 58) = 0.383022E+00
-PKER_SDRYG( 12, 59) = 0.387639E+00
-PKER_SDRYG( 12, 60) = 0.391966E+00
-PKER_SDRYG( 12, 61) = 0.396020E+00
-PKER_SDRYG( 12, 62) = 0.399822E+00
-PKER_SDRYG( 12, 63) = 0.403386E+00
-PKER_SDRYG( 12, 64) = 0.406730E+00
-PKER_SDRYG( 12, 65) = 0.409867E+00
-PKER_SDRYG( 12, 66) = 0.412810E+00
-PKER_SDRYG( 12, 67) = 0.415571E+00
-PKER_SDRYG( 12, 68) = 0.418163E+00
-PKER_SDRYG( 12, 69) = 0.420595E+00
-PKER_SDRYG( 12, 70) = 0.422878E+00
-PKER_SDRYG( 12, 71) = 0.425021E+00
-PKER_SDRYG( 12, 72) = 0.427033E+00
-PKER_SDRYG( 12, 73) = 0.428922E+00
-PKER_SDRYG( 12, 74) = 0.430695E+00
-PKER_SDRYG( 12, 75) = 0.432359E+00
-PKER_SDRYG( 12, 76) = 0.433922E+00
-PKER_SDRYG( 12, 77) = 0.435389E+00
-PKER_SDRYG( 12, 78) = 0.436767E+00
-PKER_SDRYG( 12, 79) = 0.438060E+00
-PKER_SDRYG( 12, 80) = 0.439274E+00
-PKER_SDRYG( 13, 1) = 0.294461E+01
-PKER_SDRYG( 13, 2) = 0.275204E+01
-PKER_SDRYG( 13, 3) = 0.257121E+01
-PKER_SDRYG( 13, 4) = 0.240139E+01
-PKER_SDRYG( 13, 5) = 0.224191E+01
-PKER_SDRYG( 13, 6) = 0.209213E+01
-PKER_SDRYG( 13, 7) = 0.195146E+01
-PKER_SDRYG( 13, 8) = 0.181933E+01
-PKER_SDRYG( 13, 9) = 0.169521E+01
-PKER_SDRYG( 13, 10) = 0.157859E+01
-PKER_SDRYG( 13, 11) = 0.146902E+01
-PKER_SDRYG( 13, 12) = 0.136604E+01
-PKER_SDRYG( 13, 13) = 0.126922E+01
-PKER_SDRYG( 13, 14) = 0.117816E+01
-PKER_SDRYG( 13, 15) = 0.109248E+01
-PKER_SDRYG( 13, 16) = 0.101180E+01
-PKER_SDRYG( 13, 17) = 0.935773E+00
-PKER_SDRYG( 13, 18) = 0.864045E+00
-PKER_SDRYG( 13, 19) = 0.796277E+00
-PKER_SDRYG( 13, 20) = 0.732136E+00
-PKER_SDRYG( 13, 21) = 0.671293E+00
-PKER_SDRYG( 13, 22) = 0.613429E+00
-PKER_SDRYG( 13, 23) = 0.558244E+00
-PKER_SDRYG( 13, 24) = 0.505468E+00
-PKER_SDRYG( 13, 25) = 0.454895E+00
-PKER_SDRYG( 13, 26) = 0.406428E+00
-PKER_SDRYG( 13, 27) = 0.360131E+00
-PKER_SDRYG( 13, 28) = 0.316299E+00
-PKER_SDRYG( 13, 29) = 0.275456E+00
-PKER_SDRYG( 13, 30) = 0.238374E+00
-PKER_SDRYG( 13, 31) = 0.206109E+00
-PKER_SDRYG( 13, 32) = 0.179451E+00
-PKER_SDRYG( 13, 33) = 0.159190E+00
-PKER_SDRYG( 13, 34) = 0.145545E+00
-PKER_SDRYG( 13, 35) = 0.138171E+00
-PKER_SDRYG( 13, 36) = 0.136403E+00
-PKER_SDRYG( 13, 37) = 0.139198E+00
-PKER_SDRYG( 13, 38) = 0.145447E+00
-PKER_SDRYG( 13, 39) = 0.154142E+00
-PKER_SDRYG( 13, 40) = 0.164364E+00
-PKER_SDRYG( 13, 41) = 0.175488E+00
-PKER_SDRYG( 13, 42) = 0.186961E+00
-PKER_SDRYG( 13, 43) = 0.198418E+00
-PKER_SDRYG( 13, 44) = 0.209659E+00
-PKER_SDRYG( 13, 45) = 0.220512E+00
-PKER_SDRYG( 13, 46) = 0.230875E+00
-PKER_SDRYG( 13, 47) = 0.240723E+00
-PKER_SDRYG( 13, 48) = 0.250043E+00
-PKER_SDRYG( 13, 49) = 0.258814E+00
-PKER_SDRYG( 13, 50) = 0.267045E+00
-PKER_SDRYG( 13, 51) = 0.274749E+00
-PKER_SDRYG( 13, 52) = 0.281964E+00
-PKER_SDRYG( 13, 53) = 0.288735E+00
-PKER_SDRYG( 13, 54) = 0.295096E+00
-PKER_SDRYG( 13, 55) = 0.301076E+00
-PKER_SDRYG( 13, 56) = 0.306693E+00
-PKER_SDRYG( 13, 57) = 0.311961E+00
-PKER_SDRYG( 13, 58) = 0.316898E+00
-PKER_SDRYG( 13, 59) = 0.321521E+00
-PKER_SDRYG( 13, 60) = 0.325852E+00
-PKER_SDRYG( 13, 61) = 0.329911E+00
-PKER_SDRYG( 13, 62) = 0.333715E+00
-PKER_SDRYG( 13, 63) = 0.337282E+00
-PKER_SDRYG( 13, 64) = 0.340628E+00
-PKER_SDRYG( 13, 65) = 0.343766E+00
-PKER_SDRYG( 13, 66) = 0.346710E+00
-PKER_SDRYG( 13, 67) = 0.349472E+00
-PKER_SDRYG( 13, 68) = 0.352064E+00
-PKER_SDRYG( 13, 69) = 0.354497E+00
-PKER_SDRYG( 13, 70) = 0.356781E+00
-PKER_SDRYG( 13, 71) = 0.358924E+00
-PKER_SDRYG( 13, 72) = 0.360936E+00
-PKER_SDRYG( 13, 73) = 0.362825E+00
-PKER_SDRYG( 13, 74) = 0.364598E+00
-PKER_SDRYG( 13, 75) = 0.366263E+00
-PKER_SDRYG( 13, 76) = 0.367826E+00
-PKER_SDRYG( 13, 77) = 0.369293E+00
-PKER_SDRYG( 13, 78) = 0.370671E+00
-PKER_SDRYG( 13, 79) = 0.371964E+00
-PKER_SDRYG( 13, 80) = 0.373178E+00
-PKER_SDRYG( 14, 1) = 0.297502E+01
-PKER_SDRYG( 14, 2) = 0.278247E+01
-PKER_SDRYG( 14, 3) = 0.260165E+01
-PKER_SDRYG( 14, 4) = 0.243185E+01
-PKER_SDRYG( 14, 5) = 0.227240E+01
-PKER_SDRYG( 14, 6) = 0.212265E+01
-PKER_SDRYG( 14, 7) = 0.198202E+01
-PKER_SDRYG( 14, 8) = 0.184993E+01
-PKER_SDRYG( 14, 9) = 0.172587E+01
-PKER_SDRYG( 14, 10) = 0.160933E+01
-PKER_SDRYG( 14, 11) = 0.149985E+01
-PKER_SDRYG( 14, 12) = 0.139698E+01
-PKER_SDRYG( 14, 13) = 0.130029E+01
-PKER_SDRYG( 14, 14) = 0.120941E+01
-PKER_SDRYG( 14, 15) = 0.112394E+01
-PKER_SDRYG( 14, 16) = 0.104352E+01
-PKER_SDRYG( 14, 17) = 0.967815E+00
-PKER_SDRYG( 14, 18) = 0.896486E+00
-PKER_SDRYG( 14, 19) = 0.829209E+00
-PKER_SDRYG( 14, 20) = 0.765666E+00
-PKER_SDRYG( 14, 21) = 0.705545E+00
-PKER_SDRYG( 14, 22) = 0.648535E+00
-PKER_SDRYG( 14, 23) = 0.594329E+00
-PKER_SDRYG( 14, 24) = 0.542628E+00
-PKER_SDRYG( 14, 25) = 0.493150E+00
-PKER_SDRYG( 14, 26) = 0.445651E+00
-PKER_SDRYG( 14, 27) = 0.399968E+00
-PKER_SDRYG( 14, 28) = 0.356041E+00
-PKER_SDRYG( 14, 29) = 0.314021E+00
-PKER_SDRYG( 14, 30) = 0.274267E+00
-PKER_SDRYG( 14, 31) = 0.237374E+00
-PKER_SDRYG( 14, 32) = 0.204260E+00
-PKER_SDRYG( 14, 33) = 0.175765E+00
-PKER_SDRYG( 14, 34) = 0.152637E+00
-PKER_SDRYG( 14, 35) = 0.135365E+00
-PKER_SDRYG( 14, 36) = 0.123949E+00
-PKER_SDRYG( 14, 37) = 0.117859E+00
-PKER_SDRYG( 14, 38) = 0.116422E+00
-PKER_SDRYG( 14, 39) = 0.118727E+00
-PKER_SDRYG( 14, 40) = 0.123806E+00
-PKER_SDRYG( 14, 41) = 0.130898E+00
-PKER_SDRYG( 14, 42) = 0.139254E+00
-PKER_SDRYG( 14, 43) = 0.148386E+00
-PKER_SDRYG( 14, 44) = 0.157857E+00
-PKER_SDRYG( 14, 45) = 0.167407E+00
-PKER_SDRYG( 14, 46) = 0.176814E+00
-PKER_SDRYG( 14, 47) = 0.185950E+00
-PKER_SDRYG( 14, 48) = 0.194744E+00
-PKER_SDRYG( 14, 49) = 0.203138E+00
-PKER_SDRYG( 14, 50) = 0.211120E+00
-PKER_SDRYG( 14, 51) = 0.218676E+00
-PKER_SDRYG( 14, 52) = 0.225795E+00
-PKER_SDRYG( 14, 53) = 0.232480E+00
-PKER_SDRYG( 14, 54) = 0.238754E+00
-PKER_SDRYG( 14, 55) = 0.244647E+00
-PKER_SDRYG( 14, 56) = 0.250193E+00
-PKER_SDRYG( 14, 57) = 0.255414E+00
-PKER_SDRYG( 14, 58) = 0.260327E+00
-PKER_SDRYG( 14, 59) = 0.264945E+00
-PKER_SDRYG( 14, 60) = 0.269277E+00
-PKER_SDRYG( 14, 61) = 0.273339E+00
-PKER_SDRYG( 14, 62) = 0.277147E+00
-PKER_SDRYG( 14, 63) = 0.280716E+00
-PKER_SDRYG( 14, 64) = 0.284064E+00
-PKER_SDRYG( 14, 65) = 0.287203E+00
-PKER_SDRYG( 14, 66) = 0.290149E+00
-PKER_SDRYG( 14, 67) = 0.292912E+00
-PKER_SDRYG( 14, 68) = 0.295505E+00
-PKER_SDRYG( 14, 69) = 0.297939E+00
-PKER_SDRYG( 14, 70) = 0.300223E+00
-PKER_SDRYG( 14, 71) = 0.302366E+00
-PKER_SDRYG( 14, 72) = 0.304379E+00
-PKER_SDRYG( 14, 73) = 0.306268E+00
-PKER_SDRYG( 14, 74) = 0.308041E+00
-PKER_SDRYG( 14, 75) = 0.309706E+00
-PKER_SDRYG( 14, 76) = 0.311269E+00
-PKER_SDRYG( 14, 77) = 0.312736E+00
-PKER_SDRYG( 14, 78) = 0.314114E+00
-PKER_SDRYG( 14, 79) = 0.315407E+00
-PKER_SDRYG( 14, 80) = 0.316622E+00
-PKER_SDRYG( 15, 1) = 0.300103E+01
-PKER_SDRYG( 15, 2) = 0.280849E+01
-PKER_SDRYG( 15, 3) = 0.262769E+01
-PKER_SDRYG( 15, 4) = 0.245790E+01
-PKER_SDRYG( 15, 5) = 0.229847E+01
-PKER_SDRYG( 15, 6) = 0.214875E+01
-PKER_SDRYG( 15, 7) = 0.200814E+01
-PKER_SDRYG( 15, 8) = 0.187609E+01
-PKER_SDRYG( 15, 9) = 0.175207E+01
-PKER_SDRYG( 15, 10) = 0.163559E+01
-PKER_SDRYG( 15, 11) = 0.152617E+01
-PKER_SDRYG( 15, 12) = 0.142337E+01
-PKER_SDRYG( 15, 13) = 0.132679E+01
-PKER_SDRYG( 15, 14) = 0.123602E+01
-PKER_SDRYG( 15, 15) = 0.115070E+01
-PKER_SDRYG( 15, 16) = 0.107047E+01
-PKER_SDRYG( 15, 17) = 0.994997E+00
-PKER_SDRYG( 15, 18) = 0.923952E+00
-PKER_SDRYG( 15, 19) = 0.857028E+00
-PKER_SDRYG( 15, 20) = 0.793920E+00
-PKER_SDRYG( 15, 21) = 0.734336E+00
-PKER_SDRYG( 15, 22) = 0.677982E+00
-PKER_SDRYG( 15, 23) = 0.624570E+00
-PKER_SDRYG( 15, 24) = 0.573810E+00
-PKER_SDRYG( 15, 25) = 0.525415E+00
-PKER_SDRYG( 15, 26) = 0.479106E+00
-PKER_SDRYG( 15, 27) = 0.434625E+00
-PKER_SDRYG( 15, 28) = 0.391766E+00
-PKER_SDRYG( 15, 29) = 0.350403E+00
-PKER_SDRYG( 15, 30) = 0.310560E+00
-PKER_SDRYG( 15, 31) = 0.272465E+00
-PKER_SDRYG( 15, 32) = 0.236568E+00
-PKER_SDRYG( 15, 33) = 0.203576E+00
-PKER_SDRYG( 15, 34) = 0.174281E+00
-PKER_SDRYG( 15, 35) = 0.149398E+00
-PKER_SDRYG( 15, 36) = 0.129630E+00
-PKER_SDRYG( 15, 37) = 0.114988E+00
-PKER_SDRYG( 15, 38) = 0.105420E+00
-PKER_SDRYG( 15, 39) = 0.100387E+00
-PKER_SDRYG( 15, 40) = 0.991260E-01
-PKER_SDRYG( 15, 41) = 0.100927E+00
-PKER_SDRYG( 15, 42) = 0.105008E+00
-PKER_SDRYG( 15, 43) = 0.110722E+00
-PKER_SDRYG( 15, 44) = 0.117557E+00
-PKER_SDRYG( 15, 45) = 0.125044E+00
-PKER_SDRYG( 15, 46) = 0.132897E+00
-PKER_SDRYG( 15, 47) = 0.140870E+00
-PKER_SDRYG( 15, 48) = 0.148774E+00
-PKER_SDRYG( 15, 49) = 0.156516E+00
-PKER_SDRYG( 15, 50) = 0.164008E+00
-PKER_SDRYG( 15, 51) = 0.171192E+00
-PKER_SDRYG( 15, 52) = 0.178051E+00
-PKER_SDRYG( 15, 53) = 0.184577E+00
-PKER_SDRYG( 15, 54) = 0.190747E+00
-PKER_SDRYG( 15, 55) = 0.196565E+00
-PKER_SDRYG( 15, 56) = 0.202034E+00
-PKER_SDRYG( 15, 57) = 0.207177E+00
-PKER_SDRYG( 15, 58) = 0.212021E+00
-PKER_SDRYG( 15, 59) = 0.216585E+00
-PKER_SDRYG( 15, 60) = 0.220887E+00
-PKER_SDRYG( 15, 61) = 0.224936E+00
-PKER_SDRYG( 15, 62) = 0.228741E+00
-PKER_SDRYG( 15, 63) = 0.232312E+00
-PKER_SDRYG( 15, 64) = 0.235662E+00
-PKER_SDRYG( 15, 65) = 0.238803E+00
-PKER_SDRYG( 15, 66) = 0.241750E+00
-PKER_SDRYG( 15, 67) = 0.244514E+00
-PKER_SDRYG( 15, 68) = 0.247108E+00
-PKER_SDRYG( 15, 69) = 0.249543E+00
-PKER_SDRYG( 15, 70) = 0.251827E+00
-PKER_SDRYG( 15, 71) = 0.253971E+00
-PKER_SDRYG( 15, 72) = 0.255984E+00
-PKER_SDRYG( 15, 73) = 0.257873E+00
-PKER_SDRYG( 15, 74) = 0.259647E+00
-PKER_SDRYG( 15, 75) = 0.261312E+00
-PKER_SDRYG( 15, 76) = 0.262875E+00
-PKER_SDRYG( 15, 77) = 0.264342E+00
-PKER_SDRYG( 15, 78) = 0.265720E+00
-PKER_SDRYG( 15, 79) = 0.267013E+00
-PKER_SDRYG( 15, 80) = 0.268228E+00
-PKER_SDRYG( 16, 1) = 0.302329E+01
-PKER_SDRYG( 16, 2) = 0.283075E+01
-PKER_SDRYG( 16, 3) = 0.264996E+01
-PKER_SDRYG( 16, 4) = 0.248019E+01
-PKER_SDRYG( 16, 5) = 0.232076E+01
-PKER_SDRYG( 16, 6) = 0.217106E+01
-PKER_SDRYG( 16, 7) = 0.203047E+01
-PKER_SDRYG( 16, 8) = 0.189845E+01
-PKER_SDRYG( 16, 9) = 0.177446E+01
-PKER_SDRYG( 16, 10) = 0.165801E+01
-PKER_SDRYG( 16, 11) = 0.154864E+01
-PKER_SDRYG( 16, 12) = 0.144590E+01
-PKER_SDRYG( 16, 13) = 0.134939E+01
-PKER_SDRYG( 16, 14) = 0.125871E+01
-PKER_SDRYG( 16, 15) = 0.117350E+01
-PKER_SDRYG( 16, 16) = 0.109340E+01
-PKER_SDRYG( 16, 17) = 0.101809E+01
-PKER_SDRYG( 16, 18) = 0.947248E+00
-PKER_SDRYG( 16, 19) = 0.880574E+00
-PKER_SDRYG( 16, 20) = 0.817777E+00
-PKER_SDRYG( 16, 21) = 0.758577E+00
-PKER_SDRYG( 16, 22) = 0.702699E+00
-PKER_SDRYG( 16, 23) = 0.649873E+00
-PKER_SDRYG( 16, 24) = 0.599828E+00
-PKER_SDRYG( 16, 25) = 0.552297E+00
-PKER_SDRYG( 16, 26) = 0.507010E+00
-PKER_SDRYG( 16, 27) = 0.463701E+00
-PKER_SDRYG( 16, 28) = 0.422113E+00
-PKER_SDRYG( 16, 29) = 0.382023E+00
-PKER_SDRYG( 16, 30) = 0.343269E+00
-PKER_SDRYG( 16, 31) = 0.305794E+00
-PKER_SDRYG( 16, 32) = 0.269715E+00
-PKER_SDRYG( 16, 33) = 0.235329E+00
-PKER_SDRYG( 16, 34) = 0.203179E+00
-PKER_SDRYG( 16, 35) = 0.173939E+00
-PKER_SDRYG( 16, 36) = 0.148290E+00
-PKER_SDRYG( 16, 37) = 0.126911E+00
-PKER_SDRYG( 16, 38) = 0.110074E+00
-PKER_SDRYG( 16, 39) = 0.977722E-01
-PKER_SDRYG( 16, 40) = 0.897236E-01
-PKER_SDRYG( 16, 41) = 0.854547E-01
-PKER_SDRYG( 16, 42) = 0.842616E-01
-PKER_SDRYG( 16, 43) = 0.855520E-01
-PKER_SDRYG( 16, 44) = 0.887781E-01
-PKER_SDRYG( 16, 45) = 0.933675E-01
-PKER_SDRYG( 16, 46) = 0.989218E-01
-PKER_SDRYG( 16, 47) = 0.105082E+00
-PKER_SDRYG( 16, 48) = 0.111617E+00
-PKER_SDRYG( 16, 49) = 0.118278E+00
-PKER_SDRYG( 16, 50) = 0.124959E+00
-PKER_SDRYG( 16, 51) = 0.131533E+00
-PKER_SDRYG( 16, 52) = 0.137923E+00
-PKER_SDRYG( 16, 53) = 0.144095E+00
-PKER_SDRYG( 16, 54) = 0.150006E+00
-PKER_SDRYG( 16, 55) = 0.155648E+00
-PKER_SDRYG( 16, 56) = 0.161010E+00
-PKER_SDRYG( 16, 57) = 0.166080E+00
-PKER_SDRYG( 16, 58) = 0.170856E+00
-PKER_SDRYG( 16, 59) = 0.175353E+00
-PKER_SDRYG( 16, 60) = 0.179587E+00
-PKER_SDRYG( 16, 61) = 0.183582E+00
-PKER_SDRYG( 16, 62) = 0.187351E+00
-PKER_SDRYG( 16, 63) = 0.190904E+00
-PKER_SDRYG( 16, 64) = 0.194247E+00
-PKER_SDRYG( 16, 65) = 0.197388E+00
-PKER_SDRYG( 16, 66) = 0.200335E+00
-PKER_SDRYG( 16, 67) = 0.203101E+00
-PKER_SDRYG( 16, 68) = 0.205696E+00
-PKER_SDRYG( 16, 69) = 0.208131E+00
-PKER_SDRYG( 16, 70) = 0.210416E+00
-PKER_SDRYG( 16, 71) = 0.212560E+00
-PKER_SDRYG( 16, 72) = 0.214573E+00
-PKER_SDRYG( 16, 73) = 0.216463E+00
-PKER_SDRYG( 16, 74) = 0.218237E+00
-PKER_SDRYG( 16, 75) = 0.219902E+00
-PKER_SDRYG( 16, 76) = 0.221465E+00
-PKER_SDRYG( 16, 77) = 0.222933E+00
-PKER_SDRYG( 16, 78) = 0.224310E+00
-PKER_SDRYG( 16, 79) = 0.225604E+00
-PKER_SDRYG( 16, 80) = 0.226819E+00
-PKER_SDRYG( 17, 1) = 0.304233E+01
-PKER_SDRYG( 17, 2) = 0.284980E+01
-PKER_SDRYG( 17, 3) = 0.266901E+01
-PKER_SDRYG( 17, 4) = 0.249924E+01
-PKER_SDRYG( 17, 5) = 0.233983E+01
-PKER_SDRYG( 17, 6) = 0.219014E+01
-PKER_SDRYG( 17, 7) = 0.204957E+01
-PKER_SDRYG( 17, 8) = 0.191757E+01
-PKER_SDRYG( 17, 9) = 0.179360E+01
-PKER_SDRYG( 17, 10) = 0.167718E+01
-PKER_SDRYG( 17, 11) = 0.156784E+01
-PKER_SDRYG( 17, 12) = 0.146515E+01
-PKER_SDRYG( 17, 13) = 0.136868E+01
-PKER_SDRYG( 17, 14) = 0.127807E+01
-PKER_SDRYG( 17, 15) = 0.119293E+01
-PKER_SDRYG( 17, 16) = 0.111293E+01
-PKER_SDRYG( 17, 17) = 0.103773E+01
-PKER_SDRYG( 17, 18) = 0.967037E+00
-PKER_SDRYG( 17, 19) = 0.900542E+00
-PKER_SDRYG( 17, 20) = 0.837966E+00
-PKER_SDRYG( 17, 21) = 0.779040E+00
-PKER_SDRYG( 17, 22) = 0.723501E+00
-PKER_SDRYG( 17, 23) = 0.671093E+00
-PKER_SDRYG( 17, 24) = 0.621566E+00
-PKER_SDRYG( 17, 25) = 0.574672E+00
-PKER_SDRYG( 17, 26) = 0.530159E+00
-PKER_SDRYG( 17, 27) = 0.487780E+00
-PKER_SDRYG( 17, 28) = 0.447283E+00
-PKER_SDRYG( 17, 29) = 0.408426E+00
-PKER_SDRYG( 17, 30) = 0.370984E+00
-PKER_SDRYG( 17, 31) = 0.334777E+00
-PKER_SDRYG( 17, 32) = 0.299703E+00
-PKER_SDRYG( 17, 33) = 0.265795E+00
-PKER_SDRYG( 17, 34) = 0.233237E+00
-PKER_SDRYG( 17, 35) = 0.202426E+00
-PKER_SDRYG( 17, 36) = 0.173914E+00
-PKER_SDRYG( 17, 37) = 0.148301E+00
-PKER_SDRYG( 17, 38) = 0.126202E+00
-PKER_SDRYG( 17, 39) = 0.107984E+00
-PKER_SDRYG( 17, 40) = 0.936873E-01
-PKER_SDRYG( 17, 41) = 0.833770E-01
-PKER_SDRYG( 17, 42) = 0.765063E-01
-PKER_SDRYG( 17, 43) = 0.727630E-01
-PKER_SDRYG( 17, 44) = 0.715986E-01
-PKER_SDRYG( 17, 45) = 0.724633E-01
-PKER_SDRYG( 17, 46) = 0.749323E-01
-PKER_SDRYG( 17, 47) = 0.785778E-01
-PKER_SDRYG( 17, 48) = 0.830719E-01
-PKER_SDRYG( 17, 49) = 0.881403E-01
-PKER_SDRYG( 17, 50) = 0.935486E-01
-PKER_SDRYG( 17, 51) = 0.991378E-01
-PKER_SDRYG( 17, 52) = 0.104781E+00
-PKER_SDRYG( 17, 53) = 0.110369E+00
-PKER_SDRYG( 17, 54) = 0.115842E+00
-PKER_SDRYG( 17, 55) = 0.121148E+00
-PKER_SDRYG( 17, 56) = 0.126252E+00
-PKER_SDRYG( 17, 57) = 0.131138E+00
-PKER_SDRYG( 17, 58) = 0.135801E+00
-PKER_SDRYG( 17, 59) = 0.140221E+00
-PKER_SDRYG( 17, 60) = 0.144398E+00
-PKER_SDRYG( 17, 61) = 0.148334E+00
-PKER_SDRYG( 17, 62) = 0.152044E+00
-PKER_SDRYG( 17, 63) = 0.155543E+00
-PKER_SDRYG( 17, 64) = 0.158847E+00
-PKER_SDRYG( 17, 65) = 0.161964E+00
-PKER_SDRYG( 17, 66) = 0.164902E+00
-PKER_SDRYG( 17, 67) = 0.167664E+00
-PKER_SDRYG( 17, 68) = 0.170259E+00
-PKER_SDRYG( 17, 69) = 0.172695E+00
-PKER_SDRYG( 17, 70) = 0.174981E+00
-PKER_SDRYG( 17, 71) = 0.177126E+00
-PKER_SDRYG( 17, 72) = 0.179139E+00
-PKER_SDRYG( 17, 73) = 0.181029E+00
-PKER_SDRYG( 17, 74) = 0.182803E+00
-PKER_SDRYG( 17, 75) = 0.184468E+00
-PKER_SDRYG( 17, 76) = 0.186032E+00
-PKER_SDRYG( 17, 77) = 0.187499E+00
-PKER_SDRYG( 17, 78) = 0.188877E+00
-PKER_SDRYG( 17, 79) = 0.190171E+00
-PKER_SDRYG( 17, 80) = 0.191386E+00
-PKER_SDRYG( 18, 1) = 0.305861E+01
-PKER_SDRYG( 18, 2) = 0.286609E+01
-PKER_SDRYG( 18, 3) = 0.268530E+01
-PKER_SDRYG( 18, 4) = 0.251555E+01
-PKER_SDRYG( 18, 5) = 0.235614E+01
-PKER_SDRYG( 18, 6) = 0.220646E+01
-PKER_SDRYG( 18, 7) = 0.206590E+01
-PKER_SDRYG( 18, 8) = 0.193391E+01
-PKER_SDRYG( 18, 9) = 0.180996E+01
-PKER_SDRYG( 18, 10) = 0.169356E+01
-PKER_SDRYG( 18, 11) = 0.158425E+01
-PKER_SDRYG( 18, 12) = 0.148158E+01
-PKER_SDRYG( 18, 13) = 0.138516E+01
-PKER_SDRYG( 18, 14) = 0.129459E+01
-PKER_SDRYG( 18, 15) = 0.120951E+01
-PKER_SDRYG( 18, 16) = 0.112957E+01
-PKER_SDRYG( 18, 17) = 0.105446E+01
-PKER_SDRYG( 18, 18) = 0.983869E+00
-PKER_SDRYG( 18, 19) = 0.917502E+00
-PKER_SDRYG( 18, 20) = 0.855084E+00
-PKER_SDRYG( 18, 21) = 0.796353E+00
-PKER_SDRYG( 18, 22) = 0.741055E+00
-PKER_SDRYG( 18, 23) = 0.688947E+00
-PKER_SDRYG( 18, 24) = 0.639789E+00
-PKER_SDRYG( 18, 25) = 0.593351E+00
-PKER_SDRYG( 18, 26) = 0.549400E+00
-PKER_SDRYG( 18, 27) = 0.507707E+00
-PKER_SDRYG( 18, 28) = 0.468042E+00
-PKER_SDRYG( 18, 29) = 0.430173E+00
-PKER_SDRYG( 18, 30) = 0.393871E+00
-PKER_SDRYG( 18, 31) = 0.358924E+00
-PKER_SDRYG( 18, 32) = 0.325148E+00
-PKER_SDRYG( 18, 33) = 0.292420E+00
-PKER_SDRYG( 18, 34) = 0.260716E+00
-PKER_SDRYG( 18, 35) = 0.230147E+00
-PKER_SDRYG( 18, 36) = 0.200989E+00
-PKER_SDRYG( 18, 37) = 0.173670E+00
-PKER_SDRYG( 18, 38) = 0.148685E+00
-PKER_SDRYG( 18, 39) = 0.126560E+00
-PKER_SDRYG( 18, 40) = 0.107668E+00
-PKER_SDRYG( 18, 41) = 0.921800E-01
-PKER_SDRYG( 18, 42) = 0.801537E-01
-PKER_SDRYG( 18, 43) = 0.713567E-01
-PKER_SDRYG( 18, 44) = 0.654782E-01
-PKER_SDRYG( 18, 45) = 0.621068E-01
-PKER_SDRYG( 18, 46) = 0.608901E-01
-PKER_SDRYG( 18, 47) = 0.613554E-01
-PKER_SDRYG( 18, 48) = 0.631511E-01
-PKER_SDRYG( 18, 49) = 0.660247E-01
-PKER_SDRYG( 18, 50) = 0.696433E-01
-PKER_SDRYG( 18, 51) = 0.737836E-01
-PKER_SDRYG( 18, 52) = 0.782701E-01
-PKER_SDRYG( 18, 53) = 0.829722E-01
-PKER_SDRYG( 18, 54) = 0.877276E-01
-PKER_SDRYG( 18, 55) = 0.924938E-01
-PKER_SDRYG( 18, 56) = 0.971825E-01
-PKER_SDRYG( 18, 57) = 0.101744E+00
-PKER_SDRYG( 18, 58) = 0.106160E+00
-PKER_SDRYG( 18, 59) = 0.110397E+00
-PKER_SDRYG( 18, 60) = 0.114449E+00
-PKER_SDRYG( 18, 61) = 0.118307E+00
-PKER_SDRYG( 18, 62) = 0.121962E+00
-PKER_SDRYG( 18, 63) = 0.125411E+00
-PKER_SDRYG( 18, 64) = 0.128663E+00
-PKER_SDRYG( 18, 65) = 0.131730E+00
-PKER_SDRYG( 18, 66) = 0.134628E+00
-PKER_SDRYG( 18, 67) = 0.137364E+00
-PKER_SDRYG( 18, 68) = 0.139945E+00
-PKER_SDRYG( 18, 69) = 0.142375E+00
-PKER_SDRYG( 18, 70) = 0.144660E+00
-PKER_SDRYG( 18, 71) = 0.146805E+00
-PKER_SDRYG( 18, 72) = 0.148819E+00
-PKER_SDRYG( 18, 73) = 0.150709E+00
-PKER_SDRYG( 18, 74) = 0.152483E+00
-PKER_SDRYG( 18, 75) = 0.154149E+00
-PKER_SDRYG( 18, 76) = 0.155712E+00
-PKER_SDRYG( 18, 77) = 0.157180E+00
-PKER_SDRYG( 18, 78) = 0.158558E+00
-PKER_SDRYG( 18, 79) = 0.159852E+00
-PKER_SDRYG( 18, 80) = 0.161067E+00
-PKER_SDRYG( 19, 1) = 0.307255E+01
-PKER_SDRYG( 19, 2) = 0.288003E+01
-PKER_SDRYG( 19, 3) = 0.269925E+01
-PKER_SDRYG( 19, 4) = 0.252949E+01
-PKER_SDRYG( 19, 5) = 0.237010E+01
-PKER_SDRYG( 19, 6) = 0.222042E+01
-PKER_SDRYG( 19, 7) = 0.207987E+01
-PKER_SDRYG( 19, 8) = 0.194789E+01
-PKER_SDRYG( 19, 9) = 0.182395E+01
-PKER_SDRYG( 19, 10) = 0.170757E+01
-PKER_SDRYG( 19, 11) = 0.159827E+01
-PKER_SDRYG( 19, 12) = 0.149563E+01
-PKER_SDRYG( 19, 13) = 0.139923E+01
-PKER_SDRYG( 19, 14) = 0.130869E+01
-PKER_SDRYG( 19, 15) = 0.122365E+01
-PKER_SDRYG( 19, 16) = 0.114377E+01
-PKER_SDRYG( 19, 17) = 0.106872E+01
-PKER_SDRYG( 19, 18) = 0.998202E+00
-PKER_SDRYG( 19, 19) = 0.931926E+00
-PKER_SDRYG( 19, 20) = 0.869623E+00
-PKER_SDRYG( 19, 21) = 0.811031E+00
-PKER_SDRYG( 19, 22) = 0.755906E+00
-PKER_SDRYG( 19, 23) = 0.704011E+00
-PKER_SDRYG( 19, 24) = 0.655117E+00
-PKER_SDRYG( 19, 25) = 0.609004E+00
-PKER_SDRYG( 19, 26) = 0.565455E+00
-PKER_SDRYG( 19, 27) = 0.524258E+00
-PKER_SDRYG( 19, 28) = 0.485199E+00
-PKER_SDRYG( 19, 29) = 0.448065E+00
-PKER_SDRYG( 19, 30) = 0.412644E+00
-PKER_SDRYG( 19, 31) = 0.378726E+00
-PKER_SDRYG( 19, 32) = 0.346109E+00
-PKER_SDRYG( 19, 33) = 0.314617E+00
-PKER_SDRYG( 19, 34) = 0.284120E+00
-PKER_SDRYG( 19, 35) = 0.254566E+00
-PKER_SDRYG( 19, 36) = 0.226009E+00
-PKER_SDRYG( 19, 37) = 0.198643E+00
-PKER_SDRYG( 19, 38) = 0.172786E+00
-PKER_SDRYG( 19, 39) = 0.148830E+00
-PKER_SDRYG( 19, 40) = 0.127216E+00
-PKER_SDRYG( 19, 41) = 0.108286E+00
-PKER_SDRYG( 19, 42) = 0.922237E-01
-PKER_SDRYG( 19, 43) = 0.791616E-01
-PKER_SDRYG( 19, 44) = 0.689769E-01
-PKER_SDRYG( 19, 45) = 0.613748E-01
-PKER_SDRYG( 19, 46) = 0.562746E-01
-PKER_SDRYG( 19, 47) = 0.531554E-01
-PKER_SDRYG( 19, 48) = 0.518361E-01
-PKER_SDRYG( 19, 49) = 0.519775E-01
-PKER_SDRYG( 19, 50) = 0.532667E-01
-PKER_SDRYG( 19, 51) = 0.554628E-01
-PKER_SDRYG( 19, 52) = 0.583379E-01
-PKER_SDRYG( 19, 53) = 0.617174E-01
-PKER_SDRYG( 19, 54) = 0.654271E-01
-PKER_SDRYG( 19, 55) = 0.693467E-01
-PKER_SDRYG( 19, 56) = 0.733724E-01
-PKER_SDRYG( 19, 57) = 0.774227E-01
-PKER_SDRYG( 19, 58) = 0.814369E-01
-PKER_SDRYG( 19, 59) = 0.853677E-01
-PKER_SDRYG( 19, 60) = 0.891824E-01
-PKER_SDRYG( 19, 61) = 0.928586E-01
-PKER_SDRYG( 19, 62) = 0.963820E-01
-PKER_SDRYG( 19, 63) = 0.997497E-01
-PKER_SDRYG( 19, 64) = 0.102946E+00
-PKER_SDRYG( 19, 65) = 0.105969E+00
-PKER_SDRYG( 19, 66) = 0.108823E+00
-PKER_SDRYG( 19, 67) = 0.111515E+00
-PKER_SDRYG( 19, 68) = 0.114057E+00
-PKER_SDRYG( 19, 69) = 0.116458E+00
-PKER_SDRYG( 19, 70) = 0.118726E+00
-PKER_SDRYG( 19, 71) = 0.120863E+00
-PKER_SDRYG( 19, 72) = 0.122875E+00
-PKER_SDRYG( 19, 73) = 0.124765E+00
-PKER_SDRYG( 19, 74) = 0.126539E+00
-PKER_SDRYG( 19, 75) = 0.128205E+00
-PKER_SDRYG( 19, 76) = 0.129769E+00
-PKER_SDRYG( 19, 77) = 0.131237E+00
-PKER_SDRYG( 19, 78) = 0.132615E+00
-PKER_SDRYG( 19, 79) = 0.133909E+00
-PKER_SDRYG( 19, 80) = 0.135123E+00
-PKER_SDRYG( 20, 1) = 0.308447E+01
-PKER_SDRYG( 20, 2) = 0.289195E+01
-PKER_SDRYG( 20, 3) = 0.271117E+01
-PKER_SDRYG( 20, 4) = 0.254143E+01
-PKER_SDRYG( 20, 5) = 0.238203E+01
-PKER_SDRYG( 20, 6) = 0.223236E+01
-PKER_SDRYG( 20, 7) = 0.209182E+01
-PKER_SDRYG( 20, 8) = 0.195984E+01
-PKER_SDRYG( 20, 9) = 0.183591E+01
-PKER_SDRYG( 20, 10) = 0.171954E+01
-PKER_SDRYG( 20, 11) = 0.161026E+01
-PKER_SDRYG( 20, 12) = 0.150763E+01
-PKER_SDRYG( 20, 13) = 0.141126E+01
-PKER_SDRYG( 20, 14) = 0.132074E+01
-PKER_SDRYG( 20, 15) = 0.123573E+01
-PKER_SDRYG( 20, 16) = 0.115588E+01
-PKER_SDRYG( 20, 17) = 0.108088E+01
-PKER_SDRYG( 20, 18) = 0.101042E+01
-PKER_SDRYG( 20, 19) = 0.944207E+00
-PKER_SDRYG( 20, 20) = 0.881986E+00
-PKER_SDRYG( 20, 21) = 0.823495E+00
-PKER_SDRYG( 20, 22) = 0.768494E+00
-PKER_SDRYG( 20, 23) = 0.716752E+00
-PKER_SDRYG( 20, 24) = 0.668047E+00
-PKER_SDRYG( 20, 25) = 0.622167E+00
-PKER_SDRYG( 20, 26) = 0.578906E+00
-PKER_SDRYG( 20, 27) = 0.538063E+00
-PKER_SDRYG( 20, 28) = 0.499440E+00
-PKER_SDRYG( 20, 29) = 0.462841E+00
-PKER_SDRYG( 20, 30) = 0.428070E+00
-PKER_SDRYG( 20, 31) = 0.394930E+00
-PKER_SDRYG( 20, 32) = 0.363228E+00
-PKER_SDRYG( 20, 33) = 0.332779E+00
-PKER_SDRYG( 20, 34) = 0.303417E+00
-PKER_SDRYG( 20, 35) = 0.275014E+00
-PKER_SDRYG( 20, 36) = 0.247503E+00
-PKER_SDRYG( 20, 37) = 0.220909E+00
-PKER_SDRYG( 20, 38) = 0.195362E+00
-PKER_SDRYG( 20, 39) = 0.171100E+00
-PKER_SDRYG( 20, 40) = 0.148434E+00
-PKER_SDRYG( 20, 41) = 0.127703E+00
-PKER_SDRYG( 20, 42) = 0.109201E+00
-PKER_SDRYG( 20, 43) = 0.931127E-01
-PKER_SDRYG( 20, 44) = 0.795450E-01
-PKER_SDRYG( 20, 45) = 0.684619E-01
-PKER_SDRYG( 20, 46) = 0.597138E-01
-PKER_SDRYG( 20, 47) = 0.531640E-01
-PKER_SDRYG( 20, 48) = 0.485713E-01
-PKER_SDRYG( 20, 49) = 0.457023E-01
-PKER_SDRYG( 20, 50) = 0.442778E-01
-PKER_SDRYG( 20, 51) = 0.441239E-01
-PKER_SDRYG( 20, 52) = 0.449550E-01
-PKER_SDRYG( 20, 53) = 0.465614E-01
-PKER_SDRYG( 20, 54) = 0.488440E-01
-PKER_SDRYG( 20, 55) = 0.515730E-01
-PKER_SDRYG( 20, 56) = 0.546214E-01
-PKER_SDRYG( 20, 57) = 0.578936E-01
-PKER_SDRYG( 20, 58) = 0.612990E-01
-PKER_SDRYG( 20, 59) = 0.647325E-01
-PKER_SDRYG( 20, 60) = 0.681741E-01
-PKER_SDRYG( 20, 61) = 0.715569E-01
-PKER_SDRYG( 20, 62) = 0.748508E-01
-PKER_SDRYG( 20, 63) = 0.780435E-01
-PKER_SDRYG( 20, 64) = 0.811089E-01
-PKER_SDRYG( 20, 65) = 0.840439E-01
-PKER_SDRYG( 20, 66) = 0.868407E-01
-PKER_SDRYG( 20, 67) = 0.894925E-01
-PKER_SDRYG( 20, 68) = 0.919967E-01
-PKER_SDRYG( 20, 69) = 0.943597E-01
-PKER_SDRYG( 20, 70) = 0.965903E-01
-PKER_SDRYG( 20, 71) = 0.986983E-01
-PKER_SDRYG( 20, 72) = 0.100690E+00
-PKER_SDRYG( 20, 73) = 0.102570E+00
-PKER_SDRYG( 20, 74) = 0.104341E+00
-PKER_SDRYG( 20, 75) = 0.106005E+00
-PKER_SDRYG( 20, 76) = 0.107569E+00
-PKER_SDRYG( 20, 77) = 0.109037E+00
-PKER_SDRYG( 20, 78) = 0.110416E+00
-PKER_SDRYG( 20, 79) = 0.111710E+00
-PKER_SDRYG( 20, 80) = 0.112924E+00
-PKER_SDRYG( 21, 1) = 0.309467E+01
-PKER_SDRYG( 21, 2) = 0.290215E+01
-PKER_SDRYG( 21, 3) = 0.272138E+01
-PKER_SDRYG( 21, 4) = 0.255163E+01
-PKER_SDRYG( 21, 5) = 0.239224E+01
-PKER_SDRYG( 21, 6) = 0.224257E+01
-PKER_SDRYG( 21, 7) = 0.210203E+01
-PKER_SDRYG( 21, 8) = 0.197007E+01
-PKER_SDRYG( 21, 9) = 0.184615E+01
-PKER_SDRYG( 21, 10) = 0.172978E+01
-PKER_SDRYG( 21, 11) = 0.162051E+01
-PKER_SDRYG( 21, 12) = 0.151789E+01
-PKER_SDRYG( 21, 13) = 0.142153E+01
-PKER_SDRYG( 21, 14) = 0.133104E+01
-PKER_SDRYG( 21, 15) = 0.124605E+01
-PKER_SDRYG( 21, 16) = 0.116623E+01
-PKER_SDRYG( 21, 17) = 0.109126E+01
-PKER_SDRYG( 21, 18) = 0.102083E+01
-PKER_SDRYG( 21, 19) = 0.954672E+00
-PKER_SDRYG( 21, 20) = 0.892510E+00
-PKER_SDRYG( 21, 21) = 0.834093E+00
-PKER_SDRYG( 21, 22) = 0.779182E+00
-PKER_SDRYG( 21, 23) = 0.727550E+00
-PKER_SDRYG( 21, 24) = 0.678981E+00
-PKER_SDRYG( 21, 25) = 0.633268E+00
-PKER_SDRYG( 21, 26) = 0.590214E+00
-PKER_SDRYG( 21, 27) = 0.549625E+00
-PKER_SDRYG( 21, 28) = 0.511316E+00
-PKER_SDRYG( 21, 29) = 0.475102E+00
-PKER_SDRYG( 21, 30) = 0.440802E+00
-PKER_SDRYG( 21, 31) = 0.408235E+00
-PKER_SDRYG( 21, 32) = 0.377220E+00
-PKER_SDRYG( 21, 33) = 0.347581E+00
-PKER_SDRYG( 21, 34) = 0.319145E+00
-PKER_SDRYG( 21, 35) = 0.291760E+00
-PKER_SDRYG( 21, 36) = 0.265305E+00
-PKER_SDRYG( 21, 37) = 0.239708E+00
-PKER_SDRYG( 21, 38) = 0.214974E+00
-PKER_SDRYG( 21, 39) = 0.191196E+00
-PKER_SDRYG( 21, 40) = 0.168553E+00
-PKER_SDRYG( 21, 41) = 0.147284E+00
-PKER_SDRYG( 21, 42) = 0.127658E+00
-PKER_SDRYG( 21, 43) = 0.109904E+00
-PKER_SDRYG( 21, 44) = 0.941689E-01
-PKER_SDRYG( 21, 45) = 0.805651E-01
-PKER_SDRYG( 21, 46) = 0.690716E-01
-PKER_SDRYG( 21, 47) = 0.595900E-01
-PKER_SDRYG( 21, 48) = 0.520709E-01
-PKER_SDRYG( 21, 49) = 0.463366E-01
-PKER_SDRYG( 21, 50) = 0.421453E-01
-PKER_SDRYG( 21, 51) = 0.394599E-01
-PKER_SDRYG( 21, 52) = 0.379410E-01
-PKER_SDRYG( 21, 53) = 0.375222E-01
-PKER_SDRYG( 21, 54) = 0.379878E-01
-PKER_SDRYG( 21, 55) = 0.391684E-01
-PKER_SDRYG( 21, 56) = 0.409134E-01
-PKER_SDRYG( 21, 57) = 0.430879E-01
-PKER_SDRYG( 21, 58) = 0.455943E-01
-PKER_SDRYG( 21, 59) = 0.483097E-01
-PKER_SDRYG( 21, 60) = 0.511611E-01
-PKER_SDRYG( 21, 61) = 0.540832E-01
-PKER_SDRYG( 21, 62) = 0.570182E-01
-PKER_SDRYG( 21, 63) = 0.599262E-01
-PKER_SDRYG( 21, 64) = 0.627739E-01
-PKER_SDRYG( 21, 65) = 0.655385E-01
-PKER_SDRYG( 21, 66) = 0.682053E-01
-PKER_SDRYG( 21, 67) = 0.707625E-01
-PKER_SDRYG( 21, 68) = 0.732087E-01
-PKER_SDRYG( 21, 69) = 0.755315E-01
-PKER_SDRYG( 21, 70) = 0.777294E-01
-PKER_SDRYG( 21, 71) = 0.798052E-01
-PKER_SDRYG( 21, 72) = 0.817651E-01
-PKER_SDRYG( 21, 73) = 0.836157E-01
-PKER_SDRYG( 21, 74) = 0.853654E-01
-PKER_SDRYG( 21, 75) = 0.870178E-01
-PKER_SDRYG( 21, 76) = 0.885760E-01
-PKER_SDRYG( 21, 77) = 0.900423E-01
-PKER_SDRYG( 21, 78) = 0.914203E-01
-PKER_SDRYG( 21, 79) = 0.927143E-01
-PKER_SDRYG( 21, 80) = 0.939293E-01
-PKER_SDRYG( 22, 1) = 0.310340E+01
-PKER_SDRYG( 22, 2) = 0.291088E+01
-PKER_SDRYG( 22, 3) = 0.273011E+01
-PKER_SDRYG( 22, 4) = 0.256036E+01
-PKER_SDRYG( 22, 5) = 0.240098E+01
-PKER_SDRYG( 22, 6) = 0.225131E+01
-PKER_SDRYG( 22, 7) = 0.211078E+01
-PKER_SDRYG( 22, 8) = 0.197881E+01
-PKER_SDRYG( 22, 9) = 0.185490E+01
-PKER_SDRYG( 22, 10) = 0.173854E+01
-PKER_SDRYG( 22, 11) = 0.162927E+01
-PKER_SDRYG( 22, 12) = 0.152667E+01
-PKER_SDRYG( 22, 13) = 0.143032E+01
-PKER_SDRYG( 22, 14) = 0.133984E+01
-PKER_SDRYG( 22, 15) = 0.125486E+01
-PKER_SDRYG( 22, 16) = 0.117506E+01
-PKER_SDRYG( 22, 17) = 0.110011E+01
-PKER_SDRYG( 22, 18) = 0.102972E+01
-PKER_SDRYG( 22, 19) = 0.963596E+00
-PKER_SDRYG( 22, 20) = 0.901477E+00
-PKER_SDRYG( 22, 21) = 0.843114E+00
-PKER_SDRYG( 22, 22) = 0.788268E+00
-PKER_SDRYG( 22, 23) = 0.736716E+00
-PKER_SDRYG( 22, 24) = 0.688246E+00
-PKER_SDRYG( 22, 25) = 0.642654E+00
-PKER_SDRYG( 22, 26) = 0.599749E+00
-PKER_SDRYG( 22, 27) = 0.559343E+00
-PKER_SDRYG( 22, 28) = 0.521260E+00
-PKER_SDRYG( 22, 29) = 0.485324E+00
-PKER_SDRYG( 22, 30) = 0.451364E+00
-PKER_SDRYG( 22, 31) = 0.419213E+00
-PKER_SDRYG( 22, 32) = 0.388704E+00
-PKER_SDRYG( 22, 33) = 0.359670E+00
-PKER_SDRYG( 22, 34) = 0.331948E+00
-PKER_SDRYG( 22, 35) = 0.305382E+00
-PKER_SDRYG( 22, 36) = 0.279831E+00
-PKER_SDRYG( 22, 37) = 0.255180E+00
-PKER_SDRYG( 22, 38) = 0.231361E+00
-PKER_SDRYG( 22, 39) = 0.208367E+00
-PKER_SDRYG( 22, 40) = 0.186266E+00
-PKER_SDRYG( 22, 41) = 0.165198E+00
-PKER_SDRYG( 22, 42) = 0.145353E+00
-PKER_SDRYG( 22, 43) = 0.126934E+00
-PKER_SDRYG( 22, 44) = 0.110117E+00
-PKER_SDRYG( 22, 45) = 0.950242E-01
-PKER_SDRYG( 22, 46) = 0.817187E-01
-PKER_SDRYG( 22, 47) = 0.701989E-01
-PKER_SDRYG( 22, 48) = 0.604077E-01
-PKER_SDRYG( 22, 49) = 0.522862E-01
-PKER_SDRYG( 22, 50) = 0.457355E-01
-PKER_SDRYG( 22, 51) = 0.406096E-01
-PKER_SDRYG( 22, 52) = 0.368134E-01
-PKER_SDRYG( 22, 53) = 0.342156E-01
-PKER_SDRYG( 22, 54) = 0.326793E-01
-PKER_SDRYG( 22, 55) = 0.320323E-01
-PKER_SDRYG( 22, 56) = 0.321937E-01
-PKER_SDRYG( 22, 57) = 0.329850E-01
-PKER_SDRYG( 22, 58) = 0.342698E-01
-PKER_SDRYG( 22, 59) = 0.360064E-01
-PKER_SDRYG( 22, 60) = 0.380365E-01
-PKER_SDRYG( 22, 61) = 0.402760E-01
-PKER_SDRYG( 22, 62) = 0.426662E-01
-PKER_SDRYG( 22, 63) = 0.451444E-01
-PKER_SDRYG( 22, 64) = 0.476417E-01
-PKER_SDRYG( 22, 65) = 0.501412E-01
-PKER_SDRYG( 22, 66) = 0.525978E-01
-PKER_SDRYG( 22, 67) = 0.549924E-01
-PKER_SDRYG( 22, 68) = 0.573119E-01
-PKER_SDRYG( 22, 69) = 0.595407E-01
-PKER_SDRYG( 22, 70) = 0.616759E-01
-PKER_SDRYG( 22, 71) = 0.637106E-01
-PKER_SDRYG( 22, 72) = 0.656407E-01
-PKER_SDRYG( 22, 73) = 0.674641E-01
-PKER_SDRYG( 22, 74) = 0.691851E-01
-PKER_SDRYG( 22, 75) = 0.708107E-01
-PKER_SDRYG( 22, 76) = 0.723473E-01
-PKER_SDRYG( 22, 77) = 0.737996E-01
-PKER_SDRYG( 22, 78) = 0.751703E-01
-PKER_SDRYG( 22, 79) = 0.764615E-01
-PKER_SDRYG( 22, 80) = 0.776757E-01
-PKER_SDRYG( 23, 1) = 0.311087E+01
-PKER_SDRYG( 23, 2) = 0.291835E+01
-PKER_SDRYG( 23, 3) = 0.273758E+01
-PKER_SDRYG( 23, 4) = 0.256784E+01
-PKER_SDRYG( 23, 5) = 0.240845E+01
-PKER_SDRYG( 23, 6) = 0.225879E+01
-PKER_SDRYG( 23, 7) = 0.211825E+01
-PKER_SDRYG( 23, 8) = 0.198629E+01
-PKER_SDRYG( 23, 9) = 0.186238E+01
-PKER_SDRYG( 23, 10) = 0.174603E+01
-PKER_SDRYG( 23, 11) = 0.163677E+01
-PKER_SDRYG( 23, 12) = 0.153417E+01
-PKER_SDRYG( 23, 13) = 0.143783E+01
-PKER_SDRYG( 23, 14) = 0.134736E+01
-PKER_SDRYG( 23, 15) = 0.126240E+01
-PKER_SDRYG( 23, 16) = 0.118261E+01
-PKER_SDRYG( 23, 17) = 0.110768E+01
-PKER_SDRYG( 23, 18) = 0.103731E+01
-PKER_SDRYG( 23, 19) = 0.971209E+00
-PKER_SDRYG( 23, 20) = 0.909123E+00
-PKER_SDRYG( 23, 21) = 0.850799E+00
-PKER_SDRYG( 23, 22) = 0.796001E+00
-PKER_SDRYG( 23, 23) = 0.744508E+00
-PKER_SDRYG( 23, 24) = 0.696109E+00
-PKER_SDRYG( 23, 25) = 0.650606E+00
-PKER_SDRYG( 23, 26) = 0.607808E+00
-PKER_SDRYG( 23, 27) = 0.567535E+00
-PKER_SDRYG( 23, 28) = 0.529615E+00
-PKER_SDRYG( 23, 29) = 0.493879E+00
-PKER_SDRYG( 23, 30) = 0.460166E+00
-PKER_SDRYG( 23, 31) = 0.428317E+00
-PKER_SDRYG( 23, 32) = 0.398176E+00
-PKER_SDRYG( 23, 33) = 0.369589E+00
-PKER_SDRYG( 23, 34) = 0.342402E+00
-PKER_SDRYG( 23, 35) = 0.316466E+00
-PKER_SDRYG( 23, 36) = 0.291637E+00
-PKER_SDRYG( 23, 37) = 0.267784E+00
-PKER_SDRYG( 23, 38) = 0.244803E+00
-PKER_SDRYG( 23, 39) = 0.222628E+00
-PKER_SDRYG( 23, 40) = 0.201247E+00
-PKER_SDRYG( 23, 41) = 0.180713E+00
-PKER_SDRYG( 23, 42) = 0.161137E+00
-PKER_SDRYG( 23, 43) = 0.142671E+00
-PKER_SDRYG( 23, 44) = 0.125476E+00
-PKER_SDRYG( 23, 45) = 0.109687E+00
-PKER_SDRYG( 23, 46) = 0.953871E-01
-PKER_SDRYG( 23, 47) = 0.826169E-01
-PKER_SDRYG( 23, 48) = 0.713617E-01
-PKER_SDRYG( 23, 49) = 0.615668E-01
-PKER_SDRYG( 23, 50) = 0.531991E-01
-PKER_SDRYG( 23, 51) = 0.461730E-01
-PKER_SDRYG( 23, 52) = 0.403882E-01
-PKER_SDRYG( 23, 53) = 0.358096E-01
-PKER_SDRYG( 23, 54) = 0.323398E-01
-PKER_SDRYG( 23, 55) = 0.298278E-01
-PKER_SDRYG( 23, 56) = 0.282645E-01
-PKER_SDRYG( 23, 57) = 0.274478E-01
-PKER_SDRYG( 23, 58) = 0.273472E-01
-PKER_SDRYG( 23, 59) = 0.278235E-01
-PKER_SDRYG( 23, 60) = 0.287808E-01
-PKER_SDRYG( 23, 61) = 0.301115E-01
-PKER_SDRYG( 23, 62) = 0.317312E-01
-PKER_SDRYG( 23, 63) = 0.335818E-01
-PKER_SDRYG( 23, 64) = 0.355711E-01
-PKER_SDRYG( 23, 65) = 0.376525E-01
-PKER_SDRYG( 23, 66) = 0.397832E-01
-PKER_SDRYG( 23, 67) = 0.419209E-01
-PKER_SDRYG( 23, 68) = 0.440372E-01
-PKER_SDRYG( 23, 69) = 0.461097E-01
-PKER_SDRYG( 23, 70) = 0.481216E-01
-PKER_SDRYG( 23, 71) = 0.500634E-01
-PKER_SDRYG( 23, 72) = 0.519255E-01
-PKER_SDRYG( 23, 73) = 0.537073E-01
-PKER_SDRYG( 23, 74) = 0.553996E-01
-PKER_SDRYG( 23, 75) = 0.570010E-01
-PKER_SDRYG( 23, 76) = 0.585138E-01
-PKER_SDRYG( 23, 77) = 0.599425E-01
-PKER_SDRYG( 23, 78) = 0.612921E-01
-PKER_SDRYG( 23, 79) = 0.625682E-01
-PKER_SDRYG( 23, 80) = 0.637735E-01
-PKER_SDRYG( 24, 1) = 0.311725E+01
-PKER_SDRYG( 24, 2) = 0.292474E+01
-PKER_SDRYG( 24, 3) = 0.274397E+01
-PKER_SDRYG( 24, 4) = 0.257423E+01
-PKER_SDRYG( 24, 5) = 0.241484E+01
-PKER_SDRYG( 24, 6) = 0.226518E+01
-PKER_SDRYG( 24, 7) = 0.212465E+01
-PKER_SDRYG( 24, 8) = 0.199269E+01
-PKER_SDRYG( 24, 9) = 0.186878E+01
-PKER_SDRYG( 24, 10) = 0.175243E+01
-PKER_SDRYG( 24, 11) = 0.164318E+01
-PKER_SDRYG( 24, 12) = 0.154059E+01
-PKER_SDRYG( 24, 13) = 0.144425E+01
-PKER_SDRYG( 24, 14) = 0.135379E+01
-PKER_SDRYG( 24, 15) = 0.126883E+01
-PKER_SDRYG( 24, 16) = 0.118906E+01
-PKER_SDRYG( 24, 17) = 0.111414E+01
-PKER_SDRYG( 24, 18) = 0.104379E+01
-PKER_SDRYG( 24, 19) = 0.977708E+00
-PKER_SDRYG( 24, 20) = 0.915646E+00
-PKER_SDRYG( 24, 21) = 0.857350E+00
-PKER_SDRYG( 24, 22) = 0.802588E+00
-PKER_SDRYG( 24, 23) = 0.751138E+00
-PKER_SDRYG( 24, 24) = 0.702792E+00
-PKER_SDRYG( 24, 25) = 0.657353E+00
-PKER_SDRYG( 24, 26) = 0.614634E+00
-PKER_SDRYG( 24, 27) = 0.574458E+00
-PKER_SDRYG( 24, 28) = 0.536656E+00
-PKER_SDRYG( 24, 29) = 0.501065E+00
-PKER_SDRYG( 24, 30) = 0.467530E+00
-PKER_SDRYG( 24, 31) = 0.435900E+00
-PKER_SDRYG( 24, 32) = 0.406028E+00
-PKER_SDRYG( 24, 33) = 0.377767E+00
-PKER_SDRYG( 24, 34) = 0.350976E+00
-PKER_SDRYG( 24, 35) = 0.325513E+00
-PKER_SDRYG( 24, 36) = 0.301240E+00
-PKER_SDRYG( 24, 37) = 0.278025E+00
-PKER_SDRYG( 24, 38) = 0.255748E+00
-PKER_SDRYG( 24, 39) = 0.234312E+00
-PKER_SDRYG( 24, 40) = 0.213656E+00
-PKER_SDRYG( 24, 41) = 0.193765E+00
-PKER_SDRYG( 24, 42) = 0.174681E+00
-PKER_SDRYG( 24, 43) = 0.156497E+00
-PKER_SDRYG( 24, 44) = 0.139338E+00
-PKER_SDRYG( 24, 45) = 0.123333E+00
-PKER_SDRYG( 24, 46) = 0.108586E+00
-PKER_SDRYG( 24, 47) = 0.951564E-01
-PKER_SDRYG( 24, 48) = 0.830549E-01
-PKER_SDRYG( 24, 49) = 0.722530E-01
-PKER_SDRYG( 24, 50) = 0.627027E-01
-PKER_SDRYG( 24, 51) = 0.543516E-01
-PKER_SDRYG( 24, 52) = 0.471379E-01
-PKER_SDRYG( 24, 53) = 0.410008E-01
-PKER_SDRYG( 24, 54) = 0.358942E-01
-PKER_SDRYG( 24, 55) = 0.317729E-01
-PKER_SDRYG( 24, 56) = 0.285445E-01
-PKER_SDRYG( 24, 57) = 0.261582E-01
-PKER_SDRYG( 24, 58) = 0.245542E-01
-PKER_SDRYG( 24, 59) = 0.236475E-01
-PKER_SDRYG( 24, 60) = 0.233281E-01
-PKER_SDRYG( 24, 61) = 0.235527E-01
-PKER_SDRYG( 24, 62) = 0.242044E-01
-PKER_SDRYG( 24, 63) = 0.251935E-01
-PKER_SDRYG( 24, 64) = 0.264894E-01
-PKER_SDRYG( 24, 65) = 0.279912E-01
-PKER_SDRYG( 24, 66) = 0.296368E-01
-PKER_SDRYG( 24, 67) = 0.313850E-01
-PKER_SDRYG( 24, 68) = 0.331947E-01
-PKER_SDRYG( 24, 69) = 0.350172E-01
-PKER_SDRYG( 24, 70) = 0.368385E-01
-PKER_SDRYG( 24, 71) = 0.386288E-01
-PKER_SDRYG( 24, 72) = 0.403749E-01
-PKER_SDRYG( 24, 73) = 0.420647E-01
-PKER_SDRYG( 24, 74) = 0.436892E-01
-PKER_SDRYG( 24, 75) = 0.452460E-01
-PKER_SDRYG( 24, 76) = 0.467291E-01
-PKER_SDRYG( 24, 77) = 0.481362E-01
-PKER_SDRYG( 24, 78) = 0.494656E-01
-PKER_SDRYG( 24, 79) = 0.507207E-01
-PKER_SDRYG( 24, 80) = 0.519066E-01
-PKER_SDRYG( 25, 1) = 0.312272E+01
-PKER_SDRYG( 25, 2) = 0.293021E+01
-PKER_SDRYG( 25, 3) = 0.274944E+01
-PKER_SDRYG( 25, 4) = 0.257970E+01
-PKER_SDRYG( 25, 5) = 0.242031E+01
-PKER_SDRYG( 25, 6) = 0.227065E+01
-PKER_SDRYG( 25, 7) = 0.213012E+01
-PKER_SDRYG( 25, 8) = 0.199817E+01
-PKER_SDRYG( 25, 9) = 0.187426E+01
-PKER_SDRYG( 25, 10) = 0.175791E+01
-PKER_SDRYG( 25, 11) = 0.164866E+01
-PKER_SDRYG( 25, 12) = 0.154607E+01
-PKER_SDRYG( 25, 13) = 0.144974E+01
-PKER_SDRYG( 25, 14) = 0.135928E+01
-PKER_SDRYG( 25, 15) = 0.127434E+01
-PKER_SDRYG( 25, 16) = 0.119457E+01
-PKER_SDRYG( 25, 17) = 0.111967E+01
-PKER_SDRYG( 25, 18) = 0.104932E+01
-PKER_SDRYG( 25, 19) = 0.983257E+00
-PKER_SDRYG( 25, 20) = 0.921213E+00
-PKER_SDRYG( 25, 21) = 0.862939E+00
-PKER_SDRYG( 25, 22) = 0.808203E+00
-PKER_SDRYG( 25, 23) = 0.756785E+00
-PKER_SDRYG( 25, 24) = 0.708478E+00
-PKER_SDRYG( 25, 25) = 0.663086E+00
-PKER_SDRYG( 25, 26) = 0.620425E+00
-PKER_SDRYG( 25, 27) = 0.580319E+00
-PKER_SDRYG( 25, 28) = 0.542604E+00
-PKER_SDRYG( 25, 29) = 0.507119E+00
-PKER_SDRYG( 25, 30) = 0.473714E+00
-PKER_SDRYG( 25, 31) = 0.442243E+00
-PKER_SDRYG( 25, 32) = 0.412566E+00
-PKER_SDRYG( 25, 33) = 0.384544E+00
-PKER_SDRYG( 25, 34) = 0.358043E+00
-PKER_SDRYG( 25, 35) = 0.332931E+00
-PKER_SDRYG( 25, 36) = 0.309077E+00
-PKER_SDRYG( 25, 37) = 0.286354E+00
-PKER_SDRYG( 25, 38) = 0.264640E+00
-PKER_SDRYG( 25, 39) = 0.243825E+00
-PKER_SDRYG( 25, 40) = 0.223821E+00
-PKER_SDRYG( 25, 41) = 0.204568E+00
-PKER_SDRYG( 25, 42) = 0.186052E+00
-PKER_SDRYG( 25, 43) = 0.168306E+00
-PKER_SDRYG( 25, 44) = 0.151409E+00
-PKER_SDRYG( 25, 45) = 0.135468E+00
-PKER_SDRYG( 25, 46) = 0.120590E+00
-PKER_SDRYG( 25, 47) = 0.106855E+00
-PKER_SDRYG( 25, 48) = 0.943025E-01
-PKER_SDRYG( 25, 49) = 0.829276E-01
-PKER_SDRYG( 25, 50) = 0.726914E-01
-PKER_SDRYG( 25, 51) = 0.635357E-01
-PKER_SDRYG( 25, 52) = 0.554038E-01
-PKER_SDRYG( 25, 53) = 0.482351E-01
-PKER_SDRYG( 25, 54) = 0.419759E-01
-PKER_SDRYG( 25, 55) = 0.365989E-01
-PKER_SDRYG( 25, 56) = 0.320611E-01
-PKER_SDRYG( 25, 57) = 0.283066E-01
-PKER_SDRYG( 25, 58) = 0.253217E-01
-PKER_SDRYG( 25, 59) = 0.230681E-01
-PKER_SDRYG( 25, 60) = 0.214485E-01
-PKER_SDRYG( 25, 61) = 0.204594E-01
-PKER_SDRYG( 25, 62) = 0.199802E-01
-PKER_SDRYG( 25, 63) = 0.199893E-01
-PKER_SDRYG( 25, 64) = 0.203928E-01
-PKER_SDRYG( 25, 65) = 0.211342E-01
-PKER_SDRYG( 25, 66) = 0.221323E-01
-PKER_SDRYG( 25, 67) = 0.233322E-01
-PKER_SDRYG( 25, 68) = 0.246954E-01
-PKER_SDRYG( 25, 69) = 0.261541E-01
-PKER_SDRYG( 25, 70) = 0.276764E-01
-PKER_SDRYG( 25, 71) = 0.292337E-01
-PKER_SDRYG( 25, 72) = 0.307948E-01
-PKER_SDRYG( 25, 73) = 0.323388E-01
-PKER_SDRYG( 25, 74) = 0.338507E-01
-PKER_SDRYG( 25, 75) = 0.353179E-01
-PKER_SDRYG( 25, 76) = 0.367344E-01
-PKER_SDRYG( 25, 77) = 0.380928E-01
-PKER_SDRYG( 25, 78) = 0.393925E-01
-PKER_SDRYG( 25, 79) = 0.406269E-01
-PKER_SDRYG( 25, 80) = 0.417949E-01
-PKER_SDRYG( 26, 1) = 0.312740E+01
-PKER_SDRYG( 26, 2) = 0.293488E+01
-PKER_SDRYG( 26, 3) = 0.275412E+01
-PKER_SDRYG( 26, 4) = 0.258438E+01
-PKER_SDRYG( 26, 5) = 0.242499E+01
-PKER_SDRYG( 26, 6) = 0.227533E+01
-PKER_SDRYG( 26, 7) = 0.213481E+01
-PKER_SDRYG( 26, 8) = 0.200285E+01
-PKER_SDRYG( 26, 9) = 0.187895E+01
-PKER_SDRYG( 26, 10) = 0.176260E+01
-PKER_SDRYG( 26, 11) = 0.165335E+01
-PKER_SDRYG( 26, 12) = 0.155077E+01
-PKER_SDRYG( 26, 13) = 0.145444E+01
-PKER_SDRYG( 26, 14) = 0.136398E+01
-PKER_SDRYG( 26, 15) = 0.127904E+01
-PKER_SDRYG( 26, 16) = 0.119928E+01
-PKER_SDRYG( 26, 17) = 0.112439E+01
-PKER_SDRYG( 26, 18) = 0.105405E+01
-PKER_SDRYG( 26, 19) = 0.987997E+00
-PKER_SDRYG( 26, 20) = 0.925966E+00
-PKER_SDRYG( 26, 21) = 0.867709E+00
-PKER_SDRYG( 26, 22) = 0.812992E+00
-PKER_SDRYG( 26, 23) = 0.761598E+00
-PKER_SDRYG( 26, 24) = 0.713319E+00
-PKER_SDRYG( 26, 25) = 0.667963E+00
-PKER_SDRYG( 26, 26) = 0.625344E+00
-PKER_SDRYG( 26, 27) = 0.585291E+00
-PKER_SDRYG( 26, 28) = 0.547639E+00
-PKER_SDRYG( 26, 29) = 0.512232E+00
-PKER_SDRYG( 26, 30) = 0.478922E+00
-PKER_SDRYG( 26, 31) = 0.447567E+00
-PKER_SDRYG( 26, 32) = 0.418032E+00
-PKER_SDRYG( 26, 33) = 0.390184E+00
-PKER_SDRYG( 26, 34) = 0.363896E+00
-PKER_SDRYG( 26, 35) = 0.339042E+00
-PKER_SDRYG( 26, 36) = 0.315501E+00
-PKER_SDRYG( 26, 37) = 0.293150E+00
-PKER_SDRYG( 26, 38) = 0.271872E+00
-PKER_SDRYG( 26, 39) = 0.251556E+00
-PKER_SDRYG( 26, 40) = 0.232100E+00
-PKER_SDRYG( 26, 41) = 0.213421E+00
-PKER_SDRYG( 26, 42) = 0.195465E+00
-PKER_SDRYG( 26, 43) = 0.178217E+00
-PKER_SDRYG( 26, 44) = 0.161705E+00
-PKER_SDRYG( 26, 45) = 0.145996E+00
-PKER_SDRYG( 26, 46) = 0.131182E+00
-PKER_SDRYG( 26, 47) = 0.117353E+00
-PKER_SDRYG( 26, 48) = 0.104576E+00
-PKER_SDRYG( 26, 49) = 0.928753E-01
-PKER_SDRYG( 26, 50) = 0.822363E-01
-PKER_SDRYG( 26, 51) = 0.726111E-01
-PKER_SDRYG( 26, 52) = 0.639383E-01
-PKER_SDRYG( 26, 53) = 0.561507E-01
-PKER_SDRYG( 26, 54) = 0.491858E-01
-PKER_SDRYG( 26, 55) = 0.429946E-01
-PKER_SDRYG( 26, 56) = 0.375430E-01
-PKER_SDRYG( 26, 57) = 0.327992E-01
-PKER_SDRYG( 26, 58) = 0.287370E-01
-PKER_SDRYG( 26, 59) = 0.253369E-01
-PKER_SDRYG( 26, 60) = 0.225882E-01
-PKER_SDRYG( 26, 61) = 0.204316E-01
-PKER_SDRYG( 26, 62) = 0.188398E-01
-PKER_SDRYG( 26, 63) = 0.177875E-01
-PKER_SDRYG( 26, 64) = 0.172085E-01
-PKER_SDRYG( 26, 65) = 0.170417E-01
-PKER_SDRYG( 26, 66) = 0.172497E-01
-PKER_SDRYG( 26, 67) = 0.177584E-01
-PKER_SDRYG( 26, 68) = 0.185080E-01
-PKER_SDRYG( 26, 69) = 0.194673E-01
-PKER_SDRYG( 26, 70) = 0.205752E-01
-PKER_SDRYG( 26, 71) = 0.217845E-01
-PKER_SDRYG( 26, 72) = 0.230647E-01
-PKER_SDRYG( 26, 73) = 0.243883E-01
-PKER_SDRYG( 26, 74) = 0.257208E-01
-PKER_SDRYG( 26, 75) = 0.270503E-01
-PKER_SDRYG( 26, 76) = 0.283574E-01
-PKER_SDRYG( 26, 77) = 0.296325E-01
-PKER_SDRYG( 26, 78) = 0.308653E-01
-PKER_SDRYG( 26, 79) = 0.320509E-01
-PKER_SDRYG( 26, 80) = 0.331872E-01
-PKER_SDRYG( 27, 1) = 0.313140E+01
-PKER_SDRYG( 27, 2) = 0.293889E+01
-PKER_SDRYG( 27, 3) = 0.275812E+01
-PKER_SDRYG( 27, 4) = 0.258838E+01
-PKER_SDRYG( 27, 5) = 0.242900E+01
-PKER_SDRYG( 27, 6) = 0.227934E+01
-PKER_SDRYG( 27, 7) = 0.213881E+01
-PKER_SDRYG( 27, 8) = 0.200686E+01
-PKER_SDRYG( 27, 9) = 0.188295E+01
-PKER_SDRYG( 27, 10) = 0.176661E+01
-PKER_SDRYG( 27, 11) = 0.165736E+01
-PKER_SDRYG( 27, 12) = 0.155478E+01
-PKER_SDRYG( 27, 13) = 0.145845E+01
-PKER_SDRYG( 27, 14) = 0.136800E+01
-PKER_SDRYG( 27, 15) = 0.128307E+01
-PKER_SDRYG( 27, 16) = 0.120331E+01
-PKER_SDRYG( 27, 17) = 0.112842E+01
-PKER_SDRYG( 27, 18) = 0.105809E+01
-PKER_SDRYG( 27, 19) = 0.992047E+00
-PKER_SDRYG( 27, 20) = 0.930026E+00
-PKER_SDRYG( 27, 21) = 0.871781E+00
-PKER_SDRYG( 27, 22) = 0.817079E+00
-PKER_SDRYG( 27, 23) = 0.765702E+00
-PKER_SDRYG( 27, 24) = 0.717445E+00
-PKER_SDRYG( 27, 25) = 0.672115E+00
-PKER_SDRYG( 27, 26) = 0.629528E+00
-PKER_SDRYG( 27, 27) = 0.589513E+00
-PKER_SDRYG( 27, 28) = 0.551908E+00
-PKER_SDRYG( 27, 29) = 0.516558E+00
-PKER_SDRYG( 27, 30) = 0.483318E+00
-PKER_SDRYG( 27, 31) = 0.452049E+00
-PKER_SDRYG( 27, 32) = 0.422618E+00
-PKER_SDRYG( 27, 33) = 0.394898E+00
-PKER_SDRYG( 27, 34) = 0.368766E+00
-PKER_SDRYG( 27, 35) = 0.344102E+00
-PKER_SDRYG( 27, 36) = 0.320791E+00
-PKER_SDRYG( 27, 37) = 0.298718E+00
-PKER_SDRYG( 27, 38) = 0.277772E+00
-PKER_SDRYG( 27, 39) = 0.257843E+00
-PKER_SDRYG( 27, 40) = 0.238828E+00
-PKER_SDRYG( 27, 41) = 0.220635E+00
-PKER_SDRYG( 27, 42) = 0.203186E+00
-PKER_SDRYG( 27, 43) = 0.186431E+00
-PKER_SDRYG( 27, 44) = 0.170354E+00
-PKER_SDRYG( 27, 45) = 0.154979E+00
-PKER_SDRYG( 27, 46) = 0.140365E+00
-PKER_SDRYG( 27, 47) = 0.126590E+00
-PKER_SDRYG( 27, 48) = 0.113733E+00
-PKER_SDRYG( 27, 49) = 0.101848E+00
-PKER_SDRYG( 27, 50) = 0.909527E-01
-PKER_SDRYG( 27, 51) = 0.810258E-01
-PKER_SDRYG( 27, 52) = 0.720165E-01
-PKER_SDRYG( 27, 53) = 0.638590E-01
-PKER_SDRYG( 27, 54) = 0.564823E-01
-PKER_SDRYG( 27, 55) = 0.498226E-01
-PKER_SDRYG( 27, 56) = 0.438282E-01
-PKER_SDRYG( 27, 57) = 0.384597E-01
-PKER_SDRYG( 27, 58) = 0.336864E-01
-PKER_SDRYG( 27, 59) = 0.294887E-01
-PKER_SDRYG( 27, 60) = 0.258548E-01
-PKER_SDRYG( 27, 61) = 0.227747E-01
-PKER_SDRYG( 27, 62) = 0.202164E-01
-PKER_SDRYG( 27, 63) = 0.181747E-01
-PKER_SDRYG( 27, 64) = 0.166401E-01
-PKER_SDRYG( 27, 65) = 0.155455E-01
-PKER_SDRYG( 27, 66) = 0.148848E-01
-PKER_SDRYG( 27, 67) = 0.145861E-01
-PKER_SDRYG( 27, 68) = 0.146311E-01
-PKER_SDRYG( 27, 69) = 0.149518E-01
-PKER_SDRYG( 27, 70) = 0.155127E-01
-PKER_SDRYG( 27, 71) = 0.162573E-01
-PKER_SDRYG( 27, 72) = 0.171427E-01
-PKER_SDRYG( 27, 73) = 0.181459E-01
-PKER_SDRYG( 27, 74) = 0.192163E-01
-PKER_SDRYG( 27, 75) = 0.203307E-01
-PKER_SDRYG( 27, 76) = 0.214704E-01
-PKER_SDRYG( 27, 77) = 0.226118E-01
-PKER_SDRYG( 27, 78) = 0.237398E-01
-PKER_SDRYG( 27, 79) = 0.248439E-01
-PKER_SDRYG( 27, 80) = 0.259151E-01
-PKER_SDRYG( 28, 1) = 0.313482E+01
-PKER_SDRYG( 28, 2) = 0.294231E+01
-PKER_SDRYG( 28, 3) = 0.276154E+01
-PKER_SDRYG( 28, 4) = 0.259180E+01
-PKER_SDRYG( 28, 5) = 0.243242E+01
-PKER_SDRYG( 28, 6) = 0.228277E+01
-PKER_SDRYG( 28, 7) = 0.214224E+01
-PKER_SDRYG( 28, 8) = 0.201029E+01
-PKER_SDRYG( 28, 9) = 0.188638E+01
-PKER_SDRYG( 28, 10) = 0.177004E+01
-PKER_SDRYG( 28, 11) = 0.166079E+01
-PKER_SDRYG( 28, 12) = 0.155821E+01
-PKER_SDRYG( 28, 13) = 0.146189E+01
-PKER_SDRYG( 28, 14) = 0.137144E+01
-PKER_SDRYG( 28, 15) = 0.128651E+01
-PKER_SDRYG( 28, 16) = 0.120676E+01
-PKER_SDRYG( 28, 17) = 0.113187E+01
-PKER_SDRYG( 28, 18) = 0.106155E+01
-PKER_SDRYG( 28, 19) = 0.995508E+00
-PKER_SDRYG( 28, 20) = 0.933495E+00
-PKER_SDRYG( 28, 21) = 0.875258E+00
-PKER_SDRYG( 28, 22) = 0.820568E+00
-PKER_SDRYG( 28, 23) = 0.769204E+00
-PKER_SDRYG( 28, 24) = 0.720964E+00
-PKER_SDRYG( 28, 25) = 0.675653E+00
-PKER_SDRYG( 28, 26) = 0.633090E+00
-PKER_SDRYG( 28, 27) = 0.593104E+00
-PKER_SDRYG( 28, 28) = 0.555533E+00
-PKER_SDRYG( 28, 29) = 0.520226E+00
-PKER_SDRYG( 28, 30) = 0.487038E+00
-PKER_SDRYG( 28, 31) = 0.455832E+00
-PKER_SDRYG( 28, 32) = 0.426477E+00
-PKER_SDRYG( 28, 33) = 0.398851E+00
-PKER_SDRYG( 28, 34) = 0.372833E+00
-PKER_SDRYG( 28, 35) = 0.348309E+00
-PKER_SDRYG( 28, 36) = 0.325168E+00
-PKER_SDRYG( 28, 37) = 0.303302E+00
-PKER_SDRYG( 28, 38) = 0.282604E+00
-PKER_SDRYG( 28, 39) = 0.262970E+00
-PKER_SDRYG( 28, 40) = 0.244301E+00
-PKER_SDRYG( 28, 41) = 0.226500E+00
-PKER_SDRYG( 28, 42) = 0.209481E+00
-PKER_SDRYG( 28, 43) = 0.193174E+00
-PKER_SDRYG( 28, 44) = 0.177531E+00
-PKER_SDRYG( 28, 45) = 0.162537E+00
-PKER_SDRYG( 28, 46) = 0.148212E+00
-PKER_SDRYG( 28, 47) = 0.134605E+00
-PKER_SDRYG( 28, 48) = 0.121788E+00
-PKER_SDRYG( 28, 49) = 0.109827E+00
-PKER_SDRYG( 28, 50) = 0.987695E-01
-PKER_SDRYG( 28, 51) = 0.886258E-01
-PKER_SDRYG( 28, 52) = 0.793726E-01
-PKER_SDRYG( 28, 53) = 0.709584E-01
-PKER_SDRYG( 28, 54) = 0.633172E-01
-PKER_SDRYG( 28, 55) = 0.563782E-01
-PKER_SDRYG( 28, 56) = 0.500750E-01
-PKER_SDRYG( 28, 57) = 0.443534E-01
-PKER_SDRYG( 28, 58) = 0.391703E-01
-PKER_SDRYG( 28, 59) = 0.344918E-01
-PKER_SDRYG( 28, 60) = 0.302964E-01
-PKER_SDRYG( 28, 61) = 0.265756E-01
-PKER_SDRYG( 28, 62) = 0.233172E-01
-PKER_SDRYG( 28, 63) = 0.205132E-01
-PKER_SDRYG( 28, 64) = 0.181605E-01
-PKER_SDRYG( 28, 65) = 0.162558E-01
-PKER_SDRYG( 28, 66) = 0.147609E-01
-PKER_SDRYG( 28, 67) = 0.136620E-01
-PKER_SDRYG( 28, 68) = 0.129448E-01
-PKER_SDRYG( 28, 69) = 0.125564E-01
-PKER_SDRYG( 28, 70) = 0.124665E-01
-PKER_SDRYG( 28, 71) = 0.126409E-01
-PKER_SDRYG( 28, 72) = 0.130274E-01
-PKER_SDRYG( 28, 73) = 0.135904E-01
-PKER_SDRYG( 28, 74) = 0.142998E-01
-PKER_SDRYG( 28, 75) = 0.151150E-01
-PKER_SDRYG( 28, 76) = 0.160038E-01
-PKER_SDRYG( 28, 77) = 0.169418E-01
-PKER_SDRYG( 28, 78) = 0.179108E-01
-PKER_SDRYG( 28, 79) = 0.188859E-01
-PKER_SDRYG( 28, 80) = 0.198573E-01
-PKER_SDRYG( 29, 1) = 0.313775E+01
-PKER_SDRYG( 29, 2) = 0.294524E+01
-PKER_SDRYG( 29, 3) = 0.276447E+01
-PKER_SDRYG( 29, 4) = 0.259474E+01
-PKER_SDRYG( 29, 5) = 0.243535E+01
-PKER_SDRYG( 29, 6) = 0.228570E+01
-PKER_SDRYG( 29, 7) = 0.214517E+01
-PKER_SDRYG( 29, 8) = 0.201322E+01
-PKER_SDRYG( 29, 9) = 0.188932E+01
-PKER_SDRYG( 29, 10) = 0.177297E+01
-PKER_SDRYG( 29, 11) = 0.166373E+01
-PKER_SDRYG( 29, 12) = 0.156115E+01
-PKER_SDRYG( 29, 13) = 0.146483E+01
-PKER_SDRYG( 29, 14) = 0.137438E+01
-PKER_SDRYG( 29, 15) = 0.128945E+01
-PKER_SDRYG( 29, 16) = 0.120970E+01
-PKER_SDRYG( 29, 17) = 0.113482E+01
-PKER_SDRYG( 29, 18) = 0.106450E+01
-PKER_SDRYG( 29, 19) = 0.998466E+00
-PKER_SDRYG( 29, 20) = 0.936458E+00
-PKER_SDRYG( 29, 21) = 0.878229E+00
-PKER_SDRYG( 29, 22) = 0.823547E+00
-PKER_SDRYG( 29, 23) = 0.772194E+00
-PKER_SDRYG( 29, 24) = 0.723965E+00
-PKER_SDRYG( 29, 25) = 0.678669E+00
-PKER_SDRYG( 29, 26) = 0.636124E+00
-PKER_SDRYG( 29, 27) = 0.596159E+00
-PKER_SDRYG( 29, 28) = 0.558615E+00
-PKER_SDRYG( 29, 29) = 0.523340E+00
-PKER_SDRYG( 29, 30) = 0.490190E+00
-PKER_SDRYG( 29, 31) = 0.459030E+00
-PKER_SDRYG( 29, 32) = 0.429733E+00
-PKER_SDRYG( 29, 33) = 0.402176E+00
-PKER_SDRYG( 29, 34) = 0.376242E+00
-PKER_SDRYG( 29, 35) = 0.351822E+00
-PKER_SDRYG( 29, 36) = 0.328807E+00
-PKER_SDRYG( 29, 37) = 0.307093E+00
-PKER_SDRYG( 29, 38) = 0.286580E+00
-PKER_SDRYG( 29, 39) = 0.267168E+00
-PKER_SDRYG( 29, 40) = 0.248763E+00
-PKER_SDRYG( 29, 41) = 0.231269E+00
-PKER_SDRYG( 29, 42) = 0.214600E+00
-PKER_SDRYG( 29, 43) = 0.198675E+00
-PKER_SDRYG( 29, 44) = 0.183429E+00
-PKER_SDRYG( 29, 45) = 0.168818E+00
-PKER_SDRYG( 29, 46) = 0.154826E+00
-PKER_SDRYG( 29, 47) = 0.141470E+00
-PKER_SDRYG( 29, 48) = 0.128793E+00
-PKER_SDRYG( 29, 49) = 0.116859E+00
-PKER_SDRYG( 29, 50) = 0.105725E+00
-PKER_SDRYG( 29, 51) = 0.954304E-01
-PKER_SDRYG( 29, 52) = 0.859836E-01
-PKER_SDRYG( 29, 53) = 0.773596E-01
-PKER_SDRYG( 29, 54) = 0.695082E-01
-PKER_SDRYG( 29, 55) = 0.623650E-01
-PKER_SDRYG( 29, 56) = 0.558611E-01
-PKER_SDRYG( 29, 57) = 0.499316E-01
-PKER_SDRYG( 29, 58) = 0.445208E-01
-PKER_SDRYG( 29, 59) = 0.395814E-01
-PKER_SDRYG( 29, 60) = 0.350788E-01
-PKER_SDRYG( 29, 61) = 0.309897E-01
-PKER_SDRYG( 29, 62) = 0.272977E-01
-PKER_SDRYG( 29, 63) = 0.239931E-01
-PKER_SDRYG( 29, 64) = 0.210731E-01
-PKER_SDRYG( 29, 65) = 0.185324E-01
-PKER_SDRYG( 29, 66) = 0.163751E-01
-PKER_SDRYG( 29, 67) = 0.145805E-01
-PKER_SDRYG( 29, 68) = 0.131445E-01
-PKER_SDRYG( 29, 69) = 0.120720E-01
-PKER_SDRYG( 29, 70) = 0.113116E-01
-PKER_SDRYG( 29, 71) = 0.108560E-01
-PKER_SDRYG( 29, 72) = 0.106640E-01
-PKER_SDRYG( 29, 73) = 0.107167E-01
-PKER_SDRYG( 29, 74) = 0.109632E-01
-PKER_SDRYG( 29, 75) = 0.113846E-01
-PKER_SDRYG( 29, 76) = 0.119375E-01
-PKER_SDRYG( 29, 77) = 0.125899E-01
-PKER_SDRYG( 29, 78) = 0.133280E-01
-PKER_SDRYG( 29, 79) = 0.141136E-01
-PKER_SDRYG( 29, 80) = 0.149298E-01
-PKER_SDRYG( 30, 1) = 0.314026E+01
-PKER_SDRYG( 30, 2) = 0.294775E+01
-PKER_SDRYG( 30, 3) = 0.276698E+01
-PKER_SDRYG( 30, 4) = 0.259724E+01
-PKER_SDRYG( 30, 5) = 0.243786E+01
-PKER_SDRYG( 30, 6) = 0.228821E+01
-PKER_SDRYG( 30, 7) = 0.214768E+01
-PKER_SDRYG( 30, 8) = 0.201573E+01
-PKER_SDRYG( 30, 9) = 0.189183E+01
-PKER_SDRYG( 30, 10) = 0.177549E+01
-PKER_SDRYG( 30, 11) = 0.166624E+01
-PKER_SDRYG( 30, 12) = 0.156366E+01
-PKER_SDRYG( 30, 13) = 0.146734E+01
-PKER_SDRYG( 30, 14) = 0.137690E+01
-PKER_SDRYG( 30, 15) = 0.129197E+01
-PKER_SDRYG( 30, 16) = 0.121222E+01
-PKER_SDRYG( 30, 17) = 0.113734E+01
-PKER_SDRYG( 30, 18) = 0.106702E+01
-PKER_SDRYG( 30, 19) = 0.100099E+01
-PKER_SDRYG( 30, 20) = 0.938991E+00
-PKER_SDRYG( 30, 21) = 0.880767E+00
-PKER_SDRYG( 30, 22) = 0.826092E+00
-PKER_SDRYG( 30, 23) = 0.774746E+00
-PKER_SDRYG( 30, 24) = 0.726527E+00
-PKER_SDRYG( 30, 25) = 0.681242E+00
-PKER_SDRYG( 30, 26) = 0.638710E+00
-PKER_SDRYG( 30, 27) = 0.598762E+00
-PKER_SDRYG( 30, 28) = 0.561237E+00
-PKER_SDRYG( 30, 29) = 0.525986E+00
-PKER_SDRYG( 30, 30) = 0.492864E+00
-PKER_SDRYG( 30, 31) = 0.461740E+00
-PKER_SDRYG( 30, 32) = 0.432485E+00
-PKER_SDRYG( 30, 33) = 0.404979E+00
-PKER_SDRYG( 30, 34) = 0.379109E+00
-PKER_SDRYG( 30, 35) = 0.354764E+00
-PKER_SDRYG( 30, 36) = 0.331842E+00
-PKER_SDRYG( 30, 37) = 0.310241E+00
-PKER_SDRYG( 30, 38) = 0.289866E+00
-PKER_SDRYG( 30, 39) = 0.270620E+00
-PKER_SDRYG( 30, 40) = 0.252414E+00
-PKER_SDRYG( 30, 41) = 0.235157E+00
-PKER_SDRYG( 30, 42) = 0.218763E+00
-PKER_SDRYG( 30, 43) = 0.203150E+00
-PKER_SDRYG( 30, 44) = 0.188244E+00
-PKER_SDRYG( 30, 45) = 0.173985E+00
-PKER_SDRYG( 30, 46) = 0.160331E+00
-PKER_SDRYG( 30, 47) = 0.147268E+00
-PKER_SDRYG( 30, 48) = 0.134807E+00
-PKER_SDRYG( 30, 49) = 0.122990E+00
-PKER_SDRYG( 30, 50) = 0.111870E+00
-PKER_SDRYG( 30, 51) = 0.101498E+00
-PKER_SDRYG( 30, 52) = 0.919089E-01
-PKER_SDRYG( 30, 53) = 0.831067E-01
-PKER_SDRYG( 30, 54) = 0.750668E-01
-PKER_SDRYG( 30, 55) = 0.677413E-01
-PKER_SDRYG( 30, 56) = 0.610688E-01
-PKER_SDRYG( 30, 57) = 0.549841E-01
-PKER_SDRYG( 30, 58) = 0.494242E-01
-PKER_SDRYG( 30, 59) = 0.443338E-01
-PKER_SDRYG( 30, 60) = 0.396667E-01
-PKER_SDRYG( 30, 61) = 0.353851E-01
-PKER_SDRYG( 30, 62) = 0.314617E-01
-PKER_SDRYG( 30, 63) = 0.278788E-01
-PKER_SDRYG( 30, 64) = 0.246216E-01
-PKER_SDRYG( 30, 65) = 0.216840E-01
-PKER_SDRYG( 30, 66) = 0.190676E-01
-PKER_SDRYG( 30, 67) = 0.167678E-01
-PKER_SDRYG( 30, 68) = 0.147843E-01
-PKER_SDRYG( 30, 69) = 0.131194E-01
-PKER_SDRYG( 30, 70) = 0.117708E-01
-PKER_SDRYG( 30, 71) = 0.107143E-01
-PKER_SDRYG( 30, 72) = 0.994008E-02
-PKER_SDRYG( 30, 73) = 0.944116E-02
-PKER_SDRYG( 30, 74) = 0.917473E-02
-PKER_SDRYG( 30, 75) = 0.912540E-02
-PKER_SDRYG( 30, 76) = 0.926519E-02
-PKER_SDRYG( 30, 77) = 0.955670E-02
-PKER_SDRYG( 30, 78) = 0.997708E-02
-PKER_SDRYG( 30, 79) = 0.105008E-01
-PKER_SDRYG( 30, 80) = 0.111005E-01
-PKER_SDRYG( 31, 1) = 0.314241E+01
-PKER_SDRYG( 31, 2) = 0.294989E+01
-PKER_SDRYG( 31, 3) = 0.276913E+01
-PKER_SDRYG( 31, 4) = 0.259939E+01
-PKER_SDRYG( 31, 5) = 0.244001E+01
-PKER_SDRYG( 31, 6) = 0.229035E+01
-PKER_SDRYG( 31, 7) = 0.214983E+01
-PKER_SDRYG( 31, 8) = 0.201788E+01
-PKER_SDRYG( 31, 9) = 0.189397E+01
-PKER_SDRYG( 31, 10) = 0.177763E+01
-PKER_SDRYG( 31, 11) = 0.166839E+01
-PKER_SDRYG( 31, 12) = 0.156581E+01
-PKER_SDRYG( 31, 13) = 0.146949E+01
-PKER_SDRYG( 31, 14) = 0.137905E+01
-PKER_SDRYG( 31, 15) = 0.129412E+01
-PKER_SDRYG( 31, 16) = 0.121438E+01
-PKER_SDRYG( 31, 17) = 0.113950E+01
-PKER_SDRYG( 31, 18) = 0.106918E+01
-PKER_SDRYG( 31, 19) = 0.100316E+01
-PKER_SDRYG( 31, 20) = 0.941157E+00
-PKER_SDRYG( 31, 21) = 0.882937E+00
-PKER_SDRYG( 31, 22) = 0.828266E+00
-PKER_SDRYG( 31, 23) = 0.776926E+00
-PKER_SDRYG( 31, 24) = 0.728714E+00
-PKER_SDRYG( 31, 25) = 0.683437E+00
-PKER_SDRYG( 31, 26) = 0.640916E+00
-PKER_SDRYG( 31, 27) = 0.600980E+00
-PKER_SDRYG( 31, 28) = 0.563470E+00
-PKER_SDRYG( 31, 29) = 0.528236E+00
-PKER_SDRYG( 31, 30) = 0.495137E+00
-PKER_SDRYG( 31, 31) = 0.464039E+00
-PKER_SDRYG( 31, 32) = 0.434815E+00
-PKER_SDRYG( 31, 33) = 0.407348E+00
-PKER_SDRYG( 31, 34) = 0.381525E+00
-PKER_SDRYG( 31, 35) = 0.357237E+00
-PKER_SDRYG( 31, 36) = 0.334384E+00
-PKER_SDRYG( 31, 37) = 0.312867E+00
-PKER_SDRYG( 31, 38) = 0.292593E+00
-PKER_SDRYG( 31, 39) = 0.273472E+00
-PKER_SDRYG( 31, 40) = 0.255415E+00
-PKER_SDRYG( 31, 41) = 0.238337E+00
-PKER_SDRYG( 31, 42) = 0.222155E+00
-PKER_SDRYG( 31, 43) = 0.206789E+00
-PKER_SDRYG( 31, 44) = 0.192162E+00
-PKER_SDRYG( 31, 45) = 0.178206E+00
-PKER_SDRYG( 31, 46) = 0.164865E+00
-PKER_SDRYG( 31, 47) = 0.152101E+00
-PKER_SDRYG( 31, 48) = 0.139898E+00
-PKER_SDRYG( 31, 49) = 0.128268E+00
-PKER_SDRYG( 31, 50) = 0.117245E+00
-PKER_SDRYG( 31, 51) = 0.106877E+00
-PKER_SDRYG( 31, 52) = 0.972093E-01
-PKER_SDRYG( 31, 53) = 0.882710E-01
-PKER_SDRYG( 31, 54) = 0.800646E-01
-PKER_SDRYG( 31, 55) = 0.725658E-01
-PKER_SDRYG( 31, 56) = 0.657293E-01
-PKER_SDRYG( 31, 57) = 0.594973E-01
-PKER_SDRYG( 31, 58) = 0.538082E-01
-PKER_SDRYG( 31, 59) = 0.486029E-01
-PKER_SDRYG( 31, 60) = 0.438281E-01
-PKER_SDRYG( 31, 61) = 0.394382E-01
-PKER_SDRYG( 31, 62) = 0.353958E-01
-PKER_SDRYG( 31, 63) = 0.316723E-01
-PKER_SDRYG( 31, 64) = 0.282443E-01
-PKER_SDRYG( 31, 65) = 0.250971E-01
-PKER_SDRYG( 31, 66) = 0.222220E-01
-PKER_SDRYG( 31, 67) = 0.196134E-01
-PKER_SDRYG( 31, 68) = 0.172700E-01
-PKER_SDRYG( 31, 69) = 0.151950E-01
-PKER_SDRYG( 31, 70) = 0.133842E-01
-PKER_SDRYG( 31, 71) = 0.118468E-01
-PKER_SDRYG( 31, 72) = 0.105682E-01
-PKER_SDRYG( 31, 73) = 0.954383E-02
-PKER_SDRYG( 31, 74) = 0.878311E-02
-PKER_SDRYG( 31, 75) = 0.824730E-02
-PKER_SDRYG( 31, 76) = 0.792838E-02
-PKER_SDRYG( 31, 77) = 0.780258E-02
-PKER_SDRYG( 31, 78) = 0.785165E-02
-PKER_SDRYG( 31, 79) = 0.803984E-02
-PKER_SDRYG( 31, 80) = 0.835401E-02
-PKER_SDRYG( 32, 1) = 0.314424E+01
-PKER_SDRYG( 32, 2) = 0.295173E+01
-PKER_SDRYG( 32, 3) = 0.277096E+01
-PKER_SDRYG( 32, 4) = 0.260122E+01
-PKER_SDRYG( 32, 5) = 0.244184E+01
-PKER_SDRYG( 32, 6) = 0.229219E+01
-PKER_SDRYG( 32, 7) = 0.215166E+01
-PKER_SDRYG( 32, 8) = 0.201971E+01
-PKER_SDRYG( 32, 9) = 0.189581E+01
-PKER_SDRYG( 32, 10) = 0.177947E+01
-PKER_SDRYG( 32, 11) = 0.167023E+01
-PKER_SDRYG( 32, 12) = 0.156765E+01
-PKER_SDRYG( 32, 13) = 0.147133E+01
-PKER_SDRYG( 32, 14) = 0.138089E+01
-PKER_SDRYG( 32, 15) = 0.129596E+01
-PKER_SDRYG( 32, 16) = 0.121622E+01
-PKER_SDRYG( 32, 17) = 0.114134E+01
-PKER_SDRYG( 32, 18) = 0.107103E+01
-PKER_SDRYG( 32, 19) = 0.100500E+01
-PKER_SDRYG( 32, 20) = 0.943008E+00
-PKER_SDRYG( 32, 21) = 0.884791E+00
-PKER_SDRYG( 32, 22) = 0.830124E+00
-PKER_SDRYG( 32, 23) = 0.778789E+00
-PKER_SDRYG( 32, 24) = 0.730582E+00
-PKER_SDRYG( 32, 25) = 0.685312E+00
-PKER_SDRYG( 32, 26) = 0.642798E+00
-PKER_SDRYG( 32, 27) = 0.602872E+00
-PKER_SDRYG( 32, 28) = 0.565373E+00
-PKER_SDRYG( 32, 29) = 0.530153E+00
-PKER_SDRYG( 32, 30) = 0.497070E+00
-PKER_SDRYG( 32, 31) = 0.465991E+00
-PKER_SDRYG( 32, 32) = 0.436792E+00
-PKER_SDRYG( 32, 33) = 0.409354E+00
-PKER_SDRYG( 32, 34) = 0.383565E+00
-PKER_SDRYG( 32, 35) = 0.359320E+00
-PKER_SDRYG( 32, 36) = 0.336518E+00
-PKER_SDRYG( 32, 37) = 0.315064E+00
-PKER_SDRYG( 32, 38) = 0.294866E+00
-PKER_SDRYG( 32, 39) = 0.275837E+00
-PKER_SDRYG( 32, 40) = 0.257892E+00
-PKER_SDRYG( 32, 41) = 0.240949E+00
-PKER_SDRYG( 32, 42) = 0.224929E+00
-PKER_SDRYG( 32, 43) = 0.209753E+00
-PKER_SDRYG( 32, 44) = 0.195347E+00
-PKER_SDRYG( 32, 45) = 0.181641E+00
-PKER_SDRYG( 32, 46) = 0.168572E+00
-PKER_SDRYG( 32, 47) = 0.156087E+00
-PKER_SDRYG( 32, 48) = 0.144150E+00
-PKER_SDRYG( 32, 49) = 0.132746E+00
-PKER_SDRYG( 32, 50) = 0.121885E+00
-PKER_SDRYG( 32, 51) = 0.111598E+00
-PKER_SDRYG( 32, 52) = 0.101925E+00
-PKER_SDRYG( 32, 53) = 0.929079E-01
-PKER_SDRYG( 32, 54) = 0.845713E-01
-PKER_SDRYG( 32, 55) = 0.769159E-01
-PKER_SDRYG( 32, 56) = 0.699183E-01
-PKER_SDRYG( 32, 57) = 0.635355E-01
-PKER_SDRYG( 32, 58) = 0.577136E-01
-PKER_SDRYG( 32, 59) = 0.523950E-01
-PKER_SDRYG( 32, 60) = 0.475243E-01
-PKER_SDRYG( 32, 61) = 0.430512E-01
-PKER_SDRYG( 32, 62) = 0.389325E-01
-PKER_SDRYG( 32, 63) = 0.351313E-01
-PKER_SDRYG( 32, 64) = 0.316183E-01
-PKER_SDRYG( 32, 65) = 0.283700E-01
-PKER_SDRYG( 32, 66) = 0.253685E-01
-PKER_SDRYG( 32, 67) = 0.226014E-01
-PKER_SDRYG( 32, 68) = 0.200616E-01
-PKER_SDRYG( 32, 69) = 0.177438E-01
-PKER_SDRYG( 32, 70) = 0.156482E-01
-PKER_SDRYG( 32, 71) = 0.137766E-01
-PKER_SDRYG( 32, 72) = 0.121294E-01
-PKER_SDRYG( 32, 73) = 0.107083E-01
-PKER_SDRYG( 32, 74) = 0.951507E-02
-PKER_SDRYG( 32, 75) = 0.854960E-02
-PKER_SDRYG( 32, 76) = 0.779589E-02
-PKER_SDRYG( 32, 77) = 0.724397E-02
-PKER_SDRYG( 32, 78) = 0.689318E-02
-PKER_SDRYG( 32, 79) = 0.670835E-02
-PKER_SDRYG( 32, 80) = 0.668173E-02
-PKER_SDRYG( 33, 1) = 0.314581E+01
-PKER_SDRYG( 33, 2) = 0.295330E+01
-PKER_SDRYG( 33, 3) = 0.277253E+01
-PKER_SDRYG( 33, 4) = 0.260280E+01
-PKER_SDRYG( 33, 5) = 0.244341E+01
-PKER_SDRYG( 33, 6) = 0.229376E+01
-PKER_SDRYG( 33, 7) = 0.215323E+01
-PKER_SDRYG( 33, 8) = 0.202128E+01
-PKER_SDRYG( 33, 9) = 0.189738E+01
-PKER_SDRYG( 33, 10) = 0.178104E+01
-PKER_SDRYG( 33, 11) = 0.167180E+01
-PKER_SDRYG( 33, 12) = 0.156922E+01
-PKER_SDRYG( 33, 13) = 0.147291E+01
-PKER_SDRYG( 33, 14) = 0.138246E+01
-PKER_SDRYG( 33, 15) = 0.129754E+01
-PKER_SDRYG( 33, 16) = 0.121780E+01
-PKER_SDRYG( 33, 17) = 0.114292E+01
-PKER_SDRYG( 33, 18) = 0.107261E+01
-PKER_SDRYG( 33, 19) = 0.100659E+01
-PKER_SDRYG( 33, 20) = 0.944590E+00
-PKER_SDRYG( 33, 21) = 0.886376E+00
-PKER_SDRYG( 33, 22) = 0.831711E+00
-PKER_SDRYG( 33, 23) = 0.780380E+00
-PKER_SDRYG( 33, 24) = 0.732177E+00
-PKER_SDRYG( 33, 25) = 0.686912E+00
-PKER_SDRYG( 33, 26) = 0.644404E+00
-PKER_SDRYG( 33, 27) = 0.604485E+00
-PKER_SDRYG( 33, 28) = 0.566995E+00
-PKER_SDRYG( 33, 29) = 0.531785E+00
-PKER_SDRYG( 33, 30) = 0.498715E+00
-PKER_SDRYG( 33, 31) = 0.467651E+00
-PKER_SDRYG( 33, 32) = 0.438470E+00
-PKER_SDRYG( 33, 33) = 0.411054E+00
-PKER_SDRYG( 33, 34) = 0.385291E+00
-PKER_SDRYG( 33, 35) = 0.361078E+00
-PKER_SDRYG( 33, 36) = 0.338315E+00
-PKER_SDRYG( 33, 37) = 0.316908E+00
-PKER_SDRYG( 33, 38) = 0.296767E+00
-PKER_SDRYG( 33, 39) = 0.277807E+00
-PKER_SDRYG( 33, 40) = 0.259946E+00
-PKER_SDRYG( 33, 41) = 0.243104E+00
-PKER_SDRYG( 33, 42) = 0.227205E+00
-PKER_SDRYG( 33, 43) = 0.212175E+00
-PKER_SDRYG( 33, 44) = 0.197941E+00
-PKER_SDRYG( 33, 45) = 0.184435E+00
-PKER_SDRYG( 33, 46) = 0.171590E+00
-PKER_SDRYG( 33, 47) = 0.159348E+00
-PKER_SDRYG( 33, 48) = 0.147660E+00
-PKER_SDRYG( 33, 49) = 0.136493E+00
-PKER_SDRYG( 33, 50) = 0.125832E+00
-PKER_SDRYG( 33, 51) = 0.115684E+00
-PKER_SDRYG( 33, 52) = 0.106078E+00
-PKER_SDRYG( 33, 53) = 0.970492E-01
-PKER_SDRYG( 33, 54) = 0.886343E-01
-PKER_SDRYG( 33, 55) = 0.808544E-01
-PKER_SDRYG( 33, 56) = 0.737092E-01
-PKER_SDRYG( 33, 57) = 0.671759E-01
-PKER_SDRYG( 33, 58) = 0.612140E-01
-PKER_SDRYG( 33, 59) = 0.557733E-01
-PKER_SDRYG( 33, 60) = 0.508001E-01
-PKER_SDRYG( 33, 61) = 0.462428E-01
-PKER_SDRYG( 33, 62) = 0.420544E-01
-PKER_SDRYG( 33, 63) = 0.381941E-01
-PKER_SDRYG( 33, 64) = 0.346270E-01
-PKER_SDRYG( 33, 65) = 0.313244E-01
-PKER_SDRYG( 33, 66) = 0.282623E-01
-PKER_SDRYG( 33, 67) = 0.254222E-01
-PKER_SDRYG( 33, 68) = 0.227902E-01
-PKER_SDRYG( 33, 69) = 0.203548E-01
-PKER_SDRYG( 33, 70) = 0.181098E-01
-PKER_SDRYG( 33, 71) = 0.160530E-01
-PKER_SDRYG( 33, 72) = 0.141818E-01
-PKER_SDRYG( 33, 73) = 0.124982E-01
-PKER_SDRYG( 33, 74) = 0.110068E-01
-PKER_SDRYG( 33, 75) = 0.970368E-02
-PKER_SDRYG( 33, 76) = 0.859751E-02
-PKER_SDRYG( 33, 77) = 0.767929E-02
-PKER_SDRYG( 33, 78) = 0.694381E-02
-PKER_SDRYG( 33, 79) = 0.639919E-02
-PKER_SDRYG( 33, 80) = 0.601899E-02
-PKER_SDRYG( 34, 1) = 0.314716E+01
-PKER_SDRYG( 34, 2) = 0.295464E+01
-PKER_SDRYG( 34, 3) = 0.277388E+01
-PKER_SDRYG( 34, 4) = 0.260414E+01
-PKER_SDRYG( 34, 5) = 0.244476E+01
-PKER_SDRYG( 34, 6) = 0.229510E+01
-PKER_SDRYG( 34, 7) = 0.215458E+01
-PKER_SDRYG( 34, 8) = 0.202263E+01
-PKER_SDRYG( 34, 9) = 0.189873E+01
-PKER_SDRYG( 34, 10) = 0.178239E+01
-PKER_SDRYG( 34, 11) = 0.167315E+01
-PKER_SDRYG( 34, 12) = 0.157057E+01
-PKER_SDRYG( 34, 13) = 0.147425E+01
-PKER_SDRYG( 34, 14) = 0.138381E+01
-PKER_SDRYG( 34, 15) = 0.129889E+01
-PKER_SDRYG( 34, 16) = 0.121914E+01
-PKER_SDRYG( 34, 17) = 0.114427E+01
-PKER_SDRYG( 34, 18) = 0.107396E+01
-PKER_SDRYG( 34, 19) = 0.100794E+01
-PKER_SDRYG( 34, 20) = 0.945943E+00
-PKER_SDRYG( 34, 21) = 0.887731E+00
-PKER_SDRYG( 34, 22) = 0.833069E+00
-PKER_SDRYG( 34, 23) = 0.781740E+00
-PKER_SDRYG( 34, 24) = 0.733540E+00
-PKER_SDRYG( 34, 25) = 0.688279E+00
-PKER_SDRYG( 34, 26) = 0.645776E+00
-PKER_SDRYG( 34, 27) = 0.605862E+00
-PKER_SDRYG( 34, 28) = 0.568379E+00
-PKER_SDRYG( 34, 29) = 0.533177E+00
-PKER_SDRYG( 34, 30) = 0.500116E+00
-PKER_SDRYG( 34, 31) = 0.469064E+00
-PKER_SDRYG( 34, 32) = 0.439896E+00
-PKER_SDRYG( 34, 33) = 0.412496E+00
-PKER_SDRYG( 34, 34) = 0.386754E+00
-PKER_SDRYG( 34, 35) = 0.362565E+00
-PKER_SDRYG( 34, 36) = 0.339831E+00
-PKER_SDRYG( 34, 37) = 0.318459E+00
-PKER_SDRYG( 34, 38) = 0.298361E+00
-PKER_SDRYG( 34, 39) = 0.279453E+00
-PKER_SDRYG( 34, 40) = 0.261654E+00
-PKER_SDRYG( 34, 41) = 0.244888E+00
-PKER_SDRYG( 34, 42) = 0.229081E+00
-PKER_SDRYG( 34, 43) = 0.214161E+00
-PKER_SDRYG( 34, 44) = 0.200059E+00
-PKER_SDRYG( 34, 45) = 0.186708E+00
-PKER_SDRYG( 34, 46) = 0.174043E+00
-PKER_SDRYG( 34, 47) = 0.162003E+00
-PKER_SDRYG( 34, 48) = 0.150534E+00
-PKER_SDRYG( 34, 49) = 0.139590E+00
-PKER_SDRYG( 34, 50) = 0.129139E+00
-PKER_SDRYG( 34, 51) = 0.119169E+00
-PKER_SDRYG( 34, 52) = 0.109684E+00
-PKER_SDRYG( 34, 53) = 0.100710E+00
-PKER_SDRYG( 34, 54) = 0.922778E-01
-PKER_SDRYG( 34, 55) = 0.844206E-01
-PKER_SDRYG( 34, 56) = 0.771566E-01
-PKER_SDRYG( 34, 57) = 0.704841E-01
-PKER_SDRYG( 34, 58) = 0.643812E-01
-PKER_SDRYG( 34, 59) = 0.588101E-01
-PKER_SDRYG( 34, 60) = 0.537237E-01
-PKER_SDRYG( 34, 61) = 0.490721E-01
-PKER_SDRYG( 34, 62) = 0.448073E-01
-PKER_SDRYG( 34, 63) = 0.408857E-01
-PKER_SDRYG( 34, 64) = 0.372690E-01
-PKER_SDRYG( 34, 65) = 0.339245E-01
-PKER_SDRYG( 34, 66) = 0.308247E-01
-PKER_SDRYG( 34, 67) = 0.279467E-01
-PKER_SDRYG( 34, 68) = 0.252716E-01
-PKER_SDRYG( 34, 69) = 0.227841E-01
-PKER_SDRYG( 34, 70) = 0.204724E-01
-PKER_SDRYG( 34, 71) = 0.183278E-01
-PKER_SDRYG( 34, 72) = 0.163442E-01
-PKER_SDRYG( 34, 73) = 0.145187E-01
-PKER_SDRYG( 34, 74) = 0.128499E-01
-PKER_SDRYG( 34, 75) = 0.113397E-01
-PKER_SDRYG( 34, 76) = 0.998905E-02
-PKER_SDRYG( 34, 77) = 0.880025E-02
-PKER_SDRYG( 34, 78) = 0.777536E-02
-PKER_SDRYG( 34, 79) = 0.691458E-02
-PKER_SDRYG( 34, 80) = 0.621944E-02
-PKER_SDRYG( 35, 1) = 0.314831E+01
-PKER_SDRYG( 35, 2) = 0.295579E+01
-PKER_SDRYG( 35, 3) = 0.277503E+01
-PKER_SDRYG( 35, 4) = 0.260529E+01
-PKER_SDRYG( 35, 5) = 0.244591E+01
-PKER_SDRYG( 35, 6) = 0.229625E+01
-PKER_SDRYG( 35, 7) = 0.215573E+01
-PKER_SDRYG( 35, 8) = 0.202378E+01
-PKER_SDRYG( 35, 9) = 0.189988E+01
-PKER_SDRYG( 35, 10) = 0.178354E+01
-PKER_SDRYG( 35, 11) = 0.167430E+01
-PKER_SDRYG( 35, 12) = 0.157172E+01
-PKER_SDRYG( 35, 13) = 0.147540E+01
-PKER_SDRYG( 35, 14) = 0.138496E+01
-PKER_SDRYG( 35, 15) = 0.130004E+01
-PKER_SDRYG( 35, 16) = 0.122030E+01
-PKER_SDRYG( 35, 17) = 0.114542E+01
-PKER_SDRYG( 35, 18) = 0.107511E+01
-PKER_SDRYG( 35, 19) = 0.100909E+01
-PKER_SDRYG( 35, 20) = 0.947100E+00
-PKER_SDRYG( 35, 21) = 0.888890E+00
-PKER_SDRYG( 35, 22) = 0.834229E+00
-PKER_SDRYG( 35, 23) = 0.782902E+00
-PKER_SDRYG( 35, 24) = 0.734705E+00
-PKER_SDRYG( 35, 25) = 0.689447E+00
-PKER_SDRYG( 35, 26) = 0.646947E+00
-PKER_SDRYG( 35, 27) = 0.607038E+00
-PKER_SDRYG( 35, 28) = 0.569560E+00
-PKER_SDRYG( 35, 29) = 0.534364E+00
-PKER_SDRYG( 35, 30) = 0.501310E+00
-PKER_SDRYG( 35, 31) = 0.470267E+00
-PKER_SDRYG( 35, 32) = 0.441110E+00
-PKER_SDRYG( 35, 33) = 0.413722E+00
-PKER_SDRYG( 35, 34) = 0.387995E+00
-PKER_SDRYG( 35, 35) = 0.363825E+00
-PKER_SDRYG( 35, 36) = 0.341113E+00
-PKER_SDRYG( 35, 37) = 0.319768E+00
-PKER_SDRYG( 35, 38) = 0.299702E+00
-PKER_SDRYG( 35, 39) = 0.280832E+00
-PKER_SDRYG( 35, 40) = 0.263081E+00
-PKER_SDRYG( 35, 41) = 0.246372E+00
-PKER_SDRYG( 35, 42) = 0.230634E+00
-PKER_SDRYG( 35, 43) = 0.215798E+00
-PKER_SDRYG( 35, 44) = 0.201796E+00
-PKER_SDRYG( 35, 45) = 0.188564E+00
-PKER_SDRYG( 35, 46) = 0.176039E+00
-PKER_SDRYG( 35, 47) = 0.164162E+00
-PKER_SDRYG( 35, 48) = 0.152875E+00
-PKER_SDRYG( 35, 49) = 0.142127E+00
-PKER_SDRYG( 35, 50) = 0.131877E+00
-PKER_SDRYG( 35, 51) = 0.122094E+00
-PKER_SDRYG( 35, 52) = 0.112767E+00
-PKER_SDRYG( 35, 53) = 0.103898E+00
-PKER_SDRYG( 35, 54) = 0.955102E-01
-PKER_SDRYG( 35, 55) = 0.876322E-01
-PKER_SDRYG( 35, 56) = 0.802923E-01
-PKER_SDRYG( 35, 57) = 0.735065E-01
-PKER_SDRYG( 35, 58) = 0.672725E-01
-PKER_SDRYG( 35, 59) = 0.615692E-01
-PKER_SDRYG( 35, 60) = 0.563610E-01
-PKER_SDRYG( 35, 61) = 0.516040E-01
-PKER_SDRYG( 35, 62) = 0.472519E-01
-PKER_SDRYG( 35, 63) = 0.432599E-01
-PKER_SDRYG( 35, 64) = 0.395875E-01
-PKER_SDRYG( 35, 65) = 0.361991E-01
-PKER_SDRYG( 35, 66) = 0.330642E-01
-PKER_SDRYG( 35, 67) = 0.301570E-01
-PKER_SDRYG( 35, 68) = 0.274555E-01
-PKER_SDRYG( 35, 69) = 0.249416E-01
-PKER_SDRYG( 35, 70) = 0.226001E-01
-PKER_SDRYG( 35, 71) = 0.204182E-01
-PKER_SDRYG( 35, 72) = 0.183863E-01
-PKER_SDRYG( 35, 73) = 0.164969E-01
-PKER_SDRYG( 35, 74) = 0.147442E-01
-PKER_SDRYG( 35, 75) = 0.131255E-01
-PKER_SDRYG( 35, 76) = 0.116402E-01
-PKER_SDRYG( 35, 77) = 0.102875E-01
-PKER_SDRYG( 35, 78) = 0.906989E-02
-PKER_SDRYG( 35, 79) = 0.799132E-02
-PKER_SDRYG( 35, 80) = 0.704902E-02
-PKER_SDRYG( 36, 1) = 0.314929E+01
-PKER_SDRYG( 36, 2) = 0.295678E+01
-PKER_SDRYG( 36, 3) = 0.277601E+01
-PKER_SDRYG( 36, 4) = 0.260627E+01
-PKER_SDRYG( 36, 5) = 0.244689E+01
-PKER_SDRYG( 36, 6) = 0.229724E+01
-PKER_SDRYG( 36, 7) = 0.215671E+01
-PKER_SDRYG( 36, 8) = 0.202476E+01
-PKER_SDRYG( 36, 9) = 0.190086E+01
-PKER_SDRYG( 36, 10) = 0.178452E+01
-PKER_SDRYG( 36, 11) = 0.167528E+01
-PKER_SDRYG( 36, 12) = 0.157271E+01
-PKER_SDRYG( 36, 13) = 0.147639E+01
-PKER_SDRYG( 36, 14) = 0.138595E+01
-PKER_SDRYG( 36, 15) = 0.130103E+01
-PKER_SDRYG( 36, 16) = 0.122128E+01
-PKER_SDRYG( 36, 17) = 0.114641E+01
-PKER_SDRYG( 36, 18) = 0.107610E+01
-PKER_SDRYG( 36, 19) = 0.101008E+01
-PKER_SDRYG( 36, 20) = 0.948090E+00
-PKER_SDRYG( 36, 21) = 0.889880E+00
-PKER_SDRYG( 36, 22) = 0.835221E+00
-PKER_SDRYG( 36, 23) = 0.783896E+00
-PKER_SDRYG( 36, 24) = 0.735701E+00
-PKER_SDRYG( 36, 25) = 0.690445E+00
-PKER_SDRYG( 36, 26) = 0.647948E+00
-PKER_SDRYG( 36, 27) = 0.608042E+00
-PKER_SDRYG( 36, 28) = 0.570567E+00
-PKER_SDRYG( 36, 29) = 0.535376E+00
-PKER_SDRYG( 36, 30) = 0.502328E+00
-PKER_SDRYG( 36, 31) = 0.471291E+00
-PKER_SDRYG( 36, 32) = 0.442142E+00
-PKER_SDRYG( 36, 33) = 0.414765E+00
-PKER_SDRYG( 36, 34) = 0.389049E+00
-PKER_SDRYG( 36, 35) = 0.364893E+00
-PKER_SDRYG( 36, 36) = 0.342198E+00
-PKER_SDRYG( 36, 37) = 0.320873E+00
-PKER_SDRYG( 36, 38) = 0.300831E+00
-PKER_SDRYG( 36, 39) = 0.281991E+00
-PKER_SDRYG( 36, 40) = 0.264276E+00
-PKER_SDRYG( 36, 41) = 0.247610E+00
-PKER_SDRYG( 36, 42) = 0.231924E+00
-PKER_SDRYG( 36, 43) = 0.217150E+00
-PKER_SDRYG( 36, 44) = 0.203224E+00
-PKER_SDRYG( 36, 45) = 0.190084E+00
-PKER_SDRYG( 36, 46) = 0.177667E+00
-PKER_SDRYG( 36, 47) = 0.165917E+00
-PKER_SDRYG( 36, 48) = 0.154777E+00
-PKER_SDRYG( 36, 49) = 0.144194E+00
-PKER_SDRYG( 36, 50) = 0.134122E+00
-PKER_SDRYG( 36, 51) = 0.124519E+00
-PKER_SDRYG( 36, 52) = 0.115360E+00
-PKER_SDRYG( 36, 53) = 0.106630E+00
-PKER_SDRYG( 36, 54) = 0.983351E-01
-PKER_SDRYG( 36, 55) = 0.904924E-01
-PKER_SDRYG( 36, 56) = 0.831287E-01
-PKER_SDRYG( 36, 57) = 0.762689E-01
-PKER_SDRYG( 36, 58) = 0.699271E-01
-PKER_SDRYG( 36, 59) = 0.641001E-01
-PKER_SDRYG( 36, 60) = 0.587680E-01
-PKER_SDRYG( 36, 61) = 0.538972E-01
-PKER_SDRYG( 36, 62) = 0.494467E-01
-PKER_SDRYG( 36, 63) = 0.453735E-01
-PKER_SDRYG( 36, 64) = 0.416358E-01
-PKER_SDRYG( 36, 65) = 0.381961E-01
-PKER_SDRYG( 36, 66) = 0.350213E-01
-PKER_SDRYG( 36, 67) = 0.320830E-01
-PKER_SDRYG( 36, 68) = 0.293569E-01
-PKER_SDRYG( 36, 69) = 0.268227E-01
-PKER_SDRYG( 36, 70) = 0.244628E-01
-PKER_SDRYG( 36, 71) = 0.222628E-01
-PKER_SDRYG( 36, 72) = 0.202100E-01
-PKER_SDRYG( 36, 73) = 0.182942E-01
-PKER_SDRYG( 36, 74) = 0.165070E-01
-PKER_SDRYG( 36, 75) = 0.148415E-01
-PKER_SDRYG( 36, 76) = 0.132934E-01
-PKER_SDRYG( 36, 77) = 0.118592E-01
-PKER_SDRYG( 36, 78) = 0.105376E-01
-PKER_SDRYG( 36, 79) = 0.932874E-02
-PKER_SDRYG( 36, 80) = 0.823481E-02
-PKER_SDRYG( 37, 1) = 0.315013E+01
-PKER_SDRYG( 37, 2) = 0.295762E+01
-PKER_SDRYG( 37, 3) = 0.277685E+01
-PKER_SDRYG( 37, 4) = 0.260712E+01
-PKER_SDRYG( 37, 5) = 0.244774E+01
-PKER_SDRYG( 37, 6) = 0.229808E+01
-PKER_SDRYG( 37, 7) = 0.215756E+01
-PKER_SDRYG( 37, 8) = 0.202561E+01
-PKER_SDRYG( 37, 9) = 0.190171E+01
-PKER_SDRYG( 37, 10) = 0.178537E+01
-PKER_SDRYG( 37, 11) = 0.167613E+01
-PKER_SDRYG( 37, 12) = 0.157355E+01
-PKER_SDRYG( 37, 13) = 0.147723E+01
-PKER_SDRYG( 37, 14) = 0.138679E+01
-PKER_SDRYG( 37, 15) = 0.130187E+01
-PKER_SDRYG( 37, 16) = 0.122213E+01
-PKER_SDRYG( 37, 17) = 0.114725E+01
-PKER_SDRYG( 37, 18) = 0.107695E+01
-PKER_SDRYG( 37, 19) = 0.101093E+01
-PKER_SDRYG( 37, 20) = 0.948936E+00
-PKER_SDRYG( 37, 21) = 0.890727E+00
-PKER_SDRYG( 37, 22) = 0.836069E+00
-PKER_SDRYG( 37, 23) = 0.784745E+00
-PKER_SDRYG( 37, 24) = 0.736552E+00
-PKER_SDRYG( 37, 25) = 0.691298E+00
-PKER_SDRYG( 37, 26) = 0.648803E+00
-PKER_SDRYG( 37, 27) = 0.608899E+00
-PKER_SDRYG( 37, 28) = 0.571428E+00
-PKER_SDRYG( 37, 29) = 0.536240E+00
-PKER_SDRYG( 37, 30) = 0.503196E+00
-PKER_SDRYG( 37, 31) = 0.472165E+00
-PKER_SDRYG( 37, 32) = 0.443022E+00
-PKER_SDRYG( 37, 33) = 0.415652E+00
-PKER_SDRYG( 37, 34) = 0.389946E+00
-PKER_SDRYG( 37, 35) = 0.365800E+00
-PKER_SDRYG( 37, 36) = 0.343117E+00
-PKER_SDRYG( 37, 37) = 0.321808E+00
-PKER_SDRYG( 37, 38) = 0.301785E+00
-PKER_SDRYG( 37, 39) = 0.282968E+00
-PKER_SDRYG( 37, 40) = 0.265279E+00
-PKER_SDRYG( 37, 41) = 0.248646E+00
-PKER_SDRYG( 37, 42) = 0.232999E+00
-PKER_SDRYG( 37, 43) = 0.218273E+00
-PKER_SDRYG( 37, 44) = 0.204405E+00
-PKER_SDRYG( 37, 45) = 0.191333E+00
-PKER_SDRYG( 37, 46) = 0.179000E+00
-PKER_SDRYG( 37, 47) = 0.167348E+00
-PKER_SDRYG( 37, 48) = 0.156324E+00
-PKER_SDRYG( 37, 49) = 0.145874E+00
-PKER_SDRYG( 37, 50) = 0.135951E+00
-PKER_SDRYG( 37, 51) = 0.126509E+00
-PKER_SDRYG( 37, 52) = 0.117512E+00
-PKER_SDRYG( 37, 53) = 0.108934E+00
-PKER_SDRYG( 37, 54) = 0.100762E+00
-PKER_SDRYG( 37, 55) = 0.930002E-01
-PKER_SDRYG( 37, 56) = 0.856646E-01
-PKER_SDRYG( 37, 57) = 0.787788E-01
-PKER_SDRYG( 37, 58) = 0.723653E-01
-PKER_SDRYG( 37, 59) = 0.664358E-01
-PKER_SDRYG( 37, 60) = 0.609872E-01
-PKER_SDRYG( 37, 61) = 0.560001E-01
-PKER_SDRYG( 37, 62) = 0.514432E-01
-PKER_SDRYG( 37, 63) = 0.472782E-01
-PKER_SDRYG( 37, 64) = 0.434648E-01
-PKER_SDRYG( 37, 65) = 0.399644E-01
-PKER_SDRYG( 37, 66) = 0.367420E-01
-PKER_SDRYG( 37, 67) = 0.337668E-01
-PKER_SDRYG( 37, 68) = 0.310124E-01
-PKER_SDRYG( 37, 69) = 0.284563E-01
-PKER_SDRYG( 37, 70) = 0.260793E-01
-PKER_SDRYG( 37, 71) = 0.238651E-01
-PKER_SDRYG( 37, 72) = 0.217997E-01
-PKER_SDRYG( 37, 73) = 0.198713E-01
-PKER_SDRYG( 37, 74) = 0.180696E-01
-PKER_SDRYG( 37, 75) = 0.163859E-01
-PKER_SDRYG( 37, 76) = 0.148129E-01
-PKER_SDRYG( 37, 77) = 0.133450E-01
-PKER_SDRYG( 37, 78) = 0.119777E-01
-PKER_SDRYG( 37, 79) = 0.107079E-01
-PKER_SDRYG( 37, 80) = 0.953408E-02
-PKER_SDRYG( 38, 1) = 0.315085E+01
-PKER_SDRYG( 38, 2) = 0.295834E+01
-PKER_SDRYG( 38, 3) = 0.277757E+01
-PKER_SDRYG( 38, 4) = 0.260784E+01
-PKER_SDRYG( 38, 5) = 0.244846E+01
-PKER_SDRYG( 38, 6) = 0.229880E+01
-PKER_SDRYG( 38, 7) = 0.215828E+01
-PKER_SDRYG( 38, 8) = 0.202633E+01
-PKER_SDRYG( 38, 9) = 0.190243E+01
-PKER_SDRYG( 38, 10) = 0.178609E+01
-PKER_SDRYG( 38, 11) = 0.167685E+01
-PKER_SDRYG( 38, 12) = 0.157427E+01
-PKER_SDRYG( 38, 13) = 0.147795E+01
-PKER_SDRYG( 38, 14) = 0.138751E+01
-PKER_SDRYG( 38, 15) = 0.130259E+01
-PKER_SDRYG( 38, 16) = 0.122285E+01
-PKER_SDRYG( 38, 17) = 0.114798E+01
-PKER_SDRYG( 38, 18) = 0.107767E+01
-PKER_SDRYG( 38, 19) = 0.101165E+01
-PKER_SDRYG( 38, 20) = 0.949660E+00
-PKER_SDRYG( 38, 21) = 0.891452E+00
-PKER_SDRYG( 38, 22) = 0.836795E+00
-PKER_SDRYG( 38, 23) = 0.785472E+00
-PKER_SDRYG( 38, 24) = 0.737279E+00
-PKER_SDRYG( 38, 25) = 0.692026E+00
-PKER_SDRYG( 38, 26) = 0.649533E+00
-PKER_SDRYG( 38, 27) = 0.609632E+00
-PKER_SDRYG( 38, 28) = 0.572163E+00
-PKER_SDRYG( 38, 29) = 0.536978E+00
-PKER_SDRYG( 38, 30) = 0.503937E+00
-PKER_SDRYG( 38, 31) = 0.472910E+00
-PKER_SDRYG( 38, 32) = 0.443772E+00
-PKER_SDRYG( 38, 33) = 0.416408E+00
-PKER_SDRYG( 38, 34) = 0.390708E+00
-PKER_SDRYG( 38, 35) = 0.366570E+00
-PKER_SDRYG( 38, 36) = 0.343898E+00
-PKER_SDRYG( 38, 37) = 0.322600E+00
-PKER_SDRYG( 38, 38) = 0.302592E+00
-PKER_SDRYG( 38, 39) = 0.283791E+00
-PKER_SDRYG( 38, 40) = 0.266123E+00
-PKER_SDRYG( 38, 41) = 0.249515E+00
-PKER_SDRYG( 38, 42) = 0.233898E+00
-PKER_SDRYG( 38, 43) = 0.219208E+00
-PKER_SDRYG( 38, 44) = 0.205383E+00
-PKER_SDRYG( 38, 45) = 0.192364E+00
-PKER_SDRYG( 38, 46) = 0.180094E+00
-PKER_SDRYG( 38, 47) = 0.168518E+00
-PKER_SDRYG( 38, 48) = 0.157584E+00
-PKER_SDRYG( 38, 49) = 0.147240E+00
-PKER_SDRYG( 38, 50) = 0.137437E+00
-PKER_SDRYG( 38, 51) = 0.128131E+00
-PKER_SDRYG( 38, 52) = 0.119279E+00
-PKER_SDRYG( 38, 53) = 0.110847E+00
-PKER_SDRYG( 38, 54) = 0.102812E+00
-PKER_SDRYG( 38, 55) = 0.951603E-01
-PKER_SDRYG( 38, 56) = 0.878956E-01
-PKER_SDRYG( 38, 57) = 0.810320E-01
-PKER_SDRYG( 38, 58) = 0.745909E-01
-PKER_SDRYG( 38, 59) = 0.685921E-01
-PKER_SDRYG( 38, 60) = 0.630462E-01
-PKER_SDRYG( 38, 61) = 0.579494E-01
-PKER_SDRYG( 38, 62) = 0.532834E-01
-PKER_SDRYG( 38, 63) = 0.490188E-01
-PKER_SDRYG( 38, 64) = 0.451197E-01
-PKER_SDRYG( 38, 65) = 0.415486E-01
-PKER_SDRYG( 38, 66) = 0.382697E-01
-PKER_SDRYG( 38, 67) = 0.352502E-01
-PKER_SDRYG( 38, 68) = 0.324616E-01
-PKER_SDRYG( 38, 69) = 0.298793E-01
-PKER_SDRYG( 38, 70) = 0.274823E-01
-PKER_SDRYG( 38, 71) = 0.252528E-01
-PKER_SDRYG( 38, 72) = 0.231754E-01
-PKER_SDRYG( 38, 73) = 0.212373E-01
-PKER_SDRYG( 38, 74) = 0.194269E-01
-PKER_SDRYG( 38, 75) = 0.177345E-01
-PKER_SDRYG( 38, 76) = 0.161517E-01
-PKER_SDRYG( 38, 77) = 0.146709E-01
-PKER_SDRYG( 38, 78) = 0.132861E-01
-PKER_SDRYG( 38, 79) = 0.119920E-01
-PKER_SDRYG( 38, 80) = 0.107845E-01
-PKER_SDRYG( 39, 1) = 0.315147E+01
-PKER_SDRYG( 39, 2) = 0.295896E+01
-PKER_SDRYG( 39, 3) = 0.277819E+01
-PKER_SDRYG( 39, 4) = 0.260845E+01
-PKER_SDRYG( 39, 5) = 0.244907E+01
-PKER_SDRYG( 39, 6) = 0.229942E+01
-PKER_SDRYG( 39, 7) = 0.215889E+01
-PKER_SDRYG( 39, 8) = 0.202694E+01
-PKER_SDRYG( 39, 9) = 0.190304E+01
-PKER_SDRYG( 39, 10) = 0.178670E+01
-PKER_SDRYG( 39, 11) = 0.167746E+01
-PKER_SDRYG( 39, 12) = 0.157489E+01
-PKER_SDRYG( 39, 13) = 0.147857E+01
-PKER_SDRYG( 39, 14) = 0.138813E+01
-PKER_SDRYG( 39, 15) = 0.130321E+01
-PKER_SDRYG( 39, 16) = 0.122347E+01
-PKER_SDRYG( 39, 17) = 0.114859E+01
-PKER_SDRYG( 39, 18) = 0.107829E+01
-PKER_SDRYG( 39, 19) = 0.101227E+01
-PKER_SDRYG( 39, 20) = 0.950279E+00
-PKER_SDRYG( 39, 21) = 0.892072E+00
-PKER_SDRYG( 39, 22) = 0.837415E+00
-PKER_SDRYG( 39, 23) = 0.786093E+00
-PKER_SDRYG( 39, 24) = 0.737901E+00
-PKER_SDRYG( 39, 25) = 0.692649E+00
-PKER_SDRYG( 39, 26) = 0.650158E+00
-PKER_SDRYG( 39, 27) = 0.610257E+00
-PKER_SDRYG( 39, 28) = 0.572790E+00
-PKER_SDRYG( 39, 29) = 0.537608E+00
-PKER_SDRYG( 39, 30) = 0.504570E+00
-PKER_SDRYG( 39, 31) = 0.473545E+00
-PKER_SDRYG( 39, 32) = 0.444411E+00
-PKER_SDRYG( 39, 33) = 0.417051E+00
-PKER_SDRYG( 39, 34) = 0.391357E+00
-PKER_SDRYG( 39, 35) = 0.367225E+00
-PKER_SDRYG( 39, 36) = 0.344561E+00
-PKER_SDRYG( 39, 37) = 0.323272E+00
-PKER_SDRYG( 39, 38) = 0.303274E+00
-PKER_SDRYG( 39, 39) = 0.284487E+00
-PKER_SDRYG( 39, 40) = 0.266835E+00
-PKER_SDRYG( 39, 41) = 0.250245E+00
-PKER_SDRYG( 39, 42) = 0.234652E+00
-PKER_SDRYG( 39, 43) = 0.219989E+00
-PKER_SDRYG( 39, 44) = 0.206198E+00
-PKER_SDRYG( 39, 45) = 0.193218E+00
-PKER_SDRYG( 39, 46) = 0.180996E+00
-PKER_SDRYG( 39, 47) = 0.169478E+00
-PKER_SDRYG( 39, 48) = 0.158613E+00
-PKER_SDRYG( 39, 49) = 0.148351E+00
-PKER_SDRYG( 39, 50) = 0.138645E+00
-PKER_SDRYG( 39, 51) = 0.129448E+00
-PKER_SDRYG( 39, 52) = 0.120720E+00
-PKER_SDRYG( 39, 53) = 0.112420E+00
-PKER_SDRYG( 39, 54) = 0.104517E+00
-PKER_SDRYG( 39, 55) = 0.969883E-01
-PKER_SDRYG( 39, 56) = 0.898223E-01
-PKER_SDRYG( 39, 57) = 0.830208E-01
-PKER_SDRYG( 39, 58) = 0.765970E-01
-PKER_SDRYG( 39, 59) = 0.705698E-01
-PKER_SDRYG( 39, 60) = 0.649571E-01
-PKER_SDRYG( 39, 61) = 0.597681E-01
-PKER_SDRYG( 39, 62) = 0.549988E-01
-PKER_SDRYG( 39, 63) = 0.506318E-01
-PKER_SDRYG( 39, 64) = 0.466394E-01
-PKER_SDRYG( 39, 65) = 0.429883E-01
-PKER_SDRYG( 39, 66) = 0.396433E-01
-PKER_SDRYG( 39, 67) = 0.365711E-01
-PKER_SDRYG( 39, 68) = 0.337413E-01
-PKER_SDRYG( 39, 69) = 0.311271E-01
-PKER_SDRYG( 39, 70) = 0.287058E-01
-PKER_SDRYG( 39, 71) = 0.264578E-01
-PKER_SDRYG( 39, 72) = 0.243664E-01
-PKER_SDRYG( 39, 73) = 0.224176E-01
-PKER_SDRYG( 39, 74) = 0.205989E-01
-PKER_SDRYG( 39, 75) = 0.188998E-01
-PKER_SDRYG( 39, 76) = 0.173110E-01
-PKER_SDRYG( 39, 77) = 0.158243E-01
-PKER_SDRYG( 39, 78) = 0.144326E-01
-PKER_SDRYG( 39, 79) = 0.131297E-01
-PKER_SDRYG( 39, 80) = 0.119101E-01
-PKER_SDRYG( 40, 1) = 0.315200E+01
-PKER_SDRYG( 40, 2) = 0.295948E+01
-PKER_SDRYG( 40, 3) = 0.277872E+01
-PKER_SDRYG( 40, 4) = 0.260898E+01
-PKER_SDRYG( 40, 5) = 0.244960E+01
-PKER_SDRYG( 40, 6) = 0.229994E+01
-PKER_SDRYG( 40, 7) = 0.215942E+01
-PKER_SDRYG( 40, 8) = 0.202747E+01
-PKER_SDRYG( 40, 9) = 0.190357E+01
-PKER_SDRYG( 40, 10) = 0.178723E+01
-PKER_SDRYG( 40, 11) = 0.167799E+01
-PKER_SDRYG( 40, 12) = 0.157542E+01
-PKER_SDRYG( 40, 13) = 0.147910E+01
-PKER_SDRYG( 40, 14) = 0.138866E+01
-PKER_SDRYG( 40, 15) = 0.130374E+01
-PKER_SDRYG( 40, 16) = 0.122400E+01
-PKER_SDRYG( 40, 17) = 0.114912E+01
-PKER_SDRYG( 40, 18) = 0.107882E+01
-PKER_SDRYG( 40, 19) = 0.101280E+01
-PKER_SDRYG( 40, 20) = 0.950809E+00
-PKER_SDRYG( 40, 21) = 0.892602E+00
-PKER_SDRYG( 40, 22) = 0.837945E+00
-PKER_SDRYG( 40, 23) = 0.786624E+00
-PKER_SDRYG( 40, 24) = 0.738433E+00
-PKER_SDRYG( 40, 25) = 0.693182E+00
-PKER_SDRYG( 40, 26) = 0.650691E+00
-PKER_SDRYG( 40, 27) = 0.610792E+00
-PKER_SDRYG( 40, 28) = 0.573327E+00
-PKER_SDRYG( 40, 29) = 0.538146E+00
-PKER_SDRYG( 40, 30) = 0.505110E+00
-PKER_SDRYG( 40, 31) = 0.474088E+00
-PKER_SDRYG( 40, 32) = 0.444957E+00
-PKER_SDRYG( 40, 33) = 0.417600E+00
-PKER_SDRYG( 40, 34) = 0.391910E+00
-PKER_SDRYG( 40, 35) = 0.367783E+00
-PKER_SDRYG( 40, 36) = 0.345124E+00
-PKER_SDRYG( 40, 37) = 0.323843E+00
-PKER_SDRYG( 40, 38) = 0.303853E+00
-PKER_SDRYG( 40, 39) = 0.285076E+00
-PKER_SDRYG( 40, 40) = 0.267436E+00
-PKER_SDRYG( 40, 41) = 0.250861E+00
-PKER_SDRYG( 40, 42) = 0.235285E+00
-PKER_SDRYG( 40, 43) = 0.220643E+00
-PKER_SDRYG( 40, 44) = 0.206877E+00
-PKER_SDRYG( 40, 45) = 0.193928E+00
-PKER_SDRYG( 40, 46) = 0.181743E+00
-PKER_SDRYG( 40, 47) = 0.170269E+00
-PKER_SDRYG( 40, 48) = 0.159457E+00
-PKER_SDRYG( 40, 49) = 0.149258E+00
-PKER_SDRYG( 40, 50) = 0.139627E+00
-PKER_SDRYG( 40, 51) = 0.130518E+00
-PKER_SDRYG( 40, 52) = 0.121890E+00
-PKER_SDRYG( 40, 53) = 0.113703E+00
-PKER_SDRYG( 40, 54) = 0.105920E+00
-PKER_SDRYG( 40, 55) = 0.985112E-01
-PKER_SDRYG( 40, 56) = 0.914559E-01
-PKER_SDRYG( 40, 57) = 0.847430E-01
-PKER_SDRYG( 40, 58) = 0.783738E-01
-PKER_SDRYG( 40, 59) = 0.723597E-01
-PKER_SDRYG( 40, 60) = 0.667182E-01
-PKER_SDRYG( 40, 61) = 0.614651E-01
-PKER_SDRYG( 40, 62) = 0.566085E-01
-PKER_SDRYG( 40, 63) = 0.521442E-01
-PKER_SDRYG( 40, 64) = 0.480558E-01
-PKER_SDRYG( 40, 65) = 0.443173E-01
-PKER_SDRYG( 40, 66) = 0.408974E-01
-PKER_SDRYG( 40, 67) = 0.377635E-01
-PKER_SDRYG( 40, 68) = 0.348844E-01
-PKER_SDRYG( 40, 69) = 0.322318E-01
-PKER_SDRYG( 40, 70) = 0.297808E-01
-PKER_SDRYG( 40, 71) = 0.275102E-01
-PKER_SDRYG( 40, 72) = 0.254017E-01
-PKER_SDRYG( 40, 73) = 0.234398E-01
-PKER_SDRYG( 40, 74) = 0.216113E-01
-PKER_SDRYG( 40, 75) = 0.199047E-01
-PKER_SDRYG( 40, 76) = 0.183101E-01
-PKER_SDRYG( 40, 77) = 0.168188E-01
-PKER_SDRYG( 40, 78) = 0.154231E-01
-PKER_SDRYG( 40, 79) = 0.141161E-01
-PKER_SDRYG( 40, 80) = 0.128918E-01
+PKER_SDRYG( 1, 1) = 0.666685E+00
+PKER_SDRYG( 1, 2) = 0.672365E+00
+PKER_SDRYG( 1, 3) = 0.679829E+00
+PKER_SDRYG( 1, 4) = 0.688824E+00
+PKER_SDRYG( 1, 5) = 0.699333E+00
+PKER_SDRYG( 1, 6) = 0.711679E+00
+PKER_SDRYG( 1, 7) = 0.725422E+00
+PKER_SDRYG( 1, 8) = 0.740971E+00
+PKER_SDRYG( 1, 9) = 0.757968E+00
+PKER_SDRYG( 1, 10) = 0.776729E+00
+PKER_SDRYG( 1, 11) = 0.796890E+00
+PKER_SDRYG( 1, 12) = 0.818787E+00
+PKER_SDRYG( 1, 13) = 0.842128E+00
+PKER_SDRYG( 1, 14) = 0.866900E+00
+PKER_SDRYG( 1, 15) = 0.893208E+00
+PKER_SDRYG( 1, 16) = 0.920851E+00
+PKER_SDRYG( 1, 17) = 0.949726E+00
+PKER_SDRYG( 1, 18) = 0.979745E+00
+PKER_SDRYG( 1, 19) = 0.101079E+01
+PKER_SDRYG( 1, 20) = 0.104275E+01
+PKER_SDRYG( 1, 21) = 0.107554E+01
+PKER_SDRYG( 1, 22) = 0.110893E+01
+PKER_SDRYG( 1, 23) = 0.114279E+01
+PKER_SDRYG( 1, 24) = 0.117697E+01
+PKER_SDRYG( 1, 25) = 0.121145E+01
+PKER_SDRYG( 1, 26) = 0.124599E+01
+PKER_SDRYG( 1, 27) = 0.128045E+01
+PKER_SDRYG( 1, 28) = 0.131481E+01
+PKER_SDRYG( 1, 29) = 0.134894E+01
+PKER_SDRYG( 1, 30) = 0.138265E+01
+PKER_SDRYG( 1, 31) = 0.141603E+01
+PKER_SDRYG( 1, 32) = 0.144885E+01
+PKER_SDRYG( 1, 33) = 0.148112E+01
+PKER_SDRYG( 1, 34) = 0.151275E+01
+PKER_SDRYG( 1, 35) = 0.154370E+01
+PKER_SDRYG( 1, 36) = 0.157390E+01
+PKER_SDRYG( 1, 37) = 0.160336E+01
+PKER_SDRYG( 1, 38) = 0.163198E+01
+PKER_SDRYG( 1, 39) = 0.165979E+01
+PKER_SDRYG( 1, 40) = 0.168675E+01
+PKER_SDRYG( 1, 41) = 0.171285E+01
+PKER_SDRYG( 1, 42) = 0.173807E+01
+PKER_SDRYG( 1, 43) = 0.176242E+01
+PKER_SDRYG( 1, 44) = 0.178590E+01
+PKER_SDRYG( 1, 45) = 0.180853E+01
+PKER_SDRYG( 1, 46) = 0.183030E+01
+PKER_SDRYG( 1, 47) = 0.185124E+01
+PKER_SDRYG( 1, 48) = 0.187137E+01
+PKER_SDRYG( 1, 49) = 0.189071E+01
+PKER_SDRYG( 1, 50) = 0.190929E+01
+PKER_SDRYG( 1, 51) = 0.192714E+01
+PKER_SDRYG( 1, 52) = 0.194427E+01
+PKER_SDRYG( 1, 53) = 0.196074E+01
+PKER_SDRYG( 1, 54) = 0.197655E+01
+PKER_SDRYG( 1, 55) = 0.199175E+01
+PKER_SDRYG( 1, 56) = 0.200636E+01
+PKER_SDRYG( 1, 57) = 0.202041E+01
+PKER_SDRYG( 1, 58) = 0.203393E+01
+PKER_SDRYG( 1, 59) = 0.204694E+01
+PKER_SDRYG( 1, 60) = 0.205946E+01
+PKER_SDRYG( 1, 61) = 0.207153E+01
+PKER_SDRYG( 1, 62) = 0.208317E+01
+PKER_SDRYG( 1, 63) = 0.209438E+01
+PKER_SDRYG( 1, 64) = 0.210521E+01
+PKER_SDRYG( 1, 65) = 0.211566E+01
+PKER_SDRYG( 1, 66) = 0.212575E+01
+PKER_SDRYG( 1, 67) = 0.213550E+01
+PKER_SDRYG( 1, 68) = 0.214493E+01
+PKER_SDRYG( 1, 69) = 0.215405E+01
+PKER_SDRYG( 1, 70) = 0.216288E+01
+PKER_SDRYG( 1, 71) = 0.217143E+01
+PKER_SDRYG( 1, 72) = 0.217971E+01
+PKER_SDRYG( 1, 73) = 0.218774E+01
+PKER_SDRYG( 1, 74) = 0.219553E+01
+PKER_SDRYG( 1, 75) = 0.220308E+01
+PKER_SDRYG( 1, 76) = 0.221041E+01
+PKER_SDRYG( 1, 77) = 0.221753E+01
+PKER_SDRYG( 1, 78) = 0.222445E+01
+PKER_SDRYG( 1, 79) = 0.223117E+01
+PKER_SDRYG( 1, 80) = 0.223771E+01
+PKER_SDRYG( 2, 1) = 0.591409E+00
+PKER_SDRYG( 2, 2) = 0.587347E+00
+PKER_SDRYG( 2, 3) = 0.584431E+00
+PKER_SDRYG( 2, 4) = 0.583238E+00
+PKER_SDRYG( 2, 5) = 0.583302E+00
+PKER_SDRYG( 2, 6) = 0.584855E+00
+PKER_SDRYG( 2, 7) = 0.587852E+00
+PKER_SDRYG( 2, 8) = 0.592353E+00
+PKER_SDRYG( 2, 9) = 0.598391E+00
+PKER_SDRYG( 2, 10) = 0.605935E+00
+PKER_SDRYG( 2, 11) = 0.614955E+00
+PKER_SDRYG( 2, 12) = 0.625617E+00
+PKER_SDRYG( 2, 13) = 0.637665E+00
+PKER_SDRYG( 2, 14) = 0.651266E+00
+PKER_SDRYG( 2, 15) = 0.666361E+00
+PKER_SDRYG( 2, 16) = 0.682821E+00
+PKER_SDRYG( 2, 17) = 0.700830E+00
+PKER_SDRYG( 2, 18) = 0.720073E+00
+PKER_SDRYG( 2, 19) = 0.740744E+00
+PKER_SDRYG( 2, 20) = 0.762619E+00
+PKER_SDRYG( 2, 21) = 0.785651E+00
+PKER_SDRYG( 2, 22) = 0.809891E+00
+PKER_SDRYG( 2, 23) = 0.835118E+00
+PKER_SDRYG( 2, 24) = 0.861263E+00
+PKER_SDRYG( 2, 25) = 0.888230E+00
+PKER_SDRYG( 2, 26) = 0.915921E+00
+PKER_SDRYG( 2, 27) = 0.944168E+00
+PKER_SDRYG( 2, 28) = 0.972844E+00
+PKER_SDRYG( 2, 29) = 0.100186E+01
+PKER_SDRYG( 2, 30) = 0.103109E+01
+PKER_SDRYG( 2, 31) = 0.106035E+01
+PKER_SDRYG( 2, 32) = 0.108954E+01
+PKER_SDRYG( 2, 33) = 0.111856E+01
+PKER_SDRYG( 2, 34) = 0.114738E+01
+PKER_SDRYG( 2, 35) = 0.117581E+01
+PKER_SDRYG( 2, 36) = 0.120379E+01
+PKER_SDRYG( 2, 37) = 0.123136E+01
+PKER_SDRYG( 2, 38) = 0.125835E+01
+PKER_SDRYG( 2, 39) = 0.128475E+01
+PKER_SDRYG( 2, 40) = 0.131057E+01
+PKER_SDRYG( 2, 41) = 0.133569E+01
+PKER_SDRYG( 2, 42) = 0.136020E+01
+PKER_SDRYG( 2, 43) = 0.138397E+01
+PKER_SDRYG( 2, 44) = 0.140710E+01
+PKER_SDRYG( 2, 45) = 0.142949E+01
+PKER_SDRYG( 2, 46) = 0.145119E+01
+PKER_SDRYG( 2, 47) = 0.147218E+01
+PKER_SDRYG( 2, 48) = 0.149246E+01
+PKER_SDRYG( 2, 49) = 0.151206E+01
+PKER_SDRYG( 2, 50) = 0.153097E+01
+PKER_SDRYG( 2, 51) = 0.154921E+01
+PKER_SDRYG( 2, 52) = 0.156679E+01
+PKER_SDRYG( 2, 53) = 0.158372E+01
+PKER_SDRYG( 2, 54) = 0.160002E+01
+PKER_SDRYG( 2, 55) = 0.161572E+01
+PKER_SDRYG( 2, 56) = 0.163083E+01
+PKER_SDRYG( 2, 57) = 0.164537E+01
+PKER_SDRYG( 2, 58) = 0.165936E+01
+PKER_SDRYG( 2, 59) = 0.167283E+01
+PKER_SDRYG( 2, 60) = 0.168579E+01
+PKER_SDRYG( 2, 61) = 0.169828E+01
+PKER_SDRYG( 2, 62) = 0.171031E+01
+PKER_SDRYG( 2, 63) = 0.172190E+01
+PKER_SDRYG( 2, 64) = 0.173307E+01
+PKER_SDRYG( 2, 65) = 0.174385E+01
+PKER_SDRYG( 2, 66) = 0.175425E+01
+PKER_SDRYG( 2, 67) = 0.176430E+01
+PKER_SDRYG( 2, 68) = 0.177400E+01
+PKER_SDRYG( 2, 69) = 0.178338E+01
+PKER_SDRYG( 2, 70) = 0.179244E+01
+PKER_SDRYG( 2, 71) = 0.180121E+01
+PKER_SDRYG( 2, 72) = 0.180971E+01
+PKER_SDRYG( 2, 73) = 0.181793E+01
+PKER_SDRYG( 2, 74) = 0.182589E+01
+PKER_SDRYG( 2, 75) = 0.183362E+01
+PKER_SDRYG( 2, 76) = 0.184111E+01
+PKER_SDRYG( 2, 77) = 0.184837E+01
+PKER_SDRYG( 2, 78) = 0.185543E+01
+PKER_SDRYG( 2, 79) = 0.186228E+01
+PKER_SDRYG( 2, 80) = 0.186893E+01
+PKER_SDRYG( 3, 1) = 0.582819E+00
+PKER_SDRYG( 3, 2) = 0.570782E+00
+PKER_SDRYG( 3, 3) = 0.559789E+00
+PKER_SDRYG( 3, 4) = 0.550024E+00
+PKER_SDRYG( 3, 5) = 0.541462E+00
+PKER_SDRYG( 3, 6) = 0.534177E+00
+PKER_SDRYG( 3, 7) = 0.528114E+00
+PKER_SDRYG( 3, 8) = 0.523441E+00
+PKER_SDRYG( 3, 9) = 0.520015E+00
+PKER_SDRYG( 3, 10) = 0.517884E+00
+PKER_SDRYG( 3, 11) = 0.517144E+00
+PKER_SDRYG( 3, 12) = 0.517734E+00
+PKER_SDRYG( 3, 13) = 0.519790E+00
+PKER_SDRYG( 3, 14) = 0.523238E+00
+PKER_SDRYG( 3, 15) = 0.527991E+00
+PKER_SDRYG( 3, 16) = 0.534220E+00
+PKER_SDRYG( 3, 17) = 0.541957E+00
+PKER_SDRYG( 3, 18) = 0.551025E+00
+PKER_SDRYG( 3, 19) = 0.561409E+00
+PKER_SDRYG( 3, 20) = 0.573252E+00
+PKER_SDRYG( 3, 21) = 0.586445E+00
+PKER_SDRYG( 3, 22) = 0.600830E+00
+PKER_SDRYG( 3, 23) = 0.616630E+00
+PKER_SDRYG( 3, 24) = 0.633503E+00
+PKER_SDRYG( 3, 25) = 0.651554E+00
+PKER_SDRYG( 3, 26) = 0.670618E+00
+PKER_SDRYG( 3, 27) = 0.690703E+00
+PKER_SDRYG( 3, 28) = 0.711611E+00
+PKER_SDRYG( 3, 29) = 0.733416E+00
+PKER_SDRYG( 3, 30) = 0.755855E+00
+PKER_SDRYG( 3, 31) = 0.778915E+00
+PKER_SDRYG( 3, 32) = 0.802540E+00
+PKER_SDRYG( 3, 33) = 0.826537E+00
+PKER_SDRYG( 3, 34) = 0.850812E+00
+PKER_SDRYG( 3, 35) = 0.875262E+00
+PKER_SDRYG( 3, 36) = 0.899782E+00
+PKER_SDRYG( 3, 37) = 0.924265E+00
+PKER_SDRYG( 3, 38) = 0.948667E+00
+PKER_SDRYG( 3, 39) = 0.972838E+00
+PKER_SDRYG( 3, 40) = 0.996697E+00
+PKER_SDRYG( 3, 41) = 0.102018E+01
+PKER_SDRYG( 3, 42) = 0.104327E+01
+PKER_SDRYG( 3, 43) = 0.106589E+01
+PKER_SDRYG( 3, 44) = 0.108798E+01
+PKER_SDRYG( 3, 45) = 0.110953E+01
+PKER_SDRYG( 3, 46) = 0.113055E+01
+PKER_SDRYG( 3, 47) = 0.115095E+01
+PKER_SDRYG( 3, 48) = 0.117080E+01
+PKER_SDRYG( 3, 49) = 0.119006E+01
+PKER_SDRYG( 3, 50) = 0.120872E+01
+PKER_SDRYG( 3, 51) = 0.122681E+01
+PKER_SDRYG( 3, 52) = 0.124431E+01
+PKER_SDRYG( 3, 53) = 0.126125E+01
+PKER_SDRYG( 3, 54) = 0.127763E+01
+PKER_SDRYG( 3, 55) = 0.129345E+01
+PKER_SDRYG( 3, 56) = 0.130876E+01
+PKER_SDRYG( 3, 57) = 0.132353E+01
+PKER_SDRYG( 3, 58) = 0.133779E+01
+PKER_SDRYG( 3, 59) = 0.135156E+01
+PKER_SDRYG( 3, 60) = 0.136485E+01
+PKER_SDRYG( 3, 61) = 0.137767E+01
+PKER_SDRYG( 3, 62) = 0.139004E+01
+PKER_SDRYG( 3, 63) = 0.140197E+01
+PKER_SDRYG( 3, 64) = 0.141349E+01
+PKER_SDRYG( 3, 65) = 0.142459E+01
+PKER_SDRYG( 3, 66) = 0.143532E+01
+PKER_SDRYG( 3, 67) = 0.144566E+01
+PKER_SDRYG( 3, 68) = 0.145566E+01
+PKER_SDRYG( 3, 69) = 0.146531E+01
+PKER_SDRYG( 3, 70) = 0.147464E+01
+PKER_SDRYG( 3, 71) = 0.148365E+01
+PKER_SDRYG( 3, 72) = 0.149237E+01
+PKER_SDRYG( 3, 73) = 0.150081E+01
+PKER_SDRYG( 3, 74) = 0.150897E+01
+PKER_SDRYG( 3, 75) = 0.151688E+01
+PKER_SDRYG( 3, 76) = 0.152455E+01
+PKER_SDRYG( 3, 77) = 0.153198E+01
+PKER_SDRYG( 3, 78) = 0.153919E+01
+PKER_SDRYG( 3, 79) = 0.154618E+01
+PKER_SDRYG( 3, 80) = 0.155297E+01
+PKER_SDRYG( 4, 1) = 0.621592E+00
+PKER_SDRYG( 4, 2) = 0.603510E+00
+PKER_SDRYG( 4, 3) = 0.586372E+00
+PKER_SDRYG( 4, 4) = 0.570290E+00
+PKER_SDRYG( 4, 5) = 0.555055E+00
+PKER_SDRYG( 4, 6) = 0.540968E+00
+PKER_SDRYG( 4, 7) = 0.527929E+00
+PKER_SDRYG( 4, 8) = 0.515868E+00
+PKER_SDRYG( 4, 9) = 0.504933E+00
+PKER_SDRYG( 4, 10) = 0.495015E+00
+PKER_SDRYG( 4, 11) = 0.486393E+00
+PKER_SDRYG( 4, 12) = 0.478851E+00
+PKER_SDRYG( 4, 13) = 0.472378E+00
+PKER_SDRYG( 4, 14) = 0.467306E+00
+PKER_SDRYG( 4, 15) = 0.463389E+00
+PKER_SDRYG( 4, 16) = 0.460623E+00
+PKER_SDRYG( 4, 17) = 0.459283E+00
+PKER_SDRYG( 4, 18) = 0.459095E+00
+PKER_SDRYG( 4, 19) = 0.460303E+00
+PKER_SDRYG( 4, 20) = 0.462694E+00
+PKER_SDRYG( 4, 21) = 0.466531E+00
+PKER_SDRYG( 4, 22) = 0.471576E+00
+PKER_SDRYG( 4, 23) = 0.478020E+00
+PKER_SDRYG( 4, 24) = 0.485639E+00
+PKER_SDRYG( 4, 25) = 0.494505E+00
+PKER_SDRYG( 4, 26) = 0.504731E+00
+PKER_SDRYG( 4, 27) = 0.516072E+00
+PKER_SDRYG( 4, 28) = 0.528481E+00
+PKER_SDRYG( 4, 29) = 0.542123E+00
+PKER_SDRYG( 4, 30) = 0.556704E+00
+PKER_SDRYG( 4, 31) = 0.572221E+00
+PKER_SDRYG( 4, 32) = 0.588686E+00
+PKER_SDRYG( 4, 33) = 0.605819E+00
+PKER_SDRYG( 4, 34) = 0.623811E+00
+PKER_SDRYG( 4, 35) = 0.642281E+00
+PKER_SDRYG( 4, 36) = 0.661399E+00
+PKER_SDRYG( 4, 37) = 0.680867E+00
+PKER_SDRYG( 4, 38) = 0.700713E+00
+PKER_SDRYG( 4, 39) = 0.720816E+00
+PKER_SDRYG( 4, 40) = 0.741069E+00
+PKER_SDRYG( 4, 41) = 0.761417E+00
+PKER_SDRYG( 4, 42) = 0.781787E+00
+PKER_SDRYG( 4, 43) = 0.802062E+00
+PKER_SDRYG( 4, 44) = 0.822176E+00
+PKER_SDRYG( 4, 45) = 0.842061E+00
+PKER_SDRYG( 4, 46) = 0.861674E+00
+PKER_SDRYG( 4, 47) = 0.880971E+00
+PKER_SDRYG( 4, 48) = 0.899879E+00
+PKER_SDRYG( 4, 49) = 0.918359E+00
+PKER_SDRYG( 4, 50) = 0.936383E+00
+PKER_SDRYG( 4, 51) = 0.953982E+00
+PKER_SDRYG( 4, 52) = 0.971082E+00
+PKER_SDRYG( 4, 53) = 0.987675E+00
+PKER_SDRYG( 4, 54) = 0.100381E+01
+PKER_SDRYG( 4, 55) = 0.101944E+01
+PKER_SDRYG( 4, 56) = 0.103457E+01
+PKER_SDRYG( 4, 57) = 0.104926E+01
+PKER_SDRYG( 4, 58) = 0.106346E+01
+PKER_SDRYG( 4, 59) = 0.107722E+01
+PKER_SDRYG( 4, 60) = 0.109052E+01
+PKER_SDRYG( 4, 61) = 0.110340E+01
+PKER_SDRYG( 4, 62) = 0.111585E+01
+PKER_SDRYG( 4, 63) = 0.112791E+01
+PKER_SDRYG( 4, 64) = 0.113956E+01
+PKER_SDRYG( 4, 65) = 0.115083E+01
+PKER_SDRYG( 4, 66) = 0.116174E+01
+PKER_SDRYG( 4, 67) = 0.117229E+01
+PKER_SDRYG( 4, 68) = 0.118249E+01
+PKER_SDRYG( 4, 69) = 0.119236E+01
+PKER_SDRYG( 4, 70) = 0.120191E+01
+PKER_SDRYG( 4, 71) = 0.121115E+01
+PKER_SDRYG( 4, 72) = 0.122009E+01
+PKER_SDRYG( 4, 73) = 0.122874E+01
+PKER_SDRYG( 4, 74) = 0.123711E+01
+PKER_SDRYG( 4, 75) = 0.124522E+01
+PKER_SDRYG( 4, 76) = 0.125307E+01
+PKER_SDRYG( 4, 77) = 0.126068E+01
+PKER_SDRYG( 4, 78) = 0.126805E+01
+PKER_SDRYG( 4, 79) = 0.127520E+01
+PKER_SDRYG( 4, 80) = 0.128214E+01
+PKER_SDRYG( 5, 1) = 0.689528E+00
+PKER_SDRYG( 5, 2) = 0.667460E+00
+PKER_SDRYG( 5, 3) = 0.646101E+00
+PKER_SDRYG( 5, 4) = 0.625570E+00
+PKER_SDRYG( 5, 5) = 0.605850E+00
+PKER_SDRYG( 5, 6) = 0.586882E+00
+PKER_SDRYG( 5, 7) = 0.568764E+00
+PKER_SDRYG( 5, 8) = 0.551406E+00
+PKER_SDRYG( 5, 9) = 0.535073E+00
+PKER_SDRYG( 5, 10) = 0.519503E+00
+PKER_SDRYG( 5, 11) = 0.504847E+00
+PKER_SDRYG( 5, 12) = 0.491093E+00
+PKER_SDRYG( 5, 13) = 0.478354E+00
+PKER_SDRYG( 5, 14) = 0.466461E+00
+PKER_SDRYG( 5, 15) = 0.455713E+00
+PKER_SDRYG( 5, 16) = 0.445935E+00
+PKER_SDRYG( 5, 17) = 0.437223E+00
+PKER_SDRYG( 5, 18) = 0.429500E+00
+PKER_SDRYG( 5, 19) = 0.422957E+00
+PKER_SDRYG( 5, 20) = 0.417493E+00
+PKER_SDRYG( 5, 21) = 0.413209E+00
+PKER_SDRYG( 5, 22) = 0.409997E+00
+PKER_SDRYG( 5, 23) = 0.408058E+00
+PKER_SDRYG( 5, 24) = 0.407302E+00
+PKER_SDRYG( 5, 25) = 0.407744E+00
+PKER_SDRYG( 5, 26) = 0.409399E+00
+PKER_SDRYG( 5, 27) = 0.412171E+00
+PKER_SDRYG( 5, 28) = 0.416232E+00
+PKER_SDRYG( 5, 29) = 0.421358E+00
+PKER_SDRYG( 5, 30) = 0.427793E+00
+PKER_SDRYG( 5, 31) = 0.435282E+00
+PKER_SDRYG( 5, 32) = 0.443818E+00
+PKER_SDRYG( 5, 33) = 0.453426E+00
+PKER_SDRYG( 5, 34) = 0.464054E+00
+PKER_SDRYG( 5, 35) = 0.475597E+00
+PKER_SDRYG( 5, 36) = 0.487969E+00
+PKER_SDRYG( 5, 37) = 0.501167E+00
+PKER_SDRYG( 5, 38) = 0.515120E+00
+PKER_SDRYG( 5, 39) = 0.529635E+00
+PKER_SDRYG( 5, 40) = 0.544770E+00
+PKER_SDRYG( 5, 41) = 0.560353E+00
+PKER_SDRYG( 5, 42) = 0.576316E+00
+PKER_SDRYG( 5, 43) = 0.592609E+00
+PKER_SDRYG( 5, 44) = 0.609106E+00
+PKER_SDRYG( 5, 45) = 0.625771E+00
+PKER_SDRYG( 5, 46) = 0.642527E+00
+PKER_SDRYG( 5, 47) = 0.659265E+00
+PKER_SDRYG( 5, 48) = 0.676002E+00
+PKER_SDRYG( 5, 49) = 0.692637E+00
+PKER_SDRYG( 5, 50) = 0.709111E+00
+PKER_SDRYG( 5, 51) = 0.725379E+00
+PKER_SDRYG( 5, 52) = 0.741399E+00
+PKER_SDRYG( 5, 53) = 0.757134E+00
+PKER_SDRYG( 5, 54) = 0.772549E+00
+PKER_SDRYG( 5, 55) = 0.787642E+00
+PKER_SDRYG( 5, 56) = 0.802370E+00
+PKER_SDRYG( 5, 57) = 0.816707E+00
+PKER_SDRYG( 5, 58) = 0.830644E+00
+PKER_SDRYG( 5, 59) = 0.844197E+00
+PKER_SDRYG( 5, 60) = 0.857362E+00
+PKER_SDRYG( 5, 61) = 0.870118E+00
+PKER_SDRYG( 5, 62) = 0.882476E+00
+PKER_SDRYG( 5, 63) = 0.894477E+00
+PKER_SDRYG( 5, 64) = 0.906086E+00
+PKER_SDRYG( 5, 65) = 0.917334E+00
+PKER_SDRYG( 5, 66) = 0.928238E+00
+PKER_SDRYG( 5, 67) = 0.938787E+00
+PKER_SDRYG( 5, 68) = 0.949025E+00
+PKER_SDRYG( 5, 69) = 0.958929E+00
+PKER_SDRYG( 5, 70) = 0.968541E+00
+PKER_SDRYG( 5, 71) = 0.977849E+00
+PKER_SDRYG( 5, 72) = 0.986872E+00
+PKER_SDRYG( 5, 73) = 0.995625E+00
+PKER_SDRYG( 5, 74) = 0.100411E+01
+PKER_SDRYG( 5, 75) = 0.101233E+01
+PKER_SDRYG( 5, 76) = 0.102032E+01
+PKER_SDRYG( 5, 77) = 0.102806E+01
+PKER_SDRYG( 5, 78) = 0.103557E+01
+PKER_SDRYG( 5, 79) = 0.104286E+01
+PKER_SDRYG( 5, 80) = 0.104993E+01
+PKER_SDRYG( 6, 1) = 0.771103E+00
+PKER_SDRYG( 6, 2) = 0.746650E+00
+PKER_SDRYG( 6, 3) = 0.722877E+00
+PKER_SDRYG( 6, 4) = 0.699666E+00
+PKER_SDRYG( 6, 5) = 0.677055E+00
+PKER_SDRYG( 6, 6) = 0.655147E+00
+PKER_SDRYG( 6, 7) = 0.633838E+00
+PKER_SDRYG( 6, 8) = 0.613131E+00
+PKER_SDRYG( 6, 9) = 0.593174E+00
+PKER_SDRYG( 6, 10) = 0.573822E+00
+PKER_SDRYG( 6, 11) = 0.555201E+00
+PKER_SDRYG( 6, 12) = 0.537215E+00
+PKER_SDRYG( 6, 13) = 0.520079E+00
+PKER_SDRYG( 6, 14) = 0.503587E+00
+PKER_SDRYG( 6, 15) = 0.487912E+00
+PKER_SDRYG( 6, 16) = 0.472993E+00
+PKER_SDRYG( 6, 17) = 0.458846E+00
+PKER_SDRYG( 6, 18) = 0.445678E+00
+PKER_SDRYG( 6, 19) = 0.433263E+00
+PKER_SDRYG( 6, 20) = 0.421739E+00
+PKER_SDRYG( 6, 21) = 0.411187E+00
+PKER_SDRYG( 6, 22) = 0.401494E+00
+PKER_SDRYG( 6, 23) = 0.392805E+00
+PKER_SDRYG( 6, 24) = 0.385176E+00
+PKER_SDRYG( 6, 25) = 0.378444E+00
+PKER_SDRYG( 6, 26) = 0.372855E+00
+PKER_SDRYG( 6, 27) = 0.368192E+00
+PKER_SDRYG( 6, 28) = 0.364790E+00
+PKER_SDRYG( 6, 29) = 0.362372E+00
+PKER_SDRYG( 6, 30) = 0.361018E+00
+PKER_SDRYG( 6, 31) = 0.360835E+00
+PKER_SDRYG( 6, 32) = 0.361746E+00
+PKER_SDRYG( 6, 33) = 0.363671E+00
+PKER_SDRYG( 6, 34) = 0.366816E+00
+PKER_SDRYG( 6, 35) = 0.370929E+00
+PKER_SDRYG( 6, 36) = 0.376087E+00
+PKER_SDRYG( 6, 37) = 0.382210E+00
+PKER_SDRYG( 6, 38) = 0.389318E+00
+PKER_SDRYG( 6, 39) = 0.397327E+00
+PKER_SDRYG( 6, 40) = 0.406225E+00
+PKER_SDRYG( 6, 41) = 0.415835E+00
+PKER_SDRYG( 6, 42) = 0.426173E+00
+PKER_SDRYG( 6, 43) = 0.437264E+00
+PKER_SDRYG( 6, 44) = 0.448881E+00
+PKER_SDRYG( 6, 45) = 0.460962E+00
+PKER_SDRYG( 6, 46) = 0.473559E+00
+PKER_SDRYG( 6, 47) = 0.486498E+00
+PKER_SDRYG( 6, 48) = 0.499685E+00
+PKER_SDRYG( 6, 49) = 0.513183E+00
+PKER_SDRYG( 6, 50) = 0.526761E+00
+PKER_SDRYG( 6, 51) = 0.540489E+00
+PKER_SDRYG( 6, 52) = 0.554210E+00
+PKER_SDRYG( 6, 53) = 0.567959E+00
+PKER_SDRYG( 6, 54) = 0.581597E+00
+PKER_SDRYG( 6, 55) = 0.595183E+00
+PKER_SDRYG( 6, 56) = 0.608601E+00
+PKER_SDRYG( 6, 57) = 0.621835E+00
+PKER_SDRYG( 6, 58) = 0.634901E+00
+PKER_SDRYG( 6, 59) = 0.647728E+00
+PKER_SDRYG( 6, 60) = 0.660297E+00
+PKER_SDRYG( 6, 61) = 0.672592E+00
+PKER_SDRYG( 6, 62) = 0.684598E+00
+PKER_SDRYG( 6, 63) = 0.696308E+00
+PKER_SDRYG( 6, 64) = 0.707731E+00
+PKER_SDRYG( 6, 65) = 0.718838E+00
+PKER_SDRYG( 6, 66) = 0.729625E+00
+PKER_SDRYG( 6, 67) = 0.740093E+00
+PKER_SDRYG( 6, 68) = 0.750276E+00
+PKER_SDRYG( 6, 69) = 0.760149E+00
+PKER_SDRYG( 6, 70) = 0.769716E+00
+PKER_SDRYG( 6, 71) = 0.779003E+00
+PKER_SDRYG( 6, 72) = 0.788016E+00
+PKER_SDRYG( 6, 73) = 0.796745E+00
+PKER_SDRYG( 6, 74) = 0.805231E+00
+PKER_SDRYG( 6, 75) = 0.813458E+00
+PKER_SDRYG( 6, 76) = 0.821446E+00
+PKER_SDRYG( 6, 77) = 0.829203E+00
+PKER_SDRYG( 6, 78) = 0.836737E+00
+PKER_SDRYG( 6, 79) = 0.844055E+00
+PKER_SDRYG( 6, 80) = 0.851171E+00
+PKER_SDRYG( 7, 1) = 0.854539E+00
+PKER_SDRYG( 7, 2) = 0.829014E+00
+PKER_SDRYG( 7, 3) = 0.804002E+00
+PKER_SDRYG( 7, 4) = 0.779460E+00
+PKER_SDRYG( 7, 5) = 0.755444E+00
+PKER_SDRYG( 7, 6) = 0.731897E+00
+PKER_SDRYG( 7, 7) = 0.708916E+00
+PKER_SDRYG( 7, 8) = 0.686397E+00
+PKER_SDRYG( 7, 9) = 0.664435E+00
+PKER_SDRYG( 7, 10) = 0.642951E+00
+PKER_SDRYG( 7, 11) = 0.621997E+00
+PKER_SDRYG( 7, 12) = 0.601596E+00
+PKER_SDRYG( 7, 13) = 0.581719E+00
+PKER_SDRYG( 7, 14) = 0.562434E+00
+PKER_SDRYG( 7, 15) = 0.543705E+00
+PKER_SDRYG( 7, 16) = 0.525584E+00
+PKER_SDRYG( 7, 17) = 0.508020E+00
+PKER_SDRYG( 7, 18) = 0.491158E+00
+PKER_SDRYG( 7, 19) = 0.474872E+00
+PKER_SDRYG( 7, 20) = 0.459237E+00
+PKER_SDRYG( 7, 21) = 0.444288E+00
+PKER_SDRYG( 7, 22) = 0.430124E+00
+PKER_SDRYG( 7, 23) = 0.416603E+00
+PKER_SDRYG( 7, 24) = 0.403876E+00
+PKER_SDRYG( 7, 25) = 0.391893E+00
+PKER_SDRYG( 7, 26) = 0.380791E+00
+PKER_SDRYG( 7, 27) = 0.370505E+00
+PKER_SDRYG( 7, 28) = 0.361051E+00
+PKER_SDRYG( 7, 29) = 0.352493E+00
+PKER_SDRYG( 7, 30) = 0.344908E+00
+PKER_SDRYG( 7, 31) = 0.338147E+00
+PKER_SDRYG( 7, 32) = 0.332454E+00
+PKER_SDRYG( 7, 33) = 0.327740E+00
+PKER_SDRYG( 7, 34) = 0.323979E+00
+PKER_SDRYG( 7, 35) = 0.321202E+00
+PKER_SDRYG( 7, 36) = 0.319424E+00
+PKER_SDRYG( 7, 37) = 0.318708E+00
+PKER_SDRYG( 7, 38) = 0.318968E+00
+PKER_SDRYG( 7, 39) = 0.320117E+00
+PKER_SDRYG( 7, 40) = 0.322385E+00
+PKER_SDRYG( 7, 41) = 0.325548E+00
+PKER_SDRYG( 7, 42) = 0.329587E+00
+PKER_SDRYG( 7, 43) = 0.334559E+00
+PKER_SDRYG( 7, 44) = 0.340259E+00
+PKER_SDRYG( 7, 45) = 0.346838E+00
+PKER_SDRYG( 7, 46) = 0.354033E+00
+PKER_SDRYG( 7, 47) = 0.362033E+00
+PKER_SDRYG( 7, 48) = 0.370564E+00
+PKER_SDRYG( 7, 49) = 0.379654E+00
+PKER_SDRYG( 7, 50) = 0.389192E+00
+PKER_SDRYG( 7, 51) = 0.399158E+00
+PKER_SDRYG( 7, 52) = 0.409501E+00
+PKER_SDRYG( 7, 53) = 0.420112E+00
+PKER_SDRYG( 7, 54) = 0.430929E+00
+PKER_SDRYG( 7, 55) = 0.441974E+00
+PKER_SDRYG( 7, 56) = 0.453089E+00
+PKER_SDRYG( 7, 57) = 0.464283E+00
+PKER_SDRYG( 7, 58) = 0.475511E+00
+PKER_SDRYG( 7, 59) = 0.486683E+00
+PKER_SDRYG( 7, 60) = 0.497845E+00
+PKER_SDRYG( 7, 61) = 0.508872E+00
+PKER_SDRYG( 7, 62) = 0.519816E+00
+PKER_SDRYG( 7, 63) = 0.530597E+00
+PKER_SDRYG( 7, 64) = 0.541212E+00
+PKER_SDRYG( 7, 65) = 0.551662E+00
+PKER_SDRYG( 7, 66) = 0.561914E+00
+PKER_SDRYG( 7, 67) = 0.571960E+00
+PKER_SDRYG( 7, 68) = 0.581790E+00
+PKER_SDRYG( 7, 69) = 0.591397E+00
+PKER_SDRYG( 7, 70) = 0.600766E+00
+PKER_SDRYG( 7, 71) = 0.609897E+00
+PKER_SDRYG( 7, 72) = 0.618798E+00
+PKER_SDRYG( 7, 73) = 0.627466E+00
+PKER_SDRYG( 7, 74) = 0.635892E+00
+PKER_SDRYG( 7, 75) = 0.644076E+00
+PKER_SDRYG( 7, 76) = 0.652030E+00
+PKER_SDRYG( 7, 77) = 0.659772E+00
+PKER_SDRYG( 7, 78) = 0.667285E+00
+PKER_SDRYG( 7, 79) = 0.674576E+00
+PKER_SDRYG( 7, 80) = 0.681680E+00
+PKER_SDRYG( 8, 1) = 0.932489E+00
+PKER_SDRYG( 8, 2) = 0.906619E+00
+PKER_SDRYG( 8, 3) = 0.881182E+00
+PKER_SDRYG( 8, 4) = 0.856190E+00
+PKER_SDRYG( 8, 5) = 0.831649E+00
+PKER_SDRYG( 8, 6) = 0.807528E+00
+PKER_SDRYG( 8, 7) = 0.783827E+00
+PKER_SDRYG( 8, 8) = 0.760550E+00
+PKER_SDRYG( 8, 9) = 0.737690E+00
+PKER_SDRYG( 8, 10) = 0.715286E+00
+PKER_SDRYG( 8, 11) = 0.693289E+00
+PKER_SDRYG( 8, 12) = 0.671702E+00
+PKER_SDRYG( 8, 13) = 0.650551E+00
+PKER_SDRYG( 8, 14) = 0.629824E+00
+PKER_SDRYG( 8, 15) = 0.609541E+00
+PKER_SDRYG( 8, 16) = 0.589715E+00
+PKER_SDRYG( 8, 17) = 0.570311E+00
+PKER_SDRYG( 8, 18) = 0.551395E+00
+PKER_SDRYG( 8, 19) = 0.532896E+00
+PKER_SDRYG( 8, 20) = 0.514940E+00
+PKER_SDRYG( 8, 21) = 0.497439E+00
+PKER_SDRYG( 8, 22) = 0.480424E+00
+PKER_SDRYG( 8, 23) = 0.464002E+00
+PKER_SDRYG( 8, 24) = 0.448088E+00
+PKER_SDRYG( 8, 25) = 0.432715E+00
+PKER_SDRYG( 8, 26) = 0.417983E+00
+PKER_SDRYG( 8, 27) = 0.403837E+00
+PKER_SDRYG( 8, 28) = 0.390333E+00
+PKER_SDRYG( 8, 29) = 0.377416E+00
+PKER_SDRYG( 8, 30) = 0.365283E+00
+PKER_SDRYG( 8, 31) = 0.353813E+00
+PKER_SDRYG( 8, 32) = 0.343099E+00
+PKER_SDRYG( 8, 33) = 0.333143E+00
+PKER_SDRYG( 8, 34) = 0.323903E+00
+PKER_SDRYG( 8, 35) = 0.315664E+00
+PKER_SDRYG( 8, 36) = 0.308142E+00
+PKER_SDRYG( 8, 37) = 0.301508E+00
+PKER_SDRYG( 8, 38) = 0.295768E+00
+PKER_SDRYG( 8, 39) = 0.290915E+00
+PKER_SDRYG( 8, 40) = 0.286917E+00
+PKER_SDRYG( 8, 41) = 0.283956E+00
+PKER_SDRYG( 8, 42) = 0.281817E+00
+PKER_SDRYG( 8, 43) = 0.280653E+00
+PKER_SDRYG( 8, 44) = 0.280292E+00
+PKER_SDRYG( 8, 45) = 0.280925E+00
+PKER_SDRYG( 8, 46) = 0.282355E+00
+PKER_SDRYG( 8, 47) = 0.284632E+00
+PKER_SDRYG( 8, 48) = 0.287687E+00
+PKER_SDRYG( 8, 49) = 0.291537E+00
+PKER_SDRYG( 8, 50) = 0.296088E+00
+PKER_SDRYG( 8, 51) = 0.301346E+00
+PKER_SDRYG( 8, 52) = 0.307195E+00
+PKER_SDRYG( 8, 53) = 0.313580E+00
+PKER_SDRYG( 8, 54) = 0.320495E+00
+PKER_SDRYG( 8, 55) = 0.327837E+00
+PKER_SDRYG( 8, 56) = 0.335630E+00
+PKER_SDRYG( 8, 57) = 0.343748E+00
+PKER_SDRYG( 8, 58) = 0.352109E+00
+PKER_SDRYG( 8, 59) = 0.360724E+00
+PKER_SDRYG( 8, 60) = 0.369567E+00
+PKER_SDRYG( 8, 61) = 0.378523E+00
+PKER_SDRYG( 8, 62) = 0.387543E+00
+PKER_SDRYG( 8, 63) = 0.396650E+00
+PKER_SDRYG( 8, 64) = 0.405786E+00
+PKER_SDRYG( 8, 65) = 0.414869E+00
+PKER_SDRYG( 8, 66) = 0.423962E+00
+PKER_SDRYG( 8, 67) = 0.432953E+00
+PKER_SDRYG( 8, 68) = 0.441864E+00
+PKER_SDRYG( 8, 69) = 0.450659E+00
+PKER_SDRYG( 8, 70) = 0.459336E+00
+PKER_SDRYG( 8, 71) = 0.467863E+00
+PKER_SDRYG( 8, 72) = 0.476261E+00
+PKER_SDRYG( 8, 73) = 0.484485E+00
+PKER_SDRYG( 8, 74) = 0.492552E+00
+PKER_SDRYG( 8, 75) = 0.500466E+00
+PKER_SDRYG( 8, 76) = 0.508202E+00
+PKER_SDRYG( 8, 77) = 0.515759E+00
+PKER_SDRYG( 8, 78) = 0.523137E+00
+PKER_SDRYG( 8, 79) = 0.530334E+00
+PKER_SDRYG( 8, 80) = 0.537348E+00
+PKER_SDRYG( 9, 1) = 0.100155E+01
+PKER_SDRYG( 9, 2) = 0.975693E+00
+PKER_SDRYG( 9, 3) = 0.950261E+00
+PKER_SDRYG( 9, 4) = 0.925247E+00
+PKER_SDRYG( 9, 5) = 0.900634E+00
+PKER_SDRYG( 9, 6) = 0.876429E+00
+PKER_SDRYG( 9, 7) = 0.852618E+00
+PKER_SDRYG( 9, 8) = 0.829188E+00
+PKER_SDRYG( 9, 9) = 0.806140E+00
+PKER_SDRYG( 9, 10) = 0.783483E+00
+PKER_SDRYG( 9, 11) = 0.761183E+00
+PKER_SDRYG( 9, 12) = 0.739242E+00
+PKER_SDRYG( 9, 13) = 0.717671E+00
+PKER_SDRYG( 9, 14) = 0.696477E+00
+PKER_SDRYG( 9, 15) = 0.675628E+00
+PKER_SDRYG( 9, 16) = 0.655124E+00
+PKER_SDRYG( 9, 17) = 0.634983E+00
+PKER_SDRYG( 9, 18) = 0.615213E+00
+PKER_SDRYG( 9, 19) = 0.595797E+00
+PKER_SDRYG( 9, 20) = 0.576751E+00
+PKER_SDRYG( 9, 21) = 0.558045E+00
+PKER_SDRYG( 9, 22) = 0.539727E+00
+PKER_SDRYG( 9, 23) = 0.521777E+00
+PKER_SDRYG( 9, 24) = 0.504250E+00
+PKER_SDRYG( 9, 25) = 0.487099E+00
+PKER_SDRYG( 9, 26) = 0.470385E+00
+PKER_SDRYG( 9, 27) = 0.454072E+00
+PKER_SDRYG( 9, 28) = 0.438169E+00
+PKER_SDRYG( 9, 29) = 0.422784E+00
+PKER_SDRYG( 9, 30) = 0.407827E+00
+PKER_SDRYG( 9, 31) = 0.393375E+00
+PKER_SDRYG( 9, 32) = 0.379484E+00
+PKER_SDRYG( 9, 33) = 0.366122E+00
+PKER_SDRYG( 9, 34) = 0.353283E+00
+PKER_SDRYG( 9, 35) = 0.341123E+00
+PKER_SDRYG( 9, 36) = 0.329509E+00
+PKER_SDRYG( 9, 37) = 0.318574E+00
+PKER_SDRYG( 9, 38) = 0.308264E+00
+PKER_SDRYG( 9, 39) = 0.298774E+00
+PKER_SDRYG( 9, 40) = 0.289917E+00
+PKER_SDRYG( 9, 41) = 0.281846E+00
+PKER_SDRYG( 9, 42) = 0.274514E+00
+PKER_SDRYG( 9, 43) = 0.267992E+00
+PKER_SDRYG( 9, 44) = 0.262331E+00
+PKER_SDRYG( 9, 45) = 0.257442E+00
+PKER_SDRYG( 9, 46) = 0.253372E+00
+PKER_SDRYG( 9, 47) = 0.250185E+00
+PKER_SDRYG( 9, 48) = 0.247736E+00
+PKER_SDRYG( 9, 49) = 0.246184E+00
+PKER_SDRYG( 9, 50) = 0.245463E+00
+PKER_SDRYG( 9, 51) = 0.245467E+00
+PKER_SDRYG( 9, 52) = 0.246263E+00
+PKER_SDRYG( 9, 53) = 0.247727E+00
+PKER_SDRYG( 9, 54) = 0.250006E+00
+PKER_SDRYG( 9, 55) = 0.252889E+00
+PKER_SDRYG( 9, 56) = 0.256335E+00
+PKER_SDRYG( 9, 57) = 0.260447E+00
+PKER_SDRYG( 9, 58) = 0.265064E+00
+PKER_SDRYG( 9, 59) = 0.270110E+00
+PKER_SDRYG( 9, 60) = 0.275671E+00
+PKER_SDRYG( 9, 61) = 0.281550E+00
+PKER_SDRYG( 9, 62) = 0.287794E+00
+PKER_SDRYG( 9, 63) = 0.294279E+00
+PKER_SDRYG( 9, 64) = 0.301060E+00
+PKER_SDRYG( 9, 65) = 0.308013E+00
+PKER_SDRYG( 9, 66) = 0.315158E+00
+PKER_SDRYG( 9, 67) = 0.322377E+00
+PKER_SDRYG( 9, 68) = 0.329679E+00
+PKER_SDRYG( 9, 69) = 0.337092E+00
+PKER_SDRYG( 9, 70) = 0.344496E+00
+PKER_SDRYG( 9, 71) = 0.351870E+00
+PKER_SDRYG( 9, 72) = 0.359276E+00
+PKER_SDRYG( 9, 73) = 0.366611E+00
+PKER_SDRYG( 9, 74) = 0.373874E+00
+PKER_SDRYG( 9, 75) = 0.381088E+00
+PKER_SDRYG( 9, 76) = 0.388175E+00
+PKER_SDRYG( 9, 77) = 0.395202E+00
+PKER_SDRYG( 9, 78) = 0.402085E+00
+PKER_SDRYG( 9, 79) = 0.408884E+00
+PKER_SDRYG( 9, 80) = 0.415539E+00
+PKER_SDRYG( 10, 1) = 0.106109E+01
+PKER_SDRYG( 10, 2) = 0.103536E+01
+PKER_SDRYG( 10, 3) = 0.101006E+01
+PKER_SDRYG( 10, 4) = 0.985170E+00
+PKER_SDRYG( 10, 5) = 0.960687E+00
+PKER_SDRYG( 10, 6) = 0.936599E+00
+PKER_SDRYG( 10, 7) = 0.912899E+00
+PKER_SDRYG( 10, 8) = 0.889578E+00
+PKER_SDRYG( 10, 9) = 0.866628E+00
+PKER_SDRYG( 10, 10) = 0.844041E+00
+PKER_SDRYG( 10, 11) = 0.821805E+00
+PKER_SDRYG( 10, 12) = 0.799925E+00
+PKER_SDRYG( 10, 13) = 0.778379E+00
+PKER_SDRYG( 10, 14) = 0.757163E+00
+PKER_SDRYG( 10, 15) = 0.736284E+00
+PKER_SDRYG( 10, 16) = 0.715722E+00
+PKER_SDRYG( 10, 17) = 0.695469E+00
+PKER_SDRYG( 10, 18) = 0.675539E+00
+PKER_SDRYG( 10, 19) = 0.655917E+00
+PKER_SDRYG( 10, 20) = 0.636588E+00
+PKER_SDRYG( 10, 21) = 0.617558E+00
+PKER_SDRYG( 10, 22) = 0.598845E+00
+PKER_SDRYG( 10, 23) = 0.580429E+00
+PKER_SDRYG( 10, 24) = 0.562306E+00
+PKER_SDRYG( 10, 25) = 0.544475E+00
+PKER_SDRYG( 10, 26) = 0.526942E+00
+PKER_SDRYG( 10, 27) = 0.509758E+00
+PKER_SDRYG( 10, 28) = 0.492862E+00
+PKER_SDRYG( 10, 29) = 0.476288E+00
+PKER_SDRYG( 10, 30) = 0.460033E+00
+PKER_SDRYG( 10, 31) = 0.444125E+00
+PKER_SDRYG( 10, 32) = 0.428554E+00
+PKER_SDRYG( 10, 33) = 0.413395E+00
+PKER_SDRYG( 10, 34) = 0.398570E+00
+PKER_SDRYG( 10, 35) = 0.384197E+00
+PKER_SDRYG( 10, 36) = 0.370186E+00
+PKER_SDRYG( 10, 37) = 0.356648E+00
+PKER_SDRYG( 10, 38) = 0.343559E+00
+PKER_SDRYG( 10, 39) = 0.330927E+00
+PKER_SDRYG( 10, 40) = 0.318871E+00
+PKER_SDRYG( 10, 41) = 0.307316E+00
+PKER_SDRYG( 10, 42) = 0.296341E+00
+PKER_SDRYG( 10, 43) = 0.285947E+00
+PKER_SDRYG( 10, 44) = 0.276214E+00
+PKER_SDRYG( 10, 45) = 0.267088E+00
+PKER_SDRYG( 10, 46) = 0.258592E+00
+PKER_SDRYG( 10, 47) = 0.250824E+00
+PKER_SDRYG( 10, 48) = 0.243801E+00
+PKER_SDRYG( 10, 49) = 0.237446E+00
+PKER_SDRYG( 10, 50) = 0.231860E+00
+PKER_SDRYG( 10, 51) = 0.226960E+00
+PKER_SDRYG( 10, 52) = 0.222939E+00
+PKER_SDRYG( 10, 53) = 0.219601E+00
+PKER_SDRYG( 10, 54) = 0.217000E+00
+PKER_SDRYG( 10, 55) = 0.215125E+00
+PKER_SDRYG( 10, 56) = 0.214017E+00
+PKER_SDRYG( 10, 57) = 0.213518E+00
+PKER_SDRYG( 10, 58) = 0.213799E+00
+PKER_SDRYG( 10, 59) = 0.214699E+00
+PKER_SDRYG( 10, 60) = 0.216203E+00
+PKER_SDRYG( 10, 61) = 0.218238E+00
+PKER_SDRYG( 10, 62) = 0.220847E+00
+PKER_SDRYG( 10, 63) = 0.223948E+00
+PKER_SDRYG( 10, 64) = 0.227504E+00
+PKER_SDRYG( 10, 65) = 0.231421E+00
+PKER_SDRYG( 10, 66) = 0.235772E+00
+PKER_SDRYG( 10, 67) = 0.240443E+00
+PKER_SDRYG( 10, 68) = 0.245394E+00
+PKER_SDRYG( 10, 69) = 0.250604E+00
+PKER_SDRYG( 10, 70) = 0.255979E+00
+PKER_SDRYG( 10, 71) = 0.261572E+00
+PKER_SDRYG( 10, 72) = 0.267254E+00
+PKER_SDRYG( 10, 73) = 0.273124E+00
+PKER_SDRYG( 10, 74) = 0.279043E+00
+PKER_SDRYG( 10, 75) = 0.285007E+00
+PKER_SDRYG( 10, 76) = 0.291003E+00
+PKER_SDRYG( 10, 77) = 0.297030E+00
+PKER_SDRYG( 10, 78) = 0.303050E+00
+PKER_SDRYG( 10, 79) = 0.309033E+00
+PKER_SDRYG( 10, 80) = 0.314984E+00
+PKER_SDRYG( 11, 1) = 0.111185E+01
+PKER_SDRYG( 11, 2) = 0.108625E+01
+PKER_SDRYG( 11, 3) = 0.106109E+01
+PKER_SDRYG( 11, 4) = 0.103634E+01
+PKER_SDRYG( 11, 5) = 0.101201E+01
+PKER_SDRYG( 11, 6) = 0.988077E+00
+PKER_SDRYG( 11, 7) = 0.964538E+00
+PKER_SDRYG( 11, 8) = 0.941382E+00
+PKER_SDRYG( 11, 9) = 0.918600E+00
+PKER_SDRYG( 11, 10) = 0.896184E+00
+PKER_SDRYG( 11, 11) = 0.874125E+00
+PKER_SDRYG( 11, 12) = 0.852414E+00
+PKER_SDRYG( 11, 13) = 0.831043E+00
+PKER_SDRYG( 11, 14) = 0.810005E+00
+PKER_SDRYG( 11, 15) = 0.789289E+00
+PKER_SDRYG( 11, 16) = 0.768890E+00
+PKER_SDRYG( 11, 17) = 0.748798E+00
+PKER_SDRYG( 11, 18) = 0.729008E+00
+PKER_SDRYG( 11, 19) = 0.709510E+00
+PKER_SDRYG( 11, 20) = 0.690297E+00
+PKER_SDRYG( 11, 21) = 0.671372E+00
+PKER_SDRYG( 11, 22) = 0.652712E+00
+PKER_SDRYG( 11, 23) = 0.634323E+00
+PKER_SDRYG( 11, 24) = 0.616205E+00
+PKER_SDRYG( 11, 25) = 0.598339E+00
+PKER_SDRYG( 11, 26) = 0.580725E+00
+PKER_SDRYG( 11, 27) = 0.563381E+00
+PKER_SDRYG( 11, 28) = 0.546277E+00
+PKER_SDRYG( 11, 29) = 0.529412E+00
+PKER_SDRYG( 11, 30) = 0.512803E+00
+PKER_SDRYG( 11, 31) = 0.496467E+00
+PKER_SDRYG( 11, 32) = 0.480372E+00
+PKER_SDRYG( 11, 33) = 0.464522E+00
+PKER_SDRYG( 11, 34) = 0.448939E+00
+PKER_SDRYG( 11, 35) = 0.433627E+00
+PKER_SDRYG( 11, 36) = 0.418613E+00
+PKER_SDRYG( 11, 37) = 0.403885E+00
+PKER_SDRYG( 11, 38) = 0.389434E+00
+PKER_SDRYG( 11, 39) = 0.375309E+00
+PKER_SDRYG( 11, 40) = 0.361507E+00
+PKER_SDRYG( 11, 41) = 0.348077E+00
+PKER_SDRYG( 11, 42) = 0.335019E+00
+PKER_SDRYG( 11, 43) = 0.322349E+00
+PKER_SDRYG( 11, 44) = 0.310097E+00
+PKER_SDRYG( 11, 45) = 0.298235E+00
+PKER_SDRYG( 11, 46) = 0.286905E+00
+PKER_SDRYG( 11, 47) = 0.276018E+00
+PKER_SDRYG( 11, 48) = 0.265635E+00
+PKER_SDRYG( 11, 49) = 0.255857E+00
+PKER_SDRYG( 11, 50) = 0.246619E+00
+PKER_SDRYG( 11, 51) = 0.237934E+00
+PKER_SDRYG( 11, 52) = 0.229935E+00
+PKER_SDRYG( 11, 53) = 0.222522E+00
+PKER_SDRYG( 11, 54) = 0.215777E+00
+PKER_SDRYG( 11, 55) = 0.209630E+00
+PKER_SDRYG( 11, 56) = 0.204263E+00
+PKER_SDRYG( 11, 57) = 0.199506E+00
+PKER_SDRYG( 11, 58) = 0.195454E+00
+PKER_SDRYG( 11, 59) = 0.192053E+00
+PKER_SDRYG( 11, 60) = 0.189286E+00
+PKER_SDRYG( 11, 61) = 0.187302E+00
+PKER_SDRYG( 11, 62) = 0.185866E+00
+PKER_SDRYG( 11, 63) = 0.185043E+00
+PKER_SDRYG( 11, 64) = 0.184857E+00
+PKER_SDRYG( 11, 65) = 0.185184E+00
+PKER_SDRYG( 11, 66) = 0.186050E+00
+PKER_SDRYG( 11, 67) = 0.187483E+00
+PKER_SDRYG( 11, 68) = 0.189302E+00
+PKER_SDRYG( 11, 69) = 0.191608E+00
+PKER_SDRYG( 11, 70) = 0.194223E+00
+PKER_SDRYG( 11, 71) = 0.197302E+00
+PKER_SDRYG( 11, 72) = 0.200645E+00
+PKER_SDRYG( 11, 73) = 0.204253E+00
+PKER_SDRYG( 11, 74) = 0.208136E+00
+PKER_SDRYG( 11, 75) = 0.212247E+00
+PKER_SDRYG( 11, 76) = 0.216515E+00
+PKER_SDRYG( 11, 77) = 0.220994E+00
+PKER_SDRYG( 11, 78) = 0.225569E+00
+PKER_SDRYG( 11, 79) = 0.230248E+00
+PKER_SDRYG( 11, 80) = 0.235003E+00
+PKER_SDRYG( 12, 1) = 0.115499E+01
+PKER_SDRYG( 12, 2) = 0.112950E+01
+PKER_SDRYG( 12, 3) = 0.110445E+01
+PKER_SDRYG( 12, 4) = 0.107982E+01
+PKER_SDRYG( 12, 5) = 0.105561E+01
+PKER_SDRYG( 12, 6) = 0.103181E+01
+PKER_SDRYG( 12, 7) = 0.100841E+01
+PKER_SDRYG( 12, 8) = 0.985396E+00
+PKER_SDRYG( 12, 9) = 0.962767E+00
+PKER_SDRYG( 12, 10) = 0.940511E+00
+PKER_SDRYG( 12, 11) = 0.918620E+00
+PKER_SDRYG( 12, 12) = 0.897084E+00
+PKER_SDRYG( 12, 13) = 0.875896E+00
+PKER_SDRYG( 12, 14) = 0.855047E+00
+PKER_SDRYG( 12, 15) = 0.834529E+00
+PKER_SDRYG( 12, 16) = 0.814333E+00
+PKER_SDRYG( 12, 17) = 0.794451E+00
+PKER_SDRYG( 12, 18) = 0.774873E+00
+PKER_SDRYG( 12, 19) = 0.755596E+00
+PKER_SDRYG( 12, 20) = 0.736607E+00
+PKER_SDRYG( 12, 21) = 0.717900E+00
+PKER_SDRYG( 12, 22) = 0.699469E+00
+PKER_SDRYG( 12, 23) = 0.681304E+00
+PKER_SDRYG( 12, 24) = 0.663398E+00
+PKER_SDRYG( 12, 25) = 0.645746E+00
+PKER_SDRYG( 12, 26) = 0.628338E+00
+PKER_SDRYG( 12, 27) = 0.611172E+00
+PKER_SDRYG( 12, 28) = 0.594236E+00
+PKER_SDRYG( 12, 29) = 0.577532E+00
+PKER_SDRYG( 12, 30) = 0.561051E+00
+PKER_SDRYG( 12, 31) = 0.544780E+00
+PKER_SDRYG( 12, 32) = 0.528733E+00
+PKER_SDRYG( 12, 33) = 0.512895E+00
+PKER_SDRYG( 12, 34) = 0.497260E+00
+PKER_SDRYG( 12, 35) = 0.481839E+00
+PKER_SDRYG( 12, 36) = 0.466635E+00
+PKER_SDRYG( 12, 37) = 0.451626E+00
+PKER_SDRYG( 12, 38) = 0.436823E+00
+PKER_SDRYG( 12, 39) = 0.422247E+00
+PKER_SDRYG( 12, 40) = 0.407905E+00
+PKER_SDRYG( 12, 41) = 0.393778E+00
+PKER_SDRYG( 12, 42) = 0.379873E+00
+PKER_SDRYG( 12, 43) = 0.366217E+00
+PKER_SDRYG( 12, 44) = 0.352856E+00
+PKER_SDRYG( 12, 45) = 0.339752E+00
+PKER_SDRYG( 12, 46) = 0.326945E+00
+PKER_SDRYG( 12, 47) = 0.314420E+00
+PKER_SDRYG( 12, 48) = 0.302243E+00
+PKER_SDRYG( 12, 49) = 0.290393E+00
+PKER_SDRYG( 12, 50) = 0.278976E+00
+PKER_SDRYG( 12, 51) = 0.267921E+00
+PKER_SDRYG( 12, 52) = 0.257324E+00
+PKER_SDRYG( 12, 53) = 0.247133E+00
+PKER_SDRYG( 12, 54) = 0.237409E+00
+PKER_SDRYG( 12, 55) = 0.228211E+00
+PKER_SDRYG( 12, 56) = 0.219497E+00
+PKER_SDRYG( 12, 57) = 0.211359E+00
+PKER_SDRYG( 12, 58) = 0.203782E+00
+PKER_SDRYG( 12, 59) = 0.196798E+00
+PKER_SDRYG( 12, 60) = 0.190362E+00
+PKER_SDRYG( 12, 61) = 0.184610E+00
+PKER_SDRYG( 12, 62) = 0.179405E+00
+PKER_SDRYG( 12, 63) = 0.174802E+00
+PKER_SDRYG( 12, 64) = 0.170803E+00
+PKER_SDRYG( 12, 65) = 0.167491E+00
+PKER_SDRYG( 12, 66) = 0.164695E+00
+PKER_SDRYG( 12, 67) = 0.162507E+00
+PKER_SDRYG( 12, 68) = 0.160843E+00
+PKER_SDRYG( 12, 69) = 0.159780E+00
+PKER_SDRYG( 12, 70) = 0.159236E+00
+PKER_SDRYG( 12, 71) = 0.159152E+00
+PKER_SDRYG( 12, 72) = 0.159532E+00
+PKER_SDRYG( 12, 73) = 0.160381E+00
+PKER_SDRYG( 12, 74) = 0.161566E+00
+PKER_SDRYG( 12, 75) = 0.163193E+00
+PKER_SDRYG( 12, 76) = 0.165165E+00
+PKER_SDRYG( 12, 77) = 0.167420E+00
+PKER_SDRYG( 12, 78) = 0.169949E+00
+PKER_SDRYG( 12, 79) = 0.172717E+00
+PKER_SDRYG( 12, 80) = 0.175750E+00
+PKER_SDRYG( 13, 1) = 0.119167E+01
+PKER_SDRYG( 13, 2) = 0.116626E+01
+PKER_SDRYG( 13, 3) = 0.114129E+01
+PKER_SDRYG( 13, 4) = 0.111675E+01
+PKER_SDRYG( 13, 5) = 0.109263E+01
+PKER_SDRYG( 13, 6) = 0.106892E+01
+PKER_SDRYG( 13, 7) = 0.104562E+01
+PKER_SDRYG( 13, 8) = 0.102272E+01
+PKER_SDRYG( 13, 9) = 0.100021E+01
+PKER_SDRYG( 13, 10) = 0.978077E+00
+PKER_SDRYG( 13, 11) = 0.956315E+00
+PKER_SDRYG( 13, 12) = 0.934918E+00
+PKER_SDRYG( 13, 13) = 0.913875E+00
+PKER_SDRYG( 13, 14) = 0.893180E+00
+PKER_SDRYG( 13, 15) = 0.872824E+00
+PKER_SDRYG( 13, 16) = 0.852799E+00
+PKER_SDRYG( 13, 17) = 0.833098E+00
+PKER_SDRYG( 13, 18) = 0.813711E+00
+PKER_SDRYG( 13, 19) = 0.794632E+00
+PKER_SDRYG( 13, 20) = 0.775851E+00
+PKER_SDRYG( 13, 21) = 0.757363E+00
+PKER_SDRYG( 13, 22) = 0.739158E+00
+PKER_SDRYG( 13, 23) = 0.721228E+00
+PKER_SDRYG( 13, 24) = 0.703567E+00
+PKER_SDRYG( 13, 25) = 0.686167E+00
+PKER_SDRYG( 13, 26) = 0.669019E+00
+PKER_SDRYG( 13, 27) = 0.652116E+00
+PKER_SDRYG( 13, 28) = 0.635452E+00
+PKER_SDRYG( 13, 29) = 0.619018E+00
+PKER_SDRYG( 13, 30) = 0.602808E+00
+PKER_SDRYG( 13, 31) = 0.586816E+00
+PKER_SDRYG( 13, 32) = 0.571032E+00
+PKER_SDRYG( 13, 33) = 0.555454E+00
+PKER_SDRYG( 13, 34) = 0.540072E+00
+PKER_SDRYG( 13, 35) = 0.524884E+00
+PKER_SDRYG( 13, 36) = 0.509883E+00
+PKER_SDRYG( 13, 37) = 0.495061E+00
+PKER_SDRYG( 13, 38) = 0.480429E+00
+PKER_SDRYG( 13, 39) = 0.465964E+00
+PKER_SDRYG( 13, 40) = 0.451670E+00
+PKER_SDRYG( 13, 41) = 0.437562E+00
+PKER_SDRYG( 13, 42) = 0.423620E+00
+PKER_SDRYG( 13, 43) = 0.409843E+00
+PKER_SDRYG( 13, 44) = 0.396264E+00
+PKER_SDRYG( 13, 45) = 0.382858E+00
+PKER_SDRYG( 13, 46) = 0.369623E+00
+PKER_SDRYG( 13, 47) = 0.356589E+00
+PKER_SDRYG( 13, 48) = 0.343780E+00
+PKER_SDRYG( 13, 49) = 0.331178E+00
+PKER_SDRYG( 13, 50) = 0.318794E+00
+PKER_SDRYG( 13, 51) = 0.306644E+00
+PKER_SDRYG( 13, 52) = 0.294750E+00
+PKER_SDRYG( 13, 53) = 0.283178E+00
+PKER_SDRYG( 13, 54) = 0.271884E+00
+PKER_SDRYG( 13, 55) = 0.260890E+00
+PKER_SDRYG( 13, 56) = 0.250243E+00
+PKER_SDRYG( 13, 57) = 0.239957E+00
+PKER_SDRYG( 13, 58) = 0.230064E+00
+PKER_SDRYG( 13, 59) = 0.220616E+00
+PKER_SDRYG( 13, 60) = 0.211570E+00
+PKER_SDRYG( 13, 61) = 0.203017E+00
+PKER_SDRYG( 13, 62) = 0.194881E+00
+PKER_SDRYG( 13, 63) = 0.187304E+00
+PKER_SDRYG( 13, 64) = 0.180204E+00
+PKER_SDRYG( 13, 65) = 0.173608E+00
+PKER_SDRYG( 13, 66) = 0.167615E+00
+PKER_SDRYG( 13, 67) = 0.162140E+00
+PKER_SDRYG( 13, 68) = 0.157198E+00
+PKER_SDRYG( 13, 69) = 0.152843E+00
+PKER_SDRYG( 13, 70) = 0.149028E+00
+PKER_SDRYG( 13, 71) = 0.145738E+00
+PKER_SDRYG( 13, 72) = 0.142917E+00
+PKER_SDRYG( 13, 73) = 0.140686E+00
+PKER_SDRYG( 13, 74) = 0.138929E+00
+PKER_SDRYG( 13, 75) = 0.137637E+00
+PKER_SDRYG( 13, 76) = 0.136795E+00
+PKER_SDRYG( 13, 77) = 0.136328E+00
+PKER_SDRYG( 13, 78) = 0.136399E+00
+PKER_SDRYG( 13, 79) = 0.136769E+00
+PKER_SDRYG( 13, 80) = 0.137493E+00
+PKER_SDRYG( 14, 1) = 0.122289E+01
+PKER_SDRYG( 14, 2) = 0.119753E+01
+PKER_SDRYG( 14, 3) = 0.117262E+01
+PKER_SDRYG( 14, 4) = 0.114814E+01
+PKER_SDRYG( 14, 5) = 0.112409E+01
+PKER_SDRYG( 14, 6) = 0.110045E+01
+PKER_SDRYG( 14, 7) = 0.107723E+01
+PKER_SDRYG( 14, 8) = 0.105440E+01
+PKER_SDRYG( 14, 9) = 0.103197E+01
+PKER_SDRYG( 14, 10) = 0.100993E+01
+PKER_SDRYG( 14, 11) = 0.988262E+00
+PKER_SDRYG( 14, 12) = 0.966964E+00
+PKER_SDRYG( 14, 13) = 0.946029E+00
+PKER_SDRYG( 14, 14) = 0.925447E+00
+PKER_SDRYG( 14, 15) = 0.905211E+00
+PKER_SDRYG( 14, 16) = 0.885313E+00
+PKER_SDRYG( 14, 17) = 0.865747E+00
+PKER_SDRYG( 14, 18) = 0.846504E+00
+PKER_SDRYG( 14, 19) = 0.827577E+00
+PKER_SDRYG( 14, 20) = 0.808958E+00
+PKER_SDRYG( 14, 21) = 0.790639E+00
+PKER_SDRYG( 14, 22) = 0.772615E+00
+PKER_SDRYG( 14, 23) = 0.754876E+00
+PKER_SDRYG( 14, 24) = 0.737415E+00
+PKER_SDRYG( 14, 25) = 0.720226E+00
+PKER_SDRYG( 14, 26) = 0.703301E+00
+PKER_SDRYG( 14, 27) = 0.686631E+00
+PKER_SDRYG( 14, 28) = 0.670211E+00
+PKER_SDRYG( 14, 29) = 0.654033E+00
+PKER_SDRYG( 14, 30) = 0.638089E+00
+PKER_SDRYG( 14, 31) = 0.622373E+00
+PKER_SDRYG( 14, 32) = 0.606876E+00
+PKER_SDRYG( 14, 33) = 0.591592E+00
+PKER_SDRYG( 14, 34) = 0.576515E+00
+PKER_SDRYG( 14, 35) = 0.561635E+00
+PKER_SDRYG( 14, 36) = 0.546949E+00
+PKER_SDRYG( 14, 37) = 0.532447E+00
+PKER_SDRYG( 14, 38) = 0.518125E+00
+PKER_SDRYG( 14, 39) = 0.503976E+00
+PKER_SDRYG( 14, 40) = 0.489996E+00
+PKER_SDRYG( 14, 41) = 0.476174E+00
+PKER_SDRYG( 14, 42) = 0.462515E+00
+PKER_SDRYG( 14, 43) = 0.449005E+00
+PKER_SDRYG( 14, 44) = 0.435648E+00
+PKER_SDRYG( 14, 45) = 0.422434E+00
+PKER_SDRYG( 14, 46) = 0.409368E+00
+PKER_SDRYG( 14, 47) = 0.396451E+00
+PKER_SDRYG( 14, 48) = 0.383668E+00
+PKER_SDRYG( 14, 49) = 0.371039E+00
+PKER_SDRYG( 14, 50) = 0.358562E+00
+PKER_SDRYG( 14, 51) = 0.346232E+00
+PKER_SDRYG( 14, 52) = 0.334061E+00
+PKER_SDRYG( 14, 53) = 0.322081E+00
+PKER_SDRYG( 14, 54) = 0.310260E+00
+PKER_SDRYG( 14, 55) = 0.298617E+00
+PKER_SDRYG( 14, 56) = 0.287186E+00
+PKER_SDRYG( 14, 57) = 0.276001E+00
+PKER_SDRYG( 14, 58) = 0.265035E+00
+PKER_SDRYG( 14, 59) = 0.254303E+00
+PKER_SDRYG( 14, 60) = 0.243848E+00
+PKER_SDRYG( 14, 61) = 0.233707E+00
+PKER_SDRYG( 14, 62) = 0.223885E+00
+PKER_SDRYG( 14, 63) = 0.214404E+00
+PKER_SDRYG( 14, 64) = 0.205248E+00
+PKER_SDRYG( 14, 65) = 0.196483E+00
+PKER_SDRYG( 14, 66) = 0.188114E+00
+PKER_SDRYG( 14, 67) = 0.180201E+00
+PKER_SDRYG( 14, 68) = 0.172717E+00
+PKER_SDRYG( 14, 69) = 0.165704E+00
+PKER_SDRYG( 14, 70) = 0.159136E+00
+PKER_SDRYG( 14, 71) = 0.153007E+00
+PKER_SDRYG( 14, 72) = 0.147428E+00
+PKER_SDRYG( 14, 73) = 0.142282E+00
+PKER_SDRYG( 14, 74) = 0.137636E+00
+PKER_SDRYG( 14, 75) = 0.133523E+00
+PKER_SDRYG( 14, 76) = 0.129879E+00
+PKER_SDRYG( 14, 77) = 0.126669E+00
+PKER_SDRYG( 14, 78) = 0.123991E+00
+PKER_SDRYG( 14, 79) = 0.121704E+00
+PKER_SDRYG( 14, 80) = 0.119863E+00
+PKER_SDRYG( 15, 1) = 0.124949E+01
+PKER_SDRYG( 15, 2) = 0.122417E+01
+PKER_SDRYG( 15, 3) = 0.119929E+01
+PKER_SDRYG( 15, 4) = 0.117486E+01
+PKER_SDRYG( 15, 5) = 0.115085E+01
+PKER_SDRYG( 15, 6) = 0.112727E+01
+PKER_SDRYG( 15, 7) = 0.110409E+01
+PKER_SDRYG( 15, 8) = 0.108133E+01
+PKER_SDRYG( 15, 9) = 0.105896E+01
+PKER_SDRYG( 15, 10) = 0.103698E+01
+PKER_SDRYG( 15, 11) = 0.101538E+01
+PKER_SDRYG( 15, 12) = 0.994149E+00
+PKER_SDRYG( 15, 13) = 0.973289E+00
+PKER_SDRYG( 15, 14) = 0.952788E+00
+PKER_SDRYG( 15, 15) = 0.932638E+00
+PKER_SDRYG( 15, 16) = 0.912832E+00
+PKER_SDRYG( 15, 17) = 0.893363E+00
+PKER_SDRYG( 15, 18) = 0.874223E+00
+PKER_SDRYG( 15, 19) = 0.855405E+00
+PKER_SDRYG( 15, 20) = 0.836903E+00
+PKER_SDRYG( 15, 21) = 0.818709E+00
+PKER_SDRYG( 15, 22) = 0.800816E+00
+PKER_SDRYG( 15, 23) = 0.783217E+00
+PKER_SDRYG( 15, 24) = 0.765905E+00
+PKER_SDRYG( 15, 25) = 0.748873E+00
+PKER_SDRYG( 15, 26) = 0.732115E+00
+PKER_SDRYG( 15, 27) = 0.715623E+00
+PKER_SDRYG( 15, 28) = 0.699390E+00
+PKER_SDRYG( 15, 29) = 0.683410E+00
+PKER_SDRYG( 15, 30) = 0.667676E+00
+PKER_SDRYG( 15, 31) = 0.652180E+00
+PKER_SDRYG( 15, 32) = 0.636917E+00
+PKER_SDRYG( 15, 33) = 0.621879E+00
+PKER_SDRYG( 15, 34) = 0.607058E+00
+PKER_SDRYG( 15, 35) = 0.592449E+00
+PKER_SDRYG( 15, 36) = 0.578045E+00
+PKER_SDRYG( 15, 37) = 0.563838E+00
+PKER_SDRYG( 15, 38) = 0.549822E+00
+PKER_SDRYG( 15, 39) = 0.535990E+00
+PKER_SDRYG( 15, 40) = 0.522336E+00
+PKER_SDRYG( 15, 41) = 0.508852E+00
+PKER_SDRYG( 15, 42) = 0.495534E+00
+PKER_SDRYG( 15, 43) = 0.482373E+00
+PKER_SDRYG( 15, 44) = 0.469364E+00
+PKER_SDRYG( 15, 45) = 0.456505E+00
+PKER_SDRYG( 15, 46) = 0.443784E+00
+PKER_SDRYG( 15, 47) = 0.431200E+00
+PKER_SDRYG( 15, 48) = 0.418751E+00
+PKER_SDRYG( 15, 49) = 0.406429E+00
+PKER_SDRYG( 15, 50) = 0.394232E+00
+PKER_SDRYG( 15, 51) = 0.382160E+00
+PKER_SDRYG( 15, 52) = 0.370208E+00
+PKER_SDRYG( 15, 53) = 0.358380E+00
+PKER_SDRYG( 15, 54) = 0.346670E+00
+PKER_SDRYG( 15, 55) = 0.335098E+00
+PKER_SDRYG( 15, 56) = 0.323648E+00
+PKER_SDRYG( 15, 57) = 0.312324E+00
+PKER_SDRYG( 15, 58) = 0.301156E+00
+PKER_SDRYG( 15, 59) = 0.290133E+00
+PKER_SDRYG( 15, 60) = 0.279260E+00
+PKER_SDRYG( 15, 61) = 0.268577E+00
+PKER_SDRYG( 15, 62) = 0.258082E+00
+PKER_SDRYG( 15, 63) = 0.247768E+00
+PKER_SDRYG( 15, 64) = 0.237666E+00
+PKER_SDRYG( 15, 65) = 0.227828E+00
+PKER_SDRYG( 15, 66) = 0.218248E+00
+PKER_SDRYG( 15, 67) = 0.208926E+00
+PKER_SDRYG( 15, 68) = 0.199881E+00
+PKER_SDRYG( 15, 69) = 0.191143E+00
+PKER_SDRYG( 15, 70) = 0.182799E+00
+PKER_SDRYG( 15, 71) = 0.174778E+00
+PKER_SDRYG( 15, 72) = 0.167122E+00
+PKER_SDRYG( 15, 73) = 0.159834E+00
+PKER_SDRYG( 15, 74) = 0.152955E+00
+PKER_SDRYG( 15, 75) = 0.146470E+00
+PKER_SDRYG( 15, 76) = 0.140472E+00
+PKER_SDRYG( 15, 77) = 0.134851E+00
+PKER_SDRYG( 15, 78) = 0.129715E+00
+PKER_SDRYG( 15, 79) = 0.124950E+00
+PKER_SDRYG( 15, 80) = 0.120643E+00
+PKER_SDRYG( 16, 1) = 0.127216E+01
+PKER_SDRYG( 16, 2) = 0.124687E+01
+PKER_SDRYG( 16, 3) = 0.122203E+01
+PKER_SDRYG( 16, 4) = 0.119762E+01
+PKER_SDRYG( 16, 5) = 0.117365E+01
+PKER_SDRYG( 16, 6) = 0.115010E+01
+PKER_SDRYG( 16, 7) = 0.112696E+01
+PKER_SDRYG( 16, 8) = 0.110424E+01
+PKER_SDRYG( 16, 9) = 0.108191E+01
+PKER_SDRYG( 16, 10) = 0.105997E+01
+PKER_SDRYG( 16, 11) = 0.103842E+01
+PKER_SDRYG( 16, 12) = 0.101724E+01
+PKER_SDRYG( 16, 13) = 0.996438E+00
+PKER_SDRYG( 16, 14) = 0.975994E+00
+PKER_SDRYG( 16, 15) = 0.955906E+00
+PKER_SDRYG( 16, 16) = 0.936165E+00
+PKER_SDRYG( 16, 17) = 0.916764E+00
+PKER_SDRYG( 16, 18) = 0.897698E+00
+PKER_SDRYG( 16, 19) = 0.878959E+00
+PKER_SDRYG( 16, 20) = 0.860539E+00
+PKER_SDRYG( 16, 21) = 0.842433E+00
+PKER_SDRYG( 16, 22) = 0.824634E+00
+PKER_SDRYG( 16, 23) = 0.807135E+00
+PKER_SDRYG( 16, 24) = 0.789930E+00
+PKER_SDRYG( 16, 25) = 0.773011E+00
+PKER_SDRYG( 16, 26) = 0.756373E+00
+PKER_SDRYG( 16, 27) = 0.740008E+00
+PKER_SDRYG( 16, 28) = 0.723911E+00
+PKER_SDRYG( 16, 29) = 0.708076E+00
+PKER_SDRYG( 16, 30) = 0.692494E+00
+PKER_SDRYG( 16, 31) = 0.677161E+00
+PKER_SDRYG( 16, 32) = 0.662070E+00
+PKER_SDRYG( 16, 33) = 0.647215E+00
+PKER_SDRYG( 16, 34) = 0.632588E+00
+PKER_SDRYG( 16, 35) = 0.618184E+00
+PKER_SDRYG( 16, 36) = 0.603996E+00
+PKER_SDRYG( 16, 37) = 0.590018E+00
+PKER_SDRYG( 16, 38) = 0.576244E+00
+PKER_SDRYG( 16, 39) = 0.562666E+00
+PKER_SDRYG( 16, 40) = 0.549280E+00
+PKER_SDRYG( 16, 41) = 0.536077E+00
+PKER_SDRYG( 16, 42) = 0.523052E+00
+PKER_SDRYG( 16, 43) = 0.510198E+00
+PKER_SDRYG( 16, 44) = 0.497510E+00
+PKER_SDRYG( 16, 45) = 0.484980E+00
+PKER_SDRYG( 16, 46) = 0.472603E+00
+PKER_SDRYG( 16, 47) = 0.460373E+00
+PKER_SDRYG( 16, 48) = 0.448283E+00
+PKER_SDRYG( 16, 49) = 0.436328E+00
+PKER_SDRYG( 16, 50) = 0.424503E+00
+PKER_SDRYG( 16, 51) = 0.412803E+00
+PKER_SDRYG( 16, 52) = 0.401221E+00
+PKER_SDRYG( 16, 53) = 0.389757E+00
+PKER_SDRYG( 16, 54) = 0.378404E+00
+PKER_SDRYG( 16, 55) = 0.367159E+00
+PKER_SDRYG( 16, 56) = 0.356021E+00
+PKER_SDRYG( 16, 57) = 0.344989E+00
+PKER_SDRYG( 16, 58) = 0.334060E+00
+PKER_SDRYG( 16, 59) = 0.323240E+00
+PKER_SDRYG( 16, 60) = 0.312525E+00
+PKER_SDRYG( 16, 61) = 0.301923E+00
+PKER_SDRYG( 16, 62) = 0.291433E+00
+PKER_SDRYG( 16, 63) = 0.281062E+00
+PKER_SDRYG( 16, 64) = 0.270836E+00
+PKER_SDRYG( 16, 65) = 0.260729E+00
+PKER_SDRYG( 16, 66) = 0.250775E+00
+PKER_SDRYG( 16, 67) = 0.240994E+00
+PKER_SDRYG( 16, 68) = 0.231377E+00
+PKER_SDRYG( 16, 69) = 0.221942E+00
+PKER_SDRYG( 16, 70) = 0.212741E+00
+PKER_SDRYG( 16, 71) = 0.203744E+00
+PKER_SDRYG( 16, 72) = 0.194967E+00
+PKER_SDRYG( 16, 73) = 0.186455E+00
+PKER_SDRYG( 16, 74) = 0.178256E+00
+PKER_SDRYG( 16, 75) = 0.170333E+00
+PKER_SDRYG( 16, 76) = 0.162696E+00
+PKER_SDRYG( 16, 77) = 0.155380E+00
+PKER_SDRYG( 16, 78) = 0.148405E+00
+PKER_SDRYG( 16, 79) = 0.141822E+00
+PKER_SDRYG( 16, 80) = 0.135586E+00
+PKER_SDRYG( 17, 1) = 0.129151E+01
+PKER_SDRYG( 17, 2) = 0.126624E+01
+PKER_SDRYG( 17, 3) = 0.124141E+01
+PKER_SDRYG( 17, 4) = 0.121703E+01
+PKER_SDRYG( 17, 5) = 0.119308E+01
+PKER_SDRYG( 17, 6) = 0.116956E+01
+PKER_SDRYG( 17, 7) = 0.114645E+01
+PKER_SDRYG( 17, 8) = 0.112375E+01
+PKER_SDRYG( 17, 9) = 0.110145E+01
+PKER_SDRYG( 17, 10) = 0.107955E+01
+PKER_SDRYG( 17, 11) = 0.105803E+01
+PKER_SDRYG( 17, 12) = 0.103689E+01
+PKER_SDRYG( 17, 13) = 0.101612E+01
+PKER_SDRYG( 17, 14) = 0.995720E+00
+PKER_SDRYG( 17, 15) = 0.975675E+00
+PKER_SDRYG( 17, 16) = 0.955980E+00
+PKER_SDRYG( 17, 17) = 0.936629E+00
+PKER_SDRYG( 17, 18) = 0.917615E+00
+PKER_SDRYG( 17, 19) = 0.898931E+00
+PKER_SDRYG( 17, 20) = 0.880571E+00
+PKER_SDRYG( 17, 21) = 0.862528E+00
+PKER_SDRYG( 17, 22) = 0.844796E+00
+PKER_SDRYG( 17, 23) = 0.827368E+00
+PKER_SDRYG( 17, 24) = 0.810238E+00
+PKER_SDRYG( 17, 25) = 0.793400E+00
+PKER_SDRYG( 17, 26) = 0.776847E+00
+PKER_SDRYG( 17, 27) = 0.760573E+00
+PKER_SDRYG( 17, 28) = 0.744573E+00
+PKER_SDRYG( 17, 29) = 0.728840E+00
+PKER_SDRYG( 17, 30) = 0.713368E+00
+PKER_SDRYG( 17, 31) = 0.698152E+00
+PKER_SDRYG( 17, 32) = 0.683184E+00
+PKER_SDRYG( 17, 33) = 0.668459E+00
+PKER_SDRYG( 17, 34) = 0.653972E+00
+PKER_SDRYG( 17, 35) = 0.639716E+00
+PKER_SDRYG( 17, 36) = 0.625686E+00
+PKER_SDRYG( 17, 37) = 0.611875E+00
+PKER_SDRYG( 17, 38) = 0.598278E+00
+PKER_SDRYG( 17, 39) = 0.584888E+00
+PKER_SDRYG( 17, 40) = 0.571700E+00
+PKER_SDRYG( 17, 41) = 0.558708E+00
+PKER_SDRYG( 17, 42) = 0.545905E+00
+PKER_SDRYG( 17, 43) = 0.533287E+00
+PKER_SDRYG( 17, 44) = 0.520846E+00
+PKER_SDRYG( 17, 45) = 0.508577E+00
+PKER_SDRYG( 17, 46) = 0.496475E+00
+PKER_SDRYG( 17, 47) = 0.484532E+00
+PKER_SDRYG( 17, 48) = 0.472744E+00
+PKER_SDRYG( 17, 49) = 0.461103E+00
+PKER_SDRYG( 17, 50) = 0.449606E+00
+PKER_SDRYG( 17, 51) = 0.438244E+00
+PKER_SDRYG( 17, 52) = 0.427014E+00
+PKER_SDRYG( 17, 53) = 0.415910E+00
+PKER_SDRYG( 17, 54) = 0.404926E+00
+PKER_SDRYG( 17, 55) = 0.394057E+00
+PKER_SDRYG( 17, 56) = 0.383298E+00
+PKER_SDRYG( 17, 57) = 0.372646E+00
+PKER_SDRYG( 17, 58) = 0.362095E+00
+PKER_SDRYG( 17, 59) = 0.351645E+00
+PKER_SDRYG( 17, 60) = 0.341290E+00
+PKER_SDRYG( 17, 61) = 0.331027E+00
+PKER_SDRYG( 17, 62) = 0.320860E+00
+PKER_SDRYG( 17, 63) = 0.310784E+00
+PKER_SDRYG( 17, 64) = 0.300799E+00
+PKER_SDRYG( 17, 65) = 0.290912E+00
+PKER_SDRYG( 17, 66) = 0.281122E+00
+PKER_SDRYG( 17, 67) = 0.271430E+00
+PKER_SDRYG( 17, 68) = 0.261851E+00
+PKER_SDRYG( 17, 69) = 0.252381E+00
+PKER_SDRYG( 17, 70) = 0.243037E+00
+PKER_SDRYG( 17, 71) = 0.233820E+00
+PKER_SDRYG( 17, 72) = 0.224753E+00
+PKER_SDRYG( 17, 73) = 0.215842E+00
+PKER_SDRYG( 17, 74) = 0.207082E+00
+PKER_SDRYG( 17, 75) = 0.198519E+00
+PKER_SDRYG( 17, 76) = 0.190149E+00
+PKER_SDRYG( 17, 77) = 0.181983E+00
+PKER_SDRYG( 17, 78) = 0.174047E+00
+PKER_SDRYG( 17, 79) = 0.166374E+00
+PKER_SDRYG( 17, 80) = 0.158930E+00
+PKER_SDRYG( 18, 1) = 0.130802E+01
+PKER_SDRYG( 18, 2) = 0.128276E+01
+PKER_SDRYG( 18, 3) = 0.125796E+01
+PKER_SDRYG( 18, 4) = 0.123359E+01
+PKER_SDRYG( 18, 5) = 0.120966E+01
+PKER_SDRYG( 18, 6) = 0.118615E+01
+PKER_SDRYG( 18, 7) = 0.116306E+01
+PKER_SDRYG( 18, 8) = 0.114038E+01
+PKER_SDRYG( 18, 9) = 0.111811E+01
+PKER_SDRYG( 18, 10) = 0.109623E+01
+PKER_SDRYG( 18, 11) = 0.107473E+01
+PKER_SDRYG( 18, 12) = 0.105362E+01
+PKER_SDRYG( 18, 13) = 0.103288E+01
+PKER_SDRYG( 18, 14) = 0.101251E+01
+PKER_SDRYG( 18, 15) = 0.992493E+00
+PKER_SDRYG( 18, 16) = 0.972831E+00
+PKER_SDRYG( 18, 17) = 0.953516E+00
+PKER_SDRYG( 18, 18) = 0.934539E+00
+PKER_SDRYG( 18, 19) = 0.915895E+00
+PKER_SDRYG( 18, 20) = 0.897577E+00
+PKER_SDRYG( 18, 21) = 0.879579E+00
+PKER_SDRYG( 18, 22) = 0.861895E+00
+PKER_SDRYG( 18, 23) = 0.844517E+00
+PKER_SDRYG( 18, 24) = 0.827441E+00
+PKER_SDRYG( 18, 25) = 0.810660E+00
+PKER_SDRYG( 18, 26) = 0.794169E+00
+PKER_SDRYG( 18, 27) = 0.777960E+00
+PKER_SDRYG( 18, 28) = 0.762029E+00
+PKER_SDRYG( 18, 29) = 0.746369E+00
+PKER_SDRYG( 18, 30) = 0.730975E+00
+PKER_SDRYG( 18, 31) = 0.715841E+00
+PKER_SDRYG( 18, 32) = 0.700961E+00
+PKER_SDRYG( 18, 33) = 0.686330E+00
+PKER_SDRYG( 18, 34) = 0.671942E+00
+PKER_SDRYG( 18, 35) = 0.657792E+00
+PKER_SDRYG( 18, 36) = 0.643874E+00
+PKER_SDRYG( 18, 37) = 0.630183E+00
+PKER_SDRYG( 18, 38) = 0.616712E+00
+PKER_SDRYG( 18, 39) = 0.603457E+00
+PKER_SDRYG( 18, 40) = 0.590412E+00
+PKER_SDRYG( 18, 41) = 0.577572E+00
+PKER_SDRYG( 18, 42) = 0.564930E+00
+PKER_SDRYG( 18, 43) = 0.552483E+00
+PKER_SDRYG( 18, 44) = 0.540224E+00
+PKER_SDRYG( 18, 45) = 0.528147E+00
+PKER_SDRYG( 18, 46) = 0.516247E+00
+PKER_SDRYG( 18, 47) = 0.504520E+00
+PKER_SDRYG( 18, 48) = 0.492958E+00
+PKER_SDRYG( 18, 49) = 0.481557E+00
+PKER_SDRYG( 18, 50) = 0.470312E+00
+PKER_SDRYG( 18, 51) = 0.459216E+00
+PKER_SDRYG( 18, 52) = 0.448264E+00
+PKER_SDRYG( 18, 53) = 0.437451E+00
+PKER_SDRYG( 18, 54) = 0.426771E+00
+PKER_SDRYG( 18, 55) = 0.416219E+00
+PKER_SDRYG( 18, 56) = 0.405790E+00
+PKER_SDRYG( 18, 57) = 0.395479E+00
+PKER_SDRYG( 18, 58) = 0.385280E+00
+PKER_SDRYG( 18, 59) = 0.375188E+00
+PKER_SDRYG( 18, 60) = 0.365201E+00
+PKER_SDRYG( 18, 61) = 0.355312E+00
+PKER_SDRYG( 18, 62) = 0.345518E+00
+PKER_SDRYG( 18, 63) = 0.335816E+00
+PKER_SDRYG( 18, 64) = 0.326203E+00
+PKER_SDRYG( 18, 65) = 0.316675E+00
+PKER_SDRYG( 18, 66) = 0.307233E+00
+PKER_SDRYG( 18, 67) = 0.297874E+00
+PKER_SDRYG( 18, 68) = 0.288600E+00
+PKER_SDRYG( 18, 69) = 0.279408E+00
+PKER_SDRYG( 18, 70) = 0.270301E+00
+PKER_SDRYG( 18, 71) = 0.261287E+00
+PKER_SDRYG( 18, 72) = 0.252363E+00
+PKER_SDRYG( 18, 73) = 0.243535E+00
+PKER_SDRYG( 18, 74) = 0.234815E+00
+PKER_SDRYG( 18, 75) = 0.226202E+00
+PKER_SDRYG( 18, 76) = 0.217712E+00
+PKER_SDRYG( 18, 77) = 0.209350E+00
+PKER_SDRYG( 18, 78) = 0.201128E+00
+PKER_SDRYG( 18, 79) = 0.193055E+00
+PKER_SDRYG( 18, 80) = 0.185138E+00
+PKER_SDRYG( 19, 1) = 0.132212E+01
+PKER_SDRYG( 19, 2) = 0.129687E+01
+PKER_SDRYG( 19, 3) = 0.127208E+01
+PKER_SDRYG( 19, 4) = 0.124772E+01
+PKER_SDRYG( 19, 5) = 0.122380E+01
+PKER_SDRYG( 19, 6) = 0.120031E+01
+PKER_SDRYG( 19, 7) = 0.117724E+01
+PKER_SDRYG( 19, 8) = 0.115457E+01
+PKER_SDRYG( 19, 9) = 0.113231E+01
+PKER_SDRYG( 19, 10) = 0.111045E+01
+PKER_SDRYG( 19, 11) = 0.108897E+01
+PKER_SDRYG( 19, 12) = 0.106788E+01
+PKER_SDRYG( 19, 13) = 0.104716E+01
+PKER_SDRYG( 19, 14) = 0.102681E+01
+PKER_SDRYG( 19, 15) = 0.100681E+01
+PKER_SDRYG( 19, 16) = 0.987177E+00
+PKER_SDRYG( 19, 17) = 0.967887E+00
+PKER_SDRYG( 19, 18) = 0.948938E+00
+PKER_SDRYG( 19, 19) = 0.930322E+00
+PKER_SDRYG( 19, 20) = 0.912035E+00
+PKER_SDRYG( 19, 21) = 0.894069E+00
+PKER_SDRYG( 19, 22) = 0.876419E+00
+PKER_SDRYG( 19, 23) = 0.859078E+00
+PKER_SDRYG( 19, 24) = 0.842041E+00
+PKER_SDRYG( 19, 25) = 0.825301E+00
+PKER_SDRYG( 19, 26) = 0.808853E+00
+PKER_SDRYG( 19, 27) = 0.792690E+00
+PKER_SDRYG( 19, 28) = 0.776808E+00
+PKER_SDRYG( 19, 29) = 0.761201E+00
+PKER_SDRYG( 19, 30) = 0.745862E+00
+PKER_SDRYG( 19, 31) = 0.730787E+00
+PKER_SDRYG( 19, 32) = 0.715971E+00
+PKER_SDRYG( 19, 33) = 0.701406E+00
+PKER_SDRYG( 19, 34) = 0.687090E+00
+PKER_SDRYG( 19, 35) = 0.673015E+00
+PKER_SDRYG( 19, 36) = 0.659177E+00
+PKER_SDRYG( 19, 37) = 0.645570E+00
+PKER_SDRYG( 19, 38) = 0.632190E+00
+PKER_SDRYG( 19, 39) = 0.619032E+00
+PKER_SDRYG( 19, 40) = 0.606089E+00
+PKER_SDRYG( 19, 41) = 0.593357E+00
+PKER_SDRYG( 19, 42) = 0.580831E+00
+PKER_SDRYG( 19, 43) = 0.568506E+00
+PKER_SDRYG( 19, 44) = 0.556377E+00
+PKER_SDRYG( 19, 45) = 0.544438E+00
+PKER_SDRYG( 19, 46) = 0.532686E+00
+PKER_SDRYG( 19, 47) = 0.521113E+00
+PKER_SDRYG( 19, 48) = 0.509716E+00
+PKER_SDRYG( 19, 49) = 0.498490E+00
+PKER_SDRYG( 19, 50) = 0.487429E+00
+PKER_SDRYG( 19, 51) = 0.476529E+00
+PKER_SDRYG( 19, 52) = 0.465783E+00
+PKER_SDRYG( 19, 53) = 0.455188E+00
+PKER_SDRYG( 19, 54) = 0.444738E+00
+PKER_SDRYG( 19, 55) = 0.434428E+00
+PKER_SDRYG( 19, 56) = 0.424253E+00
+PKER_SDRYG( 19, 57) = 0.414208E+00
+PKER_SDRYG( 19, 58) = 0.404288E+00
+PKER_SDRYG( 19, 59) = 0.394489E+00
+PKER_SDRYG( 19, 60) = 0.384804E+00
+PKER_SDRYG( 19, 61) = 0.375230E+00
+PKER_SDRYG( 19, 62) = 0.365762E+00
+PKER_SDRYG( 19, 63) = 0.356395E+00
+PKER_SDRYG( 19, 64) = 0.347125E+00
+PKER_SDRYG( 19, 65) = 0.337949E+00
+PKER_SDRYG( 19, 66) = 0.328862E+00
+PKER_SDRYG( 19, 67) = 0.319861E+00
+PKER_SDRYG( 19, 68) = 0.310944E+00
+PKER_SDRYG( 19, 69) = 0.302108E+00
+PKER_SDRYG( 19, 70) = 0.293350E+00
+PKER_SDRYG( 19, 71) = 0.284670E+00
+PKER_SDRYG( 19, 72) = 0.276068E+00
+PKER_SDRYG( 19, 73) = 0.267543E+00
+PKER_SDRYG( 19, 74) = 0.259097E+00
+PKER_SDRYG( 19, 75) = 0.250731E+00
+PKER_SDRYG( 19, 76) = 0.242448E+00
+PKER_SDRYG( 19, 77) = 0.234253E+00
+PKER_SDRYG( 19, 78) = 0.226147E+00
+PKER_SDRYG( 19, 79) = 0.218142E+00
+PKER_SDRYG( 19, 80) = 0.210240E+00
+PKER_SDRYG( 20, 1) = 0.133417E+01
+PKER_SDRYG( 20, 2) = 0.130893E+01
+PKER_SDRYG( 20, 3) = 0.128414E+01
+PKER_SDRYG( 20, 4) = 0.125979E+01
+PKER_SDRYG( 20, 5) = 0.123588E+01
+PKER_SDRYG( 20, 6) = 0.121240E+01
+PKER_SDRYG( 20, 7) = 0.118933E+01
+PKER_SDRYG( 20, 8) = 0.116668E+01
+PKER_SDRYG( 20, 9) = 0.114443E+01
+PKER_SDRYG( 20, 10) = 0.112258E+01
+PKER_SDRYG( 20, 11) = 0.110112E+01
+PKER_SDRYG( 20, 12) = 0.108004E+01
+PKER_SDRYG( 20, 13) = 0.105933E+01
+PKER_SDRYG( 20, 14) = 0.103900E+01
+PKER_SDRYG( 20, 15) = 0.101902E+01
+PKER_SDRYG( 20, 16) = 0.999401E+00
+PKER_SDRYG( 20, 17) = 0.980130E+00
+PKER_SDRYG( 20, 18) = 0.961200E+00
+PKER_SDRYG( 20, 19) = 0.942605E+00
+PKER_SDRYG( 20, 20) = 0.924340E+00
+PKER_SDRYG( 20, 21) = 0.906397E+00
+PKER_SDRYG( 20, 22) = 0.888772E+00
+PKER_SDRYG( 20, 23) = 0.871457E+00
+PKER_SDRYG( 20, 24) = 0.854448E+00
+PKER_SDRYG( 20, 25) = 0.837738E+00
+PKER_SDRYG( 20, 26) = 0.821321E+00
+PKER_SDRYG( 20, 27) = 0.805192E+00
+PKER_SDRYG( 20, 28) = 0.789345E+00
+PKER_SDRYG( 20, 29) = 0.773776E+00
+PKER_SDRYG( 20, 30) = 0.758477E+00
+PKER_SDRYG( 20, 31) = 0.743445E+00
+PKER_SDRYG( 20, 32) = 0.728673E+00
+PKER_SDRYG( 20, 33) = 0.714156E+00
+PKER_SDRYG( 20, 34) = 0.699891E+00
+PKER_SDRYG( 20, 35) = 0.685870E+00
+PKER_SDRYG( 20, 36) = 0.672089E+00
+PKER_SDRYG( 20, 37) = 0.658544E+00
+PKER_SDRYG( 20, 38) = 0.645228E+00
+PKER_SDRYG( 20, 39) = 0.632138E+00
+PKER_SDRYG( 20, 40) = 0.619269E+00
+PKER_SDRYG( 20, 41) = 0.606615E+00
+PKER_SDRYG( 20, 42) = 0.594171E+00
+PKER_SDRYG( 20, 43) = 0.581934E+00
+PKER_SDRYG( 20, 44) = 0.569898E+00
+PKER_SDRYG( 20, 45) = 0.558058E+00
+PKER_SDRYG( 20, 46) = 0.546411E+00
+PKER_SDRYG( 20, 47) = 0.534950E+00
+PKER_SDRYG( 20, 48) = 0.523671E+00
+PKER_SDRYG( 20, 49) = 0.512571E+00
+PKER_SDRYG( 20, 50) = 0.501643E+00
+PKER_SDRYG( 20, 51) = 0.490884E+00
+PKER_SDRYG( 20, 52) = 0.480288E+00
+PKER_SDRYG( 20, 53) = 0.469851E+00
+PKER_SDRYG( 20, 54) = 0.459569E+00
+PKER_SDRYG( 20, 55) = 0.449437E+00
+PKER_SDRYG( 20, 56) = 0.439449E+00
+PKER_SDRYG( 20, 57) = 0.429602E+00
+PKER_SDRYG( 20, 58) = 0.419891E+00
+PKER_SDRYG( 20, 59) = 0.410310E+00
+PKER_SDRYG( 20, 60) = 0.400856E+00
+PKER_SDRYG( 20, 61) = 0.391524E+00
+PKER_SDRYG( 20, 62) = 0.382309E+00
+PKER_SDRYG( 20, 63) = 0.373207E+00
+PKER_SDRYG( 20, 64) = 0.364213E+00
+PKER_SDRYG( 20, 65) = 0.355324E+00
+PKER_SDRYG( 20, 66) = 0.346534E+00
+PKER_SDRYG( 20, 67) = 0.337839E+00
+PKER_SDRYG( 20, 68) = 0.329237E+00
+PKER_SDRYG( 20, 69) = 0.320723E+00
+PKER_SDRYG( 20, 70) = 0.312294E+00
+PKER_SDRYG( 20, 71) = 0.303946E+00
+PKER_SDRYG( 20, 72) = 0.295677E+00
+PKER_SDRYG( 20, 73) = 0.287486E+00
+PKER_SDRYG( 20, 74) = 0.279369E+00
+PKER_SDRYG( 20, 75) = 0.271326E+00
+PKER_SDRYG( 20, 76) = 0.263356E+00
+PKER_SDRYG( 20, 77) = 0.255460E+00
+PKER_SDRYG( 20, 78) = 0.247636E+00
+PKER_SDRYG( 20, 79) = 0.239888E+00
+PKER_SDRYG( 20, 80) = 0.232217E+00
+PKER_SDRYG( 21, 1) = 0.134446E+01
+PKER_SDRYG( 21, 2) = 0.131922E+01
+PKER_SDRYG( 21, 3) = 0.129444E+01
+PKER_SDRYG( 21, 4) = 0.127010E+01
+PKER_SDRYG( 21, 5) = 0.124620E+01
+PKER_SDRYG( 21, 6) = 0.122272E+01
+PKER_SDRYG( 21, 7) = 0.119967E+01
+PKER_SDRYG( 21, 8) = 0.117702E+01
+PKER_SDRYG( 21, 9) = 0.115478E+01
+PKER_SDRYG( 21, 10) = 0.113294E+01
+PKER_SDRYG( 21, 11) = 0.111148E+01
+PKER_SDRYG( 21, 12) = 0.109041E+01
+PKER_SDRYG( 21, 13) = 0.106972E+01
+PKER_SDRYG( 21, 14) = 0.104940E+01
+PKER_SDRYG( 21, 15) = 0.102943E+01
+PKER_SDRYG( 21, 16) = 0.100982E+01
+PKER_SDRYG( 21, 17) = 0.990566E+00
+PKER_SDRYG( 21, 18) = 0.971651E+00
+PKER_SDRYG( 21, 19) = 0.953071E+00
+PKER_SDRYG( 21, 20) = 0.934822E+00
+PKER_SDRYG( 21, 21) = 0.916897E+00
+PKER_SDRYG( 21, 22) = 0.899289E+00
+PKER_SDRYG( 21, 23) = 0.881994E+00
+PKER_SDRYG( 21, 24) = 0.865005E+00
+PKER_SDRYG( 21, 25) = 0.848316E+00
+PKER_SDRYG( 21, 26) = 0.831922E+00
+PKER_SDRYG( 21, 27) = 0.815817E+00
+PKER_SDRYG( 21, 28) = 0.799996E+00
+PKER_SDRYG( 21, 29) = 0.784453E+00
+PKER_SDRYG( 21, 30) = 0.769184E+00
+PKER_SDRYG( 21, 31) = 0.754182E+00
+PKER_SDRYG( 21, 32) = 0.739443E+00
+PKER_SDRYG( 21, 33) = 0.724961E+00
+PKER_SDRYG( 21, 34) = 0.710732E+00
+PKER_SDRYG( 21, 35) = 0.696750E+00
+PKER_SDRYG( 21, 36) = 0.683011E+00
+PKER_SDRYG( 21, 37) = 0.669509E+00
+PKER_SDRYG( 21, 38) = 0.656240E+00
+PKER_SDRYG( 21, 39) = 0.643200E+00
+PKER_SDRYG( 21, 40) = 0.630383E+00
+PKER_SDRYG( 21, 41) = 0.617784E+00
+PKER_SDRYG( 21, 42) = 0.605400E+00
+PKER_SDRYG( 21, 43) = 0.593226E+00
+PKER_SDRYG( 21, 44) = 0.581257E+00
+PKER_SDRYG( 21, 45) = 0.569488E+00
+PKER_SDRYG( 21, 46) = 0.557915E+00
+PKER_SDRYG( 21, 47) = 0.546534E+00
+PKER_SDRYG( 21, 48) = 0.535341E+00
+PKER_SDRYG( 21, 49) = 0.524331E+00
+PKER_SDRYG( 21, 50) = 0.513499E+00
+PKER_SDRYG( 21, 51) = 0.502841E+00
+PKER_SDRYG( 21, 52) = 0.492353E+00
+PKER_SDRYG( 21, 53) = 0.482031E+00
+PKER_SDRYG( 21, 54) = 0.471870E+00
+PKER_SDRYG( 21, 55) = 0.461866E+00
+PKER_SDRYG( 21, 56) = 0.452014E+00
+PKER_SDRYG( 21, 57) = 0.442311E+00
+PKER_SDRYG( 21, 58) = 0.432752E+00
+PKER_SDRYG( 21, 59) = 0.423333E+00
+PKER_SDRYG( 21, 60) = 0.414049E+00
+PKER_SDRYG( 21, 61) = 0.404896E+00
+PKER_SDRYG( 21, 62) = 0.395870E+00
+PKER_SDRYG( 21, 63) = 0.386967E+00
+PKER_SDRYG( 21, 64) = 0.378182E+00
+PKER_SDRYG( 21, 65) = 0.369511E+00
+PKER_SDRYG( 21, 66) = 0.360951E+00
+PKER_SDRYG( 21, 67) = 0.352496E+00
+PKER_SDRYG( 21, 68) = 0.344143E+00
+PKER_SDRYG( 21, 69) = 0.335888E+00
+PKER_SDRYG( 21, 70) = 0.327727E+00
+PKER_SDRYG( 21, 71) = 0.319656E+00
+PKER_SDRYG( 21, 72) = 0.311672E+00
+PKER_SDRYG( 21, 73) = 0.303772E+00
+PKER_SDRYG( 21, 74) = 0.295953E+00
+PKER_SDRYG( 21, 75) = 0.288212E+00
+PKER_SDRYG( 21, 76) = 0.280546E+00
+PKER_SDRYG( 21, 77) = 0.272953E+00
+PKER_SDRYG( 21, 78) = 0.265432E+00
+PKER_SDRYG( 21, 79) = 0.257982E+00
+PKER_SDRYG( 21, 80) = 0.250602E+00
+PKER_SDRYG( 22, 1) = 0.135325E+01
+PKER_SDRYG( 22, 2) = 0.132802E+01
+PKER_SDRYG( 22, 3) = 0.130325E+01
+PKER_SDRYG( 22, 4) = 0.127891E+01
+PKER_SDRYG( 22, 5) = 0.125501E+01
+PKER_SDRYG( 22, 6) = 0.123154E+01
+PKER_SDRYG( 22, 7) = 0.120849E+01
+PKER_SDRYG( 22, 8) = 0.118585E+01
+PKER_SDRYG( 22, 9) = 0.116362E+01
+PKER_SDRYG( 22, 10) = 0.114178E+01
+PKER_SDRYG( 22, 11) = 0.112034E+01
+PKER_SDRYG( 22, 12) = 0.109927E+01
+PKER_SDRYG( 22, 13) = 0.107859E+01
+PKER_SDRYG( 22, 14) = 0.105827E+01
+PKER_SDRYG( 22, 15) = 0.103832E+01
+PKER_SDRYG( 22, 16) = 0.101872E+01
+PKER_SDRYG( 22, 17) = 0.999469E+00
+PKER_SDRYG( 22, 18) = 0.980564E+00
+PKER_SDRYG( 22, 19) = 0.961996E+00
+PKER_SDRYG( 22, 20) = 0.943758E+00
+PKER_SDRYG( 22, 21) = 0.925845E+00
+PKER_SDRYG( 22, 22) = 0.908251E+00
+PKER_SDRYG( 22, 23) = 0.890970E+00
+PKER_SDRYG( 22, 24) = 0.873995E+00
+PKER_SDRYG( 22, 25) = 0.857322E+00
+PKER_SDRYG( 22, 26) = 0.840945E+00
+PKER_SDRYG( 22, 27) = 0.824858E+00
+PKER_SDRYG( 22, 28) = 0.809055E+00
+PKER_SDRYG( 22, 29) = 0.793533E+00
+PKER_SDRYG( 22, 30) = 0.778284E+00
+PKER_SDRYG( 22, 31) = 0.763304E+00
+PKER_SDRYG( 22, 32) = 0.748589E+00
+PKER_SDRYG( 22, 33) = 0.734132E+00
+PKER_SDRYG( 22, 34) = 0.719929E+00
+PKER_SDRYG( 22, 35) = 0.705976E+00
+PKER_SDRYG( 22, 36) = 0.692266E+00
+PKER_SDRYG( 22, 37) = 0.678796E+00
+PKER_SDRYG( 22, 38) = 0.665561E+00
+PKER_SDRYG( 22, 39) = 0.652556E+00
+PKER_SDRYG( 22, 40) = 0.639777E+00
+PKER_SDRYG( 22, 41) = 0.627219E+00
+PKER_SDRYG( 22, 42) = 0.614878E+00
+PKER_SDRYG( 22, 43) = 0.602749E+00
+PKER_SDRYG( 22, 44) = 0.590828E+00
+PKER_SDRYG( 22, 45) = 0.579110E+00
+PKER_SDRYG( 22, 46) = 0.567592E+00
+PKER_SDRYG( 22, 47) = 0.556269E+00
+PKER_SDRYG( 22, 48) = 0.545136E+00
+PKER_SDRYG( 22, 49) = 0.534191E+00
+PKER_SDRYG( 22, 50) = 0.523428E+00
+PKER_SDRYG( 22, 51) = 0.512843E+00
+PKER_SDRYG( 22, 52) = 0.502433E+00
+PKER_SDRYG( 22, 53) = 0.492193E+00
+PKER_SDRYG( 22, 54) = 0.482119E+00
+PKER_SDRYG( 22, 55) = 0.472208E+00
+PKER_SDRYG( 22, 56) = 0.462455E+00
+PKER_SDRYG( 22, 57) = 0.452856E+00
+PKER_SDRYG( 22, 58) = 0.443408E+00
+PKER_SDRYG( 22, 59) = 0.434105E+00
+PKER_SDRYG( 22, 60) = 0.424945E+00
+PKER_SDRYG( 22, 61) = 0.415923E+00
+PKER_SDRYG( 22, 62) = 0.407036E+00
+PKER_SDRYG( 22, 63) = 0.398279E+00
+PKER_SDRYG( 22, 64) = 0.389648E+00
+PKER_SDRYG( 22, 65) = 0.381140E+00
+PKER_SDRYG( 22, 66) = 0.372750E+00
+PKER_SDRYG( 22, 67) = 0.364475E+00
+PKER_SDRYG( 22, 68) = 0.356311E+00
+PKER_SDRYG( 22, 69) = 0.348254E+00
+PKER_SDRYG( 22, 70) = 0.340300E+00
+PKER_SDRYG( 22, 71) = 0.332445E+00
+PKER_SDRYG( 22, 72) = 0.324686E+00
+PKER_SDRYG( 22, 73) = 0.317020E+00
+PKER_SDRYG( 22, 74) = 0.309442E+00
+PKER_SDRYG( 22, 75) = 0.301949E+00
+PKER_SDRYG( 22, 76) = 0.294539E+00
+PKER_SDRYG( 22, 77) = 0.287208E+00
+PKER_SDRYG( 22, 78) = 0.279954E+00
+PKER_SDRYG( 22, 79) = 0.272774E+00
+PKER_SDRYG( 22, 80) = 0.265667E+00
+PKER_SDRYG( 23, 1) = 0.136077E+01
+PKER_SDRYG( 23, 2) = 0.133555E+01
+PKER_SDRYG( 23, 3) = 0.131077E+01
+PKER_SDRYG( 23, 4) = 0.128644E+01
+PKER_SDRYG( 23, 5) = 0.126255E+01
+PKER_SDRYG( 23, 6) = 0.123908E+01
+PKER_SDRYG( 23, 7) = 0.121603E+01
+PKER_SDRYG( 23, 8) = 0.119340E+01
+PKER_SDRYG( 23, 9) = 0.117117E+01
+PKER_SDRYG( 23, 10) = 0.114934E+01
+PKER_SDRYG( 23, 11) = 0.112790E+01
+PKER_SDRYG( 23, 12) = 0.110684E+01
+PKER_SDRYG( 23, 13) = 0.108616E+01
+PKER_SDRYG( 23, 14) = 0.106585E+01
+PKER_SDRYG( 23, 15) = 0.104590E+01
+PKER_SDRYG( 23, 16) = 0.102631E+01
+PKER_SDRYG( 23, 17) = 0.100707E+01
+PKER_SDRYG( 23, 18) = 0.988170E+00
+PKER_SDRYG( 23, 19) = 0.969610E+00
+PKER_SDRYG( 23, 20) = 0.951381E+00
+PKER_SDRYG( 23, 21) = 0.933477E+00
+PKER_SDRYG( 23, 22) = 0.915893E+00
+PKER_SDRYG( 23, 23) = 0.898622E+00
+PKER_SDRYG( 23, 24) = 0.881658E+00
+PKER_SDRYG( 23, 25) = 0.864997E+00
+PKER_SDRYG( 23, 26) = 0.848631E+00
+PKER_SDRYG( 23, 27) = 0.832557E+00
+PKER_SDRYG( 23, 28) = 0.816769E+00
+PKER_SDRYG( 23, 29) = 0.801260E+00
+PKER_SDRYG( 23, 30) = 0.786027E+00
+PKER_SDRYG( 23, 31) = 0.771064E+00
+PKER_SDRYG( 23, 32) = 0.756365E+00
+PKER_SDRYG( 23, 33) = 0.741927E+00
+PKER_SDRYG( 23, 34) = 0.727744E+00
+PKER_SDRYG( 23, 35) = 0.713810E+00
+PKER_SDRYG( 23, 36) = 0.700123E+00
+PKER_SDRYG( 23, 37) = 0.686676E+00
+PKER_SDRYG( 23, 38) = 0.673465E+00
+PKER_SDRYG( 23, 39) = 0.660487E+00
+PKER_SDRYG( 23, 40) = 0.647735E+00
+PKER_SDRYG( 23, 41) = 0.635206E+00
+PKER_SDRYG( 23, 42) = 0.622896E+00
+PKER_SDRYG( 23, 43) = 0.610800E+00
+PKER_SDRYG( 23, 44) = 0.598913E+00
+PKER_SDRYG( 23, 45) = 0.587233E+00
+PKER_SDRYG( 23, 46) = 0.575754E+00
+PKER_SDRYG( 23, 47) = 0.564472E+00
+PKER_SDRYG( 23, 48) = 0.553384E+00
+PKER_SDRYG( 23, 49) = 0.542485E+00
+PKER_SDRYG( 23, 50) = 0.531772E+00
+PKER_SDRYG( 23, 51) = 0.521240E+00
+PKER_SDRYG( 23, 52) = 0.510886E+00
+PKER_SDRYG( 23, 53) = 0.500706E+00
+PKER_SDRYG( 23, 54) = 0.490695E+00
+PKER_SDRYG( 23, 55) = 0.480851E+00
+PKER_SDRYG( 23, 56) = 0.471169E+00
+PKER_SDRYG( 23, 57) = 0.461646E+00
+PKER_SDRYG( 23, 58) = 0.452277E+00
+PKER_SDRYG( 23, 59) = 0.443059E+00
+PKER_SDRYG( 23, 60) = 0.433989E+00
+PKER_SDRYG( 23, 61) = 0.425062E+00
+PKER_SDRYG( 23, 62) = 0.416276E+00
+PKER_SDRYG( 23, 63) = 0.407625E+00
+PKER_SDRYG( 23, 64) = 0.399107E+00
+PKER_SDRYG( 23, 65) = 0.390718E+00
+PKER_SDRYG( 23, 66) = 0.382455E+00
+PKER_SDRYG( 23, 67) = 0.374313E+00
+PKER_SDRYG( 23, 68) = 0.366289E+00
+PKER_SDRYG( 23, 69) = 0.358379E+00
+PKER_SDRYG( 23, 70) = 0.350580E+00
+PKER_SDRYG( 23, 71) = 0.342888E+00
+PKER_SDRYG( 23, 72) = 0.335300E+00
+PKER_SDRYG( 23, 73) = 0.327812E+00
+PKER_SDRYG( 23, 74) = 0.320421E+00
+PKER_SDRYG( 23, 75) = 0.313123E+00
+PKER_SDRYG( 23, 76) = 0.305915E+00
+PKER_SDRYG( 23, 77) = 0.298794E+00
+PKER_SDRYG( 23, 78) = 0.291756E+00
+PKER_SDRYG( 23, 79) = 0.284799E+00
+PKER_SDRYG( 23, 80) = 0.277920E+00
+PKER_SDRYG( 24, 1) = 0.136720E+01
+PKER_SDRYG( 24, 2) = 0.134198E+01
+PKER_SDRYG( 24, 3) = 0.131720E+01
+PKER_SDRYG( 24, 4) = 0.129288E+01
+PKER_SDRYG( 24, 5) = 0.126898E+01
+PKER_SDRYG( 24, 6) = 0.124552E+01
+PKER_SDRYG( 24, 7) = 0.122248E+01
+PKER_SDRYG( 24, 8) = 0.119984E+01
+PKER_SDRYG( 24, 9) = 0.117762E+01
+PKER_SDRYG( 24, 10) = 0.115579E+01
+PKER_SDRYG( 24, 11) = 0.113435E+01
+PKER_SDRYG( 24, 12) = 0.111330E+01
+PKER_SDRYG( 24, 13) = 0.109263E+01
+PKER_SDRYG( 24, 14) = 0.107232E+01
+PKER_SDRYG( 24, 15) = 0.105238E+01
+PKER_SDRYG( 24, 16) = 0.103279E+01
+PKER_SDRYG( 24, 17) = 0.101356E+01
+PKER_SDRYG( 24, 18) = 0.994663E+00
+PKER_SDRYG( 24, 19) = 0.976109E+00
+PKER_SDRYG( 24, 20) = 0.957887E+00
+PKER_SDRYG( 24, 21) = 0.939990E+00
+PKER_SDRYG( 24, 22) = 0.922413E+00
+PKER_SDRYG( 24, 23) = 0.905149E+00
+PKER_SDRYG( 24, 24) = 0.888193E+00
+PKER_SDRYG( 24, 25) = 0.871540E+00
+PKER_SDRYG( 24, 26) = 0.855184E+00
+PKER_SDRYG( 24, 27) = 0.839120E+00
+PKER_SDRYG( 24, 28) = 0.823341E+00
+PKER_SDRYG( 24, 29) = 0.807844E+00
+PKER_SDRYG( 24, 30) = 0.792622E+00
+PKER_SDRYG( 24, 31) = 0.777670E+00
+PKER_SDRYG( 24, 32) = 0.762985E+00
+PKER_SDRYG( 24, 33) = 0.748560E+00
+PKER_SDRYG( 24, 34) = 0.734390E+00
+PKER_SDRYG( 24, 35) = 0.720472E+00
+PKER_SDRYG( 24, 36) = 0.706801E+00
+PKER_SDRYG( 24, 37) = 0.693371E+00
+PKER_SDRYG( 24, 38) = 0.680178E+00
+PKER_SDRYG( 24, 39) = 0.667218E+00
+PKER_SDRYG( 24, 40) = 0.654487E+00
+PKER_SDRYG( 24, 41) = 0.641979E+00
+PKER_SDRYG( 24, 42) = 0.629692E+00
+PKER_SDRYG( 24, 43) = 0.617619E+00
+PKER_SDRYG( 24, 44) = 0.605758E+00
+PKER_SDRYG( 24, 45) = 0.594105E+00
+PKER_SDRYG( 24, 46) = 0.582654E+00
+PKER_SDRYG( 24, 47) = 0.571403E+00
+PKER_SDRYG( 24, 48) = 0.560347E+00
+PKER_SDRYG( 24, 49) = 0.549482E+00
+PKER_SDRYG( 24, 50) = 0.538805E+00
+PKER_SDRYG( 24, 51) = 0.528312E+00
+PKER_SDRYG( 24, 52) = 0.517998E+00
+PKER_SDRYG( 24, 53) = 0.507861E+00
+PKER_SDRYG( 24, 54) = 0.497897E+00
+PKER_SDRYG( 24, 55) = 0.488101E+00
+PKER_SDRYG( 24, 56) = 0.478470E+00
+PKER_SDRYG( 24, 57) = 0.469001E+00
+PKER_SDRYG( 24, 58) = 0.459691E+00
+PKER_SDRYG( 24, 59) = 0.450534E+00
+PKER_SDRYG( 24, 60) = 0.441529E+00
+PKER_SDRYG( 24, 61) = 0.432672E+00
+PKER_SDRYG( 24, 62) = 0.423958E+00
+PKER_SDRYG( 24, 63) = 0.415385E+00
+PKER_SDRYG( 24, 64) = 0.406949E+00
+PKER_SDRYG( 24, 65) = 0.398648E+00
+PKER_SDRYG( 24, 66) = 0.390476E+00
+PKER_SDRYG( 24, 67) = 0.382431E+00
+PKER_SDRYG( 24, 68) = 0.374510E+00
+PKER_SDRYG( 24, 69) = 0.366709E+00
+PKER_SDRYG( 24, 70) = 0.359025E+00
+PKER_SDRYG( 24, 71) = 0.351454E+00
+PKER_SDRYG( 24, 72) = 0.343994E+00
+PKER_SDRYG( 24, 73) = 0.336640E+00
+PKER_SDRYG( 24, 74) = 0.329389E+00
+PKER_SDRYG( 24, 75) = 0.322239E+00
+PKER_SDRYG( 24, 76) = 0.315185E+00
+PKER_SDRYG( 24, 77) = 0.308226E+00
+PKER_SDRYG( 24, 78) = 0.301356E+00
+PKER_SDRYG( 24, 79) = 0.294575E+00
+PKER_SDRYG( 24, 80) = 0.287878E+00
+PKER_SDRYG( 25, 1) = 0.137270E+01
+PKER_SDRYG( 25, 2) = 0.134747E+01
+PKER_SDRYG( 25, 3) = 0.132270E+01
+PKER_SDRYG( 25, 4) = 0.129838E+01
+PKER_SDRYG( 25, 5) = 0.127449E+01
+PKER_SDRYG( 25, 6) = 0.125103E+01
+PKER_SDRYG( 25, 7) = 0.122798E+01
+PKER_SDRYG( 25, 8) = 0.120536E+01
+PKER_SDRYG( 25, 9) = 0.118313E+01
+PKER_SDRYG( 25, 10) = 0.116131E+01
+PKER_SDRYG( 25, 11) = 0.113987E+01
+PKER_SDRYG( 25, 12) = 0.111882E+01
+PKER_SDRYG( 25, 13) = 0.109815E+01
+PKER_SDRYG( 25, 14) = 0.107785E+01
+PKER_SDRYG( 25, 15) = 0.105791E+01
+PKER_SDRYG( 25, 16) = 0.103833E+01
+PKER_SDRYG( 25, 17) = 0.101910E+01
+PKER_SDRYG( 25, 18) = 0.100021E+01
+PKER_SDRYG( 25, 19) = 0.981659E+00
+PKER_SDRYG( 25, 20) = 0.963441E+00
+PKER_SDRYG( 25, 21) = 0.945549E+00
+PKER_SDRYG( 25, 22) = 0.927977E+00
+PKER_SDRYG( 25, 23) = 0.910720E+00
+PKER_SDRYG( 25, 24) = 0.893770E+00
+PKER_SDRYG( 25, 25) = 0.877123E+00
+PKER_SDRYG( 25, 26) = 0.860774E+00
+PKER_SDRYG( 25, 27) = 0.844716E+00
+PKER_SDRYG( 25, 28) = 0.828945E+00
+PKER_SDRYG( 25, 29) = 0.813456E+00
+PKER_SDRYG( 25, 30) = 0.798242E+00
+PKER_SDRYG( 25, 31) = 0.783300E+00
+PKER_SDRYG( 25, 32) = 0.768623E+00
+PKER_SDRYG( 25, 33) = 0.754208E+00
+PKER_SDRYG( 25, 34) = 0.740050E+00
+PKER_SDRYG( 25, 35) = 0.726143E+00
+PKER_SDRYG( 25, 36) = 0.712483E+00
+PKER_SDRYG( 25, 37) = 0.699065E+00
+PKER_SDRYG( 25, 38) = 0.685886E+00
+PKER_SDRYG( 25, 39) = 0.672940E+00
+PKER_SDRYG( 25, 40) = 0.660223E+00
+PKER_SDRYG( 25, 41) = 0.647731E+00
+PKER_SDRYG( 25, 42) = 0.635460E+00
+PKER_SDRYG( 25, 43) = 0.623406E+00
+PKER_SDRYG( 25, 44) = 0.611563E+00
+PKER_SDRYG( 25, 45) = 0.599929E+00
+PKER_SDRYG( 25, 46) = 0.588500E+00
+PKER_SDRYG( 25, 47) = 0.577271E+00
+PKER_SDRYG( 25, 48) = 0.566238E+00
+PKER_SDRYG( 25, 49) = 0.555398E+00
+PKER_SDRYG( 25, 50) = 0.544748E+00
+PKER_SDRYG( 25, 51) = 0.534282E+00
+PKER_SDRYG( 25, 52) = 0.523998E+00
+PKER_SDRYG( 25, 53) = 0.513893E+00
+PKER_SDRYG( 25, 54) = 0.503961E+00
+PKER_SDRYG( 25, 55) = 0.494201E+00
+PKER_SDRYG( 25, 56) = 0.484608E+00
+PKER_SDRYG( 25, 57) = 0.475179E+00
+PKER_SDRYG( 25, 58) = 0.465910E+00
+PKER_SDRYG( 25, 59) = 0.456798E+00
+PKER_SDRYG( 25, 60) = 0.447841E+00
+PKER_SDRYG( 25, 61) = 0.439033E+00
+PKER_SDRYG( 25, 62) = 0.430373E+00
+PKER_SDRYG( 25, 63) = 0.421857E+00
+PKER_SDRYG( 25, 64) = 0.413481E+00
+PKER_SDRYG( 25, 65) = 0.405242E+00
+PKER_SDRYG( 25, 66) = 0.397138E+00
+PKER_SDRYG( 25, 67) = 0.389164E+00
+PKER_SDRYG( 25, 68) = 0.381318E+00
+PKER_SDRYG( 25, 69) = 0.373597E+00
+PKER_SDRYG( 25, 70) = 0.365997E+00
+PKER_SDRYG( 25, 71) = 0.358515E+00
+PKER_SDRYG( 25, 72) = 0.351149E+00
+PKER_SDRYG( 25, 73) = 0.343894E+00
+PKER_SDRYG( 25, 74) = 0.336748E+00
+PKER_SDRYG( 25, 75) = 0.329708E+00
+PKER_SDRYG( 25, 76) = 0.322770E+00
+PKER_SDRYG( 25, 77) = 0.315933E+00
+PKER_SDRYG( 25, 78) = 0.309191E+00
+PKER_SDRYG( 25, 79) = 0.302543E+00
+PKER_SDRYG( 25, 80) = 0.295986E+00
+PKER_SDRYG( 26, 1) = 0.137740E+01
+PKER_SDRYG( 26, 2) = 0.135218E+01
+PKER_SDRYG( 26, 3) = 0.132741E+01
+PKER_SDRYG( 26, 4) = 0.130308E+01
+PKER_SDRYG( 26, 5) = 0.127919E+01
+PKER_SDRYG( 26, 6) = 0.125573E+01
+PKER_SDRYG( 26, 7) = 0.123269E+01
+PKER_SDRYG( 26, 8) = 0.121007E+01
+PKER_SDRYG( 26, 9) = 0.118785E+01
+PKER_SDRYG( 26, 10) = 0.116602E+01
+PKER_SDRYG( 26, 11) = 0.114459E+01
+PKER_SDRYG( 26, 12) = 0.112354E+01
+PKER_SDRYG( 26, 13) = 0.110287E+01
+PKER_SDRYG( 26, 14) = 0.108257E+01
+PKER_SDRYG( 26, 15) = 0.106264E+01
+PKER_SDRYG( 26, 16) = 0.104306E+01
+PKER_SDRYG( 26, 17) = 0.102383E+01
+PKER_SDRYG( 26, 18) = 0.100495E+01
+PKER_SDRYG( 26, 19) = 0.986399E+00
+PKER_SDRYG( 26, 20) = 0.968185E+00
+PKER_SDRYG( 26, 21) = 0.950297E+00
+PKER_SDRYG( 26, 22) = 0.932729E+00
+PKER_SDRYG( 26, 23) = 0.915476E+00
+PKER_SDRYG( 26, 24) = 0.898531E+00
+PKER_SDRYG( 26, 25) = 0.881889E+00
+PKER_SDRYG( 26, 26) = 0.865544E+00
+PKER_SDRYG( 26, 27) = 0.849492E+00
+PKER_SDRYG( 26, 28) = 0.833727E+00
+PKER_SDRYG( 26, 29) = 0.818243E+00
+PKER_SDRYG( 26, 30) = 0.803035E+00
+PKER_SDRYG( 26, 31) = 0.788100E+00
+PKER_SDRYG( 26, 32) = 0.773430E+00
+PKER_SDRYG( 26, 33) = 0.759023E+00
+PKER_SDRYG( 26, 34) = 0.744872E+00
+PKER_SDRYG( 26, 35) = 0.730973E+00
+PKER_SDRYG( 26, 36) = 0.717322E+00
+PKER_SDRYG( 26, 37) = 0.703914E+00
+PKER_SDRYG( 26, 38) = 0.690744E+00
+PKER_SDRYG( 26, 39) = 0.677808E+00
+PKER_SDRYG( 26, 40) = 0.665103E+00
+PKER_SDRYG( 26, 41) = 0.652622E+00
+PKER_SDRYG( 26, 42) = 0.640363E+00
+PKER_SDRYG( 26, 43) = 0.628322E+00
+PKER_SDRYG( 26, 44) = 0.616493E+00
+PKER_SDRYG( 26, 45) = 0.604874E+00
+PKER_SDRYG( 26, 46) = 0.593460E+00
+PKER_SDRYG( 26, 47) = 0.582247E+00
+PKER_SDRYG( 26, 48) = 0.571232E+00
+PKER_SDRYG( 26, 49) = 0.560410E+00
+PKER_SDRYG( 26, 50) = 0.549779E+00
+PKER_SDRYG( 26, 51) = 0.539334E+00
+PKER_SDRYG( 26, 52) = 0.529072E+00
+PKER_SDRYG( 26, 53) = 0.518989E+00
+PKER_SDRYG( 26, 54) = 0.509082E+00
+PKER_SDRYG( 26, 55) = 0.499347E+00
+PKER_SDRYG( 26, 56) = 0.489782E+00
+PKER_SDRYG( 26, 57) = 0.480382E+00
+PKER_SDRYG( 26, 58) = 0.471144E+00
+PKER_SDRYG( 26, 59) = 0.462065E+00
+PKER_SDRYG( 26, 60) = 0.453142E+00
+PKER_SDRYG( 26, 61) = 0.444371E+00
+PKER_SDRYG( 26, 62) = 0.435750E+00
+PKER_SDRYG( 26, 63) = 0.427274E+00
+PKER_SDRYG( 26, 64) = 0.418942E+00
+PKER_SDRYG( 26, 65) = 0.410750E+00
+PKER_SDRYG( 26, 66) = 0.402694E+00
+PKER_SDRYG( 26, 67) = 0.394773E+00
+PKER_SDRYG( 26, 68) = 0.386982E+00
+PKER_SDRYG( 26, 69) = 0.379319E+00
+PKER_SDRYG( 26, 70) = 0.371781E+00
+PKER_SDRYG( 26, 71) = 0.364364E+00
+PKER_SDRYG( 26, 72) = 0.357067E+00
+PKER_SDRYG( 26, 73) = 0.349885E+00
+PKER_SDRYG( 26, 74) = 0.342816E+00
+PKER_SDRYG( 26, 75) = 0.335858E+00
+PKER_SDRYG( 26, 76) = 0.329006E+00
+PKER_SDRYG( 26, 77) = 0.322259E+00
+PKER_SDRYG( 26, 78) = 0.315613E+00
+PKER_SDRYG( 26, 79) = 0.309066E+00
+PKER_SDRYG( 26, 80) = 0.302615E+00
+PKER_SDRYG( 27, 1) = 0.138142E+01
+PKER_SDRYG( 27, 2) = 0.135620E+01
+PKER_SDRYG( 27, 3) = 0.133143E+01
+PKER_SDRYG( 27, 4) = 0.130711E+01
+PKER_SDRYG( 27, 5) = 0.128322E+01
+PKER_SDRYG( 27, 6) = 0.125976E+01
+PKER_SDRYG( 27, 7) = 0.123672E+01
+PKER_SDRYG( 27, 8) = 0.121410E+01
+PKER_SDRYG( 27, 9) = 0.119188E+01
+PKER_SDRYG( 27, 10) = 0.117005E+01
+PKER_SDRYG( 27, 11) = 0.114862E+01
+PKER_SDRYG( 27, 12) = 0.112758E+01
+PKER_SDRYG( 27, 13) = 0.110691E+01
+PKER_SDRYG( 27, 14) = 0.108661E+01
+PKER_SDRYG( 27, 15) = 0.106668E+01
+PKER_SDRYG( 27, 16) = 0.104710E+01
+PKER_SDRYG( 27, 17) = 0.102787E+01
+PKER_SDRYG( 27, 18) = 0.100899E+01
+PKER_SDRYG( 27, 19) = 0.990449E+00
+PKER_SDRYG( 27, 20) = 0.972238E+00
+PKER_SDRYG( 27, 21) = 0.954353E+00
+PKER_SDRYG( 27, 22) = 0.936788E+00
+PKER_SDRYG( 27, 23) = 0.919537E+00
+PKER_SDRYG( 27, 24) = 0.902596E+00
+PKER_SDRYG( 27, 25) = 0.885957E+00
+PKER_SDRYG( 27, 26) = 0.869617E+00
+PKER_SDRYG( 27, 27) = 0.853568E+00
+PKER_SDRYG( 27, 28) = 0.837807E+00
+PKER_SDRYG( 27, 29) = 0.822328E+00
+PKER_SDRYG( 27, 30) = 0.807125E+00
+PKER_SDRYG( 27, 31) = 0.792194E+00
+PKER_SDRYG( 27, 32) = 0.777530E+00
+PKER_SDRYG( 27, 33) = 0.763128E+00
+PKER_SDRYG( 27, 34) = 0.748983E+00
+PKER_SDRYG( 27, 35) = 0.735091E+00
+PKER_SDRYG( 27, 36) = 0.721446E+00
+PKER_SDRYG( 27, 37) = 0.708045E+00
+PKER_SDRYG( 27, 38) = 0.694882E+00
+PKER_SDRYG( 27, 39) = 0.681954E+00
+PKER_SDRYG( 27, 40) = 0.669257E+00
+PKER_SDRYG( 27, 41) = 0.656785E+00
+PKER_SDRYG( 27, 42) = 0.644535E+00
+PKER_SDRYG( 27, 43) = 0.632503E+00
+PKER_SDRYG( 27, 44) = 0.620685E+00
+PKER_SDRYG( 27, 45) = 0.609076E+00
+PKER_SDRYG( 27, 46) = 0.597673E+00
+PKER_SDRYG( 27, 47) = 0.586473E+00
+PKER_SDRYG( 27, 48) = 0.575470E+00
+PKER_SDRYG( 27, 49) = 0.564662E+00
+PKER_SDRYG( 27, 50) = 0.554045E+00
+PKER_SDRYG( 27, 51) = 0.543615E+00
+PKER_SDRYG( 27, 52) = 0.533369E+00
+PKER_SDRYG( 27, 53) = 0.523304E+00
+PKER_SDRYG( 27, 54) = 0.513415E+00
+PKER_SDRYG( 27, 55) = 0.503699E+00
+PKER_SDRYG( 27, 56) = 0.494153E+00
+PKER_SDRYG( 27, 57) = 0.484775E+00
+PKER_SDRYG( 27, 58) = 0.475559E+00
+PKER_SDRYG( 27, 59) = 0.466504E+00
+PKER_SDRYG( 27, 60) = 0.457607E+00
+PKER_SDRYG( 27, 61) = 0.448863E+00
+PKER_SDRYG( 27, 62) = 0.440270E+00
+PKER_SDRYG( 27, 63) = 0.431825E+00
+PKER_SDRYG( 27, 64) = 0.423525E+00
+PKER_SDRYG( 27, 65) = 0.415366E+00
+PKER_SDRYG( 27, 66) = 0.407347E+00
+PKER_SDRYG( 27, 67) = 0.399463E+00
+PKER_SDRYG( 27, 68) = 0.391713E+00
+PKER_SDRYG( 27, 69) = 0.384092E+00
+PKER_SDRYG( 27, 70) = 0.376599E+00
+PKER_SDRYG( 27, 71) = 0.369231E+00
+PKER_SDRYG( 27, 72) = 0.361984E+00
+PKER_SDRYG( 27, 73) = 0.354856E+00
+PKER_SDRYG( 27, 74) = 0.347844E+00
+PKER_SDRYG( 27, 75) = 0.340945E+00
+PKER_SDRYG( 27, 76) = 0.334157E+00
+PKER_SDRYG( 27, 77) = 0.327477E+00
+PKER_SDRYG( 27, 78) = 0.320902E+00
+PKER_SDRYG( 27, 79) = 0.314430E+00
+PKER_SDRYG( 27, 80) = 0.308057E+00
+PKER_SDRYG( 28, 1) = 0.138485E+01
+PKER_SDRYG( 28, 2) = 0.135964E+01
+PKER_SDRYG( 28, 3) = 0.133487E+01
+PKER_SDRYG( 28, 4) = 0.131055E+01
+PKER_SDRYG( 28, 5) = 0.128666E+01
+PKER_SDRYG( 28, 6) = 0.126320E+01
+PKER_SDRYG( 28, 7) = 0.124016E+01
+PKER_SDRYG( 28, 8) = 0.121754E+01
+PKER_SDRYG( 28, 9) = 0.119532E+01
+PKER_SDRYG( 28, 10) = 0.117350E+01
+PKER_SDRYG( 28, 11) = 0.115207E+01
+PKER_SDRYG( 28, 12) = 0.113103E+01
+PKER_SDRYG( 28, 13) = 0.111036E+01
+PKER_SDRYG( 28, 14) = 0.109006E+01
+PKER_SDRYG( 28, 15) = 0.107013E+01
+PKER_SDRYG( 28, 16) = 0.105056E+01
+PKER_SDRYG( 28, 17) = 0.103133E+01
+PKER_SDRYG( 28, 18) = 0.101245E+01
+PKER_SDRYG( 28, 19) = 0.993910E+00
+PKER_SDRYG( 28, 20) = 0.975701E+00
+PKER_SDRYG( 28, 21) = 0.957818E+00
+PKER_SDRYG( 28, 22) = 0.940255E+00
+PKER_SDRYG( 28, 23) = 0.923007E+00
+PKER_SDRYG( 28, 24) = 0.906068E+00
+PKER_SDRYG( 28, 25) = 0.889433E+00
+PKER_SDRYG( 28, 26) = 0.873095E+00
+PKER_SDRYG( 28, 27) = 0.857050E+00
+PKER_SDRYG( 28, 28) = 0.841291E+00
+PKER_SDRYG( 28, 29) = 0.825815E+00
+PKER_SDRYG( 28, 30) = 0.810616E+00
+PKER_SDRYG( 28, 31) = 0.795689E+00
+PKER_SDRYG( 28, 32) = 0.781029E+00
+PKER_SDRYG( 28, 33) = 0.766631E+00
+PKER_SDRYG( 28, 34) = 0.752490E+00
+PKER_SDRYG( 28, 35) = 0.738602E+00
+PKER_SDRYG( 28, 36) = 0.724963E+00
+PKER_SDRYG( 28, 37) = 0.711567E+00
+PKER_SDRYG( 28, 38) = 0.698410E+00
+PKER_SDRYG( 28, 39) = 0.685488E+00
+PKER_SDRYG( 28, 40) = 0.672796E+00
+PKER_SDRYG( 28, 41) = 0.660331E+00
+PKER_SDRYG( 28, 42) = 0.648088E+00
+PKER_SDRYG( 28, 43) = 0.636063E+00
+PKER_SDRYG( 28, 44) = 0.624252E+00
+PKER_SDRYG( 28, 45) = 0.612651E+00
+PKER_SDRYG( 28, 46) = 0.601257E+00
+PKER_SDRYG( 28, 47) = 0.590065E+00
+PKER_SDRYG( 28, 48) = 0.579072E+00
+PKER_SDRYG( 28, 49) = 0.568275E+00
+PKER_SDRYG( 28, 50) = 0.557668E+00
+PKER_SDRYG( 28, 51) = 0.547250E+00
+PKER_SDRYG( 28, 52) = 0.537015E+00
+PKER_SDRYG( 28, 53) = 0.526962E+00
+PKER_SDRYG( 28, 54) = 0.517087E+00
+PKER_SDRYG( 28, 55) = 0.507385E+00
+PKER_SDRYG( 28, 56) = 0.497854E+00
+PKER_SDRYG( 28, 57) = 0.488491E+00
+PKER_SDRYG( 28, 58) = 0.479293E+00
+PKER_SDRYG( 28, 59) = 0.470256E+00
+PKER_SDRYG( 28, 60) = 0.461377E+00
+PKER_SDRYG( 28, 61) = 0.452653E+00
+PKER_SDRYG( 28, 62) = 0.444081E+00
+PKER_SDRYG( 28, 63) = 0.435658E+00
+PKER_SDRYG( 28, 64) = 0.427381E+00
+PKER_SDRYG( 28, 65) = 0.419248E+00
+PKER_SDRYG( 28, 66) = 0.411255E+00
+PKER_SDRYG( 28, 67) = 0.403399E+00
+PKER_SDRYG( 28, 68) = 0.395678E+00
+PKER_SDRYG( 28, 69) = 0.388089E+00
+PKER_SDRYG( 28, 70) = 0.380629E+00
+PKER_SDRYG( 28, 71) = 0.373296E+00
+PKER_SDRYG( 28, 72) = 0.366086E+00
+PKER_SDRYG( 28, 73) = 0.358998E+00
+PKER_SDRYG( 28, 74) = 0.352028E+00
+PKER_SDRYG( 28, 75) = 0.345173E+00
+PKER_SDRYG( 28, 76) = 0.338432E+00
+PKER_SDRYG( 28, 77) = 0.331802E+00
+PKER_SDRYG( 28, 78) = 0.325279E+00
+PKER_SDRYG( 28, 79) = 0.318862E+00
+PKER_SDRYG( 28, 80) = 0.312548E+00
+PKER_SDRYG( 29, 1) = 0.138780E+01
+PKER_SDRYG( 29, 2) = 0.136258E+01
+PKER_SDRYG( 29, 3) = 0.133781E+01
+PKER_SDRYG( 29, 4) = 0.131349E+01
+PKER_SDRYG( 29, 5) = 0.128960E+01
+PKER_SDRYG( 29, 6) = 0.126615E+01
+PKER_SDRYG( 29, 7) = 0.124311E+01
+PKER_SDRYG( 29, 8) = 0.122049E+01
+PKER_SDRYG( 29, 9) = 0.119827E+01
+PKER_SDRYG( 29, 10) = 0.117645E+01
+PKER_SDRYG( 29, 11) = 0.115502E+01
+PKER_SDRYG( 29, 12) = 0.113398E+01
+PKER_SDRYG( 29, 13) = 0.111331E+01
+PKER_SDRYG( 29, 14) = 0.109302E+01
+PKER_SDRYG( 29, 15) = 0.107308E+01
+PKER_SDRYG( 29, 16) = 0.105351E+01
+PKER_SDRYG( 29, 17) = 0.103429E+01
+PKER_SDRYG( 29, 18) = 0.101541E+01
+PKER_SDRYG( 29, 19) = 0.996869E+00
+PKER_SDRYG( 29, 20) = 0.978661E+00
+PKER_SDRYG( 29, 21) = 0.960779E+00
+PKER_SDRYG( 29, 22) = 0.943218E+00
+PKER_SDRYG( 29, 23) = 0.925972E+00
+PKER_SDRYG( 29, 24) = 0.909035E+00
+PKER_SDRYG( 29, 25) = 0.892402E+00
+PKER_SDRYG( 29, 26) = 0.876066E+00
+PKER_SDRYG( 29, 27) = 0.860023E+00
+PKER_SDRYG( 29, 28) = 0.844267E+00
+PKER_SDRYG( 29, 29) = 0.828794E+00
+PKER_SDRYG( 29, 30) = 0.813597E+00
+PKER_SDRYG( 29, 31) = 0.798673E+00
+PKER_SDRYG( 29, 32) = 0.784016E+00
+PKER_SDRYG( 29, 33) = 0.769621E+00
+PKER_SDRYG( 29, 34) = 0.755484E+00
+PKER_SDRYG( 29, 35) = 0.741599E+00
+PKER_SDRYG( 29, 36) = 0.727963E+00
+PKER_SDRYG( 29, 37) = 0.714571E+00
+PKER_SDRYG( 29, 38) = 0.701418E+00
+PKER_SDRYG( 29, 39) = 0.688500E+00
+PKER_SDRYG( 29, 40) = 0.675813E+00
+PKER_SDRYG( 29, 41) = 0.663353E+00
+PKER_SDRYG( 29, 42) = 0.651115E+00
+PKER_SDRYG( 29, 43) = 0.639096E+00
+PKER_SDRYG( 29, 44) = 0.627290E+00
+PKER_SDRYG( 29, 45) = 0.615696E+00
+PKER_SDRYG( 29, 46) = 0.604308E+00
+PKER_SDRYG( 29, 47) = 0.593123E+00
+PKER_SDRYG( 29, 48) = 0.582137E+00
+PKER_SDRYG( 29, 49) = 0.571347E+00
+PKER_SDRYG( 29, 50) = 0.560748E+00
+PKER_SDRYG( 29, 51) = 0.550338E+00
+PKER_SDRYG( 29, 52) = 0.540113E+00
+PKER_SDRYG( 29, 53) = 0.530069E+00
+PKER_SDRYG( 29, 54) = 0.520203E+00
+PKER_SDRYG( 29, 55) = 0.510512E+00
+PKER_SDRYG( 29, 56) = 0.500993E+00
+PKER_SDRYG( 29, 57) = 0.491641E+00
+PKER_SDRYG( 29, 58) = 0.482455E+00
+PKER_SDRYG( 29, 59) = 0.473431E+00
+PKER_SDRYG( 29, 60) = 0.464566E+00
+PKER_SDRYG( 29, 61) = 0.455857E+00
+PKER_SDRYG( 29, 62) = 0.447300E+00
+PKER_SDRYG( 29, 63) = 0.438894E+00
+PKER_SDRYG( 29, 64) = 0.430635E+00
+PKER_SDRYG( 29, 65) = 0.422520E+00
+PKER_SDRYG( 29, 66) = 0.414546E+00
+PKER_SDRYG( 29, 67) = 0.406711E+00
+PKER_SDRYG( 29, 68) = 0.399012E+00
+PKER_SDRYG( 29, 69) = 0.391446E+00
+PKER_SDRYG( 29, 70) = 0.384011E+00
+PKER_SDRYG( 29, 71) = 0.376704E+00
+PKER_SDRYG( 29, 72) = 0.369521E+00
+PKER_SDRYG( 29, 73) = 0.362462E+00
+PKER_SDRYG( 29, 74) = 0.355523E+00
+PKER_SDRYG( 29, 75) = 0.348701E+00
+PKER_SDRYG( 29, 76) = 0.341994E+00
+PKER_SDRYG( 29, 77) = 0.335400E+00
+PKER_SDRYG( 29, 78) = 0.328916E+00
+PKER_SDRYG( 29, 79) = 0.322540E+00
+PKER_SDRYG( 29, 80) = 0.316269E+00
+PKER_SDRYG( 30, 1) = 0.139031E+01
+PKER_SDRYG( 30, 2) = 0.136509E+01
+PKER_SDRYG( 30, 3) = 0.134033E+01
+PKER_SDRYG( 30, 4) = 0.131600E+01
+PKER_SDRYG( 30, 5) = 0.129212E+01
+PKER_SDRYG( 30, 6) = 0.126866E+01
+PKER_SDRYG( 30, 7) = 0.124563E+01
+PKER_SDRYG( 30, 8) = 0.122300E+01
+PKER_SDRYG( 30, 9) = 0.120079E+01
+PKER_SDRYG( 30, 10) = 0.117897E+01
+PKER_SDRYG( 30, 11) = 0.115754E+01
+PKER_SDRYG( 30, 12) = 0.113650E+01
+PKER_SDRYG( 30, 13) = 0.111583E+01
+PKER_SDRYG( 30, 14) = 0.109554E+01
+PKER_SDRYG( 30, 15) = 0.107561E+01
+PKER_SDRYG( 30, 16) = 0.105604E+01
+PKER_SDRYG( 30, 17) = 0.103681E+01
+PKER_SDRYG( 30, 18) = 0.101794E+01
+PKER_SDRYG( 30, 19) = 0.999397E+00
+PKER_SDRYG( 30, 20) = 0.981191E+00
+PKER_SDRYG( 30, 21) = 0.963311E+00
+PKER_SDRYG( 30, 22) = 0.945751E+00
+PKER_SDRYG( 30, 23) = 0.928506E+00
+PKER_SDRYG( 30, 24) = 0.911571E+00
+PKER_SDRYG( 30, 25) = 0.894938E+00
+PKER_SDRYG( 30, 26) = 0.878604E+00
+PKER_SDRYG( 30, 27) = 0.862563E+00
+PKER_SDRYG( 30, 28) = 0.846809E+00
+PKER_SDRYG( 30, 29) = 0.831338E+00
+PKER_SDRYG( 30, 30) = 0.816143E+00
+PKER_SDRYG( 30, 31) = 0.801221E+00
+PKER_SDRYG( 30, 32) = 0.786566E+00
+PKER_SDRYG( 30, 33) = 0.772174E+00
+PKER_SDRYG( 30, 34) = 0.758039E+00
+PKER_SDRYG( 30, 35) = 0.744157E+00
+PKER_SDRYG( 30, 36) = 0.730524E+00
+PKER_SDRYG( 30, 37) = 0.717135E+00
+PKER_SDRYG( 30, 38) = 0.703985E+00
+PKER_SDRYG( 30, 39) = 0.691070E+00
+PKER_SDRYG( 30, 40) = 0.678387E+00
+PKER_SDRYG( 30, 41) = 0.665930E+00
+PKER_SDRYG( 30, 42) = 0.653696E+00
+PKER_SDRYG( 30, 43) = 0.641681E+00
+PKER_SDRYG( 30, 44) = 0.629880E+00
+PKER_SDRYG( 30, 45) = 0.618290E+00
+PKER_SDRYG( 30, 46) = 0.606907E+00
+PKER_SDRYG( 30, 47) = 0.595727E+00
+PKER_SDRYG( 30, 48) = 0.584746E+00
+PKER_SDRYG( 30, 49) = 0.573962E+00
+PKER_SDRYG( 30, 50) = 0.563369E+00
+PKER_SDRYG( 30, 51) = 0.552965E+00
+PKER_SDRYG( 30, 52) = 0.542747E+00
+PKER_SDRYG( 30, 53) = 0.532710E+00
+PKER_SDRYG( 30, 54) = 0.522852E+00
+PKER_SDRYG( 30, 55) = 0.513169E+00
+PKER_SDRYG( 30, 56) = 0.503657E+00
+PKER_SDRYG( 30, 57) = 0.494315E+00
+PKER_SDRYG( 30, 58) = 0.485138E+00
+PKER_SDRYG( 30, 59) = 0.476124E+00
+PKER_SDRYG( 30, 60) = 0.467269E+00
+PKER_SDRYG( 30, 61) = 0.458570E+00
+PKER_SDRYG( 30, 62) = 0.450026E+00
+PKER_SDRYG( 30, 63) = 0.441632E+00
+PKER_SDRYG( 30, 64) = 0.433385E+00
+PKER_SDRYG( 30, 65) = 0.425284E+00
+PKER_SDRYG( 30, 66) = 0.417325E+00
+PKER_SDRYG( 30, 67) = 0.409505E+00
+PKER_SDRYG( 30, 68) = 0.401823E+00
+PKER_SDRYG( 30, 69) = 0.394274E+00
+PKER_SDRYG( 30, 70) = 0.386857E+00
+PKER_SDRYG( 30, 71) = 0.379569E+00
+PKER_SDRYG( 30, 72) = 0.372407E+00
+PKER_SDRYG( 30, 73) = 0.365369E+00
+PKER_SDRYG( 30, 74) = 0.358452E+00
+PKER_SDRYG( 30, 75) = 0.351655E+00
+PKER_SDRYG( 30, 76) = 0.344974E+00
+PKER_SDRYG( 30, 77) = 0.338407E+00
+PKER_SDRYG( 30, 78) = 0.331951E+00
+PKER_SDRYG( 30, 79) = 0.325606E+00
+PKER_SDRYG( 30, 80) = 0.319367E+00
+PKER_SDRYG( 31, 1) = 0.139246E+01
+PKER_SDRYG( 31, 2) = 0.136724E+01
+PKER_SDRYG( 31, 3) = 0.134248E+01
+PKER_SDRYG( 31, 4) = 0.131816E+01
+PKER_SDRYG( 31, 5) = 0.129427E+01
+PKER_SDRYG( 31, 6) = 0.127082E+01
+PKER_SDRYG( 31, 7) = 0.124778E+01
+PKER_SDRYG( 31, 8) = 0.122516E+01
+PKER_SDRYG( 31, 9) = 0.120294E+01
+PKER_SDRYG( 31, 10) = 0.118112E+01
+PKER_SDRYG( 31, 11) = 0.115970E+01
+PKER_SDRYG( 31, 12) = 0.113866E+01
+PKER_SDRYG( 31, 13) = 0.111799E+01
+PKER_SDRYG( 31, 14) = 0.109770E+01
+PKER_SDRYG( 31, 15) = 0.107777E+01
+PKER_SDRYG( 31, 16) = 0.105820E+01
+PKER_SDRYG( 31, 17) = 0.103897E+01
+PKER_SDRYG( 31, 18) = 0.102010E+01
+PKER_SDRYG( 31, 19) = 0.100156E+01
+PKER_SDRYG( 31, 20) = 0.983353E+00
+PKER_SDRYG( 31, 21) = 0.965474E+00
+PKER_SDRYG( 31, 22) = 0.947916E+00
+PKER_SDRYG( 31, 23) = 0.930672E+00
+PKER_SDRYG( 31, 24) = 0.913738E+00
+PKER_SDRYG( 31, 25) = 0.897107E+00
+PKER_SDRYG( 31, 26) = 0.880774E+00
+PKER_SDRYG( 31, 27) = 0.864734E+00
+PKER_SDRYG( 31, 28) = 0.848981E+00
+PKER_SDRYG( 31, 29) = 0.833511E+00
+PKER_SDRYG( 31, 30) = 0.818319E+00
+PKER_SDRYG( 31, 31) = 0.803398E+00
+PKER_SDRYG( 31, 32) = 0.788745E+00
+PKER_SDRYG( 31, 33) = 0.774354E+00
+PKER_SDRYG( 31, 34) = 0.760221E+00
+PKER_SDRYG( 31, 35) = 0.746341E+00
+PKER_SDRYG( 31, 36) = 0.732710E+00
+PKER_SDRYG( 31, 37) = 0.719323E+00
+PKER_SDRYG( 31, 38) = 0.706176E+00
+PKER_SDRYG( 31, 39) = 0.693264E+00
+PKER_SDRYG( 31, 40) = 0.680583E+00
+PKER_SDRYG( 31, 41) = 0.668129E+00
+PKER_SDRYG( 31, 42) = 0.655898E+00
+PKER_SDRYG( 31, 43) = 0.643886E+00
+PKER_SDRYG( 31, 44) = 0.632088E+00
+PKER_SDRYG( 31, 45) = 0.620502E+00
+PKER_SDRYG( 31, 46) = 0.609122E+00
+PKER_SDRYG( 31, 47) = 0.597946E+00
+PKER_SDRYG( 31, 48) = 0.586970E+00
+PKER_SDRYG( 31, 49) = 0.576189E+00
+PKER_SDRYG( 31, 50) = 0.565601E+00
+PKER_SDRYG( 31, 51) = 0.555202E+00
+PKER_SDRYG( 31, 52) = 0.544989E+00
+PKER_SDRYG( 31, 53) = 0.534957E+00
+PKER_SDRYG( 31, 54) = 0.525104E+00
+PKER_SDRYG( 31, 55) = 0.515427E+00
+PKER_SDRYG( 31, 56) = 0.505922E+00
+PKER_SDRYG( 31, 57) = 0.496586E+00
+PKER_SDRYG( 31, 58) = 0.487416E+00
+PKER_SDRYG( 31, 59) = 0.478410E+00
+PKER_SDRYG( 31, 60) = 0.469562E+00
+PKER_SDRYG( 31, 61) = 0.460872E+00
+PKER_SDRYG( 31, 62) = 0.452336E+00
+PKER_SDRYG( 31, 63) = 0.443951E+00
+PKER_SDRYG( 31, 64) = 0.435715E+00
+PKER_SDRYG( 31, 65) = 0.427624E+00
+PKER_SDRYG( 31, 66) = 0.419675E+00
+PKER_SDRYG( 31, 67) = 0.411867E+00
+PKER_SDRYG( 31, 68) = 0.404197E+00
+PKER_SDRYG( 31, 69) = 0.396661E+00
+PKER_SDRYG( 31, 70) = 0.389257E+00
+PKER_SDRYG( 31, 71) = 0.381983E+00
+PKER_SDRYG( 31, 72) = 0.374837E+00
+PKER_SDRYG( 31, 73) = 0.367815E+00
+PKER_SDRYG( 31, 74) = 0.360915E+00
+PKER_SDRYG( 31, 75) = 0.354136E+00
+PKER_SDRYG( 31, 76) = 0.347474E+00
+PKER_SDRYG( 31, 77) = 0.340927E+00
+PKER_SDRYG( 31, 78) = 0.334493E+00
+PKER_SDRYG( 31, 79) = 0.328169E+00
+PKER_SDRYG( 31, 80) = 0.321954E+00
+PKER_SDRYG( 32, 1) = 0.139430E+01
+PKER_SDRYG( 32, 2) = 0.136908E+01
+PKER_SDRYG( 32, 3) = 0.134432E+01
+PKER_SDRYG( 32, 4) = 0.132000E+01
+PKER_SDRYG( 32, 5) = 0.129611E+01
+PKER_SDRYG( 32, 6) = 0.127266E+01
+PKER_SDRYG( 32, 7) = 0.124962E+01
+PKER_SDRYG( 32, 8) = 0.122700E+01
+PKER_SDRYG( 32, 9) = 0.120479E+01
+PKER_SDRYG( 32, 10) = 0.118297E+01
+PKER_SDRYG( 32, 11) = 0.116154E+01
+PKER_SDRYG( 32, 12) = 0.114050E+01
+PKER_SDRYG( 32, 13) = 0.111984E+01
+PKER_SDRYG( 32, 14) = 0.109954E+01
+PKER_SDRYG( 32, 15) = 0.107961E+01
+PKER_SDRYG( 32, 16) = 0.106004E+01
+PKER_SDRYG( 32, 17) = 0.104082E+01
+PKER_SDRYG( 32, 18) = 0.102194E+01
+PKER_SDRYG( 32, 19) = 0.100341E+01
+PKER_SDRYG( 32, 20) = 0.985203E+00
+PKER_SDRYG( 32, 21) = 0.967324E+00
+PKER_SDRYG( 32, 22) = 0.949766E+00
+PKER_SDRYG( 32, 23) = 0.932524E+00
+PKER_SDRYG( 32, 24) = 0.915590E+00
+PKER_SDRYG( 32, 25) = 0.898960E+00
+PKER_SDRYG( 32, 26) = 0.882628E+00
+PKER_SDRYG( 32, 27) = 0.866589E+00
+PKER_SDRYG( 32, 28) = 0.850838E+00
+PKER_SDRYG( 32, 29) = 0.835369E+00
+PKER_SDRYG( 32, 30) = 0.820177E+00
+PKER_SDRYG( 32, 31) = 0.805258E+00
+PKER_SDRYG( 32, 32) = 0.790606E+00
+PKER_SDRYG( 32, 33) = 0.776217E+00
+PKER_SDRYG( 32, 34) = 0.762085E+00
+PKER_SDRYG( 32, 35) = 0.748207E+00
+PKER_SDRYG( 32, 36) = 0.734578E+00
+PKER_SDRYG( 32, 37) = 0.721192E+00
+PKER_SDRYG( 32, 38) = 0.708047E+00
+PKER_SDRYG( 32, 39) = 0.695137E+00
+PKER_SDRYG( 32, 40) = 0.682458E+00
+PKER_SDRYG( 32, 41) = 0.670006E+00
+PKER_SDRYG( 32, 42) = 0.657777E+00
+PKER_SDRYG( 32, 43) = 0.645767E+00
+PKER_SDRYG( 32, 44) = 0.633972E+00
+PKER_SDRYG( 32, 45) = 0.622388E+00
+PKER_SDRYG( 32, 46) = 0.611012E+00
+PKER_SDRYG( 32, 47) = 0.599838E+00
+PKER_SDRYG( 32, 48) = 0.588865E+00
+PKER_SDRYG( 32, 49) = 0.578088E+00
+PKER_SDRYG( 32, 50) = 0.567503E+00
+PKER_SDRYG( 32, 51) = 0.557108E+00
+PKER_SDRYG( 32, 52) = 0.546898E+00
+PKER_SDRYG( 32, 53) = 0.536871E+00
+PKER_SDRYG( 32, 54) = 0.527022E+00
+PKER_SDRYG( 32, 55) = 0.517349E+00
+PKER_SDRYG( 32, 56) = 0.507849E+00
+PKER_SDRYG( 32, 57) = 0.498518E+00
+PKER_SDRYG( 32, 58) = 0.489354E+00
+PKER_SDRYG( 32, 59) = 0.480352E+00
+PKER_SDRYG( 32, 60) = 0.471511E+00
+PKER_SDRYG( 32, 61) = 0.462827E+00
+PKER_SDRYG( 32, 62) = 0.454298E+00
+PKER_SDRYG( 32, 63) = 0.445920E+00
+PKER_SDRYG( 32, 64) = 0.437690E+00
+PKER_SDRYG( 32, 65) = 0.429607E+00
+PKER_SDRYG( 32, 66) = 0.421667E+00
+PKER_SDRYG( 32, 67) = 0.413867E+00
+PKER_SDRYG( 32, 68) = 0.406206E+00
+PKER_SDRYG( 32, 69) = 0.398680E+00
+PKER_SDRYG( 32, 70) = 0.391286E+00
+PKER_SDRYG( 32, 71) = 0.384023E+00
+PKER_SDRYG( 32, 72) = 0.376888E+00
+PKER_SDRYG( 32, 73) = 0.369878E+00
+PKER_SDRYG( 32, 74) = 0.362991E+00
+PKER_SDRYG( 32, 75) = 0.356225E+00
+PKER_SDRYG( 32, 76) = 0.349577E+00
+PKER_SDRYG( 32, 77) = 0.343045E+00
+PKER_SDRYG( 32, 78) = 0.336627E+00
+PKER_SDRYG( 32, 79) = 0.330320E+00
+PKER_SDRYG( 32, 80) = 0.324123E+00
+PKER_SDRYG( 33, 1) = 0.139588E+01
+PKER_SDRYG( 33, 2) = 0.137066E+01
+PKER_SDRYG( 33, 3) = 0.134589E+01
+PKER_SDRYG( 33, 4) = 0.132157E+01
+PKER_SDRYG( 33, 5) = 0.129769E+01
+PKER_SDRYG( 33, 6) = 0.127423E+01
+PKER_SDRYG( 33, 7) = 0.125120E+01
+PKER_SDRYG( 33, 8) = 0.122858E+01
+PKER_SDRYG( 33, 9) = 0.120636E+01
+PKER_SDRYG( 33, 10) = 0.118454E+01
+PKER_SDRYG( 33, 11) = 0.116312E+01
+PKER_SDRYG( 33, 12) = 0.114208E+01
+PKER_SDRYG( 33, 13) = 0.112141E+01
+PKER_SDRYG( 33, 14) = 0.110112E+01
+PKER_SDRYG( 33, 15) = 0.108119E+01
+PKER_SDRYG( 33, 16) = 0.106162E+01
+PKER_SDRYG( 33, 17) = 0.104240E+01
+PKER_SDRYG( 33, 18) = 0.102352E+01
+PKER_SDRYG( 33, 19) = 0.100499E+01
+PKER_SDRYG( 33, 20) = 0.986784E+00
+PKER_SDRYG( 33, 21) = 0.968906E+00
+PKER_SDRYG( 33, 22) = 0.951349E+00
+PKER_SDRYG( 33, 23) = 0.934107E+00
+PKER_SDRYG( 33, 24) = 0.917174E+00
+PKER_SDRYG( 33, 25) = 0.900544E+00
+PKER_SDRYG( 33, 26) = 0.884213E+00
+PKER_SDRYG( 33, 27) = 0.868175E+00
+PKER_SDRYG( 33, 28) = 0.852425E+00
+PKER_SDRYG( 33, 29) = 0.836956E+00
+PKER_SDRYG( 33, 30) = 0.821766E+00
+PKER_SDRYG( 33, 31) = 0.806847E+00
+PKER_SDRYG( 33, 32) = 0.792196E+00
+PKER_SDRYG( 33, 33) = 0.777808E+00
+PKER_SDRYG( 33, 34) = 0.763678E+00
+PKER_SDRYG( 33, 35) = 0.749801E+00
+PKER_SDRYG( 33, 36) = 0.736173E+00
+PKER_SDRYG( 33, 37) = 0.722789E+00
+PKER_SDRYG( 33, 38) = 0.709645E+00
+PKER_SDRYG( 33, 39) = 0.696736E+00
+PKER_SDRYG( 33, 40) = 0.684059E+00
+PKER_SDRYG( 33, 41) = 0.671609E+00
+PKER_SDRYG( 33, 42) = 0.659381E+00
+PKER_SDRYG( 33, 43) = 0.647373E+00
+PKER_SDRYG( 33, 44) = 0.635580E+00
+PKER_SDRYG( 33, 45) = 0.623998E+00
+PKER_SDRYG( 33, 46) = 0.612624E+00
+PKER_SDRYG( 33, 47) = 0.601453E+00
+PKER_SDRYG( 33, 48) = 0.590482E+00
+PKER_SDRYG( 33, 49) = 0.579707E+00
+PKER_SDRYG( 33, 50) = 0.569125E+00
+PKER_SDRYG( 33, 51) = 0.558732E+00
+PKER_SDRYG( 33, 52) = 0.548525E+00
+PKER_SDRYG( 33, 53) = 0.538501E+00
+PKER_SDRYG( 33, 54) = 0.528656E+00
+PKER_SDRYG( 33, 55) = 0.518986E+00
+PKER_SDRYG( 33, 56) = 0.509490E+00
+PKER_SDRYG( 33, 57) = 0.500163E+00
+PKER_SDRYG( 33, 58) = 0.491002E+00
+PKER_SDRYG( 33, 59) = 0.482005E+00
+PKER_SDRYG( 33, 60) = 0.473168E+00
+PKER_SDRYG( 33, 61) = 0.464489E+00
+PKER_SDRYG( 33, 62) = 0.455964E+00
+PKER_SDRYG( 33, 63) = 0.447592E+00
+PKER_SDRYG( 33, 64) = 0.439368E+00
+PKER_SDRYG( 33, 65) = 0.431290E+00
+PKER_SDRYG( 33, 66) = 0.423356E+00
+PKER_SDRYG( 33, 67) = 0.415563E+00
+PKER_SDRYG( 33, 68) = 0.407909E+00
+PKER_SDRYG( 33, 69) = 0.400390E+00
+PKER_SDRYG( 33, 70) = 0.393004E+00
+PKER_SDRYG( 33, 71) = 0.385749E+00
+PKER_SDRYG( 33, 72) = 0.378622E+00
+PKER_SDRYG( 33, 73) = 0.371621E+00
+PKER_SDRYG( 33, 74) = 0.364744E+00
+PKER_SDRYG( 33, 75) = 0.357988E+00
+PKER_SDRYG( 33, 76) = 0.351350E+00
+PKER_SDRYG( 33, 77) = 0.344830E+00
+PKER_SDRYG( 33, 78) = 0.338424E+00
+PKER_SDRYG( 33, 79) = 0.332129E+00
+PKER_SDRYG( 33, 80) = 0.325945E+00
+PKER_SDRYG( 34, 1) = 0.139722E+01
+PKER_SDRYG( 34, 2) = 0.137201E+01
+PKER_SDRYG( 34, 3) = 0.134724E+01
+PKER_SDRYG( 34, 4) = 0.132292E+01
+PKER_SDRYG( 34, 5) = 0.129904E+01
+PKER_SDRYG( 34, 6) = 0.127558E+01
+PKER_SDRYG( 34, 7) = 0.125255E+01
+PKER_SDRYG( 34, 8) = 0.122993E+01
+PKER_SDRYG( 34, 9) = 0.120771E+01
+PKER_SDRYG( 34, 10) = 0.118589E+01
+PKER_SDRYG( 34, 11) = 0.116447E+01
+PKER_SDRYG( 34, 12) = 0.114343E+01
+PKER_SDRYG( 34, 13) = 0.112276E+01
+PKER_SDRYG( 34, 14) = 0.110247E+01
+PKER_SDRYG( 34, 15) = 0.108254E+01
+PKER_SDRYG( 34, 16) = 0.106297E+01
+PKER_SDRYG( 34, 17) = 0.104375E+01
+PKER_SDRYG( 34, 18) = 0.102488E+01
+PKER_SDRYG( 34, 19) = 0.100634E+01
+PKER_SDRYG( 34, 20) = 0.988136E+00
+PKER_SDRYG( 34, 21) = 0.970258E+00
+PKER_SDRYG( 34, 22) = 0.952702E+00
+PKER_SDRYG( 34, 23) = 0.935460E+00
+PKER_SDRYG( 34, 24) = 0.918528E+00
+PKER_SDRYG( 34, 25) = 0.901899E+00
+PKER_SDRYG( 34, 26) = 0.885568E+00
+PKER_SDRYG( 34, 27) = 0.869531E+00
+PKER_SDRYG( 34, 28) = 0.853781E+00
+PKER_SDRYG( 34, 29) = 0.838313E+00
+PKER_SDRYG( 34, 30) = 0.823123E+00
+PKER_SDRYG( 34, 31) = 0.808206E+00
+PKER_SDRYG( 34, 32) = 0.793556E+00
+PKER_SDRYG( 34, 33) = 0.779168E+00
+PKER_SDRYG( 34, 34) = 0.765039E+00
+PKER_SDRYG( 34, 35) = 0.751163E+00
+PKER_SDRYG( 34, 36) = 0.737536E+00
+PKER_SDRYG( 34, 37) = 0.724153E+00
+PKER_SDRYG( 34, 38) = 0.711010E+00
+PKER_SDRYG( 34, 39) = 0.698102E+00
+PKER_SDRYG( 34, 40) = 0.685426E+00
+PKER_SDRYG( 34, 41) = 0.672977E+00
+PKER_SDRYG( 34, 42) = 0.660751E+00
+PKER_SDRYG( 34, 43) = 0.648745E+00
+PKER_SDRYG( 34, 44) = 0.636953E+00
+PKER_SDRYG( 34, 45) = 0.625372E+00
+PKER_SDRYG( 34, 46) = 0.614000E+00
+PKER_SDRYG( 34, 47) = 0.602830E+00
+PKER_SDRYG( 34, 48) = 0.591861E+00
+PKER_SDRYG( 34, 49) = 0.581088E+00
+PKER_SDRYG( 34, 50) = 0.570508E+00
+PKER_SDRYG( 34, 51) = 0.560118E+00
+PKER_SDRYG( 34, 52) = 0.549913E+00
+PKER_SDRYG( 34, 53) = 0.539891E+00
+PKER_SDRYG( 34, 54) = 0.530048E+00
+PKER_SDRYG( 34, 55) = 0.520381E+00
+PKER_SDRYG( 34, 56) = 0.510888E+00
+PKER_SDRYG( 34, 57) = 0.501563E+00
+PKER_SDRYG( 34, 58) = 0.492406E+00
+PKER_SDRYG( 34, 59) = 0.483412E+00
+PKER_SDRYG( 34, 60) = 0.474578E+00
+PKER_SDRYG( 34, 61) = 0.465903E+00
+PKER_SDRYG( 34, 62) = 0.457382E+00
+PKER_SDRYG( 34, 63) = 0.449013E+00
+PKER_SDRYG( 34, 64) = 0.440794E+00
+PKER_SDRYG( 34, 65) = 0.432721E+00
+PKER_SDRYG( 34, 66) = 0.424791E+00
+PKER_SDRYG( 34, 67) = 0.417003E+00
+PKER_SDRYG( 34, 68) = 0.409354E+00
+PKER_SDRYG( 34, 69) = 0.401840E+00
+PKER_SDRYG( 34, 70) = 0.394460E+00
+PKER_SDRYG( 34, 71) = 0.387211E+00
+PKER_SDRYG( 34, 72) = 0.380091E+00
+PKER_SDRYG( 34, 73) = 0.373097E+00
+PKER_SDRYG( 34, 74) = 0.366227E+00
+PKER_SDRYG( 34, 75) = 0.359478E+00
+PKER_SDRYG( 34, 76) = 0.352849E+00
+PKER_SDRYG( 34, 77) = 0.346337E+00
+PKER_SDRYG( 34, 78) = 0.339940E+00
+PKER_SDRYG( 34, 79) = 0.333655E+00
+PKER_SDRYG( 34, 80) = 0.327481E+00
+PKER_SDRYG( 35, 1) = 0.139838E+01
+PKER_SDRYG( 35, 2) = 0.137316E+01
+PKER_SDRYG( 35, 3) = 0.134839E+01
+PKER_SDRYG( 35, 4) = 0.132407E+01
+PKER_SDRYG( 35, 5) = 0.130019E+01
+PKER_SDRYG( 35, 6) = 0.127673E+01
+PKER_SDRYG( 35, 7) = 0.125370E+01
+PKER_SDRYG( 35, 8) = 0.123108E+01
+PKER_SDRYG( 35, 9) = 0.120886E+01
+PKER_SDRYG( 35, 10) = 0.118705E+01
+PKER_SDRYG( 35, 11) = 0.116562E+01
+PKER_SDRYG( 35, 12) = 0.114458E+01
+PKER_SDRYG( 35, 13) = 0.112392E+01
+PKER_SDRYG( 35, 14) = 0.110363E+01
+PKER_SDRYG( 35, 15) = 0.108370E+01
+PKER_SDRYG( 35, 16) = 0.106413E+01
+PKER_SDRYG( 35, 17) = 0.104491E+01
+PKER_SDRYG( 35, 18) = 0.102603E+01
+PKER_SDRYG( 35, 19) = 0.100750E+01
+PKER_SDRYG( 35, 20) = 0.989292E+00
+PKER_SDRYG( 35, 21) = 0.971415E+00
+PKER_SDRYG( 35, 22) = 0.953859E+00
+PKER_SDRYG( 35, 23) = 0.936617E+00
+PKER_SDRYG( 35, 24) = 0.919685E+00
+PKER_SDRYG( 35, 25) = 0.903057E+00
+PKER_SDRYG( 35, 26) = 0.886727E+00
+PKER_SDRYG( 35, 27) = 0.870690E+00
+PKER_SDRYG( 35, 28) = 0.854941E+00
+PKER_SDRYG( 35, 29) = 0.839474E+00
+PKER_SDRYG( 35, 30) = 0.824284E+00
+PKER_SDRYG( 35, 31) = 0.809367E+00
+PKER_SDRYG( 35, 32) = 0.794718E+00
+PKER_SDRYG( 35, 33) = 0.780331E+00
+PKER_SDRYG( 35, 34) = 0.766202E+00
+PKER_SDRYG( 35, 35) = 0.752327E+00
+PKER_SDRYG( 35, 36) = 0.738700E+00
+PKER_SDRYG( 35, 37) = 0.725318E+00
+PKER_SDRYG( 35, 38) = 0.712176E+00
+PKER_SDRYG( 35, 39) = 0.699269E+00
+PKER_SDRYG( 35, 40) = 0.686594E+00
+PKER_SDRYG( 35, 41) = 0.674146E+00
+PKER_SDRYG( 35, 42) = 0.661921E+00
+PKER_SDRYG( 35, 43) = 0.649916E+00
+PKER_SDRYG( 35, 44) = 0.638125E+00
+PKER_SDRYG( 35, 45) = 0.626546E+00
+PKER_SDRYG( 35, 46) = 0.615174E+00
+PKER_SDRYG( 35, 47) = 0.604006E+00
+PKER_SDRYG( 35, 48) = 0.593038E+00
+PKER_SDRYG( 35, 49) = 0.582267E+00
+PKER_SDRYG( 35, 50) = 0.571689E+00
+PKER_SDRYG( 35, 51) = 0.561300E+00
+PKER_SDRYG( 35, 52) = 0.551097E+00
+PKER_SDRYG( 35, 53) = 0.541076E+00
+PKER_SDRYG( 35, 54) = 0.531236E+00
+PKER_SDRYG( 35, 55) = 0.521571E+00
+PKER_SDRYG( 35, 56) = 0.512079E+00
+PKER_SDRYG( 35, 57) = 0.502757E+00
+PKER_SDRYG( 35, 58) = 0.493602E+00
+PKER_SDRYG( 35, 59) = 0.484610E+00
+PKER_SDRYG( 35, 60) = 0.475780E+00
+PKER_SDRYG( 35, 61) = 0.467107E+00
+PKER_SDRYG( 35, 62) = 0.458589E+00
+PKER_SDRYG( 35, 63) = 0.450223E+00
+PKER_SDRYG( 35, 64) = 0.442007E+00
+PKER_SDRYG( 35, 65) = 0.433937E+00
+PKER_SDRYG( 35, 66) = 0.426011E+00
+PKER_SDRYG( 35, 67) = 0.418227E+00
+PKER_SDRYG( 35, 68) = 0.410581E+00
+PKER_SDRYG( 35, 69) = 0.403072E+00
+PKER_SDRYG( 35, 70) = 0.395696E+00
+PKER_SDRYG( 35, 71) = 0.388452E+00
+PKER_SDRYG( 35, 72) = 0.381337E+00
+PKER_SDRYG( 35, 73) = 0.374348E+00
+PKER_SDRYG( 35, 74) = 0.367483E+00
+PKER_SDRYG( 35, 75) = 0.360740E+00
+PKER_SDRYG( 35, 76) = 0.354117E+00
+PKER_SDRYG( 35, 77) = 0.347611E+00
+PKER_SDRYG( 35, 78) = 0.341221E+00
+PKER_SDRYG( 35, 79) = 0.334943E+00
+PKER_SDRYG( 35, 80) = 0.328777E+00
+PKER_SDRYG( 36, 1) = 0.139936E+01
+PKER_SDRYG( 36, 2) = 0.137414E+01
+PKER_SDRYG( 36, 3) = 0.134938E+01
+PKER_SDRYG( 36, 4) = 0.132506E+01
+PKER_SDRYG( 36, 5) = 0.130118E+01
+PKER_SDRYG( 36, 6) = 0.127772E+01
+PKER_SDRYG( 36, 7) = 0.125469E+01
+PKER_SDRYG( 36, 8) = 0.123207E+01
+PKER_SDRYG( 36, 9) = 0.120985E+01
+PKER_SDRYG( 36, 10) = 0.118803E+01
+PKER_SDRYG( 36, 11) = 0.116661E+01
+PKER_SDRYG( 36, 12) = 0.114557E+01
+PKER_SDRYG( 36, 13) = 0.112491E+01
+PKER_SDRYG( 36, 14) = 0.110461E+01
+PKER_SDRYG( 36, 15) = 0.108468E+01
+PKER_SDRYG( 36, 16) = 0.106511E+01
+PKER_SDRYG( 36, 17) = 0.104589E+01
+PKER_SDRYG( 36, 18) = 0.102702E+01
+PKER_SDRYG( 36, 19) = 0.100848E+01
+PKER_SDRYG( 36, 20) = 0.990281E+00
+PKER_SDRYG( 36, 21) = 0.972404E+00
+PKER_SDRYG( 36, 22) = 0.954848E+00
+PKER_SDRYG( 36, 23) = 0.937607E+00
+PKER_SDRYG( 36, 24) = 0.920675E+00
+PKER_SDRYG( 36, 25) = 0.904047E+00
+PKER_SDRYG( 36, 26) = 0.887718E+00
+PKER_SDRYG( 36, 27) = 0.871681E+00
+PKER_SDRYG( 36, 28) = 0.855932E+00
+PKER_SDRYG( 36, 29) = 0.840466E+00
+PKER_SDRYG( 36, 30) = 0.825276E+00
+PKER_SDRYG( 36, 31) = 0.810360E+00
+PKER_SDRYG( 36, 32) = 0.795711E+00
+PKER_SDRYG( 36, 33) = 0.781325E+00
+PKER_SDRYG( 36, 34) = 0.767196E+00
+PKER_SDRYG( 36, 35) = 0.753322E+00
+PKER_SDRYG( 36, 36) = 0.739696E+00
+PKER_SDRYG( 36, 37) = 0.726314E+00
+PKER_SDRYG( 36, 38) = 0.713173E+00
+PKER_SDRYG( 36, 39) = 0.700267E+00
+PKER_SDRYG( 36, 40) = 0.687592E+00
+PKER_SDRYG( 36, 41) = 0.675145E+00
+PKER_SDRYG( 36, 42) = 0.662921E+00
+PKER_SDRYG( 36, 43) = 0.650916E+00
+PKER_SDRYG( 36, 44) = 0.639126E+00
+PKER_SDRYG( 36, 45) = 0.627548E+00
+PKER_SDRYG( 36, 46) = 0.616177E+00
+PKER_SDRYG( 36, 47) = 0.605010E+00
+PKER_SDRYG( 36, 48) = 0.594044E+00
+PKER_SDRYG( 36, 49) = 0.583273E+00
+PKER_SDRYG( 36, 50) = 0.572696E+00
+PKER_SDRYG( 36, 51) = 0.562308E+00
+PKER_SDRYG( 36, 52) = 0.552107E+00
+PKER_SDRYG( 36, 53) = 0.542088E+00
+PKER_SDRYG( 36, 54) = 0.532249E+00
+PKER_SDRYG( 36, 55) = 0.522585E+00
+PKER_SDRYG( 36, 56) = 0.513095E+00
+PKER_SDRYG( 36, 57) = 0.503775E+00
+PKER_SDRYG( 36, 58) = 0.494621E+00
+PKER_SDRYG( 36, 59) = 0.485632E+00
+PKER_SDRYG( 36, 60) = 0.476803E+00
+PKER_SDRYG( 36, 61) = 0.468132E+00
+PKER_SDRYG( 36, 62) = 0.459617E+00
+PKER_SDRYG( 36, 63) = 0.451253E+00
+PKER_SDRYG( 36, 64) = 0.443039E+00
+PKER_SDRYG( 36, 65) = 0.434972E+00
+PKER_SDRYG( 36, 66) = 0.427049E+00
+PKER_SDRYG( 36, 67) = 0.419268E+00
+PKER_SDRYG( 36, 68) = 0.411625E+00
+PKER_SDRYG( 36, 69) = 0.404119E+00
+PKER_SDRYG( 36, 70) = 0.396747E+00
+PKER_SDRYG( 36, 71) = 0.389506E+00
+PKER_SDRYG( 36, 72) = 0.382394E+00
+PKER_SDRYG( 36, 73) = 0.375410E+00
+PKER_SDRYG( 36, 74) = 0.368549E+00
+PKER_SDRYG( 36, 75) = 0.361811E+00
+PKER_SDRYG( 36, 76) = 0.355192E+00
+PKER_SDRYG( 36, 77) = 0.348691E+00
+PKER_SDRYG( 36, 78) = 0.342306E+00
+PKER_SDRYG( 36, 79) = 0.336034E+00
+PKER_SDRYG( 36, 80) = 0.329873E+00
+PKER_SDRYG( 37, 1) = 0.140020E+01
+PKER_SDRYG( 37, 2) = 0.137499E+01
+PKER_SDRYG( 37, 3) = 0.135022E+01
+PKER_SDRYG( 37, 4) = 0.132590E+01
+PKER_SDRYG( 37, 5) = 0.130202E+01
+PKER_SDRYG( 37, 6) = 0.127856E+01
+PKER_SDRYG( 37, 7) = 0.125553E+01
+PKER_SDRYG( 37, 8) = 0.123291E+01
+PKER_SDRYG( 37, 9) = 0.121069E+01
+PKER_SDRYG( 37, 10) = 0.118888E+01
+PKER_SDRYG( 37, 11) = 0.116745E+01
+PKER_SDRYG( 37, 12) = 0.114641E+01
+PKER_SDRYG( 37, 13) = 0.112575E+01
+PKER_SDRYG( 37, 14) = 0.110546E+01
+PKER_SDRYG( 37, 15) = 0.108553E+01
+PKER_SDRYG( 37, 16) = 0.106596E+01
+PKER_SDRYG( 37, 17) = 0.104674E+01
+PKER_SDRYG( 37, 18) = 0.102787E+01
+PKER_SDRYG( 37, 19) = 0.100933E+01
+PKER_SDRYG( 37, 20) = 0.991127E+00
+PKER_SDRYG( 37, 21) = 0.973250E+00
+PKER_SDRYG( 37, 22) = 0.955694E+00
+PKER_SDRYG( 37, 23) = 0.938454E+00
+PKER_SDRYG( 37, 24) = 0.921522E+00
+PKER_SDRYG( 37, 25) = 0.904894E+00
+PKER_SDRYG( 37, 26) = 0.888565E+00
+PKER_SDRYG( 37, 27) = 0.872529E+00
+PKER_SDRYG( 37, 28) = 0.856780E+00
+PKER_SDRYG( 37, 29) = 0.841314E+00
+PKER_SDRYG( 37, 30) = 0.826125E+00
+PKER_SDRYG( 37, 31) = 0.811209E+00
+PKER_SDRYG( 37, 32) = 0.796560E+00
+PKER_SDRYG( 37, 33) = 0.782174E+00
+PKER_SDRYG( 37, 34) = 0.768046E+00
+PKER_SDRYG( 37, 35) = 0.754172E+00
+PKER_SDRYG( 37, 36) = 0.740547E+00
+PKER_SDRYG( 37, 37) = 0.727165E+00
+PKER_SDRYG( 37, 38) = 0.714024E+00
+PKER_SDRYG( 37, 39) = 0.701119E+00
+PKER_SDRYG( 37, 40) = 0.688445E+00
+PKER_SDRYG( 37, 41) = 0.675998E+00
+PKER_SDRYG( 37, 42) = 0.663775E+00
+PKER_SDRYG( 37, 43) = 0.651771E+00
+PKER_SDRYG( 37, 44) = 0.639982E+00
+PKER_SDRYG( 37, 45) = 0.628404E+00
+PKER_SDRYG( 37, 46) = 0.617034E+00
+PKER_SDRYG( 37, 47) = 0.605868E+00
+PKER_SDRYG( 37, 48) = 0.594902E+00
+PKER_SDRYG( 37, 49) = 0.584133E+00
+PKER_SDRYG( 37, 50) = 0.573556E+00
+PKER_SDRYG( 37, 51) = 0.563170E+00
+PKER_SDRYG( 37, 52) = 0.552969E+00
+PKER_SDRYG( 37, 53) = 0.542951E+00
+PKER_SDRYG( 37, 54) = 0.533113E+00
+PKER_SDRYG( 37, 55) = 0.523451E+00
+PKER_SDRYG( 37, 56) = 0.513962E+00
+PKER_SDRYG( 37, 57) = 0.504643E+00
+PKER_SDRYG( 37, 58) = 0.495491E+00
+PKER_SDRYG( 37, 59) = 0.486503E+00
+PKER_SDRYG( 37, 60) = 0.477676E+00
+PKER_SDRYG( 37, 61) = 0.469006E+00
+PKER_SDRYG( 37, 62) = 0.460492E+00
+PKER_SDRYG( 37, 63) = 0.452131E+00
+PKER_SDRYG( 37, 64) = 0.443919E+00
+PKER_SDRYG( 37, 65) = 0.435854E+00
+PKER_SDRYG( 37, 66) = 0.427933E+00
+PKER_SDRYG( 37, 67) = 0.420153E+00
+PKER_SDRYG( 37, 68) = 0.412513E+00
+PKER_SDRYG( 37, 69) = 0.405010E+00
+PKER_SDRYG( 37, 70) = 0.397640E+00
+PKER_SDRYG( 37, 71) = 0.390402E+00
+PKER_SDRYG( 37, 72) = 0.383293E+00
+PKER_SDRYG( 37, 73) = 0.376311E+00
+PKER_SDRYG( 37, 74) = 0.369454E+00
+PKER_SDRYG( 37, 75) = 0.362719E+00
+PKER_SDRYG( 37, 76) = 0.356104E+00
+PKER_SDRYG( 37, 77) = 0.349607E+00
+PKER_SDRYG( 37, 78) = 0.343225E+00
+PKER_SDRYG( 37, 79) = 0.336957E+00
+PKER_SDRYG( 37, 80) = 0.330801E+00
+PKER_SDRYG( 38, 1) = 0.140093E+01
+PKER_SDRYG( 38, 2) = 0.137571E+01
+PKER_SDRYG( 38, 3) = 0.135094E+01
+PKER_SDRYG( 38, 4) = 0.132662E+01
+PKER_SDRYG( 38, 5) = 0.130274E+01
+PKER_SDRYG( 38, 6) = 0.127929E+01
+PKER_SDRYG( 38, 7) = 0.125625E+01
+PKER_SDRYG( 38, 8) = 0.123363E+01
+PKER_SDRYG( 38, 9) = 0.121142E+01
+PKER_SDRYG( 38, 10) = 0.118960E+01
+PKER_SDRYG( 38, 11) = 0.116818E+01
+PKER_SDRYG( 38, 12) = 0.114714E+01
+PKER_SDRYG( 38, 13) = 0.112647E+01
+PKER_SDRYG( 38, 14) = 0.110618E+01
+PKER_SDRYG( 38, 15) = 0.108625E+01
+PKER_SDRYG( 38, 16) = 0.106668E+01
+PKER_SDRYG( 38, 17) = 0.104746E+01
+PKER_SDRYG( 38, 18) = 0.102859E+01
+PKER_SDRYG( 38, 19) = 0.101005E+01
+PKER_SDRYG( 38, 20) = 0.991850E+00
+PKER_SDRYG( 38, 21) = 0.973974E+00
+PKER_SDRYG( 38, 22) = 0.956418E+00
+PKER_SDRYG( 38, 23) = 0.939178E+00
+PKER_SDRYG( 38, 24) = 0.922246E+00
+PKER_SDRYG( 38, 25) = 0.905619E+00
+PKER_SDRYG( 38, 26) = 0.889290E+00
+PKER_SDRYG( 38, 27) = 0.873253E+00
+PKER_SDRYG( 38, 28) = 0.857505E+00
+PKER_SDRYG( 38, 29) = 0.842039E+00
+PKER_SDRYG( 38, 30) = 0.826850E+00
+PKER_SDRYG( 38, 31) = 0.811935E+00
+PKER_SDRYG( 38, 32) = 0.797286E+00
+PKER_SDRYG( 38, 33) = 0.782901E+00
+PKER_SDRYG( 38, 34) = 0.768773E+00
+PKER_SDRYG( 38, 35) = 0.754899E+00
+PKER_SDRYG( 38, 36) = 0.741274E+00
+PKER_SDRYG( 38, 37) = 0.727893E+00
+PKER_SDRYG( 38, 38) = 0.714752E+00
+PKER_SDRYG( 38, 39) = 0.701847E+00
+PKER_SDRYG( 38, 40) = 0.689174E+00
+PKER_SDRYG( 38, 41) = 0.676728E+00
+PKER_SDRYG( 38, 42) = 0.664505E+00
+PKER_SDRYG( 38, 43) = 0.652501E+00
+PKER_SDRYG( 38, 44) = 0.640713E+00
+PKER_SDRYG( 38, 45) = 0.629136E+00
+PKER_SDRYG( 38, 46) = 0.617766E+00
+PKER_SDRYG( 38, 47) = 0.606601E+00
+PKER_SDRYG( 38, 48) = 0.595635E+00
+PKER_SDRYG( 38, 49) = 0.584867E+00
+PKER_SDRYG( 38, 50) = 0.574291E+00
+PKER_SDRYG( 38, 51) = 0.563905E+00
+PKER_SDRYG( 38, 52) = 0.553705E+00
+PKER_SDRYG( 38, 53) = 0.543688E+00
+PKER_SDRYG( 38, 54) = 0.533851E+00
+PKER_SDRYG( 38, 55) = 0.524190E+00
+PKER_SDRYG( 38, 56) = 0.514702E+00
+PKER_SDRYG( 38, 57) = 0.505384E+00
+PKER_SDRYG( 38, 58) = 0.496233E+00
+PKER_SDRYG( 38, 59) = 0.487246E+00
+PKER_SDRYG( 38, 60) = 0.478420E+00
+PKER_SDRYG( 38, 61) = 0.469752E+00
+PKER_SDRYG( 38, 62) = 0.461239E+00
+PKER_SDRYG( 38, 63) = 0.452879E+00
+PKER_SDRYG( 38, 64) = 0.444668E+00
+PKER_SDRYG( 38, 65) = 0.436605E+00
+PKER_SDRYG( 38, 66) = 0.428685E+00
+PKER_SDRYG( 38, 67) = 0.420908E+00
+PKER_SDRYG( 38, 68) = 0.413270E+00
+PKER_SDRYG( 38, 69) = 0.405768E+00
+PKER_SDRYG( 38, 70) = 0.398400E+00
+PKER_SDRYG( 38, 71) = 0.391164E+00
+PKER_SDRYG( 38, 72) = 0.384058E+00
+PKER_SDRYG( 38, 73) = 0.377078E+00
+PKER_SDRYG( 38, 74) = 0.370223E+00
+PKER_SDRYG( 38, 75) = 0.363491E+00
+PKER_SDRYG( 38, 76) = 0.356879E+00
+PKER_SDRYG( 38, 77) = 0.350384E+00
+PKER_SDRYG( 38, 78) = 0.344006E+00
+PKER_SDRYG( 38, 79) = 0.337741E+00
+PKER_SDRYG( 38, 80) = 0.331588E+00
+PKER_SDRYG( 39, 1) = 0.140154E+01
+PKER_SDRYG( 39, 2) = 0.137633E+01
+PKER_SDRYG( 39, 3) = 0.135156E+01
+PKER_SDRYG( 39, 4) = 0.132724E+01
+PKER_SDRYG( 39, 5) = 0.130336E+01
+PKER_SDRYG( 39, 6) = 0.127990E+01
+PKER_SDRYG( 39, 7) = 0.125687E+01
+PKER_SDRYG( 39, 8) = 0.123425E+01
+PKER_SDRYG( 39, 9) = 0.121203E+01
+PKER_SDRYG( 39, 10) = 0.119022E+01
+PKER_SDRYG( 39, 11) = 0.116879E+01
+PKER_SDRYG( 39, 12) = 0.114775E+01
+PKER_SDRYG( 39, 13) = 0.112709E+01
+PKER_SDRYG( 39, 14) = 0.110680E+01
+PKER_SDRYG( 39, 15) = 0.108687E+01
+PKER_SDRYG( 39, 16) = 0.106730E+01
+PKER_SDRYG( 39, 17) = 0.104808E+01
+PKER_SDRYG( 39, 18) = 0.102921E+01
+PKER_SDRYG( 39, 19) = 0.101067E+01
+PKER_SDRYG( 39, 20) = 0.992469E+00
+PKER_SDRYG( 39, 21) = 0.974593E+00
+PKER_SDRYG( 39, 22) = 0.957037E+00
+PKER_SDRYG( 39, 23) = 0.939797E+00
+PKER_SDRYG( 39, 24) = 0.922866E+00
+PKER_SDRYG( 39, 25) = 0.906238E+00
+PKER_SDRYG( 39, 26) = 0.889909E+00
+PKER_SDRYG( 39, 27) = 0.873873E+00
+PKER_SDRYG( 39, 28) = 0.858125E+00
+PKER_SDRYG( 39, 29) = 0.842659E+00
+PKER_SDRYG( 39, 30) = 0.827471E+00
+PKER_SDRYG( 39, 31) = 0.812555E+00
+PKER_SDRYG( 39, 32) = 0.797907E+00
+PKER_SDRYG( 39, 33) = 0.783522E+00
+PKER_SDRYG( 39, 34) = 0.769394E+00
+PKER_SDRYG( 39, 35) = 0.755521E+00
+PKER_SDRYG( 39, 36) = 0.741896E+00
+PKER_SDRYG( 39, 37) = 0.728515E+00
+PKER_SDRYG( 39, 38) = 0.715375E+00
+PKER_SDRYG( 39, 39) = 0.702470E+00
+PKER_SDRYG( 39, 40) = 0.689797E+00
+PKER_SDRYG( 39, 41) = 0.677351E+00
+PKER_SDRYG( 39, 42) = 0.665129E+00
+PKER_SDRYG( 39, 43) = 0.653125E+00
+PKER_SDRYG( 39, 44) = 0.641337E+00
+PKER_SDRYG( 39, 45) = 0.629761E+00
+PKER_SDRYG( 39, 46) = 0.618392E+00
+PKER_SDRYG( 39, 47) = 0.607227E+00
+PKER_SDRYG( 39, 48) = 0.596262E+00
+PKER_SDRYG( 39, 49) = 0.585494E+00
+PKER_SDRYG( 39, 50) = 0.574919E+00
+PKER_SDRYG( 39, 51) = 0.564533E+00
+PKER_SDRYG( 39, 52) = 0.554334E+00
+PKER_SDRYG( 39, 53) = 0.544318E+00
+PKER_SDRYG( 39, 54) = 0.534481E+00
+PKER_SDRYG( 39, 55) = 0.524821E+00
+PKER_SDRYG( 39, 56) = 0.515333E+00
+PKER_SDRYG( 39, 57) = 0.506016E+00
+PKER_SDRYG( 39, 58) = 0.496866E+00
+PKER_SDRYG( 39, 59) = 0.487880E+00
+PKER_SDRYG( 39, 60) = 0.479055E+00
+PKER_SDRYG( 39, 61) = 0.470388E+00
+PKER_SDRYG( 39, 62) = 0.461876E+00
+PKER_SDRYG( 39, 63) = 0.453517E+00
+PKER_SDRYG( 39, 64) = 0.445307E+00
+PKER_SDRYG( 39, 65) = 0.437245E+00
+PKER_SDRYG( 39, 66) = 0.429327E+00
+PKER_SDRYG( 39, 67) = 0.421551E+00
+PKER_SDRYG( 39, 68) = 0.413914E+00
+PKER_SDRYG( 39, 69) = 0.406414E+00
+PKER_SDRYG( 39, 70) = 0.399047E+00
+PKER_SDRYG( 39, 71) = 0.391813E+00
+PKER_SDRYG( 39, 72) = 0.384708E+00
+PKER_SDRYG( 39, 73) = 0.377731E+00
+PKER_SDRYG( 39, 74) = 0.370878E+00
+PKER_SDRYG( 39, 75) = 0.364147E+00
+PKER_SDRYG( 39, 76) = 0.357537E+00
+PKER_SDRYG( 39, 77) = 0.351045E+00
+PKER_SDRYG( 39, 78) = 0.344669E+00
+PKER_SDRYG( 39, 79) = 0.338406E+00
+PKER_SDRYG( 39, 80) = 0.332256E+00
+PKER_SDRYG( 40, 1) = 0.140207E+01
+PKER_SDRYG( 40, 2) = 0.137685E+01
+PKER_SDRYG( 40, 3) = 0.135209E+01
+PKER_SDRYG( 40, 4) = 0.132777E+01
+PKER_SDRYG( 40, 5) = 0.130389E+01
+PKER_SDRYG( 40, 6) = 0.128043E+01
+PKER_SDRYG( 40, 7) = 0.125740E+01
+PKER_SDRYG( 40, 8) = 0.123478E+01
+PKER_SDRYG( 40, 9) = 0.121256E+01
+PKER_SDRYG( 40, 10) = 0.119075E+01
+PKER_SDRYG( 40, 11) = 0.116932E+01
+PKER_SDRYG( 40, 12) = 0.114828E+01
+PKER_SDRYG( 40, 13) = 0.112762E+01
+PKER_SDRYG( 40, 14) = 0.110733E+01
+PKER_SDRYG( 40, 15) = 0.108740E+01
+PKER_SDRYG( 40, 16) = 0.106783E+01
+PKER_SDRYG( 40, 17) = 0.104861E+01
+PKER_SDRYG( 40, 18) = 0.102974E+01
+PKER_SDRYG( 40, 19) = 0.101120E+01
+PKER_SDRYG( 40, 20) = 0.992998E+00
+PKER_SDRYG( 40, 21) = 0.975122E+00
+PKER_SDRYG( 40, 22) = 0.957567E+00
+PKER_SDRYG( 40, 23) = 0.940326E+00
+PKER_SDRYG( 40, 24) = 0.923395E+00
+PKER_SDRYG( 40, 25) = 0.906768E+00
+PKER_SDRYG( 40, 26) = 0.890439E+00
+PKER_SDRYG( 40, 27) = 0.874403E+00
+PKER_SDRYG( 40, 28) = 0.858655E+00
+PKER_SDRYG( 40, 29) = 0.843190E+00
+PKER_SDRYG( 40, 30) = 0.828001E+00
+PKER_SDRYG( 40, 31) = 0.813086E+00
+PKER_SDRYG( 40, 32) = 0.798438E+00
+PKER_SDRYG( 40, 33) = 0.784053E+00
+PKER_SDRYG( 40, 34) = 0.769926E+00
+PKER_SDRYG( 40, 35) = 0.756052E+00
+PKER_SDRYG( 40, 36) = 0.742427E+00
+PKER_SDRYG( 40, 37) = 0.729047E+00
+PKER_SDRYG( 40, 38) = 0.715907E+00
+PKER_SDRYG( 40, 39) = 0.703003E+00
+PKER_SDRYG( 40, 40) = 0.690330E+00
+PKER_SDRYG( 40, 41) = 0.677884E+00
+PKER_SDRYG( 40, 42) = 0.665662E+00
+PKER_SDRYG( 40, 43) = 0.653659E+00
+PKER_SDRYG( 40, 44) = 0.641871E+00
+PKER_SDRYG( 40, 45) = 0.630295E+00
+PKER_SDRYG( 40, 46) = 0.618926E+00
+PKER_SDRYG( 40, 47) = 0.607762E+00
+PKER_SDRYG( 40, 48) = 0.596797E+00
+PKER_SDRYG( 40, 49) = 0.586029E+00
+PKER_SDRYG( 40, 50) = 0.575455E+00
+PKER_SDRYG( 40, 51) = 0.565070E+00
+PKER_SDRYG( 40, 52) = 0.554871E+00
+PKER_SDRYG( 40, 53) = 0.544855E+00
+PKER_SDRYG( 40, 54) = 0.535019E+00
+PKER_SDRYG( 40, 55) = 0.525359E+00
+PKER_SDRYG( 40, 56) = 0.515873E+00
+PKER_SDRYG( 40, 57) = 0.506556E+00
+PKER_SDRYG( 40, 58) = 0.497407E+00
+PKER_SDRYG( 40, 59) = 0.488421E+00
+PKER_SDRYG( 40, 60) = 0.479597E+00
+PKER_SDRYG( 40, 61) = 0.470930E+00
+PKER_SDRYG( 40, 62) = 0.462420E+00
+PKER_SDRYG( 40, 63) = 0.454061E+00
+PKER_SDRYG( 40, 64) = 0.445853E+00
+PKER_SDRYG( 40, 65) = 0.437791E+00
+PKER_SDRYG( 40, 66) = 0.429874E+00
+PKER_SDRYG( 40, 67) = 0.422099E+00
+PKER_SDRYG( 40, 68) = 0.414463E+00
+PKER_SDRYG( 40, 69) = 0.406964E+00
+PKER_SDRYG( 40, 70) = 0.399599E+00
+PKER_SDRYG( 40, 71) = 0.392366E+00
+PKER_SDRYG( 40, 72) = 0.385262E+00
+PKER_SDRYG( 40, 73) = 0.378286E+00
+PKER_SDRYG( 40, 74) = 0.371434E+00
+PKER_SDRYG( 40, 75) = 0.364706E+00
+PKER_SDRYG( 40, 76) = 0.358097E+00
+PKER_SDRYG( 40, 77) = 0.351607E+00
+PKER_SDRYG( 40, 78) = 0.345232E+00
+PKER_SDRYG( 40, 79) = 0.338972E+00
+PKER_SDRYG( 40, 80) = 0.332823E+00
END IF
!
END SUBROUTINE LIMA_READ_XKER_SDRYG
diff --git a/src/MNH/lima_read_xker_sweth.f90 b/src/MNH/lima_read_xker_sweth.f90
index cfc5ade58829a9e919fe2a2022f642ea52ef3320..a034ec708a09071c4185be149cc4ef3c89d294fa 100644
--- a/src/MNH/lima_read_xker_sweth.f90
+++ b/src/MNH/lima_read_xker_sweth.f90
@@ -13,10 +13,10 @@
! ###########################
!
INTERFACE
- SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,PKER_SWETH )
+ SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY,PKER_SWETH )
!
INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAS
REAL, INTENT(OUT) :: PALPHAH
@@ -29,6 +29,7 @@ REAL, INTENT(OUT) :: PCH
REAL, INTENT(OUT) :: PDH
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PWETLBDAH_MAX
REAL, INTENT(OUT) :: PWETLBDAS_MAX
REAL, INTENT(OUT) :: PWETLBDAH_MIN
@@ -42,10 +43,10 @@ END INTERFACE
!
END MODULE MODI_LIMA_READ_XKER_SWETH
! ########################################################################
- SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,PKER_SWETH )
+ SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY,PKER_SWETH )
! ########################################################################
!
!!**** * * - initialize the kernels for the snow-hail wet growth process
@@ -101,6 +102,7 @@ REAL, INTENT(OUT) :: PCH
REAL, INTENT(OUT) :: PDH
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PWETLBDAH_MAX
REAL, INTENT(OUT) :: PWETLBDAS_MAX
REAL, INTENT(OUT) :: PWETLBDAH_MIN
@@ -125,3213 +127,3214 @@ PCH= 0.201000E+03
PDH= 0.640000E+00
PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PWETLBDAH_MAX= 0.100000E+08
-PWETLBDAS_MAX= 0.250000E+10
+PWETLBDAS_MAX= 0.100000E+06
PWETLBDAH_MIN= 0.100000E+04
-PWETLBDAS_MIN= 0.250000E+02
+PWETLBDAS_MIN= 0.500000E+03
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_SWETH) ) THEN
-PKER_SWETH( 1, 1) = 0.594408E+01
-PKER_SWETH( 1, 2) = 0.615804E+01
-PKER_SWETH( 1, 3) = 0.636519E+01
-PKER_SWETH( 1, 4) = 0.656714E+01
-PKER_SWETH( 1, 5) = 0.676556E+01
-PKER_SWETH( 1, 6) = 0.696207E+01
-PKER_SWETH( 1, 7) = 0.715814E+01
-PKER_SWETH( 1, 8) = 0.735491E+01
-PKER_SWETH( 1, 9) = 0.755300E+01
-PKER_SWETH( 1, 10) = 0.775225E+01
-PKER_SWETH( 1, 11) = 0.795159E+01
-PKER_SWETH( 1, 12) = 0.814900E+01
-PKER_SWETH( 1, 13) = 0.834171E+01
-PKER_SWETH( 1, 14) = 0.852662E+01
-PKER_SWETH( 1, 15) = 0.870080E+01
-PKER_SWETH( 1, 16) = 0.886196E+01
-PKER_SWETH( 1, 17) = 0.900870E+01
-PKER_SWETH( 1, 18) = 0.914061E+01
-PKER_SWETH( 1, 19) = 0.925806E+01
-PKER_SWETH( 1, 20) = 0.936202E+01
-PKER_SWETH( 1, 21) = 0.945377E+01
-PKER_SWETH( 1, 22) = 0.953473E+01
-PKER_SWETH( 1, 23) = 0.960629E+01
-PKER_SWETH( 1, 24) = 0.966973E+01
-PKER_SWETH( 1, 25) = 0.972622E+01
-PKER_SWETH( 1, 26) = 0.977674E+01
-PKER_SWETH( 1, 27) = 0.982214E+01
-PKER_SWETH( 1, 28) = 0.986313E+01
-PKER_SWETH( 1, 29) = 0.990032E+01
-PKER_SWETH( 1, 30) = 0.993419E+01
-PKER_SWETH( 1, 31) = 0.996517E+01
-PKER_SWETH( 1, 32) = 0.999360E+01
-PKER_SWETH( 1, 33) = 0.100198E+02
-PKER_SWETH( 1, 34) = 0.100439E+02
-PKER_SWETH( 1, 35) = 0.100663E+02
-PKER_SWETH( 1, 36) = 0.100870E+02
-PKER_SWETH( 1, 37) = 0.101063E+02
-PKER_SWETH( 1, 38) = 0.101243E+02
-PKER_SWETH( 1, 39) = 0.101410E+02
-PKER_SWETH( 1, 40) = 0.101566E+02
-PKER_SWETH( 1, 41) = 0.101711E+02
-PKER_SWETH( 1, 42) = 0.101847E+02
-PKER_SWETH( 1, 43) = 0.101975E+02
-PKER_SWETH( 1, 44) = 0.102094E+02
-PKER_SWETH( 1, 45) = 0.102206E+02
-PKER_SWETH( 1, 46) = 0.102310E+02
-PKER_SWETH( 1, 47) = 0.102408E+02
-PKER_SWETH( 1, 48) = 0.102500E+02
-PKER_SWETH( 1, 49) = 0.102586E+02
-PKER_SWETH( 1, 50) = 0.102667E+02
-PKER_SWETH( 1, 51) = 0.102743E+02
-PKER_SWETH( 1, 52) = 0.102814E+02
-PKER_SWETH( 1, 53) = 0.102880E+02
-PKER_SWETH( 1, 54) = 0.102943E+02
-PKER_SWETH( 1, 55) = 0.103002E+02
-PKER_SWETH( 1, 56) = 0.103057E+02
-PKER_SWETH( 1, 57) = 0.103108E+02
-PKER_SWETH( 1, 58) = 0.103157E+02
-PKER_SWETH( 1, 59) = 0.103203E+02
-PKER_SWETH( 1, 60) = 0.103245E+02
-PKER_SWETH( 1, 61) = 0.103286E+02
-PKER_SWETH( 1, 62) = 0.103323E+02
-PKER_SWETH( 1, 63) = 0.103359E+02
-PKER_SWETH( 1, 64) = 0.103392E+02
-PKER_SWETH( 1, 65) = 0.103423E+02
-PKER_SWETH( 1, 66) = 0.103453E+02
-PKER_SWETH( 1, 67) = 0.103480E+02
-PKER_SWETH( 1, 68) = 0.103506E+02
-PKER_SWETH( 1, 69) = 0.103530E+02
-PKER_SWETH( 1, 70) = 0.103553E+02
-PKER_SWETH( 1, 71) = 0.103574E+02
-PKER_SWETH( 1, 72) = 0.103595E+02
-PKER_SWETH( 1, 73) = 0.103613E+02
-PKER_SWETH( 1, 74) = 0.103631E+02
-PKER_SWETH( 1, 75) = 0.103648E+02
-PKER_SWETH( 1, 76) = 0.103663E+02
-PKER_SWETH( 1, 77) = 0.103678E+02
-PKER_SWETH( 1, 78) = 0.103692E+02
-PKER_SWETH( 1, 79) = 0.103705E+02
-PKER_SWETH( 1, 80) = 0.103717E+02
-PKER_SWETH( 2, 1) = 0.465456E+01
-PKER_SWETH( 2, 2) = 0.486187E+01
-PKER_SWETH( 2, 3) = 0.506117E+01
-PKER_SWETH( 2, 4) = 0.525380E+01
-PKER_SWETH( 2, 5) = 0.544116E+01
-PKER_SWETH( 2, 6) = 0.562472E+01
-PKER_SWETH( 2, 7) = 0.580594E+01
-PKER_SWETH( 2, 8) = 0.598611E+01
-PKER_SWETH( 2, 9) = 0.616626E+01
-PKER_SWETH( 2, 10) = 0.634695E+01
-PKER_SWETH( 2, 11) = 0.652809E+01
-PKER_SWETH( 2, 12) = 0.670877E+01
-PKER_SWETH( 2, 13) = 0.688725E+01
-PKER_SWETH( 2, 14) = 0.706117E+01
-PKER_SWETH( 2, 15) = 0.722787E+01
-PKER_SWETH( 2, 16) = 0.738481E+01
-PKER_SWETH( 2, 17) = 0.753004E+01
-PKER_SWETH( 2, 18) = 0.766237E+01
-PKER_SWETH( 2, 19) = 0.778146E+01
-PKER_SWETH( 2, 20) = 0.788768E+01
-PKER_SWETH( 2, 21) = 0.798187E+01
-PKER_SWETH( 2, 22) = 0.806519E+01
-PKER_SWETH( 2, 23) = 0.813889E+01
-PKER_SWETH( 2, 24) = 0.820419E+01
-PKER_SWETH( 2, 25) = 0.826224E+01
-PKER_SWETH( 2, 26) = 0.831405E+01
-PKER_SWETH( 2, 27) = 0.836050E+01
-PKER_SWETH( 2, 28) = 0.840234E+01
-PKER_SWETH( 2, 29) = 0.844021E+01
-PKER_SWETH( 2, 30) = 0.847462E+01
-PKER_SWETH( 2, 31) = 0.850603E+01
-PKER_SWETH( 2, 32) = 0.853480E+01
-PKER_SWETH( 2, 33) = 0.856125E+01
-PKER_SWETH( 2, 34) = 0.858563E+01
-PKER_SWETH( 2, 35) = 0.860816E+01
-PKER_SWETH( 2, 36) = 0.862904E+01
-PKER_SWETH( 2, 37) = 0.864841E+01
-PKER_SWETH( 2, 38) = 0.866643E+01
-PKER_SWETH( 2, 39) = 0.868321E+01
-PKER_SWETH( 2, 40) = 0.869886E+01
-PKER_SWETH( 2, 41) = 0.871346E+01
-PKER_SWETH( 2, 42) = 0.872711E+01
-PKER_SWETH( 2, 43) = 0.873987E+01
-PKER_SWETH( 2, 44) = 0.875180E+01
-PKER_SWETH( 2, 45) = 0.876298E+01
-PKER_SWETH( 2, 46) = 0.877344E+01
-PKER_SWETH( 2, 47) = 0.878325E+01
-PKER_SWETH( 2, 48) = 0.879244E+01
-PKER_SWETH( 2, 49) = 0.880106E+01
-PKER_SWETH( 2, 50) = 0.880914E+01
-PKER_SWETH( 2, 51) = 0.881672E+01
-PKER_SWETH( 2, 52) = 0.882383E+01
-PKER_SWETH( 2, 53) = 0.883050E+01
-PKER_SWETH( 2, 54) = 0.883676E+01
-PKER_SWETH( 2, 55) = 0.884263E+01
-PKER_SWETH( 2, 56) = 0.884815E+01
-PKER_SWETH( 2, 57) = 0.885332E+01
-PKER_SWETH( 2, 58) = 0.885818E+01
-PKER_SWETH( 2, 59) = 0.886274E+01
-PKER_SWETH( 2, 60) = 0.886702E+01
-PKER_SWETH( 2, 61) = 0.887104E+01
-PKER_SWETH( 2, 62) = 0.887482E+01
-PKER_SWETH( 2, 63) = 0.887836E+01
-PKER_SWETH( 2, 64) = 0.888169E+01
-PKER_SWETH( 2, 65) = 0.888481E+01
-PKER_SWETH( 2, 66) = 0.888774E+01
-PKER_SWETH( 2, 67) = 0.889049E+01
-PKER_SWETH( 2, 68) = 0.889308E+01
-PKER_SWETH( 2, 69) = 0.889551E+01
-PKER_SWETH( 2, 70) = 0.889778E+01
-PKER_SWETH( 2, 71) = 0.889992E+01
-PKER_SWETH( 2, 72) = 0.890193E+01
-PKER_SWETH( 2, 73) = 0.890382E+01
-PKER_SWETH( 2, 74) = 0.890559E+01
-PKER_SWETH( 2, 75) = 0.890725E+01
-PKER_SWETH( 2, 76) = 0.890882E+01
-PKER_SWETH( 2, 77) = 0.891028E+01
-PKER_SWETH( 2, 78) = 0.891166E+01
-PKER_SWETH( 2, 79) = 0.891295E+01
-PKER_SWETH( 2, 80) = 0.891417E+01
-PKER_SWETH( 3, 1) = 0.355241E+01
-PKER_SWETH( 3, 2) = 0.375388E+01
-PKER_SWETH( 3, 3) = 0.394699E+01
-PKER_SWETH( 3, 4) = 0.413258E+01
-PKER_SWETH( 3, 5) = 0.431174E+01
-PKER_SWETH( 3, 6) = 0.448568E+01
-PKER_SWETH( 3, 7) = 0.465567E+01
-PKER_SWETH( 3, 8) = 0.482298E+01
-PKER_SWETH( 3, 9) = 0.498877E+01
-PKER_SWETH( 3, 10) = 0.515397E+01
-PKER_SWETH( 3, 11) = 0.531908E+01
-PKER_SWETH( 3, 12) = 0.548405E+01
-PKER_SWETH( 3, 13) = 0.564811E+01
-PKER_SWETH( 3, 14) = 0.580980E+01
-PKER_SWETH( 3, 15) = 0.596707E+01
-PKER_SWETH( 3, 16) = 0.611763E+01
-PKER_SWETH( 3, 17) = 0.625931E+01
-PKER_SWETH( 3, 18) = 0.639043E+01
-PKER_SWETH( 3, 19) = 0.650999E+01
-PKER_SWETH( 3, 20) = 0.661772E+01
-PKER_SWETH( 3, 21) = 0.671394E+01
-PKER_SWETH( 3, 22) = 0.679944E+01
-PKER_SWETH( 3, 23) = 0.687523E+01
-PKER_SWETH( 3, 24) = 0.694243E+01
-PKER_SWETH( 3, 25) = 0.700212E+01
-PKER_SWETH( 3, 26) = 0.705531E+01
-PKER_SWETH( 3, 27) = 0.710290E+01
-PKER_SWETH( 3, 28) = 0.714567E+01
-PKER_SWETH( 3, 29) = 0.718428E+01
-PKER_SWETH( 3, 30) = 0.721929E+01
-PKER_SWETH( 3, 31) = 0.725118E+01
-PKER_SWETH( 3, 32) = 0.728033E+01
-PKER_SWETH( 3, 33) = 0.730707E+01
-PKER_SWETH( 3, 34) = 0.733169E+01
-PKER_SWETH( 3, 35) = 0.735440E+01
-PKER_SWETH( 3, 36) = 0.737543E+01
-PKER_SWETH( 3, 37) = 0.739492E+01
-PKER_SWETH( 3, 38) = 0.741303E+01
-PKER_SWETH( 3, 39) = 0.742988E+01
-PKER_SWETH( 3, 40) = 0.744559E+01
-PKER_SWETH( 3, 41) = 0.746023E+01
-PKER_SWETH( 3, 42) = 0.747391E+01
-PKER_SWETH( 3, 43) = 0.748670E+01
-PKER_SWETH( 3, 44) = 0.749866E+01
-PKER_SWETH( 3, 45) = 0.750985E+01
-PKER_SWETH( 3, 46) = 0.752033E+01
-PKER_SWETH( 3, 47) = 0.753014E+01
-PKER_SWETH( 3, 48) = 0.753934E+01
-PKER_SWETH( 3, 49) = 0.754797E+01
-PKER_SWETH( 3, 50) = 0.755605E+01
-PKER_SWETH( 3, 51) = 0.756364E+01
-PKER_SWETH( 3, 52) = 0.757075E+01
-PKER_SWETH( 3, 53) = 0.757742E+01
-PKER_SWETH( 3, 54) = 0.758369E+01
-PKER_SWETH( 3, 55) = 0.758956E+01
-PKER_SWETH( 3, 56) = 0.759508E+01
-PKER_SWETH( 3, 57) = 0.760025E+01
-PKER_SWETH( 3, 58) = 0.760511E+01
-PKER_SWETH( 3, 59) = 0.760967E+01
-PKER_SWETH( 3, 60) = 0.761396E+01
-PKER_SWETH( 3, 61) = 0.761798E+01
-PKER_SWETH( 3, 62) = 0.762175E+01
-PKER_SWETH( 3, 63) = 0.762529E+01
-PKER_SWETH( 3, 64) = 0.762862E+01
-PKER_SWETH( 3, 65) = 0.763174E+01
-PKER_SWETH( 3, 66) = 0.763467E+01
-PKER_SWETH( 3, 67) = 0.763743E+01
-PKER_SWETH( 3, 68) = 0.764001E+01
-PKER_SWETH( 3, 69) = 0.764244E+01
-PKER_SWETH( 3, 70) = 0.764472E+01
-PKER_SWETH( 3, 71) = 0.764686E+01
-PKER_SWETH( 3, 72) = 0.764887E+01
-PKER_SWETH( 3, 73) = 0.765075E+01
-PKER_SWETH( 3, 74) = 0.765253E+01
-PKER_SWETH( 3, 75) = 0.765419E+01
-PKER_SWETH( 3, 76) = 0.765575E+01
-PKER_SWETH( 3, 77) = 0.765722E+01
-PKER_SWETH( 3, 78) = 0.765859E+01
-PKER_SWETH( 3, 79) = 0.765989E+01
-PKER_SWETH( 3, 80) = 0.766110E+01
-PKER_SWETH( 4, 1) = 0.261585E+01
-PKER_SWETH( 4, 2) = 0.280948E+01
-PKER_SWETH( 4, 3) = 0.299603E+01
-PKER_SWETH( 4, 4) = 0.317539E+01
-PKER_SWETH( 4, 5) = 0.334799E+01
-PKER_SWETH( 4, 6) = 0.351456E+01
-PKER_SWETH( 4, 7) = 0.367607E+01
-PKER_SWETH( 4, 8) = 0.383360E+01
-PKER_SWETH( 4, 9) = 0.398823E+01
-PKER_SWETH( 4, 10) = 0.414100E+01
-PKER_SWETH( 4, 11) = 0.429270E+01
-PKER_SWETH( 4, 12) = 0.444383E+01
-PKER_SWETH( 4, 13) = 0.459433E+01
-PKER_SWETH( 4, 14) = 0.474359E+01
-PKER_SWETH( 4, 15) = 0.489033E+01
-PKER_SWETH( 4, 16) = 0.503281E+01
-PKER_SWETH( 4, 17) = 0.516906E+01
-PKER_SWETH( 4, 18) = 0.529721E+01
-PKER_SWETH( 4, 19) = 0.541582E+01
-PKER_SWETH( 4, 20) = 0.552404E+01
-PKER_SWETH( 4, 21) = 0.562165E+01
-PKER_SWETH( 4, 22) = 0.570898E+01
-PKER_SWETH( 4, 23) = 0.578673E+01
-PKER_SWETH( 4, 24) = 0.585579E+01
-PKER_SWETH( 4, 25) = 0.591716E+01
-PKER_SWETH( 4, 26) = 0.597181E+01
-PKER_SWETH( 4, 27) = 0.602062E+01
-PKER_SWETH( 4, 28) = 0.606439E+01
-PKER_SWETH( 4, 29) = 0.610382E+01
-PKER_SWETH( 4, 30) = 0.613949E+01
-PKER_SWETH( 4, 31) = 0.617190E+01
-PKER_SWETH( 4, 32) = 0.620147E+01
-PKER_SWETH( 4, 33) = 0.622855E+01
-PKER_SWETH( 4, 34) = 0.625342E+01
-PKER_SWETH( 4, 35) = 0.627635E+01
-PKER_SWETH( 4, 36) = 0.629753E+01
-PKER_SWETH( 4, 37) = 0.631716E+01
-PKER_SWETH( 4, 38) = 0.633537E+01
-PKER_SWETH( 4, 39) = 0.635230E+01
-PKER_SWETH( 4, 40) = 0.636806E+01
-PKER_SWETH( 4, 41) = 0.638276E+01
-PKER_SWETH( 4, 42) = 0.639648E+01
-PKER_SWETH( 4, 43) = 0.640930E+01
-PKER_SWETH( 4, 44) = 0.642128E+01
-PKER_SWETH( 4, 45) = 0.643249E+01
-PKER_SWETH( 4, 46) = 0.644298E+01
-PKER_SWETH( 4, 47) = 0.645281E+01
-PKER_SWETH( 4, 48) = 0.646202E+01
-PKER_SWETH( 4, 49) = 0.647065E+01
-PKER_SWETH( 4, 50) = 0.647874E+01
-PKER_SWETH( 4, 51) = 0.648633E+01
-PKER_SWETH( 4, 52) = 0.649345E+01
-PKER_SWETH( 4, 53) = 0.650012E+01
-PKER_SWETH( 4, 54) = 0.650639E+01
-PKER_SWETH( 4, 55) = 0.651227E+01
-PKER_SWETH( 4, 56) = 0.651778E+01
-PKER_SWETH( 4, 57) = 0.652296E+01
-PKER_SWETH( 4, 58) = 0.652782E+01
-PKER_SWETH( 4, 59) = 0.653238E+01
-PKER_SWETH( 4, 60) = 0.653666E+01
-PKER_SWETH( 4, 61) = 0.654068E+01
-PKER_SWETH( 4, 62) = 0.654446E+01
-PKER_SWETH( 4, 63) = 0.654800E+01
-PKER_SWETH( 4, 64) = 0.655133E+01
-PKER_SWETH( 4, 65) = 0.655445E+01
-PKER_SWETH( 4, 66) = 0.655738E+01
-PKER_SWETH( 4, 67) = 0.656014E+01
-PKER_SWETH( 4, 68) = 0.656272E+01
-PKER_SWETH( 4, 69) = 0.656515E+01
-PKER_SWETH( 4, 70) = 0.656743E+01
-PKER_SWETH( 4, 71) = 0.656957E+01
-PKER_SWETH( 4, 72) = 0.657158E+01
-PKER_SWETH( 4, 73) = 0.657346E+01
-PKER_SWETH( 4, 74) = 0.657524E+01
-PKER_SWETH( 4, 75) = 0.657690E+01
-PKER_SWETH( 4, 76) = 0.657846E+01
-PKER_SWETH( 4, 77) = 0.657993E+01
-PKER_SWETH( 4, 78) = 0.658130E+01
-PKER_SWETH( 4, 79) = 0.658260E+01
-PKER_SWETH( 4, 80) = 0.658381E+01
-PKER_SWETH( 5, 1) = 0.183666E+01
-PKER_SWETH( 5, 2) = 0.201461E+01
-PKER_SWETH( 5, 3) = 0.219011E+01
-PKER_SWETH( 5, 4) = 0.236116E+01
-PKER_SWETH( 5, 5) = 0.252677E+01
-PKER_SWETH( 5, 6) = 0.268674E+01
-PKER_SWETH( 5, 7) = 0.284137E+01
-PKER_SWETH( 5, 8) = 0.299127E+01
-PKER_SWETH( 5, 9) = 0.313728E+01
-PKER_SWETH( 5, 10) = 0.328031E+01
-PKER_SWETH( 5, 11) = 0.342122E+01
-PKER_SWETH( 5, 12) = 0.356074E+01
-PKER_SWETH( 5, 13) = 0.369927E+01
-PKER_SWETH( 5, 14) = 0.383682E+01
-PKER_SWETH( 5, 15) = 0.397284E+01
-PKER_SWETH( 5, 16) = 0.410626E+01
-PKER_SWETH( 5, 17) = 0.423559E+01
-PKER_SWETH( 5, 18) = 0.435911E+01
-PKER_SWETH( 5, 19) = 0.447524E+01
-PKER_SWETH( 5, 20) = 0.458272E+01
-PKER_SWETH( 5, 21) = 0.468086E+01
-PKER_SWETH( 5, 22) = 0.476948E+01
-PKER_SWETH( 5, 23) = 0.484888E+01
-PKER_SWETH( 5, 24) = 0.491969E+01
-PKER_SWETH( 5, 25) = 0.498273E+01
-PKER_SWETH( 5, 26) = 0.503887E+01
-PKER_SWETH( 5, 27) = 0.508897E+01
-PKER_SWETH( 5, 28) = 0.513382E+01
-PKER_SWETH( 5, 29) = 0.517414E+01
-PKER_SWETH( 5, 30) = 0.521054E+01
-PKER_SWETH( 5, 31) = 0.524353E+01
-PKER_SWETH( 5, 32) = 0.527356E+01
-PKER_SWETH( 5, 33) = 0.530100E+01
-PKER_SWETH( 5, 34) = 0.532617E+01
-PKER_SWETH( 5, 35) = 0.534933E+01
-PKER_SWETH( 5, 36) = 0.537069E+01
-PKER_SWETH( 5, 37) = 0.539046E+01
-PKER_SWETH( 5, 38) = 0.540878E+01
-PKER_SWETH( 5, 39) = 0.542580E+01
-PKER_SWETH( 5, 40) = 0.544164E+01
-PKER_SWETH( 5, 41) = 0.545639E+01
-PKER_SWETH( 5, 42) = 0.547015E+01
-PKER_SWETH( 5, 43) = 0.548300E+01
-PKER_SWETH( 5, 44) = 0.549501E+01
-PKER_SWETH( 5, 45) = 0.550624E+01
-PKER_SWETH( 5, 46) = 0.551675E+01
-PKER_SWETH( 5, 47) = 0.552659E+01
-PKER_SWETH( 5, 48) = 0.553581E+01
-PKER_SWETH( 5, 49) = 0.554445E+01
-PKER_SWETH( 5, 50) = 0.555254E+01
-PKER_SWETH( 5, 51) = 0.556014E+01
-PKER_SWETH( 5, 52) = 0.556726E+01
-PKER_SWETH( 5, 53) = 0.557394E+01
-PKER_SWETH( 5, 54) = 0.558021E+01
-PKER_SWETH( 5, 55) = 0.558609E+01
-PKER_SWETH( 5, 56) = 0.559160E+01
-PKER_SWETH( 5, 57) = 0.559678E+01
-PKER_SWETH( 5, 58) = 0.560164E+01
-PKER_SWETH( 5, 59) = 0.560621E+01
-PKER_SWETH( 5, 60) = 0.561049E+01
-PKER_SWETH( 5, 61) = 0.561451E+01
-PKER_SWETH( 5, 62) = 0.561829E+01
-PKER_SWETH( 5, 63) = 0.562183E+01
-PKER_SWETH( 5, 64) = 0.562516E+01
-PKER_SWETH( 5, 65) = 0.562828E+01
-PKER_SWETH( 5, 66) = 0.563121E+01
-PKER_SWETH( 5, 67) = 0.563396E+01
-PKER_SWETH( 5, 68) = 0.563655E+01
-PKER_SWETH( 5, 69) = 0.563898E+01
-PKER_SWETH( 5, 70) = 0.564126E+01
-PKER_SWETH( 5, 71) = 0.564340E+01
-PKER_SWETH( 5, 72) = 0.564540E+01
-PKER_SWETH( 5, 73) = 0.564729E+01
-PKER_SWETH( 5, 74) = 0.564906E+01
-PKER_SWETH( 5, 75) = 0.565073E+01
-PKER_SWETH( 5, 76) = 0.565229E+01
-PKER_SWETH( 5, 77) = 0.565375E+01
-PKER_SWETH( 5, 78) = 0.565513E+01
-PKER_SWETH( 5, 79) = 0.565642E+01
-PKER_SWETH( 5, 80) = 0.565764E+01
-PKER_SWETH( 6, 1) = 0.122732E+01
-PKER_SWETH( 6, 2) = 0.137201E+01
-PKER_SWETH( 6, 3) = 0.152420E+01
-PKER_SWETH( 6, 4) = 0.167900E+01
-PKER_SWETH( 6, 5) = 0.183306E+01
-PKER_SWETH( 6, 6) = 0.198423E+01
-PKER_SWETH( 6, 7) = 0.213147E+01
-PKER_SWETH( 6, 8) = 0.227444E+01
-PKER_SWETH( 6, 9) = 0.241330E+01
-PKER_SWETH( 6, 10) = 0.254856E+01
-PKER_SWETH( 6, 11) = 0.268088E+01
-PKER_SWETH( 6, 12) = 0.281097E+01
-PKER_SWETH( 6, 13) = 0.293942E+01
-PKER_SWETH( 6, 14) = 0.306659E+01
-PKER_SWETH( 6, 15) = 0.319250E+01
-PKER_SWETH( 6, 16) = 0.331667E+01
-PKER_SWETH( 6, 17) = 0.343821E+01
-PKER_SWETH( 6, 18) = 0.355580E+01
-PKER_SWETH( 6, 19) = 0.366800E+01
-PKER_SWETH( 6, 20) = 0.377342E+01
-PKER_SWETH( 6, 21) = 0.387101E+01
-PKER_SWETH( 6, 22) = 0.396016E+01
-PKER_SWETH( 6, 23) = 0.404075E+01
-PKER_SWETH( 6, 24) = 0.411307E+01
-PKER_SWETH( 6, 25) = 0.417768E+01
-PKER_SWETH( 6, 26) = 0.423531E+01
-PKER_SWETH( 6, 27) = 0.428674E+01
-PKER_SWETH( 6, 28) = 0.433274E+01
-PKER_SWETH( 6, 29) = 0.437401E+01
-PKER_SWETH( 6, 30) = 0.441119E+01
-PKER_SWETH( 6, 31) = 0.444482E+01
-PKER_SWETH( 6, 32) = 0.447537E+01
-PKER_SWETH( 6, 33) = 0.450322E+01
-PKER_SWETH( 6, 34) = 0.452871E+01
-PKER_SWETH( 6, 35) = 0.455213E+01
-PKER_SWETH( 6, 36) = 0.457369E+01
-PKER_SWETH( 6, 37) = 0.459362E+01
-PKER_SWETH( 6, 38) = 0.461207E+01
-PKER_SWETH( 6, 39) = 0.462919E+01
-PKER_SWETH( 6, 40) = 0.464510E+01
-PKER_SWETH( 6, 41) = 0.465991E+01
-PKER_SWETH( 6, 42) = 0.467372E+01
-PKER_SWETH( 6, 43) = 0.468661E+01
-PKER_SWETH( 6, 44) = 0.469865E+01
-PKER_SWETH( 6, 45) = 0.470990E+01
-PKER_SWETH( 6, 46) = 0.472043E+01
-PKER_SWETH( 6, 47) = 0.473028E+01
-PKER_SWETH( 6, 48) = 0.473951E+01
-PKER_SWETH( 6, 49) = 0.474816E+01
-PKER_SWETH( 6, 50) = 0.475627E+01
-PKER_SWETH( 6, 51) = 0.476387E+01
-PKER_SWETH( 6, 52) = 0.477099E+01
-PKER_SWETH( 6, 53) = 0.477767E+01
-PKER_SWETH( 6, 54) = 0.478394E+01
-PKER_SWETH( 6, 55) = 0.478983E+01
-PKER_SWETH( 6, 56) = 0.479535E+01
-PKER_SWETH( 6, 57) = 0.480053E+01
-PKER_SWETH( 6, 58) = 0.480539E+01
-PKER_SWETH( 6, 59) = 0.480995E+01
-PKER_SWETH( 6, 60) = 0.481424E+01
-PKER_SWETH( 6, 61) = 0.481826E+01
-PKER_SWETH( 6, 62) = 0.482203E+01
-PKER_SWETH( 6, 63) = 0.482557E+01
-PKER_SWETH( 6, 64) = 0.482890E+01
-PKER_SWETH( 6, 65) = 0.483203E+01
-PKER_SWETH( 6, 66) = 0.483496E+01
-PKER_SWETH( 6, 67) = 0.483771E+01
-PKER_SWETH( 6, 68) = 0.484030E+01
-PKER_SWETH( 6, 69) = 0.484272E+01
-PKER_SWETH( 6, 70) = 0.484500E+01
-PKER_SWETH( 6, 71) = 0.484714E+01
-PKER_SWETH( 6, 72) = 0.484915E+01
-PKER_SWETH( 6, 73) = 0.485104E+01
-PKER_SWETH( 6, 74) = 0.485281E+01
-PKER_SWETH( 6, 75) = 0.485447E+01
-PKER_SWETH( 6, 76) = 0.485604E+01
-PKER_SWETH( 6, 77) = 0.485750E+01
-PKER_SWETH( 6, 78) = 0.485888E+01
-PKER_SWETH( 6, 79) = 0.486017E+01
-PKER_SWETH( 6, 80) = 0.486139E+01
-PKER_SWETH( 7, 1) = 0.820900E+00
-PKER_SWETH( 7, 2) = 0.905506E+00
-PKER_SWETH( 7, 3) = 0.101233E+01
-PKER_SWETH( 7, 4) = 0.113395E+01
-PKER_SWETH( 7, 5) = 0.126438E+01
-PKER_SWETH( 7, 6) = 0.139888E+01
-PKER_SWETH( 7, 7) = 0.153405E+01
-PKER_SWETH( 7, 8) = 0.166779E+01
-PKER_SWETH( 7, 9) = 0.179891E+01
-PKER_SWETH( 7, 10) = 0.192695E+01
-PKER_SWETH( 7, 11) = 0.205196E+01
-PKER_SWETH( 7, 12) = 0.217429E+01
-PKER_SWETH( 7, 13) = 0.229440E+01
-PKER_SWETH( 7, 14) = 0.241276E+01
-PKER_SWETH( 7, 15) = 0.252965E+01
-PKER_SWETH( 7, 16) = 0.264507E+01
-PKER_SWETH( 7, 17) = 0.275862E+01
-PKER_SWETH( 7, 18) = 0.286951E+01
-PKER_SWETH( 7, 19) = 0.297663E+01
-PKER_SWETH( 7, 20) = 0.307872E+01
-PKER_SWETH( 7, 21) = 0.317460E+01
-PKER_SWETH( 7, 22) = 0.326335E+01
-PKER_SWETH( 7, 23) = 0.334449E+01
-PKER_SWETH( 7, 24) = 0.341791E+01
-PKER_SWETH( 7, 25) = 0.348388E+01
-PKER_SWETH( 7, 26) = 0.354293E+01
-PKER_SWETH( 7, 27) = 0.359570E+01
-PKER_SWETH( 7, 28) = 0.364289E+01
-PKER_SWETH( 7, 29) = 0.368518E+01
-PKER_SWETH( 7, 30) = 0.372321E+01
-PKER_SWETH( 7, 31) = 0.375754E+01
-PKER_SWETH( 7, 32) = 0.378865E+01
-PKER_SWETH( 7, 33) = 0.381696E+01
-PKER_SWETH( 7, 34) = 0.384281E+01
-PKER_SWETH( 7, 35) = 0.386651E+01
-PKER_SWETH( 7, 36) = 0.388831E+01
-PKER_SWETH( 7, 37) = 0.390841E+01
-PKER_SWETH( 7, 38) = 0.392700E+01
-PKER_SWETH( 7, 39) = 0.394423E+01
-PKER_SWETH( 7, 40) = 0.396023E+01
-PKER_SWETH( 7, 41) = 0.397511E+01
-PKER_SWETH( 7, 42) = 0.398897E+01
-PKER_SWETH( 7, 43) = 0.400190E+01
-PKER_SWETH( 7, 44) = 0.401397E+01
-PKER_SWETH( 7, 45) = 0.402525E+01
-PKER_SWETH( 7, 46) = 0.403580E+01
-PKER_SWETH( 7, 47) = 0.404567E+01
-PKER_SWETH( 7, 48) = 0.405491E+01
-PKER_SWETH( 7, 49) = 0.406357E+01
-PKER_SWETH( 7, 50) = 0.407168E+01
-PKER_SWETH( 7, 51) = 0.407929E+01
-PKER_SWETH( 7, 52) = 0.408642E+01
-PKER_SWETH( 7, 53) = 0.409310E+01
-PKER_SWETH( 7, 54) = 0.409938E+01
-PKER_SWETH( 7, 55) = 0.410526E+01
-PKER_SWETH( 7, 56) = 0.411078E+01
-PKER_SWETH( 7, 57) = 0.411596E+01
-PKER_SWETH( 7, 58) = 0.412083E+01
-PKER_SWETH( 7, 59) = 0.412539E+01
-PKER_SWETH( 7, 60) = 0.412968E+01
-PKER_SWETH( 7, 61) = 0.413370E+01
-PKER_SWETH( 7, 62) = 0.413747E+01
-PKER_SWETH( 7, 63) = 0.414102E+01
-PKER_SWETH( 7, 64) = 0.414434E+01
-PKER_SWETH( 7, 65) = 0.414747E+01
-PKER_SWETH( 7, 66) = 0.415040E+01
-PKER_SWETH( 7, 67) = 0.415315E+01
-PKER_SWETH( 7, 68) = 0.415574E+01
-PKER_SWETH( 7, 69) = 0.415817E+01
-PKER_SWETH( 7, 70) = 0.416045E+01
-PKER_SWETH( 7, 71) = 0.416259E+01
-PKER_SWETH( 7, 72) = 0.416460E+01
-PKER_SWETH( 7, 73) = 0.416648E+01
-PKER_SWETH( 7, 74) = 0.416825E+01
-PKER_SWETH( 7, 75) = 0.416992E+01
-PKER_SWETH( 7, 76) = 0.417148E+01
-PKER_SWETH( 7, 77) = 0.417294E+01
-PKER_SWETH( 7, 78) = 0.417432E+01
-PKER_SWETH( 7, 79) = 0.417561E+01
-PKER_SWETH( 7, 80) = 0.417683E+01
-PKER_SWETH( 8, 1) = 0.649351E+00
-PKER_SWETH( 8, 2) = 0.650011E+00
-PKER_SWETH( 8, 3) = 0.685517E+00
-PKER_SWETH( 8, 4) = 0.749664E+00
-PKER_SWETH( 8, 5) = 0.835874E+00
-PKER_SWETH( 8, 6) = 0.937419E+00
-PKER_SWETH( 8, 7) = 0.104881E+01
-PKER_SWETH( 8, 8) = 0.116549E+01
-PKER_SWETH( 8, 9) = 0.128413E+01
-PKER_SWETH( 8, 10) = 0.140255E+01
-PKER_SWETH( 8, 11) = 0.151951E+01
-PKER_SWETH( 8, 12) = 0.163444E+01
-PKER_SWETH( 8, 13) = 0.174722E+01
-PKER_SWETH( 8, 14) = 0.185802E+01
-PKER_SWETH( 8, 15) = 0.196710E+01
-PKER_SWETH( 8, 16) = 0.207463E+01
-PKER_SWETH( 8, 17) = 0.218056E+01
-PKER_SWETH( 8, 18) = 0.228455E+01
-PKER_SWETH( 8, 19) = 0.238589E+01
-PKER_SWETH( 8, 20) = 0.248364E+01
-PKER_SWETH( 8, 21) = 0.257669E+01
-PKER_SWETH( 8, 22) = 0.266404E+01
-PKER_SWETH( 8, 23) = 0.274491E+01
-PKER_SWETH( 8, 24) = 0.281887E+01
-PKER_SWETH( 8, 25) = 0.288587E+01
-PKER_SWETH( 8, 26) = 0.294616E+01
-PKER_SWETH( 8, 27) = 0.300021E+01
-PKER_SWETH( 8, 28) = 0.304860E+01
-PKER_SWETH( 8, 29) = 0.309196E+01
-PKER_SWETH( 8, 30) = 0.313090E+01
-PKER_SWETH( 8, 31) = 0.316598E+01
-PKER_SWETH( 8, 32) = 0.319771E+01
-PKER_SWETH( 8, 33) = 0.322652E+01
-PKER_SWETH( 8, 34) = 0.325278E+01
-PKER_SWETH( 8, 35) = 0.327680E+01
-PKER_SWETH( 8, 36) = 0.329884E+01
-PKER_SWETH( 8, 37) = 0.331915E+01
-PKER_SWETH( 8, 38) = 0.333789E+01
-PKER_SWETH( 8, 39) = 0.335525E+01
-PKER_SWETH( 8, 40) = 0.337134E+01
-PKER_SWETH( 8, 41) = 0.338630E+01
-PKER_SWETH( 8, 42) = 0.340022E+01
-PKER_SWETH( 8, 43) = 0.341320E+01
-PKER_SWETH( 8, 44) = 0.342530E+01
-PKER_SWETH( 8, 45) = 0.343661E+01
-PKER_SWETH( 8, 46) = 0.344718E+01
-PKER_SWETH( 8, 47) = 0.345707E+01
-PKER_SWETH( 8, 48) = 0.346633E+01
-PKER_SWETH( 8, 49) = 0.347500E+01
-PKER_SWETH( 8, 50) = 0.348312E+01
-PKER_SWETH( 8, 51) = 0.349073E+01
-PKER_SWETH( 8, 52) = 0.349787E+01
-PKER_SWETH( 8, 53) = 0.350456E+01
-PKER_SWETH( 8, 54) = 0.351083E+01
-PKER_SWETH( 8, 55) = 0.351672E+01
-PKER_SWETH( 8, 56) = 0.352224E+01
-PKER_SWETH( 8, 57) = 0.352743E+01
-PKER_SWETH( 8, 58) = 0.353229E+01
-PKER_SWETH( 8, 59) = 0.353686E+01
-PKER_SWETH( 8, 60) = 0.354114E+01
-PKER_SWETH( 8, 61) = 0.354516E+01
-PKER_SWETH( 8, 62) = 0.354894E+01
-PKER_SWETH( 8, 63) = 0.355249E+01
-PKER_SWETH( 8, 64) = 0.355581E+01
-PKER_SWETH( 8, 65) = 0.355894E+01
-PKER_SWETH( 8, 66) = 0.356187E+01
-PKER_SWETH( 8, 67) = 0.356462E+01
-PKER_SWETH( 8, 68) = 0.356721E+01
-PKER_SWETH( 8, 69) = 0.356964E+01
-PKER_SWETH( 8, 70) = 0.357192E+01
-PKER_SWETH( 8, 71) = 0.357406E+01
-PKER_SWETH( 8, 72) = 0.357606E+01
-PKER_SWETH( 8, 73) = 0.357795E+01
-PKER_SWETH( 8, 74) = 0.357972E+01
-PKER_SWETH( 8, 75) = 0.358139E+01
-PKER_SWETH( 8, 76) = 0.358295E+01
-PKER_SWETH( 8, 77) = 0.358441E+01
-PKER_SWETH( 8, 78) = 0.358579E+01
-PKER_SWETH( 8, 79) = 0.358708E+01
-PKER_SWETH( 8, 80) = 0.358830E+01
-PKER_SWETH( 9, 1) = 0.702519E+00
-PKER_SWETH( 9, 2) = 0.616447E+00
-PKER_SWETH( 9, 3) = 0.568133E+00
-PKER_SWETH( 9, 4) = 0.555691E+00
-PKER_SWETH( 9, 5) = 0.575613E+00
-PKER_SWETH( 9, 6) = 0.622847E+00
-PKER_SWETH( 9, 7) = 0.691366E+00
-PKER_SWETH( 9, 8) = 0.775606E+00
-PKER_SWETH( 9, 9) = 0.870423E+00
-PKER_SWETH( 9, 10) = 0.971456E+00
-PKER_SWETH( 9, 11) = 0.107560E+01
-PKER_SWETH( 9, 12) = 0.118058E+01
-PKER_SWETH( 9, 13) = 0.128511E+01
-PKER_SWETH( 9, 14) = 0.138846E+01
-PKER_SWETH( 9, 15) = 0.149035E+01
-PKER_SWETH( 9, 16) = 0.159076E+01
-PKER_SWETH( 9, 17) = 0.168968E+01
-PKER_SWETH( 9, 18) = 0.178699E+01
-PKER_SWETH( 9, 19) = 0.188233E+01
-PKER_SWETH( 9, 20) = 0.197509E+01
-PKER_SWETH( 9, 21) = 0.206443E+01
-PKER_SWETH( 9, 22) = 0.214939E+01
-PKER_SWETH( 9, 23) = 0.222911E+01
-PKER_SWETH( 9, 24) = 0.230291E+01
-PKER_SWETH( 9, 25) = 0.237045E+01
-PKER_SWETH( 9, 26) = 0.243169E+01
-PKER_SWETH( 9, 27) = 0.248687E+01
-PKER_SWETH( 9, 28) = 0.253642E+01
-PKER_SWETH( 9, 29) = 0.258086E+01
-PKER_SWETH( 9, 30) = 0.262075E+01
-PKER_SWETH( 9, 31) = 0.265665E+01
-PKER_SWETH( 9, 32) = 0.268906E+01
-PKER_SWETH( 9, 33) = 0.271842E+01
-PKER_SWETH( 9, 34) = 0.274512E+01
-PKER_SWETH( 9, 35) = 0.276950E+01
-PKER_SWETH( 9, 36) = 0.279183E+01
-PKER_SWETH( 9, 37) = 0.281235E+01
-PKER_SWETH( 9, 38) = 0.283128E+01
-PKER_SWETH( 9, 39) = 0.284877E+01
-PKER_SWETH( 9, 40) = 0.286497E+01
-PKER_SWETH( 9, 41) = 0.288002E+01
-PKER_SWETH( 9, 42) = 0.289400E+01
-PKER_SWETH( 9, 43) = 0.290703E+01
-PKER_SWETH( 9, 44) = 0.291918E+01
-PKER_SWETH( 9, 45) = 0.293052E+01
-PKER_SWETH( 9, 46) = 0.294112E+01
-PKER_SWETH( 9, 47) = 0.295103E+01
-PKER_SWETH( 9, 48) = 0.296030E+01
-PKER_SWETH( 9, 49) = 0.296898E+01
-PKER_SWETH( 9, 50) = 0.297711E+01
-PKER_SWETH( 9, 51) = 0.298473E+01
-PKER_SWETH( 9, 52) = 0.299187E+01
-PKER_SWETH( 9, 53) = 0.299857E+01
-PKER_SWETH( 9, 54) = 0.300485E+01
-PKER_SWETH( 9, 55) = 0.301074E+01
-PKER_SWETH( 9, 56) = 0.301626E+01
-PKER_SWETH( 9, 57) = 0.302145E+01
-PKER_SWETH( 9, 58) = 0.302631E+01
-PKER_SWETH( 9, 59) = 0.303088E+01
-PKER_SWETH( 9, 60) = 0.303517E+01
-PKER_SWETH( 9, 61) = 0.303919E+01
-PKER_SWETH( 9, 62) = 0.304297E+01
-PKER_SWETH( 9, 63) = 0.304651E+01
-PKER_SWETH( 9, 64) = 0.304984E+01
-PKER_SWETH( 9, 65) = 0.305296E+01
-PKER_SWETH( 9, 66) = 0.305590E+01
-PKER_SWETH( 9, 67) = 0.305865E+01
-PKER_SWETH( 9, 68) = 0.306124E+01
-PKER_SWETH( 9, 69) = 0.306366E+01
-PKER_SWETH( 9, 70) = 0.306594E+01
-PKER_SWETH( 9, 71) = 0.306808E+01
-PKER_SWETH( 9, 72) = 0.307009E+01
-PKER_SWETH( 9, 73) = 0.307198E+01
-PKER_SWETH( 9, 74) = 0.307375E+01
-PKER_SWETH( 9, 75) = 0.307541E+01
-PKER_SWETH( 9, 76) = 0.307697E+01
-PKER_SWETH( 9, 77) = 0.307844E+01
-PKER_SWETH( 9, 78) = 0.307982E+01
-PKER_SWETH( 9, 79) = 0.308111E+01
-PKER_SWETH( 9, 80) = 0.308233E+01
-PKER_SWETH( 10, 1) = 0.910019E+00
-PKER_SWETH( 10, 2) = 0.761058E+00
-PKER_SWETH( 10, 3) = 0.642166E+00
-PKER_SWETH( 10, 4) = 0.555322E+00
-PKER_SWETH( 10, 5) = 0.501395E+00
-PKER_SWETH( 10, 6) = 0.479375E+00
-PKER_SWETH( 10, 7) = 0.486799E+00
-PKER_SWETH( 10, 8) = 0.519678E+00
-PKER_SWETH( 10, 9) = 0.573342E+00
-PKER_SWETH( 10, 10) = 0.642647E+00
-PKER_SWETH( 10, 11) = 0.723043E+00
-PKER_SWETH( 10, 12) = 0.810494E+00
-PKER_SWETH( 10, 13) = 0.901923E+00
-PKER_SWETH( 10, 14) = 0.995138E+00
-PKER_SWETH( 10, 15) = 0.108870E+01
-PKER_SWETH( 10, 16) = 0.118176E+01
-PKER_SWETH( 10, 17) = 0.127386E+01
-PKER_SWETH( 10, 18) = 0.136474E+01
-PKER_SWETH( 10, 19) = 0.145412E+01
-PKER_SWETH( 10, 20) = 0.154161E+01
-PKER_SWETH( 10, 21) = 0.162661E+01
-PKER_SWETH( 10, 22) = 0.170837E+01
-PKER_SWETH( 10, 23) = 0.178607E+01
-PKER_SWETH( 10, 24) = 0.185894E+01
-PKER_SWETH( 10, 25) = 0.192641E+01
-PKER_SWETH( 10, 26) = 0.198818E+01
-PKER_SWETH( 10, 27) = 0.204425E+01
-PKER_SWETH( 10, 28) = 0.209483E+01
-PKER_SWETH( 10, 29) = 0.214031E+01
-PKER_SWETH( 10, 30) = 0.218118E+01
-PKER_SWETH( 10, 31) = 0.221794E+01
-PKER_SWETH( 10, 32) = 0.225107E+01
-PKER_SWETH( 10, 33) = 0.228104E+01
-PKER_SWETH( 10, 34) = 0.230823E+01
-PKER_SWETH( 10, 35) = 0.233301E+01
-PKER_SWETH( 10, 36) = 0.235566E+01
-PKER_SWETH( 10, 37) = 0.237643E+01
-PKER_SWETH( 10, 38) = 0.239556E+01
-PKER_SWETH( 10, 39) = 0.241320E+01
-PKER_SWETH( 10, 40) = 0.242953E+01
-PKER_SWETH( 10, 41) = 0.244467E+01
-PKER_SWETH( 10, 42) = 0.245873E+01
-PKER_SWETH( 10, 43) = 0.247182E+01
-PKER_SWETH( 10, 44) = 0.248402E+01
-PKER_SWETH( 10, 45) = 0.249539E+01
-PKER_SWETH( 10, 46) = 0.250602E+01
-PKER_SWETH( 10, 47) = 0.251595E+01
-PKER_SWETH( 10, 48) = 0.252524E+01
-PKER_SWETH( 10, 49) = 0.253393E+01
-PKER_SWETH( 10, 50) = 0.254208E+01
-PKER_SWETH( 10, 51) = 0.254970E+01
-PKER_SWETH( 10, 52) = 0.255685E+01
-PKER_SWETH( 10, 53) = 0.256355E+01
-PKER_SWETH( 10, 54) = 0.256983E+01
-PKER_SWETH( 10, 55) = 0.257573E+01
-PKER_SWETH( 10, 56) = 0.258126E+01
-PKER_SWETH( 10, 57) = 0.258644E+01
-PKER_SWETH( 10, 58) = 0.259131E+01
-PKER_SWETH( 10, 59) = 0.259588E+01
-PKER_SWETH( 10, 60) = 0.260017E+01
-PKER_SWETH( 10, 61) = 0.260419E+01
-PKER_SWETH( 10, 62) = 0.260797E+01
-PKER_SWETH( 10, 63) = 0.261151E+01
-PKER_SWETH( 10, 64) = 0.261484E+01
-PKER_SWETH( 10, 65) = 0.261796E+01
-PKER_SWETH( 10, 66) = 0.262090E+01
-PKER_SWETH( 10, 67) = 0.262365E+01
-PKER_SWETH( 10, 68) = 0.262624E+01
-PKER_SWETH( 10, 69) = 0.262866E+01
-PKER_SWETH( 10, 70) = 0.263094E+01
-PKER_SWETH( 10, 71) = 0.263308E+01
-PKER_SWETH( 10, 72) = 0.263509E+01
-PKER_SWETH( 10, 73) = 0.263698E+01
-PKER_SWETH( 10, 74) = 0.263875E+01
-PKER_SWETH( 10, 75) = 0.264042E+01
-PKER_SWETH( 10, 76) = 0.264198E+01
-PKER_SWETH( 10, 77) = 0.264344E+01
-PKER_SWETH( 10, 78) = 0.264482E+01
-PKER_SWETH( 10, 79) = 0.264611E+01
-PKER_SWETH( 10, 80) = 0.264733E+01
-PKER_SWETH( 11, 1) = 0.117970E+01
-PKER_SWETH( 11, 2) = 0.999555E+00
-PKER_SWETH( 11, 3) = 0.839382E+00
-PKER_SWETH( 11, 4) = 0.701679E+00
-PKER_SWETH( 11, 5) = 0.588986E+00
-PKER_SWETH( 11, 6) = 0.503339E+00
-PKER_SWETH( 11, 7) = 0.446069E+00
-PKER_SWETH( 11, 8) = 0.417187E+00
-PKER_SWETH( 11, 9) = 0.414688E+00
-PKER_SWETH( 11, 10) = 0.436027E+00
-PKER_SWETH( 11, 11) = 0.477087E+00
-PKER_SWETH( 11, 12) = 0.533660E+00
-PKER_SWETH( 11, 13) = 0.601609E+00
-PKER_SWETH( 11, 14) = 0.677240E+00
-PKER_SWETH( 11, 15) = 0.757583E+00
-PKER_SWETH( 11, 16) = 0.840432E+00
-PKER_SWETH( 11, 17) = 0.924274E+00
-PKER_SWETH( 11, 18) = 0.100809E+01
-PKER_SWETH( 11, 19) = 0.109125E+01
-PKER_SWETH( 11, 20) = 0.117322E+01
-PKER_SWETH( 11, 21) = 0.125348E+01
-PKER_SWETH( 11, 22) = 0.133144E+01
-PKER_SWETH( 11, 23) = 0.140636E+01
-PKER_SWETH( 11, 24) = 0.147751E+01
-PKER_SWETH( 11, 25) = 0.154422E+01
-PKER_SWETH( 11, 26) = 0.160600E+01
-PKER_SWETH( 11, 27) = 0.166258E+01
-PKER_SWETH( 11, 28) = 0.171399E+01
-PKER_SWETH( 11, 29) = 0.176042E+01
-PKER_SWETH( 11, 30) = 0.180224E+01
-PKER_SWETH( 11, 31) = 0.183988E+01
-PKER_SWETH( 11, 32) = 0.187378E+01
-PKER_SWETH( 11, 33) = 0.190440E+01
-PKER_SWETH( 11, 34) = 0.193214E+01
-PKER_SWETH( 11, 35) = 0.195735E+01
-PKER_SWETH( 11, 36) = 0.198036E+01
-PKER_SWETH( 11, 37) = 0.200142E+01
-PKER_SWETH( 11, 38) = 0.202076E+01
-PKER_SWETH( 11, 39) = 0.203859E+01
-PKER_SWETH( 11, 40) = 0.205505E+01
-PKER_SWETH( 11, 41) = 0.207030E+01
-PKER_SWETH( 11, 42) = 0.208445E+01
-PKER_SWETH( 11, 43) = 0.209760E+01
-PKER_SWETH( 11, 44) = 0.210985E+01
-PKER_SWETH( 11, 45) = 0.212127E+01
-PKER_SWETH( 11, 46) = 0.213193E+01
-PKER_SWETH( 11, 47) = 0.214188E+01
-PKER_SWETH( 11, 48) = 0.215119E+01
-PKER_SWETH( 11, 49) = 0.215990E+01
-PKER_SWETH( 11, 50) = 0.216805E+01
-PKER_SWETH( 11, 51) = 0.217569E+01
-PKER_SWETH( 11, 52) = 0.218285E+01
-PKER_SWETH( 11, 53) = 0.218955E+01
-PKER_SWETH( 11, 54) = 0.219584E+01
-PKER_SWETH( 11, 55) = 0.220174E+01
-PKER_SWETH( 11, 56) = 0.220727E+01
-PKER_SWETH( 11, 57) = 0.221246E+01
-PKER_SWETH( 11, 58) = 0.221733E+01
-PKER_SWETH( 11, 59) = 0.222190E+01
-PKER_SWETH( 11, 60) = 0.222618E+01
-PKER_SWETH( 11, 61) = 0.223021E+01
-PKER_SWETH( 11, 62) = 0.223399E+01
-PKER_SWETH( 11, 63) = 0.223753E+01
-PKER_SWETH( 11, 64) = 0.224086E+01
-PKER_SWETH( 11, 65) = 0.224399E+01
-PKER_SWETH( 11, 66) = 0.224692E+01
-PKER_SWETH( 11, 67) = 0.224967E+01
-PKER_SWETH( 11, 68) = 0.225226E+01
-PKER_SWETH( 11, 69) = 0.225469E+01
-PKER_SWETH( 11, 70) = 0.225697E+01
-PKER_SWETH( 11, 71) = 0.225911E+01
-PKER_SWETH( 11, 72) = 0.226112E+01
-PKER_SWETH( 11, 73) = 0.226300E+01
-PKER_SWETH( 11, 74) = 0.226477E+01
-PKER_SWETH( 11, 75) = 0.226644E+01
-PKER_SWETH( 11, 76) = 0.226800E+01
-PKER_SWETH( 11, 77) = 0.226947E+01
-PKER_SWETH( 11, 78) = 0.227084E+01
-PKER_SWETH( 11, 79) = 0.227214E+01
-PKER_SWETH( 11, 80) = 0.227335E+01
-PKER_SWETH( 12, 1) = 0.144652E+01
-PKER_SWETH( 12, 2) = 0.125611E+01
-PKER_SWETH( 12, 3) = 0.107975E+01
-PKER_SWETH( 12, 4) = 0.918380E+00
-PKER_SWETH( 12, 5) = 0.773485E+00
-PKER_SWETH( 12, 6) = 0.647036E+00
-PKER_SWETH( 12, 7) = 0.541359E+00
-PKER_SWETH( 12, 8) = 0.458510E+00
-PKER_SWETH( 12, 9) = 0.399890E+00
-PKER_SWETH( 12, 10) = 0.366094E+00
-PKER_SWETH( 12, 11) = 0.356301E+00
-PKER_SWETH( 12, 12) = 0.368080E+00
-PKER_SWETH( 12, 13) = 0.398694E+00
-PKER_SWETH( 12, 14) = 0.444471E+00
-PKER_SWETH( 12, 15) = 0.501775E+00
-PKER_SWETH( 12, 16) = 0.567143E+00
-PKER_SWETH( 12, 17) = 0.637796E+00
-PKER_SWETH( 12, 18) = 0.711513E+00
-PKER_SWETH( 12, 19) = 0.786658E+00
-PKER_SWETH( 12, 20) = 0.862084E+00
-PKER_SWETH( 12, 21) = 0.936916E+00
-PKER_SWETH( 12, 22) = 0.101042E+01
-PKER_SWETH( 12, 23) = 0.108188E+01
-PKER_SWETH( 12, 24) = 0.115058E+01
-PKER_SWETH( 12, 25) = 0.121581E+01
-PKER_SWETH( 12, 26) = 0.127697E+01
-PKER_SWETH( 12, 27) = 0.133361E+01
-PKER_SWETH( 12, 28) = 0.138552E+01
-PKER_SWETH( 12, 29) = 0.143272E+01
-PKER_SWETH( 12, 30) = 0.147541E+01
-PKER_SWETH( 12, 31) = 0.151391E+01
-PKER_SWETH( 12, 32) = 0.154861E+01
-PKER_SWETH( 12, 33) = 0.157992E+01
-PKER_SWETH( 12, 34) = 0.160825E+01
-PKER_SWETH( 12, 35) = 0.163395E+01
-PKER_SWETH( 12, 36) = 0.165735E+01
-PKER_SWETH( 12, 37) = 0.167873E+01
-PKER_SWETH( 12, 38) = 0.169832E+01
-PKER_SWETH( 12, 39) = 0.171635E+01
-PKER_SWETH( 12, 40) = 0.173297E+01
-PKER_SWETH( 12, 41) = 0.174834E+01
-PKER_SWETH( 12, 42) = 0.176259E+01
-PKER_SWETH( 12, 43) = 0.177582E+01
-PKER_SWETH( 12, 44) = 0.178812E+01
-PKER_SWETH( 12, 45) = 0.179959E+01
-PKER_SWETH( 12, 46) = 0.181028E+01
-PKER_SWETH( 12, 47) = 0.182026E+01
-PKER_SWETH( 12, 48) = 0.182960E+01
-PKER_SWETH( 12, 49) = 0.183832E+01
-PKER_SWETH( 12, 50) = 0.184649E+01
-PKER_SWETH( 12, 51) = 0.185414E+01
-PKER_SWETH( 12, 52) = 0.186130E+01
-PKER_SWETH( 12, 53) = 0.186801E+01
-PKER_SWETH( 12, 54) = 0.187430E+01
-PKER_SWETH( 12, 55) = 0.188021E+01
-PKER_SWETH( 12, 56) = 0.188574E+01
-PKER_SWETH( 12, 57) = 0.189093E+01
-PKER_SWETH( 12, 58) = 0.189580E+01
-PKER_SWETH( 12, 59) = 0.190037E+01
-PKER_SWETH( 12, 60) = 0.190466E+01
-PKER_SWETH( 12, 61) = 0.190869E+01
-PKER_SWETH( 12, 62) = 0.191247E+01
-PKER_SWETH( 12, 63) = 0.191601E+01
-PKER_SWETH( 12, 64) = 0.191934E+01
-PKER_SWETH( 12, 65) = 0.192247E+01
-PKER_SWETH( 12, 66) = 0.192540E+01
-PKER_SWETH( 12, 67) = 0.192815E+01
-PKER_SWETH( 12, 68) = 0.193074E+01
-PKER_SWETH( 12, 69) = 0.193317E+01
-PKER_SWETH( 12, 70) = 0.193545E+01
-PKER_SWETH( 12, 71) = 0.193759E+01
-PKER_SWETH( 12, 72) = 0.193960E+01
-PKER_SWETH( 12, 73) = 0.194149E+01
-PKER_SWETH( 12, 74) = 0.194326E+01
-PKER_SWETH( 12, 75) = 0.194492E+01
-PKER_SWETH( 12, 76) = 0.194648E+01
-PKER_SWETH( 12, 77) = 0.194795E+01
-PKER_SWETH( 12, 78) = 0.194933E+01
-PKER_SWETH( 12, 79) = 0.195062E+01
-PKER_SWETH( 12, 80) = 0.195183E+01
-PKER_SWETH( 13, 1) = 0.168479E+01
-PKER_SWETH( 13, 2) = 0.149223E+01
-PKER_SWETH( 13, 3) = 0.131178E+01
-PKER_SWETH( 13, 4) = 0.114318E+01
-PKER_SWETH( 13, 5) = 0.986502E+00
-PKER_SWETH( 13, 6) = 0.842330E+00
-PKER_SWETH( 13, 7) = 0.711777E+00
-PKER_SWETH( 13, 8) = 0.596438E+00
-PKER_SWETH( 13, 9) = 0.498240E+00
-PKER_SWETH( 13, 10) = 0.419186E+00
-PKER_SWETH( 13, 11) = 0.360884E+00
-PKER_SWETH( 13, 12) = 0.324082E+00
-PKER_SWETH( 13, 13) = 0.308477E+00
-PKER_SWETH( 13, 14) = 0.312993E+00
-PKER_SWETH( 13, 15) = 0.335025E+00
-PKER_SWETH( 13, 16) = 0.371680E+00
-PKER_SWETH( 13, 17) = 0.419845E+00
-PKER_SWETH( 13, 18) = 0.476331E+00
-PKER_SWETH( 13, 19) = 0.538496E+00
-PKER_SWETH( 13, 20) = 0.604102E+00
-PKER_SWETH( 13, 21) = 0.671400E+00
-PKER_SWETH( 13, 22) = 0.739062E+00
-PKER_SWETH( 13, 23) = 0.806033E+00
-PKER_SWETH( 13, 24) = 0.871408E+00
-PKER_SWETH( 13, 25) = 0.934369E+00
-PKER_SWETH( 13, 26) = 0.994201E+00
-PKER_SWETH( 13, 27) = 0.105032E+01
-PKER_SWETH( 13, 28) = 0.110232E+01
-PKER_SWETH( 13, 29) = 0.115001E+01
-PKER_SWETH( 13, 30) = 0.119341E+01
-PKER_SWETH( 13, 31) = 0.123271E+01
-PKER_SWETH( 13, 32) = 0.126820E+01
-PKER_SWETH( 13, 33) = 0.130023E+01
-PKER_SWETH( 13, 34) = 0.132918E+01
-PKER_SWETH( 13, 35) = 0.135541E+01
-PKER_SWETH( 13, 36) = 0.137925E+01
-PKER_SWETH( 13, 37) = 0.140098E+01
-PKER_SWETH( 13, 38) = 0.142086E+01
-PKER_SWETH( 13, 39) = 0.143911E+01
-PKER_SWETH( 13, 40) = 0.145591E+01
-PKER_SWETH( 13, 41) = 0.147142E+01
-PKER_SWETH( 13, 42) = 0.148578E+01
-PKER_SWETH( 13, 43) = 0.149910E+01
-PKER_SWETH( 13, 44) = 0.151147E+01
-PKER_SWETH( 13, 45) = 0.152298E+01
-PKER_SWETH( 13, 46) = 0.153372E+01
-PKER_SWETH( 13, 47) = 0.154373E+01
-PKER_SWETH( 13, 48) = 0.155309E+01
-PKER_SWETH( 13, 49) = 0.156184E+01
-PKER_SWETH( 13, 50) = 0.157002E+01
-PKER_SWETH( 13, 51) = 0.157768E+01
-PKER_SWETH( 13, 52) = 0.158485E+01
-PKER_SWETH( 13, 53) = 0.159157E+01
-PKER_SWETH( 13, 54) = 0.159787E+01
-PKER_SWETH( 13, 55) = 0.160377E+01
-PKER_SWETH( 13, 56) = 0.160931E+01
-PKER_SWETH( 13, 57) = 0.161451E+01
-PKER_SWETH( 13, 58) = 0.161938E+01
-PKER_SWETH( 13, 59) = 0.162395E+01
-PKER_SWETH( 13, 60) = 0.162824E+01
-PKER_SWETH( 13, 61) = 0.163227E+01
-PKER_SWETH( 13, 62) = 0.163605E+01
-PKER_SWETH( 13, 63) = 0.163959E+01
-PKER_SWETH( 13, 64) = 0.164292E+01
-PKER_SWETH( 13, 65) = 0.164605E+01
-PKER_SWETH( 13, 66) = 0.164898E+01
-PKER_SWETH( 13, 67) = 0.165174E+01
-PKER_SWETH( 13, 68) = 0.165432E+01
-PKER_SWETH( 13, 69) = 0.165675E+01
-PKER_SWETH( 13, 70) = 0.165903E+01
-PKER_SWETH( 13, 71) = 0.166117E+01
-PKER_SWETH( 13, 72) = 0.166318E+01
-PKER_SWETH( 13, 73) = 0.166507E+01
-PKER_SWETH( 13, 74) = 0.166684E+01
-PKER_SWETH( 13, 75) = 0.166850E+01
-PKER_SWETH( 13, 76) = 0.167007E+01
-PKER_SWETH( 13, 77) = 0.167153E+01
-PKER_SWETH( 13, 78) = 0.167291E+01
-PKER_SWETH( 13, 79) = 0.167420E+01
-PKER_SWETH( 13, 80) = 0.167542E+01
-PKER_SWETH( 14, 1) = 0.189106E+01
-PKER_SWETH( 14, 2) = 0.169828E+01
-PKER_SWETH( 14, 3) = 0.151724E+01
-PKER_SWETH( 14, 4) = 0.134728E+01
-PKER_SWETH( 14, 5) = 0.118787E+01
-PKER_SWETH( 14, 6) = 0.103869E+01
-PKER_SWETH( 14, 7) = 0.899664E+00
-PKER_SWETH( 14, 8) = 0.771152E+00
-PKER_SWETH( 14, 9) = 0.653915E+00
-PKER_SWETH( 14, 10) = 0.549229E+00
-PKER_SWETH( 14, 11) = 0.458726E+00
-PKER_SWETH( 14, 12) = 0.384162E+00
-PKER_SWETH( 14, 13) = 0.327214E+00
-PKER_SWETH( 14, 14) = 0.288898E+00
-PKER_SWETH( 14, 15) = 0.269417E+00
-PKER_SWETH( 14, 16) = 0.268018E+00
-PKER_SWETH( 14, 17) = 0.283099E+00
-PKER_SWETH( 14, 18) = 0.312281E+00
-PKER_SWETH( 14, 19) = 0.352665E+00
-PKER_SWETH( 14, 20) = 0.401510E+00
-PKER_SWETH( 14, 21) = 0.456229E+00
-PKER_SWETH( 14, 22) = 0.514536E+00
-PKER_SWETH( 14, 23) = 0.574635E+00
-PKER_SWETH( 14, 24) = 0.635018E+00
-PKER_SWETH( 14, 25) = 0.694493E+00
-PKER_SWETH( 14, 26) = 0.752055E+00
-PKER_SWETH( 14, 27) = 0.806900E+00
-PKER_SWETH( 14, 28) = 0.858415E+00
-PKER_SWETH( 14, 29) = 0.906197E+00
-PKER_SWETH( 14, 30) = 0.950060E+00
-PKER_SWETH( 14, 31) = 0.990018E+00
-PKER_SWETH( 14, 32) = 0.102624E+01
-PKER_SWETH( 14, 33) = 0.105899E+01
-PKER_SWETH( 14, 34) = 0.108860E+01
-PKER_SWETH( 14, 35) = 0.111540E+01
-PKER_SWETH( 14, 36) = 0.113971E+01
-PKER_SWETH( 14, 37) = 0.116183E+01
-PKER_SWETH( 14, 38) = 0.118203E+01
-PKER_SWETH( 14, 39) = 0.120054E+01
-PKER_SWETH( 14, 40) = 0.121754E+01
-PKER_SWETH( 14, 41) = 0.123321E+01
-PKER_SWETH( 14, 42) = 0.124769E+01
-PKER_SWETH( 14, 43) = 0.126111E+01
-PKER_SWETH( 14, 44) = 0.127356E+01
-PKER_SWETH( 14, 45) = 0.128513E+01
-PKER_SWETH( 14, 46) = 0.129591E+01
-PKER_SWETH( 14, 47) = 0.130596E+01
-PKER_SWETH( 14, 48) = 0.131535E+01
-PKER_SWETH( 14, 49) = 0.132412E+01
-PKER_SWETH( 14, 50) = 0.133232E+01
-PKER_SWETH( 14, 51) = 0.133999E+01
-PKER_SWETH( 14, 52) = 0.134717E+01
-PKER_SWETH( 14, 53) = 0.135390E+01
-PKER_SWETH( 14, 54) = 0.136020E+01
-PKER_SWETH( 14, 55) = 0.136611E+01
-PKER_SWETH( 14, 56) = 0.137166E+01
-PKER_SWETH( 14, 57) = 0.137685E+01
-PKER_SWETH( 14, 58) = 0.138173E+01
-PKER_SWETH( 14, 59) = 0.138630E+01
-PKER_SWETH( 14, 60) = 0.139059E+01
-PKER_SWETH( 14, 61) = 0.139462E+01
-PKER_SWETH( 14, 62) = 0.139840E+01
-PKER_SWETH( 14, 63) = 0.140195E+01
-PKER_SWETH( 14, 64) = 0.140528E+01
-PKER_SWETH( 14, 65) = 0.140841E+01
-PKER_SWETH( 14, 66) = 0.141134E+01
-PKER_SWETH( 14, 67) = 0.141410E+01
-PKER_SWETH( 14, 68) = 0.141668E+01
-PKER_SWETH( 14, 69) = 0.141911E+01
-PKER_SWETH( 14, 70) = 0.142139E+01
-PKER_SWETH( 14, 71) = 0.142353E+01
-PKER_SWETH( 14, 72) = 0.142554E+01
-PKER_SWETH( 14, 73) = 0.142743E+01
-PKER_SWETH( 14, 74) = 0.142920E+01
-PKER_SWETH( 14, 75) = 0.143086E+01
-PKER_SWETH( 14, 76) = 0.143242E+01
-PKER_SWETH( 14, 77) = 0.143389E+01
-PKER_SWETH( 14, 78) = 0.143527E+01
-PKER_SWETH( 14, 79) = 0.143656E+01
-PKER_SWETH( 14, 80) = 0.143777E+01
-PKER_SWETH( 15, 1) = 0.206851E+01
-PKER_SWETH( 15, 2) = 0.187578E+01
-PKER_SWETH( 15, 3) = 0.169474E+01
-PKER_SWETH( 15, 4) = 0.152469E+01
-PKER_SWETH( 15, 5) = 0.136497E+01
-PKER_SWETH( 15, 6) = 0.121496E+01
-PKER_SWETH( 15, 7) = 0.107417E+01
-PKER_SWETH( 15, 8) = 0.942229E+00
-PKER_SWETH( 15, 9) = 0.818993E+00
-PKER_SWETH( 15, 10) = 0.704619E+00
-PKER_SWETH( 15, 11) = 0.599635E+00
-PKER_SWETH( 15, 12) = 0.505012E+00
-PKER_SWETH( 15, 13) = 0.422101E+00
-PKER_SWETH( 15, 14) = 0.352467E+00
-PKER_SWETH( 15, 15) = 0.297703E+00
-PKER_SWETH( 15, 16) = 0.258998E+00
-PKER_SWETH( 15, 17) = 0.236959E+00
-PKER_SWETH( 15, 18) = 0.231267E+00
-PKER_SWETH( 15, 19) = 0.240828E+00
-PKER_SWETH( 15, 20) = 0.263715E+00
-PKER_SWETH( 15, 21) = 0.297593E+00
-PKER_SWETH( 15, 22) = 0.339817E+00
-PKER_SWETH( 15, 23) = 0.387934E+00
-PKER_SWETH( 15, 24) = 0.439655E+00
-PKER_SWETH( 15, 25) = 0.493057E+00
-PKER_SWETH( 15, 26) = 0.546554E+00
-PKER_SWETH( 15, 27) = 0.598863E+00
-PKER_SWETH( 15, 28) = 0.648998E+00
-PKER_SWETH( 15, 29) = 0.696248E+00
-PKER_SWETH( 15, 30) = 0.740165E+00
-PKER_SWETH( 15, 31) = 0.780538E+00
-PKER_SWETH( 15, 32) = 0.817363E+00
-PKER_SWETH( 15, 33) = 0.850785E+00
-PKER_SWETH( 15, 34) = 0.881046E+00
-PKER_SWETH( 15, 35) = 0.908438E+00
-PKER_SWETH( 15, 36) = 0.933267E+00
-PKER_SWETH( 15, 37) = 0.955825E+00
-PKER_SWETH( 15, 38) = 0.976380E+00
-PKER_SWETH( 15, 39) = 0.995170E+00
-PKER_SWETH( 15, 40) = 0.101240E+01
-PKER_SWETH( 15, 41) = 0.102825E+01
-PKER_SWETH( 15, 42) = 0.104288E+01
-PKER_SWETH( 15, 43) = 0.105640E+01
-PKER_SWETH( 15, 44) = 0.106894E+01
-PKER_SWETH( 15, 45) = 0.108059E+01
-PKER_SWETH( 15, 46) = 0.109142E+01
-PKER_SWETH( 15, 47) = 0.110151E+01
-PKER_SWETH( 15, 48) = 0.111093E+01
-PKER_SWETH( 15, 49) = 0.111972E+01
-PKER_SWETH( 15, 50) = 0.112794E+01
-PKER_SWETH( 15, 51) = 0.113563E+01
-PKER_SWETH( 15, 52) = 0.114282E+01
-PKER_SWETH( 15, 53) = 0.114956E+01
-PKER_SWETH( 15, 54) = 0.115587E+01
-PKER_SWETH( 15, 55) = 0.116179E+01
-PKER_SWETH( 15, 56) = 0.116733E+01
-PKER_SWETH( 15, 57) = 0.117253E+01
-PKER_SWETH( 15, 58) = 0.117741E+01
-PKER_SWETH( 15, 59) = 0.118199E+01
-PKER_SWETH( 15, 60) = 0.118628E+01
-PKER_SWETH( 15, 61) = 0.119031E+01
-PKER_SWETH( 15, 62) = 0.119409E+01
-PKER_SWETH( 15, 63) = 0.119764E+01
-PKER_SWETH( 15, 64) = 0.120097E+01
-PKER_SWETH( 15, 65) = 0.120410E+01
-PKER_SWETH( 15, 66) = 0.120703E+01
-PKER_SWETH( 15, 67) = 0.120979E+01
-PKER_SWETH( 15, 68) = 0.121237E+01
-PKER_SWETH( 15, 69) = 0.121480E+01
-PKER_SWETH( 15, 70) = 0.121708E+01
-PKER_SWETH( 15, 71) = 0.121922E+01
-PKER_SWETH( 15, 72) = 0.122123E+01
-PKER_SWETH( 15, 73) = 0.122312E+01
-PKER_SWETH( 15, 74) = 0.122489E+01
-PKER_SWETH( 15, 75) = 0.122656E+01
-PKER_SWETH( 15, 76) = 0.122812E+01
-PKER_SWETH( 15, 77) = 0.122958E+01
-PKER_SWETH( 15, 78) = 0.123096E+01
-PKER_SWETH( 15, 79) = 0.123225E+01
-PKER_SWETH( 15, 80) = 0.123347E+01
-PKER_SWETH( 16, 1) = 0.222105E+01
-PKER_SWETH( 16, 2) = 0.202837E+01
-PKER_SWETH( 16, 3) = 0.184739E+01
-PKER_SWETH( 16, 4) = 0.167741E+01
-PKER_SWETH( 16, 5) = 0.151773E+01
-PKER_SWETH( 16, 6) = 0.136773E+01
-PKER_SWETH( 16, 7) = 0.122679E+01
-PKER_SWETH( 16, 8) = 0.109439E+01
-PKER_SWETH( 16, 9) = 0.970044E+00
-PKER_SWETH( 16, 10) = 0.853387E+00
-PKER_SWETH( 16, 11) = 0.744213E+00
-PKER_SWETH( 16, 12) = 0.642547E+00
-PKER_SWETH( 16, 13) = 0.548734E+00
-PKER_SWETH( 16, 14) = 0.463499E+00
-PKER_SWETH( 16, 15) = 0.387925E+00
-PKER_SWETH( 16, 16) = 0.323415E+00
-PKER_SWETH( 16, 17) = 0.271432E+00
-PKER_SWETH( 16, 18) = 0.233220E+00
-PKER_SWETH( 16, 19) = 0.209657E+00
-PKER_SWETH( 16, 20) = 0.200923E+00
-PKER_SWETH( 16, 21) = 0.206127E+00
-PKER_SWETH( 16, 22) = 0.223993E+00
-PKER_SWETH( 16, 23) = 0.252341E+00
-PKER_SWETH( 16, 24) = 0.288839E+00
-PKER_SWETH( 16, 25) = 0.331067E+00
-PKER_SWETH( 16, 26) = 0.376740E+00
-PKER_SWETH( 16, 27) = 0.423873E+00
-PKER_SWETH( 16, 28) = 0.470831E+00
-PKER_SWETH( 16, 29) = 0.516360E+00
-PKER_SWETH( 16, 30) = 0.559563E+00
-PKER_SWETH( 16, 31) = 0.599884E+00
-PKER_SWETH( 16, 32) = 0.637048E+00
-PKER_SWETH( 16, 33) = 0.671007E+00
-PKER_SWETH( 16, 34) = 0.701874E+00
-PKER_SWETH( 16, 35) = 0.729862E+00
-PKER_SWETH( 16, 36) = 0.755230E+00
-PKER_SWETH( 16, 37) = 0.778255E+00
-PKER_SWETH( 16, 38) = 0.799202E+00
-PKER_SWETH( 16, 39) = 0.818313E+00
-PKER_SWETH( 16, 40) = 0.835804E+00
-PKER_SWETH( 16, 41) = 0.851863E+00
-PKER_SWETH( 16, 42) = 0.866650E+00
-PKER_SWETH( 16, 43) = 0.880303E+00
-PKER_SWETH( 16, 44) = 0.892941E+00
-PKER_SWETH( 16, 45) = 0.904664E+00
-PKER_SWETH( 16, 46) = 0.915558E+00
-PKER_SWETH( 16, 47) = 0.925699E+00
-PKER_SWETH( 16, 48) = 0.935152E+00
-PKER_SWETH( 16, 49) = 0.943974E+00
-PKER_SWETH( 16, 50) = 0.952215E+00
-PKER_SWETH( 16, 51) = 0.959919E+00
-PKER_SWETH( 16, 52) = 0.967128E+00
-PKER_SWETH( 16, 53) = 0.973876E+00
-PKER_SWETH( 16, 54) = 0.980196E+00
-PKER_SWETH( 16, 55) = 0.986118E+00
-PKER_SWETH( 16, 56) = 0.991669E+00
-PKER_SWETH( 16, 57) = 0.996874E+00
-PKER_SWETH( 16, 58) = 0.100175E+01
-PKER_SWETH( 16, 59) = 0.100633E+01
-PKER_SWETH( 16, 60) = 0.101063E+01
-PKER_SWETH( 16, 61) = 0.101466E+01
-PKER_SWETH( 16, 62) = 0.101844E+01
-PKER_SWETH( 16, 63) = 0.102199E+01
-PKER_SWETH( 16, 64) = 0.102532E+01
-PKER_SWETH( 16, 65) = 0.102845E+01
-PKER_SWETH( 16, 66) = 0.103138E+01
-PKER_SWETH( 16, 67) = 0.103414E+01
-PKER_SWETH( 16, 68) = 0.103673E+01
-PKER_SWETH( 16, 69) = 0.103916E+01
-PKER_SWETH( 16, 70) = 0.104144E+01
-PKER_SWETH( 16, 71) = 0.104358E+01
-PKER_SWETH( 16, 72) = 0.104559E+01
-PKER_SWETH( 16, 73) = 0.104747E+01
-PKER_SWETH( 16, 74) = 0.104925E+01
-PKER_SWETH( 16, 75) = 0.105091E+01
-PKER_SWETH( 16, 76) = 0.105247E+01
-PKER_SWETH( 16, 77) = 0.105394E+01
-PKER_SWETH( 16, 78) = 0.105531E+01
-PKER_SWETH( 16, 79) = 0.105661E+01
-PKER_SWETH( 16, 80) = 0.105782E+01
-PKER_SWETH( 17, 1) = 0.235216E+01
-PKER_SWETH( 17, 2) = 0.215952E+01
-PKER_SWETH( 17, 3) = 0.197860E+01
-PKER_SWETH( 17, 4) = 0.180867E+01
-PKER_SWETH( 17, 5) = 0.164907E+01
-PKER_SWETH( 17, 6) = 0.149914E+01
-PKER_SWETH( 17, 7) = 0.135829E+01
-PKER_SWETH( 17, 8) = 0.122594E+01
-PKER_SWETH( 17, 9) = 0.110158E+01
-PKER_SWETH( 17, 10) = 0.984701E+00
-PKER_SWETH( 17, 11) = 0.874876E+00
-PKER_SWETH( 17, 12) = 0.771739E+00
-PKER_SWETH( 17, 13) = 0.675054E+00
-PKER_SWETH( 17, 14) = 0.584764E+00
-PKER_SWETH( 17, 15) = 0.501058E+00
-PKER_SWETH( 17, 16) = 0.424483E+00
-PKER_SWETH( 17, 17) = 0.355906E+00
-PKER_SWETH( 17, 18) = 0.296493E+00
-PKER_SWETH( 17, 19) = 0.247642E+00
-PKER_SWETH( 17, 20) = 0.210649E+00
-PKER_SWETH( 17, 21) = 0.186453E+00
-PKER_SWETH( 17, 22) = 0.175549E+00
-PKER_SWETH( 17, 23) = 0.177592E+00
-PKER_SWETH( 17, 24) = 0.191285E+00
-PKER_SWETH( 17, 25) = 0.215005E+00
-PKER_SWETH( 17, 26) = 0.246505E+00
-PKER_SWETH( 17, 27) = 0.283441E+00
-PKER_SWETH( 17, 28) = 0.323511E+00
-PKER_SWETH( 17, 29) = 0.364750E+00
-PKER_SWETH( 17, 30) = 0.405561E+00
-PKER_SWETH( 17, 31) = 0.444783E+00
-PKER_SWETH( 17, 32) = 0.481674E+00
-PKER_SWETH( 17, 33) = 0.515838E+00
-PKER_SWETH( 17, 34) = 0.547151E+00
-PKER_SWETH( 17, 35) = 0.575673E+00
-PKER_SWETH( 17, 36) = 0.601576E+00
-PKER_SWETH( 17, 37) = 0.625091E+00
-PKER_SWETH( 17, 38) = 0.646461E+00
-PKER_SWETH( 17, 39) = 0.665927E+00
-PKER_SWETH( 17, 40) = 0.683709E+00
-PKER_SWETH( 17, 41) = 0.700001E+00
-PKER_SWETH( 17, 42) = 0.714974E+00
-PKER_SWETH( 17, 43) = 0.728775E+00
-PKER_SWETH( 17, 44) = 0.741528E+00
-PKER_SWETH( 17, 45) = 0.753341E+00
-PKER_SWETH( 17, 46) = 0.764305E+00
-PKER_SWETH( 17, 47) = 0.774501E+00
-PKER_SWETH( 17, 48) = 0.783997E+00
-PKER_SWETH( 17, 49) = 0.792851E+00
-PKER_SWETH( 17, 50) = 0.801118E+00
-PKER_SWETH( 17, 51) = 0.808842E+00
-PKER_SWETH( 17, 52) = 0.816066E+00
-PKER_SWETH( 17, 53) = 0.822826E+00
-PKER_SWETH( 17, 54) = 0.829156E+00
-PKER_SWETH( 17, 55) = 0.835085E+00
-PKER_SWETH( 17, 56) = 0.840642E+00
-PKER_SWETH( 17, 57) = 0.845851E+00
-PKER_SWETH( 17, 58) = 0.850735E+00
-PKER_SWETH( 17, 59) = 0.855316E+00
-PKER_SWETH( 17, 60) = 0.859613E+00
-PKER_SWETH( 17, 61) = 0.863645E+00
-PKER_SWETH( 17, 62) = 0.867428E+00
-PKER_SWETH( 17, 63) = 0.870979E+00
-PKER_SWETH( 17, 64) = 0.874311E+00
-PKER_SWETH( 17, 65) = 0.877439E+00
-PKER_SWETH( 17, 66) = 0.880375E+00
-PKER_SWETH( 17, 67) = 0.883131E+00
-PKER_SWETH( 17, 68) = 0.885718E+00
-PKER_SWETH( 17, 69) = 0.888147E+00
-PKER_SWETH( 17, 70) = 0.890427E+00
-PKER_SWETH( 17, 71) = 0.892568E+00
-PKER_SWETH( 17, 72) = 0.894578E+00
-PKER_SWETH( 17, 73) = 0.896465E+00
-PKER_SWETH( 17, 74) = 0.898237E+00
-PKER_SWETH( 17, 75) = 0.899901E+00
-PKER_SWETH( 17, 76) = 0.901463E+00
-PKER_SWETH( 17, 77) = 0.902929E+00
-PKER_SWETH( 17, 78) = 0.904307E+00
-PKER_SWETH( 17, 79) = 0.905600E+00
-PKER_SWETH( 17, 80) = 0.906814E+00
-PKER_SWETH( 18, 1) = 0.246485E+01
-PKER_SWETH( 18, 2) = 0.227225E+01
-PKER_SWETH( 18, 3) = 0.209136E+01
-PKER_SWETH( 18, 4) = 0.192149E+01
-PKER_SWETH( 18, 5) = 0.176194E+01
-PKER_SWETH( 18, 6) = 0.161208E+01
-PKER_SWETH( 18, 7) = 0.147130E+01
-PKER_SWETH( 18, 8) = 0.133905E+01
-PKER_SWETH( 18, 9) = 0.121479E+01
-PKER_SWETH( 18, 10) = 0.109802E+01
-PKER_SWETH( 18, 11) = 0.988254E+00
-PKER_SWETH( 18, 12) = 0.885064E+00
-PKER_SWETH( 18, 13) = 0.788046E+00
-PKER_SWETH( 18, 14) = 0.696856E+00
-PKER_SWETH( 18, 15) = 0.611240E+00
-PKER_SWETH( 18, 16) = 0.531085E+00
-PKER_SWETH( 18, 17) = 0.456489E+00
-PKER_SWETH( 18, 18) = 0.387822E+00
-PKER_SWETH( 18, 19) = 0.325787E+00
-PKER_SWETH( 18, 20) = 0.271388E+00
-PKER_SWETH( 18, 21) = 0.225865E+00
-PKER_SWETH( 18, 22) = 0.190524E+00
-PKER_SWETH( 18, 23) = 0.166451E+00
-PKER_SWETH( 18, 24) = 0.154224E+00
-PKER_SWETH( 18, 25) = 0.153728E+00
-PKER_SWETH( 18, 26) = 0.164235E+00
-PKER_SWETH( 18, 27) = 0.184044E+00
-PKER_SWETH( 18, 28) = 0.211126E+00
-PKER_SWETH( 18, 29) = 0.243228E+00
-PKER_SWETH( 18, 30) = 0.278092E+00
-PKER_SWETH( 18, 31) = 0.313828E+00
-PKER_SWETH( 18, 32) = 0.348949E+00
-PKER_SWETH( 18, 33) = 0.382443E+00
-PKER_SWETH( 18, 34) = 0.413728E+00
-PKER_SWETH( 18, 35) = 0.442554E+00
-PKER_SWETH( 18, 36) = 0.468900E+00
-PKER_SWETH( 18, 37) = 0.492882E+00
-PKER_SWETH( 18, 38) = 0.514690E+00
-PKER_SWETH( 18, 39) = 0.534538E+00
-PKER_SWETH( 18, 40) = 0.552641E+00
-PKER_SWETH( 18, 41) = 0.569197E+00
-PKER_SWETH( 18, 42) = 0.584381E+00
-PKER_SWETH( 18, 43) = 0.598350E+00
-PKER_SWETH( 18, 44) = 0.611236E+00
-PKER_SWETH( 18, 45) = 0.623153E+00
-PKER_SWETH( 18, 46) = 0.634198E+00
-PKER_SWETH( 18, 47) = 0.644457E+00
-PKER_SWETH( 18, 48) = 0.654002E+00
-PKER_SWETH( 18, 49) = 0.662895E+00
-PKER_SWETH( 18, 50) = 0.671191E+00
-PKER_SWETH( 18, 51) = 0.678938E+00
-PKER_SWETH( 18, 52) = 0.686179E+00
-PKER_SWETH( 18, 53) = 0.692953E+00
-PKER_SWETH( 18, 54) = 0.699294E+00
-PKER_SWETH( 18, 55) = 0.705231E+00
-PKER_SWETH( 18, 56) = 0.710794E+00
-PKER_SWETH( 18, 57) = 0.716008E+00
-PKER_SWETH( 18, 58) = 0.720896E+00
-PKER_SWETH( 18, 59) = 0.725480E+00
-PKER_SWETH( 18, 60) = 0.729780E+00
-PKER_SWETH( 18, 61) = 0.733814E+00
-PKER_SWETH( 18, 62) = 0.737598E+00
-PKER_SWETH( 18, 63) = 0.741150E+00
-PKER_SWETH( 18, 64) = 0.744483E+00
-PKER_SWETH( 18, 65) = 0.747611E+00
-PKER_SWETH( 18, 66) = 0.750548E+00
-PKER_SWETH( 18, 67) = 0.753304E+00
-PKER_SWETH( 18, 68) = 0.755892E+00
-PKER_SWETH( 18, 69) = 0.758321E+00
-PKER_SWETH( 18, 70) = 0.760601E+00
-PKER_SWETH( 18, 71) = 0.762742E+00
-PKER_SWETH( 18, 72) = 0.764752E+00
-PKER_SWETH( 18, 73) = 0.766640E+00
-PKER_SWETH( 18, 74) = 0.768412E+00
-PKER_SWETH( 18, 75) = 0.770075E+00
-PKER_SWETH( 18, 76) = 0.771638E+00
-PKER_SWETH( 18, 77) = 0.773104E+00
-PKER_SWETH( 18, 78) = 0.774481E+00
-PKER_SWETH( 18, 79) = 0.775774E+00
-PKER_SWETH( 18, 80) = 0.776989E+00
-PKER_SWETH( 19, 1) = 0.256173E+01
-PKER_SWETH( 19, 2) = 0.236914E+01
-PKER_SWETH( 19, 3) = 0.218829E+01
-PKER_SWETH( 19, 4) = 0.201844E+01
-PKER_SWETH( 19, 5) = 0.185894E+01
-PKER_SWETH( 19, 6) = 0.170913E+01
-PKER_SWETH( 19, 7) = 0.156841E+01
-PKER_SWETH( 19, 8) = 0.143624E+01
-PKER_SWETH( 19, 9) = 0.131207E+01
-PKER_SWETH( 19, 10) = 0.119540E+01
-PKER_SWETH( 19, 11) = 0.108576E+01
-PKER_SWETH( 19, 12) = 0.982703E+00
-PKER_SWETH( 19, 13) = 0.885808E+00
-PKER_SWETH( 19, 14) = 0.794678E+00
-PKER_SWETH( 19, 15) = 0.708950E+00
-PKER_SWETH( 19, 16) = 0.628301E+00
-PKER_SWETH( 19, 17) = 0.552477E+00
-PKER_SWETH( 19, 18) = 0.481331E+00
-PKER_SWETH( 19, 19) = 0.414882E+00
-PKER_SWETH( 19, 20) = 0.353398E+00
-PKER_SWETH( 19, 21) = 0.297416E+00
-PKER_SWETH( 19, 22) = 0.247807E+00
-PKER_SWETH( 19, 23) = 0.205699E+00
-PKER_SWETH( 19, 24) = 0.172316E+00
-PKER_SWETH( 19, 25) = 0.148819E+00
-PKER_SWETH( 19, 26) = 0.135924E+00
-PKER_SWETH( 19, 27) = 0.133720E+00
-PKER_SWETH( 19, 28) = 0.141549E+00
-PKER_SWETH( 19, 29) = 0.158042E+00
-PKER_SWETH( 19, 30) = 0.181252E+00
-PKER_SWETH( 19, 31) = 0.208933E+00
-PKER_SWETH( 19, 32) = 0.239000E+00
-PKER_SWETH( 19, 33) = 0.269677E+00
-PKER_SWETH( 19, 34) = 0.299634E+00
-PKER_SWETH( 19, 35) = 0.328045E+00
-PKER_SWETH( 19, 36) = 0.354467E+00
-PKER_SWETH( 19, 37) = 0.378756E+00
-PKER_SWETH( 19, 38) = 0.400947E+00
-PKER_SWETH( 19, 39) = 0.421175E+00
-PKER_SWETH( 19, 40) = 0.439618E+00
-PKER_SWETH( 19, 41) = 0.456462E+00
-PKER_SWETH( 19, 42) = 0.471885E+00
-PKER_SWETH( 19, 43) = 0.486045E+00
-PKER_SWETH( 19, 44) = 0.499082E+00
-PKER_SWETH( 19, 45) = 0.511119E+00
-PKER_SWETH( 19, 46) = 0.522259E+00
-PKER_SWETH( 19, 47) = 0.532591E+00
-PKER_SWETH( 19, 48) = 0.542192E+00
-PKER_SWETH( 19, 49) = 0.551129E+00
-PKER_SWETH( 19, 50) = 0.559459E+00
-PKER_SWETH( 19, 51) = 0.567233E+00
-PKER_SWETH( 19, 52) = 0.574495E+00
-PKER_SWETH( 19, 53) = 0.581285E+00
-PKER_SWETH( 19, 54) = 0.587637E+00
-PKER_SWETH( 19, 55) = 0.593585E+00
-PKER_SWETH( 19, 56) = 0.599155E+00
-PKER_SWETH( 19, 57) = 0.604374E+00
-PKER_SWETH( 19, 58) = 0.609267E+00
-PKER_SWETH( 19, 59) = 0.613855E+00
-PKER_SWETH( 19, 60) = 0.618157E+00
-PKER_SWETH( 19, 61) = 0.622193E+00
-PKER_SWETH( 19, 62) = 0.625979E+00
-PKER_SWETH( 19, 63) = 0.629532E+00
-PKER_SWETH( 19, 64) = 0.632866E+00
-PKER_SWETH( 19, 65) = 0.635995E+00
-PKER_SWETH( 19, 66) = 0.638932E+00
-PKER_SWETH( 19, 67) = 0.641689E+00
-PKER_SWETH( 19, 68) = 0.644277E+00
-PKER_SWETH( 19, 69) = 0.646706E+00
-PKER_SWETH( 19, 70) = 0.648987E+00
-PKER_SWETH( 19, 71) = 0.651128E+00
-PKER_SWETH( 19, 72) = 0.653138E+00
-PKER_SWETH( 19, 73) = 0.655026E+00
-PKER_SWETH( 19, 74) = 0.656798E+00
-PKER_SWETH( 19, 75) = 0.658461E+00
-PKER_SWETH( 19, 76) = 0.660024E+00
-PKER_SWETH( 19, 77) = 0.661490E+00
-PKER_SWETH( 19, 78) = 0.662868E+00
-PKER_SWETH( 19, 79) = 0.664161E+00
-PKER_SWETH( 19, 80) = 0.665375E+00
-PKER_SWETH( 20, 1) = 0.264500E+01
-PKER_SWETH( 20, 2) = 0.245243E+01
-PKER_SWETH( 20, 3) = 0.227160E+01
-PKER_SWETH( 20, 4) = 0.210178E+01
-PKER_SWETH( 20, 5) = 0.194230E+01
-PKER_SWETH( 20, 6) = 0.179253E+01
-PKER_SWETH( 20, 7) = 0.165187E+01
-PKER_SWETH( 20, 8) = 0.151975E+01
-PKER_SWETH( 20, 9) = 0.139564E+01
-PKER_SWETH( 20, 10) = 0.127905E+01
-PKER_SWETH( 20, 11) = 0.116951E+01
-PKER_SWETH( 20, 12) = 0.106658E+01
-PKER_SWETH( 20, 13) = 0.969820E+00
-PKER_SWETH( 20, 14) = 0.878851E+00
-PKER_SWETH( 20, 15) = 0.793291E+00
-PKER_SWETH( 20, 16) = 0.712786E+00
-PKER_SWETH( 20, 17) = 0.637005E+00
-PKER_SWETH( 20, 18) = 0.565650E+00
-PKER_SWETH( 20, 19) = 0.498472E+00
-PKER_SWETH( 20, 20) = 0.435308E+00
-PKER_SWETH( 20, 21) = 0.376129E+00
-PKER_SWETH( 20, 22) = 0.321110E+00
-PKER_SWETH( 20, 23) = 0.270680E+00
-PKER_SWETH( 20, 24) = 0.225582E+00
-PKER_SWETH( 20, 25) = 0.186836E+00
-PKER_SWETH( 20, 26) = 0.155610E+00
-PKER_SWETH( 20, 27) = 0.133055E+00
-PKER_SWETH( 20, 28) = 0.119975E+00
-PKER_SWETH( 20, 29) = 0.116599E+00
-PKER_SWETH( 20, 30) = 0.122369E+00
-PKER_SWETH( 20, 31) = 0.136033E+00
-PKER_SWETH( 20, 32) = 0.155727E+00
-PKER_SWETH( 20, 33) = 0.179407E+00
-PKER_SWETH( 20, 34) = 0.205090E+00
-PKER_SWETH( 20, 35) = 0.231197E+00
-PKER_SWETH( 20, 36) = 0.256588E+00
-PKER_SWETH( 20, 37) = 0.280587E+00
-PKER_SWETH( 20, 38) = 0.302872E+00
-PKER_SWETH( 20, 39) = 0.323359E+00
-PKER_SWETH( 20, 40) = 0.342106E+00
-PKER_SWETH( 20, 41) = 0.359241E+00
-PKER_SWETH( 20, 42) = 0.374919E+00
-PKER_SWETH( 20, 43) = 0.389291E+00
-PKER_SWETH( 20, 44) = 0.402502E+00
-PKER_SWETH( 20, 45) = 0.414676E+00
-PKER_SWETH( 20, 46) = 0.425924E+00
-PKER_SWETH( 20, 47) = 0.436341E+00
-PKER_SWETH( 20, 48) = 0.446009E+00
-PKER_SWETH( 20, 49) = 0.454997E+00
-PKER_SWETH( 20, 50) = 0.463367E+00
-PKER_SWETH( 20, 51) = 0.471171E+00
-PKER_SWETH( 20, 52) = 0.478457E+00
-PKER_SWETH( 20, 53) = 0.485265E+00
-PKER_SWETH( 20, 54) = 0.491632E+00
-PKER_SWETH( 20, 55) = 0.497590E+00
-PKER_SWETH( 20, 56) = 0.503169E+00
-PKER_SWETH( 20, 57) = 0.508395E+00
-PKER_SWETH( 20, 58) = 0.513293E+00
-PKER_SWETH( 20, 59) = 0.517884E+00
-PKER_SWETH( 20, 60) = 0.522189E+00
-PKER_SWETH( 20, 61) = 0.526227E+00
-PKER_SWETH( 20, 62) = 0.530016E+00
-PKER_SWETH( 20, 63) = 0.533570E+00
-PKER_SWETH( 20, 64) = 0.536905E+00
-PKER_SWETH( 20, 65) = 0.540035E+00
-PKER_SWETH( 20, 66) = 0.542973E+00
-PKER_SWETH( 20, 67) = 0.545730E+00
-PKER_SWETH( 20, 68) = 0.548318E+00
-PKER_SWETH( 20, 69) = 0.550748E+00
-PKER_SWETH( 20, 70) = 0.553029E+00
-PKER_SWETH( 20, 71) = 0.555170E+00
-PKER_SWETH( 20, 72) = 0.557181E+00
-PKER_SWETH( 20, 73) = 0.559068E+00
-PKER_SWETH( 20, 74) = 0.560840E+00
-PKER_SWETH( 20, 75) = 0.562504E+00
-PKER_SWETH( 20, 76) = 0.564067E+00
-PKER_SWETH( 20, 77) = 0.565533E+00
-PKER_SWETH( 20, 78) = 0.566911E+00
-PKER_SWETH( 20, 79) = 0.568204E+00
-PKER_SWETH( 20, 80) = 0.569418E+00
-PKER_SWETH( 21, 1) = 0.271658E+01
-PKER_SWETH( 21, 2) = 0.252403E+01
-PKER_SWETH( 21, 3) = 0.234321E+01
-PKER_SWETH( 21, 4) = 0.217341E+01
-PKER_SWETH( 21, 5) = 0.201396E+01
-PKER_SWETH( 21, 6) = 0.186421E+01
-PKER_SWETH( 21, 7) = 0.172358E+01
-PKER_SWETH( 21, 8) = 0.159150E+01
-PKER_SWETH( 21, 9) = 0.146745E+01
-PKER_SWETH( 21, 10) = 0.135092E+01
-PKER_SWETH( 21, 11) = 0.124145E+01
-PKER_SWETH( 21, 12) = 0.113861E+01
-PKER_SWETH( 21, 13) = 0.104196E+01
-PKER_SWETH( 21, 14) = 0.951122E+00
-PKER_SWETH( 21, 15) = 0.865719E+00
-PKER_SWETH( 21, 16) = 0.785398E+00
-PKER_SWETH( 21, 17) = 0.709821E+00
-PKER_SWETH( 21, 18) = 0.638672E+00
-PKER_SWETH( 21, 19) = 0.571650E+00
-PKER_SWETH( 21, 20) = 0.508481E+00
-PKER_SWETH( 21, 21) = 0.448928E+00
-PKER_SWETH( 21, 22) = 0.392821E+00
-PKER_SWETH( 21, 23) = 0.340101E+00
-PKER_SWETH( 21, 24) = 0.290879E+00
-PKER_SWETH( 21, 25) = 0.245501E+00
-PKER_SWETH( 21, 26) = 0.204609E+00
-PKER_SWETH( 21, 27) = 0.169114E+00
-PKER_SWETH( 21, 28) = 0.140143E+00
-PKER_SWETH( 21, 29) = 0.118804E+00
-PKER_SWETH( 21, 30) = 0.105905E+00
-PKER_SWETH( 21, 31) = 0.101754E+00
-PKER_SWETH( 21, 32) = 0.105915E+00
-PKER_SWETH( 21, 33) = 0.117110E+00
-PKER_SWETH( 21, 34) = 0.133717E+00
-PKER_SWETH( 21, 35) = 0.153768E+00
-PKER_SWETH( 21, 36) = 0.175523E+00
-PKER_SWETH( 21, 37) = 0.197593E+00
-PKER_SWETH( 21, 38) = 0.219023E+00
-PKER_SWETH( 21, 39) = 0.239267E+00
-PKER_SWETH( 21, 40) = 0.258077E+00
-PKER_SWETH( 21, 41) = 0.275405E+00
-PKER_SWETH( 21, 42) = 0.291307E+00
-PKER_SWETH( 21, 43) = 0.305894E+00
-PKER_SWETH( 21, 44) = 0.319290E+00
-PKER_SWETH( 21, 45) = 0.331618E+00
-PKER_SWETH( 21, 46) = 0.342990E+00
-PKER_SWETH( 21, 47) = 0.353504E+00
-PKER_SWETH( 21, 48) = 0.363248E+00
-PKER_SWETH( 21, 49) = 0.372296E+00
-PKER_SWETH( 21, 50) = 0.380712E+00
-PKER_SWETH( 21, 51) = 0.388553E+00
-PKER_SWETH( 21, 52) = 0.395866E+00
-PKER_SWETH( 21, 53) = 0.402696E+00
-PKER_SWETH( 21, 54) = 0.409079E+00
-PKER_SWETH( 21, 55) = 0.415050E+00
-PKER_SWETH( 21, 56) = 0.420639E+00
-PKER_SWETH( 21, 57) = 0.425872E+00
-PKER_SWETH( 21, 58) = 0.430776E+00
-PKER_SWETH( 21, 59) = 0.435372E+00
-PKER_SWETH( 21, 60) = 0.439681E+00
-PKER_SWETH( 21, 61) = 0.443722E+00
-PKER_SWETH( 21, 62) = 0.447512E+00
-PKER_SWETH( 21, 63) = 0.451068E+00
-PKER_SWETH( 21, 64) = 0.454404E+00
-PKER_SWETH( 21, 65) = 0.457535E+00
-PKER_SWETH( 21, 66) = 0.460473E+00
-PKER_SWETH( 21, 67) = 0.463231E+00
-PKER_SWETH( 21, 68) = 0.465820E+00
-PKER_SWETH( 21, 69) = 0.468250E+00
-PKER_SWETH( 21, 70) = 0.470532E+00
-PKER_SWETH( 21, 71) = 0.472673E+00
-PKER_SWETH( 21, 72) = 0.474684E+00
-PKER_SWETH( 21, 73) = 0.476571E+00
-PKER_SWETH( 21, 74) = 0.478344E+00
-PKER_SWETH( 21, 75) = 0.480008E+00
-PKER_SWETH( 21, 76) = 0.481570E+00
-PKER_SWETH( 21, 77) = 0.483037E+00
-PKER_SWETH( 21, 78) = 0.484414E+00
-PKER_SWETH( 21, 79) = 0.485707E+00
-PKER_SWETH( 21, 80) = 0.486921E+00
-PKER_SWETH( 22, 1) = 0.277812E+01
-PKER_SWETH( 22, 2) = 0.258557E+01
-PKER_SWETH( 22, 3) = 0.240477E+01
-PKER_SWETH( 22, 4) = 0.223498E+01
-PKER_SWETH( 22, 5) = 0.207555E+01
-PKER_SWETH( 22, 6) = 0.192582E+01
-PKER_SWETH( 22, 7) = 0.178522E+01
-PKER_SWETH( 22, 8) = 0.165317E+01
-PKER_SWETH( 22, 9) = 0.152915E+01
-PKER_SWETH( 22, 10) = 0.141267E+01
-PKER_SWETH( 22, 11) = 0.130326E+01
-PKER_SWETH( 22, 12) = 0.120048E+01
-PKER_SWETH( 22, 13) = 0.110391E+01
-PKER_SWETH( 22, 14) = 0.101317E+01
-PKER_SWETH( 22, 15) = 0.927888E+00
-PKER_SWETH( 22, 16) = 0.847710E+00
-PKER_SWETH( 22, 17) = 0.772307E+00
-PKER_SWETH( 22, 18) = 0.701363E+00
-PKER_SWETH( 22, 19) = 0.634577E+00
-PKER_SWETH( 22, 20) = 0.571663E+00
-PKER_SWETH( 22, 21) = 0.512351E+00
-PKER_SWETH( 22, 22) = 0.456387E+00
-PKER_SWETH( 22, 23) = 0.403551E+00
-PKER_SWETH( 22, 24) = 0.353674E+00
-PKER_SWETH( 22, 25) = 0.306679E+00
-PKER_SWETH( 22, 26) = 0.262639E+00
-PKER_SWETH( 22, 27) = 0.221831E+00
-PKER_SWETH( 22, 28) = 0.184828E+00
-PKER_SWETH( 22, 29) = 0.152460E+00
-PKER_SWETH( 22, 30) = 0.125752E+00
-PKER_SWETH( 22, 31) = 0.105794E+00
-PKER_SWETH( 22, 32) = 0.933885E-01
-PKER_SWETH( 22, 33) = 0.887837E-01
-PKER_SWETH( 22, 34) = 0.916083E-01
-PKER_SWETH( 22, 35) = 0.100750E+00
-PKER_SWETH( 22, 36) = 0.114556E+00
-PKER_SWETH( 22, 37) = 0.131388E+00
-PKER_SWETH( 22, 38) = 0.149687E+00
-PKER_SWETH( 22, 39) = 0.168264E+00
-PKER_SWETH( 22, 40) = 0.186315E+00
-PKER_SWETH( 22, 41) = 0.203399E+00
-PKER_SWETH( 22, 42) = 0.219317E+00
-PKER_SWETH( 22, 43) = 0.234029E+00
-PKER_SWETH( 22, 44) = 0.247581E+00
-PKER_SWETH( 22, 45) = 0.260059E+00
-PKER_SWETH( 22, 46) = 0.271563E+00
-PKER_SWETH( 22, 47) = 0.282186E+00
-PKER_SWETH( 22, 48) = 0.292018E+00
-PKER_SWETH( 22, 49) = 0.301134E+00
-PKER_SWETH( 22, 50) = 0.309604E+00
-PKER_SWETH( 22, 51) = 0.317487E+00
-PKER_SWETH( 22, 52) = 0.324833E+00
-PKER_SWETH( 22, 53) = 0.331687E+00
-PKER_SWETH( 22, 54) = 0.338090E+00
-PKER_SWETH( 22, 55) = 0.344075E+00
-PKER_SWETH( 22, 56) = 0.349675E+00
-PKER_SWETH( 22, 57) = 0.354918E+00
-PKER_SWETH( 22, 58) = 0.359828E+00
-PKER_SWETH( 22, 59) = 0.364430E+00
-PKER_SWETH( 22, 60) = 0.368743E+00
-PKER_SWETH( 22, 61) = 0.372787E+00
-PKER_SWETH( 22, 62) = 0.376579E+00
-PKER_SWETH( 22, 63) = 0.380137E+00
-PKER_SWETH( 22, 64) = 0.383475E+00
-PKER_SWETH( 22, 65) = 0.386607E+00
-PKER_SWETH( 22, 66) = 0.389546E+00
-PKER_SWETH( 22, 67) = 0.392305E+00
-PKER_SWETH( 22, 68) = 0.394894E+00
-PKER_SWETH( 22, 69) = 0.397325E+00
-PKER_SWETH( 22, 70) = 0.399606E+00
-PKER_SWETH( 22, 71) = 0.401748E+00
-PKER_SWETH( 22, 72) = 0.403759E+00
-PKER_SWETH( 22, 73) = 0.405647E+00
-PKER_SWETH( 22, 74) = 0.407419E+00
-PKER_SWETH( 22, 75) = 0.409083E+00
-PKER_SWETH( 22, 76) = 0.410645E+00
-PKER_SWETH( 22, 77) = 0.412112E+00
-PKER_SWETH( 22, 78) = 0.413490E+00
-PKER_SWETH( 22, 79) = 0.414783E+00
-PKER_SWETH( 22, 80) = 0.415997E+00
-PKER_SWETH( 23, 1) = 0.283102E+01
-PKER_SWETH( 23, 2) = 0.263848E+01
-PKER_SWETH( 23, 3) = 0.245768E+01
-PKER_SWETH( 23, 4) = 0.228791E+01
-PKER_SWETH( 23, 5) = 0.212849E+01
-PKER_SWETH( 23, 6) = 0.197878E+01
-PKER_SWETH( 23, 7) = 0.183819E+01
-PKER_SWETH( 23, 8) = 0.170617E+01
-PKER_SWETH( 23, 9) = 0.158218E+01
-PKER_SWETH( 23, 10) = 0.146573E+01
-PKER_SWETH( 23, 11) = 0.135636E+01
-PKER_SWETH( 23, 12) = 0.125363E+01
-PKER_SWETH( 23, 13) = 0.115712E+01
-PKER_SWETH( 23, 14) = 0.106646E+01
-PKER_SWETH( 23, 15) = 0.981260E+00
-PKER_SWETH( 23, 16) = 0.901190E+00
-PKER_SWETH( 23, 17) = 0.825917E+00
-PKER_SWETH( 23, 18) = 0.755130E+00
-PKER_SWETH( 23, 19) = 0.688534E+00
-PKER_SWETH( 23, 20) = 0.625847E+00
-PKER_SWETH( 23, 21) = 0.566798E+00
-PKER_SWETH( 23, 22) = 0.511131E+00
-PKER_SWETH( 23, 23) = 0.458600E+00
-PKER_SWETH( 23, 24) = 0.408976E+00
-PKER_SWETH( 23, 25) = 0.362052E+00
-PKER_SWETH( 23, 26) = 0.317669E+00
-PKER_SWETH( 23, 27) = 0.275744E+00
-PKER_SWETH( 23, 28) = 0.236322E+00
-PKER_SWETH( 23, 29) = 0.199652E+00
-PKER_SWETH( 23, 30) = 0.166228E+00
-PKER_SWETH( 23, 31) = 0.136821E+00
-PKER_SWETH( 23, 32) = 0.112388E+00
-PKER_SWETH( 23, 33) = 0.939206E-01
-PKER_SWETH( 23, 34) = 0.821751E-01
-PKER_SWETH( 23, 35) = 0.773938E-01
-PKER_SWETH( 23, 36) = 0.791534E-01
-PKER_SWETH( 23, 37) = 0.864193E-01
-PKER_SWETH( 23, 38) = 0.978352E-01
-PKER_SWETH( 23, 39) = 0.111845E+00
-PKER_SWETH( 23, 40) = 0.127143E+00
-PKER_SWETH( 23, 41) = 0.142733E+00
-PKER_SWETH( 23, 42) = 0.157936E+00
-PKER_SWETH( 23, 43) = 0.172382E+00
-PKER_SWETH( 23, 44) = 0.185898E+00
-PKER_SWETH( 23, 45) = 0.198442E+00
-PKER_SWETH( 23, 46) = 0.210045E+00
-PKER_SWETH( 23, 47) = 0.220770E+00
-PKER_SWETH( 23, 48) = 0.230692E+00
-PKER_SWETH( 23, 49) = 0.239885E+00
-PKER_SWETH( 23, 50) = 0.248416E+00
-PKER_SWETH( 23, 51) = 0.256346E+00
-PKER_SWETH( 23, 52) = 0.263730E+00
-PKER_SWETH( 23, 53) = 0.270613E+00
-PKER_SWETH( 23, 54) = 0.277038E+00
-PKER_SWETH( 23, 55) = 0.283042E+00
-PKER_SWETH( 23, 56) = 0.288655E+00
-PKER_SWETH( 23, 57) = 0.293908E+00
-PKER_SWETH( 23, 58) = 0.298826E+00
-PKER_SWETH( 23, 59) = 0.303434E+00
-PKER_SWETH( 23, 60) = 0.307751E+00
-PKER_SWETH( 23, 61) = 0.311799E+00
-PKER_SWETH( 23, 62) = 0.315594E+00
-PKER_SWETH( 23, 63) = 0.319154E+00
-PKER_SWETH( 23, 64) = 0.322494E+00
-PKER_SWETH( 23, 65) = 0.325627E+00
-PKER_SWETH( 23, 66) = 0.328568E+00
-PKER_SWETH( 23, 67) = 0.331327E+00
-PKER_SWETH( 23, 68) = 0.333917E+00
-PKER_SWETH( 23, 69) = 0.336348E+00
-PKER_SWETH( 23, 70) = 0.338630E+00
-PKER_SWETH( 23, 71) = 0.340772E+00
-PKER_SWETH( 23, 72) = 0.342783E+00
-PKER_SWETH( 23, 73) = 0.344671E+00
-PKER_SWETH( 23, 74) = 0.346443E+00
-PKER_SWETH( 23, 75) = 0.348107E+00
-PKER_SWETH( 23, 76) = 0.349670E+00
-PKER_SWETH( 23, 77) = 0.351137E+00
-PKER_SWETH( 23, 78) = 0.352514E+00
-PKER_SWETH( 23, 79) = 0.353807E+00
-PKER_SWETH( 23, 80) = 0.355022E+00
-PKER_SWETH( 24, 1) = 0.287649E+01
-PKER_SWETH( 24, 2) = 0.268396E+01
-PKER_SWETH( 24, 3) = 0.250317E+01
-PKER_SWETH( 24, 4) = 0.233341E+01
-PKER_SWETH( 24, 5) = 0.217399E+01
-PKER_SWETH( 24, 6) = 0.202430E+01
-PKER_SWETH( 24, 7) = 0.188372E+01
-PKER_SWETH( 24, 8) = 0.175172E+01
-PKER_SWETH( 24, 9) = 0.162775E+01
-PKER_SWETH( 24, 10) = 0.151133E+01
-PKER_SWETH( 24, 11) = 0.140199E+01
-PKER_SWETH( 24, 12) = 0.129929E+01
-PKER_SWETH( 24, 13) = 0.120283E+01
-PKER_SWETH( 24, 14) = 0.111222E+01
-PKER_SWETH( 24, 15) = 0.102709E+01
-PKER_SWETH( 24, 16) = 0.947100E+00
-PKER_SWETH( 24, 17) = 0.871925E+00
-PKER_SWETH( 24, 18) = 0.801255E+00
-PKER_SWETH( 24, 19) = 0.734802E+00
-PKER_SWETH( 24, 20) = 0.672286E+00
-PKER_SWETH( 24, 21) = 0.613444E+00
-PKER_SWETH( 24, 22) = 0.558025E+00
-PKER_SWETH( 24, 23) = 0.505784E+00
-PKER_SWETH( 24, 24) = 0.456492E+00
-PKER_SWETH( 24, 25) = 0.409924E+00
-PKER_SWETH( 24, 26) = 0.365874E+00
-PKER_SWETH( 24, 27) = 0.324153E+00
-PKER_SWETH( 24, 28) = 0.284613E+00
-PKER_SWETH( 24, 29) = 0.247175E+00
-PKER_SWETH( 24, 30) = 0.211878E+00
-PKER_SWETH( 24, 31) = 0.178940E+00
-PKER_SWETH( 24, 32) = 0.148822E+00
-PKER_SWETH( 24, 33) = 0.122216E+00
-PKER_SWETH( 24, 34) = 0.100012E+00
-PKER_SWETH( 24, 35) = 0.831056E-01
-PKER_SWETH( 24, 36) = 0.721377E-01
-PKER_SWETH( 24, 37) = 0.673132E-01
-PKER_SWETH( 24, 38) = 0.682186E-01
-PKER_SWETH( 24, 39) = 0.739244E-01
-PKER_SWETH( 24, 40) = 0.832005E-01
-PKER_SWETH( 24, 41) = 0.947760E-01
-PKER_SWETH( 24, 42) = 0.107532E+00
-PKER_SWETH( 24, 43) = 0.120598E+00
-PKER_SWETH( 24, 44) = 0.133420E+00
-PKER_SWETH( 24, 45) = 0.145669E+00
-PKER_SWETH( 24, 46) = 0.157186E+00
-PKER_SWETH( 24, 47) = 0.167927E+00
-PKER_SWETH( 24, 48) = 0.177903E+00
-PKER_SWETH( 24, 49) = 0.187160E+00
-PKER_SWETH( 24, 50) = 0.195752E+00
-PKER_SWETH( 24, 51) = 0.203734E+00
-PKER_SWETH( 24, 52) = 0.211160E+00
-PKER_SWETH( 24, 53) = 0.218077E+00
-PKER_SWETH( 24, 54) = 0.224528E+00
-PKER_SWETH( 24, 55) = 0.230551E+00
-PKER_SWETH( 24, 56) = 0.236181E+00
-PKER_SWETH( 24, 57) = 0.241446E+00
-PKER_SWETH( 24, 58) = 0.246373E+00
-PKER_SWETH( 24, 59) = 0.250988E+00
-PKER_SWETH( 24, 60) = 0.255311E+00
-PKER_SWETH( 24, 61) = 0.259363E+00
-PKER_SWETH( 24, 62) = 0.263162E+00
-PKER_SWETH( 24, 63) = 0.266724E+00
-PKER_SWETH( 24, 64) = 0.270065E+00
-PKER_SWETH( 24, 65) = 0.273200E+00
-PKER_SWETH( 24, 66) = 0.276142E+00
-PKER_SWETH( 24, 67) = 0.278902E+00
-PKER_SWETH( 24, 68) = 0.281493E+00
-PKER_SWETH( 24, 69) = 0.283924E+00
-PKER_SWETH( 24, 70) = 0.286206E+00
-PKER_SWETH( 24, 71) = 0.288349E+00
-PKER_SWETH( 24, 72) = 0.290360E+00
-PKER_SWETH( 24, 73) = 0.292248E+00
-PKER_SWETH( 24, 74) = 0.294021E+00
-PKER_SWETH( 24, 75) = 0.295685E+00
-PKER_SWETH( 24, 76) = 0.297248E+00
-PKER_SWETH( 24, 77) = 0.298715E+00
-PKER_SWETH( 24, 78) = 0.300092E+00
-PKER_SWETH( 24, 79) = 0.301385E+00
-PKER_SWETH( 24, 80) = 0.302600E+00
-PKER_SWETH( 25, 1) = 0.291559E+01
-PKER_SWETH( 25, 2) = 0.272306E+01
-PKER_SWETH( 25, 3) = 0.254227E+01
-PKER_SWETH( 25, 4) = 0.237251E+01
-PKER_SWETH( 25, 5) = 0.221311E+01
-PKER_SWETH( 25, 6) = 0.206342E+01
-PKER_SWETH( 25, 7) = 0.192286E+01
-PKER_SWETH( 25, 8) = 0.179087E+01
-PKER_SWETH( 25, 9) = 0.166692E+01
-PKER_SWETH( 25, 10) = 0.155051E+01
-PKER_SWETH( 25, 11) = 0.144120E+01
-PKER_SWETH( 25, 12) = 0.133853E+01
-PKER_SWETH( 25, 13) = 0.124210E+01
-PKER_SWETH( 25, 14) = 0.115153E+01
-PKER_SWETH( 25, 15) = 0.106645E+01
-PKER_SWETH( 25, 16) = 0.986522E+00
-PKER_SWETH( 25, 17) = 0.911418E+00
-PKER_SWETH( 25, 18) = 0.840837E+00
-PKER_SWETH( 25, 19) = 0.774489E+00
-PKER_SWETH( 25, 20) = 0.712102E+00
-PKER_SWETH( 25, 21) = 0.653415E+00
-PKER_SWETH( 25, 22) = 0.598183E+00
-PKER_SWETH( 25, 23) = 0.546167E+00
-PKER_SWETH( 25, 24) = 0.497142E+00
-PKER_SWETH( 25, 25) = 0.450891E+00
-PKER_SWETH( 25, 26) = 0.407203E+00
-PKER_SWETH( 25, 27) = 0.365878E+00
-PKER_SWETH( 25, 28) = 0.326729E+00
-PKER_SWETH( 25, 29) = 0.289588E+00
-PKER_SWETH( 25, 30) = 0.254321E+00
-PKER_SWETH( 25, 31) = 0.220863E+00
-PKER_SWETH( 25, 32) = 0.189255E+00
-PKER_SWETH( 25, 33) = 0.159705E+00
-PKER_SWETH( 25, 34) = 0.132637E+00
-PKER_SWETH( 25, 35) = 0.108685E+00
-PKER_SWETH( 25, 36) = 0.886458E-01
-PKER_SWETH( 25, 37) = 0.733000E-01
-PKER_SWETH( 25, 38) = 0.631817E-01
-PKER_SWETH( 25, 39) = 0.584175E-01
-PKER_SWETH( 25, 40) = 0.586280E-01
-PKER_SWETH( 25, 41) = 0.629970E-01
-PKER_SWETH( 25, 42) = 0.704646E-01
-PKER_SWETH( 25, 43) = 0.799685E-01
-PKER_SWETH( 25, 44) = 0.905525E-01
-PKER_SWETH( 25, 45) = 0.101507E+00
-PKER_SWETH( 25, 46) = 0.112335E+00
-PKER_SWETH( 25, 47) = 0.122751E+00
-PKER_SWETH( 25, 48) = 0.132601E+00
-PKER_SWETH( 25, 49) = 0.141833E+00
-PKER_SWETH( 25, 50) = 0.150445E+00
-PKER_SWETH( 25, 51) = 0.158463E+00
-PKER_SWETH( 25, 52) = 0.165926E+00
-PKER_SWETH( 25, 53) = 0.172877E+00
-PKER_SWETH( 25, 54) = 0.179357E+00
-PKER_SWETH( 25, 55) = 0.185404E+00
-PKER_SWETH( 25, 56) = 0.191051E+00
-PKER_SWETH( 25, 57) = 0.196330E+00
-PKER_SWETH( 25, 58) = 0.201268E+00
-PKER_SWETH( 25, 59) = 0.205891E+00
-PKER_SWETH( 25, 60) = 0.210221E+00
-PKER_SWETH( 25, 61) = 0.214278E+00
-PKER_SWETH( 25, 62) = 0.218080E+00
-PKER_SWETH( 25, 63) = 0.221646E+00
-PKER_SWETH( 25, 64) = 0.224989E+00
-PKER_SWETH( 25, 65) = 0.228126E+00
-PKER_SWETH( 25, 66) = 0.231069E+00
-PKER_SWETH( 25, 67) = 0.233830E+00
-PKER_SWETH( 25, 68) = 0.236422E+00
-PKER_SWETH( 25, 69) = 0.238854E+00
-PKER_SWETH( 25, 70) = 0.241137E+00
-PKER_SWETH( 25, 71) = 0.243279E+00
-PKER_SWETH( 25, 72) = 0.245291E+00
-PKER_SWETH( 25, 73) = 0.247179E+00
-PKER_SWETH( 25, 74) = 0.248952E+00
-PKER_SWETH( 25, 75) = 0.250616E+00
-PKER_SWETH( 25, 76) = 0.252179E+00
-PKER_SWETH( 25, 77) = 0.253646E+00
-PKER_SWETH( 25, 78) = 0.255024E+00
-PKER_SWETH( 25, 79) = 0.256317E+00
-PKER_SWETH( 25, 80) = 0.257531E+00
-PKER_SWETH( 26, 1) = 0.294919E+01
-PKER_SWETH( 26, 2) = 0.275667E+01
-PKER_SWETH( 26, 3) = 0.257589E+01
-PKER_SWETH( 26, 4) = 0.240613E+01
-PKER_SWETH( 26, 5) = 0.224673E+01
-PKER_SWETH( 26, 6) = 0.209706E+01
-PKER_SWETH( 26, 7) = 0.195650E+01
-PKER_SWETH( 26, 8) = 0.182452E+01
-PKER_SWETH( 26, 9) = 0.170058E+01
-PKER_SWETH( 26, 10) = 0.158419E+01
-PKER_SWETH( 26, 11) = 0.147489E+01
-PKER_SWETH( 26, 12) = 0.137225E+01
-PKER_SWETH( 26, 13) = 0.127585E+01
-PKER_SWETH( 26, 14) = 0.118531E+01
-PKER_SWETH( 26, 15) = 0.110026E+01
-PKER_SWETH( 26, 16) = 0.102038E+01
-PKER_SWETH( 26, 17) = 0.945328E+00
-PKER_SWETH( 26, 18) = 0.874813E+00
-PKER_SWETH( 26, 19) = 0.808544E+00
-PKER_SWETH( 26, 20) = 0.746253E+00
-PKER_SWETH( 26, 21) = 0.687683E+00
-PKER_SWETH( 26, 22) = 0.632590E+00
-PKER_SWETH( 26, 23) = 0.580743E+00
-PKER_SWETH( 26, 24) = 0.531921E+00
-PKER_SWETH( 26, 25) = 0.485912E+00
-PKER_SWETH( 26, 26) = 0.442513E+00
-PKER_SWETH( 26, 27) = 0.401527E+00
-PKER_SWETH( 26, 28) = 0.362766E+00
-PKER_SWETH( 26, 29) = 0.326051E+00
-PKER_SWETH( 26, 30) = 0.291214E+00
-PKER_SWETH( 26, 31) = 0.258107E+00
-PKER_SWETH( 26, 32) = 0.226621E+00
-PKER_SWETH( 26, 33) = 0.196706E+00
-PKER_SWETH( 26, 34) = 0.168416E+00
-PKER_SWETH( 26, 35) = 0.141958E+00
-PKER_SWETH( 26, 36) = 0.117722E+00
-PKER_SWETH( 26, 37) = 0.962814E-01
-PKER_SWETH( 26, 38) = 0.783300E-01
-PKER_SWETH( 26, 39) = 0.645079E-01
-PKER_SWETH( 26, 40) = 0.552534E-01
-PKER_SWETH( 26, 41) = 0.506271E-01
-PKER_SWETH( 26, 42) = 0.502626E-01
-PKER_SWETH( 26, 43) = 0.534894E-01
-PKER_SWETH( 26, 44) = 0.594360E-01
-PKER_SWETH( 26, 45) = 0.671708E-01
-PKER_SWETH( 26, 46) = 0.759473E-01
-PKER_SWETH( 26, 47) = 0.851241E-01
-PKER_SWETH( 26, 48) = 0.942847E-01
-PKER_SWETH( 26, 49) = 0.103164E+00
-PKER_SWETH( 26, 50) = 0.111616E+00
-PKER_SWETH( 26, 51) = 0.119577E+00
-PKER_SWETH( 26, 52) = 0.127034E+00
-PKER_SWETH( 26, 53) = 0.134000E+00
-PKER_SWETH( 26, 54) = 0.140501E+00
-PKER_SWETH( 26, 55) = 0.146568E+00
-PKER_SWETH( 26, 56) = 0.152234E+00
-PKER_SWETH( 26, 57) = 0.157529E+00
-PKER_SWETH( 26, 58) = 0.162480E+00
-PKER_SWETH( 26, 59) = 0.167112E+00
-PKER_SWETH( 26, 60) = 0.171449E+00
-PKER_SWETH( 26, 61) = 0.175512E+00
-PKER_SWETH( 26, 62) = 0.179319E+00
-PKER_SWETH( 26, 63) = 0.182888E+00
-PKER_SWETH( 26, 64) = 0.186234E+00
-PKER_SWETH( 26, 65) = 0.189373E+00
-PKER_SWETH( 26, 66) = 0.192317E+00
-PKER_SWETH( 26, 67) = 0.195080E+00
-PKER_SWETH( 26, 68) = 0.197672E+00
-PKER_SWETH( 26, 69) = 0.200105E+00
-PKER_SWETH( 26, 70) = 0.202388E+00
-PKER_SWETH( 26, 71) = 0.204532E+00
-PKER_SWETH( 26, 72) = 0.206543E+00
-PKER_SWETH( 26, 73) = 0.208432E+00
-PKER_SWETH( 26, 74) = 0.210205E+00
-PKER_SWETH( 26, 75) = 0.211870E+00
-PKER_SWETH( 26, 76) = 0.213432E+00
-PKER_SWETH( 26, 77) = 0.214900E+00
-PKER_SWETH( 26, 78) = 0.216277E+00
-PKER_SWETH( 26, 79) = 0.217571E+00
-PKER_SWETH( 26, 80) = 0.218785E+00
-PKER_SWETH( 27, 1) = 0.297808E+01
-PKER_SWETH( 27, 2) = 0.278556E+01
-PKER_SWETH( 27, 3) = 0.260479E+01
-PKER_SWETH( 27, 4) = 0.243504E+01
-PKER_SWETH( 27, 5) = 0.227564E+01
-PKER_SWETH( 27, 6) = 0.212597E+01
-PKER_SWETH( 27, 7) = 0.198542E+01
-PKER_SWETH( 27, 8) = 0.185344E+01
-PKER_SWETH( 27, 9) = 0.172951E+01
-PKER_SWETH( 27, 10) = 0.161314E+01
-PKER_SWETH( 27, 11) = 0.150385E+01
-PKER_SWETH( 27, 12) = 0.140122E+01
-PKER_SWETH( 27, 13) = 0.130484E+01
-PKER_SWETH( 27, 14) = 0.121432E+01
-PKER_SWETH( 27, 15) = 0.112931E+01
-PKER_SWETH( 27, 16) = 0.104946E+01
-PKER_SWETH( 27, 17) = 0.974450E+00
-PKER_SWETH( 27, 18) = 0.903983E+00
-PKER_SWETH( 27, 19) = 0.837775E+00
-PKER_SWETH( 27, 20) = 0.775555E+00
-PKER_SWETH( 27, 21) = 0.717072E+00
-PKER_SWETH( 27, 22) = 0.662084E+00
-PKER_SWETH( 27, 23) = 0.610364E+00
-PKER_SWETH( 27, 24) = 0.561694E+00
-PKER_SWETH( 27, 25) = 0.515868E+00
-PKER_SWETH( 27, 26) = 0.472688E+00
-PKER_SWETH( 27, 27) = 0.431963E+00
-PKER_SWETH( 27, 28) = 0.393511E+00
-PKER_SWETH( 27, 29) = 0.357155E+00
-PKER_SWETH( 27, 30) = 0.322725E+00
-PKER_SWETH( 27, 31) = 0.290064E+00
-PKER_SWETH( 27, 32) = 0.259024E+00
-PKER_SWETH( 27, 33) = 0.229483E+00
-PKER_SWETH( 27, 34) = 0.201355E+00
-PKER_SWETH( 27, 35) = 0.174615E+00
-PKER_SWETH( 27, 36) = 0.149334E+00
-PKER_SWETH( 27, 37) = 0.125718E+00
-PKER_SWETH( 27, 38) = 0.104127E+00
-PKER_SWETH( 27, 39) = 0.850544E-01
-PKER_SWETH( 27, 40) = 0.690877E-01
-PKER_SWETH( 27, 41) = 0.567360E-01
-PKER_SWETH( 27, 42) = 0.483077E-01
-PKER_SWETH( 27, 43) = 0.438459E-01
-PKER_SWETH( 27, 44) = 0.430396E-01
-PKER_SWETH( 27, 45) = 0.452998E-01
-PKER_SWETH( 27, 46) = 0.499404E-01
-PKER_SWETH( 27, 47) = 0.562217E-01
-PKER_SWETH( 27, 48) = 0.634525E-01
-PKER_SWETH( 27, 49) = 0.711393E-01
-PKER_SWETH( 27, 50) = 0.788981E-01
-PKER_SWETH( 27, 51) = 0.864846E-01
-PKER_SWETH( 27, 52) = 0.937536E-01
-PKER_SWETH( 27, 53) = 0.100637E+00
-PKER_SWETH( 27, 54) = 0.107111E+00
-PKER_SWETH( 27, 55) = 0.113177E+00
-PKER_SWETH( 27, 56) = 0.118852E+00
-PKER_SWETH( 27, 57) = 0.124158E+00
-PKER_SWETH( 27, 58) = 0.129121E+00
-PKER_SWETH( 27, 59) = 0.133764E+00
-PKER_SWETH( 27, 60) = 0.138109E+00
-PKER_SWETH( 27, 61) = 0.142178E+00
-PKER_SWETH( 27, 62) = 0.145991E+00
-PKER_SWETH( 27, 63) = 0.149563E+00
-PKER_SWETH( 27, 64) = 0.152913E+00
-PKER_SWETH( 27, 65) = 0.156054E+00
-PKER_SWETH( 27, 66) = 0.159000E+00
-PKER_SWETH( 27, 67) = 0.161764E+00
-PKER_SWETH( 27, 68) = 0.164357E+00
-PKER_SWETH( 27, 69) = 0.166791E+00
-PKER_SWETH( 27, 70) = 0.169075E+00
-PKER_SWETH( 27, 71) = 0.171219E+00
-PKER_SWETH( 27, 72) = 0.173231E+00
-PKER_SWETH( 27, 73) = 0.175120E+00
-PKER_SWETH( 27, 74) = 0.176893E+00
-PKER_SWETH( 27, 75) = 0.178558E+00
-PKER_SWETH( 27, 76) = 0.180121E+00
-PKER_SWETH( 27, 77) = 0.181588E+00
-PKER_SWETH( 27, 78) = 0.182966E+00
-PKER_SWETH( 27, 79) = 0.184259E+00
-PKER_SWETH( 27, 80) = 0.185474E+00
-PKER_SWETH( 28, 1) = 0.300292E+01
-PKER_SWETH( 28, 2) = 0.281040E+01
-PKER_SWETH( 28, 3) = 0.262963E+01
-PKER_SWETH( 28, 4) = 0.245988E+01
-PKER_SWETH( 28, 5) = 0.230049E+01
-PKER_SWETH( 28, 6) = 0.215082E+01
-PKER_SWETH( 28, 7) = 0.201028E+01
-PKER_SWETH( 28, 8) = 0.187831E+01
-PKER_SWETH( 28, 9) = 0.175438E+01
-PKER_SWETH( 28, 10) = 0.163802E+01
-PKER_SWETH( 28, 11) = 0.152874E+01
-PKER_SWETH( 28, 12) = 0.142612E+01
-PKER_SWETH( 28, 13) = 0.132976E+01
-PKER_SWETH( 28, 14) = 0.123926E+01
-PKER_SWETH( 28, 15) = 0.115426E+01
-PKER_SWETH( 28, 16) = 0.107444E+01
-PKER_SWETH( 28, 17) = 0.999462E+00
-PKER_SWETH( 28, 18) = 0.929033E+00
-PKER_SWETH( 28, 19) = 0.862870E+00
-PKER_SWETH( 28, 20) = 0.800705E+00
-PKER_SWETH( 28, 21) = 0.742287E+00
-PKER_SWETH( 28, 22) = 0.687378E+00
-PKER_SWETH( 28, 23) = 0.635752E+00
-PKER_SWETH( 28, 24) = 0.587197E+00
-PKER_SWETH( 28, 25) = 0.541509E+00
-PKER_SWETH( 28, 26) = 0.498494E+00
-PKER_SWETH( 28, 27) = 0.457967E+00
-PKER_SWETH( 28, 28) = 0.419751E+00
-PKER_SWETH( 28, 29) = 0.383673E+00
-PKER_SWETH( 28, 30) = 0.349569E+00
-PKER_SWETH( 28, 31) = 0.317283E+00
-PKER_SWETH( 28, 32) = 0.286664E+00
-PKER_SWETH( 28, 33) = 0.257572E+00
-PKER_SWETH( 28, 34) = 0.229887E+00
-PKER_SWETH( 28, 35) = 0.203511E+00
-PKER_SWETH( 28, 36) = 0.178386E+00
-PKER_SWETH( 28, 37) = 0.154515E+00
-PKER_SWETH( 28, 38) = 0.131988E+00
-PKER_SWETH( 28, 39) = 0.111005E+00
-PKER_SWETH( 28, 40) = 0.918807E-01
-PKER_SWETH( 28, 41) = 0.750363E-01
-PKER_SWETH( 28, 42) = 0.609249E-01
-PKER_SWETH( 28, 43) = 0.499395E-01
-PKER_SWETH( 28, 44) = 0.423051E-01
-PKER_SWETH( 28, 45) = 0.380232E-01
-PKER_SWETH( 28, 46) = 0.368477E-01
-PKER_SWETH( 28, 47) = 0.383224E-01
-PKER_SWETH( 28, 48) = 0.418693E-01
-PKER_SWETH( 28, 49) = 0.468853E-01
-PKER_SWETH( 28, 50) = 0.528439E-01
-PKER_SWETH( 28, 51) = 0.592713E-01
-PKER_SWETH( 28, 52) = 0.658408E-01
-PKER_SWETH( 28, 53) = 0.723285E-01
-PKER_SWETH( 28, 54) = 0.785904E-01
-PKER_SWETH( 28, 55) = 0.845537E-01
-PKER_SWETH( 28, 56) = 0.901848E-01
-PKER_SWETH( 28, 57) = 0.954771E-01
-PKER_SWETH( 28, 58) = 0.100439E+00
-PKER_SWETH( 28, 59) = 0.105087E+00
-PKER_SWETH( 28, 60) = 0.109439E+00
-PKER_SWETH( 28, 61) = 0.113515E+00
-PKER_SWETH( 28, 62) = 0.117332E+00
-PKER_SWETH( 28, 63) = 0.120909E+00
-PKER_SWETH( 28, 64) = 0.124262E+00
-PKER_SWETH( 28, 65) = 0.127406E+00
-PKER_SWETH( 28, 66) = 0.130355E+00
-PKER_SWETH( 28, 67) = 0.133120E+00
-PKER_SWETH( 28, 68) = 0.135715E+00
-PKER_SWETH( 28, 69) = 0.138149E+00
-PKER_SWETH( 28, 70) = 0.140434E+00
-PKER_SWETH( 28, 71) = 0.142578E+00
-PKER_SWETH( 28, 72) = 0.144591E+00
-PKER_SWETH( 28, 73) = 0.146480E+00
-PKER_SWETH( 28, 74) = 0.148254E+00
-PKER_SWETH( 28, 75) = 0.149919E+00
-PKER_SWETH( 28, 76) = 0.151482E+00
-PKER_SWETH( 28, 77) = 0.152949E+00
-PKER_SWETH( 28, 78) = 0.154327E+00
-PKER_SWETH( 28, 79) = 0.155621E+00
-PKER_SWETH( 28, 80) = 0.156835E+00
-PKER_SWETH( 29, 1) = 0.302428E+01
-PKER_SWETH( 29, 2) = 0.283176E+01
-PKER_SWETH( 29, 3) = 0.265098E+01
-PKER_SWETH( 29, 4) = 0.248124E+01
-PKER_SWETH( 29, 5) = 0.232185E+01
-PKER_SWETH( 29, 6) = 0.217218E+01
-PKER_SWETH( 29, 7) = 0.203165E+01
-PKER_SWETH( 29, 8) = 0.189968E+01
-PKER_SWETH( 29, 9) = 0.177576E+01
-PKER_SWETH( 29, 10) = 0.165940E+01
-PKER_SWETH( 29, 11) = 0.155013E+01
-PKER_SWETH( 29, 12) = 0.144753E+01
-PKER_SWETH( 29, 13) = 0.135117E+01
-PKER_SWETH( 29, 14) = 0.126068E+01
-PKER_SWETH( 29, 15) = 0.117571E+01
-PKER_SWETH( 29, 16) = 0.109590E+01
-PKER_SWETH( 29, 17) = 0.102095E+01
-PKER_SWETH( 29, 18) = 0.950548E+00
-PKER_SWETH( 29, 19) = 0.884419E+00
-PKER_SWETH( 29, 20) = 0.822295E+00
-PKER_SWETH( 29, 21) = 0.763926E+00
-PKER_SWETH( 29, 22) = 0.709077E+00
-PKER_SWETH( 29, 23) = 0.657523E+00
-PKER_SWETH( 29, 24) = 0.609055E+00
-PKER_SWETH( 29, 25) = 0.563470E+00
-PKER_SWETH( 29, 26) = 0.520580E+00
-PKER_SWETH( 29, 27) = 0.480203E+00
-PKER_SWETH( 29, 28) = 0.442165E+00
-PKER_SWETH( 29, 29) = 0.406299E+00
-PKER_SWETH( 29, 30) = 0.372447E+00
-PKER_SWETH( 29, 31) = 0.340455E+00
-PKER_SWETH( 29, 32) = 0.310175E+00
-PKER_SWETH( 29, 33) = 0.281469E+00
-PKER_SWETH( 29, 34) = 0.254205E+00
-PKER_SWETH( 29, 35) = 0.228266E+00
-PKER_SWETH( 29, 36) = 0.203556E+00
-PKER_SWETH( 29, 37) = 0.180007E+00
-PKER_SWETH( 29, 38) = 0.157592E+00
-PKER_SWETH( 29, 39) = 0.136340E+00
-PKER_SWETH( 29, 40) = 0.116352E+00
-PKER_SWETH( 29, 41) = 0.978136E-01
-PKER_SWETH( 29, 42) = 0.809885E-01
-PKER_SWETH( 29, 43) = 0.662043E-01
-PKER_SWETH( 29, 44) = 0.538061E-01
-PKER_SWETH( 29, 45) = 0.440664E-01
-PKER_SWETH( 29, 46) = 0.371573E-01
-PKER_SWETH( 29, 47) = 0.330684E-01
-PKER_SWETH( 29, 48) = 0.315985E-01
-PKER_SWETH( 29, 49) = 0.324092E-01
-PKER_SWETH( 29, 50) = 0.350441E-01
-PKER_SWETH( 29, 51) = 0.390177E-01
-PKER_SWETH( 29, 52) = 0.438760E-01
-PKER_SWETH( 29, 53) = 0.492363E-01
-PKER_SWETH( 29, 54) = 0.548009E-01
-PKER_SWETH( 29, 55) = 0.603500E-01
-PKER_SWETH( 29, 56) = 0.657504E-01
-PKER_SWETH( 29, 57) = 0.709231E-01
-PKER_SWETH( 29, 58) = 0.758271E-01
-PKER_SWETH( 29, 59) = 0.804506E-01
-PKER_SWETH( 29, 60) = 0.847948E-01
-PKER_SWETH( 29, 61) = 0.888701E-01
-PKER_SWETH( 29, 62) = 0.926906E-01
-PKER_SWETH( 29, 63) = 0.962714E-01
-PKER_SWETH( 29, 64) = 0.996278E-01
-PKER_SWETH( 29, 65) = 0.102775E+00
-PKER_SWETH( 29, 66) = 0.105725E+00
-PKER_SWETH( 29, 67) = 0.108493E+00
-PKER_SWETH( 29, 68) = 0.111089E+00
-PKER_SWETH( 29, 69) = 0.113525E+00
-PKER_SWETH( 29, 70) = 0.115810E+00
-PKER_SWETH( 29, 71) = 0.117955E+00
-PKER_SWETH( 29, 72) = 0.119968E+00
-PKER_SWETH( 29, 73) = 0.121858E+00
-PKER_SWETH( 29, 74) = 0.123632E+00
-PKER_SWETH( 29, 75) = 0.125297E+00
-PKER_SWETH( 29, 76) = 0.126860E+00
-PKER_SWETH( 29, 77) = 0.128328E+00
-PKER_SWETH( 29, 78) = 0.129706E+00
-PKER_SWETH( 29, 79) = 0.130999E+00
-PKER_SWETH( 29, 80) = 0.132214E+00
-PKER_SWETH( 30, 1) = 0.304263E+01
-PKER_SWETH( 30, 2) = 0.285012E+01
-PKER_SWETH( 30, 3) = 0.266934E+01
-PKER_SWETH( 30, 4) = 0.249960E+01
-PKER_SWETH( 30, 5) = 0.234021E+01
-PKER_SWETH( 30, 6) = 0.219055E+01
-PKER_SWETH( 30, 7) = 0.205001E+01
-PKER_SWETH( 30, 8) = 0.191805E+01
-PKER_SWETH( 30, 9) = 0.179414E+01
-PKER_SWETH( 30, 10) = 0.167778E+01
-PKER_SWETH( 30, 11) = 0.156852E+01
-PKER_SWETH( 30, 12) = 0.146592E+01
-PKER_SWETH( 30, 13) = 0.136957E+01
-PKER_SWETH( 30, 14) = 0.127910E+01
-PKER_SWETH( 30, 15) = 0.119413E+01
-PKER_SWETH( 30, 16) = 0.111434E+01
-PKER_SWETH( 30, 17) = 0.103941E+01
-PKER_SWETH( 30, 18) = 0.969029E+00
-PKER_SWETH( 30, 19) = 0.902926E+00
-PKER_SWETH( 30, 20) = 0.840833E+00
-PKER_SWETH( 30, 21) = 0.782502E+00
-PKER_SWETH( 30, 22) = 0.727698E+00
-PKER_SWETH( 30, 23) = 0.676199E+00
-PKER_SWETH( 30, 24) = 0.627795E+00
-PKER_SWETH( 30, 25) = 0.582290E+00
-PKER_SWETH( 30, 26) = 0.539494E+00
-PKER_SWETH( 30, 27) = 0.499230E+00
-PKER_SWETH( 30, 28) = 0.461327E+00
-PKER_SWETH( 30, 29) = 0.425623E+00
-PKER_SWETH( 30, 30) = 0.391964E+00
-PKER_SWETH( 30, 31) = 0.360198E+00
-PKER_SWETH( 30, 32) = 0.330184E+00
-PKER_SWETH( 30, 33) = 0.301784E+00
-PKER_SWETH( 30, 34) = 0.274868E+00
-PKER_SWETH( 30, 35) = 0.249313E+00
-PKER_SWETH( 30, 36) = 0.225011E+00
-PKER_SWETH( 30, 37) = 0.201868E+00
-PKER_SWETH( 30, 38) = 0.179815E+00
-PKER_SWETH( 30, 39) = 0.158815E+00
-PKER_SWETH( 30, 40) = 0.138868E+00
-PKER_SWETH( 30, 41) = 0.120024E+00
-PKER_SWETH( 30, 42) = 0.102388E+00
-PKER_SWETH( 30, 43) = 0.861144E-01
-PKER_SWETH( 30, 44) = 0.714080E-01
-PKER_SWETH( 30, 45) = 0.585069E-01
-PKER_SWETH( 30, 46) = 0.476515E-01
-PKER_SWETH( 30, 47) = 0.390335E-01
-PKER_SWETH( 30, 48) = 0.327743E-01
-PKER_SWETH( 30, 49) = 0.288723E-01
-PKER_SWETH( 30, 50) = 0.271805E-01
-PKER_SWETH( 30, 51) = 0.274431E-01
-PKER_SWETH( 30, 52) = 0.293182E-01
-PKER_SWETH( 30, 53) = 0.324139E-01
-PKER_SWETH( 30, 54) = 0.363508E-01
-PKER_SWETH( 30, 55) = 0.408047E-01
-PKER_SWETH( 30, 56) = 0.455006E-01
-PKER_SWETH( 30, 57) = 0.502456E-01
-PKER_SWETH( 30, 58) = 0.549025E-01
-PKER_SWETH( 30, 59) = 0.593913E-01
-PKER_SWETH( 30, 60) = 0.636662E-01
-PKER_SWETH( 30, 61) = 0.677085E-01
-PKER_SWETH( 30, 62) = 0.715153E-01
-PKER_SWETH( 30, 63) = 0.750918E-01
-PKER_SWETH( 30, 64) = 0.784481E-01
-PKER_SWETH( 30, 65) = 0.815963E-01
-PKER_SWETH( 30, 66) = 0.845489E-01
-PKER_SWETH( 30, 67) = 0.873181E-01
-PKER_SWETH( 30, 68) = 0.899158E-01
-PKER_SWETH( 30, 69) = 0.923528E-01
-PKER_SWETH( 30, 70) = 0.946394E-01
-PKER_SWETH( 30, 71) = 0.967852E-01
-PKER_SWETH( 30, 72) = 0.987990E-01
-PKER_SWETH( 30, 73) = 0.100689E+00
-PKER_SWETH( 30, 74) = 0.102463E+00
-PKER_SWETH( 30, 75) = 0.104129E+00
-PKER_SWETH( 30, 76) = 0.105692E+00
-PKER_SWETH( 30, 77) = 0.107160E+00
-PKER_SWETH( 30, 78) = 0.108538E+00
-PKER_SWETH( 30, 79) = 0.109832E+00
-PKER_SWETH( 30, 80) = 0.111046E+00
-PKER_SWETH( 31, 1) = 0.305841E+01
-PKER_SWETH( 31, 2) = 0.286590E+01
-PKER_SWETH( 31, 3) = 0.268513E+01
-PKER_SWETH( 31, 4) = 0.251539E+01
-PKER_SWETH( 31, 5) = 0.235600E+01
-PKER_SWETH( 31, 6) = 0.220634E+01
-PKER_SWETH( 31, 7) = 0.206581E+01
-PKER_SWETH( 31, 8) = 0.193385E+01
-PKER_SWETH( 31, 9) = 0.180994E+01
-PKER_SWETH( 31, 10) = 0.169358E+01
-PKER_SWETH( 31, 11) = 0.158433E+01
-PKER_SWETH( 31, 12) = 0.148173E+01
-PKER_SWETH( 31, 13) = 0.138539E+01
-PKER_SWETH( 31, 14) = 0.129492E+01
-PKER_SWETH( 31, 15) = 0.120997E+01
-PKER_SWETH( 31, 16) = 0.113019E+01
-PKER_SWETH( 31, 17) = 0.105527E+01
-PKER_SWETH( 31, 18) = 0.984906E+00
-PKER_SWETH( 31, 19) = 0.918822E+00
-PKER_SWETH( 31, 20) = 0.856754E+00
-PKER_SWETH( 31, 21) = 0.798451E+00
-PKER_SWETH( 31, 22) = 0.743681E+00
-PKER_SWETH( 31, 23) = 0.692223E+00
-PKER_SWETH( 31, 24) = 0.643870E+00
-PKER_SWETH( 31, 25) = 0.598424E+00
-PKER_SWETH( 31, 26) = 0.555700E+00
-PKER_SWETH( 31, 27) = 0.515521E+00
-PKER_SWETH( 31, 28) = 0.477722E+00
-PKER_SWETH( 31, 29) = 0.442141E+00
-PKER_SWETH( 31, 30) = 0.408628E+00
-PKER_SWETH( 31, 31) = 0.377036E+00
-PKER_SWETH( 31, 32) = 0.347228E+00
-PKER_SWETH( 31, 33) = 0.319067E+00
-PKER_SWETH( 31, 34) = 0.292428E+00
-PKER_SWETH( 31, 35) = 0.267187E+00
-PKER_SWETH( 31, 36) = 0.243232E+00
-PKER_SWETH( 31, 37) = 0.220461E+00
-PKER_SWETH( 31, 38) = 0.198785E+00
-PKER_SWETH( 31, 39) = 0.178137E+00
-PKER_SWETH( 31, 40) = 0.158477E+00
-PKER_SWETH( 31, 41) = 0.139795E+00
-PKER_SWETH( 31, 42) = 0.122116E+00
-PKER_SWETH( 31, 43) = 0.105498E+00
-PKER_SWETH( 31, 44) = 0.900345E-01
-PKER_SWETH( 31, 45) = 0.758410E-01
-PKER_SWETH( 31, 46) = 0.630589E-01
-PKER_SWETH( 31, 47) = 0.518477E-01
-PKER_SWETH( 31, 48) = 0.423630E-01
-PKER_SWETH( 31, 49) = 0.347372E-01
-PKER_SWETH( 31, 50) = 0.290641E-01
-PKER_SWETH( 31, 51) = 0.253414E-01
-PKER_SWETH( 31, 52) = 0.234859E-01
-PKER_SWETH( 31, 53) = 0.233114E-01
-PKER_SWETH( 31, 54) = 0.245489E-01
-PKER_SWETH( 31, 55) = 0.269042E-01
-PKER_SWETH( 31, 56) = 0.300674E-01
-PKER_SWETH( 31, 57) = 0.337384E-01
-PKER_SWETH( 31, 58) = 0.376964E-01
-PKER_SWETH( 31, 59) = 0.417445E-01
-PKER_SWETH( 31, 60) = 0.457577E-01
-PKER_SWETH( 31, 61) = 0.496524E-01
-PKER_SWETH( 31, 62) = 0.533798E-01
-PKER_SWETH( 31, 63) = 0.569162E-01
-PKER_SWETH( 31, 64) = 0.602537E-01
-PKER_SWETH( 31, 65) = 0.633942E-01
-PKER_SWETH( 31, 66) = 0.663443E-01
-PKER_SWETH( 31, 67) = 0.691135E-01
-PKER_SWETH( 31, 68) = 0.717119E-01
-PKER_SWETH( 31, 69) = 0.741499E-01
-PKER_SWETH( 31, 70) = 0.764375E-01
-PKER_SWETH( 31, 71) = 0.785841E-01
-PKER_SWETH( 31, 72) = 0.805986E-01
-PKER_SWETH( 31, 73) = 0.824892E-01
-PKER_SWETH( 31, 74) = 0.842638E-01
-PKER_SWETH( 31, 75) = 0.859296E-01
-PKER_SWETH( 31, 76) = 0.874932E-01
-PKER_SWETH( 31, 77) = 0.889612E-01
-PKER_SWETH( 31, 78) = 0.903393E-01
-PKER_SWETH( 31, 79) = 0.916331E-01
-PKER_SWETH( 31, 80) = 0.928478E-01
-PKER_SWETH( 32, 1) = 0.307198E+01
-PKER_SWETH( 32, 2) = 0.287947E+01
-PKER_SWETH( 32, 3) = 0.269870E+01
-PKER_SWETH( 32, 4) = 0.252896E+01
-PKER_SWETH( 32, 5) = 0.236957E+01
-PKER_SWETH( 32, 6) = 0.221991E+01
-PKER_SWETH( 32, 7) = 0.207938E+01
-PKER_SWETH( 32, 8) = 0.194742E+01
-PKER_SWETH( 32, 9) = 0.182351E+01
-PKER_SWETH( 32, 10) = 0.170716E+01
-PKER_SWETH( 32, 11) = 0.159791E+01
-PKER_SWETH( 32, 12) = 0.149532E+01
-PKER_SWETH( 32, 13) = 0.139899E+01
-PKER_SWETH( 32, 14) = 0.130853E+01
-PKER_SWETH( 32, 15) = 0.122358E+01
-PKER_SWETH( 32, 16) = 0.114381E+01
-PKER_SWETH( 32, 17) = 0.106890E+01
-PKER_SWETH( 32, 18) = 0.998547E+00
-PKER_SWETH( 32, 19) = 0.932479E+00
-PKER_SWETH( 32, 20) = 0.870428E+00
-PKER_SWETH( 32, 21) = 0.812147E+00
-PKER_SWETH( 32, 22) = 0.757404E+00
-PKER_SWETH( 32, 23) = 0.705977E+00
-PKER_SWETH( 32, 24) = 0.657662E+00
-PKER_SWETH( 32, 25) = 0.612261E+00
-PKER_SWETH( 32, 26) = 0.569591E+00
-PKER_SWETH( 32, 27) = 0.529478E+00
-PKER_SWETH( 32, 28) = 0.491757E+00
-PKER_SWETH( 32, 29) = 0.456270E+00
-PKER_SWETH( 32, 30) = 0.422869E+00
-PKER_SWETH( 32, 31) = 0.391411E+00
-PKER_SWETH( 32, 32) = 0.361760E+00
-PKER_SWETH( 32, 33) = 0.333785E+00
-PKER_SWETH( 32, 34) = 0.307363E+00
-PKER_SWETH( 32, 35) = 0.282372E+00
-PKER_SWETH( 32, 36) = 0.258701E+00
-PKER_SWETH( 32, 37) = 0.236242E+00
-PKER_SWETH( 32, 38) = 0.214902E+00
-PKER_SWETH( 32, 39) = 0.194597E+00
-PKER_SWETH( 32, 40) = 0.175263E+00
-PKER_SWETH( 32, 41) = 0.156861E+00
-PKER_SWETH( 32, 42) = 0.139376E+00
-PKER_SWETH( 32, 43) = 0.122822E+00
-PKER_SWETH( 32, 44) = 0.107235E+00
-PKER_SWETH( 32, 45) = 0.926714E-01
-PKER_SWETH( 32, 46) = 0.791985E-01
-PKER_SWETH( 32, 47) = 0.668908E-01
-PKER_SWETH( 32, 48) = 0.558298E-01
-PKER_SWETH( 32, 49) = 0.461095E-01
-PKER_SWETH( 32, 50) = 0.378288E-01
-PKER_SWETH( 32, 51) = 0.310726E-01
-PKER_SWETH( 32, 52) = 0.259224E-01
-PKER_SWETH( 32, 53) = 0.223881E-01
-PKER_SWETH( 32, 54) = 0.204125E-01
-PKER_SWETH( 32, 55) = 0.198855E-01
-PKER_SWETH( 32, 56) = 0.206112E-01
-PKER_SWETH( 32, 57) = 0.223423E-01
-PKER_SWETH( 32, 58) = 0.248393E-01
-PKER_SWETH( 32, 59) = 0.278564E-01
-PKER_SWETH( 32, 60) = 0.311658E-01
-PKER_SWETH( 32, 61) = 0.346111E-01
-PKER_SWETH( 32, 62) = 0.380645E-01
-PKER_SWETH( 32, 63) = 0.414420E-01
-PKER_SWETH( 32, 64) = 0.446910E-01
-PKER_SWETH( 32, 65) = 0.477849E-01
-PKER_SWETH( 32, 66) = 0.507120E-01
-PKER_SWETH( 32, 67) = 0.534705E-01
-PKER_SWETH( 32, 68) = 0.560645E-01
-PKER_SWETH( 32, 69) = 0.585012E-01
-PKER_SWETH( 32, 70) = 0.607887E-01
-PKER_SWETH( 32, 71) = 0.629357E-01
-PKER_SWETH( 32, 72) = 0.649507E-01
-PKER_SWETH( 32, 73) = 0.668419E-01
-PKER_SWETH( 32, 74) = 0.686169E-01
-PKER_SWETH( 32, 75) = 0.702830E-01
-PKER_SWETH( 32, 76) = 0.718470E-01
-PKER_SWETH( 32, 77) = 0.733151E-01
-PKER_SWETH( 32, 78) = 0.746934E-01
-PKER_SWETH( 32, 79) = 0.759873E-01
-PKER_SWETH( 32, 80) = 0.772022E-01
-PKER_SWETH( 33, 1) = 0.308365E+01
-PKER_SWETH( 33, 2) = 0.289113E+01
-PKER_SWETH( 33, 3) = 0.271036E+01
-PKER_SWETH( 33, 4) = 0.254062E+01
-PKER_SWETH( 33, 5) = 0.238124E+01
-PKER_SWETH( 33, 6) = 0.223158E+01
-PKER_SWETH( 33, 7) = 0.209105E+01
-PKER_SWETH( 33, 8) = 0.195909E+01
-PKER_SWETH( 33, 9) = 0.183519E+01
-PKER_SWETH( 33, 10) = 0.171884E+01
-PKER_SWETH( 33, 11) = 0.160959E+01
-PKER_SWETH( 33, 12) = 0.150700E+01
-PKER_SWETH( 33, 13) = 0.141067E+01
-PKER_SWETH( 33, 14) = 0.132022E+01
-PKER_SWETH( 33, 15) = 0.123527E+01
-PKER_SWETH( 33, 16) = 0.115551E+01
-PKER_SWETH( 33, 17) = 0.108061E+01
-PKER_SWETH( 33, 18) = 0.101027E+01
-PKER_SWETH( 33, 19) = 0.944211E+00
-PKER_SWETH( 33, 20) = 0.882174E+00
-PKER_SWETH( 33, 21) = 0.823911E+00
-PKER_SWETH( 33, 22) = 0.769187E+00
-PKER_SWETH( 33, 23) = 0.717785E+00
-PKER_SWETH( 33, 24) = 0.669498E+00
-PKER_SWETH( 33, 25) = 0.624132E+00
-PKER_SWETH( 33, 26) = 0.581504E+00
-PKER_SWETH( 33, 27) = 0.541441E+00
-PKER_SWETH( 33, 28) = 0.503779E+00
-PKER_SWETH( 33, 29) = 0.468364E+00
-PKER_SWETH( 33, 30) = 0.435048E+00
-PKER_SWETH( 33, 31) = 0.403692E+00
-PKER_SWETH( 33, 32) = 0.374162E+00
-PKER_SWETH( 33, 33) = 0.346331E+00
-PKER_SWETH( 33, 34) = 0.320078E+00
-PKER_SWETH( 33, 35) = 0.295284E+00
-PKER_SWETH( 33, 36) = 0.271839E+00
-PKER_SWETH( 33, 37) = 0.249637E+00
-PKER_SWETH( 33, 38) = 0.228579E+00
-PKER_SWETH( 33, 39) = 0.208576E+00
-PKER_SWETH( 33, 40) = 0.189552E+00
-PKER_SWETH( 33, 41) = 0.171446E+00
-PKER_SWETH( 33, 42) = 0.154219E+00
-PKER_SWETH( 33, 43) = 0.137857E+00
-PKER_SWETH( 33, 44) = 0.122365E+00
-PKER_SWETH( 33, 45) = 0.107772E+00
-PKER_SWETH( 33, 46) = 0.941135E-01
-PKER_SWETH( 33, 47) = 0.814306E-01
-PKER_SWETH( 33, 48) = 0.697596E-01
-PKER_SWETH( 33, 49) = 0.591329E-01
-PKER_SWETH( 33, 50) = 0.495874E-01
-PKER_SWETH( 33, 51) = 0.411680E-01
-PKER_SWETH( 33, 52) = 0.339301E-01
-PKER_SWETH( 33, 53) = 0.279413E-01
-PKER_SWETH( 33, 54) = 0.232585E-01
-PKER_SWETH( 33, 55) = 0.199094E-01
-PKER_SWETH( 33, 56) = 0.178713E-01
-PKER_SWETH( 33, 57) = 0.170702E-01
-PKER_SWETH( 33, 58) = 0.173718E-01
-PKER_SWETH( 33, 59) = 0.185930E-01
-PKER_SWETH( 33, 60) = 0.205264E-01
-PKER_SWETH( 33, 61) = 0.229634E-01
-PKER_SWETH( 33, 62) = 0.257251E-01
-PKER_SWETH( 33, 63) = 0.286451E-01
-PKER_SWETH( 33, 64) = 0.316079E-01
-PKER_SWETH( 33, 65) = 0.345319E-01
-PKER_SWETH( 33, 66) = 0.373616E-01
-PKER_SWETH( 33, 67) = 0.400676E-01
-PKER_SWETH( 33, 68) = 0.426346E-01
-PKER_SWETH( 33, 69) = 0.450580E-01
-PKER_SWETH( 33, 70) = 0.473394E-01
-PKER_SWETH( 33, 71) = 0.494840E-01
-PKER_SWETH( 33, 72) = 0.514983E-01
-PKER_SWETH( 33, 73) = 0.533894E-01
-PKER_SWETH( 33, 74) = 0.551646E-01
-PKER_SWETH( 33, 75) = 0.568310E-01
-PKER_SWETH( 33, 76) = 0.583952E-01
-PKER_SWETH( 33, 77) = 0.598636E-01
-PKER_SWETH( 33, 78) = 0.612421E-01
-PKER_SWETH( 33, 79) = 0.625362E-01
-PKER_SWETH( 33, 80) = 0.637511E-01
-PKER_SWETH( 34, 1) = 0.309367E+01
-PKER_SWETH( 34, 2) = 0.290116E+01
-PKER_SWETH( 34, 3) = 0.272039E+01
-PKER_SWETH( 34, 4) = 0.255065E+01
-PKER_SWETH( 34, 5) = 0.239127E+01
-PKER_SWETH( 34, 6) = 0.224161E+01
-PKER_SWETH( 34, 7) = 0.210108E+01
-PKER_SWETH( 34, 8) = 0.196913E+01
-PKER_SWETH( 34, 9) = 0.184522E+01
-PKER_SWETH( 34, 10) = 0.172888E+01
-PKER_SWETH( 34, 11) = 0.161963E+01
-PKER_SWETH( 34, 12) = 0.151704E+01
-PKER_SWETH( 34, 13) = 0.142072E+01
-PKER_SWETH( 34, 14) = 0.133026E+01
-PKER_SWETH( 34, 15) = 0.124533E+01
-PKER_SWETH( 34, 16) = 0.116557E+01
-PKER_SWETH( 34, 17) = 0.109067E+01
-PKER_SWETH( 34, 18) = 0.102034E+01
-PKER_SWETH( 34, 19) = 0.954292E+00
-PKER_SWETH( 34, 20) = 0.892266E+00
-PKER_SWETH( 34, 21) = 0.834015E+00
-PKER_SWETH( 34, 22) = 0.779307E+00
-PKER_SWETH( 34, 23) = 0.727923E+00
-PKER_SWETH( 34, 24) = 0.679659E+00
-PKER_SWETH( 34, 25) = 0.634319E+00
-PKER_SWETH( 34, 26) = 0.591723E+00
-PKER_SWETH( 34, 27) = 0.551698E+00
-PKER_SWETH( 34, 28) = 0.514082E+00
-PKER_SWETH( 34, 29) = 0.478721E+00
-PKER_SWETH( 34, 30) = 0.445471E+00
-PKER_SWETH( 34, 31) = 0.414193E+00
-PKER_SWETH( 34, 32) = 0.384756E+00
-PKER_SWETH( 34, 33) = 0.357036E+00
-PKER_SWETH( 34, 34) = 0.330913E+00
-PKER_SWETH( 34, 35) = 0.306273E+00
-PKER_SWETH( 34, 36) = 0.283006E+00
-PKER_SWETH( 34, 37) = 0.261009E+00
-PKER_SWETH( 34, 38) = 0.240184E+00
-PKER_SWETH( 34, 39) = 0.220436E+00
-PKER_SWETH( 34, 40) = 0.201685E+00
-PKER_SWETH( 34, 41) = 0.183858E+00
-PKER_SWETH( 34, 42) = 0.166898E+00
-PKER_SWETH( 34, 43) = 0.150769E+00
-PKER_SWETH( 34, 44) = 0.135455E+00
-PKER_SWETH( 34, 45) = 0.120960E+00
-PKER_SWETH( 34, 46) = 0.107304E+00
-PKER_SWETH( 34, 47) = 0.945159E-01
-PKER_SWETH( 34, 48) = 0.826218E-01
-PKER_SWETH( 34, 49) = 0.716384E-01
-PKER_SWETH( 34, 50) = 0.615720E-01
-PKER_SWETH( 34, 51) = 0.524221E-01
-PKER_SWETH( 34, 52) = 0.441914E-01
-PKER_SWETH( 34, 53) = 0.368950E-01
-PKER_SWETH( 34, 54) = 0.305630E-01
-PKER_SWETH( 34, 55) = 0.252431E-01
-PKER_SWETH( 34, 56) = 0.209881E-01
-PKER_SWETH( 34, 57) = 0.178255E-01
-PKER_SWETH( 34, 58) = 0.157648E-01
-PKER_SWETH( 34, 59) = 0.147630E-01
-PKER_SWETH( 34, 60) = 0.147237E-01
-PKER_SWETH( 34, 61) = 0.155170E-01
-PKER_SWETH( 34, 62) = 0.169756E-01
-PKER_SWETH( 34, 63) = 0.189247E-01
-PKER_SWETH( 34, 64) = 0.212006E-01
-PKER_SWETH( 34, 65) = 0.236626E-01
-PKER_SWETH( 34, 66) = 0.261994E-01
-PKER_SWETH( 34, 67) = 0.287254E-01
-PKER_SWETH( 34, 68) = 0.311875E-01
-PKER_SWETH( 34, 69) = 0.335528E-01
-PKER_SWETH( 34, 70) = 0.358031E-01
-PKER_SWETH( 34, 71) = 0.379320E-01
-PKER_SWETH( 34, 72) = 0.399386E-01
-PKER_SWETH( 34, 73) = 0.418263E-01
-PKER_SWETH( 34, 74) = 0.436002E-01
-PKER_SWETH( 34, 75) = 0.452662E-01
-PKER_SWETH( 34, 76) = 0.468304E-01
-PKER_SWETH( 34, 77) = 0.482989E-01
-PKER_SWETH( 34, 78) = 0.496775E-01
-PKER_SWETH( 34, 79) = 0.509718E-01
-PKER_SWETH( 34, 80) = 0.521868E-01
-PKER_SWETH( 35, 1) = 0.310229E+01
-PKER_SWETH( 35, 2) = 0.290978E+01
-PKER_SWETH( 35, 3) = 0.272901E+01
-PKER_SWETH( 35, 4) = 0.255927E+01
-PKER_SWETH( 35, 5) = 0.239989E+01
-PKER_SWETH( 35, 6) = 0.225023E+01
-PKER_SWETH( 35, 7) = 0.210971E+01
-PKER_SWETH( 35, 8) = 0.197775E+01
-PKER_SWETH( 35, 9) = 0.185385E+01
-PKER_SWETH( 35, 10) = 0.173750E+01
-PKER_SWETH( 35, 11) = 0.162826E+01
-PKER_SWETH( 35, 12) = 0.152568E+01
-PKER_SWETH( 35, 13) = 0.142935E+01
-PKER_SWETH( 35, 14) = 0.133890E+01
-PKER_SWETH( 35, 15) = 0.125397E+01
-PKER_SWETH( 35, 16) = 0.117421E+01
-PKER_SWETH( 35, 17) = 0.109932E+01
-PKER_SWETH( 35, 18) = 0.102899E+01
-PKER_SWETH( 35, 19) = 0.962954E+00
-PKER_SWETH( 35, 20) = 0.900936E+00
-PKER_SWETH( 35, 21) = 0.842695E+00
-PKER_SWETH( 35, 22) = 0.787999E+00
-PKER_SWETH( 35, 23) = 0.736630E+00
-PKER_SWETH( 35, 24) = 0.688382E+00
-PKER_SWETH( 35, 25) = 0.643063E+00
-PKER_SWETH( 35, 26) = 0.600491E+00
-PKER_SWETH( 35, 27) = 0.560496E+00
-PKER_SWETH( 35, 28) = 0.522915E+00
-PKER_SWETH( 35, 29) = 0.487596E+00
-PKER_SWETH( 35, 30) = 0.454396E+00
-PKER_SWETH( 35, 31) = 0.423178E+00
-PKER_SWETH( 35, 32) = 0.393812E+00
-PKER_SWETH( 35, 33) = 0.366177E+00
-PKER_SWETH( 35, 34) = 0.340155E+00
-PKER_SWETH( 35, 35) = 0.315634E+00
-PKER_SWETH( 35, 36) = 0.292507E+00
-PKER_SWETH( 35, 37) = 0.270673E+00
-PKER_SWETH( 35, 38) = 0.250034E+00
-PKER_SWETH( 35, 39) = 0.230497E+00
-PKER_SWETH( 35, 40) = 0.211978E+00
-PKER_SWETH( 35, 41) = 0.194397E+00
-PKER_SWETH( 35, 42) = 0.177688E+00
-PKER_SWETH( 35, 43) = 0.161799E+00
-PKER_SWETH( 35, 44) = 0.146695E+00
-PKER_SWETH( 35, 45) = 0.132358E+00
-PKER_SWETH( 35, 46) = 0.118793E+00
-PKER_SWETH( 35, 47) = 0.106016E+00
-PKER_SWETH( 35, 48) = 0.940490E-01
-PKER_SWETH( 35, 49) = 0.829116E-01
-PKER_SWETH( 35, 50) = 0.726109E-01
-PKER_SWETH( 35, 51) = 0.631403E-01
-PKER_SWETH( 35, 52) = 0.544809E-01
-PKER_SWETH( 35, 53) = 0.466098E-01
-PKER_SWETH( 35, 54) = 0.395099E-01
-PKER_SWETH( 35, 55) = 0.331777E-01
-PKER_SWETH( 35, 56) = 0.276290E-01
-PKER_SWETH( 35, 57) = 0.228990E-01
-PKER_SWETH( 35, 58) = 0.190322E-01
-PKER_SWETH( 35, 59) = 0.160626E-01
-PKER_SWETH( 35, 60) = 0.140126E-01
-PKER_SWETH( 35, 61) = 0.128671E-01
-PKER_SWETH( 35, 62) = 0.125631E-01
-PKER_SWETH( 35, 63) = 0.130040E-01
-PKER_SWETH( 35, 64) = 0.140640E-01
-PKER_SWETH( 35, 65) = 0.155956E-01
-PKER_SWETH( 35, 66) = 0.174553E-01
-PKER_SWETH( 35, 67) = 0.195193E-01
-PKER_SWETH( 35, 68) = 0.216784E-01
-PKER_SWETH( 35, 69) = 0.238555E-01
-PKER_SWETH( 35, 70) = 0.259938E-01
-PKER_SWETH( 35, 71) = 0.280589E-01
-PKER_SWETH( 35, 72) = 0.300308E-01
-PKER_SWETH( 35, 73) = 0.319003E-01
-PKER_SWETH( 35, 74) = 0.336651E-01
-PKER_SWETH( 35, 75) = 0.353268E-01
-PKER_SWETH( 35, 76) = 0.368892E-01
-PKER_SWETH( 35, 77) = 0.383569E-01
-PKER_SWETH( 35, 78) = 0.397353E-01
-PKER_SWETH( 35, 79) = 0.410295E-01
-PKER_SWETH( 35, 80) = 0.422447E-01
-PKER_SWETH( 36, 1) = 0.310970E+01
-PKER_SWETH( 36, 2) = 0.291719E+01
-PKER_SWETH( 36, 3) = 0.273642E+01
-PKER_SWETH( 36, 4) = 0.256668E+01
-PKER_SWETH( 36, 5) = 0.240730E+01
-PKER_SWETH( 36, 6) = 0.225765E+01
-PKER_SWETH( 36, 7) = 0.211712E+01
-PKER_SWETH( 36, 8) = 0.198517E+01
-PKER_SWETH( 36, 9) = 0.186126E+01
-PKER_SWETH( 36, 10) = 0.174492E+01
-PKER_SWETH( 36, 11) = 0.163568E+01
-PKER_SWETH( 36, 12) = 0.153310E+01
-PKER_SWETH( 36, 13) = 0.143677E+01
-PKER_SWETH( 36, 14) = 0.134632E+01
-PKER_SWETH( 36, 15) = 0.126139E+01
-PKER_SWETH( 36, 16) = 0.118164E+01
-PKER_SWETH( 36, 17) = 0.110675E+01
-PKER_SWETH( 36, 18) = 0.103643E+01
-PKER_SWETH( 36, 19) = 0.970397E+00
-PKER_SWETH( 36, 20) = 0.908386E+00
-PKER_SWETH( 36, 21) = 0.850153E+00
-PKER_SWETH( 36, 22) = 0.795466E+00
-PKER_SWETH( 36, 23) = 0.744108E+00
-PKER_SWETH( 36, 24) = 0.695873E+00
-PKER_SWETH( 36, 25) = 0.650570E+00
-PKER_SWETH( 36, 26) = 0.608017E+00
-PKER_SWETH( 36, 27) = 0.568044E+00
-PKER_SWETH( 36, 28) = 0.530490E+00
-PKER_SWETH( 36, 29) = 0.495203E+00
-PKER_SWETH( 36, 30) = 0.462042E+00
-PKER_SWETH( 36, 31) = 0.430869E+00
-PKER_SWETH( 36, 32) = 0.401559E+00
-PKER_SWETH( 36, 33) = 0.373989E+00
-PKER_SWETH( 36, 34) = 0.348045E+00
-PKER_SWETH( 36, 35) = 0.323616E+00
-PKER_SWETH( 36, 36) = 0.300599E+00
-PKER_SWETH( 36, 37) = 0.278892E+00
-PKER_SWETH( 36, 38) = 0.258401E+00
-PKER_SWETH( 36, 39) = 0.239034E+00
-PKER_SWETH( 36, 40) = 0.220706E+00
-PKER_SWETH( 36, 41) = 0.203335E+00
-PKER_SWETH( 36, 42) = 0.186850E+00
-PKER_SWETH( 36, 43) = 0.171188E+00
-PKER_SWETH( 36, 44) = 0.156300E+00
-PKER_SWETH( 36, 45) = 0.142151E+00
-PKER_SWETH( 36, 46) = 0.128727E+00
-PKER_SWETH( 36, 47) = 0.116029E+00
-PKER_SWETH( 36, 48) = 0.104072E+00
-PKER_SWETH( 36, 49) = 0.928735E-01
-PKER_SWETH( 36, 50) = 0.824495E-01
-PKER_SWETH( 36, 51) = 0.728026E-01
-PKER_SWETH( 36, 52) = 0.639198E-01
-PKER_SWETH( 36, 53) = 0.557752E-01
-PKER_SWETH( 36, 54) = 0.483333E-01
-PKER_SWETH( 36, 55) = 0.415587E-01
-PKER_SWETH( 36, 56) = 0.354254E-01
-PKER_SWETH( 36, 57) = 0.299195E-01
-PKER_SWETH( 36, 58) = 0.250483E-01
-PKER_SWETH( 36, 59) = 0.208397E-01
-PKER_SWETH( 36, 60) = 0.173299E-01
-PKER_SWETH( 36, 61) = 0.145557E-01
-PKER_SWETH( 36, 62) = 0.125495E-01
-PKER_SWETH( 36, 63) = 0.113080E-01
-PKER_SWETH( 36, 64) = 0.108016E-01
-PKER_SWETH( 36, 65) = 0.109613E-01
-PKER_SWETH( 36, 66) = 0.116849E-01
-PKER_SWETH( 36, 67) = 0.128598E-01
-PKER_SWETH( 36, 68) = 0.143640E-01
-PKER_SWETH( 36, 69) = 0.160768E-01
-PKER_SWETH( 36, 70) = 0.179090E-01
-PKER_SWETH( 36, 71) = 0.197779E-01
-PKER_SWETH( 36, 72) = 0.216309E-01
-PKER_SWETH( 36, 73) = 0.234315E-01
-PKER_SWETH( 36, 74) = 0.251579E-01
-PKER_SWETH( 36, 75) = 0.267991E-01
-PKER_SWETH( 36, 76) = 0.283509E-01
-PKER_SWETH( 36, 77) = 0.298135E-01
-PKER_SWETH( 36, 78) = 0.311895E-01
-PKER_SWETH( 36, 79) = 0.324827E-01
-PKER_SWETH( 36, 80) = 0.336974E-01
-PKER_SWETH( 37, 1) = 0.311608E+01
-PKER_SWETH( 37, 2) = 0.292356E+01
-PKER_SWETH( 37, 3) = 0.274280E+01
-PKER_SWETH( 37, 4) = 0.257306E+01
-PKER_SWETH( 37, 5) = 0.241368E+01
-PKER_SWETH( 37, 6) = 0.226402E+01
-PKER_SWETH( 37, 7) = 0.212349E+01
-PKER_SWETH( 37, 8) = 0.199154E+01
-PKER_SWETH( 37, 9) = 0.186764E+01
-PKER_SWETH( 37, 10) = 0.175130E+01
-PKER_SWETH( 37, 11) = 0.164205E+01
-PKER_SWETH( 37, 12) = 0.153947E+01
-PKER_SWETH( 37, 13) = 0.144315E+01
-PKER_SWETH( 37, 14) = 0.135271E+01
-PKER_SWETH( 37, 15) = 0.126778E+01
-PKER_SWETH( 37, 16) = 0.118803E+01
-PKER_SWETH( 37, 17) = 0.111314E+01
-PKER_SWETH( 37, 18) = 0.104282E+01
-PKER_SWETH( 37, 19) = 0.976794E+00
-PKER_SWETH( 37, 20) = 0.914788E+00
-PKER_SWETH( 37, 21) = 0.856560E+00
-PKER_SWETH( 37, 22) = 0.801881E+00
-PKER_SWETH( 37, 23) = 0.750531E+00
-PKER_SWETH( 37, 24) = 0.702307E+00
-PKER_SWETH( 37, 25) = 0.657016E+00
-PKER_SWETH( 37, 26) = 0.614477E+00
-PKER_SWETH( 37, 27) = 0.574521E+00
-PKER_SWETH( 37, 28) = 0.536988E+00
-PKER_SWETH( 37, 29) = 0.501726E+00
-PKER_SWETH( 37, 30) = 0.468594E+00
-PKER_SWETH( 37, 31) = 0.437458E+00
-PKER_SWETH( 37, 32) = 0.408190E+00
-PKER_SWETH( 37, 33) = 0.380671E+00
-PKER_SWETH( 37, 34) = 0.354786E+00
-PKER_SWETH( 37, 35) = 0.330429E+00
-PKER_SWETH( 37, 36) = 0.307496E+00
-PKER_SWETH( 37, 37) = 0.285889E+00
-PKER_SWETH( 37, 38) = 0.265514E+00
-PKER_SWETH( 37, 39) = 0.246283E+00
-PKER_SWETH( 37, 40) = 0.228109E+00
-PKER_SWETH( 37, 41) = 0.210913E+00
-PKER_SWETH( 37, 42) = 0.194619E+00
-PKER_SWETH( 37, 43) = 0.179160E+00
-PKER_SWETH( 37, 44) = 0.164477E+00
-PKER_SWETH( 37, 45) = 0.150523E+00
-PKER_SWETH( 37, 46) = 0.137268E+00
-PKER_SWETH( 37, 47) = 0.124695E+00
-PKER_SWETH( 37, 48) = 0.112806E+00
-PKER_SWETH( 37, 49) = 0.101613E+00
-PKER_SWETH( 37, 50) = 0.911322E-01
-PKER_SWETH( 37, 51) = 0.813759E-01
-PKER_SWETH( 37, 52) = 0.723446E-01
-PKER_SWETH( 37, 53) = 0.640238E-01
-PKER_SWETH( 37, 54) = 0.563838E-01
-PKER_SWETH( 37, 55) = 0.493857E-01
-PKER_SWETH( 37, 56) = 0.429865E-01
-PKER_SWETH( 37, 57) = 0.371471E-01
-PKER_SWETH( 37, 58) = 0.318367E-01
-PKER_SWETH( 37, 59) = 0.270401E-01
-PKER_SWETH( 37, 60) = 0.227582E-01
-PKER_SWETH( 37, 61) = 0.190115E-01
-PKER_SWETH( 37, 62) = 0.158324E-01
-PKER_SWETH( 37, 63) = 0.132541E-01
-PKER_SWETH( 37, 64) = 0.113154E-01
-PKER_SWETH( 37, 65) = 0.100251E-01
-PKER_SWETH( 37, 66) = 0.936563E-02
-PKER_SWETH( 37, 67) = 0.929977E-02
-PKER_SWETH( 37, 68) = 0.975168E-02
-PKER_SWETH( 37, 69) = 0.106226E-01
-PKER_SWETH( 37, 70) = 0.118165E-01
-PKER_SWETH( 37, 71) = 0.132315E-01
-PKER_SWETH( 37, 72) = 0.147715E-01
-PKER_SWETH( 37, 73) = 0.163699E-01
-PKER_SWETH( 37, 74) = 0.179714E-01
-PKER_SWETH( 37, 75) = 0.195388E-01
-PKER_SWETH( 37, 76) = 0.210485E-01
-PKER_SWETH( 37, 77) = 0.224882E-01
-PKER_SWETH( 37, 78) = 0.238523E-01
-PKER_SWETH( 37, 79) = 0.251394E-01
-PKER_SWETH( 37, 80) = 0.263512E-01
-PKER_SWETH( 38, 1) = 0.312155E+01
-PKER_SWETH( 38, 2) = 0.292904E+01
-PKER_SWETH( 38, 3) = 0.274827E+01
-PKER_SWETH( 38, 4) = 0.257854E+01
-PKER_SWETH( 38, 5) = 0.241915E+01
-PKER_SWETH( 38, 6) = 0.226950E+01
-PKER_SWETH( 38, 7) = 0.212897E+01
-PKER_SWETH( 38, 8) = 0.199702E+01
-PKER_SWETH( 38, 9) = 0.187312E+01
-PKER_SWETH( 38, 10) = 0.175678E+01
-PKER_SWETH( 38, 11) = 0.164753E+01
-PKER_SWETH( 38, 12) = 0.154496E+01
-PKER_SWETH( 38, 13) = 0.144864E+01
-PKER_SWETH( 38, 14) = 0.135819E+01
-PKER_SWETH( 38, 15) = 0.127326E+01
-PKER_SWETH( 38, 16) = 0.119352E+01
-PKER_SWETH( 38, 17) = 0.111863E+01
-PKER_SWETH( 38, 18) = 0.104832E+01
-PKER_SWETH( 38, 19) = 0.982291E+00
-PKER_SWETH( 38, 20) = 0.920289E+00
-PKER_SWETH( 38, 21) = 0.862066E+00
-PKER_SWETH( 38, 22) = 0.807392E+00
-PKER_SWETH( 38, 23) = 0.756049E+00
-PKER_SWETH( 38, 24) = 0.707832E+00
-PKER_SWETH( 38, 25) = 0.662551E+00
-PKER_SWETH( 38, 26) = 0.620024E+00
-PKER_SWETH( 38, 27) = 0.580081E+00
-PKER_SWETH( 38, 28) = 0.542564E+00
-PKER_SWETH( 38, 29) = 0.507322E+00
-PKER_SWETH( 38, 30) = 0.474213E+00
-PKER_SWETH( 38, 31) = 0.443103E+00
-PKER_SWETH( 38, 32) = 0.413868E+00
-PKER_SWETH( 38, 33) = 0.386388E+00
-PKER_SWETH( 38, 34) = 0.360550E+00
-PKER_SWETH( 38, 35) = 0.336248E+00
-PKER_SWETH( 38, 36) = 0.313380E+00
-PKER_SWETH( 38, 37) = 0.291851E+00
-PKER_SWETH( 38, 38) = 0.271567E+00
-PKER_SWETH( 38, 39) = 0.252443E+00
-PKER_SWETH( 38, 40) = 0.234393E+00
-PKER_SWETH( 38, 41) = 0.217338E+00
-PKER_SWETH( 38, 42) = 0.201203E+00
-PKER_SWETH( 38, 43) = 0.185918E+00
-PKER_SWETH( 38, 44) = 0.171419E+00
-PKER_SWETH( 38, 45) = 0.157652E+00
-PKER_SWETH( 38, 46) = 0.144573E+00
-PKER_SWETH( 38, 47) = 0.132151E+00
-PKER_SWETH( 38, 48) = 0.120374E+00
-PKER_SWETH( 38, 49) = 0.109240E+00
-PKER_SWETH( 38, 50) = 0.987594E-01
-PKER_SWETH( 38, 51) = 0.889476E-01
-PKER_SWETH( 38, 52) = 0.798146E-01
-PKER_SWETH( 38, 53) = 0.713596E-01
-PKER_SWETH( 38, 54) = 0.635674E-01
-PKER_SWETH( 38, 55) = 0.564087E-01
-PKER_SWETH( 38, 56) = 0.498437E-01
-PKER_SWETH( 38, 57) = 0.438276E-01
-PKER_SWETH( 38, 58) = 0.383165E-01
-PKER_SWETH( 38, 59) = 0.332715E-01
-PKER_SWETH( 38, 60) = 0.286636E-01
-PKER_SWETH( 38, 61) = 0.244758E-01
-PKER_SWETH( 38, 62) = 0.207079E-01
-PKER_SWETH( 38, 63) = 0.173736E-01
-PKER_SWETH( 38, 64) = 0.144984E-01
-PKER_SWETH( 38, 65) = 0.121181E-01
-PKER_SWETH( 38, 66) = 0.102648E-01
-PKER_SWETH( 38, 67) = 0.895844E-02
-PKER_SWETH( 38, 68) = 0.819655E-02
-PKER_SWETH( 38, 69) = 0.795499E-02
-PKER_SWETH( 38, 70) = 0.818194E-02
-PKER_SWETH( 38, 71) = 0.880268E-02
-PKER_SWETH( 38, 72) = 0.973113E-02
-PKER_SWETH( 38, 73) = 0.108789E-01
-PKER_SWETH( 38, 74) = 0.121690E-01
-PKER_SWETH( 38, 75) = 0.135287E-01
-PKER_SWETH( 38, 76) = 0.149074E-01
-PKER_SWETH( 38, 77) = 0.162683E-01
-PKER_SWETH( 38, 78) = 0.175866E-01
-PKER_SWETH( 38, 79) = 0.188485E-01
-PKER_SWETH( 38, 80) = 0.200469E-01
-PKER_SWETH( 39, 1) = 0.312626E+01
-PKER_SWETH( 39, 2) = 0.293375E+01
-PKER_SWETH( 39, 3) = 0.275298E+01
-PKER_SWETH( 39, 4) = 0.258325E+01
-PKER_SWETH( 39, 5) = 0.242386E+01
-PKER_SWETH( 39, 6) = 0.227421E+01
-PKER_SWETH( 39, 7) = 0.213368E+01
-PKER_SWETH( 39, 8) = 0.200173E+01
-PKER_SWETH( 39, 9) = 0.187783E+01
-PKER_SWETH( 39, 10) = 0.176149E+01
-PKER_SWETH( 39, 11) = 0.165225E+01
-PKER_SWETH( 39, 12) = 0.154967E+01
-PKER_SWETH( 39, 13) = 0.145335E+01
-PKER_SWETH( 39, 14) = 0.136291E+01
-PKER_SWETH( 39, 15) = 0.127798E+01
-PKER_SWETH( 39, 16) = 0.119824E+01
-PKER_SWETH( 39, 17) = 0.112335E+01
-PKER_SWETH( 39, 18) = 0.105304E+01
-PKER_SWETH( 39, 19) = 0.987015E+00
-PKER_SWETH( 39, 20) = 0.925016E+00
-PKER_SWETH( 39, 21) = 0.866797E+00
-PKER_SWETH( 39, 22) = 0.812128E+00
-PKER_SWETH( 39, 23) = 0.760790E+00
-PKER_SWETH( 39, 24) = 0.712579E+00
-PKER_SWETH( 39, 25) = 0.667305E+00
-PKER_SWETH( 39, 26) = 0.624787E+00
-PKER_SWETH( 39, 27) = 0.584855E+00
-PKER_SWETH( 39, 28) = 0.547350E+00
-PKER_SWETH( 39, 29) = 0.512122E+00
-PKER_SWETH( 39, 30) = 0.479031E+00
-PKER_SWETH( 39, 31) = 0.447943E+00
-PKER_SWETH( 39, 32) = 0.418733E+00
-PKER_SWETH( 39, 33) = 0.391283E+00
-PKER_SWETH( 39, 34) = 0.365481E+00
-PKER_SWETH( 39, 35) = 0.341221E+00
-PKER_SWETH( 39, 36) = 0.318405E+00
-PKER_SWETH( 39, 37) = 0.296935E+00
-PKER_SWETH( 39, 38) = 0.276723E+00
-PKER_SWETH( 39, 39) = 0.257682E+00
-PKER_SWETH( 39, 40) = 0.239730E+00
-PKER_SWETH( 39, 41) = 0.222789E+00
-PKER_SWETH( 39, 42) = 0.206783E+00
-PKER_SWETH( 39, 43) = 0.191643E+00
-PKER_SWETH( 39, 44) = 0.177303E+00
-PKER_SWETH( 39, 45) = 0.163704E+00
-PKER_SWETH( 39, 46) = 0.150794E+00
-PKER_SWETH( 39, 47) = 0.138532E+00
-PKER_SWETH( 39, 48) = 0.126891E+00
-PKER_SWETH( 39, 49) = 0.115856E+00
-PKER_SWETH( 39, 50) = 0.105427E+00
-PKER_SWETH( 39, 51) = 0.956115E-01
-PKER_SWETH( 39, 52) = 0.864237E-01
-PKER_SWETH( 39, 53) = 0.778719E-01
-PKER_SWETH( 39, 54) = 0.699550E-01
-PKER_SWETH( 39, 55) = 0.626577E-01
-PKER_SWETH( 39, 56) = 0.559517E-01
-PKER_SWETH( 39, 57) = 0.497985E-01
-PKER_SWETH( 39, 58) = 0.441542E-01
-PKER_SWETH( 39, 59) = 0.389738E-01
-PKER_SWETH( 39, 60) = 0.342166E-01
-PKER_SWETH( 39, 61) = 0.298469E-01
-PKER_SWETH( 39, 62) = 0.258389E-01
-PKER_SWETH( 39, 63) = 0.221768E-01
-PKER_SWETH( 39, 64) = 0.188576E-01
-PKER_SWETH( 39, 65) = 0.158916E-01
-PKER_SWETH( 39, 66) = 0.132994E-01
-PKER_SWETH( 39, 67) = 0.111114E-01
-PKER_SWETH( 39, 68) = 0.936006E-02
-PKER_SWETH( 39, 69) = 0.806501E-02
-PKER_SWETH( 39, 70) = 0.723816E-02
-PKER_SWETH( 39, 71) = 0.686650E-02
-PKER_SWETH( 39, 72) = 0.691235E-02
-PKER_SWETH( 39, 73) = 0.732242E-02
-PKER_SWETH( 39, 74) = 0.802562E-02
-PKER_SWETH( 39, 75) = 0.894621E-02
-PKER_SWETH( 39, 76) = 0.100126E-01
-PKER_SWETH( 39, 77) = 0.111624E-01
-PKER_SWETH( 39, 78) = 0.123458E-01
-PKER_SWETH( 39, 79) = 0.135242E-01
-PKER_SWETH( 39, 80) = 0.146735E-01
-PKER_SWETH( 40, 1) = 0.313031E+01
-PKER_SWETH( 40, 2) = 0.293780E+01
-PKER_SWETH( 40, 3) = 0.275703E+01
-PKER_SWETH( 40, 4) = 0.258729E+01
-PKER_SWETH( 40, 5) = 0.242791E+01
-PKER_SWETH( 40, 6) = 0.227826E+01
-PKER_SWETH( 40, 7) = 0.213773E+01
-PKER_SWETH( 40, 8) = 0.200578E+01
-PKER_SWETH( 40, 9) = 0.188188E+01
-PKER_SWETH( 40, 10) = 0.176554E+01
-PKER_SWETH( 40, 11) = 0.165630E+01
-PKER_SWETH( 40, 12) = 0.155372E+01
-PKER_SWETH( 40, 13) = 0.145740E+01
-PKER_SWETH( 40, 14) = 0.136696E+01
-PKER_SWETH( 40, 15) = 0.128203E+01
-PKER_SWETH( 40, 16) = 0.120229E+01
-PKER_SWETH( 40, 17) = 0.112741E+01
-PKER_SWETH( 40, 18) = 0.105710E+01
-PKER_SWETH( 40, 19) = 0.991076E+00
-PKER_SWETH( 40, 20) = 0.929079E+00
-PKER_SWETH( 40, 21) = 0.870863E+00
-PKER_SWETH( 40, 22) = 0.816197E+00
-PKER_SWETH( 40, 23) = 0.764863E+00
-PKER_SWETH( 40, 24) = 0.716657E+00
-PKER_SWETH( 40, 25) = 0.671389E+00
-PKER_SWETH( 40, 26) = 0.628877E+00
-PKER_SWETH( 40, 27) = 0.588953E+00
-PKER_SWETH( 40, 28) = 0.551458E+00
-PKER_SWETH( 40, 29) = 0.516242E+00
-PKER_SWETH( 40, 30) = 0.483165E+00
-PKER_SWETH( 40, 31) = 0.452093E+00
-PKER_SWETH( 40, 32) = 0.422902E+00
-PKER_SWETH( 40, 33) = 0.395476E+00
-PKER_SWETH( 40, 34) = 0.369701E+00
-PKER_SWETH( 40, 35) = 0.345475E+00
-PKER_SWETH( 40, 36) = 0.322698E+00
-PKER_SWETH( 40, 37) = 0.301275E+00
-PKER_SWETH( 40, 38) = 0.281119E+00
-PKER_SWETH( 40, 39) = 0.262143E+00
-PKER_SWETH( 40, 40) = 0.244268E+00
-PKER_SWETH( 40, 41) = 0.227416E+00
-PKER_SWETH( 40, 42) = 0.211515E+00
-PKER_SWETH( 40, 43) = 0.196493E+00
-PKER_SWETH( 40, 44) = 0.182286E+00
-PKER_SWETH( 40, 45) = 0.168832E+00
-PKER_SWETH( 40, 46) = 0.156075E+00
-PKER_SWETH( 40, 47) = 0.143968E+00
-PKER_SWETH( 40, 48) = 0.132471E+00
-PKER_SWETH( 40, 49) = 0.121560E+00
-PKER_SWETH( 40, 50) = 0.111219E+00
-PKER_SWETH( 40, 51) = 0.101447E+00
-PKER_SWETH( 40, 52) = 0.922530E-01
-PKER_SWETH( 40, 53) = 0.836474E-01
-PKER_SWETH( 40, 54) = 0.756380E-01
-PKER_SWETH( 40, 55) = 0.682230E-01
-PKER_SWETH( 40, 56) = 0.613879E-01
-PKER_SWETH( 40, 57) = 0.551058E-01
-PKER_SWETH( 40, 58) = 0.493398E-01
-PKER_SWETH( 40, 59) = 0.440480E-01
-PKER_SWETH( 40, 60) = 0.391874E-01
-PKER_SWETH( 40, 61) = 0.347167E-01
-PKER_SWETH( 40, 62) = 0.305992E-01
-PKER_SWETH( 40, 63) = 0.268049E-01
-PKER_SWETH( 40, 64) = 0.233110E-01
-PKER_SWETH( 40, 65) = 0.201033E-01
-PKER_SWETH( 40, 66) = 0.171779E-01
-PKER_SWETH( 40, 67) = 0.145412E-01
-PKER_SWETH( 40, 68) = 0.122100E-01
-PKER_SWETH( 40, 69) = 0.102095E-01
-PKER_SWETH( 40, 70) = 0.856828E-02
-PKER_SWETH( 40, 71) = 0.730855E-02
-PKER_SWETH( 40, 72) = 0.644644E-02
-PKER_SWETH( 40, 73) = 0.598027E-02
-PKER_SWETH( 40, 74) = 0.588539E-02
-PKER_SWETH( 40, 75) = 0.612142E-02
-PKER_SWETH( 40, 76) = 0.663468E-02
-PKER_SWETH( 40, 77) = 0.735968E-02
-PKER_SWETH( 40, 78) = 0.823287E-02
-PKER_SWETH( 40, 79) = 0.919883E-02
-PKER_SWETH( 40, 80) = 0.102081E-01
+PKER_SWETH( 1, 1) = 0.849908E+01
+PKER_SWETH( 1, 2) = 0.855087E+01
+PKER_SWETH( 1, 3) = 0.860175E+01
+PKER_SWETH( 1, 4) = 0.865164E+01
+PKER_SWETH( 1, 5) = 0.870050E+01
+PKER_SWETH( 1, 6) = 0.874827E+01
+PKER_SWETH( 1, 7) = 0.879492E+01
+PKER_SWETH( 1, 8) = 0.884041E+01
+PKER_SWETH( 1, 9) = 0.888471E+01
+PKER_SWETH( 1, 10) = 0.892780E+01
+PKER_SWETH( 1, 11) = 0.896967E+01
+PKER_SWETH( 1, 12) = 0.901031E+01
+PKER_SWETH( 1, 13) = 0.904972E+01
+PKER_SWETH( 1, 14) = 0.908790E+01
+PKER_SWETH( 1, 15) = 0.912486E+01
+PKER_SWETH( 1, 16) = 0.916061E+01
+PKER_SWETH( 1, 17) = 0.919517E+01
+PKER_SWETH( 1, 18) = 0.922856E+01
+PKER_SWETH( 1, 19) = 0.926082E+01
+PKER_SWETH( 1, 20) = 0.929195E+01
+PKER_SWETH( 1, 21) = 0.932200E+01
+PKER_SWETH( 1, 22) = 0.935099E+01
+PKER_SWETH( 1, 23) = 0.937896E+01
+PKER_SWETH( 1, 24) = 0.940594E+01
+PKER_SWETH( 1, 25) = 0.943197E+01
+PKER_SWETH( 1, 26) = 0.945707E+01
+PKER_SWETH( 1, 27) = 0.948128E+01
+PKER_SWETH( 1, 28) = 0.950464E+01
+PKER_SWETH( 1, 29) = 0.952718E+01
+PKER_SWETH( 1, 30) = 0.954892E+01
+PKER_SWETH( 1, 31) = 0.956992E+01
+PKER_SWETH( 1, 32) = 0.959019E+01
+PKER_SWETH( 1, 33) = 0.960976E+01
+PKER_SWETH( 1, 34) = 0.962867E+01
+PKER_SWETH( 1, 35) = 0.964694E+01
+PKER_SWETH( 1, 36) = 0.966461E+01
+PKER_SWETH( 1, 37) = 0.968169E+01
+PKER_SWETH( 1, 38) = 0.969821E+01
+PKER_SWETH( 1, 39) = 0.971420E+01
+PKER_SWETH( 1, 40) = 0.972968E+01
+PKER_SWETH( 1, 41) = 0.974468E+01
+PKER_SWETH( 1, 42) = 0.975921E+01
+PKER_SWETH( 1, 43) = 0.977329E+01
+PKER_SWETH( 1, 44) = 0.978694E+01
+PKER_SWETH( 1, 45) = 0.980018E+01
+PKER_SWETH( 1, 46) = 0.981304E+01
+PKER_SWETH( 1, 47) = 0.982551E+01
+PKER_SWETH( 1, 48) = 0.983763E+01
+PKER_SWETH( 1, 49) = 0.984940E+01
+PKER_SWETH( 1, 50) = 0.986084E+01
+PKER_SWETH( 1, 51) = 0.987197E+01
+PKER_SWETH( 1, 52) = 0.988279E+01
+PKER_SWETH( 1, 53) = 0.989332E+01
+PKER_SWETH( 1, 54) = 0.990356E+01
+PKER_SWETH( 1, 55) = 0.991354E+01
+PKER_SWETH( 1, 56) = 0.992326E+01
+PKER_SWETH( 1, 57) = 0.993273E+01
+PKER_SWETH( 1, 58) = 0.994195E+01
+PKER_SWETH( 1, 59) = 0.995095E+01
+PKER_SWETH( 1, 60) = 0.995972E+01
+PKER_SWETH( 1, 61) = 0.996828E+01
+PKER_SWETH( 1, 62) = 0.997663E+01
+PKER_SWETH( 1, 63) = 0.998478E+01
+PKER_SWETH( 1, 64) = 0.999273E+01
+PKER_SWETH( 1, 65) = 0.100005E+02
+PKER_SWETH( 1, 66) = 0.100081E+02
+PKER_SWETH( 1, 67) = 0.100155E+02
+PKER_SWETH( 1, 68) = 0.100227E+02
+PKER_SWETH( 1, 69) = 0.100298E+02
+PKER_SWETH( 1, 70) = 0.100367E+02
+PKER_SWETH( 1, 71) = 0.100435E+02
+PKER_SWETH( 1, 72) = 0.100501E+02
+PKER_SWETH( 1, 73) = 0.100566E+02
+PKER_SWETH( 1, 74) = 0.100629E+02
+PKER_SWETH( 1, 75) = 0.100691E+02
+PKER_SWETH( 1, 76) = 0.100752E+02
+PKER_SWETH( 1, 77) = 0.100811E+02
+PKER_SWETH( 1, 78) = 0.100870E+02
+PKER_SWETH( 1, 79) = 0.100926E+02
+PKER_SWETH( 1, 80) = 0.100982E+02
+PKER_SWETH( 2, 1) = 0.703508E+01
+PKER_SWETH( 2, 2) = 0.708421E+01
+PKER_SWETH( 2, 3) = 0.713271E+01
+PKER_SWETH( 2, 4) = 0.718052E+01
+PKER_SWETH( 2, 5) = 0.722757E+01
+PKER_SWETH( 2, 6) = 0.727382E+01
+PKER_SWETH( 2, 7) = 0.731920E+01
+PKER_SWETH( 2, 8) = 0.736367E+01
+PKER_SWETH( 2, 9) = 0.740719E+01
+PKER_SWETH( 2, 10) = 0.744971E+01
+PKER_SWETH( 2, 11) = 0.749121E+01
+PKER_SWETH( 2, 12) = 0.753165E+01
+PKER_SWETH( 2, 13) = 0.757102E+01
+PKER_SWETH( 2, 14) = 0.760930E+01
+PKER_SWETH( 2, 15) = 0.764649E+01
+PKER_SWETH( 2, 16) = 0.768258E+01
+PKER_SWETH( 2, 17) = 0.771756E+01
+PKER_SWETH( 2, 18) = 0.775146E+01
+PKER_SWETH( 2, 19) = 0.778427E+01
+PKER_SWETH( 2, 20) = 0.781602E+01
+PKER_SWETH( 2, 21) = 0.784672E+01
+PKER_SWETH( 2, 22) = 0.787639E+01
+PKER_SWETH( 2, 23) = 0.790505E+01
+PKER_SWETH( 2, 24) = 0.793273E+01
+PKER_SWETH( 2, 25) = 0.795946E+01
+PKER_SWETH( 2, 26) = 0.798526E+01
+PKER_SWETH( 2, 27) = 0.801017E+01
+PKER_SWETH( 2, 28) = 0.803421E+01
+PKER_SWETH( 2, 29) = 0.805741E+01
+PKER_SWETH( 2, 30) = 0.807981E+01
+PKER_SWETH( 2, 31) = 0.810143E+01
+PKER_SWETH( 2, 32) = 0.812231E+01
+PKER_SWETH( 2, 33) = 0.814246E+01
+PKER_SWETH( 2, 34) = 0.816193E+01
+PKER_SWETH( 2, 35) = 0.818074E+01
+PKER_SWETH( 2, 36) = 0.819891E+01
+PKER_SWETH( 2, 37) = 0.821648E+01
+PKER_SWETH( 2, 38) = 0.823347E+01
+PKER_SWETH( 2, 39) = 0.824990E+01
+PKER_SWETH( 2, 40) = 0.826579E+01
+PKER_SWETH( 2, 41) = 0.828118E+01
+PKER_SWETH( 2, 42) = 0.829608E+01
+PKER_SWETH( 2, 43) = 0.831051E+01
+PKER_SWETH( 2, 44) = 0.832449E+01
+PKER_SWETH( 2, 45) = 0.833805E+01
+PKER_SWETH( 2, 46) = 0.835119E+01
+PKER_SWETH( 2, 47) = 0.836395E+01
+PKER_SWETH( 2, 48) = 0.837632E+01
+PKER_SWETH( 2, 49) = 0.838834E+01
+PKER_SWETH( 2, 50) = 0.840001E+01
+PKER_SWETH( 2, 51) = 0.841135E+01
+PKER_SWETH( 2, 52) = 0.842237E+01
+PKER_SWETH( 2, 53) = 0.843309E+01
+PKER_SWETH( 2, 54) = 0.844351E+01
+PKER_SWETH( 2, 55) = 0.845365E+01
+PKER_SWETH( 2, 56) = 0.846353E+01
+PKER_SWETH( 2, 57) = 0.847314E+01
+PKER_SWETH( 2, 58) = 0.848250E+01
+PKER_SWETH( 2, 59) = 0.849162E+01
+PKER_SWETH( 2, 60) = 0.850051E+01
+PKER_SWETH( 2, 61) = 0.850918E+01
+PKER_SWETH( 2, 62) = 0.851764E+01
+PKER_SWETH( 2, 63) = 0.852588E+01
+PKER_SWETH( 2, 64) = 0.853393E+01
+PKER_SWETH( 2, 65) = 0.854178E+01
+PKER_SWETH( 2, 66) = 0.854945E+01
+PKER_SWETH( 2, 67) = 0.855694E+01
+PKER_SWETH( 2, 68) = 0.856425E+01
+PKER_SWETH( 2, 69) = 0.857139E+01
+PKER_SWETH( 2, 70) = 0.857837E+01
+PKER_SWETH( 2, 71) = 0.858520E+01
+PKER_SWETH( 2, 72) = 0.859187E+01
+PKER_SWETH( 2, 73) = 0.859839E+01
+PKER_SWETH( 2, 74) = 0.860477E+01
+PKER_SWETH( 2, 75) = 0.861101E+01
+PKER_SWETH( 2, 76) = 0.861712E+01
+PKER_SWETH( 2, 77) = 0.862309E+01
+PKER_SWETH( 2, 78) = 0.862894E+01
+PKER_SWETH( 2, 79) = 0.863466E+01
+PKER_SWETH( 2, 80) = 0.864026E+01
+PKER_SWETH( 3, 1) = 0.578540E+01
+PKER_SWETH( 3, 2) = 0.583138E+01
+PKER_SWETH( 3, 3) = 0.587698E+01
+PKER_SWETH( 3, 4) = 0.592213E+01
+PKER_SWETH( 3, 5) = 0.596679E+01
+PKER_SWETH( 3, 6) = 0.601088E+01
+PKER_SWETH( 3, 7) = 0.605437E+01
+PKER_SWETH( 3, 8) = 0.609719E+01
+PKER_SWETH( 3, 9) = 0.613930E+01
+PKER_SWETH( 3, 10) = 0.618065E+01
+PKER_SWETH( 3, 11) = 0.622120E+01
+PKER_SWETH( 3, 12) = 0.626089E+01
+PKER_SWETH( 3, 13) = 0.629971E+01
+PKER_SWETH( 3, 14) = 0.633762E+01
+PKER_SWETH( 3, 15) = 0.637460E+01
+PKER_SWETH( 3, 16) = 0.641062E+01
+PKER_SWETH( 3, 17) = 0.644567E+01
+PKER_SWETH( 3, 18) = 0.647974E+01
+PKER_SWETH( 3, 19) = 0.651283E+01
+PKER_SWETH( 3, 20) = 0.654494E+01
+PKER_SWETH( 3, 21) = 0.657606E+01
+PKER_SWETH( 3, 22) = 0.660622E+01
+PKER_SWETH( 3, 23) = 0.663542E+01
+PKER_SWETH( 3, 24) = 0.666367E+01
+PKER_SWETH( 3, 25) = 0.669100E+01
+PKER_SWETH( 3, 26) = 0.671741E+01
+PKER_SWETH( 3, 27) = 0.674295E+01
+PKER_SWETH( 3, 28) = 0.676762E+01
+PKER_SWETH( 3, 29) = 0.679145E+01
+PKER_SWETH( 3, 30) = 0.681447E+01
+PKER_SWETH( 3, 31) = 0.683670E+01
+PKER_SWETH( 3, 32) = 0.685817E+01
+PKER_SWETH( 3, 33) = 0.687891E+01
+PKER_SWETH( 3, 34) = 0.689895E+01
+PKER_SWETH( 3, 35) = 0.691830E+01
+PKER_SWETH( 3, 36) = 0.693700E+01
+PKER_SWETH( 3, 37) = 0.695507E+01
+PKER_SWETH( 3, 38) = 0.697254E+01
+PKER_SWETH( 3, 39) = 0.698943E+01
+PKER_SWETH( 3, 40) = 0.700577E+01
+PKER_SWETH( 3, 41) = 0.702158E+01
+PKER_SWETH( 3, 42) = 0.703687E+01
+PKER_SWETH( 3, 43) = 0.705168E+01
+PKER_SWETH( 3, 44) = 0.706602E+01
+PKER_SWETH( 3, 45) = 0.707991E+01
+PKER_SWETH( 3, 46) = 0.709337E+01
+PKER_SWETH( 3, 47) = 0.710642E+01
+PKER_SWETH( 3, 48) = 0.711908E+01
+PKER_SWETH( 3, 49) = 0.713136E+01
+PKER_SWETH( 3, 50) = 0.714329E+01
+PKER_SWETH( 3, 51) = 0.715486E+01
+PKER_SWETH( 3, 52) = 0.716610E+01
+PKER_SWETH( 3, 53) = 0.717702E+01
+PKER_SWETH( 3, 54) = 0.718764E+01
+PKER_SWETH( 3, 55) = 0.719797E+01
+PKER_SWETH( 3, 56) = 0.720801E+01
+PKER_SWETH( 3, 57) = 0.721778E+01
+PKER_SWETH( 3, 58) = 0.722730E+01
+PKER_SWETH( 3, 59) = 0.723656E+01
+PKER_SWETH( 3, 60) = 0.724558E+01
+PKER_SWETH( 3, 61) = 0.725437E+01
+PKER_SWETH( 3, 62) = 0.726294E+01
+PKER_SWETH( 3, 63) = 0.727129E+01
+PKER_SWETH( 3, 64) = 0.727944E+01
+PKER_SWETH( 3, 65) = 0.728739E+01
+PKER_SWETH( 3, 66) = 0.729514E+01
+PKER_SWETH( 3, 67) = 0.730271E+01
+PKER_SWETH( 3, 68) = 0.731010E+01
+PKER_SWETH( 3, 69) = 0.731732E+01
+PKER_SWETH( 3, 70) = 0.732437E+01
+PKER_SWETH( 3, 71) = 0.733125E+01
+PKER_SWETH( 3, 72) = 0.733798E+01
+PKER_SWETH( 3, 73) = 0.734456E+01
+PKER_SWETH( 3, 74) = 0.735099E+01
+PKER_SWETH( 3, 75) = 0.735728E+01
+PKER_SWETH( 3, 76) = 0.736343E+01
+PKER_SWETH( 3, 77) = 0.736944E+01
+PKER_SWETH( 3, 78) = 0.737533E+01
+PKER_SWETH( 3, 79) = 0.738109E+01
+PKER_SWETH( 3, 80) = 0.738672E+01
+PKER_SWETH( 4, 1) = 0.472098E+01
+PKER_SWETH( 4, 2) = 0.476362E+01
+PKER_SWETH( 4, 3) = 0.480605E+01
+PKER_SWETH( 4, 4) = 0.484821E+01
+PKER_SWETH( 4, 5) = 0.489007E+01
+PKER_SWETH( 4, 6) = 0.493157E+01
+PKER_SWETH( 4, 7) = 0.497268E+01
+PKER_SWETH( 4, 8) = 0.501334E+01
+PKER_SWETH( 4, 9) = 0.505351E+01
+PKER_SWETH( 4, 10) = 0.509314E+01
+PKER_SWETH( 4, 11) = 0.513218E+01
+PKER_SWETH( 4, 12) = 0.517059E+01
+PKER_SWETH( 4, 13) = 0.520833E+01
+PKER_SWETH( 4, 14) = 0.524535E+01
+PKER_SWETH( 4, 15) = 0.528162E+01
+PKER_SWETH( 4, 16) = 0.531711E+01
+PKER_SWETH( 4, 17) = 0.535180E+01
+PKER_SWETH( 4, 18) = 0.538565E+01
+PKER_SWETH( 4, 19) = 0.541865E+01
+PKER_SWETH( 4, 20) = 0.545079E+01
+PKER_SWETH( 4, 21) = 0.548205E+01
+PKER_SWETH( 4, 22) = 0.551243E+01
+PKER_SWETH( 4, 23) = 0.554193E+01
+PKER_SWETH( 4, 24) = 0.557056E+01
+PKER_SWETH( 4, 25) = 0.559831E+01
+PKER_SWETH( 4, 26) = 0.562519E+01
+PKER_SWETH( 4, 27) = 0.565123E+01
+PKER_SWETH( 4, 28) = 0.567642E+01
+PKER_SWETH( 4, 29) = 0.570080E+01
+PKER_SWETH( 4, 30) = 0.572438E+01
+PKER_SWETH( 4, 31) = 0.574718E+01
+PKER_SWETH( 4, 32) = 0.576921E+01
+PKER_SWETH( 4, 33) = 0.579051E+01
+PKER_SWETH( 4, 34) = 0.581109E+01
+PKER_SWETH( 4, 35) = 0.583099E+01
+PKER_SWETH( 4, 36) = 0.585021E+01
+PKER_SWETH( 4, 37) = 0.586880E+01
+PKER_SWETH( 4, 38) = 0.588676E+01
+PKER_SWETH( 4, 39) = 0.590413E+01
+PKER_SWETH( 4, 40) = 0.592092E+01
+PKER_SWETH( 4, 41) = 0.593716E+01
+PKER_SWETH( 4, 42) = 0.595287E+01
+PKER_SWETH( 4, 43) = 0.596808E+01
+PKER_SWETH( 4, 44) = 0.598280E+01
+PKER_SWETH( 4, 45) = 0.599705E+01
+PKER_SWETH( 4, 46) = 0.601085E+01
+PKER_SWETH( 4, 47) = 0.602423E+01
+PKER_SWETH( 4, 48) = 0.603719E+01
+PKER_SWETH( 4, 49) = 0.604976E+01
+PKER_SWETH( 4, 50) = 0.606196E+01
+PKER_SWETH( 4, 51) = 0.607379E+01
+PKER_SWETH( 4, 52) = 0.608527E+01
+PKER_SWETH( 4, 53) = 0.609642E+01
+PKER_SWETH( 4, 54) = 0.610725E+01
+PKER_SWETH( 4, 55) = 0.611778E+01
+PKER_SWETH( 4, 56) = 0.612801E+01
+PKER_SWETH( 4, 57) = 0.613796E+01
+PKER_SWETH( 4, 58) = 0.614763E+01
+PKER_SWETH( 4, 59) = 0.615705E+01
+PKER_SWETH( 4, 60) = 0.616622E+01
+PKER_SWETH( 4, 61) = 0.617515E+01
+PKER_SWETH( 4, 62) = 0.618384E+01
+PKER_SWETH( 4, 63) = 0.619231E+01
+PKER_SWETH( 4, 64) = 0.620057E+01
+PKER_SWETH( 4, 65) = 0.620862E+01
+PKER_SWETH( 4, 66) = 0.621648E+01
+PKER_SWETH( 4, 67) = 0.622414E+01
+PKER_SWETH( 4, 68) = 0.623161E+01
+PKER_SWETH( 4, 69) = 0.623891E+01
+PKER_SWETH( 4, 70) = 0.624603E+01
+PKER_SWETH( 4, 71) = 0.625298E+01
+PKER_SWETH( 4, 72) = 0.625978E+01
+PKER_SWETH( 4, 73) = 0.626642E+01
+PKER_SWETH( 4, 74) = 0.627290E+01
+PKER_SWETH( 4, 75) = 0.627925E+01
+PKER_SWETH( 4, 76) = 0.628544E+01
+PKER_SWETH( 4, 77) = 0.629151E+01
+PKER_SWETH( 4, 78) = 0.629743E+01
+PKER_SWETH( 4, 79) = 0.630323E+01
+PKER_SWETH( 4, 80) = 0.630891E+01
+PKER_SWETH( 5, 1) = 0.381594E+01
+PKER_SWETH( 5, 2) = 0.385533E+01
+PKER_SWETH( 5, 3) = 0.389458E+01
+PKER_SWETH( 5, 4) = 0.393368E+01
+PKER_SWETH( 5, 5) = 0.397259E+01
+PKER_SWETH( 5, 6) = 0.401130E+01
+PKER_SWETH( 5, 7) = 0.404976E+01
+PKER_SWETH( 5, 8) = 0.408793E+01
+PKER_SWETH( 5, 9) = 0.412579E+01
+PKER_SWETH( 5, 10) = 0.416329E+01
+PKER_SWETH( 5, 11) = 0.420039E+01
+PKER_SWETH( 5, 12) = 0.423705E+01
+PKER_SWETH( 5, 13) = 0.427323E+01
+PKER_SWETH( 5, 14) = 0.430889E+01
+PKER_SWETH( 5, 15) = 0.434398E+01
+PKER_SWETH( 5, 16) = 0.437848E+01
+PKER_SWETH( 5, 17) = 0.441234E+01
+PKER_SWETH( 5, 18) = 0.444553E+01
+PKER_SWETH( 5, 19) = 0.447803E+01
+PKER_SWETH( 5, 20) = 0.450981E+01
+PKER_SWETH( 5, 21) = 0.454085E+01
+PKER_SWETH( 5, 22) = 0.457113E+01
+PKER_SWETH( 5, 23) = 0.460064E+01
+PKER_SWETH( 5, 24) = 0.462936E+01
+PKER_SWETH( 5, 25) = 0.465729E+01
+PKER_SWETH( 5, 26) = 0.468444E+01
+PKER_SWETH( 5, 27) = 0.471079E+01
+PKER_SWETH( 5, 28) = 0.473636E+01
+PKER_SWETH( 5, 29) = 0.476115E+01
+PKER_SWETH( 5, 30) = 0.478517E+01
+PKER_SWETH( 5, 31) = 0.480843E+01
+PKER_SWETH( 5, 32) = 0.483096E+01
+PKER_SWETH( 5, 33) = 0.485275E+01
+PKER_SWETH( 5, 34) = 0.487384E+01
+PKER_SWETH( 5, 35) = 0.489424E+01
+PKER_SWETH( 5, 36) = 0.491397E+01
+PKER_SWETH( 5, 37) = 0.493305E+01
+PKER_SWETH( 5, 38) = 0.495150E+01
+PKER_SWETH( 5, 39) = 0.496934E+01
+PKER_SWETH( 5, 40) = 0.498659E+01
+PKER_SWETH( 5, 41) = 0.500328E+01
+PKER_SWETH( 5, 42) = 0.501942E+01
+PKER_SWETH( 5, 43) = 0.503504E+01
+PKER_SWETH( 5, 44) = 0.505016E+01
+PKER_SWETH( 5, 45) = 0.506479E+01
+PKER_SWETH( 5, 46) = 0.507896E+01
+PKER_SWETH( 5, 47) = 0.509267E+01
+PKER_SWETH( 5, 48) = 0.510597E+01
+PKER_SWETH( 5, 49) = 0.511885E+01
+PKER_SWETH( 5, 50) = 0.513133E+01
+PKER_SWETH( 5, 51) = 0.514344E+01
+PKER_SWETH( 5, 52) = 0.515518E+01
+PKER_SWETH( 5, 53) = 0.516658E+01
+PKER_SWETH( 5, 54) = 0.517765E+01
+PKER_SWETH( 5, 55) = 0.518839E+01
+PKER_SWETH( 5, 56) = 0.519883E+01
+PKER_SWETH( 5, 57) = 0.520897E+01
+PKER_SWETH( 5, 58) = 0.521883E+01
+PKER_SWETH( 5, 59) = 0.522842E+01
+PKER_SWETH( 5, 60) = 0.523775E+01
+PKER_SWETH( 5, 61) = 0.524682E+01
+PKER_SWETH( 5, 62) = 0.525566E+01
+PKER_SWETH( 5, 63) = 0.526426E+01
+PKER_SWETH( 5, 64) = 0.527265E+01
+PKER_SWETH( 5, 65) = 0.528081E+01
+PKER_SWETH( 5, 66) = 0.528877E+01
+PKER_SWETH( 5, 67) = 0.529653E+01
+PKER_SWETH( 5, 68) = 0.530410E+01
+PKER_SWETH( 5, 69) = 0.531149E+01
+PKER_SWETH( 5, 70) = 0.531869E+01
+PKER_SWETH( 5, 71) = 0.532573E+01
+PKER_SWETH( 5, 72) = 0.533259E+01
+PKER_SWETH( 5, 73) = 0.533930E+01
+PKER_SWETH( 5, 74) = 0.534585E+01
+PKER_SWETH( 5, 75) = 0.535225E+01
+PKER_SWETH( 5, 76) = 0.535850E+01
+PKER_SWETH( 5, 77) = 0.536462E+01
+PKER_SWETH( 5, 78) = 0.537059E+01
+PKER_SWETH( 5, 79) = 0.537644E+01
+PKER_SWETH( 5, 80) = 0.538215E+01
+PKER_SWETH( 6, 1) = 0.304730E+01
+PKER_SWETH( 6, 2) = 0.308371E+01
+PKER_SWETH( 6, 3) = 0.312001E+01
+PKER_SWETH( 6, 4) = 0.315620E+01
+PKER_SWETH( 6, 5) = 0.319227E+01
+PKER_SWETH( 6, 6) = 0.322820E+01
+PKER_SWETH( 6, 7) = 0.326396E+01
+PKER_SWETH( 6, 8) = 0.329955E+01
+PKER_SWETH( 6, 9) = 0.333494E+01
+PKER_SWETH( 6, 10) = 0.337010E+01
+PKER_SWETH( 6, 11) = 0.340499E+01
+PKER_SWETH( 6, 12) = 0.343959E+01
+PKER_SWETH( 6, 13) = 0.347387E+01
+PKER_SWETH( 6, 14) = 0.350779E+01
+PKER_SWETH( 6, 15) = 0.354130E+01
+PKER_SWETH( 6, 16) = 0.357439E+01
+PKER_SWETH( 6, 17) = 0.360701E+01
+PKER_SWETH( 6, 18) = 0.363913E+01
+PKER_SWETH( 6, 19) = 0.367072E+01
+PKER_SWETH( 6, 20) = 0.370174E+01
+PKER_SWETH( 6, 21) = 0.373217E+01
+PKER_SWETH( 6, 22) = 0.376197E+01
+PKER_SWETH( 6, 23) = 0.379114E+01
+PKER_SWETH( 6, 24) = 0.381964E+01
+PKER_SWETH( 6, 25) = 0.384746E+01
+PKER_SWETH( 6, 26) = 0.387459E+01
+PKER_SWETH( 6, 27) = 0.390101E+01
+PKER_SWETH( 6, 28) = 0.392673E+01
+PKER_SWETH( 6, 29) = 0.395174E+01
+PKER_SWETH( 6, 30) = 0.397603E+01
+PKER_SWETH( 6, 31) = 0.399962E+01
+PKER_SWETH( 6, 32) = 0.402250E+01
+PKER_SWETH( 6, 33) = 0.404469E+01
+PKER_SWETH( 6, 34) = 0.406620E+01
+PKER_SWETH( 6, 35) = 0.408703E+01
+PKER_SWETH( 6, 36) = 0.410721E+01
+PKER_SWETH( 6, 37) = 0.412674E+01
+PKER_SWETH( 6, 38) = 0.414564E+01
+PKER_SWETH( 6, 39) = 0.416393E+01
+PKER_SWETH( 6, 40) = 0.418164E+01
+PKER_SWETH( 6, 41) = 0.419877E+01
+PKER_SWETH( 6, 42) = 0.421534E+01
+PKER_SWETH( 6, 43) = 0.423138E+01
+PKER_SWETH( 6, 44) = 0.424690E+01
+PKER_SWETH( 6, 45) = 0.426192E+01
+PKER_SWETH( 6, 46) = 0.427646E+01
+PKER_SWETH( 6, 47) = 0.429054E+01
+PKER_SWETH( 6, 48) = 0.430418E+01
+PKER_SWETH( 6, 49) = 0.431738E+01
+PKER_SWETH( 6, 50) = 0.433018E+01
+PKER_SWETH( 6, 51) = 0.434259E+01
+PKER_SWETH( 6, 52) = 0.435462E+01
+PKER_SWETH( 6, 53) = 0.436628E+01
+PKER_SWETH( 6, 54) = 0.437760E+01
+PKER_SWETH( 6, 55) = 0.438858E+01
+PKER_SWETH( 6, 56) = 0.439924E+01
+PKER_SWETH( 6, 57) = 0.440960E+01
+PKER_SWETH( 6, 58) = 0.441966E+01
+PKER_SWETH( 6, 59) = 0.442943E+01
+PKER_SWETH( 6, 60) = 0.443894E+01
+PKER_SWETH( 6, 61) = 0.444818E+01
+PKER_SWETH( 6, 62) = 0.445717E+01
+PKER_SWETH( 6, 63) = 0.446592E+01
+PKER_SWETH( 6, 64) = 0.447444E+01
+PKER_SWETH( 6, 65) = 0.448274E+01
+PKER_SWETH( 6, 66) = 0.449082E+01
+PKER_SWETH( 6, 67) = 0.449869E+01
+PKER_SWETH( 6, 68) = 0.450637E+01
+PKER_SWETH( 6, 69) = 0.451385E+01
+PKER_SWETH( 6, 70) = 0.452115E+01
+PKER_SWETH( 6, 71) = 0.452826E+01
+PKER_SWETH( 6, 72) = 0.453521E+01
+PKER_SWETH( 6, 73) = 0.454199E+01
+PKER_SWETH( 6, 74) = 0.454861E+01
+PKER_SWETH( 6, 75) = 0.455508E+01
+PKER_SWETH( 6, 76) = 0.456139E+01
+PKER_SWETH( 6, 77) = 0.456756E+01
+PKER_SWETH( 6, 78) = 0.457359E+01
+PKER_SWETH( 6, 79) = 0.457949E+01
+PKER_SWETH( 6, 80) = 0.458525E+01
+PKER_SWETH( 7, 1) = 0.239483E+01
+PKER_SWETH( 7, 2) = 0.242866E+01
+PKER_SWETH( 7, 3) = 0.246237E+01
+PKER_SWETH( 7, 4) = 0.249597E+01
+PKER_SWETH( 7, 5) = 0.252944E+01
+PKER_SWETH( 7, 6) = 0.256280E+01
+PKER_SWETH( 7, 7) = 0.259604E+01
+PKER_SWETH( 7, 8) = 0.262913E+01
+PKER_SWETH( 7, 9) = 0.266209E+01
+PKER_SWETH( 7, 10) = 0.269488E+01
+PKER_SWETH( 7, 11) = 0.272750E+01
+PKER_SWETH( 7, 12) = 0.275992E+01
+PKER_SWETH( 7, 13) = 0.279212E+01
+PKER_SWETH( 7, 14) = 0.282408E+01
+PKER_SWETH( 7, 15) = 0.285577E+01
+PKER_SWETH( 7, 16) = 0.288716E+01
+PKER_SWETH( 7, 17) = 0.291823E+01
+PKER_SWETH( 7, 18) = 0.294893E+01
+PKER_SWETH( 7, 19) = 0.297925E+01
+PKER_SWETH( 7, 20) = 0.300914E+01
+PKER_SWETH( 7, 21) = 0.303859E+01
+PKER_SWETH( 7, 22) = 0.306756E+01
+PKER_SWETH( 7, 23) = 0.309603E+01
+PKER_SWETH( 7, 24) = 0.312396E+01
+PKER_SWETH( 7, 25) = 0.315134E+01
+PKER_SWETH( 7, 26) = 0.317814E+01
+PKER_SWETH( 7, 27) = 0.320435E+01
+PKER_SWETH( 7, 28) = 0.322995E+01
+PKER_SWETH( 7, 29) = 0.325493E+01
+PKER_SWETH( 7, 30) = 0.327927E+01
+PKER_SWETH( 7, 31) = 0.330298E+01
+PKER_SWETH( 7, 32) = 0.332605E+01
+PKER_SWETH( 7, 33) = 0.334848E+01
+PKER_SWETH( 7, 34) = 0.337027E+01
+PKER_SWETH( 7, 35) = 0.339142E+01
+PKER_SWETH( 7, 36) = 0.341194E+01
+PKER_SWETH( 7, 37) = 0.343184E+01
+PKER_SWETH( 7, 38) = 0.345113E+01
+PKER_SWETH( 7, 39) = 0.346983E+01
+PKER_SWETH( 7, 40) = 0.348794E+01
+PKER_SWETH( 7, 41) = 0.350547E+01
+PKER_SWETH( 7, 42) = 0.352246E+01
+PKER_SWETH( 7, 43) = 0.353890E+01
+PKER_SWETH( 7, 44) = 0.355482E+01
+PKER_SWETH( 7, 45) = 0.357023E+01
+PKER_SWETH( 7, 46) = 0.358515E+01
+PKER_SWETH( 7, 47) = 0.359960E+01
+PKER_SWETH( 7, 48) = 0.361359E+01
+PKER_SWETH( 7, 49) = 0.362714E+01
+PKER_SWETH( 7, 50) = 0.364027E+01
+PKER_SWETH( 7, 51) = 0.365299E+01
+PKER_SWETH( 7, 52) = 0.366531E+01
+PKER_SWETH( 7, 53) = 0.367726E+01
+PKER_SWETH( 7, 54) = 0.368885E+01
+PKER_SWETH( 7, 55) = 0.370009E+01
+PKER_SWETH( 7, 56) = 0.371100E+01
+PKER_SWETH( 7, 57) = 0.372158E+01
+PKER_SWETH( 7, 58) = 0.373186E+01
+PKER_SWETH( 7, 59) = 0.374184E+01
+PKER_SWETH( 7, 60) = 0.375154E+01
+PKER_SWETH( 7, 61) = 0.376096E+01
+PKER_SWETH( 7, 62) = 0.377013E+01
+PKER_SWETH( 7, 63) = 0.377904E+01
+PKER_SWETH( 7, 64) = 0.378771E+01
+PKER_SWETH( 7, 65) = 0.379615E+01
+PKER_SWETH( 7, 66) = 0.380436E+01
+PKER_SWETH( 7, 67) = 0.381236E+01
+PKER_SWETH( 7, 68) = 0.382015E+01
+PKER_SWETH( 7, 69) = 0.382774E+01
+PKER_SWETH( 7, 70) = 0.383514E+01
+PKER_SWETH( 7, 71) = 0.384236E+01
+PKER_SWETH( 7, 72) = 0.384939E+01
+PKER_SWETH( 7, 73) = 0.385626E+01
+PKER_SWETH( 7, 74) = 0.386296E+01
+PKER_SWETH( 7, 75) = 0.386950E+01
+PKER_SWETH( 7, 76) = 0.387588E+01
+PKER_SWETH( 7, 77) = 0.388211E+01
+PKER_SWETH( 7, 78) = 0.388820E+01
+PKER_SWETH( 7, 79) = 0.389415E+01
+PKER_SWETH( 7, 80) = 0.389997E+01
+PKER_SWETH( 8, 1) = 0.184126E+01
+PKER_SWETH( 8, 2) = 0.187288E+01
+PKER_SWETH( 8, 3) = 0.190435E+01
+PKER_SWETH( 8, 4) = 0.193569E+01
+PKER_SWETH( 8, 5) = 0.196690E+01
+PKER_SWETH( 8, 6) = 0.199799E+01
+PKER_SWETH( 8, 7) = 0.202895E+01
+PKER_SWETH( 8, 8) = 0.205978E+01
+PKER_SWETH( 8, 9) = 0.209049E+01
+PKER_SWETH( 8, 10) = 0.212106E+01
+PKER_SWETH( 8, 11) = 0.215149E+01
+PKER_SWETH( 8, 12) = 0.218178E+01
+PKER_SWETH( 8, 13) = 0.221190E+01
+PKER_SWETH( 8, 14) = 0.224186E+01
+PKER_SWETH( 8, 15) = 0.227162E+01
+PKER_SWETH( 8, 16) = 0.230118E+01
+PKER_SWETH( 8, 17) = 0.233050E+01
+PKER_SWETH( 8, 18) = 0.235958E+01
+PKER_SWETH( 8, 19) = 0.238838E+01
+PKER_SWETH( 8, 20) = 0.241689E+01
+PKER_SWETH( 8, 21) = 0.244506E+01
+PKER_SWETH( 8, 22) = 0.247289E+01
+PKER_SWETH( 8, 23) = 0.250034E+01
+PKER_SWETH( 8, 24) = 0.252738E+01
+PKER_SWETH( 8, 25) = 0.255400E+01
+PKER_SWETH( 8, 26) = 0.258016E+01
+PKER_SWETH( 8, 27) = 0.260584E+01
+PKER_SWETH( 8, 28) = 0.263103E+01
+PKER_SWETH( 8, 29) = 0.265570E+01
+PKER_SWETH( 8, 30) = 0.267983E+01
+PKER_SWETH( 8, 31) = 0.270342E+01
+PKER_SWETH( 8, 32) = 0.272645E+01
+PKER_SWETH( 8, 33) = 0.274891E+01
+PKER_SWETH( 8, 34) = 0.277080E+01
+PKER_SWETH( 8, 35) = 0.279211E+01
+PKER_SWETH( 8, 36) = 0.281283E+01
+PKER_SWETH( 8, 37) = 0.283298E+01
+PKER_SWETH( 8, 38) = 0.285256E+01
+PKER_SWETH( 8, 39) = 0.287156E+01
+PKER_SWETH( 8, 40) = 0.289000E+01
+PKER_SWETH( 8, 41) = 0.290789E+01
+PKER_SWETH( 8, 42) = 0.292523E+01
+PKER_SWETH( 8, 43) = 0.294204E+01
+PKER_SWETH( 8, 44) = 0.295833E+01
+PKER_SWETH( 8, 45) = 0.297411E+01
+PKER_SWETH( 8, 46) = 0.298940E+01
+PKER_SWETH( 8, 47) = 0.300421E+01
+PKER_SWETH( 8, 48) = 0.301855E+01
+PKER_SWETH( 8, 49) = 0.303245E+01
+PKER_SWETH( 8, 50) = 0.304591E+01
+PKER_SWETH( 8, 51) = 0.305895E+01
+PKER_SWETH( 8, 52) = 0.307159E+01
+PKER_SWETH( 8, 53) = 0.308384E+01
+PKER_SWETH( 8, 54) = 0.309571E+01
+PKER_SWETH( 8, 55) = 0.310723E+01
+PKER_SWETH( 8, 56) = 0.311839E+01
+PKER_SWETH( 8, 57) = 0.312923E+01
+PKER_SWETH( 8, 58) = 0.313974E+01
+PKER_SWETH( 8, 59) = 0.314995E+01
+PKER_SWETH( 8, 60) = 0.315985E+01
+PKER_SWETH( 8, 61) = 0.316948E+01
+PKER_SWETH( 8, 62) = 0.317883E+01
+PKER_SWETH( 8, 63) = 0.318792E+01
+PKER_SWETH( 8, 64) = 0.319675E+01
+PKER_SWETH( 8, 65) = 0.320535E+01
+PKER_SWETH( 8, 66) = 0.321371E+01
+PKER_SWETH( 8, 67) = 0.322185E+01
+PKER_SWETH( 8, 68) = 0.322977E+01
+PKER_SWETH( 8, 69) = 0.323748E+01
+PKER_SWETH( 8, 70) = 0.324500E+01
+PKER_SWETH( 8, 71) = 0.325232E+01
+PKER_SWETH( 8, 72) = 0.325945E+01
+PKER_SWETH( 8, 73) = 0.326641E+01
+PKER_SWETH( 8, 74) = 0.327320E+01
+PKER_SWETH( 8, 75) = 0.327982E+01
+PKER_SWETH( 8, 76) = 0.328628E+01
+PKER_SWETH( 8, 77) = 0.329258E+01
+PKER_SWETH( 8, 78) = 0.329874E+01
+PKER_SWETH( 8, 79) = 0.330475E+01
+PKER_SWETH( 8, 80) = 0.331063E+01
+PKER_SWETH( 9, 1) = 0.137280E+01
+PKER_SWETH( 9, 2) = 0.140233E+01
+PKER_SWETH( 9, 3) = 0.143173E+01
+PKER_SWETH( 9, 4) = 0.146101E+01
+PKER_SWETH( 9, 5) = 0.149017E+01
+PKER_SWETH( 9, 6) = 0.151920E+01
+PKER_SWETH( 9, 7) = 0.154811E+01
+PKER_SWETH( 9, 8) = 0.157690E+01
+PKER_SWETH( 9, 9) = 0.160557E+01
+PKER_SWETH( 9, 10) = 0.163411E+01
+PKER_SWETH( 9, 11) = 0.166253E+01
+PKER_SWETH( 9, 12) = 0.169082E+01
+PKER_SWETH( 9, 13) = 0.171898E+01
+PKER_SWETH( 9, 14) = 0.174700E+01
+PKER_SWETH( 9, 15) = 0.177488E+01
+PKER_SWETH( 9, 16) = 0.180259E+01
+PKER_SWETH( 9, 17) = 0.183014E+01
+PKER_SWETH( 9, 18) = 0.185751E+01
+PKER_SWETH( 9, 19) = 0.188469E+01
+PKER_SWETH( 9, 20) = 0.191165E+01
+PKER_SWETH( 9, 21) = 0.193837E+01
+PKER_SWETH( 9, 22) = 0.196485E+01
+PKER_SWETH( 9, 23) = 0.199105E+01
+PKER_SWETH( 9, 24) = 0.201695E+01
+PKER_SWETH( 9, 25) = 0.204253E+01
+PKER_SWETH( 9, 26) = 0.206778E+01
+PKER_SWETH( 9, 27) = 0.209265E+01
+PKER_SWETH( 9, 28) = 0.211714E+01
+PKER_SWETH( 9, 29) = 0.214122E+01
+PKER_SWETH( 9, 30) = 0.216488E+01
+PKER_SWETH( 9, 31) = 0.218808E+01
+PKER_SWETH( 9, 32) = 0.221082E+01
+PKER_SWETH( 9, 33) = 0.223308E+01
+PKER_SWETH( 9, 34) = 0.225485E+01
+PKER_SWETH( 9, 35) = 0.227611E+01
+PKER_SWETH( 9, 36) = 0.229686E+01
+PKER_SWETH( 9, 37) = 0.231709E+01
+PKER_SWETH( 9, 38) = 0.233679E+01
+PKER_SWETH( 9, 39) = 0.235598E+01
+PKER_SWETH( 9, 40) = 0.237463E+01
+PKER_SWETH( 9, 41) = 0.239277E+01
+PKER_SWETH( 9, 42) = 0.241039E+01
+PKER_SWETH( 9, 43) = 0.242749E+01
+PKER_SWETH( 9, 44) = 0.244409E+01
+PKER_SWETH( 9, 45) = 0.246020E+01
+PKER_SWETH( 9, 46) = 0.247582E+01
+PKER_SWETH( 9, 47) = 0.249096E+01
+PKER_SWETH( 9, 48) = 0.250564E+01
+PKER_SWETH( 9, 49) = 0.251987E+01
+PKER_SWETH( 9, 50) = 0.253366E+01
+PKER_SWETH( 9, 51) = 0.254703E+01
+PKER_SWETH( 9, 52) = 0.255998E+01
+PKER_SWETH( 9, 53) = 0.257254E+01
+PKER_SWETH( 9, 54) = 0.258471E+01
+PKER_SWETH( 9, 55) = 0.259651E+01
+PKER_SWETH( 9, 56) = 0.260795E+01
+PKER_SWETH( 9, 57) = 0.261904E+01
+PKER_SWETH( 9, 58) = 0.262980E+01
+PKER_SWETH( 9, 59) = 0.264025E+01
+PKER_SWETH( 9, 60) = 0.265038E+01
+PKER_SWETH( 9, 61) = 0.266022E+01
+PKER_SWETH( 9, 62) = 0.266978E+01
+PKER_SWETH( 9, 63) = 0.267906E+01
+PKER_SWETH( 9, 64) = 0.268808E+01
+PKER_SWETH( 9, 65) = 0.269684E+01
+PKER_SWETH( 9, 66) = 0.270537E+01
+PKER_SWETH( 9, 67) = 0.271366E+01
+PKER_SWETH( 9, 68) = 0.272172E+01
+PKER_SWETH( 9, 69) = 0.272957E+01
+PKER_SWETH( 9, 70) = 0.273721E+01
+PKER_SWETH( 9, 71) = 0.274465E+01
+PKER_SWETH( 9, 72) = 0.275190E+01
+PKER_SWETH( 9, 73) = 0.275896E+01
+PKER_SWETH( 9, 74) = 0.276585E+01
+PKER_SWETH( 9, 75) = 0.277256E+01
+PKER_SWETH( 9, 76) = 0.277911E+01
+PKER_SWETH( 9, 77) = 0.278549E+01
+PKER_SWETH( 9, 78) = 0.279172E+01
+PKER_SWETH( 9, 79) = 0.279780E+01
+PKER_SWETH( 9, 80) = 0.280374E+01
+PKER_SWETH( 10, 1) = 0.980904E+00
+PKER_SWETH( 10, 2) = 0.100781E+01
+PKER_SWETH( 10, 3) = 0.103472E+01
+PKER_SWETH( 10, 4) = 0.106164E+01
+PKER_SWETH( 10, 5) = 0.108853E+01
+PKER_SWETH( 10, 6) = 0.111537E+01
+PKER_SWETH( 10, 7) = 0.114216E+01
+PKER_SWETH( 10, 8) = 0.116887E+01
+PKER_SWETH( 10, 9) = 0.119552E+01
+PKER_SWETH( 10, 10) = 0.122208E+01
+PKER_SWETH( 10, 11) = 0.124855E+01
+PKER_SWETH( 10, 12) = 0.127492E+01
+PKER_SWETH( 10, 13) = 0.130119E+01
+PKER_SWETH( 10, 14) = 0.132735E+01
+PKER_SWETH( 10, 15) = 0.135340E+01
+PKER_SWETH( 10, 16) = 0.137934E+01
+PKER_SWETH( 10, 17) = 0.140514E+01
+PKER_SWETH( 10, 18) = 0.143081E+01
+PKER_SWETH( 10, 19) = 0.145633E+01
+PKER_SWETH( 10, 20) = 0.148170E+01
+PKER_SWETH( 10, 21) = 0.150689E+01
+PKER_SWETH( 10, 22) = 0.153191E+01
+PKER_SWETH( 10, 23) = 0.155672E+01
+PKER_SWETH( 10, 24) = 0.158132E+01
+PKER_SWETH( 10, 25) = 0.160569E+01
+PKER_SWETH( 10, 26) = 0.162981E+01
+PKER_SWETH( 10, 27) = 0.165366E+01
+PKER_SWETH( 10, 28) = 0.167722E+01
+PKER_SWETH( 10, 29) = 0.170047E+01
+PKER_SWETH( 10, 30) = 0.172339E+01
+PKER_SWETH( 10, 31) = 0.174596E+01
+PKER_SWETH( 10, 32) = 0.176816E+01
+PKER_SWETH( 10, 33) = 0.178997E+01
+PKER_SWETH( 10, 34) = 0.181138E+01
+PKER_SWETH( 10, 35) = 0.183237E+01
+PKER_SWETH( 10, 36) = 0.185293E+01
+PKER_SWETH( 10, 37) = 0.187304E+01
+PKER_SWETH( 10, 38) = 0.189269E+01
+PKER_SWETH( 10, 39) = 0.191189E+01
+PKER_SWETH( 10, 40) = 0.193061E+01
+PKER_SWETH( 10, 41) = 0.194886E+01
+PKER_SWETH( 10, 42) = 0.196663E+01
+PKER_SWETH( 10, 43) = 0.198393E+01
+PKER_SWETH( 10, 44) = 0.200075E+01
+PKER_SWETH( 10, 45) = 0.201711E+01
+PKER_SWETH( 10, 46) = 0.203299E+01
+PKER_SWETH( 10, 47) = 0.204842E+01
+PKER_SWETH( 10, 48) = 0.206339E+01
+PKER_SWETH( 10, 49) = 0.207792E+01
+PKER_SWETH( 10, 50) = 0.209201E+01
+PKER_SWETH( 10, 51) = 0.210568E+01
+PKER_SWETH( 10, 52) = 0.211894E+01
+PKER_SWETH( 10, 53) = 0.213179E+01
+PKER_SWETH( 10, 54) = 0.214426E+01
+PKER_SWETH( 10, 55) = 0.215634E+01
+PKER_SWETH( 10, 56) = 0.216806E+01
+PKER_SWETH( 10, 57) = 0.217943E+01
+PKER_SWETH( 10, 58) = 0.219045E+01
+PKER_SWETH( 10, 59) = 0.220115E+01
+PKER_SWETH( 10, 60) = 0.221152E+01
+PKER_SWETH( 10, 61) = 0.222159E+01
+PKER_SWETH( 10, 62) = 0.223137E+01
+PKER_SWETH( 10, 63) = 0.224086E+01
+PKER_SWETH( 10, 64) = 0.225007E+01
+PKER_SWETH( 10, 65) = 0.225903E+01
+PKER_SWETH( 10, 66) = 0.226773E+01
+PKER_SWETH( 10, 67) = 0.227618E+01
+PKER_SWETH( 10, 68) = 0.228441E+01
+PKER_SWETH( 10, 69) = 0.229240E+01
+PKER_SWETH( 10, 70) = 0.230019E+01
+PKER_SWETH( 10, 71) = 0.230776E+01
+PKER_SWETH( 10, 72) = 0.231513E+01
+PKER_SWETH( 10, 73) = 0.232231E+01
+PKER_SWETH( 10, 74) = 0.232930E+01
+PKER_SWETH( 10, 75) = 0.233612E+01
+PKER_SWETH( 10, 76) = 0.234276E+01
+PKER_SWETH( 10, 77) = 0.234923E+01
+PKER_SWETH( 10, 78) = 0.235555E+01
+PKER_SWETH( 10, 79) = 0.236171E+01
+PKER_SWETH( 10, 80) = 0.236772E+01
+PKER_SWETH( 11, 1) = 0.665361E+00
+PKER_SWETH( 11, 2) = 0.687875E+00
+PKER_SWETH( 11, 3) = 0.710787E+00
+PKER_SWETH( 11, 4) = 0.733973E+00
+PKER_SWETH( 11, 5) = 0.757435E+00
+PKER_SWETH( 11, 6) = 0.781079E+00
+PKER_SWETH( 11, 7) = 0.804907E+00
+PKER_SWETH( 11, 8) = 0.828839E+00
+PKER_SWETH( 11, 9) = 0.852867E+00
+PKER_SWETH( 11, 10) = 0.876958E+00
+PKER_SWETH( 11, 11) = 0.901096E+00
+PKER_SWETH( 11, 12) = 0.925246E+00
+PKER_SWETH( 11, 13) = 0.949386E+00
+PKER_SWETH( 11, 14) = 0.973511E+00
+PKER_SWETH( 11, 15) = 0.997600E+00
+PKER_SWETH( 11, 16) = 0.102163E+01
+PKER_SWETH( 11, 17) = 0.104561E+01
+PKER_SWETH( 11, 18) = 0.106950E+01
+PKER_SWETH( 11, 19) = 0.109331E+01
+PKER_SWETH( 11, 20) = 0.111702E+01
+PKER_SWETH( 11, 21) = 0.114063E+01
+PKER_SWETH( 11, 22) = 0.116410E+01
+PKER_SWETH( 11, 23) = 0.118744E+01
+PKER_SWETH( 11, 24) = 0.121064E+01
+PKER_SWETH( 11, 25) = 0.123367E+01
+PKER_SWETH( 11, 26) = 0.125652E+01
+PKER_SWETH( 11, 27) = 0.127919E+01
+PKER_SWETH( 11, 28) = 0.130164E+01
+PKER_SWETH( 11, 29) = 0.132386E+01
+PKER_SWETH( 11, 30) = 0.134584E+01
+PKER_SWETH( 11, 31) = 0.136756E+01
+PKER_SWETH( 11, 32) = 0.138900E+01
+PKER_SWETH( 11, 33) = 0.141014E+01
+PKER_SWETH( 11, 34) = 0.143097E+01
+PKER_SWETH( 11, 35) = 0.145146E+01
+PKER_SWETH( 11, 36) = 0.147161E+01
+PKER_SWETH( 11, 37) = 0.149139E+01
+PKER_SWETH( 11, 38) = 0.151079E+01
+PKER_SWETH( 11, 39) = 0.152980E+01
+PKER_SWETH( 11, 40) = 0.154840E+01
+PKER_SWETH( 11, 41) = 0.156660E+01
+PKER_SWETH( 11, 42) = 0.158437E+01
+PKER_SWETH( 11, 43) = 0.160172E+01
+PKER_SWETH( 11, 44) = 0.161864E+01
+PKER_SWETH( 11, 45) = 0.163513E+01
+PKER_SWETH( 11, 46) = 0.165119E+01
+PKER_SWETH( 11, 47) = 0.166681E+01
+PKER_SWETH( 11, 48) = 0.168200E+01
+PKER_SWETH( 11, 49) = 0.169677E+01
+PKER_SWETH( 11, 50) = 0.171112E+01
+PKER_SWETH( 11, 51) = 0.172506E+01
+PKER_SWETH( 11, 52) = 0.173859E+01
+PKER_SWETH( 11, 53) = 0.175172E+01
+PKER_SWETH( 11, 54) = 0.176446E+01
+PKER_SWETH( 11, 55) = 0.177682E+01
+PKER_SWETH( 11, 56) = 0.178881E+01
+PKER_SWETH( 11, 57) = 0.180045E+01
+PKER_SWETH( 11, 58) = 0.181174E+01
+PKER_SWETH( 11, 59) = 0.182269E+01
+PKER_SWETH( 11, 60) = 0.183331E+01
+PKER_SWETH( 11, 61) = 0.184362E+01
+PKER_SWETH( 11, 62) = 0.185362E+01
+PKER_SWETH( 11, 63) = 0.186333E+01
+PKER_SWETH( 11, 64) = 0.187276E+01
+PKER_SWETH( 11, 65) = 0.188192E+01
+PKER_SWETH( 11, 66) = 0.189081E+01
+PKER_SWETH( 11, 67) = 0.189945E+01
+PKER_SWETH( 11, 68) = 0.190784E+01
+PKER_SWETH( 11, 69) = 0.191600E+01
+PKER_SWETH( 11, 70) = 0.192394E+01
+PKER_SWETH( 11, 71) = 0.193165E+01
+PKER_SWETH( 11, 72) = 0.193916E+01
+PKER_SWETH( 11, 73) = 0.194647E+01
+PKER_SWETH( 11, 74) = 0.195359E+01
+PKER_SWETH( 11, 75) = 0.196051E+01
+PKER_SWETH( 11, 76) = 0.196726E+01
+PKER_SWETH( 11, 77) = 0.197384E+01
+PKER_SWETH( 11, 78) = 0.198025E+01
+PKER_SWETH( 11, 79) = 0.198650E+01
+PKER_SWETH( 11, 80) = 0.199259E+01
+PKER_SWETH( 12, 1) = 0.436708E+00
+PKER_SWETH( 12, 2) = 0.451680E+00
+PKER_SWETH( 12, 3) = 0.467543E+00
+PKER_SWETH( 12, 4) = 0.484197E+00
+PKER_SWETH( 12, 5) = 0.501664E+00
+PKER_SWETH( 12, 6) = 0.519787E+00
+PKER_SWETH( 12, 7) = 0.538448E+00
+PKER_SWETH( 12, 8) = 0.557693E+00
+PKER_SWETH( 12, 9) = 0.577391E+00
+PKER_SWETH( 12, 10) = 0.597470E+00
+PKER_SWETH( 12, 11) = 0.617921E+00
+PKER_SWETH( 12, 12) = 0.638636E+00
+PKER_SWETH( 12, 13) = 0.659625E+00
+PKER_SWETH( 12, 14) = 0.680802E+00
+PKER_SWETH( 12, 15) = 0.702152E+00
+PKER_SWETH( 12, 16) = 0.723627E+00
+PKER_SWETH( 12, 17) = 0.745199E+00
+PKER_SWETH( 12, 18) = 0.766851E+00
+PKER_SWETH( 12, 19) = 0.788542E+00
+PKER_SWETH( 12, 20) = 0.810252E+00
+PKER_SWETH( 12, 21) = 0.831959E+00
+PKER_SWETH( 12, 22) = 0.853645E+00
+PKER_SWETH( 12, 23) = 0.875281E+00
+PKER_SWETH( 12, 24) = 0.896863E+00
+PKER_SWETH( 12, 25) = 0.918362E+00
+PKER_SWETH( 12, 26) = 0.939766E+00
+PKER_SWETH( 12, 27) = 0.961061E+00
+PKER_SWETH( 12, 28) = 0.982225E+00
+PKER_SWETH( 12, 29) = 0.100324E+01
+PKER_SWETH( 12, 30) = 0.102410E+01
+PKER_SWETH( 12, 31) = 0.104477E+01
+PKER_SWETH( 12, 32) = 0.106525E+01
+PKER_SWETH( 12, 33) = 0.108551E+01
+PKER_SWETH( 12, 34) = 0.110555E+01
+PKER_SWETH( 12, 35) = 0.112533E+01
+PKER_SWETH( 12, 36) = 0.114485E+01
+PKER_SWETH( 12, 37) = 0.116408E+01
+PKER_SWETH( 12, 38) = 0.118301E+01
+PKER_SWETH( 12, 39) = 0.120164E+01
+PKER_SWETH( 12, 40) = 0.121993E+01
+PKER_SWETH( 12, 41) = 0.123788E+01
+PKER_SWETH( 12, 42) = 0.125548E+01
+PKER_SWETH( 12, 43) = 0.127271E+01
+PKER_SWETH( 12, 44) = 0.128958E+01
+PKER_SWETH( 12, 45) = 0.130606E+01
+PKER_SWETH( 12, 46) = 0.132215E+01
+PKER_SWETH( 12, 47) = 0.133786E+01
+PKER_SWETH( 12, 48) = 0.135317E+01
+PKER_SWETH( 12, 49) = 0.136809E+01
+PKER_SWETH( 12, 50) = 0.138261E+01
+PKER_SWETH( 12, 51) = 0.139675E+01
+PKER_SWETH( 12, 52) = 0.141049E+01
+PKER_SWETH( 12, 53) = 0.142385E+01
+PKER_SWETH( 12, 54) = 0.143683E+01
+PKER_SWETH( 12, 55) = 0.144945E+01
+PKER_SWETH( 12, 56) = 0.146169E+01
+PKER_SWETH( 12, 57) = 0.147358E+01
+PKER_SWETH( 12, 58) = 0.148512E+01
+PKER_SWETH( 12, 59) = 0.149632E+01
+PKER_SWETH( 12, 60) = 0.150719E+01
+PKER_SWETH( 12, 61) = 0.151774E+01
+PKER_SWETH( 12, 62) = 0.152798E+01
+PKER_SWETH( 12, 63) = 0.153792E+01
+PKER_SWETH( 12, 64) = 0.154756E+01
+PKER_SWETH( 12, 65) = 0.155693E+01
+PKER_SWETH( 12, 66) = 0.156603E+01
+PKER_SWETH( 12, 67) = 0.157486E+01
+PKER_SWETH( 12, 68) = 0.158344E+01
+PKER_SWETH( 12, 69) = 0.159178E+01
+PKER_SWETH( 12, 70) = 0.159988E+01
+PKER_SWETH( 12, 71) = 0.160776E+01
+PKER_SWETH( 12, 72) = 0.161541E+01
+PKER_SWETH( 12, 73) = 0.162287E+01
+PKER_SWETH( 12, 74) = 0.163011E+01
+PKER_SWETH( 12, 75) = 0.163717E+01
+PKER_SWETH( 12, 76) = 0.164404E+01
+PKER_SWETH( 12, 77) = 0.165072E+01
+PKER_SWETH( 12, 78) = 0.165724E+01
+PKER_SWETH( 12, 79) = 0.166359E+01
+PKER_SWETH( 12, 80) = 0.166977E+01
+PKER_SWETH( 13, 1) = 0.311067E+00
+PKER_SWETH( 13, 2) = 0.314997E+00
+PKER_SWETH( 13, 3) = 0.320263E+00
+PKER_SWETH( 13, 4) = 0.327008E+00
+PKER_SWETH( 13, 5) = 0.334972E+00
+PKER_SWETH( 13, 6) = 0.344125E+00
+PKER_SWETH( 13, 7) = 0.354475E+00
+PKER_SWETH( 13, 8) = 0.365871E+00
+PKER_SWETH( 13, 9) = 0.378223E+00
+PKER_SWETH( 13, 10) = 0.391467E+00
+PKER_SWETH( 13, 11) = 0.405568E+00
+PKER_SWETH( 13, 12) = 0.420455E+00
+PKER_SWETH( 13, 13) = 0.436017E+00
+PKER_SWETH( 13, 14) = 0.452161E+00
+PKER_SWETH( 13, 15) = 0.468883E+00
+PKER_SWETH( 13, 16) = 0.486117E+00
+PKER_SWETH( 13, 17) = 0.503732E+00
+PKER_SWETH( 13, 18) = 0.521766E+00
+PKER_SWETH( 13, 19) = 0.540107E+00
+PKER_SWETH( 13, 20) = 0.558735E+00
+PKER_SWETH( 13, 21) = 0.577587E+00
+PKER_SWETH( 13, 22) = 0.596631E+00
+PKER_SWETH( 13, 23) = 0.615823E+00
+PKER_SWETH( 13, 24) = 0.635141E+00
+PKER_SWETH( 13, 25) = 0.654541E+00
+PKER_SWETH( 13, 26) = 0.673999E+00
+PKER_SWETH( 13, 27) = 0.693473E+00
+PKER_SWETH( 13, 28) = 0.712944E+00
+PKER_SWETH( 13, 29) = 0.732397E+00
+PKER_SWETH( 13, 30) = 0.751795E+00
+PKER_SWETH( 13, 31) = 0.771120E+00
+PKER_SWETH( 13, 32) = 0.790352E+00
+PKER_SWETH( 13, 33) = 0.809466E+00
+PKER_SWETH( 13, 34) = 0.828445E+00
+PKER_SWETH( 13, 35) = 0.847266E+00
+PKER_SWETH( 13, 36) = 0.865913E+00
+PKER_SWETH( 13, 37) = 0.884363E+00
+PKER_SWETH( 13, 38) = 0.902603E+00
+PKER_SWETH( 13, 39) = 0.920611E+00
+PKER_SWETH( 13, 40) = 0.938372E+00
+PKER_SWETH( 13, 41) = 0.955870E+00
+PKER_SWETH( 13, 42) = 0.973090E+00
+PKER_SWETH( 13, 43) = 0.990016E+00
+PKER_SWETH( 13, 44) = 0.100664E+01
+PKER_SWETH( 13, 45) = 0.102294E+01
+PKER_SWETH( 13, 46) = 0.103892E+01
+PKER_SWETH( 13, 47) = 0.105456E+01
+PKER_SWETH( 13, 48) = 0.106985E+01
+PKER_SWETH( 13, 49) = 0.108480E+01
+PKER_SWETH( 13, 50) = 0.109939E+01
+PKER_SWETH( 13, 51) = 0.111363E+01
+PKER_SWETH( 13, 52) = 0.112750E+01
+PKER_SWETH( 13, 53) = 0.114102E+01
+PKER_SWETH( 13, 54) = 0.115418E+01
+PKER_SWETH( 13, 55) = 0.116698E+01
+PKER_SWETH( 13, 56) = 0.117944E+01
+PKER_SWETH( 13, 57) = 0.119154E+01
+PKER_SWETH( 13, 58) = 0.120331E+01
+PKER_SWETH( 13, 59) = 0.121474E+01
+PKER_SWETH( 13, 60) = 0.122584E+01
+PKER_SWETH( 13, 61) = 0.123662E+01
+PKER_SWETH( 13, 62) = 0.124709E+01
+PKER_SWETH( 13, 63) = 0.125726E+01
+PKER_SWETH( 13, 64) = 0.126713E+01
+PKER_SWETH( 13, 65) = 0.127671E+01
+PKER_SWETH( 13, 66) = 0.128601E+01
+PKER_SWETH( 13, 67) = 0.129505E+01
+PKER_SWETH( 13, 68) = 0.130382E+01
+PKER_SWETH( 13, 69) = 0.131235E+01
+PKER_SWETH( 13, 70) = 0.132063E+01
+PKER_SWETH( 13, 71) = 0.132868E+01
+PKER_SWETH( 13, 72) = 0.133650E+01
+PKER_SWETH( 13, 73) = 0.134411E+01
+PKER_SWETH( 13, 74) = 0.135150E+01
+PKER_SWETH( 13, 75) = 0.135869E+01
+PKER_SWETH( 13, 76) = 0.136569E+01
+PKER_SWETH( 13, 77) = 0.137251E+01
+PKER_SWETH( 13, 78) = 0.137914E+01
+PKER_SWETH( 13, 79) = 0.138559E+01
+PKER_SWETH( 13, 80) = 0.139188E+01
+PKER_SWETH( 14, 1) = 0.293434E+00
+PKER_SWETH( 14, 2) = 0.285118E+00
+PKER_SWETH( 14, 3) = 0.278360E+00
+PKER_SWETH( 14, 4) = 0.273078E+00
+PKER_SWETH( 14, 5) = 0.269435E+00
+PKER_SWETH( 14, 6) = 0.267199E+00
+PKER_SWETH( 14, 7) = 0.266485E+00
+PKER_SWETH( 14, 8) = 0.267210E+00
+PKER_SWETH( 14, 9) = 0.269255E+00
+PKER_SWETH( 14, 10) = 0.272761E+00
+PKER_SWETH( 14, 11) = 0.277429E+00
+PKER_SWETH( 14, 12) = 0.283360E+00
+PKER_SWETH( 14, 13) = 0.290506E+00
+PKER_SWETH( 14, 14) = 0.298686E+00
+PKER_SWETH( 14, 15) = 0.307908E+00
+PKER_SWETH( 14, 16) = 0.318108E+00
+PKER_SWETH( 14, 17) = 0.329186E+00
+PKER_SWETH( 14, 18) = 0.341107E+00
+PKER_SWETH( 14, 19) = 0.353792E+00
+PKER_SWETH( 14, 20) = 0.367167E+00
+PKER_SWETH( 14, 21) = 0.381143E+00
+PKER_SWETH( 14, 22) = 0.395685E+00
+PKER_SWETH( 14, 23) = 0.410766E+00
+PKER_SWETH( 14, 24) = 0.426272E+00
+PKER_SWETH( 14, 25) = 0.442163E+00
+PKER_SWETH( 14, 26) = 0.458412E+00
+PKER_SWETH( 14, 27) = 0.474925E+00
+PKER_SWETH( 14, 28) = 0.491703E+00
+PKER_SWETH( 14, 29) = 0.508667E+00
+PKER_SWETH( 14, 30) = 0.525805E+00
+PKER_SWETH( 14, 31) = 0.543049E+00
+PKER_SWETH( 14, 32) = 0.560389E+00
+PKER_SWETH( 14, 33) = 0.577767E+00
+PKER_SWETH( 14, 34) = 0.595162E+00
+PKER_SWETH( 14, 35) = 0.612545E+00
+PKER_SWETH( 14, 36) = 0.629889E+00
+PKER_SWETH( 14, 37) = 0.647163E+00
+PKER_SWETH( 14, 38) = 0.664338E+00
+PKER_SWETH( 14, 39) = 0.681397E+00
+PKER_SWETH( 14, 40) = 0.698314E+00
+PKER_SWETH( 14, 41) = 0.715066E+00
+PKER_SWETH( 14, 42) = 0.731634E+00
+PKER_SWETH( 14, 43) = 0.747997E+00
+PKER_SWETH( 14, 44) = 0.764139E+00
+PKER_SWETH( 14, 45) = 0.780043E+00
+PKER_SWETH( 14, 46) = 0.795694E+00
+PKER_SWETH( 14, 47) = 0.811076E+00
+PKER_SWETH( 14, 48) = 0.826179E+00
+PKER_SWETH( 14, 49) = 0.840990E+00
+PKER_SWETH( 14, 50) = 0.855501E+00
+PKER_SWETH( 14, 51) = 0.869702E+00
+PKER_SWETH( 14, 52) = 0.883589E+00
+PKER_SWETH( 14, 53) = 0.897155E+00
+PKER_SWETH( 14, 54) = 0.910397E+00
+PKER_SWETH( 14, 55) = 0.923313E+00
+PKER_SWETH( 14, 56) = 0.935903E+00
+PKER_SWETH( 14, 57) = 0.948166E+00
+PKER_SWETH( 14, 58) = 0.960105E+00
+PKER_SWETH( 14, 59) = 0.971722E+00
+PKER_SWETH( 14, 60) = 0.983022E+00
+PKER_SWETH( 14, 61) = 0.994008E+00
+PKER_SWETH( 14, 62) = 0.100469E+01
+PKER_SWETH( 14, 63) = 0.101506E+01
+PKER_SWETH( 14, 64) = 0.102514E+01
+PKER_SWETH( 14, 65) = 0.103494E+01
+PKER_SWETH( 14, 66) = 0.104445E+01
+PKER_SWETH( 14, 67) = 0.105369E+01
+PKER_SWETH( 14, 68) = 0.106267E+01
+PKER_SWETH( 14, 69) = 0.107138E+01
+PKER_SWETH( 14, 70) = 0.107985E+01
+PKER_SWETH( 14, 71) = 0.108808E+01
+PKER_SWETH( 14, 72) = 0.109608E+01
+PKER_SWETH( 14, 73) = 0.110385E+01
+PKER_SWETH( 14, 74) = 0.111140E+01
+PKER_SWETH( 14, 75) = 0.111875E+01
+PKER_SWETH( 14, 76) = 0.112589E+01
+PKER_SWETH( 14, 77) = 0.113283E+01
+PKER_SWETH( 14, 78) = 0.113959E+01
+PKER_SWETH( 14, 79) = 0.114617E+01
+PKER_SWETH( 14, 80) = 0.115258E+01
+PKER_SWETH( 15, 1) = 0.362145E+00
+PKER_SWETH( 15, 2) = 0.344123E+00
+PKER_SWETH( 15, 3) = 0.327386E+00
+PKER_SWETH( 15, 4) = 0.311934E+00
+PKER_SWETH( 15, 5) = 0.297787E+00
+PKER_SWETH( 15, 6) = 0.284880E+00
+PKER_SWETH( 15, 7) = 0.273465E+00
+PKER_SWETH( 15, 8) = 0.263396E+00
+PKER_SWETH( 15, 9) = 0.254563E+00
+PKER_SWETH( 15, 10) = 0.247336E+00
+PKER_SWETH( 15, 11) = 0.241282E+00
+PKER_SWETH( 15, 12) = 0.236797E+00
+PKER_SWETH( 15, 13) = 0.233495E+00
+PKER_SWETH( 15, 14) = 0.231691E+00
+PKER_SWETH( 15, 15) = 0.231043E+00
+PKER_SWETH( 15, 16) = 0.231854E+00
+PKER_SWETH( 15, 17) = 0.233730E+00
+PKER_SWETH( 15, 18) = 0.236949E+00
+PKER_SWETH( 15, 19) = 0.241249E+00
+PKER_SWETH( 15, 20) = 0.246634E+00
+PKER_SWETH( 15, 21) = 0.253120E+00
+PKER_SWETH( 15, 22) = 0.260565E+00
+PKER_SWETH( 15, 23) = 0.268930E+00
+PKER_SWETH( 15, 24) = 0.278203E+00
+PKER_SWETH( 15, 25) = 0.288263E+00
+PKER_SWETH( 15, 26) = 0.299069E+00
+PKER_SWETH( 15, 27) = 0.310564E+00
+PKER_SWETH( 15, 28) = 0.322673E+00
+PKER_SWETH( 15, 29) = 0.335334E+00
+PKER_SWETH( 15, 30) = 0.348531E+00
+PKER_SWETH( 15, 31) = 0.362168E+00
+PKER_SWETH( 15, 32) = 0.376167E+00
+PKER_SWETH( 15, 33) = 0.390538E+00
+PKER_SWETH( 15, 34) = 0.405187E+00
+PKER_SWETH( 15, 35) = 0.420070E+00
+PKER_SWETH( 15, 36) = 0.435156E+00
+PKER_SWETH( 15, 37) = 0.450377E+00
+PKER_SWETH( 15, 38) = 0.465720E+00
+PKER_SWETH( 15, 39) = 0.481123E+00
+PKER_SWETH( 15, 40) = 0.496561E+00
+PKER_SWETH( 15, 41) = 0.511995E+00
+PKER_SWETH( 15, 42) = 0.527395E+00
+PKER_SWETH( 15, 43) = 0.542734E+00
+PKER_SWETH( 15, 44) = 0.557976E+00
+PKER_SWETH( 15, 45) = 0.573099E+00
+PKER_SWETH( 15, 46) = 0.588080E+00
+PKER_SWETH( 15, 47) = 0.602894E+00
+PKER_SWETH( 15, 48) = 0.617519E+00
+PKER_SWETH( 15, 49) = 0.631940E+00
+PKER_SWETH( 15, 50) = 0.646137E+00
+PKER_SWETH( 15, 51) = 0.660098E+00
+PKER_SWETH( 15, 52) = 0.673808E+00
+PKER_SWETH( 15, 53) = 0.687256E+00
+PKER_SWETH( 15, 54) = 0.700432E+00
+PKER_SWETH( 15, 55) = 0.713329E+00
+PKER_SWETH( 15, 56) = 0.725939E+00
+PKER_SWETH( 15, 57) = 0.738259E+00
+PKER_SWETH( 15, 58) = 0.750284E+00
+PKER_SWETH( 15, 59) = 0.762014E+00
+PKER_SWETH( 15, 60) = 0.773447E+00
+PKER_SWETH( 15, 61) = 0.784585E+00
+PKER_SWETH( 15, 62) = 0.795429E+00
+PKER_SWETH( 15, 63) = 0.805982E+00
+PKER_SWETH( 15, 64) = 0.816248E+00
+PKER_SWETH( 15, 65) = 0.826232E+00
+PKER_SWETH( 15, 66) = 0.835937E+00
+PKER_SWETH( 15, 67) = 0.845371E+00
+PKER_SWETH( 15, 68) = 0.854540E+00
+PKER_SWETH( 15, 69) = 0.863449E+00
+PKER_SWETH( 15, 70) = 0.872106E+00
+PKER_SWETH( 15, 71) = 0.880518E+00
+PKER_SWETH( 15, 72) = 0.888692E+00
+PKER_SWETH( 15, 73) = 0.896636E+00
+PKER_SWETH( 15, 74) = 0.904357E+00
+PKER_SWETH( 15, 75) = 0.911861E+00
+PKER_SWETH( 15, 76) = 0.919157E+00
+PKER_SWETH( 15, 77) = 0.926251E+00
+PKER_SWETH( 15, 78) = 0.933151E+00
+PKER_SWETH( 15, 79) = 0.939862E+00
+PKER_SWETH( 15, 80) = 0.946393E+00
+PKER_SWETH( 16, 1) = 0.475884E+00
+PKER_SWETH( 16, 2) = 0.452686E+00
+PKER_SWETH( 16, 3) = 0.430289E+00
+PKER_SWETH( 16, 4) = 0.408719E+00
+PKER_SWETH( 16, 5) = 0.388052E+00
+PKER_SWETH( 16, 6) = 0.368304E+00
+PKER_SWETH( 16, 7) = 0.349466E+00
+PKER_SWETH( 16, 8) = 0.331660E+00
+PKER_SWETH( 16, 9) = 0.314828E+00
+PKER_SWETH( 16, 10) = 0.299099E+00
+PKER_SWETH( 16, 11) = 0.284442E+00
+PKER_SWETH( 16, 12) = 0.270909E+00
+PKER_SWETH( 16, 13) = 0.258447E+00
+PKER_SWETH( 16, 14) = 0.247254E+00
+PKER_SWETH( 16, 15) = 0.237253E+00
+PKER_SWETH( 16, 16) = 0.228379E+00
+PKER_SWETH( 16, 17) = 0.220801E+00
+PKER_SWETH( 16, 18) = 0.214465E+00
+PKER_SWETH( 16, 19) = 0.209245E+00
+PKER_SWETH( 16, 20) = 0.205416E+00
+PKER_SWETH( 16, 21) = 0.202620E+00
+PKER_SWETH( 16, 22) = 0.201204E+00
+PKER_SWETH( 16, 23) = 0.200801E+00
+PKER_SWETH( 16, 24) = 0.201683E+00
+PKER_SWETH( 16, 25) = 0.203601E+00
+PKER_SWETH( 16, 26) = 0.206602E+00
+PKER_SWETH( 16, 27) = 0.210694E+00
+PKER_SWETH( 16, 28) = 0.215707E+00
+PKER_SWETH( 16, 29) = 0.221736E+00
+PKER_SWETH( 16, 30) = 0.228622E+00
+PKER_SWETH( 16, 31) = 0.236321E+00
+PKER_SWETH( 16, 32) = 0.244834E+00
+PKER_SWETH( 16, 33) = 0.254066E+00
+PKER_SWETH( 16, 34) = 0.263943E+00
+PKER_SWETH( 16, 35) = 0.274416E+00
+PKER_SWETH( 16, 36) = 0.285461E+00
+PKER_SWETH( 16, 37) = 0.297002E+00
+PKER_SWETH( 16, 38) = 0.308968E+00
+PKER_SWETH( 16, 39) = 0.321291E+00
+PKER_SWETH( 16, 40) = 0.333957E+00
+PKER_SWETH( 16, 41) = 0.346904E+00
+PKER_SWETH( 16, 42) = 0.360046E+00
+PKER_SWETH( 16, 43) = 0.373384E+00
+PKER_SWETH( 16, 44) = 0.386840E+00
+PKER_SWETH( 16, 45) = 0.400392E+00
+PKER_SWETH( 16, 46) = 0.413984E+00
+PKER_SWETH( 16, 47) = 0.427587E+00
+PKER_SWETH( 16, 48) = 0.441161E+00
+PKER_SWETH( 16, 49) = 0.454682E+00
+PKER_SWETH( 16, 50) = 0.468111E+00
+PKER_SWETH( 16, 51) = 0.481428E+00
+PKER_SWETH( 16, 52) = 0.494601E+00
+PKER_SWETH( 16, 53) = 0.507611E+00
+PKER_SWETH( 16, 54) = 0.520442E+00
+PKER_SWETH( 16, 55) = 0.533071E+00
+PKER_SWETH( 16, 56) = 0.545485E+00
+PKER_SWETH( 16, 57) = 0.557673E+00
+PKER_SWETH( 16, 58) = 0.569620E+00
+PKER_SWETH( 16, 59) = 0.581321E+00
+PKER_SWETH( 16, 60) = 0.592767E+00
+PKER_SWETH( 16, 61) = 0.603952E+00
+PKER_SWETH( 16, 62) = 0.614874E+00
+PKER_SWETH( 16, 63) = 0.625529E+00
+PKER_SWETH( 16, 64) = 0.635919E+00
+PKER_SWETH( 16, 65) = 0.646041E+00
+PKER_SWETH( 16, 66) = 0.655899E+00
+PKER_SWETH( 16, 67) = 0.665495E+00
+PKER_SWETH( 16, 68) = 0.674833E+00
+PKER_SWETH( 16, 69) = 0.683915E+00
+PKER_SWETH( 16, 70) = 0.692748E+00
+PKER_SWETH( 16, 71) = 0.701336E+00
+PKER_SWETH( 16, 72) = 0.709685E+00
+PKER_SWETH( 16, 73) = 0.717801E+00
+PKER_SWETH( 16, 74) = 0.725690E+00
+PKER_SWETH( 16, 75) = 0.733359E+00
+PKER_SWETH( 16, 76) = 0.740815E+00
+PKER_SWETH( 16, 77) = 0.748064E+00
+PKER_SWETH( 16, 78) = 0.755112E+00
+PKER_SWETH( 16, 79) = 0.761966E+00
+PKER_SWETH( 16, 80) = 0.768632E+00
+PKER_SWETH( 17, 1) = 0.598100E+00
+PKER_SWETH( 17, 2) = 0.573043E+00
+PKER_SWETH( 17, 3) = 0.548538E+00
+PKER_SWETH( 17, 4) = 0.524589E+00
+PKER_SWETH( 17, 5) = 0.501204E+00
+PKER_SWETH( 17, 6) = 0.478416E+00
+PKER_SWETH( 17, 7) = 0.456230E+00
+PKER_SWETH( 17, 8) = 0.434672E+00
+PKER_SWETH( 17, 9) = 0.413761E+00
+PKER_SWETH( 17, 10) = 0.393523E+00
+PKER_SWETH( 17, 11) = 0.373961E+00
+PKER_SWETH( 17, 12) = 0.355160E+00
+PKER_SWETH( 17, 13) = 0.337118E+00
+PKER_SWETH( 17, 14) = 0.319842E+00
+PKER_SWETH( 17, 15) = 0.303414E+00
+PKER_SWETH( 17, 16) = 0.287842E+00
+PKER_SWETH( 17, 17) = 0.273148E+00
+PKER_SWETH( 17, 18) = 0.259401E+00
+PKER_SWETH( 17, 19) = 0.246577E+00
+PKER_SWETH( 17, 20) = 0.234743E+00
+PKER_SWETH( 17, 21) = 0.223938E+00
+PKER_SWETH( 17, 22) = 0.214211E+00
+PKER_SWETH( 17, 23) = 0.205485E+00
+PKER_SWETH( 17, 24) = 0.197803E+00
+PKER_SWETH( 17, 25) = 0.191328E+00
+PKER_SWETH( 17, 26) = 0.185816E+00
+PKER_SWETH( 17, 27) = 0.181501E+00
+PKER_SWETH( 17, 28) = 0.178260E+00
+PKER_SWETH( 17, 29) = 0.176077E+00
+PKER_SWETH( 17, 30) = 0.175022E+00
+PKER_SWETH( 17, 31) = 0.174977E+00
+PKER_SWETH( 17, 32) = 0.175981E+00
+PKER_SWETH( 17, 33) = 0.178014E+00
+PKER_SWETH( 17, 34) = 0.180962E+00
+PKER_SWETH( 17, 35) = 0.184921E+00
+PKER_SWETH( 17, 36) = 0.189705E+00
+PKER_SWETH( 17, 37) = 0.195342E+00
+PKER_SWETH( 17, 38) = 0.201809E+00
+PKER_SWETH( 17, 39) = 0.208982E+00
+PKER_SWETH( 17, 40) = 0.216846E+00
+PKER_SWETH( 17, 41) = 0.225359E+00
+PKER_SWETH( 17, 42) = 0.234436E+00
+PKER_SWETH( 17, 43) = 0.244039E+00
+PKER_SWETH( 17, 44) = 0.254107E+00
+PKER_SWETH( 17, 45) = 0.264580E+00
+PKER_SWETH( 17, 46) = 0.275388E+00
+PKER_SWETH( 17, 47) = 0.286497E+00
+PKER_SWETH( 17, 48) = 0.297866E+00
+PKER_SWETH( 17, 49) = 0.309418E+00
+PKER_SWETH( 17, 50) = 0.321117E+00
+PKER_SWETH( 17, 51) = 0.332927E+00
+PKER_SWETH( 17, 52) = 0.344785E+00
+PKER_SWETH( 17, 53) = 0.356674E+00
+PKER_SWETH( 17, 54) = 0.368540E+00
+PKER_SWETH( 17, 55) = 0.380367E+00
+PKER_SWETH( 17, 56) = 0.392107E+00
+PKER_SWETH( 17, 57) = 0.403748E+00
+PKER_SWETH( 17, 58) = 0.415253E+00
+PKER_SWETH( 17, 59) = 0.426607E+00
+PKER_SWETH( 17, 60) = 0.437792E+00
+PKER_SWETH( 17, 61) = 0.448791E+00
+PKER_SWETH( 17, 62) = 0.459590E+00
+PKER_SWETH( 17, 63) = 0.470176E+00
+PKER_SWETH( 17, 64) = 0.480545E+00
+PKER_SWETH( 17, 65) = 0.490686E+00
+PKER_SWETH( 17, 66) = 0.500596E+00
+PKER_SWETH( 17, 67) = 0.510270E+00
+PKER_SWETH( 17, 68) = 0.519708E+00
+PKER_SWETH( 17, 69) = 0.528909E+00
+PKER_SWETH( 17, 70) = 0.537873E+00
+PKER_SWETH( 17, 71) = 0.546603E+00
+PKER_SWETH( 17, 72) = 0.555101E+00
+PKER_SWETH( 17, 73) = 0.563371E+00
+PKER_SWETH( 17, 74) = 0.571417E+00
+PKER_SWETH( 17, 75) = 0.579243E+00
+PKER_SWETH( 17, 76) = 0.586854E+00
+PKER_SWETH( 17, 77) = 0.594257E+00
+PKER_SWETH( 17, 78) = 0.601455E+00
+PKER_SWETH( 17, 79) = 0.608456E+00
+PKER_SWETH( 17, 80) = 0.615265E+00
+PKER_SWETH( 18, 1) = 0.710381E+00
+PKER_SWETH( 18, 2) = 0.684949E+00
+PKER_SWETH( 18, 3) = 0.659975E+00
+PKER_SWETH( 18, 4) = 0.635457E+00
+PKER_SWETH( 18, 5) = 0.611391E+00
+PKER_SWETH( 18, 6) = 0.587774E+00
+PKER_SWETH( 18, 7) = 0.564608E+00
+PKER_SWETH( 18, 8) = 0.541895E+00
+PKER_SWETH( 18, 9) = 0.519636E+00
+PKER_SWETH( 18, 10) = 0.497841E+00
+PKER_SWETH( 18, 11) = 0.476513E+00
+PKER_SWETH( 18, 12) = 0.455658E+00
+PKER_SWETH( 18, 13) = 0.435297E+00
+PKER_SWETH( 18, 14) = 0.415441E+00
+PKER_SWETH( 18, 15) = 0.396103E+00
+PKER_SWETH( 18, 16) = 0.377297E+00
+PKER_SWETH( 18, 17) = 0.359055E+00
+PKER_SWETH( 18, 18) = 0.341380E+00
+PKER_SWETH( 18, 19) = 0.324327E+00
+PKER_SWETH( 18, 20) = 0.307914E+00
+PKER_SWETH( 18, 21) = 0.292145E+00
+PKER_SWETH( 18, 22) = 0.277068E+00
+PKER_SWETH( 18, 23) = 0.262731E+00
+PKER_SWETH( 18, 24) = 0.249128E+00
+PKER_SWETH( 18, 25) = 0.236316E+00
+PKER_SWETH( 18, 26) = 0.224324E+00
+PKER_SWETH( 18, 27) = 0.213168E+00
+PKER_SWETH( 18, 28) = 0.202907E+00
+PKER_SWETH( 18, 29) = 0.193549E+00
+PKER_SWETH( 18, 30) = 0.185109E+00
+PKER_SWETH( 18, 31) = 0.177568E+00
+PKER_SWETH( 18, 32) = 0.171078E+00
+PKER_SWETH( 18, 33) = 0.165541E+00
+PKER_SWETH( 18, 34) = 0.160915E+00
+PKER_SWETH( 18, 35) = 0.157408E+00
+PKER_SWETH( 18, 36) = 0.154752E+00
+PKER_SWETH( 18, 37) = 0.153217E+00
+PKER_SWETH( 18, 38) = 0.152520E+00
+PKER_SWETH( 18, 39) = 0.152896E+00
+PKER_SWETH( 18, 40) = 0.154087E+00
+PKER_SWETH( 18, 41) = 0.156299E+00
+PKER_SWETH( 18, 42) = 0.159268E+00
+PKER_SWETH( 18, 43) = 0.163145E+00
+PKER_SWETH( 18, 44) = 0.167774E+00
+PKER_SWETH( 18, 45) = 0.173134E+00
+PKER_SWETH( 18, 46) = 0.179223E+00
+PKER_SWETH( 18, 47) = 0.185931E+00
+PKER_SWETH( 18, 48) = 0.193222E+00
+PKER_SWETH( 18, 49) = 0.201073E+00
+PKER_SWETH( 18, 50) = 0.209391E+00
+PKER_SWETH( 18, 51) = 0.218129E+00
+PKER_SWETH( 18, 52) = 0.227239E+00
+PKER_SWETH( 18, 53) = 0.236661E+00
+PKER_SWETH( 18, 54) = 0.246344E+00
+PKER_SWETH( 18, 55) = 0.256250E+00
+PKER_SWETH( 18, 56) = 0.266316E+00
+PKER_SWETH( 18, 57) = 0.276487E+00
+PKER_SWETH( 18, 58) = 0.286749E+00
+PKER_SWETH( 18, 59) = 0.297039E+00
+PKER_SWETH( 18, 60) = 0.307329E+00
+PKER_SWETH( 18, 61) = 0.317586E+00
+PKER_SWETH( 18, 62) = 0.327773E+00
+PKER_SWETH( 18, 63) = 0.337874E+00
+PKER_SWETH( 18, 64) = 0.347857E+00
+PKER_SWETH( 18, 65) = 0.357706E+00
+PKER_SWETH( 18, 66) = 0.367401E+00
+PKER_SWETH( 18, 67) = 0.376930E+00
+PKER_SWETH( 18, 68) = 0.386282E+00
+PKER_SWETH( 18, 69) = 0.395444E+00
+PKER_SWETH( 18, 70) = 0.404410E+00
+PKER_SWETH( 18, 71) = 0.413176E+00
+PKER_SWETH( 18, 72) = 0.421737E+00
+PKER_SWETH( 18, 73) = 0.430091E+00
+PKER_SWETH( 18, 74) = 0.438238E+00
+PKER_SWETH( 18, 75) = 0.446178E+00
+PKER_SWETH( 18, 76) = 0.453912E+00
+PKER_SWETH( 18, 77) = 0.461444E+00
+PKER_SWETH( 18, 78) = 0.468776E+00
+PKER_SWETH( 18, 79) = 0.475912E+00
+PKER_SWETH( 18, 80) = 0.482856E+00
+PKER_SWETH( 19, 1) = 0.808203E+00
+PKER_SWETH( 19, 2) = 0.782771E+00
+PKER_SWETH( 19, 3) = 0.757782E+00
+PKER_SWETH( 19, 4) = 0.733228E+00
+PKER_SWETH( 19, 5) = 0.709101E+00
+PKER_SWETH( 19, 6) = 0.685394E+00
+PKER_SWETH( 19, 7) = 0.662100E+00
+PKER_SWETH( 19, 8) = 0.639212E+00
+PKER_SWETH( 19, 9) = 0.616726E+00
+PKER_SWETH( 19, 10) = 0.594635E+00
+PKER_SWETH( 19, 11) = 0.572937E+00
+PKER_SWETH( 19, 12) = 0.551626E+00
+PKER_SWETH( 19, 13) = 0.530702E+00
+PKER_SWETH( 19, 14) = 0.510162E+00
+PKER_SWETH( 19, 15) = 0.490007E+00
+PKER_SWETH( 19, 16) = 0.470237E+00
+PKER_SWETH( 19, 17) = 0.450857E+00
+PKER_SWETH( 19, 18) = 0.431871E+00
+PKER_SWETH( 19, 19) = 0.413284E+00
+PKER_SWETH( 19, 20) = 0.395108E+00
+PKER_SWETH( 19, 21) = 0.377356E+00
+PKER_SWETH( 19, 22) = 0.360031E+00
+PKER_SWETH( 19, 23) = 0.343149E+00
+PKER_SWETH( 19, 24) = 0.326737E+00
+PKER_SWETH( 19, 25) = 0.310806E+00
+PKER_SWETH( 19, 26) = 0.295384E+00
+PKER_SWETH( 19, 27) = 0.280499E+00
+PKER_SWETH( 19, 28) = 0.266154E+00
+PKER_SWETH( 19, 29) = 0.252383E+00
+PKER_SWETH( 19, 30) = 0.239236E+00
+PKER_SWETH( 19, 31) = 0.226733E+00
+PKER_SWETH( 19, 32) = 0.214870E+00
+PKER_SWETH( 19, 33) = 0.203743E+00
+PKER_SWETH( 19, 34) = 0.193310E+00
+PKER_SWETH( 19, 35) = 0.183669E+00
+PKER_SWETH( 19, 36) = 0.174798E+00
+PKER_SWETH( 19, 37) = 0.166746E+00
+PKER_SWETH( 19, 38) = 0.159476E+00
+PKER_SWETH( 19, 39) = 0.153133E+00
+PKER_SWETH( 19, 40) = 0.147651E+00
+PKER_SWETH( 19, 41) = 0.142994E+00
+PKER_SWETH( 19, 42) = 0.139295E+00
+PKER_SWETH( 19, 43) = 0.136484E+00
+PKER_SWETH( 19, 44) = 0.134504E+00
+PKER_SWETH( 19, 45) = 0.133504E+00
+PKER_SWETH( 19, 46) = 0.133266E+00
+PKER_SWETH( 19, 47) = 0.133995E+00
+PKER_SWETH( 19, 48) = 0.135454E+00
+PKER_SWETH( 19, 49) = 0.137790E+00
+PKER_SWETH( 19, 50) = 0.140847E+00
+PKER_SWETH( 19, 51) = 0.144625E+00
+PKER_SWETH( 19, 52) = 0.149130E+00
+PKER_SWETH( 19, 53) = 0.154223E+00
+PKER_SWETH( 19, 54) = 0.159949E+00
+PKER_SWETH( 19, 55) = 0.166200E+00
+PKER_SWETH( 19, 56) = 0.172918E+00
+PKER_SWETH( 19, 57) = 0.180088E+00
+PKER_SWETH( 19, 58) = 0.187640E+00
+PKER_SWETH( 19, 59) = 0.195506E+00
+PKER_SWETH( 19, 60) = 0.203642E+00
+PKER_SWETH( 19, 61) = 0.212021E+00
+PKER_SWETH( 19, 62) = 0.220577E+00
+PKER_SWETH( 19, 63) = 0.229262E+00
+PKER_SWETH( 19, 64) = 0.238026E+00
+PKER_SWETH( 19, 65) = 0.246853E+00
+PKER_SWETH( 19, 66) = 0.255698E+00
+PKER_SWETH( 19, 67) = 0.264513E+00
+PKER_SWETH( 19, 68) = 0.273291E+00
+PKER_SWETH( 19, 69) = 0.281992E+00
+PKER_SWETH( 19, 70) = 0.290602E+00
+PKER_SWETH( 19, 71) = 0.299096E+00
+PKER_SWETH( 19, 72) = 0.307462E+00
+PKER_SWETH( 19, 73) = 0.315683E+00
+PKER_SWETH( 19, 74) = 0.323752E+00
+PKER_SWETH( 19, 75) = 0.331656E+00
+PKER_SWETH( 19, 76) = 0.339394E+00
+PKER_SWETH( 19, 77) = 0.346956E+00
+PKER_SWETH( 19, 78) = 0.354342E+00
+PKER_SWETH( 19, 79) = 0.361552E+00
+PKER_SWETH( 19, 80) = 0.368582E+00
+PKER_SWETH( 20, 1) = 0.892350E+00
+PKER_SWETH( 20, 2) = 0.866966E+00
+PKER_SWETH( 20, 3) = 0.842026E+00
+PKER_SWETH( 20, 4) = 0.817521E+00
+PKER_SWETH( 20, 5) = 0.793442E+00
+PKER_SWETH( 20, 6) = 0.769781E+00
+PKER_SWETH( 20, 7) = 0.746530E+00
+PKER_SWETH( 20, 8) = 0.723681E+00
+PKER_SWETH( 20, 9) = 0.701226E+00
+PKER_SWETH( 20, 10) = 0.679158E+00
+PKER_SWETH( 20, 11) = 0.657470E+00
+PKER_SWETH( 20, 12) = 0.636154E+00
+PKER_SWETH( 20, 13) = 0.615203E+00
+PKER_SWETH( 20, 14) = 0.594612E+00
+PKER_SWETH( 20, 15) = 0.574373E+00
+PKER_SWETH( 20, 16) = 0.554482E+00
+PKER_SWETH( 20, 17) = 0.534933E+00
+PKER_SWETH( 20, 18) = 0.515722E+00
+PKER_SWETH( 20, 19) = 0.496846E+00
+PKER_SWETH( 20, 20) = 0.478299E+00
+PKER_SWETH( 20, 21) = 0.460081E+00
+PKER_SWETH( 20, 22) = 0.442192E+00
+PKER_SWETH( 20, 23) = 0.424631E+00
+PKER_SWETH( 20, 24) = 0.407398E+00
+PKER_SWETH( 20, 25) = 0.390500E+00
+PKER_SWETH( 20, 26) = 0.373938E+00
+PKER_SWETH( 20, 27) = 0.357718E+00
+PKER_SWETH( 20, 28) = 0.341852E+00
+PKER_SWETH( 20, 29) = 0.326344E+00
+PKER_SWETH( 20, 30) = 0.311205E+00
+PKER_SWETH( 20, 31) = 0.296464E+00
+PKER_SWETH( 20, 32) = 0.282122E+00
+PKER_SWETH( 20, 33) = 0.268205E+00
+PKER_SWETH( 20, 34) = 0.254731E+00
+PKER_SWETH( 20, 35) = 0.241721E+00
+PKER_SWETH( 20, 36) = 0.229187E+00
+PKER_SWETH( 20, 37) = 0.217193E+00
+PKER_SWETH( 20, 38) = 0.205736E+00
+PKER_SWETH( 20, 39) = 0.194834E+00
+PKER_SWETH( 20, 40) = 0.184552E+00
+PKER_SWETH( 20, 41) = 0.174896E+00
+PKER_SWETH( 20, 42) = 0.165889E+00
+PKER_SWETH( 20, 43) = 0.157584E+00
+PKER_SWETH( 20, 44) = 0.149962E+00
+PKER_SWETH( 20, 45) = 0.143091E+00
+PKER_SWETH( 20, 46) = 0.136987E+00
+PKER_SWETH( 20, 47) = 0.131684E+00
+PKER_SWETH( 20, 48) = 0.127131E+00
+PKER_SWETH( 20, 49) = 0.123368E+00
+PKER_SWETH( 20, 50) = 0.120482E+00
+PKER_SWETH( 20, 51) = 0.118312E+00
+PKER_SWETH( 20, 52) = 0.117024E+00
+PKER_SWETH( 20, 53) = 0.116498E+00
+PKER_SWETH( 20, 54) = 0.116741E+00
+PKER_SWETH( 20, 55) = 0.117760E+00
+PKER_SWETH( 20, 56) = 0.119490E+00
+PKER_SWETH( 20, 57) = 0.121912E+00
+PKER_SWETH( 20, 58) = 0.125026E+00
+PKER_SWETH( 20, 59) = 0.128717E+00
+PKER_SWETH( 20, 60) = 0.133037E+00
+PKER_SWETH( 20, 61) = 0.137854E+00
+PKER_SWETH( 20, 62) = 0.143152E+00
+PKER_SWETH( 20, 63) = 0.148909E+00
+PKER_SWETH( 20, 64) = 0.155028E+00
+PKER_SWETH( 20, 65) = 0.161482E+00
+PKER_SWETH( 20, 66) = 0.168233E+00
+PKER_SWETH( 20, 67) = 0.175210E+00
+PKER_SWETH( 20, 68) = 0.182381E+00
+PKER_SWETH( 20, 69) = 0.189701E+00
+PKER_SWETH( 20, 70) = 0.197126E+00
+PKER_SWETH( 20, 71) = 0.204610E+00
+PKER_SWETH( 20, 72) = 0.212133E+00
+PKER_SWETH( 20, 73) = 0.219663E+00
+PKER_SWETH( 20, 74) = 0.227161E+00
+PKER_SWETH( 20, 75) = 0.234611E+00
+PKER_SWETH( 20, 76) = 0.241993E+00
+PKER_SWETH( 20, 77) = 0.249279E+00
+PKER_SWETH( 20, 78) = 0.256466E+00
+PKER_SWETH( 20, 79) = 0.263532E+00
+PKER_SWETH( 20, 80) = 0.270474E+00
+PKER_SWETH( 21, 1) = 0.964600E+00
+PKER_SWETH( 21, 2) = 0.939257E+00
+PKER_SWETH( 21, 3) = 0.914360E+00
+PKER_SWETH( 21, 4) = 0.889901E+00
+PKER_SWETH( 21, 5) = 0.865869E+00
+PKER_SWETH( 21, 6) = 0.842258E+00
+PKER_SWETH( 21, 7) = 0.819060E+00
+PKER_SWETH( 21, 8) = 0.796265E+00
+PKER_SWETH( 21, 9) = 0.773867E+00
+PKER_SWETH( 21, 10) = 0.751857E+00
+PKER_SWETH( 21, 11) = 0.730228E+00
+PKER_SWETH( 21, 12) = 0.708972E+00
+PKER_SWETH( 21, 13) = 0.688082E+00
+PKER_SWETH( 21, 14) = 0.667551E+00
+PKER_SWETH( 21, 15) = 0.647371E+00
+PKER_SWETH( 21, 16) = 0.627535E+00
+PKER_SWETH( 21, 17) = 0.608037E+00
+PKER_SWETH( 21, 18) = 0.588869E+00
+PKER_SWETH( 21, 19) = 0.570026E+00
+PKER_SWETH( 21, 20) = 0.551501E+00
+PKER_SWETH( 21, 21) = 0.533287E+00
+PKER_SWETH( 21, 22) = 0.515380E+00
+PKER_SWETH( 21, 23) = 0.497773E+00
+PKER_SWETH( 21, 24) = 0.480463E+00
+PKER_SWETH( 21, 25) = 0.463444E+00
+PKER_SWETH( 21, 26) = 0.446711E+00
+PKER_SWETH( 21, 27) = 0.430263E+00
+PKER_SWETH( 21, 28) = 0.414096E+00
+PKER_SWETH( 21, 29) = 0.398210E+00
+PKER_SWETH( 21, 30) = 0.382603E+00
+PKER_SWETH( 21, 31) = 0.367275E+00
+PKER_SWETH( 21, 32) = 0.352227E+00
+PKER_SWETH( 21, 33) = 0.337465E+00
+PKER_SWETH( 21, 34) = 0.322989E+00
+PKER_SWETH( 21, 35) = 0.308812E+00
+PKER_SWETH( 21, 36) = 0.294936E+00
+PKER_SWETH( 21, 37) = 0.281370E+00
+PKER_SWETH( 21, 38) = 0.268133E+00
+PKER_SWETH( 21, 39) = 0.255237E+00
+PKER_SWETH( 21, 40) = 0.242693E+00
+PKER_SWETH( 21, 41) = 0.230521E+00
+PKER_SWETH( 21, 42) = 0.218745E+00
+PKER_SWETH( 21, 43) = 0.207374E+00
+PKER_SWETH( 21, 44) = 0.196456E+00
+PKER_SWETH( 21, 45) = 0.186006E+00
+PKER_SWETH( 21, 46) = 0.176034E+00
+PKER_SWETH( 21, 47) = 0.166585E+00
+PKER_SWETH( 21, 48) = 0.157691E+00
+PKER_SWETH( 21, 49) = 0.149357E+00
+PKER_SWETH( 21, 50) = 0.141633E+00
+PKER_SWETH( 21, 51) = 0.134534E+00
+PKER_SWETH( 21, 52) = 0.128087E+00
+PKER_SWETH( 21, 53) = 0.122323E+00
+PKER_SWETH( 21, 54) = 0.117251E+00
+PKER_SWETH( 21, 55) = 0.112878E+00
+PKER_SWETH( 21, 56) = 0.109203E+00
+PKER_SWETH( 21, 57) = 0.106305E+00
+PKER_SWETH( 21, 58) = 0.104117E+00
+PKER_SWETH( 21, 59) = 0.102613E+00
+PKER_SWETH( 21, 60) = 0.101899E+00
+PKER_SWETH( 21, 61) = 0.101799E+00
+PKER_SWETH( 21, 62) = 0.102474E+00
+PKER_SWETH( 21, 63) = 0.103715E+00
+PKER_SWETH( 21, 64) = 0.105671E+00
+PKER_SWETH( 21, 65) = 0.108140E+00
+PKER_SWETH( 21, 66) = 0.111241E+00
+PKER_SWETH( 21, 67) = 0.114792E+00
+PKER_SWETH( 21, 68) = 0.118856E+00
+PKER_SWETH( 21, 69) = 0.123331E+00
+PKER_SWETH( 21, 70) = 0.128175E+00
+PKER_SWETH( 21, 71) = 0.133378E+00
+PKER_SWETH( 21, 72) = 0.138853E+00
+PKER_SWETH( 21, 73) = 0.144569E+00
+PKER_SWETH( 21, 74) = 0.150500E+00
+PKER_SWETH( 21, 75) = 0.156584E+00
+PKER_SWETH( 21, 76) = 0.162785E+00
+PKER_SWETH( 21, 77) = 0.169073E+00
+PKER_SWETH( 21, 78) = 0.175414E+00
+PKER_SWETH( 21, 79) = 0.181779E+00
+PKER_SWETH( 21, 80) = 0.188145E+00
+PKER_SWETH( 22, 1) = 0.102663E+01
+PKER_SWETH( 22, 2) = 0.100132E+01
+PKER_SWETH( 22, 3) = 0.976458E+00
+PKER_SWETH( 22, 4) = 0.952032E+00
+PKER_SWETH( 22, 5) = 0.928038E+00
+PKER_SWETH( 22, 6) = 0.904466E+00
+PKER_SWETH( 22, 7) = 0.881308E+00
+PKER_SWETH( 22, 8) = 0.858556E+00
+PKER_SWETH( 22, 9) = 0.836203E+00
+PKER_SWETH( 22, 10) = 0.814241E+00
+PKER_SWETH( 22, 11) = 0.792663E+00
+PKER_SWETH( 22, 12) = 0.771460E+00
+PKER_SWETH( 22, 13) = 0.750626E+00
+PKER_SWETH( 22, 14) = 0.730153E+00
+PKER_SWETH( 22, 15) = 0.710034E+00
+PKER_SWETH( 22, 16) = 0.690262E+00
+PKER_SWETH( 22, 17) = 0.670830E+00
+PKER_SWETH( 22, 18) = 0.651731E+00
+PKER_SWETH( 22, 19) = 0.632959E+00
+PKER_SWETH( 22, 20) = 0.614506E+00
+PKER_SWETH( 22, 21) = 0.596367E+00
+PKER_SWETH( 22, 22) = 0.578533E+00
+PKER_SWETH( 22, 23) = 0.561001E+00
+PKER_SWETH( 22, 24) = 0.543762E+00
+PKER_SWETH( 22, 25) = 0.526811E+00
+PKER_SWETH( 22, 26) = 0.510142E+00
+PKER_SWETH( 22, 27) = 0.493749E+00
+PKER_SWETH( 22, 28) = 0.477627E+00
+PKER_SWETH( 22, 29) = 0.461770E+00
+PKER_SWETH( 22, 30) = 0.446173E+00
+PKER_SWETH( 22, 31) = 0.430831E+00
+PKER_SWETH( 22, 32) = 0.415740E+00
+PKER_SWETH( 22, 33) = 0.400897E+00
+PKER_SWETH( 22, 34) = 0.386297E+00
+PKER_SWETH( 22, 35) = 0.371937E+00
+PKER_SWETH( 22, 36) = 0.357817E+00
+PKER_SWETH( 22, 37) = 0.343935E+00
+PKER_SWETH( 22, 38) = 0.330290E+00
+PKER_SWETH( 22, 39) = 0.316883E+00
+PKER_SWETH( 22, 40) = 0.303717E+00
+PKER_SWETH( 22, 41) = 0.290794E+00
+PKER_SWETH( 22, 42) = 0.278119E+00
+PKER_SWETH( 22, 43) = 0.265701E+00
+PKER_SWETH( 22, 44) = 0.253545E+00
+PKER_SWETH( 22, 45) = 0.241666E+00
+PKER_SWETH( 22, 46) = 0.230076E+00
+PKER_SWETH( 22, 47) = 0.218781E+00
+PKER_SWETH( 22, 48) = 0.207801E+00
+PKER_SWETH( 22, 49) = 0.197160E+00
+PKER_SWETH( 22, 50) = 0.186874E+00
+PKER_SWETH( 22, 51) = 0.176967E+00
+PKER_SWETH( 22, 52) = 0.167468E+00
+PKER_SWETH( 22, 53) = 0.158380E+00
+PKER_SWETH( 22, 54) = 0.149743E+00
+PKER_SWETH( 22, 55) = 0.141595E+00
+PKER_SWETH( 22, 56) = 0.133952E+00
+PKER_SWETH( 22, 57) = 0.126819E+00
+PKER_SWETH( 22, 58) = 0.120271E+00
+PKER_SWETH( 22, 59) = 0.114272E+00
+PKER_SWETH( 22, 60) = 0.108900E+00
+PKER_SWETH( 22, 61) = 0.104131E+00
+PKER_SWETH( 22, 62) = 0.100005E+00
+PKER_SWETH( 22, 63) = 0.964858E-01
+PKER_SWETH( 22, 64) = 0.936678E-01
+PKER_SWETH( 22, 65) = 0.914899E-01
+PKER_SWETH( 22, 66) = 0.899213E-01
+PKER_SWETH( 22, 67) = 0.890466E-01
+PKER_SWETH( 22, 68) = 0.887838E-01
+PKER_SWETH( 22, 69) = 0.890992E-01
+PKER_SWETH( 22, 70) = 0.900517E-01
+PKER_SWETH( 22, 71) = 0.914975E-01
+PKER_SWETH( 22, 72) = 0.935371E-01
+PKER_SWETH( 22, 73) = 0.960107E-01
+PKER_SWETH( 22, 74) = 0.989769E-01
+PKER_SWETH( 22, 75) = 0.102335E+00
+PKER_SWETH( 22, 76) = 0.106056E+00
+PKER_SWETH( 22, 77) = 0.110140E+00
+PKER_SWETH( 22, 78) = 0.114479E+00
+PKER_SWETH( 22, 79) = 0.119089E+00
+PKER_SWETH( 22, 80) = 0.123906E+00
+PKER_SWETH( 23, 1) = 0.107990E+01
+PKER_SWETH( 23, 2) = 0.105462E+01
+PKER_SWETH( 23, 3) = 0.102978E+01
+PKER_SWETH( 23, 4) = 0.100538E+01
+PKER_SWETH( 23, 5) = 0.981410E+00
+PKER_SWETH( 23, 6) = 0.957867E+00
+PKER_SWETH( 23, 7) = 0.934739E+00
+PKER_SWETH( 23, 8) = 0.912020E+00
+PKER_SWETH( 23, 9) = 0.889701E+00
+PKER_SWETH( 23, 10) = 0.867775E+00
+PKER_SWETH( 23, 11) = 0.846234E+00
+PKER_SWETH( 23, 12) = 0.825072E+00
+PKER_SWETH( 23, 13) = 0.804280E+00
+PKER_SWETH( 23, 14) = 0.783852E+00
+PKER_SWETH( 23, 15) = 0.763780E+00
+PKER_SWETH( 23, 16) = 0.744058E+00
+PKER_SWETH( 23, 17) = 0.724679E+00
+PKER_SWETH( 23, 18) = 0.705635E+00
+PKER_SWETH( 23, 19) = 0.686921E+00
+PKER_SWETH( 23, 20) = 0.668530E+00
+PKER_SWETH( 23, 21) = 0.650455E+00
+PKER_SWETH( 23, 22) = 0.632690E+00
+PKER_SWETH( 23, 23) = 0.615228E+00
+PKER_SWETH( 23, 24) = 0.598063E+00
+PKER_SWETH( 23, 25) = 0.581189E+00
+PKER_SWETH( 23, 26) = 0.564600E+00
+PKER_SWETH( 23, 27) = 0.548291E+00
+PKER_SWETH( 23, 28) = 0.532254E+00
+PKER_SWETH( 23, 29) = 0.516484E+00
+PKER_SWETH( 23, 30) = 0.500975E+00
+PKER_SWETH( 23, 31) = 0.485722E+00
+PKER_SWETH( 23, 32) = 0.470719E+00
+PKER_SWETH( 23, 33) = 0.455961E+00
+PKER_SWETH( 23, 34) = 0.441442E+00
+PKER_SWETH( 23, 35) = 0.427157E+00
+PKER_SWETH( 23, 36) = 0.413102E+00
+PKER_SWETH( 23, 37) = 0.399271E+00
+PKER_SWETH( 23, 38) = 0.385660E+00
+PKER_SWETH( 23, 39) = 0.372266E+00
+PKER_SWETH( 23, 40) = 0.359083E+00
+PKER_SWETH( 23, 41) = 0.346109E+00
+PKER_SWETH( 23, 42) = 0.333342E+00
+PKER_SWETH( 23, 43) = 0.320779E+00
+PKER_SWETH( 23, 44) = 0.308419E+00
+PKER_SWETH( 23, 45) = 0.296260E+00
+PKER_SWETH( 23, 46) = 0.284304E+00
+PKER_SWETH( 23, 47) = 0.272552E+00
+PKER_SWETH( 23, 48) = 0.261008E+00
+PKER_SWETH( 23, 49) = 0.249673E+00
+PKER_SWETH( 23, 50) = 0.238558E+00
+PKER_SWETH( 23, 51) = 0.227666E+00
+PKER_SWETH( 23, 52) = 0.217005E+00
+PKER_SWETH( 23, 53) = 0.206592E+00
+PKER_SWETH( 23, 54) = 0.196433E+00
+PKER_SWETH( 23, 55) = 0.186542E+00
+PKER_SWETH( 23, 56) = 0.176949E+00
+PKER_SWETH( 23, 57) = 0.167658E+00
+PKER_SWETH( 23, 58) = 0.158695E+00
+PKER_SWETH( 23, 59) = 0.150084E+00
+PKER_SWETH( 23, 60) = 0.141842E+00
+PKER_SWETH( 23, 61) = 0.133987E+00
+PKER_SWETH( 23, 62) = 0.126571E+00
+PKER_SWETH( 23, 63) = 0.119594E+00
+PKER_SWETH( 23, 64) = 0.113074E+00
+PKER_SWETH( 23, 65) = 0.107064E+00
+PKER_SWETH( 23, 66) = 0.101564E+00
+PKER_SWETH( 23, 67) = 0.965908E-01
+PKER_SWETH( 23, 68) = 0.921795E-01
+PKER_SWETH( 23, 69) = 0.883094E-01
+PKER_SWETH( 23, 70) = 0.850275E-01
+PKER_SWETH( 23, 71) = 0.823296E-01
+PKER_SWETH( 23, 72) = 0.802259E-01
+PKER_SWETH( 23, 73) = 0.786679E-01
+PKER_SWETH( 23, 74) = 0.776773E-01
+PKER_SWETH( 23, 75) = 0.772834E-01
+PKER_SWETH( 23, 76) = 0.773610E-01
+PKER_SWETH( 23, 77) = 0.780159E-01
+PKER_SWETH( 23, 78) = 0.791291E-01
+PKER_SWETH( 23, 79) = 0.807063E-01
+PKER_SWETH( 23, 80) = 0.827160E-01
+PKER_SWETH( 24, 1) = 0.112566E+01
+PKER_SWETH( 24, 2) = 0.110039E+01
+PKER_SWETH( 24, 3) = 0.107557E+01
+PKER_SWETH( 24, 4) = 0.105119E+01
+PKER_SWETH( 24, 5) = 0.102724E+01
+PKER_SWETH( 24, 6) = 0.100372E+01
+PKER_SWETH( 24, 7) = 0.980613E+00
+PKER_SWETH( 24, 8) = 0.957918E+00
+PKER_SWETH( 24, 9) = 0.935625E+00
+PKER_SWETH( 24, 10) = 0.913725E+00
+PKER_SWETH( 24, 11) = 0.892213E+00
+PKER_SWETH( 24, 12) = 0.871080E+00
+PKER_SWETH( 24, 13) = 0.850320E+00
+PKER_SWETH( 24, 14) = 0.829925E+00
+PKER_SWETH( 24, 15) = 0.809889E+00
+PKER_SWETH( 24, 16) = 0.790204E+00
+PKER_SWETH( 24, 17) = 0.770864E+00
+PKER_SWETH( 24, 18) = 0.751863E+00
+PKER_SWETH( 24, 19) = 0.733193E+00
+PKER_SWETH( 24, 20) = 0.714848E+00
+PKER_SWETH( 24, 21) = 0.696822E+00
+PKER_SWETH( 24, 22) = 0.679108E+00
+PKER_SWETH( 24, 23) = 0.661701E+00
+PKER_SWETH( 24, 24) = 0.644593E+00
+PKER_SWETH( 24, 25) = 0.627780E+00
+PKER_SWETH( 24, 26) = 0.611255E+00
+PKER_SWETH( 24, 27) = 0.595013E+00
+PKER_SWETH( 24, 28) = 0.579046E+00
+PKER_SWETH( 24, 29) = 0.563350E+00
+PKER_SWETH( 24, 30) = 0.547920E+00
+PKER_SWETH( 24, 31) = 0.532748E+00
+PKER_SWETH( 24, 32) = 0.517830E+00
+PKER_SWETH( 24, 33) = 0.503161E+00
+PKER_SWETH( 24, 34) = 0.488734E+00
+PKER_SWETH( 24, 35) = 0.474545E+00
+PKER_SWETH( 24, 36) = 0.460588E+00
+PKER_SWETH( 24, 37) = 0.446858E+00
+PKER_SWETH( 24, 38) = 0.433349E+00
+PKER_SWETH( 24, 39) = 0.420058E+00
+PKER_SWETH( 24, 40) = 0.406978E+00
+PKER_SWETH( 24, 41) = 0.394105E+00
+PKER_SWETH( 24, 42) = 0.381435E+00
+PKER_SWETH( 24, 43) = 0.368962E+00
+PKER_SWETH( 24, 44) = 0.356683E+00
+PKER_SWETH( 24, 45) = 0.344594E+00
+PKER_SWETH( 24, 46) = 0.332690E+00
+PKER_SWETH( 24, 47) = 0.320968E+00
+PKER_SWETH( 24, 48) = 0.309426E+00
+PKER_SWETH( 24, 49) = 0.298060E+00
+PKER_SWETH( 24, 50) = 0.286869E+00
+PKER_SWETH( 24, 51) = 0.275851E+00
+PKER_SWETH( 24, 52) = 0.265006E+00
+PKER_SWETH( 24, 53) = 0.254333E+00
+PKER_SWETH( 24, 54) = 0.243837E+00
+PKER_SWETH( 24, 55) = 0.233517E+00
+PKER_SWETH( 24, 56) = 0.223377E+00
+PKER_SWETH( 24, 57) = 0.213423E+00
+PKER_SWETH( 24, 58) = 0.203662E+00
+PKER_SWETH( 24, 59) = 0.194100E+00
+PKER_SWETH( 24, 60) = 0.184752E+00
+PKER_SWETH( 24, 61) = 0.175626E+00
+PKER_SWETH( 24, 62) = 0.166732E+00
+PKER_SWETH( 24, 63) = 0.158096E+00
+PKER_SWETH( 24, 64) = 0.149729E+00
+PKER_SWETH( 24, 65) = 0.141646E+00
+PKER_SWETH( 24, 66) = 0.133870E+00
+PKER_SWETH( 24, 67) = 0.126426E+00
+PKER_SWETH( 24, 68) = 0.119323E+00
+PKER_SWETH( 24, 69) = 0.112607E+00
+PKER_SWETH( 24, 70) = 0.106286E+00
+PKER_SWETH( 24, 71) = 0.100373E+00
+PKER_SWETH( 24, 72) = 0.949018E-01
+PKER_SWETH( 24, 73) = 0.898940E-01
+PKER_SWETH( 24, 74) = 0.853452E-01
+PKER_SWETH( 24, 75) = 0.813000E-01
+PKER_SWETH( 24, 76) = 0.777455E-01
+PKER_SWETH( 24, 77) = 0.747052E-01
+PKER_SWETH( 24, 78) = 0.721768E-01
+PKER_SWETH( 24, 79) = 0.701599E-01
+PKER_SWETH( 24, 80) = 0.686415E-01
+PKER_SWETH( 25, 1) = 0.116497E+01
+PKER_SWETH( 25, 2) = 0.113971E+01
+PKER_SWETH( 25, 3) = 0.111490E+01
+PKER_SWETH( 25, 4) = 0.109053E+01
+PKER_SWETH( 25, 5) = 0.106660E+01
+PKER_SWETH( 25, 6) = 0.104310E+01
+PKER_SWETH( 25, 7) = 0.102001E+01
+PKER_SWETH( 25, 8) = 0.997330E+00
+PKER_SWETH( 25, 9) = 0.975056E+00
+PKER_SWETH( 25, 10) = 0.953177E+00
+PKER_SWETH( 25, 11) = 0.931686E+00
+PKER_SWETH( 25, 12) = 0.910575E+00
+PKER_SWETH( 25, 13) = 0.889839E+00
+PKER_SWETH( 25, 14) = 0.869469E+00
+PKER_SWETH( 25, 15) = 0.849459E+00
+PKER_SWETH( 25, 16) = 0.829802E+00
+PKER_SWETH( 25, 17) = 0.810491E+00
+PKER_SWETH( 25, 18) = 0.791520E+00
+PKER_SWETH( 25, 19) = 0.772883E+00
+PKER_SWETH( 25, 20) = 0.754573E+00
+PKER_SWETH( 25, 21) = 0.736583E+00
+PKER_SWETH( 25, 22) = 0.718908E+00
+PKER_SWETH( 25, 23) = 0.701542E+00
+PKER_SWETH( 25, 24) = 0.684477E+00
+PKER_SWETH( 25, 25) = 0.667710E+00
+PKER_SWETH( 25, 26) = 0.651233E+00
+PKER_SWETH( 25, 27) = 0.635041E+00
+PKER_SWETH( 25, 28) = 0.619128E+00
+PKER_SWETH( 25, 29) = 0.603489E+00
+PKER_SWETH( 25, 30) = 0.588117E+00
+PKER_SWETH( 25, 31) = 0.573008E+00
+PKER_SWETH( 25, 32) = 0.558157E+00
+PKER_SWETH( 25, 33) = 0.543557E+00
+PKER_SWETH( 25, 34) = 0.529203E+00
+PKER_SWETH( 25, 35) = 0.515090E+00
+PKER_SWETH( 25, 36) = 0.501214E+00
+PKER_SWETH( 25, 37) = 0.487568E+00
+PKER_SWETH( 25, 38) = 0.474149E+00
+PKER_SWETH( 25, 39) = 0.460950E+00
+PKER_SWETH( 25, 40) = 0.447967E+00
+PKER_SWETH( 25, 41) = 0.435194E+00
+PKER_SWETH( 25, 42) = 0.422628E+00
+PKER_SWETH( 25, 43) = 0.410264E+00
+PKER_SWETH( 25, 44) = 0.398095E+00
+PKER_SWETH( 25, 45) = 0.386119E+00
+PKER_SWETH( 25, 46) = 0.374331E+00
+PKER_SWETH( 25, 47) = 0.362725E+00
+PKER_SWETH( 25, 48) = 0.351298E+00
+PKER_SWETH( 25, 49) = 0.340046E+00
+PKER_SWETH( 25, 50) = 0.328963E+00
+PKER_SWETH( 25, 51) = 0.318048E+00
+PKER_SWETH( 25, 52) = 0.307296E+00
+PKER_SWETH( 25, 53) = 0.296703E+00
+PKER_SWETH( 25, 54) = 0.286267E+00
+PKER_SWETH( 25, 55) = 0.275984E+00
+PKER_SWETH( 25, 56) = 0.265854E+00
+PKER_SWETH( 25, 57) = 0.255873E+00
+PKER_SWETH( 25, 58) = 0.246042E+00
+PKER_SWETH( 25, 59) = 0.236359E+00
+PKER_SWETH( 25, 60) = 0.226825E+00
+PKER_SWETH( 25, 61) = 0.217443E+00
+PKER_SWETH( 25, 62) = 0.208213E+00
+PKER_SWETH( 25, 63) = 0.199139E+00
+PKER_SWETH( 25, 64) = 0.190227E+00
+PKER_SWETH( 25, 65) = 0.181484E+00
+PKER_SWETH( 25, 66) = 0.172917E+00
+PKER_SWETH( 25, 67) = 0.164534E+00
+PKER_SWETH( 25, 68) = 0.156348E+00
+PKER_SWETH( 25, 69) = 0.148370E+00
+PKER_SWETH( 25, 70) = 0.140618E+00
+PKER_SWETH( 25, 71) = 0.133107E+00
+PKER_SWETH( 25, 72) = 0.125845E+00
+PKER_SWETH( 25, 73) = 0.118858E+00
+PKER_SWETH( 25, 74) = 0.112169E+00
+PKER_SWETH( 25, 75) = 0.105791E+00
+PKER_SWETH( 25, 76) = 0.997470E-01
+PKER_SWETH( 25, 77) = 0.940613E-01
+PKER_SWETH( 25, 78) = 0.887330E-01
+PKER_SWETH( 25, 79) = 0.837961E-01
+PKER_SWETH( 25, 80) = 0.792734E-01
+PKER_SWETH( 26, 1) = 0.119873E+01
+PKER_SWETH( 26, 2) = 0.117349E+01
+PKER_SWETH( 26, 3) = 0.114869E+01
+PKER_SWETH( 26, 4) = 0.112433E+01
+PKER_SWETH( 26, 5) = 0.110041E+01
+PKER_SWETH( 26, 6) = 0.107692E+01
+PKER_SWETH( 26, 7) = 0.105384E+01
+PKER_SWETH( 26, 8) = 0.103118E+01
+PKER_SWETH( 26, 9) = 0.100892E+01
+PKER_SWETH( 26, 10) = 0.987055E+00
+PKER_SWETH( 26, 11) = 0.965579E+00
+PKER_SWETH( 26, 12) = 0.944486E+00
+PKER_SWETH( 26, 13) = 0.923767E+00
+PKER_SWETH( 26, 14) = 0.903416E+00
+PKER_SWETH( 26, 15) = 0.883425E+00
+PKER_SWETH( 26, 16) = 0.863789E+00
+PKER_SWETH( 26, 17) = 0.844501E+00
+PKER_SWETH( 26, 18) = 0.825553E+00
+PKER_SWETH( 26, 19) = 0.806940E+00
+PKER_SWETH( 26, 20) = 0.788656E+00
+PKER_SWETH( 26, 21) = 0.770694E+00
+PKER_SWETH( 26, 22) = 0.753048E+00
+PKER_SWETH( 26, 23) = 0.735711E+00
+PKER_SWETH( 26, 24) = 0.718680E+00
+PKER_SWETH( 26, 25) = 0.701946E+00
+PKER_SWETH( 26, 26) = 0.685505E+00
+PKER_SWETH( 26, 27) = 0.669351E+00
+PKER_SWETH( 26, 28) = 0.653478E+00
+PKER_SWETH( 26, 29) = 0.637881E+00
+PKER_SWETH( 26, 30) = 0.622554E+00
+PKER_SWETH( 26, 31) = 0.607492E+00
+PKER_SWETH( 26, 32) = 0.592690E+00
+PKER_SWETH( 26, 33) = 0.578142E+00
+PKER_SWETH( 26, 34) = 0.563843E+00
+PKER_SWETH( 26, 35) = 0.549789E+00
+PKER_SWETH( 26, 36) = 0.535974E+00
+PKER_SWETH( 26, 37) = 0.522393E+00
+PKER_SWETH( 26, 38) = 0.509041E+00
+PKER_SWETH( 26, 39) = 0.495913E+00
+PKER_SWETH( 26, 40) = 0.483005E+00
+PKER_SWETH( 26, 41) = 0.470312E+00
+PKER_SWETH( 26, 42) = 0.457829E+00
+PKER_SWETH( 26, 43) = 0.445551E+00
+PKER_SWETH( 26, 44) = 0.433474E+00
+PKER_SWETH( 26, 45) = 0.421594E+00
+PKER_SWETH( 26, 46) = 0.409904E+00
+PKER_SWETH( 26, 47) = 0.398403E+00
+PKER_SWETH( 26, 48) = 0.387084E+00
+PKER_SWETH( 26, 49) = 0.375943E+00
+PKER_SWETH( 26, 50) = 0.364977E+00
+PKER_SWETH( 26, 51) = 0.354180E+00
+PKER_SWETH( 26, 52) = 0.343550E+00
+PKER_SWETH( 26, 53) = 0.333081E+00
+PKER_SWETH( 26, 54) = 0.322770E+00
+PKER_SWETH( 26, 55) = 0.312613E+00
+PKER_SWETH( 26, 56) = 0.302607E+00
+PKER_SWETH( 26, 57) = 0.292747E+00
+PKER_SWETH( 26, 58) = 0.283031E+00
+PKER_SWETH( 26, 59) = 0.273455E+00
+PKER_SWETH( 26, 60) = 0.264017E+00
+PKER_SWETH( 26, 61) = 0.254714E+00
+PKER_SWETH( 26, 62) = 0.245543E+00
+PKER_SWETH( 26, 63) = 0.236504E+00
+PKER_SWETH( 26, 64) = 0.227595E+00
+PKER_SWETH( 26, 65) = 0.218815E+00
+PKER_SWETH( 26, 66) = 0.210165E+00
+PKER_SWETH( 26, 67) = 0.201645E+00
+PKER_SWETH( 26, 68) = 0.193258E+00
+PKER_SWETH( 26, 69) = 0.185005E+00
+PKER_SWETH( 26, 70) = 0.176890E+00
+PKER_SWETH( 26, 71) = 0.168918E+00
+PKER_SWETH( 26, 72) = 0.161097E+00
+PKER_SWETH( 26, 73) = 0.153434E+00
+PKER_SWETH( 26, 74) = 0.145935E+00
+PKER_SWETH( 26, 75) = 0.138615E+00
+PKER_SWETH( 26, 76) = 0.131483E+00
+PKER_SWETH( 26, 77) = 0.124550E+00
+PKER_SWETH( 26, 78) = 0.117835E+00
+PKER_SWETH( 26, 79) = 0.111348E+00
+PKER_SWETH( 26, 80) = 0.105104E+00
+PKER_SWETH( 27, 1) = 0.122775E+01
+PKER_SWETH( 27, 2) = 0.120251E+01
+PKER_SWETH( 27, 3) = 0.117772E+01
+PKER_SWETH( 27, 4) = 0.115337E+01
+PKER_SWETH( 27, 5) = 0.112946E+01
+PKER_SWETH( 27, 6) = 0.110597E+01
+PKER_SWETH( 27, 7) = 0.108291E+01
+PKER_SWETH( 27, 8) = 0.106025E+01
+PKER_SWETH( 27, 9) = 0.103800E+01
+PKER_SWETH( 27, 10) = 0.101615E+01
+PKER_SWETH( 27, 11) = 0.994689E+00
+PKER_SWETH( 27, 12) = 0.973608E+00
+PKER_SWETH( 27, 13) = 0.952902E+00
+PKER_SWETH( 27, 14) = 0.932565E+00
+PKER_SWETH( 27, 15) = 0.912589E+00
+PKER_SWETH( 27, 16) = 0.892969E+00
+PKER_SWETH( 27, 17) = 0.873697E+00
+PKER_SWETH( 27, 18) = 0.854767E+00
+PKER_SWETH( 27, 19) = 0.836172E+00
+PKER_SWETH( 27, 20) = 0.817907E+00
+PKER_SWETH( 27, 21) = 0.799966E+00
+PKER_SWETH( 27, 22) = 0.782341E+00
+PKER_SWETH( 27, 23) = 0.765028E+00
+PKER_SWETH( 27, 24) = 0.748020E+00
+PKER_SWETH( 27, 25) = 0.731312E+00
+PKER_SWETH( 27, 26) = 0.714898E+00
+PKER_SWETH( 27, 27) = 0.698772E+00
+PKER_SWETH( 27, 28) = 0.682929E+00
+PKER_SWETH( 27, 29) = 0.667364E+00
+PKER_SWETH( 27, 30) = 0.652070E+00
+PKER_SWETH( 27, 31) = 0.637043E+00
+PKER_SWETH( 27, 32) = 0.622278E+00
+PKER_SWETH( 27, 33) = 0.607770E+00
+PKER_SWETH( 27, 34) = 0.593513E+00
+PKER_SWETH( 27, 35) = 0.579502E+00
+PKER_SWETH( 27, 36) = 0.565733E+00
+PKER_SWETH( 27, 37) = 0.552200E+00
+PKER_SWETH( 27, 38) = 0.538900E+00
+PKER_SWETH( 27, 39) = 0.525826E+00
+PKER_SWETH( 27, 40) = 0.512975E+00
+PKER_SWETH( 27, 41) = 0.500341E+00
+PKER_SWETH( 27, 42) = 0.487921E+00
+PKER_SWETH( 27, 43) = 0.475710E+00
+PKER_SWETH( 27, 44) = 0.463702E+00
+PKER_SWETH( 27, 45) = 0.451895E+00
+PKER_SWETH( 27, 46) = 0.440282E+00
+PKER_SWETH( 27, 47) = 0.428861E+00
+PKER_SWETH( 27, 48) = 0.417627E+00
+PKER_SWETH( 27, 49) = 0.406575E+00
+PKER_SWETH( 27, 50) = 0.395702E+00
+PKER_SWETH( 27, 51) = 0.385002E+00
+PKER_SWETH( 27, 52) = 0.374473E+00
+PKER_SWETH( 27, 53) = 0.364110E+00
+PKER_SWETH( 27, 54) = 0.353909E+00
+PKER_SWETH( 27, 55) = 0.343866E+00
+PKER_SWETH( 27, 56) = 0.333978E+00
+PKER_SWETH( 27, 57) = 0.324240E+00
+PKER_SWETH( 27, 58) = 0.314648E+00
+PKER_SWETH( 27, 59) = 0.305200E+00
+PKER_SWETH( 27, 60) = 0.295891E+00
+PKER_SWETH( 27, 61) = 0.286718E+00
+PKER_SWETH( 27, 62) = 0.277679E+00
+PKER_SWETH( 27, 63) = 0.268769E+00
+PKER_SWETH( 27, 64) = 0.259985E+00
+PKER_SWETH( 27, 65) = 0.251326E+00
+PKER_SWETH( 27, 66) = 0.242788E+00
+PKER_SWETH( 27, 67) = 0.234370E+00
+PKER_SWETH( 27, 68) = 0.226069E+00
+PKER_SWETH( 27, 69) = 0.217884E+00
+PKER_SWETH( 27, 70) = 0.209814E+00
+PKER_SWETH( 27, 71) = 0.201858E+00
+PKER_SWETH( 27, 72) = 0.194016E+00
+PKER_SWETH( 27, 73) = 0.186289E+00
+PKER_SWETH( 27, 74) = 0.178679E+00
+PKER_SWETH( 27, 75) = 0.171186E+00
+PKER_SWETH( 27, 76) = 0.163816E+00
+PKER_SWETH( 27, 77) = 0.156570E+00
+PKER_SWETH( 27, 78) = 0.149455E+00
+PKER_SWETH( 27, 79) = 0.142478E+00
+PKER_SWETH( 27, 80) = 0.135643E+00
+PKER_SWETH( 28, 1) = 0.125268E+01
+PKER_SWETH( 28, 2) = 0.122744E+01
+PKER_SWETH( 28, 3) = 0.120266E+01
+PKER_SWETH( 28, 4) = 0.117832E+01
+PKER_SWETH( 28, 5) = 0.115441E+01
+PKER_SWETH( 28, 6) = 0.113094E+01
+PKER_SWETH( 28, 7) = 0.110788E+01
+PKER_SWETH( 28, 8) = 0.108523E+01
+PKER_SWETH( 28, 9) = 0.106299E+01
+PKER_SWETH( 28, 10) = 0.104115E+01
+PKER_SWETH( 28, 11) = 0.101969E+01
+PKER_SWETH( 28, 12) = 0.998621E+00
+PKER_SWETH( 28, 13) = 0.977925E+00
+PKER_SWETH( 28, 14) = 0.957598E+00
+PKER_SWETH( 28, 15) = 0.937634E+00
+PKER_SWETH( 28, 16) = 0.918026E+00
+PKER_SWETH( 28, 17) = 0.898766E+00
+PKER_SWETH( 28, 18) = 0.879849E+00
+PKER_SWETH( 28, 19) = 0.861269E+00
+PKER_SWETH( 28, 20) = 0.843018E+00
+PKER_SWETH( 28, 21) = 0.825092E+00
+PKER_SWETH( 28, 22) = 0.807484E+00
+PKER_SWETH( 28, 23) = 0.790188E+00
+PKER_SWETH( 28, 24) = 0.773198E+00
+PKER_SWETH( 28, 25) = 0.756509E+00
+PKER_SWETH( 28, 26) = 0.740115E+00
+PKER_SWETH( 28, 27) = 0.724011E+00
+PKER_SWETH( 28, 28) = 0.708190E+00
+PKER_SWETH( 28, 29) = 0.692649E+00
+PKER_SWETH( 28, 30) = 0.677380E+00
+PKER_SWETH( 28, 31) = 0.662380E+00
+PKER_SWETH( 28, 32) = 0.647643E+00
+PKER_SWETH( 28, 33) = 0.633164E+00
+PKER_SWETH( 28, 34) = 0.618938E+00
+PKER_SWETH( 28, 35) = 0.604960E+00
+PKER_SWETH( 28, 36) = 0.591226E+00
+PKER_SWETH( 28, 37) = 0.577729E+00
+PKER_SWETH( 28, 38) = 0.564467E+00
+PKER_SWETH( 28, 39) = 0.551434E+00
+PKER_SWETH( 28, 40) = 0.538626E+00
+PKER_SWETH( 28, 41) = 0.526037E+00
+PKER_SWETH( 28, 42) = 0.513665E+00
+PKER_SWETH( 28, 43) = 0.501503E+00
+PKER_SWETH( 28, 44) = 0.489548E+00
+PKER_SWETH( 28, 45) = 0.477796E+00
+PKER_SWETH( 28, 46) = 0.466242E+00
+PKER_SWETH( 28, 47) = 0.454882E+00
+PKER_SWETH( 28, 48) = 0.443713E+00
+PKER_SWETH( 28, 49) = 0.432729E+00
+PKER_SWETH( 28, 50) = 0.421926E+00
+PKER_SWETH( 28, 51) = 0.411302E+00
+PKER_SWETH( 28, 52) = 0.400851E+00
+PKER_SWETH( 28, 53) = 0.390570E+00
+PKER_SWETH( 28, 54) = 0.380455E+00
+PKER_SWETH( 28, 55) = 0.370502E+00
+PKER_SWETH( 28, 56) = 0.360708E+00
+PKER_SWETH( 28, 57) = 0.351068E+00
+PKER_SWETH( 28, 58) = 0.341578E+00
+PKER_SWETH( 28, 59) = 0.332236E+00
+PKER_SWETH( 28, 60) = 0.323038E+00
+PKER_SWETH( 28, 61) = 0.313980E+00
+PKER_SWETH( 28, 62) = 0.305058E+00
+PKER_SWETH( 28, 63) = 0.296269E+00
+PKER_SWETH( 28, 64) = 0.287611E+00
+PKER_SWETH( 28, 65) = 0.279079E+00
+PKER_SWETH( 28, 66) = 0.270670E+00
+PKER_SWETH( 28, 67) = 0.262382E+00
+PKER_SWETH( 28, 68) = 0.254212E+00
+PKER_SWETH( 28, 69) = 0.246157E+00
+PKER_SWETH( 28, 70) = 0.238215E+00
+PKER_SWETH( 28, 71) = 0.230382E+00
+PKER_SWETH( 28, 72) = 0.222658E+00
+PKER_SWETH( 28, 73) = 0.215040E+00
+PKER_SWETH( 28, 74) = 0.207527E+00
+PKER_SWETH( 28, 75) = 0.200118E+00
+PKER_SWETH( 28, 76) = 0.192811E+00
+PKER_SWETH( 28, 77) = 0.185607E+00
+PKER_SWETH( 28, 78) = 0.178506E+00
+PKER_SWETH( 28, 79) = 0.171508E+00
+PKER_SWETH( 28, 80) = 0.164614E+00
+PKER_SWETH( 29, 1) = 0.127410E+01
+PKER_SWETH( 29, 2) = 0.124887E+01
+PKER_SWETH( 29, 3) = 0.122409E+01
+PKER_SWETH( 29, 4) = 0.119976E+01
+PKER_SWETH( 29, 5) = 0.117586E+01
+PKER_SWETH( 29, 6) = 0.115238E+01
+PKER_SWETH( 29, 7) = 0.112933E+01
+PKER_SWETH( 29, 8) = 0.110669E+01
+PKER_SWETH( 29, 9) = 0.108446E+01
+PKER_SWETH( 29, 10) = 0.106262E+01
+PKER_SWETH( 29, 11) = 0.104117E+01
+PKER_SWETH( 29, 12) = 0.102011E+01
+PKER_SWETH( 29, 13) = 0.999419E+00
+PKER_SWETH( 29, 14) = 0.979101E+00
+PKER_SWETH( 29, 15) = 0.959145E+00
+PKER_SWETH( 29, 16) = 0.939546E+00
+PKER_SWETH( 29, 17) = 0.920295E+00
+PKER_SWETH( 29, 18) = 0.901389E+00
+PKER_SWETH( 29, 19) = 0.882819E+00
+PKER_SWETH( 29, 20) = 0.864579E+00
+PKER_SWETH( 29, 21) = 0.846665E+00
+PKER_SWETH( 29, 22) = 0.829069E+00
+PKER_SWETH( 29, 23) = 0.811786E+00
+PKER_SWETH( 29, 24) = 0.794810E+00
+PKER_SWETH( 29, 25) = 0.778136E+00
+PKER_SWETH( 29, 26) = 0.761757E+00
+PKER_SWETH( 29, 27) = 0.745669E+00
+PKER_SWETH( 29, 28) = 0.729865E+00
+PKER_SWETH( 29, 29) = 0.714342E+00
+PKER_SWETH( 29, 30) = 0.699092E+00
+PKER_SWETH( 29, 31) = 0.684112E+00
+PKER_SWETH( 29, 32) = 0.669396E+00
+PKER_SWETH( 29, 33) = 0.654939E+00
+PKER_SWETH( 29, 34) = 0.640737E+00
+PKER_SWETH( 29, 35) = 0.626783E+00
+PKER_SWETH( 29, 36) = 0.613075E+00
+PKER_SWETH( 29, 37) = 0.599606E+00
+PKER_SWETH( 29, 38) = 0.586373E+00
+PKER_SWETH( 29, 39) = 0.573371E+00
+PKER_SWETH( 29, 40) = 0.560594E+00
+PKER_SWETH( 29, 41) = 0.548040E+00
+PKER_SWETH( 29, 42) = 0.535703E+00
+PKER_SWETH( 29, 43) = 0.523579E+00
+PKER_SWETH( 29, 44) = 0.511664E+00
+PKER_SWETH( 29, 45) = 0.499954E+00
+PKER_SWETH( 29, 46) = 0.488444E+00
+PKER_SWETH( 29, 47) = 0.477131E+00
+PKER_SWETH( 29, 48) = 0.466010E+00
+PKER_SWETH( 29, 49) = 0.455077E+00
+PKER_SWETH( 29, 50) = 0.444329E+00
+PKER_SWETH( 29, 51) = 0.433762E+00
+PKER_SWETH( 29, 52) = 0.423371E+00
+PKER_SWETH( 29, 53) = 0.413152E+00
+PKER_SWETH( 29, 54) = 0.403103E+00
+PKER_SWETH( 29, 55) = 0.393220E+00
+PKER_SWETH( 29, 56) = 0.383498E+00
+PKER_SWETH( 29, 57) = 0.373933E+00
+PKER_SWETH( 29, 58) = 0.364524E+00
+PKER_SWETH( 29, 59) = 0.355265E+00
+PKER_SWETH( 29, 60) = 0.346153E+00
+PKER_SWETH( 29, 61) = 0.337185E+00
+PKER_SWETH( 29, 62) = 0.328358E+00
+PKER_SWETH( 29, 63) = 0.319668E+00
+PKER_SWETH( 29, 64) = 0.311111E+00
+PKER_SWETH( 29, 65) = 0.302685E+00
+PKER_SWETH( 29, 66) = 0.294386E+00
+PKER_SWETH( 29, 67) = 0.286211E+00
+PKER_SWETH( 29, 68) = 0.278157E+00
+PKER_SWETH( 29, 69) = 0.270221E+00
+PKER_SWETH( 29, 70) = 0.262400E+00
+PKER_SWETH( 29, 71) = 0.254692E+00
+PKER_SWETH( 29, 72) = 0.247093E+00
+PKER_SWETH( 29, 73) = 0.239601E+00
+PKER_SWETH( 29, 74) = 0.232215E+00
+PKER_SWETH( 29, 75) = 0.224931E+00
+PKER_SWETH( 29, 76) = 0.217747E+00
+PKER_SWETH( 29, 77) = 0.210662E+00
+PKER_SWETH( 29, 78) = 0.203675E+00
+PKER_SWETH( 29, 79) = 0.196783E+00
+PKER_SWETH( 29, 80) = 0.189986E+00
+PKER_SWETH( 30, 1) = 0.129252E+01
+PKER_SWETH( 30, 2) = 0.126729E+01
+PKER_SWETH( 30, 3) = 0.124251E+01
+PKER_SWETH( 30, 4) = 0.121818E+01
+PKER_SWETH( 30, 5) = 0.119428E+01
+PKER_SWETH( 30, 6) = 0.117082E+01
+PKER_SWETH( 30, 7) = 0.114777E+01
+PKER_SWETH( 30, 8) = 0.112513E+01
+PKER_SWETH( 30, 9) = 0.110290E+01
+PKER_SWETH( 30, 10) = 0.108107E+01
+PKER_SWETH( 30, 11) = 0.105963E+01
+PKER_SWETH( 30, 12) = 0.103857E+01
+PKER_SWETH( 30, 13) = 0.101789E+01
+PKER_SWETH( 30, 14) = 0.997573E+00
+PKER_SWETH( 30, 15) = 0.977623E+00
+PKER_SWETH( 30, 16) = 0.958030E+00
+PKER_SWETH( 30, 17) = 0.938788E+00
+PKER_SWETH( 30, 18) = 0.919888E+00
+PKER_SWETH( 30, 19) = 0.901326E+00
+PKER_SWETH( 30, 20) = 0.883096E+00
+PKER_SWETH( 30, 21) = 0.865190E+00
+PKER_SWETH( 30, 22) = 0.847603E+00
+PKER_SWETH( 30, 23) = 0.830330E+00
+PKER_SWETH( 30, 24) = 0.813365E+00
+PKER_SWETH( 30, 25) = 0.796701E+00
+PKER_SWETH( 30, 26) = 0.780334E+00
+PKER_SWETH( 30, 27) = 0.764258E+00
+PKER_SWETH( 30, 28) = 0.748468E+00
+PKER_SWETH( 30, 29) = 0.732958E+00
+PKER_SWETH( 30, 30) = 0.717723E+00
+PKER_SWETH( 30, 31) = 0.702758E+00
+PKER_SWETH( 30, 32) = 0.688058E+00
+PKER_SWETH( 30, 33) = 0.673618E+00
+PKER_SWETH( 30, 34) = 0.659433E+00
+PKER_SWETH( 30, 35) = 0.645498E+00
+PKER_SWETH( 30, 36) = 0.631809E+00
+PKER_SWETH( 30, 37) = 0.618362E+00
+PKER_SWETH( 30, 38) = 0.605150E+00
+PKER_SWETH( 30, 39) = 0.592171E+00
+PKER_SWETH( 30, 40) = 0.579419E+00
+PKER_SWETH( 30, 41) = 0.566891E+00
+PKER_SWETH( 30, 42) = 0.554581E+00
+PKER_SWETH( 30, 43) = 0.542485E+00
+PKER_SWETH( 30, 44) = 0.530601E+00
+PKER_SWETH( 30, 45) = 0.518922E+00
+PKER_SWETH( 30, 46) = 0.507446E+00
+PKER_SWETH( 30, 47) = 0.496168E+00
+PKER_SWETH( 30, 48) = 0.485084E+00
+PKER_SWETH( 30, 49) = 0.474190E+00
+PKER_SWETH( 30, 50) = 0.463483E+00
+PKER_SWETH( 30, 51) = 0.452959E+00
+PKER_SWETH( 30, 52) = 0.442613E+00
+PKER_SWETH( 30, 53) = 0.432443E+00
+PKER_SWETH( 30, 54) = 0.422444E+00
+PKER_SWETH( 30, 55) = 0.412613E+00
+PKER_SWETH( 30, 56) = 0.402946E+00
+PKER_SWETH( 30, 57) = 0.393440E+00
+PKER_SWETH( 30, 58) = 0.384092E+00
+PKER_SWETH( 30, 59) = 0.374897E+00
+PKER_SWETH( 30, 60) = 0.365852E+00
+PKER_SWETH( 30, 61) = 0.356955E+00
+PKER_SWETH( 30, 62) = 0.348201E+00
+PKER_SWETH( 30, 63) = 0.339587E+00
+PKER_SWETH( 30, 64) = 0.331111E+00
+PKER_SWETH( 30, 65) = 0.322768E+00
+PKER_SWETH( 30, 66) = 0.314556E+00
+PKER_SWETH( 30, 67) = 0.306471E+00
+PKER_SWETH( 30, 68) = 0.298511E+00
+PKER_SWETH( 30, 69) = 0.290673E+00
+PKER_SWETH( 30, 70) = 0.282952E+00
+PKER_SWETH( 30, 71) = 0.275348E+00
+PKER_SWETH( 30, 72) = 0.267856E+00
+PKER_SWETH( 30, 73) = 0.260475E+00
+PKER_SWETH( 30, 74) = 0.253200E+00
+PKER_SWETH( 30, 75) = 0.246031E+00
+PKER_SWETH( 30, 76) = 0.238964E+00
+PKER_SWETH( 30, 77) = 0.231997E+00
+PKER_SWETH( 30, 78) = 0.225128E+00
+PKER_SWETH( 30, 79) = 0.218354E+00
+PKER_SWETH( 30, 80) = 0.211675E+00
+PKER_SWETH( 31, 1) = 0.130834E+01
+PKER_SWETH( 31, 2) = 0.128312E+01
+PKER_SWETH( 31, 3) = 0.125834E+01
+PKER_SWETH( 31, 4) = 0.123401E+01
+PKER_SWETH( 31, 5) = 0.121012E+01
+PKER_SWETH( 31, 6) = 0.118665E+01
+PKER_SWETH( 31, 7) = 0.116361E+01
+PKER_SWETH( 31, 8) = 0.114098E+01
+PKER_SWETH( 31, 9) = 0.111875E+01
+PKER_SWETH( 31, 10) = 0.109692E+01
+PKER_SWETH( 31, 11) = 0.107548E+01
+PKER_SWETH( 31, 12) = 0.105443E+01
+PKER_SWETH( 31, 13) = 0.103375E+01
+PKER_SWETH( 31, 14) = 0.101344E+01
+PKER_SWETH( 31, 15) = 0.993498E+00
+PKER_SWETH( 31, 16) = 0.973910E+00
+PKER_SWETH( 31, 17) = 0.954673E+00
+PKER_SWETH( 31, 18) = 0.935779E+00
+PKER_SWETH( 31, 19) = 0.917224E+00
+PKER_SWETH( 31, 20) = 0.898999E+00
+PKER_SWETH( 31, 21) = 0.881100E+00
+PKER_SWETH( 31, 22) = 0.863521E+00
+PKER_SWETH( 31, 23) = 0.846256E+00
+PKER_SWETH( 31, 24) = 0.829298E+00
+PKER_SWETH( 31, 25) = 0.812643E+00
+PKER_SWETH( 31, 26) = 0.796285E+00
+PKER_SWETH( 31, 27) = 0.780218E+00
+PKER_SWETH( 31, 28) = 0.764437E+00
+PKER_SWETH( 31, 29) = 0.748938E+00
+PKER_SWETH( 31, 30) = 0.733713E+00
+PKER_SWETH( 31, 31) = 0.718760E+00
+PKER_SWETH( 31, 32) = 0.704072E+00
+PKER_SWETH( 31, 33) = 0.689645E+00
+PKER_SWETH( 31, 34) = 0.675473E+00
+PKER_SWETH( 31, 35) = 0.661553E+00
+PKER_SWETH( 31, 36) = 0.647879E+00
+PKER_SWETH( 31, 37) = 0.634447E+00
+PKER_SWETH( 31, 38) = 0.621253E+00
+PKER_SWETH( 31, 39) = 0.608291E+00
+PKER_SWETH( 31, 40) = 0.595558E+00
+PKER_SWETH( 31, 41) = 0.583048E+00
+PKER_SWETH( 31, 42) = 0.570759E+00
+PKER_SWETH( 31, 43) = 0.558685E+00
+PKER_SWETH( 31, 44) = 0.546823E+00
+PKER_SWETH( 31, 45) = 0.535169E+00
+PKER_SWETH( 31, 46) = 0.523718E+00
+PKER_SWETH( 31, 47) = 0.512467E+00
+PKER_SWETH( 31, 48) = 0.501411E+00
+PKER_SWETH( 31, 49) = 0.490547E+00
+PKER_SWETH( 31, 50) = 0.479871E+00
+PKER_SWETH( 31, 51) = 0.469379E+00
+PKER_SWETH( 31, 52) = 0.459068E+00
+PKER_SWETH( 31, 53) = 0.448934E+00
+PKER_SWETH( 31, 54) = 0.438974E+00
+PKER_SWETH( 31, 55) = 0.429183E+00
+PKER_SWETH( 31, 56) = 0.419559E+00
+PKER_SWETH( 31, 57) = 0.410097E+00
+PKER_SWETH( 31, 58) = 0.400795E+00
+PKER_SWETH( 31, 59) = 0.391650E+00
+PKER_SWETH( 31, 60) = 0.382657E+00
+PKER_SWETH( 31, 61) = 0.373813E+00
+PKER_SWETH( 31, 62) = 0.365116E+00
+PKER_SWETH( 31, 63) = 0.356561E+00
+PKER_SWETH( 31, 64) = 0.348147E+00
+PKER_SWETH( 31, 65) = 0.339869E+00
+PKER_SWETH( 31, 66) = 0.331725E+00
+PKER_SWETH( 31, 67) = 0.323711E+00
+PKER_SWETH( 31, 68) = 0.315825E+00
+PKER_SWETH( 31, 69) = 0.308064E+00
+PKER_SWETH( 31, 70) = 0.300424E+00
+PKER_SWETH( 31, 71) = 0.292903E+00
+PKER_SWETH( 31, 72) = 0.285497E+00
+PKER_SWETH( 31, 73) = 0.278205E+00
+PKER_SWETH( 31, 74) = 0.271023E+00
+PKER_SWETH( 31, 75) = 0.263949E+00
+PKER_SWETH( 31, 76) = 0.256980E+00
+PKER_SWETH( 31, 77) = 0.250113E+00
+PKER_SWETH( 31, 78) = 0.243347E+00
+PKER_SWETH( 31, 79) = 0.236679E+00
+PKER_SWETH( 31, 80) = 0.230106E+00
+PKER_SWETH( 32, 1) = 0.132194E+01
+PKER_SWETH( 32, 2) = 0.129672E+01
+PKER_SWETH( 32, 3) = 0.127195E+01
+PKER_SWETH( 32, 4) = 0.124762E+01
+PKER_SWETH( 32, 5) = 0.122373E+01
+PKER_SWETH( 32, 6) = 0.120026E+01
+PKER_SWETH( 32, 7) = 0.117722E+01
+PKER_SWETH( 32, 8) = 0.115459E+01
+PKER_SWETH( 32, 9) = 0.113237E+01
+PKER_SWETH( 32, 10) = 0.111054E+01
+PKER_SWETH( 32, 11) = 0.108911E+01
+PKER_SWETH( 32, 12) = 0.106806E+01
+PKER_SWETH( 32, 13) = 0.104738E+01
+PKER_SWETH( 32, 14) = 0.102708E+01
+PKER_SWETH( 32, 15) = 0.100714E+01
+PKER_SWETH( 32, 16) = 0.987554E+00
+PKER_SWETH( 32, 17) = 0.968320E+00
+PKER_SWETH( 32, 18) = 0.949431E+00
+PKER_SWETH( 32, 19) = 0.930880E+00
+PKER_SWETH( 32, 20) = 0.912661E+00
+PKER_SWETH( 32, 21) = 0.894767E+00
+PKER_SWETH( 32, 22) = 0.877193E+00
+PKER_SWETH( 32, 23) = 0.859934E+00
+PKER_SWETH( 32, 24) = 0.842982E+00
+PKER_SWETH( 32, 25) = 0.826333E+00
+PKER_SWETH( 32, 26) = 0.809982E+00
+PKER_SWETH( 32, 27) = 0.793922E+00
+PKER_SWETH( 32, 28) = 0.778149E+00
+PKER_SWETH( 32, 29) = 0.762657E+00
+PKER_SWETH( 32, 30) = 0.747441E+00
+PKER_SWETH( 32, 31) = 0.732497E+00
+PKER_SWETH( 32, 32) = 0.717818E+00
+PKER_SWETH( 32, 33) = 0.703401E+00
+PKER_SWETH( 32, 34) = 0.689239E+00
+PKER_SWETH( 32, 35) = 0.675330E+00
+PKER_SWETH( 32, 36) = 0.661668E+00
+PKER_SWETH( 32, 37) = 0.648248E+00
+PKER_SWETH( 32, 38) = 0.635066E+00
+PKER_SWETH( 32, 39) = 0.622117E+00
+PKER_SWETH( 32, 40) = 0.609398E+00
+PKER_SWETH( 32, 41) = 0.596904E+00
+PKER_SWETH( 32, 42) = 0.584630E+00
+PKER_SWETH( 32, 43) = 0.572573E+00
+PKER_SWETH( 32, 44) = 0.560728E+00
+PKER_SWETH( 32, 45) = 0.549092E+00
+PKER_SWETH( 32, 46) = 0.537660E+00
+PKER_SWETH( 32, 47) = 0.526429E+00
+PKER_SWETH( 32, 48) = 0.515395E+00
+PKER_SWETH( 32, 49) = 0.504553E+00
+PKER_SWETH( 32, 50) = 0.493901E+00
+PKER_SWETH( 32, 51) = 0.483435E+00
+PKER_SWETH( 32, 52) = 0.473150E+00
+PKER_SWETH( 32, 53) = 0.463044E+00
+PKER_SWETH( 32, 54) = 0.453112E+00
+PKER_SWETH( 32, 55) = 0.443352E+00
+PKER_SWETH( 32, 56) = 0.433760E+00
+PKER_SWETH( 32, 57) = 0.424333E+00
+PKER_SWETH( 32, 58) = 0.415067E+00
+PKER_SWETH( 32, 59) = 0.405958E+00
+PKER_SWETH( 32, 60) = 0.397005E+00
+PKER_SWETH( 32, 61) = 0.388203E+00
+PKER_SWETH( 32, 62) = 0.379549E+00
+PKER_SWETH( 32, 63) = 0.371040E+00
+PKER_SWETH( 32, 64) = 0.362674E+00
+PKER_SWETH( 32, 65) = 0.354446E+00
+PKER_SWETH( 32, 66) = 0.346355E+00
+PKER_SWETH( 32, 67) = 0.338396E+00
+PKER_SWETH( 32, 68) = 0.330568E+00
+PKER_SWETH( 32, 69) = 0.322866E+00
+PKER_SWETH( 32, 70) = 0.315289E+00
+PKER_SWETH( 32, 71) = 0.307833E+00
+PKER_SWETH( 32, 72) = 0.300496E+00
+PKER_SWETH( 32, 73) = 0.293275E+00
+PKER_SWETH( 32, 74) = 0.286167E+00
+PKER_SWETH( 32, 75) = 0.279170E+00
+PKER_SWETH( 32, 76) = 0.272280E+00
+PKER_SWETH( 32, 77) = 0.265496E+00
+PKER_SWETH( 32, 78) = 0.258814E+00
+PKER_SWETH( 32, 79) = 0.252233E+00
+PKER_SWETH( 32, 80) = 0.245750E+00
+PKER_SWETH( 33, 1) = 0.133363E+01
+PKER_SWETH( 33, 2) = 0.130841E+01
+PKER_SWETH( 33, 3) = 0.128364E+01
+PKER_SWETH( 33, 4) = 0.125931E+01
+PKER_SWETH( 33, 5) = 0.123542E+01
+PKER_SWETH( 33, 6) = 0.121196E+01
+PKER_SWETH( 33, 7) = 0.118892E+01
+PKER_SWETH( 33, 8) = 0.116629E+01
+PKER_SWETH( 33, 9) = 0.114407E+01
+PKER_SWETH( 33, 10) = 0.112225E+01
+PKER_SWETH( 33, 11) = 0.110082E+01
+PKER_SWETH( 33, 12) = 0.107977E+01
+PKER_SWETH( 33, 13) = 0.105910E+01
+PKER_SWETH( 33, 14) = 0.103879E+01
+PKER_SWETH( 33, 15) = 0.101886E+01
+PKER_SWETH( 33, 16) = 0.999276E+00
+PKER_SWETH( 33, 17) = 0.980046E+00
+PKER_SWETH( 33, 18) = 0.961160E+00
+PKER_SWETH( 33, 19) = 0.942613E+00
+PKER_SWETH( 33, 20) = 0.924397E+00
+PKER_SWETH( 33, 21) = 0.906508E+00
+PKER_SWETH( 33, 22) = 0.888938E+00
+PKER_SWETH( 33, 23) = 0.871683E+00
+PKER_SWETH( 33, 24) = 0.854736E+00
+PKER_SWETH( 33, 25) = 0.838092E+00
+PKER_SWETH( 33, 26) = 0.821746E+00
+PKER_SWETH( 33, 27) = 0.805692E+00
+PKER_SWETH( 33, 28) = 0.789924E+00
+PKER_SWETH( 33, 29) = 0.774438E+00
+PKER_SWETH( 33, 30) = 0.759229E+00
+PKER_SWETH( 33, 31) = 0.744291E+00
+PKER_SWETH( 33, 32) = 0.729619E+00
+PKER_SWETH( 33, 33) = 0.715209E+00
+PKER_SWETH( 33, 34) = 0.701056E+00
+PKER_SWETH( 33, 35) = 0.687155E+00
+PKER_SWETH( 33, 36) = 0.673501E+00
+PKER_SWETH( 33, 37) = 0.660091E+00
+PKER_SWETH( 33, 38) = 0.646918E+00
+PKER_SWETH( 33, 39) = 0.633980E+00
+PKER_SWETH( 33, 40) = 0.621272E+00
+PKER_SWETH( 33, 41) = 0.608789E+00
+PKER_SWETH( 33, 42) = 0.596527E+00
+PKER_SWETH( 33, 43) = 0.584482E+00
+PKER_SWETH( 33, 44) = 0.572651E+00
+PKER_SWETH( 33, 45) = 0.561029E+00
+PKER_SWETH( 33, 46) = 0.549612E+00
+PKER_SWETH( 33, 47) = 0.538396E+00
+PKER_SWETH( 33, 48) = 0.527378E+00
+PKER_SWETH( 33, 49) = 0.516554E+00
+PKER_SWETH( 33, 50) = 0.505920E+00
+PKER_SWETH( 33, 51) = 0.495472E+00
+PKER_SWETH( 33, 52) = 0.485208E+00
+PKER_SWETH( 33, 53) = 0.475123E+00
+PKER_SWETH( 33, 54) = 0.465213E+00
+PKER_SWETH( 33, 55) = 0.455477E+00
+PKER_SWETH( 33, 56) = 0.445910E+00
+PKER_SWETH( 33, 57) = 0.436508E+00
+PKER_SWETH( 33, 58) = 0.427269E+00
+PKER_SWETH( 33, 59) = 0.418190E+00
+PKER_SWETH( 33, 60) = 0.409266E+00
+PKER_SWETH( 33, 61) = 0.400496E+00
+PKER_SWETH( 33, 62) = 0.391875E+00
+PKER_SWETH( 33, 63) = 0.383402E+00
+PKER_SWETH( 33, 64) = 0.375072E+00
+PKER_SWETH( 33, 65) = 0.366883E+00
+PKER_SWETH( 33, 66) = 0.358832E+00
+PKER_SWETH( 33, 67) = 0.350916E+00
+PKER_SWETH( 33, 68) = 0.343132E+00
+PKER_SWETH( 33, 69) = 0.335478E+00
+PKER_SWETH( 33, 70) = 0.327949E+00
+PKER_SWETH( 33, 71) = 0.320545E+00
+PKER_SWETH( 33, 72) = 0.313261E+00
+PKER_SWETH( 33, 73) = 0.306096E+00
+PKER_SWETH( 33, 74) = 0.299046E+00
+PKER_SWETH( 33, 75) = 0.292109E+00
+PKER_SWETH( 33, 76) = 0.285283E+00
+PKER_SWETH( 33, 77) = 0.278564E+00
+PKER_SWETH( 33, 78) = 0.271951E+00
+PKER_SWETH( 33, 79) = 0.265440E+00
+PKER_SWETH( 33, 80) = 0.259030E+00
+PKER_SWETH( 34, 1) = 0.134368E+01
+PKER_SWETH( 34, 2) = 0.131846E+01
+PKER_SWETH( 34, 3) = 0.129369E+01
+PKER_SWETH( 34, 4) = 0.126936E+01
+PKER_SWETH( 34, 5) = 0.124548E+01
+PKER_SWETH( 34, 6) = 0.122202E+01
+PKER_SWETH( 34, 7) = 0.119898E+01
+PKER_SWETH( 34, 8) = 0.117635E+01
+PKER_SWETH( 34, 9) = 0.115413E+01
+PKER_SWETH( 34, 10) = 0.113231E+01
+PKER_SWETH( 34, 11) = 0.111088E+01
+PKER_SWETH( 34, 12) = 0.108983E+01
+PKER_SWETH( 34, 13) = 0.106916E+01
+PKER_SWETH( 34, 14) = 0.104886E+01
+PKER_SWETH( 34, 15) = 0.102893E+01
+PKER_SWETH( 34, 16) = 0.100935E+01
+PKER_SWETH( 34, 17) = 0.990122E+00
+PKER_SWETH( 34, 18) = 0.971239E+00
+PKER_SWETH( 34, 19) = 0.952694E+00
+PKER_SWETH( 34, 20) = 0.934481E+00
+PKER_SWETH( 34, 21) = 0.916595E+00
+PKER_SWETH( 34, 22) = 0.899028E+00
+PKER_SWETH( 34, 23) = 0.881776E+00
+PKER_SWETH( 34, 24) = 0.864833E+00
+PKER_SWETH( 34, 25) = 0.848193E+00
+PKER_SWETH( 34, 26) = 0.831851E+00
+PKER_SWETH( 34, 27) = 0.815801E+00
+PKER_SWETH( 34, 28) = 0.800038E+00
+PKER_SWETH( 34, 29) = 0.784557E+00
+PKER_SWETH( 34, 30) = 0.769352E+00
+PKER_SWETH( 34, 31) = 0.754419E+00
+PKER_SWETH( 34, 32) = 0.739753E+00
+PKER_SWETH( 34, 33) = 0.725349E+00
+PKER_SWETH( 34, 34) = 0.711202E+00
+PKER_SWETH( 34, 35) = 0.697307E+00
+PKER_SWETH( 34, 36) = 0.683660E+00
+PKER_SWETH( 34, 37) = 0.670256E+00
+PKER_SWETH( 34, 38) = 0.657091E+00
+PKER_SWETH( 34, 39) = 0.644161E+00
+PKER_SWETH( 34, 40) = 0.631461E+00
+PKER_SWETH( 34, 41) = 0.618986E+00
+PKER_SWETH( 34, 42) = 0.606734E+00
+PKER_SWETH( 34, 43) = 0.594699E+00
+PKER_SWETH( 34, 44) = 0.582878E+00
+PKER_SWETH( 34, 45) = 0.571266E+00
+PKER_SWETH( 34, 46) = 0.559860E+00
+PKER_SWETH( 34, 47) = 0.548656E+00
+PKER_SWETH( 34, 48) = 0.537651E+00
+PKER_SWETH( 34, 49) = 0.526840E+00
+PKER_SWETH( 34, 50) = 0.516220E+00
+PKER_SWETH( 34, 51) = 0.505787E+00
+PKER_SWETH( 34, 52) = 0.495537E+00
+PKER_SWETH( 34, 53) = 0.485469E+00
+PKER_SWETH( 34, 54) = 0.475576E+00
+PKER_SWETH( 34, 55) = 0.465858E+00
+PKER_SWETH( 34, 56) = 0.456309E+00
+PKER_SWETH( 34, 57) = 0.446928E+00
+PKER_SWETH( 34, 58) = 0.437710E+00
+PKER_SWETH( 34, 59) = 0.428652E+00
+PKER_SWETH( 34, 60) = 0.419752E+00
+PKER_SWETH( 34, 61) = 0.411006E+00
+PKER_SWETH( 34, 62) = 0.402411E+00
+PKER_SWETH( 34, 63) = 0.393964E+00
+PKER_SWETH( 34, 64) = 0.385663E+00
+PKER_SWETH( 34, 65) = 0.377504E+00
+PKER_SWETH( 34, 66) = 0.369484E+00
+PKER_SWETH( 34, 67) = 0.361601E+00
+PKER_SWETH( 34, 68) = 0.353851E+00
+PKER_SWETH( 34, 69) = 0.346233E+00
+PKER_SWETH( 34, 70) = 0.338742E+00
+PKER_SWETH( 34, 71) = 0.331378E+00
+PKER_SWETH( 34, 72) = 0.324136E+00
+PKER_SWETH( 34, 73) = 0.317014E+00
+PKER_SWETH( 34, 74) = 0.310010E+00
+PKER_SWETH( 34, 75) = 0.303120E+00
+PKER_SWETH( 34, 76) = 0.296344E+00
+PKER_SWETH( 34, 77) = 0.289677E+00
+PKER_SWETH( 34, 78) = 0.283117E+00
+PKER_SWETH( 34, 79) = 0.276663E+00
+PKER_SWETH( 34, 80) = 0.270311E+00
+PKER_SWETH( 35, 1) = 0.135231E+01
+PKER_SWETH( 35, 2) = 0.132709E+01
+PKER_SWETH( 35, 3) = 0.130233E+01
+PKER_SWETH( 35, 4) = 0.127800E+01
+PKER_SWETH( 35, 5) = 0.125412E+01
+PKER_SWETH( 35, 6) = 0.123066E+01
+PKER_SWETH( 35, 7) = 0.120762E+01
+PKER_SWETH( 35, 8) = 0.118499E+01
+PKER_SWETH( 35, 9) = 0.116278E+01
+PKER_SWETH( 35, 10) = 0.114096E+01
+PKER_SWETH( 35, 11) = 0.111953E+01
+PKER_SWETH( 35, 12) = 0.109848E+01
+PKER_SWETH( 35, 13) = 0.107781E+01
+PKER_SWETH( 35, 14) = 0.105752E+01
+PKER_SWETH( 35, 15) = 0.103758E+01
+PKER_SWETH( 35, 16) = 0.101801E+01
+PKER_SWETH( 35, 17) = 0.998780E+00
+PKER_SWETH( 35, 18) = 0.979899E+00
+PKER_SWETH( 35, 19) = 0.961356E+00
+PKER_SWETH( 35, 20) = 0.943146E+00
+PKER_SWETH( 35, 21) = 0.925261E+00
+PKER_SWETH( 35, 22) = 0.907697E+00
+PKER_SWETH( 35, 23) = 0.890448E+00
+PKER_SWETH( 35, 24) = 0.873508E+00
+PKER_SWETH( 35, 25) = 0.856871E+00
+PKER_SWETH( 35, 26) = 0.840532E+00
+PKER_SWETH( 35, 27) = 0.824485E+00
+PKER_SWETH( 35, 28) = 0.808725E+00
+PKER_SWETH( 35, 29) = 0.793248E+00
+PKER_SWETH( 35, 30) = 0.778047E+00
+PKER_SWETH( 35, 31) = 0.763118E+00
+PKER_SWETH( 35, 32) = 0.748456E+00
+PKER_SWETH( 35, 33) = 0.734056E+00
+PKER_SWETH( 35, 34) = 0.719914E+00
+PKER_SWETH( 35, 35) = 0.706024E+00
+PKER_SWETH( 35, 36) = 0.692382E+00
+PKER_SWETH( 35, 37) = 0.678984E+00
+PKER_SWETH( 35, 38) = 0.665824E+00
+PKER_SWETH( 35, 39) = 0.652900E+00
+PKER_SWETH( 35, 40) = 0.640206E+00
+PKER_SWETH( 35, 41) = 0.627738E+00
+PKER_SWETH( 35, 42) = 0.615493E+00
+PKER_SWETH( 35, 43) = 0.603465E+00
+PKER_SWETH( 35, 44) = 0.591652E+00
+PKER_SWETH( 35, 45) = 0.580048E+00
+PKER_SWETH( 35, 46) = 0.568651E+00
+PKER_SWETH( 35, 47) = 0.557457E+00
+PKER_SWETH( 35, 48) = 0.546461E+00
+PKER_SWETH( 35, 49) = 0.535660E+00
+PKER_SWETH( 35, 50) = 0.525050E+00
+PKER_SWETH( 35, 51) = 0.514628E+00
+PKER_SWETH( 35, 52) = 0.504391E+00
+PKER_SWETH( 35, 53) = 0.494334E+00
+PKER_SWETH( 35, 54) = 0.484455E+00
+PKER_SWETH( 35, 55) = 0.474750E+00
+PKER_SWETH( 35, 56) = 0.465216E+00
+PKER_SWETH( 35, 57) = 0.455850E+00
+PKER_SWETH( 35, 58) = 0.446648E+00
+PKER_SWETH( 35, 59) = 0.437607E+00
+PKER_SWETH( 35, 60) = 0.428725E+00
+PKER_SWETH( 35, 61) = 0.419997E+00
+PKER_SWETH( 35, 62) = 0.411422E+00
+PKER_SWETH( 35, 63) = 0.402996E+00
+PKER_SWETH( 35, 64) = 0.394717E+00
+PKER_SWETH( 35, 65) = 0.386580E+00
+PKER_SWETH( 35, 66) = 0.378585E+00
+PKER_SWETH( 35, 67) = 0.370727E+00
+PKER_SWETH( 35, 68) = 0.363004E+00
+PKER_SWETH( 35, 69) = 0.355413E+00
+PKER_SWETH( 35, 70) = 0.347952E+00
+PKER_SWETH( 35, 71) = 0.340618E+00
+PKER_SWETH( 35, 72) = 0.333408E+00
+PKER_SWETH( 35, 73) = 0.326320E+00
+PKER_SWETH( 35, 74) = 0.319351E+00
+PKER_SWETH( 35, 75) = 0.312499E+00
+PKER_SWETH( 35, 76) = 0.305761E+00
+PKER_SWETH( 35, 77) = 0.299135E+00
+PKER_SWETH( 35, 78) = 0.292618E+00
+PKER_SWETH( 35, 79) = 0.286208E+00
+PKER_SWETH( 35, 80) = 0.279902E+00
+PKER_SWETH( 36, 1) = 0.135974E+01
+PKER_SWETH( 36, 2) = 0.133452E+01
+PKER_SWETH( 36, 3) = 0.130975E+01
+PKER_SWETH( 36, 4) = 0.128543E+01
+PKER_SWETH( 36, 5) = 0.126154E+01
+PKER_SWETH( 36, 6) = 0.123809E+01
+PKER_SWETH( 36, 7) = 0.121505E+01
+PKER_SWETH( 36, 8) = 0.119242E+01
+PKER_SWETH( 36, 9) = 0.117021E+01
+PKER_SWETH( 36, 10) = 0.114839E+01
+PKER_SWETH( 36, 11) = 0.112696E+01
+PKER_SWETH( 36, 12) = 0.110591E+01
+PKER_SWETH( 36, 13) = 0.108525E+01
+PKER_SWETH( 36, 14) = 0.106495E+01
+PKER_SWETH( 36, 15) = 0.104502E+01
+PKER_SWETH( 36, 16) = 0.102544E+01
+PKER_SWETH( 36, 17) = 0.100622E+01
+PKER_SWETH( 36, 18) = 0.987340E+00
+PKER_SWETH( 36, 19) = 0.968799E+00
+PKER_SWETH( 36, 20) = 0.950591E+00
+PKER_SWETH( 36, 21) = 0.932708E+00
+PKER_SWETH( 36, 22) = 0.915147E+00
+PKER_SWETH( 36, 23) = 0.897899E+00
+PKER_SWETH( 36, 24) = 0.880961E+00
+PKER_SWETH( 36, 25) = 0.864326E+00
+PKER_SWETH( 36, 26) = 0.847989E+00
+PKER_SWETH( 36, 27) = 0.831945E+00
+PKER_SWETH( 36, 28) = 0.816188E+00
+PKER_SWETH( 36, 29) = 0.800713E+00
+PKER_SWETH( 36, 30) = 0.785516E+00
+PKER_SWETH( 36, 31) = 0.770590E+00
+PKER_SWETH( 36, 32) = 0.755931E+00
+PKER_SWETH( 36, 33) = 0.741535E+00
+PKER_SWETH( 36, 34) = 0.727396E+00
+PKER_SWETH( 36, 35) = 0.713509E+00
+PKER_SWETH( 36, 36) = 0.699872E+00
+PKER_SWETH( 36, 37) = 0.686477E+00
+PKER_SWETH( 36, 38) = 0.673323E+00
+PKER_SWETH( 36, 39) = 0.660403E+00
+PKER_SWETH( 36, 40) = 0.647714E+00
+PKER_SWETH( 36, 41) = 0.635251E+00
+PKER_SWETH( 36, 42) = 0.623011E+00
+PKER_SWETH( 36, 43) = 0.610989E+00
+PKER_SWETH( 36, 44) = 0.599182E+00
+PKER_SWETH( 36, 45) = 0.587585E+00
+PKER_SWETH( 36, 46) = 0.576194E+00
+PKER_SWETH( 36, 47) = 0.565007E+00
+PKER_SWETH( 36, 48) = 0.554018E+00
+PKER_SWETH( 36, 49) = 0.543225E+00
+PKER_SWETH( 36, 50) = 0.532623E+00
+PKER_SWETH( 36, 51) = 0.522210E+00
+PKER_SWETH( 36, 52) = 0.511982E+00
+PKER_SWETH( 36, 53) = 0.501935E+00
+PKER_SWETH( 36, 54) = 0.492066E+00
+PKER_SWETH( 36, 55) = 0.482372E+00
+PKER_SWETH( 36, 56) = 0.472849E+00
+PKER_SWETH( 36, 57) = 0.463494E+00
+PKER_SWETH( 36, 58) = 0.454304E+00
+PKER_SWETH( 36, 59) = 0.445277E+00
+PKER_SWETH( 36, 60) = 0.436408E+00
+PKER_SWETH( 36, 61) = 0.427695E+00
+PKER_SWETH( 36, 62) = 0.419135E+00
+PKER_SWETH( 36, 63) = 0.410724E+00
+PKER_SWETH( 36, 64) = 0.402461E+00
+PKER_SWETH( 36, 65) = 0.394343E+00
+PKER_SWETH( 36, 66) = 0.386365E+00
+PKER_SWETH( 36, 67) = 0.378527E+00
+PKER_SWETH( 36, 68) = 0.370824E+00
+PKER_SWETH( 36, 69) = 0.363255E+00
+PKER_SWETH( 36, 70) = 0.355817E+00
+PKER_SWETH( 36, 71) = 0.348506E+00
+PKER_SWETH( 36, 72) = 0.341321E+00
+PKER_SWETH( 36, 73) = 0.334260E+00
+PKER_SWETH( 36, 74) = 0.327318E+00
+PKER_SWETH( 36, 75) = 0.320495E+00
+PKER_SWETH( 36, 76) = 0.313787E+00
+PKER_SWETH( 36, 77) = 0.307192E+00
+PKER_SWETH( 36, 78) = 0.300709E+00
+PKER_SWETH( 36, 79) = 0.294333E+00
+PKER_SWETH( 36, 80) = 0.288064E+00
+PKER_SWETH( 37, 1) = 0.136612E+01
+PKER_SWETH( 37, 2) = 0.134090E+01
+PKER_SWETH( 37, 3) = 0.131613E+01
+PKER_SWETH( 37, 4) = 0.129181E+01
+PKER_SWETH( 37, 5) = 0.126793E+01
+PKER_SWETH( 37, 6) = 0.124447E+01
+PKER_SWETH( 37, 7) = 0.122143E+01
+PKER_SWETH( 37, 8) = 0.119881E+01
+PKER_SWETH( 37, 9) = 0.117659E+01
+PKER_SWETH( 37, 10) = 0.115477E+01
+PKER_SWETH( 37, 11) = 0.113335E+01
+PKER_SWETH( 37, 12) = 0.111230E+01
+PKER_SWETH( 37, 13) = 0.109164E+01
+PKER_SWETH( 37, 14) = 0.107134E+01
+PKER_SWETH( 37, 15) = 0.105141E+01
+PKER_SWETH( 37, 16) = 0.103184E+01
+PKER_SWETH( 37, 17) = 0.101261E+01
+PKER_SWETH( 37, 18) = 0.993736E+00
+PKER_SWETH( 37, 19) = 0.975196E+00
+PKER_SWETH( 37, 20) = 0.956989E+00
+PKER_SWETH( 37, 21) = 0.939108E+00
+PKER_SWETH( 37, 22) = 0.921548E+00
+PKER_SWETH( 37, 23) = 0.904302E+00
+PKER_SWETH( 37, 24) = 0.887365E+00
+PKER_SWETH( 37, 25) = 0.870732E+00
+PKER_SWETH( 37, 26) = 0.854397E+00
+PKER_SWETH( 37, 27) = 0.838355E+00
+PKER_SWETH( 37, 28) = 0.822600E+00
+PKER_SWETH( 37, 29) = 0.807127E+00
+PKER_SWETH( 37, 30) = 0.791932E+00
+PKER_SWETH( 37, 31) = 0.777008E+00
+PKER_SWETH( 37, 32) = 0.762352E+00
+PKER_SWETH( 37, 33) = 0.747958E+00
+PKER_SWETH( 37, 34) = 0.733822E+00
+PKER_SWETH( 37, 35) = 0.719939E+00
+PKER_SWETH( 37, 36) = 0.706304E+00
+PKER_SWETH( 37, 37) = 0.692913E+00
+PKER_SWETH( 37, 38) = 0.679762E+00
+PKER_SWETH( 37, 39) = 0.666846E+00
+PKER_SWETH( 37, 40) = 0.654160E+00
+PKER_SWETH( 37, 41) = 0.641702E+00
+PKER_SWETH( 37, 42) = 0.629466E+00
+PKER_SWETH( 37, 43) = 0.617448E+00
+PKER_SWETH( 37, 44) = 0.605646E+00
+PKER_SWETH( 37, 45) = 0.594053E+00
+PKER_SWETH( 37, 46) = 0.582668E+00
+PKER_SWETH( 37, 47) = 0.571486E+00
+PKER_SWETH( 37, 48) = 0.560503E+00
+PKER_SWETH( 37, 49) = 0.549716E+00
+PKER_SWETH( 37, 50) = 0.539121E+00
+PKER_SWETH( 37, 51) = 0.528714E+00
+PKER_SWETH( 37, 52) = 0.518493E+00
+PKER_SWETH( 37, 53) = 0.508453E+00
+PKER_SWETH( 37, 54) = 0.498592E+00
+PKER_SWETH( 37, 55) = 0.488905E+00
+PKER_SWETH( 37, 56) = 0.479391E+00
+PKER_SWETH( 37, 57) = 0.470045E+00
+PKER_SWETH( 37, 58) = 0.460865E+00
+PKER_SWETH( 37, 59) = 0.451847E+00
+PKER_SWETH( 37, 60) = 0.442989E+00
+PKER_SWETH( 37, 61) = 0.434287E+00
+PKER_SWETH( 37, 62) = 0.425739E+00
+PKER_SWETH( 37, 63) = 0.417341E+00
+PKER_SWETH( 37, 64) = 0.409091E+00
+PKER_SWETH( 37, 65) = 0.400985E+00
+PKER_SWETH( 37, 66) = 0.393022E+00
+PKER_SWETH( 37, 67) = 0.385199E+00
+PKER_SWETH( 37, 68) = 0.377512E+00
+PKER_SWETH( 37, 69) = 0.369960E+00
+PKER_SWETH( 37, 70) = 0.362538E+00
+PKER_SWETH( 37, 71) = 0.355246E+00
+PKER_SWETH( 37, 72) = 0.348081E+00
+PKER_SWETH( 37, 73) = 0.341039E+00
+PKER_SWETH( 37, 74) = 0.334119E+00
+PKER_SWETH( 37, 75) = 0.327318E+00
+PKER_SWETH( 37, 76) = 0.320633E+00
+PKER_SWETH( 37, 77) = 0.314063E+00
+PKER_SWETH( 37, 78) = 0.307605E+00
+PKER_SWETH( 37, 79) = 0.301257E+00
+PKER_SWETH( 37, 80) = 0.295016E+00
+PKER_SWETH( 38, 1) = 0.137160E+01
+PKER_SWETH( 38, 2) = 0.134639E+01
+PKER_SWETH( 38, 3) = 0.132162E+01
+PKER_SWETH( 38, 4) = 0.129730E+01
+PKER_SWETH( 38, 5) = 0.127341E+01
+PKER_SWETH( 38, 6) = 0.124996E+01
+PKER_SWETH( 38, 7) = 0.122692E+01
+PKER_SWETH( 38, 8) = 0.120430E+01
+PKER_SWETH( 38, 9) = 0.118208E+01
+PKER_SWETH( 38, 10) = 0.116026E+01
+PKER_SWETH( 38, 11) = 0.113884E+01
+PKER_SWETH( 38, 12) = 0.111779E+01
+PKER_SWETH( 38, 13) = 0.109713E+01
+PKER_SWETH( 38, 14) = 0.107683E+01
+PKER_SWETH( 38, 15) = 0.105690E+01
+PKER_SWETH( 38, 16) = 0.103733E+01
+PKER_SWETH( 38, 17) = 0.101811E+01
+PKER_SWETH( 38, 18) = 0.999232E+00
+PKER_SWETH( 38, 19) = 0.980694E+00
+PKER_SWETH( 38, 20) = 0.962487E+00
+PKER_SWETH( 38, 21) = 0.944607E+00
+PKER_SWETH( 38, 22) = 0.927048E+00
+PKER_SWETH( 38, 23) = 0.909804E+00
+PKER_SWETH( 38, 24) = 0.892869E+00
+PKER_SWETH( 38, 25) = 0.876237E+00
+PKER_SWETH( 38, 26) = 0.859903E+00
+PKER_SWETH( 38, 27) = 0.843862E+00
+PKER_SWETH( 38, 28) = 0.828109E+00
+PKER_SWETH( 38, 29) = 0.812638E+00
+PKER_SWETH( 38, 30) = 0.797444E+00
+PKER_SWETH( 38, 31) = 0.782523E+00
+PKER_SWETH( 38, 32) = 0.767868E+00
+PKER_SWETH( 38, 33) = 0.753477E+00
+PKER_SWETH( 38, 34) = 0.739343E+00
+PKER_SWETH( 38, 35) = 0.725462E+00
+PKER_SWETH( 38, 36) = 0.711829E+00
+PKER_SWETH( 38, 37) = 0.698441E+00
+PKER_SWETH( 38, 38) = 0.685292E+00
+PKER_SWETH( 38, 39) = 0.672379E+00
+PKER_SWETH( 38, 40) = 0.659696E+00
+PKER_SWETH( 38, 41) = 0.647241E+00
+PKER_SWETH( 38, 42) = 0.635008E+00
+PKER_SWETH( 38, 43) = 0.622994E+00
+PKER_SWETH( 38, 44) = 0.611195E+00
+PKER_SWETH( 38, 45) = 0.599607E+00
+PKER_SWETH( 38, 46) = 0.588225E+00
+PKER_SWETH( 38, 47) = 0.577047E+00
+PKER_SWETH( 38, 48) = 0.566069E+00
+PKER_SWETH( 38, 49) = 0.555286E+00
+PKER_SWETH( 38, 50) = 0.544696E+00
+PKER_SWETH( 38, 51) = 0.534294E+00
+PKER_SWETH( 38, 52) = 0.524078E+00
+PKER_SWETH( 38, 53) = 0.514044E+00
+PKER_SWETH( 38, 54) = 0.504189E+00
+PKER_SWETH( 38, 55) = 0.494509E+00
+PKER_SWETH( 38, 56) = 0.485001E+00
+PKER_SWETH( 38, 57) = 0.475662E+00
+PKER_SWETH( 38, 58) = 0.466490E+00
+PKER_SWETH( 38, 59) = 0.457480E+00
+PKER_SWETH( 38, 60) = 0.448629E+00
+PKER_SWETH( 38, 61) = 0.439936E+00
+PKER_SWETH( 38, 62) = 0.431396E+00
+PKER_SWETH( 38, 63) = 0.423008E+00
+PKER_SWETH( 38, 64) = 0.414768E+00
+PKER_SWETH( 38, 65) = 0.406673E+00
+PKER_SWETH( 38, 66) = 0.398721E+00
+PKER_SWETH( 38, 67) = 0.390909E+00
+PKER_SWETH( 38, 68) = 0.383234E+00
+PKER_SWETH( 38, 69) = 0.375695E+00
+PKER_SWETH( 38, 70) = 0.368287E+00
+PKER_SWETH( 38, 71) = 0.361009E+00
+PKER_SWETH( 38, 72) = 0.353858E+00
+PKER_SWETH( 38, 73) = 0.346832E+00
+PKER_SWETH( 38, 74) = 0.339928E+00
+PKER_SWETH( 38, 75) = 0.333145E+00
+PKER_SWETH( 38, 76) = 0.326478E+00
+PKER_SWETH( 38, 77) = 0.319927E+00
+PKER_SWETH( 38, 78) = 0.313489E+00
+PKER_SWETH( 38, 79) = 0.307162E+00
+PKER_SWETH( 38, 80) = 0.300943E+00
+PKER_SWETH( 39, 1) = 0.137632E+01
+PKER_SWETH( 39, 2) = 0.135110E+01
+PKER_SWETH( 39, 3) = 0.132634E+01
+PKER_SWETH( 39, 4) = 0.130201E+01
+PKER_SWETH( 39, 5) = 0.127813E+01
+PKER_SWETH( 39, 6) = 0.125467E+01
+PKER_SWETH( 39, 7) = 0.123164E+01
+PKER_SWETH( 39, 8) = 0.120902E+01
+PKER_SWETH( 39, 9) = 0.118680E+01
+PKER_SWETH( 39, 10) = 0.116498E+01
+PKER_SWETH( 39, 11) = 0.114356E+01
+PKER_SWETH( 39, 12) = 0.112251E+01
+PKER_SWETH( 39, 13) = 0.110185E+01
+PKER_SWETH( 39, 14) = 0.108156E+01
+PKER_SWETH( 39, 15) = 0.106163E+01
+PKER_SWETH( 39, 16) = 0.104205E+01
+PKER_SWETH( 39, 17) = 0.102283E+01
+PKER_SWETH( 39, 18) = 0.100396E+01
+PKER_SWETH( 39, 19) = 0.985418E+00
+PKER_SWETH( 39, 20) = 0.967213E+00
+PKER_SWETH( 39, 21) = 0.949334E+00
+PKER_SWETH( 39, 22) = 0.931775E+00
+PKER_SWETH( 39, 23) = 0.914532E+00
+PKER_SWETH( 39, 24) = 0.897598E+00
+PKER_SWETH( 39, 25) = 0.880967E+00
+PKER_SWETH( 39, 26) = 0.864635E+00
+PKER_SWETH( 39, 27) = 0.848595E+00
+PKER_SWETH( 39, 28) = 0.832843E+00
+PKER_SWETH( 39, 29) = 0.817373E+00
+PKER_SWETH( 39, 30) = 0.802181E+00
+PKER_SWETH( 39, 31) = 0.787261E+00
+PKER_SWETH( 39, 32) = 0.772608E+00
+PKER_SWETH( 39, 33) = 0.758218E+00
+PKER_SWETH( 39, 34) = 0.744085E+00
+PKER_SWETH( 39, 35) = 0.730206E+00
+PKER_SWETH( 39, 36) = 0.716576E+00
+PKER_SWETH( 39, 37) = 0.703189E+00
+PKER_SWETH( 39, 38) = 0.690042E+00
+PKER_SWETH( 39, 39) = 0.677131E+00
+PKER_SWETH( 39, 40) = 0.664451E+00
+PKER_SWETH( 39, 41) = 0.651998E+00
+PKER_SWETH( 39, 42) = 0.639768E+00
+PKER_SWETH( 39, 43) = 0.627756E+00
+PKER_SWETH( 39, 44) = 0.615960E+00
+PKER_SWETH( 39, 45) = 0.604374E+00
+PKER_SWETH( 39, 46) = 0.592996E+00
+PKER_SWETH( 39, 47) = 0.581821E+00
+PKER_SWETH( 39, 48) = 0.570846E+00
+PKER_SWETH( 39, 49) = 0.560067E+00
+PKER_SWETH( 39, 50) = 0.549481E+00
+PKER_SWETH( 39, 51) = 0.539083E+00
+PKER_SWETH( 39, 52) = 0.528871E+00
+PKER_SWETH( 39, 53) = 0.518842E+00
+PKER_SWETH( 39, 54) = 0.508991E+00
+PKER_SWETH( 39, 55) = 0.499316E+00
+PKER_SWETH( 39, 56) = 0.489813E+00
+PKER_SWETH( 39, 57) = 0.480480E+00
+PKER_SWETH( 39, 58) = 0.471313E+00
+PKER_SWETH( 39, 59) = 0.462309E+00
+PKER_SWETH( 39, 60) = 0.453465E+00
+PKER_SWETH( 39, 61) = 0.444778E+00
+PKER_SWETH( 39, 62) = 0.436245E+00
+PKER_SWETH( 39, 63) = 0.427864E+00
+PKER_SWETH( 39, 64) = 0.419632E+00
+PKER_SWETH( 39, 65) = 0.411545E+00
+PKER_SWETH( 39, 66) = 0.403602E+00
+PKER_SWETH( 39, 67) = 0.395799E+00
+PKER_SWETH( 39, 68) = 0.388133E+00
+PKER_SWETH( 39, 69) = 0.380603E+00
+PKER_SWETH( 39, 70) = 0.373206E+00
+PKER_SWETH( 39, 71) = 0.365939E+00
+PKER_SWETH( 39, 72) = 0.358800E+00
+PKER_SWETH( 39, 73) = 0.351786E+00
+PKER_SWETH( 39, 74) = 0.344895E+00
+PKER_SWETH( 39, 75) = 0.338124E+00
+PKER_SWETH( 39, 76) = 0.331472E+00
+PKER_SWETH( 39, 77) = 0.324936E+00
+PKER_SWETH( 39, 78) = 0.318513E+00
+PKER_SWETH( 39, 79) = 0.312202E+00
+PKER_SWETH( 39, 80) = 0.306000E+00
+PKER_SWETH( 40, 1) = 0.138037E+01
+PKER_SWETH( 40, 2) = 0.135515E+01
+PKER_SWETH( 40, 3) = 0.133039E+01
+PKER_SWETH( 40, 4) = 0.130607E+01
+PKER_SWETH( 40, 5) = 0.128218E+01
+PKER_SWETH( 40, 6) = 0.125873E+01
+PKER_SWETH( 40, 7) = 0.123569E+01
+PKER_SWETH( 40, 8) = 0.121307E+01
+PKER_SWETH( 40, 9) = 0.119086E+01
+PKER_SWETH( 40, 10) = 0.116904E+01
+PKER_SWETH( 40, 11) = 0.114761E+01
+PKER_SWETH( 40, 12) = 0.112657E+01
+PKER_SWETH( 40, 13) = 0.110591E+01
+PKER_SWETH( 40, 14) = 0.108561E+01
+PKER_SWETH( 40, 15) = 0.106568E+01
+PKER_SWETH( 40, 16) = 0.104611E+01
+PKER_SWETH( 40, 17) = 0.102689E+01
+PKER_SWETH( 40, 18) = 0.100802E+01
+PKER_SWETH( 40, 19) = 0.989479E+00
+PKER_SWETH( 40, 20) = 0.971274E+00
+PKER_SWETH( 40, 21) = 0.953396E+00
+PKER_SWETH( 40, 22) = 0.935838E+00
+PKER_SWETH( 40, 23) = 0.918595E+00
+PKER_SWETH( 40, 24) = 0.901662E+00
+PKER_SWETH( 40, 25) = 0.885032E+00
+PKER_SWETH( 40, 26) = 0.868700E+00
+PKER_SWETH( 40, 27) = 0.852662E+00
+PKER_SWETH( 40, 28) = 0.836911E+00
+PKER_SWETH( 40, 29) = 0.821442E+00
+PKER_SWETH( 40, 30) = 0.806251E+00
+PKER_SWETH( 40, 31) = 0.791332E+00
+PKER_SWETH( 40, 32) = 0.776680E+00
+PKER_SWETH( 40, 33) = 0.762291E+00
+PKER_SWETH( 40, 34) = 0.748160E+00
+PKER_SWETH( 40, 35) = 0.734282E+00
+PKER_SWETH( 40, 36) = 0.720653E+00
+PKER_SWETH( 40, 37) = 0.707268E+00
+PKER_SWETH( 40, 38) = 0.694123E+00
+PKER_SWETH( 40, 39) = 0.681213E+00
+PKER_SWETH( 40, 40) = 0.668535E+00
+PKER_SWETH( 40, 41) = 0.656084E+00
+PKER_SWETH( 40, 42) = 0.643856E+00
+PKER_SWETH( 40, 43) = 0.631846E+00
+PKER_SWETH( 40, 44) = 0.620052E+00
+PKER_SWETH( 40, 45) = 0.608469E+00
+PKER_SWETH( 40, 46) = 0.597093E+00
+PKER_SWETH( 40, 47) = 0.585921E+00
+PKER_SWETH( 40, 48) = 0.574948E+00
+PKER_SWETH( 40, 49) = 0.564172E+00
+PKER_SWETH( 40, 50) = 0.553588E+00
+PKER_SWETH( 40, 51) = 0.543194E+00
+PKER_SWETH( 40, 52) = 0.532985E+00
+PKER_SWETH( 40, 53) = 0.522959E+00
+PKER_SWETH( 40, 54) = 0.513112E+00
+PKER_SWETH( 40, 55) = 0.503441E+00
+PKER_SWETH( 40, 56) = 0.493942E+00
+PKER_SWETH( 40, 57) = 0.484613E+00
+PKER_SWETH( 40, 58) = 0.475450E+00
+PKER_SWETH( 40, 59) = 0.466451E+00
+PKER_SWETH( 40, 60) = 0.457611E+00
+PKER_SWETH( 40, 61) = 0.448930E+00
+PKER_SWETH( 40, 62) = 0.440403E+00
+PKER_SWETH( 40, 63) = 0.432027E+00
+PKER_SWETH( 40, 64) = 0.423801E+00
+PKER_SWETH( 40, 65) = 0.415720E+00
+PKER_SWETH( 40, 66) = 0.407783E+00
+PKER_SWETH( 40, 67) = 0.399987E+00
+PKER_SWETH( 40, 68) = 0.392329E+00
+PKER_SWETH( 40, 69) = 0.384807E+00
+PKER_SWETH( 40, 70) = 0.377418E+00
+PKER_SWETH( 40, 71) = 0.370159E+00
+PKER_SWETH( 40, 72) = 0.363029E+00
+PKER_SWETH( 40, 73) = 0.356024E+00
+PKER_SWETH( 40, 74) = 0.349143E+00
+PKER_SWETH( 40, 75) = 0.342383E+00
+PKER_SWETH( 40, 76) = 0.335742E+00
+PKER_SWETH( 40, 77) = 0.329217E+00
+PKER_SWETH( 40, 78) = 0.322806E+00
+PKER_SWETH( 40, 79) = 0.316508E+00
+PKER_SWETH( 40, 80) = 0.310319E+00
END IF
!
END SUBROUTINE LIMA_READ_XKER_SWETH
diff --git a/src/MNH/lima_sedimentation.f90 b/src/MNH/lima_sedimentation.f90
index cd90504a16afa3c292a32916c8014c6c856d3918..23072bb81dab233cfbfdb920e0ee5b995c6a6848 100644
--- a/src/MNH/lima_sedimentation.f90
+++ b/src/MNH/lima_sedimentation.f90
@@ -72,11 +72,12 @@ END MODULE MODI_LIMA_SEDIMENTATION
!* 0. DECLARATIONS
! ------------
!
-USE MODD_CST, ONLY: XRHOLW, XCL, XCI
+USE MODD_CST, ONLY: XRHOLW, XCL, XCI, XPI
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: XCEXVT, XRTMIN, XCTMIN, NSPLITSED, &
XLB, XLBEX, XD, XFSEDR, XFSEDC, &
- XALPHAC, XNUC, XALPHAS, XNUS, LSNOW_T
+ XALPHAC, XNUC, XALPHAS, XNUS, LSNOW_T, &
+ NMOM_S
USE MODD_PARAM_LIMA_COLD, ONLY: XLBEXI, XLBI, XDI, XLBDAS_MAX, XBS, XEXSEDS, &
XLBDAS_MIN, XTRANS_MP_GAMMAS, XFVELOS
@@ -133,10 +134,13 @@ INTEGER , DIMENSION(SIZE(PRHODREF)) :: I1,I2,I3 ! Indexes for PACK replacement
!
REAL :: ZTSPLITG ! Small time step for rain sedimentation
REAL :: ZC ! Cpl or Cpi
+INTEGER :: ZMOMENTS
!
!
!-------------------------------------------------------------------------------
!
+ZMOMENTS=KMOMENTS
+!
! Time splitting
!
ZTSPLITG= PTSTEP / REAL(NSPLITSED(KID))
@@ -153,6 +157,12 @@ END DO
IF (HPHASE=='L') ZC=XCL
IF (HPHASE=='I') ZC=XCI
!
+IF (KID==4 .AND. ZMOMENTS==1) THEN
+ ZMOMENTS=2
+ WHERE(PRS(:,:,:)>0) PCS(:,:,:)=1/(4*XPI*900.) * PRS(:,:,:) * &
+ MAX(0.05E6,-0.15319E6-0.021454E6*ALOG(PRHODREF(:,:,:)*PRS(:,:,:)))**3
+END IF
+!
! ################################
! Compute the sedimentation fluxes
! ################################
@@ -161,7 +171,7 @@ DO JN = 1 , NSPLITSED(KID)
! Computation only where enough ice, snow, graupel or hail
GSEDIM(:,:,:) = .FALSE.
GSEDIM(KIB:KIE,KJB:KJE,KKTB:KKTE) = PRS(KIB:KIE,KJB:KJE,KKTB:KKTE)>XRTMIN(KID)
- IF (KMOMENTS==2) GSEDIM(:,:,:) = GSEDIM(:,:,:) .AND. PCS(:,:,:)>XCTMIN(KID)
+ IF (ZMOMENTS==2) GSEDIM(:,:,:) = GSEDIM(:,:,:) .AND. PCS(:,:,:)>XCTMIN(KID)
ISEDIM = COUNTJV( GSEDIM(:,:,:),I1(:),I2(:),I3(:))
!
IF( ISEDIM >= 1 ) THEN
@@ -182,10 +192,10 @@ DO JN = 1 , NSPLITSED(KID)
ZPABST(JL) = PPABST(I1(JL),I2(JL),I3(JL))
ZT(JL) = PT(I1(JL),I2(JL),I3(JL))
ZRS(JL) = PRS(I1(JL),I2(JL),I3(JL))
- IF (KMOMENTS==2) ZCS(JL) = PCS(I1(JL),I2(JL),I3(JL))
+ IF (ZMOMENTS==2) ZCS(JL) = PCS(I1(JL),I2(JL),I3(JL))
END DO
!
- IF (KID == 5 .AND. LSNOW_T) THEN
+ IF (KID == 5 .AND. NMOM_S.EQ.1 .AND. LSNOW_T) THEN
ZLBDA(:) = 1.E10
WHERE(ZT(:)>263.15 .AND. ZRS(:)>XRTMIN(5))
ZLBDA(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZT(:))),XLBDAS_MIN)
@@ -197,9 +207,11 @@ DO JN = 1 , NSPLITSED(KID)
ZZW(:) = XFSEDR(KID) * ZRHODREF(:)**(1.-XCEXVT)*ZRS(:)* &
(1 + (XFVELOS/ZLBDA(:))**XALPHAS)**(-XNUS-(XD(KID)+XBS)/XALPHAS) * ZLBDA(:)**(-XD(KID))
ELSE
- IF (KMOMENTS==1) ZLBDA(:) = XLB(KID) * ( ZRHODREF(:) * ZRS(:) )**XLBEX(KID)
- IF (KMOMENTS==2) ZLBDA(:) = ( XLB(KID)*ZCS(:) / ZRS(:) )**XLBEX(KID)
+ IF (ZMOMENTS==1) ZLBDA(:) = XLB(KID) * ( ZRHODREF(:) * ZRS(:) )**XLBEX(KID)
+ IF (ZMOMENTS==2) ZLBDA(:) = ( XLB(KID)*ZCS(:) / ZRS(:) )**XLBEX(KID)
ZZY(:) = ZRHODREF(:)**(-XCEXVT) * ZLBDA(:)**(-XD(KID))
+ IF (LSNOW_T .AND. KID==5) &
+ ZZY(:) = ZZY(:) * (1 + (XFVELOS/ZLBDA(:))**XALPHAS)**(-XNUS-(XD(KID)+XBS)/XALPHAS)
ZZW(:) = XFSEDR(KID) * ZRS(:) * ZZY(:) * ZRHODREF(:)
END IF ! Wurtz
!
diff --git a/src/MNH/lima_snow_deposition.f90 b/src/MNH/lima_snow_deposition.f90
index 5a6ec35cae5f6ad959acebd6acd776277c2d067a..3bd8d0141f23ef6c013ba7738e1da65518be4811 100644
--- a/src/MNH/lima_snow_deposition.f90
+++ b/src/MNH/lima_snow_deposition.f90
@@ -10,7 +10,7 @@
INTERFACE
SUBROUTINE LIMA_SNOW_DEPOSITION (LDCOMPUTE, &
PRHODREF, PSSI, PAI, PCJ, PLSFACT, &
- PRST, PLBDS, &
+ PRST, PCST, PLBDS, &
P_RI_CNVI, P_CI_CNVI, &
P_TH_DEPS, P_RS_DEPS )
!
@@ -23,6 +23,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PCJ ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! abs. pressure at time t
!
REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow/aggregate concentration
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! Graupel m.r. at t
!
@@ -38,7 +39,7 @@ END MODULE MODI_LIMA_SNOW_DEPOSITION
! ##########################################################################
SUBROUTINE LIMA_SNOW_DEPOSITION (LDCOMPUTE, &
PRHODREF, PSSI, PAI, PCJ, PLSFACT, &
- PRST, PLBDS, &
+ PRST, PCST, PLBDS, &
P_RI_CNVI, P_CI_CNVI, &
P_TH_DEPS, P_RS_DEPS )
! ##########################################################################
@@ -65,6 +66,7 @@ SUBROUTINE LIMA_SNOW_DEPOSITION (LDCOMPUTE, &
!!
! J. Wurtz 03/2022: new snow characteristics
! B. Vie 03/2022: Add option for 1-moment pristine ice
+! M. Taufour 07/2022: add snow concentration
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -94,6 +96,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PCJ ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! abs. pressure at time t
!
REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow/aggregate m.r. at t
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! Graupel m.r. at t
!
@@ -107,7 +110,6 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RS_DEPS
LOGICAL, DIMENSION(SIZE(PRHODREF)) :: GMICRO ! Computations only where necessary
REAL, DIMENSION(SIZE(PRHODREF)) :: ZZW, ZZW2, ZZX ! Work array
!
-!
!-------------------------------------------------------------------------------
!
P_RI_CNVI(:) = 0.
@@ -124,10 +126,10 @@ IF (NMOM_I.EQ.1) THEN
! Deposition of water vapor on r_s: RVDEPS
!
ZZW(:) = 0.0
- WHERE ( (PRST(:)>XRTMIN(5)) )
- ZZW(:) = PRST(:) * PSSI(:) / PAI(:) * &
- ( X0DEPS*PLBDS(:)**XEX0DEPS + &
- X1DEPS*PLBDS(:)**(XEX1DEPS+XBS)*PCJ(:) * &
+ WHERE ( PRST(:)>XRTMIN(5) )
+ ZZW(:) = PCST(:) * PSSI(:) / PAI(:) * &
+ ( X0DEPS*PLBDS(:)**XEX0DEPS + &
+ X1DEPS*PLBDS(:)**XEX1DEPS *PCJ(:) * &
(1+0.5*(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) )
ZZW(:) = ZZW(:)*(0.5+SIGN(0.5,ZZW(:))) - ABS(ZZW(:))*(0.5-SIGN(0.5,ZZW(:)))
END WHERE
@@ -142,10 +144,10 @@ ELSE
!
ZZW2(:) = 0.0
ZZW(:) = 0.0
- WHERE ( PLBDS(:)<XLBDASCNVI_MAX .AND. (PRST(:)>XRTMIN(5)) &
- .AND. (PSSI(:)<0.0) )
+ WHERE ( PLBDS(:)<XLBDASCNVI_MAX .AND. PRST(:)>XRTMIN(5) .AND. PCST(:)>XCTMIN(5) &
+ .AND. PSSI(:)<0.0 )
ZZW(:) = (PLBDS(:)*XDSCNVI_LIM)**(XALPHAS)
- ZZX(:) = ( -PSSI(:)/PAI(:) ) * (XNS*PRST(:)*PLBDS(:)**XBS) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
+ ZZX(:) = ( -PSSI(:)/PAI(:) ) * PCST(:) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
!
ZZW(:) = ( XR0DEPSI+XR1DEPSI*PCJ(:) )*ZZX(:)
!
@@ -161,16 +163,15 @@ ELSE
!
!
ZZW(:) = 0.0
- WHERE ( (PRST(:)>XRTMIN(5)) )
- ZZW(:) = ( PRST(:)*PSSI(:)/(PAI(:)) ) * &
- ( X0DEPS*PLBDS(:)**XEX0DEPS + &
- ( X1DEPS*PCJ(:)*(PLBDS(:))**(XBS+XEX1DEPS) * &
+ WHERE ( PRST(:)>XRTMIN(5) .AND. PCST(:)>XCTMIN(5) )
+ ZZW(:) = ( PCST(:)*PSSI(:)/PAI(:) ) * &
+ ( X0DEPS*PLBDS(:)**XEX0DEPS + &
+ ( X1DEPS*PCJ(:)*PLBDS(:)**XEX1DEPS * &
(1+0.5*(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS)) )
ZZW(:) = ZZW(:)*(0.5+SIGN(0.5,ZZW(:))) - ABS(ZZW(:))*(0.5-SIGN(0.5,ZZW(:)))
END WHERE
!
P_RS_DEPS(:) = ZZW(:)
-!!$ P_TH_DEPS(:) = P_RS_DEPS(:) * PLSFACT(:)
!
END WHERE
END IF
diff --git a/src/MNH/lima_snow_self_collection.f90 b/src/MNH/lima_snow_self_collection.f90
new file mode 100644
index 0000000000000000000000000000000000000000..ea38870b87d715c9d5d556b1ea1d9353c44bf41e
--- /dev/null
+++ b/src/MNH/lima_snow_self_collection.f90
@@ -0,0 +1,149 @@
+!MNH_LIC Copyright 2018-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
+! #################################
+ MODULE MODI_LIMA_SNOW_SELF_COLLECTION
+! #################################
+!
+INTERFACE
+ SUBROUTINE LIMA_SNOW_SELF_COLLECTION (LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRST, PCST, PLBDS, &
+ P_CS_SSC )
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! Reference Exner function
+REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_SSC
+!
+END SUBROUTINE LIMA_SNOW_SELF_COLLECTION
+END INTERFACE
+END MODULE MODI_LIMA_SNOW_SELF_COLLECTION
+!
+! #############################################################
+ SUBROUTINE LIMA_SNOW_SELF_COLLECTION (LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRST, PCST, PLBDS, &
+ P_CS_SSC )
+! #############################################################
+!
+!! PURPOSE
+!! -------
+!! Compute the self-collection and physical break-up of snow
+!!
+!!
+!! AUTHOR
+!! ------
+!! J.-M. Cohard * Laboratoire d'Aerologie*
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! S. Berthet * Laboratoire d'Aerologie*
+!! B. Vié * CNRM *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 15/03/2018
+!!
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_CST, ONLY : XTT
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT
+USE MODD_PARAM_LIMA_COLD, ONLY : NSCLBDAS, XSCINTP1S, XSCINTP2S, XKER_N_SSCS, XFNSSCS, XCOLEXSS, &
+ XLBNSSCS1, XLBNSSCS2
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! Reference Exner function
+REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_SSC
+!
+!* 0.2 Declarations of local variables :
+!
+REAL, DIMENSION(SIZE(PCST)) :: &
+ ZW1, & ! work arrays
+ ZW2
+LOGICAL, DIMENSION(SIZE(PCST)) :: GSSC
+INTEGER :: IGSSC, JJ
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1,IVEC2 ! Vectors of indices
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1. Snow self-collection and break-up
+! ---------------------------------
+!
+!
+P_CS_SSC(:)=0.
+!
+ZW1(:) =0.
+ZW2(:) =0.
+!
+GSSC(:) = PCST(:)>XCTMIN(5) .AND. PRST(:)>XRTMIN(5)
+IGSSC = COUNT(GSSC(:))
+!
+IF( IGSSC>0 ) THEN
+!
+! 1.3N.0 allocations
+!
+ ALLOCATE(ZVEC1(IGSSC))
+ ALLOCATE(IVEC1(IGSSC))
+!
+! 1.3N.1 select the (ZLBDAS,ZLBDAS) couplet
+!
+ ZVEC1(:) = PACK( PLBDS(:),MASK=GSSC(:) )
+!
+! 1.3N.2 find the next lower indice for the ZLBDAS and for the ZLBDAS
+! in the geometrical set of (Lbda_s,Lbda_s) couplet use to
+! tabulate the SACCS-kernel
+!
+ ZVEC1(1:IGSSC) = MAX( 1.0001, MIN( FLOAT(NSCLBDAS)-0.0001, &
+ XSCINTP1S * LOG( ZVEC1(1:IGSSC) ) + XSCINTP2S ) )
+ IVEC1(1:IGSSC) = INT( ZVEC1(1:IGSSC) )
+ ZVEC1(1:IGSSC) = ZVEC1(1:IGSSC) - FLOAT( IVEC1(1:IGSSC) )
+!
+! 1.3N.3 perform the bilinear interpolation of the normalized
+! SSCS-kernel
+!
+ ALLOCATE(ZVEC3(IGSSC))
+ DO JJ = 1,IGSSC
+ ZVEC3(JJ) = ( XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZW1(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GSSC(:),FIELD=0.0 ) !! NSACCS
+ DEALLOCATE(ZVEC3)
+!
+ WHERE( GSSC(:) )
+ P_CS_SSC(:) = - XFNSSCS * ZW1(:) * EXP( XCOLEXSS*(PT(:)-XTT) ) * PCST(:)**2 &
+ * PRHODREF(:)**(-XCEXVT-1.) * (XLBNSSCS1+XLBNSSCS2) / PLBDS(:)**2
+ END WHERE
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC1)
+END IF
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_SNOW_SELF_COLLECTION
diff --git a/src/MNH/lima_tendencies.f90 b/src/MNH/lima_tendencies.f90
index 938657e146f95a7a64e0b83bcedec5fdd5a5f3f5..d8c8d18d9c1ee8371d6c0ef6274f5af50d85ac3d 100644
--- a/src/MNH/lima_tendencies.f90
+++ b/src/MNH/lima_tendencies.f90
@@ -7,44 +7,46 @@
MODULE MODI_LIMA_TENDENCIES
!###############################
INTERFACE
- SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
- PEXNREF, PRHODREF, PPABST, PTHT, &
- PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
- PCCT, PCRT, PCIT, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- P_CC_SELF, &
- P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
- P_RC_ACCR, P_CC_ACCR, &
- P_CR_SCBU, &
- P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
- P_RI_CNVI, P_CI_CNVI, &
- P_TH_DEPS, P_RS_DEPS, &
- P_TH_DEPI, P_RI_DEPI, &
- P_RI_CNVS, P_CI_CNVS, &
- P_RI_AGGS, P_CI_AGGS, &
- P_TH_DEPG, P_RG_DEPG, &
- P_TH_BERFI, P_RC_BERFI, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC, &
- P_RS_CMEL, &
- P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
- P_RI_CIBU, P_CI_CIBU, &
- P_RI_RDSF, P_CI_RDSF, &
- P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
- P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
- P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
-!!! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-!!! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
- PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH, &
- PEVAP3D, &
- PCF1D, PIF1D, PPF1D )
+ SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
+ PEXNREF, PRHODREF, PPABST, PTHT, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ P_TH_HONC, P_RC_HONC, P_CC_HONC, &
+ P_CC_SELF, &
+ P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
+ P_RC_ACCR, P_CC_ACCR, &
+ P_CR_SCBU, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
+ P_RI_CNVI, P_CI_CNVI, &
+ P_TH_DEPS, P_RS_DEPS, &
+ P_TH_DEPI, P_RI_DEPI, &
+ P_RI_CNVS, P_CI_CNVS, &
+ P_CS_SSC, &
+ P_RI_AGGS, P_CI_AGGS, &
+ P_TH_DEPG, P_RG_DEPG, &
+ P_TH_BERFI, P_RC_BERFI, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC, &
+ P_RS_CMEL, P_CS_CMEL, &
+ P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
+ P_RI_CIBU, P_CI_CIBU, &
+ P_RI_RDSF, P_CI_RDSF, &
+ P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
+ P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
+ P_RI_HMG, P_CI_HMG, P_RG_HMG, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
+ P_TH_DEPH, P_RH_DEPH, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH, &
+ PEVAP3D, &
+ PCF1D, PIF1D, PPF1D )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -64,7 +66,10 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHT ! Mixing ratios (kg/kg)
!
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
REAL, DIMENSION(:), INTENT(IN) :: PCRT !
-REAL, DIMENSION(:), INTENT(IN) :: PCIT ! Number concentrations (/kg)
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
+REAL, DIMENSION(:), INTENT(IN) :: PCHT ! Number concentrations (/kg)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
@@ -97,6 +102,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DEPI ! deposition of vapor on ice (
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVS ! conversion ice -> snow (CNVS) : ri, Ni, rs=-ri
!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_SSC ! self collection of snow (SSC) : Ns
+!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_AGGS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_AGGS ! aggregation of ice on snow (AGGS) : ri, Ni, rs=-ri
!
@@ -110,7 +117,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_RIM
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM ! cloud droplet riming (RIM) : rc, Nc, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_RIM
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM ! cloud droplet riming (RIM) : rc, Nc, rs, Ns, rg, Ng=-Ns, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_HMS
@@ -120,9 +128,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_ACC
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_ACC
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, Ns, rg, Ng=-Ns, th
!
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL ! conversion-melting (CMEL) : rs, rg=-rs
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_CMEL ! conversion-melting (CMEL) : rs, Ns, rg=-rs, Ng=-Ns
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_CFRZ
@@ -144,8 +154,10 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, Nh=-Ng, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_DRYG
@@ -155,7 +167,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, Ns, rg, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_HMG
@@ -163,7 +176,32 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG ! hallett mossop graupel (HMG)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
-REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, Ng, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH ! deposition of vapor on hail (DEPH) : rv=-rh, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH ! wet growth of hail (WETH) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG ! conversion hail -> graupel (COHG) : rg, Ng, rh=-rg; Nh=-Ng
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, Nh, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RV
@@ -174,8 +212,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D
!
@@ -189,44 +230,46 @@ END MODULE MODI_LIMA_TENDENCIES
!#####################################################################
!
!#####################################################################
-SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
- PEXNREF, PRHODREF, PPABST, PTHT, &
- PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
- PCCT, PCRT, PCIT, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- P_CC_SELF, &
- P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
- P_RC_ACCR, P_CC_ACCR, &
- P_CR_SCBU, &
- P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
- P_RI_CNVI, P_CI_CNVI, &
- P_TH_DEPS, P_RS_DEPS, &
- P_TH_DEPI, P_RI_DEPI, &
- P_RI_CNVS, P_CI_CNVS, &
- P_RI_AGGS, P_CI_AGGS, &
- P_TH_DEPG, P_RG_DEPG, &
- P_TH_BERFI, P_RC_BERFI, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC, &
- P_RS_CMEL, &
- P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
- P_RI_CIBU, P_CI_CIBU, &
- P_RI_RDSF, P_CI_RDSF, &
- P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
- P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
- P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
-!!! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-!!! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
- PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH, &
- PEVAP3D, &
- PCF1D, PIF1D, PPF1D )
+SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
+ PEXNREF, PRHODREF, PPABST, PTHT, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ P_TH_HONC, P_RC_HONC, P_CC_HONC, &
+ P_CC_SELF, &
+ P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
+ P_RC_ACCR, P_CC_ACCR, &
+ P_CR_SCBU, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
+ P_RI_CNVI, P_CI_CNVI, &
+ P_TH_DEPS, P_RS_DEPS, &
+ P_TH_DEPI, P_RI_DEPI, &
+ P_RI_CNVS, P_CI_CNVS, &
+ P_CS_SSC, &
+ P_RI_AGGS, P_CI_AGGS, &
+ P_TH_DEPG, P_RG_DEPG, &
+ P_TH_BERFI, P_RC_BERFI, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC, &
+ P_RS_CMEL, P_CS_CMEL, &
+ P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
+ P_RI_CIBU, P_CI_CIBU, &
+ P_RI_RDSF, P_CI_RDSF, &
+ P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
+ P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
+ P_RI_HMG, P_CI_HMG, P_RG_HMG, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
+ P_TH_DEPH, P_RH_DEPH, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH, &
+ PEVAP3D, &
+ PCF1D, PIF1D, PPF1D )
! ######################################################################
!!
!! PURPOSE
@@ -253,11 +296,12 @@ SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE,
USE MODD_CST, ONLY : XP00, XRD, XRV, XMD, XMV, XCPD, XCPV, XCL, XCI, XLVTT, XLSTT, XTT, &
XALPW, XBETAW, XGAMW, XALPI, XBETAI, XGAMI
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XNUS, LCIBU, LRDSF, &
- LCOLD, LNUCL, LSNOW, LHAIL, LWARM, LACTI, LRAIN, LKHKO, LSNOW_T, NMOM_I
-USE MODD_PARAM_LIMA_WARM, ONLY : XLBC, XLBEXC, XLBR, XLBEXR
-USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XLBH, XLBEXH, XLBDAG_MAX
+ LCOLD, LNUCL, LSNOW, LHAIL, LWARM, LACTI, LRAIN, LKHKO, LSNOW_T, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
+USE MODD_PARAM_LIMA_WARM, ONLY : XLBC, XLBEXC, XLBR, XLBEXR, XCCR, XCXR
+USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XCCG, XCXG, XLBH, XLBEXH, XCCH, XCXH, XLBDAG_MAX
USE MODD_PARAM_LIMA_COLD, ONLY : XSCFAC, XLBI, XLBEXI, XLBS, XLBEXS, XLBDAS_MAX, XTRANS_MP_GAMMAS, &
- XFVELOS, XLBDAS_MIN
+ XFVELOS, XLBDAS_MIN, XCCS, XCXS, XBS, XNS
!
USE MODI_LIMA_DROPLETS_HOM_FREEZING
USE MODI_LIMA_DROPLETS_SELF_COLLECTION
@@ -267,6 +311,7 @@ USE MODI_LIMA_DROPS_SELF_COLLECTION
USE MODI_LIMA_RAIN_EVAPORATION
USE MODI_LIMA_ICE_DEPOSITION
USE MODI_LIMA_SNOW_DEPOSITION
+USE MODI_LIMA_SNOW_SELF_COLLECTION
USE MODI_LIMA_ICE_AGGREGATION_SNOW
USE MODI_LIMA_GRAUPEL_DEPOSITION
USE MODI_LIMA_DROPLETS_RIMING_SNOW
@@ -276,6 +321,8 @@ USE MODI_LIMA_RAIN_FREEZING
USE MODI_LIMA_COLLISIONAL_ICE_BREAKUP
USE MODI_LIMA_RAINDROP_SHATTERING_FREEZING
USE MODI_LIMA_GRAUPEL
+USE MODI_LIMA_HAIL_DEPOSITION
+USE MODI_LIMA_HAIL
!
USE MODI_LIMA_BERGERON
!
@@ -300,8 +347,11 @@ REAL, DIMENSION(:), INTENT(IN) :: PRGT !
REAL, DIMENSION(:), INTENT(IN) :: PRHT ! Mixing ratios (kg/kg)
!
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
-REAL, DIMENSION(:), INTENT(IN) :: PCRT !
-REAL, DIMENSION(:), INTENT(IN) :: PCIT ! Number concentrations (/kg)
+REAL, DIMENSION(:), INTENT(INOUT) :: PCRT !
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(INOUT) :: PCST !
+REAL, DIMENSION(:), INTENT(INOUT) :: PCGT !
+REAL, DIMENSION(:), INTENT(INOUT) :: PCHT ! Number concentrations (/kg)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
@@ -334,6 +384,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DEPI ! deposition of vapor on ice (
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVS ! conversion ice -> snow (CNVS) : ri, Ni, rs=-ri
!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_SSC ! self collection of snow (SSC) : Ns
+!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_AGGS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_AGGS ! aggregation of ice on snow (AGGS) : ri, Ni, rs=-ri
!
@@ -347,6 +399,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_RIM
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM ! cloud droplet riming (RIM) : rc, Nc, rs, rg, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMS
@@ -357,9 +410,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_ACC
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_ACC
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, Ns, rg, Ng=-Ns, th
!
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL ! conversion-melting (CMEL) : rs, rg=-rs
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_CMEL ! conversion-melting (CMEL) : rs, Ns, rg=-rs, Ng=-Ns
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_CFRZ
@@ -381,8 +436,10 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, Nh=-Ng, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_DRYG
@@ -392,6 +449,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
@@ -400,7 +458,32 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG ! hallett mossop graupel (HMG)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
-REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, Ng, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH ! deposition of vapor on hail (DEPH) : rv=-rh, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH ! wet growth of hail (WETH) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG ! conversion hail -> graupel (COHG) : rg, Ng, rh=-rg; Nh=-Ng
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, Nh, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RV
@@ -411,8 +494,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D
!
@@ -430,6 +516,7 @@ REAL, DIMENSION(SIZE(PRCT)) :: ZLBDR
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDR3
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDI
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDS
+REAL, DIMENSION(SIZE(PRCT)) :: ZLBDS3
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDG
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDH
@@ -458,6 +545,12 @@ REAL, DIMENSION(SIZE(PRCT)) :: ZCF1D
REAL, DIMENSION(SIZE(PRCT)) :: ZIF1D
REAL, DIMENSION(SIZE(PRCT)) :: ZPF1D
!
+REAL, DIMENSION(SIZE(PRCT)) :: ZRCT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRRT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRIT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRST
+REAL, DIMENSION(SIZE(PRCT)) :: ZRGT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRHT
!-------------------------------------------------------------------------------
! Pre-compute quantities
!
@@ -467,6 +560,39 @@ ZCF1D(:) = MAX(PCF1D(:),0.01)
ZIF1D(:) = MAX(PIF1D(:),0.01)
ZPF1D(:) = MAX(PPF1D(:),0.01)
!
+!
+!
+WHERE (PRCT(:).GE.XRTMIN(2))
+ ZRCT(:)=PRCT(:)
+ELSEWHERE
+ ZRCT(:)=0.
+END WHERE
+WHERE (PRRT(:).GE.XRTMIN(3))
+ ZRRT(:)=PRRT(:)
+ELSEWHERE
+ ZRRT(:)=0.
+END WHERE
+WHERE (PRIT(:).GE.XRTMIN(4))
+ ZRIT(:)=PRIT(:)
+ELSEWHERE
+ ZRIT(:)=0.
+END WHERE
+WHERE (PRST(:).GE.XRTMIN(5))
+ ZRST(:)=PRST(:)
+ELSEWHERE
+ ZRST(:)=0.
+END WHERE
+WHERE (PRGT(:).GE.XRTMIN(6))
+ ZRGT(:)=PRGT(:)
+ELSEWHERE
+ ZRGT(:)=0.
+END WHERE
+WHERE (PRHT(:).GE.XRTMIN(7))
+ ZRHT(:)=PRHT(:)
+ELSEWHERE
+ ZRHT(:)=0.
+END WHERE
+!
! Is it necessary to compute the following quantities
! accounting for subgrig cloud fraction ?
! lambda does not depend on cloud fraction for 2-m species
@@ -481,8 +607,8 @@ WHERE (LDCOMPUTE(:))
!
ZW(:) = PEXNREF(:)*( XCPD &
+XCPV*PRVT(:) &
- +XCL*(PRCT(:)+PRRT(:)) &
- +XCI*(PRIT(:)+PRST(:)+PRGT(:)+PRHT(:)) )
+ +XCL*(ZRCT(:)+ZRRT(:)) &
+ +XCI*(ZRIT(:)+ZRST(:)+ZRGT(:)+ZRHT(:)) )
!
ZLV(:) = XLVTT + (XCPV-XCL)*(ZT(:)-XTT)
ZLVFACT(:) = ZLV(:)/ZW(:) ! L_v/(Pi_ref*C_ph)
@@ -510,47 +636,88 @@ WHERE (LDCOMPUTE(:))
!
END WHERE
!
-!
+! Cloud droplets : same formula for 1 and 2 moments, but using real or fixed Nc value
ZLBDC(:) = 1.E10
ZLBDC3(:) = 1.E30
-WHERE (PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. LDCOMPUTE(:))
- ZLBDC3(:) = XLBC*PCCT(:) / PRCT(:)
+WHERE (ZRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. LDCOMPUTE(:))
+ ZLBDC3(:) = XLBC*PCCT(:) / ZRCT(:)
ZLBDC(:) = ZLBDC3(:)**XLBEXC
END WHERE
+!
+! Rain drops
ZLBDR(:) = 1.E10
ZLBDR3(:) = 1.E30
-WHERE (PRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:))
- ZLBDR3(:) = XLBR*PCRT(:) / PRRT(:)
- ZLBDR(:) = ZLBDR3(:)**XLBEXR
-END WHERE
+IF (NMOM_R.EQ.1) THEN
+ WHERE (ZRRT(:)>XRTMIN(3) .AND. LDCOMPUTE(:) )
+ ZLBDR(:) = XLBR*(PRHODREF(:)*ZRRT(:) )**XLBEXR
+ ZLBDR3(:) = ZLBDR(:)**3.
+ END WHERE
+ PCRT(:) = XCCR * ZLBDR(:)**XCXR / PRHODREF(:)
+ELSE
+ WHERE (ZRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:))
+ ZLBDR3(:) = XLBR*PCRT(:) / ZRRT(:)
+ ZLBDR(:) = ZLBDR3(:)**XLBEXR
+ END WHERE
+END IF
+!
+! Pristine ice : same formula for 1 and 2 moments, using real or diagnosed Ni
ZLBDI(:) = 1.E10
-WHERE (PRIT(:)>XRTMIN(4) .AND. PCIT(:)>XCTMIN(4) .AND. LDCOMPUTE(:))
- ZLBDI(:) = ( XLBI*PCIT(:) / PRIT(:) )**XLBEXI
+WHERE (ZRIT(:)>XRTMIN(4) .AND. PCIT(:)>XCTMIN(4) .AND. LDCOMPUTE(:))
+ ZLBDI(:) = ( XLBI*PCIT(:) / ZRIT(:) )**XLBEXI
END WHERE
+!
+! Snow : additional option for LSNOW_T if NMOM_S=1
ZLBDS(:) = 1.E10
-IF (LSNOW_T) THEN
- WHERE (PRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
- WHERE(ZT(:)>263.15)
- ZLBDS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZT(:))),XLBDAS_MIN)
+IF (NMOM_S.EQ.1) THEN
+ IF (LSNOW_T) THEN
+ WHERE (ZRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
+ WHERE(ZT(:)>263.15)
+ ZLBDS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZT(:))),XLBDAS_MIN)
+ END WHERE
+ WHERE(ZT(:)<=263.15)
+ ZLBDS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZT(:))),XLBDAS_MIN)
+ END WHERE
END WHERE
- WHERE(ZT(:)<=263.15)
- ZLBDS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZT(:))),XLBDAS_MIN)
+ ZLBDS(:) = ZLBDS(:) * XTRANS_MP_GAMMAS
+ PCST(:) = XNS * ZRST(:) * ZLBDS(:)**XBS
+ ELSE
+ WHERE (ZRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
+ ZLBDS(:) = XLBS*( PRHODREF(:)*ZRST(:) )**XLBEXS
END WHERE
- END WHERE
- ZLBDS(:) = ZLBDS(:) * XTRANS_MP_GAMMAS
+ PCST(:) = XCCS * ZLBDS(:)**XCXS / PRHODREF(:)
+ END IF
ELSE
- WHERE (PRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
- ZLBDS(:) = XLBS*( PRHODREF(:)*PRST(:) )**XLBEXS
+ WHERE (ZRST(:)>XRTMIN(5) .AND. PCST(:)>XCTMIN(5) .AND. LDCOMPUTE(:))
+ ZLBDS(:) = (XLBS*PCST(:)/ZRST(:))**XLBEXS
END WHERE
END IF
+ZLBDS3(:) = ZLBDS(:)**3.
+!
+! Graupel
ZLBDG(:) = 1.E10
-WHERE (PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
- ZLBDG(:) = XLBG*( PRHODREF(:)*PRGT(:) )**XLBEXG
-END WHERE
+IF (NMOM_G.EQ.1) THEN
+ WHERE (ZRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
+ ZLBDG(:) = XLBG*( PRHODREF(:)*ZRGT(:) )**XLBEXG
+ END WHERE
+ PCGT(:) = XCCG * ZLBDG(:)**XCXG / PRHODREF(:)
+ELSE
+ WHERE (ZRGT(:)>XRTMIN(6) .AND. PCGT(:)>XCTMIN(6) .AND. LDCOMPUTE(:))
+ ZLBDG(:) = (XLBG*PCGT(:)/ZRGT(:))**XLBEXG
+ END WHERE
+END IF
+!
+! Hail
ZLBDH(:) = 1.E10
-WHERE (PRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) )
- ZLBDH(:) = XLBH*( PRHODREF(:)*PRHT(:) )**XLBEXH
-END WHERE
+IF (NMOM_H.EQ.1) THEN
+ WHERE (ZRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) )
+ ZLBDH(:) = XLBH*( PRHODREF(:)*ZRHT(:) )**XLBEXH
+ PCHT(:) = XCCH * ZLBDH(:)**XCXH / PRHODREF(:)
+ END WHERE
+ELSE
+ WHERE (ZRHT(:)>XRTMIN(7) .AND. PCHT(:)>XCTMIN(7) .AND. LDCOMPUTE(:))
+ ZLBDH(:) = (XLBH*PCHT(:)/ZRHT(:))**XLBEXH
+ END WHERE
+END IF
!
!-------------------------------------------------------------------------------
! Call microphysical processes
@@ -558,12 +725,17 @@ END WHERE
IF (LCOLD .AND. LWARM) THEN
CALL LIMA_DROPLETS_HOM_FREEZING (PTSTEP, LDCOMPUTE, & ! independent from CF,IF,PF
ZT, ZLVFACT, ZLSFACT, &
- PRCT, PCCT, ZLBDC, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- PA_TH, PA_RC, PA_CC, PA_RI, PA_CI )
+ ZRCT, PCCT, ZLBDC, &
+ P_TH_HONC, P_RC_HONC, P_CC_HONC )
+ PA_RC(:) = PA_RC(:) + P_RC_HONC(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_HONC(:)
+ PA_RI(:) = PA_RI(:) - P_RC_HONC(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) - P_CC_HONC(:)
+ P_TH_ACC(:) = - P_RC_HONC(:) * (ZLSFACT(:)-ZLVFACT(:))
+ PA_TH(:) = PA_TH(:) + P_TH_HONC(:)
END IF
!
-IF (LWARM .AND. LRAIN .AND. (.NOT. LKHKO)) THEN
+IF (LWARM .AND. LRAIN .AND. (.NOT. LKHKO) .AND. NMOM_C.GE.2) THEN
CALL LIMA_DROPLETS_SELF_COLLECTION (LDCOMPUTE, & ! depends on CF
PRHODREF, &
PCCT/ZCF1D, ZLBDC3, &
@@ -575,22 +747,22 @@ END IF
IF (LWARM .AND. LRAIN) THEN
CALL LIMA_DROPLETS_AUTOCONVERSION (LDCOMPUTE, & ! depends on CF
PRHODREF, &
- PRCT/ZCF1D, PCCT/ZCF1D, ZLBDC, ZLBDR, &
+ ZRCT/ZCF1D, PCCT/ZCF1D, ZLBDC, ZLBDR, &
P_RC_AUTO, P_CC_AUTO, P_CR_AUTO )
P_RC_AUTO(:) = P_RC_AUTO(:) * ZCF1D(:)
P_CC_AUTO(:) = P_CC_AUTO(:) * ZCF1D(:)
P_CR_AUTO(:) = P_CR_AUTO(:) * ZCF1D(:)
!
PA_RC(:) = PA_RC(:) + P_RC_AUTO(:)
- PA_CC(:) = PA_CC(:) + P_CC_AUTO(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_AUTO(:)
PA_RR(:) = PA_RR(:) - P_RC_AUTO(:)
- PA_CR(:) = PA_CR(:) + P_CR_AUTO(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_AUTO(:)
END IF
!
IF (LWARM .AND. LRAIN) THEN
CALL LIMA_DROPLETS_ACCRETION (LDCOMPUTE, & ! depends on CF, PF
PRHODREF, &
- PRCT/ZCF1D, PRRT/ZPF1D, PCCT/ZCF1D, PCRT/ZPF1D,&
+ ZRCT/ZCF1D, ZRRT/ZPF1D, PCCT/ZCF1D, PCRT/ZPF1D,&
ZLBDC, ZLBDC3, ZLBDR, ZLBDR3, &
P_RC_ACCR, P_CC_ACCR )
!
@@ -598,11 +770,11 @@ IF (LWARM .AND. LRAIN) THEN
P_RC_ACCR(:) = P_RC_ACCR(:) * ZCF1D(:)
!
PA_RC(:) = PA_RC(:) + P_RC_ACCR(:)
- PA_CC(:) = PA_CC(:) + P_CC_ACCR(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_ACCR(:)
PA_RR(:) = PA_RR(:) - P_RC_ACCR(:)
END IF
!
-IF (LWARM .AND. LRAIN .AND. (.NOT. LKHKO)) THEN
+IF (LWARM .AND. LRAIN .AND. (.NOT. LKHKO) .AND. NMOM_R.GE.2) THEN
CALL LIMA_DROPS_SELF_COLLECTION (LDCOMPUTE, & ! depends on PF
PRHODREF, &
PCRT/ZPF1D(:), ZLBDR, ZLBDR3, &
@@ -616,7 +788,7 @@ END IF
IF (LWARM .AND. LRAIN) THEN
CALL LIMA_RAIN_EVAPORATION (PTSTEP, LDCOMPUTE, & ! depends on PF > CF
PRHODREF, ZT, ZLV, ZLVFACT, ZEVSAT, ZRVSAT, &
- PRVT, PRCT/ZPF1D, PRRT/ZPF1D, PCRT/ZPF1D, ZLBDR, &
+ PRVT, ZRCT/ZPF1D, ZRRT/ZPF1D, PCRT/ZPF1D, ZLBDR, &
P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
PEVAP3D )
P_RR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
@@ -627,7 +799,7 @@ IF (LWARM .AND. LRAIN) THEN
PA_TH(:) = PA_TH(:) + P_TH_EVAP(:)
PA_RV(:) = PA_RV(:) - P_RR_EVAP(:)
PA_RR(:) = PA_RR(:) + P_RR_EVAP(:)
- PA_CR(:) = PA_CR(:) + P_CR_EVAP(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_EVAP(:)
END IF
!
IF (LCOLD) THEN
@@ -636,7 +808,7 @@ IF (LCOLD) THEN
!
CALL LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, & ! depends on IF, PF
PRHODREF, ZT, ZSSI, ZAI, ZCJ, ZLSFACT, &
- PRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
+ ZRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
P_TH_DEPI, P_RI_DEPI, &
P_RI_CNVS, P_CI_CNVS )
!
@@ -648,8 +820,9 @@ IF (LCOLD) THEN
PA_TH(:) = PA_TH(:) + P_TH_DEPI(:)
PA_RV(:) = PA_RV(:) - P_RI_DEPI(:)
PA_RI(:) = PA_RI(:) + P_RI_DEPI(:) + P_RI_CNVS(:)
- PA_CI(:) = PA_CI(:) + P_CI_CNVS(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CNVS(:)
PA_RS(:) = PA_RS(:) - P_RI_CNVS(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) - P_CI_CNVS(:)
END IF
!
@@ -659,7 +832,7 @@ IF (LCOLD .AND. LSNOW) THEN
!
CALL LIMA_SNOW_DEPOSITION (LDCOMPUTE, & ! depends on IF, PF
PRHODREF, ZSSI, ZAI, ZCJ, ZLSFACT, &
- PRST/ZPF1D, ZLBDS, &
+ ZRST/ZPF1D, PCST/ZPF1D, ZLBDS, &
P_RI_CNVI, P_CI_CNVI, &
P_TH_DEPS, P_RS_DEPS )
!
@@ -669,13 +842,25 @@ IF (LCOLD .AND. LSNOW) THEN
P_TH_DEPS(:) = P_RS_DEPS(:) * ZLSFACT(:)
!
PA_RI(:) = PA_RI(:) + P_RI_CNVI(:)
- PA_CI(:) = PA_CI(:) + P_CI_CNVI(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CNVI(:)
PA_RS(:) = PA_RS(:) - P_RI_CNVI(:) + P_RS_DEPS(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) - P_CI_CNVI(:)
PA_TH(:) = PA_TH(:) + P_TH_DEPS(:)
PA_RV(:) = PA_RV(:) - P_RS_DEPS(:)
END IF
!
+IF (LSNOW .AND. NMOM_S.GE.2) THEN
+ CALL LIMA_SNOW_SELF_COLLECTION (LDCOMPUTE, & ! depends on PF
+ PRHODREF, &
+ ZRST(:)/ZPF1D(:), PCST/ZPF1D(:), ZLBDS, ZLBDS3, &
+ P_CS_SSC )
+ !
+ P_CS_SSC(:) = P_CS_SSC(:) * ZPF1D(:)
+ !
+ PA_CS(:) = PA_CS(:) + P_CS_SSC(:)
+END IF
+!
! Lambda_s limited for collection processes to prevent too high concentrations
! must be changed or removed if C and x modified
!
@@ -683,22 +868,22 @@ END IF
!
!
IF (LCOLD .AND. LSNOW) THEN
- CALL LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, & ! depends on IF, PF
- ZT, PRHODREF, &
- PRIT/ZIF1D, PRST/ZPF1D, PCIT/ZIF1D, ZLBDI, ZLBDS, &
- P_RI_AGGS, P_CI_AGGS )
+ CALL LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, & ! depends on IF, PF
+ ZT, PRHODREF, &
+ ZRIT/ZIF1D, ZRST/ZPF1D, PCIT/ZIF1D, PCST/ZPF1D, ZLBDI, ZLBDS, &
+ P_RI_AGGS, P_CI_AGGS )
P_CI_AGGS(:) = P_CI_AGGS(:) * ZIF1D(:)
P_RI_AGGS(:) = P_RI_AGGS(:) * ZIF1D(:)
!
PA_RI(:) = PA_RI(:) + P_RI_AGGS(:)
- PA_CI(:) = PA_CI(:) + P_CI_AGGS(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_AGGS(:)
PA_RS(:) = PA_RS(:) - P_RI_AGGS(:)
END IF
!
IF (LWARM .AND. LCOLD) THEN
- CALL LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, & ! depends on PF ?
- PRGT/ZPF1D, ZSSI, ZLBDG, ZAI, ZCJ, ZLSFACT, &
- P_TH_DEPG, P_RG_DEPG )
+ CALL LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, & ! depends on PF ?
+ ZRGT/ZPF1D, PCGT/ZPF1D, ZSSI, ZLBDG, ZAI, ZCJ, ZLSFACT, &
+ P_TH_DEPG, P_RG_DEPG )
P_RG_DEPG(:) = P_RG_DEPG(:) * ZPF1D(:)
P_TH_DEPG(:) = P_RG_DEPG(:) * ZLSFACT(:)
!
@@ -709,7 +894,7 @@ END IF
!
IF (LWARM .AND. LCOLD .AND. NMOM_I.EQ.1) THEN
CALL LIMA_BERGERON (LDCOMPUTE, & ! depends on CF, IF
- PRCT/ZCF1D, PRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
+ ZRCT/ZCF1D, ZRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
ZSSIW, ZAI, ZCJ, ZLVFACT, ZLSFACT, &
P_TH_BERFI, P_RC_BERFI )
P_TH_BERFI(:) = P_TH_BERFI(:) * MIN(ZCF1D,ZIF1D)
@@ -727,12 +912,13 @@ IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
!
CALL LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, & ! depends on CF
PRHODREF, ZT, &
- PRCT/ZCF1D, PCCT/ZCF1D, PRST/ZPF1D, ZLBDC, ZLBDS, ZLVFACT, ZLSFACT, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
+ ZRCT/ZCF1D, PCCT/ZCF1D, ZRST/ZPF1D, PCST/ZPF1D, ZLBDC, ZLBDS, ZLVFACT, ZLSFACT, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
P_RI_HMS, P_CI_HMS, P_RS_HMS )
P_RC_RIM(:) = P_RC_RIM(:) * ZCF1D(:)
P_CC_RIM(:) = P_CC_RIM(:) * ZCF1D(:)
P_RS_RIM(:) = P_RS_RIM(:) * ZCF1D(:)
+ P_CS_RIM(:) = P_CS_RIM(:) * ZCF1D(:)
P_RG_RIM(:) = P_RG_RIM(:) * ZCF1D(:)
P_TH_RIM(:) = - P_RC_RIM(:) * (ZLSFACT(:)-ZLVFACT(:))
P_RI_HMS(:) = P_RI_HMS(:) * ZCF1D(:)
@@ -740,11 +926,13 @@ IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
P_RS_HMS(:) = P_RS_HMS(:) * ZCF1D(:)
!
PA_RC(:) = PA_RC(:) + P_RC_RIM(:)
- PA_CC(:) = PA_CC(:) + P_CC_RIM(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_RIM(:)
PA_RI(:) = PA_RI(:) + P_RI_HMS(:)
- PA_CI(:) = PA_CI(:) + P_CI_HMS(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_HMS(:)
PA_RS(:) = PA_RS(:) + P_RS_RIM(:) + P_RS_HMS(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) + P_CS_RIM(:)
PA_RG(:) = PA_RG(:) + P_RG_RIM(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CS_RIM(:)
PA_TH(:) = PA_TH(:) + P_TH_RIM(:)
END IF
@@ -752,18 +940,21 @@ END IF
IF (LWARM .AND. LRAIN .AND. LCOLD .AND. LSNOW) THEN
CALL LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, & ! depends on PF
PRHODREF, ZT, &
- PRRT/ZPF1D, PCRT/ZPF1D, PRST/ZPF1D, ZLBDR, ZLBDS, ZLVFACT, ZLSFACT, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC )
+ ZRRT/ZPF1D, PCRT/ZPF1D, ZRST/ZPF1D, PCST/ZPF1D, ZLBDR, ZLBDS, ZLVFACT, ZLSFACT, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC )
P_RR_ACC(:) = P_RR_ACC(:) * ZPF1D(:)
P_CR_ACC(:) = P_CR_ACC(:) * ZPF1D(:)
P_RS_ACC(:) = P_RS_ACC(:) * ZPF1D(:)
+ P_CS_ACC(:) = P_CS_ACC(:) * ZPF1D(:)
P_RG_ACC(:) = P_RG_ACC(:) * ZPF1D(:)
P_TH_ACC(:) = - P_RR_ACC(:) * (ZLSFACT(:)-ZLVFACT(:))
!
PA_RR(:) = PA_RR(:) + P_RR_ACC(:)
- PA_CR(:) = PA_CR(:) + P_CR_ACC(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_ACC(:)
PA_RS(:) = PA_RS(:) + P_RS_ACC(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) + P_CS_ACC(:)
PA_RG(:) = PA_RG(:) + P_RG_ACC(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CS_ACC(:)
PA_TH(:) = PA_TH(:) + P_TH_ACC(:)
END IF
@@ -775,19 +966,22 @@ IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
!
CALL LIMA_CONVERSION_MELTING_SNOW (LDCOMPUTE, & ! depends on PF
PRHODREF, PPABST, ZT, ZKA, ZDV, ZCJ, &
- PRVT, PRST/ZPF1D, ZLBDS, &
- P_RS_CMEL )
+ PRVT, ZRST/ZPF1D, PCST/ZPF1D, ZLBDS, &
+ P_RS_CMEL, P_CS_CMEL )
P_RS_CMEL(:) = P_RS_CMEL(:) * ZPF1D(:)
+ P_CS_CMEL(:) = P_CS_CMEL(:) * ZPF1D(:)
!
PA_RS(:) = PA_RS(:) + P_RS_CMEL(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) + P_CS_CMEL(:)
PA_RG(:) = PA_RG(:) - P_RS_CMEL(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CS_CMEL(:)
END IF
!
IF (LWARM .AND. LRAIN .AND. LCOLD ) THEN
CALL LIMA_RAIN_FREEZING (LDCOMPUTE, & ! depends on PF, IF
PRHODREF, ZT, ZLVFACT, ZLSFACT, &
- PRRT/ZPF1D, PCRT/ZPF1D, PRIT/ZIF1D, PCIT/ZIF1D, ZLBDR, &
+ ZRRT/ZPF1D, PCRT/ZPF1D, ZRIT/ZIF1D, PCIT/ZIF1D, ZLBDR, &
P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ )
P_RR_CFRZ(:) = P_RR_CFRZ(:) * ZIF1D(:)
P_CR_CFRZ(:) = P_CR_CFRZ(:) * ZIF1D(:)
@@ -797,10 +991,11 @@ IF (LWARM .AND. LRAIN .AND. LCOLD ) THEN
!
PA_TH(:) = PA_TH(:) + P_TH_CFRZ(:)
PA_RR(:) = PA_RR(:) + P_RR_CFRZ(:)
- PA_CR(:) = PA_CR(:) + P_CR_CFRZ(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_CFRZ(:)
PA_RI(:) = PA_RI(:) + P_RI_CFRZ(:)
- PA_CI(:) = PA_CI(:) + P_CI_CFRZ(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CFRZ(:)
PA_RG(:) = PA_RG(:) - P_RR_CFRZ(:) - P_RI_CFRZ(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CR_CFRZ(:)
END IF
!
@@ -811,14 +1006,14 @@ IF (LWARM .AND. LCOLD .AND. LSNOW .AND. LCIBU) THEN
!
CALL LIMA_COLLISIONAL_ICE_BREAKUP (LDCOMPUTE, & ! depends on PF (IF for fragments size)
PRHODREF, &
- PRIT/ZIF1D, PRST/ZPF1D, PRGT/ZPF1D, PCIT/ZIF1D, &
+ ZRIT/ZIF1D, ZRST/ZPF1D, ZRGT/ZPF1D, PCIT/ZIF1D, PCST/ZPF1D, PCST/ZPF1D, &
ZLBDS, ZLBDG, &
P_RI_CIBU, P_CI_CIBU )
P_RI_CIBU(:) = P_RI_CIBU(:) * ZPF1D(:)
P_CI_CIBU(:) = P_CI_CIBU(:) * ZPF1D(:)
!
PA_RI(:) = PA_RI(:) + P_RI_CIBU(:)
- PA_CI(:) = PA_CI(:) + P_CI_CIBU(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CIBU(:)
PA_RS(:) = PA_RS(:) - P_RI_CIBU(:)
END IF
@@ -830,14 +1025,14 @@ IF (LWARM .AND. LRAIN .AND. LCOLD .AND. LSNOW .AND. LRDSF) THEN
!
CALL LIMA_RAINDROP_SHATTERING_FREEZING (LDCOMPUTE, & ! depends on PF, IF
PRHODREF, &
- PRRT/ZPF1D, PCRT/ZPF1D, PRIT/ZIF1D, PCIT/ZIF1D, PRGT/ZPF1D, &
+ ZRRT/ZPF1D, PCRT/ZPF1D, ZRIT/ZIF1D, PCIT/ZIF1D, ZRGT/ZPF1D, &
ZLBDR, &
P_RI_RDSF, P_CI_RDSF )
P_RI_RDSF(:) = P_RI_RDSF(:) * ZIF1D(:)
P_CI_RDSF(:) = P_CI_RDSF(:) * ZIF1D(:)
!
PA_RI(:) = PA_RI(:) + P_RI_RDSF(:)
- PA_CI(:) = PA_CI(:) + P_CI_RDSF(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_RDSF(:)
PA_RG(:) = PA_RG(:) - P_RI_RDSF(:)
END IF
@@ -852,26 +1047,43 @@ IF (LWARM .AND. LCOLD) THEN
!
CALL LIMA_GRAUPEL (PTSTEP, LDCOMPUTE, & ! depends on PF, CF, IF
PRHODREF, PPABST, ZT, ZKA, ZDV, ZCJ, &
- PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
- PCCT, PCRT, PCIT, &
+ PRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, &
ZLBDC, ZLBDR, ZLBDS, ZLBDG, &
ZLVFACT, ZLSFACT, &
P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH )
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
END IF
!
IF (LWARM .AND. LCOLD .AND. LHAIL) THEN
-! CALL LIMA_HAIL_GROWTH
-
-! CALL LIMA_HAIL_CONVERSION
-
-! CALL LIMA_HAIL_MELTING
+ CALL LIMA_HAIL_DEPOSITION (LDCOMPUTE, PRHODREF, & ! depends on PF ?
+ ZRHT/ZPF1D, PCHT/ZPF1D, ZSSI, ZLBDH, ZAI, ZCJ, ZLSFACT, &
+ P_TH_DEPH, P_RH_DEPH )
+ P_RH_DEPH(:) = P_RH_DEPH(:) * ZPF1D(:)
+ P_TH_DEPH(:) = P_RH_DEPH(:) * ZLSFACT(:)
+ !
+ PA_RV(:) = PA_RV(:) - P_RH_DEPH(:)
+ PA_RH(:) = PA_RH(:) + P_RH_DEPH(:)
+ PA_TH(:) = PA_TH(:) + P_TH_DEPH(:)
+! CALL LIMA_HAIL_GROWTH LIMA_HAIL_CONVERSION LIMA_HAIL_MELTING
+ CALL LIMA_HAIL (PTSTEP, LDCOMPUTE, & ! depends on PF, CF, IF
+ PRHODREF, PPABST, ZT, ZKA, ZDV, ZCJ, &
+ PRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, ZRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ ZLBDC, ZLBDR, ZLBDS, ZLBDG, ZLBDH, &
+ ZLVFACT, ZLSFACT, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
END IF
!
END SUBROUTINE LIMA_TENDENCIES
diff --git a/src/MNH/lima_warm.f90 b/src/MNH/lima_warm.f90
index 14b1a09fc41ca0b6afe5a36bbc3ca9322548d920..97ff7edb8ce5000ddb47d67efbcde89932c74a91 100644
--- a/src/MNH/lima_warm.f90
+++ b/src/MNH/lima_warm.f90
@@ -10,8 +10,8 @@
INTERFACE
SUBROUTINE LIMA_WARM (OACTIT, OSEDC, ORAIN, KSPLITR, PTSTEP, KMI, &
TPFILE, KRR, PZZ, PRHODJ, &
- PRHODREF, PEXNREF, PW_NU, PPABSM, PPABST, &
- PTHM, PRCM, &
+ PRHODREF, PEXNREF, PW_NU, PPABST, &
+ PTHM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRC, PINPRR, PINDEP, PINPRR3D, PEVAP3D )
@@ -42,11 +42,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
@@ -70,8 +68,8 @@ END MODULE MODI_LIMA_WARM
! #####################################################################
SUBROUTINE LIMA_WARM (OACTIT, OSEDC, ORAIN, KSPLITR, PTSTEP, KMI, &
TPFILE, KRR, PZZ, PRHODJ, &
- PRHODREF, PEXNREF, PW_NU, PPABSM, PPABST, &
- PTHM, PRCM, &
+ PRHODREF, PEXNREF, PW_NU, PPABST, &
+ PTHM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRC, PINPRR, PINDEP, PINPRR3D, PEVAP3D )
@@ -183,11 +181,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
@@ -378,7 +374,7 @@ IF ( LACTI .AND. NMOD_CCN > 0 .AND. .NOT. LSPRO ) THEN
CALL LIMA_WARM_NUCL( OACTIT, PTSTEP, KMI, TPFILE, &
PRHODREF, PEXNREF, PPABST, ZT, PTHM, PW_NU, &
- PRCM, PRVT, PRCT, PRRT, &
+ PRVT, PRCT, PRRT, &
PTHS, PRVS, PRCS, PCCS, ZNFS, ZNAS )
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'HENU', pths(:, :, :) * prhodj(:, :, :) )
diff --git a/src/MNH/lima_warm_nucl.f90 b/src/MNH/lima_warm_nucl.f90
index d62e4f790ca42ab792afdcfa66b970171f83b2e8..cf5382b50799966e699e28adabb1054c237fddb6 100644
--- a/src/MNH/lima_warm_nucl.f90
+++ b/src/MNH/lima_warm_nucl.f90
@@ -10,7 +10,7 @@
INTERFACE
SUBROUTINE LIMA_WARM_NUCL( OACTIT, PTSTEP, KMI, TPFILE, &
PRHODREF, PEXNREF, PPABST, PT, PTM, PW_NU, &
- PRCM, PRVT, PRCT, PRRT, &
+ PRVT, PRCT, PRRT, &
PTHS, PRVS, PRCS, PCCS, PNFS, PNAS )
!
USE MODD_IO, ONLY: TFILEDATA
@@ -32,8 +32,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PTM ! Temperature at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
@@ -52,7 +50,7 @@ END MODULE MODI_LIMA_WARM_NUCL
! #######################################################################
SUBROUTINE LIMA_WARM_NUCL( OACTIT, PTSTEP, KMI, TPFILE, &
PRHODREF, PEXNREF, PPABST, PT, PTM, PW_NU, &
- PRCM, PRVT, PRCT, PRRT, &
+ PRVT, PRCT, PRRT, &
PTHS, PRVS, PRCS, PCCS, PNFS, PNAS )
! #######################################################################
!
@@ -143,8 +141,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PTM ! Temperature at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
diff --git a/src/MNH/modd_budget.f90 b/src/MNH/modd_budget.f90
index 7442dfd3e0184598cd4ee7687456a5e31b900e5b..cf07928ba558bf5422b5296976c16968e4e2c189 100644
--- a/src/MNH/modd_budget.f90
+++ b/src/MNH/modd_budget.f90
@@ -60,7 +60,7 @@ implicit none
public
-integer, parameter :: NBULISTMAXLEN = 256
+integer, parameter :: NBULISTMAXLEN = 128
integer, parameter :: NBULISTMAXLINES = 50
integer, parameter :: NBUDGET_RHO = 0 ! Reference number for budget of RhoJ
diff --git a/src/MNH/modd_nsv.f90 b/src/MNH/modd_nsv.f90
index 7a842a5c1cacb3073ca3daa6139f327c1ed1543e..510091af5da0da39aa9b05c67b49019c68a55be7 100644
--- a/src/MNH/modd_nsv.f90
+++ b/src/MNH/modd_nsv.f90
@@ -131,6 +131,9 @@ INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_CCN_FREE_A = 0 ! First Free CCN conc.
INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_CCN_ACTI_A = 0 ! First Acti. CNN conc.
INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_SCAVMASS_A = 0 ! Scavenged mass variable
INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_NI_A = 0 ! First Ni var.
+INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_NS_A = 0 ! First Ns var.
+INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_NG_A = 0 ! First Ng var.
+INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_NH_A = 0 ! First Nh var.
INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_IFN_FREE_A = 0 ! First Free IFN conc.
INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_IFN_NUCL_A = 0 ! First Nucl. IFN conc.
INTEGER,DIMENSION(JPMODELMAX)::NSV_LIMA_IMM_NUCL_A = 0 ! First Nucl. IMM conc.
@@ -234,6 +237,9 @@ INTEGER :: NSV_LIMA_CCN_FREE !
INTEGER :: NSV_LIMA_CCN_ACTI !
INTEGER :: NSV_LIMA_SCAVMASS !
INTEGER :: NSV_LIMA_NI !
+INTEGER :: NSV_LIMA_NS !
+INTEGER :: NSV_LIMA_NG !
+INTEGER :: NSV_LIMA_NH !
INTEGER :: NSV_LIMA_IFN_FREE !
INTEGER :: NSV_LIMA_IFN_NUCL !
INTEGER :: NSV_LIMA_IMM_NUCL !
diff --git a/src/MNH/modd_param_lima.f90 b/src/MNH/modd_param_lima.f90
index cb12356ec2fc80a1ba6268b923f486edc1020b6b..d199c2a666f0e97b165dff5f3dd4e1cf5a40c815 100644
--- a/src/MNH/modd_param_lima.f90
+++ b/src/MNH/modd_param_lima.f90
@@ -61,11 +61,14 @@ LOGICAL, SAVE :: LHAIL ! TRUE to enable hail
LOGICAL, SAVE :: LMEYERS ! TRUE to use Meyers nucleation
LOGICAL, SAVE :: LCIBU ! TRUE to use collisional ice breakup
LOGICAL, SAVE :: LRDSF ! TRUE to use rain drop shattering by freezing
+INTEGER, SAVE :: NMOM_I ! Number of moments for pristine ice
+INTEGER, SAVE :: NMOM_S ! Number of moments for snow
+INTEGER, SAVE :: NMOM_G ! Number of moments for graupel
+INTEGER, SAVE :: NMOM_H ! Number of moments for hail
!
! 1.2 IFN initialisation
!
INTEGER, SAVE :: NMOD_IFN ! Number of IFN modes
-INTEGER, SAVE :: NMOM_I ! Number of moments for pristine ice
REAL, DIMENSION(JPLIMAIFNMAX), SAVE :: XIFN_CONC ! Ref. concentration of IFN(#/L)
LOGICAL, SAVE :: LIFN_HOM ! True for z-homogeneous IFN concentrations
CHARACTER(LEN=8), SAVE :: CIFN_SPECIES ! Internal mixing species definitions
@@ -145,6 +148,10 @@ LOGICAL, SAVE :: LACTTKE ! TRUE to take into account TKE in W for activati
LOGICAL, SAVE :: LADJ ! TRUE for adjustment procedure + Smax (false for diagnostic supersaturation)
LOGICAL, SAVE :: LSPRO ! TRUE for prognostic supersaturation
LOGICAL, SAVE :: LKHKO ! TRUE for Scu simulation (replicates the previous KHKO scheme)
+LOGICAL, SAVE :: LKESSLERAC ! TRUE for Kessler autoconversion (if NMOM_C=1)
+!
+INTEGER, SAVE :: NMOM_C ! Number of moments for cloud droplets
+INTEGER, SAVE :: NMOM_R ! Number of moments for rain drops
!
! 2.2 CCN initialisation
!
diff --git a/src/MNH/modd_param_lima_cold.f90 b/src/MNH/modd_param_lima_cold.f90
index 3ae77bb7637db4a10218305d0eecd76301297067..3801cfcb78da31c9274375af9c3800ace8c5419a 100644
--- a/src/MNH/modd_param_lima_cold.f90
+++ b/src/MNH/modd_param_lima_cold.f90
@@ -20,7 +20,8 @@
!! -------------
!! Original ??/??/13
!! C. Barthe 14/03/2022 add CIBU and RDSF
-! J. Wurtz 03/2022: new snow characteristics
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!!
!-------------------------------------------------------------------------------
USE MODD_PARAMETERS, ONLY: JPSVNAMELGTMAX
@@ -57,8 +58,9 @@ REAL,SAVE :: XLBDAS_MIN, XLBDAS_MAX ! Max values allowed for the shape paramet
REAL,SAVE :: XFVELOS ! Wurtz - snow fall speed parameterizaed after Thompson 2008
REAL,SAVE :: XTRANS_MP_GAMMAS ! Wurtz - change between lambda value for MP and gen. gamma
!
-CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
- :: CLIMA_COLD_NAMES=(/'CICE ','CIFNFREE','CIFNNUCL', &
+CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(8),PARAMETER &
+ :: CLIMA_COLD_NAMES=(/'CICE ','CSNOW ','CGRAUPEL','CHAIL ',&
+ 'CIFNFREE','CIFNNUCL', &
'CCNINIMM','CCCNNUCL'/)
! basenames of the SV articles stored
! in the binary files
@@ -66,8 +68,8 @@ CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
! IN:Ice-nuclei Nucleated (activated IFN by Dep/Cond)
! NI:Nuclei Immersed (activated IFN by Imm)
! HF:Homogeneous Freezing
-CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
- :: CLIMA_COLD_CONC=(/'NI ','NIF','NIN','NNI','NNH'/)!for DIAG
+CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(8),PARAMETER &
+ :: CLIMA_COLD_CONC=(/'NI ','NS ','NG ','NH ','NIF','NIN','NNI','NNH'/)!for DIAG
!
!-------------------------------------------------------------------------------
!
@@ -75,7 +77,8 @@ CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
! ---------------------
!
REAL,SAVE :: XFSEDRI,XFSEDCI, & ! Constants for sedimentation
- XFSEDS, XEXSEDS ! fluxes of ice and snow
+ XFSEDRS,XFSEDCS, & !
+ XFSEDS, XEXSEDS ! fluxes of ice and snow
!
REAL,SAVE :: XNUC_DEP,XEXSI_DEP,XEX_DEP, & ! Constants for heterogeneous
XNUC_CON,XEXTT_CON,XEX_CON, & ! ice nucleation : DEP et CON
@@ -112,12 +115,21 @@ REAL,SAVE :: XCOLEXIS, & ! Constants for snow
XAGGS_RLARGE1,XAGGS_RLARGE2, &
XFIAGGS,XEXIAGGS
!
+REAL,SAVE :: XACCS1, XSPONBUDS1, XSPONBUDS2, & ! Constant for snow
+ XSPONBUDS3, XSPONCOEFS2 ! spontaneous break-up
+!
!??????????????????
REAL,SAVE :: XKER_ZRNIC_A1,XKER_ZRNIC_A2 ! Long-Zrnic Kernels (ini_ice_coma)
!
REAL,SAVE :: XSELFI,XCOLEXII ! Constants for pristine ice
! self-collection (ini_ice_coma)
!
+REAL,DIMENSION(:,:), SAVE, ALLOCATABLE :: XKER_N_SSCS
+REAL,SAVE :: XCOLSS,XCOLEXSS,XFNSSCS, & !
+ XLBNSSCS1,XLBNSSCS2, & ! Constants for snow self collection
+ XSCINTP1S,XSCINTP2S !
+INTEGER,SAVE :: NSCLBDAS !
+
REAL,SAVE :: XAUTO3, XAUTO4, & ! Constants for pristine ice
XLAUTS, XLAUTS_THRESHOLD, & ! autoconversion : AUT
XITAUTS, XITAUTS_THRESHOLD, & ! (ini_ice_com)
diff --git a/src/MNH/modd_param_lima_mixed.f90 b/src/MNH/modd_param_lima_mixed.f90
index 6074d09fbc9df88464f18c6cf44873fa0c239477..6a9c763dc3fef2905f7767731bfb151e6356bfe6 100644
--- a/src/MNH/modd_param_lima_mixed.f90
+++ b/src/MNH/modd_param_lima_mixed.f90
@@ -15,7 +15,8 @@
!! -------------
!! Original ??/??/13
!! C. Barthe 14/03/2022 add CIBU and RDSF
-! J. Wurtz 03/2022: new snow characteristics
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!!
!-------------------------------------------------------------------------------
!
@@ -41,7 +42,7 @@ IMPLICIT NONE
! distribution law
!
REAL,SAVE :: XAG,XBG,XCG,XDG,XCCG,XCXG,XF0G,XF1G,XC1G ! Graupel charact.
-REAL,SAVE :: XLBEXG,XLBG ! Graupel distribution parameters
+REAL,SAVE :: XLBEXG,XLBG,XNG ! Graupel distribution parameters
REAL,SAVE :: XLBDAG_MAX ! Max values allowed for the shape
! parameter of graupeln
!
@@ -90,7 +91,7 @@ REAL, DIMENSION(:), SAVE, ALLOCATABLE &
!* 3. MICROPHYSICAL FACTORS - Graupel
! -------------------------------
!
-REAL,SAVE :: XFSEDG, XEXSEDG ! Sedimentation fluxes of Graupel
+REAL,SAVE :: XFSEDG, XEXSEDG, XFSEDRG, XFSEDCG ! Sedimentation fluxes of Graupel
!
REAL,SAVE :: X0DEPG,X1DEPG,XEX0DEPG,XEX1DEPG ! Deposition on graupel
!
@@ -119,9 +120,15 @@ REAL, DIMENSION(:), SAVE, ALLOCATABLE &
XGAMINC_HMC ! and for the HM process
!
REAL,SAVE :: XFRACCSS, & ! Constants for the accretion
+ XFNRACCSS, & ! Constants for the accretion
XLBRACCS1,XLBRACCS2,XLBRACCS3, & ! raindrops onto the aggregates
+ XLBNRACCS1,XLBNRACCS2,XLBNRACCS3, & ! raindrops onto the aggregates
XFSACCRG, & ! ACC (processes RACCSS and
+ XFNSACCRG, & ! ACC (processes RACCSS and
XLBSACCR1,XLBSACCR2,XLBSACCR3, & ! SACCRG)
+ XLBNSACCR1,XLBNSACCR2,XLBNSACCR3, & ! SACCRG)
+ XSCLBDAS_MIN, & ! Min val. of Lbda_s for ACC
+ XSCLBDAS_MAX, & ! Max val. of Lbda_s for ACC
XACCLBDAS_MIN, & ! Min val. of Lbda_s for ACC
XACCLBDAS_MAX, & ! Max val. of Lbda_s for ACC
XACCLBDAR_MIN, & ! Min val. of Lbda_r for ACC
@@ -137,7 +144,10 @@ INTEGER,SAVE :: NACCLBDAS, & ! Number of Lbda_s values and
REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_RACCSS, & ! Normalized kernel for RACCSS
XKER_RACCS, & ! Normalized kernel for RACCS
- XKER_SACCRG ! Normalized kernel for SACCRG
+ XKER_SACCRG, & ! Normalized kernel for SACCRG
+ XKER_N_RACCSS, & ! Normalized kernel for RACCSS
+ XKER_N_RACCS, & ! Normalized kernel for RACCS
+ XKER_N_SACCRG ! Normalized kernel for SACCRG
REAL,SAVE :: XFSCVMG ! Melting-conversion factor of
! the aggregates
!
@@ -148,10 +158,12 @@ REAL,SAVE :: XCOLIR, & ! Constants for rain contact
REAL,SAVE :: XFCDRYG, & ! Constants for the dry growth
XCOLCG, & ! of the graupeln :
XCOLIG,XCOLEXIG,XFIDRYG, & !
- XCOLSG,XCOLEXSG,XFSDRYG, & ! RCDRYG
+ XCOLSG,XCOLEXSG,XFSDRYG,XFNSDRYG, & ! RCDRYG
XLBSDRYG1,XLBSDRYG2,XLBSDRYG3, & ! RIDRYG
- XFRDRYG, & ! RSDRYG
+ XLBNSDRYG1,XLBNSDRYG2,XLBNSDRYG3, & ! RIDRYG
+ XFRDRYG,XFNRDRYG, & ! RSDRYG
XLBRDRYG1,XLBRDRYG2,XLBRDRYG3, & ! RRDRYG
+ XLBNRDRYG1,XLBNRDRYG2,XLBNRDRYG3, & ! RRDRYG
XDRYLBDAR_MIN, & ! Min val. of Lbda_r for DRY
XDRYLBDAR_MAX, & ! Max val. of Lbda_r for DRY
XDRYLBDAS_MIN, & ! Min val. of Lbda_s for DRY
@@ -169,22 +181,26 @@ INTEGER,SAVE :: NDRYLBDAR, & ! Number of Lbda_r,
! tables
REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_SDRYG, & ! Normalized kernel for SDRYG
- XKER_RDRYG ! Normalized kernel for RDRYG
+ XKER_RDRYG, & ! Normalized kernel for RDRYG
+ XKER_N_SDRYG, & ! Normalized kernel for RDRYG
+ XKER_N_RDRYG ! Normalized kernel for RDRYG
!
!-------------------------------------------------------------------------------
!
!* 4. MICROPHYSICAL FACTORS - Hail
! ----------------------------
!
-REAL,SAVE :: XFSEDH,XEXSEDH ! Constants for sedimentation
+REAL,SAVE :: XFSEDH,XEXSEDH,XFSEDRH,XFSEDCH ! Constants for sedimentation
!
!
REAL,SAVE :: X0DEPH,X1DEPH,XEX0DEPH,XEX1DEPH ! Constants for deposition
!
-REAL,SAVE :: XFWETH,XFSWETH, & ! Constants for the wet growth
+REAL,SAVE :: XFWETH,XFSWETH,XFNSWETH, & ! Constants for the wet growth
XLBSWETH1,XLBSWETH2,XLBSWETH3, & ! of the hailstones : WET
- XFGWETH, & ! processes RSWETH
+ XLBNSWETH1,XLBNSWETH2,XLBNSWETH3, & ! of the hailstones : WET
+ XFGWETH, XFNGWETH, & ! processes RSWETH
XLBGWETH1,XLBGWETH2,XLBGWETH3, & ! RGWETH
+ XLBNGWETH1,XLBNGWETH2,XLBNGWETH3, & ! RGWETH
XWETLBDAS_MIN, & ! Min val. of Lbda_s for WET
XWETLBDAS_MAX, & ! Max val. of Lbda_s for WET
XWETLBDAG_MIN, & ! Min val. of Lbda_g for WET
@@ -202,7 +218,9 @@ INTEGER,SAVE :: NWETLBDAS, & ! Number of Lbda_s,
! tables
REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_SWETH, & ! Normalized kernel for SWETH
- XKER_GWETH ! Normalized kernel for GWETH
+ XKER_GWETH, & ! Normalized kernel for GWETH
+ XKER_N_SWETH, & ! Normalized kernel for GWETH
+ XKER_N_GWETH ! Normalized kernel for GWETH
!
!-------------------------------------------------------------------------------
diff --git a/src/MNH/modd_param_lima_warm.f90 b/src/MNH/modd_param_lima_warm.f90
index 2c182b6e986a346fb9d61594316501cba7577cd9..cf555286d5cf4f3b6a402abb08dd2276d9c5a988 100644
--- a/src/MNH/modd_param_lima_warm.f90
+++ b/src/MNH/modd_param_lima_warm.f90
@@ -29,10 +29,10 @@ IMPLICIT NONE
! ----------------------
!
REAL,SAVE :: XLBC, XLBEXC, & ! shape parameters of the cloud droplets
- XLBR, XLBEXR ! shape parameters of the raindrops
+ XLBR, XLBEXR, XNR ! shape parameters of the raindrops
!
REAL,SAVE :: XAR,XBR,XCR,XDR,XF0R,XF1R, & ! Raindrop charact.
- XCCR, & !For diagnostics
+ XCCR,XCXR, & !For diagnostics
XAC,XBC,XCC,XDC,XF0C,XF2C,XC1C ! Cloud droplet charact.
!
!
@@ -96,7 +96,8 @@ REAL,SAVE :: XAUTO1, XAUTO2, XCAUTR, & ! Constants for cloud droplet
REAL,SAVE :: XACCR1, XACCR2, XACCR3, & ! Constants for the accretion
XACCR4, XACCR5, XACCR6, & ! process
XACCR_CLARGE1, XACCR_CLARGE2, XACCR_RLARGE1, XACCR_RLARGE2, &
- XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2
+ XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2, &
+ XFCACCR, XEXCACCR
!
REAL,SAVE :: XSCBU2, XSCBU3, & ! Constants for the raindrop
XSCBU_EFF1, XSCBU_EFF2, XSCBUEXP1 ! breakup-selfcollection: SCBU
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 1e183f9a4a6ff16e98568d5084adc43b94316561..81c19f7b279dd7dbe9de82360b62771ac6e61f7f 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1894,7 +1894,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
LSUBG_COND,LSIGMAS,CSUBG_AUCV,XTSTEP, &
XZZ, XRHODJ, XRHODREF, XEXNREF, &
ZPABST, XTHT,XRT,XSIGS,VSIGQSAT,XMFCONV,XTHM,XRCM, &
- XPABSM, XWT_ACT_NUC,XDTHRAD, XRTHS, XRRS, &
+ XPABST, XWT_ACT_NUC,XDTHRAD, XRTHS, XRRS, &
XSVT, XRSVS, &
XSRCT, XCLDFR,XICEFR, XCIT, &
LSEDIC,KACTIT, KSEDC, KSEDI, KRAIN, KWARM, KHHONI, &
@@ -1914,7 +1914,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
LSUBG_COND,LSIGMAS,CSUBG_AUCV, &
XTSTEP,XZZ, XRHODJ, XRHODREF, XEXNREF, &
ZPABST, XTHT,XRT,XSIGS,VSIGQSAT,XMFCONV,XTHM,XRCM, &
- XPABSM, XWT_ACT_NUC,XDTHRAD, XRTHS, XRRS, &
+ XPABST, XWT_ACT_NUC,XDTHRAD, XRTHS, XRRS, &
XSVT, XRSVS, &
XSRCT, XCLDFR, XICEFR, XCIT, &
LSEDIC,KACTIT, KSEDC, KSEDI, KRAIN, KWARM, KHHONI, &
diff --git a/src/MNH/modn_param_lima.f90 b/src/MNH/modn_param_lima.f90
index e516ad088c7c2e6af4260abccd5bba28c0abe424..44d46714532cecea5636b296e32983968ea57ab6 100644
--- a/src/MNH/modn_param_lima.f90
+++ b/src/MNH/modn_param_lima.f90
@@ -18,14 +18,15 @@ IMPLICIT NONE
!
!
NAMELIST/NAM_PARAM_LIMA/LCOLD, LNUCL, LSEDI, LSNOW, LHAIL, LHHONI, LMEYERS,&
- NMOD_IFN, NMOM_I, XIFN_CONC, LIFN_HOM, &
+ NMOM_I, NMOM_S, NMOM_G, NMOM_H, &
+ NMOD_IFN, XIFN_CONC, LIFN_HOM, &
CIFN_SPECIES, CINT_MIXING, NMOD_IMM, NIND_SPECIE, &
LSNOW_T, CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, &
XALPHAI, XNUI, XALPHAS, XNUS, XALPHAG, XNUG, &
XFACTNUC_DEP, XFACTNUC_CON, NPHILLIPS, &
LCIBU, XNDEBRIS_CIBU, LRDSF, LMURAKAMI, &
LWARM, LACTI, LRAIN, LSEDC, LACTIT, LBOUND, LSPRO, &
- LADJ, LKHKO, &
+ LADJ, LKHKO, LKESSLERAC, NMOM_C, NMOM_R, &
NMOD_CCN, XCCN_CONC, &
LCCN_HOM, CCCN_MODES, HINI_CCN, HTYPE_CCN, &
XALPHAC, XNUC, XALPHAR, XNUR, &
diff --git a/src/MNH/nrcolss.f90 b/src/MNH/nrcolss.f90
new file mode 100644
index 0000000000000000000000000000000000000000..d21be2bd3b12000a5c5871c47e9ba5faa22d84f5
--- /dev/null
+++ b/src/MNH/nrcolss.f90
@@ -0,0 +1,316 @@
+!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+!--------------- special set of characters for RCS information
+!-----------------------------------------------------------------
+! $Source$ $Revision$
+! MASDEV4_7 init 2006/11/23 10:39:56
+!-----------------------------------------------------------------
+! ###################
+ MODULE MODI_NRCOLSS
+! ###################
+!
+INTERFACE
+!
+ SUBROUTINE NRCOLSS( KND, PALPHAS, PNUS, PALPHAR, PNUR, &
+ PESR, PFALLS, PEXFALLS, PFALLEXPS, PFALLR, PEXFALLR,&
+ PLBDASMAX, PLBDARMAX, PLBDASMIN, PLBDARMIN, &
+ PDINFTY, PNRCOLSS, PAG, PBS, PAS )
+!
+INTEGER, INTENT(IN) :: KND ! Number of discrete size intervals in DS and DR
+!
+REAL, INTENT(IN) :: PALPHAS ! First shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUS ! Second shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PALPHAR ! First shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUR ! Second shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PESR ! Efficiency of aggregates collecting rain
+REAL, INTENT(IN) :: PFALLS ! Fall speed constant of aggregates
+REAL, INTENT(IN) :: PEXFALLS ! Fall speed exponent of aggregates
+REAL, INTENT(IN) :: PFALLEXPS ! Fall speed exponential of aggregates (Thompson 2008)
+REAL, INTENT(IN) :: PFALLR ! Fall speed constant of rain
+REAL, INTENT(IN) :: PEXFALLR ! Fall speed exponent of rain
+REAL, INTENT(IN) :: PLBDASMAX ! Maximun slope of size distribution of aggregates
+REAL, INTENT(IN) :: PLBDARMAX ! Maximun slope of size distribution of rain
+REAL, INTENT(IN) :: PLBDASMIN ! Minimun slope of size distribution of aggregates
+REAL, INTENT(IN) :: PLBDARMIN ! Minimun slope of size distribution of rain
+REAL, INTENT(IN) :: PDINFTY ! Factor to define the largest diameter up to
+ ! which the diameter integration is performed
+REAL, INTENT(IN) :: PAG, PBS, PAS
+!
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PNRCOLSS! Scaled fall speed difference in
+ ! the mass collection kernel as a
+ ! function of LAMBDAX and LAMBDAZ
+!
+ END SUBROUTINE NRCOLSS
+!
+END INTERFACE
+!
+ END MODULE MODI_NRCOLSS
+! ########################################################################
+ SUBROUTINE NRCOLSS( KND, PALPHAS, PNUS, PALPHAR, PNUR, &
+ PESR, PFALLS, PEXFALLS, PFALLEXPS, PFALLR, PEXFALLR,&
+ PLBDASMAX, PLBDARMAX, PLBDASMIN, PLBDARMIN, &
+ PDINFTY, PNRCOLSS, PAG, PBS, PAS )
+! ########################################################################
+!
+!
+!
+!!**** * - Build up a look-up table containing the scaled fall speed
+!! difference between size distributed particles of aggregates and Z
+!!
+!!
+!! PURPOSE
+!! -------
+!! The purpose of this routine is to integrate numerically the scaled fall
+!! speed difference between aggregates and rain for use in collection
+!! kernels FOR CONCENTRATIONS. A first integral of the form
+!!
+!! infty Dz_max
+!! / /
+!! |{| }
+!! |{| E_xz (Dx+Dz)^2 |cxDx^dx-czDz^dz| n(Dz) dDz} n(Dx) dDx
+!! |{| }
+!! / /
+!! 0 Dz_min
+!!
+!! is evaluated and normalised by a second integral of the form
+!!
+!! infty
+!! / /
+!! |{| }
+!! |{| (Dx+Dz)^2 n(Dz) dDz} n(Dx) dDx
+!! |{| }
+!! / /
+!! 0
+!!
+!! The result is stored in a two-dimensional array.
+!!
+!!** METHOD
+!! ------
+!! The free parameters of the size distribution function of aggregates and Z
+!! (slope parameter LAMBDA) are discretized with a geometrical rate in a
+!! specific range
+!! LAMBDA = exp( (Log(LAMBDA_max) - Log(LAMBDA_min))/N_interval )
+!! The two above integrals are performed using the trapezoidal scheme.
+!!
+!! EXTERNAL
+!! --------
+!! MODI_GENERAL_GAMMA: Generalized gamma distribution law
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+!! MODD_CST : XPI,XRHOLW
+!! MODD_RAIN_ICE_DESCR: XAS,XAS,XBS
+!!
+!! REFERENCE
+!! ---------
+!! B.S. Ferrier , 1994 : A Double-Moment Multiple-Phase Four-Class
+!! Bulk Ice Scheme,JAS,51,249-280.
+!!
+!! AUTHOR
+!! ------
+!! J.-P. Pinty * Laboratoire d'Aerologie *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 8/11/95
+!! M. Taufour 03/2022 Adapted from rrcolss for concentration
+!! J. Wurtz 03/2022 New snow characteristics
+!!
+!-------------------------------------------------------------------------------
+!
+!
+!* 0. DECLARATIONS
+! ------------
+!
+!
+USE MODI_GENERAL_GAMMA
+!
+USE MODD_CST
+USE MODD_RAIN_ICE_DESCR
+!
+IMPLICIT NONE
+!
+!
+!* 0.1 Declarations of dummy arguments
+! -------------------------------
+!
+!
+INTEGER, INTENT(IN) :: KND ! Number of discrete size intervals in DS and DR
+!
+REAL, INTENT(IN) :: PALPHAS ! First shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUS ! Second shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PALPHAR ! First shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUR ! Second shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PESR ! Efficiency of aggregates collecting rain
+REAL, INTENT(IN) :: PFALLS ! Fall speed constant of aggregates
+REAL, INTENT(IN) :: PEXFALLS ! Fall speed exponent of aggregates
+REAL, INTENT(IN) :: PFALLEXPS ! Fall speed exponential of aggregates (Thompson 2008)
+REAL, INTENT(IN) :: PFALLR ! Fall speed constant of rain
+REAL, INTENT(IN) :: PEXFALLR ! Fall speed exponent of rain
+REAL, INTENT(IN) :: PLBDASMAX ! Maximun slope of size distribution of aggregates
+REAL, INTENT(IN) :: PLBDARMAX ! Maximun slope of size distribution of rain
+REAL, INTENT(IN) :: PLBDASMIN ! Minimun slope of size distribution of aggregates
+REAL, INTENT(IN) :: PLBDARMIN ! Minimun slope of size distribution of rain
+REAL, INTENT(IN) :: PDINFTY ! Factor to define the largest diameter up to
+ ! which the diameter integration is performed
+REAL, INTENT(IN) :: PAG, PBS, PAS
+!
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PNRCOLSS! Scaled fall speed difference in
+ ! the mass collection kernel as a
+ ! function of LAMBDAX and LAMBDAZ
+!
+!
+!* 0.2 Declarations of local variables
+! -------------------------------
+!
+!
+INTEGER :: JLBDAS ! Slope index of the size distribution of aggregates
+INTEGER :: JLBDAR ! Slope index of the size distribution of rain
+INTEGER :: JDS ! Diameter index of a particle of aggregates
+INTEGER :: JDR ! Diameter index of a particle of rain
+!
+INTEGER :: INR ! Number of diameter step for the partial integration
+!
+!
+REAL :: ZLBDAS ! Current slope parameter LAMBDA of aggregates
+REAL :: ZLBDAR ! Current slope parameter LAMBDA of rain
+REAL :: ZDLBDAS ! Growth rate of the slope parameter LAMBDA of aggregates
+REAL :: ZDLBDAR ! Growth rate of the slope parameter LAMBDA of rain
+REAL :: ZDDS ! Integration step of the diameter of aggregates
+REAL :: ZDDSCALR! Integration step of the diameter of rain (scaling integral)
+REAL :: ZDDCOLLR! Integration step of the diameter of rain (fallspe integral)
+REAL :: ZDS ! Current diameter of the particle aggregates
+REAL :: ZDR ! Current diameter of the rain
+REAL :: ZDRMAX ! Maximal diameter of the raindrops where the integration ends
+REAL :: ZCOLLR ! Single integral of the mass weighted fall speed difference
+ ! over the spectrum of rain
+REAL :: ZCOLLDRMAX ! Maximum ending point for the partial integral
+REAL :: ZCOLLSR ! Double integral of the mass weighted fall speed difference
+ ! over the spectra of aggregates and rain
+REAL :: ZSCALR ! Single integral of the scaling factor over
+ ! the spectrum of rain
+REAL :: ZSCALSR ! Double integral of the scaling factor over
+ ! the spectra of aggregates and rain
+REAL :: ZFUNC ! Ancillary function
+REAL :: ZCST1
+!
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1 COMPUTE THE SCALED VELOCITY DIFFERENCE IN THE MASS
+!* COLLECTION KERNEL,
+! -------------------------------------------------
+!
+!
+!
+!* 1.0 Initialization
+!
+PNRCOLSS(:,:) = 0.0
+ZCST1 = (3.0/XPI)/XRHOLW
+!
+!* 1.1 Compute the growth rate of the slope factors LAMBDA
+!
+ZDLBDAS = EXP( LOG(PLBDASMAX/PLBDASMIN)/REAL(SIZE(PNRCOLSS(:,:),1)-1) )
+ZDLBDAR = EXP( LOG(PLBDARMAX/PLBDARMIN)/REAL(SIZE(PNRCOLSS(:,:),2)-1) )
+!
+!* 1.2 Scan the slope factors LAMBDAX and LAMBDAZ
+!
+DO JLBDAS = 1,SIZE(PNRCOLSS(:,:),1)
+ ZLBDAS = PLBDASMIN * ZDLBDAS ** (JLBDAS-1)
+!
+!* 1.3 Compute the diameter steps
+!
+ ZDDS = PDINFTY / (REAL(KND) * ZLBDAS)
+ DO JLBDAR = 1,SIZE(PNRCOLSS(:,:),2)
+ ZLBDAR = PLBDARMIN * ZDLBDAR ** (JLBDAR-1)
+!
+!* 1.4 Initialize the collection integrals
+!
+ ZSCALSR = 0.0
+ ZCOLLSR = 0.0
+!
+!* 1.5 Compute the diameter steps
+!
+ ZDDSCALR = PDINFTY / (REAL(KND) * ZLBDAR)
+!
+!* 1.6 Scan over the diameters DS and DR
+!
+ DO JDS = 1,KND-1
+ ZDS = ZDDS * REAL(JDS)
+ ZSCALR = 0.0
+ ZCOLLR = 0.0
+ DO JDR = 1,KND-1
+ ZDR = ZDDSCALR * REAL(JDR)
+!
+!* 1.7 Compute the normalization factor by integration over the
+! dimensional spectrum of rain
+!
+ ZSCALR = ZSCALR + (ZDS+ZDR)**2 * GENERAL_GAMMA(PALPHAR,PNUR,ZLBDAR,ZDR)
+ END DO
+!
+!* 1.8 Compute the scaled fall speed difference by partial
+! integration over the dimensional spectrum of rain
+!
+ ZFUNC = PAG - PAS*ZDS**(PBS-3.0) ! approximate limit is Ds=240 microns
+ IF( ZFUNC>0.0 ) THEN
+ ZDRMAX = ZDS*( ZCST1*ZFUNC )**0.3333333
+ ELSE
+ ZDRMAX = PDINFTY / ZLBDAR
+ END IF
+ IF( ZDS>1.0E-4 ) THEN ! allow computation if Ds>100 microns
+ ! corresponding to a maximal density of the aggregates of XRHOLW
+ IF( ZDRMAX >= 0.5*ZDDSCALR ) THEN
+ INR = CEILING( ZDRMAX/ZDDSCALR )
+ ZDDCOLLR = ZDRMAX / REAL(INR)
+ IF (INR>=KND ) THEN
+ INR = KND
+ ZDDCOLLR = ZDDSCALR
+ END IF
+ DO JDR = 1,INR-1
+ ZDR = ZDDCOLLR * REAL(JDR)
+ ZCOLLR = ZCOLLR + (ZDS+ZDR)**2 &
+ * PESR * ABS(PFALLS*ZDS**PEXFALLS * EXP(-(PFALLEXPS*ZDS)**PALPHAS)-PFALLR*ZDR**PEXFALLR) &
+ * GENERAL_GAMMA(PALPHAR,PNUR,ZLBDAR,ZDR)
+ END DO
+ ZCOLLDRMAX = (ZDS+ZDRMAX)**2 &
+ * PESR * ABS(PFALLS*ZDS**PEXFALLS* EXP(-(PFALLEXPS*ZDS)**PALPHAS)-PFALLR*ZDRMAX**PEXFALLR) &
+ * GENERAL_GAMMA(PALPHAR,PNUR,ZLBDAR,ZDRMAX)
+ ZCOLLR = (ZCOLLR + 0.5*ZCOLLDRMAX)*(ZDDCOLLR/ZDDSCALR)
+!
+!* 1.9 Compute the normalization factor by integration over the
+! dimensional spectrum of aggregates
+!
+ ZFUNC = GENERAL_GAMMA(PALPHAS,PNUS,ZLBDAS,ZDS)
+ ZSCALSR = ZSCALSR + ZSCALR * ZFUNC
+!
+!* 1.10 Compute the scaled fall speed difference by integration over
+! the dimensional spectrum of aggregates
+!
+ ZCOLLSR = ZCOLLSR + ZCOLLR * ZFUNC
+ END IF
+!
+! Otherwise ZDRMAX = 0.0 so the density of the graupel cannot be reached
+! and so PRRCOLSS(JLBDAS,JLBDAR) = 0.0 !
+!
+ END IF
+ END DO
+!
+!* 1.11 Scale the fall speed difference
+!
+ IF( ZSCALSR>0.0 ) PNRCOLSS(JLBDAS,JLBDAR) = ZCOLLSR / ZSCALSR
+ END DO
+END DO
+!
+END SUBROUTINE NRCOLSS
diff --git a/src/MNH/nscolrg.f90 b/src/MNH/nscolrg.f90
new file mode 100644
index 0000000000000000000000000000000000000000..790a01f76a32fef7603ff99d7ad1339a657fbb80
--- /dev/null
+++ b/src/MNH/nscolrg.f90
@@ -0,0 +1,317 @@
+!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+!--------------- special set of characters for RCS information
+!-----------------------------------------------------------------
+! $Source$ $Revision$
+! MASDEV4_7 init 2006/11/23 10:43:02
+!-----------------------------------------------------------------
+! ###################
+ MODULE MODI_NSCOLRG
+! ###################
+!
+INTERFACE
+!
+ SUBROUTINE NSCOLRG( KND, PALPHAS, PZNUS, PALPHAR, PNUR, &
+ PESR, PFALLS, PEXFALLS, PFALLEXPS, PFALLR, PEXFALLR,&
+ PLBDASMAX, PLBDARMAX, PLBDASMIN, PLBDARMIN, &
+ PDINFTY, PNSCOLRG,PAG, PBS, PAS )
+!
+INTEGER, INTENT(IN) :: KND ! Number of discrete size intervals in DS and DR
+!
+REAL, INTENT(IN) :: PALPHAS ! First shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PZNUS ! Second shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PALPHAR ! First shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUR ! Second shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PESR ! Efficiency of the aggregates collecting rain
+REAL, INTENT(IN) :: PFALLS ! Fall speed constant of the aggregates
+REAL, INTENT(IN) :: PEXFALLS ! Fall speed exponent of the aggregates
+REAL, INTENT(IN) :: PFALLEXPS ! Fall speed exponential constant of the aggregates
+REAL, INTENT(IN) :: PFALLR ! Fall speed constant of rain
+REAL, INTENT(IN) :: PEXFALLR ! Fall speed exponent of rain
+REAL, INTENT(IN) :: PLBDASMAX ! Maximun slope of size distribution of the aggregates
+REAL, INTENT(IN) :: PLBDARMAX ! Maximun slope of size distribution of rain
+REAL, INTENT(IN) :: PLBDASMIN ! Minimun slope of size distribution of the aggregates
+REAL, INTENT(IN) :: PLBDARMIN ! Minimun slope of size distribution of rain
+REAL, INTENT(IN) :: PDINFTY ! Factor to define the largest diameter up to
+ ! which the diameter integration is performed
+REAL, INTENT(IN) :: PAG, PBS, PAS
+!
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PNSCOLRG! Scaled fall speed difference in
+ ! the mass collection kernel as a
+ ! function of LAMBDAX and LAMBDAZ
+!
+ END SUBROUTINE NSCOLRG
+!
+END INTERFACE
+!
+ END MODULE MODI_NSCOLRG
+! ########################################################################
+ SUBROUTINE NSCOLRG( KND, PALPHAS, PZNUS, PALPHAR, PNUR, &
+ PESR, PFALLS, PEXFALLS, PFALLEXPS, PFALLR, PEXFALLR,&
+ PLBDASMAX, PLBDARMAX, PLBDASMIN, PLBDARMIN, &
+ PDINFTY, PNSCOLRG,PAG, PBS, PAS )
+! ########################################################################
+!
+!
+!
+!!**** * - Build up a look-up table containing the scaled fall speed
+!! difference between size distributed particles of the aggregates and Z
+!!
+!!
+!! PURPOSE
+!! -------
+!! The purpose of this routine is to integrate numerically the scaled fall
+!! speed difference between aggregates and rain for use in collection
+!! kernels. A first integral of the form
+!!
+!! infty Dz_max
+!! / /
+!! |{| }
+!! |{| E_xz (Dx+Dz)^2 |cxDx^dx-czDz^dz| n(Dz) dDz} n(Dx) dDx
+!! |{| }
+!! / /
+!! 0 Dz_min
+!!
+!! is evaluated and normalised by a second integral of the form
+!!
+!! infty
+!! / /
+!! |{| }
+!! |{| (Dx+Dz)^2 n(Dz) dDz} n(Dx) dDx
+!! |{| }
+!! / /
+!! 0
+!!
+!! The result is stored in a two-dimensional array.
+!!
+!!** METHOD
+!! ------
+!! The free parameters of the size distribution function of the aggregates
+!! and Z (slope parameter LAMBDA) are discretized with a geometrical rate
+!! in a specific range
+!! LAMBDA = exp( (Log(LAMBDA_max) - Log(LAMBDA_min))/N_interval )
+!! The two above integrals are performed using the trapezoidal scheme.
+!!
+!! EXTERNAL
+!! --------
+!! MODI_GENERAL_GAMMA: Generalized gamma distribution law
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+!! MODD_CST : XPI,XRHOLW
+!! MODD_RAIN_ICE_DESCR: XAS,XAS,XBS
+!!
+!! REFERENCE
+!! ---------
+!! B.S. Ferrier , 1994 : A Double-Moment Multiple-Phase Four-Class
+!! Bulk Ice Scheme,JAS,51,249-280.
+!!
+!! AUTHOR
+!! ------
+!! J.-P. Pinty * Laboratoire d'Aerologie *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 8/11/95
+!! M. Taufour 03/2022 Adapted from rscolrg for concentration
+!! J. Wurtz 03/2022 New snow characteristics
+!!
+!-------------------------------------------------------------------------------
+!
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODI_GENERAL_GAMMA
+!
+USE MODD_CST
+USE MODD_RAIN_ICE_DESCR
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments
+! -------------------------------
+!
+!
+INTEGER, INTENT(IN) :: KND ! Number of discrete size intervals in DS and DR
+!
+REAL, INTENT(IN) :: PALPHAS ! First shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PZNUS ! Second shape parameter of the aggregates
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PALPHAR ! First shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUR ! Second shape parameter of the rain
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PESR ! Efficiency of the aggregates collecting rain
+REAL, INTENT(IN) :: PFALLS ! Fall speed constant of the aggregates
+REAL, INTENT(IN) :: PEXFALLS ! Fall speed exponent of the aggregates
+REAL, INTENT(IN) :: PFALLEXPS ! Fall speed exponential constant of the aggregates
+REAL, INTENT(IN) :: PFALLR ! Fall speed constant of rain
+REAL, INTENT(IN) :: PEXFALLR ! Fall speed exponent of rain
+REAL, INTENT(IN) :: PLBDASMAX ! Maximun slope of size distribution of the aggregates
+REAL, INTENT(IN) :: PLBDARMAX ! Maximun slope of size distribution of rain
+REAL, INTENT(IN) :: PLBDASMIN ! Minimun slope of size distribution of the aggregates
+REAL, INTENT(IN) :: PLBDARMIN ! Minimun slope of size distribution of rain
+REAL, INTENT(IN) :: PDINFTY ! Factor to define the largest diameter up to
+ ! which the diameter integration is performed
+REAL, INTENT(IN) :: PAG, PBS, PAS
+!
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PNSCOLRG! Scaled fall speed difference in
+ ! the mass collection kernel as a
+ ! function of LAMBDAX and LAMBDAZ
+!
+!
+!* 0.2 Declarations of local variables
+! -------------------------------
+!
+!
+INTEGER :: JLBDAS ! Slope index of the size distribution of the aggregates
+INTEGER :: JLBDAR ! Slope index of the size distribution of rain
+INTEGER :: JDS ! Diameter index of a particle of the aggregates
+INTEGER :: JDR ! Diameter index of a particle of rain
+!
+INTEGER :: INR ! Number of diameter step for the partial integration
+!
+REAL :: ZLBDAS ! Current slope parameter LAMBDA of the aggregates
+REAL :: ZLBDAR ! Current slope parameter LAMBDA of rain
+REAL :: ZDLBDAS ! Growth rate of the slope parameter LAMBDA of the aggregates
+REAL :: ZDLBDAR ! Growth rate of the slope parameter LAMBDA of rain
+REAL :: ZDDS ! Integration step of the diameter of the aggregates
+REAL :: ZDDSCALR! Integration step of the diameter of rain (scaling integral)
+REAL :: ZDDCOLLR! Integration step of the diameter of rain (fallspe integral)
+REAL :: ZDS ! Current diameter of the particle aggregates
+REAL :: ZDR ! Current diameter of the raindrops
+REAL :: ZDRMIN ! Minimal diameter of the raindrops where the integration starts
+REAL :: ZDRMAX ! Maximal diameter of the raindrops where the integration ends
+REAL :: ZCOLLR ! Single integral of the mass weighted fall speed difference
+ ! over the spectrum of rain
+REAL :: ZCOLLDRMIN ! Minimum ending point for the partial integral
+REAL :: ZCOLLSR ! Double integral of the mass weighted fall speed difference
+ ! over the spectra of the aggregates and rain
+REAL :: ZSCALR ! Single integral of the scaling factor over
+ ! the spectrum of rain
+REAL :: ZSCALSR ! Double integral of the scaling factor over
+ ! the spectra of the aggregates and rain
+REAL :: ZFUNC ! Ancillary function
+REAL :: ZCST1
+!
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1 COMPUTE THE SCALED VELOCITY DIFFERENCE IN THE MASS
+!* COLLECTION KERNEL,
+! -------------------------------------------------
+!
+!
+!* 1.0 Initialization
+!
+PNSCOLRG(:,:) = 0.0
+ZCST1 = (3.0/XPI)/XRHOLW
+!
+!* 1.1 Compute the growth rate of the slope factors LAMBDA
+!
+ZDLBDAR = EXP( LOG(PLBDARMAX/PLBDARMIN)/REAL(SIZE(PNSCOLRG(:,:),1)-1) )
+ZDLBDAS = EXP( LOG(PLBDASMAX/PLBDASMIN)/REAL(SIZE(PNSCOLRG(:,:),2)-1) )
+!
+!* 1.2 Scan the slope factors LAMBDAX and LAMBDAZ
+!
+DO JLBDAR = 1,SIZE(PNSCOLRG(:,:),1)
+ ZLBDAR = PLBDARMIN * ZDLBDAR ** (JLBDAR-1)
+ ZDRMAX = PDINFTY / ZLBDAR
+!
+!* 1.3 Compute the diameter steps
+!
+ ZDDSCALR = PDINFTY / (REAL(KND) * ZLBDAR)
+ DO JLBDAS = 1,SIZE(PNSCOLRG(:,:),2)
+ ZLBDAS = PLBDASMIN * ZDLBDAS ** (JLBDAS-1)
+!
+!* 1.4 Initialize the collection integrals
+!
+ ZSCALSR = 0.0
+ ZCOLLSR = 0.0
+!
+!* 1.5 Compute the diameter steps
+!
+ ZDDS = PDINFTY / (REAL(KND) * ZLBDAS)
+!
+!* 1.6 Scan over the diameters DS and DR
+!
+ DO JDS = 1,KND-1
+ ZDS = ZDDS * REAL(JDS)
+ ZSCALR = 0.0
+ ZCOLLR = 0.0
+ DO JDR = 1,KND-1
+ ZDR = ZDDSCALR * REAL(JDR)
+!
+!* 1.7 Compute the normalization factor by integration over the
+! dimensional spectrum of rain
+!
+ ZSCALR = ZSCALR + (ZDS+ZDR)**2 * GENERAL_GAMMA(PALPHAR,PNUR,ZLBDAR,ZDR)
+ END DO
+!
+!* 1.8 Compute the scaled fall speed difference by partial
+! integration over the dimensional spectrum of rain
+!
+ ZFUNC = PAG - PAS*ZDS**(PBS-3.0) ! approximate limit is Ds=240 microns
+ IF( ZFUNC>0.0 ) THEN
+ ZDRMIN = ZDS*( ZCST1*ZFUNC )**0.3333333
+ ELSE
+ ZDRMIN = 0.0
+ END IF
+ IF( ZDS>1.0E-4 ) THEN ! allow computation if Ds>100 microns
+ ! corresponding to a maximal density of the aggregates of XRHOLW
+ IF( (ZDRMAX-ZDRMIN) >= 0.5*ZDDSCALR ) THEN
+ INR = CEILING( (ZDRMAX-ZDRMIN)/ZDDSCALR )
+ ZDDCOLLR = (ZDRMAX-ZDRMIN) / REAL(INR)
+ DO JDR = 1,INR-1
+ ZDR = ZDDCOLLR * REAL(JDR) + ZDRMIN
+ ZCOLLR = ZCOLLR + (ZDS+ZDR)**2 &
+ * GENERAL_GAMMA(PALPHAR,PNUR,ZLBDAR,ZDR) &
+ * PESR * ABS(PFALLS*ZDS**PEXFALLS*EXP(-(ZDS*PFALLEXPS)**PALPHAS)-PFALLR*ZDR**PEXFALLR)
+ END DO
+ IF( ZDRMIN>0.0 ) THEN
+ ZCOLLDRMIN = (ZDS+ZDRMIN)**2 &
+ * GENERAL_GAMMA(PALPHAR,PNUR,ZLBDAR,ZDRMIN) &
+ * PESR * ABS(PFALLS*ZDS**PEXFALLS*EXP(-(ZDS*PFALLEXPS)**PALPHAS)-PFALLR*ZDRMIN**PEXFALLR)
+ ELSE
+ ZCOLLDRMIN = 0.0
+ END IF
+ ZCOLLR = (ZCOLLR + 0.5*ZCOLLDRMIN)*(ZDDCOLLR/ZDDSCALR)
+!
+!* 1.9 Compute the normalization factor by integration over the
+! dimensional spectrum of the aggregates
+!
+ ZFUNC = GENERAL_GAMMA(PALPHAS,PZNUS,ZLBDAS,ZDS) ! MTaufour : !*(ZDS**PEXMASSS)
+ ZSCALSR = ZSCALSR + ZSCALR * ZFUNC
+!
+!* 1.10 Compute the scaled fall speed difference by integration over
+! the dimensional spectrum of the aggregates
+!
+ ZCOLLSR = ZCOLLSR + ZCOLLR * ZFUNC
+!
+! Otherwise ZDRMIN>ZDRMAX so PRRCOLSS(JLBDAS,JLBDAR) = 0.0 !
+!
+ END IF
+!
+! Otherwise ZDRMAX = 0.0 so the density of the graupel cannot be reached
+! and so PRRCOLSS(JLBDAS,JLBDAR) = 0.0 !
+!
+ END IF
+ END DO
+!
+!* 1.10 Scale the fall speed difference
+!
+ IF( ZSCALSR>0.0 ) PNSCOLRG(JLBDAR,JLBDAS) = ZCOLLSR / ZSCALSR
+ END DO
+END DO
+!
+END SUBROUTINE NSCOLRG
diff --git a/src/MNH/nzcolx.f90 b/src/MNH/nzcolx.f90
new file mode 100644
index 0000000000000000000000000000000000000000..e4493c2e60f617e81998e2466d534e887891feaf
--- /dev/null
+++ b/src/MNH/nzcolx.f90
@@ -0,0 +1,278 @@
+!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+!--------------- special set of characters for RCS information
+!-----------------------------------------------------------------
+! $Source$ $Revision$
+! MASDEV4_7 init 2006/05/18 13:07:25
+!-----------------------------------------------------------------
+! ##################
+ MODULE MODI_NZCOLX
+! ##################
+!
+INTERFACE
+!
+ SUBROUTINE NZCOLX( KND, PALPHAX, PNUX, PALPHAZ, PNUZ, &
+ PEXZ, PFALLX, PEXFALLX, PFALLEXPX, &
+ PFALLZ, PEXFALLZ, PFALLEXPZ, &
+ PLBDAXMAX, PLBDAZMAX, PLBDAXMIN, PLBDAZMIN, &
+ PDINFTY, PNZCOLX )
+!
+INTEGER, INTENT(IN) :: KND ! Number of discrete size intervals in DX and DZ
+!
+!
+REAL, INTENT(IN) :: PALPHAX ! First shape parameter of the specy X
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUX ! Second shape parameter of the specy X
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PALPHAZ ! First shape parameter of the specy Z
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUZ ! Second shape parameter of the specy Z
+REAL, INTENT(IN) :: PEXZ ! Efficiency of specy X collecting specy Z
+REAL, INTENT(IN) :: PFALLX ! Fall speed constant of specy X
+REAL, INTENT(IN) :: PEXFALLX ! Fall speed exponent of specy X
+REAL, INTENT(IN) :: PFALLEXPX ! Fall speed exponential constant of specy X
+REAL, INTENT(IN) :: PFALLZ ! Fall speed constant of specy Z
+REAL, INTENT(IN) :: PEXFALLZ ! Fall speed exponent of specy Z
+REAL, INTENT(IN) :: PFALLEXPZ ! Fall speed exponential constant of specy Z
+REAL, INTENT(IN) :: PLBDAXMAX ! Maximun slope of size distribution of specy X
+REAL, INTENT(IN) :: PLBDAZMAX ! Maximun slope of size distribution of specy Z
+REAL, INTENT(IN) :: PLBDAXMIN ! Minimun slope of size distribution of specy X
+REAL, INTENT(IN) :: PLBDAZMIN ! Minimun slope of size distribution of specy Z
+REAL, INTENT(IN) :: PDINFTY ! Factor to define the largest diameter up to
+ ! which the diameter integration is performed
+!
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PNZCOLX ! Scaled fall speed difference in
+ ! the mass collection kernel as a
+ ! function of LAMBDAX and LAMBDAZ
+!
+ END SUBROUTINE NZCOLX
+!
+END INTERFACE
+!
+ END MODULE MODI_NZCOLX
+! ################################################################
+ SUBROUTINE NZCOLX( KND, PALPHAX, PNUX, PALPHAZ, PNUZ, &
+ PEXZ, PFALLX, PEXFALLX, PFALLEXPX, &
+ PFALLZ, PEXFALLZ, PFALLEXPZ, &
+ PLBDAXMAX, PLBDAZMAX, PLBDAXMIN, PLBDAZMIN, &
+ PDINFTY, PNZCOLX )
+! ################################################################
+!
+!
+!
+!!**** * - Build up a look-up table containing the scaled fall speed
+!! difference between size distributed particles of specy X and Z
+!!
+!!
+!! PURPOSE
+!! -------
+!! The purpose of this routine is to integrate numerically the scaled fall
+!! speed difference between specy X and specy Z for use in collection
+!! kernels. A first integral of the form
+!!
+!! infty
+!! / /
+!! |{| }
+!! |{| E_xz (Dx+Dz)^2 |cxDx^dx-czDz^dz| g(Dz) dDz} g(Dx) dDx
+!! |{| }
+!! / /
+!! 0
+!!
+!! is evaluated and normalised by a second integral of the form
+!!
+!! infty
+!! / /
+!! |{| }
+!! |{| (Dx+Dz)^2 g(Dz) dDz} g(Dx) dDx
+!! |{| }
+!! / /
+!! 0
+!!
+!! where E_xz is a collection efficiency, g(D) is the generalized Gamma
+!! distribution law. The 'infty' diameter is defined according to the
+!! current value of the Lbda that is D_x=PDINFTY/Lbda_x or
+!! D_z=PINFTY/Lbda_z.
+!! The result is stored in a two-dimensional array.
+!!
+!!** METHOD
+!! ------
+!! The free parameters of the size distribution function of specy X and Z
+!! (slope parameter LAMBDA) are discretized with a geometrical rate in a
+!! specific range
+!! LAMBDA = exp( (Log(LAMBDA_max) - Log(LAMBDA_min))/N_interval )
+!! The two above integrals are performed using the trapezoidal scheme and
+!! the [0,infty] interval is discretized over KND values of D_x or D_z.
+!!
+!! EXTERNAL
+!! --------
+!! MODI_GENERAL_GAMMA: Generalized gamma distribution law
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+!! None
+!!
+!! REFERENCE
+!! ---------
+!! B.S. Ferrier , 1994 : A Double-Moment Multiple-Phase Four-Class
+!! Bulk Ice Scheme,JAS,51,249-280.
+!!
+!! AUTHOR
+!! ------
+!! J.-P. Pinty * Laboratoire d'Aerologie *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 8/11/95
+!! M. Taufour 03/2022: adapted from rzcolx for concentration
+!! J. Wurtz 03/2022: new snow characteristics
+!!
+!-------------------------------------------------------------------------------
+!
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODI_GENERAL_GAMMA
+!
+IMPLICIT NONE
+!
+!
+!* 0.1 Declarations of dummy arguments
+! -------------------------------
+!
+!
+INTEGER, INTENT(IN) :: KND ! Number of discrete size intervals in DX and DZ
+!
+!
+REAL, INTENT(IN) :: PALPHAX ! First shape parameter of the specy X
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUX ! Second shape parameter of the specy X
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PALPHAZ ! First shape parameter of the specy Z
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PNUZ ! Second shape parameter of the specy Z
+ ! size distribution (generalized gamma law)
+REAL, INTENT(IN) :: PEXZ ! Efficiency of specy X collecting specy Z
+REAL, INTENT(IN) :: PFALLX ! Fall speed constant of specy X
+REAL, INTENT(IN) :: PEXFALLX ! Fall speed exponent of specy X
+REAL, INTENT(IN) :: PFALLEXPX ! Fall speed exponential constant of specy X
+REAL, INTENT(IN) :: PFALLZ ! Fall speed constant of specy Z
+REAL, INTENT(IN) :: PEXFALLZ ! Fall speed exponent of specy Z
+REAL, INTENT(IN) :: PFALLEXPZ ! Fall speed exponential constant of specy Z
+REAL, INTENT(IN) :: PLBDAXMAX ! Maximun slope of size distribution of specy X
+REAL, INTENT(IN) :: PLBDAZMAX ! Maximun slope of size distribution of specy Z
+REAL, INTENT(IN) :: PLBDAXMIN ! Minimun slope of size distribution of specy X
+REAL, INTENT(IN) :: PLBDAZMIN ! Minimun slope of size distribution of specy Z
+REAL, INTENT(IN) :: PDINFTY ! Factor to define the largest diameter up to
+ ! which the diameter integration is performed
+!
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PNZCOLX ! Scaled fall speed difference in
+ ! the mass collection kernel as a
+ ! function of LAMBDAX and LAMBDAZ
+!
+!
+!* 0.2 Declarations of local variables
+! -------------------------------
+!
+!
+INTEGER :: JLBDAX ! Slope index of the size distribution of specy X
+INTEGER :: JLBDAZ ! Slope index of the size distribution of specy Z
+INTEGER :: JDX ! Diameter index of a particle of specy X
+INTEGER :: JDZ ! Diameter index of a particle of specy Z
+!
+!
+REAL :: ZLBDAX ! Current slope parameter LAMBDA of specy X
+REAL :: ZLBDAZ ! Current slope parameter LAMBDA of specy Z
+REAL :: ZDLBDAX ! Growth rate of the slope parameter LAMBDA of specy X
+REAL :: ZDLBDAZ ! Growth rate of the slope parameter LAMBDA of specy Z
+REAL :: ZDDX ! Integration step of the diameter of specy X
+REAL :: ZDDZ ! Integration step of the diameter of specy Z
+REAL :: ZDX ! Current diameter of the particle specy X
+REAL :: ZDZ ! Current diameter of the particle specy Z
+REAL :: ZCOLLZ ! Single integral of the mass weighted fall speed difference
+ ! over the spectrum of specy Z
+REAL :: ZCOLLXZ ! Double integral of the mass weighted fall speed difference
+ ! over the spectra of specy X and specy Z
+REAL :: ZSCALZ ! Single integral of the scaling factor over
+ ! the spectrum of specy Z
+REAL :: ZSCALXZ ! Double integral of the scaling factor over
+ ! the spectra of specy X and specy Z
+REAL :: ZFUNC ! Ancillary function
+!
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1 COMPUTE THE SCALED VELOCITZ DIFFERENCE IN THE MASS
+!* COLLECTION KERNEL,
+! -------------------------------------------------
+!
+!
+!
+!* 1.1 Compute the growth rate of the slope factors LAMBDA
+!
+ZDLBDAX = EXP( LOG(PLBDAXMAX/PLBDAXMIN)/REAL(SIZE(PNZCOLX(:,:),1)-1) )
+ZDLBDAZ = EXP( LOG(PLBDAZMAX/PLBDAZMIN)/REAL(SIZE(PNZCOLX(:,:),2)-1) )
+!
+!* 1.2 Scan the slope factors LAMBDAX and LAMBDAZ
+!
+DO JLBDAX = 1,SIZE(PNZCOLX(:,:),1)
+ ZLBDAX = PLBDAXMIN * ZDLBDAX ** (JLBDAX-1)
+ DO JLBDAZ = 1,SIZE(PNZCOLX(:,:),2)
+ ZLBDAZ = PLBDAZMIN * ZDLBDAZ ** (JLBDAZ-1)
+!
+!* 1.3 Initialize the collection integrals
+!
+ ZSCALXZ = 0.0
+ ZCOLLXZ = 0.0
+!
+!* 1.4 Compute the diameter steps
+!
+ ZDDX = PDINFTY / (REAL(KND) * ZLBDAX)
+ ZDDZ = PDINFTY / (REAL(KND) * ZLBDAZ)
+!
+!* 1.5 Scan over the diameters DX and DZ
+!
+ DO JDX = 1,KND-1
+ ZDX = ZDDX * REAL(JDX)
+!
+ ZSCALZ = 0.0
+ ZCOLLZ = 0.0
+ DO JDZ = 1,KND-1
+ ZDZ = ZDDZ * REAL(JDZ)
+!
+!* 1.6 Compute the normalization factor by integration over the
+! dimensional spectrum of specy Z
+!
+ ZFUNC = (ZDX+ZDZ)**2 * GENERAL_GAMMA(PALPHAZ,PNUZ,ZLBDAZ,ZDZ)
+ ZSCALZ = ZSCALZ + ZFUNC
+!
+!* 1.7 Compute the scaled fall speed difference by integration over
+! the dimensional spectrum of specy Z
+!
+ ZCOLLZ = ZCOLLZ + ZFUNC * PEXZ * ABS( PFALLX*ZDX**PEXFALLX * EXP(-(ZDX*PFALLEXPX)**PALPHAX) &
+ - PFALLZ*ZDZ**PEXFALLZ * EXP(-(ZDZ*PFALLEXPZ)**PALPHAZ))
+ END DO
+!
+!* 1.8 Compute the normalization factor by integration over the
+! dimensional spectrum of specy X
+!
+ ZFUNC = GENERAL_GAMMA(PALPHAX,PNUX,ZLBDAX,ZDX)
+ ZSCALXZ = ZSCALXZ + ZSCALZ * ZFUNC
+!
+!* 1.9 Compute the scaled fall speed difference by integration over
+! the dimensional spectrum of specy X
+!
+ ZCOLLXZ = ZCOLLXZ + ZCOLLZ * ZFUNC
+ END DO
+!
+!* 1.10 Scale the fall speed difference
+!
+ PNZCOLX(JLBDAX,JLBDAZ) = ZCOLLXZ / ZSCALXZ
+ END DO
+END DO
+!
+END SUBROUTINE NZCOLX
diff --git a/src/MNH/radar_rain_ice.f90 b/src/MNH/radar_rain_ice.f90
index 027372e4426fc224a8c39ca365a009cf7e1636fa..c8ff0e2d5852f8aa36322e6ea2ae6718cf2ee9be 100644
--- a/src/MNH/radar_rain_ice.f90
+++ b/src/MNH/radar_rain_ice.f90
@@ -9,7 +9,7 @@
!
INTERFACE
SUBROUTINE RADAR_RAIN_ICE(PRT,PCIT,PRHODREF,PTEMP,PRARE,PVDOP,PRZDR,PRKDP,&
- PCRT)
+ PCRT,PCST,PCGT,PCHT)
!
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! microphysical mix. ratios at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIT ! pristine ice concentration at t
@@ -23,7 +23,9 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRZDR! radar differential reflectivity
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRKDP! radar differential phase shift
! H-V in degree/km
REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCRT ! rain concentration at t
-
+REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCST ! snow concentration at t !
+REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCGT ! graupel concentration at t !
+REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCHT ! hail concentration at t !
!
END SUBROUTINE RADAR_RAIN_ICE
!
@@ -31,7 +33,7 @@ END INTERFACE
!
END MODULE MODI_RADAR_RAIN_ICE
! #########################################################################
- SUBROUTINE RADAR_RAIN_ICE(PRT,PCIT,PRHODREF,PTEMP,PRARE,PVDOP,PRZDR,PRKDP,PCRT)
+ SUBROUTINE RADAR_RAIN_ICE(PRT,PCIT,PRHODREF,PTEMP,PRARE,PVDOP,PRZDR,PRKDP,PCRT,PCST,PCGT,PCHT)
! #########################################################################
!
!!**** *RADAR_RAIN_ICE * - computes some pertinent radar parameters
@@ -125,7 +127,7 @@ USE MODD_PARAM_LIMA_MIXED, ONLY:XDG_L=>XDG,XLBEXG_L=>XLBEXG,XLBG_L=>XLBG,XCCG_L=
USE MODD_PARAM_LIMA, ONLY: XALPHAR_L=>XALPHAR,XNUR_L=>XNUR,XALPHAS_L=>XALPHAS,XNUS_L=>XNUS,&
XALPHAG_L=>XALPHAG,XNUG_L=>XNUG, XALPHAI_L=>XALPHAI,XNUI_L=>XNUI,&
- XRTMIN_L=>XRTMIN,XALPHAC_L=>XALPHAC,XNUC_L=>XNUC, LSNOW_T_L=>LSNOW_T
+ XRTMIN_L=>XRTMIN,XALPHAC_L=>XALPHAC,XNUC_L=>XNUC,LSNOW_T_L=>LSNOW_T,NMOM_S,NMOM_G,NMOM_H
USE MODD_PARAMETERS
USE MODD_PARAM_n, ONLY : CCLOUD
USE MODD_LUNIT
@@ -147,6 +149,9 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRZDR! radar differential reflectivity
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRKDP! radar differential phase shift
! H-V in degree/km
REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCRT ! rain concentration at t
+REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCST ! snow concentration at t
+REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCGT ! graupel concentration at t
+REAL, DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PCHT ! hail concentration at t
!
!* 0.2 Declarations of local variables :
!
@@ -338,7 +343,11 @@ IF (SIZE(PRT,4) >= 5) THEN
WHERE(PTEMP(:,:,:)<=-10 .AND. PRT(:,:,:,5).GT.XRTMIN_L(5))
ZLBDA(:,:,:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*(PTEMP(:,:,:)+273.15))),XLBDAS_MIN)
END WHERE
- ZN(:,:,:)=XNS_L*PRHODREF(:,:,:)*PRT(:,:,:,5)*ZLBDA(:,:,:)**XBS_L
+ IF (NMOM_S.GE.2) THEN
+ ZN(:,:,:)=PCST(:,:,:)
+ ELSE
+ ZN(:,:,:)=XNS_L*PRHODREF(:,:,:)*PRT(:,:,:,5)*ZLBDA(:,:,:)**XBS_L
+ END IF
WHERE( PRT(:,:,:,5).GT.XRTMIN_L(5) )
ZW(:,:,:) = ZEQICE*ZDMELT_FACT &
*1.E18*ZN(:,:,:)*(ZLBDA(:,:,:)**(-ZEXP))*MOMG(XALPHAS_L,XNUS_L,ZEXP)
@@ -366,14 +375,25 @@ IF (SIZE(PRT,4) >= 5) THEN
ELSEIF (CCLOUD=='LIMA') THEN
ZDMELT_FACT = ( (6.0*XAS_L)/(XPI*XRHOLW) )**(2.0)
ZEXP = 2.0*XBS_L
- WHERE( PRT(:,:,:,5).GT.XRTMIN_L(5) )
- ZLBDA(:,:,:) = XLBS_L*( PRHODREF(:,:,:)*PRT(:,:,:,5) )**XLBEXS_L
- ZW(:,:,:) = ZEQICE*ZDMELT_FACT &
+ if (NMOM_S.GE.2) then
+ WHERE( PRT(:,:,:,5).GT.XRTMIN_L(5) .AND. PCST(:,:,:).GT.0.0)
+ ZLBDA(:,:,:) = XLBS_L**(XLBEXS_L)*(PRT(:,:,:,5)/PCST(:,:,:))**(-XLBEXS_L)
+ ZW(:,:,:) = ZEQICE*ZDMELT_FACT &
+ *1.E18*PRHODREF(:,:,:)*PCST(:,:,:)*(ZLBDA(:,:,:)**(-ZEXP))*MOMG(XALPHAS_L,XNUS_L,ZEXP)
+ PVDOP(:,:,:) = PVDOP(:,:,:)+ZEQICE*ZDMELT_FACT*MOMG(XALPHAS_L,XNUS_L,ZEXP+XDS_L) &
+ *1.E18*PRHODREF(:,:,:)*PCST(:,:,:)*XCS_L*(ZLBDA(:,:,:)**(-ZEXP-XDS_L))
+ PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
+ END WHERE
+ else
+ WHERE( PRT(:,:,:,5).GT.XRTMIN_L(5) )
+ ZLBDA(:,:,:) = XLBS_L*( PRHODREF(:,:,:)*PRT(:,:,:,5) )**XLBEXS_L
+ ZW(:,:,:) = ZEQICE*ZDMELT_FACT &
*1.E18*XCCS_L*(ZLBDA(:,:,:)**(XCXS_L-ZEXP))*MOMG(XALPHAS_L,XNUS_L,ZEXP)
- PVDOP(:,:,:) = PVDOP(:,:,:)+ZEQICE*ZDMELT_FACT*MOMG(XALPHAS_L,XNUS_L,ZEXP+XDS_L) &
+ PVDOP(:,:,:) = PVDOP(:,:,:)+ZEQICE*ZDMELT_FACT*MOMG(XALPHAS_L,XNUS_L,ZEXP+XDS_L) &
*1.E18*XCCS_L*XCS_L*(ZLBDA(:,:,:)**(XCXS_L-ZEXP-XDS_L))
- PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
- END WHERE
+ PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
+ END WHERE
+ end if
ELSE
ZDMELT_FACT = ( (6.0*XAS_I)/(XPI*XRHOLW) )**(2.0)
ZEXP = 2.0*XBS_I
@@ -402,15 +422,27 @@ IF (SIZE(PRT,4) >= 6) THEN
END WHERE
!
ZEXP = 2.0*XBG_L
- WHERE( PRT(:,:,:,6).GT.XRTMIN_L(6) )
- ZLBDA(:,:,:) = XLBG_L*( PRHODREF(:,:,:)*PRT(:,:,:,6) )**XLBEXG_L
- ZW(:,:,:) = ZREFL_MELT_CONV(:,:,:)*1.E18*XCCG_L* &
- (ZLBDA(:,:,:)**(XCXG_L-ZEXP))*MOMG(XALPHAG_L,XNUG_L,ZEXP)
- PVDOP(:,:,:) = PVDOP(:,:,:) + &
- ZREFL_MELT_CONV(:,:,:)*1.E18*XCCG_L*XCG_L* &
- (ZLBDA(:,:,:)**(XCXG_L-ZEXP-XDG_L))*MOMG(XALPHAG_L,XNUG_L,ZEXP+XDG_L)
- PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
- END WHERE
+ if(NMOM_G.GE.2) then
+ WHERE( PRT(:,:,:,6).GT.XRTMIN_L(6) .AND. PCGT(:,:,:).GT.1.0E-3 )
+ ZLBDA(:,:,:) = XLBG_L**(XLBEXG_L)*(PRT(:,:,:,6)/PCGT(:,:,:))**(-XLBEXG_L)
+ ZW(:,:,:) = ZREFL_MELT_CONV(:,:,:) &
+ *1.E18*PRHODREF(:,:,:)*PCGT(:,:,:)*(ZLBDA(:,:,:)**(-ZEXP))*MOMG(XALPHAG_L,XNUG_L,ZEXP)
+ PVDOP(:,:,:) = PVDOP(:,:,:) + &
+ ZREFL_MELT_CONV(:,:,:)*1.E18 &
+ *1.E18*PRHODREF(:,:,:)*PCGT(:,:,:)*XCG_L*(ZLBDA(:,:,:)**(-ZEXP-XDG_L))
+ PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
+ END WHERE
+ else
+ WHERE( PRT(:,:,:,6).GT.XRTMIN_L(6) )
+ ZLBDA(:,:,:) = XLBG_L*( PRHODREF(:,:,:)*PRT(:,:,:,6) )**XLBEXG_L
+ ZW(:,:,:) = ZREFL_MELT_CONV(:,:,:)*1.E18*XCCG_L* &
+ (ZLBDA(:,:,:)**(XCXG_L-ZEXP))*MOMG(XALPHAG_L,XNUG_L,ZEXP)
+ PVDOP(:,:,:) = PVDOP(:,:,:) + &
+ ZREFL_MELT_CONV(:,:,:)*1.E18*XCCG_L*XCG_L* &
+ (ZLBDA(:,:,:)**(XCXG_L-ZEXP-XDG_L))*MOMG(XALPHAG_L,XNUG_L,ZEXP+XDG_L)
+ PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
+ END WHERE
+ end if
ELSE
ZFRAC_WATER = 0.14
ZDMELT_FACT = ( (6.0*XAG_I)/(XPI*XRHOLW) )**(2.0)
@@ -443,15 +475,27 @@ IF (SIZE(PRT,4) >= 7) THEN
ZREFL_MELT_CONV(:,:,:) = ((1.0-ZFRAC_WATER)*ZEQICE+ZFRAC_WATER)*ZDMELT_FACT
!
ZEXP = 2.0*XBH_L
- WHERE( PRT(:,:,:,7).GT.XRTMIN_L(7) )
- ZLBDA(:,:,:) = XLBH_L*( PRHODREF(:,:,:)*PRT(:,:,:,7) )**XLBEXH_L
- ZW(:,:,:) = ZREFL_MELT_CONV(:,:,:)*1.E18*XCCH_L* &
- (ZLBDA(:,:,:)**(XCXH_L-ZEXP))*MOMG(XALPHAH_L,XNUH_L,ZEXP)
- PVDOP(:,:,:) = PVDOP(:,:,:) + &
- ZREFL_MELT_CONV(:,:,:)*1.E18*XCCH_L*XCH_L* &
- (ZLBDA(:,:,:)**(XCXH_L-ZEXP-XDH_L))*MOMG(XALPHAH_L,XNUH_L,ZEXP+XDH_L)
- PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
- END WHERE
+ if (NMOM_H.GE.2) then
+ WHERE( PRT(:,:,:,7).GT.XRTMIN_L(7) .AND. PCHT(:,:,:).GT.1.0E-3 )
+ ZLBDA(:,:,:) = XLBH_L**(XLBEXH_L)*(PRT(:,:,:,7)/PCHT(:,:,:))**(-XLBEXH_L)
+ ZW(:,:,:) = ZREFL_MELT_CONV(:,:,:) &
+ *1.E18*PRHODREF(:,:,:)*PCHT(:,:,:)*(ZLBDA(:,:,:)**(-ZEXP))*MOMG(XALPHAH_L,XNUH_L,ZEXP)
+ PVDOP(:,:,:) = PVDOP(:,:,:) + &
+ ZREFL_MELT_CONV(:,:,:) &
+ *1.E18*PRHODREF(:,:,:)*PCHT(:,:,:)*XCH_L*(ZLBDA(:,:,:)**(-ZEXP-XDH_L))
+ PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
+ END WHERE
+ else
+ WHERE( PRT(:,:,:,7).GT.XRTMIN_L(7) )
+ ZLBDA(:,:,:) = XLBH_L*( PRHODREF(:,:,:)*PRT(:,:,:,7) )**XLBEXH_L
+ ZW(:,:,:) = ZREFL_MELT_CONV(:,:,:)*1.E18*XCCH_L* &
+ (ZLBDA(:,:,:)**(XCXH_L-ZEXP))*MOMG(XALPHAH_L,XNUH_L,ZEXP)
+ PVDOP(:,:,:) = PVDOP(:,:,:) + &
+ ZREFL_MELT_CONV(:,:,:)*1.E18*XCCH_L*XCH_L* &
+ (ZLBDA(:,:,:)**(XCXH_L-ZEXP-XDH_L))*MOMG(XALPHAH_L,XNUH_L,ZEXP+XDH_L)
+ PRARE(:,:,:) = PRARE(:,:,:) + ZW(:,:,:)
+ END WHERE
+ end if
ELSE
ZFRAC_WATER = 1.
ZDMELT_FACT = ( (6.0*XAH_I)/(XPI*XRHOLW) )**(2.0)
diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90
index ecf0f36fe7f0e1629a5425363a8f94b7d53276ba..67dba74ce1cb8bd2ac34828a4c76762d5c1056f1 100644
--- a/src/MNH/radiations.f90
+++ b/src/MNH/radiations.f90
@@ -766,9 +766,9 @@ IF( CCLOUD == 'LIMA' ) THEN
DO JJ=IJB,IJE
DO JI=IIB,IIE
IIJ = 1 + (JI-IIB) + (IIE-IIB+1)*(JJ-IJB)
- IF (LWARM) ZCCT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NC))
- IF (LWARM .AND. LRAIN) ZCRT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NR))
- IF (LCOLD) ZCIT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NI))
+ IF (LWARM .AND. NSV_LIMA_NC.GT.0) ZCCT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NC))
+ IF (LWARM .AND. LRAIN .AND. NSV_LIMA_NR.GT.0) ZCRT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NR))
+ IF (LCOLD .AND. NSV_LIMA_NI.GT.0) ZCIT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NI))
END DO
END DO
END DO
diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90
index 5708c0d4c4742afee013137bff42bc0fc1d51c48..3ccba06544041b4516ebab044175223dee4ac36d 100644
--- a/src/MNH/rain_c2r2_khko.f90
+++ b/src/MNH/rain_c2r2_khko.f90
@@ -13,7 +13,7 @@ INTERFACE
PZZ, PRHODJ, &
PRHODREF, PEXNREF, &
PPABST, PTHT, PRVT, PRCT, &
- PRRT, PTHM, PRCM, PPABSM, &
+ PRRT, PTHM, PRCM, PPABSTT, &
PW_NU,PDTHRAD, PTHS, PRVS, PRCS, PRRS, &
PCNT, PCCT, PCRT, PCNS, PCCS, PCRS, &
PINPRC, PINPRR, PINPRR3D, PEVAP3D,PAEROT, &
@@ -48,7 +48,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-Dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Pressure time t-Dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Pressure time t+Dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at time t-Dt
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
@@ -87,7 +87,7 @@ END MODULE MODI_RAIN_C2R2_KHKO
KMI, TPFILE, PZZ, PRHODJ, &
PRHODREF, PEXNREF, &
PPABST, PTHT, PRVT, PRCT, &
- PRRT, PTHM, PRCM, PPABSM, &
+ PRRT, PTHM, PRCM, PPABSTT, &
PW_NU,PDTHRAD, PTHS, PRVS, PRCS, PRRS, &
PCNT, PCCT, PCRT, PCNS, PCCS, PCRS, &
PINPRC, PINPRR, PINPRR3D, PEVAP3D,PAEROT, &
@@ -274,7 +274,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-Dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Pressure time t-Dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Pressure time t+Dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at time t-Dt
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
@@ -622,7 +622,7 @@ ZZW1LOG(:,:,:)= 0. ! supersaturation
ZTDT(:,:,:) = 0.
ZDRC(:,:,:) = 0.
IF (OACTIT) THEN
- ZTM(:,:,:) = PTHM(:,:,:) * (PPABSM(:,:,:)/XP00)**(XRD/XCPD)
+ ZTM(:,:,:) = PTHM(:,:,:) * (PPABST(:,:,:)/XP00)**(XRD/XCPD)
ZTDT(:,:,:) = (ZT(:,:,:)-ZTM(:,:,:))/PTSTEP ! dT/dt
ZDRC(:,:,:) = (PRCT(:,:,:)-PRCM(:,:,:))/PTSTEP ! drc/dt
! Modif M.Mazoyer
@@ -946,7 +946,7 @@ ZZW1LOG(:,:,:)= 0. ! supersaturation
ZTDT(:,:,:) = 0.
ZDRC(:,:,:) = 0.
IF (OACTIT) THEN
- ZTM(:,:,:) = PTHM(:,:,:) * (PPABSM(:,:,:)/XP00)**(XRD/XCPD)
+ ZTM(:,:,:) = PTHM(:,:,:) * (PPABST(:,:,:)/XP00)**(XRD/XCPD)
ZTDT(:,:,:) = (ZT(:,:,:)-ZTM(:,:,:))/PTSTEP ! dT/dt
ZDRC(:,:,:) = (PRCT(:,:,:)-PRCM(:,:,:))/PTSTEP ! drc/dt
ZTDT(:,:,:) = MIN(0.,ZTDT(:,:,:)+(XG*PW_NU(:,:,:))/XCPD- &
diff --git a/src/MNH/rain_ice_fast_rg.f90 b/src/MNH/rain_ice_fast_rg.f90
index c3366b66a594dc41bcab358149d5ded79270d59d..b8a7b480ae57a727adeaa3e04888ea61a9db5586 100644
--- a/src/MNH/rain_ice_fast_rg.f90
+++ b/src/MNH/rain_ice_fast_rg.f90
@@ -204,8 +204,8 @@ REAL, DIMENSION(size(PRHODREF),7) :: ZZW1 ! Work arrays
JL = I1(JJ)
ZZW1(JL,3) = MIN( PRSS(JL),XFSDRYG*ZVEC3(JJ) & ! RSDRYG
* EXP( XCOLEXSG*(PZT(JL)-XTT) ) &
- *( ZVECLBDAS(JJ)**(XCXS-XBS) )*( ZVECLBDAG(JJ)**XCXG ) &
- *( PRHODREF(JL)**(-XCEXVT-1.) ) &
+ *PRST(JL)*( ZVECLBDAG(JJ)**XCXG ) &
+ *( PRHODREF(JL)**(-XCEXVT) ) &
*( XLBSDRYG1/( ZVECLBDAG(JJ)**2 ) + &
XLBSDRYG2/( ZVECLBDAG(JJ) * ZVECLBDAS(JJ) ) + &
XLBSDRYG3/( ZVECLBDAS(JJ)**2) ) )
diff --git a/src/MNH/rain_ice_fast_rh.f90 b/src/MNH/rain_ice_fast_rh.f90
index 1710f8b157114ebd6cd2d256fcca23d39d7e3571..58446c16979afbc514d69da50796323a870f3e33 100644
--- a/src/MNH/rain_ice_fast_rh.f90
+++ b/src/MNH/rain_ice_fast_rh.f90
@@ -186,8 +186,8 @@ REAL, DIMENSION(size(PRHODREF),6) :: ZZW1 ! Work arrays
DO JJ = 1, IGWET
JL = I1W(JJ)
ZZW1(JL,3) = MIN( PRSS(JL),XFSWETH*ZVEC3(JJ) & ! RSWETH
- *( ZVECLBDAS(JJ)**(XCXS-XBS) )*( ZVECLBDAH(JJ)**XCXH ) &
- *( PRHODREF(JL)**(-XCEXVT-1.) ) &
+ *PRST(JL)*( ZVECLBDAH(JJ)**XCXH ) &
+ *( PRHODREF(JL)**(-XCEXVT) ) &
*( XLBSWETH1/( ZVECLBDAH(JJ)**2 ) + &
XLBSWETH2/( ZVECLBDAH(JJ) * ZVECLBDAS(JJ) ) + &
XLBSWETH3/( ZVECLBDAS(JJ)**2) ) )
diff --git a/src/MNH/rain_ice_fast_rs.f90 b/src/MNH/rain_ice_fast_rs.f90
index a4750d01d1319c619f9266ad41b2b1fff39ba43a..2acc9b0e0101635f8baebf80e9e2fa5dea82aad3 100644
--- a/src/MNH/rain_ice_fast_rs.f90
+++ b/src/MNH/rain_ice_fast_rs.f90
@@ -136,9 +136,9 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4 ! Work arrays
DO JJ = 1, IGRIM
JL = I1(JJ)
ZZW1(JJ) = MIN( PRCS(JL), &
- XCRIMSS * ZVEC1(JJ) * PRCT(JL) & ! RCRIMSS
- * ZVECLBDAS(JJ)**XEXCRIMSS &
- * PRHODREF(JL)**(-XCEXVT) )
+ XCRIMSS * ZVEC1(JJ) * PRCT(JL) * PRST(JL) & ! RCRIMSS
+ * ZVECLBDAS(JJ)**(XBS+XEXCRIMSS) &
+ * PRHODREF(JL)**(-XCEXVT+1) )
PRCS(JL) = PRCS(JL) - ZZW1(JJ)
PRSS(JL) = PRSS(JL) + ZZW1(JJ)
PTHS(JL) = PTHS(JL) + ZZW1(JJ)*(PLSFACT(JL)-PLVFACT(JL)) ! f(L_f*(RCRIMSS))
@@ -157,12 +157,12 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4 ! Work arrays
JL = I1(JJ)
IF ( PRSS(JL) > 0.0 ) THEN
ZZW2(JJ) = MIN( PRCS(JL), &
- XCRIMSG * PRCT(JL) & ! RCRIMSG
- * ZVECLBDAS(JJ)**XEXCRIMSG &
- * PRHODREF(JL)**(-XCEXVT) &
+ XCRIMSG * PRCT(JL) *PRST(JL) & ! RCRIMSG
+ * ZVECLBDAS(JJ)**(XBS+XEXCRIMSG) &
+ * PRHODREF(JL)**(-XCEXVT+1) &
- ZZW1(JJ) )
ZZW3(JJ) = MIN( PRSS(JL), &
- XSRIMCG * ZVECLBDAS(JJ)**XEXSRIMCG & ! RSRIMCG
+ PRST(JL) * PRHODREF(JL) * XSRIMCG * ZVECLBDAS(JJ)**(XBS+XEXSRIMCG) & ! RSRIMCG
* (1.0 - ZVEC1(JJ) )/(PTSTEP*PRHODREF(JL)) )
PRCS(JL) = PRCS(JL) - ZZW2(JJ)
PRSS(JL) = PRSS(JL) - ZZW3(JJ)
@@ -260,7 +260,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4 ! Work arrays
DO JJ = 1, IGACC
JL = I1(JJ)
ZZW2(JJ) = & !! coef of RRACCS
- XFRACCSS*( ZVECLBDAS(JJ)**XCXS )*( PRHODREF(JL)**(-XCEXVT-1.) ) &
+ XFRACCSS*( PRST(JL)*ZVECLBDAS(JJ)**XBS )*( PRHODREF(JL)**(-XCEXVT) ) &
*( XLBRACCS1/((ZVECLBDAS(JJ)**2) ) + &
XLBRACCS2/( ZVECLBDAS(JJ) * ZVECLBDAR(JJ) ) + &
XLBRACCS3/( (ZVECLBDAR(JJ)**2)) )/ZVECLBDAR(JJ)**4
@@ -306,7 +306,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4 ! Work arrays
ZZW2(JJ) = MAX( MIN( PRRS(JL),ZZW2(JJ)-ZZW4(JJ) ),0.0 ) ! RRACCSG
IF ( ZZW2(JJ) > 0.0 ) THEN
ZZW3(JJ) = MIN( PRSS(JL),XFSACCRG*ZVEC3(JJ)* & ! RSACCRG
- ( ZVECLBDAS(JJ)**(XCXS-XBS) )*( PRHODREF(JL)**(-XCEXVT-1.) ) &
+ PRST(JL)*( PRHODREF(JL)**(-XCEXVT) ) &
*( XLBSACCR1/((ZVECLBDAR(JJ)**2) ) + &
XLBSACCR2/( ZVECLBDAR(JJ) * ZVECLBDAS(JJ) ) + &
XLBSACCR3/( (ZVECLBDAS(JJ)**2)) )/ZVECLBDAR(JJ) )
@@ -353,9 +353,9 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4 ! Work arrays
!
! compute RSMLT
!
- ZZW(:) = MIN( PRSS(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * &
- ( X0DEPS* PLBDAS(:)**XEX0DEPS + &
- X1DEPS*PCJ(:)*PLBDAS(:)**XEX1DEPS ) ) / &
+ ZZW(:) = MIN( PRSS(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * PRST(:) * PRHODREF(:) * &
+ ( X0DEPS* PLBDAS(:)**(XBS+XEX0DEPS) + &
+ X1DEPS*PCJ(:)*PLBDAS(:)**(XBS+XEX1DEPS) ) ) / &
( PRHODREF(:)*XLMTT ) ) )
!
! note that RSCVMG = RSMLT*XFSCVMG but no heat is exchanged (at the rate RSMLT)
diff --git a/src/MNH/rain_ice_slow.f90 b/src/MNH/rain_ice_slow.f90
index 8ed0b10ac71174f783ce4c47eecf16e4587fc1ae..6df8c726f4766e4ce747c8f9dffccee910497e60 100644
--- a/src/MNH/rain_ice_slow.f90
+++ b/src/MNH/rain_ice_slow.f90
@@ -30,7 +30,7 @@ use modd_budget, only: lbudget_th, lbudget_rv, lbudget_rc, lbudget_rr, l
NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RR, NBUDGET_RI, NBUDGET_RS, NBUDGET_RG, &
tbudgets
use MODD_CST, only: XALPI, XBETAI, XCI, XCPV, XGAMI, XLSTT, XMNH_HUGE_12_LOG, XP00, XRV, XTT
-use MODD_RAIN_ICE_DESCR, only: XCEXVT, XLBDAS_MAX, XLBEXG, XLBEXS, XLBG, XLBS, XRTMIN
+use MODD_RAIN_ICE_DESCR, only: XCEXVT, XLBDAS_MAX, XLBEXG, XLBEXS, XLBG, XLBS, XRTMIN, XBS
use MODD_RAIN_ICE_PARAM, only: X0DEPG, X0DEPS, X1DEPG, X1DEPS, XACRIAUTI, XALPHA3, XBCRIAUTI, XBETA3, XCOLEXIS, XCRIAUTI, &
XEX0DEPG, XEX0DEPS, XEX1DEPG, XEX1DEPS, XEXIAGGS, XFIAGGS, XHON, XSCFAC, XTEXAUTI, XTIMAUTI
@@ -147,7 +147,7 @@ real, dimension(size(plsfact)) :: zz_diff
END WHERE
ZZW(:) = 0.0
WHERE ( (PRST(:)>XRTMIN(5)) .AND. (PRSS(:)>0.0) )
- ZZW(:) = ( PSSI(:)/(PRHODREF(:)*PAI(:)) ) * &
+ ZZW(:) = ( PRST(:) * PLBDAS(:)**XBS * PSSI(:)/PAI(:) ) * &
( X0DEPS*PLBDAS(:)**XEX0DEPS + X1DEPS*PCJ(:)*PLBDAS(:)**XEX1DEPS )
ZZW(:) = MIN( PRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- MIN( PRSS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
@@ -169,8 +169,8 @@ real, dimension(size(plsfact)) :: zz_diff
WHERE ( (PRIT(:)>XRTMIN(4)) .AND. (PRST(:)>XRTMIN(5)) .AND. (PRIS(:)>0.0) )
ZZW(:) = MIN( PRIS(:),XFIAGGS * EXP( XCOLEXIS*(PZT(:)-XTT) ) &
* PRIT(:) &
- * PLBDAS(:)**XEXIAGGS &
- * PRHODREF(:)**(-XCEXVT) )
+ * PRST(:) * PLBDAS(:)**(XBS+XEXIAGGS) &
+ * PRHODREF(:)**(-XCEXVT+1) )
PRSS(:) = PRSS(:) + ZZW(:)
PRIS(:) = PRIS(:) - ZZW(:)
END WHERE
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index 29b1f57918a3ee48bdc268c7f4e69d3cab8d3ba8..2d3bddad5cc443b888283d950cf84cbd791326a8 100644
--- a/src/MNH/read_exsegn.f90
+++ b/src/MNH/read_exsegn.f90
@@ -383,9 +383,10 @@ USE MODN_PARAM_ECRAD_n
USE MODN_PARAM_ICE
USE MODN_PARAM_KAFR_n
USE MODN_PARAM_LIMA, ONLY : FINI_CCN=>HINI_CCN,NAM_PARAM_LIMA,NMOD_CCN,LSCAV, &
- CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, NMOD_IFN, &
+ CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, NMOD_IFN, NMOD_IMM, &
LCOLD, LACTI, LNUCL, XALPHAC, XNUC, LMEYERS, LHAIL,&
- LPTSPLIT
+ LPTSPLIT, LSPRO, LADJ, LKHKO, LRAIN, LSNOW, FWARM=>LWARM,&
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
USE MODN_PARAM_MFSHALL_n
USE MODN_PARAM_n ! realized in subroutine ini_model n
USE MODN_PARAM_RAD_n
@@ -1243,7 +1244,7 @@ SELECT CASE ( CCLOUD )
CGETCLOUD = 'READ' ! This is automatically done
END IF
!
- IF (LWARM) THEN
+ IF (FWARM) THEN
LUSERV=.TRUE. ; LUSERC=.TRUE. ; LUSERR=.TRUE.
LUSERI=.FALSE.; LUSERS=.FALSE. ; LUSERG=.FALSE.; LUSERH=.FALSE.
END IF
@@ -1253,25 +1254,57 @@ SELECT CASE ( CCLOUD )
LUSERI=.TRUE. ; LUSERS=.TRUE. ; LUSERG=.TRUE.
LUSERH=LHAIL
END IF
+ !
+ IF (LSPRO) LADJ=.FALSE.
+ IF (.NOT.LRAIN) NMOM_R=0
+ IF (.NOT.LWARM) THEN
+ NMOM_C=0
+ NMOM_R=0
+ END IF
+ IF (.NOT.LSNOW) THEN
+ NMOM_S=0
+ NMOM_G=0
+ NMOM_H=0
+ LHAIL=.FALSE.
+ END IF
+ IF (.NOT.LHAIL) NMOM_H=0
+ IF (.NOT.LCOLD) THEN
+ NMOM_I=0
+ NMOM_S=0
+ NMOM_G=0
+ NMOM_H=0
+ LSNOW=.FALSE.
+ LHAIL=.FALSE.
+ LNUCL=.FALSE.
+ NMOD_IFN=0
+ NMOD_IMM=0
+ END IF
+ IF (.NOT.LPTSPLIT) THEN
+ IF (NMOM_C==1) NMOM_C=2
+ IF (NMOM_R==1) NMOM_R=2
+ IF (NMOM_I==1) NMOM_I=2
+ IF (NMOM_S==2 .OR. NMOM_G==2 .OR. (LHAIL .AND. NMOM_H==2)) THEN
+ NMOM_S=2
+ NMOM_G=2
+ IF (LHAIL) NMOM_H=2
+ END IF
+ END IF
!
-!!$ IF (LSUBG_COND .AND. LCOLD) THEN
-!!$ WRITE(UNIT=ILUOUT,FMT=9003) KMI
-!!$ WRITE(UNIT=ILUOUT,FMT=*) 'YOU WANT TO USE BOTH THE SIMPLE MIXED PHASE'
-!!$ WRITE(UNIT=ILUOUT,FMT=*) 'MICROPHYS. SCHEME AND THE SUBGRID COND. SCHEME.'
-!!$ WRITE(UNIT=ILUOUT,FMT=*) 'THIS IS NOT YET AVAILABLE. SET LSUBG_COND '
-!!$ WRITE(UNIT=ILUOUT,FMT=*) 'TO FALSE OR CCLOUD TO "REVE", "KESS" '
-!!$ !callabortstop
-!!$ CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n','')
-!!$ END IF
-!
- IF (CCLOUD == 'LIMA' .AND. LSUBG_COND .AND. (.NOT. LPTSPLIT)) THEN
+ IF (LSUBG_COND .AND. (.NOT. LPTSPLIT)) THEN
WRITE(UNIT=ILUOUT,FMT=9001) KMI
WRITE(UNIT=ILUOUT,FMT=*) 'YOU MUST USE LPTSPLIT=T with CCLOUD=LIMA'
WRITE(UNIT=ILUOUT,FMT=*) 'AND LSUBG_COND '
CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n','use LPTSPLIT=T with LIMA and LSUBG_COND=T')
END IF
+!
+ IF (LSUBG_COND .AND. (.NOT. LADJ)) THEN
+ WRITE(UNIT=ILUOUT,FMT=9001) KMI
+ WRITE(UNIT=ILUOUT,FMT=*) 'YOU MUST USE LADJ=T with CCLOUD=LIMA'
+ WRITE(UNIT=ILUOUT,FMT=*) 'AND LSUBG_COND '
+ CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n','use LADJ=T with LIMA and LSUBG_COND=T')
+ END IF
!
- IF ( XALPHAC /= 3.0 .OR. XNUC /= 2.0) THEN
+ IF ( LKHKO .AND. (XALPHAC /= 3.0 .OR. XNUC /= 2.0) ) THEN
WRITE(UNIT=ILUOUT,FMT=9001) KMI
WRITE(UNIT=ILUOUT,FMT=*) 'IT IS ADVISED TO USE XALPHAC=3. and XNUC=2.'
WRITE(UNIT=ILUOUT,FMT=*) 'FOR STRATOCUMULUS. '
@@ -1283,31 +1316,7 @@ SELECT CASE ( CCLOUD )
WRITE(UNIT=ILUOUT,FMT=*) ' IT IS ADVISED TO USE CEFRADL=LIMA '
WRITE(UNIT=ILUOUT,FMT=*) ' WITH A 2-MOMENT MICROPHYSICAL SCHEME "LIMA"'
END IF
-
-!UPG*PT
-! IF (LUSECHEM ) THEN
-! WRITE(UNIT=ILUOUT,FMT=*) 'YOU WANT TO USE BOTH LIMA MICROPHYS. SCHEME AND CHEMISTRY'
-! WRITE(UNIT=ILUOUT,FMT=*) 'THIS IS NOT YET AVAILABLE. SET LUSECHEM '
-! WRITE(UNIT=ILUOUT,FMT=*) 'TO FALSE OR CCLOUD TO "ICE3" '
-! !callabortstop
-! CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n','')
-! END IF
-! IF (LDUST ) THEN
-! WRITE(UNIT=ILUOUT,FMT=*) 'YOU WANT TO USE BOTH LIMA MICROPHYS. SCHEME AND DUSTS '
-! WRITE(UNIT=ILUOUT,FMT=*) 'THIS IS NOT YET AVAILABLE. SET LDUST '
-! WRITE(UNIT=ILUOUT,FMT=*) 'TO FALSE OR CCLOUD TO "ICE3" '
-! !callabortstop
-! CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n','')
-! END IF
-! IF (LSALT ) THEN
-! WRITE(UNIT=ILUOUT,FMT=*) 'YOU WANT TO USE BOTH LIMA MICROPHYS. SCHEME AND SEA SALTS '
-! WRITE(UNIT=ILUOUT,FMT=*) 'THIS IS NOT YET AVAILABLE. SET LSALT '
-! WRITE(UNIT=ILUOUT,FMT=*) 'TO FALSE OR CCLOUD TO "ICE3" '
-! !callabortstop
-! CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n','')
-! END IF
-!
-!UPG*PT
+!
END SELECT
!
LUSERV_G(KMI) = LUSERV
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index d83171513705eb2621407b89d55801859dcf9749..e5a8ff123022926aa6f0ee2853d728df876947fa 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -933,24 +933,36 @@ DO JSV = NSV_LIMA_BEG,NSV_LIMA_END
IF (JSV .EQ. NSV_LIMA_NI) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(1))//'T'
END IF
+! Ns
+ IF (JSV .EQ. NSV_LIMA_NS) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(2))//'T'
+ END IF
+! Ng
+ IF (JSV .EQ. NSV_LIMA_NG) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(3))//'T'
+ END IF
+! Nh
+ IF (JSV .EQ. NSV_LIMA_NH) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(4))//'T'
+ END IF
! N IFN free
IF (JSV .GE. NSV_LIMA_IFN_FREE .AND. JSV .LT. NSV_LIMA_IFN_NUCL) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(2))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//INDICE//'T'
END IF
! N IFN nucl
IF (JSV .GE. NSV_LIMA_IFN_NUCL .AND. JSV .LT. NSV_LIMA_IFN_NUCL + NMOD_IFN) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_NUCL + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(3))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(6))//INDICE//'T'
END IF
! N IMM nucl
IF (JSV .GE. NSV_LIMA_IMM_NUCL .AND. JSV .LT. NSV_LIMA_IMM_NUCL + NMOD_IMM) THEN
WRITE(INDICE,'(I2.2)')(NINDICE_CCN_IMM(JSV - NSV_LIMA_IMM_NUCL + 1))
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(4))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(7))//INDICE//'T'
END IF
! Hom. freez. of CCN
IF (JSV .EQ. NSV_LIMA_HOM_HAZE) THEN
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(8))//'T'
END IF
!
! Super saturation
diff --git a/src/MNH/read_lima_data_netcdf_case.f90 b/src/MNH/read_lima_data_netcdf_case.f90
index e6ffb4742d02808fa6f2a3a24e1b1ee022b3b5e1..35fd628b8ac87bd4b057ed2fcd1d674b7def7466 100644
--- a/src/MNH/read_lima_data_netcdf_case.f90
+++ b/src/MNH/read_lima_data_netcdf_case.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 2012-2017 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2012-2021 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! ################################
@@ -27,7 +27,7 @@ END MODULE MODI_READ_LIMA_DATA_NETCDF_CASE
PTIME_HORI,KVERB,ODUMMY_REAL )
! ####################################################################
!
-!!**** *READ_LIMA_DATA_NETCDF_CASE* - reads data for the initialization of real cases.
+!!**** *READ_CAMS_DATA_NETCDF_CASE* - reads data for the initialization of real cases.
!!
!! PURPOSE
!! -------
@@ -71,7 +71,7 @@ END MODULE MODI_READ_LIMA_DATA_NETCDF_CASE
!! Module MODD_CONF : contains configuration variables for all models.
!! NVERB : verbosity level for output-listing
!! Module MODD_LUNIT : contains logical unit names for all models
-!! CLUOUT0 : name of output-listing
+!! TLUOUT0 : name of output-listing
!! Module MODD_PGDDIM : contains dimension of PGD fields
!! NPGDIMAX: dimension along x (no external point)
!! NPGDJMAX: dimension along y (no external point)
@@ -80,14 +80,13 @@ END MODULE MODI_READ_LIMA_DATA_NETCDF_CASE
!!
!! MODIFICATIONS
!! -------------
-!! Original 23/01/12 (C. Mari)
-!! P. Wautelet 30/10/17 use F90 module for netCDF
+!! Original 06/2021 forked from read_chem_data_netcdf_case.f90
+
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
-! ------------
+!------------
!
-USE MODD_BLANK_n
USE MODD_CH_AEROSOL, ONLY: CORGANIC, NCARB, NSOA, NSP, LORILAM,&
JPMODE, LVARSIGI, LVARSIGJ,CAERONAMES
USE MODD_CH_M9_n, ONLY: NEQ , CNAMES
@@ -98,26 +97,24 @@ USE MODD_CST
USE MODD_DIM_n
USE MODD_GRID
USE MODD_GRID_n
-USE MODD_IO, ONLY: TFILEDATA
+USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT, ONLY: TLUOUT0
USE MODE_MODELN_HANDLER
USE MODD_NETCDF, ONLY:CDFINT
USE MODD_NSV
USE MODD_PARAMETERS
USE MODD_PARAM_n, ONLY : CTURB
+USE MODD_PRECISION, ONLY:CDFINT
USE MODD_PREP_REAL
USE MODD_TIME
USE MODD_TIME_n
!
-!UPG*PT
-!USE MODE_FM
-!USE MODE_IO_ll
-USE MODE_IO
-USE MODE_TOOLS_ll
-!UPG*PT
+USE MODE_IO_FILE, only: IO_File_close
USE MODE_MPPDB
USE MODE_THERMO
USE MODE_TIME
+USE MODE_TOOLS, ONLY: UPCASE
+use mode_tools_ll, only: GET_DIM_EXT_ll
!
USE MODI_CH_AER_INIT_SOA
USE MODI_CH_INIT_SCHEME_n
@@ -132,7 +129,8 @@ USE NETCDF
!
USE MODD_PARAM_n, ONLY : CCLOUD
USE MODD_PARAM_LIMA, ONLY : NMOD_CCN, LSCAV, LAERO_MASS, HINI_CCN, HTYPE_CCN, &
- NMOD_IFN, NMOD_IMM, LHHONI, NINDICE_CCN_IMM
+ NMOD_IFN, NMOD_IMM, LHHONI, NINDICE_CCN_IMM,CCCN_MODES,&
+ CIFN_SPECIES
!
IMPLICIT NONE
!
@@ -150,7 +148,7 @@ LOGICAL, INTENT(IN) :: ODUMMY_REAL! flag to interpolate dummy fiel
! ------------------------------
! General purpose variables
INTEGER :: ILUOUT0 ! Unit used for output msg.
-INTEGER :: JI,JJ,JK ! Dummy counters
+INTEGER :: JJ ! Dummy counters
INTEGER :: JLOOP1
! Variables used by the PGD reader
CHARACTER(LEN=28) :: YPGD_NAME ! not used - dummy argument
@@ -160,64 +158,38 @@ CHARACTER(LEN=2) :: YPGD_TYPE ! not used - dummy argument
INTEGER :: INO ! Number of points of the grid
INTEGER :: IIU ! Number of points along X
INTEGER :: IJU ! Number of points along Y
+integer :: ilatlen, ilonlen, ilevlen
REAL, DIMENSION(:), ALLOCATABLE :: ZLONOUT ! mapping PGD -> Grib (lon.)
REAL, DIMENSION(:), ALLOCATABLE :: ZLATOUT ! mapping PGD -> Grib (lat.)
REAL, DIMENSION(:,:), ALLOCATABLE :: ZXM ! X of PGD mass points
REAL, DIMENSION(:,:), ALLOCATABLE :: ZYM ! Y of PGD mass points
REAL, DIMENSION(:,:), ALLOCATABLE :: ZLATM ! Lat of PGD mass points
REAL, DIMENSION(:,:), ALLOCATABLE :: ZLONM ! Lon of PGD mass points
-! Variable involved in the task of reading the netcdf file
-REAL,DIMENSION(:,:),ALLOCATABLE :: ZVALUE ! Intermediate array
-REAL,DIMENSION(:),ALLOCATABLE :: ZVALUE1D ! Intermediate array
-REAL,DIMENSION(:,:),ALLOCATABLE :: ZOUT ! Intermediate arrays
-REAL,DIMENSION(:),ALLOCATABLE :: ZOUT1D ! Intermediate arrays
-! model indice
INTEGER :: IMI
-TYPE(TFILEDATA),POINTER :: TZFILE
!
! For netcdf
!
-integer(kind=CDFINT) :: status, ncid, varid
-integer(kind=CDFINT) :: lat_varid, lon_varid, lev_varid, time_varid
-integer(kind=CDFINT) :: a_varid, b_varid, p0_varid, ps_varid, t_varid, q_varid
-integer(kind=CDFINT) :: mmr_dust1_varid, mmr_dust2_varid, mmr_dust3_varid
-integer(kind=CDFINT) :: mmr_seasalt1_varid, mmr_seasalt2_varid, mmr_seasalt3_varid
-integer(kind=CDFINT) :: mmr_bc_hydrophilic_varid, mmr_bc_hydrophobic_varid
-integer(kind=CDFINT) :: mmr_oc_hydrophilic_varid, mmr_oc_hydrophobic_varid
-integer(kind=CDFINT) :: mmr_sulfaer_varid
-integer(kind=CDFINT) :: recid, latid, lonid, levid, timeid
-integer(kind=CDFINT) :: latlen, lonlen, levlen, nrecs,timelen
-integer(kind=CDFINT) :: KILEN
-CHARACTER(LEN=40) :: recname
-REAL, DIMENSION(:), ALLOCATABLE :: lats
-REAL, DIMENSION(:), ALLOCATABLE :: lons
-REAL, DIMENSION(:), ALLOCATABLE :: levs
-INTEGER, DIMENSION(:), ALLOCATABLE :: count3d, start3d
-INTEGER, DIMENSION(:), ALLOCATABLE :: count2d, start2d
-REAL, DIMENSION(:), ALLOCATABLE :: time, a, b
-REAL :: p0
-INTEGER, DIMENSION(:), ALLOCATABLE :: kinlo
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: mmr_dust1, mmr_dust2, mmr_dust3
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: mmr_seasalt1, mmr_seasalt2, mmr_seasalt3
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: mmr_bc_hydrophilic, mmr_bc_hydrophobic
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: mmr_oc_hydrophilic, mmr_oc_hydrophobic
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: mmr_sulfaer
+integer(kind=CDFINT) :: istatus, incid
+integer(kind=CDFINT) :: itimeindex
+INTEGER(kind=CDFINT) :: ind_netcdf ! Indice for netcdf var.
+REAL, DIMENSION(:), ALLOCATABLE :: zlats
+REAL, DIMENSION(:), ALLOCATABLE :: zlons
+REAL, DIMENSION(:), ALLOCATABLE :: zlevs
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: zmmr_dust1, zmmr_dust2, zmmr_dust3
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: zmmr_seasalt1, zmmr_seasalt2, zmmr_seasalt3
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: zmmr_bc_hydrophilic, zmmr_bc_hydrophobic
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: zmmr_oc_hydrophilic, zmmr_oc_hydrophobic
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: zmmr_sulfaer
REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZWORK
-!REAL, DIMENSION(:,:,:), ALLOCATABLE :: TMOZ, QMOZ, PSMOZ
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZTCAM, ZQCAM
-REAL, DIMENSION(:,:), ALLOCATABLE :: ZPSCAM
-REAL :: scale, offset
-! for reverse altitude
-REAL, DIMENSION(:), ALLOCATABLE :: TMP1, TMP2
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: TMP3
-REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: TMP4,TMP5
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZTCAMS, ZQCAMS
+REAL, DIMENSION(:,:), ALLOCATABLE :: ZPSCAMS
+REAL, DIMENSION(:), ALLOCATABLE :: ZTMP1, ZTMP2
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZTMP3
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZTMP4,ZTMP5
!----------------------------------------------------------------------
-TZFILE => NULL()
!
IMI = GET_CURRENT_MODEL_INDEX()
!
-!--------------------------------------------------------------
-!
!* 1. READ PGD FILE
! -------------
!
@@ -254,172 +226,74 @@ DO JJ = 1, IJU
ENDDO
DEALLOCATE (ZYM)
DEALLOCATE (ZXM)
+DEALLOCATE (ZLONM)
+DEALLOCATE (ZLATM)
!
-!--------------------------------------------------------------
!
!* 2. READ NETCDF FIELDS
! ------------------
!
! 2.1 Open netcdf files
!
-status = nf90_open(HFILE, nf90_nowrite, ncid)
-if (status /= nf90_noerr) call handle_err(status)
+istatus = nf90_open(HFILE, nf90_nowrite, incid)
+if (istatus /= nf90_noerr) call handle_err(istatus)
!
! 2.2 Read netcdf files
!
-! get dimension IDs
-!
-!* get dimension ID of unlimited variable in netcdf file
-status = nf90_inquire(ncid, unlimitedDimId = recid)
-!status = nf90_inq_dimid(ncid, "time", timeid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_dimid(ncid, "latitude", latid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_dimid(ncid, "longitude", lonid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_dimid(ncid, "level", levid)
-if (status /= nf90_noerr) call handle_err(status)
-!
! get dimensions
!
-!* get dimension and name of unlimited variable in netcdf file
-status = nf90_inquire_dimension(ncid, recid, name=recname, len=nrecs)
-!status = nf90_inquire_dimension(ncid, timeid, len=nrecs)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inquire_dimension(ncid, latid, len=latlen)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inquire_dimension(ncid, lonid, len=lonlen)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inquire_dimension(ncid, levid, len=levlen)
-if (status /= nf90_noerr) call handle_err(status)
-!
-! get variable IDs
-!
-status = nf90_inq_varid(ncid, "latitude", lat_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "longitude", lon_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "level", lev_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "time", time_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-!!! status = nf90_inq_varid(ncid, "a", a_varid)
-!!! if (status /= nf90_noerr) call handle_err(status)
-!!! status = nf90_inq_varid(ncid, "b", b_varid)
-!!! if (status /= nf90_noerr) call handle_err(status)
-!
-status = nf90_inq_varid(ncid, "aermr04", mmr_dust1_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "aermr05", mmr_dust2_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "aermr06", mmr_dust3_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-status = nf90_inq_varid(ncid, "aermr01", mmr_seasalt1_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "aermr02", mmr_seasalt2_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "aermr03", mmr_seasalt3_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-status = nf90_inq_varid(ncid, "aermr10", mmr_bc_hydrophilic_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "aermr09", mmr_bc_hydrophobic_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-status = nf90_inq_varid(ncid, "aermr08", mmr_oc_hydrophilic_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "aermr07", mmr_oc_hydrophobic_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-status = nf90_inq_varid(ncid, "aermr11", mmr_sulfaer_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-!!! status = nf90_inq_varid(ncid, "p0", p0_varid)
-!!! if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "sp", ps_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "t", t_varid)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_inq_varid(ncid, "q", q_varid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-
-KILEN = latlen * lonlen
+CALL READ_DIM(incid,"latitude",ilatlen)
+CALL READ_DIM(incid,"longitude",ilonlen)
+CALL READ_DIM(incid,"level",ilevlen)
!
! 2.3 Read data.
!
-ALLOCATE (count3d(4))
-ALLOCATE (start3d(4))
-ALLOCATE (count2d(3))
-ALLOCATE (start2d(3))
-ALLOCATE (lats(latlen))
-ALLOCATE (lons(lonlen))
-ALLOCATE (levs(levlen))
-ALLOCATE (kinlo(latlen))
-kinlo(:) = lonlen
-!ALLOCATE (time(nrecs))
-!ALLOCATE (a(levlen))
-!ALLOCATE (b(levlen))
+ALLOCATE (zlats(ilatlen))
+ALLOCATE (zlons(ilonlen))
+ALLOCATE (zlevs(ilevlen))
! T, Q, Ps :
-ALLOCATE (ZTCAM(lonlen,latlen,levlen))
-ALLOCATE (ZQCAM(lonlen,latlen,levlen))
-!ALLOCATE (ZPSCAM(lonlen,latlen,levlen))
-ALLOCATE (ZPSCAM(lonlen,latlen))
+ALLOCATE (ZTCAMS(ilonlen,ilatlen,ilevlen))
+ALLOCATE (ZQCAMS(ilonlen,ilatlen,ilevlen))
+ALLOCATE (ZPSCAMS(ilonlen,ilatlen))
! transformed a, b :
-ALLOCATE (XA_SV_LS(levlen))
-ALLOCATE (XB_SV_LS(levlen))
+ALLOCATE (XA_SV_LS(ilevlen))
+ALLOCATE (XB_SV_LS(ilevlen))
! meteo var
-ALLOCATE (XT_SV_LS(IIU,IJU,levlen))
-ALLOCATE (XQ_SV_LS(IIU,IJU,levlen,1))
+ALLOCATE (XT_SV_LS(IIU,IJU,ilevlen))
+ALLOCATE (XQ_SV_LS(IIU,IJU,ilevlen,NRR))
ALLOCATE (XPS_SV_LS(IIU,IJU))
ALLOCATE (XZS_SV_LS(IIU,IJU))
! take the orography from ECMWF
XZS_SV_LS(:,:) = XZS_LS(:,:)
! aerosol mr from CAMS or MACC
-ALLOCATE (mmr_dust1(lonlen,latlen,levlen))
-ALLOCATE (mmr_dust2(lonlen,latlen,levlen))
-ALLOCATE (mmr_dust3(lonlen,latlen,levlen))
+ALLOCATE (zmmr_dust1(ilonlen,ilatlen,ilevlen))
+ALLOCATE (zmmr_dust2(ilonlen,ilatlen,ilevlen))
+ALLOCATE (zmmr_dust3(ilonlen,ilatlen,ilevlen))
!
-ALLOCATE (mmr_seasalt1(lonlen,latlen,levlen))
-ALLOCATE (mmr_seasalt2(lonlen,latlen,levlen))
-ALLOCATE (mmr_seasalt3(lonlen,latlen,levlen))
+ALLOCATE (zmmr_seasalt1(ilonlen,ilatlen,ilevlen))
+ALLOCATE (zmmr_seasalt2(ilonlen,ilatlen,ilevlen))
+ALLOCATE (zmmr_seasalt3(ilonlen,ilatlen,ilevlen))
!
-ALLOCATE (mmr_bc_hydrophilic(lonlen,latlen,levlen))
-ALLOCATE (mmr_bc_hydrophobic(lonlen,latlen,levlen))
+ALLOCATE (zmmr_bc_hydrophilic(ilonlen,ilatlen,ilevlen))
+ALLOCATE (zmmr_bc_hydrophobic(ilonlen,ilatlen,ilevlen))
!
-ALLOCATE (mmr_oc_hydrophilic(lonlen,latlen,levlen))
-ALLOCATE (mmr_oc_hydrophobic(lonlen,latlen,levlen))
+ALLOCATE (zmmr_oc_hydrophilic(ilonlen,ilatlen,ilevlen))
+ALLOCATE (zmmr_oc_hydrophobic(ilonlen,ilatlen,ilevlen))
!
-ALLOCATE (mmr_sulfaer(lonlen,latlen,levlen))
+ALLOCATE (zmmr_sulfaer(ilonlen,ilatlen,ilevlen))
!
-ALLOCATE (ZWORK(lonlen,latlen,levlen))
+ALLOCATE (ZWORK(ilonlen,ilatlen,ilevlen))
!
! get values of variables
!
-status = nf90_get_var(ncid, lat_varid, lats(:))
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_var(ncid, lon_varid, lons(:))
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_var(ncid, lev_varid, levs(:))
-if (status /= nf90_noerr) call handle_err(status)
-!!! status = nf90_get_var(ncid, time_varid, time(:))
-!!! if (status /= nf90_noerr) call handle_err(status)
-!!! status = nf90_get_var(ncid, a_varid, a(:))
-!!! if (status /= nf90_noerr) call handle_err(status)
-!!! status = nf90_get_var(ncid, b_varid, b(:))
-!!! if (status /= nf90_noerr) call handle_err(status)
-!!! status = nf90_get_var(ncid, p0_varid, p0)
-!!! if (status /= nf90_noerr) call handle_err(status)
!
! Reference pressure (needed for the vertical interpolation)
!
-!!! XP00_SV_LS = p0
XP00_SV_LS = 101325.0
!
! a and b coefficients (needed for the vertical interpolation)
!
+IF (ilevlen .eq. 60) THEN
XA_SV_LS(:) = (/ 20.000000000, 38.425343000, 63.647804000, 95.636963000, 134.48330700, &
180.58435100, 234.77905300, 298.49578900, 373.97192400, 464.61813400, &
575.65100100, 713.21807900, 883.66052200, 1094.8347170, 1356.4746090, &
@@ -447,126 +321,75 @@ XB_SV_LS(:) = (/ 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.68326861, 0.72878581, 0.77159661, 0.81125343, 0.84737492, &
0.87965691, 0.90788388, 0.93194032, 0.95182151, 0.96764523, &
0.97966272, 0.98827010, 0.99401945, 0.99763012, 1.00000000 /)
-!
-! Read 1 record of lon*lat values, starting at the
-! beginning of the record (the (1, 1, rec=time) element in the netCDF
-! file).
-count2d(1) = lonlen
-count2d(2) = latlen
-count2d(3) = 1
-start2d(1) = 1
-start2d(2) = 1
-start2d(3) = 1
-!
-! Read 1 record of lon*lat*lev values, starting at the
-! beginning of the record (the (1, 1, 1, rec=time) element in the netCDF
-! file).
-count3d(1) = lonlen
-count3d(2) = latlen
-count3d(3) = levlen
-count3d(4) = 1
-start3d(1) = 1
-start3d(2) = 1
-start3d(3) = 1
-start3d(4) = 1
-!
-! Temperature and spec. hum. (needed for the vertical interpolation)
-!
-status = nf90_get_var(ncid, t_varid, ZTCAM(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, t_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, t_varid, "add_offset", offset)
-ZTCAM(:,:,:) = offset + scale * ZTCAM(:,:,:)
-!
-status = nf90_get_var(ncid, q_varid, ZQCAM(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, q_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, q_varid, "add_offset", offset)
-ZQCAM(:,:,:) = offset + scale * ZQCAM(:,:,:)
-!
-status = nf90_get_var(ncid, ps_varid, ZPSCAM(:,:), start=start2d, count=count2d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, ps_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, ps_varid, "add_offset", offset)
-ZPSCAM(:,:) = offset + scale * ZPSCAM(:,:)
-!ZPSCAM(:,:) = EXP( ZPSCAM(:,:) )
-!
-! Aerosol concentrations
-!
-status = nf90_get_var(ncid, mmr_dust1_varid, mmr_dust1(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_dust1_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_dust1_varid, "add_offset", offset)
-mmr_dust1(:,:,:) = offset + scale * mmr_dust1(:,:,:)
-!
-status = nf90_get_var(ncid, mmr_dust2_varid, mmr_dust2(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_dust2_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_dust2_varid, "add_offset", offset)
-mmr_dust2(:,:,:) = offset + scale * mmr_dust2(:,:,:)
-!
-status = nf90_get_var(ncid, mmr_dust3_varid, mmr_dust3(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_dust3_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_dust3_varid, "add_offset", offset)
-mmr_dust3(:,:,:) = offset + scale * mmr_dust3(:,:,:)
-!
-!
-status = nf90_get_var(ncid, mmr_seasalt1_varid, mmr_seasalt1(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_seasalt1_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_seasalt1_varid, "add_offset", offset)
-mmr_seasalt1(:,:,:) = offset + scale * mmr_seasalt1(:,:,:)
-!
-status = nf90_get_var(ncid, mmr_seasalt2_varid, mmr_seasalt2(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_seasalt2_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_seasalt2_varid, "add_offset", offset)
-mmr_seasalt2(:,:,:) = offset + scale * mmr_seasalt2(:,:,:)
-!
-status = nf90_get_var(ncid, mmr_seasalt3_varid, mmr_seasalt3(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_seasalt3_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_seasalt3_varid, "add_offset", offset)
-mmr_seasalt3(:,:,:) = offset + scale * mmr_seasalt3(:,:,:)
-!
-!
-status = nf90_get_var(ncid, mmr_bc_hydrophilic_varid, mmr_bc_hydrophilic(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_bc_hydrophilic_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_bc_hydrophilic_varid, "add_offset", offset)
-mmr_bc_hydrophilic(:,:,:) = offset + scale * mmr_bc_hydrophilic(:,:,:)
-!
-status = nf90_get_var(ncid, mmr_bc_hydrophobic_varid, mmr_bc_hydrophobic(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_bc_hydrophobic_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_bc_hydrophobic_varid, "add_offset", offset)
-mmr_bc_hydrophobic(:,:,:) = offset + scale * mmr_bc_hydrophobic(:,:,:)
-!
-!
-status = nf90_get_var(ncid, mmr_oc_hydrophilic_varid, mmr_oc_hydrophilic(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_oc_hydrophilic_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_oc_hydrophilic_varid, "add_offset", offset)
-mmr_oc_hydrophilic(:,:,:) = offset + scale * mmr_oc_hydrophilic(:,:,:)
-!
-status = nf90_get_var(ncid, mmr_oc_hydrophobic_varid, mmr_oc_hydrophobic(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_oc_hydrophobic_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_oc_hydrophobic_varid, "add_offset", offset)
-mmr_oc_hydrophobic(:,:,:) = offset + scale * mmr_oc_hydrophobic(:,:,:)
-!
-!
-status = nf90_get_var(ncid, mmr_sulfaer_varid, mmr_sulfaer(:,:,:), start=start3d, count=count3d)
-if (status /= nf90_noerr) call handle_err(status)
-status = nf90_get_att(ncid, mmr_sulfaer_varid, "scale_factor", scale)
-status = nf90_get_att(ncid, mmr_sulfaer_varid, "add_offset", offset)
-mmr_sulfaer(:,:,:) = offset + scale * mmr_sulfaer(:,:,:)
-!
-!--------------------------------------------------------------
-!
-!* 3 Conversion of MACC or CAMS variables into LIMA variables
-! ------------------------------------------------
+
+ELSE IF (ilevlen .eq. 137) THEN
+
+XA_SV_LS(:) = (/ &
+2.000365 , 3.102241 , 4.666084 , 6.827977 , 9.746966 , 13.605424 , 18.608931 , 24.985718 , &
+32.985710 , 42.879242 , 54.955463 , 69.520576 , 86.895882 , 107.415741 , 131.425507 , 159.279404 , &
+191.338562 , 227.968948 , 269.539581 , 316.420746 , 368.982361 , 427.592499 , 492.616028 , 564.413452 , &
+643.339905 , 729.744141 , 823.967834 , 926.344910 , 1037.201172 , 1156.853638 , 1285.610352 , 1423.770142 , &
+1571.622925 , 1729.448975 , 1897.519287 , 2076.095947 , 2265.431641 , 2465.770508 , 2677.348145 , 2900.391357 , &
+3135.119385 , 3381.743652 , 3640.468262 , 3911.490479 , 4194.930664 , 4490.817383 , 4799.149414 , 5119.895020 , &
+5452.990723 , 5798.344727 , 6156.074219 , 6526.946777 , 6911.870605 , 7311.869141 , 7727.412109 , 8159.354004 , &
+8608.525391 , 9076.400391 , 9562.682617 , 10065.978516 , 10584.631836 , 11116.662109 , 11660.067383 , 12211.547852 , &
+12766.873047 , 13324.668945 , 13881.331055 , 14432.139648 , 14975.615234 , 15508.256836 , 16026.115234 , 16527.322266 , &
+17008.789063 , 17467.613281 , 17901.621094 , 18308.433594 , 18685.718750 , 19031.289063 , 19343.511719 , 19620.042969 , &
+19859.390625 , 20059.931641 , 20219.664063 , 20337.863281 , 20412.308594 , 20442.078125 , 20425.718750 , 20361.816406 , &
+20249.511719 , 20087.085938 , 19874.025391 , 19608.572266 , 19290.226563 , 18917.460938 , 18489.707031 , 18006.925781 , &
+17471.839844 , 16888.687500 , 16262.046875 , 15596.695313 , 14898.453125 , 14173.324219 , 13427.769531 , 12668.257813 , &
+11901.339844 , 11133.304688 , 10370.175781 , 9617.515625 , 8880.453125 , 8163.375000 , 7470.343750 , 6804.421875 , &
+6168.531250 , 5564.382813 , 4993.796875 , 4457.375000 , 3955.960938 , 3489.234375 , 3057.265625 , 2659.140625 , &
+2294.242188 , 1961.500000 , 1659.476563 , 1387.546875 , 1143.250000 , 926.507813 , 734.992188 , 568.062500 , &
+424.414063 , 302.476563 , 202.484375 , 122.101563 , 62.781250 , 22.835938 , 3.757813 , 0.000000 , 0.000000 /)
+
+XA_SV_LS(:) = XA_SV_LS(:) / XP00_SV_LS
+
+XB_SV_LS(:) = (/ &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , &
+0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000000 , 0.000007 , 0.000024 , &
+0.000059 , 0.000112 , 0.000199 , 0.000340 , 0.000562 , 0.000890 , 0.001353 , 0.001992 , &
+0.002857 , 0.003971 , 0.005378 , 0.007133 , 0.009261 , 0.011806 , 0.014816 , 0.018318 , &
+0.022355 , 0.026964 , 0.032176 , 0.038026 , 0.044548 , 0.051773 , 0.059728 , 0.068448 , &
+0.077958 , 0.088286 , 0.099462 , 0.111505 , 0.124448 , 0.138313 , 0.153125 , 0.168910 , &
+0.185689 , 0.203491 , 0.222333 , 0.242244 , 0.263242 , 0.285354 , 0.308598 , 0.332939 , &
+0.358254 , 0.384363 , 0.411125 , 0.438391 , 0.466003 , 0.493800 , 0.521619 , 0.549301 , &
+0.576692 , 0.603648 , 0.630036 , 0.655736 , 0.680643 , 0.704669 , 0.727739 , 0.749797 , &
+0.770798 , 0.790717 , 0.809536 , 0.827256 , 0.843881 , 0.859432 , 0.873929 , 0.887408 , &
+0.899900 , 0.911448 , 0.922096 , 0.931881 , 0.940860 , 0.949064 , 0.956550 , 0.963352 , &
+0.969513 , 0.975078 , 0.980072 , 0.984542 , 0.988500 , 0.991984 , 0.995003 , 0.997630 , 1.000000 /)
+
+END IF
+
+CALL READ_VAR_1D(incid,"latitude",ilatlen,zlats)
+CALL READ_VAR_1D(incid,"longitude",ilonlen,zlons)
+CALL READ_VAR_1D(incid,"level",ilevlen,zlevs)
+
+CALL READ_VAR_2D(incid,"sp",ilonlen,ilatlen,ZPSCAMS)
+
+CALL READ_VAR_3D(incid,"t",ilonlen,ilatlen,ilevlen,ZTCAMS)
+CALL READ_VAR_3D(incid,"q",ilonlen,ilatlen,ilevlen,ZQCAMS)
+
+CALL READ_VAR_3D(incid,"aermr01",ilonlen,ilatlen,ilevlen,zmmr_seasalt1)
+CALL READ_VAR_3D(incid,"aermr02",ilonlen,ilatlen,ilevlen,zmmr_seasalt2)
+CALL READ_VAR_3D(incid,"aermr03",ilonlen,ilatlen,ilevlen,zmmr_seasalt3)
+CALL READ_VAR_3D(incid,"aermr04",ilonlen,ilatlen,ilevlen,zmmr_dust1)
+CALL READ_VAR_3D(incid,"aermr05",ilonlen,ilatlen,ilevlen,zmmr_dust2)
+CALL READ_VAR_3D(incid,"aermr06",ilonlen,ilatlen,ilevlen,zmmr_dust3)
+CALL READ_VAR_3D(incid,"aermr07",ilonlen,ilatlen,ilevlen,zmmr_oc_hydrophobic)
+CALL READ_VAR_3D(incid,"aermr08",ilonlen,ilatlen,ilevlen,zmmr_oc_hydrophilic)
+CALL READ_VAR_3D(incid,"aermr09",ilonlen,ilatlen,ilevlen,zmmr_bc_hydrophobic)
+CALL READ_VAR_3D(incid,"aermr10",ilonlen,ilatlen,ilevlen,zmmr_bc_hydrophilic)
+CALL READ_VAR_3D(incid,"aermr11",ilonlen,ilatlen,ilevlen,zmmr_sulfaer)
+!
+!------------------------------------------------------------------------
+!* 3 Conversion of CAMS variables into LIMA variables
+!---------------------------------------------------------------------
!
! initialise NSV_* variables
! cas simple : 3 modes de CCN (dont 1 actif par immersion), 2 modes IFN
@@ -580,6 +403,7 @@ mmr_sulfaer(:,:,:) = offset + scale * mmr_sulfaer(:,:,:)
!
! Concentrations en nombre par kilo !
!
+!
CCLOUD='LIMA'
NMOD_CCN=3
LSCAV=.FALSE.
@@ -591,10 +415,11 @@ HINI_CCN='AER'
HTYPE_CCN(1)='M'
HTYPE_CCN(2)='C'
HTYPE_CCN(3)='C'
-!
-! 3.1 initialize lima sv var.
+CCCN_MODES='CAMS_AIT'
+CIFN_SPECIES='CAMS_AIT'
!
! Always initialize chemical scheme variables before INI_NSV call !
+!
CALL CH_INIT_SCHEME_n(IMI,LUSECHAQ,LUSECHIC,LCH_PH,ILUOUT0,KVERB)
IF (LORILAM) THEN
CORGANIC = "MPMPO"
@@ -603,267 +428,159 @@ IF (LORILAM) THEN
CALL CH_AER_INIT_SOA(ILUOUT0, KVERB)
END IF
!
-CALL INI_NSV(1)
-DEALLOCATE(XSV_LS_LIMA)
-ALLOCATE (XSV_LS_LIMA(IIU,IJU,levlen,NSV))
+CALL INI_NSV(IMI)
+ALLOCATE (XSV_LS_LIMA(IIU,IJU,ilevlen,NSV))
XSV_LS_LIMA(:,:,:,:) = 0.
!
-ALLOCATE(NINDICE_CCN_IMM(1))
NINDICE_CCN_IMM(1)=3
!
! Define work arrays
!
-ALLOCATE(ZVALUE(levlen,KILEN))
-ALLOCATE(ZVALUE1D(KILEN))
-ALLOCATE(ZOUT(levlen,INO))
-ALLOCATE(ZOUT1D(INO))
-!
where (ZLONOUT(:) < 0.) ZLONOUT(:) = ZLONOUT(:) + 360. ! correct longitudes
!
!
-! 3.2 Select CAMS/MACC mixing ratios and perform the horizontal interpolation
+! Select CAMS mixing ratios
+! and perform the horizontal interpolation
!
! Free CCN concentration (mode 1)
!
-ZWORK(:,:,:)=mmr_seasalt1(:,:,:)+mmr_seasalt2(:,:,:)+mmr_seasalt3(:,:,:)
-!!! ZWORK(:,:,:)=mmr_seasalt2(:,:,:)
-!!!JPP ZWORK(:,:,:)=ZWORK(:,:,:)*1.E18/3620.
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZWORK(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XSV_LS_LIMA(:,:,JK,NSV_LIMA_CCN_FREE))
-ENDDO
+ZWORK(:,:,:)=zmmr_seasalt1(:,:,:)+zmmr_seasalt2(:,:,:)+zmmr_seasalt3(:,:,:)
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZWORK,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI, &
+ XSV_LS_LIMA(:,:,:,NSV_LIMA_CCN_FREE))
!
! Free CCN concentration (mode 2)
!
-!!!JPP ZWORK(:,:,:)=mmr_sulfaer(:,:,:)*1.E18/345
-ZWORK(:,:,:)=mmr_sulfaer(:,:,:)
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZWORK(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XSV_LS_LIMA(:,:,JK,NSV_LIMA_CCN_FREE + 1))
-ENDDO
+ZWORK(:,:,:)=zmmr_sulfaer(:,:,:)
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZWORK,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI, &
+ XSV_LS_LIMA(:,:,:,NSV_LIMA_CCN_FREE + 1))
!
! Free CCN concentration (mode 3, IMM)
!
-!!!JPP ZWORK(:,:,:)=mmr_bc_hydrophilic(:,:,:)*1.E18/20.
-!!!JPP ZWORK(:,:,:)=ZWORK(:,:,:) + mmr_oc_hydrophilic(:,:,:)*1.E18/16.
-ZWORK(:,:,:)=mmr_bc_hydrophilic(:,:,:)+mmr_oc_hydrophilic(:,:,:)
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZWORK(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XSV_LS_LIMA(:,:,JK,NSV_LIMA_CCN_FREE + 2))
-ENDDO
+ZWORK(:,:,:)=zmmr_bc_hydrophilic(:,:,:)+zmmr_oc_hydrophilic(:,:,:)
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZWORK,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI, &
+ XSV_LS_LIMA(:,:,:,NSV_LIMA_CCN_FREE + 2))
!
! Free IFN concentration (mode 1)
!
-!!!JPP ZWORK(:,:,:)=mmr_dust2(:,:,:)*1.E18/(1204.*0.58)
-!!!JPP ZWORK2(:,:,:)=max(0.,(mmr_dust3(:,:,:)*1.E18/1204.-2.4*ZWORK(:,:,:))/70.)
-ZWORK(:,:,:)=mmr_dust1(:,:,:) + mmr_dust2(:,:,:) + mmr_dust3(:,:,:)
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZWORK(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XSV_LS_LIMA(:,:,JK,NSV_LIMA_IFN_FREE))
-ENDDO
+ZWORK(:,:,:)=zmmr_dust1(:,:,:) + zmmr_dust2(:,:,:) + zmmr_dust3(:,:,:)
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZWORK,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI, &
+ XSV_LS_LIMA(:,:,:,NSV_LIMA_IFN_FREE))
!
! Free IFN concentration (mode 2)
!
-!!!JPP ZWORK(:,:,:)=mmr_bc_hydrophobic(:,:,:)*1.E18/20.
-!!!JPP ZWORK(:,:,:)=ZWORK(:,:,:) + mmr_oc_hydrophobic(:,:,:)*1.E18/16.
-ZWORK(:,:,:)=mmr_bc_hydrophobic(:,:,:)+mmr_oc_hydrophobic(:,:,:)
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZWORK(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XSV_LS_LIMA(:,:,JK,NSV_LIMA_IFN_FREE + 1))
-ENDDO
-!
-! 3.3 Meteo ver. perform the horizontal interpolation
+ZWORK(:,:,:)=zmmr_bc_hydrophobic(:,:,:)+zmmr_oc_hydrophobic(:,:,:)
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZWORK,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI, &
+ XSV_LS_LIMA(:,:,:,NSV_LIMA_IFN_FREE + 1))
!
! Temperature (needed for the vertical interpolation)
!
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZTCAM(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XT_SV_LS(:,:,JK))
-ENDDO ! levlen
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZTCAMS,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI,XT_SV_LS)
!
! Spec. Humidity (needed for the vertical interpolation)
!
-DO JK = 1, levlen
- JLOOP1 = 0
- DO JJ = 1, latlen
- ZVALUE(JK,JLOOP1+1:JLOOP1+lonlen) = ZQCAM(1:lonlen,JJ,JK)
- JLOOP1 = JLOOP1 + lonlen
- ENDDO
- CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE(JK,:),INO,ZLONOUT,ZLATOUT, &
- ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
- CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,XQ_SV_LS(:,:,JK,1))
-ENDDO ! levlen
+CALL INTERP_3D (ilonlen,ilatlen,ilevlen,ZQCAMS,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI,XQ_SV_LS(:,:,:,1))
!
! Surface pressure (needed for the vertical interpolation)
!
-JLOOP1 = 0
-DO JJ = 1, latlen
- ZVALUE1D(JLOOP1+1:JLOOP1+lonlen) = ZPSCAM(1:lonlen,JJ)
- JLOOP1 = JLOOP1 + lonlen
-ENDDO
-CALL HORIBL(lats(1),lons(1),lats(latlen),lons(lonlen), &
- latlen,kinlo,KILEN, &
- ZVALUE1D(:),INO,ZLONOUT,ZLATOUT, &
- ZOUT1D(:),.FALSE.,PTIME_HORI,.TRUE. )
-CALL ARRAY_1D_TO_2D(INO,ZOUT1D(:),IIU,IJU,XPS_SV_LS(:,:))
+CALL INTERP_2D (ilonlen,ilatlen,ZPSCAMS,zlats,zlons,IIU,IJU,ZLATOUT,ZLONOUT,PTIME_HORI,XPS_SV_LS)
!
-! 3.4 Correct negative values produced by the horizontal interpolations
+! Correct negative values produced by the horizontal interpolations
!
XSV_LS_LIMA(:,:,:,:) = MAX(XSV_LS_LIMA(:,:,:,:),0.)
XPS_SV_LS(:,:) = MAX(XPS_SV_LS(:,:),0.)
XT_SV_LS(:,:,:) = MAX(XT_SV_LS(:,:,:),0.)
XQ_SV_LS(:,:,:,1) = MAX(XQ_SV_LS(:,:,:,1),0.)
!
-! 3.5 If Netcdf vertical levels have to be reversed :
+! If Netcdf vertical levels have to be reversed :
!
-ALLOCATE(TMP1(levlen))
-ALLOCATE(TMP2(levlen))
-ALLOCATE(TMP3(IIU,IJU,levlen))
-ALLOCATE(TMP4(IIU,IJU,levlen,NRR))
-ALLOCATE(TMP5(IIU,IJU,levlen,NSV))
-DO JJ=1,levlen
+ALLOCATE(ZTMP1(ilevlen))
+ALLOCATE(ZTMP2(ilevlen))
+ALLOCATE(ZTMP3(IIU,IJU,ilevlen))
+ALLOCATE(ZTMP4(IIU,IJU,ilevlen,NRR))
+ALLOCATE(ZTMP5(IIU,IJU,ilevlen,NSV))
+DO JJ=1,ilevlen
! inv. lev
- TMP1(JJ) = XA_SV_LS(levlen+1-JJ)
- TMP2(JJ) = XB_SV_LS(levlen+1-JJ)
- TMP3(:,:,JJ) = XT_SV_LS(:,:,levlen+1-JJ)
- TMP4(:,:,JJ,:) = XQ_SV_LS(:,:,levlen+1-JJ,:)
- TMP5(:,:,JJ,:) = XSV_LS(:,:,levlen+1-JJ,:)
+ ZTMP1(JJ) = XA_SV_LS(ilevlen+1-JJ)
+ ZTMP2(JJ) = XB_SV_LS(ilevlen+1-JJ)
+ ZTMP3(:,:,JJ) = XT_SV_LS(:,:,ilevlen+1-JJ)
+ ZTMP4(:,:,JJ,1) = XQ_SV_LS(:,:,ilevlen+1-JJ,1)
+ ZTMP5(:,:,JJ,:) = XSV_LS_LIMA(:,:,ilevlen+1-JJ,:)
ENDDO
-XA_SV_LS(:) = TMP1(:)
-XB_SV_LS(:) = TMP2(:)
-XT_SV_LS(:,:,:) = TMP3(:,:,:)
-XQ_SV_LS(:,:,:,:) = TMP4(:,:,:,:)
-XSV_LS(:,:,:,:) = TMP5(:,:,:,:)
-DEALLOCATE(TMP1)
-DEALLOCATE(TMP2)
-DEALLOCATE(TMP3)
-DEALLOCATE(TMP4)
-DEALLOCATE(TMP5)
-!
-! 3.6 close the netcdf file
-!
-status = nf90_close(ncid)
-if (status /= nf90_noerr) call handle_err(status)
-!
-DEALLOCATE (ZVALUE)
-DEALLOCATE (ZOUT)
-!!
+XA_SV_LS(:) = ZTMP1(:)
+XB_SV_LS(:) = ZTMP2(:)
+XT_SV_LS(:,:,:) = ZTMP3(:,:,:)
+XQ_SV_LS(:,:,:,1) = ZTMP4(:,:,:,1)
+XSV_LS_LIMA(:,:,:,:) = ZTMP5(:,:,:,:)
+DEALLOCATE(ZTMP1)
+DEALLOCATE(ZTMP2)
+DEALLOCATE(ZTMP3)
+DEALLOCATE(ZTMP4)
+DEALLOCATE(ZTMP5)
+!
+! close the netcdf file
+istatus = nf90_close(incid)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+!
!-------------------------------------------------------------
!
!* 4. VERTICAL GRID
-! -------------
!
-! 4.1 Read VERTICAL GRID
+!* 4.1 Read VERTICAL GRID
!
WRITE (ILUOUT0,'(A)') ' | Reading of vertical grid in progress'
CALL READ_VER_GRID(TPPRE_REAL1)
!
!--------------------------------------------------------------
!
-! 5. Free all temporary allocations
-! ------------------------------
+!* Free all temporary allocations
!
DEALLOCATE (ZLATOUT)
DEALLOCATE (ZLONOUT)
-DEALLOCATE (count3d)
-DEALLOCATE (start3d)
-DEALLOCATE (count2d)
-DEALLOCATE (start2d)
-!
-DEALLOCATE (lats)
-DEALLOCATE (lons)
-DEALLOCATE (levs)
-!DEALLOCATE (time)
-!DEALLOCATE (a)
-!DEALLOCATE (b)
+!
+DEALLOCATE (zlats)
+DEALLOCATE (zlons)
+DEALLOCATE (zlevs)
! ps, T, Q :
-DEALLOCATE (ZPSCAM)
-DEALLOCATE (ZTCAM)
-DEALLOCATE (ZQCAM)
+DEALLOCATE (ZPSCAMS)
+DEALLOCATE (ZTCAMS)
+DEALLOCATE (ZQCAMS)
!
-DEALLOCATE (mmr_dust1)
-DEALLOCATE (mmr_dust2)
-DEALLOCATE (mmr_dust3)
+DEALLOCATE (zmmr_dust1)
+DEALLOCATE (zmmr_dust2)
+DEALLOCATE (zmmr_dust3)
!
-DEALLOCATE (mmr_seasalt1)
-DEALLOCATE (mmr_seasalt2)
-DEALLOCATE (mmr_seasalt3)
+DEALLOCATE (zmmr_seasalt1)
+DEALLOCATE (zmmr_seasalt2)
+DEALLOCATE (zmmr_seasalt3)
!
-DEALLOCATE (mmr_bc_hydrophilic)
-DEALLOCATE (mmr_bc_hydrophobic)
+DEALLOCATE (zmmr_bc_hydrophilic)
+DEALLOCATE (zmmr_bc_hydrophobic)
!
-DEALLOCATE (mmr_oc_hydrophilic)
-DEALLOCATE (mmr_oc_hydrophobic)
+DEALLOCATE (zmmr_oc_hydrophilic)
+DEALLOCATE (zmmr_oc_hydrophobic)
!
-DEALLOCATE (mmr_sulfaer)
+DEALLOCATE (zmmr_sulfaer)
!
DEALLOCATE (ZWORK)
!
WRITE (ILUOUT0,'(A,A4,A)') ' -- netcdf decoder for ',HFILE,' file ended successfully'
-WRITE (ILUOUT0,'(A,A4,A)') 'MACC mixing ratios are interpolated horizontally'
+WRITE (ILUOUT0,'(A,A4,A)') 'CAMS mixing ratios are interpolated horizontally'
!
!
CONTAINS
!
-! #############################
- SUBROUTINE HANDLE_ERR(STATUS)
-! #############################
- INTEGER(KIND=CDFINT) STATUS
- IF (STATUS .NE. NF90_NOERR) THEN
- PRINT *, NF90_STRERROR(STATUS)
- STOP 'Stopped'
- ENDIF
- END SUBROUTINE HANDLE_ERR
+! #############################
+ subroutine handle_err(istatus)
+! #############################
+ use mode_msg
+
+ integer(kind=CDFINT) istatus
+
+ if ( istatus /= NF90_NOERR ) then
+ call Print_msg( NVERB_FATAL, 'IO', 'HANDLE_ERR', NF90_STRERROR(istatus) )
+ end if
+
+ end subroutine handle_err
!
!
! #############################################
@@ -895,4 +612,200 @@ DO JLOOP2_A1T2 = 1, KL2
END DO
END SUBROUTINE ARRAY_1D_TO_2D
!
+! #############################################
+ SUBROUTINE READ_DIM (file,name,output)
+! #############################################
+!
+! Small routine used to store a linear array into a 2 dimension array
+!
+IMPLICIT NONE
+INTEGER(kind=CDFINT), INTENT(IN) :: file
+CHARACTER(*), INTENT(IN) :: name
+INTEGER, INTENT(OUT) :: output
+!
+INTEGER(kind=CDFINT) :: ilen
+INTEGER(kind=CDFINT) :: istatus, index
+!
+istatus = nf90_inq_dimid(file, name, index)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+istatus = nf90_inquire_dimension(file, index, len=ilen)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+!
+output = ilen
+!
+END SUBROUTINE READ_DIM
+!
+! #############################################
+ SUBROUTINE READ_VAR_1D (file,name,size,output)
+! #############################################
+!
+! Small routine used to store a linear array into a 2 dimension array
+!
+IMPLICIT NONE
+INTEGER(kind=CDFINT), INTENT(IN) :: file
+CHARACTER(*), INTENT(IN) :: name
+INTEGER, INTENT(IN) :: size
+REAL, DIMENSION(size), INTENT(INOUT) :: output
+!
+INTEGER(kind=CDFINT) :: istatus, index
+!
+istatus = nf90_inq_varid(file, name, index)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+istatus = nf90_get_var(file, index, output)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+!
+END SUBROUTINE READ_VAR_1D
+!
+! #############################################
+ SUBROUTINE READ_VAR_2D (file,name,size_lon,size_lat,output)
+! #############################################
+!
+! Small routine used to store a linear array into a 2 dimension array
+!
+IMPLICIT NONE
+INTEGER(kind=CDFINT), INTENT(IN) :: file
+CHARACTER(*), INTENT(IN) :: name
+INTEGER, INTENT(IN) :: size_lon
+INTEGER, INTENT(IN) :: size_lat
+REAL, DIMENSION(size_lon,size_lat), INTENT(INOUT) :: output
+!
+INTEGER(kind=CDFINT) :: istatus, index
+REAL :: scale, offset
+INTEGER,DIMENSION(4) :: s, c
+!
+s(:)=1
+c(1)=size_lon
+c(2)=size_lat
+c(3)=1
+c(4)=1
+istatus = nf90_inq_varid(file, name, index)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+istatus = nf90_get_var(file, index, output)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+istatus = nf90_get_att(file, index, "scale_factor", scale)
+istatus = nf90_get_att(file, index, "add_offset", offset)
+output = offset + scale * output
+!
+END SUBROUTINE READ_VAR_2D
+!
+! #############################################
+ SUBROUTINE READ_VAR_3D (file,name,size_lon,size_lat,size_lev,output)
+! #############################################
+!
+! Small routine used to store a linear array into a 2 dimension array
+!
+IMPLICIT NONE
+INTEGER(kind=CDFINT), INTENT(IN) :: file
+CHARACTER(*), INTENT(IN) :: name
+INTEGER, INTENT(IN) :: size_lon
+INTEGER, INTENT(IN) :: size_lat
+INTEGER, INTENT(IN) :: size_lev
+REAL, DIMENSION(size_lon,size_lat,size_lev), INTENT(INOUT) :: output
+!
+INTEGER(kind=CDFINT) :: istatus, index
+REAL :: scale, offset
+INTEGER(kind=CDFINT),DIMENSION(4) :: s, c
+!
+s(:)=1
+c(1)=size_lon
+c(2)=size_lat
+c(3)=size_lev
+c(4)=1
+istatus = nf90_inq_varid(file, name, index)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+istatus = nf90_get_var(file, index, output,start=s,count=c)
+if (istatus /= nf90_noerr) call handle_err(istatus)
+istatus = nf90_get_att(file, index, "scale_factor", scale)
+istatus = nf90_get_att(file, index, "add_offset", offset)
+output = offset + scale * output
+!
+END SUBROUTINE READ_VAR_3D
+!
+! #############################################
+ SUBROUTINE INTERP_2D (size_lon,size_lat,input,zlats,zlons,IIU,IJU,PLATOUT,PLONOUT,PTIME_HORI,output)
+! #############################################
+!
+! Small routine used to store a linear array into a 2 dimension array
+!
+IMPLICIT NONE
+!
+INTEGER, INTENT(IN) :: size_lon
+INTEGER, INTENT(IN) :: size_lat
+REAL, DIMENSION(size_lon,size_lat), INTENT(IN) :: input
+REAL, DIMENSION(size_lat), INTENT(IN) :: zlats
+REAL, DIMENSION(size_lon), INTENT(IN) :: zlons
+INTEGER, INTENT(IN) :: IIU
+INTEGER, INTENT(IN) :: IJU
+REAL, DIMENSION(IIU*IJU), INTENT(IN) :: PLATOUT
+REAL, DIMENSION(IIU*IJU), INTENT(IN) :: PLONOUT
+REAL, INTENT(INOUT) :: PTIME_HORI
+REAL, DIMENSION(IIU,IJU), INTENT(INOUT) :: output
+!
+INTEGER :: JLOOP1, JJ, INO
+REAL, DIMENSION(size_lat*size_lon) :: ZVALUE
+REAL, DIMENSION(IIU*IJU) :: ZOUT
+INTEGER, DIMENSION(size_lat) :: kinlo
+INTEGER :: KILEN
+!
+kinlo(:)=size_lon
+KILEN=size_lat*size_lon
+INO=IIU*IJU
+JLOOP1 = 0
+DO JJ = 1, size_lat
+ ZVALUE(JLOOP1+1:JLOOP1+size_lon) = input(1:size_lon,JJ)
+ JLOOP1 = JLOOP1 + size_lon
+ENDDO
+CALL HORIBL(zlats(1),zlons(1),zlats(size_lat),zlons(size_lon), &
+ size_lat,kinlo,KILEN, &
+ ZVALUE(:),INO,PLONOUT,PLATOUT, &
+ ZOUT(:),.FALSE.,PTIME_HORI,.TRUE. )
+CALL ARRAY_1D_TO_2D(INO,ZOUT(:),IIU,IJU,output(:,:))
+!
+END SUBROUTINE INTERP_2D
+!
+! #############################################
+ SUBROUTINE INTERP_3D (size_lon,size_lat,size_lev,input,zlats,zlons,IIU,IJU,PLATOUT,PLONOUT,PTIME_HORI,output)
+! #############################################
+!
+! Small routine used to store a linear array into a 2 dimension array
+!
+IMPLICIT NONE
+!
+INTEGER, INTENT(IN) :: size_lon
+INTEGER, INTENT(IN) :: size_lat
+INTEGER, INTENT(IN) :: size_lev
+REAL, DIMENSION(size_lon,size_lat,size_lev), INTENT(IN) :: input
+REAL, DIMENSION(size_lat), INTENT(IN) :: zlats
+REAL, DIMENSION(size_lon), INTENT(IN) :: zlons
+INTEGER, INTENT(IN) :: IIU
+INTEGER, INTENT(IN) :: IJU
+REAL, DIMENSION(IIU*IJU), INTENT(IN) :: PLATOUT
+REAL, DIMENSION(IIU*IJU), INTENT(IN) :: PLONOUT
+REAL, INTENT(INOUT) :: PTIME_HORI
+REAL, DIMENSION(IIU,IJU,size_lev), INTENT(INOUT) :: output
+!
+INTEGER :: JLOOP1, JJ, JK, INO
+REAL, DIMENSION(size_lev,size_lat*size_lon) :: ZVALUE
+REAL, DIMENSION(size_lev,IIU*IJU) :: ZOUT
+INTEGER, DIMENSION(size_lat) :: kinlo
+INTEGER :: KILEN
+!
+kinlo(:)=size_lon
+KILEN=size_lat*size_lon
+INO=IIU*IJU
+DO JK = 1, ilevlen
+ JLOOP1 = 0
+ DO JJ = 1, size_lat
+ ZVALUE(JK,JLOOP1+1:JLOOP1+size_lon) = input(1:size_lon,JJ,JK)
+ JLOOP1 = JLOOP1 + size_lon
+ ENDDO
+ CALL HORIBL(zlats(1),zlons(1),zlats(size_lat),zlons(size_lon), &
+ size_lat,kinlo,KILEN, &
+ ZVALUE(JK,:),INO,PLONOUT,PLATOUT, &
+ ZOUT(JK,:),.FALSE.,PTIME_HORI,.TRUE. )
+ CALL ARRAY_1D_TO_2D(INO,ZOUT(JK,:),IIU,IJU,output(:,:,JK))
+ENDDO
+!
+END SUBROUTINE INTERP_3D
+!
END SUBROUTINE READ_LIMA_DATA_NETCDF_CASE
diff --git a/src/MNH/read_precip_field.f90 b/src/MNH/read_precip_field.f90
index b8181b6d34e99287c1569e7c0265bb73d4d0904c..0946c03a882fbcf524a7f2b76846cfb4400c879f 100644
--- a/src/MNH/read_precip_field.f90
+++ b/src/MNH/read_precip_field.f90
@@ -186,7 +186,7 @@ IF (SIZE(PINPRC) /= 0 ) THEN
END SELECT
END IF
!
-IF (SIZE(PINPRC) /= 0 .AND. (LDEPOSC .OR. LDEPOC .OR. MDEPOC) ) THEN
+IF (SIZE(PINDEP) /= 0 ) THEN
SELECT CASE(YGETRCT)
CASE ('READ')
CALL FIND_FIELD_ID_FROM_MNHNAME('INDEP',IID,IRESP)
diff --git a/src/MNH/read_xker_raccs.f90 b/src/MNH/read_xker_raccs.f90
index c7a7253cc263cb76fb442dc9a0b72794033e3d62..c11834dd3c91c06bd16995c161b0b993f0fb512a 100644
--- a/src/MNH/read_xker_raccs.f90
+++ b/src/MNH/read_xker_raccs.f90
@@ -14,7 +14,7 @@
!
INTERFACE
SUBROUTINE READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
!
@@ -28,6 +28,7 @@ REAL, INTENT(OUT) :: PBS
REAL, INTENT(OUT) :: PBR
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PCR
REAL, INTENT(OUT) :: PDR
REAL, INTENT(OUT) :: PACCLBDAS_MAX
@@ -46,7 +47,7 @@ END INTERFACE
END MODULE MODI_READ_XKER_RACCS
! ##########################################################################
SUBROUTINE READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
! ##########################################################################
@@ -103,6 +104,7 @@ REAL, INTENT(OUT) :: PBS
REAL, INTENT(OUT) :: PBR
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PCR
REAL, INTENT(OUT) :: PDR
REAL, INTENT(OUT) :: PACCLBDAS_MAX
@@ -128,8 +130,9 @@ PNUR= 0.100000E+01
PESR= 0.100000E+01
PBS= 0.190000E+01
PBR= 0.300000E+01
-PCS= 0.510000E+01
+PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PCR= 0.842000E+03
PDR= 0.800000E+00
PACCLBDAS_MAX= 0.500000E+06
@@ -139,1446 +142,1446 @@ PACCLBDAR_MIN= 0.100000E+04
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_RACCSS) ) THEN
- PKER_RACCSS( 1, 1) = 0.778513E+01
- PKER_RACCSS( 1, 2) = 0.611693E+01
- PKER_RACCSS( 1, 3) = 0.469673E+01
- PKER_RACCSS( 1, 4) = 0.351291E+01
- PKER_RACCSS( 1, 5) = 0.255165E+01
- PKER_RACCSS( 1, 6) = 0.180370E+01
- PKER_RACCSS( 1, 7) = 0.126294E+01
- PKER_RACCSS( 1, 8) = 0.924202E+00
- PKER_RACCSS( 1, 9) = 0.775231E+00
- PKER_RACCSS( 1, 10) = 0.787292E+00
- PKER_RACCSS( 1, 11) = 0.911536E+00
- PKER_RACCSS( 1, 12) = 0.109094E+01
- PKER_RACCSS( 1, 13) = 0.127926E+01
- PKER_RACCSS( 1, 14) = 0.145083E+01
- PKER_RACCSS( 1, 15) = 0.159745E+01
- PKER_RACCSS( 1, 16) = 0.171978E+01
- PKER_RACCSS( 1, 17) = 0.182114E+01
- PKER_RACCSS( 1, 18) = 0.190501E+01
- PKER_RACCSS( 1, 19) = 0.197441E+01
- PKER_RACCSS( 1, 20) = 0.203184E+01
- PKER_RACCSS( 1, 21) = 0.207937E+01
- PKER_RACCSS( 1, 22) = 0.211870E+01
- PKER_RACCSS( 1, 23) = 0.215125E+01
- PKER_RACCSS( 1, 24) = 0.217819E+01
- PKER_RACCSS( 1, 25) = 0.220049E+01
- PKER_RACCSS( 1, 26) = 0.221895E+01
- PKER_RACCSS( 1, 27) = 0.223423E+01
- PKER_RACCSS( 1, 28) = 0.224687E+01
- PKER_RACCSS( 1, 29) = 0.225734E+01
- PKER_RACCSS( 1, 30) = 0.226601E+01
- PKER_RACCSS( 1, 31) = 0.227318E+01
- PKER_RACCSS( 1, 32) = 0.227911E+01
- PKER_RACCSS( 1, 33) = 0.228403E+01
- PKER_RACCSS( 1, 34) = 0.228810E+01
- PKER_RACCSS( 1, 35) = 0.229146E+01
- PKER_RACCSS( 1, 36) = 0.229425E+01
- PKER_RACCSS( 1, 37) = 0.229656E+01
- PKER_RACCSS( 1, 38) = 0.229847E+01
- PKER_RACCSS( 1, 39) = 0.230005E+01
- PKER_RACCSS( 1, 40) = 0.230136E+01
- PKER_RACCSS( 2, 1) = 0.777519E+01
- PKER_RACCSS( 2, 2) = 0.620120E+01
- PKER_RACCSS( 2, 3) = 0.482130E+01
- PKER_RACCSS( 2, 4) = 0.365151E+01
- PKER_RACCSS( 2, 5) = 0.268556E+01
- PKER_RACCSS( 2, 6) = 0.191605E+01
- PKER_RACCSS( 2, 7) = 0.134047E+01
- PKER_RACCSS( 2, 8) = 0.956677E+00
- PKER_RACCSS( 2, 9) = 0.757265E+00
- PKER_RACCSS( 2, 10) = 0.720633E+00
- PKER_RACCSS( 2, 11) = 0.806882E+00
- PKER_RACCSS( 2, 12) = 0.963181E+00
- PKER_RACCSS( 2, 13) = 0.114076E+01
- PKER_RACCSS( 2, 14) = 0.130870E+01
- PKER_RACCSS( 2, 15) = 0.145451E+01
- PKER_RACCSS( 2, 16) = 0.157680E+01
- PKER_RACCSS( 2, 17) = 0.167825E+01
- PKER_RACCSS( 2, 18) = 0.176221E+01
- PKER_RACCSS( 2, 19) = 0.183168E+01
- PKER_RACCSS( 2, 20) = 0.188915E+01
- PKER_RACCSS( 2, 21) = 0.193671E+01
- PKER_RACCSS( 2, 22) = 0.197607E+01
- PKER_RACCSS( 2, 23) = 0.200864E+01
- PKER_RACCSS( 2, 24) = 0.203559E+01
- PKER_RACCSS( 2, 25) = 0.205790E+01
- PKER_RACCSS( 2, 26) = 0.207637E+01
- PKER_RACCSS( 2, 27) = 0.209165E+01
- PKER_RACCSS( 2, 28) = 0.210430E+01
- PKER_RACCSS( 2, 29) = 0.211478E+01
- PKER_RACCSS( 2, 30) = 0.212344E+01
- PKER_RACCSS( 2, 31) = 0.213062E+01
- PKER_RACCSS( 2, 32) = 0.213656E+01
- PKER_RACCSS( 2, 33) = 0.214147E+01
- PKER_RACCSS( 2, 34) = 0.214554E+01
- PKER_RACCSS( 2, 35) = 0.214891E+01
- PKER_RACCSS( 2, 36) = 0.215170E+01
- PKER_RACCSS( 2, 37) = 0.215401E+01
- PKER_RACCSS( 2, 38) = 0.215592E+01
- PKER_RACCSS( 2, 39) = 0.215750E+01
- PKER_RACCSS( 2, 40) = 0.215881E+01
- PKER_RACCSS( 3, 1) = 0.762215E+01
- PKER_RACCSS( 3, 2) = 0.621106E+01
- PKER_RACCSS( 3, 3) = 0.490698E+01
- PKER_RACCSS( 3, 4) = 0.376761E+01
- PKER_RACCSS( 3, 5) = 0.280896E+01
- PKER_RACCSS( 3, 6) = 0.202903E+01
- PKER_RACCSS( 3, 7) = 0.142689E+01
- PKER_RACCSS( 3, 8) = 0.100388E+01
- PKER_RACCSS( 3, 9) = 0.757013E+00
- PKER_RACCSS( 3, 10) = 0.673206E+00
- PKER_RACCSS( 3, 11) = 0.719335E+00
- PKER_RACCSS( 3, 12) = 0.849040E+00
- PKER_RACCSS( 3, 13) = 0.101307E+01
- PKER_RACCSS( 3, 14) = 0.117592E+01
- PKER_RACCSS( 3, 15) = 0.132041E+01
- PKER_RACCSS( 3, 16) = 0.144256E+01
- PKER_RACCSS( 3, 17) = 0.154410E+01
- PKER_RACCSS( 3, 18) = 0.162816E+01
- PKER_RACCSS( 3, 19) = 0.169770E+01
- PKER_RACCSS( 3, 20) = 0.175523E+01
- PKER_RACCSS( 3, 21) = 0.180284E+01
- PKER_RACCSS( 3, 22) = 0.184222E+01
- PKER_RACCSS( 3, 23) = 0.187482E+01
- PKER_RACCSS( 3, 24) = 0.190179E+01
- PKER_RACCSS( 3, 25) = 0.192411E+01
- PKER_RACCSS( 3, 26) = 0.194259E+01
- PKER_RACCSS( 3, 27) = 0.195788E+01
- PKER_RACCSS( 3, 28) = 0.197054E+01
- PKER_RACCSS( 3, 29) = 0.198101E+01
- PKER_RACCSS( 3, 30) = 0.198968E+01
- PKER_RACCSS( 3, 31) = 0.199686E+01
- PKER_RACCSS( 3, 32) = 0.200280E+01
- PKER_RACCSS( 3, 33) = 0.200772E+01
- PKER_RACCSS( 3, 34) = 0.201179E+01
- PKER_RACCSS( 3, 35) = 0.201516E+01
- PKER_RACCSS( 3, 36) = 0.201795E+01
- PKER_RACCSS( 3, 37) = 0.202026E+01
- PKER_RACCSS( 3, 38) = 0.202217E+01
- PKER_RACCSS( 3, 39) = 0.202375E+01
- PKER_RACCSS( 3, 40) = 0.202506E+01
- PKER_RACCSS( 4, 1) = 0.726688E+01
- PKER_RACCSS( 4, 2) = 0.610352E+01
- PKER_RACCSS( 4, 3) = 0.493154E+01
- PKER_RACCSS( 4, 4) = 0.385226E+01
- PKER_RACCSS( 4, 5) = 0.291497E+01
- PKER_RACCSS( 4, 6) = 0.213576E+01
- PKER_RACCSS( 4, 7) = 0.151726E+01
- PKER_RACCSS( 4, 8) = 0.106239E+01
- PKER_RACCSS( 4, 9) = 0.773458E+00
- PKER_RACCSS( 4, 10) = 0.643197E+00
- PKER_RACCSS( 4, 11) = 0.648455E+00
- PKER_RACCSS( 4, 12) = 0.748702E+00
- PKER_RACCSS( 4, 13) = 0.896286E+00
- PKER_RACCSS( 4, 14) = 0.105225E+01
- PKER_RACCSS( 4, 15) = 0.119469E+01
- PKER_RACCSS( 4, 16) = 0.131651E+01
- PKER_RACCSS( 4, 17) = 0.141813E+01
- PKER_RACCSS( 4, 18) = 0.150231E+01
- PKER_RACCSS( 4, 19) = 0.157195E+01
- PKER_RACCSS( 4, 20) = 0.162955E+01
- PKER_RACCSS( 4, 21) = 0.167720E+01
- PKER_RACCSS( 4, 22) = 0.171662E+01
- PKER_RACCSS( 4, 23) = 0.174924E+01
- PKER_RACCSS( 4, 24) = 0.177624E+01
- PKER_RACCSS( 4, 25) = 0.179858E+01
- PKER_RACCSS( 4, 26) = 0.181706E+01
- PKER_RACCSS( 4, 27) = 0.183237E+01
- PKER_RACCSS( 4, 28) = 0.184503E+01
- PKER_RACCSS( 4, 29) = 0.185551E+01
- PKER_RACCSS( 4, 30) = 0.186419E+01
- PKER_RACCSS( 4, 31) = 0.187137E+01
- PKER_RACCSS( 4, 32) = 0.187731E+01
- PKER_RACCSS( 4, 33) = 0.188223E+01
- PKER_RACCSS( 4, 34) = 0.188630E+01
- PKER_RACCSS( 4, 35) = 0.188967E+01
- PKER_RACCSS( 4, 36) = 0.189246E+01
- PKER_RACCSS( 4, 37) = 0.189477E+01
- PKER_RACCSS( 4, 38) = 0.189668E+01
- PKER_RACCSS( 4, 39) = 0.189826E+01
- PKER_RACCSS( 4, 40) = 0.189957E+01
- PKER_RACCSS( 5, 1) = 0.666156E+01
- PKER_RACCSS( 5, 2) = 0.583010E+01
- PKER_RACCSS( 5, 3) = 0.485991E+01
- PKER_RACCSS( 5, 4) = 0.388726E+01
- PKER_RACCSS( 5, 5) = 0.299622E+01
- PKER_RACCSS( 5, 6) = 0.223002E+01
- PKER_RACCSS( 5, 7) = 0.160523E+01
- PKER_RACCSS( 5, 8) = 0.112806E+01
- PKER_RACCSS( 5, 9) = 0.803444E+00
- PKER_RACCSS( 5, 10) = 0.630781E+00
- PKER_RACCSS( 5, 11) = 0.594728E+00
- PKER_RACCSS( 5, 12) = 0.662791E+00
- PKER_RACCSS( 5, 13) = 0.790719E+00
- PKER_RACCSS( 5, 14) = 0.937530E+00
- PKER_RACCSS( 5, 15) = 0.107695E+01
- PKER_RACCSS( 5, 16) = 0.119816E+01
- PKER_RACCSS( 5, 17) = 0.129982E+01
- PKER_RACCSS( 5, 18) = 0.138414E+01
- PKER_RACCSS( 5, 19) = 0.145388E+01
- PKER_RACCSS( 5, 20) = 0.151157E+01
- PKER_RACCSS( 5, 21) = 0.155928E+01
- PKER_RACCSS( 5, 22) = 0.159875E+01
- PKER_RACCSS( 5, 23) = 0.163140E+01
- PKER_RACCSS( 5, 24) = 0.165842E+01
- PKER_RACCSS( 5, 25) = 0.168078E+01
- PKER_RACCSS( 5, 26) = 0.169928E+01
- PKER_RACCSS( 5, 27) = 0.171459E+01
- PKER_RACCSS( 5, 28) = 0.172727E+01
- PKER_RACCSS( 5, 29) = 0.173775E+01
- PKER_RACCSS( 5, 30) = 0.174643E+01
- PKER_RACCSS( 5, 31) = 0.175362E+01
- PKER_RACCSS( 5, 32) = 0.175957E+01
- PKER_RACCSS( 5, 33) = 0.176449E+01
- PKER_RACCSS( 5, 34) = 0.176856E+01
- PKER_RACCSS( 5, 35) = 0.177193E+01
- PKER_RACCSS( 5, 36) = 0.177472E+01
- PKER_RACCSS( 5, 37) = 0.177703E+01
- PKER_RACCSS( 5, 38) = 0.177895E+01
- PKER_RACCSS( 5, 39) = 0.178053E+01
- PKER_RACCSS( 5, 40) = 0.178184E+01
- PKER_RACCSS( 6, 1) = 0.579411E+01
- PKER_RACCSS( 6, 2) = 0.535171E+01
- PKER_RACCSS( 6, 3) = 0.465234E+01
- PKER_RACCSS( 6, 4) = 0.384358E+01
- PKER_RACCSS( 6, 5) = 0.303756E+01
- PKER_RACCSS( 6, 6) = 0.230559E+01
- PKER_RACCSS( 6, 7) = 0.168583E+01
- PKER_RACCSS( 6, 8) = 0.119580E+01
- PKER_RACCSS( 6, 9) = 0.843934E+00
- PKER_RACCSS( 6, 10) = 0.633155E+00
- PKER_RACCSS( 6, 11) = 0.557339E+00
- PKER_RACCSS( 6, 12) = 0.591240E+00
- PKER_RACCSS( 6, 13) = 0.696457E+00
- PKER_RACCSS( 6, 14) = 0.831746E+00
- PKER_RACCSS( 6, 15) = 0.966879E+00
- PKER_RACCSS( 6, 16) = 0.108705E+01
- PKER_RACCSS( 6, 17) = 0.118868E+01
- PKER_RACCSS( 6, 18) = 0.127314E+01
- PKER_RACCSS( 6, 19) = 0.134302E+01
- PKER_RACCSS( 6, 20) = 0.140081E+01
- PKER_RACCSS( 6, 21) = 0.144859E+01
- PKER_RACCSS( 6, 22) = 0.148812E+01
- PKER_RACCSS( 6, 23) = 0.152081E+01
- PKER_RACCSS( 6, 24) = 0.154786E+01
- PKER_RACCSS( 6, 25) = 0.157025E+01
- PKER_RACCSS( 6, 26) = 0.158876E+01
- PKER_RACCSS( 6, 27) = 0.160409E+01
- PKER_RACCSS( 6, 28) = 0.161677E+01
- PKER_RACCSS( 6, 29) = 0.162727E+01
- PKER_RACCSS( 6, 30) = 0.163595E+01
- PKER_RACCSS( 6, 31) = 0.164314E+01
- PKER_RACCSS( 6, 32) = 0.164909E+01
- PKER_RACCSS( 6, 33) = 0.165402E+01
- PKER_RACCSS( 6, 34) = 0.165809E+01
- PKER_RACCSS( 6, 35) = 0.166147E+01
- PKER_RACCSS( 6, 36) = 0.166426E+01
- PKER_RACCSS( 6, 37) = 0.166657E+01
- PKER_RACCSS( 6, 38) = 0.166848E+01
- PKER_RACCSS( 6, 39) = 0.167007E+01
- PKER_RACCSS( 6, 40) = 0.167138E+01
- PKER_RACCSS( 7, 1) = 0.471256E+01
- PKER_RACCSS( 7, 2) = 0.465839E+01
- PKER_RACCSS( 7, 3) = 0.427722E+01
- PKER_RACCSS( 7, 4) = 0.368892E+01
- PKER_RACCSS( 7, 5) = 0.301520E+01
- PKER_RACCSS( 7, 6) = 0.234970E+01
- PKER_RACCSS( 7, 7) = 0.175327E+01
- PKER_RACCSS( 7, 8) = 0.126056E+01
- PKER_RACCSS( 7, 9) = 0.889610E+00
- PKER_RACCSS( 7, 10) = 0.648011E+00
- PKER_RACCSS( 7, 11) = 0.534534E+00
- PKER_RACCSS( 7, 12) = 0.533743E+00
- PKER_RACCSS( 7, 13) = 0.613806E+00
- PKER_RACCSS( 7, 14) = 0.735010E+00
- PKER_RACCSS( 7, 15) = 0.864301E+00
- PKER_RACCSS( 7, 16) = 0.982807E+00
- PKER_RACCSS( 7, 17) = 0.108425E+01
- PKER_RACCSS( 7, 18) = 0.116886E+01
- PKER_RACCSS( 7, 19) = 0.123890E+01
- PKER_RACCSS( 7, 20) = 0.129681E+01
- PKER_RACCSS( 7, 21) = 0.134469E+01
- PKER_RACCSS( 7, 22) = 0.138428E+01
- PKER_RACCSS( 7, 23) = 0.141702E+01
- PKER_RACCSS( 7, 24) = 0.144411E+01
- PKER_RACCSS( 7, 25) = 0.146652E+01
- PKER_RACCSS( 7, 26) = 0.148506E+01
- PKER_RACCSS( 7, 27) = 0.150040E+01
- PKER_RACCSS( 7, 28) = 0.151309E+01
- PKER_RACCSS( 7, 29) = 0.152360E+01
- PKER_RACCSS( 7, 30) = 0.153229E+01
- PKER_RACCSS( 7, 31) = 0.153949E+01
- PKER_RACCSS( 7, 32) = 0.154544E+01
- PKER_RACCSS( 7, 33) = 0.155037E+01
- PKER_RACCSS( 7, 34) = 0.155445E+01
- PKER_RACCSS( 7, 35) = 0.155782E+01
- PKER_RACCSS( 7, 36) = 0.156062E+01
- PKER_RACCSS( 7, 37) = 0.156293E+01
- PKER_RACCSS( 7, 38) = 0.156484E+01
- PKER_RACCSS( 7, 39) = 0.156643E+01
- PKER_RACCSS( 7, 40) = 0.156774E+01
- PKER_RACCSS( 8, 1) = 0.353255E+01
- PKER_RACCSS( 8, 2) = 0.378953E+01
- PKER_RACCSS( 8, 3) = 0.372636E+01
- PKER_RACCSS( 8, 4) = 0.339746E+01
- PKER_RACCSS( 8, 5) = 0.290255E+01
- PKER_RACCSS( 8, 6) = 0.234259E+01
- PKER_RACCSS( 8, 7) = 0.179670E+01
- PKER_RACCSS( 8, 8) = 0.131725E+01
- PKER_RACCSS( 8, 9) = 0.936217E+00
- PKER_RACCSS( 8, 10) = 0.670685E+00
- PKER_RACCSS( 8, 11) = 0.525055E+00
- PKER_RACCSS( 8, 12) = 0.490553E+00
- PKER_RACCSS( 8, 13) = 0.543364E+00
- PKER_RACCSS( 8, 14) = 0.647682E+00
- PKER_RACCSS( 8, 15) = 0.769109E+00
- PKER_RACCSS( 8, 16) = 0.885089E+00
- PKER_RACCSS( 8, 17) = 0.986107E+00
- PKER_RACCSS( 8, 18) = 0.107085E+01
- PKER_RACCSS( 8, 19) = 0.114108E+01
- PKER_RACCSS( 8, 20) = 0.119914E+01
- PKER_RACCSS( 8, 21) = 0.124712E+01
- PKER_RACCSS( 8, 22) = 0.128680E+01
- PKER_RACCSS( 8, 23) = 0.131960E+01
- PKER_RACCSS( 8, 24) = 0.134673E+01
- PKER_RACCSS( 8, 25) = 0.136917E+01
- PKER_RACCSS( 8, 26) = 0.138774E+01
- PKER_RACCSS( 8, 27) = 0.140310E+01
- PKER_RACCSS( 8, 28) = 0.141581E+01
- PKER_RACCSS( 8, 29) = 0.142633E+01
- PKER_RACCSS( 8, 30) = 0.143503E+01
- PKER_RACCSS( 8, 31) = 0.144223E+01
- PKER_RACCSS( 8, 32) = 0.144819E+01
- PKER_RACCSS( 8, 33) = 0.145312E+01
- PKER_RACCSS( 8, 34) = 0.145720E+01
- PKER_RACCSS( 8, 35) = 0.146058E+01
- PKER_RACCSS( 8, 36) = 0.146338E+01
- PKER_RACCSS( 8, 37) = 0.146569E+01
- PKER_RACCSS( 8, 38) = 0.146761E+01
- PKER_RACCSS( 8, 39) = 0.146919E+01
- PKER_RACCSS( 8, 40) = 0.147050E+01
- PKER_RACCSS( 9, 1) = 0.240807E+01
- PKER_RACCSS( 9, 2) = 0.283932E+01
- PKER_RACCSS( 9, 3) = 0.303178E+01
- PKER_RACCSS( 9, 4) = 0.296265E+01
- PKER_RACCSS( 9, 5) = 0.267871E+01
- PKER_RACCSS( 9, 6) = 0.226276E+01
- PKER_RACCSS( 9, 7) = 0.179979E+01
- PKER_RACCSS( 9, 8) = 0.135674E+01
- PKER_RACCSS( 9, 9) = 0.979933E+00
- PKER_RACCSS( 9, 10) = 0.698320E+00
- PKER_RACCSS( 9, 11) = 0.525242E+00
- PKER_RACCSS( 9, 12) = 0.460033E+00
- PKER_RACCSS( 9, 13) = 0.484763E+00
- PKER_RACCSS( 9, 14) = 0.569735E+00
- PKER_RACCSS( 9, 15) = 0.681283E+00
- PKER_RACCSS( 9, 16) = 0.793641E+00
- PKER_RACCSS( 9, 17) = 0.893878E+00
- PKER_RACCSS( 9, 18) = 0.978690E+00
- PKER_RACCSS( 9, 19) = 0.104914E+01
- PKER_RACCSS( 9, 20) = 0.110738E+01
- PKER_RACCSS( 9, 21) = 0.115550E+01
- PKER_RACCSS( 9, 22) = 0.119527E+01
- PKER_RACCSS( 9, 23) = 0.122815E+01
- PKER_RACCSS( 9, 24) = 0.125533E+01
- PKER_RACCSS( 9, 25) = 0.127782E+01
- PKER_RACCSS( 9, 26) = 0.129641E+01
- PKER_RACCSS( 9, 27) = 0.131179E+01
- PKER_RACCSS( 9, 28) = 0.132452E+01
- PKER_RACCSS( 9, 29) = 0.133505E+01
- PKER_RACCSS( 9, 30) = 0.134376E+01
- PKER_RACCSS( 9, 31) = 0.135097E+01
- PKER_RACCSS( 9, 32) = 0.135694E+01
- PKER_RACCSS( 9, 33) = 0.136188E+01
- PKER_RACCSS( 9, 34) = 0.136596E+01
- PKER_RACCSS( 9, 35) = 0.136934E+01
- PKER_RACCSS( 9, 36) = 0.137214E+01
- PKER_RACCSS( 9, 37) = 0.137446E+01
- PKER_RACCSS( 9, 38) = 0.137637E+01
- PKER_RACCSS( 9, 39) = 0.137796E+01
- PKER_RACCSS( 9, 40) = 0.137927E+01
- PKER_RACCSS( 10, 1) = 0.147671E+01
- PKER_RACCSS( 10, 2) = 0.193328E+01
- PKER_RACCSS( 10, 3) = 0.227014E+01
- PKER_RACCSS( 10, 4) = 0.241054E+01
- PKER_RACCSS( 10, 5) = 0.233821E+01
- PKER_RACCSS( 10, 6) = 0.209295E+01
- PKER_RACCSS( 10, 7) = 0.174482E+01
- PKER_RACCSS( 10, 8) = 0.136525E+01
- PKER_RACCSS( 10, 9) = 0.101239E+01
- PKER_RACCSS( 10, 10) = 0.726741E+00
- PKER_RACCSS( 10, 11) = 0.533079E+00
- PKER_RACCSS( 10, 12) = 0.439515E+00
- PKER_RACCSS( 10, 13) = 0.437071E+00
- PKER_RACCSS( 10, 14) = 0.501385E+00
- PKER_RACCSS( 10, 15) = 0.600980E+00
- PKER_RACCSS( 10, 16) = 0.708337E+00
- PKER_RACCSS( 10, 17) = 0.807233E+00
- PKER_RACCSS( 10, 18) = 0.892004E+00
- PKER_RACCSS( 10, 19) = 0.962681E+00
- PKER_RACCSS( 10, 20) = 0.102114E+01
- PKER_RACCSS( 10, 21) = 0.106943E+01
- PKER_RACCSS( 10, 22) = 0.110932E+01
- PKER_RACCSS( 10, 23) = 0.114228E+01
- PKER_RACCSS( 10, 24) = 0.116953E+01
- PKER_RACCSS( 10, 25) = 0.119207E+01
- PKER_RACCSS( 10, 26) = 0.121070E+01
- PKER_RACCSS( 10, 27) = 0.122611E+01
- PKER_RACCSS( 10, 28) = 0.123886E+01
- PKER_RACCSS( 10, 29) = 0.124940E+01
- PKER_RACCSS( 10, 30) = 0.125813E+01
- PKER_RACCSS( 10, 31) = 0.126535E+01
- PKER_RACCSS( 10, 32) = 0.127132E+01
- PKER_RACCSS( 10, 33) = 0.127626E+01
- PKER_RACCSS( 10, 34) = 0.128035E+01
- PKER_RACCSS( 10, 35) = 0.128374E+01
- PKER_RACCSS( 10, 36) = 0.128654E+01
- PKER_RACCSS( 10, 37) = 0.128886E+01
- PKER_RACCSS( 10, 38) = 0.129077E+01
- PKER_RACCSS( 10, 39) = 0.129236E+01
- PKER_RACCSS( 10, 40) = 0.129368E+01
- PKER_RACCSS( 11, 1) = 0.808661E+00
- PKER_RACCSS( 11, 2) = 0.118349E+01
- PKER_RACCSS( 11, 3) = 0.154344E+01
- PKER_RACCSS( 11, 4) = 0.180338E+01
- PKER_RACCSS( 11, 5) = 0.190224E+01
- PKER_RACCSS( 11, 6) = 0.182880E+01
- PKER_RACCSS( 11, 7) = 0.161765E+01
- PKER_RACCSS( 11, 8) = 0.132833E+01
- PKER_RACCSS( 11, 9) = 0.102209E+01
- PKER_RACCSS( 11, 10) = 0.749176E+00
- PKER_RACCSS( 11, 11) = 0.544780E+00
- PKER_RACCSS( 11, 12) = 0.428018E+00
- PKER_RACCSS( 11, 13) = 0.399615E+00
- PKER_RACCSS( 11, 14) = 0.442486E+00
- PKER_RACCSS( 11, 15) = 0.528291E+00
- PKER_RACCSS( 11, 16) = 0.629068E+00
- PKER_RACCSS( 11, 17) = 0.725892E+00
- PKER_RACCSS( 11, 18) = 0.810425E+00
- PKER_RACCSS( 11, 19) = 0.881336E+00
- PKER_RACCSS( 11, 20) = 0.940053E+00
- PKER_RACCSS( 11, 21) = 0.988540E+00
- PKER_RACCSS( 11, 22) = 0.102858E+01
- PKER_RACCSS( 11, 23) = 0.106165E+01
- PKER_RACCSS( 11, 24) = 0.108898E+01
- PKER_RACCSS( 11, 25) = 0.111157E+01
- PKER_RACCSS( 11, 26) = 0.113025E+01
- PKER_RACCSS( 11, 27) = 0.114569E+01
- PKER_RACCSS( 11, 28) = 0.115847E+01
- PKER_RACCSS( 11, 29) = 0.116903E+01
- PKER_RACCSS( 11, 30) = 0.117777E+01
- PKER_RACCSS( 11, 31) = 0.118500E+01
- PKER_RACCSS( 11, 32) = 0.119098E+01
- PKER_RACCSS( 11, 33) = 0.119593E+01
- PKER_RACCSS( 11, 34) = 0.120003E+01
- PKER_RACCSS( 11, 35) = 0.120342E+01
- PKER_RACCSS( 11, 36) = 0.120622E+01
- PKER_RACCSS( 11, 37) = 0.120854E+01
- PKER_RACCSS( 11, 38) = 0.121046E+01
- PKER_RACCSS( 11, 39) = 0.121205E+01
- PKER_RACCSS( 11, 40) = 0.121337E+01
- PKER_RACCSS( 12, 1) = 0.394253E+00
- PKER_RACCSS( 12, 2) = 0.646179E+00
- PKER_RACCSS( 12, 3) = 0.942558E+00
- PKER_RACCSS( 12, 4) = 0.122389E+01
- PKER_RACCSS( 12, 5) = 0.142127E+01
- PKER_RACCSS( 12, 6) = 0.148735E+01
- PKER_RACCSS( 12, 7) = 0.141473E+01
- PKER_RACCSS( 12, 8) = 0.123412E+01
- PKER_RACCSS( 12, 9) = 0.996999E+00
- PKER_RACCSS( 12, 10) = 0.756208E+00
- PKER_RACCSS( 12, 11) = 0.555253E+00
- PKER_RACCSS( 12, 12) = 0.422862E+00
- PKER_RACCSS( 12, 13) = 0.371247E+00
- PKER_RACCSS( 12, 14) = 0.392052E+00
- PKER_RACCSS( 12, 15) = 0.462634E+00
- PKER_RACCSS( 12, 16) = 0.555651E+00
- PKER_RACCSS( 12, 17) = 0.649618E+00
- PKER_RACCSS( 12, 18) = 0.733630E+00
- PKER_RACCSS( 12, 19) = 0.804744E+00
- PKER_RACCSS( 12, 20) = 0.863761E+00
- PKER_RACCSS( 12, 21) = 0.912491E+00
- PKER_RACCSS( 12, 22) = 0.952708E+00
- PKER_RACCSS( 12, 23) = 0.985912E+00
- PKER_RACCSS( 12, 24) = 0.101334E+01
- PKER_RACCSS( 12, 25) = 0.103600E+01
- PKER_RACCSS( 12, 26) = 0.105473E+01
- PKER_RACCSS( 12, 27) = 0.107022E+01
- PKER_RACCSS( 12, 28) = 0.108302E+01
- PKER_RACCSS( 12, 29) = 0.109361E+01
- PKER_RACCSS( 12, 30) = 0.110236E+01
- PKER_RACCSS( 12, 31) = 0.110961E+01
- PKER_RACCSS( 12, 32) = 0.111560E+01
- PKER_RACCSS( 12, 33) = 0.112056E+01
- PKER_RACCSS( 12, 34) = 0.112466E+01
- PKER_RACCSS( 12, 35) = 0.112805E+01
- PKER_RACCSS( 12, 36) = 0.113086E+01
- PKER_RACCSS( 12, 37) = 0.113319E+01
- PKER_RACCSS( 12, 38) = 0.113511E+01
- PKER_RACCSS( 12, 39) = 0.113670E+01
- PKER_RACCSS( 12, 40) = 0.113802E+01
- PKER_RACCSS( 13, 1) = 0.171360E+00
- PKER_RACCSS( 13, 2) = 0.313975E+00
- PKER_RACCSS( 13, 3) = 0.512870E+00
- PKER_RACCSS( 13, 4) = 0.744995E+00
- PKER_RACCSS( 13, 5) = 0.962081E+00
- PKER_RACCSS( 13, 6) = 0.110931E+01
- PKER_RACCSS( 13, 7) = 0.114976E+01
- PKER_RACCSS( 13, 8) = 0.107985E+01
- PKER_RACCSS( 13, 9) = 0.927521E+00
- PKER_RACCSS( 13, 10) = 0.737617E+00
- PKER_RACCSS( 13, 11) = 0.556237E+00
- PKER_RACCSS( 13, 12) = 0.420066E+00
- PKER_RACCSS( 13, 13) = 0.350230E+00
- PKER_RACCSS( 13, 14) = 0.349906E+00
- PKER_RACCSS( 13, 15) = 0.404063E+00
- PKER_RACCSS( 13, 16) = 0.487780E+00
- PKER_RACCSS( 13, 17) = 0.578111E+00
- PKER_RACCSS( 13, 18) = 0.661299E+00
- PKER_RACCSS( 13, 19) = 0.732568E+00
- PKER_RACCSS( 13, 20) = 0.791923E+00
- PKER_RACCSS( 13, 21) = 0.840945E+00
- PKER_RACCSS( 13, 22) = 0.881381E+00
- PKER_RACCSS( 13, 23) = 0.914745E+00
- PKER_RACCSS( 13, 24) = 0.942288E+00
- PKER_RACCSS( 13, 25) = 0.965037E+00
- PKER_RACCSS( 13, 26) = 0.983832E+00
- PKER_RACCSS( 13, 27) = 0.999365E+00
- PKER_RACCSS( 13, 28) = 0.101221E+01
- PKER_RACCSS( 13, 29) = 0.102282E+01
- PKER_RACCSS( 13, 30) = 0.103160E+01
- PKER_RACCSS( 13, 31) = 0.103886E+01
- PKER_RACCSS( 13, 32) = 0.104487E+01
- PKER_RACCSS( 13, 33) = 0.104983E+01
- PKER_RACCSS( 13, 34) = 0.105394E+01
- PKER_RACCSS( 13, 35) = 0.105734E+01
- PKER_RACCSS( 13, 36) = 0.106016E+01
- PKER_RACCSS( 13, 37) = 0.106248E+01
- PKER_RACCSS( 13, 38) = 0.106441E+01
- PKER_RACCSS( 13, 39) = 0.106600E+01
- PKER_RACCSS( 13, 40) = 0.106732E+01
- PKER_RACCSS( 14, 1) = 0.880495E-01
- PKER_RACCSS( 14, 2) = 0.175611E+00
- PKER_RACCSS( 14, 3) = 0.247975E+00
- PKER_RACCSS( 14, 4) = 0.403566E+00
- PKER_RACCSS( 14, 5) = 0.583307E+00
- PKER_RACCSS( 14, 6) = 0.748280E+00
- PKER_RACCSS( 14, 7) = 0.855344E+00
- PKER_RACCSS( 14, 8) = 0.876333E+00
- PKER_RACCSS( 14, 9) = 0.811263E+00
- PKER_RACCSS( 14, 10) = 0.685718E+00
- PKER_RACCSS( 14, 11) = 0.539707E+00
- PKER_RACCSS( 14, 12) = 0.412364E+00
- PKER_RACCSS( 14, 13) = 0.333785E+00
- PKER_RACCSS( 14, 14) = 0.315877E+00
- PKER_RACCSS( 14, 15) = 0.352939E+00
- PKER_RACCSS( 14, 16) = 0.425537E+00
- PKER_RACCSS( 14, 17) = 0.511002E+00
- PKER_RACCSS( 14, 18) = 0.593027E+00
- PKER_RACCSS( 14, 19) = 0.664451E+00
- PKER_RACCSS( 14, 20) = 0.724208E+00
- PKER_RACCSS( 14, 21) = 0.773584E+00
- PKER_RACCSS( 14, 22) = 0.814286E+00
- PKER_RACCSS( 14, 23) = 0.847845E+00
- PKER_RACCSS( 14, 24) = 0.875531E+00
- PKER_RACCSS( 14, 25) = 0.898385E+00
- PKER_RACCSS( 14, 26) = 0.917258E+00
- PKER_RACCSS( 14, 27) = 0.932850E+00
- PKER_RACCSS( 14, 28) = 0.945734E+00
- PKER_RACCSS( 14, 29) = 0.956384E+00
- PKER_RACCSS( 14, 30) = 0.965189E+00
- PKER_RACCSS( 14, 31) = 0.972469E+00
- PKER_RACCSS( 14, 32) = 0.978490E+00
- PKER_RACCSS( 14, 33) = 0.983469E+00
- PKER_RACCSS( 14, 34) = 0.987588E+00
- PKER_RACCSS( 14, 35) = 0.990995E+00
- PKER_RACCSS( 14, 36) = 0.993813E+00
- PKER_RACCSS( 14, 37) = 0.996145E+00
- PKER_RACCSS( 14, 38) = 0.998074E+00
- PKER_RACCSS( 14, 39) = 0.999670E+00
- PKER_RACCSS( 14, 40) = 0.100099E+01
- PKER_RACCSS( 15, 1) = 0.315291E-01
- PKER_RACCSS( 15, 2) = 0.693241E-01
- PKER_RACCSS( 15, 3) = 0.137798E+00
- PKER_RACCSS( 15, 4) = 0.193925E+00
- PKER_RACCSS( 15, 5) = 0.314161E+00
- PKER_RACCSS( 15, 6) = 0.451226E+00
- PKER_RACCSS( 15, 7) = 0.574319E+00
- PKER_RACCSS( 15, 8) = 0.649498E+00
- PKER_RACCSS( 15, 9) = 0.656529E+00
- PKER_RACCSS( 15, 10) = 0.598237E+00
- PKER_RACCSS( 15, 11) = 0.499202E+00
- PKER_RACCSS( 15, 12) = 0.394122E+00
- PKER_RACCSS( 15, 13) = 0.316374E+00
- PKER_RACCSS( 15, 14) = 0.287121E+00
- PKER_RACCSS( 15, 15) = 0.308960E+00
- PKER_RACCSS( 15, 16) = 0.369539E+00
- PKER_RACCSS( 15, 17) = 0.448627E+00
- PKER_RACCSS( 15, 18) = 0.528619E+00
- PKER_RACCSS( 15, 19) = 0.600043E+00
- PKER_RACCSS( 15, 20) = 0.660278E+00
- PKER_RACCSS( 15, 21) = 0.710095E+00
- PKER_RACCSS( 15, 22) = 0.751124E+00
- PKER_RACCSS( 15, 23) = 0.784920E+00
- PKER_RACCSS( 15, 24) = 0.812780E+00
- PKER_RACCSS( 15, 25) = 0.835762E+00
- PKER_RACCSS( 15, 26) = 0.854730E+00
- PKER_RACCSS( 15, 27) = 0.870393E+00
- PKER_RACCSS( 15, 28) = 0.883331E+00
- PKER_RACCSS( 15, 29) = 0.894022E+00
- PKER_RACCSS( 15, 30) = 0.902857E+00
- PKER_RACCSS( 15, 31) = 0.910161E+00
- PKER_RACCSS( 15, 32) = 0.916200E+00
- PKER_RACCSS( 15, 33) = 0.921193E+00
- PKER_RACCSS( 15, 34) = 0.925323E+00
- PKER_RACCSS( 15, 35) = 0.928738E+00
- PKER_RACCSS( 15, 36) = 0.931563E+00
- PKER_RACCSS( 15, 37) = 0.933900E+00
- PKER_RACCSS( 15, 38) = 0.935833E+00
- PKER_RACCSS( 15, 39) = 0.937432E+00
- PKER_RACCSS( 15, 40) = 0.938755E+00
- PKER_RACCSS( 16, 1) = 0.360358E+01
- PKER_RACCSS( 16, 2) = 0.281969E+01
- PKER_RACCSS( 16, 3) = 0.219170E+01
- PKER_RACCSS( 16, 4) = 0.170588E+01
- PKER_RACCSS( 16, 5) = 0.135069E+01
- PKER_RACCSS( 16, 6) = 0.110996E+01
- PKER_RACCSS( 16, 7) = 0.957328E+00
- PKER_RACCSS( 16, 8) = 0.855867E+00
- PKER_RACCSS( 16, 9) = 0.767727E+00
- PKER_RACCSS( 16, 10) = 0.667811E+00
- PKER_RACCSS( 16, 11) = 0.551774E+00
- PKER_RACCSS( 16, 12) = 0.434001E+00
- PKER_RACCSS( 16, 13) = 0.338225E+00
- PKER_RACCSS( 16, 14) = 0.285601E+00
- PKER_RACCSS( 16, 15) = 0.284136E+00
- PKER_RACCSS( 16, 16) = 0.326430E+00
- PKER_RACCSS( 16, 17) = 0.394397E+00
- PKER_RACCSS( 16, 18) = 0.469502E+00
- PKER_RACCSS( 16, 19) = 0.539605E+00
- PKER_RACCSS( 16, 20) = 0.599949E+00
- PKER_RACCSS( 16, 21) = 0.650193E+00
- PKER_RACCSS( 16, 22) = 0.691608E+00
- PKER_RACCSS( 16, 23) = 0.725693E+00
- PKER_RACCSS( 16, 24) = 0.753765E+00
- PKER_RACCSS( 16, 25) = 0.776902E+00
- PKER_RACCSS( 16, 26) = 0.795985E+00
- PKER_RACCSS( 16, 27) = 0.811734E+00
- PKER_RACCSS( 16, 28) = 0.824737E+00
- PKER_RACCSS( 16, 29) = 0.835476E+00
- PKER_RACCSS( 16, 30) = 0.844348E+00
- PKER_RACCSS( 16, 31) = 0.851681E+00
- PKER_RACCSS( 16, 32) = 0.857741E+00
- PKER_RACCSS( 16, 33) = 0.862751E+00
- PKER_RACCSS( 16, 34) = 0.866894E+00
- PKER_RACCSS( 16, 35) = 0.870319E+00
- PKER_RACCSS( 16, 36) = 0.873152E+00
- PKER_RACCSS( 16, 37) = 0.875495E+00
- PKER_RACCSS( 16, 38) = 0.877433E+00
- PKER_RACCSS( 16, 39) = 0.879036E+00
- PKER_RACCSS( 16, 40) = 0.880362E+00
- PKER_RACCSS( 17, 1) = 0.472676E+01
- PKER_RACCSS( 17, 2) = 0.370797E+01
- PKER_RACCSS( 17, 3) = 0.231793E+01
- PKER_RACCSS( 17, 4) = 0.179758E+01
- PKER_RACCSS( 17, 5) = 0.139358E+01
- PKER_RACCSS( 17, 6) = 0.109574E+01
- PKER_RACCSS( 17, 7) = 0.890250E+00
- PKER_RACCSS( 17, 8) = 0.755210E+00
- PKER_RACCSS( 17, 9) = 0.661386E+00
- PKER_RACCSS( 17, 10) = 0.579824E+00
- PKER_RACCSS( 17, 11) = 0.493157E+00
- PKER_RACCSS( 17, 12) = 0.401316E+00
- PKER_RACCSS( 17, 13) = 0.318099E+00
- PKER_RACCSS( 17, 14) = 0.264075E+00
- PKER_RACCSS( 17, 15) = 0.252206E+00
- PKER_RACCSS( 17, 16) = 0.282309E+00
- PKER_RACCSS( 17, 17) = 0.341880E+00
- PKER_RACCSS( 17, 18) = 0.413082E+00
- PKER_RACCSS( 17, 19) = 0.482222E+00
- PKER_RACCSS( 17, 20) = 0.542813E+00
- PKER_RACCSS( 17, 21) = 0.593576E+00
- PKER_RACCSS( 17, 22) = 0.635456E+00
- PKER_RACCSS( 17, 23) = 0.669894E+00
- PKER_RACCSS( 17, 24) = 0.698224E+00
- PKER_RACCSS( 17, 25) = 0.721550E+00
- PKER_RACCSS( 17, 26) = 0.740773E+00
- PKER_RACCSS( 17, 27) = 0.756626E+00
- PKER_RACCSS( 17, 28) = 0.769706E+00
- PKER_RACCSS( 17, 29) = 0.780504E+00
- PKER_RACCSS( 17, 30) = 0.789421E+00
- PKER_RACCSS( 17, 31) = 0.796788E+00
- PKER_RACCSS( 17, 32) = 0.802874E+00
- PKER_RACCSS( 17, 33) = 0.807905E+00
- PKER_RACCSS( 17, 34) = 0.812063E+00
- PKER_RACCSS( 17, 35) = 0.815500E+00
- PKER_RACCSS( 17, 36) = 0.818342E+00
- PKER_RACCSS( 17, 37) = 0.820693E+00
- PKER_RACCSS( 17, 38) = 0.822636E+00
- PKER_RACCSS( 17, 39) = 0.824244E+00
- PKER_RACCSS( 17, 40) = 0.825573E+00
- PKER_RACCSS( 18, 1) = 0.603863E+01
- PKER_RACCSS( 18, 2) = 0.389316E+01
- PKER_RACCSS( 18, 3) = 0.305031E+01
- PKER_RACCSS( 18, 4) = 0.236338E+01
- PKER_RACCSS( 18, 5) = 0.147231E+01
- PKER_RACCSS( 18, 6) = 0.113620E+01
- PKER_RACCSS( 18, 7) = 0.886115E+00
- PKER_RACCSS( 18, 8) = 0.710209E+00
- PKER_RACCSS( 18, 9) = 0.590674E+00
- PKER_RACCSS( 18, 10) = 0.504703E+00
- PKER_RACCSS( 18, 11) = 0.431038E+00
- PKER_RACCSS( 18, 12) = 0.358809E+00
- PKER_RACCSS( 18, 13) = 0.290844E+00
- PKER_RACCSS( 18, 14) = 0.240768E+00
- PKER_RACCSS( 18, 15) = 0.223220E+00
- PKER_RACCSS( 18, 16) = 0.243218E+00
- PKER_RACCSS( 18, 17) = 0.293836E+00
- PKER_RACCSS( 18, 18) = 0.360151E+00
- PKER_RACCSS( 18, 19) = 0.427795E+00
- PKER_RACCSS( 18, 20) = 0.488580E+00
- PKER_RACCSS( 18, 21) = 0.539954E+00
- PKER_RACCSS( 18, 22) = 0.582396E+00
- PKER_RACCSS( 18, 23) = 0.617263E+00
- PKER_RACCSS( 18, 24) = 0.645906E+00
- PKER_RACCSS( 18, 25) = 0.669463E+00
- PKER_RACCSS( 18, 26) = 0.688855E+00
- PKER_RACCSS( 18, 27) = 0.704834E+00
- PKER_RACCSS( 18, 28) = 0.718008E+00
- PKER_RACCSS( 18, 29) = 0.728877E+00
- PKER_RACCSS( 18, 30) = 0.737848E+00
- PKER_RACCSS( 18, 31) = 0.745255E+00
- PKER_RACCSS( 18, 32) = 0.751373E+00
- PKER_RACCSS( 18, 33) = 0.756428E+00
- PKER_RACCSS( 18, 34) = 0.760604E+00
- PKER_RACCSS( 18, 35) = 0.764056E+00
- PKER_RACCSS( 18, 36) = 0.766910E+00
- PKER_RACCSS( 18, 37) = 0.769269E+00
- PKER_RACCSS( 18, 38) = 0.771219E+00
- PKER_RACCSS( 18, 39) = 0.772832E+00
- PKER_RACCSS( 18, 40) = 0.774166E+00
- PKER_RACCSS( 19, 1) = 0.795385E+01
- PKER_RACCSS( 19, 2) = 0.638846E+01
- PKER_RACCSS( 19, 3) = 0.434595E+01
- PKER_RACCSS( 19, 4) = 0.343549E+01
- PKER_RACCSS( 19, 5) = 0.268818E+01
- PKER_RACCSS( 19, 6) = 0.208133E+01
- PKER_RACCSS( 19, 7) = 0.159740E+01
- PKER_RACCSS( 19, 8) = 0.122163E+01
- PKER_RACCSS( 19, 9) = 0.938335E+00
- PKER_RACCSS( 19, 10) = 0.728285E+00
- PKER_RACCSS( 19, 11) = 0.570145E+00
- PKER_RACCSS( 19, 12) = 0.445027E+00
- PKER_RACCSS( 19, 13) = 0.343893E+00
- PKER_RACCSS( 19, 14) = 0.268248E+00
- PKER_RACCSS( 19, 15) = 0.226350E+00
- PKER_RACCSS( 19, 16) = 0.224325E+00
- PKER_RACCSS( 19, 17) = 0.257856E+00
- PKER_RACCSS( 19, 18) = 0.313989E+00
- PKER_RACCSS( 19, 19) = 0.377472E+00
- PKER_RACCSS( 19, 20) = 0.437368E+00
- PKER_RACCSS( 19, 21) = 0.489118E+00
- PKER_RACCSS( 19, 22) = 0.532165E+00
- PKER_RACCSS( 19, 23) = 0.567544E+00
- PKER_RACCSS( 19, 24) = 0.596569E+00
- PKER_RACCSS( 19, 25) = 0.620406E+00
- PKER_RACCSS( 19, 26) = 0.640004E+00
- PKER_RACCSS( 19, 27) = 0.656135E+00
- PKER_RACCSS( 19, 28) = 0.669424E+00
- PKER_RACCSS( 19, 29) = 0.680378E+00
- PKER_RACCSS( 19, 30) = 0.689414E+00
- PKER_RACCSS( 19, 31) = 0.696870E+00
- PKER_RACCSS( 19, 32) = 0.703026E+00
- PKER_RACCSS( 19, 33) = 0.708109E+00
- PKER_RACCSS( 19, 34) = 0.712308E+00
- PKER_RACCSS( 19, 35) = 0.715777E+00
- PKER_RACCSS( 19, 36) = 0.718644E+00
- PKER_RACCSS( 19, 37) = 0.721014E+00
- PKER_RACCSS( 19, 38) = 0.722972E+00
- PKER_RACCSS( 19, 39) = 0.724592E+00
- PKER_RACCSS( 19, 40) = 0.725930E+00
- PKER_RACCSS( 20, 1) = 0.634781E+01
- PKER_RACCSS( 20, 2) = 0.508413E+01
- PKER_RACCSS( 20, 3) = 0.328893E+01
- PKER_RACCSS( 20, 4) = 0.259197E+01
- PKER_RACCSS( 20, 5) = 0.161527E+01
- PKER_RACCSS( 20, 6) = 0.125279E+01
- PKER_RACCSS( 20, 7) = 0.963381E+00
- PKER_RACCSS( 20, 8) = 0.738949E+00
- PKER_RACCSS( 20, 9) = 0.571583E+00
- PKER_RACCSS( 20, 10) = 0.451257E+00
- PKER_RACCSS( 20, 11) = 0.365125E+00
- PKER_RACCSS( 20, 12) = 0.299475E+00
- PKER_RACCSS( 20, 13) = 0.245596E+00
- PKER_RACCSS( 20, 14) = 0.203304E+00
- PKER_RACCSS( 20, 15) = 0.180537E+00
- PKER_RACCSS( 20, 16) = 0.185574E+00
- PKER_RACCSS( 20, 17) = 0.220030E+00
- PKER_RACCSS( 20, 18) = 0.275495E+00
- PKER_RACCSS( 20, 19) = 0.338734E+00
- PKER_RACCSS( 20, 20) = 0.398970E+00
- PKER_RACCSS( 20, 21) = 0.450959E+00
- PKER_RACCSS( 20, 22) = 0.493976E+00
- PKER_RACCSS( 20, 23) = 0.529200E+00
- PKER_RACCSS( 20, 24) = 0.558067E+00
- PKER_RACCSS( 20, 25) = 0.581769E+00
- PKER_RACCSS( 20, 26) = 0.601256E+00
- PKER_RACCSS( 20, 27) = 0.617297E+00
- PKER_RACCSS( 20, 28) = 0.630511E+00
- PKER_RACCSS( 20, 29) = 0.641405E+00
- PKER_RACCSS( 20, 30) = 0.650392E+00
- PKER_RACCSS( 20, 31) = 0.657810E+00
- PKER_RACCSS( 20, 32) = 0.663934E+00
- PKER_RACCSS( 20, 33) = 0.668992E+00
- PKER_RACCSS( 20, 34) = 0.673171E+00
- PKER_RACCSS( 20, 35) = 0.676624E+00
- PKER_RACCSS( 20, 36) = 0.679478E+00
- PKER_RACCSS( 20, 37) = 0.681837E+00
- PKER_RACCSS( 20, 38) = 0.683788E+00
- PKER_RACCSS( 20, 39) = 0.685401E+00
- PKER_RACCSS( 20, 40) = 0.686734E+00
- PKER_RACCSS( 21, 1) = 0.102443E+02
- PKER_RACCSS( 21, 2) = 0.752283E+01
- PKER_RACCSS( 21, 3) = 0.532770E+01
- PKER_RACCSS( 21, 4) = 0.425873E+01
- PKER_RACCSS( 21, 5) = 0.288056E+01
- PKER_RACCSS( 21, 6) = 0.226207E+01
- PKER_RACCSS( 21, 7) = 0.175652E+01
- PKER_RACCSS( 21, 8) = 0.134803E+01
- PKER_RACCSS( 21, 9) = 0.102375E+01
- PKER_RACCSS( 21, 10) = 0.771986E+00
- PKER_RACCSS( 21, 11) = 0.580680E+00
- PKER_RACCSS( 21, 12) = 0.436943E+00
- PKER_RACCSS( 21, 13) = 0.328804E+00
- PKER_RACCSS( 21, 14) = 0.249300E+00
- PKER_RACCSS( 21, 15) = 0.198560E+00
- PKER_RACCSS( 21, 16) = 0.180676E+00
- PKER_RACCSS( 21, 17) = 0.196350E+00
- PKER_RACCSS( 21, 18) = 0.238922E+00
- PKER_RACCSS( 21, 19) = 0.295536E+00
- PKER_RACCSS( 21, 20) = 0.353574E+00
- PKER_RACCSS( 21, 21) = 0.405455E+00
- PKER_RACCSS( 21, 22) = 0.448988E+00
- PKER_RACCSS( 21, 23) = 0.484753E+00
- PKER_RACCSS( 21, 24) = 0.514042E+00
- PKER_RACCSS( 21, 25) = 0.538053E+00
- PKER_RACCSS( 21, 26) = 0.557767E+00
- PKER_RACCSS( 21, 27) = 0.573974E+00
- PKER_RACCSS( 21, 28) = 0.587311E+00
- PKER_RACCSS( 21, 29) = 0.598297E+00
- PKER_RACCSS( 21, 30) = 0.607353E+00
- PKER_RACCSS( 21, 31) = 0.614822E+00
- PKER_RACCSS( 21, 32) = 0.620985E+00
- PKER_RACCSS( 21, 33) = 0.626073E+00
- PKER_RACCSS( 21, 34) = 0.630275E+00
- PKER_RACCSS( 21, 35) = 0.633746E+00
- PKER_RACCSS( 21, 36) = 0.636613E+00
- PKER_RACCSS( 21, 37) = 0.638983E+00
- PKER_RACCSS( 21, 38) = 0.640942E+00
- PKER_RACCSS( 21, 39) = 0.642561E+00
- PKER_RACCSS( 21, 40) = 0.643900E+00
- PKER_RACCSS( 22, 1) = 0.115320E+02
- PKER_RACCSS( 22, 2) = 0.885714E+01
- PKER_RACCSS( 22, 3) = 0.661944E+01
- PKER_RACCSS( 22, 4) = 0.533800E+01
- PKER_RACCSS( 22, 5) = 0.383246E+01
- PKER_RACCSS( 22, 6) = 0.304296E+01
- PKER_RACCSS( 22, 7) = 0.239235E+01
- PKER_RACCSS( 22, 8) = 0.185899E+01
- PKER_RACCSS( 22, 9) = 0.142556E+01
- PKER_RACCSS( 22, 10) = 0.107781E+01
- PKER_RACCSS( 22, 11) = 0.803526E+00
- PKER_RACCSS( 22, 12) = 0.590905E+00
- PKER_RACCSS( 22, 13) = 0.429091E+00
- PKER_RACCSS( 22, 14) = 0.309341E+00
- PKER_RACCSS( 22, 15) = 0.227914E+00
- PKER_RACCSS( 22, 16) = 0.184487E+00
- PKER_RACCSS( 22, 17) = 0.179339E+00
- PKER_RACCSS( 22, 18) = 0.207043E+00
- PKER_RACCSS( 22, 19) = 0.255369E+00
- PKER_RACCSS( 22, 20) = 0.310362E+00
- PKER_RACCSS( 22, 21) = 0.362024E+00
- PKER_RACCSS( 22, 22) = 0.406192E+00
- PKER_RACCSS( 22, 23) = 0.442617E+00
- PKER_RACCSS( 22, 24) = 0.472415E+00
- PKER_RACCSS( 22, 25) = 0.496799E+00
- PKER_RACCSS( 22, 26) = 0.516786E+00
- PKER_RACCSS( 22, 27) = 0.533194E+00
- PKER_RACCSS( 22, 28) = 0.546679E+00
- PKER_RACCSS( 22, 29) = 0.557776E+00
- PKER_RACCSS( 22, 30) = 0.566914E+00
- PKER_RACCSS( 22, 31) = 0.574445E+00
- PKER_RACCSS( 22, 32) = 0.580656E+00
- PKER_RACCSS( 22, 33) = 0.585779E+00
- PKER_RACCSS( 22, 34) = 0.590009E+00
- PKER_RACCSS( 22, 35) = 0.593501E+00
- PKER_RACCSS( 22, 36) = 0.596384E+00
- PKER_RACCSS( 22, 37) = 0.598767E+00
- PKER_RACCSS( 22, 38) = 0.600735E+00
- PKER_RACCSS( 22, 39) = 0.602362E+00
- PKER_RACCSS( 22, 40) = 0.603707E+00
- PKER_RACCSS( 23, 1) = 0.120552E+02
- PKER_RACCSS( 23, 2) = 0.943853E+01
- PKER_RACCSS( 23, 3) = 0.723099E+01
- PKER_RACCSS( 23, 4) = 0.538764E+01
- PKER_RACCSS( 23, 5) = 0.432828E+01
- PKER_RACCSS( 23, 6) = 0.309359E+01
- PKER_RACCSS( 23, 7) = 0.244279E+01
- PKER_RACCSS( 23, 8) = 0.190778E+01
- PKER_RACCSS( 23, 9) = 0.147059E+01
- PKER_RACCSS( 23, 10) = 0.111661E+01
- PKER_RACCSS( 23, 11) = 0.833900E+00
- PKER_RACCSS( 23, 12) = 0.611721E+00
- PKER_RACCSS( 23, 13) = 0.440899E+00
- PKER_RACCSS( 23, 14) = 0.313483E+00
- PKER_RACCSS( 23, 15) = 0.225201E+00
- PKER_RACCSS( 23, 16) = 0.175156E+00
- PKER_RACCSS( 23, 17) = 0.163153E+00
- PKER_RACCSS( 23, 18) = 0.185306E+00
- PKER_RACCSS( 23, 19) = 0.230283E+00
- PKER_RACCSS( 23, 20) = 0.284175E+00
- PKER_RACCSS( 23, 21) = 0.335712E+00
- PKER_RACCSS( 23, 22) = 0.379840E+00
- PKER_RACCSS( 23, 23) = 0.416119E+00
- PKER_RACCSS( 23, 24) = 0.445741E+00
- PKER_RACCSS( 23, 25) = 0.469966E+00
- PKER_RACCSS( 23, 26) = 0.489818E+00
- PKER_RACCSS( 23, 27) = 0.506111E+00
- PKER_RACCSS( 23, 28) = 0.519502E+00
- PKER_RACCSS( 23, 29) = 0.530519E+00
- PKER_RACCSS( 23, 30) = 0.539593E+00
- PKER_RACCSS( 23, 31) = 0.547072E+00
- PKER_RACCSS( 23, 32) = 0.553240E+00
- PKER_RACCSS( 23, 33) = 0.558330E+00
- PKER_RACCSS( 23, 34) = 0.562532E+00
- PKER_RACCSS( 23, 35) = 0.566002E+00
- PKER_RACCSS( 23, 36) = 0.568868E+00
- PKER_RACCSS( 23, 37) = 0.571236E+00
- PKER_RACCSS( 23, 38) = 0.573194E+00
- PKER_RACCSS( 23, 39) = 0.574812E+00
- PKER_RACCSS( 23, 40) = 0.576149E+00
- PKER_RACCSS( 24, 1) = 0.129576E+02
- PKER_RACCSS( 24, 2) = 0.102975E+02
- PKER_RACCSS( 24, 3) = 0.818920E+01
- PKER_RACCSS( 24, 4) = 0.640995E+01
- PKER_RACCSS( 24, 5) = 0.491149E+01
- PKER_RACCSS( 24, 6) = 0.394577E+01
- PKER_RACCSS( 24, 7) = 0.291637E+01
- PKER_RACCSS( 24, 8) = 0.230081E+01
- PKER_RACCSS( 24, 9) = 0.179410E+01
- PKER_RACCSS( 24, 10) = 0.137900E+01
- PKER_RACCSS( 24, 11) = 0.104163E+01
- PKER_RACCSS( 24, 12) = 0.770431E+00
- PKER_RACCSS( 24, 13) = 0.556107E+00
- PKER_RACCSS( 24, 14) = 0.391190E+00
- PKER_RACCSS( 24, 15) = 0.270786E+00
- PKER_RACCSS( 24, 16) = 0.192864E+00
- PKER_RACCSS( 24, 17) = 0.156677E+00
- PKER_RACCSS( 24, 18) = 0.159396E+00
- PKER_RACCSS( 24, 19) = 0.191937E+00
- PKER_RACCSS( 24, 20) = 0.240898E+00
- PKER_RACCSS( 24, 21) = 0.292797E+00
- PKER_RACCSS( 24, 22) = 0.339207E+00
- PKER_RACCSS( 24, 23) = 0.377404E+00
- PKER_RACCSS( 24, 24) = 0.408063E+00
- PKER_RACCSS( 24, 25) = 0.432806E+00
- PKER_RACCSS( 24, 26) = 0.452971E+00
- PKER_RACCSS( 24, 27) = 0.469485E+00
- PKER_RACCSS( 24, 28) = 0.483037E+00
- PKER_RACCSS( 24, 29) = 0.494174E+00
- PKER_RACCSS( 24, 30) = 0.503336E+00
- PKER_RACCSS( 24, 31) = 0.510880E+00
- PKER_RACCSS( 24, 32) = 0.517096E+00
- PKER_RACCSS( 24, 33) = 0.522223E+00
- PKER_RACCSS( 24, 34) = 0.526452E+00
- PKER_RACCSS( 24, 35) = 0.529943E+00
- PKER_RACCSS( 24, 36) = 0.532826E+00
- PKER_RACCSS( 24, 37) = 0.535207E+00
- PKER_RACCSS( 24, 38) = 0.537174E+00
- PKER_RACCSS( 24, 39) = 0.538799E+00
- PKER_RACCSS( 24, 40) = 0.540142E+00
- PKER_RACCSS( 25, 1) = 0.131514E+02
- PKER_RACCSS( 25, 2) = 0.106419E+02
- PKER_RACCSS( 25, 3) = 0.845868E+01
- PKER_RACCSS( 25, 4) = 0.672282E+01
- PKER_RACCSS( 25, 5) = 0.526076E+01
- PKER_RACCSS( 25, 6) = 0.423970E+01
- PKER_RACCSS( 25, 7) = 0.322433E+01
- PKER_RACCSS( 25, 8) = 0.255677E+01
- PKER_RACCSS( 25, 9) = 0.200589E+01
- PKER_RACCSS( 25, 10) = 0.155266E+01
- PKER_RACCSS( 25, 11) = 0.118171E+01
- PKER_RACCSS( 25, 12) = 0.880334E+00
- PKER_RACCSS( 25, 13) = 0.638726E+00
- PKER_RACCSS( 25, 14) = 0.449351E+00
- PKER_RACCSS( 25, 15) = 0.307558E+00
- PKER_RACCSS( 25, 16) = 0.211438E+00
- PKER_RACCSS( 25, 17) = 0.160608E+00
- PKER_RACCSS( 25, 18) = 0.152419E+00
- PKER_RACCSS( 25, 19) = 0.178285E+00
- PKER_RACCSS( 25, 20) = 0.223628E+00
- PKER_RACCSS( 25, 21) = 0.273609E+00
- PKER_RACCSS( 25, 22) = 0.318759E+00
- PKER_RACCSS( 25, 23) = 0.356134E+00
- PKER_RACCSS( 25, 24) = 0.386398E+00
- PKER_RACCSS( 25, 25) = 0.410983E+00
- PKER_RACCSS( 25, 26) = 0.431059E+00
- PKER_RACCSS( 25, 27) = 0.447500E+00
- PKER_RACCSS( 25, 28) = 0.460986E+00
- PKER_RACCSS( 25, 29) = 0.472065E+00
- PKER_RACCSS( 25, 30) = 0.481178E+00
- PKER_RACCSS( 25, 31) = 0.488681E+00
- PKER_RACCSS( 25, 32) = 0.494864E+00
- PKER_RACCSS( 25, 33) = 0.499963E+00
- PKER_RACCSS( 25, 34) = 0.504169E+00
- PKER_RACCSS( 25, 35) = 0.507642E+00
- PKER_RACCSS( 25, 36) = 0.510510E+00
- PKER_RACCSS( 25, 37) = 0.512879E+00
- PKER_RACCSS( 25, 38) = 0.514836E+00
- PKER_RACCSS( 25, 39) = 0.516454E+00
- PKER_RACCSS( 25, 40) = 0.517791E+00
- PKER_RACCSS( 26, 1) = 0.132742E+02
- PKER_RACCSS( 26, 2) = 0.108337E+02
- PKER_RACCSS( 26, 3) = 0.872586E+01
- PKER_RACCSS( 26, 4) = 0.703900E+01
- PKER_RACCSS( 26, 5) = 0.562634E+01
- PKER_RACCSS( 26, 6) = 0.444059E+01
- PKER_RACCSS( 26, 7) = 0.356562E+01
- PKER_RACCSS( 26, 8) = 0.274250E+01
- PKER_RACCSS( 26, 9) = 0.216207E+01
- PKER_RACCSS( 26, 10) = 0.168328E+01
- PKER_RACCSS( 26, 11) = 0.128971E+01
- PKER_RACCSS( 26, 12) = 0.967844E+00
- PKER_RACCSS( 26, 13) = 0.707228E+00
- PKER_RACCSS( 26, 14) = 0.499963E+00
- PKER_RACCSS( 26, 15) = 0.341292E+00
- PKER_RACCSS( 26, 16) = 0.229353E+00
- PKER_RACCSS( 26, 17) = 0.164063E+00
- PKER_RACCSS( 26, 18) = 0.143754E+00
- PKER_RACCSS( 26, 19) = 0.160834E+00
- PKER_RACCSS( 26, 20) = 0.201345E+00
- PKER_RACCSS( 26, 21) = 0.249884E+00
- PKER_RACCSS( 26, 22) = 0.295670E+00
- PKER_RACCSS( 26, 23) = 0.334320E+00
- PKER_RACCSS( 26, 24) = 0.365515E+00
- PKER_RACCSS( 26, 25) = 0.390474E+00
- PKER_RACCSS( 26, 26) = 0.410622E+00
- PKER_RACCSS( 26, 27) = 0.427051E+00
- PKER_RACCSS( 26, 28) = 0.440513E+00
- PKER_RACCSS( 26, 29) = 0.451566E+00
- PKER_RACCSS( 26, 30) = 0.460654E+00
- PKER_RACCSS( 26, 31) = 0.468135E+00
- PKER_RACCSS( 26, 32) = 0.474298E+00
- PKER_RACCSS( 26, 33) = 0.479380E+00
- PKER_RACCSS( 26, 34) = 0.483572E+00
- PKER_RACCSS( 26, 35) = 0.487033E+00
- PKER_RACCSS( 26, 36) = 0.489891E+00
- PKER_RACCSS( 26, 37) = 0.492252E+00
- PKER_RACCSS( 26, 38) = 0.494203E+00
- PKER_RACCSS( 26, 39) = 0.495815E+00
- PKER_RACCSS( 26, 40) = 0.497148E+00
- PKER_RACCSS( 27, 1) = 0.133097E+02
- PKER_RACCSS( 27, 2) = 0.109011E+02
- PKER_RACCSS( 27, 3) = 0.888269E+01
- PKER_RACCSS( 27, 4) = 0.719362E+01
- PKER_RACCSS( 27, 5) = 0.580985E+01
- PKER_RACCSS( 27, 6) = 0.465501E+01
- PKER_RACCSS( 27, 7) = 0.374781E+01
- PKER_RACCSS( 27, 8) = 0.294825E+01
- PKER_RACCSS( 27, 9) = 0.233507E+01
- PKER_RACCSS( 27, 10) = 0.182826E+01
- PKER_RACCSS( 27, 11) = 0.141027E+01
- PKER_RACCSS( 27, 12) = 0.106668E+01
- PKER_RACCSS( 27, 13) = 0.786260E+00
- PKER_RACCSS( 27, 14) = 0.560532E+00
- PKER_RACCSS( 27, 15) = 0.384455E+00
- PKER_RACCSS( 27, 16) = 0.256127E+00
- PKER_RACCSS( 27, 17) = 0.176040E+00
- PKER_RACCSS( 27, 18) = 0.143310E+00
- PKER_RACCSS( 27, 19) = 0.151524E+00
- PKER_RACCSS( 27, 20) = 0.186916E+00
- PKER_RACCSS( 27, 21) = 0.233004E+00
- PKER_RACCSS( 27, 22) = 0.277474E+00
- PKER_RACCSS( 27, 23) = 0.315252E+00
- PKER_RACCSS( 27, 24) = 0.345942E+00
- PKER_RACCSS( 27, 25) = 0.370729E+00
- PKER_RACCSS( 27, 26) = 0.390865E+00
- PKER_RACCSS( 27, 27) = 0.407311E+00
- PKER_RACCSS( 27, 28) = 0.420780E+00
- PKER_RACCSS( 27, 29) = 0.431832E+00
- PKER_RACCSS( 27, 30) = 0.440914E+00
- PKER_RACCSS( 27, 31) = 0.448386E+00
- PKER_RACCSS( 27, 32) = 0.454540E+00
- PKER_RACCSS( 27, 33) = 0.459613E+00
- PKER_RACCSS( 27, 34) = 0.463798E+00
- PKER_RACCSS( 27, 35) = 0.467251E+00
- PKER_RACCSS( 27, 36) = 0.470104E+00
- PKER_RACCSS( 27, 37) = 0.472459E+00
- PKER_RACCSS( 27, 38) = 0.474406E+00
- PKER_RACCSS( 27, 39) = 0.476015E+00
- PKER_RACCSS( 27, 40) = 0.477346E+00
- PKER_RACCSS( 28, 1) = 0.133115E+02
- PKER_RACCSS( 28, 2) = 0.109156E+02
- PKER_RACCSS( 28, 3) = 0.892137E+01
- PKER_RACCSS( 28, 4) = 0.726595E+01
- PKER_RACCSS( 28, 5) = 0.588073E+01
- PKER_RACCSS( 28, 6) = 0.474162E+01
- PKER_RACCSS( 28, 7) = 0.379341E+01
- PKER_RACCSS( 28, 8) = 0.303518E+01
- PKER_RACCSS( 28, 9) = 0.240761E+01
- PKER_RACCSS( 28, 10) = 0.188860E+01
- PKER_RACCSS( 28, 11) = 0.146011E+01
- PKER_RACCSS( 28, 12) = 0.110727E+01
- PKER_RACCSS( 28, 13) = 0.818541E+00
- PKER_RACCSS( 28, 14) = 0.585150E+00
- PKER_RACCSS( 28, 15) = 0.401892E+00
- PKER_RACCSS( 28, 16) = 0.266865E+00
- PKER_RACCSS( 28, 17) = 0.180994E+00
- PKER_RACCSS( 28, 18) = 0.143621E+00
- PKER_RACCSS( 28, 19) = 0.148709E+00
- PKER_RACCSS( 28, 20) = 0.182192E+00
- PKER_RACCSS( 28, 21) = 0.227050E+00
- PKER_RACCSS( 28, 22) = 0.270562E+00
- PKER_RACCSS( 28, 23) = 0.307571E+00
- PKER_RACCSS( 28, 24) = 0.337783E+00
- PKER_RACCSS( 28, 25) = 0.362333E+00
- PKER_RACCSS( 28, 26) = 0.382340E+00
- PKER_RACCSS( 28, 27) = 0.398692E+00
- PKER_RACCSS( 28, 28) = 0.412083E+00
- PKER_RACCSS( 28, 29) = 0.423069E+00
- PKER_RACCSS( 28, 30) = 0.432097E+00
- PKER_RACCSS( 28, 31) = 0.439525E+00
- PKER_RACCSS( 28, 32) = 0.445643E+00
- PKER_RACCSS( 28, 33) = 0.450687E+00
- PKER_RACCSS( 28, 34) = 0.454848E+00
- PKER_RACCSS( 28, 35) = 0.458283E+00
- PKER_RACCSS( 28, 36) = 0.461119E+00
- PKER_RACCSS( 28, 37) = 0.463463E+00
- PKER_RACCSS( 28, 38) = 0.465400E+00
- PKER_RACCSS( 28, 39) = 0.467002E+00
- PKER_RACCSS( 28, 40) = 0.468326E+00
- PKER_RACCSS( 29, 1) = 0.133215E+02
- PKER_RACCSS( 29, 2) = 0.109289E+02
- PKER_RACCSS( 29, 3) = 0.894604E+01
- PKER_RACCSS( 29, 4) = 0.730119E+01
- PKER_RACCSS( 29, 5) = 0.593124E+01
- PKER_RACCSS( 29, 6) = 0.480144E+01
- PKER_RACCSS( 29, 7) = 0.386406E+01
- PKER_RACCSS( 29, 8) = 0.309611E+01
- PKER_RACCSS( 29, 9) = 0.246034E+01
- PKER_RACCSS( 29, 10) = 0.193432E+01
- PKER_RACCSS( 29, 11) = 0.149394E+01
- PKER_RACCSS( 29, 12) = 0.113665E+01
- PKER_RACCSS( 29, 13) = 0.843665E+00
- PKER_RACCSS( 29, 14) = 0.605916E+00
- PKER_RACCSS( 29, 15) = 0.417943E+00
- PKER_RACCSS( 29, 16) = 0.277581E+00
- PKER_RACCSS( 29, 17) = 0.185747E+00
- PKER_RACCSS( 29, 18) = 0.142370E+00
- PKER_RACCSS( 29, 19) = 0.142343E+00
- PKER_RACCSS( 29, 20) = 0.172458E+00
- PKER_RACCSS( 29, 21) = 0.215669E+00
- PKER_RACCSS( 29, 22) = 0.258726E+00
- PKER_RACCSS( 29, 23) = 0.295879E+00
- PKER_RACCSS( 29, 24) = 0.326452E+00
- PKER_RACCSS( 29, 25) = 0.351334E+00
- PKER_RACCSS( 29, 26) = 0.371529E+00
- PKER_RACCSS( 29, 27) = 0.387939E+00
- PKER_RACCSS( 29, 28) = 0.401329E+00
- PKER_RACCSS( 29, 29) = 0.412300E+00
- PKER_RACCSS( 29, 30) = 0.421310E+00
- PKER_RACCSS( 29, 31) = 0.428722E+00
- PKER_RACCSS( 29, 32) = 0.434825E+00
- PKER_RACCSS( 29, 33) = 0.439856E+00
- PKER_RACCSS( 29, 34) = 0.444007E+00
- PKER_RACCSS( 29, 35) = 0.447433E+00
- PKER_RACCSS( 29, 36) = 0.450262E+00
- PKER_RACCSS( 29, 37) = 0.452600E+00
- PKER_RACCSS( 29, 38) = 0.454532E+00
- PKER_RACCSS( 29, 39) = 0.456130E+00
- PKER_RACCSS( 29, 40) = 0.457451E+00
- PKER_RACCSS( 30, 1) = 0.133375E+02
- PKER_RACCSS( 30, 2) = 0.109457E+02
- PKER_RACCSS( 30, 3) = 0.896468E+01
- PKER_RACCSS( 30, 4) = 0.732350E+01
- PKER_RACCSS( 30, 5) = 0.596323E+01
- PKER_RACCSS( 30, 6) = 0.483579E+01
- PKER_RACCSS( 30, 7) = 0.390254E+01
- PKER_RACCSS( 30, 8) = 0.313132E+01
- PKER_RACCSS( 30, 9) = 0.249276E+01
- PKER_RACCSS( 30, 10) = 0.196278E+01
- PKER_RACCSS( 30, 11) = 0.152606E+01
- PKER_RACCSS( 30, 12) = 0.116570E+01
- PKER_RACCSS( 30, 13) = 0.869566E+00
- PKER_RACCSS( 30, 14) = 0.628357E+00
- PKER_RACCSS( 30, 15) = 0.436329E+00
- PKER_RACCSS( 30, 16) = 0.290939E+00
- PKER_RACCSS( 30, 17) = 0.192920E+00
- PKER_RACCSS( 30, 18) = 0.142864E+00
- PKER_RACCSS( 30, 19) = 0.136857E+00
- PKER_RACCSS( 30, 20) = 0.162977E+00
- PKER_RACCSS( 30, 21) = 0.204357E+00
- PKER_RACCSS( 30, 22) = 0.246873E+00
- PKER_RACCSS( 30, 23) = 0.283849E+00
- PKER_RACCSS( 30, 24) = 0.314229E+00
- PKER_RACCSS( 30, 25) = 0.338918E+00
- PKER_RACCSS( 30, 26) = 0.359002E+00
- PKER_RACCSS( 30, 27) = 0.375384E+00
- PKER_RACCSS( 30, 28) = 0.388781E+00
- PKER_RACCSS( 30, 29) = 0.399761E+00
- PKER_RACCSS( 30, 30) = 0.408775E+00
- PKER_RACCSS( 30, 31) = 0.416186E+00
- PKER_RACCSS( 30, 32) = 0.422287E+00
- PKER_RACCSS( 30, 33) = 0.427315E+00
- PKER_RACCSS( 30, 34) = 0.431462E+00
- PKER_RACCSS( 30, 35) = 0.434884E+00
- PKER_RACCSS( 30, 36) = 0.437711E+00
- PKER_RACCSS( 30, 37) = 0.440046E+00
- PKER_RACCSS( 30, 38) = 0.441975E+00
- PKER_RACCSS( 30, 39) = 0.443571E+00
- PKER_RACCSS( 30, 40) = 0.444890E+00
- PKER_RACCSS( 31, 1) = 0.133457E+02
- PKER_RACCSS( 31, 2) = 0.109540E+02
- PKER_RACCSS( 31, 3) = 0.897333E+01
- PKER_RACCSS( 31, 4) = 0.733289E+01
- PKER_RACCSS( 31, 5) = 0.597403E+01
- PKER_RACCSS( 31, 6) = 0.484844E+01
- PKER_RACCSS( 31, 7) = 0.391622E+01
- PKER_RACCSS( 31, 8) = 0.314409E+01
- PKER_RACCSS( 31, 9) = 0.250503E+01
- PKER_RACCSS( 31, 10) = 0.197608E+01
- PKER_RACCSS( 31, 11) = 0.153866E+01
- PKER_RACCSS( 31, 12) = 0.117759E+01
- PKER_RACCSS( 31, 13) = 0.880647E+00
- PKER_RACCSS( 31, 14) = 0.638378E+00
- PKER_RACCSS( 31, 15) = 0.444889E+00
- PKER_RACCSS( 31, 16) = 0.297371E+00
- PKER_RACCSS( 31, 17) = 0.196420E+00
- PKER_RACCSS( 31, 18) = 0.142908E+00
- PKER_RACCSS( 31, 19) = 0.133631E+00
- PKER_RACCSS( 31, 20) = 0.157422E+00
- PKER_RACCSS( 31, 21) = 0.197662E+00
- PKER_RACCSS( 31, 22) = 0.239819E+00
- PKER_RACCSS( 31, 23) = 0.276723E+00
- PKER_RACCSS( 31, 24) = 0.307082E+00
- PKER_RACCSS( 31, 25) = 0.331764E+00
- PKER_RACCSS( 31, 26) = 0.351849E+00
- PKER_RACCSS( 31, 27) = 0.368231E+00
- PKER_RACCSS( 31, 28) = 0.381625E+00
- PKER_RACCSS( 31, 29) = 0.392598E+00
- PKER_RACCSS( 31, 30) = 0.401604E+00
- PKER_RACCSS( 31, 31) = 0.409008E+00
- PKER_RACCSS( 31, 32) = 0.415101E+00
- PKER_RACCSS( 31, 33) = 0.420122E+00
- PKER_RACCSS( 31, 34) = 0.424262E+00
- PKER_RACCSS( 31, 35) = 0.427680E+00
- PKER_RACCSS( 31, 36) = 0.430501E+00
- PKER_RACCSS( 31, 37) = 0.432833E+00
- PKER_RACCSS( 31, 38) = 0.434760E+00
- PKER_RACCSS( 31, 39) = 0.436352E+00
- PKER_RACCSS( 31, 40) = 0.437670E+00
- PKER_RACCSS( 32, 1) = 0.133505E+02
- PKER_RACCSS( 32, 2) = 0.109589E+02
- PKER_RACCSS( 32, 3) = 0.897836E+01
- PKER_RACCSS( 32, 4) = 0.733809E+01
- PKER_RACCSS( 32, 5) = 0.597956E+01
- PKER_RACCSS( 32, 6) = 0.485431E+01
- PKER_RACCSS( 32, 7) = 0.392231E+01
- PKER_RACCSS( 32, 8) = 0.315042E+01
- PKER_RACCSS( 32, 9) = 0.251126E+01
- PKER_RACCSS( 32, 10) = 0.198225E+01
- PKER_RACCSS( 32, 11) = 0.154473E+01
- PKER_RACCSS( 32, 12) = 0.118355E+01
- PKER_RACCSS( 32, 13) = 0.886389E+00
- PKER_RACCSS( 32, 14) = 0.643737E+00
- PKER_RACCSS( 32, 15) = 0.449607E+00
- PKER_RACCSS( 32, 16) = 0.300995E+00
- PKER_RACCSS( 32, 17) = 0.198415E+00
- PKER_RACCSS( 32, 18) = 0.142843E+00
- PKER_RACCSS( 32, 19) = 0.131565E+00
- PKER_RACCSS( 32, 20) = 0.153886E+00
- PKER_RACCSS( 32, 21) = 0.193406E+00
- PKER_RACCSS( 32, 22) = 0.235356E+00
- PKER_RACCSS( 32, 23) = 0.272245E+00
- PKER_RACCSS( 32, 24) = 0.302622E+00
- PKER_RACCSS( 32, 25) = 0.327315E+00
- PKER_RACCSS( 32, 26) = 0.347401E+00
- PKER_RACCSS( 32, 27) = 0.363781E+00
- PKER_RACCSS( 32, 28) = 0.377168E+00
- PKER_RACCSS( 32, 29) = 0.388134E+00
- PKER_RACCSS( 32, 30) = 0.397132E+00
- PKER_RACCSS( 32, 31) = 0.404527E+00
- PKER_RACCSS( 32, 32) = 0.410614E+00
- PKER_RACCSS( 32, 33) = 0.415629E+00
- PKER_RACCSS( 32, 34) = 0.419764E+00
- PKER_RACCSS( 32, 35) = 0.423177E+00
- PKER_RACCSS( 32, 36) = 0.425995E+00
- PKER_RACCSS( 32, 37) = 0.428323E+00
- PKER_RACCSS( 32, 38) = 0.430248E+00
- PKER_RACCSS( 32, 39) = 0.431839E+00
- PKER_RACCSS( 32, 40) = 0.433154E+00
- PKER_RACCSS( 33, 1) = 0.133549E+02
- PKER_RACCSS( 33, 2) = 0.109634E+02
- PKER_RACCSS( 33, 3) = 0.898293E+01
- PKER_RACCSS( 33, 4) = 0.734275E+01
- PKER_RACCSS( 33, 5) = 0.598430E+01
- PKER_RACCSS( 33, 6) = 0.485916E+01
- PKER_RACCSS( 33, 7) = 0.392725E+01
- PKER_RACCSS( 33, 8) = 0.315543E+01
- PKER_RACCSS( 33, 9) = 0.251634E+01
- PKER_RACCSS( 33, 10) = 0.198734E+01
- PKER_RACCSS( 33, 11) = 0.154980E+01
- PKER_RACCSS( 33, 12) = 0.118857E+01
- PKER_RACCSS( 33, 13) = 0.891252E+00
- PKER_RACCSS( 33, 14) = 0.648304E+00
- PKER_RACCSS( 33, 15) = 0.453668E+00
- PKER_RACCSS( 33, 16) = 0.304190E+00
- PKER_RACCSS( 33, 17) = 0.200247E+00
- PKER_RACCSS( 33, 18) = 0.142958E+00
- PKER_RACCSS( 33, 19) = 0.129943E+00
- PKER_RACCSS( 33, 20) = 0.150972E+00
- PKER_RACCSS( 33, 21) = 0.189862E+00
- PKER_RACCSS( 33, 22) = 0.231629E+00
- PKER_RACCSS( 33, 23) = 0.268519E+00
- PKER_RACCSS( 33, 24) = 0.298923E+00
- PKER_RACCSS( 33, 25) = 0.323635E+00
- PKER_RACCSS( 33, 26) = 0.343732E+00
- PKER_RACCSS( 33, 27) = 0.360115E+00
- PKER_RACCSS( 33, 28) = 0.373503E+00
- PKER_RACCSS( 33, 29) = 0.384466E+00
- PKER_RACCSS( 33, 30) = 0.393460E+00
- PKER_RACCSS( 33, 31) = 0.400852E+00
- PKER_RACCSS( 33, 32) = 0.406935E+00
- PKER_RACCSS( 33, 33) = 0.411946E+00
- PKER_RACCSS( 33, 34) = 0.416078E+00
- PKER_RACCSS( 33, 35) = 0.419488E+00
- PKER_RACCSS( 33, 36) = 0.422304E+00
- PKER_RACCSS( 33, 37) = 0.424631E+00
- PKER_RACCSS( 33, 38) = 0.426553E+00
- PKER_RACCSS( 33, 39) = 0.428143E+00
- PKER_RACCSS( 33, 40) = 0.429458E+00
- PKER_RACCSS( 34, 1) = 0.133545E+02
- PKER_RACCSS( 34, 2) = 0.109630E+02
- PKER_RACCSS( 34, 3) = 0.898249E+01
- PKER_RACCSS( 34, 4) = 0.734231E+01
- PKER_RACCSS( 34, 5) = 0.598387E+01
- PKER_RACCSS( 34, 6) = 0.485874E+01
- PKER_RACCSS( 34, 7) = 0.392685E+01
- PKER_RACCSS( 34, 8) = 0.315505E+01
- PKER_RACCSS( 34, 9) = 0.251599E+01
- PKER_RACCSS( 34, 10) = 0.198703E+01
- PKER_RACCSS( 34, 11) = 0.154953E+01
- PKER_RACCSS( 34, 12) = 0.118835E+01
- PKER_RACCSS( 34, 13) = 0.891084E+00
- PKER_RACCSS( 34, 14) = 0.648191E+00
- PKER_RACCSS( 34, 15) = 0.453598E+00
- PKER_RACCSS( 34, 16) = 0.304088E+00
- PKER_RACCSS( 34, 17) = 0.200150E+00
- PKER_RACCSS( 34, 18) = 0.142751E+00
- PKER_RACCSS( 34, 19) = 0.129699E+00
- PKER_RACCSS( 34, 20) = 0.150660E+00
- PKER_RACCSS( 34, 21) = 0.189538E+00
- PKER_RACCSS( 34, 22) = 0.231282E+00
- PKER_RACCSS( 34, 23) = 0.268145E+00
- PKER_RACCSS( 34, 24) = 0.298523E+00
- PKER_RACCSS( 34, 25) = 0.323213E+00
- PKER_RACCSS( 34, 26) = 0.343290E+00
- PKER_RACCSS( 34, 27) = 0.359658E+00
- PKER_RACCSS( 34, 28) = 0.373032E+00
- PKER_RACCSS( 34, 29) = 0.383985E+00
- PKER_RACCSS( 34, 30) = 0.392971E+00
- PKER_RACCSS( 34, 31) = 0.400356E+00
- PKER_RACCSS( 34, 32) = 0.406433E+00
- PKER_RACCSS( 34, 33) = 0.411440E+00
- PKER_RACCSS( 34, 34) = 0.415568E+00
- PKER_RACCSS( 34, 35) = 0.418976E+00
- PKER_RACCSS( 34, 36) = 0.421789E+00
- PKER_RACCSS( 34, 37) = 0.424114E+00
- PKER_RACCSS( 34, 38) = 0.426035E+00
- PKER_RACCSS( 34, 39) = 0.427624E+00
- PKER_RACCSS( 34, 40) = 0.428937E+00
- PKER_RACCSS( 35, 1) = 0.133588E+02
- PKER_RACCSS( 35, 2) = 0.109673E+02
- PKER_RACCSS( 35, 3) = 0.898695E+01
- PKER_RACCSS( 35, 4) = 0.734684E+01
- PKER_RACCSS( 35, 5) = 0.598848E+01
- PKER_RACCSS( 35, 6) = 0.486341E+01
- PKER_RACCSS( 35, 7) = 0.393158E+01
- PKER_RACCSS( 35, 8) = 0.315983E+01
- PKER_RACCSS( 35, 9) = 0.252079E+01
- PKER_RACCSS( 35, 10) = 0.199184E+01
- PKER_RACCSS( 35, 11) = 0.155430E+01
- PKER_RACCSS( 35, 12) = 0.119306E+01
- PKER_RACCSS( 35, 13) = 0.895641E+00
- PKER_RACCSS( 35, 14) = 0.652461E+00
- PKER_RACCSS( 35, 15) = 0.457402E+00
- PKER_RACCSS( 35, 16) = 0.307153E+00
- PKER_RACCSS( 35, 17) = 0.201981E+00
- PKER_RACCSS( 35, 18) = 0.143041E+00
- PKER_RACCSS( 35, 19) = 0.128393E+00
- PKER_RACCSS( 35, 20) = 0.148145E+00
- PKER_RACCSS( 35, 21) = 0.186428E+00
- PKER_RACCSS( 35, 22) = 0.228006E+00
- PKER_RACCSS( 35, 23) = 0.264882E+00
- PKER_RACCSS( 35, 24) = 0.295301E+00
- PKER_RACCSS( 35, 25) = 0.320021E+00
- PKER_RACCSS( 35, 26) = 0.340118E+00
- PKER_RACCSS( 35, 27) = 0.356498E+00
- PKER_RACCSS( 35, 28) = 0.369879E+00
- PKER_RACCSS( 35, 29) = 0.380835E+00
- PKER_RACCSS( 35, 30) = 0.389822E+00
- PKER_RACCSS( 35, 31) = 0.397206E+00
- PKER_RACCSS( 35, 32) = 0.403283E+00
- PKER_RACCSS( 35, 33) = 0.408288E+00
- PKER_RACCSS( 35, 34) = 0.412416E+00
- PKER_RACCSS( 35, 35) = 0.415822E+00
- PKER_RACCSS( 35, 36) = 0.418634E+00
- PKER_RACCSS( 35, 37) = 0.420958E+00
- PKER_RACCSS( 35, 38) = 0.422879E+00
- PKER_RACCSS( 35, 39) = 0.424467E+00
- PKER_RACCSS( 35, 40) = 0.425780E+00
- PKER_RACCSS( 36, 1) = 0.133693E+02
- PKER_RACCSS( 36, 2) = 0.109781E+02
- PKER_RACCSS( 36, 3) = 0.899787E+01
- PKER_RACCSS( 36, 4) = 0.735793E+01
- PKER_RACCSS( 36, 5) = 0.599972E+01
- PKER_RACCSS( 36, 6) = 0.487480E+01
- PKER_RACCSS( 36, 7) = 0.394309E+01
- PKER_RACCSS( 36, 8) = 0.317142E+01
- PKER_RACCSS( 36, 9) = 0.253243E+01
- PKER_RACCSS( 36, 10) = 0.200346E+01
- PKER_RACCSS( 36, 11) = 0.156582E+01
- PKER_RACCSS( 36, 12) = 0.120440E+01
- PKER_RACCSS( 36, 13) = 0.906578E+00
- PKER_RACCSS( 36, 14) = 0.662698E+00
- PKER_RACCSS( 36, 15) = 0.466524E+00
- PKER_RACCSS( 36, 16) = 0.314682E+00
- PKER_RACCSS( 36, 17) = 0.206574E+00
- PKER_RACCSS( 36, 18) = 0.144245E+00
- PKER_RACCSS( 36, 19) = 0.125763E+00
- PKER_RACCSS( 36, 20) = 0.142684E+00
- PKER_RACCSS( 36, 21) = 0.179440E+00
- PKER_RACCSS( 36, 22) = 0.220596E+00
- PKER_RACCSS( 36, 23) = 0.257524E+00
- PKER_RACCSS( 36, 24) = 0.288068E+00
- PKER_RACCSS( 36, 25) = 0.312888E+00
- PKER_RACCSS( 36, 26) = 0.333055E+00
- PKER_RACCSS( 36, 27) = 0.349481E+00
- PKER_RACCSS( 36, 28) = 0.362892E+00
- PKER_RACCSS( 36, 29) = 0.373867E+00
- PKER_RACCSS( 36, 30) = 0.382866E+00
- PKER_RACCSS( 36, 31) = 0.390258E+00
- PKER_RACCSS( 36, 32) = 0.396339E+00
- PKER_RACCSS( 36, 33) = 0.401346E+00
- PKER_RACCSS( 36, 34) = 0.405475E+00
- PKER_RACCSS( 36, 35) = 0.408881E+00
- PKER_RACCSS( 36, 36) = 0.411694E+00
- PKER_RACCSS( 36, 37) = 0.414017E+00
- PKER_RACCSS( 36, 38) = 0.415937E+00
- PKER_RACCSS( 36, 39) = 0.417525E+00
- PKER_RACCSS( 36, 40) = 0.418837E+00
+ PKER_RACCSS( 1, 1) = 0.690959E+01
+ PKER_RACCSS( 1, 2) = 0.567481E+01
+ PKER_RACCSS( 1, 3) = 0.448901E+01
+ PKER_RACCSS( 1, 4) = 0.342820E+01
+ PKER_RACCSS( 1, 5) = 0.253043E+01
+ PKER_RACCSS( 1, 6) = 0.181127E+01
+ PKER_RACCSS( 1, 7) = 0.127656E+01
+ PKER_RACCSS( 1, 8) = 0.930093E+00
+ PKER_RACCSS( 1, 9) = 0.767456E+00
+ PKER_RACCSS( 1, 10) = 0.764985E+00
+ PKER_RACCSS( 1, 11) = 0.877850E+00
+ PKER_RACCSS( 1, 12) = 0.105028E+01
+ PKER_RACCSS( 1, 13) = 0.123545E+01
+ PKER_RACCSS( 1, 14) = 0.140595E+01
+ PKER_RACCSS( 1, 15) = 0.155229E+01
+ PKER_RACCSS( 1, 16) = 0.167456E+01
+ PKER_RACCSS( 1, 17) = 0.177591E+01
+ PKER_RACCSS( 1, 18) = 0.185978E+01
+ PKER_RACCSS( 1, 19) = 0.192918E+01
+ PKER_RACCSS( 1, 20) = 0.198661E+01
+ PKER_RACCSS( 1, 21) = 0.203413E+01
+ PKER_RACCSS( 1, 22) = 0.207346E+01
+ PKER_RACCSS( 1, 23) = 0.210601E+01
+ PKER_RACCSS( 1, 24) = 0.213295E+01
+ PKER_RACCSS( 1, 25) = 0.215525E+01
+ PKER_RACCSS( 1, 26) = 0.217370E+01
+ PKER_RACCSS( 1, 27) = 0.218898E+01
+ PKER_RACCSS( 1, 28) = 0.220163E+01
+ PKER_RACCSS( 1, 29) = 0.221209E+01
+ PKER_RACCSS( 1, 30) = 0.222076E+01
+ PKER_RACCSS( 1, 31) = 0.222793E+01
+ PKER_RACCSS( 1, 32) = 0.223387E+01
+ PKER_RACCSS( 1, 33) = 0.223878E+01
+ PKER_RACCSS( 1, 34) = 0.224285E+01
+ PKER_RACCSS( 1, 35) = 0.224622E+01
+ PKER_RACCSS( 1, 36) = 0.224900E+01
+ PKER_RACCSS( 1, 37) = 0.225131E+01
+ PKER_RACCSS( 1, 38) = 0.225322E+01
+ PKER_RACCSS( 1, 39) = 0.225480E+01
+ PKER_RACCSS( 1, 40) = 0.225611E+01
+ PKER_RACCSS( 2, 1) = 0.644313E+01
+ PKER_RACCSS( 2, 2) = 0.548394E+01
+ PKER_RACCSS( 2, 3) = 0.446057E+01
+ PKER_RACCSS( 2, 4) = 0.348309E+01
+ PKER_RACCSS( 2, 5) = 0.261733E+01
+ PKER_RACCSS( 2, 6) = 0.189832E+01
+ PKER_RACCSS( 2, 7) = 0.134358E+01
+ PKER_RACCSS( 2, 8) = 0.961970E+00
+ PKER_RACCSS( 2, 9) = 0.753053E+00
+ PKER_RACCSS( 2, 10) = 0.703384E+00
+ PKER_RACCSS( 2, 11) = 0.778340E+00
+ PKER_RACCSS( 2, 12) = 0.926704E+00
+ PKER_RACCSS( 2, 13) = 0.110037E+01
+ PKER_RACCSS( 2, 14) = 0.126682E+01
+ PKER_RACCSS( 2, 15) = 0.141220E+01
+ PKER_RACCSS( 2, 16) = 0.153439E+01
+ PKER_RACCSS( 2, 17) = 0.163583E+01
+ PKER_RACCSS( 2, 18) = 0.171978E+01
+ PKER_RACCSS( 2, 19) = 0.178924E+01
+ PKER_RACCSS( 2, 20) = 0.184671E+01
+ PKER_RACCSS( 2, 21) = 0.189427E+01
+ PKER_RACCSS( 2, 22) = 0.193362E+01
+ PKER_RACCSS( 2, 23) = 0.196619E+01
+ PKER_RACCSS( 2, 24) = 0.199315E+01
+ PKER_RACCSS( 2, 25) = 0.201546E+01
+ PKER_RACCSS( 2, 26) = 0.203392E+01
+ PKER_RACCSS( 2, 27) = 0.204920E+01
+ PKER_RACCSS( 2, 28) = 0.206185E+01
+ PKER_RACCSS( 2, 29) = 0.207232E+01
+ PKER_RACCSS( 2, 30) = 0.208099E+01
+ PKER_RACCSS( 2, 31) = 0.208817E+01
+ PKER_RACCSS( 2, 32) = 0.209410E+01
+ PKER_RACCSS( 2, 33) = 0.209902E+01
+ PKER_RACCSS( 2, 34) = 0.210309E+01
+ PKER_RACCSS( 2, 35) = 0.210646E+01
+ PKER_RACCSS( 2, 36) = 0.210924E+01
+ PKER_RACCSS( 2, 37) = 0.211155E+01
+ PKER_RACCSS( 2, 38) = 0.211346E+01
+ PKER_RACCSS( 2, 39) = 0.211504E+01
+ PKER_RACCSS( 2, 40) = 0.211635E+01
+ PKER_RACCSS( 3, 1) = 0.573795E+01
+ PKER_RACCSS( 3, 2) = 0.511805E+01
+ PKER_RACCSS( 3, 3) = 0.431910E+01
+ PKER_RACCSS( 3, 4) = 0.347268E+01
+ PKER_RACCSS( 3, 5) = 0.267152E+01
+ PKER_RACCSS( 3, 6) = 0.197282E+01
+ PKER_RACCSS( 3, 7) = 0.140982E+01
+ PKER_RACCSS( 3, 8) = 0.100121E+01
+ PKER_RACCSS( 3, 9) = 0.753860E+00
+ PKER_RACCSS( 3, 10) = 0.660309E+00
+ PKER_RACCSS( 3, 11) = 0.695906E+00
+ PKER_RACCSS( 3, 12) = 0.816902E+00
+ PKER_RACCSS( 3, 13) = 0.976130E+00
+ PKER_RACCSS( 3, 14) = 0.113696E+01
+ PKER_RACCSS( 3, 15) = 0.128080E+01
+ PKER_RACCSS( 3, 16) = 0.140279E+01
+ PKER_RACCSS( 3, 17) = 0.150431E+01
+ PKER_RACCSS( 3, 18) = 0.158836E+01
+ PKER_RACCSS( 3, 19) = 0.165789E+01
+ PKER_RACCSS( 3, 20) = 0.171542E+01
+ PKER_RACCSS( 3, 21) = 0.176302E+01
+ PKER_RACCSS( 3, 22) = 0.180240E+01
+ PKER_RACCSS( 3, 23) = 0.183499E+01
+ PKER_RACCSS( 3, 24) = 0.186197E+01
+ PKER_RACCSS( 3, 25) = 0.188429E+01
+ PKER_RACCSS( 3, 26) = 0.190276E+01
+ PKER_RACCSS( 3, 27) = 0.191805E+01
+ PKER_RACCSS( 3, 28) = 0.193071E+01
+ PKER_RACCSS( 3, 29) = 0.194118E+01
+ PKER_RACCSS( 3, 30) = 0.194986E+01
+ PKER_RACCSS( 3, 31) = 0.195703E+01
+ PKER_RACCSS( 3, 32) = 0.196297E+01
+ PKER_RACCSS( 3, 33) = 0.196789E+01
+ PKER_RACCSS( 3, 34) = 0.197196E+01
+ PKER_RACCSS( 3, 35) = 0.197533E+01
+ PKER_RACCSS( 3, 36) = 0.197812E+01
+ PKER_RACCSS( 3, 37) = 0.198043E+01
+ PKER_RACCSS( 3, 38) = 0.198234E+01
+ PKER_RACCSS( 3, 39) = 0.198392E+01
+ PKER_RACCSS( 3, 40) = 0.198523E+01
+ PKER_RACCSS( 4, 1) = 0.481286E+01
+ PKER_RACCSS( 4, 2) = 0.455675E+01
+ PKER_RACCSS( 4, 3) = 0.403407E+01
+ PKER_RACCSS( 4, 4) = 0.336958E+01
+ PKER_RACCSS( 4, 5) = 0.267295E+01
+ PKER_RACCSS( 4, 6) = 0.202246E+01
+ PKER_RACCSS( 4, 7) = 0.146909E+01
+ PKER_RACCSS( 4, 8) = 0.104372E+01
+ PKER_RACCSS( 4, 9) = 0.764198E+00
+ PKER_RACCSS( 4, 10) = 0.631791E+00
+ PKER_RACCSS( 4, 11) = 0.629058E+00
+ PKER_RACCSS( 4, 12) = 0.720982E+00
+ PKER_RACCSS( 4, 13) = 0.862867E+00
+ PKER_RACCSS( 4, 14) = 0.101613E+01
+ PKER_RACCSS( 4, 15) = 0.115766E+01
+ PKER_RACCSS( 4, 16) = 0.127924E+01
+ PKER_RACCSS( 4, 17) = 0.138081E+01
+ PKER_RACCSS( 4, 18) = 0.146497E+01
+ PKER_RACCSS( 4, 19) = 0.153460E+01
+ PKER_RACCSS( 4, 20) = 0.159220E+01
+ PKER_RACCSS( 4, 21) = 0.163984E+01
+ PKER_RACCSS( 4, 22) = 0.167926E+01
+ PKER_RACCSS( 4, 23) = 0.171188E+01
+ PKER_RACCSS( 4, 24) = 0.173888E+01
+ PKER_RACCSS( 4, 25) = 0.176121E+01
+ PKER_RACCSS( 4, 26) = 0.177970E+01
+ PKER_RACCSS( 4, 27) = 0.179500E+01
+ PKER_RACCSS( 4, 28) = 0.180766E+01
+ PKER_RACCSS( 4, 29) = 0.181814E+01
+ PKER_RACCSS( 4, 30) = 0.182682E+01
+ PKER_RACCSS( 4, 31) = 0.183400E+01
+ PKER_RACCSS( 4, 32) = 0.183994E+01
+ PKER_RACCSS( 4, 33) = 0.184486E+01
+ PKER_RACCSS( 4, 34) = 0.184893E+01
+ PKER_RACCSS( 4, 35) = 0.185230E+01
+ PKER_RACCSS( 4, 36) = 0.185509E+01
+ PKER_RACCSS( 4, 37) = 0.185740E+01
+ PKER_RACCSS( 4, 38) = 0.185931E+01
+ PKER_RACCSS( 4, 39) = 0.186089E+01
+ PKER_RACCSS( 4, 40) = 0.186220E+01
+ PKER_RACCSS( 5, 1) = 0.374607E+01
+ PKER_RACCSS( 5, 2) = 0.381650E+01
+ PKER_RACCSS( 5, 3) = 0.358955E+01
+ PKER_RACCSS( 5, 4) = 0.314924E+01
+ PKER_RACCSS( 5, 5) = 0.259876E+01
+ PKER_RACCSS( 5, 6) = 0.203003E+01
+ PKER_RACCSS( 5, 7) = 0.151044E+01
+ PKER_RACCSS( 5, 8) = 0.108463E+01
+ PKER_RACCSS( 5, 9) = 0.781881E+00
+ PKER_RACCSS( 5, 10) = 0.614370E+00
+ PKER_RACCSS( 5, 11) = 0.575301E+00
+ PKER_RACCSS( 5, 12) = 0.637842E+00
+ PKER_RACCSS( 5, 13) = 0.760479E+00
+ PKER_RACCSS( 5, 14) = 0.904219E+00
+ PKER_RACCSS( 5, 15) = 0.104241E+01
+ PKER_RACCSS( 5, 16) = 0.116324E+01
+ PKER_RACCSS( 5, 17) = 0.126482E+01
+ PKER_RACCSS( 5, 18) = 0.134911E+01
+ PKER_RACCSS( 5, 19) = 0.141885E+01
+ PKER_RACCSS( 5, 20) = 0.147653E+01
+ PKER_RACCSS( 5, 21) = 0.152423E+01
+ PKER_RACCSS( 5, 22) = 0.156370E+01
+ PKER_RACCSS( 5, 23) = 0.159635E+01
+ PKER_RACCSS( 5, 24) = 0.162337E+01
+ PKER_RACCSS( 5, 25) = 0.164573E+01
+ PKER_RACCSS( 5, 26) = 0.166423E+01
+ PKER_RACCSS( 5, 27) = 0.167954E+01
+ PKER_RACCSS( 5, 28) = 0.169221E+01
+ PKER_RACCSS( 5, 29) = 0.170270E+01
+ PKER_RACCSS( 5, 30) = 0.171138E+01
+ PKER_RACCSS( 5, 31) = 0.171856E+01
+ PKER_RACCSS( 5, 32) = 0.172451E+01
+ PKER_RACCSS( 5, 33) = 0.172943E+01
+ PKER_RACCSS( 5, 34) = 0.173350E+01
+ PKER_RACCSS( 5, 35) = 0.173687E+01
+ PKER_RACCSS( 5, 36) = 0.173966E+01
+ PKER_RACCSS( 5, 37) = 0.174197E+01
+ PKER_RACCSS( 5, 38) = 0.174389E+01
+ PKER_RACCSS( 5, 39) = 0.174547E+01
+ PKER_RACCSS( 5, 40) = 0.174678E+01
+ PKER_RACCSS( 6, 1) = 0.266518E+01
+ PKER_RACCSS( 6, 2) = 0.296172E+01
+ PKER_RACCSS( 6, 3) = 0.299965E+01
+ PKER_RACCSS( 6, 4) = 0.279909E+01
+ PKER_RACCSS( 6, 5) = 0.242925E+01
+ PKER_RACCSS( 6, 6) = 0.197670E+01
+ PKER_RACCSS( 6, 7) = 0.151879E+01
+ PKER_RACCSS( 6, 8) = 0.111427E+01
+ PKER_RACCSS( 6, 9) = 0.802814E+00
+ PKER_RACCSS( 6, 10) = 0.607776E+00
+ PKER_RACCSS( 6, 11) = 0.534157E+00
+ PKER_RACCSS( 6, 12) = 0.565946E+00
+ PKER_RACCSS( 6, 13) = 0.667842E+00
+ PKER_RACCSS( 6, 14) = 0.800760E+00
+ PKER_RACCSS( 6, 15) = 0.934666E+00
+ PKER_RACCSS( 6, 16) = 0.105437E+01
+ PKER_RACCSS( 6, 17) = 0.115586E+01
+ PKER_RACCSS( 6, 18) = 0.124029E+01
+ PKER_RACCSS( 6, 19) = 0.131016E+01
+ PKER_RACCSS( 6, 20) = 0.136794E+01
+ PKER_RACCSS( 6, 21) = 0.141572E+01
+ PKER_RACCSS( 6, 22) = 0.145524E+01
+ PKER_RACCSS( 6, 23) = 0.148793E+01
+ PKER_RACCSS( 6, 24) = 0.151498E+01
+ PKER_RACCSS( 6, 25) = 0.153736E+01
+ PKER_RACCSS( 6, 26) = 0.155588E+01
+ PKER_RACCSS( 6, 27) = 0.157120E+01
+ PKER_RACCSS( 6, 28) = 0.158388E+01
+ PKER_RACCSS( 6, 29) = 0.159438E+01
+ PKER_RACCSS( 6, 30) = 0.160306E+01
+ PKER_RACCSS( 6, 31) = 0.161025E+01
+ PKER_RACCSS( 6, 32) = 0.161620E+01
+ PKER_RACCSS( 6, 33) = 0.162112E+01
+ PKER_RACCSS( 6, 34) = 0.162520E+01
+ PKER_RACCSS( 6, 35) = 0.162857E+01
+ PKER_RACCSS( 6, 36) = 0.163136E+01
+ PKER_RACCSS( 6, 37) = 0.163368E+01
+ PKER_RACCSS( 6, 38) = 0.163559E+01
+ PKER_RACCSS( 6, 39) = 0.163717E+01
+ PKER_RACCSS( 6, 40) = 0.163848E+01
+ PKER_RACCSS( 7, 1) = 0.190769E+01
+ PKER_RACCSS( 7, 2) = 0.229809E+01
+ PKER_RACCSS( 7, 3) = 0.231829E+01
+ PKER_RACCSS( 7, 4) = 0.233168E+01
+ PKER_RACCSS( 7, 5) = 0.215483E+01
+ PKER_RACCSS( 7, 6) = 0.184641E+01
+ PKER_RACCSS( 7, 7) = 0.147928E+01
+ PKER_RACCSS( 7, 8) = 0.111943E+01
+ PKER_RACCSS( 7, 9) = 0.817697E+00
+ PKER_RACCSS( 7, 10) = 0.608172E+00
+ PKER_RACCSS( 7, 11) = 0.505946E+00
+ PKER_RACCSS( 7, 12) = 0.506193E+00
+ PKER_RACCSS( 7, 13) = 0.584167E+00
+ PKER_RACCSS( 7, 14) = 0.703639E+00
+ PKER_RACCSS( 7, 15) = 0.832379E+00
+ PKER_RACCSS( 7, 16) = 0.951052E+00
+ PKER_RACCSS( 7, 17) = 0.105287E+01
+ PKER_RACCSS( 7, 18) = 0.113779E+01
+ PKER_RACCSS( 7, 19) = 0.120800E+01
+ PKER_RACCSS( 7, 20) = 0.126597E+01
+ PKER_RACCSS( 7, 21) = 0.131385E+01
+ PKER_RACCSS( 7, 22) = 0.135343E+01
+ PKER_RACCSS( 7, 23) = 0.138617E+01
+ PKER_RACCSS( 7, 24) = 0.141326E+01
+ PKER_RACCSS( 7, 25) = 0.143566E+01
+ PKER_RACCSS( 7, 26) = 0.145420E+01
+ PKER_RACCSS( 7, 27) = 0.146954E+01
+ PKER_RACCSS( 7, 28) = 0.148224E+01
+ PKER_RACCSS( 7, 29) = 0.149274E+01
+ PKER_RACCSS( 7, 30) = 0.150143E+01
+ PKER_RACCSS( 7, 31) = 0.150863E+01
+ PKER_RACCSS( 7, 32) = 0.151458E+01
+ PKER_RACCSS( 7, 33) = 0.151951E+01
+ PKER_RACCSS( 7, 34) = 0.152359E+01
+ PKER_RACCSS( 7, 35) = 0.152696E+01
+ PKER_RACCSS( 7, 36) = 0.152975E+01
+ PKER_RACCSS( 7, 37) = 0.153207E+01
+ PKER_RACCSS( 7, 38) = 0.153398E+01
+ PKER_RACCSS( 7, 39) = 0.153557E+01
+ PKER_RACCSS( 7, 40) = 0.153688E+01
+ PKER_RACCSS( 8, 1) = 0.245385E+01
+ PKER_RACCSS( 8, 2) = 0.234012E+01
+ PKER_RACCSS( 8, 3) = 0.230602E+01
+ PKER_RACCSS( 8, 4) = 0.224183E+01
+ PKER_RACCSS( 8, 5) = 0.208614E+01
+ PKER_RACCSS( 8, 6) = 0.183109E+01
+ PKER_RACCSS( 8, 7) = 0.151043E+01
+ PKER_RACCSS( 8, 8) = 0.117425E+01
+ PKER_RACCSS( 8, 9) = 0.872225E+00
+ PKER_RACCSS( 8, 10) = 0.643228E+00
+ PKER_RACCSS( 8, 11) = 0.509769E+00
+ PKER_RACCSS( 8, 12) = 0.475368E+00
+ PKER_RACCSS( 8, 13) = 0.523601E+00
+ PKER_RACCSS( 8, 14) = 0.623040E+00
+ PKER_RACCSS( 8, 15) = 0.741772E+00
+ PKER_RACCSS( 8, 16) = 0.856619E+00
+ PKER_RACCSS( 8, 17) = 0.957307E+00
+ PKER_RACCSS( 8, 18) = 0.104196E+01
+ PKER_RACCSS( 8, 19) = 0.111217E+01
+ PKER_RACCSS( 8, 20) = 0.117022E+01
+ PKER_RACCSS( 8, 21) = 0.121820E+01
+ PKER_RACCSS( 8, 22) = 0.125786E+01
+ PKER_RACCSS( 8, 23) = 0.129066E+01
+ PKER_RACCSS( 8, 24) = 0.131779E+01
+ PKER_RACCSS( 8, 25) = 0.134023E+01
+ PKER_RACCSS( 8, 26) = 0.135879E+01
+ PKER_RACCSS( 8, 27) = 0.137415E+01
+ PKER_RACCSS( 8, 28) = 0.138686E+01
+ PKER_RACCSS( 8, 29) = 0.139737E+01
+ PKER_RACCSS( 8, 30) = 0.140607E+01
+ PKER_RACCSS( 8, 31) = 0.141327E+01
+ PKER_RACCSS( 8, 32) = 0.141923E+01
+ PKER_RACCSS( 8, 33) = 0.142417E+01
+ PKER_RACCSS( 8, 34) = 0.142825E+01
+ PKER_RACCSS( 8, 35) = 0.143162E+01
+ PKER_RACCSS( 8, 36) = 0.143442E+01
+ PKER_RACCSS( 8, 37) = 0.143673E+01
+ PKER_RACCSS( 8, 38) = 0.143865E+01
+ PKER_RACCSS( 8, 39) = 0.144023E+01
+ PKER_RACCSS( 8, 40) = 0.144155E+01
+ PKER_RACCSS( 9, 1) = 0.224922E+01
+ PKER_RACCSS( 9, 2) = 0.196699E+01
+ PKER_RACCSS( 9, 3) = 0.185079E+01
+ PKER_RACCSS( 9, 4) = 0.179999E+01
+ PKER_RACCSS( 9, 5) = 0.172760E+01
+ PKER_RACCSS( 9, 6) = 0.158533E+01
+ PKER_RACCSS( 9, 7) = 0.136998E+01
+ PKER_RACCSS( 9, 8) = 0.111090E+01
+ PKER_RACCSS( 9, 9) = 0.851195E+00
+ PKER_RACCSS( 9, 10) = 0.633967E+00
+ PKER_RACCSS( 9, 11) = 0.490795E+00
+ PKER_RACCSS( 9, 12) = 0.436162E+00
+ PKER_RACCSS( 9, 13) = 0.463010E+00
+ PKER_RACCSS( 9, 14) = 0.546483E+00
+ PKER_RACCSS( 9, 15) = 0.656045E+00
+ PKER_RACCSS( 9, 16) = 0.767183E+00
+ PKER_RACCSS( 9, 17) = 0.866936E+00
+ PKER_RACCSS( 9, 18) = 0.951616E+00
+ PKER_RACCSS( 9, 19) = 0.102203E+01
+ PKER_RACCSS( 9, 20) = 0.108025E+01
+ PKER_RACCSS( 9, 21) = 0.112837E+01
+ PKER_RACCSS( 9, 22) = 0.116813E+01
+ PKER_RACCSS( 9, 23) = 0.120100E+01
+ PKER_RACCSS( 9, 24) = 0.122818E+01
+ PKER_RACCSS( 9, 25) = 0.125066E+01
+ PKER_RACCSS( 9, 26) = 0.126925E+01
+ PKER_RACCSS( 9, 27) = 0.128464E+01
+ PKER_RACCSS( 9, 28) = 0.129736E+01
+ PKER_RACCSS( 9, 29) = 0.130789E+01
+ PKER_RACCSS( 9, 30) = 0.131660E+01
+ PKER_RACCSS( 9, 31) = 0.132381E+01
+ PKER_RACCSS( 9, 32) = 0.132977E+01
+ PKER_RACCSS( 9, 33) = 0.133471E+01
+ PKER_RACCSS( 9, 34) = 0.133879E+01
+ PKER_RACCSS( 9, 35) = 0.134218E+01
+ PKER_RACCSS( 9, 36) = 0.134497E+01
+ PKER_RACCSS( 9, 37) = 0.134729E+01
+ PKER_RACCSS( 9, 38) = 0.134921E+01
+ PKER_RACCSS( 9, 39) = 0.135079E+01
+ PKER_RACCSS( 9, 40) = 0.135210E+01
+ PKER_RACCSS( 10, 1) = 0.267448E+01
+ PKER_RACCSS( 10, 2) = 0.211116E+01
+ PKER_RACCSS( 10, 3) = 0.179597E+01
+ PKER_RACCSS( 10, 4) = 0.164129E+01
+ PKER_RACCSS( 10, 5) = 0.155202E+01
+ PKER_RACCSS( 10, 6) = 0.145102E+01
+ PKER_RACCSS( 10, 7) = 0.129802E+01
+ PKER_RACCSS( 10, 8) = 0.100198E+01
+ PKER_RACCSS( 10, 9) = 0.798805E+00
+ PKER_RACCSS( 10, 10) = 0.609306E+00
+ PKER_RACCSS( 10, 11) = 0.468300E+00
+ PKER_RACCSS( 10, 12) = 0.397888E+00
+ PKER_RACCSS( 10, 13) = 0.402202E+00
+ PKER_RACCSS( 10, 14) = 0.465769E+00
+ PKER_RACCSS( 10, 15) = 0.561832E+00
+ PKER_RACCSS( 10, 16) = 0.665528E+00
+ PKER_RACCSS( 10, 17) = 0.762100E+00
+ PKER_RACCSS( 10, 18) = 0.846900E+00
+ PKER_RACCSS( 10, 19) = 0.920272E+00
+ PKER_RACCSS( 10, 20) = 0.983415E+00
+ PKER_RACCSS( 10, 21) = 0.103686E+01
+ PKER_RACCSS( 10, 22) = 0.108076E+01
+ PKER_RACCSS( 10, 23) = 0.111588E+01
+ PKER_RACCSS( 10, 24) = 0.114389E+01
+ PKER_RACCSS( 10, 25) = 0.116657E+01
+ PKER_RACCSS( 10, 26) = 0.118522E+01
+ PKER_RACCSS( 10, 27) = 0.120063E+01
+ PKER_RACCSS( 10, 28) = 0.121338E+01
+ PKER_RACCSS( 10, 29) = 0.122392E+01
+ PKER_RACCSS( 10, 30) = 0.123264E+01
+ PKER_RACCSS( 10, 31) = 0.123986E+01
+ PKER_RACCSS( 10, 32) = 0.124583E+01
+ PKER_RACCSS( 10, 33) = 0.125077E+01
+ PKER_RACCSS( 10, 34) = 0.125486E+01
+ PKER_RACCSS( 10, 35) = 0.125825E+01
+ PKER_RACCSS( 10, 36) = 0.126105E+01
+ PKER_RACCSS( 10, 37) = 0.126337E+01
+ PKER_RACCSS( 10, 38) = 0.126529E+01
+ PKER_RACCSS( 10, 39) = 0.126687E+01
+ PKER_RACCSS( 10, 40) = 0.126819E+01
+ PKER_RACCSS( 11, 1) = 0.438960E+01
+ PKER_RACCSS( 11, 2) = 0.330822E+01
+ PKER_RACCSS( 11, 3) = 0.253769E+01
+ PKER_RACCSS( 11, 4) = 0.202024E+01
+ PKER_RACCSS( 11, 5) = 0.168344E+01
+ PKER_RACCSS( 11, 6) = 0.144904E+01
+ PKER_RACCSS( 11, 7) = 0.125098E+01
+ PKER_RACCSS( 11, 8) = 0.105254E+01
+ PKER_RACCSS( 11, 9) = 0.847033E+00
+ PKER_RACCSS( 11, 10) = 0.652528E+00
+ PKER_RACCSS( 11, 11) = 0.496269E+00
+ PKER_RACCSS( 11, 12) = 0.402314E+00
+ PKER_RACCSS( 11, 13) = 0.381083E+00
+ PKER_RACCSS( 11, 14) = 0.423713E+00
+ PKER_RACCSS( 11, 15) = 0.507376E+00
+ PKER_RACCSS( 11, 16) = 0.606481E+00
+ PKER_RACCSS( 11, 17) = 0.702446E+00
+ PKER_RACCSS( 11, 18) = 0.786685E+00
+ PKER_RACCSS( 11, 19) = 0.857512E+00
+ PKER_RACCSS( 11, 20) = 0.916202E+00
+ PKER_RACCSS( 11, 21) = 0.964675E+00
+ PKER_RACCSS( 11, 22) = 0.100470E+01
+ PKER_RACCSS( 11, 23) = 0.103777E+01
+ PKER_RACCSS( 11, 24) = 0.106509E+01
+ PKER_RACCSS( 11, 25) = 0.108768E+01
+ PKER_RACCSS( 11, 26) = 0.110635E+01
+ PKER_RACCSS( 11, 27) = 0.112179E+01
+ PKER_RACCSS( 11, 28) = 0.113456E+01
+ PKER_RACCSS( 11, 29) = 0.114512E+01
+ PKER_RACCSS( 11, 30) = 0.115386E+01
+ PKER_RACCSS( 11, 31) = 0.116109E+01
+ PKER_RACCSS( 11, 32) = 0.116707E+01
+ PKER_RACCSS( 11, 33) = 0.117202E+01
+ PKER_RACCSS( 11, 34) = 0.117612E+01
+ PKER_RACCSS( 11, 35) = 0.117950E+01
+ PKER_RACCSS( 11, 36) = 0.118231E+01
+ PKER_RACCSS( 11, 37) = 0.118463E+01
+ PKER_RACCSS( 11, 38) = 0.118655E+01
+ PKER_RACCSS( 11, 39) = 0.118814E+01
+ PKER_RACCSS( 11, 40) = 0.118945E+01
+ PKER_RACCSS( 12, 1) = 0.644490E+01
+ PKER_RACCSS( 12, 2) = 0.489285E+01
+ PKER_RACCSS( 12, 3) = 0.369924E+01
+ PKER_RACCSS( 12, 4) = 0.281547E+01
+ PKER_RACCSS( 12, 5) = 0.218470E+01
+ PKER_RACCSS( 12, 6) = 0.174091E+01
+ PKER_RACCSS( 12, 7) = 0.141563E+01
+ PKER_RACCSS( 12, 8) = 0.115240E+01
+ PKER_RACCSS( 12, 9) = 0.918598E+00
+ PKER_RACCSS( 12, 10) = 0.708473E+00
+ PKER_RACCSS( 12, 11) = 0.534315E+00
+ PKER_RACCSS( 12, 12) = 0.415659E+00
+ PKER_RACCSS( 12, 13) = 0.365242E+00
+ PKER_RACCSS( 12, 14) = 0.381199E+00
+ PKER_RACCSS( 12, 15) = 0.446240E+00
+ PKER_RACCSS( 12, 16) = 0.535561E+00
+ PKER_RACCSS( 12, 17) = 0.627939E+00
+ PKER_RACCSS( 12, 18) = 0.711443E+00
+ PKER_RACCSS( 12, 19) = 0.782423E+00
+ PKER_RACCSS( 12, 20) = 0.841400E+00
+ PKER_RACCSS( 12, 21) = 0.890112E+00
+ PKER_RACCSS( 12, 22) = 0.930317E+00
+ PKER_RACCSS( 12, 23) = 0.963511E+00
+ PKER_RACCSS( 12, 24) = 0.990930E+00
+ PKER_RACCSS( 12, 25) = 0.101359E+01
+ PKER_RACCSS( 12, 26) = 0.103231E+01
+ PKER_RACCSS( 12, 27) = 0.104779E+01
+ PKER_RACCSS( 12, 28) = 0.106059E+01
+ PKER_RACCSS( 12, 29) = 0.107118E+01
+ PKER_RACCSS( 12, 30) = 0.107993E+01
+ PKER_RACCSS( 12, 31) = 0.108718E+01
+ PKER_RACCSS( 12, 32) = 0.109317E+01
+ PKER_RACCSS( 12, 33) = 0.109812E+01
+ PKER_RACCSS( 12, 34) = 0.110223E+01
+ PKER_RACCSS( 12, 35) = 0.110562E+01
+ PKER_RACCSS( 12, 36) = 0.110843E+01
+ PKER_RACCSS( 12, 37) = 0.111075E+01
+ PKER_RACCSS( 12, 38) = 0.111267E+01
+ PKER_RACCSS( 12, 39) = 0.111426E+01
+ PKER_RACCSS( 12, 40) = 0.111558E+01
+ PKER_RACCSS( 13, 1) = 0.821375E+01
+ PKER_RACCSS( 13, 2) = 0.634241E+01
+ PKER_RACCSS( 13, 3) = 0.484767E+01
+ PKER_RACCSS( 13, 4) = 0.368088E+01
+ PKER_RACCSS( 13, 5) = 0.279551E+01
+ PKER_RACCSS( 13, 6) = 0.214135E+01
+ PKER_RACCSS( 13, 7) = 0.166134E+01
+ PKER_RACCSS( 13, 8) = 0.129978E+01
+ PKER_RACCSS( 13, 9) = 0.101149E+01
+ PKER_RACCSS( 13, 10) = 0.771525E+00
+ PKER_RACCSS( 13, 11) = 0.575508E+00
+ PKER_RACCSS( 13, 12) = 0.433638E+00
+ PKER_RACCSS( 13, 13) = 0.356966E+00
+ PKER_RACCSS( 13, 14) = 0.347546E+00
+ PKER_RACCSS( 13, 15) = 0.392971E+00
+ PKER_RACCSS( 13, 16) = 0.470881E+00
+ PKER_RACCSS( 13, 17) = 0.558403E+00
+ PKER_RACCSS( 13, 18) = 0.640646E+00
+ PKER_RACCSS( 13, 19) = 0.711672E+00
+ PKER_RACCSS( 13, 20) = 0.770965E+00
+ PKER_RACCSS( 13, 21) = 0.819964E+00
+ PKER_RACCSS( 13, 22) = 0.860385E+00
+ PKER_RACCSS( 13, 23) = 0.893737E+00
+ PKER_RACCSS( 13, 24) = 0.921271E+00
+ PKER_RACCSS( 13, 25) = 0.944012E+00
+ PKER_RACCSS( 13, 26) = 0.962802E+00
+ PKER_RACCSS( 13, 27) = 0.978330E+00
+ PKER_RACCSS( 13, 28) = 0.991167E+00
+ PKER_RACCSS( 13, 29) = 0.100178E+01
+ PKER_RACCSS( 13, 30) = 0.101056E+01
+ PKER_RACCSS( 13, 31) = 0.101782E+01
+ PKER_RACCSS( 13, 32) = 0.102382E+01
+ PKER_RACCSS( 13, 33) = 0.102879E+01
+ PKER_RACCSS( 13, 34) = 0.103290E+01
+ PKER_RACCSS( 13, 35) = 0.103629E+01
+ PKER_RACCSS( 13, 36) = 0.103911E+01
+ PKER_RACCSS( 13, 37) = 0.104143E+01
+ PKER_RACCSS( 13, 38) = 0.104336E+01
+ PKER_RACCSS( 13, 39) = 0.104495E+01
+ PKER_RACCSS( 13, 40) = 0.104627E+01
+ PKER_RACCSS( 14, 1) = 0.962196E+01
+ PKER_RACCSS( 14, 2) = 0.754772E+01
+ PKER_RACCSS( 14, 3) = 0.585746E+01
+ PKER_RACCSS( 14, 4) = 0.449802E+01
+ PKER_RACCSS( 14, 5) = 0.342464E+01
+ PKER_RACCSS( 14, 6) = 0.259558E+01
+ PKER_RACCSS( 14, 7) = 0.196723E+01
+ PKER_RACCSS( 14, 8) = 0.149396E+01
+ PKER_RACCSS( 14, 9) = 0.113139E+01
+ PKER_RACCSS( 14, 10) = 0.846874E+00
+ PKER_RACCSS( 14, 11) = 0.622517E+00
+ PKER_RACCSS( 14, 12) = 0.456965E+00
+ PKER_RACCSS( 14, 13) = 0.355975E+00
+ PKER_RACCSS( 14, 14) = 0.322342E+00
+ PKER_RACCSS( 14, 15) = 0.347961E+00
+ PKER_RACCSS( 14, 16) = 0.412683E+00
+ PKER_RACCSS( 14, 17) = 0.493853E+00
+ PKER_RACCSS( 14, 18) = 0.574086E+00
+ PKER_RACCSS( 14, 19) = 0.644958E+00
+ PKER_RACCSS( 14, 20) = 0.704578E+00
+ PKER_RACCSS( 14, 21) = 0.753918E+00
+ PKER_RACCSS( 14, 22) = 0.794601E+00
+ PKER_RACCSS( 14, 23) = 0.828145E+00
+ PKER_RACCSS( 14, 24) = 0.855821E+00
+ PKER_RACCSS( 14, 25) = 0.878666E+00
+ PKER_RACCSS( 14, 26) = 0.897532E+00
+ PKER_RACCSS( 14, 27) = 0.913119E+00
+ PKER_RACCSS( 14, 28) = 0.925999E+00
+ PKER_RACCSS( 14, 29) = 0.936646E+00
+ PKER_RACCSS( 14, 30) = 0.945448E+00
+ PKER_RACCSS( 14, 31) = 0.952726E+00
+ PKER_RACCSS( 14, 32) = 0.958745E+00
+ PKER_RACCSS( 14, 33) = 0.963723E+00
+ PKER_RACCSS( 14, 34) = 0.967840E+00
+ PKER_RACCSS( 14, 35) = 0.971246E+00
+ PKER_RACCSS( 14, 36) = 0.974064E+00
+ PKER_RACCSS( 14, 37) = 0.976395E+00
+ PKER_RACCSS( 14, 38) = 0.978324E+00
+ PKER_RACCSS( 14, 39) = 0.979920E+00
+ PKER_RACCSS( 14, 40) = 0.981240E+00
+ PKER_RACCSS( 15, 1) = 0.106868E+02
+ PKER_RACCSS( 15, 2) = 0.848836E+01
+ PKER_RACCSS( 15, 3) = 0.667864E+01
+ PKER_RACCSS( 15, 4) = 0.519913E+01
+ PKER_RACCSS( 15, 5) = 0.400248E+01
+ PKER_RACCSS( 15, 6) = 0.304893E+01
+ PKER_RACCSS( 15, 7) = 0.230190E+01
+ PKER_RACCSS( 15, 8) = 0.172540E+01
+ PKER_RACCSS( 15, 9) = 0.128305E+01
+ PKER_RACCSS( 15, 10) = 0.942921E+00
+ PKER_RACCSS( 15, 11) = 0.681546E+00
+ PKER_RACCSS( 15, 12) = 0.488662E+00
+ PKER_RACCSS( 15, 13) = 0.363243E+00
+ PKER_RACCSS( 15, 14) = 0.305913E+00
+ PKER_RACCSS( 15, 15) = 0.310773E+00
+ PKER_RACCSS( 15, 16) = 0.361021E+00
+ PKER_RACCSS( 15, 17) = 0.434334E+00
+ PKER_RACCSS( 15, 18) = 0.511636E+00
+ PKER_RACCSS( 15, 19) = 0.582017E+00
+ PKER_RACCSS( 15, 20) = 0.641937E+00
+ PKER_RACCSS( 15, 21) = 0.691670E+00
+ PKER_RACCSS( 15, 22) = 0.732672E+00
+ PKER_RACCSS( 15, 23) = 0.766451E+00
+ PKER_RACCSS( 15, 24) = 0.794298E+00
+ PKER_RACCSS( 15, 25) = 0.817269E+00
+ PKER_RACCSS( 15, 26) = 0.836230E+00
+ PKER_RACCSS( 15, 27) = 0.851886E+00
+ PKER_RACCSS( 15, 28) = 0.864819E+00
+ PKER_RACCSS( 15, 29) = 0.875505E+00
+ PKER_RACCSS( 15, 30) = 0.884338E+00
+ PKER_RACCSS( 15, 31) = 0.891639E+00
+ PKER_RACCSS( 15, 32) = 0.897676E+00
+ PKER_RACCSS( 15, 33) = 0.902668E+00
+ PKER_RACCSS( 15, 34) = 0.906796E+00
+ PKER_RACCSS( 15, 35) = 0.910210E+00
+ PKER_RACCSS( 15, 36) = 0.913035E+00
+ PKER_RACCSS( 15, 37) = 0.915371E+00
+ PKER_RACCSS( 15, 38) = 0.917303E+00
+ PKER_RACCSS( 15, 39) = 0.918902E+00
+ PKER_RACCSS( 15, 40) = 0.920225E+00
+ PKER_RACCSS( 16, 1) = 0.118104E+02
+ PKER_RACCSS( 16, 2) = 0.948935E+01
+ PKER_RACCSS( 16, 3) = 0.756843E+01
+ PKER_RACCSS( 16, 4) = 0.598312E+01
+ PKER_RACCSS( 16, 5) = 0.468129E+01
+ PKER_RACCSS( 16, 6) = 0.362054E+01
+ PKER_RACCSS( 16, 7) = 0.276532E+01
+ PKER_RACCSS( 16, 8) = 0.208437E+01
+ PKER_RACCSS( 16, 9) = 0.154817E+01
+ PKER_RACCSS( 16, 10) = 0.112992E+01
+ PKER_RACCSS( 16, 11) = 0.807462E+00
+ PKER_RACCSS( 16, 12) = 0.566759E+00
+ PKER_RACCSS( 16, 13) = 0.401588E+00
+ PKER_RACCSS( 16, 14) = 0.310627E+00
+ PKER_RACCSS( 16, 15) = 0.287758E+00
+ PKER_RACCSS( 16, 16) = 0.318300E+00
+ PKER_RACCSS( 16, 17) = 0.380539E+00
+ PKER_RACCSS( 16, 18) = 0.453291E+00
+ PKER_RACCSS( 16, 19) = 0.522625E+00
+ PKER_RACCSS( 16, 20) = 0.582754E+00
+ PKER_RACCSS( 16, 21) = 0.632931E+00
+ PKER_RACCSS( 16, 22) = 0.674315E+00
+ PKER_RACCSS( 16, 23) = 0.708381E+00
+ PKER_RACCSS( 16, 24) = 0.736437E+00
+ PKER_RACCSS( 16, 25) = 0.759561E+00
+ PKER_RACCSS( 16, 26) = 0.778635E+00
+ PKER_RACCSS( 16, 27) = 0.794376E+00
+ PKER_RACCSS( 16, 28) = 0.807373E+00
+ PKER_RACCSS( 16, 29) = 0.818107E+00
+ PKER_RACCSS( 16, 30) = 0.826976E+00
+ PKER_RACCSS( 16, 31) = 0.834305E+00
+ PKER_RACCSS( 16, 32) = 0.840364E+00
+ PKER_RACCSS( 16, 33) = 0.845372E+00
+ PKER_RACCSS( 16, 34) = 0.849513E+00
+ PKER_RACCSS( 16, 35) = 0.852937E+00
+ PKER_RACCSS( 16, 36) = 0.855769E+00
+ PKER_RACCSS( 16, 37) = 0.858111E+00
+ PKER_RACCSS( 16, 38) = 0.860049E+00
+ PKER_RACCSS( 16, 39) = 0.861651E+00
+ PKER_RACCSS( 16, 40) = 0.862977E+00
+ PKER_RACCSS( 17, 1) = 0.124213E+02
+ PKER_RACCSS( 17, 2) = 0.100509E+02
+ PKER_RACCSS( 17, 3) = 0.808575E+01
+ PKER_RACCSS( 17, 4) = 0.645799E+01
+ PKER_RACCSS( 17, 5) = 0.511241E+01
+ PKER_RACCSS( 17, 6) = 0.400412E+01
+ PKER_RACCSS( 17, 7) = 0.309649E+01
+ PKER_RACCSS( 17, 8) = 0.235922E+01
+ PKER_RACCSS( 17, 9) = 0.176609E+01
+ PKER_RACCSS( 17, 10) = 0.129457E+01
+ PKER_RACCSS( 17, 11) = 0.925505E+00
+ PKER_RACCSS( 17, 12) = 0.645198E+00
+ PKER_RACCSS( 17, 13) = 0.445624E+00
+ PKER_RACCSS( 17, 14) = 0.323478E+00
+ PKER_RACCSS( 17, 15) = 0.273502E+00
+ PKER_RACCSS( 17, 16) = 0.283242E+00
+ PKER_RACCSS( 17, 17) = 0.332409E+00
+ PKER_RACCSS( 17, 18) = 0.399085E+00
+ PKER_RACCSS( 17, 19) = 0.466618E+00
+ PKER_RACCSS( 17, 20) = 0.526766E+00
+ PKER_RACCSS( 17, 21) = 0.577417E+00
+ PKER_RACCSS( 17, 22) = 0.619256E+00
+ PKER_RACCSS( 17, 23) = 0.653670E+00
+ PKER_RACCSS( 17, 24) = 0.681981E+00
+ PKER_RACCSS( 17, 25) = 0.705292E+00
+ PKER_RACCSS( 17, 26) = 0.724504E+00
+ PKER_RACCSS( 17, 27) = 0.740347E+00
+ PKER_RACCSS( 17, 28) = 0.753421E+00
+ PKER_RACCSS( 17, 29) = 0.764213E+00
+ PKER_RACCSS( 17, 30) = 0.773126E+00
+ PKER_RACCSS( 17, 31) = 0.780488E+00
+ PKER_RACCSS( 17, 32) = 0.786572E+00
+ PKER_RACCSS( 17, 33) = 0.791600E+00
+ PKER_RACCSS( 17, 34) = 0.795757E+00
+ PKER_RACCSS( 17, 35) = 0.799193E+00
+ PKER_RACCSS( 17, 36) = 0.802034E+00
+ PKER_RACCSS( 17, 37) = 0.804384E+00
+ PKER_RACCSS( 17, 38) = 0.806327E+00
+ PKER_RACCSS( 17, 39) = 0.807934E+00
+ PKER_RACCSS( 17, 40) = 0.809263E+00
+ PKER_RACCSS( 18, 1) = 0.128154E+02
+ PKER_RACCSS( 18, 2) = 0.104204E+02
+ PKER_RACCSS( 18, 3) = 0.843413E+01
+ PKER_RACCSS( 18, 4) = 0.678683E+01
+ PKER_RACCSS( 18, 5) = 0.542138E+01
+ PKER_RACCSS( 18, 6) = 0.429102E+01
+ PKER_RACCSS( 18, 7) = 0.335759E+01
+ PKER_RACCSS( 18, 8) = 0.259006E+01
+ PKER_RACCSS( 18, 9) = 0.196292E+01
+ PKER_RACCSS( 18, 10) = 0.145521E+01
+ PKER_RACCSS( 18, 11) = 0.105012E+01
+ PKER_RACCSS( 18, 12) = 0.735213E+00
+ PKER_RACCSS( 18, 13) = 0.502981E+00
+ PKER_RACCSS( 18, 14) = 0.349702E+00
+ PKER_RACCSS( 18, 15) = 0.270984E+00
+ PKER_RACCSS( 18, 16) = 0.257444E+00
+ PKER_RACCSS( 18, 17) = 0.290889E+00
+ PKER_RACCSS( 18, 18) = 0.349332E+00
+ PKER_RACCSS( 18, 19) = 0.413950E+00
+ PKER_RACCSS( 18, 20) = 0.473752E+00
+ PKER_RACCSS( 18, 21) = 0.524859E+00
+ PKER_RACCSS( 18, 22) = 0.567227E+00
+ PKER_RACCSS( 18, 23) = 0.602062E+00
+ PKER_RACCSS( 18, 24) = 0.630684E+00
+ PKER_RACCSS( 18, 25) = 0.654223E+00
+ PKER_RACCSS( 18, 26) = 0.673602E+00
+ PKER_RACCSS( 18, 27) = 0.689569E+00
+ PKER_RACCSS( 18, 28) = 0.702735E+00
+ PKER_RACCSS( 18, 29) = 0.713598E+00
+ PKER_RACCSS( 18, 30) = 0.722563E+00
+ PKER_RACCSS( 18, 31) = 0.729966E+00
+ PKER_RACCSS( 18, 32) = 0.736081E+00
+ PKER_RACCSS( 18, 33) = 0.741133E+00
+ PKER_RACCSS( 18, 34) = 0.745308E+00
+ PKER_RACCSS( 18, 35) = 0.748758E+00
+ PKER_RACCSS( 18, 36) = 0.751610E+00
+ PKER_RACCSS( 18, 37) = 0.753968E+00
+ PKER_RACCSS( 18, 38) = 0.755918E+00
+ PKER_RACCSS( 18, 39) = 0.757530E+00
+ PKER_RACCSS( 18, 40) = 0.758863E+00
+ PKER_RACCSS( 19, 1) = 0.130200E+02
+ PKER_RACCSS( 19, 2) = 0.106194E+02
+ PKER_RACCSS( 19, 3) = 0.861836E+01
+ PKER_RACCSS( 19, 4) = 0.696790E+01
+ PKER_RACCSS( 19, 5) = 0.559884E+01
+ PKER_RACCSS( 19, 6) = 0.446351E+01
+ PKER_RACCSS( 19, 7) = 0.352286E+01
+ PKER_RACCSS( 19, 8) = 0.274506E+01
+ PKER_RACCSS( 19, 9) = 0.210428E+01
+ PKER_RACCSS( 19, 10) = 0.157967E+01
+ PKER_RACCSS( 19, 11) = 0.115491E+01
+ PKER_RACCSS( 19, 12) = 0.818114E+00
+ PKER_RACCSS( 19, 13) = 0.561856E+00
+ PKER_RACCSS( 19, 14) = 0.382552E+00
+ PKER_RACCSS( 19, 15) = 0.277758E+00
+ PKER_RACCSS( 19, 16) = 0.240448E+00
+ PKER_RACCSS( 19, 17) = 0.256115E+00
+ PKER_RACCSS( 19, 18) = 0.304240E+00
+ PKER_RACCSS( 19, 19) = 0.364597E+00
+ PKER_RACCSS( 19, 20) = 0.423522E+00
+ PKER_RACCSS( 19, 21) = 0.475005E+00
+ PKER_RACCSS( 19, 22) = 0.517969E+00
+ PKER_RACCSS( 19, 23) = 0.553309E+00
+ PKER_RACCSS( 19, 24) = 0.582308E+00
+ PKER_RACCSS( 19, 25) = 0.606124E+00
+ PKER_RACCSS( 19, 26) = 0.625706E+00
+ PKER_RACCSS( 19, 27) = 0.641824E+00
+ PKER_RACCSS( 19, 28) = 0.655102E+00
+ PKER_RACCSS( 19, 29) = 0.666049E+00
+ PKER_RACCSS( 19, 30) = 0.675078E+00
+ PKER_RACCSS( 19, 31) = 0.682530E+00
+ PKER_RACCSS( 19, 32) = 0.688681E+00
+ PKER_RACCSS( 19, 33) = 0.693762E+00
+ PKER_RACCSS( 19, 34) = 0.697958E+00
+ PKER_RACCSS( 19, 35) = 0.701425E+00
+ PKER_RACCSS( 19, 36) = 0.704291E+00
+ PKER_RACCSS( 19, 37) = 0.706659E+00
+ PKER_RACCSS( 19, 38) = 0.708617E+00
+ PKER_RACCSS( 19, 39) = 0.710235E+00
+ PKER_RACCSS( 19, 40) = 0.711573E+00
+ PKER_RACCSS( 20, 1) = 0.130152E+02
+ PKER_RACCSS( 20, 2) = 0.106128E+02
+ PKER_RACCSS( 20, 3) = 0.862376E+01
+ PKER_RACCSS( 20, 4) = 0.697519E+01
+ PKER_RACCSS( 20, 5) = 0.560897E+01
+ PKER_RACCSS( 20, 6) = 0.447725E+01
+ PKER_RACCSS( 20, 7) = 0.354067E+01
+ PKER_RACCSS( 20, 8) = 0.276691E+01
+ PKER_RACCSS( 20, 9) = 0.212960E+01
+ PKER_RACCSS( 20, 10) = 0.160726E+01
+ PKER_RACCSS( 20, 11) = 0.118288E+01
+ PKER_RACCSS( 20, 12) = 0.843836E+00
+ PKER_RACCSS( 20, 13) = 0.582069E+00
+ PKER_RACCSS( 20, 14) = 0.393463E+00
+ PKER_RACCSS( 20, 15) = 0.276097E+00
+ PKER_RACCSS( 20, 16) = 0.225467E+00
+ PKER_RACCSS( 20, 17) = 0.230037E+00
+ PKER_RACCSS( 20, 18) = 0.271189E+00
+ PKER_RACCSS( 20, 19) = 0.328491E+00
+ PKER_RACCSS( 20, 20) = 0.386520E+00
+ PKER_RACCSS( 20, 21) = 0.437762E+00
+ PKER_RACCSS( 20, 22) = 0.480551E+00
+ PKER_RACCSS( 20, 23) = 0.515714E+00
+ PKER_RACCSS( 20, 24) = 0.544556E+00
+ PKER_RACCSS( 20, 25) = 0.568241E+00
+ PKER_RACCSS( 20, 26) = 0.587716E+00
+ PKER_RACCSS( 20, 27) = 0.603746E+00
+ PKER_RACCSS( 20, 28) = 0.616952E+00
+ PKER_RACCSS( 20, 29) = 0.627840E+00
+ PKER_RACCSS( 20, 30) = 0.636822E+00
+ PKER_RACCSS( 20, 31) = 0.644235E+00
+ PKER_RACCSS( 20, 32) = 0.650356E+00
+ PKER_RACCSS( 20, 33) = 0.655411E+00
+ PKER_RACCSS( 20, 34) = 0.659588E+00
+ PKER_RACCSS( 20, 35) = 0.663040E+00
+ PKER_RACCSS( 20, 36) = 0.665893E+00
+ PKER_RACCSS( 20, 37) = 0.668251E+00
+ PKER_RACCSS( 20, 38) = 0.670201E+00
+ PKER_RACCSS( 20, 39) = 0.671813E+00
+ PKER_RACCSS( 20, 40) = 0.673146E+00
+ PKER_RACCSS( 21, 1) = 0.131125E+02
+ PKER_RACCSS( 21, 2) = 0.107140E+02
+ PKER_RACCSS( 21, 3) = 0.872645E+01
+ PKER_RACCSS( 21, 4) = 0.707917E+01
+ PKER_RACCSS( 21, 5) = 0.571350E+01
+ PKER_RACCSS( 21, 6) = 0.458184E+01
+ PKER_RACCSS( 21, 7) = 0.364426E+01
+ PKER_RACCSS( 21, 8) = 0.286816E+01
+ PKER_RACCSS( 21, 9) = 0.222687E+01
+ PKER_RACCSS( 21, 10) = 0.169872E+01
+ PKER_RACCSS( 21, 11) = 0.126640E+01
+ PKER_RACCSS( 21, 12) = 0.916826E+00
+ PKER_RACCSS( 21, 13) = 0.641196E+00
+ PKER_RACCSS( 21, 14) = 0.434976E+00
+ PKER_RACCSS( 21, 15) = 0.296519E+00
+ PKER_RACCSS( 21, 16) = 0.223392E+00
+ PKER_RACCSS( 21, 17) = 0.208305E+00
+ PKER_RACCSS( 21, 18) = 0.235749E+00
+ PKER_RACCSS( 21, 19) = 0.285974E+00
+ PKER_RACCSS( 21, 20) = 0.341761E+00
+ PKER_RACCSS( 21, 21) = 0.393018E+00
+ PKER_RACCSS( 21, 22) = 0.436400E+00
+ PKER_RACCSS( 21, 23) = 0.472122E+00
+ PKER_RACCSS( 21, 24) = 0.501385E+00
+ PKER_RACCSS( 21, 25) = 0.525377E+00
+ PKER_RACCSS( 21, 26) = 0.545076E+00
+ PKER_RACCSS( 21, 27) = 0.561270E+00
+ PKER_RACCSS( 21, 28) = 0.574597E+00
+ PKER_RACCSS( 21, 29) = 0.585576E+00
+ PKER_RACCSS( 21, 30) = 0.594625E+00
+ PKER_RACCSS( 21, 31) = 0.602089E+00
+ PKER_RACCSS( 21, 32) = 0.608249E+00
+ PKER_RACCSS( 21, 33) = 0.613334E+00
+ PKER_RACCSS( 21, 34) = 0.617533E+00
+ PKER_RACCSS( 21, 35) = 0.621002E+00
+ PKER_RACCSS( 21, 36) = 0.623868E+00
+ PKER_RACCSS( 21, 37) = 0.626237E+00
+ PKER_RACCSS( 21, 38) = 0.628195E+00
+ PKER_RACCSS( 21, 39) = 0.629813E+00
+ PKER_RACCSS( 21, 40) = 0.631151E+00
+ PKER_RACCSS( 22, 1) = 0.131920E+02
+ PKER_RACCSS( 22, 2) = 0.107956E+02
+ PKER_RACCSS( 22, 3) = 0.880994E+01
+ PKER_RACCSS( 22, 4) = 0.716437E+01
+ PKER_RACCSS( 22, 5) = 0.580041E+01
+ PKER_RACCSS( 22, 6) = 0.466975E+01
+ PKER_RACCSS( 22, 7) = 0.373254E+01
+ PKER_RACCSS( 22, 8) = 0.295593E+01
+ PKER_RACCSS( 22, 9) = 0.231299E+01
+ PKER_RACCSS( 22, 10) = 0.178176E+01
+ PKER_RACCSS( 22, 11) = 0.134458E+01
+ PKER_RACCSS( 22, 12) = 0.987803E+00
+ PKER_RACCSS( 22, 13) = 0.701877E+00
+ PKER_RACCSS( 22, 14) = 0.481371E+00
+ PKER_RACCSS( 22, 15) = 0.324403E+00
+ PKER_RACCSS( 22, 16) = 0.230380E+00
+ PKER_RACCSS( 22, 17) = 0.194899E+00
+ PKER_RACCSS( 22, 18) = 0.206478E+00
+ PKER_RACCSS( 22, 19) = 0.247505E+00
+ PKER_RACCSS( 22, 20) = 0.299696E+00
+ PKER_RACCSS( 22, 21) = 0.350479E+00
+ PKER_RACCSS( 22, 22) = 0.394413E+00
+ PKER_RACCSS( 22, 23) = 0.430778E+00
+ PKER_RACCSS( 22, 24) = 0.460550E+00
+ PKER_RACCSS( 22, 25) = 0.484917E+00
+ PKER_RACCSS( 22, 26) = 0.504890E+00
+ PKER_RACCSS( 22, 27) = 0.521285E+00
+ PKER_RACCSS( 22, 28) = 0.534760E+00
+ PKER_RACCSS( 22, 29) = 0.545847E+00
+ PKER_RACCSS( 22, 30) = 0.554978E+00
+ PKER_RACCSS( 22, 31) = 0.562504E+00
+ PKER_RACCSS( 22, 32) = 0.568710E+00
+ PKER_RACCSS( 22, 33) = 0.573830E+00
+ PKER_RACCSS( 22, 34) = 0.578056E+00
+ PKER_RACCSS( 22, 35) = 0.581546E+00
+ PKER_RACCSS( 22, 36) = 0.584428E+00
+ PKER_RACCSS( 22, 37) = 0.586809E+00
+ PKER_RACCSS( 22, 38) = 0.588777E+00
+ PKER_RACCSS( 22, 39) = 0.590402E+00
+ PKER_RACCSS( 22, 40) = 0.591746E+00
+ PKER_RACCSS( 23, 1) = 0.131938E+02
+ PKER_RACCSS( 23, 2) = 0.107982E+02
+ PKER_RACCSS( 23, 3) = 0.881349E+01
+ PKER_RACCSS( 23, 4) = 0.716907E+01
+ PKER_RACCSS( 23, 5) = 0.580647E+01
+ PKER_RACCSS( 23, 6) = 0.467739E+01
+ PKER_RACCSS( 23, 7) = 0.374195E+01
+ PKER_RACCSS( 23, 8) = 0.296730E+01
+ PKER_RACCSS( 23, 9) = 0.232637E+01
+ PKER_RACCSS( 23, 10) = 0.179707E+01
+ PKER_RACCSS( 23, 11) = 0.136146E+01
+ PKER_RACCSS( 23, 12) = 0.100542E+01
+ PKER_RACCSS( 23, 13) = 0.718765E+00
+ PKER_RACCSS( 23, 14) = 0.495225E+00
+ PKER_RACCSS( 23, 15) = 0.332302E+00
+ PKER_RACCSS( 23, 16) = 0.229655E+00
+ PKER_RACCSS( 23, 17) = 0.184785E+00
+ PKER_RACCSS( 23, 18) = 0.188568E+00
+ PKER_RACCSS( 23, 19) = 0.224757E+00
+ PKER_RACCSS( 23, 20) = 0.274870E+00
+ PKER_RACCSS( 23, 21) = 0.324979E+00
+ PKER_RACCSS( 23, 22) = 0.368651E+00
+ PKER_RACCSS( 23, 23) = 0.404816E+00
+ PKER_RACCSS( 23, 24) = 0.434406E+00
+ PKER_RACCSS( 23, 25) = 0.458613E+00
+ PKER_RACCSS( 23, 26) = 0.478450E+00
+ PKER_RACCSS( 23, 27) = 0.494732E+00
+ PKER_RACCSS( 23, 28) = 0.508114E+00
+ PKER_RACCSS( 23, 29) = 0.519125E+00
+ PKER_RACCSS( 23, 30) = 0.528193E+00
+ PKER_RACCSS( 23, 31) = 0.535667E+00
+ PKER_RACCSS( 23, 32) = 0.541832E+00
+ PKER_RACCSS( 23, 33) = 0.546918E+00
+ PKER_RACCSS( 23, 34) = 0.551118E+00
+ PKER_RACCSS( 23, 35) = 0.554586E+00
+ PKER_RACCSS( 23, 36) = 0.557451E+00
+ PKER_RACCSS( 23, 37) = 0.559818E+00
+ PKER_RACCSS( 23, 38) = 0.561775E+00
+ PKER_RACCSS( 23, 39) = 0.563392E+00
+ PKER_RACCSS( 23, 40) = 0.564729E+00
+ PKER_RACCSS( 24, 1) = 0.132604E+02
+ PKER_RACCSS( 24, 2) = 0.108662E+02
+ PKER_RACCSS( 24, 3) = 0.888291E+01
+ PKER_RACCSS( 24, 4) = 0.723981E+01
+ PKER_RACCSS( 24, 5) = 0.587837E+01
+ PKER_RACCSS( 24, 6) = 0.475021E+01
+ PKER_RACCSS( 24, 7) = 0.381534E+01
+ PKER_RACCSS( 24, 8) = 0.304075E+01
+ PKER_RACCSS( 24, 9) = 0.239923E+01
+ PKER_RACCSS( 24, 10) = 0.186846E+01
+ PKER_RACCSS( 24, 11) = 0.143025E+01
+ PKER_RACCSS( 24, 12) = 0.107011E+01
+ PKER_RACCSS( 24, 13) = 0.777131E+00
+ PKER_RACCSS( 24, 14) = 0.544102E+00
+ PKER_RACCSS( 24, 15) = 0.367799E+00
+ PKER_RACCSS( 24, 16) = 0.247847E+00
+ PKER_RACCSS( 24, 17) = 0.183590E+00
+ PKER_RACCSS( 24, 18) = 0.170001E+00
+ PKER_RACCSS( 24, 19) = 0.194028E+00
+ PKER_RACCSS( 24, 20) = 0.238143E+00
+ PKER_RACCSS( 24, 21) = 0.286632E+00
+ PKER_RACCSS( 24, 22) = 0.330592E+00
+ PKER_RACCSS( 24, 23) = 0.367413E+00
+ PKER_RACCSS( 24, 24) = 0.397561E+00
+ PKER_RACCSS( 24, 25) = 0.422182E+00
+ PKER_RACCSS( 24, 26) = 0.442320E+00
+ PKER_RACCSS( 24, 27) = 0.458820E+00
+ PKER_RACCSS( 24, 28) = 0.472362E+00
+ PKER_RACCSS( 24, 29) = 0.483490E+00
+ PKER_RACCSS( 24, 30) = 0.492645E+00
+ PKER_RACCSS( 24, 31) = 0.500183E+00
+ PKER_RACCSS( 24, 32) = 0.506396E+00
+ PKER_RACCSS( 24, 33) = 0.511519E+00
+ PKER_RACCSS( 24, 34) = 0.515746E+00
+ PKER_RACCSS( 24, 35) = 0.519235E+00
+ PKER_RACCSS( 24, 36) = 0.522116E+00
+ PKER_RACCSS( 24, 37) = 0.524495E+00
+ PKER_RACCSS( 24, 38) = 0.526461E+00
+ PKER_RACCSS( 24, 39) = 0.528086E+00
+ PKER_RACCSS( 24, 40) = 0.529428E+00
+ PKER_RACCSS( 25, 1) = 0.132727E+02
+ PKER_RACCSS( 25, 2) = 0.108791E+02
+ PKER_RACCSS( 25, 3) = 0.889643E+01
+ PKER_RACCSS( 25, 4) = 0.725400E+01
+ PKER_RACCSS( 25, 5) = 0.589330E+01
+ PKER_RACCSS( 25, 6) = 0.476595E+01
+ PKER_RACCSS( 25, 7) = 0.383193E+01
+ PKER_RACCSS( 25, 8) = 0.305823E+01
+ PKER_RACCSS( 25, 9) = 0.241759E+01
+ PKER_RACCSS( 25, 10) = 0.188761E+01
+ PKER_RACCSS( 25, 11) = 0.145001E+01
+ PKER_RACCSS( 25, 12) = 0.109002E+01
+ PKER_RACCSS( 25, 13) = 0.796378E+00
+ PKER_RACCSS( 25, 14) = 0.561248E+00
+ PKER_RACCSS( 25, 15) = 0.380756E+00
+ PKER_RACCSS( 25, 16) = 0.254180E+00
+ PKER_RACCSS( 25, 17) = 0.181628E+00
+ PKER_RACCSS( 25, 18) = 0.159817E+00
+ PKER_RACCSS( 25, 19) = 0.177698E+00
+ PKER_RACCSS( 25, 20) = 0.218491E+00
+ PKER_RACCSS( 25, 21) = 0.265780E+00
+ PKER_RACCSS( 25, 22) = 0.309426E+00
+ PKER_RACCSS( 25, 23) = 0.346155E+00
+ PKER_RACCSS( 25, 24) = 0.376229E+00
+ PKER_RACCSS( 25, 25) = 0.400772E+00
+ PKER_RACCSS( 25, 26) = 0.420833E+00
+ PKER_RACCSS( 25, 27) = 0.437263E+00
+ PKER_RACCSS( 25, 28) = 0.450741E+00
+ PKER_RACCSS( 25, 29) = 0.461813E+00
+ PKER_RACCSS( 25, 30) = 0.470921E+00
+ PKER_RACCSS( 25, 31) = 0.478420E+00
+ PKER_RACCSS( 25, 32) = 0.484599E+00
+ PKER_RACCSS( 25, 33) = 0.489695E+00
+ PKER_RACCSS( 25, 34) = 0.493900E+00
+ PKER_RACCSS( 25, 35) = 0.497371E+00
+ PKER_RACCSS( 25, 36) = 0.500237E+00
+ PKER_RACCSS( 25, 37) = 0.502605E+00
+ PKER_RACCSS( 25, 38) = 0.504561E+00
+ PKER_RACCSS( 25, 39) = 0.506178E+00
+ PKER_RACCSS( 25, 40) = 0.507515E+00
+ PKER_RACCSS( 26, 1) = 0.132920E+02
+ PKER_RACCSS( 26, 2) = 0.108989E+02
+ PKER_RACCSS( 26, 3) = 0.891678E+01
+ PKER_RACCSS( 26, 4) = 0.727493E+01
+ PKER_RACCSS( 26, 5) = 0.591484E+01
+ PKER_RACCSS( 26, 6) = 0.478808E+01
+ PKER_RACCSS( 26, 7) = 0.385465E+01
+ PKER_RACCSS( 26, 8) = 0.308150E+01
+ PKER_RACCSS( 26, 9) = 0.244133E+01
+ PKER_RACCSS( 26, 10) = 0.191165E+01
+ PKER_RACCSS( 26, 11) = 0.147412E+01
+ PKER_RACCSS( 26, 12) = 0.111377E+01
+ PKER_RACCSS( 26, 13) = 0.819060E+00
+ PKER_RACCSS( 26, 14) = 0.581616E+00
+ PKER_RACCSS( 26, 15) = 0.396967E+00
+ PKER_RACCSS( 26, 16) = 0.263905E+00
+ PKER_RACCSS( 26, 17) = 0.183093E+00
+ PKER_RACCSS( 26, 18) = 0.152502E+00
+ PKER_RACCSS( 26, 19) = 0.163408E+00
+ PKER_RACCSS( 26, 20) = 0.200211E+00
+ PKER_RACCSS( 26, 21) = 0.245979E+00
+ PKER_RACCSS( 26, 22) = 0.289323E+00
+ PKER_RACCSS( 26, 23) = 0.326076E+00
+ PKER_RACCSS( 26, 24) = 0.356191E+00
+ PKER_RACCSS( 26, 25) = 0.380747E+00
+ PKER_RACCSS( 26, 26) = 0.400802E+00
+ PKER_RACCSS( 26, 27) = 0.417213E+00
+ PKER_RACCSS( 26, 28) = 0.430667E+00
+ PKER_RACCSS( 26, 29) = 0.441715E+00
+ PKER_RACCSS( 26, 30) = 0.450799E+00
+ PKER_RACCSS( 26, 31) = 0.458276E+00
+ PKER_RACCSS( 26, 32) = 0.464436E+00
+ PKER_RACCSS( 26, 33) = 0.469515E+00
+ PKER_RACCSS( 26, 34) = 0.473706E+00
+ PKER_RACCSS( 26, 35) = 0.477165E+00
+ PKER_RACCSS( 26, 36) = 0.480022E+00
+ PKER_RACCSS( 26, 37) = 0.482382E+00
+ PKER_RACCSS( 26, 38) = 0.484332E+00
+ PKER_RACCSS( 26, 39) = 0.485944E+00
+ PKER_RACCSS( 26, 40) = 0.487277E+00
+ PKER_RACCSS( 27, 1) = 0.133152E+02
+ PKER_RACCSS( 27, 2) = 0.109226E+02
+ PKER_RACCSS( 27, 3) = 0.894105E+01
+ PKER_RACCSS( 27, 4) = 0.729974E+01
+ PKER_RACCSS( 27, 5) = 0.594018E+01
+ PKER_RACCSS( 27, 6) = 0.481393E+01
+ PKER_RACCSS( 27, 7) = 0.388096E+01
+ PKER_RACCSS( 27, 8) = 0.310819E+01
+ PKER_RACCSS( 27, 9) = 0.246829E+01
+ PKER_RACCSS( 27, 10) = 0.193872E+01
+ PKER_RACCSS( 27, 11) = 0.150102E+01
+ PKER_RACCSS( 27, 12) = 0.114014E+01
+ PKER_RACCSS( 27, 13) = 0.844229E+00
+ PKER_RACCSS( 27, 14) = 0.604486E+00
+ PKER_RACCSS( 27, 15) = 0.415857E+00
+ PKER_RACCSS( 27, 16) = 0.276675E+00
+ PKER_RACCSS( 27, 17) = 0.187412E+00
+ PKER_RACCSS( 27, 18) = 0.147742E+00
+ PKER_RACCSS( 27, 19) = 0.150845E+00
+ PKER_RACCSS( 27, 20) = 0.182865E+00
+ PKER_RACCSS( 27, 21) = 0.226606E+00
+ PKER_RACCSS( 27, 22) = 0.269575E+00
+ PKER_RACCSS( 27, 23) = 0.306424E+00
+ PKER_RACCSS( 27, 24) = 0.336671E+00
+ PKER_RACCSS( 27, 25) = 0.361315E+00
+ PKER_RACCSS( 27, 26) = 0.381419E+00
+ PKER_RACCSS( 27, 27) = 0.397855E+00
+ PKER_RACCSS( 27, 28) = 0.411319E+00
+ PKER_RACCSS( 27, 29) = 0.422366E+00
+ PKER_RACCSS( 27, 30) = 0.431444E+00
+ PKER_RACCSS( 27, 31) = 0.438913E+00
+ PKER_RACCSS( 27, 32) = 0.445065E+00
+ PKER_RACCSS( 27, 33) = 0.450136E+00
+ PKER_RACCSS( 27, 34) = 0.454319E+00
+ PKER_RACCSS( 27, 35) = 0.457772E+00
+ PKER_RACCSS( 27, 36) = 0.460623E+00
+ PKER_RACCSS( 27, 37) = 0.462978E+00
+ PKER_RACCSS( 27, 38) = 0.464924E+00
+ PKER_RACCSS( 27, 39) = 0.466533E+00
+ PKER_RACCSS( 27, 40) = 0.467862E+00
+ PKER_RACCSS( 28, 1) = 0.133174E+02
+ PKER_RACCSS( 28, 2) = 0.109250E+02
+ PKER_RACCSS( 28, 3) = 0.894357E+01
+ PKER_RACCSS( 28, 4) = 0.730246E+01
+ PKER_RACCSS( 28, 5) = 0.594310E+01
+ PKER_RACCSS( 28, 6) = 0.481710E+01
+ PKER_RACCSS( 28, 7) = 0.388442E+01
+ PKER_RACCSS( 28, 8) = 0.311196E+01
+ PKER_RACCSS( 28, 9) = 0.247241E+01
+ PKER_RACCSS( 28, 10) = 0.194320E+01
+ PKER_RACCSS( 28, 11) = 0.150587E+01
+ PKER_RACCSS( 28, 12) = 0.114529E+01
+ PKER_RACCSS( 28, 13) = 0.849555E+00
+ PKER_RACCSS( 28, 14) = 0.609651E+00
+ PKER_RACCSS( 28, 15) = 0.420263E+00
+ PKER_RACCSS( 28, 16) = 0.279397E+00
+ PKER_RACCSS( 28, 17) = 0.187745E+00
+ PKER_RACCSS( 28, 18) = 0.145098E+00
+ PKER_RACCSS( 28, 19) = 0.145712E+00
+ PKER_RACCSS( 28, 20) = 0.176041E+00
+ PKER_RACCSS( 28, 21) = 0.219062E+00
+ PKER_RACCSS( 28, 22) = 0.261729E+00
+ PKER_RACCSS( 28, 23) = 0.298420E+00
+ PKER_RACCSS( 28, 24) = 0.328533E+00
+ PKER_RACCSS( 28, 25) = 0.353058E+00
+ PKER_RACCSS( 28, 26) = 0.373058E+00
+ PKER_RACCSS( 28, 27) = 0.389404E+00
+ PKER_RACCSS( 28, 28) = 0.402791E+00
+ PKER_RACCSS( 28, 29) = 0.413775E+00
+ PKER_RACCSS( 28, 30) = 0.422800E+00
+ PKER_RACCSS( 28, 31) = 0.430226E+00
+ PKER_RACCSS( 28, 32) = 0.436342E+00
+ PKER_RACCSS( 28, 33) = 0.441385E+00
+ PKER_RACCSS( 28, 34) = 0.445545E+00
+ PKER_RACCSS( 28, 35) = 0.448979E+00
+ PKER_RACCSS( 28, 36) = 0.451815E+00
+ PKER_RACCSS( 28, 37) = 0.454158E+00
+ PKER_RACCSS( 28, 38) = 0.456095E+00
+ PKER_RACCSS( 28, 39) = 0.457696E+00
+ PKER_RACCSS( 28, 40) = 0.459020E+00
+ PKER_RACCSS( 29, 1) = 0.133288E+02
+ PKER_RACCSS( 29, 2) = 0.109367E+02
+ PKER_RACCSS( 29, 3) = 0.895552E+01
+ PKER_RACCSS( 29, 4) = 0.731466E+01
+ PKER_RACCSS( 29, 5) = 0.595557E+01
+ PKER_RACCSS( 29, 6) = 0.482983E+01
+ PKER_RACCSS( 29, 7) = 0.389738E+01
+ PKER_RACCSS( 29, 8) = 0.312513E+01
+ PKER_RACCSS( 29, 9) = 0.248574E+01
+ PKER_RACCSS( 29, 10) = 0.195663E+01
+ PKER_RACCSS( 29, 11) = 0.151928E+01
+ PKER_RACCSS( 29, 12) = 0.115855E+01
+ PKER_RACCSS( 29, 13) = 0.862383E+00
+ PKER_RACCSS( 29, 14) = 0.621546E+00
+ PKER_RACCSS( 29, 15) = 0.430452E+00
+ PKER_RACCSS( 29, 16) = 0.286744E+00
+ PKER_RACCSS( 29, 17) = 0.191004E+00
+ PKER_RACCSS( 29, 18) = 0.143575E+00
+ PKER_RACCSS( 29, 19) = 0.139762E+00
+ PKER_RACCSS( 29, 20) = 0.167150E+00
+ PKER_RACCSS( 29, 21) = 0.208833E+00
+ PKER_RACCSS( 29, 22) = 0.251165E+00
+ PKER_RACCSS( 29, 23) = 0.287851E+00
+ PKER_RACCSS( 29, 24) = 0.318000E+00
+ PKER_RACCSS( 29, 25) = 0.342541E+00
+ PKER_RACCSS( 29, 26) = 0.362540E+00
+ PKER_RACCSS( 29, 27) = 0.378877E+00
+ PKER_RACCSS( 29, 28) = 0.392249E+00
+ PKER_RACCSS( 29, 29) = 0.403215E+00
+ PKER_RACCSS( 29, 30) = 0.412224E+00
+ PKER_RACCSS( 29, 31) = 0.419634E+00
+ PKER_RACCSS( 29, 32) = 0.425736E+00
+ PKER_RACCSS( 29, 33) = 0.430766E+00
+ PKER_RACCSS( 29, 34) = 0.434916E+00
+ PKER_RACCSS( 29, 35) = 0.438341E+00
+ PKER_RACCSS( 29, 36) = 0.441170E+00
+ PKER_RACCSS( 29, 37) = 0.443508E+00
+ PKER_RACCSS( 29, 38) = 0.445440E+00
+ PKER_RACCSS( 29, 39) = 0.447037E+00
+ PKER_RACCSS( 29, 40) = 0.448358E+00
+ PKER_RACCSS( 30, 1) = 0.133459E+02
+ PKER_RACCSS( 30, 2) = 0.109540E+02
+ PKER_RACCSS( 30, 3) = 0.897321E+01
+ PKER_RACCSS( 30, 4) = 0.733267E+01
+ PKER_RACCSS( 30, 5) = 0.597388E+01
+ PKER_RACCSS( 30, 6) = 0.484841E+01
+ PKER_RACCSS( 30, 7) = 0.391619E+01
+ PKER_RACCSS( 30, 8) = 0.314412E+01
+ PKER_RACCSS( 30, 9) = 0.250482E+01
+ PKER_RACCSS( 30, 10) = 0.197571E+01
+ PKER_RACCSS( 30, 11) = 0.153818E+01
+ PKER_RACCSS( 30, 12) = 0.117710E+01
+ PKER_RACCSS( 30, 13) = 0.880195E+00
+ PKER_RACCSS( 30, 14) = 0.638053E+00
+ PKER_RACCSS( 30, 15) = 0.444783E+00
+ PKER_RACCSS( 30, 16) = 0.297652E+00
+ PKER_RACCSS( 30, 17) = 0.196773E+00
+ PKER_RACCSS( 30, 18) = 0.143267E+00
+ PKER_RACCSS( 30, 19) = 0.133534E+00
+ PKER_RACCSS( 30, 20) = 0.156845E+00
+ PKER_RACCSS( 30, 21) = 0.196561E+00
+ PKER_RACCSS( 30, 22) = 0.238416E+00
+ PKER_RACCSS( 30, 23) = 0.275173E+00
+ PKER_RACCSS( 30, 24) = 0.305462E+00
+ PKER_RACCSS( 30, 25) = 0.330107E+00
+ PKER_RACCSS( 30, 26) = 0.350172E+00
+ PKER_RACCSS( 30, 27) = 0.366548E+00
+ PKER_RACCSS( 30, 28) = 0.379943E+00
+ PKER_RACCSS( 30, 29) = 0.390920E+00
+ PKER_RACCSS( 30, 30) = 0.399933E+00
+ PKER_RACCSS( 30, 31) = 0.407343E+00
+ PKER_RACCSS( 30, 32) = 0.413443E+00
+ PKER_RACCSS( 30, 33) = 0.418470E+00
+ PKER_RACCSS( 30, 34) = 0.422617E+00
+ PKER_RACCSS( 30, 35) = 0.426039E+00
+ PKER_RACCSS( 30, 36) = 0.428865E+00
+ PKER_RACCSS( 30, 37) = 0.431199E+00
+ PKER_RACCSS( 30, 38) = 0.433129E+00
+ PKER_RACCSS( 30, 39) = 0.434724E+00
+ PKER_RACCSS( 30, 40) = 0.436043E+00
+ PKER_RACCSS( 31, 1) = 0.133542E+02
+ PKER_RACCSS( 31, 2) = 0.109625E+02
+ PKER_RACCSS( 31, 3) = 0.898189E+01
+ PKER_RACCSS( 31, 4) = 0.734152E+01
+ PKER_RACCSS( 31, 5) = 0.598289E+01
+ PKER_RACCSS( 31, 6) = 0.485757E+01
+ PKER_RACCSS( 31, 7) = 0.392550E+01
+ PKER_RACCSS( 31, 8) = 0.315354E+01
+ PKER_RACCSS( 31, 9) = 0.251434E+01
+ PKER_RACCSS( 31, 10) = 0.198527E+01
+ PKER_RACCSS( 31, 11) = 0.154772E+01
+ PKER_RACCSS( 31, 12) = 0.118655E+01
+ PKER_RACCSS( 31, 13) = 0.889360E+00
+ PKER_RACCSS( 31, 14) = 0.646660E+00
+ PKER_RACCSS( 31, 15) = 0.452369E+00
+ PKER_RACCSS( 31, 16) = 0.303553E+00
+ PKER_RACCSS( 31, 17) = 0.200026E+00
+ PKER_RACCSS( 31, 18) = 0.143287E+00
+ PKER_RACCSS( 31, 19) = 0.130339E+00
+ PKER_RACCSS( 31, 20) = 0.151258E+00
+ PKER_RACCSS( 31, 21) = 0.189789E+00
+ PKER_RACCSS( 31, 22) = 0.231305E+00
+ PKER_RACCSS( 31, 23) = 0.268057E+00
+ PKER_RACCSS( 31, 24) = 0.298394E+00
+ PKER_RACCSS( 31, 25) = 0.323071E+00
+ PKER_RACCSS( 31, 26) = 0.343153E+00
+ PKER_RACCSS( 31, 27) = 0.359533E+00
+ PKER_RACCSS( 31, 28) = 0.372926E+00
+ PKER_RACCSS( 31, 29) = 0.383898E+00
+ PKER_RACCSS( 31, 30) = 0.392903E+00
+ PKER_RACCSS( 31, 31) = 0.400305E+00
+ PKER_RACCSS( 31, 32) = 0.406398E+00
+ PKER_RACCSS( 31, 33) = 0.411418E+00
+ PKER_RACCSS( 31, 34) = 0.415558E+00
+ PKER_RACCSS( 31, 35) = 0.418975E+00
+ PKER_RACCSS( 31, 36) = 0.421797E+00
+ PKER_RACCSS( 31, 37) = 0.424128E+00
+ PKER_RACCSS( 31, 38) = 0.426055E+00
+ PKER_RACCSS( 31, 39) = 0.427647E+00
+ PKER_RACCSS( 31, 40) = 0.428965E+00
+ PKER_RACCSS( 32, 1) = 0.133590E+02
+ PKER_RACCSS( 32, 2) = 0.109675E+02
+ PKER_RACCSS( 32, 3) = 0.898691E+01
+ PKER_RACCSS( 32, 4) = 0.734663E+01
+ PKER_RACCSS( 32, 5) = 0.598811E+01
+ PKER_RACCSS( 32, 6) = 0.486289E+01
+ PKER_RACCSS( 32, 7) = 0.393091E+01
+ PKER_RACCSS( 32, 8) = 0.315903E+01
+ PKER_RACCSS( 32, 9) = 0.251990E+01
+ PKER_RACCSS( 32, 10) = 0.199087E+01
+ PKER_RACCSS( 32, 11) = 0.155332E+01
+ PKER_RACCSS( 32, 12) = 0.119212E+01
+ PKER_RACCSS( 32, 13) = 0.894787E+00
+ PKER_RACCSS( 32, 14) = 0.651780E+00
+ PKER_RACCSS( 32, 15) = 0.456934E+00
+ PKER_RACCSS( 32, 16) = 0.307161E+00
+ PKER_RACCSS( 32, 17) = 0.202078E+00
+ PKER_RACCSS( 32, 18) = 0.143390E+00
+ PKER_RACCSS( 32, 19) = 0.128438E+00
+ PKER_RACCSS( 32, 20) = 0.147873E+00
+ PKER_RACCSS( 32, 21) = 0.185637E+00
+ PKER_RACCSS( 32, 22) = 0.226925E+00
+ PKER_RACCSS( 32, 23) = 0.263661E+00
+ PKER_RACCSS( 32, 24) = 0.294017E+00
+ PKER_RACCSS( 32, 25) = 0.318706E+00
+ PKER_RACCSS( 32, 26) = 0.338791E+00
+ PKER_RACCSS( 32, 27) = 0.355169E+00
+ PKER_RACCSS( 32, 28) = 0.368556E+00
+ PKER_RACCSS( 32, 29) = 0.379520E+00
+ PKER_RACCSS( 32, 30) = 0.388518E+00
+ PKER_RACCSS( 32, 31) = 0.395913E+00
+ PKER_RACCSS( 32, 32) = 0.401999E+00
+ PKER_RACCSS( 32, 33) = 0.407013E+00
+ PKER_RACCSS( 32, 34) = 0.411148E+00
+ PKER_RACCSS( 32, 35) = 0.414561E+00
+ PKER_RACCSS( 32, 36) = 0.417379E+00
+ PKER_RACCSS( 32, 37) = 0.419707E+00
+ PKER_RACCSS( 32, 38) = 0.421631E+00
+ PKER_RACCSS( 32, 39) = 0.423222E+00
+ PKER_RACCSS( 32, 40) = 0.424538E+00
+ PKER_RACCSS( 33, 1) = 0.133634E+02
+ PKER_RACCSS( 33, 2) = 0.109719E+02
+ PKER_RACCSS( 33, 3) = 0.899144E+01
+ PKER_RACCSS( 33, 4) = 0.735125E+01
+ PKER_RACCSS( 33, 5) = 0.599281E+01
+ PKER_RACCSS( 33, 6) = 0.486766E+01
+ PKER_RACCSS( 33, 7) = 0.393575E+01
+ PKER_RACCSS( 33, 8) = 0.316394E+01
+ PKER_RACCSS( 33, 9) = 0.252485E+01
+ PKER_RACCSS( 33, 10) = 0.199585E+01
+ PKER_RACCSS( 33, 11) = 0.155829E+01
+ PKER_RACCSS( 33, 12) = 0.119704E+01
+ PKER_RACCSS( 33, 13) = 0.899566E+00
+ PKER_RACCSS( 33, 14) = 0.656282E+00
+ PKER_RACCSS( 33, 15) = 0.460951E+00
+ PKER_RACCSS( 33, 16) = 0.310395E+00
+ PKER_RACCSS( 33, 17) = 0.203981E+00
+ PKER_RACCSS( 33, 18) = 0.143650E+00
+ PKER_RACCSS( 33, 19) = 0.126977E+00
+ PKER_RACCSS( 33, 20) = 0.145114E+00
+ PKER_RACCSS( 33, 21) = 0.182187E+00
+ PKER_RACCSS( 33, 22) = 0.223272E+00
+ PKER_RACCSS( 33, 23) = 0.260002E+00
+ PKER_RACCSS( 33, 24) = 0.290386E+00
+ PKER_RACCSS( 33, 25) = 0.315096E+00
+ PKER_RACCSS( 33, 26) = 0.335192E+00
+ PKER_RACCSS( 33, 27) = 0.351574E+00
+ PKER_RACCSS( 33, 28) = 0.364961E+00
+ PKER_RACCSS( 33, 29) = 0.375924E+00
+ PKER_RACCSS( 33, 30) = 0.384918E+00
+ PKER_RACCSS( 33, 31) = 0.392309E+00
+ PKER_RACCSS( 33, 32) = 0.398391E+00
+ PKER_RACCSS( 33, 33) = 0.403402E+00
+ PKER_RACCSS( 33, 34) = 0.407534E+00
+ PKER_RACCSS( 33, 35) = 0.410944E+00
+ PKER_RACCSS( 33, 36) = 0.413760E+00
+ PKER_RACCSS( 33, 37) = 0.416087E+00
+ PKER_RACCSS( 33, 38) = 0.418009E+00
+ PKER_RACCSS( 33, 39) = 0.419599E+00
+ PKER_RACCSS( 33, 40) = 0.420913E+00
+ PKER_RACCSS( 34, 1) = 0.133630E+02
+ PKER_RACCSS( 34, 2) = 0.109715E+02
+ PKER_RACCSS( 34, 3) = 0.899100E+01
+ PKER_RACCSS( 34, 4) = 0.735081E+01
+ PKER_RACCSS( 34, 5) = 0.599238E+01
+ PKER_RACCSS( 34, 6) = 0.486725E+01
+ PKER_RACCSS( 34, 7) = 0.393536E+01
+ PKER_RACCSS( 34, 8) = 0.316356E+01
+ PKER_RACCSS( 34, 9) = 0.252450E+01
+ PKER_RACCSS( 34, 10) = 0.199554E+01
+ PKER_RACCSS( 34, 11) = 0.155801E+01
+ PKER_RACCSS( 34, 12) = 0.119682E+01
+ PKER_RACCSS( 34, 13) = 0.899401E+00
+ PKER_RACCSS( 34, 14) = 0.656145E+00
+ PKER_RACCSS( 34, 15) = 0.460886E+00
+ PKER_RACCSS( 34, 16) = 0.310328E+00
+ PKER_RACCSS( 34, 17) = 0.203917E+00
+ PKER_RACCSS( 34, 18) = 0.143502E+00
+ PKER_RACCSS( 34, 19) = 0.126714E+00
+ PKER_RACCSS( 34, 20) = 0.144814E+00
+ PKER_RACCSS( 34, 21) = 0.181862E+00
+ PKER_RACCSS( 34, 22) = 0.222931E+00
+ PKER_RACCSS( 34, 23) = 0.259636E+00
+ PKER_RACCSS( 34, 24) = 0.289994E+00
+ PKER_RACCSS( 34, 25) = 0.314682E+00
+ PKER_RACCSS( 34, 26) = 0.334759E+00
+ PKER_RACCSS( 34, 27) = 0.351126E+00
+ PKER_RACCSS( 34, 28) = 0.364500E+00
+ PKER_RACCSS( 34, 29) = 0.375452E+00
+ PKER_RACCSS( 34, 30) = 0.384438E+00
+ PKER_RACCSS( 34, 31) = 0.391823E+00
+ PKER_RACCSS( 34, 32) = 0.397899E+00
+ PKER_RACCSS( 34, 33) = 0.402906E+00
+ PKER_RACCSS( 34, 34) = 0.407035E+00
+ PKER_RACCSS( 34, 35) = 0.410442E+00
+ PKER_RACCSS( 34, 36) = 0.413255E+00
+ PKER_RACCSS( 34, 37) = 0.415580E+00
+ PKER_RACCSS( 34, 38) = 0.417501E+00
+ PKER_RACCSS( 34, 39) = 0.419090E+00
+ PKER_RACCSS( 34, 40) = 0.420403E+00
+ PKER_RACCSS( 35, 1) = 0.133672E+02
+ PKER_RACCSS( 35, 2) = 0.109758E+02
+ PKER_RACCSS( 35, 3) = 0.899541E+01
+ PKER_RACCSS( 35, 4) = 0.735530E+01
+ PKER_RACCSS( 35, 5) = 0.599694E+01
+ PKER_RACCSS( 35, 6) = 0.487187E+01
+ PKER_RACCSS( 35, 7) = 0.394004E+01
+ PKER_RACCSS( 35, 8) = 0.316829E+01
+ PKER_RACCSS( 35, 9) = 0.252925E+01
+ PKER_RACCSS( 35, 10) = 0.200030E+01
+ PKER_RACCSS( 35, 11) = 0.156274E+01
+ PKER_RACCSS( 35, 12) = 0.120148E+01
+ PKER_RACCSS( 35, 13) = 0.903909E+00
+ PKER_RACCSS( 35, 14) = 0.660382E+00
+ PKER_RACCSS( 35, 15) = 0.464658E+00
+ PKER_RACCSS( 35, 16) = 0.313423E+00
+ PKER_RACCSS( 35, 17) = 0.205790E+00
+ PKER_RACCSS( 35, 18) = 0.143918E+00
+ PKER_RACCSS( 35, 19) = 0.125539E+00
+ PKER_RACCSS( 35, 20) = 0.142455E+00
+ PKER_RACCSS( 35, 21) = 0.178845E+00
+ PKER_RACCSS( 35, 22) = 0.219725E+00
+ PKER_RACCSS( 35, 23) = 0.256434E+00
+ PKER_RACCSS( 35, 24) = 0.286832E+00
+ PKER_RACCSS( 35, 25) = 0.311550E+00
+ PKER_RACCSS( 35, 26) = 0.331648E+00
+ PKER_RACCSS( 35, 27) = 0.348027E+00
+ PKER_RACCSS( 35, 28) = 0.361408E+00
+ PKER_RACCSS( 35, 29) = 0.372363E+00
+ PKER_RACCSS( 35, 30) = 0.381350E+00
+ PKER_RACCSS( 35, 31) = 0.388735E+00
+ PKER_RACCSS( 35, 32) = 0.394811E+00
+ PKER_RACCSS( 35, 33) = 0.399816E+00
+ PKER_RACCSS( 35, 34) = 0.403944E+00
+ PKER_RACCSS( 35, 35) = 0.407350E+00
+ PKER_RACCSS( 35, 36) = 0.410162E+00
+ PKER_RACCSS( 35, 37) = 0.412486E+00
+ PKER_RACCSS( 35, 38) = 0.414407E+00
+ PKER_RACCSS( 35, 39) = 0.415994E+00
+ PKER_RACCSS( 35, 40) = 0.417308E+00
+ PKER_RACCSS( 36, 1) = 0.133777E+02
+ PKER_RACCSS( 36, 2) = 0.109864E+02
+ PKER_RACCSS( 36, 3) = 0.900621E+01
+ PKER_RACCSS( 36, 4) = 0.736627E+01
+ PKER_RACCSS( 36, 5) = 0.600806E+01
+ PKER_RACCSS( 36, 6) = 0.488314E+01
+ PKER_RACCSS( 36, 7) = 0.395142E+01
+ PKER_RACCSS( 36, 8) = 0.317976E+01
+ PKER_RACCSS( 36, 9) = 0.254077E+01
+ PKER_RACCSS( 36, 10) = 0.201180E+01
+ PKER_RACCSS( 36, 11) = 0.157415E+01
+ PKER_RACCSS( 36, 12) = 0.121269E+01
+ PKER_RACCSS( 36, 13) = 0.914730E+00
+ PKER_RACCSS( 36, 14) = 0.670578E+00
+ PKER_RACCSS( 36, 15) = 0.473704E+00
+ PKER_RACCSS( 36, 16) = 0.320913E+00
+ PKER_RACCSS( 36, 17) = 0.210405E+00
+ PKER_RACCSS( 36, 18) = 0.145253E+00
+ PKER_RACCSS( 36, 19) = 0.123196E+00
+ PKER_RACCSS( 36, 20) = 0.137328E+00
+ PKER_RACCSS( 36, 21) = 0.172099E+00
+ PKER_RACCSS( 36, 22) = 0.212483E+00
+ PKER_RACCSS( 36, 23) = 0.249214E+00
+ PKER_RACCSS( 36, 24) = 0.279734E+00
+ PKER_RACCSS( 36, 25) = 0.304552E+00
+ PKER_RACCSS( 36, 26) = 0.324719E+00
+ PKER_RACCSS( 36, 27) = 0.341145E+00
+ PKER_RACCSS( 36, 28) = 0.354556E+00
+ PKER_RACCSS( 36, 29) = 0.365531E+00
+ PKER_RACCSS( 36, 30) = 0.374530E+00
+ PKER_RACCSS( 36, 31) = 0.381922E+00
+ PKER_RACCSS( 36, 32) = 0.388003E+00
+ PKER_RACCSS( 36, 33) = 0.393010E+00
+ PKER_RACCSS( 36, 34) = 0.397139E+00
+ PKER_RACCSS( 36, 35) = 0.400545E+00
+ PKER_RACCSS( 36, 36) = 0.403358E+00
+ PKER_RACCSS( 36, 37) = 0.405681E+00
+ PKER_RACCSS( 36, 38) = 0.407601E+00
+ PKER_RACCSS( 36, 39) = 0.409189E+00
+ PKER_RACCSS( 36, 40) = 0.410501E+00
PKER_RACCSS( 37, 1) = 0.000000E+00
PKER_RACCSS( 37, 2) = 0.000000E+00
PKER_RACCSS( 37, 3) = 0.000000E+00
@@ -1742,2125 +1745,2125 @@ IF( PRESENT(PKER_RACCSS) ) THEN
END IF
!
IF( PRESENT(PKER_RACCS ) ) THEN
- PKER_RACCS ( 1, 1) = 0.810035E+01
- PKER_RACCS ( 1, 2) = 0.624606E+01
- PKER_RACCS ( 1, 3) = 0.474070E+01
- PKER_RACCS ( 1, 4) = 0.352376E+01
- PKER_RACCS ( 1, 5) = 0.255333E+01
- PKER_RACCS ( 1, 6) = 0.180384E+01
- PKER_RACCS ( 1, 7) = 0.126294E+01
- PKER_RACCS ( 1, 8) = 0.924202E+00
- PKER_RACCS ( 1, 9) = 0.775231E+00
- PKER_RACCS ( 1, 10) = 0.787292E+00
- PKER_RACCS ( 1, 11) = 0.911536E+00
- PKER_RACCS ( 1, 12) = 0.109094E+01
- PKER_RACCS ( 1, 13) = 0.127926E+01
- PKER_RACCS ( 1, 14) = 0.145083E+01
- PKER_RACCS ( 1, 15) = 0.159745E+01
- PKER_RACCS ( 1, 16) = 0.171978E+01
- PKER_RACCS ( 1, 17) = 0.182114E+01
- PKER_RACCS ( 1, 18) = 0.190501E+01
- PKER_RACCS ( 1, 19) = 0.197441E+01
- PKER_RACCS ( 1, 20) = 0.203184E+01
- PKER_RACCS ( 1, 21) = 0.207937E+01
- PKER_RACCS ( 1, 22) = 0.211870E+01
- PKER_RACCS ( 1, 23) = 0.215125E+01
- PKER_RACCS ( 1, 24) = 0.217819E+01
- PKER_RACCS ( 1, 25) = 0.220049E+01
- PKER_RACCS ( 1, 26) = 0.221895E+01
- PKER_RACCS ( 1, 27) = 0.223423E+01
- PKER_RACCS ( 1, 28) = 0.224687E+01
- PKER_RACCS ( 1, 29) = 0.225734E+01
- PKER_RACCS ( 1, 30) = 0.226601E+01
- PKER_RACCS ( 1, 31) = 0.227318E+01
- PKER_RACCS ( 1, 32) = 0.227911E+01
- PKER_RACCS ( 1, 33) = 0.228403E+01
- PKER_RACCS ( 1, 34) = 0.228810E+01
- PKER_RACCS ( 1, 35) = 0.229146E+01
- PKER_RACCS ( 1, 36) = 0.229425E+01
- PKER_RACCS ( 1, 37) = 0.229656E+01
- PKER_RACCS ( 1, 38) = 0.229847E+01
- PKER_RACCS ( 1, 39) = 0.230005E+01
- PKER_RACCS ( 1, 40) = 0.230136E+01
- PKER_RACCS ( 2, 1) = 0.835048E+01
- PKER_RACCS ( 2, 2) = 0.645953E+01
- PKER_RACCS ( 2, 3) = 0.492716E+01
- PKER_RACCS ( 2, 4) = 0.368761E+01
- PKER_RACCS ( 2, 5) = 0.269450E+01
- PKER_RACCS ( 2, 6) = 0.191744E+01
- PKER_RACCS ( 2, 7) = 0.134059E+01
- PKER_RACCS ( 2, 8) = 0.956675E+00
- PKER_RACCS ( 2, 9) = 0.757265E+00
- PKER_RACCS ( 2, 10) = 0.720633E+00
- PKER_RACCS ( 2, 11) = 0.806882E+00
- PKER_RACCS ( 2, 12) = 0.963181E+00
- PKER_RACCS ( 2, 13) = 0.114076E+01
- PKER_RACCS ( 2, 14) = 0.130870E+01
- PKER_RACCS ( 2, 15) = 0.145451E+01
- PKER_RACCS ( 2, 16) = 0.157680E+01
- PKER_RACCS ( 2, 17) = 0.167825E+01
- PKER_RACCS ( 2, 18) = 0.176221E+01
- PKER_RACCS ( 2, 19) = 0.183168E+01
- PKER_RACCS ( 2, 20) = 0.188915E+01
- PKER_RACCS ( 2, 21) = 0.193671E+01
- PKER_RACCS ( 2, 22) = 0.197607E+01
- PKER_RACCS ( 2, 23) = 0.200864E+01
- PKER_RACCS ( 2, 24) = 0.203559E+01
- PKER_RACCS ( 2, 25) = 0.205790E+01
- PKER_RACCS ( 2, 26) = 0.207637E+01
- PKER_RACCS ( 2, 27) = 0.209165E+01
- PKER_RACCS ( 2, 28) = 0.210430E+01
- PKER_RACCS ( 2, 29) = 0.211478E+01
- PKER_RACCS ( 2, 30) = 0.212344E+01
- PKER_RACCS ( 2, 31) = 0.213062E+01
- PKER_RACCS ( 2, 32) = 0.213656E+01
- PKER_RACCS ( 2, 33) = 0.214147E+01
- PKER_RACCS ( 2, 34) = 0.214554E+01
- PKER_RACCS ( 2, 35) = 0.214891E+01
- PKER_RACCS ( 2, 36) = 0.215170E+01
- PKER_RACCS ( 2, 37) = 0.215401E+01
- PKER_RACCS ( 2, 38) = 0.215592E+01
- PKER_RACCS ( 2, 39) = 0.215750E+01
- PKER_RACCS ( 2, 40) = 0.215881E+01
- PKER_RACCS ( 3, 1) = 0.861642E+01
- PKER_RACCS ( 3, 2) = 0.668233E+01
- PKER_RACCS ( 3, 3) = 0.511848E+01
- PKER_RACCS ( 3, 4) = 0.385427E+01
- PKER_RACCS ( 3, 5) = 0.283858E+01
- PKER_RACCS ( 3, 6) = 0.203643E+01
- PKER_RACCS ( 3, 7) = 0.142806E+01
- PKER_RACCS ( 3, 8) = 0.100397E+01
- PKER_RACCS ( 3, 9) = 0.757020E+00
- PKER_RACCS ( 3, 10) = 0.673206E+00
- PKER_RACCS ( 3, 11) = 0.719335E+00
- PKER_RACCS ( 3, 12) = 0.849040E+00
- PKER_RACCS ( 3, 13) = 0.101307E+01
- PKER_RACCS ( 3, 14) = 0.117592E+01
- PKER_RACCS ( 3, 15) = 0.132041E+01
- PKER_RACCS ( 3, 16) = 0.144256E+01
- PKER_RACCS ( 3, 17) = 0.154410E+01
- PKER_RACCS ( 3, 18) = 0.162816E+01
- PKER_RACCS ( 3, 19) = 0.169770E+01
- PKER_RACCS ( 3, 20) = 0.175523E+01
- PKER_RACCS ( 3, 21) = 0.180284E+01
- PKER_RACCS ( 3, 22) = 0.184222E+01
- PKER_RACCS ( 3, 23) = 0.187482E+01
- PKER_RACCS ( 3, 24) = 0.190179E+01
- PKER_RACCS ( 3, 25) = 0.192411E+01
- PKER_RACCS ( 3, 26) = 0.194259E+01
- PKER_RACCS ( 3, 27) = 0.195788E+01
- PKER_RACCS ( 3, 28) = 0.197054E+01
- PKER_RACCS ( 3, 29) = 0.198101E+01
- PKER_RACCS ( 3, 30) = 0.198968E+01
- PKER_RACCS ( 3, 31) = 0.199686E+01
- PKER_RACCS ( 3, 32) = 0.200280E+01
- PKER_RACCS ( 3, 33) = 0.200772E+01
- PKER_RACCS ( 3, 34) = 0.201179E+01
- PKER_RACCS ( 3, 35) = 0.201516E+01
- PKER_RACCS ( 3, 36) = 0.201795E+01
- PKER_RACCS ( 3, 37) = 0.202026E+01
- PKER_RACCS ( 3, 38) = 0.202217E+01
- PKER_RACCS ( 3, 39) = 0.202375E+01
- PKER_RACCS ( 3, 40) = 0.202506E+01
- PKER_RACCS ( 4, 1) = 0.890193E+01
- PKER_RACCS ( 4, 2) = 0.691781E+01
- PKER_RACCS ( 4, 3) = 0.531713E+01
- PKER_RACCS ( 4, 4) = 0.402519E+01
- PKER_RACCS ( 4, 5) = 0.298590E+01
- PKER_RACCS ( 4, 6) = 0.216006E+01
- PKER_RACCS ( 4, 7) = 0.152334E+01
- PKER_RACCS ( 4, 8) = 0.106334E+01
- PKER_RACCS ( 4, 9) = 0.773535E+00
- PKER_RACCS ( 4, 10) = 0.643200E+00
- PKER_RACCS ( 4, 11) = 0.648455E+00
- PKER_RACCS ( 4, 12) = 0.748702E+00
- PKER_RACCS ( 4, 13) = 0.896286E+00
- PKER_RACCS ( 4, 14) = 0.105225E+01
- PKER_RACCS ( 4, 15) = 0.119469E+01
- PKER_RACCS ( 4, 16) = 0.131651E+01
- PKER_RACCS ( 4, 17) = 0.141813E+01
- PKER_RACCS ( 4, 18) = 0.150231E+01
- PKER_RACCS ( 4, 19) = 0.157195E+01
- PKER_RACCS ( 4, 20) = 0.162955E+01
- PKER_RACCS ( 4, 21) = 0.167720E+01
- PKER_RACCS ( 4, 22) = 0.171662E+01
- PKER_RACCS ( 4, 23) = 0.174924E+01
- PKER_RACCS ( 4, 24) = 0.177624E+01
- PKER_RACCS ( 4, 25) = 0.179858E+01
- PKER_RACCS ( 4, 26) = 0.181706E+01
- PKER_RACCS ( 4, 27) = 0.183237E+01
- PKER_RACCS ( 4, 28) = 0.184503E+01
- PKER_RACCS ( 4, 29) = 0.185551E+01
- PKER_RACCS ( 4, 30) = 0.186419E+01
- PKER_RACCS ( 4, 31) = 0.187137E+01
- PKER_RACCS ( 4, 32) = 0.187731E+01
- PKER_RACCS ( 4, 33) = 0.188223E+01
- PKER_RACCS ( 4, 34) = 0.188630E+01
- PKER_RACCS ( 4, 35) = 0.188967E+01
- PKER_RACCS ( 4, 36) = 0.189246E+01
- PKER_RACCS ( 4, 37) = 0.189477E+01
- PKER_RACCS ( 4, 38) = 0.189668E+01
- PKER_RACCS ( 4, 39) = 0.189826E+01
- PKER_RACCS ( 4, 40) = 0.189957E+01
- PKER_RACCS ( 5, 1) = 0.920977E+01
- PKER_RACCS ( 5, 2) = 0.716900E+01
- PKER_RACCS ( 5, 3) = 0.552588E+01
- PKER_RACCS ( 5, 4) = 0.420224E+01
- PKER_RACCS ( 5, 5) = 0.313744E+01
- PKER_RACCS ( 5, 6) = 0.228804E+01
- PKER_RACCS ( 5, 7) = 0.162515E+01
- PKER_RACCS ( 5, 8) = 0.113305E+01
- PKER_RACCS ( 5, 9) = 0.804245E+00
- PKER_RACCS ( 5, 10) = 0.630831E+00
- PKER_RACCS ( 5, 11) = 0.594727E+00
- PKER_RACCS ( 5, 12) = 0.662791E+00
- PKER_RACCS ( 5, 13) = 0.790719E+00
- PKER_RACCS ( 5, 14) = 0.937530E+00
- PKER_RACCS ( 5, 15) = 0.107695E+01
- PKER_RACCS ( 5, 16) = 0.119816E+01
- PKER_RACCS ( 5, 17) = 0.129982E+01
- PKER_RACCS ( 5, 18) = 0.138414E+01
- PKER_RACCS ( 5, 19) = 0.145388E+01
- PKER_RACCS ( 5, 20) = 0.151157E+01
- PKER_RACCS ( 5, 21) = 0.155928E+01
- PKER_RACCS ( 5, 22) = 0.159875E+01
- PKER_RACCS ( 5, 23) = 0.163140E+01
- PKER_RACCS ( 5, 24) = 0.165842E+01
- PKER_RACCS ( 5, 25) = 0.168078E+01
- PKER_RACCS ( 5, 26) = 0.169928E+01
- PKER_RACCS ( 5, 27) = 0.171459E+01
- PKER_RACCS ( 5, 28) = 0.172727E+01
- PKER_RACCS ( 5, 29) = 0.173775E+01
- PKER_RACCS ( 5, 30) = 0.174643E+01
- PKER_RACCS ( 5, 31) = 0.175362E+01
- PKER_RACCS ( 5, 32) = 0.175957E+01
- PKER_RACCS ( 5, 33) = 0.176449E+01
- PKER_RACCS ( 5, 34) = 0.176856E+01
- PKER_RACCS ( 5, 35) = 0.177193E+01
- PKER_RACCS ( 5, 36) = 0.177472E+01
- PKER_RACCS ( 5, 37) = 0.177703E+01
- PKER_RACCS ( 5, 38) = 0.177895E+01
- PKER_RACCS ( 5, 39) = 0.178053E+01
- PKER_RACCS ( 5, 40) = 0.178184E+01
- PKER_RACCS ( 6, 1) = 0.954082E+01
- PKER_RACCS ( 6, 2) = 0.743810E+01
- PKER_RACCS ( 6, 3) = 0.574728E+01
- PKER_RACCS ( 6, 4) = 0.438753E+01
- PKER_RACCS ( 6, 5) = 0.329456E+01
- PKER_RACCS ( 6, 6) = 0.242082E+01
- PKER_RACCS ( 6, 7) = 0.173320E+01
- PKER_RACCS ( 6, 8) = 0.121220E+01
- PKER_RACCS ( 6, 9) = 0.848100E+00
- PKER_RACCS ( 6, 10) = 0.633831E+00
- PKER_RACCS ( 6, 11) = 0.557416E+00
- PKER_RACCS ( 6, 12) = 0.591242E+00
- PKER_RACCS ( 6, 13) = 0.696457E+00
- PKER_RACCS ( 6, 14) = 0.831746E+00
- PKER_RACCS ( 6, 15) = 0.966879E+00
- PKER_RACCS ( 6, 16) = 0.108705E+01
- PKER_RACCS ( 6, 17) = 0.118868E+01
- PKER_RACCS ( 6, 18) = 0.127314E+01
- PKER_RACCS ( 6, 19) = 0.134302E+01
- PKER_RACCS ( 6, 20) = 0.140081E+01
- PKER_RACCS ( 6, 21) = 0.144859E+01
- PKER_RACCS ( 6, 22) = 0.148812E+01
- PKER_RACCS ( 6, 23) = 0.152081E+01
- PKER_RACCS ( 6, 24) = 0.154786E+01
- PKER_RACCS ( 6, 25) = 0.157025E+01
- PKER_RACCS ( 6, 26) = 0.158876E+01
- PKER_RACCS ( 6, 27) = 0.160409E+01
- PKER_RACCS ( 6, 28) = 0.161677E+01
- PKER_RACCS ( 6, 29) = 0.162727E+01
- PKER_RACCS ( 6, 30) = 0.163595E+01
- PKER_RACCS ( 6, 31) = 0.164314E+01
- PKER_RACCS ( 6, 32) = 0.164909E+01
- PKER_RACCS ( 6, 33) = 0.165402E+01
- PKER_RACCS ( 6, 34) = 0.165809E+01
- PKER_RACCS ( 6, 35) = 0.166147E+01
- PKER_RACCS ( 6, 36) = 0.166426E+01
- PKER_RACCS ( 6, 37) = 0.166657E+01
- PKER_RACCS ( 6, 38) = 0.166848E+01
- PKER_RACCS ( 6, 39) = 0.167007E+01
- PKER_RACCS ( 6, 40) = 0.167138E+01
- PKER_RACCS ( 7, 1) = 0.989299E+01
- PKER_RACCS ( 7, 2) = 0.772578E+01
- PKER_RACCS ( 7, 3) = 0.598316E+01
- PKER_RACCS ( 7, 4) = 0.458298E+01
- PKER_RACCS ( 7, 5) = 0.345874E+01
- PKER_RACCS ( 7, 6) = 0.255904E+01
- PKER_RACCS ( 7, 7) = 0.184707E+01
- PKER_RACCS ( 7, 8) = 0.129931E+01
- PKER_RACCS ( 7, 9) = 0.903048E+00
- PKER_RACCS ( 7, 10) = 0.651461E+00
- PKER_RACCS ( 7, 11) = 0.535102E+00
- PKER_RACCS ( 7, 12) = 0.533793E+00
- PKER_RACCS ( 7, 13) = 0.613816E+00
- PKER_RACCS ( 7, 14) = 0.735010E+00
- PKER_RACCS ( 7, 15) = 0.864301E+00
- PKER_RACCS ( 7, 16) = 0.982807E+00
- PKER_RACCS ( 7, 17) = 0.108425E+01
- PKER_RACCS ( 7, 18) = 0.116886E+01
- PKER_RACCS ( 7, 19) = 0.123890E+01
- PKER_RACCS ( 7, 20) = 0.129681E+01
- PKER_RACCS ( 7, 21) = 0.134469E+01
- PKER_RACCS ( 7, 22) = 0.138428E+01
- PKER_RACCS ( 7, 23) = 0.141702E+01
- PKER_RACCS ( 7, 24) = 0.144411E+01
- PKER_RACCS ( 7, 25) = 0.146652E+01
- PKER_RACCS ( 7, 26) = 0.148506E+01
- PKER_RACCS ( 7, 27) = 0.150040E+01
- PKER_RACCS ( 7, 28) = 0.151309E+01
- PKER_RACCS ( 7, 29) = 0.152360E+01
- PKER_RACCS ( 7, 30) = 0.153229E+01
- PKER_RACCS ( 7, 31) = 0.153949E+01
- PKER_RACCS ( 7, 32) = 0.154544E+01
- PKER_RACCS ( 7, 33) = 0.155037E+01
- PKER_RACCS ( 7, 34) = 0.155445E+01
- PKER_RACCS ( 7, 35) = 0.155782E+01
- PKER_RACCS ( 7, 36) = 0.156062E+01
- PKER_RACCS ( 7, 37) = 0.156293E+01
- PKER_RACCS ( 7, 38) = 0.156484E+01
- PKER_RACCS ( 7, 39) = 0.156643E+01
- PKER_RACCS ( 7, 40) = 0.156774E+01
- PKER_RACCS ( 8, 1) = 0.102606E+02
- PKER_RACCS ( 8, 2) = 0.803025E+01
- PKER_RACCS ( 8, 3) = 0.623398E+01
- PKER_RACCS ( 8, 4) = 0.479013E+01
- PKER_RACCS ( 8, 5) = 0.363141E+01
- PKER_RACCS ( 8, 6) = 0.270370E+01
- PKER_RACCS ( 8, 7) = 0.196690E+01
- PKER_RACCS ( 8, 8) = 0.139353E+01
- PKER_RACCS ( 8, 9) = 0.967762E+00
- PKER_RACCS ( 8, 10) = 0.681746E+00
- PKER_RACCS ( 8, 11) = 0.527901E+00
- PKER_RACCS ( 8, 12) = 0.491036E+00
- PKER_RACCS ( 8, 13) = 0.543394E+00
- PKER_RACCS ( 8, 14) = 0.647673E+00
- PKER_RACCS ( 8, 15) = 0.769109E+00
- PKER_RACCS ( 8, 16) = 0.885089E+00
- PKER_RACCS ( 8, 17) = 0.986107E+00
- PKER_RACCS ( 8, 18) = 0.107085E+01
- PKER_RACCS ( 8, 19) = 0.114108E+01
- PKER_RACCS ( 8, 20) = 0.119914E+01
- PKER_RACCS ( 8, 21) = 0.124712E+01
- PKER_RACCS ( 8, 22) = 0.128680E+01
- PKER_RACCS ( 8, 23) = 0.131960E+01
- PKER_RACCS ( 8, 24) = 0.134673E+01
- PKER_RACCS ( 8, 25) = 0.136917E+01
- PKER_RACCS ( 8, 26) = 0.138774E+01
- PKER_RACCS ( 8, 27) = 0.140310E+01
- PKER_RACCS ( 8, 28) = 0.141581E+01
- PKER_RACCS ( 8, 29) = 0.142633E+01
- PKER_RACCS ( 8, 30) = 0.143503E+01
- PKER_RACCS ( 8, 31) = 0.144223E+01
- PKER_RACCS ( 8, 32) = 0.144819E+01
- PKER_RACCS ( 8, 33) = 0.145312E+01
- PKER_RACCS ( 8, 34) = 0.145720E+01
- PKER_RACCS ( 8, 35) = 0.146058E+01
- PKER_RACCS ( 8, 36) = 0.146338E+01
- PKER_RACCS ( 8, 37) = 0.146569E+01
- PKER_RACCS ( 8, 38) = 0.146761E+01
- PKER_RACCS ( 8, 39) = 0.146919E+01
- PKER_RACCS ( 8, 40) = 0.147050E+01
- PKER_RACCS ( 9, 1) = 0.106345E+02
- PKER_RACCS ( 9, 2) = 0.834678E+01
- PKER_RACCS ( 9, 3) = 0.649814E+01
- PKER_RACCS ( 9, 4) = 0.500932E+01
- PKER_RACCS ( 9, 5) = 0.381363E+01
- PKER_RACCS ( 9, 6) = 0.285581E+01
- PKER_RACCS ( 9, 7) = 0.209316E+01
- PKER_RACCS ( 9, 8) = 0.149490E+01
- PKER_RACCS ( 9, 9) = 0.104191E+01
- PKER_RACCS ( 9, 10) = 0.724098E+00
- PKER_RACCS ( 9, 11) = 0.534431E+00
- PKER_RACCS ( 9, 12) = 0.462476E+00
- PKER_RACCS ( 9, 13) = 0.485184E+00
- PKER_RACCS ( 9, 14) = 0.569779E+00
- PKER_RACCS ( 9, 15) = 0.681282E+00
- PKER_RACCS ( 9, 16) = 0.793641E+00
- PKER_RACCS ( 9, 17) = 0.893878E+00
- PKER_RACCS ( 9, 18) = 0.978690E+00
- PKER_RACCS ( 9, 19) = 0.104914E+01
- PKER_RACCS ( 9, 20) = 0.110738E+01
- PKER_RACCS ( 9, 21) = 0.115550E+01
- PKER_RACCS ( 9, 22) = 0.119527E+01
- PKER_RACCS ( 9, 23) = 0.122815E+01
- PKER_RACCS ( 9, 24) = 0.125533E+01
- PKER_RACCS ( 9, 25) = 0.127782E+01
- PKER_RACCS ( 9, 26) = 0.129641E+01
- PKER_RACCS ( 9, 27) = 0.131179E+01
- PKER_RACCS ( 9, 28) = 0.132452E+01
- PKER_RACCS ( 9, 29) = 0.133505E+01
- PKER_RACCS ( 9, 30) = 0.134376E+01
- PKER_RACCS ( 9, 31) = 0.135097E+01
- PKER_RACCS ( 9, 32) = 0.135694E+01
- PKER_RACCS ( 9, 33) = 0.136188E+01
- PKER_RACCS ( 9, 34) = 0.136596E+01
- PKER_RACCS ( 9, 35) = 0.136934E+01
- PKER_RACCS ( 9, 36) = 0.137214E+01
- PKER_RACCS ( 9, 37) = 0.137446E+01
- PKER_RACCS ( 9, 38) = 0.137637E+01
- PKER_RACCS ( 9, 39) = 0.137796E+01
- PKER_RACCS ( 9, 40) = 0.137927E+01
- PKER_RACCS ( 10, 1) = 0.110031E+02
- PKER_RACCS ( 10, 2) = 0.866775E+01
- PKER_RACCS ( 10, 3) = 0.677164E+01
- PKER_RACCS ( 10, 4) = 0.523918E+01
- PKER_RACCS ( 10, 5) = 0.400557E+01
- PKER_RACCS ( 10, 6) = 0.301605E+01
- PKER_RACCS ( 10, 7) = 0.222631E+01
- PKER_RACCS ( 10, 8) = 0.160312E+01
- PKER_RACCS ( 10, 9) = 0.112426E+01
- PKER_RACCS ( 10, 10) = 0.776925E+00
- PKER_RACCS ( 10, 11) = 0.554023E+00
- PKER_RACCS ( 10, 12) = 0.447142E+00
- PKER_RACCS ( 10, 13) = 0.439159E+00
- PKER_RACCS ( 10, 14) = 0.501788E+00
- PKER_RACCS ( 10, 15) = 0.601002E+00
- PKER_RACCS ( 10, 16) = 0.708335E+00
- PKER_RACCS ( 10, 17) = 0.807233E+00
- PKER_RACCS ( 10, 18) = 0.892004E+00
- PKER_RACCS ( 10, 19) = 0.962681E+00
- PKER_RACCS ( 10, 20) = 0.102114E+01
- PKER_RACCS ( 10, 21) = 0.106943E+01
- PKER_RACCS ( 10, 22) = 0.110932E+01
- PKER_RACCS ( 10, 23) = 0.114228E+01
- PKER_RACCS ( 10, 24) = 0.116953E+01
- PKER_RACCS ( 10, 25) = 0.119207E+01
- PKER_RACCS ( 10, 26) = 0.121070E+01
- PKER_RACCS ( 10, 27) = 0.122611E+01
- PKER_RACCS ( 10, 28) = 0.123886E+01
- PKER_RACCS ( 10, 29) = 0.124940E+01
- PKER_RACCS ( 10, 30) = 0.125813E+01
- PKER_RACCS ( 10, 31) = 0.126535E+01
- PKER_RACCS ( 10, 32) = 0.127132E+01
- PKER_RACCS ( 10, 33) = 0.127626E+01
- PKER_RACCS ( 10, 34) = 0.128035E+01
- PKER_RACCS ( 10, 35) = 0.128374E+01
- PKER_RACCS ( 10, 36) = 0.128654E+01
- PKER_RACCS ( 10, 37) = 0.128886E+01
- PKER_RACCS ( 10, 38) = 0.129077E+01
- PKER_RACCS ( 10, 39) = 0.129236E+01
- PKER_RACCS ( 10, 40) = 0.129368E+01
- PKER_RACCS ( 11, 1) = 0.113549E+02
- PKER_RACCS ( 11, 2) = 0.898364E+01
- PKER_RACCS ( 11, 3) = 0.704811E+01
- PKER_RACCS ( 11, 4) = 0.547629E+01
- PKER_RACCS ( 11, 5) = 0.420604E+01
- PKER_RACCS ( 11, 6) = 0.318436E+01
- PKER_RACCS ( 11, 7) = 0.236670E+01
- PKER_RACCS ( 11, 8) = 0.171835E+01
- PKER_RACCS ( 11, 9) = 0.121434E+01
- PKER_RACCS ( 11, 10) = 0.839328E+00
- PKER_RACCS ( 11, 11) = 0.585308E+00
- PKER_RACCS ( 11, 12) = 0.445062E+00
- PKER_RACCS ( 11, 13) = 0.405828E+00
- PKER_RACCS ( 11, 14) = 0.444237E+00
- PKER_RACCS ( 11, 15) = 0.528618E+00
- PKER_RACCS ( 11, 16) = 0.629105E+00
- PKER_RACCS ( 11, 17) = 0.725893E+00
- PKER_RACCS ( 11, 18) = 0.810425E+00
- PKER_RACCS ( 11, 19) = 0.881336E+00
- PKER_RACCS ( 11, 20) = 0.940053E+00
- PKER_RACCS ( 11, 21) = 0.988540E+00
- PKER_RACCS ( 11, 22) = 0.102858E+01
- PKER_RACCS ( 11, 23) = 0.106165E+01
- PKER_RACCS ( 11, 24) = 0.108898E+01
- PKER_RACCS ( 11, 25) = 0.111157E+01
- PKER_RACCS ( 11, 26) = 0.113025E+01
- PKER_RACCS ( 11, 27) = 0.114569E+01
- PKER_RACCS ( 11, 28) = 0.115847E+01
- PKER_RACCS ( 11, 29) = 0.116903E+01
- PKER_RACCS ( 11, 30) = 0.117777E+01
- PKER_RACCS ( 11, 31) = 0.118500E+01
- PKER_RACCS ( 11, 32) = 0.119098E+01
- PKER_RACCS ( 11, 33) = 0.119593E+01
- PKER_RACCS ( 11, 34) = 0.120003E+01
- PKER_RACCS ( 11, 35) = 0.120342E+01
- PKER_RACCS ( 11, 36) = 0.120622E+01
- PKER_RACCS ( 11, 37) = 0.120854E+01
- PKER_RACCS ( 11, 38) = 0.121046E+01
- PKER_RACCS ( 11, 39) = 0.121205E+01
- PKER_RACCS ( 11, 40) = 0.121337E+01
- PKER_RACCS ( 12, 1) = 0.116799E+02
- PKER_RACCS ( 12, 2) = 0.928469E+01
- PKER_RACCS ( 12, 3) = 0.731960E+01
- PKER_RACCS ( 12, 4) = 0.571522E+01
- PKER_RACCS ( 12, 5) = 0.441213E+01
- PKER_RACCS ( 12, 6) = 0.335956E+01
- PKER_RACCS ( 12, 7) = 0.251408E+01
- PKER_RACCS ( 12, 8) = 0.184047E+01
- PKER_RACCS ( 12, 9) = 0.131203E+01
- PKER_RACCS ( 12, 10) = 0.911145E+00
- PKER_RACCS ( 12, 11) = 0.627927E+00
- PKER_RACCS ( 12, 12) = 0.455629E+00
- PKER_RACCS ( 12, 13) = 0.385139E+00
- PKER_RACCS ( 12, 14) = 0.397299E+00
- PKER_RACCS ( 12, 15) = 0.464231E+00
- PKER_RACCS ( 12, 16) = 0.555964E+00
- PKER_RACCS ( 12, 17) = 0.649649E+00
- PKER_RACCS ( 12, 18) = 0.733631E+00
- PKER_RACCS ( 12, 19) = 0.804744E+00
- PKER_RACCS ( 12, 20) = 0.863761E+00
- PKER_RACCS ( 12, 21) = 0.912491E+00
- PKER_RACCS ( 12, 22) = 0.952708E+00
- PKER_RACCS ( 12, 23) = 0.985912E+00
- PKER_RACCS ( 12, 24) = 0.101334E+01
- PKER_RACCS ( 12, 25) = 0.103600E+01
- PKER_RACCS ( 12, 26) = 0.105473E+01
- PKER_RACCS ( 12, 27) = 0.107022E+01
- PKER_RACCS ( 12, 28) = 0.108302E+01
- PKER_RACCS ( 12, 29) = 0.109361E+01
- PKER_RACCS ( 12, 30) = 0.110236E+01
- PKER_RACCS ( 12, 31) = 0.110961E+01
- PKER_RACCS ( 12, 32) = 0.111560E+01
- PKER_RACCS ( 12, 33) = 0.112056E+01
- PKER_RACCS ( 12, 34) = 0.112466E+01
- PKER_RACCS ( 12, 35) = 0.112805E+01
- PKER_RACCS ( 12, 36) = 0.113086E+01
- PKER_RACCS ( 12, 37) = 0.113319E+01
- PKER_RACCS ( 12, 38) = 0.113511E+01
- PKER_RACCS ( 12, 39) = 0.113670E+01
- PKER_RACCS ( 12, 40) = 0.113802E+01
- PKER_RACCS ( 13, 1) = 0.119715E+02
- PKER_RACCS ( 13, 2) = 0.956269E+01
- PKER_RACCS ( 13, 3) = 0.757802E+01
- PKER_RACCS ( 13, 4) = 0.594935E+01
- PKER_RACCS ( 13, 5) = 0.461927E+01
- PKER_RACCS ( 13, 6) = 0.353911E+01
- PKER_RACCS ( 13, 7) = 0.266730E+01
- PKER_RACCS ( 13, 8) = 0.196897E+01
- PKER_RACCS ( 13, 9) = 0.141674E+01
- PKER_RACCS ( 13, 10) = 0.991267E+00
- PKER_RACCS ( 13, 11) = 0.680645E+00
- PKER_RACCS ( 13, 12) = 0.478159E+00
- PKER_RACCS ( 13, 13) = 0.376423E+00
- PKER_RACCS ( 13, 14) = 0.361128E+00
- PKER_RACCS ( 13, 15) = 0.408438E+00
- PKER_RACCS ( 13, 16) = 0.489166E+00
- PKER_RACCS ( 13, 17) = 0.578426E+00
- PKER_RACCS ( 13, 18) = 0.661345E+00
- PKER_RACCS ( 13, 19) = 0.732571E+00
- PKER_RACCS ( 13, 20) = 0.791923E+00
- PKER_RACCS ( 13, 21) = 0.840945E+00
- PKER_RACCS ( 13, 22) = 0.881381E+00
- PKER_RACCS ( 13, 23) = 0.914745E+00
- PKER_RACCS ( 13, 24) = 0.942288E+00
- PKER_RACCS ( 13, 25) = 0.965037E+00
- PKER_RACCS ( 13, 26) = 0.983832E+00
- PKER_RACCS ( 13, 27) = 0.999365E+00
- PKER_RACCS ( 13, 28) = 0.101221E+01
- PKER_RACCS ( 13, 29) = 0.102282E+01
- PKER_RACCS ( 13, 30) = 0.103160E+01
- PKER_RACCS ( 13, 31) = 0.103886E+01
- PKER_RACCS ( 13, 32) = 0.104487E+01
- PKER_RACCS ( 13, 33) = 0.104983E+01
- PKER_RACCS ( 13, 34) = 0.105394E+01
- PKER_RACCS ( 13, 35) = 0.105734E+01
- PKER_RACCS ( 13, 36) = 0.106016E+01
- PKER_RACCS ( 13, 37) = 0.106248E+01
- PKER_RACCS ( 13, 38) = 0.106441E+01
- PKER_RACCS ( 13, 39) = 0.106600E+01
- PKER_RACCS ( 13, 40) = 0.106732E+01
- PKER_RACCS ( 14, 1) = 0.122269E+02
- PKER_RACCS ( 14, 2) = 0.981222E+01
- PKER_RACCS ( 14, 3) = 0.781657E+01
- PKER_RACCS ( 14, 4) = 0.617190E+01
- PKER_RACCS ( 14, 5) = 0.482183E+01
- PKER_RACCS ( 14, 6) = 0.371915E+01
- PKER_RACCS ( 14, 7) = 0.282402E+01
- PKER_RACCS ( 14, 8) = 0.210269E+01
- PKER_RACCS ( 14, 9) = 0.152785E+01
- PKER_RACCS ( 14, 10) = 0.107897E+01
- PKER_RACCS ( 14, 11) = 0.742682E+00
- PKER_RACCS ( 14, 12) = 0.511717E+00
- PKER_RACCS ( 14, 13) = 0.379723E+00
- PKER_RACCS ( 14, 14) = 0.336223E+00
- PKER_RACCS ( 14, 15) = 0.361708E+00
- PKER_RACCS ( 14, 16) = 0.429063E+00
- PKER_RACCS ( 14, 17) = 0.512196E+00
- PKER_RACCS ( 14, 18) = 0.593334E+00
- PKER_RACCS ( 14, 19) = 0.664504E+00
- PKER_RACCS ( 14, 20) = 0.724213E+00
- PKER_RACCS ( 14, 21) = 0.773584E+00
- PKER_RACCS ( 14, 22) = 0.814286E+00
- PKER_RACCS ( 14, 23) = 0.847845E+00
- PKER_RACCS ( 14, 24) = 0.875531E+00
- PKER_RACCS ( 14, 25) = 0.898385E+00
- PKER_RACCS ( 14, 26) = 0.917258E+00
- PKER_RACCS ( 14, 27) = 0.932850E+00
- PKER_RACCS ( 14, 28) = 0.945734E+00
- PKER_RACCS ( 14, 29) = 0.956384E+00
- PKER_RACCS ( 14, 30) = 0.965189E+00
- PKER_RACCS ( 14, 31) = 0.972469E+00
- PKER_RACCS ( 14, 32) = 0.978490E+00
- PKER_RACCS ( 14, 33) = 0.983469E+00
- PKER_RACCS ( 14, 34) = 0.987588E+00
- PKER_RACCS ( 14, 35) = 0.990995E+00
- PKER_RACCS ( 14, 36) = 0.993813E+00
- PKER_RACCS ( 14, 37) = 0.996145E+00
- PKER_RACCS ( 14, 38) = 0.998074E+00
- PKER_RACCS ( 14, 39) = 0.999670E+00
- PKER_RACCS ( 14, 40) = 0.100099E+01
- PKER_RACCS ( 15, 1) = 0.124464E+02
- PKER_RACCS ( 15, 2) = 0.100310E+02
- PKER_RACCS ( 15, 3) = 0.803077E+01
- PKER_RACCS ( 15, 4) = 0.637725E+01
- PKER_RACCS ( 15, 5) = 0.501415E+01
- PKER_RACCS ( 15, 6) = 0.389492E+01
- PKER_RACCS ( 15, 7) = 0.298087E+01
- PKER_RACCS ( 15, 8) = 0.223947E+01
- PKER_RACCS ( 15, 9) = 0.164395E+01
- PKER_RACCS ( 15, 10) = 0.117348E+01
- PKER_RACCS ( 15, 11) = 0.813603E+00
- PKER_RACCS ( 15, 12) = 0.555940E+00
- PKER_RACCS ( 15, 13) = 0.394860E+00
- PKER_RACCS ( 15, 14) = 0.322907E+00
- PKER_RACCS ( 15, 15) = 0.324503E+00
- PKER_RACCS ( 15, 16) = 0.375896E+00
- PKER_RACCS ( 15, 17) = 0.451039E+00
- PKER_RACCS ( 15, 18) = 0.529435E+00
- PKER_RACCS ( 15, 19) = 0.600261E+00
- PKER_RACCS ( 15, 20) = 0.660320E+00
- PKER_RACCS ( 15, 21) = 0.710100E+00
- PKER_RACCS ( 15, 22) = 0.751124E+00
- PKER_RACCS ( 15, 23) = 0.784920E+00
- PKER_RACCS ( 15, 24) = 0.812780E+00
- PKER_RACCS ( 15, 25) = 0.835762E+00
- PKER_RACCS ( 15, 26) = 0.854730E+00
- PKER_RACCS ( 15, 27) = 0.870393E+00
- PKER_RACCS ( 15, 28) = 0.883331E+00
- PKER_RACCS ( 15, 29) = 0.894022E+00
- PKER_RACCS ( 15, 30) = 0.902857E+00
- PKER_RACCS ( 15, 31) = 0.910161E+00
- PKER_RACCS ( 15, 32) = 0.916200E+00
- PKER_RACCS ( 15, 33) = 0.921193E+00
- PKER_RACCS ( 15, 34) = 0.925323E+00
- PKER_RACCS ( 15, 35) = 0.928738E+00
- PKER_RACCS ( 15, 36) = 0.931563E+00
- PKER_RACCS ( 15, 37) = 0.933900E+00
- PKER_RACCS ( 15, 38) = 0.935833E+00
- PKER_RACCS ( 15, 39) = 0.937432E+00
- PKER_RACCS ( 15, 40) = 0.938755E+00
- PKER_RACCS ( 16, 1) = 0.126327E+02
- PKER_RACCS ( 16, 2) = 0.102194E+02
- PKER_RACCS ( 16, 3) = 0.821876E+01
- PKER_RACCS ( 16, 4) = 0.656171E+01
- PKER_RACCS ( 16, 5) = 0.519153E+01
- PKER_RACCS ( 16, 6) = 0.406164E+01
- PKER_RACCS ( 16, 7) = 0.313379E+01
- PKER_RACCS ( 16, 8) = 0.237630E+01
- PKER_RACCS ( 16, 9) = 0.176301E+01
- PKER_RACCS ( 16, 10) = 0.127321E+01
- PKER_RACCS ( 16, 11) = 0.891908E+00
- PKER_RACCS ( 16, 12) = 0.609619E+00
- PKER_RACCS ( 16, 13) = 0.421108E+00
- PKER_RACCS ( 16, 14) = 0.320728E+00
- PKER_RACCS ( 16, 15) = 0.297097E+00
- PKER_RACCS ( 16, 16) = 0.330361E+00
- PKER_RACCS ( 16, 17) = 0.395280E+00
- PKER_RACCS ( 16, 18) = 0.469630E+00
- PKER_RACCS ( 16, 19) = 0.539613E+00
- PKER_RACCS ( 16, 20) = 0.599949E+00
- PKER_RACCS ( 16, 21) = 0.650193E+00
- PKER_RACCS ( 16, 22) = 0.691608E+00
- PKER_RACCS ( 16, 23) = 0.725693E+00
- PKER_RACCS ( 16, 24) = 0.753765E+00
- PKER_RACCS ( 16, 25) = 0.776902E+00
- PKER_RACCS ( 16, 26) = 0.795985E+00
- PKER_RACCS ( 16, 27) = 0.811734E+00
- PKER_RACCS ( 16, 28) = 0.824737E+00
- PKER_RACCS ( 16, 29) = 0.835476E+00
- PKER_RACCS ( 16, 30) = 0.844348E+00
- PKER_RACCS ( 16, 31) = 0.851681E+00
- PKER_RACCS ( 16, 32) = 0.857741E+00
- PKER_RACCS ( 16, 33) = 0.862751E+00
- PKER_RACCS ( 16, 34) = 0.866894E+00
- PKER_RACCS ( 16, 35) = 0.870319E+00
- PKER_RACCS ( 16, 36) = 0.873152E+00
- PKER_RACCS ( 16, 37) = 0.875495E+00
- PKER_RACCS ( 16, 38) = 0.877433E+00
- PKER_RACCS ( 16, 39) = 0.879036E+00
- PKER_RACCS ( 16, 40) = 0.880362E+00
- PKER_RACCS ( 17, 1) = 0.127896E+02
- PKER_RACCS ( 17, 2) = 0.103796E+02
- PKER_RACCS ( 17, 3) = 0.838093E+01
- PKER_RACCS ( 17, 4) = 0.672380E+01
- PKER_RACCS ( 17, 5) = 0.535093E+01
- PKER_RACCS ( 17, 6) = 0.421538E+01
- PKER_RACCS ( 17, 7) = 0.327875E+01
- PKER_RACCS ( 17, 8) = 0.250965E+01
- PKER_RACCS ( 17, 9) = 0.188231E+01
- PKER_RACCS ( 17, 10) = 0.137624E+01
- PKER_RACCS ( 17, 11) = 0.976041E+00
- PKER_RACCS ( 17, 12) = 0.671601E+00
- PKER_RACCS ( 17, 13) = 0.457610E+00
- PKER_RACCS ( 17, 14) = 0.329677E+00
- PKER_RACCS ( 17, 15) = 0.280046E+00
- PKER_RACCS ( 17, 16) = 0.292981E+00
- PKER_RACCS ( 17, 17) = 0.345338E+00
- PKER_RACCS ( 17, 18) = 0.413953E+00
- PKER_RACCS ( 17, 19) = 0.482373E+00
- PKER_RACCS ( 17, 20) = 0.542827E+00
- PKER_RACCS ( 17, 21) = 0.593577E+00
- PKER_RACCS ( 17, 22) = 0.635456E+00
- PKER_RACCS ( 17, 23) = 0.669894E+00
- PKER_RACCS ( 17, 24) = 0.698224E+00
- PKER_RACCS ( 17, 25) = 0.721550E+00
- PKER_RACCS ( 17, 26) = 0.740773E+00
- PKER_RACCS ( 17, 27) = 0.756626E+00
- PKER_RACCS ( 17, 28) = 0.769706E+00
- PKER_RACCS ( 17, 29) = 0.780504E+00
- PKER_RACCS ( 17, 30) = 0.789421E+00
- PKER_RACCS ( 17, 31) = 0.796788E+00
- PKER_RACCS ( 17, 32) = 0.802874E+00
- PKER_RACCS ( 17, 33) = 0.807905E+00
- PKER_RACCS ( 17, 34) = 0.812063E+00
- PKER_RACCS ( 17, 35) = 0.815500E+00
- PKER_RACCS ( 17, 36) = 0.818342E+00
- PKER_RACCS ( 17, 37) = 0.820693E+00
- PKER_RACCS ( 17, 38) = 0.822636E+00
- PKER_RACCS ( 17, 39) = 0.824244E+00
- PKER_RACCS ( 17, 40) = 0.825573E+00
- PKER_RACCS ( 18, 1) = 0.129213E+02
- PKER_RACCS ( 18, 2) = 0.105149E+02
- PKER_RACCS ( 18, 3) = 0.851921E+01
- PKER_RACCS ( 18, 4) = 0.686389E+01
- PKER_RACCS ( 18, 5) = 0.549117E+01
- PKER_RACCS ( 18, 6) = 0.435362E+01
- PKER_RACCS ( 18, 7) = 0.341243E+01
- PKER_RACCS ( 18, 8) = 0.263602E+01
- PKER_RACCS ( 18, 9) = 0.199868E+01
- PKER_RACCS ( 18, 10) = 0.147991E+01
- PKER_RACCS ( 18, 11) = 0.106410E+01
- PKER_RACCS ( 18, 12) = 0.740604E+00
- PKER_RACCS ( 18, 13) = 0.503591E+00
- PKER_RACCS ( 18, 14) = 0.349646E+00
- PKER_RACCS ( 18, 15) = 0.273846E+00
- PKER_RACCS ( 18, 16) = 0.264450E+00
- PKER_RACCS ( 18, 17) = 0.301632E+00
- PKER_RACCS ( 18, 18) = 0.362584E+00
- PKER_RACCS ( 18, 19) = 0.428436E+00
- PKER_RACCS ( 18, 20) = 0.488711E+00
- PKER_RACCS ( 18, 21) = 0.539973E+00
- PKER_RACCS ( 18, 22) = 0.582398E+00
- PKER_RACCS ( 18, 23) = 0.617263E+00
- PKER_RACCS ( 18, 24) = 0.645906E+00
- PKER_RACCS ( 18, 25) = 0.669463E+00
- PKER_RACCS ( 18, 26) = 0.688855E+00
- PKER_RACCS ( 18, 27) = 0.704834E+00
- PKER_RACCS ( 18, 28) = 0.718008E+00
- PKER_RACCS ( 18, 29) = 0.728877E+00
- PKER_RACCS ( 18, 30) = 0.737848E+00
- PKER_RACCS ( 18, 31) = 0.745255E+00
- PKER_RACCS ( 18, 32) = 0.751373E+00
- PKER_RACCS ( 18, 33) = 0.756428E+00
- PKER_RACCS ( 18, 34) = 0.760604E+00
- PKER_RACCS ( 18, 35) = 0.764056E+00
- PKER_RACCS ( 18, 36) = 0.766910E+00
- PKER_RACCS ( 18, 37) = 0.769269E+00
- PKER_RACCS ( 18, 38) = 0.771219E+00
- PKER_RACCS ( 18, 39) = 0.772832E+00
- PKER_RACCS ( 18, 40) = 0.774166E+00
- PKER_RACCS ( 19, 1) = 0.130318E+02
- PKER_RACCS ( 19, 2) = 0.106289E+02
- PKER_RACCS ( 19, 3) = 0.863636E+01
- PKER_RACCS ( 19, 4) = 0.698365E+01
- PKER_RACCS ( 19, 5) = 0.561261E+01
- PKER_RACCS ( 19, 6) = 0.447539E+01
- PKER_RACCS ( 19, 7) = 0.353272E+01
- PKER_RACCS ( 19, 8) = 0.275260E+01
- PKER_RACCS ( 19, 9) = 0.210907E+01
- PKER_RACCS ( 19, 10) = 0.158135E+01
- PKER_RACCS ( 19, 11) = 0.115350E+01
- PKER_RACCS ( 19, 12) = 0.814363E+00
- PKER_RACCS ( 19, 13) = 0.557360E+00
- PKER_RACCS ( 19, 14) = 0.379586E+00
- PKER_RACCS ( 19, 15) = 0.278114E+00
- PKER_RACCS ( 19, 16) = 0.245146E+00
- PKER_RACCS ( 19, 17) = 0.264975E+00
- PKER_RACCS ( 19, 18) = 0.315944E+00
- PKER_RACCS ( 19, 19) = 0.377850E+00
- PKER_RACCS ( 19, 20) = 0.437417E+00
- PKER_RACCS ( 19, 21) = 0.489121E+00
- PKER_RACCS ( 19, 22) = 0.532165E+00
- PKER_RACCS ( 19, 23) = 0.567544E+00
- PKER_RACCS ( 19, 24) = 0.596569E+00
- PKER_RACCS ( 19, 25) = 0.620406E+00
- PKER_RACCS ( 19, 26) = 0.640004E+00
- PKER_RACCS ( 19, 27) = 0.656135E+00
- PKER_RACCS ( 19, 28) = 0.669424E+00
- PKER_RACCS ( 19, 29) = 0.680378E+00
- PKER_RACCS ( 19, 30) = 0.689414E+00
- PKER_RACCS ( 19, 31) = 0.696870E+00
- PKER_RACCS ( 19, 32) = 0.703026E+00
- PKER_RACCS ( 19, 33) = 0.708109E+00
- PKER_RACCS ( 19, 34) = 0.712308E+00
- PKER_RACCS ( 19, 35) = 0.715777E+00
- PKER_RACCS ( 19, 36) = 0.718644E+00
- PKER_RACCS ( 19, 37) = 0.721014E+00
- PKER_RACCS ( 19, 38) = 0.722972E+00
- PKER_RACCS ( 19, 39) = 0.724592E+00
- PKER_RACCS ( 19, 40) = 0.725930E+00
- PKER_RACCS ( 20, 1) = 0.131249E+02
- PKER_RACCS ( 20, 2) = 0.107250E+02
- PKER_RACCS ( 20, 3) = 0.873538E+01
- PKER_RACCS ( 20, 4) = 0.708543E+01
- PKER_RACCS ( 20, 5) = 0.571670E+01
- PKER_RACCS ( 20, 6) = 0.458105E+01
- PKER_RACCS ( 20, 7) = 0.363884E+01
- PKER_RACCS ( 20, 8) = 0.285761E+01
- PKER_RACCS ( 20, 9) = 0.221101E+01
- PKER_RACCS ( 20, 10) = 0.167782E+01
- PKER_RACCS ( 20, 11) = 0.124159E+01
- PKER_RACCS ( 20, 12) = 0.890407E+00
- PKER_RACCS ( 20, 13) = 0.616977E+00
- PKER_RACCS ( 20, 14) = 0.418242E+00
- PKER_RACCS ( 20, 15) = 0.292524E+00
- PKER_RACCS ( 20, 16) = 0.235581E+00
- PKER_RACCS ( 20, 17) = 0.235983E+00
- PKER_RACCS ( 20, 18) = 0.274591E+00
- PKER_RACCS ( 20, 19) = 0.330763E+00
- PKER_RACCS ( 20, 20) = 0.388819E+00
- PKER_RACCS ( 20, 21) = 0.440784E+00
- PKER_RACCS ( 20, 22) = 0.484500E+00
- PKER_RACCS ( 20, 23) = 0.520487E+00
- PKER_RACCS ( 20, 24) = 0.549976E+00
- PKER_RACCS ( 20, 25) = 0.574153E+00
- PKER_RACCS ( 20, 26) = 0.594001E+00
- PKER_RACCS ( 20, 27) = 0.610317E+00
- PKER_RACCS ( 20, 28) = 0.623744E+00
- PKER_RACCS ( 20, 29) = 0.634801E+00
- PKER_RACCS ( 20, 30) = 0.643915E+00
- PKER_RACCS ( 20, 31) = 0.651431E+00
- PKER_RACCS ( 20, 32) = 0.657631E+00
- PKER_RACCS ( 20, 33) = 0.662749E+00
- PKER_RACCS ( 20, 34) = 0.666975E+00
- PKER_RACCS ( 20, 35) = 0.670465E+00
- PKER_RACCS ( 20, 36) = 0.673348E+00
- PKER_RACCS ( 20, 37) = 0.675730E+00
- PKER_RACCS ( 20, 38) = 0.677698E+00
- PKER_RACCS ( 20, 39) = 0.679325E+00
- PKER_RACCS ( 20, 40) = 0.680670E+00
- PKER_RACCS ( 21, 1) = 0.132036E+02
- PKER_RACCS ( 21, 2) = 0.108062E+02
- PKER_RACCS ( 21, 3) = 0.881918E+01
- PKER_RACCS ( 21, 4) = 0.717177E+01
- PKER_RACCS ( 21, 5) = 0.580546E+01
- PKER_RACCS ( 21, 6) = 0.467187E+01
- PKER_RACCS ( 21, 7) = 0.373113E+01
- PKER_RACCS ( 21, 8) = 0.295042E+01
- PKER_RACCS ( 21, 9) = 0.230297E+01
- PKER_RACCS ( 21, 10) = 0.176711E+01
- PKER_RACCS ( 21, 11) = 0.132575E+01
- PKER_RACCS ( 21, 12) = 0.966211E+00
- PKER_RACCS ( 21, 13) = 0.680246E+00
- PKER_RACCS ( 21, 14) = 0.464064E+00
- PKER_RACCS ( 21, 15) = 0.316605E+00
- PKER_RACCS ( 21, 16) = 0.236157E+00
- PKER_RACCS ( 21, 17) = 0.215485E+00
- PKER_RACCS ( 21, 18) = 0.239150E+00
- PKER_RACCS ( 21, 19) = 0.287499E+00
- PKER_RACCS ( 21, 20) = 0.342900E+00
- PKER_RACCS ( 21, 21) = 0.394764E+00
- PKER_RACCS ( 21, 22) = 0.439154E+00
- PKER_RACCS ( 21, 23) = 0.475848E+00
- PKER_RACCS ( 21, 24) = 0.505894E+00
- PKER_RACCS ( 21, 25) = 0.530484E+00
- PKER_RACCS ( 21, 26) = 0.550636E+00
- PKER_RACCS ( 21, 27) = 0.567176E+00
- PKER_RACCS ( 21, 28) = 0.580769E+00
- PKER_RACCS ( 21, 29) = 0.591952E+00
- PKER_RACCS ( 21, 30) = 0.601159E+00
- PKER_RACCS ( 21, 31) = 0.608746E+00
- PKER_RACCS ( 21, 32) = 0.615001E+00
- PKER_RACCS ( 21, 33) = 0.620161E+00
- PKER_RACCS ( 21, 34) = 0.624418E+00
- PKER_RACCS ( 21, 35) = 0.627933E+00
- PKER_RACCS ( 21, 36) = 0.630835E+00
- PKER_RACCS ( 21, 37) = 0.633232E+00
- PKER_RACCS ( 21, 38) = 0.635212E+00
- PKER_RACCS ( 21, 39) = 0.636848E+00
- PKER_RACCS ( 21, 40) = 0.638199E+00
- PKER_RACCS ( 22, 1) = 0.132706E+02
- PKER_RACCS ( 22, 2) = 0.108752E+02
- PKER_RACCS ( 22, 3) = 0.889034E+01
- PKER_RACCS ( 22, 4) = 0.724514E+01
- PKER_RACCS ( 22, 5) = 0.588103E+01
- PKER_RACCS ( 22, 6) = 0.474956E+01
- PKER_RACCS ( 22, 7) = 0.381066E+01
- PKER_RACCS ( 22, 8) = 0.303131E+01
- PKER_RACCS ( 22, 9) = 0.238440E+01
- PKER_RACCS ( 22, 10) = 0.184783E+01
- PKER_RACCS ( 22, 11) = 0.140395E+01
- PKER_RACCS ( 22, 12) = 0.103925E+01
- PKER_RACCS ( 22, 13) = 0.744489E+00
- PKER_RACCS ( 22, 14) = 0.514665E+00
- PKER_RACCS ( 22, 15) = 0.348618E+00
- PKER_RACCS ( 22, 16) = 0.246213E+00
- PKER_RACCS ( 22, 17) = 0.203810E+00
- PKER_RACCS ( 22, 18) = 0.210527E+00
- PKER_RACCS ( 22, 19) = 0.248639E+00
- PKER_RACCS ( 22, 20) = 0.299821E+00
- PKER_RACCS ( 22, 21) = 0.350944E+00
- PKER_RACCS ( 22, 22) = 0.395903E+00
- PKER_RACCS ( 22, 23) = 0.433386E+00
- PKER_RACCS ( 22, 24) = 0.464095E+00
- PKER_RACCS ( 22, 25) = 0.489182E+00
- PKER_RACCS ( 22, 26) = 0.509702E+00
- PKER_RACCS ( 22, 27) = 0.526514E+00
- PKER_RACCS ( 22, 28) = 0.540309E+00
- PKER_RACCS ( 22, 29) = 0.551642E+00
- PKER_RACCS ( 22, 30) = 0.560963E+00
- PKER_RACCS ( 22, 31) = 0.568636E+00
- PKER_RACCS ( 22, 32) = 0.574956E+00
- PKER_RACCS ( 22, 33) = 0.580166E+00
- PKER_RACCS ( 22, 34) = 0.584462E+00
- PKER_RACCS ( 22, 35) = 0.588006E+00
- PKER_RACCS ( 22, 36) = 0.590931E+00
- PKER_RACCS ( 22, 37) = 0.593346E+00
- PKER_RACCS ( 22, 38) = 0.595339E+00
- PKER_RACCS ( 22, 39) = 0.596986E+00
- PKER_RACCS ( 22, 40) = 0.598346E+00
- PKER_RACCS ( 23, 1) = 0.133280E+02
- PKER_RACCS ( 23, 2) = 0.109343E+02
- PKER_RACCS ( 23, 3) = 0.895109E+01
- PKER_RACCS ( 23, 4) = 0.730772E+01
- PKER_RACCS ( 23, 5) = 0.594552E+01
- PKER_RACCS ( 23, 6) = 0.481597E+01
- PKER_RACCS ( 23, 7) = 0.387893E+01
- PKER_RACCS ( 23, 8) = 0.310124E+01
- PKER_RACCS ( 23, 9) = 0.245555E+01
- PKER_RACCS ( 23, 10) = 0.191949E+01
- PKER_RACCS ( 23, 11) = 0.147491E+01
- PKER_RACCS ( 23, 12) = 0.110760E+01
- PKER_RACCS ( 23, 13) = 0.807248E+00
- PKER_RACCS ( 23, 14) = 0.567629E+00
- PKER_RACCS ( 23, 15) = 0.386696E+00
- PKER_RACCS ( 23, 16) = 0.264772E+00
- PKER_RACCS ( 23, 17) = 0.201168E+00
- PKER_RACCS ( 23, 18) = 0.189359E+00
- PKER_RACCS ( 23, 19) = 0.214892E+00
- PKER_RACCS ( 23, 20) = 0.259902E+00
- PKER_RACCS ( 23, 21) = 0.309296E+00
- PKER_RACCS ( 23, 22) = 0.354562E+00
- PKER_RACCS ( 23, 23) = 0.392871E+00
- PKER_RACCS ( 23, 24) = 0.424352E+00
- PKER_RACCS ( 23, 25) = 0.450037E+00
- PKER_RACCS ( 23, 26) = 0.471000E+00
- PKER_RACCS ( 23, 27) = 0.488140E+00
- PKER_RACCS ( 23, 28) = 0.502179E+00
- PKER_RACCS ( 23, 29) = 0.513695E+00
- PKER_RACCS ( 23, 30) = 0.523153E+00
- PKER_RACCS ( 23, 31) = 0.530929E+00
- PKER_RACCS ( 23, 32) = 0.537328E+00
- PKER_RACCS ( 23, 33) = 0.542597E+00
- PKER_RACCS ( 23, 34) = 0.546939E+00
- PKER_RACCS ( 23, 35) = 0.550519E+00
- PKER_RACCS ( 23, 36) = 0.553471E+00
- PKER_RACCS ( 23, 37) = 0.555907E+00
- PKER_RACCS ( 23, 38) = 0.557917E+00
- PKER_RACCS ( 23, 39) = 0.559577E+00
- PKER_RACCS ( 23, 40) = 0.560947E+00
- PKER_RACCS ( 24, 1) = 0.133776E+02
- PKER_RACCS ( 24, 2) = 0.109851E+02
- PKER_RACCS ( 24, 3) = 0.900330E+01
- PKER_RACCS ( 24, 4) = 0.736141E+01
- PKER_RACCS ( 24, 5) = 0.600078E+01
- PKER_RACCS ( 24, 6) = 0.487288E+01
- PKER_RACCS ( 24, 7) = 0.393752E+01
- PKER_RACCS ( 24, 8) = 0.316146E+01
- PKER_RACCS ( 24, 9) = 0.251726E+01
- PKER_RACCS ( 24, 10) = 0.198229E+01
- PKER_RACCS ( 24, 11) = 0.153812E+01
- PKER_RACCS ( 24, 12) = 0.116995E+01
- PKER_RACCS ( 24, 13) = 0.866612E+00
- PKER_RACCS ( 24, 14) = 0.620643E+00
- PKER_RACCS ( 24, 15) = 0.428690E+00
- PKER_RACCS ( 24, 16) = 0.290707E+00
- PKER_RACCS ( 24, 17) = 0.207519E+00
- PKER_RACCS ( 24, 18) = 0.176401E+00
- PKER_RACCS ( 24, 19) = 0.187072E+00
- PKER_RACCS ( 24, 20) = 0.223666E+00
- PKER_RACCS ( 24, 21) = 0.269955E+00
- PKER_RACCS ( 24, 22) = 0.315007E+00
- PKER_RACCS ( 24, 23) = 0.354096E+00
- PKER_RACCS ( 24, 24) = 0.386445E+00
- PKER_RACCS ( 24, 25) = 0.412837E+00
- PKER_RACCS ( 24, 26) = 0.434333E+00
- PKER_RACCS ( 24, 27) = 0.451869E+00
- PKER_RACCS ( 24, 28) = 0.466202E+00
- PKER_RACCS ( 24, 29) = 0.477938E+00
- PKER_RACCS ( 24, 30) = 0.487561E+00
- PKER_RACCS ( 24, 31) = 0.495462E+00
- PKER_RACCS ( 24, 32) = 0.501955E+00
- PKER_RACCS ( 24, 33) = 0.507296E+00
- PKER_RACCS ( 24, 34) = 0.511693E+00
- PKER_RACCS ( 24, 35) = 0.515315E+00
- PKER_RACCS ( 24, 36) = 0.518300E+00
- PKER_RACCS ( 24, 37) = 0.520762E+00
- PKER_RACCS ( 24, 38) = 0.522792E+00
- PKER_RACCS ( 24, 39) = 0.524467E+00
- PKER_RACCS ( 24, 40) = 0.525849E+00
- PKER_RACCS ( 25, 1) = 0.134206E+02
- PKER_RACCS ( 25, 2) = 0.110292E+02
- PKER_RACCS ( 25, 3) = 0.904847E+01
- PKER_RACCS ( 25, 4) = 0.740776E+01
- PKER_RACCS ( 25, 5) = 0.604841E+01
- PKER_RACCS ( 25, 6) = 0.492186E+01
- PKER_RACCS ( 25, 7) = 0.398793E+01
- PKER_RACCS ( 25, 8) = 0.321335E+01
- PKER_RACCS ( 25, 9) = 0.257059E+01
- PKER_RACCS ( 25, 10) = 0.203693E+01
- PKER_RACCS ( 25, 11) = 0.159370E+01
- PKER_RACCS ( 25, 12) = 0.122575E+01
- PKER_RACCS ( 25, 13) = 0.921214E+00
- PKER_RACCS ( 25, 14) = 0.671617E+00
- PKER_RACCS ( 25, 15) = 0.472110E+00
- PKER_RACCS ( 25, 16) = 0.321676E+00
- PKER_RACCS ( 25, 17) = 0.221561E+00
- PKER_RACCS ( 25, 18) = 0.171605E+00
- PKER_RACCS ( 25, 19) = 0.166038E+00
- PKER_RACCS ( 25, 20) = 0.191877E+00
- PKER_RACCS ( 25, 21) = 0.233259E+00
- PKER_RACCS ( 25, 22) = 0.277238E+00
- PKER_RACCS ( 25, 23) = 0.316894E+00
- PKER_RACCS ( 25, 24) = 0.350169E+00
- PKER_RACCS ( 25, 25) = 0.377379E+00
- PKER_RACCS ( 25, 26) = 0.399506E+00
- PKER_RACCS ( 25, 27) = 0.417517E+00
- PKER_RACCS ( 25, 28) = 0.432204E+00
- PKER_RACCS ( 25, 29) = 0.444205E+00
- PKER_RACCS ( 25, 30) = 0.454027E+00
- PKER_RACCS ( 25, 31) = 0.462077E+00
- PKER_RACCS ( 25, 32) = 0.468684E+00
- PKER_RACCS ( 25, 33) = 0.474112E+00
- PKER_RACCS ( 25, 34) = 0.478576E+00
- PKER_RACCS ( 25, 35) = 0.482249E+00
- PKER_RACCS ( 25, 36) = 0.485273E+00
- PKER_RACCS ( 25, 37) = 0.487764E+00
- PKER_RACCS ( 25, 38) = 0.489818E+00
- PKER_RACCS ( 25, 39) = 0.491511E+00
- PKER_RACCS ( 25, 40) = 0.492908E+00
- PKER_RACCS ( 26, 1) = 0.134583E+02
- PKER_RACCS ( 26, 2) = 0.110677E+02
- PKER_RACCS ( 26, 3) = 0.908784E+01
- PKER_RACCS ( 26, 4) = 0.744807E+01
- PKER_RACCS ( 26, 5) = 0.608972E+01
- PKER_RACCS ( 26, 6) = 0.496427E+01
- PKER_RACCS ( 26, 7) = 0.403151E+01
- PKER_RACCS ( 26, 8) = 0.325817E+01
- PKER_RACCS ( 26, 9) = 0.261671E+01
- PKER_RACCS ( 26, 10) = 0.208432E+01
- PKER_RACCS ( 26, 11) = 0.164223E+01
- PKER_RACCS ( 26, 12) = 0.127505E+01
- PKER_RACCS ( 26, 13) = 0.970445E+00
- PKER_RACCS ( 26, 14) = 0.719103E+00
- PKER_RACCS ( 26, 15) = 0.514960E+00
- PKER_RACCS ( 26, 16) = 0.355619E+00
- PKER_RACCS ( 26, 17) = 0.241696E+00
- PKER_RACCS ( 26, 18) = 0.174597E+00
- PKER_RACCS ( 26, 19) = 0.152207E+00
- PKER_RACCS ( 26, 20) = 0.165325E+00
- PKER_RACCS ( 26, 21) = 0.199742E+00
- PKER_RACCS ( 26, 22) = 0.241398E+00
- PKER_RACCS ( 26, 23) = 0.281177E+00
- PKER_RACCS ( 26, 24) = 0.315343E+00
- PKER_RACCS ( 26, 25) = 0.343466E+00
- PKER_RACCS ( 26, 26) = 0.366332E+00
- PKER_RACCS ( 26, 27) = 0.384904E+00
- PKER_RACCS ( 26, 28) = 0.400015E+00
- PKER_RACCS ( 26, 29) = 0.412334E+00
- PKER_RACCS ( 26, 30) = 0.422395E+00
- PKER_RACCS ( 26, 31) = 0.430626E+00
- PKER_RACCS ( 26, 32) = 0.437370E+00
- PKER_RACCS ( 26, 33) = 0.442902E+00
- PKER_RACCS ( 26, 34) = 0.447445E+00
- PKER_RACCS ( 26, 35) = 0.451179E+00
- PKER_RACCS ( 26, 36) = 0.454250E+00
- PKER_RACCS ( 26, 37) = 0.456778E+00
- PKER_RACCS ( 26, 38) = 0.458860E+00
- PKER_RACCS ( 26, 39) = 0.460575E+00
- PKER_RACCS ( 26, 40) = 0.461988E+00
- PKER_RACCS ( 27, 1) = 0.134916E+02
- PKER_RACCS ( 27, 2) = 0.111016E+02
- PKER_RACCS ( 27, 3) = 0.912241E+01
- PKER_RACCS ( 27, 4) = 0.748337E+01
- PKER_RACCS ( 27, 5) = 0.612582E+01
- PKER_RACCS ( 27, 6) = 0.500123E+01
- PKER_RACCS ( 27, 7) = 0.406942E+01
- PKER_RACCS ( 27, 8) = 0.329710E+01
- PKER_RACCS ( 27, 9) = 0.265672E+01
- PKER_RACCS ( 27, 10) = 0.212547E+01
- PKER_RACCS ( 27, 11) = 0.168449E+01
- PKER_RACCS ( 27, 12) = 0.131827E+01
- PKER_RACCS ( 27, 13) = 0.101419E+01
- PKER_RACCS ( 27, 14) = 0.762350E+00
- PKER_RACCS ( 27, 15) = 0.555726E+00
- PKER_RACCS ( 27, 16) = 0.390561E+00
- PKER_RACCS ( 27, 17) = 0.266359E+00
- PKER_RACCS ( 27, 18) = 0.184682E+00
- PKER_RACCS ( 27, 19) = 0.145925E+00
- PKER_RACCS ( 27, 20) = 0.144842E+00
- PKER_RACCS ( 27, 21) = 0.170126E+00
- PKER_RACCS ( 27, 22) = 0.207837E+00
- PKER_RACCS ( 27, 23) = 0.246960E+00
- PKER_RACCS ( 27, 24) = 0.281834E+00
- PKER_RACCS ( 27, 25) = 0.310921E+00
- PKER_RACCS ( 27, 26) = 0.334627E+00
- PKER_RACCS ( 27, 27) = 0.353857E+00
- PKER_RACCS ( 27, 28) = 0.369470E+00
- PKER_RACCS ( 27, 29) = 0.382168E+00
- PKER_RACCS ( 27, 30) = 0.392516E+00
- PKER_RACCS ( 27, 31) = 0.400964E+00
- PKER_RACCS ( 27, 32) = 0.407872E+00
- PKER_RACCS ( 27, 33) = 0.413529E+00
- PKER_RACCS ( 27, 34) = 0.418167E+00
- PKER_RACCS ( 27, 35) = 0.421974E+00
- PKER_RACCS ( 27, 36) = 0.425101E+00
- PKER_RACCS ( 27, 37) = 0.427673E+00
- PKER_RACCS ( 27, 38) = 0.429788E+00
- PKER_RACCS ( 27, 39) = 0.431529E+00
- PKER_RACCS ( 27, 40) = 0.432963E+00
- PKER_RACCS ( 28, 1) = 0.135212E+02
- PKER_RACCS ( 28, 2) = 0.111316E+02
- PKER_RACCS ( 28, 3) = 0.915297E+01
- PKER_RACCS ( 28, 4) = 0.751450E+01
- PKER_RACCS ( 28, 5) = 0.615758E+01
- PKER_RACCS ( 28, 6) = 0.503368E+01
- PKER_RACCS ( 28, 7) = 0.410261E+01
- PKER_RACCS ( 28, 8) = 0.333111E+01
- PKER_RACCS ( 28, 9) = 0.269162E+01
- PKER_RACCS ( 28, 10) = 0.216132E+01
- PKER_RACCS ( 28, 11) = 0.172133E+01
- PKER_RACCS ( 28, 12) = 0.135607E+01
- PKER_RACCS ( 28, 13) = 0.105274E+01
- PKER_RACCS ( 28, 14) = 0.801085E+00
- PKER_RACCS ( 28, 15) = 0.593401E+00
- PKER_RACCS ( 28, 16) = 0.424717E+00
- PKER_RACCS ( 28, 17) = 0.293277E+00
- PKER_RACCS ( 28, 18) = 0.200068E+00
- PKER_RACCS ( 28, 19) = 0.146527E+00
- PKER_RACCS ( 28, 20) = 0.130912E+00
- PKER_RACCS ( 28, 21) = 0.145240E+00
- PKER_RACCS ( 28, 22) = 0.177100E+00
- PKER_RACCS ( 28, 23) = 0.214430E+00
- PKER_RACCS ( 28, 24) = 0.249591E+00
- PKER_RACCS ( 28, 25) = 0.279602E+00
- PKER_RACCS ( 28, 26) = 0.304226E+00
- PKER_RACCS ( 28, 27) = 0.324208E+00
- PKER_RACCS ( 28, 28) = 0.340405E+00
- PKER_RACCS ( 28, 29) = 0.353552E+00
- PKER_RACCS ( 28, 30) = 0.364242E+00
- PKER_RACCS ( 28, 31) = 0.372949E+00
- PKER_RACCS ( 28, 32) = 0.380054E+00
- PKER_RACCS ( 28, 33) = 0.385860E+00
- PKER_RACCS ( 28, 34) = 0.390613E+00
- PKER_RACCS ( 28, 35) = 0.394508E+00
- PKER_RACCS ( 28, 36) = 0.397703E+00
- PKER_RACCS ( 28, 37) = 0.400326E+00
- PKER_RACCS ( 28, 38) = 0.402482E+00
- PKER_RACCS ( 28, 39) = 0.404254E+00
- PKER_RACCS ( 28, 40) = 0.405713E+00
- PKER_RACCS ( 29, 1) = 0.135476E+02
- PKER_RACCS ( 29, 2) = 0.111584E+02
- PKER_RACCS ( 29, 3) = 0.918018E+01
- PKER_RACCS ( 29, 4) = 0.754216E+01
- PKER_RACCS ( 29, 5) = 0.618572E+01
- PKER_RACCS ( 29, 6) = 0.506235E+01
- PKER_RACCS ( 29, 7) = 0.413187E+01
- PKER_RACCS ( 29, 8) = 0.336101E+01
- PKER_RACCS ( 29, 9) = 0.272223E+01
- PKER_RACCS ( 29, 10) = 0.219271E+01
- PKER_RACCS ( 29, 11) = 0.175356E+01
- PKER_RACCS ( 29, 12) = 0.138915E+01
- PKER_RACCS ( 29, 13) = 0.108662E+01
- PKER_RACCS ( 29, 14) = 0.835482E+00
- PKER_RACCS ( 29, 15) = 0.627544E+00
- PKER_RACCS ( 29, 16) = 0.457003E+00
- PKER_RACCS ( 29, 17) = 0.320871E+00
- PKER_RACCS ( 29, 18) = 0.218993E+00
- PKER_RACCS ( 29, 19) = 0.153040E+00
- PKER_RACCS ( 29, 20) = 0.123480E+00
- PKER_RACCS ( 29, 21) = 0.125714E+00
- PKER_RACCS ( 29, 22) = 0.149873E+00
- PKER_RACCS ( 29, 23) = 0.183944E+00
- PKER_RACCS ( 29, 24) = 0.218688E+00
- PKER_RACCS ( 29, 25) = 0.249424E+00
- PKER_RACCS ( 29, 26) = 0.274989E+00
- PKER_RACCS ( 29, 27) = 0.295803E+00
- PKER_RACCS ( 29, 28) = 0.312668E+00
- PKER_RACCS ( 29, 29) = 0.326337E+00
- PKER_RACCS ( 29, 30) = 0.337429E+00
- PKER_RACCS ( 29, 31) = 0.346444E+00
- PKER_RACCS ( 29, 32) = 0.353785E+00
- PKER_RACCS ( 29, 33) = 0.359771E+00
- PKER_RACCS ( 29, 34) = 0.364661E+00
- PKER_RACCS ( 29, 35) = 0.368660E+00
- PKER_RACCS ( 29, 36) = 0.371936E+00
- PKER_RACCS ( 29, 37) = 0.374622E+00
- PKER_RACCS ( 29, 38) = 0.376826E+00
- PKER_RACCS ( 29, 39) = 0.378635E+00
- PKER_RACCS ( 29, 40) = 0.380123E+00
- PKER_RACCS ( 30, 1) = 0.135713E+02
- PKER_RACCS ( 30, 2) = 0.111824E+02
- PKER_RACCS ( 30, 3) = 0.920455E+01
- PKER_RACCS ( 30, 4) = 0.756688E+01
- PKER_RACCS ( 30, 5) = 0.621082E+01
- PKER_RACCS ( 30, 6) = 0.508787E+01
- PKER_RACCS ( 30, 7) = 0.415784E+01
- PKER_RACCS ( 30, 8) = 0.338749E+01
- PKER_RACCS ( 30, 9) = 0.274927E+01
- PKER_RACCS ( 30, 10) = 0.222037E+01
- PKER_RACCS ( 30, 11) = 0.178189E+01
- PKER_RACCS ( 30, 12) = 0.141821E+01
- PKER_RACCS ( 30, 13) = 0.111641E+01
- PKER_RACCS ( 30, 14) = 0.865882E+00
- PKER_RACCS ( 30, 15) = 0.658144E+00
- PKER_RACCS ( 30, 16) = 0.486803E+00
- PKER_RACCS ( 30, 17) = 0.347889E+00
- PKER_RACCS ( 30, 18) = 0.240079E+00
- PKER_RACCS ( 30, 19) = 0.164371E+00
- PKER_RACCS ( 30, 20) = 0.122278E+00
- PKER_RACCS ( 30, 21) = 0.112067E+00
- PKER_RACCS ( 30, 22) = 0.126909E+00
- PKER_RACCS ( 30, 23) = 0.156066E+00
- PKER_RACCS ( 30, 24) = 0.189340E+00
- PKER_RACCS ( 30, 25) = 0.220392E+00
- PKER_RACCS ( 30, 26) = 0.246822E+00
- PKER_RACCS ( 30, 27) = 0.268510E+00
- PKER_RACCS ( 30, 28) = 0.286117E+00
- PKER_RACCS ( 30, 29) = 0.300380E+00
- PKER_RACCS ( 30, 30) = 0.311940E+00
- PKER_RACCS ( 30, 31) = 0.321318E+00
- PKER_RACCS ( 30, 32) = 0.328937E+00
- PKER_RACCS ( 30, 33) = 0.335137E+00
- PKER_RACCS ( 30, 34) = 0.340191E+00
- PKER_RACCS ( 30, 35) = 0.344317E+00
- PKER_RACCS ( 30, 36) = 0.347689E+00
- PKER_RACCS ( 30, 37) = 0.350449E+00
- PKER_RACCS ( 30, 38) = 0.352711E+00
- PKER_RACCS ( 30, 39) = 0.354565E+00
- PKER_RACCS ( 30, 40) = 0.356087E+00
- PKER_RACCS ( 31, 1) = 0.135928E+02
- PKER_RACCS ( 31, 2) = 0.112041E+02
- PKER_RACCS ( 31, 3) = 0.922651E+01
- PKER_RACCS ( 31, 4) = 0.758911E+01
- PKER_RACCS ( 31, 5) = 0.623334E+01
- PKER_RACCS ( 31, 6) = 0.511071E+01
- PKER_RACCS ( 31, 7) = 0.418105E+01
- PKER_RACCS ( 31, 8) = 0.341109E+01
- PKER_RACCS ( 31, 9) = 0.277330E+01
- PKER_RACCS ( 31, 10) = 0.224489E+01
- PKER_RACCS ( 31, 11) = 0.180695E+01
- PKER_RACCS ( 31, 12) = 0.144386E+01
- PKER_RACCS ( 31, 13) = 0.114268E+01
- PKER_RACCS ( 31, 14) = 0.892748E+00
- PKER_RACCS ( 31, 15) = 0.685391E+00
- PKER_RACCS ( 31, 16) = 0.513859E+00
- PKER_RACCS ( 31, 17) = 0.373398E+00
- PKER_RACCS ( 31, 18) = 0.261665E+00
- PKER_RACCS ( 31, 19) = 0.178785E+00
- PKER_RACCS ( 31, 20) = 0.126188E+00
- PKER_RACCS ( 31, 21) = 0.104190E+00
- PKER_RACCS ( 31, 22) = 0.108781E+00
- PKER_RACCS ( 31, 23) = 0.131410E+00
- PKER_RACCS ( 31, 24) = 0.161929E+00
- PKER_RACCS ( 31, 25) = 0.192628E+00
- PKER_RACCS ( 31, 26) = 0.219702E+00
- PKER_RACCS ( 31, 27) = 0.242240E+00
- PKER_RACCS ( 31, 28) = 0.260630E+00
- PKER_RACCS ( 31, 29) = 0.275551E+00
- PKER_RACCS ( 31, 30) = 0.287642E+00
- PKER_RACCS ( 31, 31) = 0.297440E+00
- PKER_RACCS ( 31, 32) = 0.305387E+00
- PKER_RACCS ( 31, 33) = 0.311841E+00
- PKER_RACCS ( 31, 34) = 0.317090E+00
- PKER_RACCS ( 31, 35) = 0.321366E+00
- PKER_RACCS ( 31, 36) = 0.324854E+00
- PKER_RACCS ( 31, 37) = 0.327703E+00
- PKER_RACCS ( 31, 38) = 0.330033E+00
- PKER_RACCS ( 31, 39) = 0.331941E+00
- PKER_RACCS ( 31, 40) = 0.333505E+00
- PKER_RACCS ( 32, 1) = 0.136123E+02
- PKER_RACCS ( 32, 2) = 0.112238E+02
- PKER_RACCS ( 32, 3) = 0.924639E+01
- PKER_RACCS ( 32, 4) = 0.760920E+01
- PKER_RACCS ( 32, 5) = 0.625367E+01
- PKER_RACCS ( 32, 6) = 0.513129E+01
- PKER_RACCS ( 32, 7) = 0.420190E+01
- PKER_RACCS ( 32, 8) = 0.343225E+01
- PKER_RACCS ( 32, 9) = 0.279481E+01
- PKER_RACCS ( 32, 10) = 0.226677E+01
- PKER_RACCS ( 32, 11) = 0.182926E+01
- PKER_RACCS ( 32, 12) = 0.146664E+01
- PKER_RACCS ( 32, 13) = 0.116597E+01
- PKER_RACCS ( 32, 14) = 0.916557E+00
- PKER_RACCS ( 32, 15) = 0.709637E+00
- PKER_RACCS ( 32, 16) = 0.538201E+00
- PKER_RACCS ( 32, 17) = 0.397009E+00
- PKER_RACCS ( 32, 18) = 0.282874E+00
- PKER_RACCS ( 32, 19) = 0.194862E+00
- PKER_RACCS ( 32, 20) = 0.133999E+00
- PKER_RACCS ( 32, 21) = 0.101519E+00
- PKER_RACCS ( 32, 22) = 0.957088E-01
- PKER_RACCS ( 32, 23) = 0.110579E+00
- PKER_RACCS ( 32, 24) = 0.136947E+00
- PKER_RACCS ( 32, 25) = 0.166392E+00
- PKER_RACCS ( 32, 26) = 0.193693E+00
- PKER_RACCS ( 32, 27) = 0.216957E+00
- PKER_RACCS ( 32, 28) = 0.236123E+00
- PKER_RACCS ( 32, 29) = 0.251739E+00
- PKER_RACCS ( 32, 30) = 0.264414E+00
- PKER_RACCS ( 32, 31) = 0.274689E+00
- PKER_RACCS ( 32, 32) = 0.283015E+00
- PKER_RACCS ( 32, 33) = 0.289766E+00
- PKER_RACCS ( 32, 34) = 0.295246E+00
- PKER_RACCS ( 32, 35) = 0.299700E+00
- PKER_RACCS ( 32, 36) = 0.303326E+00
- PKER_RACCS ( 32, 37) = 0.306282E+00
- PKER_RACCS ( 32, 38) = 0.308695E+00
- PKER_RACCS ( 32, 39) = 0.310666E+00
- PKER_RACCS ( 32, 40) = 0.312279E+00
- PKER_RACCS ( 33, 1) = 0.136301E+02
- PKER_RACCS ( 33, 2) = 0.112418E+02
- PKER_RACCS ( 33, 3) = 0.926449E+01
- PKER_RACCS ( 33, 4) = 0.762746E+01
- PKER_RACCS ( 33, 5) = 0.627211E+01
- PKER_RACCS ( 33, 6) = 0.514993E+01
- PKER_RACCS ( 33, 7) = 0.422075E+01
- PKER_RACCS ( 33, 8) = 0.345134E+01
- PKER_RACCS ( 33, 9) = 0.281416E+01
- PKER_RACCS ( 33, 10) = 0.228641E+01
- PKER_RACCS ( 33, 11) = 0.184923E+01
- PKER_RACCS ( 33, 12) = 0.148699E+01
- PKER_RACCS ( 33, 13) = 0.118672E+01
- PKER_RACCS ( 33, 14) = 0.937747E+00
- PKER_RACCS ( 33, 15) = 0.731237E+00
- PKER_RACCS ( 33, 16) = 0.560038E+00
- PKER_RACCS ( 33, 17) = 0.418590E+00
- PKER_RACCS ( 33, 18) = 0.303093E+00
- PKER_RACCS ( 33, 19) = 0.211735E+00
- PKER_RACCS ( 33, 20) = 0.144709E+00
- PKER_RACCS ( 33, 21) = 0.103389E+00
- PKER_RACCS ( 33, 22) = 0.876948E-01
- PKER_RACCS ( 33, 23) = 0.940326E-01
- PKER_RACCS ( 33, 24) = 0.114972E+00
- PKER_RACCS ( 33, 25) = 0.142046E+00
- PKER_RACCS ( 33, 26) = 0.168966E+00
- PKER_RACCS ( 33, 27) = 0.192699E+00
- PKER_RACCS ( 33, 28) = 0.212559E+00
- PKER_RACCS ( 33, 29) = 0.228864E+00
- PKER_RACCS ( 33, 30) = 0.242156E+00
- PKER_RACCS ( 33, 31) = 0.252953E+00
- PKER_RACCS ( 33, 32) = 0.261707E+00
- PKER_RACCS ( 33, 33) = 0.268801E+00
- PKER_RACCS ( 33, 34) = 0.274551E+00
- PKER_RACCS ( 33, 35) = 0.279216E+00
- PKER_RACCS ( 33, 36) = 0.283006E+00
- PKER_RACCS ( 33, 37) = 0.286089E+00
- PKER_RACCS ( 33, 38) = 0.288600E+00
- PKER_RACCS ( 33, 39) = 0.290648E+00
- PKER_RACCS ( 33, 40) = 0.292320E+00
- PKER_RACCS ( 34, 1) = 0.136464E+02
- PKER_RACCS ( 34, 2) = 0.112582E+02
- PKER_RACCS ( 34, 3) = 0.928102E+01
- PKER_RACCS ( 34, 4) = 0.764412E+01
- PKER_RACCS ( 34, 5) = 0.628891E+01
- PKER_RACCS ( 34, 6) = 0.516688E+01
- PKER_RACCS ( 34, 7) = 0.423787E+01
- PKER_RACCS ( 34, 8) = 0.346865E+01
- PKER_RACCS ( 34, 9) = 0.283167E+01
- PKER_RACCS ( 34, 10) = 0.230415E+01
- PKER_RACCS ( 34, 11) = 0.186723E+01
- PKER_RACCS ( 34, 12) = 0.150527E+01
- PKER_RACCS ( 34, 13) = 0.120533E+01
- PKER_RACCS ( 34, 14) = 0.956703E+00
- PKER_RACCS ( 34, 15) = 0.750546E+00
- PKER_RACCS ( 34, 16) = 0.579618E+00
- PKER_RACCS ( 34, 17) = 0.438164E+00
- PKER_RACCS ( 34, 18) = 0.321920E+00
- PKER_RACCS ( 34, 19) = 0.228381E+00
- PKER_RACCS ( 34, 20) = 0.157004E+00
- PKER_RACCS ( 34, 21) = 0.108653E+00
- PKER_RACCS ( 34, 22) = 0.841812E-01
- PKER_RACCS ( 34, 23) = 0.818931E-01
- PKER_RACCS ( 34, 24) = 0.964120E-01
- PKER_RACCS ( 34, 25) = 0.120012E+00
- PKER_RACCS ( 34, 26) = 0.145780E+00
- PKER_RACCS ( 34, 27) = 0.169586E+00
- PKER_RACCS ( 34, 28) = 0.189966E+00
- PKER_RACCS ( 34, 29) = 0.206893E+00
- PKER_RACCS ( 34, 30) = 0.220793E+00
- PKER_RACCS ( 34, 31) = 0.232137E+00
- PKER_RACCS ( 34, 32) = 0.241360E+00
- PKER_RACCS ( 34, 33) = 0.248841E+00
- PKER_RACCS ( 34, 34) = 0.254902E+00
- PKER_RACCS ( 34, 35) = 0.259814E+00
- PKER_RACCS ( 34, 36) = 0.263797E+00
- PKER_RACCS ( 34, 37) = 0.267030E+00
- PKER_RACCS ( 34, 38) = 0.269658E+00
- PKER_RACCS ( 34, 39) = 0.271797E+00
- PKER_RACCS ( 34, 40) = 0.273540E+00
- PKER_RACCS ( 35, 1) = 0.136614E+02
- PKER_RACCS ( 35, 2) = 0.112733E+02
- PKER_RACCS ( 35, 3) = 0.929618E+01
- PKER_RACCS ( 35, 4) = 0.765939E+01
- PKER_RACCS ( 35, 5) = 0.630429E+01
- PKER_RACCS ( 35, 6) = 0.518237E+01
- PKER_RACCS ( 35, 7) = 0.425350E+01
- PKER_RACCS ( 35, 8) = 0.348441E+01
- PKER_RACCS ( 35, 9) = 0.284759E+01
- PKER_RACCS ( 35, 10) = 0.232025E+01
- PKER_RACCS ( 35, 11) = 0.188353E+01
- PKER_RACCS ( 35, 12) = 0.152179E+01
- PKER_RACCS ( 35, 13) = 0.122210E+01
- PKER_RACCS ( 35, 14) = 0.973753E+00
- PKER_RACCS ( 35, 15) = 0.767890E+00
- PKER_RACCS ( 35, 16) = 0.597225E+00
- PKER_RACCS ( 35, 17) = 0.455867E+00
- PKER_RACCS ( 35, 18) = 0.339275E+00
- PKER_RACCS ( 35, 19) = 0.244416E+00
- PKER_RACCS ( 35, 20) = 0.169957E+00
- PKER_RACCS ( 35, 21) = 0.116255E+00
- PKER_RACCS ( 35, 22) = 0.843838E-01
- PKER_RACCS ( 35, 23) = 0.739429E-01
- PKER_RACCS ( 35, 24) = 0.815390E-01
- PKER_RACCS ( 35, 25) = 0.100685E+00
- PKER_RACCS ( 35, 26) = 0.124455E+00
- PKER_RACCS ( 35, 27) = 0.147808E+00
- PKER_RACCS ( 35, 28) = 0.168434E+00
- PKER_RACCS ( 35, 29) = 0.185847E+00
- PKER_RACCS ( 35, 30) = 0.200294E+00
- PKER_RACCS ( 35, 31) = 0.212176E+00
- PKER_RACCS ( 35, 32) = 0.221887E+00
- PKER_RACCS ( 35, 33) = 0.229789E+00
- PKER_RACCS ( 35, 34) = 0.236201E+00
- PKER_RACCS ( 35, 35) = 0.241396E+00
- PKER_RACCS ( 35, 36) = 0.245605E+00
- PKER_RACCS ( 35, 37) = 0.249015E+00
- PKER_RACCS ( 35, 38) = 0.251782E+00
- PKER_RACCS ( 35, 39) = 0.254029E+00
- PKER_RACCS ( 35, 40) = 0.255856E+00
- PKER_RACCS ( 36, 1) = 0.136752E+02
- PKER_RACCS ( 36, 2) = 0.112871E+02
- PKER_RACCS ( 36, 3) = 0.931013E+01
- PKER_RACCS ( 36, 4) = 0.767342E+01
- PKER_RACCS ( 36, 5) = 0.631840E+01
- PKER_RACCS ( 36, 6) = 0.519658E+01
- PKER_RACCS ( 36, 7) = 0.426781E+01
- PKER_RACCS ( 36, 8) = 0.349883E+01
- PKER_RACCS ( 36, 9) = 0.286213E+01
- PKER_RACCS ( 36, 10) = 0.233493E+01
- PKER_RACCS ( 36, 11) = 0.189836E+01
- PKER_RACCS ( 36, 12) = 0.153679E+01
- PKER_RACCS ( 36, 13) = 0.123730E+01
- PKER_RACCS ( 36, 14) = 0.989170E+00
- PKER_RACCS ( 36, 15) = 0.783542E+00
- PKER_RACCS ( 36, 16) = 0.613107E+00
- PKER_RACCS ( 36, 17) = 0.471895E+00
- PKER_RACCS ( 36, 18) = 0.355181E+00
- PKER_RACCS ( 36, 19) = 0.259564E+00
- PKER_RACCS ( 36, 20) = 0.183119E+00
- PKER_RACCS ( 36, 21) = 0.125501E+00
- PKER_RACCS ( 36, 22) = 0.876130E-01
- PKER_RACCS ( 36, 23) = 0.698509E-01
- PKER_RACCS ( 36, 24) = 0.704131E-01
- PKER_RACCS ( 36, 25) = 0.843947E-01
- PKER_RACCS ( 36, 26) = 0.105303E+00
- PKER_RACCS ( 36, 27) = 0.127595E+00
- PKER_RACCS ( 36, 28) = 0.148112E+00
- PKER_RACCS ( 36, 29) = 0.165804E+00
- PKER_RACCS ( 36, 30) = 0.180678E+00
- PKER_RACCS ( 36, 31) = 0.193038E+00
- PKER_RACCS ( 36, 32) = 0.203226E+00
- PKER_RACCS ( 36, 33) = 0.211566E+00
- PKER_RACCS ( 36, 34) = 0.218358E+00
- PKER_RACCS ( 36, 35) = 0.223872E+00
- PKER_RACCS ( 36, 36) = 0.228339E+00
- PKER_RACCS ( 36, 37) = 0.231956E+00
- PKER_RACCS ( 36, 38) = 0.234886E+00
- PKER_RACCS ( 36, 39) = 0.237261E+00
- PKER_RACCS ( 36, 40) = 0.239188E+00
- PKER_RACCS ( 37, 1) = 0.136880E+02
- PKER_RACCS ( 37, 2) = 0.113000E+02
- PKER_RACCS ( 37, 3) = 0.932301E+01
- PKER_RACCS ( 37, 4) = 0.768635E+01
- PKER_RACCS ( 37, 5) = 0.633140E+01
- PKER_RACCS ( 37, 6) = 0.520966E+01
- PKER_RACCS ( 37, 7) = 0.428096E+01
- PKER_RACCS ( 37, 8) = 0.351207E+01
- PKER_RACCS ( 37, 9) = 0.287547E+01
- PKER_RACCS ( 37, 10) = 0.234837E+01
- PKER_RACCS ( 37, 11) = 0.191192E+01
- PKER_RACCS ( 37, 12) = 0.155048E+01
- PKER_RACCS ( 37, 13) = 0.125114E+01
- PKER_RACCS ( 37, 14) = 0.100318E+01
- PKER_RACCS ( 37, 15) = 0.797739E+00
- PKER_RACCS ( 37, 16) = 0.627493E+00
- PKER_RACCS ( 37, 17) = 0.486429E+00
- PKER_RACCS ( 37, 18) = 0.369711E+00
- PKER_RACCS ( 37, 19) = 0.273656E+00
- PKER_RACCS ( 37, 20) = 0.195887E+00
- PKER_RACCS ( 37, 21) = 0.135541E+00
- PKER_RACCS ( 37, 22) = 0.929713E-01
- PKER_RACCS ( 37, 23) = 0.689449E-01
- PKER_RACCS ( 37, 24) = 0.628067E-01
- PKER_RACCS ( 37, 25) = 0.712146E-01
- PKER_RACCS ( 37, 26) = 0.885642E-01
- PKER_RACCS ( 37, 27) = 0.109176E+00
- PKER_RACCS ( 37, 28) = 0.129175E+00
- PKER_RACCS ( 37, 29) = 0.146887E+00
- PKER_RACCS ( 37, 30) = 0.162013E+00
- PKER_RACCS ( 37, 31) = 0.174742E+00
- PKER_RACCS ( 37, 32) = 0.185350E+00
- PKER_RACCS ( 37, 33) = 0.194114E+00
- PKER_RACCS ( 37, 34) = 0.201300E+00
- PKER_RACCS ( 37, 35) = 0.207158E+00
- PKER_RACCS ( 37, 36) = 0.211915E+00
- PKER_RACCS ( 37, 37) = 0.215769E+00
- PKER_RACCS ( 37, 38) = 0.218888E+00
- PKER_RACCS ( 37, 39) = 0.221414E+00
- PKER_RACCS ( 37, 40) = 0.223459E+00
- PKER_RACCS ( 38, 1) = 0.136998E+02
- PKER_RACCS ( 38, 2) = 0.113118E+02
- PKER_RACCS ( 38, 3) = 0.933491E+01
- PKER_RACCS ( 38, 4) = 0.769831E+01
- PKER_RACCS ( 38, 5) = 0.634341E+01
- PKER_RACCS ( 38, 6) = 0.522172E+01
- PKER_RACCS ( 38, 7) = 0.429308E+01
- PKER_RACCS ( 38, 8) = 0.352426E+01
- PKER_RACCS ( 38, 9) = 0.288774E+01
- PKER_RACCS ( 38, 10) = 0.236072E+01
- PKER_RACCS ( 38, 11) = 0.192436E+01
- PKER_RACCS ( 38, 12) = 0.156302E+01
- PKER_RACCS ( 38, 13) = 0.126380E+01
- PKER_RACCS ( 38, 14) = 0.101597E+01
- PKER_RACCS ( 38, 15) = 0.810672E+00
- PKER_RACCS ( 38, 16) = 0.640582E+00
- PKER_RACCS ( 38, 17) = 0.499655E+00
- PKER_RACCS ( 38, 18) = 0.382979E+00
- PKER_RACCS ( 38, 19) = 0.286703E+00
- PKER_RACCS ( 38, 20) = 0.208118E+00
- PKER_RACCS ( 38, 21) = 0.145802E+00
- PKER_RACCS ( 38, 22) = 0.996958E-01
- PKER_RACCS ( 38, 23) = 0.705180E-01
- PKER_RACCS ( 38, 24) = 0.583121E-01
- PKER_RACCS ( 38, 25) = 0.611067E-01
- PKER_RACCS ( 38, 26) = 0.743784E-01
- PKER_RACCS ( 38, 27) = 0.927345E-01
- PKER_RACCS ( 38, 28) = 0.111788E+00
- PKER_RACCS ( 38, 29) = 0.129236E+00
- PKER_RACCS ( 38, 30) = 0.144407E+00
- PKER_RACCS ( 38, 31) = 0.157347E+00
- PKER_RACCS ( 38, 32) = 0.168273E+00
- PKER_RACCS ( 38, 33) = 0.177407E+00
- PKER_RACCS ( 38, 34) = 0.184972E+00
- PKER_RACCS ( 38, 35) = 0.191185E+00
- PKER_RACCS ( 38, 36) = 0.196255E+00
- PKER_RACCS ( 38, 37) = 0.200374E+00
- PKER_RACCS ( 38, 38) = 0.203711E+00
- PKER_RACCS ( 38, 39) = 0.206411E+00
- PKER_RACCS ( 38, 40) = 0.208595E+00
- PKER_RACCS ( 39, 1) = 0.137108E+02
- PKER_RACCS ( 39, 2) = 0.113228E+02
- PKER_RACCS ( 39, 3) = 0.934595E+01
- PKER_RACCS ( 39, 4) = 0.770939E+01
- PKER_RACCS ( 39, 5) = 0.635453E+01
- PKER_RACCS ( 39, 6) = 0.523288E+01
- PKER_RACCS ( 39, 7) = 0.430429E+01
- PKER_RACCS ( 39, 8) = 0.353552E+01
- PKER_RACCS ( 39, 9) = 0.289905E+01
- PKER_RACCS ( 39, 10) = 0.237210E+01
- PKER_RACCS ( 39, 11) = 0.193581E+01
- PKER_RACCS ( 39, 12) = 0.157455E+01
- PKER_RACCS ( 39, 13) = 0.127542E+01
- PKER_RACCS ( 39, 14) = 0.102769E+01
- PKER_RACCS ( 39, 15) = 0.822505E+00
- PKER_RACCS ( 39, 16) = 0.652537E+00
- PKER_RACCS ( 39, 17) = 0.511728E+00
- PKER_RACCS ( 39, 18) = 0.395120E+00
- PKER_RACCS ( 39, 19) = 0.298748E+00
- PKER_RACCS ( 39, 20) = 0.219673E+00
- PKER_RACCS ( 39, 21) = 0.156076E+00
- PKER_RACCS ( 39, 22) = 0.107363E+00
- PKER_RACCS ( 39, 23) = 0.740476E-01
- PKER_RACCS ( 39, 24) = 0.565449E-01
- PKER_RACCS ( 39, 25) = 0.539031E-01
- PKER_RACCS ( 39, 26) = 0.628068E-01
- PKER_RACCS ( 39, 27) = 0.783909E-01
- PKER_RACCS ( 39, 28) = 0.960758E-01
- PKER_RACCS ( 39, 29) = 0.112978E+00
- PKER_RACCS ( 39, 30) = 0.127980E+00
- PKER_RACCS ( 39, 31) = 0.140952E+00
- PKER_RACCS ( 39, 32) = 0.152050E+00
- PKER_RACCS ( 39, 33) = 0.161459E+00
- PKER_RACCS ( 39, 34) = 0.169352E+00
- PKER_RACCS ( 39, 35) = 0.175905E+00
- PKER_RACCS ( 39, 36) = 0.181296E+00
- PKER_RACCS ( 39, 37) = 0.185700E+00
- PKER_RACCS ( 39, 38) = 0.189279E+00
- PKER_RACCS ( 39, 39) = 0.192179E+00
- PKER_RACCS ( 39, 40) = 0.194525E+00
- PKER_RACCS ( 40, 1) = 0.137209E+02
- PKER_RACCS ( 40, 2) = 0.113330E+02
- PKER_RACCS ( 40, 3) = 0.935620E+01
- PKER_RACCS ( 40, 4) = 0.771967E+01
- PKER_RACCS ( 40, 5) = 0.636484E+01
- PKER_RACCS ( 40, 6) = 0.524323E+01
- PKER_RACCS ( 40, 7) = 0.431468E+01
- PKER_RACCS ( 40, 8) = 0.354595E+01
- PKER_RACCS ( 40, 9) = 0.290952E+01
- PKER_RACCS ( 40, 10) = 0.238262E+01
- PKER_RACCS ( 40, 11) = 0.194638E+01
- PKER_RACCS ( 40, 12) = 0.158519E+01
- PKER_RACCS ( 40, 13) = 0.128612E+01
- PKER_RACCS ( 40, 14) = 0.103847E+01
- PKER_RACCS ( 40, 15) = 0.833372E+00
- PKER_RACCS ( 40, 16) = 0.663500E+00
- PKER_RACCS ( 40, 17) = 0.522788E+00
- PKER_RACCS ( 40, 18) = 0.406248E+00
- PKER_RACCS ( 40, 19) = 0.309849E+00
- PKER_RACCS ( 40, 20) = 0.230469E+00
- PKER_RACCS ( 40, 21) = 0.165985E+00
- PKER_RACCS ( 40, 22) = 0.115455E+00
- PKER_RACCS ( 40, 23) = 0.789238E-01
- PKER_RACCS ( 40, 24) = 0.569440E-01
- PKER_RACCS ( 40, 25) = 0.492680E-01
- PKER_RACCS ( 40, 26) = 0.537042E-01
- PKER_RACCS ( 40, 27) = 0.661559E-01
- PKER_RACCS ( 40, 28) = 0.821048E-01
- PKER_RACCS ( 40, 29) = 0.981944E-01
- PKER_RACCS ( 40, 30) = 0.112835E+00
- PKER_RACCS ( 40, 31) = 0.125662E+00
- PKER_RACCS ( 40, 32) = 0.136771E+00
- PKER_RACCS ( 40, 33) = 0.146319E+00
- PKER_RACCS ( 40, 34) = 0.154449E+00
- PKER_RACCS ( 40, 35) = 0.161294E+00
- PKER_RACCS ( 40, 36) = 0.166991E+00
- PKER_RACCS ( 40, 37) = 0.171687E+00
- PKER_RACCS ( 40, 38) = 0.175527E+00
- PKER_RACCS ( 40, 39) = 0.178649E+00
- PKER_RACCS ( 40, 40) = 0.181179E+00
+ PKER_RACCS ( 1, 1) = 0.814426E+01
+ PKER_RACCS ( 1, 2) = 0.628964E+01
+ PKER_RACCS ( 1, 3) = 0.478343E+01
+ PKER_RACCS ( 1, 4) = 0.356446E+01
+ PKER_RACCS ( 1, 5) = 0.259019E+01
+ PKER_RACCS ( 1, 6) = 0.183450E+01
+ PKER_RACCS ( 1, 7) = 0.128354E+01
+ PKER_RACCS ( 1, 8) = 0.931518E+00
+ PKER_RACCS ( 1, 9) = 0.767621E+00
+ PKER_RACCS ( 1, 10) = 0.765023E+00
+ PKER_RACCS ( 1, 11) = 0.877850E+00
+ PKER_RACCS ( 1, 12) = 0.105028E+01
+ PKER_RACCS ( 1, 13) = 0.123545E+01
+ PKER_RACCS ( 1, 14) = 0.140595E+01
+ PKER_RACCS ( 1, 15) = 0.155229E+01
+ PKER_RACCS ( 1, 16) = 0.167456E+01
+ PKER_RACCS ( 1, 17) = 0.177591E+01
+ PKER_RACCS ( 1, 18) = 0.185978E+01
+ PKER_RACCS ( 1, 19) = 0.192918E+01
+ PKER_RACCS ( 1, 20) = 0.198661E+01
+ PKER_RACCS ( 1, 21) = 0.203413E+01
+ PKER_RACCS ( 1, 22) = 0.207346E+01
+ PKER_RACCS ( 1, 23) = 0.210601E+01
+ PKER_RACCS ( 1, 24) = 0.213295E+01
+ PKER_RACCS ( 1, 25) = 0.215525E+01
+ PKER_RACCS ( 1, 26) = 0.217370E+01
+ PKER_RACCS ( 1, 27) = 0.218898E+01
+ PKER_RACCS ( 1, 28) = 0.220163E+01
+ PKER_RACCS ( 1, 29) = 0.221209E+01
+ PKER_RACCS ( 1, 30) = 0.222076E+01
+ PKER_RACCS ( 1, 31) = 0.222793E+01
+ PKER_RACCS ( 1, 32) = 0.223387E+01
+ PKER_RACCS ( 1, 33) = 0.223878E+01
+ PKER_RACCS ( 1, 34) = 0.224285E+01
+ PKER_RACCS ( 1, 35) = 0.224622E+01
+ PKER_RACCS ( 1, 36) = 0.224900E+01
+ PKER_RACCS ( 1, 37) = 0.225131E+01
+ PKER_RACCS ( 1, 38) = 0.225322E+01
+ PKER_RACCS ( 1, 39) = 0.225480E+01
+ PKER_RACCS ( 1, 40) = 0.225611E+01
+ PKER_RACCS ( 2, 1) = 0.839153E+01
+ PKER_RACCS ( 2, 2) = 0.650044E+01
+ PKER_RACCS ( 2, 3) = 0.496754E+01
+ PKER_RACCS ( 2, 4) = 0.372667E+01
+ PKER_RACCS ( 2, 5) = 0.273066E+01
+ PKER_RACCS ( 2, 6) = 0.194869E+01
+ PKER_RACCS ( 2, 7) = 0.136367E+01
+ PKER_RACCS ( 2, 8) = 0.968276E+00
+ PKER_RACCS ( 2, 9) = 0.754403E+00
+ PKER_RACCS ( 2, 10) = 0.703547E+00
+ PKER_RACCS ( 2, 11) = 0.778348E+00
+ PKER_RACCS ( 2, 12) = 0.926703E+00
+ PKER_RACCS ( 2, 13) = 0.110037E+01
+ PKER_RACCS ( 2, 14) = 0.126682E+01
+ PKER_RACCS ( 2, 15) = 0.141220E+01
+ PKER_RACCS ( 2, 16) = 0.153439E+01
+ PKER_RACCS ( 2, 17) = 0.163583E+01
+ PKER_RACCS ( 2, 18) = 0.171978E+01
+ PKER_RACCS ( 2, 19) = 0.178924E+01
+ PKER_RACCS ( 2, 20) = 0.184671E+01
+ PKER_RACCS ( 2, 21) = 0.189427E+01
+ PKER_RACCS ( 2, 22) = 0.193362E+01
+ PKER_RACCS ( 2, 23) = 0.196619E+01
+ PKER_RACCS ( 2, 24) = 0.199315E+01
+ PKER_RACCS ( 2, 25) = 0.201546E+01
+ PKER_RACCS ( 2, 26) = 0.203392E+01
+ PKER_RACCS ( 2, 27) = 0.204920E+01
+ PKER_RACCS ( 2, 28) = 0.206185E+01
+ PKER_RACCS ( 2, 29) = 0.207232E+01
+ PKER_RACCS ( 2, 30) = 0.208099E+01
+ PKER_RACCS ( 2, 31) = 0.208817E+01
+ PKER_RACCS ( 2, 32) = 0.209410E+01
+ PKER_RACCS ( 2, 33) = 0.209902E+01
+ PKER_RACCS ( 2, 34) = 0.210309E+01
+ PKER_RACCS ( 2, 35) = 0.210646E+01
+ PKER_RACCS ( 2, 36) = 0.210924E+01
+ PKER_RACCS ( 2, 37) = 0.211155E+01
+ PKER_RACCS ( 2, 38) = 0.211346E+01
+ PKER_RACCS ( 2, 39) = 0.211504E+01
+ PKER_RACCS ( 2, 40) = 0.211635E+01
+ PKER_RACCS ( 3, 1) = 0.865470E+01
+ PKER_RACCS ( 3, 2) = 0.672067E+01
+ PKER_RACCS ( 3, 3) = 0.515647E+01
+ PKER_RACCS ( 3, 4) = 0.389136E+01
+ PKER_RACCS ( 3, 5) = 0.287356E+01
+ PKER_RACCS ( 3, 6) = 0.206767E+01
+ PKER_RACCS ( 3, 7) = 0.145267E+01
+ PKER_RACCS ( 3, 8) = 0.101884E+01
+ PKER_RACCS ( 3, 9) = 0.759717E+00
+ PKER_RACCS ( 3, 10) = 0.661694E+00
+ PKER_RACCS ( 3, 11) = 0.696084E+00
+ PKER_RACCS ( 3, 12) = 0.816907E+00
+ PKER_RACCS ( 3, 13) = 0.976132E+00
+ PKER_RACCS ( 3, 14) = 0.113696E+01
+ PKER_RACCS ( 3, 15) = 0.128080E+01
+ PKER_RACCS ( 3, 16) = 0.140279E+01
+ PKER_RACCS ( 3, 17) = 0.150431E+01
+ PKER_RACCS ( 3, 18) = 0.158836E+01
+ PKER_RACCS ( 3, 19) = 0.165789E+01
+ PKER_RACCS ( 3, 20) = 0.171542E+01
+ PKER_RACCS ( 3, 21) = 0.176302E+01
+ PKER_RACCS ( 3, 22) = 0.180240E+01
+ PKER_RACCS ( 3, 23) = 0.183499E+01
+ PKER_RACCS ( 3, 24) = 0.186197E+01
+ PKER_RACCS ( 3, 25) = 0.188429E+01
+ PKER_RACCS ( 3, 26) = 0.190276E+01
+ PKER_RACCS ( 3, 27) = 0.191805E+01
+ PKER_RACCS ( 3, 28) = 0.193071E+01
+ PKER_RACCS ( 3, 29) = 0.194118E+01
+ PKER_RACCS ( 3, 30) = 0.194986E+01
+ PKER_RACCS ( 3, 31) = 0.195703E+01
+ PKER_RACCS ( 3, 32) = 0.196297E+01
+ PKER_RACCS ( 3, 33) = 0.196789E+01
+ PKER_RACCS ( 3, 34) = 0.197196E+01
+ PKER_RACCS ( 3, 35) = 0.197533E+01
+ PKER_RACCS ( 3, 36) = 0.197812E+01
+ PKER_RACCS ( 3, 37) = 0.198043E+01
+ PKER_RACCS ( 3, 38) = 0.198234E+01
+ PKER_RACCS ( 3, 39) = 0.198392E+01
+ PKER_RACCS ( 3, 40) = 0.198523E+01
+ PKER_RACCS ( 4, 1) = 0.893754E+01
+ PKER_RACCS ( 4, 2) = 0.695364E+01
+ PKER_RACCS ( 4, 3) = 0.535280E+01
+ PKER_RACCS ( 4, 4) = 0.406028E+01
+ PKER_RACCS ( 4, 5) = 0.301947E+01
+ PKER_RACCS ( 4, 6) = 0.219059E+01
+ PKER_RACCS ( 4, 7) = 0.154888E+01
+ PKER_RACCS ( 4, 8) = 0.108073E+01
+ PKER_RACCS ( 4, 9) = 0.780001E+00
+ PKER_RACCS ( 4, 10) = 0.637424E+00
+ PKER_RACCS ( 4, 11) = 0.630494E+00
+ PKER_RACCS ( 4, 12) = 0.721212E+00
+ PKER_RACCS ( 4, 13) = 0.862905E+00
+ PKER_RACCS ( 4, 14) = 0.101614E+01
+ PKER_RACCS ( 4, 15) = 0.115766E+01
+ PKER_RACCS ( 4, 16) = 0.127924E+01
+ PKER_RACCS ( 4, 17) = 0.138081E+01
+ PKER_RACCS ( 4, 18) = 0.146497E+01
+ PKER_RACCS ( 4, 19) = 0.153460E+01
+ PKER_RACCS ( 4, 20) = 0.159220E+01
+ PKER_RACCS ( 4, 21) = 0.163984E+01
+ PKER_RACCS ( 4, 22) = 0.167926E+01
+ PKER_RACCS ( 4, 23) = 0.171188E+01
+ PKER_RACCS ( 4, 24) = 0.173888E+01
+ PKER_RACCS ( 4, 25) = 0.176121E+01
+ PKER_RACCS ( 4, 26) = 0.177970E+01
+ PKER_RACCS ( 4, 27) = 0.179500E+01
+ PKER_RACCS ( 4, 28) = 0.180766E+01
+ PKER_RACCS ( 4, 29) = 0.181814E+01
+ PKER_RACCS ( 4, 30) = 0.182682E+01
+ PKER_RACCS ( 4, 31) = 0.183400E+01
+ PKER_RACCS ( 4, 32) = 0.183994E+01
+ PKER_RACCS ( 4, 33) = 0.184486E+01
+ PKER_RACCS ( 4, 34) = 0.184893E+01
+ PKER_RACCS ( 4, 35) = 0.185230E+01
+ PKER_RACCS ( 4, 36) = 0.185509E+01
+ PKER_RACCS ( 4, 37) = 0.185740E+01
+ PKER_RACCS ( 4, 38) = 0.185931E+01
+ PKER_RACCS ( 4, 39) = 0.186089E+01
+ PKER_RACCS ( 4, 40) = 0.186220E+01
+ PKER_RACCS ( 5, 1) = 0.924285E+01
+ PKER_RACCS ( 5, 2) = 0.720238E+01
+ PKER_RACCS ( 5, 3) = 0.555928E+01
+ PKER_RACCS ( 5, 4) = 0.423533E+01
+ PKER_RACCS ( 5, 5) = 0.316956E+01
+ PKER_RACCS ( 5, 6) = 0.231791E+01
+ PKER_RACCS ( 5, 7) = 0.165116E+01
+ PKER_RACCS ( 5, 8) = 0.115255E+01
+ PKER_RACCS ( 5, 9) = 0.814299E+00
+ PKER_RACCS ( 5, 10) = 0.629004E+00
+ PKER_RACCS ( 5, 11) = 0.581107E+00
+ PKER_RACCS ( 5, 12) = 0.639553E+00
+ PKER_RACCS ( 5, 13) = 0.760776E+00
+ PKER_RACCS ( 5, 14) = 0.904271E+00
+ PKER_RACCS ( 5, 15) = 0.104240E+01
+ PKER_RACCS ( 5, 16) = 0.116324E+01
+ PKER_RACCS ( 5, 17) = 0.126482E+01
+ PKER_RACCS ( 5, 18) = 0.134911E+01
+ PKER_RACCS ( 5, 19) = 0.141885E+01
+ PKER_RACCS ( 5, 20) = 0.147653E+01
+ PKER_RACCS ( 5, 21) = 0.152423E+01
+ PKER_RACCS ( 5, 22) = 0.156370E+01
+ PKER_RACCS ( 5, 23) = 0.159635E+01
+ PKER_RACCS ( 5, 24) = 0.162337E+01
+ PKER_RACCS ( 5, 25) = 0.164573E+01
+ PKER_RACCS ( 5, 26) = 0.166423E+01
+ PKER_RACCS ( 5, 27) = 0.167954E+01
+ PKER_RACCS ( 5, 28) = 0.169221E+01
+ PKER_RACCS ( 5, 29) = 0.170270E+01
+ PKER_RACCS ( 5, 30) = 0.171138E+01
+ PKER_RACCS ( 5, 31) = 0.171856E+01
+ PKER_RACCS ( 5, 32) = 0.172451E+01
+ PKER_RACCS ( 5, 33) = 0.172943E+01
+ PKER_RACCS ( 5, 34) = 0.173350E+01
+ PKER_RACCS ( 5, 35) = 0.173687E+01
+ PKER_RACCS ( 5, 36) = 0.173966E+01
+ PKER_RACCS ( 5, 37) = 0.174197E+01
+ PKER_RACCS ( 5, 38) = 0.174389E+01
+ PKER_RACCS ( 5, 39) = 0.174547E+01
+ PKER_RACCS ( 5, 40) = 0.174678E+01
+ PKER_RACCS ( 6, 1) = 0.957149E+01
+ PKER_RACCS ( 6, 2) = 0.746912E+01
+ PKER_RACCS ( 6, 3) = 0.577847E+01
+ PKER_RACCS ( 6, 4) = 0.441857E+01
+ PKER_RACCS ( 6, 5) = 0.332499E+01
+ PKER_RACCS ( 6, 6) = 0.244967E+01
+ PKER_RACCS ( 6, 7) = 0.175911E+01
+ PKER_RACCS ( 6, 8) = 0.123288E+01
+ PKER_RACCS ( 6, 9) = 0.860857E+00
+ PKER_RACCS ( 6, 10) = 0.636625E+00
+ PKER_RACCS ( 6, 11) = 0.548403E+00
+ PKER_RACCS ( 6, 12) = 0.572398E+00
+ PKER_RACCS ( 6, 13) = 0.670215E+00
+ PKER_RACCS ( 6, 14) = 0.801397E+00
+ PKER_RACCS ( 6, 15) = 0.934778E+00
+ PKER_RACCS ( 6, 16) = 0.105438E+01
+ PKER_RACCS ( 6, 17) = 0.115586E+01
+ PKER_RACCS ( 6, 18) = 0.124029E+01
+ PKER_RACCS ( 6, 19) = 0.131016E+01
+ PKER_RACCS ( 6, 20) = 0.136794E+01
+ PKER_RACCS ( 6, 21) = 0.141572E+01
+ PKER_RACCS ( 6, 22) = 0.145524E+01
+ PKER_RACCS ( 6, 23) = 0.148793E+01
+ PKER_RACCS ( 6, 24) = 0.151498E+01
+ PKER_RACCS ( 6, 25) = 0.153736E+01
+ PKER_RACCS ( 6, 26) = 0.155588E+01
+ PKER_RACCS ( 6, 27) = 0.157120E+01
+ PKER_RACCS ( 6, 28) = 0.158388E+01
+ PKER_RACCS ( 6, 29) = 0.159438E+01
+ PKER_RACCS ( 6, 30) = 0.160306E+01
+ PKER_RACCS ( 6, 31) = 0.161025E+01
+ PKER_RACCS ( 6, 32) = 0.161620E+01
+ PKER_RACCS ( 6, 33) = 0.162112E+01
+ PKER_RACCS ( 6, 34) = 0.162520E+01
+ PKER_RACCS ( 6, 35) = 0.162857E+01
+ PKER_RACCS ( 6, 36) = 0.163136E+01
+ PKER_RACCS ( 6, 37) = 0.163368E+01
+ PKER_RACCS ( 6, 38) = 0.163559E+01
+ PKER_RACCS ( 6, 39) = 0.163717E+01
+ PKER_RACCS ( 6, 40) = 0.163848E+01
+ PKER_RACCS ( 7, 1) = 0.992136E+01
+ PKER_RACCS ( 7, 2) = 0.775452E+01
+ PKER_RACCS ( 7, 3) = 0.601220E+01
+ PKER_RACCS ( 7, 4) = 0.461204E+01
+ PKER_RACCS ( 7, 5) = 0.348745E+01
+ PKER_RACCS ( 7, 6) = 0.258667E+01
+ PKER_RACCS ( 7, 7) = 0.187240E+01
+ PKER_RACCS ( 7, 8) = 0.132065E+01
+ PKER_RACCS ( 7, 9) = 0.917845E+00
+ PKER_RACCS ( 7, 10) = 0.657315E+00
+ PKER_RACCS ( 7, 11) = 0.530840E+00
+ PKER_RACCS ( 7, 12) = 0.519459E+00
+ PKER_RACCS ( 7, 13) = 0.591459E+00
+ PKER_RACCS ( 7, 14) = 0.707658E+00
+ PKER_RACCS ( 7, 15) = 0.834585E+00
+ PKER_RACCS ( 7, 16) = 0.952272E+00
+ PKER_RACCS ( 7, 17) = 0.105349E+01
+ PKER_RACCS ( 7, 18) = 0.113805E+01
+ PKER_RACCS ( 7, 19) = 0.120808E+01
+ PKER_RACCS ( 7, 20) = 0.126598E+01
+ PKER_RACCS ( 7, 21) = 0.131385E+01
+ PKER_RACCS ( 7, 22) = 0.135343E+01
+ PKER_RACCS ( 7, 23) = 0.138617E+01
+ PKER_RACCS ( 7, 24) = 0.141326E+01
+ PKER_RACCS ( 7, 25) = 0.143566E+01
+ PKER_RACCS ( 7, 26) = 0.145420E+01
+ PKER_RACCS ( 7, 27) = 0.146954E+01
+ PKER_RACCS ( 7, 28) = 0.148224E+01
+ PKER_RACCS ( 7, 29) = 0.149274E+01
+ PKER_RACCS ( 7, 30) = 0.150143E+01
+ PKER_RACCS ( 7, 31) = 0.150863E+01
+ PKER_RACCS ( 7, 32) = 0.151458E+01
+ PKER_RACCS ( 7, 33) = 0.151951E+01
+ PKER_RACCS ( 7, 34) = 0.152359E+01
+ PKER_RACCS ( 7, 35) = 0.152696E+01
+ PKER_RACCS ( 7, 36) = 0.152975E+01
+ PKER_RACCS ( 7, 37) = 0.153207E+01
+ PKER_RACCS ( 7, 38) = 0.153398E+01
+ PKER_RACCS ( 7, 39) = 0.153557E+01
+ PKER_RACCS ( 7, 40) = 0.153688E+01
+ PKER_RACCS ( 8, 1) = 0.102868E+02
+ PKER_RACCS ( 8, 2) = 0.805684E+01
+ PKER_RACCS ( 8, 3) = 0.626092E+01
+ PKER_RACCS ( 8, 4) = 0.481723E+01
+ PKER_RACCS ( 8, 5) = 0.365838E+01
+ PKER_RACCS ( 8, 6) = 0.273003E+01
+ PKER_RACCS ( 8, 7) = 0.199156E+01
+ PKER_RACCS ( 8, 8) = 0.141520E+01
+ PKER_RACCS ( 8, 9) = 0.984343E+00
+ PKER_RACCS ( 8, 10) = 0.690613E+00
+ PKER_RACCS ( 8, 11) = 0.527056E+00
+ PKER_RACCS ( 8, 12) = 0.480354E+00
+ PKER_RACCS ( 8, 13) = 0.524589E+00
+ PKER_RACCS ( 8, 14) = 0.623178E+00
+ PKER_RACCS ( 8, 15) = 0.741765E+00
+ PKER_RACCS ( 8, 16) = 0.856619E+00
+ PKER_RACCS ( 8, 17) = 0.957307E+00
+ PKER_RACCS ( 8, 18) = 0.104196E+01
+ PKER_RACCS ( 8, 19) = 0.111217E+01
+ PKER_RACCS ( 8, 20) = 0.117022E+01
+ PKER_RACCS ( 8, 21) = 0.121820E+01
+ PKER_RACCS ( 8, 22) = 0.125786E+01
+ PKER_RACCS ( 8, 23) = 0.129066E+01
+ PKER_RACCS ( 8, 24) = 0.131779E+01
+ PKER_RACCS ( 8, 25) = 0.134023E+01
+ PKER_RACCS ( 8, 26) = 0.135879E+01
+ PKER_RACCS ( 8, 27) = 0.137415E+01
+ PKER_RACCS ( 8, 28) = 0.138686E+01
+ PKER_RACCS ( 8, 29) = 0.139737E+01
+ PKER_RACCS ( 8, 30) = 0.140607E+01
+ PKER_RACCS ( 8, 31) = 0.141327E+01
+ PKER_RACCS ( 8, 32) = 0.141923E+01
+ PKER_RACCS ( 8, 33) = 0.142417E+01
+ PKER_RACCS ( 8, 34) = 0.142825E+01
+ PKER_RACCS ( 8, 35) = 0.143162E+01
+ PKER_RACCS ( 8, 36) = 0.143442E+01
+ PKER_RACCS ( 8, 37) = 0.143673E+01
+ PKER_RACCS ( 8, 38) = 0.143865E+01
+ PKER_RACCS ( 8, 39) = 0.144023E+01
+ PKER_RACCS ( 8, 40) = 0.144155E+01
+ PKER_RACCS ( 9, 1) = 0.106586E+02
+ PKER_RACCS ( 9, 2) = 0.837134E+01
+ PKER_RACCS ( 9, 3) = 0.652308E+01
+ PKER_RACCS ( 9, 4) = 0.503452E+01
+ PKER_RACCS ( 9, 5) = 0.383885E+01
+ PKER_RACCS ( 9, 6) = 0.288068E+01
+ PKER_RACCS ( 9, 7) = 0.211691E+01
+ PKER_RACCS ( 9, 8) = 0.151640E+01
+ PKER_RACCS ( 9, 9) = 0.105934E+01
+ PKER_RACCS ( 9, 10) = 0.735154E+00
+ PKER_RACCS ( 9, 11) = 0.537362E+00
+ PKER_RACCS ( 9, 12) = 0.455623E+00
+ PKER_RACCS ( 9, 13) = 0.470067E+00
+ PKER_RACCS ( 9, 14) = 0.548453E+00
+ PKER_RACCS ( 9, 15) = 0.656404E+00
+ PKER_RACCS ( 9, 16) = 0.767219E+00
+ PKER_RACCS ( 9, 17) = 0.866939E+00
+ PKER_RACCS ( 9, 18) = 0.951616E+00
+ PKER_RACCS ( 9, 19) = 0.102203E+01
+ PKER_RACCS ( 9, 20) = 0.108025E+01
+ PKER_RACCS ( 9, 21) = 0.112837E+01
+ PKER_RACCS ( 9, 22) = 0.116813E+01
+ PKER_RACCS ( 9, 23) = 0.120100E+01
+ PKER_RACCS ( 9, 24) = 0.122818E+01
+ PKER_RACCS ( 9, 25) = 0.125066E+01
+ PKER_RACCS ( 9, 26) = 0.126925E+01
+ PKER_RACCS ( 9, 27) = 0.128464E+01
+ PKER_RACCS ( 9, 28) = 0.129736E+01
+ PKER_RACCS ( 9, 29) = 0.130789E+01
+ PKER_RACCS ( 9, 30) = 0.131660E+01
+ PKER_RACCS ( 9, 31) = 0.132381E+01
+ PKER_RACCS ( 9, 32) = 0.132977E+01
+ PKER_RACCS ( 9, 33) = 0.133471E+01
+ PKER_RACCS ( 9, 34) = 0.133879E+01
+ PKER_RACCS ( 9, 35) = 0.134218E+01
+ PKER_RACCS ( 9, 36) = 0.134497E+01
+ PKER_RACCS ( 9, 37) = 0.134729E+01
+ PKER_RACCS ( 9, 38) = 0.134921E+01
+ PKER_RACCS ( 9, 39) = 0.135079E+01
+ PKER_RACCS ( 9, 40) = 0.135210E+01
+ PKER_RACCS ( 10, 1) = 0.110254E+02
+ PKER_RACCS ( 10, 2) = 0.869040E+01
+ PKER_RACCS ( 10, 3) = 0.679467E+01
+ PKER_RACCS ( 10, 4) = 0.526254E+01
+ PKER_RACCS ( 10, 5) = 0.402907E+01
+ PKER_RACCS ( 10, 6) = 0.303942E+01
+ PKER_RACCS ( 10, 7) = 0.224898E+01
+ PKER_RACCS ( 10, 8) = 0.162413E+01
+ PKER_RACCS ( 10, 9) = 0.114216E+01
+ PKER_RACCS ( 10, 10) = 0.789643E+00
+ PKER_RACCS ( 10, 11) = 0.559475E+00
+ PKER_RACCS ( 10, 12) = 0.444230E+00
+ PKER_RACCS ( 10, 13) = 0.427864E+00
+ PKER_RACCS ( 10, 14) = 0.483716E+00
+ PKER_RACCS ( 10, 15) = 0.578655E+00
+ PKER_RACCS ( 10, 16) = 0.683914E+00
+ PKER_RACCS ( 10, 17) = 0.782074E+00
+ PKER_RACCS ( 10, 18) = 0.866640E+00
+ PKER_RACCS ( 10, 19) = 0.937264E+00
+ PKER_RACCS ( 10, 20) = 0.995704E+00
+ PKER_RACCS ( 10, 21) = 0.104398E+01
+ PKER_RACCS ( 10, 22) = 0.108386E+01
+ PKER_RACCS ( 10, 23) = 0.111682E+01
+ PKER_RACCS ( 10, 24) = 0.114407E+01
+ PKER_RACCS ( 10, 25) = 0.116659E+01
+ PKER_RACCS ( 10, 26) = 0.118522E+01
+ PKER_RACCS ( 10, 27) = 0.120063E+01
+ PKER_RACCS ( 10, 28) = 0.121338E+01
+ PKER_RACCS ( 10, 29) = 0.122392E+01
+ PKER_RACCS ( 10, 30) = 0.123264E+01
+ PKER_RACCS ( 10, 31) = 0.123986E+01
+ PKER_RACCS ( 10, 32) = 0.124583E+01
+ PKER_RACCS ( 10, 33) = 0.125077E+01
+ PKER_RACCS ( 10, 34) = 0.125486E+01
+ PKER_RACCS ( 10, 35) = 0.125825E+01
+ PKER_RACCS ( 10, 36) = 0.126105E+01
+ PKER_RACCS ( 10, 37) = 0.126337E+01
+ PKER_RACCS ( 10, 38) = 0.126529E+01
+ PKER_RACCS ( 10, 39) = 0.126687E+01
+ PKER_RACCS ( 10, 40) = 0.126819E+01
+ PKER_RACCS ( 11, 1) = 0.113754E+02
+ PKER_RACCS ( 11, 2) = 0.900451E+01
+ PKER_RACCS ( 11, 3) = 0.706934E+01
+ PKER_RACCS ( 11, 4) = 0.549788E+01
+ PKER_RACCS ( 11, 5) = 0.422787E+01
+ PKER_RACCS ( 11, 6) = 0.320621E+01
+ PKER_RACCS ( 11, 7) = 0.238819E+01
+ PKER_RACCS ( 11, 8) = 0.173869E+01
+ PKER_RACCS ( 11, 9) = 0.123242E+01
+ PKER_RACCS ( 11, 10) = 0.853499E+00
+ PKER_RACCS ( 11, 11) = 0.593264E+00
+ PKER_RACCS ( 11, 12) = 0.445158E+00
+ PKER_RACCS ( 11, 13) = 0.397733E+00
+ PKER_RACCS ( 11, 14) = 0.429187E+00
+ PKER_RACCS ( 11, 15) = 0.508684E+00
+ PKER_RACCS ( 11, 16) = 0.606680E+00
+ PKER_RACCS ( 11, 17) = 0.702460E+00
+ PKER_RACCS ( 11, 18) = 0.786685E+00
+ PKER_RACCS ( 11, 19) = 0.857512E+00
+ PKER_RACCS ( 11, 20) = 0.916202E+00
+ PKER_RACCS ( 11, 21) = 0.964675E+00
+ PKER_RACCS ( 11, 22) = 0.100470E+01
+ PKER_RACCS ( 11, 23) = 0.103777E+01
+ PKER_RACCS ( 11, 24) = 0.106509E+01
+ PKER_RACCS ( 11, 25) = 0.108768E+01
+ PKER_RACCS ( 11, 26) = 0.110635E+01
+ PKER_RACCS ( 11, 27) = 0.112179E+01
+ PKER_RACCS ( 11, 28) = 0.113456E+01
+ PKER_RACCS ( 11, 29) = 0.114512E+01
+ PKER_RACCS ( 11, 30) = 0.115386E+01
+ PKER_RACCS ( 11, 31) = 0.116109E+01
+ PKER_RACCS ( 11, 32) = 0.116707E+01
+ PKER_RACCS ( 11, 33) = 0.117202E+01
+ PKER_RACCS ( 11, 34) = 0.117612E+01
+ PKER_RACCS ( 11, 35) = 0.117950E+01
+ PKER_RACCS ( 11, 36) = 0.118231E+01
+ PKER_RACCS ( 11, 37) = 0.118463E+01
+ PKER_RACCS ( 11, 38) = 0.118655E+01
+ PKER_RACCS ( 11, 39) = 0.118814E+01
+ PKER_RACCS ( 11, 40) = 0.118945E+01
+ PKER_RACCS ( 12, 1) = 0.116988E+02
+ PKER_RACCS ( 12, 2) = 0.930392E+01
+ PKER_RACCS ( 12, 3) = 0.733917E+01
+ PKER_RACCS ( 12, 4) = 0.573514E+01
+ PKER_RACCS ( 12, 5) = 0.443234E+01
+ PKER_RACCS ( 12, 6) = 0.337990E+01
+ PKER_RACCS ( 12, 7) = 0.253428E+01
+ PKER_RACCS ( 12, 8) = 0.185996E+01
+ PKER_RACCS ( 12, 9) = 0.132989E+01
+ PKER_RACCS ( 12, 10) = 0.925921E+00
+ PKER_RACCS ( 12, 11) = 0.637666E+00
+ PKER_RACCS ( 12, 12) = 0.458765E+00
+ PKER_RACCS ( 12, 13) = 0.380203E+00
+ PKER_RACCS ( 12, 14) = 0.385385E+00
+ PKER_RACCS ( 12, 15) = 0.447035E+00
+ PKER_RACCS ( 12, 16) = 0.535649E+00
+ PKER_RACCS ( 12, 17) = 0.627944E+00
+ PKER_RACCS ( 12, 18) = 0.711443E+00
+ PKER_RACCS ( 12, 19) = 0.782423E+00
+ PKER_RACCS ( 12, 20) = 0.841400E+00
+ PKER_RACCS ( 12, 21) = 0.890112E+00
+ PKER_RACCS ( 12, 22) = 0.930317E+00
+ PKER_RACCS ( 12, 23) = 0.963511E+00
+ PKER_RACCS ( 12, 24) = 0.990930E+00
+ PKER_RACCS ( 12, 25) = 0.101359E+01
+ PKER_RACCS ( 12, 26) = 0.103231E+01
+ PKER_RACCS ( 12, 27) = 0.104779E+01
+ PKER_RACCS ( 12, 28) = 0.106059E+01
+ PKER_RACCS ( 12, 29) = 0.107118E+01
+ PKER_RACCS ( 12, 30) = 0.107993E+01
+ PKER_RACCS ( 12, 31) = 0.108718E+01
+ PKER_RACCS ( 12, 32) = 0.109317E+01
+ PKER_RACCS ( 12, 33) = 0.109812E+01
+ PKER_RACCS ( 12, 34) = 0.110223E+01
+ PKER_RACCS ( 12, 35) = 0.110562E+01
+ PKER_RACCS ( 12, 36) = 0.110843E+01
+ PKER_RACCS ( 12, 37) = 0.111075E+01
+ PKER_RACCS ( 12, 38) = 0.111267E+01
+ PKER_RACCS ( 12, 39) = 0.111426E+01
+ PKER_RACCS ( 12, 40) = 0.111558E+01
+ PKER_RACCS ( 13, 1) = 0.119889E+02
+ PKER_RACCS ( 13, 2) = 0.958043E+01
+ PKER_RACCS ( 13, 3) = 0.759606E+01
+ PKER_RACCS ( 13, 4) = 0.596770E+01
+ PKER_RACCS ( 13, 5) = 0.463793E+01
+ PKER_RACCS ( 13, 6) = 0.355799E+01
+ PKER_RACCS ( 13, 7) = 0.268619E+01
+ PKER_RACCS ( 13, 8) = 0.198748E+01
+ PKER_RACCS ( 13, 9) = 0.143413E+01
+ PKER_RACCS ( 13, 10) = 0.100632E+01
+ PKER_RACCS ( 13, 11) = 0.691714E+00
+ PKER_RACCS ( 13, 12) = 0.483369E+00
+ PKER_RACCS ( 13, 13) = 0.374777E+00
+ PKER_RACCS ( 13, 14) = 0.352470E+00
+ PKER_RACCS ( 13, 15) = 0.393978E+00
+ PKER_RACCS ( 13, 16) = 0.471002E+00
+ PKER_RACCS ( 13, 17) = 0.558411E+00
+ PKER_RACCS ( 13, 18) = 0.640646E+00
+ PKER_RACCS ( 13, 19) = 0.711672E+00
+ PKER_RACCS ( 13, 20) = 0.770965E+00
+ PKER_RACCS ( 13, 21) = 0.819964E+00
+ PKER_RACCS ( 13, 22) = 0.860385E+00
+ PKER_RACCS ( 13, 23) = 0.893737E+00
+ PKER_RACCS ( 13, 24) = 0.921271E+00
+ PKER_RACCS ( 13, 25) = 0.944012E+00
+ PKER_RACCS ( 13, 26) = 0.962802E+00
+ PKER_RACCS ( 13, 27) = 0.978330E+00
+ PKER_RACCS ( 13, 28) = 0.991167E+00
+ PKER_RACCS ( 13, 29) = 0.100178E+01
+ PKER_RACCS ( 13, 30) = 0.101056E+01
+ PKER_RACCS ( 13, 31) = 0.101782E+01
+ PKER_RACCS ( 13, 32) = 0.102382E+01
+ PKER_RACCS ( 13, 33) = 0.102879E+01
+ PKER_RACCS ( 13, 34) = 0.103289E+01
+ PKER_RACCS ( 13, 35) = 0.103629E+01
+ PKER_RACCS ( 13, 36) = 0.103911E+01
+ PKER_RACCS ( 13, 37) = 0.104143E+01
+ PKER_RACCS ( 13, 38) = 0.104336E+01
+ PKER_RACCS ( 13, 39) = 0.104495E+01
+ PKER_RACCS ( 13, 40) = 0.104627E+01
+ PKER_RACCS ( 14, 1) = 0.122430E+02
+ PKER_RACCS ( 14, 2) = 0.982860E+01
+ PKER_RACCS ( 14, 3) = 0.783321E+01
+ PKER_RACCS ( 14, 4) = 0.618882E+01
+ PKER_RACCS ( 14, 5) = 0.483905E+01
+ PKER_RACCS ( 14, 6) = 0.373660E+01
+ PKER_RACCS ( 14, 7) = 0.284160E+01
+ PKER_RACCS ( 14, 8) = 0.212013E+01
+ PKER_RACCS ( 14, 9) = 0.154456E+01
+ PKER_RACCS ( 14, 10) = 0.109409E+01
+ PKER_RACCS ( 14, 11) = 0.754883E+00
+ PKER_RACCS ( 14, 12) = 0.518999E+00
+ PKER_RACCS ( 14, 13) = 0.380699E+00
+ PKER_RACCS ( 14, 14) = 0.330419E+00
+ PKER_RACCS ( 14, 15) = 0.349888E+00
+ PKER_RACCS ( 14, 16) = 0.412981E+00
+ PKER_RACCS ( 14, 17) = 0.493882E+00
+ PKER_RACCS ( 14, 18) = 0.574086E+00
+ PKER_RACCS ( 14, 19) = 0.644958E+00
+ PKER_RACCS ( 14, 20) = 0.704578E+00
+ PKER_RACCS ( 14, 21) = 0.753918E+00
+ PKER_RACCS ( 14, 22) = 0.794601E+00
+ PKER_RACCS ( 14, 23) = 0.828145E+00
+ PKER_RACCS ( 14, 24) = 0.855820E+00
+ PKER_RACCS ( 14, 25) = 0.878666E+00
+ PKER_RACCS ( 14, 26) = 0.897532E+00
+ PKER_RACCS ( 14, 27) = 0.913119E+00
+ PKER_RACCS ( 14, 28) = 0.925999E+00
+ PKER_RACCS ( 14, 29) = 0.936646E+00
+ PKER_RACCS ( 14, 30) = 0.945448E+00
+ PKER_RACCS ( 14, 31) = 0.952726E+00
+ PKER_RACCS ( 14, 32) = 0.958745E+00
+ PKER_RACCS ( 14, 33) = 0.963723E+00
+ PKER_RACCS ( 14, 34) = 0.967840E+00
+ PKER_RACCS ( 14, 35) = 0.971246E+00
+ PKER_RACCS ( 14, 36) = 0.974064E+00
+ PKER_RACCS ( 14, 37) = 0.976395E+00
+ PKER_RACCS ( 14, 38) = 0.978324E+00
+ PKER_RACCS ( 14, 39) = 0.979920E+00
+ PKER_RACCS ( 14, 40) = 0.981240E+00
+ PKER_RACCS ( 15, 1) = 0.124614E+02
+ PKER_RACCS ( 15, 2) = 0.100461E+02
+ PKER_RACCS ( 15, 3) = 0.804614E+01
+ PKER_RACCS ( 15, 4) = 0.639285E+01
+ PKER_RACCS ( 15, 5) = 0.503002E+01
+ PKER_RACCS ( 15, 6) = 0.391104E+01
+ PKER_RACCS ( 15, 7) = 0.299717E+01
+ PKER_RACCS ( 15, 8) = 0.225577E+01
+ PKER_RACCS ( 15, 9) = 0.165987E+01
+ PKER_RACCS ( 15, 10) = 0.118831E+01
+ PKER_RACCS ( 15, 11) = 0.826200E+00
+ PKER_RACCS ( 15, 12) = 0.564680E+00
+ PKER_RACCS ( 15, 13) = 0.398301E+00
+ PKER_RACCS ( 15, 14) = 0.319733E+00
+ PKER_RACCS ( 15, 15) = 0.315376E+00
+ PKER_RACCS ( 15, 16) = 0.362200E+00
+ PKER_RACCS ( 15, 17) = 0.434552E+00
+ PKER_RACCS ( 15, 18) = 0.511660E+00
+ PKER_RACCS ( 15, 19) = 0.582018E+00
+ PKER_RACCS ( 15, 20) = 0.641936E+00
+ PKER_RACCS ( 15, 21) = 0.691670E+00
+ PKER_RACCS ( 15, 22) = 0.732672E+00
+ PKER_RACCS ( 15, 23) = 0.766451E+00
+ PKER_RACCS ( 15, 24) = 0.794298E+00
+ PKER_RACCS ( 15, 25) = 0.817269E+00
+ PKER_RACCS ( 15, 26) = 0.836229E+00
+ PKER_RACCS ( 15, 27) = 0.851886E+00
+ PKER_RACCS ( 15, 28) = 0.864819E+00
+ PKER_RACCS ( 15, 29) = 0.875505E+00
+ PKER_RACCS ( 15, 30) = 0.884338E+00
+ PKER_RACCS ( 15, 31) = 0.891639E+00
+ PKER_RACCS ( 15, 32) = 0.897676E+00
+ PKER_RACCS ( 15, 33) = 0.902668E+00
+ PKER_RACCS ( 15, 34) = 0.906796E+00
+ PKER_RACCS ( 15, 35) = 0.910210E+00
+ PKER_RACCS ( 15, 36) = 0.913034E+00
+ PKER_RACCS ( 15, 37) = 0.915371E+00
+ PKER_RACCS ( 15, 38) = 0.917303E+00
+ PKER_RACCS ( 15, 39) = 0.918902E+00
+ PKER_RACCS ( 15, 40) = 0.920225E+00
+ PKER_RACCS ( 16, 1) = 0.126466E+02
+ PKER_RACCS ( 16, 2) = 0.102334E+02
+ PKER_RACCS ( 16, 3) = 0.823298E+01
+ PKER_RACCS ( 16, 4) = 0.657613E+01
+ PKER_RACCS ( 16, 5) = 0.520617E+01
+ PKER_RACCS ( 16, 6) = 0.407652E+01
+ PKER_RACCS ( 16, 7) = 0.314887E+01
+ PKER_RACCS ( 16, 8) = 0.239148E+01
+ PKER_RACCS ( 16, 9) = 0.177804E+01
+ PKER_RACCS ( 16, 10) = 0.128756E+01
+ PKER_RACCS ( 16, 11) = 0.904610E+00
+ PKER_RACCS ( 16, 12) = 0.619369E+00
+ PKER_RACCS ( 16, 13) = 0.426243E+00
+ PKER_RACCS ( 16, 14) = 0.320296E+00
+ PKER_RACCS ( 16, 15) = 0.290790E+00
+ PKER_RACCS ( 16, 16) = 0.319020E+00
+ PKER_RACCS ( 16, 17) = 0.380654E+00
+ PKER_RACCS ( 16, 18) = 0.453301E+00
+ PKER_RACCS ( 16, 19) = 0.522625E+00
+ PKER_RACCS ( 16, 20) = 0.582753E+00
+ PKER_RACCS ( 16, 21) = 0.632931E+00
+ PKER_RACCS ( 16, 22) = 0.674315E+00
+ PKER_RACCS ( 16, 23) = 0.708381E+00
+ PKER_RACCS ( 16, 24) = 0.736436E+00
+ PKER_RACCS ( 16, 25) = 0.759561E+00
+ PKER_RACCS ( 16, 26) = 0.778635E+00
+ PKER_RACCS ( 16, 27) = 0.794376E+00
+ PKER_RACCS ( 16, 28) = 0.807373E+00
+ PKER_RACCS ( 16, 29) = 0.818107E+00
+ PKER_RACCS ( 16, 30) = 0.826976E+00
+ PKER_RACCS ( 16, 31) = 0.834305E+00
+ PKER_RACCS ( 16, 32) = 0.840363E+00
+ PKER_RACCS ( 16, 33) = 0.845372E+00
+ PKER_RACCS ( 16, 34) = 0.849513E+00
+ PKER_RACCS ( 16, 35) = 0.852937E+00
+ PKER_RACCS ( 16, 36) = 0.855769E+00
+ PKER_RACCS ( 16, 37) = 0.858111E+00
+ PKER_RACCS ( 16, 38) = 0.860049E+00
+ PKER_RACCS ( 16, 39) = 0.861651E+00
+ PKER_RACCS ( 16, 40) = 0.862977E+00
+ PKER_RACCS ( 17, 1) = 0.128025E+02
+ PKER_RACCS ( 17, 2) = 0.103926E+02
+ PKER_RACCS ( 17, 3) = 0.839412E+01
+ PKER_RACCS ( 17, 4) = 0.673714E+01
+ PKER_RACCS ( 17, 5) = 0.536445E+01
+ PKER_RACCS ( 17, 6) = 0.422911E+01
+ PKER_RACCS ( 17, 7) = 0.329268E+01
+ PKER_RACCS ( 17, 8) = 0.252372E+01
+ PKER_RACCS ( 17, 9) = 0.189638E+01
+ PKER_RACCS ( 17, 10) = 0.138992E+01
+ PKER_RACCS ( 17, 11) = 0.988667E+00
+ PKER_RACCS ( 17, 12) = 0.682152E+00
+ PKER_RACCS ( 17, 13) = 0.464420E+00
+ PKER_RACCS ( 17, 14) = 0.331500E+00
+ PKER_RACCS ( 17, 15) = 0.276277E+00
+ PKER_RACCS ( 17, 16) = 0.283984E+00
+ PKER_RACCS ( 17, 17) = 0.332552E+00
+ PKER_RACCS ( 17, 18) = 0.399103E+00
+ PKER_RACCS ( 17, 19) = 0.466619E+00
+ PKER_RACCS ( 17, 20) = 0.526765E+00
+ PKER_RACCS ( 17, 21) = 0.577417E+00
+ PKER_RACCS ( 17, 22) = 0.619256E+00
+ PKER_RACCS ( 17, 23) = 0.653670E+00
+ PKER_RACCS ( 17, 24) = 0.681980E+00
+ PKER_RACCS ( 17, 25) = 0.705292E+00
+ PKER_RACCS ( 17, 26) = 0.724504E+00
+ PKER_RACCS ( 17, 27) = 0.740347E+00
+ PKER_RACCS ( 17, 28) = 0.753420E+00
+ PKER_RACCS ( 17, 29) = 0.764213E+00
+ PKER_RACCS ( 17, 30) = 0.773125E+00
+ PKER_RACCS ( 17, 31) = 0.780488E+00
+ PKER_RACCS ( 17, 32) = 0.786572E+00
+ PKER_RACCS ( 17, 33) = 0.791600E+00
+ PKER_RACCS ( 17, 34) = 0.795757E+00
+ PKER_RACCS ( 17, 35) = 0.799193E+00
+ PKER_RACCS ( 17, 36) = 0.802034E+00
+ PKER_RACCS ( 17, 37) = 0.804383E+00
+ PKER_RACCS ( 17, 38) = 0.806326E+00
+ PKER_RACCS ( 17, 39) = 0.807933E+00
+ PKER_RACCS ( 17, 40) = 0.809262E+00
+ PKER_RACCS ( 18, 1) = 0.129333E+02
+ PKER_RACCS ( 18, 2) = 0.105271E+02
+ PKER_RACCS ( 18, 3) = 0.853146E+01
+ PKER_RACCS ( 18, 4) = 0.687626E+01
+ PKER_RACCS ( 18, 5) = 0.550368E+01
+ PKER_RACCS ( 18, 6) = 0.436630E+01
+ PKER_RACCS ( 18, 7) = 0.342530E+01
+ PKER_RACCS ( 18, 8) = 0.264904E+01
+ PKER_RACCS ( 18, 9) = 0.201178E+01
+ PKER_RACCS ( 18, 10) = 0.149285E+01
+ PKER_RACCS ( 18, 11) = 0.107638E+01
+ PKER_RACCS ( 18, 12) = 0.751372E+00
+ PKER_RACCS ( 18, 13) = 0.511541E+00
+ PKER_RACCS ( 18, 14) = 0.353453E+00
+ PKER_RACCS ( 18, 15) = 0.272312E+00
+ PKER_RACCS ( 18, 16) = 0.257799E+00
+ PKER_RACCS ( 18, 17) = 0.290956E+00
+ PKER_RACCS ( 18, 18) = 0.349339E+00
+ PKER_RACCS ( 18, 19) = 0.413950E+00
+ PKER_RACCS ( 18, 20) = 0.473752E+00
+ PKER_RACCS ( 18, 21) = 0.524859E+00
+ PKER_RACCS ( 18, 22) = 0.567227E+00
+ PKER_RACCS ( 18, 23) = 0.602062E+00
+ PKER_RACCS ( 18, 24) = 0.630684E+00
+ PKER_RACCS ( 18, 25) = 0.654223E+00
+ PKER_RACCS ( 18, 26) = 0.673602E+00
+ PKER_RACCS ( 18, 27) = 0.689569E+00
+ PKER_RACCS ( 18, 28) = 0.702735E+00
+ PKER_RACCS ( 18, 29) = 0.713597E+00
+ PKER_RACCS ( 18, 30) = 0.722563E+00
+ PKER_RACCS ( 18, 31) = 0.729966E+00
+ PKER_RACCS ( 18, 32) = 0.736081E+00
+ PKER_RACCS ( 18, 33) = 0.741133E+00
+ PKER_RACCS ( 18, 34) = 0.745307E+00
+ PKER_RACCS ( 18, 35) = 0.748758E+00
+ PKER_RACCS ( 18, 36) = 0.751610E+00
+ PKER_RACCS ( 18, 37) = 0.753968E+00
+ PKER_RACCS ( 18, 38) = 0.755918E+00
+ PKER_RACCS ( 18, 39) = 0.757530E+00
+ PKER_RACCS ( 18, 40) = 0.758863E+00
+ PKER_RACCS ( 19, 1) = 0.130431E+02
+ PKER_RACCS ( 19, 2) = 0.106402E+02
+ PKER_RACCS ( 19, 3) = 0.864775E+01
+ PKER_RACCS ( 19, 4) = 0.699514E+01
+ PKER_RACCS ( 19, 5) = 0.562421E+01
+ PKER_RACCS ( 19, 6) = 0.448713E+01
+ PKER_RACCS ( 19, 7) = 0.354462E+01
+ PKER_RACCS ( 19, 8) = 0.276465E+01
+ PKER_RACCS ( 19, 9) = 0.212123E+01
+ PKER_RACCS ( 19, 10) = 0.159349E+01
+ PKER_RACCS ( 19, 11) = 0.116527E+01
+ PKER_RACCS ( 19, 12) = 0.825092E+00
+ PKER_RACCS ( 19, 13) = 0.566015E+00
+ PKER_RACCS ( 19, 14) = 0.384740E+00
+ PKER_RACCS ( 19, 15) = 0.278832E+00
+ PKER_RACCS ( 19, 16) = 0.240974E+00
+ PKER_RACCS ( 19, 17) = 0.256376E+00
+ PKER_RACCS ( 19, 18) = 0.304351E+00
+ PKER_RACCS ( 19, 19) = 0.364630E+00
+ PKER_RACCS ( 19, 20) = 0.423528E+00
+ PKER_RACCS ( 19, 21) = 0.475006E+00
+ PKER_RACCS ( 19, 22) = 0.517969E+00
+ PKER_RACCS ( 19, 23) = 0.553309E+00
+ PKER_RACCS ( 19, 24) = 0.582308E+00
+ PKER_RACCS ( 19, 25) = 0.606123E+00
+ PKER_RACCS ( 19, 26) = 0.625706E+00
+ PKER_RACCS ( 19, 27) = 0.641824E+00
+ PKER_RACCS ( 19, 28) = 0.655102E+00
+ PKER_RACCS ( 19, 29) = 0.666049E+00
+ PKER_RACCS ( 19, 30) = 0.675078E+00
+ PKER_RACCS ( 19, 31) = 0.682529E+00
+ PKER_RACCS ( 19, 32) = 0.688681E+00
+ PKER_RACCS ( 19, 33) = 0.693761E+00
+ PKER_RACCS ( 19, 34) = 0.697958E+00
+ PKER_RACCS ( 19, 35) = 0.701425E+00
+ PKER_RACCS ( 19, 36) = 0.704291E+00
+ PKER_RACCS ( 19, 37) = 0.706659E+00
+ PKER_RACCS ( 19, 38) = 0.708616E+00
+ PKER_RACCS ( 19, 39) = 0.710235E+00
+ PKER_RACCS ( 19, 40) = 0.711573E+00
+ PKER_RACCS ( 20, 1) = 0.131354E+02
+ PKER_RACCS ( 20, 2) = 0.107355E+02
+ PKER_RACCS ( 20, 3) = 0.874600E+01
+ PKER_RACCS ( 20, 4) = 0.709612E+01
+ PKER_RACCS ( 20, 5) = 0.572748E+01
+ PKER_RACCS ( 20, 6) = 0.459194E+01
+ PKER_RACCS ( 20, 7) = 0.364986E+01
+ PKER_RACCS ( 20, 8) = 0.286876E+01
+ PKER_RACCS ( 20, 9) = 0.222228E+01
+ PKER_RACCS ( 20, 10) = 0.168914E+01
+ PKER_RACCS ( 20, 11) = 0.125273E+01
+ PKER_RACCS ( 20, 12) = 0.900916E+00
+ PKER_RACCS ( 20, 13) = 0.626108E+00
+ PKER_RACCS ( 20, 14) = 0.424677E+00
+ PKER_RACCS ( 20, 15) = 0.295132E+00
+ PKER_RACCS ( 20, 16) = 0.233643E+00
+ PKER_RACCS ( 20, 17) = 0.229493E+00
+ PKER_RACCS ( 20, 18) = 0.264675E+00
+ PKER_RACCS ( 20, 19) = 0.318862E+00
+ PKER_RACCS ( 20, 20) = 0.375999E+00
+ PKER_RACCS ( 20, 21) = 0.427627E+00
+ PKER_RACCS ( 20, 22) = 0.471227E+00
+ PKER_RACCS ( 20, 23) = 0.507163E+00
+ PKER_RACCS ( 20, 24) = 0.536620E+00
+ PKER_RACCS ( 20, 25) = 0.560772E+00
+ PKER_RACCS ( 20, 26) = 0.580601E+00
+ PKER_RACCS ( 20, 27) = 0.596902E+00
+ PKER_RACCS ( 20, 28) = 0.610316E+00
+ PKER_RACCS ( 20, 29) = 0.621365E+00
+ PKER_RACCS ( 20, 30) = 0.630471E+00
+ PKER_RACCS ( 20, 31) = 0.637980E+00
+ PKER_RACCS ( 20, 32) = 0.644176E+00
+ PKER_RACCS ( 20, 33) = 0.649291E+00
+ PKER_RACCS ( 20, 34) = 0.653514E+00
+ PKER_RACCS ( 20, 35) = 0.657001E+00
+ PKER_RACCS ( 20, 36) = 0.659882E+00
+ PKER_RACCS ( 20, 37) = 0.662263E+00
+ PKER_RACCS ( 20, 38) = 0.664230E+00
+ PKER_RACCS ( 20, 39) = 0.665856E+00
+ PKER_RACCS ( 20, 40) = 0.667200E+00
+ PKER_RACCS ( 21, 1) = 0.132135E+02
+ PKER_RACCS ( 21, 2) = 0.108161E+02
+ PKER_RACCS ( 21, 3) = 0.882908E+01
+ PKER_RACCS ( 21, 4) = 0.718173E+01
+ PKER_RACCS ( 21, 5) = 0.581548E+01
+ PKER_RACCS ( 21, 6) = 0.468198E+01
+ PKER_RACCS ( 21, 7) = 0.374134E+01
+ PKER_RACCS ( 21, 8) = 0.296075E+01
+ PKER_RACCS ( 21, 9) = 0.231341E+01
+ PKER_RACCS ( 21, 10) = 0.177762E+01
+ PKER_RACCS ( 21, 11) = 0.133622E+01
+ PKER_RACCS ( 21, 12) = 0.976327E+00
+ PKER_RACCS ( 21, 13) = 0.689420E+00
+ PKER_RACCS ( 21, 14) = 0.471297E+00
+ PKER_RACCS ( 21, 15) = 0.320744E+00
+ PKER_RACCS ( 21, 16) = 0.236090E+00
+ PKER_RACCS ( 21, 17) = 0.211045E+00
+ PKER_RACCS ( 21, 18) = 0.231118E+00
+ PKER_RACCS ( 21, 19) = 0.277043E+00
+ PKER_RACCS ( 21, 20) = 0.331193E+00
+ PKER_RACCS ( 21, 21) = 0.382553E+00
+ PKER_RACCS ( 21, 22) = 0.426763E+00
+ PKER_RACCS ( 21, 23) = 0.463386E+00
+ PKER_RACCS ( 21, 24) = 0.493392E+00
+ PKER_RACCS ( 21, 25) = 0.517952E+00
+ PKER_RACCS ( 21, 26) = 0.538082E+00
+ PKER_RACCS ( 21, 27) = 0.554604E+00
+ PKER_RACCS ( 21, 28) = 0.568182E+00
+ PKER_RACCS ( 21, 29) = 0.579354E+00
+ PKER_RACCS ( 21, 30) = 0.588552E+00
+ PKER_RACCS ( 21, 31) = 0.596132E+00
+ PKER_RACCS ( 21, 32) = 0.602382E+00
+ PKER_RACCS ( 21, 33) = 0.607537E+00
+ PKER_RACCS ( 21, 34) = 0.611791E+00
+ PKER_RACCS ( 21, 35) = 0.615303E+00
+ PKER_RACCS ( 21, 36) = 0.618203E+00
+ PKER_RACCS ( 21, 37) = 0.620598E+00
+ PKER_RACCS ( 21, 38) = 0.622577E+00
+ PKER_RACCS ( 21, 39) = 0.624211E+00
+ PKER_RACCS ( 21, 40) = 0.625562E+00
+ PKER_RACCS ( 22, 1) = 0.132798E+02
+ PKER_RACCS ( 22, 2) = 0.108845E+02
+ PKER_RACCS ( 22, 3) = 0.889959E+01
+ PKER_RACCS ( 22, 4) = 0.725443E+01
+ PKER_RACCS ( 22, 5) = 0.589038E+01
+ PKER_RACCS ( 22, 6) = 0.475897E+01
+ PKER_RACCS ( 22, 7) = 0.382015E+01
+ PKER_RACCS ( 22, 8) = 0.304089E+01
+ PKER_RACCS ( 22, 9) = 0.239407E+01
+ PKER_RACCS ( 22, 10) = 0.185760E+01
+ PKER_RACCS ( 22, 11) = 0.141374E+01
+ PKER_RACCS ( 22, 12) = 0.104887E+01
+ PKER_RACCS ( 22, 13) = 0.753499E+00
+ PKER_RACCS ( 22, 14) = 0.522329E+00
+ PKER_RACCS ( 22, 15) = 0.353784E+00
+ PKER_RACCS ( 22, 16) = 0.247949E+00
+ PKER_RACCS ( 22, 17) = 0.201539E+00
+ PKER_RACCS ( 22, 18) = 0.204361E+00
+ PKER_RACCS ( 22, 19) = 0.239684E+00
+ PKER_RACCS ( 22, 20) = 0.289251E+00
+ PKER_RACCS ( 22, 21) = 0.339660E+00
+ PKER_RACCS ( 22, 22) = 0.384359E+00
+ PKER_RACCS ( 22, 23) = 0.421741E+00
+ PKER_RACCS ( 22, 24) = 0.452400E+00
+ PKER_RACCS ( 22, 25) = 0.477452E+00
+ PKER_RACCS ( 22, 26) = 0.497945E+00
+ PKER_RACCS ( 22, 27) = 0.514735E+00
+ PKER_RACCS ( 22, 28) = 0.528513E+00
+ PKER_RACCS ( 22, 29) = 0.539833E+00
+ PKER_RACCS ( 22, 30) = 0.549144E+00
+ PKER_RACCS ( 22, 31) = 0.556808E+00
+ PKER_RACCS ( 22, 32) = 0.563122E+00
+ PKER_RACCS ( 22, 33) = 0.568326E+00
+ PKER_RACCS ( 22, 34) = 0.572618E+00
+ PKER_RACCS ( 22, 35) = 0.576159E+00
+ PKER_RACCS ( 22, 36) = 0.579081E+00
+ PKER_RACCS ( 22, 37) = 0.581494E+00
+ PKER_RACCS ( 22, 38) = 0.583486E+00
+ PKER_RACCS ( 22, 39) = 0.585131E+00
+ PKER_RACCS ( 22, 40) = 0.586491E+00
+ PKER_RACCS ( 23, 1) = 0.133366E+02
+ PKER_RACCS ( 23, 2) = 0.109429E+02
+ PKER_RACCS ( 23, 3) = 0.895974E+01
+ PKER_RACCS ( 23, 4) = 0.731641E+01
+ PKER_RACCS ( 23, 5) = 0.595424E+01
+ PKER_RACCS ( 23, 6) = 0.482474E+01
+ PKER_RACCS ( 23, 7) = 0.388776E+01
+ PKER_RACCS ( 23, 8) = 0.311014E+01
+ PKER_RACCS ( 23, 9) = 0.246454E+01
+ PKER_RACCS ( 23, 10) = 0.192855E+01
+ PKER_RACCS ( 23, 11) = 0.148402E+01
+ PKER_RACCS ( 23, 12) = 0.111665E+01
+ PKER_RACCS ( 23, 13) = 0.815949E+00
+ PKER_RACCS ( 23, 14) = 0.575486E+00
+ PKER_RACCS ( 23, 15) = 0.392736E+00
+ PKER_RACCS ( 23, 16) = 0.268002E+00
+ PKER_RACCS ( 23, 17) = 0.200817E+00
+ PKER_RACCS ( 23, 18) = 0.185099E+00
+ PKER_RACCS ( 23, 19) = 0.207499E+00
+ PKER_RACCS ( 23, 20) = 0.250540E+00
+ PKER_RACCS ( 23, 21) = 0.298964E+00
+ PKER_RACCS ( 23, 22) = 0.343839E+00
+ PKER_RACCS ( 23, 23) = 0.382006E+00
+ PKER_RACCS ( 23, 24) = 0.413421E+00
+ PKER_RACCS ( 23, 25) = 0.439064E+00
+ PKER_RACCS ( 23, 26) = 0.459995E+00
+ PKER_RACCS ( 23, 27) = 0.477110E+00
+ PKER_RACCS ( 23, 28) = 0.491128E+00
+ PKER_RACCS ( 23, 29) = 0.502628E+00
+ PKER_RACCS ( 23, 30) = 0.512073E+00
+ PKER_RACCS ( 23, 31) = 0.519839E+00
+ PKER_RACCS ( 23, 32) = 0.526230E+00
+ PKER_RACCS ( 23, 33) = 0.531494E+00
+ PKER_RACCS ( 23, 34) = 0.535831E+00
+ PKER_RACCS ( 23, 35) = 0.539407E+00
+ PKER_RACCS ( 23, 36) = 0.542356E+00
+ PKER_RACCS ( 23, 37) = 0.544789E+00
+ PKER_RACCS ( 23, 38) = 0.546798E+00
+ PKER_RACCS ( 23, 39) = 0.548456E+00
+ PKER_RACCS ( 23, 40) = 0.549825E+00
+ PKER_RACCS ( 24, 1) = 0.133856E+02
+ PKER_RACCS ( 24, 2) = 0.109932E+02
+ PKER_RACCS ( 24, 3) = 0.901139E+01
+ PKER_RACCS ( 24, 4) = 0.736953E+01
+ PKER_RACCS ( 24, 5) = 0.600893E+01
+ PKER_RACCS ( 24, 6) = 0.488106E+01
+ PKER_RACCS ( 24, 7) = 0.394574E+01
+ PKER_RACCS ( 24, 8) = 0.316975E+01
+ PKER_RACCS ( 24, 9) = 0.252560E+01
+ PKER_RACCS ( 24, 10) = 0.199071E+01
+ PKER_RACCS ( 24, 11) = 0.154659E+01
+ PKER_RACCS ( 24, 12) = 0.117842E+01
+ PKER_RACCS ( 24, 13) = 0.874907E+00
+ PKER_RACCS ( 24, 14) = 0.628390E+00
+ PKER_RACCS ( 24, 15) = 0.435189E+00
+ PKER_RACCS ( 24, 16) = 0.295029E+00
+ PKER_RACCS ( 24, 17) = 0.208644E+00
+ PKER_RACCS ( 24, 18) = 0.173887E+00
+ PKER_RACCS ( 24, 19) = 0.181362E+00
+ PKER_RACCS ( 24, 20) = 0.215635E+00
+ PKER_RACCS ( 24, 21) = 0.260621E+00
+ PKER_RACCS ( 24, 22) = 0.305109E+00
+ PKER_RACCS ( 24, 23) = 0.343981E+00
+ PKER_RACCS ( 24, 24) = 0.376241E+00
+ PKER_RACCS ( 24, 25) = 0.402580E+00
+ PKER_RACCS ( 24, 26) = 0.424037E+00
+ PKER_RACCS ( 24, 27) = 0.441543E+00
+ PKER_RACCS ( 24, 28) = 0.455853E+00
+ PKER_RACCS ( 24, 29) = 0.467570E+00
+ PKER_RACCS ( 24, 30) = 0.477178E+00
+ PKER_RACCS ( 24, 31) = 0.485066E+00
+ PKER_RACCS ( 24, 32) = 0.491550E+00
+ PKER_RACCS ( 24, 33) = 0.496884E+00
+ PKER_RACCS ( 24, 34) = 0.501276E+00
+ PKER_RACCS ( 24, 35) = 0.504893E+00
+ PKER_RACCS ( 24, 36) = 0.507875E+00
+ PKER_RACCS ( 24, 37) = 0.510333E+00
+ PKER_RACCS ( 24, 38) = 0.512361E+00
+ PKER_RACCS ( 24, 39) = 0.514034E+00
+ PKER_RACCS ( 24, 40) = 0.515415E+00
+ PKER_RACCS ( 25, 1) = 0.134282E+02
+ PKER_RACCS ( 25, 2) = 0.110367E+02
+ PKER_RACCS ( 25, 3) = 0.905605E+01
+ PKER_RACCS ( 25, 4) = 0.741536E+01
+ PKER_RACCS ( 25, 5) = 0.605602E+01
+ PKER_RACCS ( 25, 6) = 0.492950E+01
+ PKER_RACCS ( 25, 7) = 0.399560E+01
+ PKER_RACCS ( 25, 8) = 0.322106E+01
+ PKER_RACCS ( 25, 9) = 0.257835E+01
+ PKER_RACCS ( 25, 10) = 0.204475E+01
+ PKER_RACCS ( 25, 11) = 0.160158E+01
+ PKER_RACCS ( 25, 12) = 0.123366E+01
+ PKER_RACCS ( 25, 13) = 0.929054E+00
+ PKER_RACCS ( 25, 14) = 0.679123E+00
+ PKER_RACCS ( 25, 15) = 0.478799E+00
+ PKER_RACCS ( 25, 16) = 0.326698E+00
+ PKER_RACCS ( 25, 17) = 0.224072E+00
+ PKER_RACCS ( 25, 18) = 0.170932E+00
+ PKER_RACCS ( 25, 19) = 0.161993E+00
+ PKER_RACCS ( 25, 20) = 0.185227E+00
+ PKER_RACCS ( 25, 21) = 0.224972E+00
+ PKER_RACCS ( 25, 22) = 0.268163E+00
+ PKER_RACCS ( 25, 23) = 0.307509E+00
+ PKER_RACCS ( 25, 24) = 0.340657E+00
+ PKER_RACCS ( 25, 25) = 0.367801E+00
+ PKER_RACCS ( 25, 26) = 0.389883E+00
+ PKER_RACCS ( 25, 27) = 0.407857E+00
+ PKER_RACCS ( 25, 28) = 0.422517E+00
+ PKER_RACCS ( 25, 29) = 0.434495E+00
+ PKER_RACCS ( 25, 30) = 0.444299E+00
+ PKER_RACCS ( 25, 31) = 0.452336E+00
+ PKER_RACCS ( 25, 32) = 0.458931E+00
+ PKER_RACCS ( 25, 33) = 0.464351E+00
+ PKER_RACCS ( 25, 34) = 0.468807E+00
+ PKER_RACCS ( 25, 35) = 0.472474E+00
+ PKER_RACCS ( 25, 36) = 0.475494E+00
+ PKER_RACCS ( 25, 37) = 0.477983E+00
+ PKER_RACCS ( 25, 38) = 0.480033E+00
+ PKER_RACCS ( 25, 39) = 0.481725E+00
+ PKER_RACCS ( 25, 40) = 0.483120E+00
+ PKER_RACCS ( 26, 1) = 0.134654E+02
+ PKER_RACCS ( 26, 2) = 0.110748E+02
+ PKER_RACCS ( 26, 3) = 0.909494E+01
+ PKER_RACCS ( 26, 4) = 0.745518E+01
+ PKER_RACCS ( 26, 5) = 0.609685E+01
+ PKER_RACCS ( 26, 6) = 0.497141E+01
+ PKER_RACCS ( 26, 7) = 0.403868E+01
+ PKER_RACCS ( 26, 8) = 0.326538E+01
+ PKER_RACCS ( 26, 9) = 0.262395E+01
+ PKER_RACCS ( 26, 10) = 0.209161E+01
+ PKER_RACCS ( 26, 11) = 0.164957E+01
+ PKER_RACCS ( 26, 12) = 0.128242E+01
+ PKER_RACCS ( 26, 13) = 0.977793E+00
+ PKER_RACCS ( 26, 14) = 0.726272E+00
+ PKER_RACCS ( 26, 15) = 0.521639E+00
+ PKER_RACCS ( 26, 16) = 0.361153E+00
+ PKER_RACCS ( 26, 17) = 0.245274E+00
+ PKER_RACCS ( 26, 18) = 0.175476E+00
+ PKER_RACCS ( 26, 19) = 0.149840E+00
+ PKER_RACCS ( 26, 20) = 0.160130E+00
+ PKER_RACCS ( 26, 21) = 0.192585E+00
+ PKER_RACCS ( 26, 22) = 0.233191E+00
+ PKER_RACCS ( 26, 23) = 0.272508E+00
+ PKER_RACCS ( 26, 24) = 0.306495E+00
+ PKER_RACCS ( 26, 25) = 0.334534E+00
+ PKER_RACCS ( 26, 26) = 0.357345E+00
+ PKER_RACCS ( 26, 27) = 0.375875E+00
+ PKER_RACCS ( 26, 28) = 0.390953E+00
+ PKER_RACCS ( 26, 29) = 0.403245E+00
+ PKER_RACCS ( 26, 30) = 0.413285E+00
+ PKER_RACCS ( 26, 31) = 0.421500E+00
+ PKER_RACCS ( 26, 32) = 0.428230E+00
+ PKER_RACCS ( 26, 33) = 0.433752E+00
+ PKER_RACCS ( 26, 34) = 0.438286E+00
+ PKER_RACCS ( 26, 35) = 0.442014E+00
+ PKER_RACCS ( 26, 36) = 0.445080E+00
+ PKER_RACCS ( 26, 37) = 0.447604E+00
+ PKER_RACCS ( 26, 38) = 0.449682E+00
+ PKER_RACCS ( 26, 39) = 0.451395E+00
+ PKER_RACCS ( 26, 40) = 0.452806E+00
+ PKER_RACCS ( 27, 1) = 0.134982E+02
+ PKER_RACCS ( 27, 2) = 0.111082E+02
+ PKER_RACCS ( 27, 3) = 0.912906E+01
+ PKER_RACCS ( 27, 4) = 0.749002E+01
+ PKER_RACCS ( 27, 5) = 0.613249E+01
+ PKER_RACCS ( 27, 6) = 0.500792E+01
+ PKER_RACCS ( 27, 7) = 0.407612E+01
+ PKER_RACCS ( 27, 8) = 0.330383E+01
+ PKER_RACCS ( 27, 9) = 0.266348E+01
+ PKER_RACCS ( 27, 10) = 0.213226E+01
+ PKER_RACCS ( 27, 11) = 0.169133E+01
+ PKER_RACCS ( 27, 12) = 0.132514E+01
+ PKER_RACCS ( 27, 13) = 0.102106E+01
+ PKER_RACCS ( 27, 14) = 0.769137E+00
+ PKER_RACCS ( 27, 15) = 0.562205E+00
+ PKER_RACCS ( 27, 16) = 0.396278E+00
+ PKER_RACCS ( 27, 17) = 0.270632E+00
+ PKER_RACCS ( 27, 18) = 0.186633E+00
+ PKER_RACCS ( 27, 19) = 0.144971E+00
+ PKER_RACCS ( 27, 20) = 0.141101E+00
+ PKER_RACCS ( 27, 21) = 0.164198E+00
+ PKER_RACCS ( 27, 22) = 0.200541E+00
+ PKER_RACCS ( 27, 23) = 0.239024E+00
+ PKER_RACCS ( 27, 24) = 0.273633E+00
+ PKER_RACCS ( 27, 25) = 0.302606E+00
+ PKER_RACCS ( 27, 26) = 0.326245E+00
+ PKER_RACCS ( 27, 27) = 0.345426E+00
+ PKER_RACCS ( 27, 28) = 0.360998E+00
+ PKER_RACCS ( 27, 29) = 0.373665E+00
+ PKER_RACCS ( 27, 30) = 0.383988E+00
+ PKER_RACCS ( 27, 31) = 0.392416E+00
+ PKER_RACCS ( 27, 32) = 0.399309E+00
+ PKER_RACCS ( 27, 33) = 0.404953E+00
+ PKER_RACCS ( 27, 34) = 0.409582E+00
+ PKER_RACCS ( 27, 35) = 0.413381E+00
+ PKER_RACCS ( 27, 36) = 0.416502E+00
+ PKER_RACCS ( 27, 37) = 0.419069E+00
+ PKER_RACCS ( 27, 38) = 0.421180E+00
+ PKER_RACCS ( 27, 39) = 0.422919E+00
+ PKER_RACCS ( 27, 40) = 0.424350E+00
+ PKER_RACCS ( 28, 1) = 0.135274E+02
+ PKER_RACCS ( 28, 2) = 0.111378E+02
+ PKER_RACCS ( 28, 3) = 0.915921E+01
+ PKER_RACCS ( 28, 4) = 0.752074E+01
+ PKER_RACCS ( 28, 5) = 0.616383E+01
+ PKER_RACCS ( 28, 6) = 0.503993E+01
+ PKER_RACCS ( 28, 7) = 0.410888E+01
+ PKER_RACCS ( 28, 8) = 0.333740E+01
+ PKER_RACCS ( 28, 9) = 0.269793E+01
+ PKER_RACCS ( 28, 10) = 0.216766E+01
+ PKER_RACCS ( 28, 11) = 0.172770E+01
+ PKER_RACCS ( 28, 12) = 0.136247E+01
+ PKER_RACCS ( 28, 13) = 0.105916E+01
+ PKER_RACCS ( 28, 14) = 0.807478E+00
+ PKER_RACCS ( 28, 15) = 0.599612E+00
+ PKER_RACCS ( 28, 16) = 0.430446E+00
+ PKER_RACCS ( 28, 17) = 0.297946E+00
+ PKER_RACCS ( 28, 18) = 0.202996E+00
+ PKER_RACCS ( 28, 19) = 0.147037E+00
+ PKER_RACCS ( 28, 20) = 0.128608E+00
+ PKER_RACCS ( 28, 21) = 0.140561E+00
+ PKER_RACCS ( 28, 22) = 0.170776E+00
+ PKER_RACCS ( 28, 23) = 0.207238E+00
+ PKER_RACCS ( 28, 24) = 0.242027E+00
+ PKER_RACCS ( 28, 25) = 0.271878E+00
+ PKER_RACCS ( 28, 26) = 0.296420E+00
+ PKER_RACCS ( 28, 27) = 0.316343E+00
+ PKER_RACCS ( 28, 28) = 0.332495E+00
+ PKER_RACCS ( 28, 29) = 0.345604E+00
+ PKER_RACCS ( 28, 30) = 0.356264E+00
+ PKER_RACCS ( 28, 31) = 0.364948E+00
+ PKER_RACCS ( 28, 32) = 0.372034E+00
+ PKER_RACCS ( 28, 33) = 0.377826E+00
+ PKER_RACCS ( 28, 34) = 0.382567E+00
+ PKER_RACCS ( 28, 35) = 0.386453E+00
+ PKER_RACCS ( 28, 36) = 0.389640E+00
+ PKER_RACCS ( 28, 37) = 0.392258E+00
+ PKER_RACCS ( 28, 38) = 0.394409E+00
+ PKER_RACCS ( 28, 39) = 0.396178E+00
+ PKER_RACCS ( 28, 40) = 0.397634E+00
+ PKER_RACCS ( 29, 1) = 0.135534E+02
+ PKER_RACCS ( 29, 2) = 0.111642E+02
+ PKER_RACCS ( 29, 3) = 0.918602E+01
+ PKER_RACCS ( 29, 4) = 0.754800E+01
+ PKER_RACCS ( 29, 5) = 0.619157E+01
+ PKER_RACCS ( 29, 6) = 0.506821E+01
+ PKER_RACCS ( 29, 7) = 0.413774E+01
+ PKER_RACCS ( 29, 8) = 0.336690E+01
+ PKER_RACCS ( 29, 9) = 0.272813E+01
+ PKER_RACCS ( 29, 10) = 0.219863E+01
+ PKER_RACCS ( 29, 11) = 0.175950E+01
+ PKER_RACCS ( 29, 12) = 0.139512E+01
+ PKER_RACCS ( 29, 13) = 0.109261E+01
+ PKER_RACCS ( 29, 14) = 0.841468E+00
+ PKER_RACCS ( 29, 15) = 0.633435E+00
+ PKER_RACCS ( 29, 16) = 0.462611E+00
+ PKER_RACCS ( 29, 17) = 0.325782E+00
+ PKER_RACCS ( 29, 18) = 0.222601E+00
+ PKER_RACCS ( 29, 19) = 0.154703E+00
+ PKER_RACCS ( 29, 20) = 0.122560E+00
+ PKER_RACCS ( 29, 21) = 0.122340E+00
+ PKER_RACCS ( 29, 22) = 0.144604E+00
+ PKER_RACCS ( 29, 23) = 0.177555E+00
+ PKER_RACCS ( 29, 24) = 0.211757E+00
+ PKER_RACCS ( 29, 25) = 0.242272E+00
+ PKER_RACCS ( 29, 26) = 0.267732E+00
+ PKER_RACCS ( 29, 27) = 0.288477E+00
+ PKER_RACCS ( 29, 28) = 0.305290E+00
+ PKER_RACCS ( 29, 29) = 0.318915E+00
+ PKER_RACCS ( 29, 30) = 0.329972E+00
+ PKER_RACCS ( 29, 31) = 0.338960E+00
+ PKER_RACCS ( 29, 32) = 0.346278E+00
+ PKER_RACCS ( 29, 33) = 0.352247E+00
+ PKER_RACCS ( 29, 34) = 0.357123E+00
+ PKER_RACCS ( 29, 35) = 0.361112E+00
+ PKER_RACCS ( 29, 36) = 0.364379E+00
+ PKER_RACCS ( 29, 37) = 0.367058E+00
+ PKER_RACCS ( 29, 38) = 0.369256E+00
+ PKER_RACCS ( 29, 39) = 0.371062E+00
+ PKER_RACCS ( 29, 40) = 0.372546E+00
+ PKER_RACCS ( 30, 1) = 0.135768E+02
+ PKER_RACCS ( 30, 2) = 0.111879E+02
+ PKER_RACCS ( 30, 3) = 0.921003E+01
+ PKER_RACCS ( 30, 4) = 0.757236E+01
+ PKER_RACCS ( 30, 5) = 0.621631E+01
+ PKER_RACCS ( 30, 6) = 0.509336E+01
+ PKER_RACCS ( 30, 7) = 0.416334E+01
+ PKER_RACCS ( 30, 8) = 0.339300E+01
+ PKER_RACCS ( 30, 9) = 0.275479E+01
+ PKER_RACCS ( 30, 10) = 0.222590E+01
+ PKER_RACCS ( 30, 11) = 0.178745E+01
+ PKER_RACCS ( 30, 12) = 0.142379E+01
+ PKER_RACCS ( 30, 13) = 0.112200E+01
+ PKER_RACCS ( 30, 14) = 0.871483E+00
+ PKER_RACCS ( 30, 15) = 0.663698E+00
+ PKER_RACCS ( 30, 16) = 0.492181E+00
+ PKER_RACCS ( 30, 17) = 0.352805E+00
+ PKER_RACCS ( 30, 18) = 0.244068E+00
+ PKER_RACCS ( 30, 19) = 0.166744E+00
+ PKER_RACCS ( 30, 20) = 0.122426E+00
+ PKER_RACCS ( 30, 21) = 0.109881E+00
+ PKER_RACCS ( 30, 22) = 0.122731E+00
+ PKER_RACCS ( 30, 23) = 0.150504E+00
+ PKER_RACCS ( 30, 24) = 0.183063E+00
+ PKER_RACCS ( 30, 25) = 0.213801E+00
+ PKER_RACCS ( 30, 26) = 0.240093E+00
+ PKER_RACCS ( 30, 27) = 0.261699E+00
+ PKER_RACCS ( 30, 28) = 0.279244E+00
+ PKER_RACCS ( 30, 29) = 0.293457E+00
+ PKER_RACCS ( 30, 30) = 0.304976E+00
+ PKER_RACCS ( 30, 31) = 0.314321E+00
+ PKER_RACCS ( 30, 32) = 0.321915E+00
+ PKER_RACCS ( 30, 33) = 0.328094E+00
+ PKER_RACCS ( 30, 34) = 0.333132E+00
+ PKER_RACCS ( 30, 35) = 0.337244E+00
+ PKER_RACCS ( 30, 36) = 0.340607E+00
+ PKER_RACCS ( 30, 37) = 0.343359E+00
+ PKER_RACCS ( 30, 38) = 0.345614E+00
+ PKER_RACCS ( 30, 39) = 0.347463E+00
+ PKER_RACCS ( 30, 40) = 0.348981E+00
+ PKER_RACCS ( 31, 1) = 0.135979E+02
+ PKER_RACCS ( 31, 2) = 0.112093E+02
+ PKER_RACCS ( 31, 3) = 0.923164E+01
+ PKER_RACCS ( 31, 4) = 0.759424E+01
+ PKER_RACCS ( 31, 5) = 0.623849E+01
+ PKER_RACCS ( 31, 6) = 0.511586E+01
+ PKER_RACCS ( 31, 7) = 0.418620E+01
+ PKER_RACCS ( 31, 8) = 0.341625E+01
+ PKER_RACCS ( 31, 9) = 0.277847E+01
+ PKER_RACCS ( 31, 10) = 0.225007E+01
+ PKER_RACCS ( 31, 11) = 0.181215E+01
+ PKER_RACCS ( 31, 12) = 0.144907E+01
+ PKER_RACCS ( 31, 13) = 0.114791E+01
+ PKER_RACCS ( 31, 14) = 0.897986E+00
+ PKER_RACCS ( 31, 15) = 0.690615E+00
+ PKER_RACCS ( 31, 16) = 0.518979E+00
+ PKER_RACCS ( 31, 17) = 0.378230E+00
+ PKER_RACCS ( 31, 18) = 0.265830E+00
+ PKER_RACCS ( 31, 19) = 0.181772E+00
+ PKER_RACCS ( 31, 20) = 0.127410E+00
+ PKER_RACCS ( 31, 21) = 0.103164E+00
+ PKER_RACCS ( 31, 22) = 0.105685E+00
+ PKER_RACCS ( 31, 23) = 0.126731E+00
+ PKER_RACCS ( 31, 24) = 0.156328E+00
+ PKER_RACCS ( 31, 25) = 0.186597E+00
+ PKER_RACCS ( 31, 26) = 0.213480E+00
+ PKER_RACCS ( 31, 27) = 0.235920E+00
+ PKER_RACCS ( 31, 28) = 0.254239E+00
+ PKER_RACCS ( 31, 29) = 0.269103E+00
+ PKER_RACCS ( 31, 30) = 0.281146E+00
+ PKER_RACCS ( 31, 31) = 0.290906E+00
+ PKER_RACCS ( 31, 32) = 0.298823E+00
+ PKER_RACCS ( 31, 33) = 0.305252E+00
+ PKER_RACCS ( 31, 34) = 0.310482E+00
+ PKER_RACCS ( 31, 35) = 0.314742E+00
+ PKER_RACCS ( 31, 36) = 0.318218E+00
+ PKER_RACCS ( 31, 37) = 0.321058E+00
+ PKER_RACCS ( 31, 38) = 0.323381E+00
+ PKER_RACCS ( 31, 39) = 0.325283E+00
+ PKER_RACCS ( 31, 40) = 0.326842E+00
+ PKER_RACCS ( 32, 1) = 0.136171E+02
+ PKER_RACCS ( 32, 2) = 0.112287E+02
+ PKER_RACCS ( 32, 3) = 0.925121E+01
+ PKER_RACCS ( 32, 4) = 0.761402E+01
+ PKER_RACCS ( 32, 5) = 0.625849E+01
+ PKER_RACCS ( 32, 6) = 0.513612E+01
+ PKER_RACCS ( 32, 7) = 0.420673E+01
+ PKER_RACCS ( 32, 8) = 0.343709E+01
+ PKER_RACCS ( 32, 9) = 0.279965E+01
+ PKER_RACCS ( 32, 10) = 0.227162E+01
+ PKER_RACCS ( 32, 11) = 0.183412E+01
+ PKER_RACCS ( 32, 12) = 0.147151E+01
+ PKER_RACCS ( 32, 13) = 0.117086E+01
+ PKER_RACCS ( 32, 14) = 0.921455E+00
+ PKER_RACCS ( 32, 15) = 0.714531E+00
+ PKER_RACCS ( 32, 16) = 0.543039E+00
+ PKER_RACCS ( 32, 17) = 0.401678E+00
+ PKER_RACCS ( 32, 18) = 0.287113E+00
+ PKER_RACCS ( 32, 19) = 0.198241E+00
+ PKER_RACCS ( 32, 20) = 0.136014E+00
+ PKER_RACCS ( 32, 21) = 0.101554E+00
+ PKER_RACCS ( 32, 22) = 0.937042E-01
+ PKER_RACCS ( 32, 23) = 0.106837E+00
+ PKER_RACCS ( 32, 24) = 0.132081E+00
+ PKER_RACCS ( 32, 25) = 0.160921E+00
+ PKER_RACCS ( 32, 26) = 0.187964E+00
+ PKER_RACCS ( 32, 27) = 0.211107E+00
+ PKER_RACCS ( 32, 28) = 0.230192E+00
+ PKER_RACCS ( 32, 29) = 0.245743E+00
+ PKER_RACCS ( 32, 30) = 0.258364E+00
+ PKER_RACCS ( 32, 31) = 0.268595E+00
+ PKER_RACCS ( 32, 32) = 0.276885E+00
+ PKER_RACCS ( 32, 33) = 0.283607E+00
+ PKER_RACCS ( 32, 34) = 0.289064E+00
+ PKER_RACCS ( 32, 35) = 0.293500E+00
+ PKER_RACCS ( 32, 36) = 0.297112E+00
+ PKER_RACCS ( 32, 37) = 0.300056E+00
+ PKER_RACCS ( 32, 38) = 0.302460E+00
+ PKER_RACCS ( 32, 39) = 0.304425E+00
+ PKER_RACCS ( 32, 40) = 0.306032E+00
+ PKER_RACCS ( 33, 1) = 0.136346E+02
+ PKER_RACCS ( 33, 2) = 0.112463E+02
+ PKER_RACCS ( 33, 3) = 0.926900E+01
+ PKER_RACCS ( 33, 4) = 0.763198E+01
+ PKER_RACCS ( 33, 5) = 0.627663E+01
+ PKER_RACCS ( 33, 6) = 0.515445E+01
+ PKER_RACCS ( 33, 7) = 0.422528E+01
+ PKER_RACCS ( 33, 8) = 0.345587E+01
+ PKER_RACCS ( 33, 9) = 0.281869E+01
+ PKER_RACCS ( 33, 10) = 0.229096E+01
+ PKER_RACCS ( 33, 11) = 0.185378E+01
+ PKER_RACCS ( 33, 12) = 0.149154E+01
+ PKER_RACCS ( 33, 13) = 0.119129E+01
+ PKER_RACCS ( 33, 14) = 0.942327E+00
+ PKER_RACCS ( 33, 15) = 0.735819E+00
+ PKER_RACCS ( 33, 16) = 0.564593E+00
+ PKER_RACCS ( 33, 17) = 0.423036E+00
+ PKER_RACCS ( 33, 18) = 0.307249E+00
+ PKER_RACCS ( 33, 19) = 0.215289E+00
+ PKER_RACCS ( 33, 20) = 0.147152E+00
+ PKER_RACCS ( 33, 21) = 0.104182E+00
+ PKER_RACCS ( 33, 22) = 0.866062E-01
+ PKER_RACCS ( 33, 23) = 0.912133E-01
+ PKER_RACCS ( 33, 24) = 0.110827E+00
+ PKER_RACCS ( 33, 25) = 0.137151E+00
+ PKER_RACCS ( 33, 26) = 0.163721E+00
+ PKER_RACCS ( 33, 27) = 0.187299E+00
+ PKER_RACCS ( 33, 28) = 0.207066E+00
+ PKER_RACCS ( 33, 29) = 0.223299E+00
+ PKER_RACCS ( 33, 30) = 0.236530E+00
+ PKER_RACCS ( 33, 31) = 0.247276E+00
+ PKER_RACCS ( 33, 32) = 0.255989E+00
+ PKER_RACCS ( 33, 33) = 0.263049E+00
+ PKER_RACCS ( 33, 34) = 0.268773E+00
+ PKER_RACCS ( 33, 35) = 0.273417E+00
+ PKER_RACCS ( 33, 36) = 0.277189E+00
+ PKER_RACCS ( 33, 37) = 0.280259E+00
+ PKER_RACCS ( 33, 38) = 0.282759E+00
+ PKER_RACCS ( 33, 39) = 0.284799E+00
+ PKER_RACCS ( 33, 40) = 0.286464E+00
+ PKER_RACCS ( 34, 1) = 0.136506E+02
+ PKER_RACCS ( 34, 2) = 0.112624E+02
+ PKER_RACCS ( 34, 3) = 0.928526E+01
+ PKER_RACCS ( 34, 4) = 0.764836E+01
+ PKER_RACCS ( 34, 5) = 0.629315E+01
+ PKER_RACCS ( 34, 6) = 0.517112E+01
+ PKER_RACCS ( 34, 7) = 0.424212E+01
+ PKER_RACCS ( 34, 8) = 0.347289E+01
+ PKER_RACCS ( 34, 9) = 0.283592E+01
+ PKER_RACCS ( 34, 10) = 0.230841E+01
+ PKER_RACCS ( 34, 11) = 0.187149E+01
+ PKER_RACCS ( 34, 12) = 0.150954E+01
+ PKER_RACCS ( 34, 13) = 0.120961E+01
+ PKER_RACCS ( 34, 14) = 0.960988E+00
+ PKER_RACCS ( 34, 15) = 0.754836E+00
+ PKER_RACCS ( 34, 16) = 0.583898E+00
+ PKER_RACCS ( 34, 17) = 0.442381E+00
+ PKER_RACCS ( 34, 18) = 0.325954E+00
+ PKER_RACCS ( 34, 19) = 0.231985E+00
+ PKER_RACCS ( 34, 20) = 0.159811E+00
+ PKER_RACCS ( 34, 21) = 0.110179E+00
+ PKER_RACCS ( 34, 22) = 0.839648E-01
+ PKER_RACCS ( 34, 23) = 0.799523E-01
+ PKER_RACCS ( 34, 24) = 0.930316E-01
+ PKER_RACCS ( 34, 25) = 0.115716E+00
+ PKER_RACCS ( 34, 26) = 0.141020E+00
+ PKER_RACCS ( 34, 27) = 0.164617E+00
+ PKER_RACCS ( 34, 28) = 0.184890E+00
+ PKER_RACCS ( 34, 29) = 0.201739E+00
+ PKER_RACCS ( 34, 30) = 0.215571E+00
+ PKER_RACCS ( 34, 31) = 0.226859E+00
+ PKER_RACCS ( 34, 32) = 0.236034E+00
+ PKER_RACCS ( 34, 33) = 0.243476E+00
+ PKER_RACCS ( 34, 34) = 0.249506E+00
+ PKER_RACCS ( 34, 35) = 0.254393E+00
+ PKER_RACCS ( 34, 36) = 0.258356E+00
+ PKER_RACCS ( 34, 37) = 0.261573E+00
+ PKER_RACCS ( 34, 38) = 0.264188E+00
+ PKER_RACCS ( 34, 39) = 0.266317E+00
+ PKER_RACCS ( 34, 40) = 0.268052E+00
+ PKER_RACCS ( 35, 1) = 0.136654E+02
+ PKER_RACCS ( 35, 2) = 0.112772E+02
+ PKER_RACCS ( 35, 3) = 0.930016E+01
+ PKER_RACCS ( 35, 4) = 0.766336E+01
+ PKER_RACCS ( 35, 5) = 0.630826E+01
+ PKER_RACCS ( 35, 6) = 0.518635E+01
+ PKER_RACCS ( 35, 7) = 0.425748E+01
+ PKER_RACCS ( 35, 8) = 0.348839E+01
+ PKER_RACCS ( 35, 9) = 0.285158E+01
+ PKER_RACCS ( 35, 10) = 0.232424E+01
+ PKER_RACCS ( 35, 11) = 0.188752E+01
+ PKER_RACCS ( 35, 12) = 0.152579E+01
+ PKER_RACCS ( 35, 13) = 0.122610E+01
+ PKER_RACCS ( 35, 14) = 0.977764E+00
+ PKER_RACCS ( 35, 15) = 0.771907E+00
+ PKER_RACCS ( 35, 16) = 0.601238E+00
+ PKER_RACCS ( 35, 17) = 0.459844E+00
+ PKER_RACCS ( 35, 18) = 0.343143E+00
+ PKER_RACCS ( 35, 19) = 0.248008E+00
+ PKER_RACCS ( 35, 20) = 0.172966E+00
+ PKER_RACCS ( 35, 21) = 0.118299E+00
+ PKER_RACCS ( 35, 22) = 0.849398E-01
+ PKER_RACCS ( 35, 23) = 0.728604E-01
+ PKER_RACCS ( 35, 24) = 0.789443E-01
+ PKER_RACCS ( 35, 25) = 0.970290E-01
+ PKER_RACCS ( 35, 26) = 0.120181E+00
+ PKER_RACCS ( 35, 27) = 0.143256E+00
+ PKER_RACCS ( 35, 28) = 0.163755E+00
+ PKER_RACCS ( 35, 29) = 0.181083E+00
+ PKER_RACCS ( 35, 30) = 0.195458E+00
+ PKER_RACCS ( 35, 31) = 0.207277E+00
+ PKER_RACCS ( 35, 32) = 0.216935E+00
+ PKER_RACCS ( 35, 33) = 0.224793E+00
+ PKER_RACCS ( 35, 34) = 0.231168E+00
+ PKER_RACCS ( 35, 35) = 0.236333E+00
+ PKER_RACCS ( 35, 36) = 0.240518E+00
+ PKER_RACCS ( 35, 37) = 0.243910E+00
+ PKER_RACCS ( 35, 38) = 0.246662E+00
+ PKER_RACCS ( 35, 39) = 0.248897E+00
+ PKER_RACCS ( 35, 40) = 0.250714E+00
+ PKER_RACCS ( 36, 1) = 0.136789E+02
+ PKER_RACCS ( 36, 2) = 0.112909E+02
+ PKER_RACCS ( 36, 3) = 0.931386E+01
+ PKER_RACCS ( 36, 4) = 0.767715E+01
+ PKER_RACCS ( 36, 5) = 0.632213E+01
+ PKER_RACCS ( 36, 6) = 0.520031E+01
+ PKER_RACCS ( 36, 7) = 0.427154E+01
+ PKER_RACCS ( 36, 8) = 0.350256E+01
+ PKER_RACCS ( 36, 9) = 0.286587E+01
+ PKER_RACCS ( 36, 10) = 0.233867E+01
+ PKER_RACCS ( 36, 11) = 0.190210E+01
+ PKER_RACCS ( 36, 12) = 0.154054E+01
+ PKER_RACCS ( 36, 13) = 0.124105E+01
+ PKER_RACCS ( 36, 14) = 0.992926E+00
+ PKER_RACCS ( 36, 15) = 0.787304E+00
+ PKER_RACCS ( 36, 16) = 0.616868E+00
+ PKER_RACCS ( 36, 17) = 0.475637E+00
+ PKER_RACCS ( 36, 18) = 0.358852E+00
+ PKER_RACCS ( 36, 19) = 0.263041E+00
+ PKER_RACCS ( 36, 20) = 0.186190E+00
+ PKER_RACCS ( 36, 21) = 0.127793E+00
+ PKER_RACCS ( 36, 22) = 0.886866E-01
+ PKER_RACCS ( 36, 23) = 0.694465E-01
+ PKER_RACCS ( 36, 24) = 0.685545E-01
+ PKER_RACCS ( 36, 25) = 0.813394E-01
+ PKER_RACCS ( 36, 26) = 0.101516E+00
+ PKER_RACCS ( 36, 27) = 0.123451E+00
+ PKER_RACCS ( 36, 28) = 0.143809E+00
+ PKER_RACCS ( 36, 29) = 0.161408E+00
+ PKER_RACCS ( 36, 30) = 0.176207E+00
+ PKER_RACCS ( 36, 31) = 0.188501E+00
+ PKER_RACCS ( 36, 32) = 0.198630E+00
+ PKER_RACCS ( 36, 33) = 0.206920E+00
+ PKER_RACCS ( 36, 34) = 0.213670E+00
+ PKER_RACCS ( 36, 35) = 0.219149E+00
+ PKER_RACCS ( 36, 36) = 0.223589E+00
+ PKER_RACCS ( 36, 37) = 0.227184E+00
+ PKER_RACCS ( 36, 38) = 0.230096E+00
+ PKER_RACCS ( 36, 39) = 0.232457E+00
+ PKER_RACCS ( 36, 40) = 0.234373E+00
+ PKER_RACCS ( 37, 1) = 0.136915E+02
+ PKER_RACCS ( 37, 2) = 0.113034E+02
+ PKER_RACCS ( 37, 3) = 0.932650E+01
+ PKER_RACCS ( 37, 4) = 0.768985E+01
+ PKER_RACCS ( 37, 5) = 0.633490E+01
+ PKER_RACCS ( 37, 6) = 0.521316E+01
+ PKER_RACCS ( 37, 7) = 0.428446E+01
+ PKER_RACCS ( 37, 8) = 0.351557E+01
+ PKER_RACCS ( 37, 9) = 0.287897E+01
+ PKER_RACCS ( 37, 10) = 0.235188E+01
+ PKER_RACCS ( 37, 11) = 0.191542E+01
+ PKER_RACCS ( 37, 12) = 0.155399E+01
+ PKER_RACCS ( 37, 13) = 0.125465E+01
+ PKER_RACCS ( 37, 14) = 0.100670E+01
+ PKER_RACCS ( 37, 15) = 0.801261E+00
+ PKER_RACCS ( 37, 16) = 0.631017E+00
+ PKER_RACCS ( 37, 17) = 0.489944E+00
+ PKER_RACCS ( 37, 18) = 0.373184E+00
+ PKER_RACCS ( 37, 19) = 0.277006E+00
+ PKER_RACCS ( 37, 20) = 0.198946E+00
+ PKER_RACCS ( 37, 21) = 0.138042E+00
+ PKER_RACCS ( 37, 22) = 0.945344E-01
+ PKER_RACCS ( 37, 23) = 0.691693E-01
+ PKER_RACCS ( 37, 24) = 0.616275E-01
+ PKER_RACCS ( 37, 25) = 0.687885E-01
+ PKER_RACCS ( 37, 26) = 0.852879E-01
+ PKER_RACCS ( 37, 27) = 0.105439E+00
+ PKER_RACCS ( 37, 28) = 0.125229E+00
+ PKER_RACCS ( 37, 29) = 0.142838E+00
+ PKER_RACCS ( 37, 30) = 0.157887E+00
+ PKER_RACCS ( 37, 31) = 0.170547E+00
+ PKER_RACCS ( 37, 32) = 0.181093E+00
+ PKER_RACCS ( 37, 33) = 0.189802E+00
+ PKER_RACCS ( 37, 34) = 0.196941E+00
+ PKER_RACCS ( 37, 35) = 0.202759E+00
+ PKER_RACCS ( 37, 36) = 0.207484E+00
+ PKER_RACCS ( 37, 37) = 0.211312E+00
+ PKER_RACCS ( 37, 38) = 0.214411E+00
+ PKER_RACCS ( 37, 39) = 0.216920E+00
+ PKER_RACCS ( 37, 40) = 0.218952E+00
+ PKER_RACCS ( 38, 1) = 0.137031E+02
+ PKER_RACCS ( 38, 2) = 0.113151E+02
+ PKER_RACCS ( 38, 3) = 0.933820E+01
+ PKER_RACCS ( 38, 4) = 0.770159E+01
+ PKER_RACCS ( 38, 5) = 0.634669E+01
+ PKER_RACCS ( 38, 6) = 0.522500E+01
+ PKER_RACCS ( 38, 7) = 0.429637E+01
+ PKER_RACCS ( 38, 8) = 0.352755E+01
+ PKER_RACCS ( 38, 9) = 0.289102E+01
+ PKER_RACCS ( 38, 10) = 0.236401E+01
+ PKER_RACCS ( 38, 11) = 0.192764E+01
+ PKER_RACCS ( 38, 12) = 0.156632E+01
+ PKER_RACCS ( 38, 13) = 0.126709E+01
+ PKER_RACCS ( 38, 14) = 0.101926E+01
+ PKER_RACCS ( 38, 15) = 0.813972E+00
+ PKER_RACCS ( 38, 16) = 0.643884E+00
+ PKER_RACCS ( 38, 17) = 0.502953E+00
+ PKER_RACCS ( 38, 18) = 0.386252E+00
+ PKER_RACCS ( 38, 19) = 0.289901E+00
+ PKER_RACCS ( 38, 20) = 0.211127E+00
+ PKER_RACCS ( 38, 21) = 0.148400E+00
+ PKER_RACCS ( 38, 22) = 0.101589E+00
+ PKER_RACCS ( 38, 23) = 0.712905E-01
+ PKER_RACCS ( 38, 24) = 0.577853E-01
+ PKER_RACCS ( 38, 25) = 0.593100E-01
+ PKER_RACCS ( 38, 26) = 0.716356E-01
+ PKER_RACCS ( 38, 27) = 0.894059E-01
+ PKER_RACCS ( 38, 28) = 0.108185E+00
+ PKER_RACCS ( 38, 29) = 0.125512E+00
+ PKER_RACCS ( 38, 30) = 0.140605E+00
+ PKER_RACCS ( 38, 31) = 0.153476E+00
+ PKER_RACCS ( 38, 32) = 0.164337E+00
+ PKER_RACCS ( 38, 33) = 0.173413E+00
+ PKER_RACCS ( 38, 34) = 0.180926E+00
+ PKER_RACCS ( 38, 35) = 0.187095E+00
+ PKER_RACCS ( 38, 36) = 0.192129E+00
+ PKER_RACCS ( 38, 37) = 0.196217E+00
+ PKER_RACCS ( 38, 38) = 0.199530E+00
+ PKER_RACCS ( 38, 39) = 0.202210E+00
+ PKER_RACCS ( 38, 40) = 0.204379E+00
+ PKER_RACCS ( 39, 1) = 0.137138E+02
+ PKER_RACCS ( 39, 2) = 0.113259E+02
+ PKER_RACCS ( 39, 3) = 0.934903E+01
+ PKER_RACCS ( 39, 4) = 0.771246E+01
+ PKER_RACCS ( 39, 5) = 0.635761E+01
+ PKER_RACCS ( 39, 6) = 0.523596E+01
+ PKER_RACCS ( 39, 7) = 0.430737E+01
+ PKER_RACCS ( 39, 8) = 0.353860E+01
+ PKER_RACCS ( 39, 9) = 0.290213E+01
+ PKER_RACCS ( 39, 10) = 0.237518E+01
+ PKER_RACCS ( 39, 11) = 0.193889E+01
+ PKER_RACCS ( 39, 12) = 0.157764E+01
+ PKER_RACCS ( 39, 13) = 0.127850E+01
+ PKER_RACCS ( 39, 14) = 0.103078E+01
+ PKER_RACCS ( 39, 15) = 0.825598E+00
+ PKER_RACCS ( 39, 16) = 0.655632E+00
+ PKER_RACCS ( 39, 17) = 0.514822E+00
+ PKER_RACCS ( 39, 18) = 0.398199E+00
+ PKER_RACCS ( 39, 19) = 0.301778E+00
+ PKER_RACCS ( 39, 20) = 0.222566E+00
+ PKER_RACCS ( 39, 21) = 0.158680E+00
+ PKER_RACCS ( 39, 22) = 0.109404E+00
+ PKER_RACCS ( 39, 23) = 0.751723E-01
+ PKER_RACCS ( 39, 24) = 0.565165E-01
+ PKER_RACCS ( 39, 25) = 0.526713E-01
+ PKER_RACCS ( 39, 26) = 0.605420E-01
+ PKER_RACCS ( 39, 27) = 0.754562E-01
+ PKER_RACCS ( 39, 28) = 0.928032E-01
+ PKER_RACCS ( 39, 29) = 0.109558E+00
+ PKER_RACCS ( 39, 30) = 0.124480E+00
+ PKER_RACCS ( 39, 31) = 0.137384E+00
+ PKER_RACCS ( 39, 32) = 0.148419E+00
+ PKER_RACCS ( 39, 33) = 0.157766E+00
+ PKER_RACCS ( 39, 34) = 0.165604E+00
+ PKER_RACCS ( 39, 35) = 0.172109E+00
+ PKER_RACCS ( 39, 36) = 0.177459E+00
+ PKER_RACCS ( 39, 37) = 0.181828E+00
+ PKER_RACCS ( 39, 38) = 0.185379E+00
+ PKER_RACCS ( 39, 39) = 0.188256E+00
+ PKER_RACCS ( 39, 40) = 0.190583E+00
+ PKER_RACCS ( 40, 1) = 0.137238E+02
+ PKER_RACCS ( 40, 2) = 0.113359E+02
+ PKER_RACCS ( 40, 3) = 0.935909E+01
+ PKER_RACCS ( 40, 4) = 0.772255E+01
+ PKER_RACCS ( 40, 5) = 0.636773E+01
+ PKER_RACCS ( 40, 6) = 0.524612E+01
+ PKER_RACCS ( 40, 7) = 0.431757E+01
+ PKER_RACCS ( 40, 8) = 0.354884E+01
+ PKER_RACCS ( 40, 9) = 0.291241E+01
+ PKER_RACCS ( 40, 10) = 0.238551E+01
+ PKER_RACCS ( 40, 11) = 0.194927E+01
+ PKER_RACCS ( 40, 12) = 0.158808E+01
+ PKER_RACCS ( 40, 13) = 0.128901E+01
+ PKER_RACCS ( 40, 14) = 0.104136E+01
+ PKER_RACCS ( 40, 15) = 0.836271E+00
+ PKER_RACCS ( 40, 16) = 0.666400E+00
+ PKER_RACCS ( 40, 17) = 0.525688E+00
+ PKER_RACCS ( 40, 18) = 0.409141E+00
+ PKER_RACCS ( 40, 19) = 0.312712E+00
+ PKER_RACCS ( 40, 20) = 0.233243E+00
+ PKER_RACCS ( 40, 21) = 0.168554E+00
+ PKER_RACCS ( 40, 22) = 0.117617E+00
+ PKER_RACCS ( 40, 23) = 0.803792E-01
+ PKER_RACCS ( 40, 24) = 0.573661E-01
+ PKER_RACCS ( 40, 25) = 0.485548E-01
+ PKER_RACCS ( 40, 26) = 0.519418E-01
+ PKER_RACCS ( 40, 27) = 0.636428E-01
+ PKER_RACCS ( 40, 28) = 0.791627E-01
+ PKER_RACCS ( 40, 29) = 0.950607E-01
+ PKER_RACCS ( 40, 30) = 0.109613E+00
+ PKER_RACCS ( 40, 31) = 0.122376E+00
+ PKER_RACCS ( 40, 32) = 0.133423E+00
+ PKER_RACCS ( 40, 33) = 0.142912E+00
+ PKER_RACCS ( 40, 34) = 0.150985E+00
+ PKER_RACCS ( 40, 35) = 0.157777E+00
+ PKER_RACCS ( 40, 36) = 0.163429E+00
+ PKER_RACCS ( 40, 37) = 0.168087E+00
+ PKER_RACCS ( 40, 38) = 0.171894E+00
+ PKER_RACCS ( 40, 39) = 0.174990E+00
+ PKER_RACCS ( 40, 40) = 0.177498E+00
END IF
!
IF( PRESENT(PKER_SACCRG) ) THEN
- PKER_SACCRG( 1, 1) = 0.438311E-02
- PKER_SACCRG( 1, 2) = 0.641932E-02
- PKER_SACCRG( 1, 3) = 0.104323E-01
- PKER_SACCRG( 1, 4) = 0.135168E-01
- PKER_SACCRG( 1, 5) = 0.186190E-01
- PKER_SACCRG( 1, 6) = 0.326141E-01
- PKER_SACCRG( 1, 7) = 0.629897E-01
- PKER_SACCRG( 1, 8) = 0.120410E+00
- PKER_SACCRG( 1, 9) = 0.232733E+00
- PKER_SACCRG( 1, 10) = 0.430353E+00
- PKER_SACCRG( 1, 11) = 0.742288E+00
- PKER_SACCRG( 1, 12) = 0.118527E+01
- PKER_SACCRG( 1, 13) = 0.175377E+01
- PKER_SACCRG( 1, 14) = 0.241509E+01
- PKER_SACCRG( 1, 15) = 0.311676E+01
- PKER_SACCRG( 1, 16) = 0.380271E+01
- PKER_SACCRG( 1, 17) = 0.442968E+01
- PKER_SACCRG( 1, 18) = 0.497509E+01
- PKER_SACCRG( 1, 19) = 0.543503E+01
- PKER_SACCRG( 1, 20) = 0.579503E+01
- PKER_SACCRG( 1, 21) = 0.611243E+01
- PKER_SACCRG( 1, 22) = 0.637529E+01
- PKER_SACCRG( 1, 23) = 0.655579E+01
- PKER_SACCRG( 1, 24) = 0.674119E+01
- PKER_SACCRG( 1, 25) = 0.685610E+01
- PKER_SACCRG( 1, 26) = 0.695045E+01
- PKER_SACCRG( 1, 27) = 0.703114E+01
- PKER_SACCRG( 1, 28) = 0.706922E+01
- PKER_SACCRG( 1, 29) = 0.710917E+01
- PKER_SACCRG( 1, 30) = 0.715122E+01
- PKER_SACCRG( 1, 31) = 0.717481E+01
- PKER_SACCRG( 1, 32) = 0.718927E+01
- PKER_SACCRG( 1, 33) = 0.720073E+01
- PKER_SACCRG( 1, 34) = 0.720264E+01
- PKER_SACCRG( 1, 35) = 0.721205E+01
- PKER_SACCRG( 1, 36) = 0.723197E+01
+ PKER_SACCRG( 1, 1) = 0.877111E-02
+ PKER_SACCRG( 1, 2) = 0.152577E-01
+ PKER_SACCRG( 1, 3) = 0.246015E-01
+ PKER_SACCRG( 1, 4) = 0.471313E-01
+ PKER_SACCRG( 1, 5) = 0.929727E-01
+ PKER_SACCRG( 1, 6) = 0.180516E+00
+ PKER_SACCRG( 1, 7) = 0.332049E+00
+ PKER_SACCRG( 1, 8) = 0.568971E+00
+ PKER_SACCRG( 1, 9) = 0.904665E+00
+ PKER_SACCRG( 1, 10) = 0.133760E+01
+ PKER_SACCRG( 1, 11) = 0.184600E+01
+ PKER_SACCRG( 1, 12) = 0.239807E+01
+ PKER_SACCRG( 1, 13) = 0.295656E+01
+ PKER_SACCRG( 1, 14) = 0.349230E+01
+ PKER_SACCRG( 1, 15) = 0.398924E+01
+ PKER_SACCRG( 1, 16) = 0.444596E+01
+ PKER_SACCRG( 1, 17) = 0.486282E+01
+ PKER_SACCRG( 1, 18) = 0.524532E+01
+ PKER_SACCRG( 1, 19) = 0.559392E+01
+ PKER_SACCRG( 1, 20) = 0.588619E+01
+ PKER_SACCRG( 1, 21) = 0.616462E+01
+ PKER_SACCRG( 1, 22) = 0.640685E+01
+ PKER_SACCRG( 1, 23) = 0.657744E+01
+ PKER_SACCRG( 1, 24) = 0.675687E+01
+ PKER_SACCRG( 1, 25) = 0.686893E+01
+ PKER_SACCRG( 1, 26) = 0.696149E+01
+ PKER_SACCRG( 1, 27) = 0.704110E+01
+ PKER_SACCRG( 1, 28) = 0.707873E+01
+ PKER_SACCRG( 1, 29) = 0.711833E+01
+ PKER_SACCRG( 1, 30) = 0.716010E+01
+ PKER_SACCRG( 1, 31) = 0.718355E+01
+ PKER_SACCRG( 1, 32) = 0.719792E+01
+ PKER_SACCRG( 1, 33) = 0.720930E+01
+ PKER_SACCRG( 1, 34) = 0.721120E+01
+ PKER_SACCRG( 1, 35) = 0.722055E+01
+ PKER_SACCRG( 1, 36) = 0.724034E+01
PKER_SACCRG( 1, 37) = 0.000000E+00
PKER_SACCRG( 1, 38) = 0.000000E+00
PKER_SACCRG( 1, 39) = 0.000000E+00
PKER_SACCRG( 1, 40) = 0.000000E+00
- PKER_SACCRG( 2, 1) = 0.277360E-02
- PKER_SACCRG( 2, 2) = 0.359904E-02
- PKER_SACCRG( 2, 3) = 0.526623E-02
- PKER_SACCRG( 2, 4) = 0.855403E-02
- PKER_SACCRG( 2, 5) = 0.110798E-01
- PKER_SACCRG( 2, 6) = 0.152575E-01
- PKER_SACCRG( 2, 7) = 0.267157E-01
- PKER_SACCRG( 2, 8) = 0.515725E-01
- PKER_SACCRG( 2, 9) = 0.985371E-01
- PKER_SACCRG( 2, 10) = 0.190336E+00
- PKER_SACCRG( 2, 11) = 0.351702E+00
- PKER_SACCRG( 2, 12) = 0.606144E+00
- PKER_SACCRG( 2, 13) = 0.967078E+00
- PKER_SACCRG( 2, 14) = 0.142977E+01
- PKER_SACCRG( 2, 15) = 0.196754E+01
- PKER_SACCRG( 2, 16) = 0.253781E+01
- PKER_SACCRG( 2, 17) = 0.309551E+01
- PKER_SACCRG( 2, 18) = 0.360619E+01
- PKER_SACCRG( 2, 19) = 0.405195E+01
- PKER_SACCRG( 2, 20) = 0.441025E+01
- PKER_SACCRG( 2, 21) = 0.472710E+01
- PKER_SACCRG( 2, 22) = 0.499143E+01
- PKER_SACCRG( 2, 23) = 0.517586E+01
- PKER_SACCRG( 2, 24) = 0.536386E+01
- PKER_SACCRG( 2, 25) = 0.548206E+01
- PKER_SACCRG( 2, 26) = 0.557912E+01
- PKER_SACCRG( 2, 27) = 0.566202E+01
- PKER_SACCRG( 2, 28) = 0.570152E+01
- PKER_SACCRG( 2, 29) = 0.574264E+01
- PKER_SACCRG( 2, 30) = 0.578573E+01
- PKER_SACCRG( 2, 31) = 0.580997E+01
- PKER_SACCRG( 2, 32) = 0.582483E+01
- PKER_SACCRG( 2, 33) = 0.583658E+01
- PKER_SACCRG( 2, 34) = 0.583857E+01
- PKER_SACCRG( 2, 35) = 0.584821E+01
- PKER_SACCRG( 2, 36) = 0.586858E+01
+ PKER_SACCRG( 2, 1) = 0.496649E-02
+ PKER_SACCRG( 2, 2) = 0.733482E-02
+ PKER_SACCRG( 2, 3) = 0.127505E-01
+ PKER_SACCRG( 2, 4) = 0.205454E-01
+ PKER_SACCRG( 2, 5) = 0.393213E-01
+ PKER_SACCRG( 2, 6) = 0.774769E-01
+ PKER_SACCRG( 2, 7) = 0.150240E+00
+ PKER_SACCRG( 2, 8) = 0.275822E+00
+ PKER_SACCRG( 2, 9) = 0.471687E+00
+ PKER_SACCRG( 2, 10) = 0.748723E+00
+ PKER_SACCRG( 2, 11) = 0.110275E+01
+ PKER_SACCRG( 2, 12) = 0.151806E+01
+ PKER_SACCRG( 2, 13) = 0.196576E+01
+ PKER_SACCRG( 2, 14) = 0.241560E+01
+ PKER_SACCRG( 2, 15) = 0.284452E+01
+ PKER_SACCRG( 2, 16) = 0.324320E+01
+ PKER_SACCRG( 2, 17) = 0.360876E+01
+ PKER_SACCRG( 2, 18) = 0.394696E+01
+ PKER_SACCRG( 2, 19) = 0.426098E+01
+ PKER_SACCRG( 2, 20) = 0.453181E+01
+ PKER_SACCRG( 2, 21) = 0.479556E+01
+ PKER_SACCRG( 2, 22) = 0.503087E+01
+ PKER_SACCRG( 2, 23) = 0.520119E+01
+ PKER_SACCRG( 2, 24) = 0.538106E+01
+ PKER_SACCRG( 2, 25) = 0.549554E+01
+ PKER_SACCRG( 2, 26) = 0.559038E+01
+ PKER_SACCRG( 2, 27) = 0.567203E+01
+ PKER_SACCRG( 2, 28) = 0.571103E+01
+ PKER_SACCRG( 2, 29) = 0.575177E+01
+ PKER_SACCRG( 2, 30) = 0.579458E+01
+ PKER_SACCRG( 2, 31) = 0.581868E+01
+ PKER_SACCRG( 2, 32) = 0.583345E+01
+ PKER_SACCRG( 2, 33) = 0.584513E+01
+ PKER_SACCRG( 2, 34) = 0.584711E+01
+ PKER_SACCRG( 2, 35) = 0.585669E+01
+ PKER_SACCRG( 2, 36) = 0.587692E+01
PKER_SACCRG( 2, 37) = 0.000000E+00
PKER_SACCRG( 2, 38) = 0.000000E+00
PKER_SACCRG( 2, 39) = 0.000000E+00
PKER_SACCRG( 2, 40) = 0.000000E+00
- PKER_SACCRG( 3, 1) = 0.213410E-02
- PKER_SACCRG( 3, 2) = 0.228042E-02
- PKER_SACCRG( 3, 3) = 0.295439E-02
- PKER_SACCRG( 3, 4) = 0.431810E-02
- PKER_SACCRG( 3, 5) = 0.700935E-02
- PKER_SACCRG( 3, 6) = 0.907613E-02
- PKER_SACCRG( 3, 7) = 0.124938E-01
- PKER_SACCRG( 3, 8) = 0.218668E-01
- PKER_SACCRG( 3, 9) = 0.421887E-01
- PKER_SACCRG( 3, 10) = 0.805544E-01
- PKER_SACCRG( 3, 11) = 0.155474E+00
- PKER_SACCRG( 3, 12) = 0.287036E+00
- PKER_SACCRG( 3, 13) = 0.494206E+00
- PKER_SACCRG( 3, 14) = 0.787675E+00
- PKER_SACCRG( 3, 15) = 0.116334E+01
- PKER_SACCRG( 3, 16) = 0.159943E+01
- PKER_SACCRG( 3, 17) = 0.206153E+01
- PKER_SACCRG( 3, 18) = 0.251365E+01
- PKER_SACCRG( 3, 19) = 0.292842E+01
- PKER_SACCRG( 3, 20) = 0.327509E+01
- PKER_SACCRG( 3, 21) = 0.358546E+01
- PKER_SACCRG( 3, 22) = 0.384740E+01
- PKER_SACCRG( 3, 23) = 0.403374E+01
- PKER_SACCRG( 3, 24) = 0.422232E+01
- PKER_SACCRG( 3, 25) = 0.434292E+01
- PKER_SACCRG( 3, 26) = 0.444208E+01
- PKER_SACCRG( 3, 27) = 0.452673E+01
- PKER_SACCRG( 3, 28) = 0.456755E+01
- PKER_SACCRG( 3, 29) = 0.460968E+01
- PKER_SACCRG( 3, 30) = 0.465368E+01
- PKER_SACCRG( 3, 31) = 0.467850E+01
- PKER_SACCRG( 3, 32) = 0.469374E+01
- PKER_SACCRG( 3, 33) = 0.470577E+01
- PKER_SACCRG( 3, 34) = 0.470785E+01
- PKER_SACCRG( 3, 35) = 0.471769E+01
- PKER_SACCRG( 3, 36) = 0.473846E+01
+ PKER_SACCRG( 3, 1) = 0.387560E-02
+ PKER_SACCRG( 3, 2) = 0.418169E-02
+ PKER_SACCRG( 3, 3) = 0.617233E-02
+ PKER_SACCRG( 3, 4) = 0.107206E-01
+ PKER_SACCRG( 3, 5) = 0.172587E-01
+ PKER_SACCRG( 3, 6) = 0.329944E-01
+ PKER_SACCRG( 3, 7) = 0.649329E-01
+ PKER_SACCRG( 3, 8) = 0.125620E+00
+ PKER_SACCRG( 3, 9) = 0.230164E+00
+ PKER_SACCRG( 3, 10) = 0.393075E+00
+ PKER_SACCRG( 3, 11) = 0.620608E+00
+ PKER_SACCRG( 3, 12) = 0.911294E+00
+ PKER_SACCRG( 3, 13) = 0.124905E+01
+ PKER_SACCRG( 3, 14) = 0.160958E+01
+ PKER_SACCRG( 3, 15) = 0.196802E+01
+ PKER_SACCRG( 3, 16) = 0.230789E+01
+ PKER_SACCRG( 3, 17) = 0.262178E+01
+ PKER_SACCRG( 3, 18) = 0.291317E+01
+ PKER_SACCRG( 3, 19) = 0.318773E+01
+ PKER_SACCRG( 3, 20) = 0.343092E+01
+ PKER_SACCRG( 3, 21) = 0.367377E+01
+ PKER_SACCRG( 3, 22) = 0.389690E+01
+ PKER_SACCRG( 3, 23) = 0.406379E+01
+ PKER_SACCRG( 3, 24) = 0.424139E+01
+ PKER_SACCRG( 3, 25) = 0.435714E+01
+ PKER_SACCRG( 3, 26) = 0.445357E+01
+ PKER_SACCRG( 3, 27) = 0.453681E+01
+ PKER_SACCRG( 3, 28) = 0.457709E+01
+ PKER_SACCRG( 3, 29) = 0.461883E+01
+ PKER_SACCRG( 3, 30) = 0.466257E+01
+ PKER_SACCRG( 3, 31) = 0.468725E+01
+ PKER_SACCRG( 3, 32) = 0.470239E+01
+ PKER_SACCRG( 3, 33) = 0.471435E+01
+ PKER_SACCRG( 3, 34) = 0.471642E+01
+ PKER_SACCRG( 3, 35) = 0.472620E+01
+ PKER_SACCRG( 3, 36) = 0.474682E+01
PKER_SACCRG( 3, 37) = 0.000000E+00
PKER_SACCRG( 3, 38) = 0.000000E+00
PKER_SACCRG( 3, 39) = 0.000000E+00
PKER_SACCRG( 3, 40) = 0.000000E+00
- PKER_SACCRG( 4, 1) = 0.295930E-03
- PKER_SACCRG( 4, 2) = 0.175883E-02
- PKER_SACCRG( 4, 3) = 0.187537E-02
- PKER_SACCRG( 4, 4) = 0.242497E-02
- PKER_SACCRG( 4, 5) = 0.353954E-02
- PKER_SACCRG( 4, 6) = 0.574121E-02
- PKER_SACCRG( 4, 7) = 0.743054E-02
- PKER_SACCRG( 4, 8) = 0.102239E-01
- PKER_SACCRG( 4, 9) = 0.178843E-01
- PKER_SACCRG( 4, 10) = 0.344817E-01
- PKER_SACCRG( 4, 11) = 0.657827E-01
- PKER_SACCRG( 4, 12) = 0.126844E+00
- PKER_SACCRG( 4, 13) = 0.233919E+00
- PKER_SACCRG( 4, 14) = 0.402255E+00
- PKER_SACCRG( 4, 15) = 0.640286E+00
- PKER_SACCRG( 4, 16) = 0.944426E+00
- PKER_SACCRG( 4, 17) = 0.129689E+01
- PKER_SACCRG( 4, 18) = 0.167004E+01
- PKER_SACCRG( 4, 19) = 0.203514E+01
- PKER_SACCRG( 4, 20) = 0.235706E+01
- PKER_SACCRG( 4, 21) = 0.265244E+01
- PKER_SACCRG( 4, 22) = 0.290663E+01
- PKER_SACCRG( 4, 23) = 0.309194E+01
- PKER_SACCRG( 4, 24) = 0.327835E+01
- PKER_SACCRG( 4, 25) = 0.339993E+01
- PKER_SACCRG( 4, 26) = 0.350021E+01
- PKER_SACCRG( 4, 27) = 0.358586E+01
- PKER_SACCRG( 4, 28) = 0.362775E+01
- PKER_SACCRG( 4, 29) = 0.367067E+01
- PKER_SACCRG( 4, 30) = 0.371533E+01
- PKER_SACCRG( 4, 31) = 0.374064E+01
- PKER_SACCRG( 4, 32) = 0.375621E+01
- PKER_SACCRG( 4, 33) = 0.376848E+01
- PKER_SACCRG( 4, 34) = 0.377064E+01
- PKER_SACCRG( 4, 35) = 0.378066E+01
- PKER_SACCRG( 4, 36) = 0.380174E+01
+ PKER_SACCRG( 4, 1) = 0.233082E-02
+ PKER_SACCRG( 4, 2) = 0.329775E-02
+ PKER_SACCRG( 4, 3) = 0.355350E-02
+ PKER_SACCRG( 4, 4) = 0.523982E-02
+ PKER_SACCRG( 4, 5) = 0.909351E-02
+ PKER_SACCRG( 4, 6) = 0.146213E-01
+ PKER_SACCRG( 4, 7) = 0.279254E-01
+ PKER_SACCRG( 4, 8) = 0.547795E-01
+ PKER_SACCRG( 4, 9) = 0.105808E+00
+ PKER_SACCRG( 4, 10) = 0.193747E+00
+ PKER_SACCRG( 4, 11) = 0.328335E+00
+ PKER_SACCRG( 4, 12) = 0.516566E+00
+ PKER_SACCRG( 4, 13) = 0.754317E+00
+ PKER_SACCRG( 4, 14) = 0.102681E+01
+ PKER_SACCRG( 4, 15) = 0.131295E+01
+ PKER_SACCRG( 4, 16) = 0.159350E+01
+ PKER_SACCRG( 4, 17) = 0.185598E+01
+ PKER_SACCRG( 4, 18) = 0.210025E+01
+ PKER_SACCRG( 4, 19) = 0.233308E+01
+ PKER_SACCRG( 4, 20) = 0.254446E+01
+ PKER_SACCRG( 4, 21) = 0.276134E+01
+ PKER_SACCRG( 4, 22) = 0.296725E+01
+ PKER_SACCRG( 4, 23) = 0.312714E+01
+ PKER_SACCRG( 4, 24) = 0.329925E+01
+ PKER_SACCRG( 4, 25) = 0.341468E+01
+ PKER_SACCRG( 4, 26) = 0.351167E+01
+ PKER_SACCRG( 4, 27) = 0.359583E+01
+ PKER_SACCRG( 4, 28) = 0.363721E+01
+ PKER_SACCRG( 4, 29) = 0.367975E+01
+ PKER_SACCRG( 4, 30) = 0.372418E+01
+ PKER_SACCRG( 4, 31) = 0.374936E+01
+ PKER_SACCRG( 4, 32) = 0.376483E+01
+ PKER_SACCRG( 4, 33) = 0.377703E+01
+ PKER_SACCRG( 4, 34) = 0.377918E+01
+ PKER_SACCRG( 4, 35) = 0.378913E+01
+ PKER_SACCRG( 4, 36) = 0.381008E+01
PKER_SACCRG( 4, 37) = 0.000000E+00
PKER_SACCRG( 4, 38) = 0.000000E+00
PKER_SACCRG( 4, 39) = 0.000000E+00
PKER_SACCRG( 4, 40) = 0.000000E+00
- PKER_SACCRG( 5, 1) = 0.258805E-03
- PKER_SACCRG( 5, 2) = 0.244750E-03
- PKER_SACCRG( 5, 3) = 0.145106E-02
- PKER_SACCRG( 5, 4) = 0.154319E-02
- PKER_SACCRG( 5, 5) = 0.199078E-02
- PKER_SACCRG( 5, 6) = 0.290099E-02
- PKER_SACCRG( 5, 7) = 0.470103E-02
- PKER_SACCRG( 5, 8) = 0.608063E-02
- PKER_SACCRG( 5, 9) = 0.836193E-02
- PKER_SACCRG( 5, 10) = 0.146173E-01
- PKER_SACCRG( 5, 11) = 0.281586E-01
- PKER_SACCRG( 5, 12) = 0.536650E-01
- PKER_SACCRG( 5, 13) = 0.103352E+00
- PKER_SACCRG( 5, 14) = 0.190326E+00
- PKER_SACCRG( 5, 15) = 0.326791E+00
- PKER_SACCRG( 5, 16) = 0.519290E+00
- PKER_SACCRG( 5, 17) = 0.764650E+00
- PKER_SACCRG( 5, 18) = 0.104842E+01
- PKER_SACCRG( 5, 19) = 0.134831E+01
- PKER_SACCRG( 5, 20) = 0.163103E+01
- PKER_SACCRG( 5, 21) = 0.190095E+01
- PKER_SACCRG( 5, 22) = 0.214036E+01
- PKER_SACCRG( 5, 23) = 0.232046E+01
- PKER_SACCRG( 5, 24) = 0.250112E+01
- PKER_SACCRG( 5, 25) = 0.262167E+01
- PKER_SACCRG( 5, 26) = 0.272160E+01
- PKER_SACCRG( 5, 27) = 0.280712E+01
- PKER_SACCRG( 5, 28) = 0.284966E+01
- PKER_SACCRG( 5, 29) = 0.289298E+01
- PKER_SACCRG( 5, 30) = 0.293794E+01
- PKER_SACCRG( 5, 31) = 0.296358E+01
- PKER_SACCRG( 5, 32) = 0.297938E+01
- PKER_SACCRG( 5, 33) = 0.299183E+01
- PKER_SACCRG( 5, 34) = 0.299407E+01
- PKER_SACCRG( 5, 35) = 0.300421E+01
- PKER_SACCRG( 5, 36) = 0.302549E+01
+ PKER_SACCRG( 5, 1) = 0.166101E-02
+ PKER_SACCRG( 5, 2) = 0.201508E-02
+ PKER_SACCRG( 5, 3) = 0.284375E-02
+ PKER_SACCRG( 5, 4) = 0.305925E-02
+ PKER_SACCRG( 5, 5) = 0.450515E-02
+ PKER_SACCRG( 5, 6) = 0.685012E-02
+ PKER_SACCRG( 5, 7) = 0.125482E-01
+ PKER_SACCRG( 5, 8) = 0.238658E-01
+ PKER_SACCRG( 5, 9) = 0.467698E-01
+ PKER_SACCRG( 5, 10) = 0.903807E-01
+ PKER_SACCRG( 5, 11) = 0.163737E+00
+ PKER_SACCRG( 5, 12) = 0.277152E+00
+ PKER_SACCRG( 5, 13) = 0.433844E+00
+ PKER_SACCRG( 5, 14) = 0.628539E+00
+ PKER_SACCRG( 5, 15) = 0.846823E+00
+ PKER_SACCRG( 5, 16) = 0.107394E+01
+ PKER_SACCRG( 5, 17) = 0.128990E+01
+ PKER_SACCRG( 5, 18) = 0.149136E+01
+ PKER_SACCRG( 5, 19) = 0.167940E+01
+ PKER_SACCRG( 5, 20) = 0.185196E+01
+ PKER_SACCRG( 5, 21) = 0.203310E+01
+ PKER_SACCRG( 5, 22) = 0.221353E+01
+ PKER_SACCRG( 5, 23) = 0.236106E+01
+ PKER_SACCRG( 5, 24) = 0.252355E+01
+ PKER_SACCRG( 5, 25) = 0.263652E+01
+ PKER_SACCRG( 5, 26) = 0.273266E+01
+ PKER_SACCRG( 5, 27) = 0.281674E+01
+ PKER_SACCRG( 5, 28) = 0.285890E+01
+ PKER_SACCRG( 5, 29) = 0.290190E+01
+ PKER_SACCRG( 5, 30) = 0.294670E+01
+ PKER_SACCRG( 5, 31) = 0.297223E+01
+ PKER_SACCRG( 5, 32) = 0.298795E+01
+ PKER_SACCRG( 5, 33) = 0.300033E+01
+ PKER_SACCRG( 5, 34) = 0.300256E+01
+ PKER_SACCRG( 5, 35) = 0.301263E+01
+ PKER_SACCRG( 5, 36) = 0.303379E+01
PKER_SACCRG( 5, 37) = 0.000000E+00
PKER_SACCRG( 5, 38) = 0.000000E+00
PKER_SACCRG( 5, 39) = 0.000000E+00
PKER_SACCRG( 5, 40) = 0.000000E+00
- PKER_SACCRG( 6, 1) = 0.113399E-04
- PKER_SACCRG( 6, 2) = 0.215064E-03
- PKER_SACCRG( 6, 3) = 0.202732E-03
- PKER_SACCRG( 6, 4) = 0.119915E-02
- PKER_SACCRG( 6, 5) = 0.127127E-02
- PKER_SACCRG( 6, 6) = 0.163527E-02
- PKER_SACCRG( 6, 7) = 0.237805E-02
- PKER_SACCRG( 6, 8) = 0.384847E-02
- PKER_SACCRG( 6, 9) = 0.497431E-02
- PKER_SACCRG( 6, 10) = 0.683637E-02
- PKER_SACCRG( 6, 11) = 0.119405E-01
- PKER_SACCRG( 6, 12) = 0.229776E-01
- PKER_SACCRG( 6, 13) = 0.437340E-01
- PKER_SACCRG( 6, 14) = 0.840961E-01
- PKER_SACCRG( 6, 15) = 0.154590E+00
- PKER_SACCRG( 6, 16) = 0.264896E+00
- PKER_SACCRG( 6, 17) = 0.420012E+00
- PKER_SACCRG( 6, 18) = 0.617142E+00
- PKER_SACCRG( 6, 19) = 0.844302E+00
- PKER_SACCRG( 6, 20) = 0.107600E+01
- PKER_SACCRG( 6, 21) = 0.130965E+01
- PKER_SACCRG( 6, 22) = 0.152596E+01
- PKER_SACCRG( 6, 23) = 0.169541E+01
- PKER_SACCRG( 6, 24) = 0.186600E+01
- PKER_SACCRG( 6, 25) = 0.198276E+01
- PKER_SACCRG( 6, 26) = 0.208029E+01
- PKER_SACCRG( 6, 27) = 0.216408E+01
- PKER_SACCRG( 6, 28) = 0.220656E+01
- PKER_SACCRG( 6, 29) = 0.224971E+01
- PKER_SACCRG( 6, 30) = 0.229446E+01
- PKER_SACCRG( 6, 31) = 0.232020E+01
- PKER_SACCRG( 6, 32) = 0.233613E+01
- PKER_SACCRG( 6, 33) = 0.234866E+01
- PKER_SACCRG( 6, 34) = 0.235098E+01
- PKER_SACCRG( 6, 35) = 0.236115E+01
- PKER_SACCRG( 6, 36) = 0.238249E+01
+ PKER_SACCRG( 6, 1) = 0.152888E-02
+ PKER_SACCRG( 6, 2) = 0.147010E-02
+ PKER_SACCRG( 6, 3) = 0.177671E-02
+ PKER_SACCRG( 6, 4) = 0.249917E-02
+ PKER_SACCRG( 6, 5) = 0.268336E-02
+ PKER_SACCRG( 6, 6) = 0.394392E-02
+ PKER_SACCRG( 6, 7) = 0.599571E-02
+ PKER_SACCRG( 6, 8) = 0.109227E-01
+ PKER_SACCRG( 6, 9) = 0.207634E-01
+ PKER_SACCRG( 6, 10) = 0.410478E-01
+ PKER_SACCRG( 6, 11) = 0.776430E-01
+ PKER_SACCRG( 6, 12) = 0.141169E+00
+ PKER_SACCRG( 6, 13) = 0.237707E+00
+ PKER_SACCRG( 6, 14) = 0.368362E+00
+ PKER_SACCRG( 6, 15) = 0.526347E+00
+ PKER_SACCRG( 6, 16) = 0.703856E+00
+ PKER_SACCRG( 6, 17) = 0.878746E+00
+ PKER_SACCRG( 6, 18) = 0.104485E+01
+ PKER_SACCRG( 6, 19) = 0.119552E+01
+ PKER_SACCRG( 6, 20) = 0.133217E+01
+ PKER_SACCRG( 6, 21) = 0.147449E+01
+ PKER_SACCRG( 6, 22) = 0.162096E+01
+ PKER_SACCRG( 6, 23) = 0.174701E+01
+ PKER_SACCRG( 6, 24) = 0.189187E+01
+ PKER_SACCRG( 6, 25) = 0.199787E+01
+ PKER_SACCRG( 6, 26) = 0.209063E+01
+ PKER_SACCRG( 6, 27) = 0.217314E+01
+ PKER_SACCRG( 6, 28) = 0.221555E+01
+ PKER_SACCRG( 6, 29) = 0.225853E+01
+ PKER_SACCRG( 6, 30) = 0.230325E+01
+ PKER_SACCRG( 6, 31) = 0.232891E+01
+ PKER_SACCRG( 6, 32) = 0.234475E+01
+ PKER_SACCRG( 6, 33) = 0.235721E+01
+ PKER_SACCRG( 6, 34) = 0.235952E+01
+ PKER_SACCRG( 6, 35) = 0.236963E+01
+ PKER_SACCRG( 6, 36) = 0.239082E+01
PKER_SACCRG( 6, 37) = 0.000000E+00
PKER_SACCRG( 6, 38) = 0.000000E+00
PKER_SACCRG( 6, 39) = 0.000000E+00
PKER_SACCRG( 6, 40) = 0.000000E+00
- PKER_SACCRG( 7, 1) = 0.140987E-06
- PKER_SACCRG( 7, 2) = 0.947184E-05
- PKER_SACCRG( 7, 3) = 0.179369E-03
- PKER_SACCRG( 7, 4) = 0.168563E-03
- PKER_SACCRG( 7, 5) = 0.993006E-03
- PKER_SACCRG( 7, 6) = 0.104915E-02
- PKER_SACCRG( 7, 7) = 0.134474E-02
- PKER_SACCRG( 7, 8) = 0.195051E-02
- PKER_SACCRG( 7, 9) = 0.315182E-02
- PKER_SACCRG( 7, 10) = 0.406997E-02
- PKER_SACCRG( 7, 11) = 0.558802E-02
- PKER_SACCRG( 7, 12) = 0.975020E-02
- PKER_SACCRG( 7, 13) = 0.187363E-01
- PKER_SACCRG( 7, 14) = 0.356024E-01
- PKER_SACCRG( 7, 15) = 0.683270E-01
- PKER_SACCRG( 7, 16) = 0.125305E+00
- PKER_SACCRG( 7, 17) = 0.214147E+00
- PKER_SACCRG( 7, 18) = 0.338617E+00
- PKER_SACCRG( 7, 19) = 0.495951E+00
- PKER_SACCRG( 7, 20) = 0.671057E+00
- PKER_SACCRG( 7, 21) = 0.860119E+00
- PKER_SACCRG( 7, 22) = 0.104532E+01
- PKER_SACCRG( 7, 23) = 0.119790E+01
- PKER_SACCRG( 7, 24) = 0.135335E+01
- PKER_SACCRG( 7, 25) = 0.146305E+01
- PKER_SACCRG( 7, 26) = 0.155556E+01
- PKER_SACCRG( 7, 27) = 0.163553E+01
- PKER_SACCRG( 7, 28) = 0.167695E+01
- PKER_SACCRG( 7, 29) = 0.171904E+01
- PKER_SACCRG( 7, 30) = 0.176289E+01
- PKER_SACCRG( 7, 31) = 0.178841E+01
- PKER_SACCRG( 7, 32) = 0.180429E+01
- PKER_SACCRG( 7, 33) = 0.181678E+01
- PKER_SACCRG( 7, 34) = 0.181916E+01
- PKER_SACCRG( 7, 35) = 0.182927E+01
- PKER_SACCRG( 7, 36) = 0.185045E+01
+ PKER_SACCRG( 7, 1) = 0.264791E-03
+ PKER_SACCRG( 7, 2) = 0.139727E-02
+ PKER_SACCRG( 7, 3) = 0.133878E-02
+ PKER_SACCRG( 7, 4) = 0.161185E-02
+ PKER_SACCRG( 7, 5) = 0.226010E-02
+ PKER_SACCRG( 7, 6) = 0.241784E-02
+ PKER_SACCRG( 7, 7) = 0.354835E-02
+ PKER_SACCRG( 7, 8) = 0.535643E-02
+ PKER_SACCRG( 7, 9) = 0.975212E-02
+ PKER_SACCRG( 7, 10) = 0.191136E-01
+ PKER_SACCRG( 7, 11) = 0.359963E-01
+ PKER_SACCRG( 7, 12) = 0.691180E-01
+ PKER_SACCRG( 7, 13) = 0.125106E+00
+ PKER_SACCRG( 7, 14) = 0.207529E+00
+ PKER_SACCRG( 7, 15) = 0.314996E+00
+ PKER_SACCRG( 7, 16) = 0.447746E+00
+ PKER_SACCRG( 7, 17) = 0.584330E+00
+ PKER_SACCRG( 7, 18) = 0.719009E+00
+ PKER_SACCRG( 7, 19) = 0.838848E+00
+ PKER_SACCRG( 7, 20) = 0.946546E+00
+ PKER_SACCRG( 7, 21) = 0.105574E+01
+ PKER_SACCRG( 7, 22) = 0.117005E+01
+ PKER_SACCRG( 7, 23) = 0.127202E+01
+ PKER_SACCRG( 7, 24) = 0.139279E+01
+ PKER_SACCRG( 7, 25) = 0.148504E+01
+ PKER_SACCRG( 7, 26) = 0.156853E+01
+ PKER_SACCRG( 7, 27) = 0.164525E+01
+ PKER_SACCRG( 7, 28) = 0.168599E+01
+ PKER_SACCRG( 7, 29) = 0.172777E+01
+ PKER_SACCRG( 7, 30) = 0.177164E+01
+ PKER_SACCRG( 7, 31) = 0.179711E+01
+ PKER_SACCRG( 7, 32) = 0.181292E+01
+ PKER_SACCRG( 7, 33) = 0.182533E+01
+ PKER_SACCRG( 7, 34) = 0.182770E+01
+ PKER_SACCRG( 7, 35) = 0.183775E+01
+ PKER_SACCRG( 7, 36) = 0.185878E+01
PKER_SACCRG( 7, 37) = 0.000000E+00
PKER_SACCRG( 7, 38) = 0.000000E+00
PKER_SACCRG( 7, 39) = 0.000000E+00
PKER_SACCRG( 7, 40) = 0.000000E+00
- PKER_SACCRG( 8, 1) = 0.000000E+00
- PKER_SACCRG( 8, 2) = 0.120931E-06
- PKER_SACCRG( 8, 3) = 0.796677E-05
- PKER_SACCRG( 8, 4) = 0.150232E-03
- PKER_SACCRG( 8, 5) = 0.140781E-03
- PKER_SACCRG( 8, 6) = 0.825725E-03
- PKER_SACCRG( 8, 7) = 0.867958E-03
- PKER_SACCRG( 8, 8) = 0.110764E-02
- PKER_SACCRG( 8, 9) = 0.160165E-02
- PKER_SACCRG( 8, 10) = 0.258288E-02
- PKER_SACCRG( 8, 11) = 0.333132E-02
- PKER_SACCRG( 8, 12) = 0.456846E-02
- PKER_SACCRG( 8, 13) = 0.795989E-02
- PKER_SACCRG( 8, 14) = 0.152680E-01
- PKER_SACCRG( 8, 15) = 0.289527E-01
- PKER_SACCRG( 8, 16) = 0.554343E-01
- PKER_SACCRG( 8, 17) = 0.101328E+00
- PKER_SACCRG( 8, 18) = 0.172576E+00
- PKER_SACCRG( 8, 19) = 0.271870E+00
- PKER_SACCRG( 8, 20) = 0.392855E+00
- PKER_SACCRG( 8, 21) = 0.534703E+00
- PKER_SACCRG( 8, 22) = 0.683665E+00
- PKER_SACCRG( 8, 23) = 0.814385E+00
- PKER_SACCRG( 8, 24) = 0.950462E+00
- PKER_SACCRG( 8, 25) = 0.105116E+01
- PKER_SACCRG( 8, 26) = 0.113664E+01
- PKER_SACCRG( 8, 27) = 0.121103E+01
- PKER_SACCRG( 8, 28) = 0.125059E+01
- PKER_SACCRG( 8, 29) = 0.128945E+01
- PKER_SACCRG( 8, 30) = 0.132965E+01
- PKER_SACCRG( 8, 31) = 0.135316E+01
- PKER_SACCRG( 8, 32) = 0.136781E+01
- PKER_SACCRG( 8, 33) = 0.137937E+01
- PKER_SACCRG( 8, 34) = 0.138153E+01
- PKER_SACCRG( 8, 35) = 0.139094E+01
- PKER_SACCRG( 8, 36) = 0.141107E+01
+ PKER_SACCRG( 8, 1) = 0.317815E-03
+ PKER_SACCRG( 8, 2) = 0.252599E-03
+ PKER_SACCRG( 8, 3) = 0.133161E-02
+ PKER_SACCRG( 8, 4) = 0.127305E-02
+ PKER_SACCRG( 8, 5) = 0.152834E-02
+ PKER_SACCRG( 8, 6) = 0.128386E-02
+ PKER_SACCRG( 8, 7) = 0.226109E-02
+ PKER_SACCRG( 8, 8) = 0.334741E-02
+ PKER_SACCRG( 8, 9) = 0.496919E-02
+ PKER_SACCRG( 8, 10) = 0.978495E-02
+ PKER_SACCRG( 8, 11) = 0.172860E-01
+ PKER_SACCRG( 8, 12) = 0.345824E-01
+ PKER_SACCRG( 8, 13) = 0.663911E-01
+ PKER_SACCRG( 8, 14) = 0.117314E+00
+ PKER_SACCRG( 8, 15) = 0.188133E+00
+ PKER_SACCRG( 8, 16) = 0.287577E+00
+ PKER_SACCRG( 8, 17) = 0.393140E+00
+ PKER_SACCRG( 8, 18) = 0.502193E+00
+ PKER_SACCRG( 8, 19) = 0.593145E+00
+ PKER_SACCRG( 8, 20) = 0.672659E+00
+ PKER_SACCRG( 8, 21) = 0.748552E+00
+ PKER_SACCRG( 8, 22) = 0.831164E+00
+ PKER_SACCRG( 8, 23) = 0.909684E+00
+ PKER_SACCRG( 8, 24) = 0.100645E+01
+ PKER_SACCRG( 8, 25) = 0.108404E+01
+ PKER_SACCRG( 8, 26) = 0.115598E+01
+ PKER_SACCRG( 8, 27) = 0.122335E+01
+ PKER_SACCRG( 8, 28) = 0.125991E+01
+ PKER_SACCRG( 8, 29) = 0.129749E+01
+ PKER_SACCRG( 8, 30) = 0.133742E+01
+ PKER_SACCRG( 8, 31) = 0.136092E+01
+ PKER_SACCRG( 8, 32) = 0.137562E+01
+ PKER_SACCRG( 8, 33) = 0.138727E+01
+ PKER_SACCRG( 8, 34) = 0.138941E+01
+ PKER_SACCRG( 8, 35) = 0.139896E+01
+ PKER_SACCRG( 8, 36) = 0.141941E+01
PKER_SACCRG( 8, 37) = 0.000000E+00
PKER_SACCRG( 8, 38) = 0.000000E+00
PKER_SACCRG( 8, 39) = 0.000000E+00
PKER_SACCRG( 8, 40) = 0.000000E+00
- PKER_SACCRG( 9, 1) = 0.000000E+00
- PKER_SACCRG( 9, 2) = 0.000000E+00
- PKER_SACCRG( 9, 3) = 0.104997E-06
- PKER_SACCRG( 9, 4) = 0.675258E-05
- PKER_SACCRG( 9, 5) = 0.126824E-03
- PKER_SACCRG( 9, 6) = 0.118316E-03
- PKER_SACCRG( 9, 7) = 0.690238E-03
- PKER_SACCRG( 9, 8) = 0.721206E-03
- PKER_SACCRG( 9, 9) = 0.915100E-03
- PKER_SACCRG( 9, 10) = 0.131754E-02
- PKER_SACCRG( 9, 11) = 0.143784E-02
- PKER_SACCRG( 9, 12) = 0.272855E-02
- PKER_SACCRG( 9, 13) = 0.373587E-02
- PKER_SACCRG( 9, 14) = 0.649562E-02
- PKER_SACCRG( 9, 15) = 0.120098E-01
- PKER_SACCRG( 9, 16) = 0.235379E-01
- PKER_SACCRG( 9, 17) = 0.448605E-01
- PKER_SACCRG( 9, 18) = 0.816757E-01
- PKER_SACCRG( 9, 19) = 0.138586E+00
- PKER_SACCRG( 9, 20) = 0.214609E+00
- PKER_SACCRG( 9, 21) = 0.312274E+00
- PKER_SACCRG( 9, 22) = 0.423436E+00
- PKER_SACCRG( 9, 23) = 0.528300E+00
- PKER_SACCRG( 9, 24) = 0.641806E+00
- PKER_SACCRG( 9, 25) = 0.730809E+00
- PKER_SACCRG( 9, 26) = 0.808021E+00
- PKER_SACCRG( 9, 27) = 0.875899E+00
- PKER_SACCRG( 9, 28) = 0.913416E+00
- PKER_SACCRG( 9, 29) = 0.949497E+00
- PKER_SACCRG( 9, 30) = 0.986085E+00
- PKER_SACCRG( 9, 31) = 0.100768E+01
- PKER_SACCRG( 9, 32) = 0.102123E+01
- PKER_SACCRG( 9, 33) = 0.103190E+01
- PKER_SACCRG( 9, 34) = 0.103403E+01
- PKER_SACCRG( 9, 35) = 0.104270E+01
- PKER_SACCRG( 9, 36) = 0.106096E+01
+ PKER_SACCRG( 9, 1) = 0.202490E-04
+ PKER_SACCRG( 9, 2) = 0.320456E-03
+ PKER_SACCRG( 9, 3) = 0.255340E-03
+ PKER_SACCRG( 9, 4) = 0.345631E-03
+ PKER_SACCRG( 9, 5) = 0.129395E-02
+ PKER_SACCRG( 9, 6) = 0.155380E-02
+ PKER_SACCRG( 9, 7) = 0.129132E-02
+ PKER_SACCRG( 9, 8) = 0.241391E-02
+ PKER_SACCRG( 9, 9) = 0.325213E-02
+ PKER_SACCRG( 9, 10) = 0.608274E-02
+ PKER_SACCRG( 9, 11) = 0.933465E-02
+ PKER_SACCRG( 9, 12) = 0.192557E-01
+ PKER_SACCRG( 9, 13) = 0.379422E-01
+ PKER_SACCRG( 9, 14) = 0.697676E-01
+ PKER_SACCRG( 9, 15) = 0.116091E+00
+ PKER_SACCRG( 9, 16) = 0.192455E+00
+ PKER_SACCRG( 9, 17) = 0.275386E+00
+ PKER_SACCRG( 9, 18) = 0.366801E+00
+ PKER_SACCRG( 9, 19) = 0.437805E+00
+ PKER_SACCRG( 9, 20) = 0.496439E+00
+ PKER_SACCRG( 9, 21) = 0.543577E+00
+ PKER_SACCRG( 9, 22) = 0.594385E+00
+ PKER_SACCRG( 9, 23) = 0.645381E+00
+ PKER_SACCRG( 9, 24) = 0.714434E+00
+ PKER_SACCRG( 9, 25) = 0.774496E+00
+ PKER_SACCRG( 9, 26) = 0.833620E+00
+ PKER_SACCRG( 9, 27) = 0.891273E+00
+ PKER_SACCRG( 9, 28) = 0.923925E+00
+ PKER_SACCRG( 9, 29) = 0.957551E+00
+ PKER_SACCRG( 9, 30) = 0.993408E+00
+ PKER_SACCRG( 9, 31) = 0.101480E+01
+ PKER_SACCRG( 9, 32) = 0.102829E+01
+ PKER_SACCRG( 9, 33) = 0.103894E+01
+ PKER_SACCRG( 9, 34) = 0.104106E+01
+ PKER_SACCRG( 9, 35) = 0.104971E+01
+ PKER_SACCRG( 9, 36) = 0.106791E+01
PKER_SACCRG( 9, 37) = 0.000000E+00
PKER_SACCRG( 9, 38) = 0.000000E+00
PKER_SACCRG( 9, 39) = 0.000000E+00
PKER_SACCRG( 9, 40) = 0.000000E+00
- PKER_SACCRG( 10, 1) = 0.000000E+00
- PKER_SACCRG( 10, 2) = 0.000000E+00
- PKER_SACCRG( 10, 3) = 0.000000E+00
- PKER_SACCRG( 10, 4) = 0.925928E-07
- PKER_SACCRG( 10, 5) = 0.578353E-05
- PKER_SACCRG( 10, 6) = 0.108100E-03
- PKER_SACCRG( 10, 7) = 0.100301E-03
- PKER_SACCRG( 10, 8) = 0.581236E-03
- PKER_SACCRG( 10, 9) = 0.602709E-03
- PKER_SACCRG( 10, 10) = 0.759037E-03
- PKER_SACCRG( 10, 11) = 0.108651E-02
- PKER_SACCRG( 10, 12) = 0.118139E-02
- PKER_SACCRG( 10, 13) = 0.223637E-02
- PKER_SACCRG( 10, 14) = 0.305413E-02
- PKER_SACCRG( 10, 15) = 0.529953E-02
- PKER_SACCRG( 10, 16) = 0.980986E-02
- PKER_SACCRG( 10, 17) = 0.190727E-01
- PKER_SACCRG( 10, 18) = 0.361040E-01
- PKER_SACCRG( 10, 19) = 0.657489E-01
- PKER_SACCRG( 10, 20) = 0.108973E+00
- PKER_SACCRG( 10, 21) = 0.170419E+00
- PKER_SACCRG( 10, 22) = 0.246769E+00
- PKER_SACCRG( 10, 23) = 0.324574E+00
- PKER_SACCRG( 10, 24) = 0.413749E+00
- PKER_SACCRG( 10, 25) = 0.487749E+00
- PKER_SACCRG( 10, 26) = 0.555040E+00
- PKER_SACCRG( 10, 27) = 0.614174E+00
- PKER_SACCRG( 10, 28) = 0.647730E+00
- PKER_SACCRG( 10, 29) = 0.679592E+00
- PKER_SACCRG( 10, 30) = 0.711627E+00
- PKER_SACCRG( 10, 31) = 0.730757E+00
- PKER_SACCRG( 10, 32) = 0.742853E+00
- PKER_SACCRG( 10, 33) = 0.752426E+00
- PKER_SACCRG( 10, 34) = 0.754388E+00
- PKER_SACCRG( 10, 35) = 0.762180E+00
- PKER_SACCRG( 10, 36) = 0.778605E+00
+ PKER_SACCRG( 10, 1) = 0.598569E-06
+ PKER_SACCRG( 10, 2) = 0.219301E-04
+ PKER_SACCRG( 10, 3) = 0.349965E-03
+ PKER_SACCRG( 10, 4) = 0.281582E-03
+ PKER_SACCRG( 10, 5) = 0.386467E-03
+ PKER_SACCRG( 10, 6) = 0.147208E-02
+ PKER_SACCRG( 10, 7) = 0.182967E-02
+ PKER_SACCRG( 10, 8) = 0.187448E-02
+ PKER_SACCRG( 10, 9) = 0.248519E-02
+ PKER_SACCRG( 10, 10) = 0.563498E-02
+ PKER_SACCRG( 10, 11) = 0.631394E-02
+ PKER_SACCRG( 10, 12) = 0.139486E-01
+ PKER_SACCRG( 10, 13) = 0.267739E-01
+ PKER_SACCRG( 10, 14) = 0.486729E-01
+ PKER_SACCRG( 10, 15) = 0.806977E-01
+ PKER_SACCRG( 10, 16) = 0.144576E+00
+ PKER_SACCRG( 10, 17) = 0.213972E+00
+ PKER_SACCRG( 10, 18) = 0.295412E+00
+ PKER_SACCRG( 10, 19) = 0.352322E+00
+ PKER_SACCRG( 10, 20) = 0.395343E+00
+ PKER_SACCRG( 10, 21) = 0.418974E+00
+ PKER_SACCRG( 10, 22) = 0.443095E+00
+ PKER_SACCRG( 10, 23) = 0.469475E+00
+ PKER_SACCRG( 10, 24) = 0.510948E+00
+ PKER_SACCRG( 10, 25) = 0.549871E+00
+ PKER_SACCRG( 10, 26) = 0.591101E+00
+ PKER_SACCRG( 10, 27) = 0.634398E+00
+ PKER_SACCRG( 10, 28) = 0.660120E+00
+ PKER_SACCRG( 10, 29) = 0.687990E+00
+ PKER_SACCRG( 10, 30) = 0.718802E+00
+ PKER_SACCRG( 10, 31) = 0.737650E+00
+ PKER_SACCRG( 10, 32) = 0.749681E+00
+ PKER_SACCRG( 10, 33) = 0.759223E+00
+ PKER_SACCRG( 10, 34) = 0.761178E+00
+ PKER_SACCRG( 10, 35) = 0.768937E+00
+ PKER_SACCRG( 10, 36) = 0.785293E+00
PKER_SACCRG( 10, 37) = 0.000000E+00
PKER_SACCRG( 10, 38) = 0.000000E+00
PKER_SACCRG( 10, 39) = 0.000000E+00
PKER_SACCRG( 10, 40) = 0.000000E+00
PKER_SACCRG( 11, 1) = 0.000000E+00
- PKER_SACCRG( 11, 2) = 0.000000E+00
- PKER_SACCRG( 11, 3) = 0.000000E+00
- PKER_SACCRG( 11, 4) = 0.000000E+00
- PKER_SACCRG( 11, 5) = 0.832906E-07
- PKER_SACCRG( 11, 6) = 0.502409E-05
- PKER_SACCRG( 11, 7) = 0.933604E-04
- PKER_SACCRG( 11, 8) = 0.860483E-04
- PKER_SACCRG( 11, 9) = 0.494464E-03
- PKER_SACCRG( 11, 10) = 0.507648E-03
- PKER_SACCRG( 11, 11) = 0.632846E-03
- PKER_SACCRG( 11, 12) = 0.898351E-03
- PKER_SACCRG( 11, 13) = 0.971535E-03
- PKER_SACCRG( 11, 14) = 0.183107E-02
- PKER_SACCRG( 11, 15) = 0.249471E-02
- PKER_SACCRG( 11, 16) = 0.439233E-02
- PKER_SACCRG( 11, 17) = 0.797693E-02
- PKER_SACCRG( 11, 18) = 0.152441E-01
- PKER_SACCRG( 11, 19) = 0.293789E-01
- PKER_SACCRG( 11, 20) = 0.515725E-01
- PKER_SACCRG( 11, 21) = 0.871846E-01
- PKER_SACCRG( 11, 22) = 0.135867E+00
- PKER_SACCRG( 11, 23) = 0.189869E+00
- PKER_SACCRG( 11, 24) = 0.256544E+00
- PKER_SACCRG( 11, 25) = 0.317064E+00
- PKER_SACCRG( 11, 26) = 0.373502E+00
- PKER_SACCRG( 11, 27) = 0.424161E+00
- PKER_SACCRG( 11, 28) = 0.454262E+00
- PKER_SACCRG( 11, 29) = 0.480107E+00
- PKER_SACCRG( 11, 30) = 0.504244E+00
- PKER_SACCRG( 11, 31) = 0.518345E+00
- PKER_SACCRG( 11, 32) = 0.527147E+00
- PKER_SACCRG( 11, 33) = 0.534136E+00
- PKER_SACCRG( 11, 34) = 0.535557E+00
- PKER_SACCRG( 11, 35) = 0.541319E+00
- PKER_SACCRG( 11, 36) = 0.553653E+00
+ PKER_SACCRG( 11, 2) = 0.720403E-06
+ PKER_SACCRG( 11, 3) = 0.264157E-04
+ PKER_SACCRG( 11, 4) = 0.430057E-03
+ PKER_SACCRG( 11, 5) = 0.357147E-03
+ PKER_SACCRG( 11, 6) = 0.513732E-03
+ PKER_SACCRG( 11, 7) = 0.223031E-02
+ PKER_SACCRG( 11, 8) = 0.453334E-02
+ PKER_SACCRG( 11, 9) = 0.197619E-02
+ PKER_SACCRG( 11, 10) = 0.699670E-02
+ PKER_SACCRG( 11, 11) = 0.559959E-02
+ PKER_SACCRG( 11, 12) = 0.143088E-01
+ PKER_SACCRG( 11, 13) = 0.254483E-01
+ PKER_SACCRG( 11, 14) = 0.431850E-01
+ PKER_SACCRG( 11, 15) = 0.673872E-01
+ PKER_SACCRG( 11, 16) = 0.126953E+00
+ PKER_SACCRG( 11, 17) = 0.190653E+00
+ PKER_SACCRG( 11, 18) = 0.269512E+00
+ PKER_SACCRG( 11, 19) = 0.318624E+00
+ PKER_SACCRG( 11, 20) = 0.352402E+00
+ PKER_SACCRG( 11, 21) = 0.358160E+00
+ PKER_SACCRG( 11, 22) = 0.360271E+00
+ PKER_SACCRG( 11, 23) = 0.364777E+00
+ PKER_SACCRG( 11, 24) = 0.381211E+00
+ PKER_SACCRG( 11, 25) = 0.400286E+00
+ PKER_SACCRG( 11, 26) = 0.424050E+00
+ PKER_SACCRG( 11, 27) = 0.451584E+00
+ PKER_SACCRG( 11, 28) = 0.468600E+00
+ PKER_SACCRG( 11, 29) = 0.487607E+00
+ PKER_SACCRG( 11, 30) = 0.509441E+00
+ PKER_SACCRG( 11, 31) = 0.523036E+00
+ PKER_SACCRG( 11, 32) = 0.531878E+00
+ PKER_SACCRG( 11, 33) = 0.539025E+00
+ PKER_SACCRG( 11, 34) = 0.540283E+00
+ PKER_SACCRG( 11, 35) = 0.546255E+00
+ PKER_SACCRG( 11, 36) = 0.559768E+00
PKER_SACCRG( 11, 37) = 0.000000E+00
PKER_SACCRG( 11, 38) = 0.000000E+00
PKER_SACCRG( 11, 39) = 0.000000E+00
PKER_SACCRG( 11, 40) = 0.000000E+00
PKER_SACCRG( 12, 1) = 0.000000E+00
PKER_SACCRG( 12, 2) = 0.000000E+00
- PKER_SACCRG( 12, 3) = 0.000000E+00
- PKER_SACCRG( 12, 4) = 0.000000E+00
- PKER_SACCRG( 12, 5) = 0.000000E+00
- PKER_SACCRG( 12, 6) = 0.773960E-07
- PKER_SACCRG( 12, 7) = 0.444316E-05
- PKER_SACCRG( 12, 8) = 0.820904E-04
- PKER_SACCRG( 12, 9) = 0.749946E-04
- PKER_SACCRG( 12, 10) = 0.426372E-03
- PKER_SACCRG( 12, 11) = 0.431983E-03
- PKER_SACCRG( 12, 12) = 0.530818E-03
- PKER_SACCRG( 12, 13) = 0.743872E-03
- PKER_SACCRG( 12, 14) = 0.796002E-03
- PKER_SACCRG( 12, 15) = 0.116910E-02
- PKER_SACCRG( 12, 16) = 0.216714E-02
- PKER_SACCRG( 12, 17) = 0.358946E-02
- PKER_SACCRG( 12, 18) = 0.644847E-02
- PKER_SACCRG( 12, 19) = 0.128412E-01
- PKER_SACCRG( 12, 20) = 0.229402E-01
- PKER_SACCRG( 12, 21) = 0.422368E-01
- PKER_SACCRG( 12, 22) = 0.714492E-01
- PKER_SACCRG( 12, 23) = 0.106564E+00
- PKER_SACCRG( 12, 24) = 0.153890E+00
- PKER_SACCRG( 12, 25) = 0.202266E+00
- PKER_SACCRG( 12, 26) = 0.249410E+00
- PKER_SACCRG( 12, 27) = 0.293259E+00
- PKER_SACCRG( 12, 28) = 0.320617E+00
- PKER_SACCRG( 12, 29) = 0.341855E+00
- PKER_SACCRG( 12, 30) = 0.359983E+00
- PKER_SACCRG( 12, 31) = 0.370284E+00
- PKER_SACCRG( 12, 32) = 0.376667E+00
- PKER_SACCRG( 12, 33) = 0.381816E+00
- PKER_SACCRG( 12, 34) = 0.382869E+00
- PKER_SACCRG( 12, 35) = 0.387206E+00
- PKER_SACCRG( 12, 36) = 0.396588E+00
+ PKER_SACCRG( 12, 3) = 0.994899E-06
+ PKER_SACCRG( 12, 4) = 0.373403E-04
+ PKER_SACCRG( 12, 5) = 0.641460E-03
+ PKER_SACCRG( 12, 6) = 0.583012E-03
+ PKER_SACCRG( 12, 7) = 0.116235E-02
+ PKER_SACCRG( 12, 8) = 0.440959E-02
+ PKER_SACCRG( 12, 9) = 0.241125E-02
+ PKER_SACCRG( 12, 10) = 0.871351E-02
+ PKER_SACCRG( 12, 11) = 0.756834E-02
+ PKER_SACCRG( 12, 12) = 0.185463E-01
+ PKER_SACCRG( 12, 13) = 0.310975E-01
+ PKER_SACCRG( 12, 14) = 0.485523E-01
+ PKER_SACCRG( 12, 15) = 0.681502E-01
+ PKER_SACCRG( 12, 16) = 0.128535E+00
+ PKER_SACCRG( 12, 17) = 0.191879E+00
+ PKER_SACCRG( 12, 18) = 0.274041E+00
+ PKER_SACCRG( 12, 19) = 0.321177E+00
+ PKER_SACCRG( 12, 20) = 0.351147E+00
+ PKER_SACCRG( 12, 21) = 0.344524E+00
+ PKER_SACCRG( 12, 22) = 0.329993E+00
+ PKER_SACCRG( 12, 23) = 0.316769E+00
+ PKER_SACCRG( 12, 24) = 0.312214E+00
+ PKER_SACCRG( 12, 25) = 0.313069E+00
+ PKER_SACCRG( 12, 26) = 0.319695E+00
+ PKER_SACCRG( 12, 27) = 0.331543E+00
+ PKER_SACCRG( 12, 28) = 0.339530E+00
+ PKER_SACCRG( 12, 29) = 0.350452E+00
+ PKER_SACCRG( 12, 30) = 0.364581E+00
+ PKER_SACCRG( 12, 31) = 0.373975E+00
+ PKER_SACCRG( 12, 32) = 0.380308E+00
+ PKER_SACCRG( 12, 33) = 0.385525E+00
+ PKER_SACCRG( 12, 34) = 0.386603E+00
+ PKER_SACCRG( 12, 35) = 0.390979E+00
+ PKER_SACCRG( 12, 36) = 0.400436E+00
PKER_SACCRG( 12, 37) = 0.000000E+00
PKER_SACCRG( 12, 38) = 0.000000E+00
PKER_SACCRG( 12, 39) = 0.000000E+00
PKER_SACCRG( 12, 40) = 0.000000E+00
PKER_SACCRG( 13, 1) = 0.000000E+00
PKER_SACCRG( 13, 2) = 0.000000E+00
- PKER_SACCRG( 13, 3) = 0.000000E+00
- PKER_SACCRG( 13, 4) = 0.000000E+00
- PKER_SACCRG( 13, 5) = 0.000000E+00
- PKER_SACCRG( 13, 6) = 0.000000E+00
- PKER_SACCRG( 13, 7) = 0.735833E-07
- PKER_SACCRG( 13, 8) = 0.403716E-05
- PKER_SACCRG( 13, 9) = 0.739090E-04
- PKER_SACCRG( 13, 10) = 0.668732E-04
- PKER_SACCRG( 13, 11) = 0.374752E-03
- PKER_SACCRG( 13, 12) = 0.372451E-03
- PKER_SACCRG( 13, 13) = 0.447074E-03
- PKER_SACCRG( 13, 14) = 0.610717E-03
- PKER_SACCRG( 13, 15) = 0.641614E-03
- PKER_SACCRG( 13, 16) = 0.119058E-02
- PKER_SACCRG( 13, 17) = 0.179867E-02
- PKER_SACCRG( 13, 18) = 0.291204E-02
- PKER_SACCRG( 13, 19) = 0.606676E-02
- PKER_SACCRG( 13, 20) = 0.100429E-01
- PKER_SACCRG( 13, 21) = 0.203541E-01
- PKER_SACCRG( 13, 22) = 0.377872E-01
- PKER_SACCRG( 13, 23) = 0.606389E-01
- PKER_SACCRG( 13, 24) = 0.937549E-01
- PKER_SACCRG( 13, 25) = 0.133605E+00
- PKER_SACCRG( 13, 26) = 0.174990E+00
- PKER_SACCRG( 13, 27) = 0.214629E+00
- PKER_SACCRG( 13, 28) = 0.241011E+00
- PKER_SACCRG( 13, 29) = 0.258073E+00
- PKER_SACCRG( 13, 30) = 0.269310E+00
- PKER_SACCRG( 13, 31) = 0.274592E+00
- PKER_SACCRG( 13, 32) = 0.277413E+00
- PKER_SACCRG( 13, 33) = 0.279664E+00
- PKER_SACCRG( 13, 34) = 0.280055E+00
- PKER_SACCRG( 13, 35) = 0.282059E+00
- PKER_SACCRG( 13, 36) = 0.286665E+00
+ PKER_SACCRG( 13, 3) = 0.449611E-08
+ PKER_SACCRG( 13, 4) = 0.169690E-05
+ PKER_SACCRG( 13, 5) = 0.686632E-04
+ PKER_SACCRG( 13, 6) = 0.127709E-03
+ PKER_SACCRG( 13, 7) = 0.236529E-02
+ PKER_SACCRG( 13, 8) = 0.119372E-01
+ PKER_SACCRG( 13, 9) = 0.448982E-02
+ PKER_SACCRG( 13, 10) = 0.129780E-01
+ PKER_SACCRG( 13, 11) = 0.155888E-01
+ PKER_SACCRG( 13, 12) = 0.309368E-01
+ PKER_SACCRG( 13, 13) = 0.497395E-01
+ PKER_SACCRG( 13, 14) = 0.640867E-01
+ PKER_SACCRG( 13, 15) = 0.800523E-01
+ PKER_SACCRG( 13, 16) = 0.144293E+00
+ PKER_SACCRG( 13, 17) = 0.208219E+00
+ PKER_SACCRG( 13, 18) = 0.296651E+00
+ PKER_SACCRG( 13, 19) = 0.345954E+00
+ PKER_SACCRG( 13, 20) = 0.376717E+00
+ PKER_SACCRG( 13, 21) = 0.362657E+00
+ PKER_SACCRG( 13, 22) = 0.336746E+00
+ PKER_SACCRG( 13, 23) = 0.310501E+00
+ PKER_SACCRG( 13, 24) = 0.289797E+00
+ PKER_SACCRG( 13, 25) = 0.275726E+00
+ PKER_SACCRG( 13, 26) = 0.267684E+00
+ PKER_SACCRG( 13, 27) = 0.265096E+00
+ PKER_SACCRG( 13, 28) = 0.264355E+00
+ PKER_SACCRG( 13, 29) = 0.266500E+00
+ PKER_SACCRG( 13, 30) = 0.271273E+00
+ PKER_SACCRG( 13, 31) = 0.274865E+00
+ PKER_SACCRG( 13, 32) = 0.277460E+00
+ PKER_SACCRG( 13, 33) = 0.279736E+00
+ PKER_SACCRG( 13, 34) = 0.280140E+00
+ PKER_SACCRG( 13, 35) = 0.282174E+00
+ PKER_SACCRG( 13, 36) = 0.286838E+00
PKER_SACCRG( 13, 37) = 0.000000E+00
PKER_SACCRG( 13, 38) = 0.000000E+00
PKER_SACCRG( 13, 39) = 0.000000E+00
@@ -3868,39 +3871,39 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 14, 1) = 0.000000E+00
PKER_SACCRG( 14, 2) = 0.000000E+00
PKER_SACCRG( 14, 3) = 0.000000E+00
- PKER_SACCRG( 14, 4) = 0.000000E+00
- PKER_SACCRG( 14, 5) = 0.000000E+00
- PKER_SACCRG( 14, 6) = 0.000000E+00
- PKER_SACCRG( 14, 7) = 0.000000E+00
- PKER_SACCRG( 14, 8) = 0.728176E-07
- PKER_SACCRG( 14, 9) = 0.379948E-05
- PKER_SACCRG( 14, 10) = 0.688582E-04
- PKER_SACCRG( 14, 11) = 0.614350E-04
- PKER_SACCRG( 14, 12) = 0.337324E-03
- PKER_SACCRG( 14, 13) = 0.324899E-03
- PKER_SACCRG( 14, 14) = 0.371520E-03
- PKER_SACCRG( 14, 15) = 0.478804E-03
- PKER_SACCRG( 14, 16) = 0.101697E-02
- PKER_SACCRG( 14, 17) = 0.102728E-02
- PKER_SACCRG( 14, 18) = 0.147349E-02
- PKER_SACCRG( 14, 19) = 0.368922E-02
- PKER_SACCRG( 14, 20) = 0.484994E-02
- PKER_SACCRG( 14, 21) = 0.109319E-01
- PKER_SACCRG( 14, 22) = 0.222066E-01
- PKER_SACCRG( 14, 23) = 0.380174E-01
- PKER_SACCRG( 14, 24) = 0.622359E-01
- PKER_SACCRG( 14, 25) = 0.978747E-01
- PKER_SACCRG( 14, 26) = 0.135839E+00
- PKER_SACCRG( 14, 27) = 0.174342E+00
- PKER_SACCRG( 14, 28) = 0.201882E+00
- PKER_SACCRG( 14, 29) = 0.216326E+00
- PKER_SACCRG( 14, 30) = 0.222044E+00
- PKER_SACCRG( 14, 31) = 0.222867E+00
- PKER_SACCRG( 14, 32) = 0.222379E+00
- PKER_SACCRG( 14, 33) = 0.221925E+00
- PKER_SACCRG( 14, 34) = 0.221667E+00
- PKER_SACCRG( 14, 35) = 0.221502E+00
- PKER_SACCRG( 14, 36) = 0.221629E+00
+ PKER_SACCRG( 14, 4) = 0.248952E-07
+ PKER_SACCRG( 14, 5) = 0.409625E-05
+ PKER_SACCRG( 14, 6) = 0.207207E-03
+ PKER_SACCRG( 14, 7) = 0.118958E-02
+ PKER_SACCRG( 14, 8) = 0.512152E-01
+ PKER_SACCRG( 14, 9) = 0.120164E-01
+ PKER_SACCRG( 14, 10) = 0.226965E-01
+ PKER_SACCRG( 14, 11) = 0.279317E-01
+ PKER_SACCRG( 14, 12) = 0.685054E-01
+ PKER_SACCRG( 14, 13) = 0.852867E-01
+ PKER_SACCRG( 14, 14) = 0.888063E-01
+ PKER_SACCRG( 14, 15) = 0.103419E+00
+ PKER_SACCRG( 14, 16) = 0.175768E+00
+ PKER_SACCRG( 14, 17) = 0.236929E+00
+ PKER_SACCRG( 14, 18) = 0.329532E+00
+ PKER_SACCRG( 14, 19) = 0.381995E+00
+ PKER_SACCRG( 14, 20) = 0.416426E+00
+ PKER_SACCRG( 14, 21) = 0.399052E+00
+ PKER_SACCRG( 14, 22) = 0.366422E+00
+ PKER_SACCRG( 14, 23) = 0.331610E+00
+ PKER_SACCRG( 14, 24) = 0.299802E+00
+ PKER_SACCRG( 14, 25) = 0.274735E+00
+ PKER_SACCRG( 14, 26) = 0.255289E+00
+ PKER_SACCRG( 14, 27) = 0.240971E+00
+ PKER_SACCRG( 14, 28) = 0.232445E+00
+ PKER_SACCRG( 14, 29) = 0.226737E+00
+ PKER_SACCRG( 14, 30) = 0.223184E+00
+ PKER_SACCRG( 14, 31) = 0.221575E+00
+ PKER_SACCRG( 14, 32) = 0.220779E+00
+ PKER_SACCRG( 14, 33) = 0.220423E+00
+ PKER_SACCRG( 14, 34) = 0.220072E+00
+ PKER_SACCRG( 14, 35) = 0.220044E+00
+ PKER_SACCRG( 14, 36) = 0.220720E+00
PKER_SACCRG( 14, 37) = 0.000000E+00
PKER_SACCRG( 14, 38) = 0.000000E+00
PKER_SACCRG( 14, 39) = 0.000000E+00
@@ -3909,38 +3912,38 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 15, 2) = 0.000000E+00
PKER_SACCRG( 15, 3) = 0.000000E+00
PKER_SACCRG( 15, 4) = 0.000000E+00
- PKER_SACCRG( 15, 5) = 0.000000E+00
- PKER_SACCRG( 15, 6) = 0.000000E+00
- PKER_SACCRG( 15, 7) = 0.000000E+00
- PKER_SACCRG( 15, 8) = 0.000000E+00
- PKER_SACCRG( 15, 9) = 0.759585E-07
- PKER_SACCRG( 15, 10) = 0.374710E-05
- PKER_SACCRG( 15, 11) = 0.671091E-04
- PKER_SACCRG( 15, 12) = 0.588014E-04
- PKER_SACCRG( 15, 13) = 0.311989E-03
- PKER_SACCRG( 15, 14) = 0.280346E-03
- PKER_SACCRG( 15, 15) = 0.278888E-03
- PKER_SACCRG( 15, 16) = 0.181122E-02
- PKER_SACCRG( 15, 17) = 0.951550E-03
- PKER_SACCRG( 15, 18) = 0.874685E-03
- PKER_SACCRG( 15, 19) = 0.341647E-02
- PKER_SACCRG( 15, 20) = 0.313074E-02
- PKER_SACCRG( 15, 21) = 0.790628E-02
- PKER_SACCRG( 15, 22) = 0.167408E-01
- PKER_SACCRG( 15, 23) = 0.292368E-01
- PKER_SACCRG( 15, 24) = 0.493019E-01
- PKER_SACCRG( 15, 25) = 0.846089E-01
- PKER_SACCRG( 15, 26) = 0.122848E+00
- PKER_SACCRG( 15, 27) = 0.164348E+00
- PKER_SACCRG( 15, 28) = 0.195653E+00
- PKER_SACCRG( 15, 29) = 0.209699E+00
- PKER_SACCRG( 15, 30) = 0.212297E+00
- PKER_SACCRG( 15, 31) = 0.209959E+00
- PKER_SACCRG( 15, 32) = 0.206919E+00
- PKER_SACCRG( 15, 33) = 0.204381E+00
- PKER_SACCRG( 15, 34) = 0.203587E+00
- PKER_SACCRG( 15, 35) = 0.201798E+00
- PKER_SACCRG( 15, 36) = 0.198561E+00
+ PKER_SACCRG( 15, 5) = 0.109652E-06
+ PKER_SACCRG( 15, 6) = 0.193477E-04
+ PKER_SACCRG( 15, 7) = 0.584307E-02
+ PKER_SACCRG( 15, 8) = 0.557443E-01
+ PKER_SACCRG( 15, 9) = 0.510579E-01
+ PKER_SACCRG( 15, 10) = 0.495152E-01
+ PKER_SACCRG( 15, 11) = 0.593147E-01
+ PKER_SACCRG( 15, 12) = 0.123803E+00
+ PKER_SACCRG( 15, 13) = 0.126672E+00
+ PKER_SACCRG( 15, 14) = 0.138829E+00
+ PKER_SACCRG( 15, 15) = 0.155557E+00
+ PKER_SACCRG( 15, 16) = 0.212116E+00
+ PKER_SACCRG( 15, 17) = 0.273755E+00
+ PKER_SACCRG( 15, 18) = 0.368451E+00
+ PKER_SACCRG( 15, 19) = 0.422358E+00
+ PKER_SACCRG( 15, 20) = 0.460799E+00
+ PKER_SACCRG( 15, 21) = 0.442821E+00
+ PKER_SACCRG( 15, 22) = 0.407078E+00
+ PKER_SACCRG( 15, 23) = 0.367490E+00
+ PKER_SACCRG( 15, 24) = 0.329148E+00
+ PKER_SACCRG( 15, 25) = 0.297121E+00
+ PKER_SACCRG( 15, 26) = 0.270044E+00
+ PKER_SACCRG( 15, 27) = 0.247447E+00
+ PKER_SACCRG( 15, 28) = 0.233079E+00
+ PKER_SACCRG( 15, 29) = 0.221407E+00
+ PKER_SACCRG( 15, 30) = 0.211439E+00
+ PKER_SACCRG( 15, 31) = 0.205630E+00
+ PKER_SACCRG( 15, 32) = 0.202132E+00
+ PKER_SACCRG( 15, 33) = 0.199657E+00
+ PKER_SACCRG( 15, 34) = 0.198910E+00
+ PKER_SACCRG( 15, 35) = 0.197179E+00
+ PKER_SACCRG( 15, 36) = 0.194045E+00
PKER_SACCRG( 15, 37) = 0.000000E+00
PKER_SACCRG( 15, 38) = 0.000000E+00
PKER_SACCRG( 15, 39) = 0.000000E+00
@@ -3950,37 +3953,37 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 16, 3) = 0.000000E+00
PKER_SACCRG( 16, 4) = 0.000000E+00
PKER_SACCRG( 16, 5) = 0.000000E+00
- PKER_SACCRG( 16, 6) = 0.000000E+00
- PKER_SACCRG( 16, 7) = 0.000000E+00
- PKER_SACCRG( 16, 8) = 0.000000E+00
- PKER_SACCRG( 16, 9) = 0.000000E+00
- PKER_SACCRG( 16, 10) = 0.844481E-07
- PKER_SACCRG( 16, 11) = 0.394811E-05
- PKER_SACCRG( 16, 12) = 0.696323E-04
- PKER_SACCRG( 16, 13) = 0.591332E-04
- PKER_SACCRG( 16, 14) = 0.289674E-03
- PKER_SACCRG( 16, 15) = 0.202537E-03
- PKER_SACCRG( 16, 16) = 0.336844E-02
- PKER_SACCRG( 16, 17) = 0.178312E-02
- PKER_SACCRG( 16, 18) = 0.868492E-03
- PKER_SACCRG( 16, 19) = 0.435445E-02
- PKER_SACCRG( 16, 20) = 0.306476E-02
- PKER_SACCRG( 16, 21) = 0.776119E-02
- PKER_SACCRG( 16, 22) = 0.161954E-01
- PKER_SACCRG( 16, 23) = 0.276331E-01
- PKER_SACCRG( 16, 24) = 0.458394E-01
- PKER_SACCRG( 16, 25) = 0.831396E-01
- PKER_SACCRG( 16, 26) = 0.123760E+00
- PKER_SACCRG( 16, 27) = 0.170508E+00
- PKER_SACCRG( 16, 28) = 0.207373E+00
- PKER_SACCRG( 16, 29) = 0.222851E+00
- PKER_SACCRG( 16, 30) = 0.224550E+00
- PKER_SACCRG( 16, 31) = 0.220359E+00
- PKER_SACCRG( 16, 32) = 0.215498E+00
- PKER_SACCRG( 16, 33) = 0.211386E+00
- PKER_SACCRG( 16, 34) = 0.210132E+00
- PKER_SACCRG( 16, 35) = 0.207094E+00
- PKER_SACCRG( 16, 36) = 0.201428E+00
+ PKER_SACCRG( 16, 6) = 0.972460E-06
+ PKER_SACCRG( 16, 7) = 0.228784E-02
+ PKER_SACCRG( 16, 8) = 0.647400E+00
+ PKER_SACCRG( 16, 9) = 0.552575E-01
+ PKER_SACCRG( 16, 10) = 0.411267E-01
+ PKER_SACCRG( 16, 11) = 0.161183E+00
+ PKER_SACCRG( 16, 12) = 0.261228E+00
+ PKER_SACCRG( 16, 13) = 0.202736E+00
+ PKER_SACCRG( 16, 14) = 0.262748E+00
+ PKER_SACCRG( 16, 15) = 0.197646E+00
+ PKER_SACCRG( 16, 16) = 0.298342E+00
+ PKER_SACCRG( 16, 17) = 0.331468E+00
+ PKER_SACCRG( 16, 18) = 0.422266E+00
+ PKER_SACCRG( 16, 19) = 0.466303E+00
+ PKER_SACCRG( 16, 20) = 0.507007E+00
+ PKER_SACCRG( 16, 21) = 0.489040E+00
+ PKER_SACCRG( 16, 22) = 0.452353E+00
+ PKER_SACCRG( 16, 23) = 0.410554E+00
+ PKER_SACCRG( 16, 24) = 0.368910E+00
+ PKER_SACCRG( 16, 25) = 0.333049E+00
+ PKER_SACCRG( 16, 26) = 0.301496E+00
+ PKER_SACCRG( 16, 27) = 0.273789E+00
+ PKER_SACCRG( 16, 28) = 0.255515E+00
+ PKER_SACCRG( 16, 29) = 0.239769E+00
+ PKER_SACCRG( 16, 30) = 0.225328E+00
+ PKER_SACCRG( 16, 31) = 0.216494E+00
+ PKER_SACCRG( 16, 32) = 0.210970E+00
+ PKER_SACCRG( 16, 33) = 0.206931E+00
+ PKER_SACCRG( 16, 34) = 0.205729E+00
+ PKER_SACCRG( 16, 35) = 0.202827E+00
+ PKER_SACCRG( 16, 36) = 0.197412E+00
PKER_SACCRG( 16, 37) = 0.000000E+00
PKER_SACCRG( 16, 38) = 0.000000E+00
PKER_SACCRG( 16, 39) = 0.000000E+00
@@ -3990,37 +3993,37 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 17, 3) = 0.000000E+00
PKER_SACCRG( 17, 4) = 0.000000E+00
PKER_SACCRG( 17, 5) = 0.000000E+00
- PKER_SACCRG( 17, 6) = 0.000000E+00
- PKER_SACCRG( 17, 7) = 0.000000E+00
- PKER_SACCRG( 17, 8) = 0.000000E+00
- PKER_SACCRG( 17, 9) = 0.000000E+00
- PKER_SACCRG( 17, 10) = 0.000000E+00
- PKER_SACCRG( 17, 11) = 0.102418E-06
- PKER_SACCRG( 17, 12) = 0.455940E-05
- PKER_SACCRG( 17, 13) = 0.784312E-04
- PKER_SACCRG( 17, 14) = 0.614879E-04
- PKER_SACCRG( 17, 15) = 0.207160E-03
- PKER_SACCRG( 17, 16) = 0.889438E-02
- PKER_SACCRG( 17, 17) = 0.339624E-02
- PKER_SACCRG( 17, 18) = 0.106437E-02
- PKER_SACCRG( 17, 19) = 0.779689E-02
- PKER_SACCRG( 17, 20) = 0.404959E-02
- PKER_SACCRG( 17, 21) = 0.101250E-01
- PKER_SACCRG( 17, 22) = 0.196042E-01
- PKER_SACCRG( 17, 23) = 0.307730E-01
- PKER_SACCRG( 17, 24) = 0.480533E-01
- PKER_SACCRG( 17, 25) = 0.885797E-01
- PKER_SACCRG( 17, 26) = 0.132905E+00
- PKER_SACCRG( 17, 27) = 0.187039E+00
- PKER_SACCRG( 17, 28) = 0.231099E+00
- PKER_SACCRG( 17, 29) = 0.249500E+00
- PKER_SACCRG( 17, 30) = 0.252291E+00
- PKER_SACCRG( 17, 31) = 0.247487E+00
- PKER_SACCRG( 17, 32) = 0.241587E+00
- PKER_SACCRG( 17, 33) = 0.236485E+00
- PKER_SACCRG( 17, 34) = 0.234962E+00
- PKER_SACCRG( 17, 35) = 0.231075E+00
- PKER_SACCRG( 17, 36) = 0.223581E+00
+ PKER_SACCRG( 17, 6) = 0.189407E-07
+ PKER_SACCRG( 17, 7) = 0.710932E-03
+ PKER_SACCRG( 17, 8) = 0.686679E+00
+ PKER_SACCRG( 17, 9) = 0.586133E-01
+ PKER_SACCRG( 17, 10) = 0.128748E+00
+ PKER_SACCRG( 17, 11) = 0.170751E+00
+ PKER_SACCRG( 17, 12) = 0.276326E+00
+ PKER_SACCRG( 17, 13) = 0.356825E+00
+ PKER_SACCRG( 17, 14) = 0.413243E+00
+ PKER_SACCRG( 17, 15) = 0.328870E+00
+ PKER_SACCRG( 17, 16) = 0.360945E+00
+ PKER_SACCRG( 17, 17) = 0.399638E+00
+ PKER_SACCRG( 17, 18) = 0.491390E+00
+ PKER_SACCRG( 17, 19) = 0.514772E+00
+ PKER_SACCRG( 17, 20) = 0.548065E+00
+ PKER_SACCRG( 17, 21) = 0.528710E+00
+ PKER_SACCRG( 17, 22) = 0.492174E+00
+ PKER_SACCRG( 17, 23) = 0.450030E+00
+ PKER_SACCRG( 17, 24) = 0.407497E+00
+ PKER_SACCRG( 17, 25) = 0.370319E+00
+ PKER_SACCRG( 17, 26) = 0.336970E+00
+ PKER_SACCRG( 17, 27) = 0.306971E+00
+ PKER_SACCRG( 17, 28) = 0.286784E+00
+ PKER_SACCRG( 17, 29) = 0.268915E+00
+ PKER_SACCRG( 17, 30) = 0.251963E+00
+ PKER_SACCRG( 17, 31) = 0.241332E+00
+ PKER_SACCRG( 17, 32) = 0.234558E+00
+ PKER_SACCRG( 17, 33) = 0.229494E+00
+ PKER_SACCRG( 17, 34) = 0.228030E+00
+ PKER_SACCRG( 17, 35) = 0.224266E+00
+ PKER_SACCRG( 17, 36) = 0.216953E+00
PKER_SACCRG( 17, 37) = 0.000000E+00
PKER_SACCRG( 17, 38) = 0.000000E+00
PKER_SACCRG( 17, 39) = 0.000000E+00
@@ -4031,36 +4034,36 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 18, 4) = 0.000000E+00
PKER_SACCRG( 18, 5) = 0.000000E+00
PKER_SACCRG( 18, 6) = 0.000000E+00
- PKER_SACCRG( 18, 7) = 0.000000E+00
- PKER_SACCRG( 18, 8) = 0.000000E+00
- PKER_SACCRG( 18, 9) = 0.000000E+00
- PKER_SACCRG( 18, 10) = 0.000000E+00
- PKER_SACCRG( 18, 11) = 0.000000E+00
- PKER_SACCRG( 18, 12) = 0.140103E-06
- PKER_SACCRG( 18, 13) = 0.596643E-05
- PKER_SACCRG( 18, 14) = 0.955662E-04
- PKER_SACCRG( 18, 15) = 0.467666E-04
- PKER_SACCRG( 18, 16) = 0.950209E-02
- PKER_SACCRG( 18, 17) = 0.886291E-02
- PKER_SACCRG( 18, 18) = 0.338287E-02
- PKER_SACCRG( 18, 19) = 0.122056E-01
- PKER_SACCRG( 18, 20) = 0.719648E-02
- PKER_SACCRG( 18, 21) = 0.173349E-01
- PKER_SACCRG( 18, 22) = 0.268718E-01
- PKER_SACCRG( 18, 23) = 0.384549E-01
- PKER_SACCRG( 18, 24) = 0.531665E-01
- PKER_SACCRG( 18, 25) = 0.967650E-01
- PKER_SACCRG( 18, 26) = 0.143690E+00
- PKER_SACCRG( 18, 27) = 0.205036E+00
- PKER_SACCRG( 18, 28) = 0.256245E+00
- PKER_SACCRG( 18, 29) = 0.278068E+00
- PKER_SACCRG( 18, 30) = 0.283239E+00
- PKER_SACCRG( 18, 31) = 0.278809E+00
- PKER_SACCRG( 18, 32) = 0.272567E+00
- PKER_SACCRG( 18, 33) = 0.267046E+00
- PKER_SACCRG( 18, 34) = 0.265383E+00
- PKER_SACCRG( 18, 35) = 0.261124E+00
- PKER_SACCRG( 18, 36) = 0.252857E+00
+ PKER_SACCRG( 18, 7) = 0.160006E-03
+ PKER_SACCRG( 18, 8) = 0.719207E+00
+ PKER_SACCRG( 18, 9) = 0.664711E+00
+ PKER_SACCRG( 18, 10) = 0.101234E+00
+ PKER_SACCRG( 18, 11) = 0.178669E+00
+ PKER_SACCRG( 18, 12) = 0.728837E+00
+ PKER_SACCRG( 18, 13) = 0.731397E+00
+ PKER_SACCRG( 18, 14) = 0.432437E+00
+ PKER_SACCRG( 18, 15) = 0.471229E+00
+ PKER_SACCRG( 18, 16) = 0.445069E+00
+ PKER_SACCRG( 18, 17) = 0.508932E+00
+ PKER_SACCRG( 18, 18) = 0.540554E+00
+ PKER_SACCRG( 18, 19) = 0.560723E+00
+ PKER_SACCRG( 18, 20) = 0.587182E+00
+ PKER_SACCRG( 18, 21) = 0.563366E+00
+ PKER_SACCRG( 18, 22) = 0.526594E+00
+ PKER_SACCRG( 18, 23) = 0.484750E+00
+ PKER_SACCRG( 18, 24) = 0.442429E+00
+ PKER_SACCRG( 18, 25) = 0.405163E+00
+ PKER_SACCRG( 18, 26) = 0.371497E+00
+ PKER_SACCRG( 18, 27) = 0.340888E+00
+ PKER_SACCRG( 18, 28) = 0.320012E+00
+ PKER_SACCRG( 18, 29) = 0.301346E+00
+ PKER_SACCRG( 18, 30) = 0.283409E+00
+ PKER_SACCRG( 18, 31) = 0.272008E+00
+ PKER_SACCRG( 18, 32) = 0.264667E+00
+ PKER_SACCRG( 18, 33) = 0.259138E+00
+ PKER_SACCRG( 18, 34) = 0.257521E+00
+ PKER_SACCRG( 18, 35) = 0.253375E+00
+ PKER_SACCRG( 18, 36) = 0.245311E+00
PKER_SACCRG( 18, 37) = 0.000000E+00
PKER_SACCRG( 18, 38) = 0.000000E+00
PKER_SACCRG( 18, 39) = 0.000000E+00
@@ -4071,36 +4074,36 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 19, 4) = 0.000000E+00
PKER_SACCRG( 19, 5) = 0.000000E+00
PKER_SACCRG( 19, 6) = 0.000000E+00
- PKER_SACCRG( 19, 7) = 0.000000E+00
- PKER_SACCRG( 19, 8) = 0.000000E+00
- PKER_SACCRG( 19, 9) = 0.000000E+00
- PKER_SACCRG( 19, 10) = 0.000000E+00
- PKER_SACCRG( 19, 11) = 0.000000E+00
- PKER_SACCRG( 19, 12) = 0.000000E+00
- PKER_SACCRG( 19, 13) = 0.227778E-06
- PKER_SACCRG( 19, 14) = 0.900623E-05
- PKER_SACCRG( 19, 15) = 0.841460E-04
- PKER_SACCRG( 19, 16) = 0.386383E-01
- PKER_SACCRG( 19, 17) = 0.931861E-02
- PKER_SACCRG( 19, 18) = 0.873078E-02
- PKER_SACCRG( 19, 19) = 0.212263E-01
- PKER_SACCRG( 19, 20) = 0.110801E-01
- PKER_SACCRG( 19, 21) = 0.233312E-01
- PKER_SACCRG( 19, 22) = 0.377998E-01
- PKER_SACCRG( 19, 23) = 0.473076E-01
- PKER_SACCRG( 19, 24) = 0.634436E-01
- PKER_SACCRG( 19, 25) = 0.108864E+00
- PKER_SACCRG( 19, 26) = 0.154870E+00
- PKER_SACCRG( 19, 27) = 0.221137E+00
- PKER_SACCRG( 19, 28) = 0.278289E+00
- PKER_SACCRG( 19, 29) = 0.303277E+00
- PKER_SACCRG( 19, 30) = 0.311313E+00
- PKER_SACCRG( 19, 31) = 0.307763E+00
- PKER_SACCRG( 19, 32) = 0.301613E+00
- PKER_SACCRG( 19, 33) = 0.296055E+00
- PKER_SACCRG( 19, 34) = 0.294365E+00
- PKER_SACCRG( 19, 35) = 0.290056E+00
- PKER_SACCRG( 19, 36) = 0.281642E+00
+ PKER_SACCRG( 19, 7) = 0.236300E-04
+ PKER_SACCRG( 19, 8) = 0.742522E+00
+ PKER_SACCRG( 19, 9) = 0.688461E+00
+ PKER_SACCRG( 19, 10) = 0.813677E-01
+ PKER_SACCRG( 19, 11) = 0.725074E+00
+ PKER_SACCRG( 19, 12) = 0.752195E+00
+ PKER_SACCRG( 19, 13) = 0.754753E+00
+ PKER_SACCRG( 19, 14) = 0.743589E+00
+ PKER_SACCRG( 19, 15) = 0.486761E+00
+ PKER_SACCRG( 19, 16) = 0.562560E+00
+ PKER_SACCRG( 19, 17) = 0.600710E+00
+ PKER_SACCRG( 19, 18) = 0.635518E+00
+ PKER_SACCRG( 19, 19) = 0.613200E+00
+ PKER_SACCRG( 19, 20) = 0.620667E+00
+ PKER_SACCRG( 19, 21) = 0.589800E+00
+ PKER_SACCRG( 19, 22) = 0.552718E+00
+ PKER_SACCRG( 19, 23) = 0.511426E+00
+ PKER_SACCRG( 19, 24) = 0.469847E+00
+ PKER_SACCRG( 19, 25) = 0.433139E+00
+ PKER_SACCRG( 19, 26) = 0.399930E+00
+ PKER_SACCRG( 19, 27) = 0.369670E+00
+ PKER_SACCRG( 19, 28) = 0.348846E+00
+ PKER_SACCRG( 19, 29) = 0.330209E+00
+ PKER_SACCRG( 19, 30) = 0.312245E+00
+ PKER_SACCRG( 19, 31) = 0.300744E+00
+ PKER_SACCRG( 19, 32) = 0.293305E+00
+ PKER_SACCRG( 19, 33) = 0.287688E+00
+ PKER_SACCRG( 19, 34) = 0.286030E+00
+ PKER_SACCRG( 19, 35) = 0.281806E+00
+ PKER_SACCRG( 19, 36) = 0.273562E+00
PKER_SACCRG( 19, 37) = 0.000000E+00
PKER_SACCRG( 19, 38) = 0.000000E+00
PKER_SACCRG( 19, 39) = 0.000000E+00
@@ -4111,36 +4114,36 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 20, 4) = 0.000000E+00
PKER_SACCRG( 20, 5) = 0.000000E+00
PKER_SACCRG( 20, 6) = 0.000000E+00
- PKER_SACCRG( 20, 7) = 0.000000E+00
- PKER_SACCRG( 20, 8) = 0.000000E+00
- PKER_SACCRG( 20, 9) = 0.000000E+00
- PKER_SACCRG( 20, 10) = 0.000000E+00
- PKER_SACCRG( 20, 11) = 0.000000E+00
- PKER_SACCRG( 20, 12) = 0.000000E+00
- PKER_SACCRG( 20, 13) = 0.129560E-08
- PKER_SACCRG( 20, 14) = 0.461750E-06
- PKER_SACCRG( 20, 15) = 0.991868E-05
- PKER_SACCRG( 20, 16) = 0.404619E-01
- PKER_SACCRG( 20, 17) = 0.376740E-01
- PKER_SACCRG( 20, 18) = 0.912299E-02
- PKER_SACCRG( 20, 19) = 0.431984E-01
- PKER_SACCRG( 20, 20) = 0.191703E-01
- PKER_SACCRG( 20, 21) = 0.492406E-01
- PKER_SACCRG( 20, 22) = 0.618254E-01
- PKER_SACCRG( 20, 23) = 0.738280E-01
- PKER_SACCRG( 20, 24) = 0.817314E-01
- PKER_SACCRG( 20, 25) = 0.125224E+00
- PKER_SACCRG( 20, 26) = 0.171144E+00
- PKER_SACCRG( 20, 27) = 0.237848E+00
- PKER_SACCRG( 20, 28) = 0.298348E+00
- PKER_SACCRG( 20, 29) = 0.325776E+00
- PKER_SACCRG( 20, 30) = 0.336589E+00
- PKER_SACCRG( 20, 31) = 0.333991E+00
- PKER_SACCRG( 20, 32) = 0.328042E+00
- PKER_SACCRG( 20, 33) = 0.322558E+00
- PKER_SACCRG( 20, 34) = 0.320859E+00
- PKER_SACCRG( 20, 35) = 0.316600E+00
- PKER_SACCRG( 20, 36) = 0.308313E+00
+ PKER_SACCRG( 20, 7) = 0.203862E-05
+ PKER_SACCRG( 20, 8) = 0.764528E+00
+ PKER_SACCRG( 20, 9) = 0.710601E+00
+ PKER_SACCRG( 20, 10) = 0.700965E-01
+ PKER_SACCRG( 20, 11) = 0.747194E+00
+ PKER_SACCRG( 20, 12) = 0.774270E+00
+ PKER_SACCRG( 20, 13) = 0.776836E+00
+ PKER_SACCRG( 20, 14) = 0.765712E+00
+ PKER_SACCRG( 20, 15) = 0.746082E+00
+ PKER_SACCRG( 20, 16) = 0.745056E+00
+ PKER_SACCRG( 20, 17) = 0.619439E+00
+ PKER_SACCRG( 20, 18) = 0.655904E+00
+ PKER_SACCRG( 20, 19) = 0.657570E+00
+ PKER_SACCRG( 20, 20) = 0.650238E+00
+ PKER_SACCRG( 20, 21) = 0.615243E+00
+ PKER_SACCRG( 20, 22) = 0.576344E+00
+ PKER_SACCRG( 20, 23) = 0.535271E+00
+ PKER_SACCRG( 20, 24) = 0.494190E+00
+ PKER_SACCRG( 20, 25) = 0.457900E+00
+ PKER_SACCRG( 20, 26) = 0.425102E+00
+ PKER_SACCRG( 20, 27) = 0.395251E+00
+ PKER_SACCRG( 20, 28) = 0.374572E+00
+ PKER_SACCRG( 20, 29) = 0.356120E+00
+ PKER_SACCRG( 20, 30) = 0.338384E+00
+ PKER_SACCRG( 20, 31) = 0.326983E+00
+ PKER_SACCRG( 20, 32) = 0.319595E+00
+ PKER_SACCRG( 20, 33) = 0.314023E+00
+ PKER_SACCRG( 20, 34) = 0.312357E+00
+ PKER_SACCRG( 20, 35) = 0.308179E+00
+ PKER_SACCRG( 20, 36) = 0.300050E+00
PKER_SACCRG( 20, 37) = 0.000000E+00
PKER_SACCRG( 20, 38) = 0.000000E+00
PKER_SACCRG( 20, 39) = 0.000000E+00
@@ -4151,36 +4154,36 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 21, 4) = 0.000000E+00
PKER_SACCRG( 21, 5) = 0.000000E+00
PKER_SACCRG( 21, 6) = 0.000000E+00
- PKER_SACCRG( 21, 7) = 0.000000E+00
- PKER_SACCRG( 21, 8) = 0.000000E+00
- PKER_SACCRG( 21, 9) = 0.000000E+00
- PKER_SACCRG( 21, 10) = 0.000000E+00
- PKER_SACCRG( 21, 11) = 0.000000E+00
- PKER_SACCRG( 21, 12) = 0.000000E+00
- PKER_SACCRG( 21, 13) = 0.000000E+00
- PKER_SACCRG( 21, 14) = 0.944456E-08
- PKER_SACCRG( 21, 15) = 0.743621E-06
- PKER_SACCRG( 21, 16) = 0.442453E+00
- PKER_SACCRG( 21, 17) = 0.391188E-01
- PKER_SACCRG( 21, 18) = 0.365342E-01
- PKER_SACCRG( 21, 19) = 0.111999E+00
- PKER_SACCRG( 21, 20) = 0.388643E-01
- PKER_SACCRG( 21, 21) = 0.848382E-01
- PKER_SACCRG( 21, 22) = 0.875713E-01
- PKER_SACCRG( 21, 23) = 0.938496E-01
- PKER_SACCRG( 21, 24) = 0.107423E+00
- PKER_SACCRG( 21, 25) = 0.155062E+00
- PKER_SACCRG( 21, 26) = 0.191831E+00
- PKER_SACCRG( 21, 27) = 0.256278E+00
- PKER_SACCRG( 21, 28) = 0.316744E+00
- PKER_SACCRG( 21, 29) = 0.344380E+00
- PKER_SACCRG( 21, 30) = 0.357297E+00
- PKER_SACCRG( 21, 31) = 0.355528E+00
- PKER_SACCRG( 21, 32) = 0.349787E+00
- PKER_SACCRG( 21, 33) = 0.344401E+00
- PKER_SACCRG( 21, 34) = 0.342705E+00
- PKER_SACCRG( 21, 35) = 0.338523E+00
- PKER_SACCRG( 21, 36) = 0.330421E+00
+ PKER_SACCRG( 21, 7) = 0.891306E-07
+ PKER_SACCRG( 21, 8) = 0.782659E+00
+ PKER_SACCRG( 21, 9) = 0.728819E+00
+ PKER_SACCRG( 21, 10) = 0.653032E-01
+ PKER_SACCRG( 21, 11) = 0.765407E+00
+ PKER_SACCRG( 21, 12) = 0.792455E+00
+ PKER_SACCRG( 21, 13) = 0.795027E+00
+ PKER_SACCRG( 21, 14) = 0.783931E+00
+ PKER_SACCRG( 21, 15) = 0.764347E+00
+ PKER_SACCRG( 21, 16) = 0.763345E+00
+ PKER_SACCRG( 21, 17) = 0.747753E+00
+ PKER_SACCRG( 21, 18) = 0.734019E+00
+ PKER_SACCRG( 21, 19) = 0.675195E+00
+ PKER_SACCRG( 21, 20) = 0.678540E+00
+ PKER_SACCRG( 21, 21) = 0.636050E+00
+ PKER_SACCRG( 21, 22) = 0.595666E+00
+ PKER_SACCRG( 21, 23) = 0.554733E+00
+ PKER_SACCRG( 21, 24) = 0.514033E+00
+ PKER_SACCRG( 21, 25) = 0.478069E+00
+ PKER_SACCRG( 21, 26) = 0.445607E+00
+ PKER_SACCRG( 21, 27) = 0.416117E+00
+ PKER_SACCRG( 21, 28) = 0.395587E+00
+ PKER_SACCRG( 21, 29) = 0.377336E+00
+ PKER_SACCRG( 21, 30) = 0.359864E+00
+ PKER_SACCRG( 21, 31) = 0.348609E+00
+ PKER_SACCRG( 21, 32) = 0.341311E+00
+ PKER_SACCRG( 21, 33) = 0.335817E+00
+ PKER_SACCRG( 21, 34) = 0.334153E+00
+ PKER_SACCRG( 21, 35) = 0.330049E+00
+ PKER_SACCRG( 21, 36) = 0.322098E+00
PKER_SACCRG( 21, 37) = 0.000000E+00
PKER_SACCRG( 21, 38) = 0.000000E+00
PKER_SACCRG( 21, 39) = 0.000000E+00
@@ -4191,36 +4194,36 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 22, 4) = 0.000000E+00
PKER_SACCRG( 22, 5) = 0.000000E+00
PKER_SACCRG( 22, 6) = 0.000000E+00
- PKER_SACCRG( 22, 7) = 0.000000E+00
- PKER_SACCRG( 22, 8) = 0.000000E+00
- PKER_SACCRG( 22, 9) = 0.000000E+00
- PKER_SACCRG( 22, 10) = 0.000000E+00
- PKER_SACCRG( 22, 11) = 0.000000E+00
- PKER_SACCRG( 22, 12) = 0.000000E+00
- PKER_SACCRG( 22, 13) = 0.000000E+00
- PKER_SACCRG( 22, 14) = 0.000000E+00
- PKER_SACCRG( 22, 15) = 0.301594E-07
- PKER_SACCRG( 22, 16) = 0.458593E+00
- PKER_SACCRG( 22, 17) = 0.425018E+00
- PKER_SACCRG( 22, 18) = 0.376611E-01
- PKER_SACCRG( 22, 19) = 0.115562E+00
- PKER_SACCRG( 22, 20) = 0.101686E+00
- PKER_SACCRG( 22, 21) = 0.171258E+00
- PKER_SACCRG( 22, 22) = 0.133854E+00
- PKER_SACCRG( 22, 23) = 0.170618E+00
- PKER_SACCRG( 22, 24) = 0.159301E+00
- PKER_SACCRG( 22, 25) = 0.195009E+00
- PKER_SACCRG( 22, 26) = 0.229057E+00
- PKER_SACCRG( 22, 27) = 0.279005E+00
- PKER_SACCRG( 22, 28) = 0.335986E+00
- PKER_SACCRG( 22, 29) = 0.360465E+00
- PKER_SACCRG( 22, 30) = 0.374161E+00
- PKER_SACCRG( 22, 31) = 0.372873E+00
- PKER_SACCRG( 22, 32) = 0.367297E+00
- PKER_SACCRG( 22, 33) = 0.361988E+00
- PKER_SACCRG( 22, 34) = 0.360293E+00
- PKER_SACCRG( 22, 35) = 0.356173E+00
- PKER_SACCRG( 22, 36) = 0.348226E+00
+ PKER_SACCRG( 22, 7) = 0.966144E-09
+ PKER_SACCRG( 22, 8) = 0.797610E+00
+ PKER_SACCRG( 22, 9) = 0.743828E+00
+ PKER_SACCRG( 22, 10) = 0.642319E-01
+ PKER_SACCRG( 22, 11) = 0.780419E+00
+ PKER_SACCRG( 22, 12) = 0.807449E+00
+ PKER_SACCRG( 22, 13) = 0.810027E+00
+ PKER_SACCRG( 22, 14) = 0.798951E+00
+ PKER_SACCRG( 22, 15) = 0.779398E+00
+ PKER_SACCRG( 22, 16) = 0.778415E+00
+ PKER_SACCRG( 22, 17) = 0.762865E+00
+ PKER_SACCRG( 22, 18) = 0.749185E+00
+ PKER_SACCRG( 22, 19) = 0.689690E+00
+ PKER_SACCRG( 22, 20) = 0.693901E+00
+ PKER_SACCRG( 22, 21) = 0.651488E+00
+ PKER_SACCRG( 22, 22) = 0.611605E+00
+ PKER_SACCRG( 22, 23) = 0.570638E+00
+ PKER_SACCRG( 22, 24) = 0.530197E+00
+ PKER_SACCRG( 22, 25) = 0.494459E+00
+ PKER_SACCRG( 22, 26) = 0.462233E+00
+ PKER_SACCRG( 22, 27) = 0.433000E+00
+ PKER_SACCRG( 22, 28) = 0.412570E+00
+ PKER_SACCRG( 22, 29) = 0.394464E+00
+ PKER_SACCRG( 22, 30) = 0.377193E+00
+ PKER_SACCRG( 22, 31) = 0.366051E+00
+ PKER_SACCRG( 22, 32) = 0.358824E+00
+ PKER_SACCRG( 22, 33) = 0.353395E+00
+ PKER_SACCRG( 22, 34) = 0.351732E+00
+ PKER_SACCRG( 22, 35) = 0.347690E+00
+ PKER_SACCRG( 22, 36) = 0.339892E+00
PKER_SACCRG( 22, 37) = 0.000000E+00
PKER_SACCRG( 22, 38) = 0.000000E+00
PKER_SACCRG( 22, 39) = 0.000000E+00
@@ -4232,35 +4235,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 23, 5) = 0.000000E+00
PKER_SACCRG( 23, 6) = 0.000000E+00
PKER_SACCRG( 23, 7) = 0.000000E+00
- PKER_SACCRG( 23, 8) = 0.000000E+00
- PKER_SACCRG( 23, 9) = 0.000000E+00
- PKER_SACCRG( 23, 10) = 0.000000E+00
- PKER_SACCRG( 23, 11) = 0.000000E+00
- PKER_SACCRG( 23, 12) = 0.000000E+00
- PKER_SACCRG( 23, 13) = 0.000000E+00
- PKER_SACCRG( 23, 14) = 0.000000E+00
- PKER_SACCRG( 23, 15) = 0.474816E-09
- PKER_SACCRG( 23, 16) = 0.471716E+00
- PKER_SACCRG( 23, 17) = 0.438382E+00
- PKER_SACCRG( 23, 18) = 0.385478E-01
- PKER_SACCRG( 23, 19) = 0.460661E+00
- PKER_SACCRG( 23, 20) = 0.104389E+00
- PKER_SACCRG( 23, 21) = 0.175908E+00
- PKER_SACCRG( 23, 22) = 0.228218E+00
- PKER_SACCRG( 23, 23) = 0.262318E+00
- PKER_SACCRG( 23, 24) = 0.210313E+00
- PKER_SACCRG( 23, 25) = 0.229302E+00
- PKER_SACCRG( 23, 26) = 0.277715E+00
- PKER_SACCRG( 23, 27) = 0.316637E+00
- PKER_SACCRG( 23, 28) = 0.358767E+00
- PKER_SACCRG( 23, 29) = 0.376353E+00
- PKER_SACCRG( 23, 30) = 0.388397E+00
- PKER_SACCRG( 23, 31) = 0.386871E+00
- PKER_SACCRG( 23, 32) = 0.381361E+00
- PKER_SACCRG( 23, 33) = 0.376104E+00
- PKER_SACCRG( 23, 34) = 0.374406E+00
- PKER_SACCRG( 23, 35) = 0.370329E+00
- PKER_SACCRG( 23, 36) = 0.362490E+00
+ PKER_SACCRG( 23, 8) = 0.809950E+00
+ PKER_SACCRG( 23, 9) = 0.756206E+00
+ PKER_SACCRG( 23, 10) = 0.646488E-01
+ PKER_SACCRG( 23, 11) = 0.792804E+00
+ PKER_SACCRG( 23, 12) = 0.819823E+00
+ PKER_SACCRG( 23, 13) = 0.822406E+00
+ PKER_SACCRG( 23, 14) = 0.811343E+00
+ PKER_SACCRG( 23, 15) = 0.791813E+00
+ PKER_SACCRG( 23, 16) = 0.790844E+00
+ PKER_SACCRG( 23, 17) = 0.775323E+00
+ PKER_SACCRG( 23, 18) = 0.761683E+00
+ PKER_SACCRG( 23, 19) = 0.734770E+00
+ PKER_SACCRG( 23, 20) = 0.706539E+00
+ PKER_SACCRG( 23, 21) = 0.664171E+00
+ PKER_SACCRG( 23, 22) = 0.624455E+00
+ PKER_SACCRG( 23, 23) = 0.583644E+00
+ PKER_SACCRG( 23, 24) = 0.543394E+00
+ PKER_SACCRG( 23, 25) = 0.507808E+00
+ PKER_SACCRG( 23, 26) = 0.475738E+00
+ PKER_SACCRG( 23, 27) = 0.446677E+00
+ PKER_SACCRG( 23, 28) = 0.426302E+00
+ PKER_SACCRG( 23, 29) = 0.408285E+00
+ PKER_SACCRG( 23, 30) = 0.391148E+00
+ PKER_SACCRG( 23, 31) = 0.380079E+00
+ PKER_SACCRG( 23, 32) = 0.372897E+00
+ PKER_SACCRG( 23, 33) = 0.367509E+00
+ PKER_SACCRG( 23, 34) = 0.365844E+00
+ PKER_SACCRG( 23, 35) = 0.361844E+00
+ PKER_SACCRG( 23, 36) = 0.354155E+00
PKER_SACCRG( 23, 37) = 0.000000E+00
PKER_SACCRG( 23, 38) = 0.000000E+00
PKER_SACCRG( 23, 39) = 0.000000E+00
@@ -4272,35 +4275,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 24, 5) = 0.000000E+00
PKER_SACCRG( 24, 6) = 0.000000E+00
PKER_SACCRG( 24, 7) = 0.000000E+00
- PKER_SACCRG( 24, 8) = 0.000000E+00
- PKER_SACCRG( 24, 9) = 0.000000E+00
- PKER_SACCRG( 24, 10) = 0.000000E+00
- PKER_SACCRG( 24, 11) = 0.000000E+00
- PKER_SACCRG( 24, 12) = 0.000000E+00
- PKER_SACCRG( 24, 13) = 0.000000E+00
- PKER_SACCRG( 24, 14) = 0.000000E+00
- PKER_SACCRG( 24, 15) = 0.000000E+00
- PKER_SACCRG( 24, 16) = 0.482421E+00
- PKER_SACCRG( 24, 17) = 0.449246E+00
- PKER_SACCRG( 24, 18) = 0.418021E+00
- PKER_SACCRG( 24, 19) = 0.471528E+00
- PKER_SACCRG( 24, 20) = 0.106574E+00
- PKER_SACCRG( 24, 21) = 0.457583E+00
- PKER_SACCRG( 24, 22) = 0.457441E+00
- PKER_SACCRG( 24, 23) = 0.268282E+00
- PKER_SACCRG( 24, 24) = 0.295154E+00
- PKER_SACCRG( 24, 25) = 0.277246E+00
- PKER_SACCRG( 24, 26) = 0.318509E+00
- PKER_SACCRG( 24, 27) = 0.341083E+00
- PKER_SACCRG( 24, 28) = 0.383566E+00
- PKER_SACCRG( 24, 29) = 0.393965E+00
- PKER_SACCRG( 24, 30) = 0.400814E+00
- PKER_SACCRG( 24, 31) = 0.398325E+00
- PKER_SACCRG( 24, 32) = 0.392699E+00
- PKER_SACCRG( 24, 33) = 0.387475E+00
- PKER_SACCRG( 24, 34) = 0.385773E+00
- PKER_SACCRG( 24, 35) = 0.381723E+00
- PKER_SACCRG( 24, 36) = 0.373956E+00
+ PKER_SACCRG( 24, 8) = 0.820142E+00
+ PKER_SACCRG( 24, 9) = 0.766421E+00
+ PKER_SACCRG( 24, 10) = 0.653914E-01
+ PKER_SACCRG( 24, 11) = 0.803028E+00
+ PKER_SACCRG( 24, 12) = 0.830041E+00
+ PKER_SACCRG( 24, 13) = 0.832627E+00
+ PKER_SACCRG( 24, 14) = 0.821575E+00
+ PKER_SACCRG( 24, 15) = 0.802060E+00
+ PKER_SACCRG( 24, 16) = 0.801102E+00
+ PKER_SACCRG( 24, 17) = 0.785603E+00
+ PKER_SACCRG( 24, 18) = 0.771992E+00
+ PKER_SACCRG( 24, 19) = 0.745123E+00
+ PKER_SACCRG( 24, 20) = 0.716949E+00
+ PKER_SACCRG( 24, 21) = 0.677488E+00
+ PKER_SACCRG( 24, 22) = 0.635018E+00
+ PKER_SACCRG( 24, 23) = 0.594312E+00
+ PKER_SACCRG( 24, 24) = 0.554195E+00
+ PKER_SACCRG( 24, 25) = 0.518710E+00
+ PKER_SACCRG( 24, 26) = 0.486743E+00
+ PKER_SACCRG( 24, 27) = 0.457793E+00
+ PKER_SACCRG( 24, 28) = 0.437444E+00
+ PKER_SACCRG( 24, 29) = 0.419480E+00
+ PKER_SACCRG( 24, 30) = 0.402426E+00
+ PKER_SACCRG( 24, 31) = 0.391400E+00
+ PKER_SACCRG( 24, 32) = 0.384242E+00
+ PKER_SACCRG( 24, 33) = 0.378879E+00
+ PKER_SACCRG( 24, 34) = 0.377210E+00
+ PKER_SACCRG( 24, 35) = 0.373238E+00
+ PKER_SACCRG( 24, 36) = 0.365620E+00
PKER_SACCRG( 24, 37) = 0.000000E+00
PKER_SACCRG( 24, 38) = 0.000000E+00
PKER_SACCRG( 24, 39) = 0.000000E+00
@@ -4312,35 +4315,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 25, 5) = 0.000000E+00
PKER_SACCRG( 25, 6) = 0.000000E+00
PKER_SACCRG( 25, 7) = 0.000000E+00
- PKER_SACCRG( 25, 8) = 0.000000E+00
- PKER_SACCRG( 25, 9) = 0.000000E+00
- PKER_SACCRG( 25, 10) = 0.000000E+00
- PKER_SACCRG( 25, 11) = 0.000000E+00
- PKER_SACCRG( 25, 12) = 0.000000E+00
- PKER_SACCRG( 25, 13) = 0.000000E+00
- PKER_SACCRG( 25, 14) = 0.000000E+00
- PKER_SACCRG( 25, 15) = 0.000000E+00
- PKER_SACCRG( 25, 16) = 0.493305E+00
- PKER_SACCRG( 25, 17) = 0.460084E+00
- PKER_SACCRG( 25, 18) = 0.428847E+00
- PKER_SACCRG( 25, 19) = 0.482480E+00
- PKER_SACCRG( 25, 20) = 0.457996E+00
- PKER_SACCRG( 25, 21) = 0.468489E+00
- PKER_SACCRG( 25, 22) = 0.468385E+00
- PKER_SACCRG( 25, 23) = 0.465913E+00
- PKER_SACCRG( 25, 24) = 0.302045E+00
- PKER_SACCRG( 25, 25) = 0.349681E+00
- PKER_SACCRG( 25, 26) = 0.375849E+00
- PKER_SACCRG( 25, 27) = 0.372009E+00
- PKER_SACCRG( 25, 28) = 0.404973E+00
- PKER_SACCRG( 25, 29) = 0.408427E+00
- PKER_SACCRG( 25, 30) = 0.413563E+00
- PKER_SACCRG( 25, 31) = 0.409638E+00
- PKER_SACCRG( 25, 32) = 0.403614E+00
- PKER_SACCRG( 25, 33) = 0.398367E+00
- PKER_SACCRG( 25, 34) = 0.396652E+00
- PKER_SACCRG( 25, 35) = 0.392598E+00
- PKER_SACCRG( 25, 36) = 0.384841E+00
+ PKER_SACCRG( 25, 8) = 0.828562E+00
+ PKER_SACCRG( 25, 9) = 0.774858E+00
+ PKER_SACCRG( 25, 10) = 0.660824E-01
+ PKER_SACCRG( 25, 11) = 0.811473E+00
+ PKER_SACCRG( 25, 12) = 0.838483E+00
+ PKER_SACCRG( 25, 13) = 0.841072E+00
+ PKER_SACCRG( 25, 14) = 0.830027E+00
+ PKER_SACCRG( 25, 15) = 0.810523E+00
+ PKER_SACCRG( 25, 16) = 0.809573E+00
+ PKER_SACCRG( 25, 17) = 0.794090E+00
+ PKER_SACCRG( 25, 18) = 0.780501E+00
+ PKER_SACCRG( 25, 19) = 0.753664E+00
+ PKER_SACCRG( 25, 20) = 0.725532E+00
+ PKER_SACCRG( 25, 21) = 0.686127E+00
+ PKER_SACCRG( 25, 22) = 0.643712E+00
+ PKER_SACCRG( 25, 23) = 0.603078E+00
+ PKER_SACCRG( 25, 24) = 0.563054E+00
+ PKER_SACCRG( 25, 25) = 0.527636E+00
+ PKER_SACCRG( 25, 26) = 0.495736E+00
+ PKER_SACCRG( 25, 27) = 0.466859E+00
+ PKER_SACCRG( 25, 28) = 0.446518E+00
+ PKER_SACCRG( 25, 29) = 0.428582E+00
+ PKER_SACCRG( 25, 30) = 0.411579E+00
+ PKER_SACCRG( 25, 31) = 0.400576E+00
+ PKER_SACCRG( 25, 32) = 0.393431E+00
+ PKER_SACCRG( 25, 33) = 0.388081E+00
+ PKER_SACCRG( 25, 34) = 0.386408E+00
+ PKER_SACCRG( 25, 35) = 0.382451E+00
+ PKER_SACCRG( 25, 36) = 0.374880E+00
PKER_SACCRG( 25, 37) = 0.000000E+00
PKER_SACCRG( 25, 38) = 0.000000E+00
PKER_SACCRG( 25, 39) = 0.000000E+00
@@ -4352,35 +4355,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 26, 5) = 0.000000E+00
PKER_SACCRG( 26, 6) = 0.000000E+00
PKER_SACCRG( 26, 7) = 0.000000E+00
- PKER_SACCRG( 26, 8) = 0.000000E+00
- PKER_SACCRG( 26, 9) = 0.000000E+00
- PKER_SACCRG( 26, 10) = 0.000000E+00
- PKER_SACCRG( 26, 11) = 0.000000E+00
- PKER_SACCRG( 26, 12) = 0.000000E+00
- PKER_SACCRG( 26, 13) = 0.000000E+00
- PKER_SACCRG( 26, 14) = 0.000000E+00
- PKER_SACCRG( 26, 15) = 0.000000E+00
- PKER_SACCRG( 26, 16) = 0.498360E+00
- PKER_SACCRG( 26, 17) = 0.465358E+00
- PKER_SACCRG( 26, 18) = 0.434351E+00
- PKER_SACCRG( 26, 19) = 0.487671E+00
- PKER_SACCRG( 26, 20) = 0.463284E+00
- PKER_SACCRG( 26, 21) = 0.473752E+00
- PKER_SACCRG( 26, 22) = 0.473679E+00
- PKER_SACCRG( 26, 23) = 0.471200E+00
- PKER_SACCRG( 26, 24) = 0.305321E+00
- PKER_SACCRG( 26, 25) = 0.460272E+00
- PKER_SACCRG( 26, 26) = 0.380186E+00
- PKER_SACCRG( 26, 27) = 0.407235E+00
- PKER_SACCRG( 26, 28) = 0.425703E+00
- PKER_SACCRG( 26, 29) = 0.419464E+00
- PKER_SACCRG( 26, 30) = 0.420713E+00
- PKER_SACCRG( 26, 31) = 0.415965E+00
- PKER_SACCRG( 26, 32) = 0.409433E+00
- PKER_SACCRG( 26, 33) = 0.404156E+00
- PKER_SACCRG( 26, 34) = 0.402444E+00
- PKER_SACCRG( 26, 35) = 0.398420E+00
- PKER_SACCRG( 26, 36) = 0.390729E+00
+ PKER_SACCRG( 26, 8) = 0.835522E+00
+ PKER_SACCRG( 26, 9) = 0.781829E+00
+ PKER_SACCRG( 26, 10) = 0.666630E-01
+ PKER_SACCRG( 26, 11) = 0.818452E+00
+ PKER_SACCRG( 26, 12) = 0.845460E+00
+ PKER_SACCRG( 26, 13) = 0.848051E+00
+ PKER_SACCRG( 26, 14) = 0.837011E+00
+ PKER_SACCRG( 26, 15) = 0.817515E+00
+ PKER_SACCRG( 26, 16) = 0.816572E+00
+ PKER_SACCRG( 26, 17) = 0.801101E+00
+ PKER_SACCRG( 26, 18) = 0.787528E+00
+ PKER_SACCRG( 26, 19) = 0.760715E+00
+ PKER_SACCRG( 26, 20) = 0.732614E+00
+ PKER_SACCRG( 26, 21) = 0.693249E+00
+ PKER_SACCRG( 26, 22) = 0.650875E+00
+ PKER_SACCRG( 26, 23) = 0.610290E+00
+ PKER_SACCRG( 26, 24) = 0.570332E+00
+ PKER_SACCRG( 26, 25) = 0.534960E+00
+ PKER_SACCRG( 26, 26) = 0.503102E+00
+ PKER_SACCRG( 26, 27) = 0.474272E+00
+ PKER_SACCRG( 26, 28) = 0.453930E+00
+ PKER_SACCRG( 26, 29) = 0.436008E+00
+ PKER_SACCRG( 26, 30) = 0.419035E+00
+ PKER_SACCRG( 26, 31) = 0.408042E+00
+ PKER_SACCRG( 26, 32) = 0.400902E+00
+ PKER_SACCRG( 26, 33) = 0.395559E+00
+ PKER_SACCRG( 26, 34) = 0.393881E+00
+ PKER_SACCRG( 26, 35) = 0.389934E+00
+ PKER_SACCRG( 26, 36) = 0.382393E+00
PKER_SACCRG( 26, 37) = 0.000000E+00
PKER_SACCRG( 26, 38) = 0.000000E+00
PKER_SACCRG( 26, 39) = 0.000000E+00
@@ -4392,35 +4395,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 27, 5) = 0.000000E+00
PKER_SACCRG( 27, 6) = 0.000000E+00
PKER_SACCRG( 27, 7) = 0.000000E+00
- PKER_SACCRG( 27, 8) = 0.000000E+00
- PKER_SACCRG( 27, 9) = 0.000000E+00
- PKER_SACCRG( 27, 10) = 0.000000E+00
- PKER_SACCRG( 27, 11) = 0.000000E+00
- PKER_SACCRG( 27, 12) = 0.000000E+00
- PKER_SACCRG( 27, 13) = 0.000000E+00
- PKER_SACCRG( 27, 14) = 0.000000E+00
- PKER_SACCRG( 27, 15) = 0.000000E+00
- PKER_SACCRG( 27, 16) = 0.504260E+00
- PKER_SACCRG( 27, 17) = 0.471302E+00
- PKER_SACCRG( 27, 18) = 0.440353E+00
- PKER_SACCRG( 27, 19) = 0.493636E+00
- PKER_SACCRG( 27, 20) = 0.469232E+00
- PKER_SACCRG( 27, 21) = 0.479719E+00
- PKER_SACCRG( 27, 22) = 0.479669E+00
- PKER_SACCRG( 27, 23) = 0.477177E+00
- PKER_SACCRG( 27, 24) = 0.464189E+00
- PKER_SACCRG( 27, 25) = 0.466286E+00
- PKER_SACCRG( 27, 26) = 0.385058E+00
- PKER_SACCRG( 27, 27) = 0.412596E+00
- PKER_SACCRG( 27, 28) = 0.452611E+00
- PKER_SACCRG( 27, 29) = 0.433046E+00
- PKER_SACCRG( 27, 30) = 0.428880E+00
- PKER_SACCRG( 27, 31) = 0.422050E+00
- PKER_SACCRG( 27, 32) = 0.415579E+00
- PKER_SACCRG( 27, 33) = 0.410255E+00
- PKER_SACCRG( 27, 34) = 0.408538E+00
- PKER_SACCRG( 27, 35) = 0.404518E+00
- PKER_SACCRG( 27, 36) = 0.396847E+00
+ PKER_SACCRG( 27, 8) = 0.841277E+00
+ PKER_SACCRG( 27, 9) = 0.787591E+00
+ PKER_SACCRG( 27, 10) = 0.737216E+00
+ PKER_SACCRG( 27, 11) = 0.824221E+00
+ PKER_SACCRG( 27, 12) = 0.851228E+00
+ PKER_SACCRG( 27, 13) = 0.853821E+00
+ PKER_SACCRG( 27, 14) = 0.842785E+00
+ PKER_SACCRG( 27, 15) = 0.823295E+00
+ PKER_SACCRG( 27, 16) = 0.822357E+00
+ PKER_SACCRG( 27, 17) = 0.806894E+00
+ PKER_SACCRG( 27, 18) = 0.793334E+00
+ PKER_SACCRG( 27, 19) = 0.766539E+00
+ PKER_SACCRG( 27, 20) = 0.738460E+00
+ PKER_SACCRG( 27, 21) = 0.699126E+00
+ PKER_SACCRG( 27, 22) = 0.656782E+00
+ PKER_SACCRG( 27, 23) = 0.616230E+00
+ PKER_SACCRG( 27, 24) = 0.576319E+00
+ PKER_SACCRG( 27, 25) = 0.540977E+00
+ PKER_SACCRG( 27, 26) = 0.509148E+00
+ PKER_SACCRG( 27, 27) = 0.480347E+00
+ PKER_SACCRG( 27, 28) = 0.460000E+00
+ PKER_SACCRG( 27, 29) = 0.442082E+00
+ PKER_SACCRG( 27, 30) = 0.425126E+00
+ PKER_SACCRG( 27, 31) = 0.414137E+00
+ PKER_SACCRG( 27, 32) = 0.406997E+00
+ PKER_SACCRG( 27, 33) = 0.401657E+00
+ PKER_SACCRG( 27, 34) = 0.399974E+00
+ PKER_SACCRG( 27, 35) = 0.396033E+00
+ PKER_SACCRG( 27, 36) = 0.388511E+00
PKER_SACCRG( 27, 37) = 0.000000E+00
PKER_SACCRG( 27, 38) = 0.000000E+00
PKER_SACCRG( 27, 39) = 0.000000E+00
@@ -4432,35 +4435,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 28, 5) = 0.000000E+00
PKER_SACCRG( 28, 6) = 0.000000E+00
PKER_SACCRG( 28, 7) = 0.000000E+00
- PKER_SACCRG( 28, 8) = 0.000000E+00
- PKER_SACCRG( 28, 9) = 0.000000E+00
- PKER_SACCRG( 28, 10) = 0.000000E+00
- PKER_SACCRG( 28, 11) = 0.000000E+00
- PKER_SACCRG( 28, 12) = 0.000000E+00
- PKER_SACCRG( 28, 13) = 0.000000E+00
- PKER_SACCRG( 28, 14) = 0.000000E+00
- PKER_SACCRG( 28, 15) = 0.000000E+00
- PKER_SACCRG( 28, 16) = 0.511289E+00
- PKER_SACCRG( 28, 17) = 0.478218E+00
- PKER_SACCRG( 28, 18) = 0.447169E+00
- PKER_SACCRG( 28, 19) = 0.500667E+00
- PKER_SACCRG( 28, 20) = 0.476141E+00
- PKER_SACCRG( 28, 21) = 0.486690E+00
- PKER_SACCRG( 28, 22) = 0.486657E+00
- PKER_SACCRG( 28, 23) = 0.484143E+00
- PKER_SACCRG( 28, 24) = 0.471128E+00
- PKER_SACCRG( 28, 25) = 0.473232E+00
- PKER_SACCRG( 28, 26) = 0.467330E+00
- PKER_SACCRG( 28, 27) = 0.462303E+00
- PKER_SACCRG( 28, 28) = 0.459518E+00
- PKER_SACCRG( 28, 29) = 0.439730E+00
- PKER_SACCRG( 28, 30) = 0.435663E+00
- PKER_SACCRG( 28, 31) = 0.429350E+00
- PKER_SACCRG( 28, 32) = 0.422348E+00
- PKER_SACCRG( 28, 33) = 0.417002E+00
- PKER_SACCRG( 28, 34) = 0.415273E+00
- PKER_SACCRG( 28, 35) = 0.411238E+00
- PKER_SACCRG( 28, 36) = 0.403544E+00
+ PKER_SACCRG( 28, 8) = 0.846037E+00
+ PKER_SACCRG( 28, 9) = 0.792355E+00
+ PKER_SACCRG( 28, 10) = 0.741987E+00
+ PKER_SACCRG( 28, 11) = 0.828991E+00
+ PKER_SACCRG( 28, 12) = 0.855999E+00
+ PKER_SACCRG( 28, 13) = 0.858593E+00
+ PKER_SACCRG( 28, 14) = 0.847560E+00
+ PKER_SACCRG( 28, 15) = 0.828074E+00
+ PKER_SACCRG( 28, 16) = 0.827139E+00
+ PKER_SACCRG( 28, 17) = 0.811684E+00
+ PKER_SACCRG( 28, 18) = 0.798132E+00
+ PKER_SACCRG( 28, 19) = 0.771351E+00
+ PKER_SACCRG( 28, 20) = 0.743290E+00
+ PKER_SACCRG( 28, 21) = 0.703977E+00
+ PKER_SACCRG( 28, 22) = 0.661655E+00
+ PKER_SACCRG( 28, 23) = 0.621127E+00
+ PKER_SACCRG( 28, 24) = 0.581251E+00
+ PKER_SACCRG( 28, 25) = 0.545929E+00
+ PKER_SACCRG( 28, 26) = 0.514118E+00
+ PKER_SACCRG( 28, 27) = 0.485336E+00
+ PKER_SACCRG( 28, 28) = 0.464980E+00
+ PKER_SACCRG( 28, 29) = 0.447062E+00
+ PKER_SACCRG( 28, 30) = 0.430115E+00
+ PKER_SACCRG( 28, 31) = 0.419126E+00
+ PKER_SACCRG( 28, 32) = 0.411984E+00
+ PKER_SACCRG( 28, 33) = 0.406644E+00
+ PKER_SACCRG( 28, 34) = 0.404957E+00
+ PKER_SACCRG( 28, 35) = 0.401019E+00
+ PKER_SACCRG( 28, 36) = 0.393508E+00
PKER_SACCRG( 28, 37) = 0.000000E+00
PKER_SACCRG( 28, 38) = 0.000000E+00
PKER_SACCRG( 28, 39) = 0.000000E+00
@@ -4472,35 +4475,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 29, 5) = 0.000000E+00
PKER_SACCRG( 29, 6) = 0.000000E+00
PKER_SACCRG( 29, 7) = 0.000000E+00
- PKER_SACCRG( 29, 8) = 0.000000E+00
- PKER_SACCRG( 29, 9) = 0.000000E+00
- PKER_SACCRG( 29, 10) = 0.000000E+00
- PKER_SACCRG( 29, 11) = 0.000000E+00
- PKER_SACCRG( 29, 12) = 0.000000E+00
- PKER_SACCRG( 29, 13) = 0.000000E+00
- PKER_SACCRG( 29, 14) = 0.000000E+00
- PKER_SACCRG( 29, 15) = 0.000000E+00
- PKER_SACCRG( 29, 16) = 0.515299E+00
- PKER_SACCRG( 29, 17) = 0.482248E+00
- PKER_SACCRG( 29, 18) = 0.451226E+00
- PKER_SACCRG( 29, 19) = 0.504714E+00
- PKER_SACCRG( 29, 20) = 0.480173E+00
- PKER_SACCRG( 29, 21) = 0.490737E+00
- PKER_SACCRG( 29, 22) = 0.490717E+00
- PKER_SACCRG( 29, 23) = 0.488194E+00
- PKER_SACCRG( 29, 24) = 0.475202E+00
- PKER_SACCRG( 29, 25) = 0.477303E+00
- PKER_SACCRG( 29, 26) = 0.471406E+00
- PKER_SACCRG( 29, 27) = 0.466391E+00
- PKER_SACCRG( 29, 28) = 0.463606E+00
- PKER_SACCRG( 29, 29) = 0.443703E+00
- PKER_SACCRG( 29, 30) = 0.442690E+00
- PKER_SACCRG( 29, 31) = 0.433456E+00
- PKER_SACCRG( 29, 32) = 0.426527E+00
- PKER_SACCRG( 29, 33) = 0.421106E+00
- PKER_SACCRG( 29, 34) = 0.419373E+00
- PKER_SACCRG( 29, 35) = 0.415340E+00
- PKER_SACCRG( 29, 36) = 0.407653E+00
+ PKER_SACCRG( 29, 8) = 0.849975E+00
+ PKER_SACCRG( 29, 9) = 0.796296E+00
+ PKER_SACCRG( 29, 10) = 0.745931E+00
+ PKER_SACCRG( 29, 11) = 0.832937E+00
+ PKER_SACCRG( 29, 12) = 0.859944E+00
+ PKER_SACCRG( 29, 13) = 0.862540E+00
+ PKER_SACCRG( 29, 14) = 0.851509E+00
+ PKER_SACCRG( 29, 15) = 0.832026E+00
+ PKER_SACCRG( 29, 16) = 0.831095E+00
+ PKER_SACCRG( 29, 17) = 0.815644E+00
+ PKER_SACCRG( 29, 18) = 0.802100E+00
+ PKER_SACCRG( 29, 19) = 0.775329E+00
+ PKER_SACCRG( 29, 20) = 0.747280E+00
+ PKER_SACCRG( 29, 21) = 0.707984E+00
+ PKER_SACCRG( 29, 22) = 0.665678E+00
+ PKER_SACCRG( 29, 23) = 0.625168E+00
+ PKER_SACCRG( 29, 24) = 0.585315E+00
+ PKER_SACCRG( 29, 25) = 0.550007E+00
+ PKER_SACCRG( 29, 26) = 0.518209E+00
+ PKER_SACCRG( 29, 27) = 0.489438E+00
+ PKER_SACCRG( 29, 28) = 0.469073E+00
+ PKER_SACCRG( 29, 29) = 0.451153E+00
+ PKER_SACCRG( 29, 30) = 0.434209E+00
+ PKER_SACCRG( 29, 31) = 0.423218E+00
+ PKER_SACCRG( 29, 32) = 0.416073E+00
+ PKER_SACCRG( 29, 33) = 0.410733E+00
+ PKER_SACCRG( 29, 34) = 0.409042E+00
+ PKER_SACCRG( 29, 35) = 0.405105E+00
+ PKER_SACCRG( 29, 36) = 0.397602E+00
PKER_SACCRG( 29, 37) = 0.000000E+00
PKER_SACCRG( 29, 38) = 0.000000E+00
PKER_SACCRG( 29, 39) = 0.000000E+00
@@ -4512,35 +4515,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 30, 5) = 0.000000E+00
PKER_SACCRG( 30, 6) = 0.000000E+00
PKER_SACCRG( 30, 7) = 0.000000E+00
- PKER_SACCRG( 30, 8) = 0.000000E+00
- PKER_SACCRG( 30, 9) = 0.000000E+00
- PKER_SACCRG( 30, 10) = 0.000000E+00
- PKER_SACCRG( 30, 11) = 0.000000E+00
- PKER_SACCRG( 30, 12) = 0.000000E+00
- PKER_SACCRG( 30, 13) = 0.000000E+00
- PKER_SACCRG( 30, 14) = 0.000000E+00
- PKER_SACCRG( 30, 15) = 0.000000E+00
- PKER_SACCRG( 30, 16) = 0.518606E+00
- PKER_SACCRG( 30, 17) = 0.485568E+00
- PKER_SACCRG( 30, 18) = 0.454563E+00
- PKER_SACCRG( 30, 19) = 0.508049E+00
- PKER_SACCRG( 30, 20) = 0.483494E+00
- PKER_SACCRG( 30, 21) = 0.494070E+00
- PKER_SACCRG( 30, 22) = 0.494061E+00
- PKER_SACCRG( 30, 23) = 0.491531E+00
- PKER_SACCRG( 30, 24) = 0.478555E+00
- PKER_SACCRG( 30, 25) = 0.480655E+00
- PKER_SACCRG( 30, 26) = 0.474762E+00
- PKER_SACCRG( 30, 27) = 0.469755E+00
- PKER_SACCRG( 30, 28) = 0.466968E+00
- PKER_SACCRG( 30, 29) = 0.457637E+00
- PKER_SACCRG( 30, 30) = 0.446063E+00
- PKER_SACCRG( 30, 31) = 0.436830E+00
- PKER_SACCRG( 30, 32) = 0.429899E+00
- PKER_SACCRG( 30, 33) = 0.424476E+00
- PKER_SACCRG( 30, 34) = 0.422741E+00
- PKER_SACCRG( 30, 35) = 0.418708E+00
- PKER_SACCRG( 30, 36) = 0.411026E+00
+ PKER_SACCRG( 30, 8) = 0.853233E+00
+ PKER_SACCRG( 30, 9) = 0.799555E+00
+ PKER_SACCRG( 30, 10) = 0.749193E+00
+ PKER_SACCRG( 30, 11) = 0.836201E+00
+ PKER_SACCRG( 30, 12) = 0.863209E+00
+ PKER_SACCRG( 30, 13) = 0.865805E+00
+ PKER_SACCRG( 30, 14) = 0.854776E+00
+ PKER_SACCRG( 30, 15) = 0.835295E+00
+ PKER_SACCRG( 30, 16) = 0.834366E+00
+ PKER_SACCRG( 30, 17) = 0.818919E+00
+ PKER_SACCRG( 30, 18) = 0.805380E+00
+ PKER_SACCRG( 30, 19) = 0.778617E+00
+ PKER_SACCRG( 30, 20) = 0.750578E+00
+ PKER_SACCRG( 30, 21) = 0.711295E+00
+ PKER_SACCRG( 30, 22) = 0.669000E+00
+ PKER_SACCRG( 30, 23) = 0.628503E+00
+ PKER_SACCRG( 30, 24) = 0.588668E+00
+ PKER_SACCRG( 30, 25) = 0.553370E+00
+ PKER_SACCRG( 30, 26) = 0.521579E+00
+ PKER_SACCRG( 30, 27) = 0.492816E+00
+ PKER_SACCRG( 30, 28) = 0.472442E+00
+ PKER_SACCRG( 30, 29) = 0.454518E+00
+ PKER_SACCRG( 30, 30) = 0.437575E+00
+ PKER_SACCRG( 30, 31) = 0.426581E+00
+ PKER_SACCRG( 30, 32) = 0.419433E+00
+ PKER_SACCRG( 30, 33) = 0.414091E+00
+ PKER_SACCRG( 30, 34) = 0.412397E+00
+ PKER_SACCRG( 30, 35) = 0.408460E+00
+ PKER_SACCRG( 30, 36) = 0.400961E+00
PKER_SACCRG( 30, 37) = 0.000000E+00
PKER_SACCRG( 30, 38) = 0.000000E+00
PKER_SACCRG( 30, 39) = 0.000000E+00
@@ -4552,35 +4555,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 31, 5) = 0.000000E+00
PKER_SACCRG( 31, 6) = 0.000000E+00
PKER_SACCRG( 31, 7) = 0.000000E+00
- PKER_SACCRG( 31, 8) = 0.000000E+00
- PKER_SACCRG( 31, 9) = 0.000000E+00
- PKER_SACCRG( 31, 10) = 0.000000E+00
- PKER_SACCRG( 31, 11) = 0.000000E+00
- PKER_SACCRG( 31, 12) = 0.000000E+00
- PKER_SACCRG( 31, 13) = 0.000000E+00
- PKER_SACCRG( 31, 14) = 0.000000E+00
- PKER_SACCRG( 31, 15) = 0.000000E+00
- PKER_SACCRG( 31, 16) = 0.521335E+00
- PKER_SACCRG( 31, 17) = 0.488306E+00
- PKER_SACCRG( 31, 18) = 0.457313E+00
- PKER_SACCRG( 31, 19) = 0.510799E+00
- PKER_SACCRG( 31, 20) = 0.486233E+00
- PKER_SACCRG( 31, 21) = 0.496818E+00
- PKER_SACCRG( 31, 22) = 0.496818E+00
- PKER_SACCRG( 31, 23) = 0.494282E+00
- PKER_SACCRG( 31, 24) = 0.481318E+00
- PKER_SACCRG( 31, 25) = 0.483417E+00
- PKER_SACCRG( 31, 26) = 0.477526E+00
- PKER_SACCRG( 31, 27) = 0.472527E+00
- PKER_SACCRG( 31, 28) = 0.469738E+00
- PKER_SACCRG( 31, 29) = 0.460409E+00
- PKER_SACCRG( 31, 30) = 0.448841E+00
- PKER_SACCRG( 31, 31) = 0.439607E+00
- PKER_SACCRG( 31, 32) = 0.432673E+00
- PKER_SACCRG( 31, 33) = 0.427249E+00
- PKER_SACCRG( 31, 34) = 0.425511E+00
- PKER_SACCRG( 31, 35) = 0.421478E+00
- PKER_SACCRG( 31, 36) = 0.413798E+00
+ PKER_SACCRG( 31, 8) = 0.855928E+00
+ PKER_SACCRG( 31, 9) = 0.802252E+00
+ PKER_SACCRG( 31, 10) = 0.751891E+00
+ PKER_SACCRG( 31, 11) = 0.838902E+00
+ PKER_SACCRG( 31, 12) = 0.865910E+00
+ PKER_SACCRG( 31, 13) = 0.868507E+00
+ PKER_SACCRG( 31, 14) = 0.857479E+00
+ PKER_SACCRG( 31, 15) = 0.838000E+00
+ PKER_SACCRG( 31, 16) = 0.837072E+00
+ PKER_SACCRG( 31, 17) = 0.821628E+00
+ PKER_SACCRG( 31, 18) = 0.808094E+00
+ PKER_SACCRG( 31, 19) = 0.781336E+00
+ PKER_SACCRG( 31, 20) = 0.753305E+00
+ PKER_SACCRG( 31, 21) = 0.714031E+00
+ PKER_SACCRG( 31, 22) = 0.672170E+00
+ PKER_SACCRG( 31, 23) = 0.631257E+00
+ PKER_SACCRG( 31, 24) = 0.591436E+00
+ PKER_SACCRG( 31, 25) = 0.556144E+00
+ PKER_SACCRG( 31, 26) = 0.524358E+00
+ PKER_SACCRG( 31, 27) = 0.495599E+00
+ PKER_SACCRG( 31, 28) = 0.475218E+00
+ PKER_SACCRG( 31, 29) = 0.457289E+00
+ PKER_SACCRG( 31, 30) = 0.440347E+00
+ PKER_SACCRG( 31, 31) = 0.429349E+00
+ PKER_SACCRG( 31, 32) = 0.422197E+00
+ PKER_SACCRG( 31, 33) = 0.416853E+00
+ PKER_SACCRG( 31, 34) = 0.415157E+00
+ PKER_SACCRG( 31, 35) = 0.411220E+00
+ PKER_SACCRG( 31, 36) = 0.403724E+00
PKER_SACCRG( 31, 37) = 0.000000E+00
PKER_SACCRG( 31, 38) = 0.000000E+00
PKER_SACCRG( 31, 39) = 0.000000E+00
@@ -4592,35 +4595,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 32, 5) = 0.000000E+00
PKER_SACCRG( 32, 6) = 0.000000E+00
PKER_SACCRG( 32, 7) = 0.000000E+00
- PKER_SACCRG( 32, 8) = 0.000000E+00
- PKER_SACCRG( 32, 9) = 0.000000E+00
- PKER_SACCRG( 32, 10) = 0.000000E+00
- PKER_SACCRG( 32, 11) = 0.000000E+00
- PKER_SACCRG( 32, 12) = 0.000000E+00
- PKER_SACCRG( 32, 13) = 0.000000E+00
- PKER_SACCRG( 32, 14) = 0.000000E+00
- PKER_SACCRG( 32, 15) = 0.000000E+00
- PKER_SACCRG( 32, 16) = 0.521382E+00
- PKER_SACCRG( 32, 17) = 0.488500E+00
- PKER_SACCRG( 32, 18) = 0.457646E+00
- PKER_SACCRG( 32, 19) = 0.510908E+00
- PKER_SACCRG( 32, 20) = 0.486436E+00
- PKER_SACCRG( 32, 21) = 0.496984E+00
- PKER_SACCRG( 32, 22) = 0.496990E+00
- PKER_SACCRG( 32, 23) = 0.494461E+00
- PKER_SACCRG( 32, 24) = 0.481561E+00
- PKER_SACCRG( 32, 25) = 0.483650E+00
- PKER_SACCRG( 32, 26) = 0.477787E+00
- PKER_SACCRG( 32, 27) = 0.472813E+00
- PKER_SACCRG( 32, 28) = 0.470036E+00
- PKER_SACCRG( 32, 29) = 0.460747E+00
- PKER_SACCRG( 32, 30) = 0.449232E+00
- PKER_SACCRG( 32, 31) = 0.440036E+00
- PKER_SACCRG( 32, 32) = 0.433130E+00
- PKER_SACCRG( 32, 33) = 0.427727E+00
- PKER_SACCRG( 32, 34) = 0.425995E+00
- PKER_SACCRG( 32, 35) = 0.421979E+00
- PKER_SACCRG( 32, 36) = 0.414334E+00
+ PKER_SACCRG( 32, 8) = 0.858159E+00
+ PKER_SACCRG( 32, 9) = 0.804484E+00
+ PKER_SACCRG( 32, 10) = 0.754124E+00
+ PKER_SACCRG( 32, 11) = 0.841136E+00
+ PKER_SACCRG( 32, 12) = 0.868144E+00
+ PKER_SACCRG( 32, 13) = 0.870742E+00
+ PKER_SACCRG( 32, 14) = 0.859715E+00
+ PKER_SACCRG( 32, 15) = 0.840237E+00
+ PKER_SACCRG( 32, 16) = 0.839311E+00
+ PKER_SACCRG( 32, 17) = 0.823869E+00
+ PKER_SACCRG( 32, 18) = 0.810338E+00
+ PKER_SACCRG( 32, 19) = 0.783585E+00
+ PKER_SACCRG( 32, 20) = 0.755560E+00
+ PKER_SACCRG( 32, 21) = 0.716293E+00
+ PKER_SACCRG( 32, 22) = 0.674440E+00
+ PKER_SACCRG( 32, 23) = 0.633532E+00
+ PKER_SACCRG( 32, 24) = 0.593721E+00
+ PKER_SACCRG( 32, 25) = 0.558434E+00
+ PKER_SACCRG( 32, 26) = 0.526651E+00
+ PKER_SACCRG( 32, 27) = 0.497895E+00
+ PKER_SACCRG( 32, 28) = 0.477506E+00
+ PKER_SACCRG( 32, 29) = 0.459574E+00
+ PKER_SACCRG( 32, 30) = 0.442630E+00
+ PKER_SACCRG( 32, 31) = 0.431629E+00
+ PKER_SACCRG( 32, 32) = 0.424475E+00
+ PKER_SACCRG( 32, 33) = 0.419129E+00
+ PKER_SACCRG( 32, 34) = 0.417430E+00
+ PKER_SACCRG( 32, 35) = 0.413493E+00
+ PKER_SACCRG( 32, 36) = 0.405998E+00
PKER_SACCRG( 32, 37) = 0.000000E+00
PKER_SACCRG( 32, 38) = 0.000000E+00
PKER_SACCRG( 32, 39) = 0.000000E+00
@@ -4632,35 +4635,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 33, 5) = 0.000000E+00
PKER_SACCRG( 33, 6) = 0.000000E+00
PKER_SACCRG( 33, 7) = 0.000000E+00
- PKER_SACCRG( 33, 8) = 0.000000E+00
- PKER_SACCRG( 33, 9) = 0.000000E+00
- PKER_SACCRG( 33, 10) = 0.000000E+00
- PKER_SACCRG( 33, 11) = 0.000000E+00
- PKER_SACCRG( 33, 12) = 0.000000E+00
- PKER_SACCRG( 33, 13) = 0.000000E+00
- PKER_SACCRG( 33, 14) = 0.000000E+00
- PKER_SACCRG( 33, 15) = 0.000000E+00
- PKER_SACCRG( 33, 16) = 0.523239E+00
- PKER_SACCRG( 33, 17) = 0.490361E+00
- PKER_SACCRG( 33, 18) = 0.459511E+00
- PKER_SACCRG( 33, 19) = 0.512778E+00
- PKER_SACCRG( 33, 20) = 0.488297E+00
- PKER_SACCRG( 33, 21) = 0.498852E+00
- PKER_SACCRG( 33, 22) = 0.498864E+00
- PKER_SACCRG( 33, 23) = 0.496331E+00
- PKER_SACCRG( 33, 24) = 0.483437E+00
- PKER_SACCRG( 33, 25) = 0.485525E+00
- PKER_SACCRG( 33, 26) = 0.479663E+00
- PKER_SACCRG( 33, 27) = 0.474693E+00
- PKER_SACCRG( 33, 28) = 0.471915E+00
- PKER_SACCRG( 33, 29) = 0.462627E+00
- PKER_SACCRG( 33, 30) = 0.451113E+00
- PKER_SACCRG( 33, 31) = 0.441917E+00
- PKER_SACCRG( 33, 32) = 0.435008E+00
- PKER_SACCRG( 33, 33) = 0.429604E+00
- PKER_SACCRG( 33, 34) = 0.427870E+00
- PKER_SACCRG( 33, 35) = 0.423853E+00
- PKER_SACCRG( 33, 36) = 0.416209E+00
+ PKER_SACCRG( 33, 8) = 0.860005E+00
+ PKER_SACCRG( 33, 9) = 0.806330E+00
+ PKER_SACCRG( 33, 10) = 0.755971E+00
+ PKER_SACCRG( 33, 11) = 0.842985E+00
+ PKER_SACCRG( 33, 12) = 0.869994E+00
+ PKER_SACCRG( 33, 13) = 0.872592E+00
+ PKER_SACCRG( 33, 14) = 0.861566E+00
+ PKER_SACCRG( 33, 15) = 0.842089E+00
+ PKER_SACCRG( 33, 16) = 0.841164E+00
+ PKER_SACCRG( 33, 17) = 0.825724E+00
+ PKER_SACCRG( 33, 18) = 0.812195E+00
+ PKER_SACCRG( 33, 19) = 0.785446E+00
+ PKER_SACCRG( 33, 20) = 0.757425E+00
+ PKER_SACCRG( 33, 21) = 0.718163E+00
+ PKER_SACCRG( 33, 22) = 0.676316E+00
+ PKER_SACCRG( 33, 23) = 0.635413E+00
+ PKER_SACCRG( 33, 24) = 0.595609E+00
+ PKER_SACCRG( 33, 25) = 0.560325E+00
+ PKER_SACCRG( 33, 26) = 0.528544E+00
+ PKER_SACCRG( 33, 27) = 0.499789E+00
+ PKER_SACCRG( 33, 28) = 0.479395E+00
+ PKER_SACCRG( 33, 29) = 0.461459E+00
+ PKER_SACCRG( 33, 30) = 0.444514E+00
+ PKER_SACCRG( 33, 31) = 0.433510E+00
+ PKER_SACCRG( 33, 32) = 0.426353E+00
+ PKER_SACCRG( 33, 33) = 0.421005E+00
+ PKER_SACCRG( 33, 34) = 0.419305E+00
+ PKER_SACCRG( 33, 35) = 0.415367E+00
+ PKER_SACCRG( 33, 36) = 0.407873E+00
PKER_SACCRG( 33, 37) = 0.000000E+00
PKER_SACCRG( 33, 38) = 0.000000E+00
PKER_SACCRG( 33, 39) = 0.000000E+00
@@ -4672,35 +4675,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 34, 5) = 0.000000E+00
PKER_SACCRG( 34, 6) = 0.000000E+00
PKER_SACCRG( 34, 7) = 0.000000E+00
- PKER_SACCRG( 34, 8) = 0.000000E+00
- PKER_SACCRG( 34, 9) = 0.000000E+00
- PKER_SACCRG( 34, 10) = 0.000000E+00
- PKER_SACCRG( 34, 11) = 0.000000E+00
- PKER_SACCRG( 34, 12) = 0.000000E+00
- PKER_SACCRG( 34, 13) = 0.000000E+00
- PKER_SACCRG( 34, 14) = 0.000000E+00
- PKER_SACCRG( 34, 15) = 0.000000E+00
- PKER_SACCRG( 34, 16) = 0.526989E+00
- PKER_SACCRG( 34, 17) = 0.493974E+00
- PKER_SACCRG( 34, 18) = 0.462996E+00
- PKER_SACCRG( 34, 19) = 0.516493E+00
- PKER_SACCRG( 34, 20) = 0.491901E+00
- PKER_SACCRG( 34, 21) = 0.502507E+00
- PKER_SACCRG( 34, 22) = 0.502522E+00
- PKER_SACCRG( 34, 23) = 0.499975E+00
- PKER_SACCRG( 34, 24) = 0.487032E+00
- PKER_SACCRG( 34, 25) = 0.489128E+00
- PKER_SACCRG( 34, 26) = 0.483242E+00
- PKER_SACCRG( 34, 27) = 0.478253E+00
- PKER_SACCRG( 34, 28) = 0.475463E+00
- PKER_SACCRG( 34, 29) = 0.466135E+00
- PKER_SACCRG( 34, 30) = 0.454574E+00
- PKER_SACCRG( 34, 31) = 0.445337E+00
- PKER_SACCRG( 34, 32) = 0.438397E+00
- PKER_SACCRG( 34, 33) = 0.432968E+00
- PKER_SACCRG( 34, 34) = 0.431225E+00
- PKER_SACCRG( 34, 35) = 0.427191E+00
- PKER_SACCRG( 34, 36) = 0.419515E+00
+ PKER_SACCRG( 34, 8) = 0.861533E+00
+ PKER_SACCRG( 34, 9) = 0.807859E+00
+ PKER_SACCRG( 34, 10) = 0.757500E+00
+ PKER_SACCRG( 34, 11) = 0.844515E+00
+ PKER_SACCRG( 34, 12) = 0.871524E+00
+ PKER_SACCRG( 34, 13) = 0.874123E+00
+ PKER_SACCRG( 34, 14) = 0.863097E+00
+ PKER_SACCRG( 34, 15) = 0.843621E+00
+ PKER_SACCRG( 34, 16) = 0.842697E+00
+ PKER_SACCRG( 34, 17) = 0.827258E+00
+ PKER_SACCRG( 34, 18) = 0.813732E+00
+ PKER_SACCRG( 34, 19) = 0.786985E+00
+ PKER_SACCRG( 34, 20) = 0.758967E+00
+ PKER_SACCRG( 34, 21) = 0.719710E+00
+ PKER_SACCRG( 34, 22) = 0.677867E+00
+ PKER_SACCRG( 34, 23) = 0.636967E+00
+ PKER_SACCRG( 34, 24) = 0.597169E+00
+ PKER_SACCRG( 34, 25) = 0.561887E+00
+ PKER_SACCRG( 34, 26) = 0.530107E+00
+ PKER_SACCRG( 34, 27) = 0.501353E+00
+ PKER_SACCRG( 34, 28) = 0.480954E+00
+ PKER_SACCRG( 34, 29) = 0.463015E+00
+ PKER_SACCRG( 34, 30) = 0.446068E+00
+ PKER_SACCRG( 34, 31) = 0.435062E+00
+ PKER_SACCRG( 34, 32) = 0.427902E+00
+ PKER_SACCRG( 34, 33) = 0.422553E+00
+ PKER_SACCRG( 34, 34) = 0.420852E+00
+ PKER_SACCRG( 34, 35) = 0.416913E+00
+ PKER_SACCRG( 34, 36) = 0.409420E+00
PKER_SACCRG( 34, 37) = 0.000000E+00
PKER_SACCRG( 34, 38) = 0.000000E+00
PKER_SACCRG( 34, 39) = 0.000000E+00
@@ -4712,35 +4715,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 35, 5) = 0.000000E+00
PKER_SACCRG( 35, 6) = 0.000000E+00
PKER_SACCRG( 35, 7) = 0.000000E+00
- PKER_SACCRG( 35, 8) = 0.000000E+00
- PKER_SACCRG( 35, 9) = 0.000000E+00
- PKER_SACCRG( 35, 10) = 0.000000E+00
- PKER_SACCRG( 35, 11) = 0.000000E+00
- PKER_SACCRG( 35, 12) = 0.000000E+00
- PKER_SACCRG( 35, 13) = 0.000000E+00
- PKER_SACCRG( 35, 14) = 0.000000E+00
- PKER_SACCRG( 35, 15) = 0.000000E+00
- PKER_SACCRG( 35, 16) = 0.526044E+00
- PKER_SACCRG( 35, 17) = 0.493170E+00
- PKER_SACCRG( 35, 18) = 0.462325E+00
- PKER_SACCRG( 35, 19) = 0.515600E+00
- PKER_SACCRG( 35, 20) = 0.491106E+00
- PKER_SACCRG( 35, 21) = 0.501671E+00
- PKER_SACCRG( 35, 22) = 0.501689E+00
- PKER_SACCRG( 35, 23) = 0.499151E+00
- PKER_SACCRG( 35, 24) = 0.486266E+00
- PKER_SACCRG( 35, 25) = 0.488354E+00
- PKER_SACCRG( 35, 26) = 0.482493E+00
- PKER_SACCRG( 35, 27) = 0.477528E+00
- PKER_SACCRG( 35, 28) = 0.474748E+00
- PKER_SACCRG( 35, 29) = 0.465460E+00
- PKER_SACCRG( 35, 30) = 0.453949E+00
- PKER_SACCRG( 35, 31) = 0.444750E+00
- PKER_SACCRG( 35, 32) = 0.437837E+00
- PKER_SACCRG( 35, 33) = 0.432431E+00
- PKER_SACCRG( 35, 34) = 0.430694E+00
- PKER_SACCRG( 35, 35) = 0.426676E+00
- PKER_SACCRG( 35, 36) = 0.419033E+00
+ PKER_SACCRG( 35, 8) = 0.862798E+00
+ PKER_SACCRG( 35, 9) = 0.809124E+00
+ PKER_SACCRG( 35, 10) = 0.758765E+00
+ PKER_SACCRG( 35, 11) = 0.845782E+00
+ PKER_SACCRG( 35, 12) = 0.872791E+00
+ PKER_SACCRG( 35, 13) = 0.875390E+00
+ PKER_SACCRG( 35, 14) = 0.864365E+00
+ PKER_SACCRG( 35, 15) = 0.844889E+00
+ PKER_SACCRG( 35, 16) = 0.843966E+00
+ PKER_SACCRG( 35, 17) = 0.828528E+00
+ PKER_SACCRG( 35, 18) = 0.815003E+00
+ PKER_SACCRG( 35, 19) = 0.788258E+00
+ PKER_SACCRG( 35, 20) = 0.760243E+00
+ PKER_SACCRG( 35, 21) = 0.720989E+00
+ PKER_SACCRG( 35, 22) = 0.679150E+00
+ PKER_SACCRG( 35, 23) = 0.638252E+00
+ PKER_SACCRG( 35, 24) = 0.598458E+00
+ PKER_SACCRG( 35, 25) = 0.563178E+00
+ PKER_SACCRG( 35, 26) = 0.531399E+00
+ PKER_SACCRG( 35, 27) = 0.502645E+00
+ PKER_SACCRG( 35, 28) = 0.482242E+00
+ PKER_SACCRG( 35, 29) = 0.464300E+00
+ PKER_SACCRG( 35, 30) = 0.447352E+00
+ PKER_SACCRG( 35, 31) = 0.436343E+00
+ PKER_SACCRG( 35, 32) = 0.429182E+00
+ PKER_SACCRG( 35, 33) = 0.423832E+00
+ PKER_SACCRG( 35, 34) = 0.422129E+00
+ PKER_SACCRG( 35, 35) = 0.418190E+00
+ PKER_SACCRG( 35, 36) = 0.410697E+00
PKER_SACCRG( 35, 37) = 0.000000E+00
PKER_SACCRG( 35, 38) = 0.000000E+00
PKER_SACCRG( 35, 39) = 0.000000E+00
@@ -4752,35 +4755,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 36, 5) = 0.000000E+00
PKER_SACCRG( 36, 6) = 0.000000E+00
PKER_SACCRG( 36, 7) = 0.000000E+00
- PKER_SACCRG( 36, 8) = 0.000000E+00
- PKER_SACCRG( 36, 9) = 0.000000E+00
- PKER_SACCRG( 36, 10) = 0.000000E+00
- PKER_SACCRG( 36, 11) = 0.000000E+00
- PKER_SACCRG( 36, 12) = 0.000000E+00
- PKER_SACCRG( 36, 13) = 0.000000E+00
- PKER_SACCRG( 36, 14) = 0.000000E+00
- PKER_SACCRG( 36, 15) = 0.000000E+00
- PKER_SACCRG( 36, 16) = 0.527094E+00
- PKER_SACCRG( 36, 17) = 0.494221E+00
- PKER_SACCRG( 36, 18) = 0.463377E+00
- PKER_SACCRG( 36, 19) = 0.516656E+00
- PKER_SACCRG( 36, 20) = 0.492157E+00
- PKER_SACCRG( 36, 21) = 0.502726E+00
- PKER_SACCRG( 36, 22) = 0.502746E+00
- PKER_SACCRG( 36, 23) = 0.500207E+00
- PKER_SACCRG( 36, 24) = 0.487324E+00
- PKER_SACCRG( 36, 25) = 0.489412E+00
- PKER_SACCRG( 36, 26) = 0.483551E+00
- PKER_SACCRG( 36, 27) = 0.478587E+00
- PKER_SACCRG( 36, 28) = 0.475807E+00
- PKER_SACCRG( 36, 29) = 0.466519E+00
- PKER_SACCRG( 36, 30) = 0.455008E+00
- PKER_SACCRG( 36, 31) = 0.445809E+00
- PKER_SACCRG( 36, 32) = 0.438895E+00
- PKER_SACCRG( 36, 33) = 0.433487E+00
- PKER_SACCRG( 36, 34) = 0.431749E+00
- PKER_SACCRG( 36, 35) = 0.427731E+00
- PKER_SACCRG( 36, 36) = 0.420087E+00
+ PKER_SACCRG( 36, 8) = 0.863844E+00
+ PKER_SACCRG( 36, 9) = 0.810171E+00
+ PKER_SACCRG( 36, 10) = 0.759812E+00
+ PKER_SACCRG( 36, 11) = 0.846830E+00
+ PKER_SACCRG( 36, 12) = 0.873839E+00
+ PKER_SACCRG( 36, 13) = 0.876439E+00
+ PKER_SACCRG( 36, 14) = 0.865414E+00
+ PKER_SACCRG( 36, 15) = 0.845938E+00
+ PKER_SACCRG( 36, 16) = 0.845016E+00
+ PKER_SACCRG( 36, 17) = 0.829579E+00
+ PKER_SACCRG( 36, 18) = 0.816055E+00
+ PKER_SACCRG( 36, 19) = 0.789312E+00
+ PKER_SACCRG( 36, 20) = 0.761299E+00
+ PKER_SACCRG( 36, 21) = 0.722047E+00
+ PKER_SACCRG( 36, 22) = 0.680211E+00
+ PKER_SACCRG( 36, 23) = 0.639315E+00
+ PKER_SACCRG( 36, 24) = 0.599524E+00
+ PKER_SACCRG( 36, 25) = 0.564245E+00
+ PKER_SACCRG( 36, 26) = 0.532466E+00
+ PKER_SACCRG( 36, 27) = 0.503713E+00
+ PKER_SACCRG( 36, 28) = 0.483307E+00
+ PKER_SACCRG( 36, 29) = 0.465362E+00
+ PKER_SACCRG( 36, 30) = 0.448413E+00
+ PKER_SACCRG( 36, 31) = 0.437402E+00
+ PKER_SACCRG( 36, 32) = 0.430239E+00
+ PKER_SACCRG( 36, 33) = 0.424888E+00
+ PKER_SACCRG( 36, 34) = 0.423185E+00
+ PKER_SACCRG( 36, 35) = 0.419245E+00
+ PKER_SACCRG( 36, 36) = 0.411751E+00
PKER_SACCRG( 36, 37) = 0.000000E+00
PKER_SACCRG( 36, 38) = 0.000000E+00
PKER_SACCRG( 36, 39) = 0.000000E+00
@@ -4792,35 +4795,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 37, 5) = 0.000000E+00
PKER_SACCRG( 37, 6) = 0.000000E+00
PKER_SACCRG( 37, 7) = 0.000000E+00
- PKER_SACCRG( 37, 8) = 0.000000E+00
- PKER_SACCRG( 37, 9) = 0.000000E+00
- PKER_SACCRG( 37, 10) = 0.000000E+00
- PKER_SACCRG( 37, 11) = 0.000000E+00
- PKER_SACCRG( 37, 12) = 0.000000E+00
- PKER_SACCRG( 37, 13) = 0.000000E+00
- PKER_SACCRG( 37, 14) = 0.000000E+00
- PKER_SACCRG( 37, 15) = 0.000000E+00
- PKER_SACCRG( 37, 16) = 0.527963E+00
- PKER_SACCRG( 37, 17) = 0.495090E+00
- PKER_SACCRG( 37, 18) = 0.464247E+00
- PKER_SACCRG( 37, 19) = 0.517529E+00
- PKER_SACCRG( 37, 20) = 0.493026E+00
- PKER_SACCRG( 37, 21) = 0.503598E+00
- PKER_SACCRG( 37, 22) = 0.503620E+00
- PKER_SACCRG( 37, 23) = 0.501079E+00
- PKER_SACCRG( 37, 24) = 0.488199E+00
- PKER_SACCRG( 37, 25) = 0.490286E+00
- PKER_SACCRG( 37, 26) = 0.484426E+00
- PKER_SACCRG( 37, 27) = 0.479463E+00
- PKER_SACCRG( 37, 28) = 0.476683E+00
- PKER_SACCRG( 37, 29) = 0.467394E+00
- PKER_SACCRG( 37, 30) = 0.455884E+00
- PKER_SACCRG( 37, 31) = 0.446684E+00
- PKER_SACCRG( 37, 32) = 0.439768E+00
- PKER_SACCRG( 37, 33) = 0.434360E+00
- PKER_SACCRG( 37, 34) = 0.432621E+00
- PKER_SACCRG( 37, 35) = 0.428603E+00
- PKER_SACCRG( 37, 36) = 0.420959E+00
+ PKER_SACCRG( 37, 8) = 0.864711E+00
+ PKER_SACCRG( 37, 9) = 0.811037E+00
+ PKER_SACCRG( 37, 10) = 0.760679E+00
+ PKER_SACCRG( 37, 11) = 0.847698E+00
+ PKER_SACCRG( 37, 12) = 0.874707E+00
+ PKER_SACCRG( 37, 13) = 0.877306E+00
+ PKER_SACCRG( 37, 14) = 0.866282E+00
+ PKER_SACCRG( 37, 15) = 0.846807E+00
+ PKER_SACCRG( 37, 16) = 0.845885E+00
+ PKER_SACCRG( 37, 17) = 0.830448E+00
+ PKER_SACCRG( 37, 18) = 0.816925E+00
+ PKER_SACCRG( 37, 19) = 0.790183E+00
+ PKER_SACCRG( 37, 20) = 0.762172E+00
+ PKER_SACCRG( 37, 21) = 0.722922E+00
+ PKER_SACCRG( 37, 22) = 0.681089E+00
+ PKER_SACCRG( 37, 23) = 0.640194E+00
+ PKER_SACCRG( 37, 24) = 0.600405E+00
+ PKER_SACCRG( 37, 25) = 0.565127E+00
+ PKER_SACCRG( 37, 26) = 0.533348E+00
+ PKER_SACCRG( 37, 27) = 0.504595E+00
+ PKER_SACCRG( 37, 28) = 0.484186E+00
+ PKER_SACCRG( 37, 29) = 0.466240E+00
+ PKER_SACCRG( 37, 30) = 0.449290E+00
+ PKER_SACCRG( 37, 31) = 0.438277E+00
+ PKER_SACCRG( 37, 32) = 0.431113E+00
+ PKER_SACCRG( 37, 33) = 0.425761E+00
+ PKER_SACCRG( 37, 34) = 0.424057E+00
+ PKER_SACCRG( 37, 35) = 0.420117E+00
+ PKER_SACCRG( 37, 36) = 0.412623E+00
PKER_SACCRG( 37, 37) = 0.000000E+00
PKER_SACCRG( 37, 38) = 0.000000E+00
PKER_SACCRG( 37, 39) = 0.000000E+00
@@ -4832,35 +4835,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 38, 5) = 0.000000E+00
PKER_SACCRG( 38, 6) = 0.000000E+00
PKER_SACCRG( 38, 7) = 0.000000E+00
- PKER_SACCRG( 38, 8) = 0.000000E+00
- PKER_SACCRG( 38, 9) = 0.000000E+00
- PKER_SACCRG( 38, 10) = 0.000000E+00
- PKER_SACCRG( 38, 11) = 0.000000E+00
- PKER_SACCRG( 38, 12) = 0.000000E+00
- PKER_SACCRG( 38, 13) = 0.000000E+00
- PKER_SACCRG( 38, 14) = 0.000000E+00
- PKER_SACCRG( 38, 15) = 0.000000E+00
- PKER_SACCRG( 38, 16) = 0.530904E+00
- PKER_SACCRG( 38, 17) = 0.497893E+00
- PKER_SACCRG( 38, 18) = 0.466921E+00
- PKER_SACCRG( 38, 19) = 0.520430E+00
- PKER_SACCRG( 38, 20) = 0.495821E+00
- PKER_SACCRG( 38, 21) = 0.506439E+00
- PKER_SACCRG( 38, 22) = 0.506463E+00
- PKER_SACCRG( 38, 23) = 0.503910E+00
- PKER_SACCRG( 38, 24) = 0.490978E+00
- PKER_SACCRG( 38, 25) = 0.493073E+00
- PKER_SACCRG( 38, 26) = 0.487189E+00
- PKER_SACCRG( 38, 27) = 0.482206E+00
- PKER_SACCRG( 38, 28) = 0.479414E+00
- PKER_SACCRG( 38, 29) = 0.470086E+00
- PKER_SACCRG( 38, 30) = 0.458527E+00
- PKER_SACCRG( 38, 31) = 0.449287E+00
- PKER_SACCRG( 38, 32) = 0.442342E+00
- PKER_SACCRG( 38, 33) = 0.436910E+00
- PKER_SACCRG( 38, 34) = 0.435164E+00
- PKER_SACCRG( 38, 35) = 0.431128E+00
- PKER_SACCRG( 38, 36) = 0.423452E+00
+ PKER_SACCRG( 38, 8) = 0.869064E+00
+ PKER_SACCRG( 38, 9) = 0.815165E+00
+ PKER_SACCRG( 38, 10) = 0.764596E+00
+ PKER_SACCRG( 38, 11) = 0.851980E+00
+ PKER_SACCRG( 38, 12) = 0.879103E+00
+ PKER_SACCRG( 38, 13) = 0.881713E+00
+ PKER_SACCRG( 38, 14) = 0.870642E+00
+ PKER_SACCRG( 38, 15) = 0.851086E+00
+ PKER_SACCRG( 38, 16) = 0.850161E+00
+ PKER_SACCRG( 38, 17) = 0.834660E+00
+ PKER_SACCRG( 38, 18) = 0.821081E+00
+ PKER_SACCRG( 38, 19) = 0.794228E+00
+ PKER_SACCRG( 38, 20) = 0.766101E+00
+ PKER_SACCRG( 38, 21) = 0.726688E+00
+ PKER_SACCRG( 38, 22) = 0.684680E+00
+ PKER_SACCRG( 38, 23) = 0.643615E+00
+ PKER_SACCRG( 38, 24) = 0.603661E+00
+ PKER_SACCRG( 38, 25) = 0.568235E+00
+ PKER_SACCRG( 38, 26) = 0.536323E+00
+ PKER_SACCRG( 38, 27) = 0.507449E+00
+ PKER_SACCRG( 38, 28) = 0.486952E+00
+ PKER_SACCRG( 38, 29) = 0.468929E+00
+ PKER_SACCRG( 38, 30) = 0.451906E+00
+ PKER_SACCRG( 38, 31) = 0.440846E+00
+ PKER_SACCRG( 38, 32) = 0.433651E+00
+ PKER_SACCRG( 38, 33) = 0.428275E+00
+ PKER_SACCRG( 38, 34) = 0.426563E+00
+ PKER_SACCRG( 38, 35) = 0.422606E+00
+ PKER_SACCRG( 38, 36) = 0.415081E+00
PKER_SACCRG( 38, 37) = 0.000000E+00
PKER_SACCRG( 38, 38) = 0.000000E+00
PKER_SACCRG( 38, 39) = 0.000000E+00
@@ -4872,35 +4875,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 39, 5) = 0.000000E+00
PKER_SACCRG( 39, 6) = 0.000000E+00
PKER_SACCRG( 39, 7) = 0.000000E+00
- PKER_SACCRG( 39, 8) = 0.000000E+00
- PKER_SACCRG( 39, 9) = 0.000000E+00
- PKER_SACCRG( 39, 10) = 0.000000E+00
- PKER_SACCRG( 39, 11) = 0.000000E+00
- PKER_SACCRG( 39, 12) = 0.000000E+00
- PKER_SACCRG( 39, 13) = 0.000000E+00
- PKER_SACCRG( 39, 14) = 0.000000E+00
- PKER_SACCRG( 39, 15) = 0.000000E+00
- PKER_SACCRG( 39, 16) = 0.531500E+00
- PKER_SACCRG( 39, 17) = 0.498490E+00
- PKER_SACCRG( 39, 18) = 0.467518E+00
- PKER_SACCRG( 39, 19) = 0.521029E+00
- PKER_SACCRG( 39, 20) = 0.496417E+00
- PKER_SACCRG( 39, 21) = 0.507037E+00
- PKER_SACCRG( 39, 22) = 0.507063E+00
- PKER_SACCRG( 39, 23) = 0.504509E+00
- PKER_SACCRG( 39, 24) = 0.491577E+00
- PKER_SACCRG( 39, 25) = 0.493673E+00
- PKER_SACCRG( 39, 26) = 0.487788E+00
- PKER_SACCRG( 39, 27) = 0.482807E+00
- PKER_SACCRG( 39, 28) = 0.480014E+00
- PKER_SACCRG( 39, 29) = 0.470686E+00
- PKER_SACCRG( 39, 30) = 0.459128E+00
- PKER_SACCRG( 39, 31) = 0.449887E+00
- PKER_SACCRG( 39, 32) = 0.442941E+00
- PKER_SACCRG( 39, 33) = 0.437508E+00
- PKER_SACCRG( 39, 34) = 0.435762E+00
- PKER_SACCRG( 39, 35) = 0.431726E+00
- PKER_SACCRG( 39, 36) = 0.424049E+00
+ PKER_SACCRG( 39, 8) = 0.866022E+00
+ PKER_SACCRG( 39, 9) = 0.812348E+00
+ PKER_SACCRG( 39, 10) = 0.761990E+00
+ PKER_SACCRG( 39, 11) = 0.849010E+00
+ PKER_SACCRG( 39, 12) = 0.876020E+00
+ PKER_SACCRG( 39, 13) = 0.878620E+00
+ PKER_SACCRG( 39, 14) = 0.867595E+00
+ PKER_SACCRG( 39, 15) = 0.848121E+00
+ PKER_SACCRG( 39, 16) = 0.847199E+00
+ PKER_SACCRG( 39, 17) = 0.831764E+00
+ PKER_SACCRG( 39, 18) = 0.818242E+00
+ PKER_SACCRG( 39, 19) = 0.791502E+00
+ PKER_SACCRG( 39, 20) = 0.763493E+00
+ PKER_SACCRG( 39, 21) = 0.724246E+00
+ PKER_SACCRG( 39, 22) = 0.682415E+00
+ PKER_SACCRG( 39, 23) = 0.641522E+00
+ PKER_SACCRG( 39, 24) = 0.601737E+00
+ PKER_SACCRG( 39, 25) = 0.566459E+00
+ PKER_SACCRG( 39, 26) = 0.534681E+00
+ PKER_SACCRG( 39, 27) = 0.505928E+00
+ PKER_SACCRG( 39, 28) = 0.485515E+00
+ PKER_SACCRG( 39, 29) = 0.467566E+00
+ PKER_SACCRG( 39, 30) = 0.450614E+00
+ PKER_SACCRG( 39, 31) = 0.439599E+00
+ PKER_SACCRG( 39, 32) = 0.432433E+00
+ PKER_SACCRG( 39, 33) = 0.427080E+00
+ PKER_SACCRG( 39, 34) = 0.425374E+00
+ PKER_SACCRG( 39, 35) = 0.421434E+00
+ PKER_SACCRG( 39, 36) = 0.413940E+00
PKER_SACCRG( 39, 37) = 0.000000E+00
PKER_SACCRG( 39, 38) = 0.000000E+00
PKER_SACCRG( 39, 39) = 0.000000E+00
@@ -4912,35 +4915,35 @@ IF( PRESENT(PKER_SACCRG) ) THEN
PKER_SACCRG( 40, 5) = 0.000000E+00
PKER_SACCRG( 40, 6) = 0.000000E+00
PKER_SACCRG( 40, 7) = 0.000000E+00
- PKER_SACCRG( 40, 8) = 0.000000E+00
- PKER_SACCRG( 40, 9) = 0.000000E+00
- PKER_SACCRG( 40, 10) = 0.000000E+00
- PKER_SACCRG( 40, 11) = 0.000000E+00
- PKER_SACCRG( 40, 12) = 0.000000E+00
- PKER_SACCRG( 40, 13) = 0.000000E+00
- PKER_SACCRG( 40, 14) = 0.000000E+00
- PKER_SACCRG( 40, 15) = 0.000000E+00
- PKER_SACCRG( 40, 16) = 0.531993E+00
- PKER_SACCRG( 40, 17) = 0.498983E+00
- PKER_SACCRG( 40, 18) = 0.468012E+00
- PKER_SACCRG( 40, 19) = 0.521524E+00
- PKER_SACCRG( 40, 20) = 0.496911E+00
- PKER_SACCRG( 40, 21) = 0.507532E+00
- PKER_SACCRG( 40, 22) = 0.507558E+00
- PKER_SACCRG( 40, 23) = 0.505004E+00
- PKER_SACCRG( 40, 24) = 0.492073E+00
- PKER_SACCRG( 40, 25) = 0.494169E+00
- PKER_SACCRG( 40, 26) = 0.488284E+00
- PKER_SACCRG( 40, 27) = 0.483303E+00
- PKER_SACCRG( 40, 28) = 0.480510E+00
- PKER_SACCRG( 40, 29) = 0.471182E+00
- PKER_SACCRG( 40, 30) = 0.459624E+00
- PKER_SACCRG( 40, 31) = 0.450383E+00
- PKER_SACCRG( 40, 32) = 0.443437E+00
- PKER_SACCRG( 40, 33) = 0.438004E+00
- PKER_SACCRG( 40, 34) = 0.436256E+00
- PKER_SACCRG( 40, 35) = 0.432220E+00
- PKER_SACCRG( 40, 36) = 0.424544E+00
+ PKER_SACCRG( 40, 8) = 0.866514E+00
+ PKER_SACCRG( 40, 9) = 0.812840E+00
+ PKER_SACCRG( 40, 10) = 0.762482E+00
+ PKER_SACCRG( 40, 11) = 0.849502E+00
+ PKER_SACCRG( 40, 12) = 0.876512E+00
+ PKER_SACCRG( 40, 13) = 0.879112E+00
+ PKER_SACCRG( 40, 14) = 0.868087E+00
+ PKER_SACCRG( 40, 15) = 0.848613E+00
+ PKER_SACCRG( 40, 16) = 0.847692E+00
+ PKER_SACCRG( 40, 17) = 0.832257E+00
+ PKER_SACCRG( 40, 18) = 0.818736E+00
+ PKER_SACCRG( 40, 19) = 0.791996E+00
+ PKER_SACCRG( 40, 20) = 0.763988E+00
+ PKER_SACCRG( 40, 21) = 0.724741E+00
+ PKER_SACCRG( 40, 22) = 0.682912E+00
+ PKER_SACCRG( 40, 23) = 0.642019E+00
+ PKER_SACCRG( 40, 24) = 0.602235E+00
+ PKER_SACCRG( 40, 25) = 0.566958E+00
+ PKER_SACCRG( 40, 26) = 0.535180E+00
+ PKER_SACCRG( 40, 27) = 0.506427E+00
+ PKER_SACCRG( 40, 28) = 0.486012E+00
+ PKER_SACCRG( 40, 29) = 0.468062E+00
+ PKER_SACCRG( 40, 30) = 0.451110E+00
+ PKER_SACCRG( 40, 31) = 0.440094E+00
+ PKER_SACCRG( 40, 32) = 0.432927E+00
+ PKER_SACCRG( 40, 33) = 0.427573E+00
+ PKER_SACCRG( 40, 34) = 0.425868E+00
+ PKER_SACCRG( 40, 35) = 0.421927E+00
+ PKER_SACCRG( 40, 36) = 0.414433E+00
PKER_SACCRG( 40, 37) = 0.000000E+00
PKER_SACCRG( 40, 38) = 0.000000E+00
PKER_SACCRG( 40, 39) = 0.000000E+00
diff --git a/src/MNH/read_xker_sdryg.f90 b/src/MNH/read_xker_sdryg.f90
index 0164c57369ed1bc6f243bd076dfb669182bee224..4bedc2ff04d6e86a35600aea898cd7398d5cdf89 100644
--- a/src/MNH/read_xker_sdryg.f90
+++ b/src/MNH/read_xker_sdryg.f90
@@ -14,7 +14,7 @@
!
INTERFACE
SUBROUTINE READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY,PKER_SDRYG )
!
@@ -29,6 +29,7 @@ REAL, INTENT(OUT) :: PCG
REAL, INTENT(OUT) :: PDG
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PDRYLBDAG_MAX
REAL, INTENT(OUT) :: PDRYLBDAS_MAX
REAL, INTENT(OUT) :: PDRYLBDAG_MIN
@@ -43,7 +44,7 @@ END INTERFACE
END MODULE MODI_READ_XKER_SDRYG
! ########################################################################
SUBROUTINE READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
PFDINFTY,PKER_SDRYG )
! ########################################################################
@@ -101,6 +102,7 @@ REAL, INTENT(OUT) :: PCG
REAL, INTENT(OUT) :: PDG
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PDRYLBDAG_MAX
REAL, INTENT(OUT) :: PDRYLBDAS_MAX
REAL, INTENT(OUT) :: PDRYLBDAG_MIN
@@ -123,8 +125,9 @@ PEGS= 0.100000E+01
PBS= 0.190000E+01
PCG= 0.124000E+03
PDG= 0.660000E+00
-PCS= 0.510000E+01
+PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PDRYLBDAG_MAX= 0.100000E+08
PDRYLBDAS_MAX= 0.250000E+10
PDRYLBDAG_MIN= 0.100000E+04
@@ -132,3206 +135,3206 @@ PDRYLBDAS_MIN= 0.250000E+02
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_SDRYG) ) THEN
- PKER_SDRYG( 1, 1) = 0.185306E+01
- PKER_SDRYG( 1, 2) = 0.166801E+01
- PKER_SDRYG( 1, 3) = 0.149854E+01
- PKER_SDRYG( 1, 4) = 0.134462E+01
- PKER_SDRYG( 1, 5) = 0.120619E+01
- PKER_SDRYG( 1, 6) = 0.108309E+01
- PKER_SDRYG( 1, 7) = 0.975739E+00
- PKER_SDRYG( 1, 8) = 0.883962E+00
- PKER_SDRYG( 1, 9) = 0.807898E+00
- PKER_SDRYG( 1, 10) = 0.748063E+00
- PKER_SDRYG( 1, 11) = 0.704887E+00
- PKER_SDRYG( 1, 12) = 0.678484E+00
- PKER_SDRYG( 1, 13) = 0.670243E+00
- PKER_SDRYG( 1, 14) = 0.680669E+00
- PKER_SDRYG( 1, 15) = 0.710449E+00
- PKER_SDRYG( 1, 16) = 0.760420E+00
- PKER_SDRYG( 1, 17) = 0.829980E+00
- PKER_SDRYG( 1, 18) = 0.918211E+00
- PKER_SDRYG( 1, 19) = 0.102260E+01
- PKER_SDRYG( 1, 20) = 0.113834E+01
- PKER_SDRYG( 1, 21) = 0.125954E+01
- PKER_SDRYG( 1, 22) = 0.138067E+01
- PKER_SDRYG( 1, 23) = 0.149733E+01
- PKER_SDRYG( 1, 24) = 0.160649E+01
- PKER_SDRYG( 1, 25) = 0.170617E+01
- PKER_SDRYG( 1, 26) = 0.179534E+01
- PKER_SDRYG( 1, 27) = 0.187393E+01
- PKER_SDRYG( 1, 28) = 0.194253E+01
- PKER_SDRYG( 1, 29) = 0.200219E+01
- PKER_SDRYG( 1, 30) = 0.205413E+01
- PKER_SDRYG( 1, 31) = 0.209956E+01
- PKER_SDRYG( 1, 32) = 0.213951E+01
- PKER_SDRYG( 1, 33) = 0.217487E+01
- PKER_SDRYG( 1, 34) = 0.220635E+01
- PKER_SDRYG( 1, 35) = 0.223455E+01
- PKER_SDRYG( 1, 36) = 0.225995E+01
- PKER_SDRYG( 1, 37) = 0.228296E+01
- PKER_SDRYG( 1, 38) = 0.230390E+01
- PKER_SDRYG( 1, 39) = 0.232304E+01
- PKER_SDRYG( 1, 40) = 0.234059E+01
- PKER_SDRYG( 1, 41) = 0.235674E+01
- PKER_SDRYG( 1, 42) = 0.237165E+01
- PKER_SDRYG( 1, 43) = 0.238545E+01
- PKER_SDRYG( 1, 44) = 0.239825E+01
- PKER_SDRYG( 1, 45) = 0.241013E+01
- PKER_SDRYG( 1, 46) = 0.242119E+01
- PKER_SDRYG( 1, 47) = 0.243150E+01
- PKER_SDRYG( 1, 48) = 0.244112E+01
- PKER_SDRYG( 1, 49) = 0.245010E+01
- PKER_SDRYG( 1, 50) = 0.245849E+01
- PKER_SDRYG( 1, 51) = 0.246634E+01
- PKER_SDRYG( 1, 52) = 0.247369E+01
- PKER_SDRYG( 1, 53) = 0.248057E+01
- PKER_SDRYG( 1, 54) = 0.248702E+01
- PKER_SDRYG( 1, 55) = 0.249305E+01
- PKER_SDRYG( 1, 56) = 0.249872E+01
- PKER_SDRYG( 1, 57) = 0.250402E+01
- PKER_SDRYG( 1, 58) = 0.250900E+01
- PKER_SDRYG( 1, 59) = 0.251367E+01
- PKER_SDRYG( 1, 60) = 0.251805E+01
- PKER_SDRYG( 1, 61) = 0.252217E+01
- PKER_SDRYG( 1, 62) = 0.252602E+01
- PKER_SDRYG( 1, 63) = 0.252964E+01
- PKER_SDRYG( 1, 64) = 0.253304E+01
- PKER_SDRYG( 1, 65) = 0.253623E+01
- PKER_SDRYG( 1, 66) = 0.253923E+01
- PKER_SDRYG( 1, 67) = 0.254204E+01
- PKER_SDRYG( 1, 68) = 0.254468E+01
- PKER_SDRYG( 1, 69) = 0.254715E+01
- PKER_SDRYG( 1, 70) = 0.254948E+01
- PKER_SDRYG( 1, 71) = 0.255166E+01
- PKER_SDRYG( 1, 72) = 0.255371E+01
- PKER_SDRYG( 1, 73) = 0.255564E+01
- PKER_SDRYG( 1, 74) = 0.255745E+01
- PKER_SDRYG( 1, 75) = 0.255914E+01
- PKER_SDRYG( 1, 76) = 0.256074E+01
- PKER_SDRYG( 1, 77) = 0.256223E+01
- PKER_SDRYG( 1, 78) = 0.256364E+01
- PKER_SDRYG( 1, 79) = 0.256496E+01
- PKER_SDRYG( 1, 80) = 0.256619E+01
- PKER_SDRYG( 2, 1) = 0.203397E+01
- PKER_SDRYG( 2, 2) = 0.184139E+01
- PKER_SDRYG( 2, 3) = 0.166253E+01
- PKER_SDRYG( 2, 4) = 0.149734E+01
- PKER_SDRYG( 2, 5) = 0.134545E+01
- PKER_SDRYG( 2, 6) = 0.120699E+01
- PKER_SDRYG( 2, 7) = 0.108196E+01
- PKER_SDRYG( 2, 8) = 0.970394E+00
- PKER_SDRYG( 2, 9) = 0.872467E+00
- PKER_SDRYG( 2, 10) = 0.788381E+00
- PKER_SDRYG( 2, 11) = 0.718584E+00
- PKER_SDRYG( 2, 12) = 0.663446E+00
- PKER_SDRYG( 2, 13) = 0.623736E+00
- PKER_SDRYG( 2, 14) = 0.600108E+00
- PKER_SDRYG( 2, 15) = 0.593535E+00
- PKER_SDRYG( 2, 16) = 0.605004E+00
- PKER_SDRYG( 2, 17) = 0.635005E+00
- PKER_SDRYG( 2, 18) = 0.683561E+00
- PKER_SDRYG( 2, 19) = 0.749784E+00
- PKER_SDRYG( 2, 20) = 0.831464E+00
- PKER_SDRYG( 2, 21) = 0.925362E+00
- PKER_SDRYG( 2, 22) = 0.102652E+01
- PKER_SDRYG( 2, 23) = 0.112960E+01
- PKER_SDRYG( 2, 24) = 0.122990E+01
- PKER_SDRYG( 2, 25) = 0.132422E+01
- PKER_SDRYG( 2, 26) = 0.141069E+01
- PKER_SDRYG( 2, 27) = 0.148870E+01
- PKER_SDRYG( 2, 28) = 0.155812E+01
- PKER_SDRYG( 2, 29) = 0.161933E+01
- PKER_SDRYG( 2, 30) = 0.167302E+01
- PKER_SDRYG( 2, 31) = 0.172003E+01
- PKER_SDRYG( 2, 32) = 0.176131E+01
- PKER_SDRYG( 2, 33) = 0.179774E+01
- PKER_SDRYG( 2, 34) = 0.183007E+01
- PKER_SDRYG( 2, 35) = 0.185895E+01
- PKER_SDRYG( 2, 36) = 0.188489E+01
- PKER_SDRYG( 2, 37) = 0.190831E+01
- PKER_SDRYG( 2, 38) = 0.192958E+01
- PKER_SDRYG( 2, 39) = 0.194897E+01
- PKER_SDRYG( 2, 40) = 0.196672E+01
- PKER_SDRYG( 2, 41) = 0.198304E+01
- PKER_SDRYG( 2, 42) = 0.199807E+01
- PKER_SDRYG( 2, 43) = 0.201197E+01
- PKER_SDRYG( 2, 44) = 0.202484E+01
- PKER_SDRYG( 2, 45) = 0.203679E+01
- PKER_SDRYG( 2, 46) = 0.204790E+01
- PKER_SDRYG( 2, 47) = 0.205824E+01
- PKER_SDRYG( 2, 48) = 0.206789E+01
- PKER_SDRYG( 2, 49) = 0.207689E+01
- PKER_SDRYG( 2, 50) = 0.208530E+01
- PKER_SDRYG( 2, 51) = 0.209317E+01
- PKER_SDRYG( 2, 52) = 0.210053E+01
- PKER_SDRYG( 2, 53) = 0.210741E+01
- PKER_SDRYG( 2, 54) = 0.211387E+01
- PKER_SDRYG( 2, 55) = 0.211991E+01
- PKER_SDRYG( 2, 56) = 0.212558E+01
- PKER_SDRYG( 2, 57) = 0.213089E+01
- PKER_SDRYG( 2, 58) = 0.213587E+01
- PKER_SDRYG( 2, 59) = 0.214054E+01
- PKER_SDRYG( 2, 60) = 0.214493E+01
- PKER_SDRYG( 2, 61) = 0.214904E+01
- PKER_SDRYG( 2, 62) = 0.215290E+01
- PKER_SDRYG( 2, 63) = 0.215652E+01
- PKER_SDRYG( 2, 64) = 0.215992E+01
- PKER_SDRYG( 2, 65) = 0.216311E+01
- PKER_SDRYG( 2, 66) = 0.216610E+01
- PKER_SDRYG( 2, 67) = 0.216891E+01
- PKER_SDRYG( 2, 68) = 0.217155E+01
- PKER_SDRYG( 2, 69) = 0.217403E+01
- PKER_SDRYG( 2, 70) = 0.217636E+01
- PKER_SDRYG( 2, 71) = 0.217854E+01
- PKER_SDRYG( 2, 72) = 0.218059E+01
- PKER_SDRYG( 2, 73) = 0.218252E+01
- PKER_SDRYG( 2, 74) = 0.218432E+01
- PKER_SDRYG( 2, 75) = 0.218602E+01
- PKER_SDRYG( 2, 76) = 0.218761E+01
- PKER_SDRYG( 2, 77) = 0.218911E+01
- PKER_SDRYG( 2, 78) = 0.219051E+01
- PKER_SDRYG( 2, 79) = 0.219183E+01
- PKER_SDRYG( 2, 80) = 0.219307E+01
- PKER_SDRYG( 3, 1) = 0.219960E+01
- PKER_SDRYG( 3, 2) = 0.200376E+01
- PKER_SDRYG( 3, 3) = 0.182057E+01
- PKER_SDRYG( 3, 4) = 0.164957E+01
- PKER_SDRYG( 3, 5) = 0.149045E+01
- PKER_SDRYG( 3, 6) = 0.134297E+01
- PKER_SDRYG( 3, 7) = 0.120706E+01
- PKER_SDRYG( 3, 8) = 0.108261E+01
- PKER_SDRYG( 3, 9) = 0.969749E+00
- PKER_SDRYG( 3, 10) = 0.868633E+00
- PKER_SDRYG( 3, 11) = 0.779309E+00
- PKER_SDRYG( 3, 12) = 0.702567E+00
- PKER_SDRYG( 3, 13) = 0.638634E+00
- PKER_SDRYG( 3, 14) = 0.588095E+00
- PKER_SDRYG( 3, 15) = 0.552053E+00
- PKER_SDRYG( 3, 16) = 0.531341E+00
- PKER_SDRYG( 3, 17) = 0.526715E+00
- PKER_SDRYG( 3, 18) = 0.539327E+00
- PKER_SDRYG( 3, 19) = 0.569229E+00
- PKER_SDRYG( 3, 20) = 0.615927E+00
- PKER_SDRYG( 3, 21) = 0.677810E+00
- PKER_SDRYG( 3, 22) = 0.751743E+00
- PKER_SDRYG( 3, 23) = 0.834002E+00
- PKER_SDRYG( 3, 24) = 0.920162E+00
- PKER_SDRYG( 3, 25) = 0.100577E+01
- PKER_SDRYG( 3, 26) = 0.108725E+01
- PKER_SDRYG( 3, 27) = 0.116248E+01
- PKER_SDRYG( 3, 28) = 0.123064E+01
- PKER_SDRYG( 3, 29) = 0.129168E+01
- PKER_SDRYG( 3, 30) = 0.134598E+01
- PKER_SDRYG( 3, 31) = 0.139406E+01
- PKER_SDRYG( 3, 32) = 0.143653E+01
- PKER_SDRYG( 3, 33) = 0.147406E+01
- PKER_SDRYG( 3, 34) = 0.150732E+01
- PKER_SDRYG( 3, 35) = 0.153694E+01
- PKER_SDRYG( 3, 36) = 0.156346E+01
- PKER_SDRYG( 3, 37) = 0.158735E+01
- PKER_SDRYG( 3, 38) = 0.160898E+01
- PKER_SDRYG( 3, 39) = 0.162866E+01
- PKER_SDRYG( 3, 40) = 0.164664E+01
- PKER_SDRYG( 3, 41) = 0.166312E+01
- PKER_SDRYG( 3, 42) = 0.167830E+01
- PKER_SDRYG( 3, 43) = 0.169230E+01
- PKER_SDRYG( 3, 44) = 0.170526E+01
- PKER_SDRYG( 3, 45) = 0.171727E+01
- PKER_SDRYG( 3, 46) = 0.172843E+01
- PKER_SDRYG( 3, 47) = 0.173882E+01
- PKER_SDRYG( 3, 48) = 0.174850E+01
- PKER_SDRYG( 3, 49) = 0.175753E+01
- PKER_SDRYG( 3, 50) = 0.176596E+01
- PKER_SDRYG( 3, 51) = 0.177384E+01
- PKER_SDRYG( 3, 52) = 0.178121E+01
- PKER_SDRYG( 3, 53) = 0.178811E+01
- PKER_SDRYG( 3, 54) = 0.179457E+01
- PKER_SDRYG( 3, 55) = 0.180062E+01
- PKER_SDRYG( 3, 56) = 0.180629E+01
- PKER_SDRYG( 3, 57) = 0.181160E+01
- PKER_SDRYG( 3, 58) = 0.181659E+01
- PKER_SDRYG( 3, 59) = 0.182126E+01
- PKER_SDRYG( 3, 60) = 0.182565E+01
- PKER_SDRYG( 3, 61) = 0.182976E+01
- PKER_SDRYG( 3, 62) = 0.183362E+01
- PKER_SDRYG( 3, 63) = 0.183725E+01
- PKER_SDRYG( 3, 64) = 0.184065E+01
- PKER_SDRYG( 3, 65) = 0.184384E+01
- PKER_SDRYG( 3, 66) = 0.184683E+01
- PKER_SDRYG( 3, 67) = 0.184964E+01
- PKER_SDRYG( 3, 68) = 0.185228E+01
- PKER_SDRYG( 3, 69) = 0.185476E+01
- PKER_SDRYG( 3, 70) = 0.185709E+01
- PKER_SDRYG( 3, 71) = 0.185927E+01
- PKER_SDRYG( 3, 72) = 0.186132E+01
- PKER_SDRYG( 3, 73) = 0.186325E+01
- PKER_SDRYG( 3, 74) = 0.186505E+01
- PKER_SDRYG( 3, 75) = 0.186675E+01
- PKER_SDRYG( 3, 76) = 0.186834E+01
- PKER_SDRYG( 3, 77) = 0.186984E+01
- PKER_SDRYG( 3, 78) = 0.187124E+01
- PKER_SDRYG( 3, 79) = 0.187256E+01
- PKER_SDRYG( 3, 80) = 0.187380E+01
- PKER_SDRYG( 4, 1) = 0.234554E+01
- PKER_SDRYG( 4, 2) = 0.214868E+01
- PKER_SDRYG( 4, 3) = 0.196393E+01
- PKER_SDRYG( 4, 4) = 0.179065E+01
- PKER_SDRYG( 4, 5) = 0.162831E+01
- PKER_SDRYG( 4, 6) = 0.147653E+01
- PKER_SDRYG( 4, 7) = 0.133498E+01
- PKER_SDRYG( 4, 8) = 0.120339E+01
- PKER_SDRYG( 4, 9) = 0.108174E+01
- PKER_SDRYG( 4, 10) = 0.969881E+00
- PKER_SDRYG( 4, 11) = 0.868067E+00
- PKER_SDRYG( 4, 12) = 0.776438E+00
- PKER_SDRYG( 4, 13) = 0.695367E+00
- PKER_SDRYG( 4, 14) = 0.625282E+00
- PKER_SDRYG( 4, 15) = 0.566838E+00
- PKER_SDRYG( 4, 16) = 0.521003E+00
- PKER_SDRYG( 4, 17) = 0.488550E+00
- PKER_SDRYG( 4, 18) = 0.470631E+00
- PKER_SDRYG( 4, 19) = 0.468163E+00
- PKER_SDRYG( 4, 20) = 0.481689E+00
- PKER_SDRYG( 4, 21) = 0.511098E+00
- PKER_SDRYG( 4, 22) = 0.555153E+00
- PKER_SDRYG( 4, 23) = 0.611456E+00
- PKER_SDRYG( 4, 24) = 0.676720E+00
- PKER_SDRYG( 4, 25) = 0.747017E+00
- PKER_SDRYG( 4, 26) = 0.818743E+00
- PKER_SDRYG( 4, 27) = 0.888470E+00
- PKER_SDRYG( 4, 28) = 0.953813E+00
- PKER_SDRYG( 4, 29) = 0.101352E+01
- PKER_SDRYG( 4, 30) = 0.106728E+01
- PKER_SDRYG( 4, 31) = 0.111531E+01
- PKER_SDRYG( 4, 32) = 0.115816E+01
- PKER_SDRYG( 4, 33) = 0.119634E+01
- PKER_SDRYG( 4, 34) = 0.123037E+01
- PKER_SDRYG( 4, 35) = 0.126073E+01
- PKER_SDRYG( 4, 36) = 0.128788E+01
- PKER_SDRYG( 4, 37) = 0.131229E+01
- PKER_SDRYG( 4, 38) = 0.133432E+01
- PKER_SDRYG( 4, 39) = 0.135431E+01
- PKER_SDRYG( 4, 40) = 0.137254E+01
- PKER_SDRYG( 4, 41) = 0.138922E+01
- PKER_SDRYG( 4, 42) = 0.140455E+01
- PKER_SDRYG( 4, 43) = 0.141867E+01
- PKER_SDRYG( 4, 44) = 0.143172E+01
- PKER_SDRYG( 4, 45) = 0.144381E+01
- PKER_SDRYG( 4, 46) = 0.145503E+01
- PKER_SDRYG( 4, 47) = 0.146546E+01
- PKER_SDRYG( 4, 48) = 0.147517E+01
- PKER_SDRYG( 4, 49) = 0.148423E+01
- PKER_SDRYG( 4, 50) = 0.149268E+01
- PKER_SDRYG( 4, 51) = 0.150058E+01
- PKER_SDRYG( 4, 52) = 0.150797E+01
- PKER_SDRYG( 4, 53) = 0.151488E+01
- PKER_SDRYG( 4, 54) = 0.152134E+01
- PKER_SDRYG( 4, 55) = 0.152740E+01
- PKER_SDRYG( 4, 56) = 0.153308E+01
- PKER_SDRYG( 4, 57) = 0.153840E+01
- PKER_SDRYG( 4, 58) = 0.154339E+01
- PKER_SDRYG( 4, 59) = 0.154806E+01
- PKER_SDRYG( 4, 60) = 0.155245E+01
- PKER_SDRYG( 4, 61) = 0.155657E+01
- PKER_SDRYG( 4, 62) = 0.156043E+01
- PKER_SDRYG( 4, 63) = 0.156405E+01
- PKER_SDRYG( 4, 64) = 0.156745E+01
- PKER_SDRYG( 4, 65) = 0.157064E+01
- PKER_SDRYG( 4, 66) = 0.157364E+01
- PKER_SDRYG( 4, 67) = 0.157645E+01
- PKER_SDRYG( 4, 68) = 0.157909E+01
- PKER_SDRYG( 4, 69) = 0.158157E+01
- PKER_SDRYG( 4, 70) = 0.158389E+01
- PKER_SDRYG( 4, 71) = 0.158608E+01
- PKER_SDRYG( 4, 72) = 0.158813E+01
- PKER_SDRYG( 4, 73) = 0.159005E+01
- PKER_SDRYG( 4, 74) = 0.159186E+01
- PKER_SDRYG( 4, 75) = 0.159356E+01
- PKER_SDRYG( 4, 76) = 0.159515E+01
- PKER_SDRYG( 4, 77) = 0.159665E+01
- PKER_SDRYG( 4, 78) = 0.159805E+01
- PKER_SDRYG( 4, 79) = 0.159937E+01
- PKER_SDRYG( 4, 80) = 0.160061E+01
- PKER_SDRYG( 5, 1) = 0.247163E+01
- PKER_SDRYG( 5, 2) = 0.227466E+01
- PKER_SDRYG( 5, 3) = 0.208958E+01
- PKER_SDRYG( 5, 4) = 0.191571E+01
- PKER_SDRYG( 5, 5) = 0.175239E+01
- PKER_SDRYG( 5, 6) = 0.159906E+01
- PKER_SDRYG( 5, 7) = 0.145522E+01
- PKER_SDRYG( 5, 8) = 0.132049E+01
- PKER_SDRYG( 5, 9) = 0.119453E+01
- PKER_SDRYG( 5, 10) = 0.107714E+01
- PKER_SDRYG( 5, 11) = 0.968196E+00
- PKER_SDRYG( 5, 12) = 0.867771E+00
- PKER_SDRYG( 5, 13) = 0.775878E+00
- PKER_SDRYG( 5, 14) = 0.692883E+00
- PKER_SDRYG( 5, 15) = 0.619198E+00
- PKER_SDRYG( 5, 16) = 0.555232E+00
- PKER_SDRYG( 5, 17) = 0.502129E+00
- PKER_SDRYG( 5, 18) = 0.460636E+00
- PKER_SDRYG( 5, 19) = 0.431732E+00
- PKER_SDRYG( 5, 20) = 0.416649E+00
- PKER_SDRYG( 5, 21) = 0.416143E+00
- PKER_SDRYG( 5, 22) = 0.430263E+00
- PKER_SDRYG( 5, 23) = 0.458530E+00
- PKER_SDRYG( 5, 24) = 0.499025E+00
- PKER_SDRYG( 5, 25) = 0.549068E+00
- PKER_SDRYG( 5, 26) = 0.605236E+00
- PKER_SDRYG( 5, 27) = 0.664063E+00
- PKER_SDRYG( 5, 28) = 0.722681E+00
- PKER_SDRYG( 5, 29) = 0.778798E+00
- PKER_SDRYG( 5, 30) = 0.830925E+00
- PKER_SDRYG( 5, 31) = 0.878310E+00
- PKER_SDRYG( 5, 32) = 0.920907E+00
- PKER_SDRYG( 5, 33) = 0.959072E+00
- PKER_SDRYG( 5, 34) = 0.993274E+00
- PKER_SDRYG( 5, 35) = 0.102398E+01
- PKER_SDRYG( 5, 36) = 0.105160E+01
- PKER_SDRYG( 5, 37) = 0.107647E+01
- PKER_SDRYG( 5, 38) = 0.109893E+01
- PKER_SDRYG( 5, 39) = 0.111927E+01
- PKER_SDRYG( 5, 40) = 0.113777E+01
- PKER_SDRYG( 5, 41) = 0.115467E+01
- PKER_SDRYG( 5, 42) = 0.117017E+01
- PKER_SDRYG( 5, 43) = 0.118442E+01
- PKER_SDRYG( 5, 44) = 0.119758E+01
- PKER_SDRYG( 5, 45) = 0.120975E+01
- PKER_SDRYG( 5, 46) = 0.122103E+01
- PKER_SDRYG( 5, 47) = 0.123151E+01
- PKER_SDRYG( 5, 48) = 0.124127E+01
- PKER_SDRYG( 5, 49) = 0.125035E+01
- PKER_SDRYG( 5, 50) = 0.125883E+01
- PKER_SDRYG( 5, 51) = 0.126675E+01
- PKER_SDRYG( 5, 52) = 0.127415E+01
- PKER_SDRYG( 5, 53) = 0.128107E+01
- PKER_SDRYG( 5, 54) = 0.128755E+01
- PKER_SDRYG( 5, 55) = 0.129361E+01
- PKER_SDRYG( 5, 56) = 0.129929E+01
- PKER_SDRYG( 5, 57) = 0.130462E+01
- PKER_SDRYG( 5, 58) = 0.130961E+01
- PKER_SDRYG( 5, 59) = 0.131429E+01
- PKER_SDRYG( 5, 60) = 0.131868E+01
- PKER_SDRYG( 5, 61) = 0.132280E+01
- PKER_SDRYG( 5, 62) = 0.132666E+01
- PKER_SDRYG( 5, 63) = 0.133028E+01
- PKER_SDRYG( 5, 64) = 0.133369E+01
- PKER_SDRYG( 5, 65) = 0.133688E+01
- PKER_SDRYG( 5, 66) = 0.133987E+01
- PKER_SDRYG( 5, 67) = 0.134269E+01
- PKER_SDRYG( 5, 68) = 0.134533E+01
- PKER_SDRYG( 5, 69) = 0.134781E+01
- PKER_SDRYG( 5, 70) = 0.135013E+01
- PKER_SDRYG( 5, 71) = 0.135232E+01
- PKER_SDRYG( 5, 72) = 0.135437E+01
- PKER_SDRYG( 5, 73) = 0.135629E+01
- PKER_SDRYG( 5, 74) = 0.135810E+01
- PKER_SDRYG( 5, 75) = 0.135980E+01
- PKER_SDRYG( 5, 76) = 0.136139E+01
- PKER_SDRYG( 5, 77) = 0.136289E+01
- PKER_SDRYG( 5, 78) = 0.136429E+01
- PKER_SDRYG( 5, 79) = 0.136561E+01
- PKER_SDRYG( 5, 80) = 0.136685E+01
- PKER_SDRYG( 6, 1) = 0.257972E+01
- PKER_SDRYG( 6, 2) = 0.238286E+01
- PKER_SDRYG( 6, 3) = 0.219787E+01
- PKER_SDRYG( 6, 4) = 0.202403E+01
- PKER_SDRYG( 6, 5) = 0.186062E+01
- PKER_SDRYG( 6, 6) = 0.170702E+01
- PKER_SDRYG( 6, 7) = 0.156262E+01
- PKER_SDRYG( 6, 8) = 0.142692E+01
- PKER_SDRYG( 6, 9) = 0.129944E+01
- PKER_SDRYG( 6, 10) = 0.117979E+01
- PKER_SDRYG( 6, 11) = 0.106768E+01
- PKER_SDRYG( 6, 12) = 0.962918E+00
- PKER_SDRYG( 6, 13) = 0.865347E+00
- PKER_SDRYG( 6, 14) = 0.775045E+00
- PKER_SDRYG( 6, 15) = 0.692083E+00
- PKER_SDRYG( 6, 16) = 0.616878E+00
- PKER_SDRYG( 6, 17) = 0.549875E+00
- PKER_SDRYG( 6, 18) = 0.491835E+00
- PKER_SDRYG( 6, 19) = 0.443555E+00
- PKER_SDRYG( 6, 20) = 0.406127E+00
- PKER_SDRYG( 6, 21) = 0.380824E+00
- PKER_SDRYG( 6, 22) = 0.368387E+00
- PKER_SDRYG( 6, 23) = 0.369445E+00
- PKER_SDRYG( 6, 24) = 0.383806E+00
- PKER_SDRYG( 6, 25) = 0.410216E+00
- PKER_SDRYG( 6, 26) = 0.446510E+00
- PKER_SDRYG( 6, 27) = 0.489828E+00
- PKER_SDRYG( 6, 28) = 0.537058E+00
- PKER_SDRYG( 6, 29) = 0.585473E+00
- PKER_SDRYG( 6, 30) = 0.632833E+00
- PKER_SDRYG( 6, 31) = 0.677778E+00
- PKER_SDRYG( 6, 32) = 0.719331E+00
- PKER_SDRYG( 6, 33) = 0.757120E+00
- PKER_SDRYG( 6, 34) = 0.791204E+00
- PKER_SDRYG( 6, 35) = 0.821879E+00
- PKER_SDRYG( 6, 36) = 0.849531E+00
- PKER_SDRYG( 6, 37) = 0.874550E+00
- PKER_SDRYG( 6, 38) = 0.897242E+00
- PKER_SDRYG( 6, 39) = 0.917866E+00
- PKER_SDRYG( 6, 40) = 0.936642E+00
- PKER_SDRYG( 6, 41) = 0.953775E+00
- PKER_SDRYG( 6, 42) = 0.969458E+00
- PKER_SDRYG( 6, 43) = 0.983861E+00
- PKER_SDRYG( 6, 44) = 0.997132E+00
- PKER_SDRYG( 6, 45) = 0.100939E+01
- PKER_SDRYG( 6, 46) = 0.102075E+01
- PKER_SDRYG( 6, 47) = 0.103128E+01
- PKER_SDRYG( 6, 48) = 0.104108E+01
- PKER_SDRYG( 6, 49) = 0.105020E+01
- PKER_SDRYG( 6, 50) = 0.105871E+01
- PKER_SDRYG( 6, 51) = 0.106665E+01
- PKER_SDRYG( 6, 52) = 0.107406E+01
- PKER_SDRYG( 6, 53) = 0.108100E+01
- PKER_SDRYG( 6, 54) = 0.108749E+01
- PKER_SDRYG( 6, 55) = 0.109356E+01
- PKER_SDRYG( 6, 56) = 0.109925E+01
- PKER_SDRYG( 6, 57) = 0.110458E+01
- PKER_SDRYG( 6, 58) = 0.110957E+01
- PKER_SDRYG( 6, 59) = 0.111425E+01
- PKER_SDRYG( 6, 60) = 0.111865E+01
- PKER_SDRYG( 6, 61) = 0.112277E+01
- PKER_SDRYG( 6, 62) = 0.112663E+01
- PKER_SDRYG( 6, 63) = 0.113026E+01
- PKER_SDRYG( 6, 64) = 0.113366E+01
- PKER_SDRYG( 6, 65) = 0.113685E+01
- PKER_SDRYG( 6, 66) = 0.113985E+01
- PKER_SDRYG( 6, 67) = 0.114266E+01
- PKER_SDRYG( 6, 68) = 0.114530E+01
- PKER_SDRYG( 6, 69) = 0.114778E+01
- PKER_SDRYG( 6, 70) = 0.115011E+01
- PKER_SDRYG( 6, 71) = 0.115229E+01
- PKER_SDRYG( 6, 72) = 0.115434E+01
- PKER_SDRYG( 6, 73) = 0.115627E+01
- PKER_SDRYG( 6, 74) = 0.115808E+01
- PKER_SDRYG( 6, 75) = 0.115977E+01
- PKER_SDRYG( 6, 76) = 0.116137E+01
- PKER_SDRYG( 6, 77) = 0.116286E+01
- PKER_SDRYG( 6, 78) = 0.116427E+01
- PKER_SDRYG( 6, 79) = 0.116559E+01
- PKER_SDRYG( 6, 80) = 0.116682E+01
- PKER_SDRYG( 7, 1) = 0.267216E+01
- PKER_SDRYG( 7, 2) = 0.247542E+01
- PKER_SDRYG( 7, 3) = 0.229059E+01
- PKER_SDRYG( 7, 4) = 0.211690E+01
- PKER_SDRYG( 7, 5) = 0.195366E+01
- PKER_SDRYG( 7, 6) = 0.180020E+01
- PKER_SDRYG( 7, 7) = 0.165590E+01
- PKER_SDRYG( 7, 8) = 0.152016E+01
- PKER_SDRYG( 7, 9) = 0.139247E+01
- PKER_SDRYG( 7, 10) = 0.127232E+01
- PKER_SDRYG( 7, 11) = 0.115928E+01
- PKER_SDRYG( 7, 12) = 0.105298E+01
- PKER_SDRYG( 7, 13) = 0.953147E+00
- PKER_SDRYG( 7, 14) = 0.859548E+00
- PKER_SDRYG( 7, 15) = 0.772080E+00
- PKER_SDRYG( 7, 16) = 0.690795E+00
- PKER_SDRYG( 7, 17) = 0.615899E+00
- PKER_SDRYG( 7, 18) = 0.547689E+00
- PKER_SDRYG( 7, 19) = 0.486803E+00
- PKER_SDRYG( 7, 20) = 0.434037E+00
- PKER_SDRYG( 7, 21) = 0.390298E+00
- PKER_SDRYG( 7, 22) = 0.356884E+00
- PKER_SDRYG( 7, 23) = 0.334845E+00
- PKER_SDRYG( 7, 24) = 0.324836E+00
- PKER_SDRYG( 7, 25) = 0.327158E+00
- PKER_SDRYG( 7, 26) = 0.341163E+00
- PKER_SDRYG( 7, 27) = 0.365112E+00
- PKER_SDRYG( 7, 28) = 0.396807E+00
- PKER_SDRYG( 7, 29) = 0.433487E+00
- PKER_SDRYG( 7, 30) = 0.472612E+00
- PKER_SDRYG( 7, 31) = 0.511994E+00
- PKER_SDRYG( 7, 32) = 0.550118E+00
- PKER_SDRYG( 7, 33) = 0.586089E+00
- PKER_SDRYG( 7, 34) = 0.619363E+00
- PKER_SDRYG( 7, 35) = 0.649769E+00
- PKER_SDRYG( 7, 36) = 0.677330E+00
- PKER_SDRYG( 7, 37) = 0.702279E+00
- PKER_SDRYG( 7, 38) = 0.724930E+00
- PKER_SDRYG( 7, 39) = 0.745565E+00
- PKER_SDRYG( 7, 40) = 0.764428E+00
- PKER_SDRYG( 7, 41) = 0.781707E+00
- PKER_SDRYG( 7, 42) = 0.797555E+00
- PKER_SDRYG( 7, 43) = 0.812112E+00
- PKER_SDRYG( 7, 44) = 0.825509E+00
- PKER_SDRYG( 7, 45) = 0.837870E+00
- PKER_SDRYG( 7, 46) = 0.849304E+00
- PKER_SDRYG( 7, 47) = 0.859904E+00
- PKER_SDRYG( 7, 48) = 0.869749E+00
- PKER_SDRYG( 7, 49) = 0.878910E+00
- PKER_SDRYG( 7, 50) = 0.887445E+00
- PKER_SDRYG( 7, 51) = 0.895407E+00
- PKER_SDRYG( 7, 52) = 0.902841E+00
- PKER_SDRYG( 7, 53) = 0.909790E+00
- PKER_SDRYG( 7, 54) = 0.916289E+00
- PKER_SDRYG( 7, 55) = 0.922371E+00
- PKER_SDRYG( 7, 56) = 0.928066E+00
- PKER_SDRYG( 7, 57) = 0.933401E+00
- PKER_SDRYG( 7, 58) = 0.938401E+00
- PKER_SDRYG( 7, 59) = 0.943087E+00
- PKER_SDRYG( 7, 60) = 0.947482E+00
- PKER_SDRYG( 7, 61) = 0.951603E+00
- PKER_SDRYG( 7, 62) = 0.955469E+00
- PKER_SDRYG( 7, 63) = 0.959096E+00
- PKER_SDRYG( 7, 64) = 0.962500E+00
- PKER_SDRYG( 7, 65) = 0.965694E+00
- PKER_SDRYG( 7, 66) = 0.968691E+00
- PKER_SDRYG( 7, 67) = 0.971504E+00
- PKER_SDRYG( 7, 68) = 0.974145E+00
- PKER_SDRYG( 7, 69) = 0.976624E+00
- PKER_SDRYG( 7, 70) = 0.978951E+00
- PKER_SDRYG( 7, 71) = 0.981136E+00
- PKER_SDRYG( 7, 72) = 0.983187E+00
- PKER_SDRYG( 7, 73) = 0.985112E+00
- PKER_SDRYG( 7, 74) = 0.986920E+00
- PKER_SDRYG( 7, 75) = 0.988617E+00
- PKER_SDRYG( 7, 76) = 0.990211E+00
- PKER_SDRYG( 7, 77) = 0.991707E+00
- PKER_SDRYG( 7, 78) = 0.993112E+00
- PKER_SDRYG( 7, 79) = 0.994431E+00
- PKER_SDRYG( 7, 80) = 0.995669E+00
- PKER_SDRYG( 8, 1) = 0.275117E+01
- PKER_SDRYG( 8, 2) = 0.255454E+01
- PKER_SDRYG( 8, 3) = 0.236983E+01
- PKER_SDRYG( 8, 4) = 0.219630E+01
- PKER_SDRYG( 8, 5) = 0.203323E+01
- PKER_SDRYG( 8, 6) = 0.187998E+01
- PKER_SDRYG( 8, 7) = 0.173590E+01
- PKER_SDRYG( 8, 8) = 0.160040E+01
- PKER_SDRYG( 8, 9) = 0.147293E+01
- PKER_SDRYG( 8, 10) = 0.135295E+01
- PKER_SDRYG( 8, 11) = 0.123996E+01
- PKER_SDRYG( 8, 12) = 0.113353E+01
- PKER_SDRYG( 8, 13) = 0.103324E+01
- PKER_SDRYG( 8, 14) = 0.938726E+00
- PKER_SDRYG( 8, 15) = 0.849707E+00
- PKER_SDRYG( 8, 16) = 0.765984E+00
- PKER_SDRYG( 8, 17) = 0.687490E+00
- PKER_SDRYG( 8, 18) = 0.614228E+00
- PKER_SDRYG( 8, 19) = 0.546445E+00
- PKER_SDRYG( 8, 20) = 0.484521E+00
- PKER_SDRYG( 8, 21) = 0.429191E+00
- PKER_SDRYG( 8, 22) = 0.381279E+00
- PKER_SDRYG( 8, 23) = 0.341954E+00
- PKER_SDRYG( 8, 24) = 0.312266E+00
- PKER_SDRYG( 8, 25) = 0.293197E+00
- PKER_SDRYG( 8, 26) = 0.285436E+00
- PKER_SDRYG( 8, 27) = 0.288590E+00
- PKER_SDRYG( 8, 28) = 0.301647E+00
- PKER_SDRYG( 8, 29) = 0.322883E+00
- PKER_SDRYG( 8, 30) = 0.349944E+00
- PKER_SDRYG( 8, 31) = 0.380489E+00
- PKER_SDRYG( 8, 32) = 0.412492E+00
- PKER_SDRYG( 8, 33) = 0.444350E+00
- PKER_SDRYG( 8, 34) = 0.475064E+00
- PKER_SDRYG( 8, 35) = 0.503980E+00
- PKER_SDRYG( 8, 36) = 0.530853E+00
- PKER_SDRYG( 8, 37) = 0.555542E+00
- PKER_SDRYG( 8, 38) = 0.578083E+00
- PKER_SDRYG( 8, 39) = 0.598637E+00
- PKER_SDRYG( 8, 40) = 0.617414E+00
- PKER_SDRYG( 8, 41) = 0.634627E+00
- PKER_SDRYG( 8, 42) = 0.650467E+00
- PKER_SDRYG( 8, 43) = 0.665074E+00
- PKER_SDRYG( 8, 44) = 0.678558E+00
- PKER_SDRYG( 8, 45) = 0.691015E+00
- PKER_SDRYG( 8, 46) = 0.702533E+00
- PKER_SDRYG( 8, 47) = 0.713201E+00
- PKER_SDRYG( 8, 48) = 0.723101E+00
- PKER_SDRYG( 8, 49) = 0.732303E+00
- PKER_SDRYG( 8, 50) = 0.740871E+00
- PKER_SDRYG( 8, 51) = 0.748859E+00
- PKER_SDRYG( 8, 52) = 0.756314E+00
- PKER_SDRYG( 8, 53) = 0.763279E+00
- PKER_SDRYG( 8, 54) = 0.769790E+00
- PKER_SDRYG( 8, 55) = 0.775882E+00
- PKER_SDRYG( 8, 56) = 0.781585E+00
- PKER_SDRYG( 8, 57) = 0.786926E+00
- PKER_SDRYG( 8, 58) = 0.791930E+00
- PKER_SDRYG( 8, 59) = 0.796621E+00
- PKER_SDRYG( 8, 60) = 0.801018E+00
- PKER_SDRYG( 8, 61) = 0.805142E+00
- PKER_SDRYG( 8, 62) = 0.809010E+00
- PKER_SDRYG( 8, 63) = 0.812638E+00
- PKER_SDRYG( 8, 64) = 0.816043E+00
- PKER_SDRYG( 8, 65) = 0.819238E+00
- PKER_SDRYG( 8, 66) = 0.822236E+00
- PKER_SDRYG( 8, 67) = 0.825050E+00
- PKER_SDRYG( 8, 68) = 0.827691E+00
- PKER_SDRYG( 8, 69) = 0.830170E+00
- PKER_SDRYG( 8, 70) = 0.832497E+00
- PKER_SDRYG( 8, 71) = 0.834682E+00
- PKER_SDRYG( 8, 72) = 0.836733E+00
- PKER_SDRYG( 8, 73) = 0.838659E+00
- PKER_SDRYG( 8, 74) = 0.840467E+00
- PKER_SDRYG( 8, 75) = 0.842164E+00
- PKER_SDRYG( 8, 76) = 0.843758E+00
- PKER_SDRYG( 8, 77) = 0.845254E+00
- PKER_SDRYG( 8, 78) = 0.846659E+00
- PKER_SDRYG( 8, 79) = 0.847978E+00
- PKER_SDRYG( 8, 80) = 0.849217E+00
- PKER_SDRYG( 9, 1) = 0.281873E+01
- PKER_SDRYG( 9, 2) = 0.262217E+01
- PKER_SDRYG( 9, 3) = 0.243755E+01
- PKER_SDRYG( 9, 4) = 0.226413E+01
- PKER_SDRYG( 9, 5) = 0.210120E+01
- PKER_SDRYG( 9, 6) = 0.194811E+01
- PKER_SDRYG( 9, 7) = 0.180423E+01
- PKER_SDRYG( 9, 8) = 0.166898E+01
- PKER_SDRYG( 9, 9) = 0.154178E+01
- PKER_SDRYG( 9, 10) = 0.142211E+01
- PKER_SDRYG( 9, 11) = 0.130946E+01
- PKER_SDRYG( 9, 12) = 0.120336E+01
- PKER_SDRYG( 9, 13) = 0.110334E+01
- PKER_SDRYG( 9, 14) = 0.100898E+01
- PKER_SDRYG( 9, 15) = 0.919904E+00
- PKER_SDRYG( 9, 16) = 0.835767E+00
- PKER_SDRYG( 9, 17) = 0.756296E+00
- PKER_SDRYG( 9, 18) = 0.681312E+00
- PKER_SDRYG( 9, 19) = 0.610704E+00
- PKER_SDRYG( 9, 20) = 0.544549E+00
- PKER_SDRYG( 9, 21) = 0.483126E+00
- PKER_SDRYG( 9, 22) = 0.426903E+00
- PKER_SDRYG( 9, 23) = 0.376623E+00
- PKER_SDRYG( 9, 24) = 0.333280E+00
- PKER_SDRYG( 9, 25) = 0.297980E+00
- PKER_SDRYG( 9, 26) = 0.271818E+00
- PKER_SDRYG( 9, 27) = 0.255645E+00
- PKER_SDRYG( 9, 28) = 0.249649E+00
- PKER_SDRYG( 9, 29) = 0.253211E+00
- PKER_SDRYG( 9, 30) = 0.265062E+00
- PKER_SDRYG( 9, 31) = 0.283396E+00
- PKER_SDRYG( 9, 32) = 0.306054E+00
- PKER_SDRYG( 9, 33) = 0.331204E+00
- PKER_SDRYG( 9, 34) = 0.357250E+00
- PKER_SDRYG( 9, 35) = 0.383076E+00
- PKER_SDRYG( 9, 36) = 0.407898E+00
- PKER_SDRYG( 9, 37) = 0.431335E+00
- PKER_SDRYG( 9, 38) = 0.453229E+00
- PKER_SDRYG( 9, 39) = 0.473481E+00
- PKER_SDRYG( 9, 40) = 0.492133E+00
- PKER_SDRYG( 9, 41) = 0.509252E+00
- PKER_SDRYG( 9, 42) = 0.524980E+00
- PKER_SDRYG( 9, 43) = 0.539487E+00
- PKER_SDRYG( 9, 44) = 0.552905E+00
- PKER_SDRYG( 9, 45) = 0.565346E+00
- PKER_SDRYG( 9, 46) = 0.576895E+00
- PKER_SDRYG( 9, 47) = 0.587615E+00
- PKER_SDRYG( 9, 48) = 0.597569E+00
- PKER_SDRYG( 9, 49) = 0.606817E+00
- PKER_SDRYG( 9, 50) = 0.615422E+00
- PKER_SDRYG( 9, 51) = 0.623439E+00
- PKER_SDRYG( 9, 52) = 0.630916E+00
- PKER_SDRYG( 9, 53) = 0.637899E+00
- PKER_SDRYG( 9, 54) = 0.644424E+00
- PKER_SDRYG( 9, 55) = 0.650527E+00
- PKER_SDRYG( 9, 56) = 0.656238E+00
- PKER_SDRYG( 9, 57) = 0.661586E+00
- PKER_SDRYG( 9, 58) = 0.666595E+00
- PKER_SDRYG( 9, 59) = 0.671290E+00
- PKER_SDRYG( 9, 60) = 0.675690E+00
- PKER_SDRYG( 9, 61) = 0.679817E+00
- PKER_SDRYG( 9, 62) = 0.683687E+00
- PKER_SDRYG( 9, 63) = 0.687317E+00
- PKER_SDRYG( 9, 64) = 0.690723E+00
- PKER_SDRYG( 9, 65) = 0.693918E+00
- PKER_SDRYG( 9, 66) = 0.696917E+00
- PKER_SDRYG( 9, 67) = 0.699732E+00
- PKER_SDRYG( 9, 68) = 0.702374E+00
- PKER_SDRYG( 9, 69) = 0.704853E+00
- PKER_SDRYG( 9, 70) = 0.707181E+00
- PKER_SDRYG( 9, 71) = 0.709366E+00
- PKER_SDRYG( 9, 72) = 0.711417E+00
- PKER_SDRYG( 9, 73) = 0.713343E+00
- PKER_SDRYG( 9, 74) = 0.715151E+00
- PKER_SDRYG( 9, 75) = 0.716848E+00
- PKER_SDRYG( 9, 76) = 0.718442E+00
- PKER_SDRYG( 9, 77) = 0.719938E+00
- PKER_SDRYG( 9, 78) = 0.721343E+00
- PKER_SDRYG( 9, 79) = 0.722663E+00
- PKER_SDRYG( 9, 80) = 0.723901E+00
- PKER_SDRYG( 10, 1) = 0.287649E+01
- PKER_SDRYG( 10, 2) = 0.267999E+01
- PKER_SDRYG( 10, 3) = 0.249543E+01
- PKER_SDRYG( 10, 4) = 0.232209E+01
- PKER_SDRYG( 10, 5) = 0.215926E+01
- PKER_SDRYG( 10, 6) = 0.200629E+01
- PKER_SDRYG( 10, 7) = 0.186256E+01
- PKER_SDRYG( 10, 8) = 0.172749E+01
- PKER_SDRYG( 10, 9) = 0.160052E+01
- PKER_SDRYG( 10, 10) = 0.148113E+01
- PKER_SDRYG( 10, 11) = 0.136880E+01
- PKER_SDRYG( 10, 12) = 0.126307E+01
- PKER_SDRYG( 10, 13) = 0.116348E+01
- PKER_SDRYG( 10, 14) = 0.106958E+01
- PKER_SDRYG( 10, 15) = 0.980970E+00
- PKER_SDRYG( 10, 16) = 0.897241E+00
- PKER_SDRYG( 10, 17) = 0.818035E+00
- PKER_SDRYG( 10, 18) = 0.743029E+00
- PKER_SDRYG( 10, 19) = 0.671957E+00
- PKER_SDRYG( 10, 20) = 0.604628E+00
- PKER_SDRYG( 10, 21) = 0.540973E+00
- PKER_SDRYG( 10, 22) = 0.481134E+00
- PKER_SDRYG( 10, 23) = 0.425371E+00
- PKER_SDRYG( 10, 24) = 0.374261E+00
- PKER_SDRYG( 10, 25) = 0.328628E+00
- PKER_SDRYG( 10, 26) = 0.289572E+00
- PKER_SDRYG( 10, 27) = 0.258117E+00
- PKER_SDRYG( 10, 28) = 0.235368E+00
- PKER_SDRYG( 10, 29) = 0.221755E+00
- PKER_SDRYG( 10, 30) = 0.217136E+00
- PKER_SDRYG( 10, 31) = 0.220856E+00
- PKER_SDRYG( 10, 32) = 0.231296E+00
- PKER_SDRYG( 10, 33) = 0.246745E+00
- PKER_SDRYG( 10, 34) = 0.265573E+00
- PKER_SDRYG( 10, 35) = 0.286164E+00
- PKER_SDRYG( 10, 36) = 0.307344E+00
- PKER_SDRYG( 10, 37) = 0.328309E+00
- PKER_SDRYG( 10, 38) = 0.348513E+00
- PKER_SDRYG( 10, 39) = 0.367687E+00
- PKER_SDRYG( 10, 40) = 0.385687E+00
- PKER_SDRYG( 10, 41) = 0.402481E+00
- PKER_SDRYG( 10, 42) = 0.418056E+00
- PKER_SDRYG( 10, 43) = 0.432452E+00
- PKER_SDRYG( 10, 44) = 0.445760E+00
- PKER_SDRYG( 10, 45) = 0.458086E+00
- PKER_SDRYG( 10, 46) = 0.469537E+00
- PKER_SDRYG( 10, 47) = 0.480201E+00
- PKER_SDRYG( 10, 48) = 0.490143E+00
- PKER_SDRYG( 10, 49) = 0.499411E+00
- PKER_SDRYG( 10, 50) = 0.508047E+00
- PKER_SDRYG( 10, 51) = 0.516093E+00
- PKER_SDRYG( 10, 52) = 0.523596E+00
- PKER_SDRYG( 10, 53) = 0.530598E+00
- PKER_SDRYG( 10, 54) = 0.537139E+00
- PKER_SDRYG( 10, 55) = 0.543253E+00
- PKER_SDRYG( 10, 56) = 0.548974E+00
- PKER_SDRYG( 10, 57) = 0.554329E+00
- PKER_SDRYG( 10, 58) = 0.559345E+00
- PKER_SDRYG( 10, 59) = 0.564044E+00
- PKER_SDRYG( 10, 60) = 0.568448E+00
- PKER_SDRYG( 10, 61) = 0.572577E+00
- PKER_SDRYG( 10, 62) = 0.576449E+00
- PKER_SDRYG( 10, 63) = 0.580081E+00
- PKER_SDRYG( 10, 64) = 0.583488E+00
- PKER_SDRYG( 10, 65) = 0.586685E+00
- PKER_SDRYG( 10, 66) = 0.589685E+00
- PKER_SDRYG( 10, 67) = 0.592500E+00
- PKER_SDRYG( 10, 68) = 0.595142E+00
- PKER_SDRYG( 10, 69) = 0.597623E+00
- PKER_SDRYG( 10, 70) = 0.599950E+00
- PKER_SDRYG( 10, 71) = 0.602136E+00
- PKER_SDRYG( 10, 72) = 0.604187E+00
- PKER_SDRYG( 10, 73) = 0.606113E+00
- PKER_SDRYG( 10, 74) = 0.607921E+00
- PKER_SDRYG( 10, 75) = 0.609619E+00
- PKER_SDRYG( 10, 76) = 0.611213E+00
- PKER_SDRYG( 10, 77) = 0.612709E+00
- PKER_SDRYG( 10, 78) = 0.614114E+00
- PKER_SDRYG( 10, 79) = 0.615433E+00
- PKER_SDRYG( 10, 80) = 0.616672E+00
- PKER_SDRYG( 11, 1) = 0.292588E+01
- PKER_SDRYG( 11, 2) = 0.272942E+01
- PKER_SDRYG( 11, 3) = 0.254491E+01
- PKER_SDRYG( 11, 4) = 0.237162E+01
- PKER_SDRYG( 11, 5) = 0.220887E+01
- PKER_SDRYG( 11, 6) = 0.205599E+01
- PKER_SDRYG( 11, 7) = 0.191237E+01
- PKER_SDRYG( 11, 8) = 0.177743E+01
- PKER_SDRYG( 11, 9) = 0.165062E+01
- PKER_SDRYG( 11, 10) = 0.153143E+01
- PKER_SDRYG( 11, 11) = 0.141936E+01
- PKER_SDRYG( 11, 12) = 0.131393E+01
- PKER_SDRYG( 11, 13) = 0.121471E+01
- PKER_SDRYG( 11, 14) = 0.112125E+01
- PKER_SDRYG( 11, 15) = 0.103314E+01
- PKER_SDRYG( 11, 16) = 0.949992E+00
- PKER_SDRYG( 11, 17) = 0.871403E+00
- PKER_SDRYG( 11, 18) = 0.797011E+00
- PKER_SDRYG( 11, 19) = 0.726472E+00
- PKER_SDRYG( 11, 20) = 0.659472E+00
- PKER_SDRYG( 11, 21) = 0.595759E+00
- PKER_SDRYG( 11, 22) = 0.535173E+00
- PKER_SDRYG( 11, 23) = 0.477686E+00
- PKER_SDRYG( 11, 24) = 0.423410E+00
- PKER_SDRYG( 11, 25) = 0.372735E+00
- PKER_SDRYG( 11, 26) = 0.326343E+00
- PKER_SDRYG( 11, 27) = 0.285079E+00
- PKER_SDRYG( 11, 28) = 0.250073E+00
- PKER_SDRYG( 11, 29) = 0.222370E+00
- PKER_SDRYG( 11, 30) = 0.202694E+00
- PKER_SDRYG( 11, 31) = 0.191356E+00
- PKER_SDRYG( 11, 32) = 0.187944E+00
- PKER_SDRYG( 11, 33) = 0.191428E+00
- PKER_SDRYG( 11, 34) = 0.200384E+00
- PKER_SDRYG( 11, 35) = 0.213284E+00
- PKER_SDRYG( 11, 36) = 0.228761E+00
- PKER_SDRYG( 11, 37) = 0.245555E+00
- PKER_SDRYG( 11, 38) = 0.262820E+00
- PKER_SDRYG( 11, 39) = 0.279947E+00
- PKER_SDRYG( 11, 40) = 0.296552E+00
- PKER_SDRYG( 11, 41) = 0.312363E+00
- PKER_SDRYG( 11, 42) = 0.327309E+00
- PKER_SDRYG( 11, 43) = 0.341353E+00
- PKER_SDRYG( 11, 44) = 0.354467E+00
- PKER_SDRYG( 11, 45) = 0.366682E+00
- PKER_SDRYG( 11, 46) = 0.378026E+00
- PKER_SDRYG( 11, 47) = 0.388571E+00
- PKER_SDRYG( 11, 48) = 0.398407E+00
- PKER_SDRYG( 11, 49) = 0.407595E+00
- PKER_SDRYG( 11, 50) = 0.416190E+00
- PKER_SDRYG( 11, 51) = 0.424231E+00
- PKER_SDRYG( 11, 52) = 0.431746E+00
- PKER_SDRYG( 11, 53) = 0.438766E+00
- PKER_SDRYG( 11, 54) = 0.445323E+00
- PKER_SDRYG( 11, 55) = 0.451452E+00
- PKER_SDRYG( 11, 56) = 0.457183E+00
- PKER_SDRYG( 11, 57) = 0.462546E+00
- PKER_SDRYG( 11, 58) = 0.467568E+00
- PKER_SDRYG( 11, 59) = 0.472272E+00
- PKER_SDRYG( 11, 60) = 0.476681E+00
- PKER_SDRYG( 11, 61) = 0.480813E+00
- PKER_SDRYG( 11, 62) = 0.484687E+00
- PKER_SDRYG( 11, 63) = 0.488321E+00
- PKER_SDRYG( 11, 64) = 0.491730E+00
- PKER_SDRYG( 11, 65) = 0.494928E+00
- PKER_SDRYG( 11, 66) = 0.497929E+00
- PKER_SDRYG( 11, 67) = 0.500745E+00
- PKER_SDRYG( 11, 68) = 0.503387E+00
- PKER_SDRYG( 11, 69) = 0.505868E+00
- PKER_SDRYG( 11, 70) = 0.508196E+00
- PKER_SDRYG( 11, 71) = 0.510382E+00
- PKER_SDRYG( 11, 72) = 0.512433E+00
- PKER_SDRYG( 11, 73) = 0.514360E+00
- PKER_SDRYG( 11, 74) = 0.516168E+00
- PKER_SDRYG( 11, 75) = 0.517866E+00
- PKER_SDRYG( 11, 76) = 0.519459E+00
- PKER_SDRYG( 11, 77) = 0.520956E+00
- PKER_SDRYG( 11, 78) = 0.522361E+00
- PKER_SDRYG( 11, 79) = 0.523680E+00
- PKER_SDRYG( 11, 80) = 0.524919E+00
- PKER_SDRYG( 12, 1) = 0.296813E+01
- PKER_SDRYG( 12, 2) = 0.277169E+01
- PKER_SDRYG( 12, 3) = 0.258722E+01
- PKER_SDRYG( 12, 4) = 0.241397E+01
- PKER_SDRYG( 12, 5) = 0.225126E+01
- PKER_SDRYG( 12, 6) = 0.209845E+01
- PKER_SDRYG( 12, 7) = 0.195490E+01
- PKER_SDRYG( 12, 8) = 0.182006E+01
- PKER_SDRYG( 12, 9) = 0.169337E+01
- PKER_SDRYG( 12, 10) = 0.157433E+01
- PKER_SDRYG( 12, 11) = 0.146243E+01
- PKER_SDRYG( 12, 12) = 0.135723E+01
- PKER_SDRYG( 12, 13) = 0.125828E+01
- PKER_SDRYG( 12, 14) = 0.116516E+01
- PKER_SDRYG( 12, 15) = 0.107747E+01
- PKER_SDRYG( 12, 16) = 0.994807E+00
- PKER_SDRYG( 12, 17) = 0.916807E+00
- PKER_SDRYG( 12, 18) = 0.843095E+00
- PKER_SDRYG( 12, 19) = 0.773314E+00
- PKER_SDRYG( 12, 20) = 0.707116E+00
- PKER_SDRYG( 12, 21) = 0.644174E+00
- PKER_SDRYG( 12, 22) = 0.584199E+00
- PKER_SDRYG( 12, 23) = 0.526949E+00
- PKER_SDRYG( 12, 24) = 0.472291E+00
- PKER_SDRYG( 12, 25) = 0.420211E+00
- PKER_SDRYG( 12, 26) = 0.370902E+00
- PKER_SDRYG( 12, 27) = 0.324892E+00
- PKER_SDRYG( 12, 28) = 0.282842E+00
- PKER_SDRYG( 12, 29) = 0.245728E+00
- PKER_SDRYG( 12, 30) = 0.214626E+00
- PKER_SDRYG( 12, 31) = 0.190466E+00
- PKER_SDRYG( 12, 32) = 0.173675E+00
- PKER_SDRYG( 12, 33) = 0.164353E+00
- PKER_SDRYG( 12, 34) = 0.161777E+00
- PKER_SDRYG( 12, 35) = 0.164848E+00
- PKER_SDRYG( 12, 36) = 0.172447E+00
- PKER_SDRYG( 12, 37) = 0.183108E+00
- PKER_SDRYG( 12, 38) = 0.195737E+00
- PKER_SDRYG( 12, 39) = 0.209501E+00
- PKER_SDRYG( 12, 40) = 0.223654E+00
- PKER_SDRYG( 12, 41) = 0.237731E+00
- PKER_SDRYG( 12, 42) = 0.251446E+00
- PKER_SDRYG( 12, 43) = 0.264605E+00
- PKER_SDRYG( 12, 44) = 0.277116E+00
- PKER_SDRYG( 12, 45) = 0.288946E+00
- PKER_SDRYG( 12, 46) = 0.300077E+00
- PKER_SDRYG( 12, 47) = 0.310498E+00
- PKER_SDRYG( 12, 48) = 0.320228E+00
- PKER_SDRYG( 12, 49) = 0.329310E+00
- PKER_SDRYG( 12, 50) = 0.337797E+00
- PKER_SDRYG( 12, 51) = 0.345746E+00
- PKER_SDRYG( 12, 52) = 0.353202E+00
- PKER_SDRYG( 12, 53) = 0.360196E+00
- PKER_SDRYG( 12, 54) = 0.366751E+00
- PKER_SDRYG( 12, 55) = 0.372888E+00
- PKER_SDRYG( 12, 56) = 0.378630E+00
- PKER_SDRYG( 12, 57) = 0.384002E+00
- PKER_SDRYG( 12, 58) = 0.389031E+00
- PKER_SDRYG( 12, 59) = 0.393741E+00
- PKER_SDRYG( 12, 60) = 0.398154E+00
- PKER_SDRYG( 12, 61) = 0.402290E+00
- PKER_SDRYG( 12, 62) = 0.406167E+00
- PKER_SDRYG( 12, 63) = 0.409803E+00
- PKER_SDRYG( 12, 64) = 0.413213E+00
- PKER_SDRYG( 12, 65) = 0.416413E+00
- PKER_SDRYG( 12, 66) = 0.419414E+00
- PKER_SDRYG( 12, 67) = 0.422231E+00
- PKER_SDRYG( 12, 68) = 0.424874E+00
- PKER_SDRYG( 12, 69) = 0.427355E+00
- PKER_SDRYG( 12, 70) = 0.429684E+00
- PKER_SDRYG( 12, 71) = 0.431870E+00
- PKER_SDRYG( 12, 72) = 0.433922E+00
- PKER_SDRYG( 12, 73) = 0.435848E+00
- PKER_SDRYG( 12, 74) = 0.437657E+00
- PKER_SDRYG( 12, 75) = 0.439355E+00
- PKER_SDRYG( 12, 76) = 0.440949E+00
- PKER_SDRYG( 12, 77) = 0.442445E+00
- PKER_SDRYG( 12, 78) = 0.443850E+00
- PKER_SDRYG( 12, 79) = 0.445170E+00
- PKER_SDRYG( 12, 80) = 0.446408E+00
- PKER_SDRYG( 13, 1) = 0.300426E+01
- PKER_SDRYG( 13, 2) = 0.280784E+01
- PKER_SDRYG( 13, 3) = 0.262339E+01
- PKER_SDRYG( 13, 4) = 0.245018E+01
- PKER_SDRYG( 13, 5) = 0.228751E+01
- PKER_SDRYG( 13, 6) = 0.213473E+01
- PKER_SDRYG( 13, 7) = 0.199125E+01
- PKER_SDRYG( 13, 8) = 0.185647E+01
- PKER_SDRYG( 13, 9) = 0.172987E+01
- PKER_SDRYG( 13, 10) = 0.161093E+01
- PKER_SDRYG( 13, 11) = 0.149916E+01
- PKER_SDRYG( 13, 12) = 0.139412E+01
- PKER_SDRYG( 13, 13) = 0.129536E+01
- PKER_SDRYG( 13, 14) = 0.120249E+01
- PKER_SDRYG( 13, 15) = 0.111509E+01
- PKER_SDRYG( 13, 16) = 0.103280E+01
- PKER_SDRYG( 13, 17) = 0.955258E+00
- PKER_SDRYG( 13, 18) = 0.882099E+00
- PKER_SDRYG( 13, 19) = 0.812980E+00
- PKER_SDRYG( 13, 20) = 0.747559E+00
- PKER_SDRYG( 13, 21) = 0.685504E+00
- PKER_SDRYG( 13, 22) = 0.626487E+00
- PKER_SDRYG( 13, 23) = 0.570200E+00
- PKER_SDRYG( 13, 24) = 0.516370E+00
- PKER_SDRYG( 13, 25) = 0.464781E+00
- PKER_SDRYG( 13, 26) = 0.415330E+00
- PKER_SDRYG( 13, 27) = 0.368082E+00
- PKER_SDRYG( 13, 28) = 0.323329E+00
- PKER_SDRYG( 13, 29) = 0.281592E+00
- PKER_SDRYG( 13, 30) = 0.243675E+00
- PKER_SDRYG( 13, 31) = 0.210623E+00
- PKER_SDRYG( 13, 32) = 0.183280E+00
- PKER_SDRYG( 13, 33) = 0.162430E+00
- PKER_SDRYG( 13, 34) = 0.148317E+00
- PKER_SDRYG( 13, 35) = 0.140602E+00
- PKER_SDRYG( 13, 36) = 0.138606E+00
- PKER_SDRYG( 13, 37) = 0.141294E+00
- PKER_SDRYG( 13, 38) = 0.147531E+00
- PKER_SDRYG( 13, 39) = 0.156269E+00
- PKER_SDRYG( 13, 40) = 0.166597E+00
- PKER_SDRYG( 13, 41) = 0.177865E+00
- PKER_SDRYG( 13, 42) = 0.189495E+00
- PKER_SDRYG( 13, 43) = 0.201132E+00
- PKER_SDRYG( 13, 44) = 0.212557E+00
- PKER_SDRYG( 13, 45) = 0.223599E+00
- PKER_SDRYG( 13, 46) = 0.234145E+00
- PKER_SDRYG( 13, 47) = 0.244174E+00
- PKER_SDRYG( 13, 48) = 0.253668E+00
- PKER_SDRYG( 13, 49) = 0.262605E+00
- PKER_SDRYG( 13, 50) = 0.270996E+00
- PKER_SDRYG( 13, 51) = 0.278849E+00
- PKER_SDRYG( 13, 52) = 0.286203E+00
- PKER_SDRYG( 13, 53) = 0.293107E+00
- PKER_SDRYG( 13, 54) = 0.299592E+00
- PKER_SDRYG( 13, 55) = 0.305689E+00
- PKER_SDRYG( 13, 56) = 0.311416E+00
- PKER_SDRYG( 13, 57) = 0.316789E+00
- PKER_SDRYG( 13, 58) = 0.321824E+00
- PKER_SDRYG( 13, 59) = 0.326539E+00
- PKER_SDRYG( 13, 60) = 0.330957E+00
- PKER_SDRYG( 13, 61) = 0.335096E+00
- PKER_SDRYG( 13, 62) = 0.338977E+00
- PKER_SDRYG( 13, 63) = 0.342615E+00
- PKER_SDRYG( 13, 64) = 0.346027E+00
- PKER_SDRYG( 13, 65) = 0.349228E+00
- PKER_SDRYG( 13, 66) = 0.352231E+00
- PKER_SDRYG( 13, 67) = 0.355048E+00
- PKER_SDRYG( 13, 68) = 0.357693E+00
- PKER_SDRYG( 13, 69) = 0.360174E+00
- PKER_SDRYG( 13, 70) = 0.362503E+00
- PKER_SDRYG( 13, 71) = 0.364689E+00
- PKER_SDRYG( 13, 72) = 0.366742E+00
- PKER_SDRYG( 13, 73) = 0.368668E+00
- PKER_SDRYG( 13, 74) = 0.370477E+00
- PKER_SDRYG( 13, 75) = 0.372175E+00
- PKER_SDRYG( 13, 76) = 0.373769E+00
- PKER_SDRYG( 13, 77) = 0.375266E+00
- PKER_SDRYG( 13, 78) = 0.376671E+00
- PKER_SDRYG( 13, 79) = 0.377990E+00
- PKER_SDRYG( 13, 80) = 0.379229E+00
- PKER_SDRYG( 14, 1) = 0.303517E+01
- PKER_SDRYG( 14, 2) = 0.283877E+01
- PKER_SDRYG( 14, 3) = 0.265433E+01
- PKER_SDRYG( 14, 4) = 0.248114E+01
- PKER_SDRYG( 14, 5) = 0.231850E+01
- PKER_SDRYG( 14, 6) = 0.216575E+01
- PKER_SDRYG( 14, 7) = 0.202231E+01
- PKER_SDRYG( 14, 8) = 0.188758E+01
- PKER_SDRYG( 14, 9) = 0.176104E+01
- PKER_SDRYG( 14, 10) = 0.164217E+01
- PKER_SDRYG( 14, 11) = 0.153050E+01
- PKER_SDRYG( 14, 12) = 0.142557E+01
- PKER_SDRYG( 14, 13) = 0.132695E+01
- PKER_SDRYG( 14, 14) = 0.123425E+01
- PKER_SDRYG( 14, 15) = 0.114707E+01
- PKER_SDRYG( 14, 16) = 0.106505E+01
- PKER_SDRYG( 14, 17) = 0.987829E+00
- PKER_SDRYG( 14, 18) = 0.915075E+00
- PKER_SDRYG( 14, 19) = 0.846455E+00
- PKER_SDRYG( 14, 20) = 0.781644E+00
- PKER_SDRYG( 14, 21) = 0.720325E+00
- PKER_SDRYG( 14, 22) = 0.662179E+00
- PKER_SDRYG( 14, 23) = 0.606894E+00
- PKER_SDRYG( 14, 24) = 0.554165E+00
- PKER_SDRYG( 14, 25) = 0.503702E+00
- PKER_SDRYG( 14, 26) = 0.455255E+00
- PKER_SDRYG( 14, 27) = 0.408655E+00
- PKER_SDRYG( 14, 28) = 0.363840E+00
- PKER_SDRYG( 14, 29) = 0.320957E+00
- PKER_SDRYG( 14, 30) = 0.280360E+00
- PKER_SDRYG( 14, 31) = 0.242663E+00
- PKER_SDRYG( 14, 32) = 0.208805E+00
- PKER_SDRYG( 14, 33) = 0.179611E+00
- PKER_SDRYG( 14, 34) = 0.155880E+00
- PKER_SDRYG( 14, 35) = 0.138098E+00
- PKER_SDRYG( 14, 36) = 0.126282E+00
- PKER_SDRYG( 14, 37) = 0.119901E+00
- PKER_SDRYG( 14, 38) = 0.118300E+00
- PKER_SDRYG( 14, 39) = 0.120505E+00
- PKER_SDRYG( 14, 40) = 0.125551E+00
- PKER_SDRYG( 14, 41) = 0.132700E+00
- PKER_SDRYG( 14, 42) = 0.141142E+00
- PKER_SDRYG( 14, 43) = 0.150371E+00
- PKER_SDRYG( 14, 44) = 0.159990E+00
- PKER_SDRYG( 14, 45) = 0.169685E+00
- PKER_SDRYG( 14, 46) = 0.179245E+00
- PKER_SDRYG( 14, 47) = 0.188540E+00
- PKER_SDRYG( 14, 48) = 0.197487E+00
- PKER_SDRYG( 14, 49) = 0.206035E+00
- PKER_SDRYG( 14, 50) = 0.214165E+00
- PKER_SDRYG( 14, 51) = 0.221865E+00
- PKER_SDRYG( 14, 52) = 0.229121E+00
- PKER_SDRYG( 14, 53) = 0.235935E+00
- PKER_SDRYG( 14, 54) = 0.242332E+00
- PKER_SDRYG( 14, 55) = 0.248340E+00
- PKER_SDRYG( 14, 56) = 0.253994E+00
- PKER_SDRYG( 14, 57) = 0.259317E+00
- PKER_SDRYG( 14, 58) = 0.264327E+00
- PKER_SDRYG( 14, 59) = 0.269036E+00
- PKER_SDRYG( 14, 60) = 0.273454E+00
- PKER_SDRYG( 14, 61) = 0.277597E+00
- PKER_SDRYG( 14, 62) = 0.281481E+00
- PKER_SDRYG( 14, 63) = 0.285122E+00
- PKER_SDRYG( 14, 64) = 0.288536E+00
- PKER_SDRYG( 14, 65) = 0.291738E+00
- PKER_SDRYG( 14, 66) = 0.294743E+00
- PKER_SDRYG( 14, 67) = 0.297561E+00
- PKER_SDRYG( 14, 68) = 0.300206E+00
- PKER_SDRYG( 14, 69) = 0.302688E+00
- PKER_SDRYG( 14, 70) = 0.305018E+00
- PKER_SDRYG( 14, 71) = 0.307205E+00
- PKER_SDRYG( 14, 72) = 0.309257E+00
- PKER_SDRYG( 14, 73) = 0.311184E+00
- PKER_SDRYG( 14, 74) = 0.312993E+00
- PKER_SDRYG( 14, 75) = 0.314691E+00
- PKER_SDRYG( 14, 76) = 0.316285E+00
- PKER_SDRYG( 14, 77) = 0.317782E+00
- PKER_SDRYG( 14, 78) = 0.319187E+00
- PKER_SDRYG( 14, 79) = 0.320506E+00
- PKER_SDRYG( 14, 80) = 0.321745E+00
- PKER_SDRYG( 15, 1) = 0.306161E+01
- PKER_SDRYG( 15, 2) = 0.286522E+01
- PKER_SDRYG( 15, 3) = 0.268080E+01
- PKER_SDRYG( 15, 4) = 0.250762E+01
- PKER_SDRYG( 15, 5) = 0.234499E+01
- PKER_SDRYG( 15, 6) = 0.219228E+01
- PKER_SDRYG( 15, 7) = 0.204886E+01
- PKER_SDRYG( 15, 8) = 0.191417E+01
- PKER_SDRYG( 15, 9) = 0.178767E+01
- PKER_SDRYG( 15, 10) = 0.166885E+01
- PKER_SDRYG( 15, 11) = 0.155725E+01
- PKER_SDRYG( 15, 12) = 0.145240E+01
- PKER_SDRYG( 15, 13) = 0.135388E+01
- PKER_SDRYG( 15, 14) = 0.126130E+01
- PKER_SDRYG( 15, 15) = 0.117427E+01
- PKER_SDRYG( 15, 16) = 0.109244E+01
- PKER_SDRYG( 15, 17) = 0.101546E+01
- PKER_SDRYG( 15, 18) = 0.942994E+00
- PKER_SDRYG( 15, 19) = 0.874732E+00
- PKER_SDRYG( 15, 20) = 0.810365E+00
- PKER_SDRYG( 15, 21) = 0.749592E+00
- PKER_SDRYG( 15, 22) = 0.692115E+00
- PKER_SDRYG( 15, 23) = 0.637639E+00
- PKER_SDRYG( 15, 24) = 0.585869E+00
- PKER_SDRYG( 15, 25) = 0.536512E+00
- PKER_SDRYG( 15, 26) = 0.489283E+00
- PKER_SDRYG( 15, 27) = 0.443919E+00
- PKER_SDRYG( 15, 28) = 0.400205E+00
- PKER_SDRYG( 15, 29) = 0.358017E+00
- PKER_SDRYG( 15, 30) = 0.317369E+00
- PKER_SDRYG( 15, 31) = 0.278488E+00
- PKER_SDRYG( 15, 32) = 0.241839E+00
- PKER_SDRYG( 15, 33) = 0.208131E+00
- PKER_SDRYG( 15, 34) = 0.178156E+00
- PKER_SDRYG( 15, 35) = 0.152678E+00
- PKER_SDRYG( 15, 36) = 0.132382E+00
- PKER_SDRYG( 15, 37) = 0.117317E+00
- PKER_SDRYG( 15, 38) = 0.107412E+00
- PKER_SDRYG( 15, 39) = 0.102138E+00
- PKER_SDRYG( 15, 40) = 0.100720E+00
- PKER_SDRYG( 15, 41) = 0.102430E+00
- PKER_SDRYG( 15, 42) = 0.106496E+00
- PKER_SDRYG( 15, 43) = 0.112243E+00
- PKER_SDRYG( 15, 44) = 0.119136E+00
- PKER_SDRYG( 15, 45) = 0.126711E+00
- PKER_SDRYG( 15, 46) = 0.134684E+00
- PKER_SDRYG( 15, 47) = 0.142774E+00
- PKER_SDRYG( 15, 48) = 0.150805E+00
- PKER_SDRYG( 15, 49) = 0.158681E+00
- PKER_SDRYG( 15, 50) = 0.166306E+00
- PKER_SDRYG( 15, 51) = 0.173620E+00
- PKER_SDRYG( 15, 52) = 0.180607E+00
- PKER_SDRYG( 15, 53) = 0.187254E+00
- PKER_SDRYG( 15, 54) = 0.193543E+00
- PKER_SDRYG( 15, 55) = 0.199475E+00
- PKER_SDRYG( 15, 56) = 0.205051E+00
- PKER_SDRYG( 15, 57) = 0.210294E+00
- PKER_SDRYG( 15, 58) = 0.215233E+00
- PKER_SDRYG( 15, 59) = 0.219886E+00
- PKER_SDRYG( 15, 60) = 0.224272E+00
- PKER_SDRYG( 15, 61) = 0.228402E+00
- PKER_SDRYG( 15, 62) = 0.232282E+00
- PKER_SDRYG( 15, 63) = 0.235924E+00
- PKER_SDRYG( 15, 64) = 0.239341E+00
- PKER_SDRYG( 15, 65) = 0.242545E+00
- PKER_SDRYG( 15, 66) = 0.245550E+00
- PKER_SDRYG( 15, 67) = 0.248370E+00
- PKER_SDRYG( 15, 68) = 0.251016E+00
- PKER_SDRYG( 15, 69) = 0.253499E+00
- PKER_SDRYG( 15, 70) = 0.255829E+00
- PKER_SDRYG( 15, 71) = 0.258016E+00
- PKER_SDRYG( 15, 72) = 0.260069E+00
- PKER_SDRYG( 15, 73) = 0.261996E+00
- PKER_SDRYG( 15, 74) = 0.263805E+00
- PKER_SDRYG( 15, 75) = 0.265503E+00
- PKER_SDRYG( 15, 76) = 0.267097E+00
- PKER_SDRYG( 15, 77) = 0.268594E+00
- PKER_SDRYG( 15, 78) = 0.270000E+00
- PKER_SDRYG( 15, 79) = 0.271319E+00
- PKER_SDRYG( 15, 80) = 0.272558E+00
- PKER_SDRYG( 16, 1) = 0.308423E+01
- PKER_SDRYG( 16, 2) = 0.288784E+01
- PKER_SDRYG( 16, 3) = 0.270343E+01
- PKER_SDRYG( 16, 4) = 0.253026E+01
- PKER_SDRYG( 16, 5) = 0.236765E+01
- PKER_SDRYG( 16, 6) = 0.221495E+01
- PKER_SDRYG( 16, 7) = 0.207156E+01
- PKER_SDRYG( 16, 8) = 0.193689E+01
- PKER_SDRYG( 16, 9) = 0.181043E+01
- PKER_SDRYG( 16, 10) = 0.169165E+01
- PKER_SDRYG( 16, 11) = 0.158009E+01
- PKER_SDRYG( 16, 12) = 0.147530E+01
- PKER_SDRYG( 16, 13) = 0.137686E+01
- PKER_SDRYG( 16, 14) = 0.128436E+01
- PKER_SDRYG( 16, 15) = 0.119745E+01
- PKER_SDRYG( 16, 16) = 0.111575E+01
- PKER_SDRYG( 16, 17) = 0.103893E+01
- PKER_SDRYG( 16, 18) = 0.966673E+00
- PKER_SDRYG( 16, 19) = 0.898666E+00
- PKER_SDRYG( 16, 20) = 0.834615E+00
- PKER_SDRYG( 16, 21) = 0.774233E+00
- PKER_SDRYG( 16, 22) = 0.717240E+00
- PKER_SDRYG( 16, 23) = 0.663360E+00
- PKER_SDRYG( 16, 24) = 0.612319E+00
- PKER_SDRYG( 16, 25) = 0.563842E+00
- PKER_SDRYG( 16, 26) = 0.517655E+00
- PKER_SDRYG( 16, 27) = 0.473486E+00
- PKER_SDRYG( 16, 28) = 0.431073E+00
- PKER_SDRYG( 16, 29) = 0.390189E+00
- PKER_SDRYG( 16, 30) = 0.350665E+00
- PKER_SDRYG( 16, 31) = 0.312442E+00
- PKER_SDRYG( 16, 32) = 0.275636E+00
- PKER_SDRYG( 16, 33) = 0.240542E+00
- PKER_SDRYG( 16, 34) = 0.207718E+00
- PKER_SDRYG( 16, 35) = 0.177836E+00
- PKER_SDRYG( 16, 36) = 0.151594E+00
- PKER_SDRYG( 16, 37) = 0.129702E+00
- PKER_SDRYG( 16, 38) = 0.112415E+00
- PKER_SDRYG( 16, 39) = 0.997384E-01
- PKER_SDRYG( 16, 40) = 0.914126E-01
- PKER_SDRYG( 16, 41) = 0.869384E-01
- PKER_SDRYG( 16, 42) = 0.856034E-01
- PKER_SDRYG( 16, 43) = 0.868406E-01
- PKER_SDRYG( 16, 44) = 0.900395E-01
- PKER_SDRYG( 16, 45) = 0.946372E-01
- PKER_SDRYG( 16, 46) = 0.100254E+00
- PKER_SDRYG( 16, 47) = 0.106487E+00
- PKER_SDRYG( 16, 48) = 0.113101E+00
- PKER_SDRYG( 16, 49) = 0.119871E+00
- PKER_SDRYG( 16, 50) = 0.126659E+00
- PKER_SDRYG( 16, 51) = 0.133342E+00
- PKER_SDRYG( 16, 52) = 0.139846E+00
- PKER_SDRYG( 16, 53) = 0.146127E+00
- PKER_SDRYG( 16, 54) = 0.152147E+00
- PKER_SDRYG( 16, 55) = 0.157896E+00
- PKER_SDRYG( 16, 56) = 0.163360E+00
- PKER_SDRYG( 16, 57) = 0.168528E+00
- PKER_SDRYG( 16, 58) = 0.173397E+00
- PKER_SDRYG( 16, 59) = 0.177982E+00
- PKER_SDRYG( 16, 60) = 0.182299E+00
- PKER_SDRYG( 16, 61) = 0.186373E+00
- PKER_SDRYG( 16, 62) = 0.190215E+00
- PKER_SDRYG( 16, 63) = 0.193838E+00
- PKER_SDRYG( 16, 64) = 0.197247E+00
- PKER_SDRYG( 16, 65) = 0.200450E+00
- PKER_SDRYG( 16, 66) = 0.203457E+00
- PKER_SDRYG( 16, 67) = 0.206278E+00
- PKER_SDRYG( 16, 68) = 0.208924E+00
- PKER_SDRYG( 16, 69) = 0.211408E+00
- PKER_SDRYG( 16, 70) = 0.213739E+00
- PKER_SDRYG( 16, 71) = 0.215926E+00
- PKER_SDRYG( 16, 72) = 0.217979E+00
- PKER_SDRYG( 16, 73) = 0.219907E+00
- PKER_SDRYG( 16, 74) = 0.221716E+00
- PKER_SDRYG( 16, 75) = 0.223414E+00
- PKER_SDRYG( 16, 76) = 0.225009E+00
- PKER_SDRYG( 16, 77) = 0.226506E+00
- PKER_SDRYG( 16, 78) = 0.227911E+00
- PKER_SDRYG( 16, 79) = 0.229231E+00
- PKER_SDRYG( 16, 80) = 0.230470E+00
- PKER_SDRYG( 17, 1) = 0.310358E+01
- PKER_SDRYG( 17, 2) = 0.290720E+01
- PKER_SDRYG( 17, 3) = 0.272279E+01
- PKER_SDRYG( 17, 4) = 0.254964E+01
- PKER_SDRYG( 17, 5) = 0.238704E+01
- PKER_SDRYG( 17, 6) = 0.223435E+01
- PKER_SDRYG( 17, 7) = 0.209097E+01
- PKER_SDRYG( 17, 8) = 0.195632E+01
- PKER_SDRYG( 17, 9) = 0.182988E+01
- PKER_SDRYG( 17, 10) = 0.171113E+01
- PKER_SDRYG( 17, 11) = 0.159960E+01
- PKER_SDRYG( 17, 12) = 0.149486E+01
- PKER_SDRYG( 17, 13) = 0.139647E+01
- PKER_SDRYG( 17, 14) = 0.130404E+01
- PKER_SDRYG( 17, 15) = 0.121720E+01
- PKER_SDRYG( 17, 16) = 0.113560E+01
- PKER_SDRYG( 17, 17) = 0.105890E+01
- PKER_SDRYG( 17, 18) = 0.986787E+00
- PKER_SDRYG( 17, 19) = 0.918963E+00
- PKER_SDRYG( 17, 20) = 0.855137E+00
- PKER_SDRYG( 17, 21) = 0.795034E+00
- PKER_SDRYG( 17, 22) = 0.738385E+00
- PKER_SDRYG( 17, 23) = 0.684932E+00
- PKER_SDRYG( 17, 24) = 0.634417E+00
- PKER_SDRYG( 17, 25) = 0.586588E+00
- PKER_SDRYG( 17, 26) = 0.541190E+00
- PKER_SDRYG( 17, 27) = 0.497968E+00
- PKER_SDRYG( 17, 28) = 0.456667E+00
- PKER_SDRYG( 17, 29) = 0.417040E+00
- PKER_SDRYG( 17, 30) = 0.378858E+00
- PKER_SDRYG( 17, 31) = 0.341935E+00
- PKER_SDRYG( 17, 32) = 0.306167E+00
- PKER_SDRYG( 17, 33) = 0.271581E+00
- PKER_SDRYG( 17, 34) = 0.238370E+00
- PKER_SDRYG( 17, 35) = 0.206924E+00
- PKER_SDRYG( 17, 36) = 0.177806E+00
- PKER_SDRYG( 17, 37) = 0.151640E+00
- PKER_SDRYG( 17, 38) = 0.129035E+00
- PKER_SDRYG( 17, 39) = 0.110359E+00
- PKER_SDRYG( 17, 40) = 0.956972E-01
- PKER_SDRYG( 17, 41) = 0.850722E-01
- PKER_SDRYG( 17, 42) = 0.779682E-01
- PKER_SDRYG( 17, 43) = 0.740481E-01
- PKER_SDRYG( 17, 44) = 0.727646E-01
- PKER_SDRYG( 17, 45) = 0.735553E-01
- PKER_SDRYG( 17, 46) = 0.759991E-01
- PKER_SDRYG( 17, 47) = 0.796568E-01
- PKER_SDRYG( 17, 48) = 0.841822E-01
- PKER_SDRYG( 17, 49) = 0.893114E-01
- PKER_SDRYG( 17, 50) = 0.947876E-01
- PKER_SDRYG( 17, 51) = 0.100463E+00
- PKER_SDRYG( 17, 52) = 0.106196E+00
- PKER_SDRYG( 17, 53) = 0.111874E+00
- PKER_SDRYG( 17, 54) = 0.117444E+00
- PKER_SDRYG( 17, 55) = 0.122848E+00
- PKER_SDRYG( 17, 56) = 0.128044E+00
- PKER_SDRYG( 17, 57) = 0.133022E+00
- PKER_SDRYG( 17, 58) = 0.137773E+00
- PKER_SDRYG( 17, 59) = 0.142278E+00
- PKER_SDRYG( 17, 60) = 0.146537E+00
- PKER_SDRYG( 17, 61) = 0.150550E+00
- PKER_SDRYG( 17, 62) = 0.154332E+00
- PKER_SDRYG( 17, 63) = 0.157901E+00
- PKER_SDRYG( 17, 64) = 0.161269E+00
- PKER_SDRYG( 17, 65) = 0.164447E+00
- PKER_SDRYG( 17, 66) = 0.167443E+00
- PKER_SDRYG( 17, 67) = 0.170260E+00
- PKER_SDRYG( 17, 68) = 0.172907E+00
- PKER_SDRYG( 17, 69) = 0.175391E+00
- PKER_SDRYG( 17, 70) = 0.177723E+00
- PKER_SDRYG( 17, 71) = 0.179911E+00
- PKER_SDRYG( 17, 72) = 0.181964E+00
- PKER_SDRYG( 17, 73) = 0.183892E+00
- PKER_SDRYG( 17, 74) = 0.185701E+00
- PKER_SDRYG( 17, 75) = 0.187400E+00
- PKER_SDRYG( 17, 76) = 0.188995E+00
- PKER_SDRYG( 17, 77) = 0.190492E+00
- PKER_SDRYG( 17, 78) = 0.191897E+00
- PKER_SDRYG( 17, 79) = 0.193217E+00
- PKER_SDRYG( 17, 80) = 0.194456E+00
- PKER_SDRYG( 18, 1) = 0.312013E+01
- PKER_SDRYG( 18, 2) = 0.292376E+01
- PKER_SDRYG( 18, 3) = 0.273936E+01
- PKER_SDRYG( 18, 4) = 0.256621E+01
- PKER_SDRYG( 18, 5) = 0.240361E+01
- PKER_SDRYG( 18, 6) = 0.225094E+01
- PKER_SDRYG( 18, 7) = 0.210757E+01
- PKER_SDRYG( 18, 8) = 0.197294E+01
- PKER_SDRYG( 18, 9) = 0.184651E+01
- PKER_SDRYG( 18, 10) = 0.172778E+01
- PKER_SDRYG( 18, 11) = 0.161628E+01
- PKER_SDRYG( 18, 12) = 0.151156E+01
- PKER_SDRYG( 18, 13) = 0.141321E+01
- PKER_SDRYG( 18, 14) = 0.132083E+01
- PKER_SDRYG( 18, 15) = 0.123405E+01
- PKER_SDRYG( 18, 16) = 0.115251E+01
- PKER_SDRYG( 18, 17) = 0.107590E+01
- PKER_SDRYG( 18, 18) = 0.100390E+01
- PKER_SDRYG( 18, 19) = 0.936202E+00
- PKER_SDRYG( 18, 20) = 0.872537E+00
- PKER_SDRYG( 18, 21) = 0.812633E+00
- PKER_SDRYG( 18, 22) = 0.756230E+00
- PKER_SDRYG( 18, 23) = 0.703080E+00
- PKER_SDRYG( 18, 24) = 0.652942E+00
- PKER_SDRYG( 18, 25) = 0.605576E+00
- PKER_SDRYG( 18, 26) = 0.560750E+00
- PKER_SDRYG( 18, 27) = 0.518227E+00
- PKER_SDRYG( 18, 28) = 0.477773E+00
- PKER_SDRYG( 18, 29) = 0.439152E+00
- PKER_SDRYG( 18, 30) = 0.402131E+00
- PKER_SDRYG( 18, 31) = 0.366493E+00
- PKER_SDRYG( 18, 32) = 0.332050E+00
- PKER_SDRYG( 18, 33) = 0.298676E+00
- PKER_SDRYG( 18, 34) = 0.266345E+00
- PKER_SDRYG( 18, 35) = 0.235168E+00
- PKER_SDRYG( 18, 36) = 0.205422E+00
- PKER_SDRYG( 18, 37) = 0.177545E+00
- PKER_SDRYG( 18, 38) = 0.152032E+00
- PKER_SDRYG( 18, 39) = 0.129423E+00
- PKER_SDRYG( 18, 40) = 0.110093E+00
- PKER_SDRYG( 18, 41) = 0.942133E-01
- PKER_SDRYG( 18, 42) = 0.818749E-01
- PKER_SDRYG( 18, 43) = 0.728212E-01
- PKER_SDRYG( 18, 44) = 0.667257E-01
- PKER_SDRYG( 18, 45) = 0.632100E-01
- PKER_SDRYG( 18, 46) = 0.618886E-01
- PKER_SDRYG( 18, 47) = 0.622846E-01
- PKER_SDRYG( 18, 48) = 0.640674E-01
- PKER_SDRYG( 18, 49) = 0.669386E-01
- PKER_SDRYG( 18, 50) = 0.705747E-01
- PKER_SDRYG( 18, 51) = 0.747677E-01
- PKER_SDRYG( 18, 52) = 0.793092E-01
- PKER_SDRYG( 18, 53) = 0.840736E-01
- PKER_SDRYG( 18, 54) = 0.889086E-01
- PKER_SDRYG( 18, 55) = 0.937517E-01
- PKER_SDRYG( 18, 56) = 0.985202E-01
- PKER_SDRYG( 18, 57) = 0.103163E+00
- PKER_SDRYG( 18, 58) = 0.107658E+00
- PKER_SDRYG( 18, 59) = 0.111974E+00
- PKER_SDRYG( 18, 60) = 0.116103E+00
- PKER_SDRYG( 18, 61) = 0.120035E+00
- PKER_SDRYG( 18, 62) = 0.123761E+00
- PKER_SDRYG( 18, 63) = 0.127277E+00
- PKER_SDRYG( 18, 64) = 0.130593E+00
- PKER_SDRYG( 18, 65) = 0.133720E+00
- PKER_SDRYG( 18, 66) = 0.136675E+00
- PKER_SDRYG( 18, 67) = 0.139464E+00
- PKER_SDRYG( 18, 68) = 0.142096E+00
- PKER_SDRYG( 18, 69) = 0.144574E+00
- PKER_SDRYG( 18, 70) = 0.146905E+00
- PKER_SDRYG( 18, 71) = 0.149093E+00
- PKER_SDRYG( 18, 72) = 0.151147E+00
- PKER_SDRYG( 18, 73) = 0.153075E+00
- PKER_SDRYG( 18, 74) = 0.154885E+00
- PKER_SDRYG( 18, 75) = 0.156583E+00
- PKER_SDRYG( 18, 76) = 0.158178E+00
- PKER_SDRYG( 18, 77) = 0.159675E+00
- PKER_SDRYG( 18, 78) = 0.161081E+00
- PKER_SDRYG( 18, 79) = 0.162401E+00
- PKER_SDRYG( 18, 80) = 0.163640E+00
- PKER_SDRYG( 19, 1) = 0.313430E+01
- PKER_SDRYG( 19, 2) = 0.293792E+01
- PKER_SDRYG( 19, 3) = 0.275353E+01
- PKER_SDRYG( 19, 4) = 0.258038E+01
- PKER_SDRYG( 19, 5) = 0.241780E+01
- PKER_SDRYG( 19, 6) = 0.226513E+01
- PKER_SDRYG( 19, 7) = 0.212176E+01
- PKER_SDRYG( 19, 8) = 0.198714E+01
- PKER_SDRYG( 19, 9) = 0.186073E+01
- PKER_SDRYG( 19, 10) = 0.174202E+01
- PKER_SDRYG( 19, 11) = 0.163053E+01
- PKER_SDRYG( 19, 12) = 0.152584E+01
- PKER_SDRYG( 19, 13) = 0.142751E+01
- PKER_SDRYG( 19, 14) = 0.133517E+01
- PKER_SDRYG( 19, 15) = 0.124842E+01
- PKER_SDRYG( 19, 16) = 0.116694E+01
- PKER_SDRYG( 19, 17) = 0.109039E+01
- PKER_SDRYG( 19, 18) = 0.101846E+01
- PKER_SDRYG( 19, 19) = 0.950864E+00
- PKER_SDRYG( 19, 20) = 0.887315E+00
- PKER_SDRYG( 19, 21) = 0.827553E+00
- PKER_SDRYG( 19, 22) = 0.771326E+00
- PKER_SDRYG( 19, 23) = 0.718393E+00
- PKER_SDRYG( 19, 24) = 0.668523E+00
- PKER_SDRYG( 19, 25) = 0.621489E+00
- PKER_SDRYG( 19, 26) = 0.577071E+00
- PKER_SDRYG( 19, 27) = 0.535052E+00
- PKER_SDRYG( 19, 28) = 0.495215E+00
- PKER_SDRYG( 19, 29) = 0.457343E+00
- PKER_SDRYG( 19, 30) = 0.421219E+00
- PKER_SDRYG( 19, 31) = 0.386628E+00
- PKER_SDRYG( 19, 32) = 0.353366E+00
- PKER_SDRYG( 19, 33) = 0.321252E+00
- PKER_SDRYG( 19, 34) = 0.290155E+00
- PKER_SDRYG( 19, 35) = 0.260019E+00
- PKER_SDRYG( 19, 36) = 0.230899E+00
- PKER_SDRYG( 19, 37) = 0.202987E+00
- PKER_SDRYG( 19, 38) = 0.176611E+00
- PKER_SDRYG( 19, 39) = 0.152167E+00
- PKER_SDRYG( 19, 40) = 0.130090E+00
- PKER_SDRYG( 19, 41) = 0.110741E+00
- PKER_SDRYG( 19, 42) = 0.943181E-01
- PKER_SDRYG( 19, 43) = 0.809330E-01
- PKER_SDRYG( 19, 44) = 0.704716E-01
- PKER_SDRYG( 19, 45) = 0.626544E-01
- PKER_SDRYG( 19, 46) = 0.573699E-01
- PKER_SDRYG( 19, 47) = 0.541204E-01
- PKER_SDRYG( 19, 48) = 0.527083E-01
- PKER_SDRYG( 19, 49) = 0.527892E-01
- PKER_SDRYG( 19, 50) = 0.540394E-01
- PKER_SDRYG( 19, 51) = 0.562337E-01
- PKER_SDRYG( 19, 52) = 0.591260E-01
- PKER_SDRYG( 19, 53) = 0.625315E-01
- PKER_SDRYG( 19, 54) = 0.662926E-01
- PKER_SDRYG( 19, 55) = 0.702636E-01
- PKER_SDRYG( 19, 56) = 0.743493E-01
- PKER_SDRYG( 19, 57) = 0.784688E-01
- PKER_SDRYG( 19, 58) = 0.825487E-01
- PKER_SDRYG( 19, 59) = 0.865492E-01
- PKER_SDRYG( 19, 60) = 0.904344E-01
- PKER_SDRYG( 19, 61) = 0.941778E-01
- PKER_SDRYG( 19, 62) = 0.977677E-01
- PKER_SDRYG( 19, 63) = 0.101199E+00
- PKER_SDRYG( 19, 64) = 0.104457E+00
- PKER_SDRYG( 19, 65) = 0.107540E+00
- PKER_SDRYG( 19, 66) = 0.110449E+00
- PKER_SDRYG( 19, 67) = 0.113194E+00
- PKER_SDRYG( 19, 68) = 0.115786E+00
- PKER_SDRYG( 19, 69) = 0.118234E+00
- PKER_SDRYG( 19, 70) = 0.120546E+00
- PKER_SDRYG( 19, 71) = 0.122726E+00
- PKER_SDRYG( 19, 72) = 0.124778E+00
- PKER_SDRYG( 19, 73) = 0.126705E+00
- PKER_SDRYG( 19, 74) = 0.128515E+00
- PKER_SDRYG( 19, 75) = 0.130214E+00
- PKER_SDRYG( 19, 76) = 0.131809E+00
- PKER_SDRYG( 19, 77) = 0.133307E+00
- PKER_SDRYG( 19, 78) = 0.134712E+00
- PKER_SDRYG( 19, 79) = 0.136032E+00
- PKER_SDRYG( 19, 80) = 0.137271E+00
- PKER_SDRYG( 20, 1) = 0.314641E+01
- PKER_SDRYG( 20, 2) = 0.295004E+01
- PKER_SDRYG( 20, 3) = 0.276565E+01
- PKER_SDRYG( 20, 4) = 0.259251E+01
- PKER_SDRYG( 20, 5) = 0.242993E+01
- PKER_SDRYG( 20, 6) = 0.227726E+01
- PKER_SDRYG( 20, 7) = 0.213391E+01
- PKER_SDRYG( 20, 8) = 0.199929E+01
- PKER_SDRYG( 20, 9) = 0.187289E+01
- PKER_SDRYG( 20, 10) = 0.175419E+01
- PKER_SDRYG( 20, 11) = 0.164272E+01
- PKER_SDRYG( 20, 12) = 0.153804E+01
- PKER_SDRYG( 20, 13) = 0.143974E+01
- PKER_SDRYG( 20, 14) = 0.134741E+01
- PKER_SDRYG( 20, 15) = 0.126070E+01
- PKER_SDRYG( 20, 16) = 0.117926E+01
- PKER_SDRYG( 20, 17) = 0.110275E+01
- PKER_SDRYG( 20, 18) = 0.103088E+01
- PKER_SDRYG( 20, 19) = 0.963347E+00
- PKER_SDRYG( 20, 20) = 0.899882E+00
- PKER_SDRYG( 20, 21) = 0.840222E+00
- PKER_SDRYG( 20, 22) = 0.784121E+00
- PKER_SDRYG( 20, 23) = 0.731345E+00
- PKER_SDRYG( 20, 24) = 0.681666E+00
- PKER_SDRYG( 20, 25) = 0.634870E+00
- PKER_SDRYG( 20, 26) = 0.590745E+00
- PKER_SDRYG( 20, 27) = 0.549087E+00
- PKER_SDRYG( 20, 28) = 0.509694E+00
- PKER_SDRYG( 20, 29) = 0.472366E+00
- PKER_SDRYG( 20, 30) = 0.436902E+00
- PKER_SDRYG( 20, 31) = 0.403104E+00
- PKER_SDRYG( 20, 32) = 0.370773E+00
- PKER_SDRYG( 20, 33) = 0.339721E+00
- PKER_SDRYG( 20, 34) = 0.309780E+00
- PKER_SDRYG( 20, 35) = 0.280817E+00
- PKER_SDRYG( 20, 36) = 0.252766E+00
- PKER_SDRYG( 20, 37) = 0.225649E+00
- PKER_SDRYG( 20, 38) = 0.199598E+00
- PKER_SDRYG( 20, 39) = 0.174855E+00
- PKER_SDRYG( 20, 40) = 0.151733E+00
- PKER_SDRYG( 20, 41) = 0.130576E+00
- PKER_SDRYG( 20, 42) = 0.111685E+00
- PKER_SDRYG( 20, 43) = 0.952438E-01
- PKER_SDRYG( 20, 44) = 0.813642E-01
- PKER_SDRYG( 20, 45) = 0.700036E-01
- PKER_SDRYG( 20, 46) = 0.610159E-01
- PKER_SDRYG( 20, 47) = 0.542824E-01
- PKER_SDRYG( 20, 48) = 0.495365E-01
- PKER_SDRYG( 20, 49) = 0.465418E-01
- PKER_SDRYG( 20, 50) = 0.450362E-01
- PKER_SDRYG( 20, 51) = 0.448236E-01
- PKER_SDRYG( 20, 52) = 0.456174E-01
- PKER_SDRYG( 20, 53) = 0.472243E-01
- PKER_SDRYG( 20, 54) = 0.495059E-01
- PKER_SDRYG( 20, 55) = 0.522568E-01
- PKER_SDRYG( 20, 56) = 0.553442E-01
- PKER_SDRYG( 20, 57) = 0.586561E-01
- PKER_SDRYG( 20, 58) = 0.621124E-01
- PKER_SDRYG( 20, 59) = 0.656027E-01
- PKER_SDRYG( 20, 60) = 0.690997E-01
- PKER_SDRYG( 20, 61) = 0.725427E-01
- PKER_SDRYG( 20, 62) = 0.758958E-01
- PKER_SDRYG( 20, 63) = 0.791459E-01
- PKER_SDRYG( 20, 64) = 0.822686E-01
- PKER_SDRYG( 20, 65) = 0.852588E-01
- PKER_SDRYG( 20, 66) = 0.881095E-01
- PKER_SDRYG( 20, 67) = 0.908129E-01
- PKER_SDRYG( 20, 68) = 0.933663E-01
- PKER_SDRYG( 20, 69) = 0.957757E-01
- PKER_SDRYG( 20, 70) = 0.980498E-01
- PKER_SDRYG( 20, 71) = 0.100200E+00
- PKER_SDRYG( 20, 72) = 0.102230E+00
- PKER_SDRYG( 20, 73) = 0.104147E+00
- PKER_SDRYG( 20, 74) = 0.105953E+00
- PKER_SDRYG( 20, 75) = 0.107651E+00
- PKER_SDRYG( 20, 76) = 0.109246E+00
- PKER_SDRYG( 20, 77) = 0.110743E+00
- PKER_SDRYG( 20, 78) = 0.112149E+00
- PKER_SDRYG( 20, 79) = 0.113469E+00
- PKER_SDRYG( 20, 80) = 0.114708E+00
- PKER_SDRYG( 21, 1) = 0.315678E+01
- PKER_SDRYG( 21, 2) = 0.296041E+01
- PKER_SDRYG( 21, 3) = 0.277602E+01
- PKER_SDRYG( 21, 4) = 0.260288E+01
- PKER_SDRYG( 21, 5) = 0.244030E+01
- PKER_SDRYG( 21, 6) = 0.228764E+01
- PKER_SDRYG( 21, 7) = 0.214429E+01
- PKER_SDRYG( 21, 8) = 0.200969E+01
- PKER_SDRYG( 21, 9) = 0.188329E+01
- PKER_SDRYG( 21, 10) = 0.176459E+01
- PKER_SDRYG( 21, 11) = 0.165314E+01
- PKER_SDRYG( 21, 12) = 0.154847E+01
- PKER_SDRYG( 21, 13) = 0.145018E+01
- PKER_SDRYG( 21, 14) = 0.135788E+01
- PKER_SDRYG( 21, 15) = 0.127119E+01
- PKER_SDRYG( 21, 16) = 0.118977E+01
- PKER_SDRYG( 21, 17) = 0.111330E+01
- PKER_SDRYG( 21, 18) = 0.104147E+01
- PKER_SDRYG( 21, 19) = 0.973984E+00
- PKER_SDRYG( 21, 20) = 0.910579E+00
- PKER_SDRYG( 21, 21) = 0.850994E+00
- PKER_SDRYG( 21, 22) = 0.794985E+00
- PKER_SDRYG( 21, 23) = 0.742321E+00
- PKER_SDRYG( 21, 24) = 0.692781E+00
- PKER_SDRYG( 21, 25) = 0.646155E+00
- PKER_SDRYG( 21, 26) = 0.602240E+00
- PKER_SDRYG( 21, 27) = 0.560841E+00
- PKER_SDRYG( 21, 28) = 0.521767E+00
- PKER_SDRYG( 21, 29) = 0.484831E+00
- PKER_SDRYG( 21, 30) = 0.449847E+00
- PKER_SDRYG( 21, 31) = 0.416632E+00
- PKER_SDRYG( 21, 32) = 0.385000E+00
- PKER_SDRYG( 21, 33) = 0.354772E+00
- PKER_SDRYG( 21, 34) = 0.325773E+00
- PKER_SDRYG( 21, 35) = 0.297848E+00
- PKER_SDRYG( 21, 36) = 0.270871E+00
- PKER_SDRYG( 21, 37) = 0.244771E+00
- PKER_SDRYG( 21, 38) = 0.219552E+00
- PKER_SDRYG( 21, 39) = 0.195307E+00
- PKER_SDRYG( 21, 40) = 0.172218E+00
- PKER_SDRYG( 21, 41) = 0.150528E+00
- PKER_SDRYG( 21, 42) = 0.130506E+00
- PKER_SDRYG( 21, 43) = 0.112387E+00
- PKER_SDRYG( 21, 44) = 0.963217E-01
- PKER_SDRYG( 21, 45) = 0.824142E-01
- PKER_SDRYG( 21, 46) = 0.706536E-01
- PKER_SDRYG( 21, 47) = 0.609423E-01
- PKER_SDRYG( 21, 48) = 0.532273E-01
- PKER_SDRYG( 21, 49) = 0.473264E-01
- PKER_SDRYG( 21, 50) = 0.429933E-01
- PKER_SDRYG( 21, 51) = 0.402064E-01
- PKER_SDRYG( 21, 52) = 0.386102E-01
- PKER_SDRYG( 21, 53) = 0.381308E-01
- PKER_SDRYG( 21, 54) = 0.385657E-01
- PKER_SDRYG( 21, 55) = 0.397270E-01
- PKER_SDRYG( 21, 56) = 0.414742E-01
- PKER_SDRYG( 21, 57) = 0.436663E-01
- PKER_SDRYG( 21, 58) = 0.461938E-01
- PKER_SDRYG( 21, 59) = 0.489445E-01
- PKER_SDRYG( 21, 60) = 0.518374E-01
- PKER_SDRYG( 21, 61) = 0.548037E-01
- PKER_SDRYG( 21, 62) = 0.577875E-01
- PKER_SDRYG( 21, 63) = 0.607451E-01
- PKER_SDRYG( 21, 64) = 0.636436E-01
- PKER_SDRYG( 21, 65) = 0.664592E-01
- PKER_SDRYG( 21, 66) = 0.691751E-01
- PKER_SDRYG( 21, 67) = 0.717806E-01
- PKER_SDRYG( 21, 68) = 0.742731E-01
- PKER_SDRYG( 21, 69) = 0.766406E-01
- PKER_SDRYG( 21, 70) = 0.788820E-01
- PKER_SDRYG( 21, 71) = 0.809983E-01
- PKER_SDRYG( 21, 72) = 0.829967E-01
- PKER_SDRYG( 21, 73) = 0.848837E-01
- PKER_SDRYG( 21, 74) = 0.866675E-01
- PKER_SDRYG( 21, 75) = 0.883526E-01
- PKER_SDRYG( 21, 76) = 0.899415E-01
- PKER_SDRYG( 21, 77) = 0.914371E-01
- PKER_SDRYG( 21, 78) = 0.928426E-01
- PKER_SDRYG( 21, 79) = 0.941625E-01
- PKER_SDRYG( 21, 80) = 0.954017E-01
- PKER_SDRYG( 22, 1) = 0.316565E+01
- PKER_SDRYG( 22, 2) = 0.296928E+01
- PKER_SDRYG( 22, 3) = 0.278490E+01
- PKER_SDRYG( 22, 4) = 0.261176E+01
- PKER_SDRYG( 22, 5) = 0.244918E+01
- PKER_SDRYG( 22, 6) = 0.229652E+01
- PKER_SDRYG( 22, 7) = 0.215318E+01
- PKER_SDRYG( 22, 8) = 0.201857E+01
- PKER_SDRYG( 22, 9) = 0.189218E+01
- PKER_SDRYG( 22, 10) = 0.177349E+01
- PKER_SDRYG( 22, 11) = 0.166204E+01
- PKER_SDRYG( 22, 12) = 0.155739E+01
- PKER_SDRYG( 22, 13) = 0.145911E+01
- PKER_SDRYG( 22, 14) = 0.136682E+01
- PKER_SDRYG( 22, 15) = 0.128015E+01
- PKER_SDRYG( 22, 16) = 0.119875E+01
- PKER_SDRYG( 22, 17) = 0.112230E+01
- PKER_SDRYG( 22, 18) = 0.105050E+01
- PKER_SDRYG( 22, 19) = 0.983055E+00
- PKER_SDRYG( 22, 20) = 0.919694E+00
- PKER_SDRYG( 22, 21) = 0.860163E+00
- PKER_SDRYG( 22, 22) = 0.804221E+00
- PKER_SDRYG( 22, 23) = 0.751638E+00
- PKER_SDRYG( 22, 24) = 0.702199E+00
- PKER_SDRYG( 22, 25) = 0.655696E+00
- PKER_SDRYG( 22, 26) = 0.611933E+00
- PKER_SDRYG( 22, 27) = 0.570720E+00
- PKER_SDRYG( 22, 28) = 0.531876E+00
- PKER_SDRYG( 22, 29) = 0.495222E+00
- PKER_SDRYG( 22, 30) = 0.460585E+00
- PKER_SDRYG( 22, 31) = 0.427793E+00
- PKER_SDRYG( 22, 32) = 0.396676E+00
- PKER_SDRYG( 22, 33) = 0.367065E+00
- PKER_SDRYG( 22, 34) = 0.338793E+00
- PKER_SDRYG( 22, 35) = 0.311700E+00
- PKER_SDRYG( 22, 36) = 0.285643E+00
- PKER_SDRYG( 22, 37) = 0.260506E+00
- PKER_SDRYG( 22, 38) = 0.236218E+00
- PKER_SDRYG( 22, 39) = 0.212773E+00
- PKER_SDRYG( 22, 40) = 0.190240E+00
- PKER_SDRYG( 22, 41) = 0.168759E+00
- PKER_SDRYG( 22, 42) = 0.148523E+00
- PKER_SDRYG( 22, 43) = 0.129738E+00
- PKER_SDRYG( 22, 44) = 0.112583E+00
- PKER_SDRYG( 22, 45) = 0.971811E-01
- PKER_SDRYG( 22, 46) = 0.835936E-01
- PKER_SDRYG( 22, 47) = 0.718231E-01
- PKER_SDRYG( 22, 48) = 0.618072E-01
- PKER_SDRYG( 22, 49) = 0.534898E-01
- PKER_SDRYG( 22, 50) = 0.467624E-01
- PKER_SDRYG( 22, 51) = 0.414860E-01
- PKER_SDRYG( 22, 52) = 0.375763E-01
- PKER_SDRYG( 22, 53) = 0.348805E-01
- PKER_SDRYG( 22, 54) = 0.332667E-01
- PKER_SDRYG( 22, 55) = 0.325688E-01
- PKER_SDRYG( 22, 56) = 0.326954E-01
- PKER_SDRYG( 22, 57) = 0.334646E-01
- PKER_SDRYG( 22, 58) = 0.347486E-01
- PKER_SDRYG( 22, 59) = 0.364906E-01
- PKER_SDRYG( 22, 60) = 0.385370E-01
- PKER_SDRYG( 22, 61) = 0.408038E-01
- PKER_SDRYG( 22, 62) = 0.432264E-01
- PKER_SDRYG( 22, 63) = 0.457437E-01
- PKER_SDRYG( 22, 64) = 0.482800E-01
- PKER_SDRYG( 22, 65) = 0.508227E-01
- PKER_SDRYG( 22, 66) = 0.533231E-01
- PKER_SDRYG( 22, 67) = 0.557593E-01
- PKER_SDRYG( 22, 68) = 0.581222E-01
- PKER_SDRYG( 22, 69) = 0.603926E-01
- PKER_SDRYG( 22, 70) = 0.625678E-01
- PKER_SDRYG( 22, 71) = 0.646420E-01
- PKER_SDRYG( 22, 72) = 0.666097E-01
- PKER_SDRYG( 22, 73) = 0.684688E-01
- PKER_SDRYG( 22, 74) = 0.702238E-01
- PKER_SDRYG( 22, 75) = 0.718811E-01
- PKER_SDRYG( 22, 76) = 0.734478E-01
- PKER_SDRYG( 22, 77) = 0.749287E-01
- PKER_SDRYG( 22, 78) = 0.763265E-01
- PKER_SDRYG( 22, 79) = 0.776433E-01
- PKER_SDRYG( 22, 80) = 0.788817E-01
- PKER_SDRYG( 23, 1) = 0.317324E+01
- PKER_SDRYG( 23, 2) = 0.297688E+01
- PKER_SDRYG( 23, 3) = 0.279249E+01
- PKER_SDRYG( 23, 4) = 0.261935E+01
- PKER_SDRYG( 23, 5) = 0.245678E+01
- PKER_SDRYG( 23, 6) = 0.230412E+01
- PKER_SDRYG( 23, 7) = 0.216078E+01
- PKER_SDRYG( 23, 8) = 0.202618E+01
- PKER_SDRYG( 23, 9) = 0.189979E+01
- PKER_SDRYG( 23, 10) = 0.178111E+01
- PKER_SDRYG( 23, 11) = 0.166966E+01
- PKER_SDRYG( 23, 12) = 0.156501E+01
- PKER_SDRYG( 23, 13) = 0.146674E+01
- PKER_SDRYG( 23, 14) = 0.137446E+01
- PKER_SDRYG( 23, 15) = 0.128780E+01
- PKER_SDRYG( 23, 16) = 0.120642E+01
- PKER_SDRYG( 23, 17) = 0.112999E+01
- PKER_SDRYG( 23, 18) = 0.105821E+01
- PKER_SDRYG( 23, 19) = 0.990793E+00
- PKER_SDRYG( 23, 20) = 0.927466E+00
- PKER_SDRYG( 23, 21) = 0.867975E+00
- PKER_SDRYG( 23, 22) = 0.812081E+00
- PKER_SDRYG( 23, 23) = 0.759559E+00
- PKER_SDRYG( 23, 24) = 0.710192E+00
- PKER_SDRYG( 23, 25) = 0.663779E+00
- PKER_SDRYG( 23, 26) = 0.620126E+00
- PKER_SDRYG( 23, 27) = 0.579048E+00
- PKER_SDRYG( 23, 28) = 0.540370E+00
- PKER_SDRYG( 23, 29) = 0.503920E+00
- PKER_SDRYG( 23, 30) = 0.469534E+00
- PKER_SDRYG( 23, 31) = 0.437049E+00
- PKER_SDRYG( 23, 32) = 0.406307E+00
- PKER_SDRYG( 23, 33) = 0.377150E+00
- PKER_SDRYG( 23, 34) = 0.349422E+00
- PKER_SDRYG( 23, 35) = 0.322971E+00
- PKER_SDRYG( 23, 36) = 0.297649E+00
- PKER_SDRYG( 23, 37) = 0.273324E+00
- PKER_SDRYG( 23, 38) = 0.249890E+00
- PKER_SDRYG( 23, 39) = 0.227278E+00
- PKER_SDRYG( 23, 40) = 0.205477E+00
- PKER_SDRYG( 23, 41) = 0.184540E+00
- PKER_SDRYG( 23, 42) = 0.164581E+00
- PKER_SDRYG( 23, 43) = 0.145753E+00
- PKER_SDRYG( 23, 44) = 0.128220E+00
- PKER_SDRYG( 23, 45) = 0.112118E+00
- PKER_SDRYG( 23, 46) = 0.975291E-01
- PKER_SDRYG( 23, 47) = 0.844965E-01
- PKER_SDRYG( 23, 48) = 0.730043E-01
- PKER_SDRYG( 23, 49) = 0.629937E-01
- PKER_SDRYG( 23, 50) = 0.544338E-01
- PKER_SDRYG( 23, 51) = 0.472364E-01
- PKER_SDRYG( 23, 52) = 0.413003E-01
- PKER_SDRYG( 23, 53) = 0.366010E-01
- PKER_SDRYG( 23, 54) = 0.330232E-01
- PKER_SDRYG( 23, 55) = 0.304152E-01
- PKER_SDRYG( 23, 56) = 0.287909E-01
- PKER_SDRYG( 23, 57) = 0.279201E-01
- PKER_SDRYG( 23, 58) = 0.277828E-01
- PKER_SDRYG( 23, 59) = 0.282422E-01
- PKER_SDRYG( 23, 60) = 0.291874E-01
- PKER_SDRYG( 23, 61) = 0.305223E-01
- PKER_SDRYG( 23, 62) = 0.321561E-01
- PKER_SDRYG( 23, 63) = 0.340230E-01
- PKER_SDRYG( 23, 64) = 0.360382E-01
- PKER_SDRYG( 23, 65) = 0.381505E-01
- PKER_SDRYG( 23, 66) = 0.403137E-01
- PKER_SDRYG( 23, 67) = 0.424862E-01
- PKER_SDRYG( 23, 68) = 0.446395E-01
- PKER_SDRYG( 23, 69) = 0.467491E-01
- PKER_SDRYG( 23, 70) = 0.487982E-01
- PKER_SDRYG( 23, 71) = 0.507757E-01
- PKER_SDRYG( 23, 72) = 0.526730E-01
- PKER_SDRYG( 23, 73) = 0.544887E-01
- PKER_SDRYG( 23, 74) = 0.562135E-01
- PKER_SDRYG( 23, 75) = 0.578463E-01
- PKER_SDRYG( 23, 76) = 0.593889E-01
- PKER_SDRYG( 23, 77) = 0.608458E-01
- PKER_SDRYG( 23, 78) = 0.622217E-01
- PKER_SDRYG( 23, 79) = 0.635229E-01
- PKER_SDRYG( 23, 80) = 0.647520E-01
- PKER_SDRYG( 24, 1) = 0.317974E+01
- PKER_SDRYG( 24, 2) = 0.298337E+01
- PKER_SDRYG( 24, 3) = 0.279898E+01
- PKER_SDRYG( 24, 4) = 0.262585E+01
- PKER_SDRYG( 24, 5) = 0.246328E+01
- PKER_SDRYG( 24, 6) = 0.231062E+01
- PKER_SDRYG( 24, 7) = 0.216728E+01
- PKER_SDRYG( 24, 8) = 0.203268E+01
- PKER_SDRYG( 24, 9) = 0.190630E+01
- PKER_SDRYG( 24, 10) = 0.178762E+01
- PKER_SDRYG( 24, 11) = 0.167618E+01
- PKER_SDRYG( 24, 12) = 0.157153E+01
- PKER_SDRYG( 24, 13) = 0.147327E+01
- PKER_SDRYG( 24, 14) = 0.138100E+01
- PKER_SDRYG( 24, 15) = 0.129435E+01
- PKER_SDRYG( 24, 16) = 0.121298E+01
- PKER_SDRYG( 24, 17) = 0.113656E+01
- PKER_SDRYG( 24, 18) = 0.106480E+01
- PKER_SDRYG( 24, 19) = 0.997399E+00
- PKER_SDRYG( 24, 20) = 0.934096E+00
- PKER_SDRYG( 24, 21) = 0.874634E+00
- PKER_SDRYG( 24, 22) = 0.818777E+00
- PKER_SDRYG( 24, 23) = 0.766298E+00
- PKER_SDRYG( 24, 24) = 0.716985E+00
- PKER_SDRYG( 24, 25) = 0.670637E+00
- PKER_SDRYG( 24, 26) = 0.627064E+00
- PKER_SDRYG( 24, 27) = 0.586085E+00
- PKER_SDRYG( 24, 28) = 0.547527E+00
- PKER_SDRYG( 24, 29) = 0.511226E+00
- PKER_SDRYG( 24, 30) = 0.477021E+00
- PKER_SDRYG( 24, 31) = 0.444759E+00
- PKER_SDRYG( 24, 32) = 0.414290E+00
- PKER_SDRYG( 24, 33) = 0.385466E+00
- PKER_SDRYG( 24, 34) = 0.358141E+00
- PKER_SDRYG( 24, 35) = 0.332171E+00
- PKER_SDRYG( 24, 36) = 0.307415E+00
- PKER_SDRYG( 24, 37) = 0.283739E+00
- PKER_SDRYG( 24, 38) = 0.261021E+00
- PKER_SDRYG( 24, 39) = 0.239161E+00
- PKER_SDRYG( 24, 40) = 0.218098E+00
- PKER_SDRYG( 24, 41) = 0.197816E+00
- PKER_SDRYG( 24, 42) = 0.178358E+00
- PKER_SDRYG( 24, 43) = 0.159817E+00
- PKER_SDRYG( 24, 44) = 0.142322E+00
- PKER_SDRYG( 24, 45) = 0.126004E+00
- PKER_SDRYG( 24, 46) = 0.110966E+00
- PKER_SDRYG( 24, 47) = 0.972696E-01
- PKER_SDRYG( 24, 48) = 0.849240E-01
- PKER_SDRYG( 24, 49) = 0.739011E-01
- PKER_SDRYG( 24, 50) = 0.641503E-01
- PKER_SDRYG( 24, 51) = 0.556168E-01
- PKER_SDRYG( 24, 52) = 0.482410E-01
- PKER_SDRYG( 24, 53) = 0.419558E-01
- PKER_SDRYG( 24, 54) = 0.367232E-01
- PKER_SDRYG( 24, 55) = 0.324850E-01
- PKER_SDRYG( 24, 56) = 0.291562E-01
- PKER_SDRYG( 24, 57) = 0.266947E-01
- PKER_SDRYG( 24, 58) = 0.250249E-01
- PKER_SDRYG( 24, 59) = 0.240671E-01
- PKER_SDRYG( 24, 60) = 0.237119E-01
- PKER_SDRYG( 24, 61) = 0.239149E-01
- PKER_SDRYG( 24, 62) = 0.245541E-01
- PKER_SDRYG( 24, 63) = 0.255388E-01
- PKER_SDRYG( 24, 64) = 0.268448E-01
- PKER_SDRYG( 24, 65) = 0.283592E-01
- PKER_SDRYG( 24, 66) = 0.300237E-01
- PKER_SDRYG( 24, 67) = 0.317974E-01
- PKER_SDRYG( 24, 68) = 0.336350E-01
- PKER_SDRYG( 24, 69) = 0.354861E-01
- PKER_SDRYG( 24, 70) = 0.373396E-01
- PKER_SDRYG( 24, 71) = 0.391617E-01
- PKER_SDRYG( 24, 72) = 0.409381E-01
- PKER_SDRYG( 24, 73) = 0.426598E-01
- PKER_SDRYG( 24, 74) = 0.443148E-01
- PKER_SDRYG( 24, 75) = 0.459007E-01
- PKER_SDRYG( 24, 76) = 0.474126E-01
- PKER_SDRYG( 24, 77) = 0.488471E-01
- PKER_SDRYG( 24, 78) = 0.502027E-01
- PKER_SDRYG( 24, 79) = 0.514825E-01
- PKER_SDRYG( 24, 80) = 0.526915E-01
- PKER_SDRYG( 25, 1) = 0.318529E+01
- PKER_SDRYG( 25, 2) = 0.298893E+01
- PKER_SDRYG( 25, 3) = 0.280454E+01
- PKER_SDRYG( 25, 4) = 0.263141E+01
- PKER_SDRYG( 25, 5) = 0.246884E+01
- PKER_SDRYG( 25, 6) = 0.231618E+01
- PKER_SDRYG( 25, 7) = 0.217284E+01
- PKER_SDRYG( 25, 8) = 0.203825E+01
- PKER_SDRYG( 25, 9) = 0.191186E+01
- PKER_SDRYG( 25, 10) = 0.179319E+01
- PKER_SDRYG( 25, 11) = 0.168175E+01
- PKER_SDRYG( 25, 12) = 0.157711E+01
- PKER_SDRYG( 25, 13) = 0.147885E+01
- PKER_SDRYG( 25, 14) = 0.138659E+01
- PKER_SDRYG( 25, 15) = 0.129994E+01
- PKER_SDRYG( 25, 16) = 0.121858E+01
- PKER_SDRYG( 25, 17) = 0.114218E+01
- PKER_SDRYG( 25, 18) = 0.107042E+01
- PKER_SDRYG( 25, 19) = 0.100304E+01
- PKER_SDRYG( 25, 20) = 0.939754E+00
- PKER_SDRYG( 25, 21) = 0.880315E+00
- PKER_SDRYG( 25, 22) = 0.824484E+00
- PKER_SDRYG( 25, 23) = 0.772038E+00
- PKER_SDRYG( 25, 24) = 0.722764E+00
- PKER_SDRYG( 25, 25) = 0.676465E+00
- PKER_SDRYG( 25, 26) = 0.632951E+00
- PKER_SDRYG( 25, 27) = 0.592044E+00
- PKER_SDRYG( 25, 28) = 0.553574E+00
- PKER_SDRYG( 25, 29) = 0.517380E+00
- PKER_SDRYG( 25, 30) = 0.483308E+00
- PKER_SDRYG( 25, 31) = 0.451208E+00
- PKER_SDRYG( 25, 32) = 0.420937E+00
- PKER_SDRYG( 25, 33) = 0.392356E+00
- PKER_SDRYG( 25, 34) = 0.365326E+00
- PKER_SDRYG( 25, 35) = 0.339713E+00
- PKER_SDRYG( 25, 36) = 0.315384E+00
- PKER_SDRYG( 25, 37) = 0.292209E+00
- PKER_SDRYG( 25, 38) = 0.270064E+00
- PKER_SDRYG( 25, 39) = 0.248837E+00
- PKER_SDRYG( 25, 40) = 0.228437E+00
- PKER_SDRYG( 25, 41) = 0.208804E+00
- PKER_SDRYG( 25, 42) = 0.189923E+00
- PKER_SDRYG( 25, 43) = 0.171829E+00
- PKER_SDRYG( 25, 44) = 0.154601E+00
- PKER_SDRYG( 25, 45) = 0.138347E+00
- PKER_SDRYG( 25, 46) = 0.123178E+00
- PKER_SDRYG( 25, 47) = 0.109173E+00
- PKER_SDRYG( 25, 48) = 0.963727E-01
- PKER_SDRYG( 25, 49) = 0.847717E-01
- PKER_SDRYG( 25, 50) = 0.743296E-01
- PKER_SDRYG( 25, 51) = 0.649850E-01
- PKER_SDRYG( 25, 52) = 0.566822E-01
- PKER_SDRYG( 25, 53) = 0.493595E-01
- PKER_SDRYG( 25, 54) = 0.429562E-01
- PKER_SDRYG( 25, 55) = 0.374539E-01
- PKER_SDRYG( 25, 56) = 0.328017E-01
- PKER_SDRYG( 25, 57) = 0.289442E-01
- PKER_SDRYG( 25, 58) = 0.258795E-01
- PKER_SDRYG( 25, 59) = 0.235524E-01
- PKER_SDRYG( 25, 60) = 0.218674E-01
- PKER_SDRYG( 25, 61) = 0.208371E-01
- PKER_SDRYG( 25, 62) = 0.203194E-01
- PKER_SDRYG( 25, 63) = 0.203049E-01
- PKER_SDRYG( 25, 64) = 0.206977E-01
- PKER_SDRYG( 25, 65) = 0.214318E-01
- PKER_SDRYG( 25, 66) = 0.224335E-01
- PKER_SDRYG( 25, 67) = 0.236433E-01
- PKER_SDRYG( 25, 68) = 0.250200E-01
- PKER_SDRYG( 25, 69) = 0.264977E-01
- PKER_SDRYG( 25, 70) = 0.280428E-01
- PKER_SDRYG( 25, 71) = 0.296240E-01
- PKER_SDRYG( 25, 72) = 0.312105E-01
- PKER_SDRYG( 25, 73) = 0.327816E-01
- PKER_SDRYG( 25, 74) = 0.343205E-01
- PKER_SDRYG( 25, 75) = 0.358148E-01
- PKER_SDRYG( 25, 76) = 0.372575E-01
- PKER_SDRYG( 25, 77) = 0.386413E-01
- PKER_SDRYG( 25, 78) = 0.399659E-01
- PKER_SDRYG( 25, 79) = 0.412241E-01
- PKER_SDRYG( 25, 80) = 0.424150E-01
- PKER_SDRYG( 26, 1) = 0.319005E+01
- PKER_SDRYG( 26, 2) = 0.299368E+01
- PKER_SDRYG( 26, 3) = 0.280930E+01
- PKER_SDRYG( 26, 4) = 0.263616E+01
- PKER_SDRYG( 26, 5) = 0.247359E+01
- PKER_SDRYG( 26, 6) = 0.232094E+01
- PKER_SDRYG( 26, 7) = 0.217760E+01
- PKER_SDRYG( 26, 8) = 0.204301E+01
- PKER_SDRYG( 26, 9) = 0.191663E+01
- PKER_SDRYG( 26, 10) = 0.179795E+01
- PKER_SDRYG( 26, 11) = 0.168652E+01
- PKER_SDRYG( 26, 12) = 0.158188E+01
- PKER_SDRYG( 26, 13) = 0.148363E+01
- PKER_SDRYG( 26, 14) = 0.139136E+01
- PKER_SDRYG( 26, 15) = 0.130473E+01
- PKER_SDRYG( 26, 16) = 0.122337E+01
- PKER_SDRYG( 26, 17) = 0.114697E+01
- PKER_SDRYG( 26, 18) = 0.107523E+01
- PKER_SDRYG( 26, 19) = 0.100786E+01
- PKER_SDRYG( 26, 20) = 0.944586E+00
- PKER_SDRYG( 26, 21) = 0.885163E+00
- PKER_SDRYG( 26, 22) = 0.829352E+00
- PKER_SDRYG( 26, 23) = 0.776930E+00
- PKER_SDRYG( 26, 24) = 0.727686E+00
- PKER_SDRYG( 26, 25) = 0.681422E+00
- PKER_SDRYG( 26, 26) = 0.637952E+00
- PKER_SDRYG( 26, 27) = 0.597097E+00
- PKER_SDRYG( 26, 28) = 0.558692E+00
- PKER_SDRYG( 26, 29) = 0.522578E+00
- PKER_SDRYG( 26, 30) = 0.488602E+00
- PKER_SDRYG( 26, 31) = 0.456621E+00
- PKER_SDRYG( 26, 32) = 0.426495E+00
- PKER_SDRYG( 26, 33) = 0.398091E+00
- PKER_SDRYG( 26, 34) = 0.371278E+00
- PKER_SDRYG( 26, 35) = 0.345928E+00
- PKER_SDRYG( 26, 36) = 0.321917E+00
- PKER_SDRYG( 26, 37) = 0.299121E+00
- PKER_SDRYG( 26, 38) = 0.277419E+00
- PKER_SDRYG( 26, 39) = 0.256699E+00
- PKER_SDRYG( 26, 40) = 0.236857E+00
- PKER_SDRYG( 26, 41) = 0.217808E+00
- PKER_SDRYG( 26, 42) = 0.199498E+00
- PKER_SDRYG( 26, 43) = 0.181910E+00
- PKER_SDRYG( 26, 44) = 0.165073E+00
- PKER_SDRYG( 26, 45) = 0.149056E+00
- PKER_SDRYG( 26, 46) = 0.133952E+00
- PKER_SDRYG( 26, 47) = 0.119852E+00
- PKER_SDRYG( 26, 48) = 0.106824E+00
- PKER_SDRYG( 26, 49) = 0.948930E-01
- PKER_SDRYG( 26, 50) = 0.840437E-01
- PKER_SDRYG( 26, 51) = 0.742268E-01
- PKER_SDRYG( 26, 52) = 0.653792E-01
- PKER_SDRYG( 26, 53) = 0.574320E-01
- PKER_SDRYG( 26, 54) = 0.503214E-01
- PKER_SDRYG( 26, 55) = 0.439973E-01
- PKER_SDRYG( 26, 56) = 0.384248E-01
- PKER_SDRYG( 26, 57) = 0.335714E-01
- PKER_SDRYG( 26, 58) = 0.294087E-01
- PKER_SDRYG( 26, 59) = 0.259221E-01
- PKER_SDRYG( 26, 60) = 0.230931E-01
- PKER_SDRYG( 26, 61) = 0.208678E-01
- PKER_SDRYG( 26, 62) = 0.192226E-01
- PKER_SDRYG( 26, 63) = 0.181215E-01
- PKER_SDRYG( 26, 64) = 0.175118E-01
- PKER_SDRYG( 26, 65) = 0.173173E-01
- PKER_SDRYG( 26, 66) = 0.175126E-01
- PKER_SDRYG( 26, 67) = 0.180143E-01
- PKER_SDRYG( 26, 68) = 0.187588E-01
- PKER_SDRYG( 26, 69) = 0.197277E-01
- PKER_SDRYG( 26, 70) = 0.208458E-01
- PKER_SDRYG( 26, 71) = 0.220691E-01
- PKER_SDRYG( 26, 72) = 0.233679E-01
- PKER_SDRYG( 26, 73) = 0.247120E-01
- PKER_SDRYG( 26, 74) = 0.260656E-01
- PKER_SDRYG( 26, 75) = 0.274186E-01
- PKER_SDRYG( 26, 76) = 0.287488E-01
- PKER_SDRYG( 26, 77) = 0.300462E-01
- PKER_SDRYG( 26, 78) = 0.313023E-01
- PKER_SDRYG( 26, 79) = 0.325101E-01
- PKER_SDRYG( 26, 80) = 0.336677E-01
- PKER_SDRYG( 27, 1) = 0.319411E+01
- PKER_SDRYG( 27, 2) = 0.299775E+01
- PKER_SDRYG( 27, 3) = 0.281337E+01
- PKER_SDRYG( 27, 4) = 0.264023E+01
- PKER_SDRYG( 27, 5) = 0.247766E+01
- PKER_SDRYG( 27, 6) = 0.232501E+01
- PKER_SDRYG( 27, 7) = 0.218167E+01
- PKER_SDRYG( 27, 8) = 0.204708E+01
- PKER_SDRYG( 27, 9) = 0.192070E+01
- PKER_SDRYG( 27, 10) = 0.180203E+01
- PKER_SDRYG( 27, 11) = 0.169060E+01
- PKER_SDRYG( 27, 12) = 0.158596E+01
- PKER_SDRYG( 27, 13) = 0.148771E+01
- PKER_SDRYG( 27, 14) = 0.139545E+01
- PKER_SDRYG( 27, 15) = 0.130882E+01
- PKER_SDRYG( 27, 16) = 0.122746E+01
- PKER_SDRYG( 27, 17) = 0.115107E+01
- PKER_SDRYG( 27, 18) = 0.107934E+01
- PKER_SDRYG( 27, 19) = 0.101197E+01
- PKER_SDRYG( 27, 20) = 0.948712E+00
- PKER_SDRYG( 27, 21) = 0.889302E+00
- PKER_SDRYG( 27, 22) = 0.833506E+00
- PKER_SDRYG( 27, 23) = 0.781102E+00
- PKER_SDRYG( 27, 24) = 0.731880E+00
- PKER_SDRYG( 27, 25) = 0.685643E+00
- PKER_SDRYG( 27, 26) = 0.642205E+00
- PKER_SDRYG( 27, 27) = 0.601390E+00
- PKER_SDRYG( 27, 28) = 0.563032E+00
- PKER_SDRYG( 27, 29) = 0.526976E+00
- PKER_SDRYG( 27, 30) = 0.493071E+00
- PKER_SDRYG( 27, 31) = 0.461177E+00
- PKER_SDRYG( 27, 32) = 0.431158E+00
- PKER_SDRYG( 27, 33) = 0.402883E+00
- PKER_SDRYG( 27, 34) = 0.376229E+00
- PKER_SDRYG( 27, 35) = 0.351073E+00
- PKER_SDRYG( 27, 36) = 0.327297E+00
- PKER_SDRYG( 27, 37) = 0.304783E+00
- PKER_SDRYG( 27, 38) = 0.283419E+00
- PKER_SDRYG( 27, 39) = 0.263094E+00
- PKER_SDRYG( 27, 40) = 0.243701E+00
- PKER_SDRYG( 27, 41) = 0.225146E+00
- PKER_SDRYG( 27, 42) = 0.207352E+00
- PKER_SDRYG( 27, 43) = 0.190265E+00
- PKER_SDRYG( 27, 44) = 0.173872E+00
- PKER_SDRYG( 27, 45) = 0.158194E+00
- PKER_SDRYG( 27, 46) = 0.143292E+00
- PKER_SDRYG( 27, 47) = 0.129246E+00
- PKER_SDRYG( 27, 48) = 0.116137E+00
- PKER_SDRYG( 27, 49) = 0.104019E+00
- PKER_SDRYG( 27, 50) = 0.929097E-01
- PKER_SDRYG( 27, 51) = 0.827874E-01
- PKER_SDRYG( 27, 52) = 0.735998E-01
- PKER_SDRYG( 27, 53) = 0.652790E-01
- PKER_SDRYG( 27, 54) = 0.577537E-01
- PKER_SDRYG( 27, 55) = 0.509584E-01
- PKER_SDRYG( 27, 56) = 0.448376E-01
- PKER_SDRYG( 27, 57) = 0.393546E-01
- PKER_SDRYG( 27, 58) = 0.344768E-01
- PKER_SDRYG( 27, 59) = 0.301795E-01
- PKER_SDRYG( 27, 60) = 0.264605E-01
- PKER_SDRYG( 27, 61) = 0.233008E-01
- PKER_SDRYG( 27, 62) = 0.206714E-01
- PKER_SDRYG( 27, 63) = 0.185744E-01
- PKER_SDRYG( 27, 64) = 0.169884E-01
- PKER_SDRYG( 27, 65) = 0.158478E-01
- PKER_SDRYG( 27, 66) = 0.151582E-01
- PKER_SDRYG( 27, 67) = 0.148323E-01
- PKER_SDRYG( 27, 68) = 0.148592E-01
- PKER_SDRYG( 27, 69) = 0.151721E-01
- PKER_SDRYG( 27, 70) = 0.157308E-01
- PKER_SDRYG( 27, 71) = 0.164769E-01
- PKER_SDRYG( 27, 72) = 0.173707E-01
- PKER_SDRYG( 27, 73) = 0.183846E-01
- PKER_SDRYG( 27, 74) = 0.194688E-01
- PKER_SDRYG( 27, 75) = 0.206001E-01
- PKER_SDRYG( 27, 76) = 0.217573E-01
- PKER_SDRYG( 27, 77) = 0.229174E-01
- PKER_SDRYG( 27, 78) = 0.240651E-01
- PKER_SDRYG( 27, 79) = 0.251891E-01
- PKER_SDRYG( 27, 80) = 0.262800E-01
- PKER_SDRYG( 28, 1) = 0.319759E+01
- PKER_SDRYG( 28, 2) = 0.300123E+01
- PKER_SDRYG( 28, 3) = 0.281685E+01
- PKER_SDRYG( 28, 4) = 0.264371E+01
- PKER_SDRYG( 28, 5) = 0.248114E+01
- PKER_SDRYG( 28, 6) = 0.232849E+01
- PKER_SDRYG( 28, 7) = 0.218516E+01
- PKER_SDRYG( 28, 8) = 0.205056E+01
- PKER_SDRYG( 28, 9) = 0.192418E+01
- PKER_SDRYG( 28, 10) = 0.180551E+01
- PKER_SDRYG( 28, 11) = 0.169408E+01
- PKER_SDRYG( 28, 12) = 0.158945E+01
- PKER_SDRYG( 28, 13) = 0.149120E+01
- PKER_SDRYG( 28, 14) = 0.139894E+01
- PKER_SDRYG( 28, 15) = 0.131231E+01
- PKER_SDRYG( 28, 16) = 0.123097E+01
- PKER_SDRYG( 28, 17) = 0.115458E+01
- PKER_SDRYG( 28, 18) = 0.108285E+01
- PKER_SDRYG( 28, 19) = 0.101549E+01
- PKER_SDRYG( 28, 20) = 0.952238E+00
- PKER_SDRYG( 28, 21) = 0.892837E+00
- PKER_SDRYG( 28, 22) = 0.837052E+00
- PKER_SDRYG( 28, 23) = 0.784662E+00
- PKER_SDRYG( 28, 24) = 0.735456E+00
- PKER_SDRYG( 28, 25) = 0.689239E+00
- PKER_SDRYG( 28, 26) = 0.645825E+00
- PKER_SDRYG( 28, 27) = 0.605039E+00
- PKER_SDRYG( 28, 28) = 0.566718E+00
- PKER_SDRYG( 28, 29) = 0.530704E+00
- PKER_SDRYG( 28, 30) = 0.496852E+00
- PKER_SDRYG( 28, 31) = 0.465022E+00
- PKER_SDRYG( 28, 32) = 0.435081E+00
- PKER_SDRYG( 28, 33) = 0.406902E+00
- PKER_SDRYG( 28, 34) = 0.380365E+00
- PKER_SDRYG( 28, 35) = 0.355351E+00
- PKER_SDRYG( 28, 36) = 0.331748E+00
- PKER_SDRYG( 28, 37) = 0.309445E+00
- PKER_SDRYG( 28, 38) = 0.288334E+00
- PKER_SDRYG( 28, 39) = 0.268309E+00
- PKER_SDRYG( 28, 40) = 0.249267E+00
- PKER_SDRYG( 28, 41) = 0.231112E+00
- PKER_SDRYG( 28, 42) = 0.213755E+00
- PKER_SDRYG( 28, 43) = 0.197125E+00
- PKER_SDRYG( 28, 44) = 0.181172E+00
- PKER_SDRYG( 28, 45) = 0.165882E+00
- PKER_SDRYG( 28, 46) = 0.151274E+00
- PKER_SDRYG( 28, 47) = 0.137400E+00
- PKER_SDRYG( 28, 48) = 0.124331E+00
- PKER_SDRYG( 28, 49) = 0.112135E+00
- PKER_SDRYG( 28, 50) = 0.100860E+00
- PKER_SDRYG( 28, 51) = 0.905169E-01
- PKER_SDRYG( 28, 52) = 0.810815E-01
- PKER_SDRYG( 28, 53) = 0.725012E-01
- PKER_SDRYG( 28, 54) = 0.647084E-01
- PKER_SDRYG( 28, 55) = 0.576308E-01
- PKER_SDRYG( 28, 56) = 0.512005E-01
- PKER_SDRYG( 28, 57) = 0.453625E-01
- PKER_SDRYG( 28, 58) = 0.400717E-01
- PKER_SDRYG( 28, 59) = 0.352935E-01
- PKER_SDRYG( 28, 60) = 0.310071E-01
- PKER_SDRYG( 28, 61) = 0.272018E-01
- PKER_SDRYG( 28, 62) = 0.238669E-01
- PKER_SDRYG( 28, 63) = 0.209938E-01
- PKER_SDRYG( 28, 64) = 0.185775E-01
- PKER_SDRYG( 28, 65) = 0.166174E-01
- PKER_SDRYG( 28, 66) = 0.150755E-01
- PKER_SDRYG( 28, 67) = 0.139364E-01
- PKER_SDRYG( 28, 68) = 0.131851E-01
- PKER_SDRYG( 28, 69) = 0.127769E-01
- PKER_SDRYG( 28, 70) = 0.126668E-01
- PKER_SDRYG( 28, 71) = 0.128310E-01
- PKER_SDRYG( 28, 72) = 0.132148E-01
- PKER_SDRYG( 28, 73) = 0.137746E-01
- PKER_SDRYG( 28, 74) = 0.144895E-01
- PKER_SDRYG( 28, 75) = 0.153140E-01
- PKER_SDRYG( 28, 76) = 0.162131E-01
- PKER_SDRYG( 28, 77) = 0.171648E-01
- PKER_SDRYG( 28, 78) = 0.181488E-01
- PKER_SDRYG( 28, 79) = 0.191394E-01
- PKER_SDRYG( 28, 80) = 0.201280E-01
- PKER_SDRYG( 29, 1) = 0.320057E+01
- PKER_SDRYG( 29, 2) = 0.300421E+01
- PKER_SDRYG( 29, 3) = 0.281983E+01
- PKER_SDRYG( 29, 4) = 0.264669E+01
- PKER_SDRYG( 29, 5) = 0.248412E+01
- PKER_SDRYG( 29, 6) = 0.233147E+01
- PKER_SDRYG( 29, 7) = 0.218814E+01
- PKER_SDRYG( 29, 8) = 0.205355E+01
- PKER_SDRYG( 29, 9) = 0.192717E+01
- PKER_SDRYG( 29, 10) = 0.180850E+01
- PKER_SDRYG( 29, 11) = 0.169707E+01
- PKER_SDRYG( 29, 12) = 0.159244E+01
- PKER_SDRYG( 29, 13) = 0.149419E+01
- PKER_SDRYG( 29, 14) = 0.140193E+01
- PKER_SDRYG( 29, 15) = 0.131530E+01
- PKER_SDRYG( 29, 16) = 0.123396E+01
- PKER_SDRYG( 29, 17) = 0.115758E+01
- PKER_SDRYG( 29, 18) = 0.108585E+01
- PKER_SDRYG( 29, 19) = 0.101850E+01
- PKER_SDRYG( 29, 20) = 0.955250E+00
- PKER_SDRYG( 29, 21) = 0.895856E+00
- PKER_SDRYG( 29, 22) = 0.840080E+00
- PKER_SDRYG( 29, 23) = 0.787700E+00
- PKER_SDRYG( 29, 24) = 0.738507E+00
- PKER_SDRYG( 29, 25) = 0.692305E+00
- PKER_SDRYG( 29, 26) = 0.648909E+00
- PKER_SDRYG( 29, 27) = 0.608145E+00
- PKER_SDRYG( 29, 28) = 0.569850E+00
- PKER_SDRYG( 29, 29) = 0.533869E+00
- PKER_SDRYG( 29, 30) = 0.500057E+00
- PKER_SDRYG( 29, 31) = 0.468274E+00
- PKER_SDRYG( 29, 32) = 0.438391E+00
- PKER_SDRYG( 29, 33) = 0.410283E+00
- PKER_SDRYG( 29, 34) = 0.383831E+00
- PKER_SDRYG( 29, 35) = 0.358922E+00
- PKER_SDRYG( 29, 36) = 0.335447E+00
- PKER_SDRYG( 29, 37) = 0.313300E+00
- PKER_SDRYG( 29, 38) = 0.292377E+00
- PKER_SDRYG( 29, 39) = 0.272578E+00
- PKER_SDRYG( 29, 40) = 0.253805E+00
- PKER_SDRYG( 29, 41) = 0.235964E+00
- PKER_SDRYG( 29, 42) = 0.218962E+00
- PKER_SDRYG( 29, 43) = 0.202721E+00
- PKER_SDRYG( 29, 44) = 0.187172E+00
- PKER_SDRYG( 29, 45) = 0.172272E+00
- PKER_SDRYG( 29, 46) = 0.158003E+00
- PKER_SDRYG( 29, 47) = 0.144383E+00
- PKER_SDRYG( 29, 48) = 0.131457E+00
- PKER_SDRYG( 29, 49) = 0.119287E+00
- PKER_SDRYG( 29, 50) = 0.107934E+00
- PKER_SDRYG( 29, 51) = 0.974376E-01
- PKER_SDRYG( 29, 52) = 0.878049E-01
- PKER_SDRYG( 29, 53) = 0.790110E-01
- PKER_SDRYG( 29, 54) = 0.710047E-01
- PKER_SDRYG( 29, 55) = 0.637201E-01
- PKER_SDRYG( 29, 56) = 0.570871E-01
- PKER_SDRYG( 29, 57) = 0.510391E-01
- PKER_SDRYG( 29, 58) = 0.455190E-01
- PKER_SDRYG( 29, 59) = 0.404790E-01
- PKER_SDRYG( 29, 60) = 0.358835E-01
- PKER_SDRYG( 29, 61) = 0.317075E-01
- PKER_SDRYG( 29, 62) = 0.279360E-01
- PKER_SDRYG( 29, 63) = 0.245579E-01
- PKER_SDRYG( 29, 64) = 0.215683E-01
- PKER_SDRYG( 29, 65) = 0.189675E-01
- PKER_SDRYG( 29, 66) = 0.167538E-01
- PKER_SDRYG( 29, 67) = 0.149086E-01
- PKER_SDRYG( 29, 68) = 0.134333E-01
- PKER_SDRYG( 29, 69) = 0.123230E-01
- PKER_SDRYG( 29, 70) = 0.115303E-01
- PKER_SDRYG( 29, 71) = 0.110545E-01
- PKER_SDRYG( 29, 72) = 0.108420E-01
- PKER_SDRYG( 29, 73) = 0.108817E-01
- PKER_SDRYG( 29, 74) = 0.111244E-01
- PKER_SDRYG( 29, 75) = 0.115437E-01
- PKER_SDRYG( 29, 76) = 0.120983E-01
- PKER_SDRYG( 29, 77) = 0.127573E-01
- PKER_SDRYG( 29, 78) = 0.135034E-01
- PKER_SDRYG( 29, 79) = 0.142993E-01
- PKER_SDRYG( 29, 80) = 0.151279E-01
- PKER_SDRYG( 30, 1) = 0.320312E+01
- PKER_SDRYG( 30, 2) = 0.300676E+01
- PKER_SDRYG( 30, 3) = 0.282237E+01
- PKER_SDRYG( 30, 4) = 0.264924E+01
- PKER_SDRYG( 30, 5) = 0.248667E+01
- PKER_SDRYG( 30, 6) = 0.233402E+01
- PKER_SDRYG( 30, 7) = 0.219069E+01
- PKER_SDRYG( 30, 8) = 0.205610E+01
- PKER_SDRYG( 30, 9) = 0.192972E+01
- PKER_SDRYG( 30, 10) = 0.181105E+01
- PKER_SDRYG( 30, 11) = 0.169962E+01
- PKER_SDRYG( 30, 12) = 0.159499E+01
- PKER_SDRYG( 30, 13) = 0.149674E+01
- PKER_SDRYG( 30, 14) = 0.140449E+01
- PKER_SDRYG( 30, 15) = 0.131786E+01
- PKER_SDRYG( 30, 16) = 0.123652E+01
- PKER_SDRYG( 30, 17) = 0.116014E+01
- PKER_SDRYG( 30, 18) = 0.108842E+01
- PKER_SDRYG( 30, 19) = 0.102107E+01
- PKER_SDRYG( 30, 20) = 0.957825E+00
- PKER_SDRYG( 30, 21) = 0.898436E+00
- PKER_SDRYG( 30, 22) = 0.842667E+00
- PKER_SDRYG( 30, 23) = 0.790295E+00
- PKER_SDRYG( 30, 24) = 0.741111E+00
- PKER_SDRYG( 30, 25) = 0.694920E+00
- PKER_SDRYG( 30, 26) = 0.651538E+00
- PKER_SDRYG( 30, 27) = 0.610791E+00
- PKER_SDRYG( 30, 28) = 0.572516E+00
- PKER_SDRYG( 30, 29) = 0.536559E+00
- PKER_SDRYG( 30, 30) = 0.502776E+00
- PKER_SDRYG( 30, 31) = 0.471029E+00
- PKER_SDRYG( 30, 32) = 0.441189E+00
- PKER_SDRYG( 30, 33) = 0.413133E+00
- PKER_SDRYG( 30, 34) = 0.386745E+00
- PKER_SDRYG( 30, 35) = 0.361914E+00
- PKER_SDRYG( 30, 36) = 0.338534E+00
- PKER_SDRYG( 30, 37) = 0.316502E+00
- PKER_SDRYG( 30, 38) = 0.295719E+00
- PKER_SDRYG( 30, 39) = 0.276089E+00
- PKER_SDRYG( 30, 40) = 0.257519E+00
- PKER_SDRYG( 30, 41) = 0.239918E+00
- PKER_SDRYG( 30, 42) = 0.223197E+00
- PKER_SDRYG( 30, 43) = 0.207273E+00
- PKER_SDRYG( 30, 44) = 0.192071E+00
- PKER_SDRYG( 30, 45) = 0.177528E+00
- PKER_SDRYG( 30, 46) = 0.163604E+00
- PKER_SDRYG( 30, 47) = 0.150282E+00
- PKER_SDRYG( 30, 48) = 0.137575E+00
- PKER_SDRYG( 30, 49) = 0.125525E+00
- PKER_SDRYG( 30, 50) = 0.114185E+00
- PKER_SDRYG( 30, 51) = 0.103610E+00
- PKER_SDRYG( 30, 52) = 0.938314E-01
- PKER_SDRYG( 30, 53) = 0.848558E-01
- PKER_SDRYG( 30, 54) = 0.766574E-01
- PKER_SDRYG( 30, 55) = 0.691873E-01
- PKER_SDRYG( 30, 56) = 0.623830E-01
- PKER_SDRYG( 30, 57) = 0.561775E-01
- PKER_SDRYG( 30, 58) = 0.505069E-01
- PKER_SDRYG( 30, 59) = 0.453150E-01
- PKER_SDRYG( 30, 60) = 0.405539E-01
- PKER_SDRYG( 30, 61) = 0.361851E-01
- PKER_SDRYG( 30, 62) = 0.321814E-01
- PKER_SDRYG( 30, 63) = 0.285232E-01
- PKER_SDRYG( 30, 64) = 0.251963E-01
- PKER_SDRYG( 30, 65) = 0.221941E-01
- PKER_SDRYG( 30, 66) = 0.195174E-01
- PKER_SDRYG( 30, 67) = 0.171634E-01
- PKER_SDRYG( 30, 68) = 0.151306E-01
- PKER_SDRYG( 30, 69) = 0.134200E-01
- PKER_SDRYG( 30, 70) = 0.120326E-01
- PKER_SDRYG( 30, 71) = 0.109418E-01
- PKER_SDRYG( 30, 72) = 0.101394E-01
- PKER_SDRYG( 30, 73) = 0.961608E-02
- PKER_SDRYG( 30, 74) = 0.933453E-02
- PKER_SDRYG( 30, 75) = 0.927173E-02
- PKER_SDRYG( 30, 76) = 0.940407E-02
- PKER_SDRYG( 30, 77) = 0.969318E-02
- PKER_SDRYG( 30, 78) = 0.101124E-01
- PKER_SDRYG( 30, 79) = 0.106403E-01
- PKER_SDRYG( 30, 80) = 0.112467E-01
- PKER_SDRYG( 31, 1) = 0.320530E+01
- PKER_SDRYG( 31, 2) = 0.300894E+01
- PKER_SDRYG( 31, 3) = 0.282455E+01
- PKER_SDRYG( 31, 4) = 0.265142E+01
- PKER_SDRYG( 31, 5) = 0.248885E+01
- PKER_SDRYG( 31, 6) = 0.233620E+01
- PKER_SDRYG( 31, 7) = 0.219287E+01
- PKER_SDRYG( 31, 8) = 0.205828E+01
- PKER_SDRYG( 31, 9) = 0.193190E+01
- PKER_SDRYG( 31, 10) = 0.181323E+01
- PKER_SDRYG( 31, 11) = 0.170180E+01
- PKER_SDRYG( 31, 12) = 0.159717E+01
- PKER_SDRYG( 31, 13) = 0.149893E+01
- PKER_SDRYG( 31, 14) = 0.140668E+01
- PKER_SDRYG( 31, 15) = 0.132005E+01
- PKER_SDRYG( 31, 16) = 0.123871E+01
- PKER_SDRYG( 31, 17) = 0.116233E+01
- PKER_SDRYG( 31, 18) = 0.109061E+01
- PKER_SDRYG( 31, 19) = 0.102327E+01
- PKER_SDRYG( 31, 20) = 0.960026E+00
- PKER_SDRYG( 31, 21) = 0.900641E+00
- PKER_SDRYG( 31, 22) = 0.844877E+00
- PKER_SDRYG( 31, 23) = 0.792511E+00
- PKER_SDRYG( 31, 24) = 0.743334E+00
- PKER_SDRYG( 31, 25) = 0.697152E+00
- PKER_SDRYG( 31, 26) = 0.653780E+00
- PKER_SDRYG( 31, 27) = 0.613046E+00
- PKER_SDRYG( 31, 28) = 0.574786E+00
- PKER_SDRYG( 31, 29) = 0.538847E+00
- PKER_SDRYG( 31, 30) = 0.505086E+00
- PKER_SDRYG( 31, 31) = 0.473366E+00
- PKER_SDRYG( 31, 32) = 0.443558E+00
- PKER_SDRYG( 31, 33) = 0.415542E+00
- PKER_SDRYG( 31, 34) = 0.389201E+00
- PKER_SDRYG( 31, 35) = 0.364428E+00
- PKER_SDRYG( 31, 36) = 0.341118E+00
- PKER_SDRYG( 31, 37) = 0.319171E+00
- PKER_SDRYG( 31, 38) = 0.298492E+00
- PKER_SDRYG( 31, 39) = 0.278989E+00
- PKER_SDRYG( 31, 40) = 0.260571E+00
- PKER_SDRYG( 31, 41) = 0.243153E+00
- PKER_SDRYG( 31, 42) = 0.226648E+00
- PKER_SDRYG( 31, 43) = 0.210975E+00
- PKER_SDRYG( 31, 44) = 0.196056E+00
- PKER_SDRYG( 31, 45) = 0.181823E+00
- PKER_SDRYG( 31, 46) = 0.168217E+00
- PKER_SDRYG( 31, 47) = 0.155200E+00
- PKER_SDRYG( 31, 48) = 0.142755E+00
- PKER_SDRYG( 31, 49) = 0.130895E+00
- PKER_SDRYG( 31, 50) = 0.119654E+00
- PKER_SDRYG( 31, 51) = 0.109081E+00
- PKER_SDRYG( 31, 52) = 0.992231E-01
- PKER_SDRYG( 31, 53) = 0.901085E-01
- PKER_SDRYG( 31, 54) = 0.817403E-01
- PKER_SDRYG( 31, 55) = 0.740936E-01
- PKER_SDRYG( 31, 56) = 0.671220E-01
- PKER_SDRYG( 31, 57) = 0.607667E-01
- PKER_SDRYG( 31, 58) = 0.549649E-01
- PKER_SDRYG( 31, 59) = 0.496562E-01
- PKER_SDRYG( 31, 60) = 0.447864E-01
- PKER_SDRYG( 31, 61) = 0.403087E-01
- PKER_SDRYG( 31, 62) = 0.361850E-01
- PKER_SDRYG( 31, 63) = 0.323859E-01
- PKER_SDRYG( 31, 64) = 0.288877E-01
- PKER_SDRYG( 31, 65) = 0.256749E-01
- PKER_SDRYG( 31, 66) = 0.227386E-01
- PKER_SDRYG( 31, 67) = 0.200734E-01
- PKER_SDRYG( 31, 68) = 0.176775E-01
- PKER_SDRYG( 31, 69) = 0.155527E-01
- PKER_SDRYG( 31, 70) = 0.136989E-01
- PKER_SDRYG( 31, 71) = 0.121210E-01
- PKER_SDRYG( 31, 72) = 0.108058E-01
- PKER_SDRYG( 31, 73) = 0.975234E-02
- PKER_SDRYG( 31, 74) = 0.896449E-02
- PKER_SDRYG( 31, 75) = 0.840572E-02
- PKER_SDRYG( 31, 76) = 0.807166E-02
- PKER_SDRYG( 31, 77) = 0.793136E-02
- PKER_SDRYG( 31, 78) = 0.797231E-02
- PKER_SDRYG( 31, 79) = 0.815684E-02
- PKER_SDRYG( 31, 80) = 0.847058E-02
- PKER_SDRYG( 32, 1) = 0.320717E+01
- PKER_SDRYG( 32, 2) = 0.301080E+01
- PKER_SDRYG( 32, 3) = 0.282642E+01
- PKER_SDRYG( 32, 4) = 0.265329E+01
- PKER_SDRYG( 32, 5) = 0.249072E+01
- PKER_SDRYG( 32, 6) = 0.233807E+01
- PKER_SDRYG( 32, 7) = 0.219474E+01
- PKER_SDRYG( 32, 8) = 0.206015E+01
- PKER_SDRYG( 32, 9) = 0.193377E+01
- PKER_SDRYG( 32, 10) = 0.181510E+01
- PKER_SDRYG( 32, 11) = 0.170367E+01
- PKER_SDRYG( 32, 12) = 0.159904E+01
- PKER_SDRYG( 32, 13) = 0.150080E+01
- PKER_SDRYG( 32, 14) = 0.140855E+01
- PKER_SDRYG( 32, 15) = 0.132192E+01
- PKER_SDRYG( 32, 16) = 0.124058E+01
- PKER_SDRYG( 32, 17) = 0.116421E+01
- PKER_SDRYG( 32, 18) = 0.109249E+01
- PKER_SDRYG( 32, 19) = 0.102514E+01
- PKER_SDRYG( 32, 20) = 0.961907E+00
- PKER_SDRYG( 32, 21) = 0.902526E+00
- PKER_SDRYG( 32, 22) = 0.846765E+00
- PKER_SDRYG( 32, 23) = 0.794404E+00
- PKER_SDRYG( 32, 24) = 0.745233E+00
- PKER_SDRYG( 32, 25) = 0.699057E+00
- PKER_SDRYG( 32, 26) = 0.655693E+00
- PKER_SDRYG( 32, 27) = 0.614968E+00
- PKER_SDRYG( 32, 28) = 0.576720E+00
- PKER_SDRYG( 32, 29) = 0.540795E+00
- PKER_SDRYG( 32, 30) = 0.507051E+00
- PKER_SDRYG( 32, 31) = 0.475350E+00
- PKER_SDRYG( 32, 32) = 0.445567E+00
- PKER_SDRYG( 32, 33) = 0.417580E+00
- PKER_SDRYG( 32, 34) = 0.391276E+00
- PKER_SDRYG( 32, 35) = 0.366546E+00
- PKER_SDRYG( 32, 36) = 0.343288E+00
- PKER_SDRYG( 32, 37) = 0.321405E+00
- PKER_SDRYG( 32, 38) = 0.300804E+00
- PKER_SDRYG( 32, 39) = 0.281394E+00
- PKER_SDRYG( 32, 40) = 0.263091E+00
- PKER_SDRYG( 32, 41) = 0.245809E+00
- PKER_SDRYG( 32, 42) = 0.229469E+00
- PKER_SDRYG( 32, 43) = 0.213990E+00
- PKER_SDRYG( 32, 44) = 0.199297E+00
- PKER_SDRYG( 32, 45) = 0.185318E+00
- PKER_SDRYG( 32, 46) = 0.171989E+00
- PKER_SDRYG( 32, 47) = 0.159255E+00
- PKER_SDRYG( 32, 48) = 0.147081E+00
- PKER_SDRYG( 32, 49) = 0.135452E+00
- PKER_SDRYG( 32, 50) = 0.124376E+00
- PKER_SDRYG( 32, 51) = 0.113884E+00
- PKER_SDRYG( 32, 52) = 0.104021E+00
- PKER_SDRYG( 32, 53) = 0.948256E-01
- PKER_SDRYG( 32, 54) = 0.863244E-01
- PKER_SDRYG( 32, 55) = 0.785179E-01
- PKER_SDRYG( 32, 56) = 0.713821E-01
- PKER_SDRYG( 32, 57) = 0.648731E-01
- PKER_SDRYG( 32, 58) = 0.589359E-01
- PKER_SDRYG( 32, 59) = 0.535119E-01
- PKER_SDRYG( 32, 60) = 0.485445E-01
- PKER_SDRYG( 32, 61) = 0.439825E-01
- PKER_SDRYG( 32, 62) = 0.397817E-01
- PKER_SDRYG( 32, 63) = 0.359045E-01
- PKER_SDRYG( 32, 64) = 0.323209E-01
- PKER_SDRYG( 32, 65) = 0.290070E-01
- PKER_SDRYG( 32, 66) = 0.259441E-01
- PKER_SDRYG( 32, 67) = 0.231196E-01
- PKER_SDRYG( 32, 68) = 0.205267E-01
- PKER_SDRYG( 32, 69) = 0.181592E-01
- PKER_SDRYG( 32, 70) = 0.160162E-01
- PKER_SDRYG( 32, 71) = 0.141022E-01
- PKER_SDRYG( 32, 72) = 0.124158E-01
- PKER_SDRYG( 32, 73) = 0.109584E-01
- PKER_SDRYG( 32, 74) = 0.973316E-02
- PKER_SDRYG( 32, 75) = 0.873966E-02
- PKER_SDRYG( 32, 76) = 0.796029E-02
- PKER_SDRYG( 32, 77) = 0.738911E-02
- PKER_SDRYG( 32, 78) = 0.702077E-02
- PKER_SDRYG( 32, 79) = 0.682454E-02
- PKER_SDRYG( 32, 80) = 0.678880E-02
- PKER_SDRYG( 33, 1) = 0.320876E+01
- PKER_SDRYG( 33, 2) = 0.301240E+01
- PKER_SDRYG( 33, 3) = 0.282802E+01
- PKER_SDRYG( 33, 4) = 0.265489E+01
- PKER_SDRYG( 33, 5) = 0.249232E+01
- PKER_SDRYG( 33, 6) = 0.233967E+01
- PKER_SDRYG( 33, 7) = 0.219633E+01
- PKER_SDRYG( 33, 8) = 0.206174E+01
- PKER_SDRYG( 33, 9) = 0.193536E+01
- PKER_SDRYG( 33, 10) = 0.181670E+01
- PKER_SDRYG( 33, 11) = 0.170527E+01
- PKER_SDRYG( 33, 12) = 0.160064E+01
- PKER_SDRYG( 33, 13) = 0.150240E+01
- PKER_SDRYG( 33, 14) = 0.141015E+01
- PKER_SDRYG( 33, 15) = 0.132352E+01
- PKER_SDRYG( 33, 16) = 0.124219E+01
- PKER_SDRYG( 33, 17) = 0.116581E+01
- PKER_SDRYG( 33, 18) = 0.109409E+01
- PKER_SDRYG( 33, 19) = 0.102675E+01
- PKER_SDRYG( 33, 20) = 0.963516E+00
- PKER_SDRYG( 33, 21) = 0.904137E+00
- PKER_SDRYG( 33, 22) = 0.848379E+00
- PKER_SDRYG( 33, 23) = 0.796021E+00
- PKER_SDRYG( 33, 24) = 0.746854E+00
- PKER_SDRYG( 33, 25) = 0.700684E+00
- PKER_SDRYG( 33, 26) = 0.657326E+00
- PKER_SDRYG( 33, 27) = 0.616608E+00
- PKER_SDRYG( 33, 28) = 0.578369E+00
- PKER_SDRYG( 33, 29) = 0.542455E+00
- PKER_SDRYG( 33, 30) = 0.508723E+00
- PKER_SDRYG( 33, 31) = 0.477038E+00
- PKER_SDRYG( 33, 32) = 0.447273E+00
- PKER_SDRYG( 33, 33) = 0.419308E+00
- PKER_SDRYG( 33, 34) = 0.393031E+00
- PKER_SDRYG( 33, 35) = 0.368334E+00
- PKER_SDRYG( 33, 36) = 0.345115E+00
- PKER_SDRYG( 33, 37) = 0.323280E+00
- PKER_SDRYG( 33, 38) = 0.302737E+00
- PKER_SDRYG( 33, 39) = 0.283398E+00
- PKER_SDRYG( 33, 40) = 0.265179E+00
- PKER_SDRYG( 33, 41) = 0.248001E+00
- PKER_SDRYG( 33, 42) = 0.231784E+00
- PKER_SDRYG( 33, 43) = 0.216454E+00
- PKER_SDRYG( 33, 44) = 0.201936E+00
- PKER_SDRYG( 33, 45) = 0.188160E+00
- PKER_SDRYG( 33, 46) = 0.175059E+00
- PKER_SDRYG( 33, 47) = 0.162573E+00
- PKER_SDRYG( 33, 48) = 0.150653E+00
- PKER_SDRYG( 33, 49) = 0.139264E+00
- PKER_SDRYG( 33, 50) = 0.128391E+00
- PKER_SDRYG( 33, 51) = 0.118043E+00
- PKER_SDRYG( 33, 52) = 0.108246E+00
- PKER_SDRYG( 33, 53) = 0.990391E-01
- PKER_SDRYG( 33, 54) = 0.904578E-01
- PKER_SDRYG( 33, 55) = 0.825243E-01
- PKER_SDRYG( 33, 56) = 0.752379E-01
- PKER_SDRYG( 33, 57) = 0.685753E-01
- PKER_SDRYG( 33, 58) = 0.624955E-01
- PKER_SDRYG( 33, 59) = 0.569470E-01
- PKER_SDRYG( 33, 60) = 0.518753E-01
- PKER_SDRYG( 33, 61) = 0.472275E-01
- PKER_SDRYG( 33, 62) = 0.429558E-01
- PKER_SDRYG( 33, 63) = 0.390186E-01
- PKER_SDRYG( 33, 64) = 0.353804E-01
- PKER_SDRYG( 33, 65) = 0.320117E-01
- PKER_SDRYG( 33, 66) = 0.288882E-01
- PKER_SDRYG( 33, 67) = 0.259908E-01
- PKER_SDRYG( 33, 68) = 0.233051E-01
- PKER_SDRYG( 33, 69) = 0.208197E-01
- PKER_SDRYG( 33, 70) = 0.185279E-01
- PKER_SDRYG( 33, 71) = 0.164268E-01
- PKER_SDRYG( 33, 72) = 0.145150E-01
- PKER_SDRYG( 33, 73) = 0.127936E-01
- PKER_SDRYG( 33, 74) = 0.112662E-01
- PKER_SDRYG( 33, 75) = 0.993136E-02
- PKER_SDRYG( 33, 76) = 0.879659E-02
- PKER_SDRYG( 33, 77) = 0.785167E-02
- PKER_SDRYG( 33, 78) = 0.709416E-02
- PKER_SDRYG( 33, 79) = 0.653114E-02
- PKER_SDRYG( 33, 80) = 0.613422E-02
- PKER_SDRYG( 34, 1) = 0.321013E+01
- PKER_SDRYG( 34, 2) = 0.301377E+01
- PKER_SDRYG( 34, 3) = 0.282938E+01
- PKER_SDRYG( 34, 4) = 0.265625E+01
- PKER_SDRYG( 34, 5) = 0.249368E+01
- PKER_SDRYG( 34, 6) = 0.234103E+01
- PKER_SDRYG( 34, 7) = 0.219770E+01
- PKER_SDRYG( 34, 8) = 0.206311E+01
- PKER_SDRYG( 34, 9) = 0.193673E+01
- PKER_SDRYG( 34, 10) = 0.181807E+01
- PKER_SDRYG( 34, 11) = 0.170664E+01
- PKER_SDRYG( 34, 12) = 0.160201E+01
- PKER_SDRYG( 34, 13) = 0.150377E+01
- PKER_SDRYG( 34, 14) = 0.141152E+01
- PKER_SDRYG( 34, 15) = 0.132489E+01
- PKER_SDRYG( 34, 16) = 0.124356E+01
- PKER_SDRYG( 34, 17) = 0.116718E+01
- PKER_SDRYG( 34, 18) = 0.109547E+01
- PKER_SDRYG( 34, 19) = 0.102812E+01
- PKER_SDRYG( 34, 20) = 0.964891E+00
- PKER_SDRYG( 34, 21) = 0.905514E+00
- PKER_SDRYG( 34, 22) = 0.849759E+00
- PKER_SDRYG( 34, 23) = 0.797403E+00
- PKER_SDRYG( 34, 24) = 0.748240E+00
- PKER_SDRYG( 34, 25) = 0.702073E+00
- PKER_SDRYG( 34, 26) = 0.658720E+00
- PKER_SDRYG( 34, 27) = 0.618008E+00
- PKER_SDRYG( 34, 28) = 0.579775E+00
- PKER_SDRYG( 34, 29) = 0.543869E+00
- PKER_SDRYG( 34, 30) = 0.510147E+00
- PKER_SDRYG( 34, 31) = 0.478474E+00
- PKER_SDRYG( 34, 32) = 0.448723E+00
- PKER_SDRYG( 34, 33) = 0.420775E+00
- PKER_SDRYG( 34, 34) = 0.394518E+00
- PKER_SDRYG( 34, 35) = 0.369845E+00
- PKER_SDRYG( 34, 36) = 0.346657E+00
- PKER_SDRYG( 34, 37) = 0.324858E+00
- PKER_SDRYG( 34, 38) = 0.304358E+00
- PKER_SDRYG( 34, 39) = 0.285071E+00
- PKER_SDRYG( 34, 40) = 0.266917E+00
- PKER_SDRYG( 34, 41) = 0.249816E+00
- PKER_SDRYG( 34, 42) = 0.233693E+00
- PKER_SDRYG( 34, 43) = 0.218475E+00
- PKER_SDRYG( 34, 44) = 0.204091E+00
- PKER_SDRYG( 34, 45) = 0.190473E+00
- PKER_SDRYG( 34, 46) = 0.177555E+00
- PKER_SDRYG( 34, 47) = 0.165275E+00
- PKER_SDRYG( 34, 48) = 0.153578E+00
- PKER_SDRYG( 34, 49) = 0.142416E+00
- PKER_SDRYG( 34, 50) = 0.131757E+00
- PKER_SDRYG( 34, 51) = 0.121589E+00
- PKER_SDRYG( 34, 52) = 0.111916E+00
- PKER_SDRYG( 34, 53) = 0.102764E+00
- PKER_SDRYG( 34, 54) = 0.941652E-01
- PKER_SDRYG( 34, 55) = 0.861526E-01
- PKER_SDRYG( 34, 56) = 0.787448E-01
- PKER_SDRYG( 34, 57) = 0.719403E-01
- PKER_SDRYG( 34, 58) = 0.657167E-01
- PKER_SDRYG( 34, 59) = 0.600352E-01
- PKER_SDRYG( 34, 60) = 0.548480E-01
- PKER_SDRYG( 34, 61) = 0.501041E-01
- PKER_SDRYG( 34, 62) = 0.457547E-01
- PKER_SDRYG( 34, 63) = 0.417550E-01
- PKER_SDRYG( 34, 64) = 0.380663E-01
- PKER_SDRYG( 34, 65) = 0.346552E-01
- PKER_SDRYG( 34, 66) = 0.314935E-01
- PKER_SDRYG( 34, 67) = 0.285580E-01
- PKER_SDRYG( 34, 68) = 0.258292E-01
- PKER_SDRYG( 34, 69) = 0.232916E-01
- PKER_SDRYG( 34, 70) = 0.209331E-01
- PKER_SDRYG( 34, 71) = 0.187445E-01
- PKER_SDRYG( 34, 72) = 0.167197E-01
- PKER_SDRYG( 34, 73) = 0.148560E-01
- PKER_SDRYG( 34, 74) = 0.131512E-01
- PKER_SDRYG( 34, 75) = 0.116067E-01
- PKER_SDRYG( 34, 76) = 0.102254E-01
- PKER_SDRYG( 34, 77) = 0.900807E-02
- PKER_SDRYG( 34, 78) = 0.795670E-02
- PKER_SDRYG( 34, 79) = 0.707317E-02
- PKER_SDRYG( 34, 80) = 0.635774E-02
- PKER_SDRYG( 35, 1) = 0.321130E+01
- PKER_SDRYG( 35, 2) = 0.301493E+01
- PKER_SDRYG( 35, 3) = 0.283055E+01
- PKER_SDRYG( 35, 4) = 0.265742E+01
- PKER_SDRYG( 35, 5) = 0.249485E+01
- PKER_SDRYG( 35, 6) = 0.234220E+01
- PKER_SDRYG( 35, 7) = 0.219887E+01
- PKER_SDRYG( 35, 8) = 0.206428E+01
- PKER_SDRYG( 35, 9) = 0.193790E+01
- PKER_SDRYG( 35, 10) = 0.181923E+01
- PKER_SDRYG( 35, 11) = 0.170781E+01
- PKER_SDRYG( 35, 12) = 0.160318E+01
- PKER_SDRYG( 35, 13) = 0.150494E+01
- PKER_SDRYG( 35, 14) = 0.141269E+01
- PKER_SDRYG( 35, 15) = 0.132607E+01
- PKER_SDRYG( 35, 16) = 0.124473E+01
- PKER_SDRYG( 35, 17) = 0.116835E+01
- PKER_SDRYG( 35, 18) = 0.109664E+01
- PKER_SDRYG( 35, 19) = 0.102930E+01
- PKER_SDRYG( 35, 20) = 0.966067E+00
- PKER_SDRYG( 35, 21) = 0.906692E+00
- PKER_SDRYG( 35, 22) = 0.850938E+00
- PKER_SDRYG( 35, 23) = 0.798585E+00
- PKER_SDRYG( 35, 24) = 0.749424E+00
- PKER_SDRYG( 35, 25) = 0.703260E+00
- PKER_SDRYG( 35, 26) = 0.659911E+00
- PKER_SDRYG( 35, 27) = 0.619203E+00
- PKER_SDRYG( 35, 28) = 0.580975E+00
- PKER_SDRYG( 35, 29) = 0.545076E+00
- PKER_SDRYG( 35, 30) = 0.511361E+00
- PKER_SDRYG( 35, 31) = 0.479697E+00
- PKER_SDRYG( 35, 32) = 0.449956E+00
- PKER_SDRYG( 35, 33) = 0.422022E+00
- PKER_SDRYG( 35, 34) = 0.395780E+00
- PKER_SDRYG( 35, 35) = 0.371126E+00
- PKER_SDRYG( 35, 36) = 0.347960E+00
- PKER_SDRYG( 35, 37) = 0.326188E+00
- PKER_SDRYG( 35, 38) = 0.305721E+00
- PKER_SDRYG( 35, 39) = 0.286474E+00
- PKER_SDRYG( 35, 40) = 0.268367E+00
- PKER_SDRYG( 35, 41) = 0.251325E+00
- PKER_SDRYG( 35, 42) = 0.235272E+00
- PKER_SDRYG( 35, 43) = 0.220139E+00
- PKER_SDRYG( 35, 44) = 0.205857E+00
- PKER_SDRYG( 35, 45) = 0.192361E+00
- PKER_SDRYG( 35, 46) = 0.179586E+00
- PKER_SDRYG( 35, 47) = 0.167472E+00
- PKER_SDRYG( 35, 48) = 0.155960E+00
- PKER_SDRYG( 35, 49) = 0.144998E+00
- PKER_SDRYG( 35, 50) = 0.134544E+00
- PKER_SDRYG( 35, 51) = 0.124567E+00
- PKER_SDRYG( 35, 52) = 0.115053E+00
- PKER_SDRYG( 35, 53) = 0.106009E+00
- PKER_SDRYG( 35, 54) = 0.974547E-01
- PKER_SDRYG( 35, 55) = 0.894206E-01
- PKER_SDRYG( 35, 56) = 0.819354E-01
- PKER_SDRYG( 35, 57) = 0.750153E-01
- PKER_SDRYG( 35, 58) = 0.686578E-01
- PKER_SDRYG( 35, 59) = 0.628415E-01
- PKER_SDRYG( 35, 60) = 0.575301E-01
- PKER_SDRYG( 35, 61) = 0.526787E-01
- PKER_SDRYG( 35, 62) = 0.482402E-01
- PKER_SDRYG( 35, 63) = 0.441689E-01
- PKER_SDRYG( 35, 64) = 0.404234E-01
- PKER_SDRYG( 35, 65) = 0.369676E-01
- PKER_SDRYG( 35, 66) = 0.337703E-01
- PKER_SDRYG( 35, 67) = 0.308051E-01
- PKER_SDRYG( 35, 68) = 0.280497E-01
- PKER_SDRYG( 35, 69) = 0.254855E-01
- PKER_SDRYG( 35, 70) = 0.230970E-01
- PKER_SDRYG( 35, 71) = 0.208713E-01
- PKER_SDRYG( 35, 72) = 0.187982E-01
- PKER_SDRYG( 35, 73) = 0.168703E-01
- PKER_SDRYG( 35, 74) = 0.150815E-01
- PKER_SDRYG( 35, 75) = 0.134288E-01
- PKER_SDRYG( 35, 76) = 0.119116E-01
- PKER_SDRYG( 35, 77) = 0.105294E-01
- PKER_SDRYG( 35, 78) = 0.928417E-02
- PKER_SDRYG( 35, 79) = 0.817987E-02
- PKER_SDRYG( 35, 80) = 0.721421E-02
- PKER_SDRYG( 36, 1) = 0.321230E+01
- PKER_SDRYG( 36, 2) = 0.301593E+01
- PKER_SDRYG( 36, 3) = 0.283155E+01
- PKER_SDRYG( 36, 4) = 0.265842E+01
- PKER_SDRYG( 36, 5) = 0.249585E+01
- PKER_SDRYG( 36, 6) = 0.234320E+01
- PKER_SDRYG( 36, 7) = 0.219987E+01
- PKER_SDRYG( 36, 8) = 0.206528E+01
- PKER_SDRYG( 36, 9) = 0.193890E+01
- PKER_SDRYG( 36, 10) = 0.182024E+01
- PKER_SDRYG( 36, 11) = 0.170881E+01
- PKER_SDRYG( 36, 12) = 0.160418E+01
- PKER_SDRYG( 36, 13) = 0.150594E+01
- PKER_SDRYG( 36, 14) = 0.141369E+01
- PKER_SDRYG( 36, 15) = 0.132707E+01
- PKER_SDRYG( 36, 16) = 0.124573E+01
- PKER_SDRYG( 36, 17) = 0.116936E+01
- PKER_SDRYG( 36, 18) = 0.109764E+01
- PKER_SDRYG( 36, 19) = 0.103030E+01
- PKER_SDRYG( 36, 20) = 0.967073E+00
- PKER_SDRYG( 36, 21) = 0.907699E+00
- PKER_SDRYG( 36, 22) = 0.851947E+00
- PKER_SDRYG( 36, 23) = 0.799595E+00
- PKER_SDRYG( 36, 24) = 0.750436E+00
- PKER_SDRYG( 36, 25) = 0.704275E+00
- PKER_SDRYG( 36, 26) = 0.660928E+00
- PKER_SDRYG( 36, 27) = 0.620224E+00
- PKER_SDRYG( 36, 28) = 0.582000E+00
- PKER_SDRYG( 36, 29) = 0.546105E+00
- PKER_SDRYG( 36, 30) = 0.512396E+00
- PKER_SDRYG( 36, 31) = 0.480738E+00
- PKER_SDRYG( 36, 32) = 0.451006E+00
- PKER_SDRYG( 36, 33) = 0.423081E+00
- PKER_SDRYG( 36, 34) = 0.396851E+00
- PKER_SDRYG( 36, 35) = 0.372212E+00
- PKER_SDRYG( 36, 36) = 0.349063E+00
- PKER_SDRYG( 36, 37) = 0.327311E+00
- PKER_SDRYG( 36, 38) = 0.306869E+00
- PKER_SDRYG( 36, 39) = 0.287653E+00
- PKER_SDRYG( 36, 40) = 0.269582E+00
- PKER_SDRYG( 36, 41) = 0.252583E+00
- PKER_SDRYG( 36, 42) = 0.236584E+00
- PKER_SDRYG( 36, 43) = 0.221515E+00
- PKER_SDRYG( 36, 44) = 0.207311E+00
- PKER_SDRYG( 36, 45) = 0.193907E+00
- PKER_SDRYG( 36, 46) = 0.181243E+00
- PKER_SDRYG( 36, 47) = 0.169258E+00
- PKER_SDRYG( 36, 48) = 0.157896E+00
- PKER_SDRYG( 36, 49) = 0.147102E+00
- PKER_SDRYG( 36, 50) = 0.136828E+00
- PKER_SDRYG( 36, 51) = 0.127035E+00
- PKER_SDRYG( 36, 52) = 0.117693E+00
- PKER_SDRYG( 36, 53) = 0.108790E+00
- PKER_SDRYG( 36, 54) = 0.100330E+00
- PKER_SDRYG( 36, 55) = 0.923315E-01
- PKER_SDRYG( 36, 56) = 0.848218E-01
- PKER_SDRYG( 36, 57) = 0.778261E-01
- PKER_SDRYG( 36, 58) = 0.713586E-01
- PKER_SDRYG( 36, 59) = 0.654162E-01
- PKER_SDRYG( 36, 60) = 0.599783E-01
- PKER_SDRYG( 36, 61) = 0.550109E-01
- PKER_SDRYG( 36, 62) = 0.504721E-01
- PKER_SDRYG( 36, 63) = 0.463179E-01
- PKER_SDRYG( 36, 64) = 0.425060E-01
- PKER_SDRYG( 36, 65) = 0.389979E-01
- PKER_SDRYG( 36, 66) = 0.357599E-01
- PKER_SDRYG( 36, 67) = 0.327630E-01
- PKER_SDRYG( 36, 68) = 0.299825E-01
- PKER_SDRYG( 36, 69) = 0.273977E-01
- PKER_SDRYG( 36, 70) = 0.249908E-01
- PKER_SDRYG( 36, 71) = 0.227467E-01
- PKER_SDRYG( 36, 72) = 0.206528E-01
- PKER_SDRYG( 36, 73) = 0.186985E-01
- PKER_SDRYG( 36, 74) = 0.168752E-01
- PKER_SDRYG( 36, 75) = 0.151760E-01
- PKER_SDRYG( 36, 76) = 0.135960E-01
- PKER_SDRYG( 36, 77) = 0.121320E-01
- PKER_SDRYG( 36, 78) = 0.107828E-01
- PKER_SDRYG( 36, 79) = 0.954776E-02
- PKER_SDRYG( 36, 80) = 0.842894E-02
- PKER_SDRYG( 37, 1) = 0.321315E+01
- PKER_SDRYG( 37, 2) = 0.301679E+01
- PKER_SDRYG( 37, 3) = 0.283241E+01
- PKER_SDRYG( 37, 4) = 0.265928E+01
- PKER_SDRYG( 37, 5) = 0.249671E+01
- PKER_SDRYG( 37, 6) = 0.234406E+01
- PKER_SDRYG( 37, 7) = 0.220072E+01
- PKER_SDRYG( 37, 8) = 0.206614E+01
- PKER_SDRYG( 37, 9) = 0.193976E+01
- PKER_SDRYG( 37, 10) = 0.182109E+01
- PKER_SDRYG( 37, 11) = 0.170967E+01
- PKER_SDRYG( 37, 12) = 0.160504E+01
- PKER_SDRYG( 37, 13) = 0.150680E+01
- PKER_SDRYG( 37, 14) = 0.141455E+01
- PKER_SDRYG( 37, 15) = 0.132793E+01
- PKER_SDRYG( 37, 16) = 0.124659E+01
- PKER_SDRYG( 37, 17) = 0.117022E+01
- PKER_SDRYG( 37, 18) = 0.109850E+01
- PKER_SDRYG( 37, 19) = 0.103116E+01
- PKER_SDRYG( 37, 20) = 0.967933E+00
- PKER_SDRYG( 37, 21) = 0.908560E+00
- PKER_SDRYG( 37, 22) = 0.852809E+00
- PKER_SDRYG( 37, 23) = 0.800458E+00
- PKER_SDRYG( 37, 24) = 0.751301E+00
- PKER_SDRYG( 37, 25) = 0.705142E+00
- PKER_SDRYG( 37, 26) = 0.661797E+00
- PKER_SDRYG( 37, 27) = 0.621095E+00
- PKER_SDRYG( 37, 28) = 0.582874E+00
- PKER_SDRYG( 37, 29) = 0.546983E+00
- PKER_SDRYG( 37, 30) = 0.513278E+00
- PKER_SDRYG( 37, 31) = 0.481626E+00
- PKER_SDRYG( 37, 32) = 0.451901E+00
- PKER_SDRYG( 37, 33) = 0.423983E+00
- PKER_SDRYG( 37, 34) = 0.397762E+00
- PKER_SDRYG( 37, 35) = 0.373134E+00
- PKER_SDRYG( 37, 36) = 0.349998E+00
- PKER_SDRYG( 37, 37) = 0.328262E+00
- PKER_SDRYG( 37, 38) = 0.307839E+00
- PKER_SDRYG( 37, 39) = 0.288645E+00
- PKER_SDRYG( 37, 40) = 0.270603E+00
- PKER_SDRYG( 37, 41) = 0.253637E+00
- PKER_SDRYG( 37, 42) = 0.237677E+00
- PKER_SDRYG( 37, 43) = 0.222657E+00
- PKER_SDRYG( 37, 44) = 0.208511E+00
- PKER_SDRYG( 37, 45) = 0.195178E+00
- PKER_SDRYG( 37, 46) = 0.182599E+00
- PKER_SDRYG( 37, 47) = 0.170714E+00
- PKER_SDRYG( 37, 48) = 0.159470E+00
- PKER_SDRYG( 37, 49) = 0.148812E+00
- PKER_SDRYG( 37, 50) = 0.138690E+00
- PKER_SDRYG( 37, 51) = 0.129060E+00
- PKER_SDRYG( 37, 52) = 0.119883E+00
- PKER_SDRYG( 37, 53) = 0.111134E+00
- PKER_SDRYG( 37, 54) = 0.102800E+00
- PKER_SDRYG( 37, 55) = 0.948842E-01
- PKER_SDRYG( 37, 56) = 0.874029E-01
- PKER_SDRYG( 37, 57) = 0.803806E-01
- PKER_SDRYG( 37, 58) = 0.738398E-01
- PKER_SDRYG( 37, 59) = 0.677928E-01
- PKER_SDRYG( 37, 60) = 0.622361E-01
- PKER_SDRYG( 37, 61) = 0.571501E-01
- PKER_SDRYG( 37, 62) = 0.525027E-01
- PKER_SDRYG( 37, 63) = 0.482549E-01
- PKER_SDRYG( 37, 64) = 0.443658E-01
- PKER_SDRYG( 37, 65) = 0.407958E-01
- PKER_SDRYG( 37, 66) = 0.375092E-01
- PKER_SDRYG( 37, 67) = 0.344748E-01
- PKER_SDRYG( 37, 68) = 0.316655E-01
- PKER_SDRYG( 37, 69) = 0.290583E-01
- PKER_SDRYG( 37, 70) = 0.266339E-01
- PKER_SDRYG( 37, 71) = 0.243755E-01
- PKER_SDRYG( 37, 72) = 0.222689E-01
- PKER_SDRYG( 37, 73) = 0.203019E-01
- PKER_SDRYG( 37, 74) = 0.184641E-01
- PKER_SDRYG( 37, 75) = 0.167467E-01
- PKER_SDRYG( 37, 76) = 0.151420E-01
- PKER_SDRYG( 37, 77) = 0.136442E-01
- PKER_SDRYG( 37, 78) = 0.122492E-01
- PKER_SDRYG( 37, 79) = 0.109531E-01
- PKER_SDRYG( 37, 80) = 0.975456E-02
- PKER_SDRYG( 38, 1) = 0.321388E+01
- PKER_SDRYG( 38, 2) = 0.301752E+01
- PKER_SDRYG( 38, 3) = 0.283314E+01
- PKER_SDRYG( 38, 4) = 0.266001E+01
- PKER_SDRYG( 38, 5) = 0.249744E+01
- PKER_SDRYG( 38, 6) = 0.234479E+01
- PKER_SDRYG( 38, 7) = 0.220146E+01
- PKER_SDRYG( 38, 8) = 0.206687E+01
- PKER_SDRYG( 38, 9) = 0.194049E+01
- PKER_SDRYG( 38, 10) = 0.182182E+01
- PKER_SDRYG( 38, 11) = 0.171040E+01
- PKER_SDRYG( 38, 12) = 0.160577E+01
- PKER_SDRYG( 38, 13) = 0.150753E+01
- PKER_SDRYG( 38, 14) = 0.141528E+01
- PKER_SDRYG( 38, 15) = 0.132866E+01
- PKER_SDRYG( 38, 16) = 0.124732E+01
- PKER_SDRYG( 38, 17) = 0.117095E+01
- PKER_SDRYG( 38, 18) = 0.109924E+01
- PKER_SDRYG( 38, 19) = 0.103190E+01
- PKER_SDRYG( 38, 20) = 0.968669E+00
- PKER_SDRYG( 38, 21) = 0.909296E+00
- PKER_SDRYG( 38, 22) = 0.853546E+00
- PKER_SDRYG( 38, 23) = 0.801197E+00
- PKER_SDRYG( 38, 24) = 0.752040E+00
- PKER_SDRYG( 38, 25) = 0.705882E+00
- PKER_SDRYG( 38, 26) = 0.662539E+00
- PKER_SDRYG( 38, 27) = 0.621840E+00
- PKER_SDRYG( 38, 28) = 0.583621E+00
- PKER_SDRYG( 38, 29) = 0.547733E+00
- PKER_SDRYG( 38, 30) = 0.514032E+00
- PKER_SDRYG( 38, 31) = 0.482384E+00
- PKER_SDRYG( 38, 32) = 0.452663E+00
- PKER_SDRYG( 38, 33) = 0.424751E+00
- PKER_SDRYG( 38, 34) = 0.398537E+00
- PKER_SDRYG( 38, 35) = 0.373917E+00
- PKER_SDRYG( 38, 36) = 0.350791E+00
- PKER_SDRYG( 38, 37) = 0.329068E+00
- PKER_SDRYG( 38, 38) = 0.308659E+00
- PKER_SDRYG( 38, 39) = 0.289483E+00
- PKER_SDRYG( 38, 40) = 0.271461E+00
- PKER_SDRYG( 38, 41) = 0.254521E+00
- PKER_SDRYG( 38, 42) = 0.238592E+00
- PKER_SDRYG( 38, 43) = 0.223608E+00
- PKER_SDRYG( 38, 44) = 0.209507E+00
- PKER_SDRYG( 38, 45) = 0.196227E+00
- PKER_SDRYG( 38, 46) = 0.183712E+00
- PKER_SDRYG( 38, 47) = 0.171905E+00
- PKER_SDRYG( 38, 48) = 0.160752E+00
- PKER_SDRYG( 38, 49) = 0.150201E+00
- PKER_SDRYG( 38, 50) = 0.140203E+00
- PKER_SDRYG( 38, 51) = 0.130711E+00
- PKER_SDRYG( 38, 52) = 0.121682E+00
- PKER_SDRYG( 38, 53) = 0.113083E+00
- PKER_SDRYG( 38, 54) = 0.104887E+00
- PKER_SDRYG( 38, 55) = 0.970832E-01
- PKER_SDRYG( 38, 56) = 0.896740E-01
- PKER_SDRYG( 38, 57) = 0.826740E-01
- PKER_SDRYG( 38, 58) = 0.761051E-01
- PKER_SDRYG( 38, 59) = 0.699873E-01
- PKER_SDRYG( 38, 60) = 0.643313E-01
- PKER_SDRYG( 38, 61) = 0.591334E-01
- PKER_SDRYG( 38, 62) = 0.543747E-01
- PKER_SDRYG( 38, 63) = 0.500254E-01
- PKER_SDRYG( 38, 64) = 0.460488E-01
- PKER_SDRYG( 38, 65) = 0.424067E-01
- PKER_SDRYG( 38, 66) = 0.390625E-01
- PKER_SDRYG( 38, 67) = 0.359829E-01
- PKER_SDRYG( 38, 68) = 0.331387E-01
- PKER_SDRYG( 38, 69) = 0.305049E-01
- PKER_SDRYG( 38, 70) = 0.280601E-01
- PKER_SDRYG( 38, 71) = 0.257861E-01
- PKER_SDRYG( 38, 72) = 0.236673E-01
- PKER_SDRYG( 38, 73) = 0.216904E-01
- PKER_SDRYG( 38, 74) = 0.198439E-01
- PKER_SDRYG( 38, 75) = 0.181177E-01
- PKER_SDRYG( 38, 76) = 0.165031E-01
- PKER_SDRYG( 38, 77) = 0.149927E-01
- PKER_SDRYG( 38, 78) = 0.135800E-01
- PKER_SDRYG( 38, 79) = 0.122598E-01
- PKER_SDRYG( 38, 80) = 0.110278E-01
- PKER_SDRYG( 39, 1) = 0.321451E+01
- PKER_SDRYG( 39, 2) = 0.301815E+01
- PKER_SDRYG( 39, 3) = 0.283377E+01
- PKER_SDRYG( 39, 4) = 0.266063E+01
- PKER_SDRYG( 39, 5) = 0.249807E+01
- PKER_SDRYG( 39, 6) = 0.234542E+01
- PKER_SDRYG( 39, 7) = 0.220208E+01
- PKER_SDRYG( 39, 8) = 0.206749E+01
- PKER_SDRYG( 39, 9) = 0.194112E+01
- PKER_SDRYG( 39, 10) = 0.182245E+01
- PKER_SDRYG( 39, 11) = 0.171103E+01
- PKER_SDRYG( 39, 12) = 0.160640E+01
- PKER_SDRYG( 39, 13) = 0.150816E+01
- PKER_SDRYG( 39, 14) = 0.141591E+01
- PKER_SDRYG( 39, 15) = 0.132929E+01
- PKER_SDRYG( 39, 16) = 0.124795E+01
- PKER_SDRYG( 39, 17) = 0.117158E+01
- PKER_SDRYG( 39, 18) = 0.109987E+01
- PKER_SDRYG( 39, 19) = 0.103253E+01
- PKER_SDRYG( 39, 20) = 0.969298E+00
- PKER_SDRYG( 39, 21) = 0.909926E+00
- PKER_SDRYG( 39, 22) = 0.854176E+00
- PKER_SDRYG( 39, 23) = 0.801828E+00
- PKER_SDRYG( 39, 24) = 0.752672E+00
- PKER_SDRYG( 39, 25) = 0.706516E+00
- PKER_SDRYG( 39, 26) = 0.663174E+00
- PKER_SDRYG( 39, 27) = 0.622476E+00
- PKER_SDRYG( 39, 28) = 0.584259E+00
- PKER_SDRYG( 39, 29) = 0.548373E+00
- PKER_SDRYG( 39, 30) = 0.514674E+00
- PKER_SDRYG( 39, 31) = 0.483030E+00
- PKER_SDRYG( 39, 32) = 0.453313E+00
- PKER_SDRYG( 39, 33) = 0.425406E+00
- PKER_SDRYG( 39, 34) = 0.399197E+00
- PKER_SDRYG( 39, 35) = 0.374583E+00
- PKER_SDRYG( 39, 36) = 0.351465E+00
- PKER_SDRYG( 39, 37) = 0.329751E+00
- PKER_SDRYG( 39, 38) = 0.309353E+00
- PKER_SDRYG( 39, 39) = 0.290190E+00
- PKER_SDRYG( 39, 40) = 0.272185E+00
- PKER_SDRYG( 39, 41) = 0.255264E+00
- PKER_SDRYG( 39, 42) = 0.239358E+00
- PKER_SDRYG( 39, 43) = 0.224402E+00
- PKER_SDRYG( 39, 44) = 0.210335E+00
- PKER_SDRYG( 39, 45) = 0.197096E+00
- PKER_SDRYG( 39, 46) = 0.184630E+00
- PKER_SDRYG( 39, 47) = 0.172881E+00
- PKER_SDRYG( 39, 48) = 0.161799E+00
- PKER_SDRYG( 39, 49) = 0.151332E+00
- PKER_SDRYG( 39, 50) = 0.141432E+00
- PKER_SDRYG( 39, 51) = 0.132052E+00
- PKER_SDRYG( 39, 52) = 0.123149E+00
- PKER_SDRYG( 39, 53) = 0.114684E+00
- PKER_SDRYG( 39, 54) = 0.106623E+00
- PKER_SDRYG( 39, 55) = 0.989442E-01
- PKER_SDRYG( 39, 56) = 0.916356E-01
- PKER_SDRYG( 39, 57) = 0.846988E-01
- PKER_SDRYG( 39, 58) = 0.781472E-01
- PKER_SDRYG( 39, 59) = 0.720003E-01
- PKER_SDRYG( 39, 60) = 0.662762E-01
- PKER_SDRYG( 39, 61) = 0.609842E-01
- PKER_SDRYG( 39, 62) = 0.561201E-01
- PKER_SDRYG( 39, 63) = 0.516663E-01
- PKER_SDRYG( 39, 64) = 0.475946E-01
- PKER_SDRYG( 39, 65) = 0.438709E-01
- PKER_SDRYG( 39, 66) = 0.404594E-01
- PKER_SDRYG( 39, 67) = 0.373260E-01
- PKER_SDRYG( 39, 68) = 0.344398E-01
- PKER_SDRYG( 39, 69) = 0.317735E-01
- PKER_SDRYG( 39, 70) = 0.293039E-01
- PKER_SDRYG( 39, 71) = 0.270111E-01
- PKER_SDRYG( 39, 72) = 0.248780E-01
- PKER_SDRYG( 39, 73) = 0.228902E-01
- PKER_SDRYG( 39, 74) = 0.210352E-01
- PKER_SDRYG( 39, 75) = 0.193021E-01
- PKER_SDRYG( 39, 76) = 0.176816E-01
- PKER_SDRYG( 39, 77) = 0.161652E-01
- PKER_SDRYG( 39, 78) = 0.147457E-01
- PKER_SDRYG( 39, 79) = 0.134166E-01
- PKER_SDRYG( 39, 80) = 0.121725E-01
- PKER_SDRYG( 40, 1) = 0.321505E+01
- PKER_SDRYG( 40, 2) = 0.301868E+01
- PKER_SDRYG( 40, 3) = 0.283430E+01
- PKER_SDRYG( 40, 4) = 0.266117E+01
- PKER_SDRYG( 40, 5) = 0.249860E+01
- PKER_SDRYG( 40, 6) = 0.234595E+01
- PKER_SDRYG( 40, 7) = 0.220262E+01
- PKER_SDRYG( 40, 8) = 0.206803E+01
- PKER_SDRYG( 40, 9) = 0.194165E+01
- PKER_SDRYG( 40, 10) = 0.182299E+01
- PKER_SDRYG( 40, 11) = 0.171156E+01
- PKER_SDRYG( 40, 12) = 0.160694E+01
- PKER_SDRYG( 40, 13) = 0.150869E+01
- PKER_SDRYG( 40, 14) = 0.141644E+01
- PKER_SDRYG( 40, 15) = 0.132982E+01
- PKER_SDRYG( 40, 16) = 0.124849E+01
- PKER_SDRYG( 40, 17) = 0.117212E+01
- PKER_SDRYG( 40, 18) = 0.110040E+01
- PKER_SDRYG( 40, 19) = 0.103307E+01
- PKER_SDRYG( 40, 20) = 0.969836E+00
- PKER_SDRYG( 40, 21) = 0.910465E+00
- PKER_SDRYG( 40, 22) = 0.854716E+00
- PKER_SDRYG( 40, 23) = 0.802368E+00
- PKER_SDRYG( 40, 24) = 0.753213E+00
- PKER_SDRYG( 40, 25) = 0.707057E+00
- PKER_SDRYG( 40, 26) = 0.663716E+00
- PKER_SDRYG( 40, 27) = 0.623019E+00
- PKER_SDRYG( 40, 28) = 0.584804E+00
- PKER_SDRYG( 40, 29) = 0.548920E+00
- PKER_SDRYG( 40, 30) = 0.515223E+00
- PKER_SDRYG( 40, 31) = 0.483581E+00
- PKER_SDRYG( 40, 32) = 0.453867E+00
- PKER_SDRYG( 40, 33) = 0.425963E+00
- PKER_SDRYG( 40, 34) = 0.399759E+00
- PKER_SDRYG( 40, 35) = 0.375150E+00
- PKER_SDRYG( 40, 36) = 0.352038E+00
- PKER_SDRYG( 40, 37) = 0.330331E+00
- PKER_SDRYG( 40, 38) = 0.309942E+00
- PKER_SDRYG( 40, 39) = 0.290789E+00
- PKER_SDRYG( 40, 40) = 0.272796E+00
- PKER_SDRYG( 40, 41) = 0.255890E+00
- PKER_SDRYG( 40, 42) = 0.240002E+00
- PKER_SDRYG( 40, 43) = 0.225068E+00
- PKER_SDRYG( 40, 44) = 0.211026E+00
- PKER_SDRYG( 40, 45) = 0.197818E+00
- PKER_SDRYG( 40, 46) = 0.185389E+00
- PKER_SDRYG( 40, 47) = 0.173686E+00
- PKER_SDRYG( 40, 48) = 0.162657E+00
- PKER_SDRYG( 40, 49) = 0.152255E+00
- PKER_SDRYG( 40, 50) = 0.142431E+00
- PKER_SDRYG( 40, 51) = 0.133141E+00
- PKER_SDRYG( 40, 52) = 0.124340E+00
- PKER_SDRYG( 40, 53) = 0.115989E+00
- PKER_SDRYG( 40, 54) = 0.108051E+00
- PKER_SDRYG( 40, 55) = 0.100495E+00
- PKER_SDRYG( 40, 56) = 0.932989E-01
- PKER_SDRYG( 40, 57) = 0.864523E-01
- PKER_SDRYG( 40, 58) = 0.799563E-01
- PKER_SDRYG( 40, 59) = 0.738226E-01
- PKER_SDRYG( 40, 60) = 0.680689E-01
- PKER_SDRYG( 40, 61) = 0.627114E-01
- PKER_SDRYG( 40, 62) = 0.577583E-01
- PKER_SDRYG( 40, 63) = 0.532053E-01
- PKER_SDRYG( 40, 64) = 0.490356E-01
- PKER_SDRYG( 40, 65) = 0.452228E-01
- PKER_SDRYG( 40, 66) = 0.417349E-01
- PKER_SDRYG( 40, 67) = 0.385386E-01
- PKER_SDRYG( 40, 68) = 0.356022E-01
- PKER_SDRYG( 40, 69) = 0.328967E-01
- PKER_SDRYG( 40, 70) = 0.303969E-01
- PKER_SDRYG( 40, 71) = 0.280809E-01
- PKER_SDRYG( 40, 72) = 0.259303E-01
- PKER_SDRYG( 40, 73) = 0.239293E-01
- PKER_SDRYG( 40, 74) = 0.220643E-01
- PKER_SDRYG( 40, 75) = 0.203236E-01
- PKER_SDRYG( 40, 76) = 0.186972E-01
- PKER_SDRYG( 40, 77) = 0.171761E-01
- PKER_SDRYG( 40, 78) = 0.157525E-01
- PKER_SDRYG( 40, 79) = 0.144193E-01
- PKER_SDRYG( 40, 80) = 0.131706E-01
+PKER_SDRYG( 1, 1) = 0.179391E+01
+PKER_SDRYG( 1, 2) = 0.161383E+01
+PKER_SDRYG( 1, 3) = 0.144937E+01
+PKER_SDRYG( 1, 4) = 0.130038E+01
+PKER_SDRYG( 1, 5) = 0.116678E+01
+PKER_SDRYG( 1, 6) = 0.104872E+01
+PKER_SDRYG( 1, 7) = 0.946086E+00
+PKER_SDRYG( 1, 8) = 0.858936E+00
+PKER_SDRYG( 1, 9) = 0.787555E+00
+PKER_SDRYG( 1, 10) = 0.732043E+00
+PKER_SDRYG( 1, 11) = 0.692949E+00
+PKER_SDRYG( 1, 12) = 0.670766E+00
+PKER_SDRYG( 1, 13) = 0.666033E+00
+PKER_SDRYG( 1, 14) = 0.679917E+00
+PKER_SDRYG( 1, 15) = 0.713017E+00
+PKER_SDRYG( 1, 16) = 0.765480E+00
+PKER_SDRYG( 1, 17) = 0.837470E+00
+PKER_SDRYG( 1, 18) = 0.927804E+00
+PKER_SDRYG( 1, 19) = 0.103365E+01
+PKER_SDRYG( 1, 20) = 0.115023E+01
+PKER_SDRYG( 1, 21) = 0.127173E+01
+PKER_SDRYG( 1, 22) = 0.139286E+01
+PKER_SDRYG( 1, 23) = 0.150953E+01
+PKER_SDRYG( 1, 24) = 0.161852E+01
+PKER_SDRYG( 1, 25) = 0.171787E+01
+PKER_SDRYG( 1, 26) = 0.180660E+01
+PKER_SDRYG( 1, 27) = 0.188461E+01
+PKER_SDRYG( 1, 28) = 0.195257E+01
+PKER_SDRYG( 1, 29) = 0.201159E+01
+PKER_SDRYG( 1, 30) = 0.206294E+01
+PKER_SDRYG( 1, 31) = 0.210781E+01
+PKER_SDRYG( 1, 32) = 0.214724E+01
+PKER_SDRYG( 1, 33) = 0.218211E+01
+PKER_SDRYG( 1, 34) = 0.221314E+01
+PKER_SDRYG( 1, 35) = 0.224092E+01
+PKER_SDRYG( 1, 36) = 0.226594E+01
+PKER_SDRYG( 1, 37) = 0.228858E+01
+PKER_SDRYG( 1, 38) = 0.230917E+01
+PKER_SDRYG( 1, 39) = 0.232798E+01
+PKER_SDRYG( 1, 40) = 0.234523E+01
+PKER_SDRYG( 1, 41) = 0.236110E+01
+PKER_SDRYG( 1, 42) = 0.237574E+01
+PKER_SDRYG( 1, 43) = 0.238929E+01
+PKER_SDRYG( 1, 44) = 0.240185E+01
+PKER_SDRYG( 1, 45) = 0.241352E+01
+PKER_SDRYG( 1, 46) = 0.242437E+01
+PKER_SDRYG( 1, 47) = 0.243449E+01
+PKER_SDRYG( 1, 48) = 0.244392E+01
+PKER_SDRYG( 1, 49) = 0.245273E+01
+PKER_SDRYG( 1, 50) = 0.246096E+01
+PKER_SDRYG( 1, 51) = 0.246866E+01
+PKER_SDRYG( 1, 52) = 0.247587E+01
+PKER_SDRYG( 1, 53) = 0.248262E+01
+PKER_SDRYG( 1, 54) = 0.248894E+01
+PKER_SDRYG( 1, 55) = 0.249486E+01
+PKER_SDRYG( 1, 56) = 0.250041E+01
+PKER_SDRYG( 1, 57) = 0.250561E+01
+PKER_SDRYG( 1, 58) = 0.251050E+01
+PKER_SDRYG( 1, 59) = 0.251507E+01
+PKER_SDRYG( 1, 60) = 0.251937E+01
+PKER_SDRYG( 1, 61) = 0.252340E+01
+PKER_SDRYG( 1, 62) = 0.252718E+01
+PKER_SDRYG( 1, 63) = 0.253073E+01
+PKER_SDRYG( 1, 64) = 0.253407E+01
+PKER_SDRYG( 1, 65) = 0.253719E+01
+PKER_SDRYG( 1, 66) = 0.254013E+01
+PKER_SDRYG( 1, 67) = 0.254289E+01
+PKER_SDRYG( 1, 68) = 0.254547E+01
+PKER_SDRYG( 1, 69) = 0.254790E+01
+PKER_SDRYG( 1, 70) = 0.255018E+01
+PKER_SDRYG( 1, 71) = 0.255232E+01
+PKER_SDRYG( 1, 72) = 0.255433E+01
+PKER_SDRYG( 1, 73) = 0.255622E+01
+PKER_SDRYG( 1, 74) = 0.255799E+01
+PKER_SDRYG( 1, 75) = 0.255965E+01
+PKER_SDRYG( 1, 76) = 0.256122E+01
+PKER_SDRYG( 1, 77) = 0.256268E+01
+PKER_SDRYG( 1, 78) = 0.256406E+01
+PKER_SDRYG( 1, 79) = 0.256535E+01
+PKER_SDRYG( 1, 80) = 0.256657E+01
+PKER_SDRYG( 2, 1) = 0.197244E+01
+PKER_SDRYG( 2, 2) = 0.178433E+01
+PKER_SDRYG( 2, 3) = 0.160995E+01
+PKER_SDRYG( 2, 4) = 0.144900E+01
+PKER_SDRYG( 2, 5) = 0.130154E+01
+PKER_SDRYG( 2, 6) = 0.116741E+01
+PKER_SDRYG( 2, 7) = 0.104657E+01
+PKER_SDRYG( 2, 8) = 0.939263E+00
+PKER_SDRYG( 2, 9) = 0.845532E+00
+PKER_SDRYG( 2, 10) = 0.765603E+00
+PKER_SDRYG( 2, 11) = 0.699905E+00
+PKER_SDRYG( 2, 12) = 0.648751E+00
+PKER_SDRYG( 2, 13) = 0.612852E+00
+PKER_SDRYG( 2, 14) = 0.592964E+00
+PKER_SDRYG( 2, 15) = 0.589919E+00
+PKER_SDRYG( 2, 16) = 0.604538E+00
+PKER_SDRYG( 2, 17) = 0.637401E+00
+PKER_SDRYG( 2, 18) = 0.688500E+00
+PKER_SDRYG( 2, 19) = 0.756789E+00
+PKER_SDRYG( 2, 20) = 0.840298E+00
+PKER_SDRYG( 2, 21) = 0.935466E+00
+PKER_SDRYG( 2, 22) = 0.103741E+01
+PKER_SDRYG( 2, 23) = 0.114073E+01
+PKER_SDRYG( 2, 24) = 0.124096E+01
+PKER_SDRYG( 2, 25) = 0.133504E+01
+PKER_SDRYG( 2, 26) = 0.142130E+01
+PKER_SDRYG( 2, 27) = 0.149896E+01
+PKER_SDRYG( 2, 28) = 0.156797E+01
+PKER_SDRYG( 2, 29) = 0.162869E+01
+PKER_SDRYG( 2, 30) = 0.168183E+01
+PKER_SDRYG( 2, 31) = 0.172830E+01
+PKER_SDRYG( 2, 32) = 0.176906E+01
+PKER_SDRYG( 2, 33) = 0.180500E+01
+PKER_SDRYG( 2, 34) = 0.183688E+01
+PKER_SDRYG( 2, 35) = 0.186533E+01
+PKER_SDRYG( 2, 36) = 0.189087E+01
+PKER_SDRYG( 2, 37) = 0.191393E+01
+PKER_SDRYG( 2, 38) = 0.193485E+01
+PKER_SDRYG( 2, 39) = 0.195392E+01
+PKER_SDRYG( 2, 40) = 0.197137E+01
+PKER_SDRYG( 2, 41) = 0.198740E+01
+PKER_SDRYG( 2, 42) = 0.200216E+01
+PKER_SDRYG( 2, 43) = 0.201581E+01
+PKER_SDRYG( 2, 44) = 0.202844E+01
+PKER_SDRYG( 2, 45) = 0.204017E+01
+PKER_SDRYG( 2, 46) = 0.205107E+01
+PKER_SDRYG( 2, 47) = 0.206123E+01
+PKER_SDRYG( 2, 48) = 0.207069E+01
+PKER_SDRYG( 2, 49) = 0.207952E+01
+PKER_SDRYG( 2, 50) = 0.208777E+01
+PKER_SDRYG( 2, 51) = 0.209549E+01
+PKER_SDRYG( 2, 52) = 0.210270E+01
+PKER_SDRYG( 2, 53) = 0.210946E+01
+PKER_SDRYG( 2, 54) = 0.211579E+01
+PKER_SDRYG( 2, 55) = 0.212171E+01
+PKER_SDRYG( 2, 56) = 0.212727E+01
+PKER_SDRYG( 2, 57) = 0.213248E+01
+PKER_SDRYG( 2, 58) = 0.213736E+01
+PKER_SDRYG( 2, 59) = 0.214194E+01
+PKER_SDRYG( 2, 60) = 0.214624E+01
+PKER_SDRYG( 2, 61) = 0.215027E+01
+PKER_SDRYG( 2, 62) = 0.215406E+01
+PKER_SDRYG( 2, 63) = 0.215761E+01
+PKER_SDRYG( 2, 64) = 0.216094E+01
+PKER_SDRYG( 2, 65) = 0.216407E+01
+PKER_SDRYG( 2, 66) = 0.216701E+01
+PKER_SDRYG( 2, 67) = 0.216976E+01
+PKER_SDRYG( 2, 68) = 0.217235E+01
+PKER_SDRYG( 2, 69) = 0.217478E+01
+PKER_SDRYG( 2, 70) = 0.217706E+01
+PKER_SDRYG( 2, 71) = 0.217920E+01
+PKER_SDRYG( 2, 72) = 0.218121E+01
+PKER_SDRYG( 2, 73) = 0.218310E+01
+PKER_SDRYG( 2, 74) = 0.218487E+01
+PKER_SDRYG( 2, 75) = 0.218653E+01
+PKER_SDRYG( 2, 76) = 0.218809E+01
+PKER_SDRYG( 2, 77) = 0.218956E+01
+PKER_SDRYG( 2, 78) = 0.219094E+01
+PKER_SDRYG( 2, 79) = 0.219223E+01
+PKER_SDRYG( 2, 80) = 0.219345E+01
+PKER_SDRYG( 3, 1) = 0.213704E+01
+PKER_SDRYG( 3, 2) = 0.194532E+01
+PKER_SDRYG( 3, 3) = 0.176611E+01
+PKER_SDRYG( 3, 4) = 0.159902E+01
+PKER_SDRYG( 3, 5) = 0.144369E+01
+PKER_SDRYG( 3, 6) = 0.130005E+01
+PKER_SDRYG( 3, 7) = 0.116784E+01
+PKER_SDRYG( 3, 8) = 0.104716E+01
+PKER_SDRYG( 3, 9) = 0.938049E+00
+PKER_SDRYG( 3, 10) = 0.840610E+00
+PKER_SDRYG( 3, 11) = 0.755216E+00
+PKER_SDRYG( 3, 12) = 0.682119E+00
+PKER_SDRYG( 3, 13) = 0.621766E+00
+PKER_SDRYG( 3, 14) = 0.574997E+00
+PKER_SDRYG( 3, 15) = 0.542388E+00
+PKER_SDRYG( 3, 16) = 0.524985E+00
+PKER_SDRYG( 3, 17) = 0.523732E+00
+PKER_SDRYG( 3, 18) = 0.539136E+00
+PKER_SDRYG( 3, 19) = 0.571765E+00
+PKER_SDRYG( 3, 20) = 0.620851E+00
+PKER_SDRYG( 3, 21) = 0.684483E+00
+PKER_SDRYG( 3, 22) = 0.759908E+00
+PKER_SDRYG( 3, 23) = 0.843252E+00
+PKER_SDRYG( 3, 24) = 0.930008E+00
+PKER_SDRYG( 3, 25) = 0.101578E+01
+PKER_SDRYG( 3, 26) = 0.109713E+01
+PKER_SDRYG( 3, 27) = 0.117211E+01
+PKER_SDRYG( 3, 28) = 0.123999E+01
+PKER_SDRYG( 3, 29) = 0.130070E+01
+PKER_SDRYG( 3, 30) = 0.135461E+01
+PKER_SDRYG( 3, 31) = 0.140226E+01
+PKER_SDRYG( 3, 32) = 0.144426E+01
+PKER_SDRYG( 3, 33) = 0.148133E+01
+PKER_SDRYG( 3, 34) = 0.151413E+01
+PKER_SDRYG( 3, 35) = 0.154333E+01
+PKER_SDRYG( 3, 36) = 0.156945E+01
+PKER_SDRYG( 3, 37) = 0.159297E+01
+PKER_SDRYG( 3, 38) = 0.161425E+01
+PKER_SDRYG( 3, 39) = 0.163361E+01
+PKER_SDRYG( 3, 40) = 0.165128E+01
+PKER_SDRYG( 3, 41) = 0.166748E+01
+PKER_SDRYG( 3, 42) = 0.168239E+01
+PKER_SDRYG( 3, 43) = 0.169614E+01
+PKER_SDRYG( 3, 44) = 0.170886E+01
+PKER_SDRYG( 3, 45) = 0.172066E+01
+PKER_SDRYG( 3, 46) = 0.173161E+01
+PKER_SDRYG( 3, 47) = 0.174180E+01
+PKER_SDRYG( 3, 48) = 0.175130E+01
+PKER_SDRYG( 3, 49) = 0.176016E+01
+PKER_SDRYG( 3, 50) = 0.176843E+01
+PKER_SDRYG( 3, 51) = 0.177616E+01
+PKER_SDRYG( 3, 52) = 0.178339E+01
+PKER_SDRYG( 3, 53) = 0.179015E+01
+PKER_SDRYG( 3, 54) = 0.179649E+01
+PKER_SDRYG( 3, 55) = 0.180242E+01
+PKER_SDRYG( 3, 56) = 0.180798E+01
+PKER_SDRYG( 3, 57) = 0.181319E+01
+PKER_SDRYG( 3, 58) = 0.181808E+01
+PKER_SDRYG( 3, 59) = 0.182267E+01
+PKER_SDRYG( 3, 60) = 0.182696E+01
+PKER_SDRYG( 3, 61) = 0.183100E+01
+PKER_SDRYG( 3, 62) = 0.183478E+01
+PKER_SDRYG( 3, 63) = 0.183834E+01
+PKER_SDRYG( 3, 64) = 0.184167E+01
+PKER_SDRYG( 3, 65) = 0.184480E+01
+PKER_SDRYG( 3, 66) = 0.184773E+01
+PKER_SDRYG( 3, 67) = 0.185049E+01
+PKER_SDRYG( 3, 68) = 0.185308E+01
+PKER_SDRYG( 3, 69) = 0.185551E+01
+PKER_SDRYG( 3, 70) = 0.185779E+01
+PKER_SDRYG( 3, 71) = 0.185993E+01
+PKER_SDRYG( 3, 72) = 0.186194E+01
+PKER_SDRYG( 3, 73) = 0.186383E+01
+PKER_SDRYG( 3, 74) = 0.186560E+01
+PKER_SDRYG( 3, 75) = 0.186726E+01
+PKER_SDRYG( 3, 76) = 0.186882E+01
+PKER_SDRYG( 3, 77) = 0.187029E+01
+PKER_SDRYG( 3, 78) = 0.187167E+01
+PKER_SDRYG( 3, 79) = 0.187296E+01
+PKER_SDRYG( 3, 80) = 0.187418E+01
+PKER_SDRYG( 4, 1) = 0.228260E+01
+PKER_SDRYG( 4, 2) = 0.208970E+01
+PKER_SDRYG( 4, 3) = 0.190870E+01
+PKER_SDRYG( 4, 4) = 0.173902E+01
+PKER_SDRYG( 4, 5) = 0.158018E+01
+PKER_SDRYG( 4, 6) = 0.143175E+01
+PKER_SDRYG( 4, 7) = 0.129350E+01
+PKER_SDRYG( 4, 8) = 0.116524E+01
+PKER_SDRYG( 4, 9) = 0.104679E+01
+PKER_SDRYG( 4, 10) = 0.938293E+00
+PKER_SDRYG( 4, 11) = 0.839779E+00
+PKER_SDRYG( 4, 12) = 0.751411E+00
+PKER_SDRYG( 4, 13) = 0.673624E+00
+PKER_SDRYG( 4, 14) = 0.606890E+00
+PKER_SDRYG( 4, 15) = 0.551804E+00
+PKER_SDRYG( 4, 16) = 0.509206E+00
+PKER_SDRYG( 4, 17) = 0.479980E+00
+PKER_SDRYG( 4, 18) = 0.465261E+00
+PKER_SDRYG( 4, 19) = 0.465721E+00
+PKER_SDRYG( 4, 20) = 0.482008E+00
+PKER_SDRYG( 4, 21) = 0.513844E+00
+PKER_SDRYG( 4, 22) = 0.559906E+00
+PKER_SDRYG( 4, 23) = 0.617887E+00
+PKER_SDRYG( 4, 24) = 0.684319E+00
+PKER_SDRYG( 4, 25) = 0.755493E+00
+PKER_SDRYG( 4, 26) = 0.827648E+00
+PKER_SDRYG( 4, 27) = 0.897498E+00
+PKER_SDRYG( 4, 28) = 0.962696E+00
+PKER_SDRYG( 4, 29) = 0.102211E+01
+PKER_SDRYG( 4, 30) = 0.107552E+01
+PKER_SDRYG( 4, 31) = 0.112323E+01
+PKER_SDRYG( 4, 32) = 0.116572E+01
+PKER_SDRYG( 4, 33) = 0.120353E+01
+PKER_SDRYG( 4, 34) = 0.123716E+01
+PKER_SDRYG( 4, 35) = 0.126712E+01
+PKER_SDRYG( 4, 36) = 0.129388E+01
+PKER_SDRYG( 4, 37) = 0.131791E+01
+PKER_SDRYG( 4, 38) = 0.133960E+01
+PKER_SDRYG( 4, 39) = 0.135926E+01
+PKER_SDRYG( 4, 40) = 0.137719E+01
+PKER_SDRYG( 4, 41) = 0.139358E+01
+PKER_SDRYG( 4, 42) = 0.140864E+01
+PKER_SDRYG( 4, 43) = 0.142251E+01
+PKER_SDRYG( 4, 44) = 0.143533E+01
+PKER_SDRYG( 4, 45) = 0.144719E+01
+PKER_SDRYG( 4, 46) = 0.145821E+01
+PKER_SDRYG( 4, 47) = 0.146844E+01
+PKER_SDRYG( 4, 48) = 0.147798E+01
+PKER_SDRYG( 4, 49) = 0.148686E+01
+PKER_SDRYG( 4, 50) = 0.149515E+01
+PKER_SDRYG( 4, 51) = 0.150290E+01
+PKER_SDRYG( 4, 52) = 0.151015E+01
+PKER_SDRYG( 4, 53) = 0.151692E+01
+PKER_SDRYG( 4, 54) = 0.152326E+01
+PKER_SDRYG( 4, 55) = 0.152921E+01
+PKER_SDRYG( 4, 56) = 0.153477E+01
+PKER_SDRYG( 4, 57) = 0.153999E+01
+PKER_SDRYG( 4, 58) = 0.154488E+01
+PKER_SDRYG( 4, 59) = 0.154946E+01
+PKER_SDRYG( 4, 60) = 0.155377E+01
+PKER_SDRYG( 4, 61) = 0.155780E+01
+PKER_SDRYG( 4, 62) = 0.156159E+01
+PKER_SDRYG( 4, 63) = 0.156514E+01
+PKER_SDRYG( 4, 64) = 0.156847E+01
+PKER_SDRYG( 4, 65) = 0.157160E+01
+PKER_SDRYG( 4, 66) = 0.157454E+01
+PKER_SDRYG( 4, 67) = 0.157730E+01
+PKER_SDRYG( 4, 68) = 0.157989E+01
+PKER_SDRYG( 4, 69) = 0.158231E+01
+PKER_SDRYG( 4, 70) = 0.158460E+01
+PKER_SDRYG( 4, 71) = 0.158674E+01
+PKER_SDRYG( 4, 72) = 0.158875E+01
+PKER_SDRYG( 4, 73) = 0.159063E+01
+PKER_SDRYG( 4, 74) = 0.159241E+01
+PKER_SDRYG( 4, 75) = 0.159407E+01
+PKER_SDRYG( 4, 76) = 0.159563E+01
+PKER_SDRYG( 4, 77) = 0.159710E+01
+PKER_SDRYG( 4, 78) = 0.159848E+01
+PKER_SDRYG( 4, 79) = 0.159977E+01
+PKER_SDRYG( 4, 80) = 0.160098E+01
+PKER_SDRYG( 5, 1) = 0.240858E+01
+PKER_SDRYG( 5, 2) = 0.221548E+01
+PKER_SDRYG( 5, 3) = 0.203408E+01
+PKER_SDRYG( 5, 4) = 0.186367E+01
+PKER_SDRYG( 5, 5) = 0.170364E+01
+PKER_SDRYG( 5, 6) = 0.155346E+01
+PKER_SDRYG( 5, 7) = 0.141265E+01
+PKER_SDRYG( 5, 8) = 0.128086E+01
+PKER_SDRYG( 5, 9) = 0.115781E+01
+PKER_SDRYG( 5, 10) = 0.104325E+01
+PKER_SDRYG( 5, 11) = 0.937212E+00
+PKER_SDRYG( 5, 12) = 0.839592E+00
+PKER_SDRYG( 5, 13) = 0.750616E+00
+PKER_SDRYG( 5, 14) = 0.670555E+00
+PKER_SDRYG( 5, 15) = 0.599783E+00
+PKER_SDRYG( 5, 16) = 0.538995E+00
+PKER_SDRYG( 5, 17) = 0.488851E+00
+PKER_SDRYG( 5, 18) = 0.450272E+00
+PKER_SDRYG( 5, 19) = 0.424473E+00
+PKER_SDRYG( 5, 20) = 0.412258E+00
+PKER_SDRYG( 5, 21) = 0.414378E+00
+PKER_SDRYG( 5, 22) = 0.431094E+00
+PKER_SDRYG( 5, 23) = 0.461458E+00
+PKER_SDRYG( 5, 24) = 0.503777E+00
+PKER_SDRYG( 5, 25) = 0.555215E+00
+PKER_SDRYG( 5, 26) = 0.612308E+00
+PKER_SDRYG( 5, 27) = 0.671758E+00
+PKER_SDRYG( 5, 28) = 0.730702E+00
+PKER_SDRYG( 5, 29) = 0.786858E+00
+PKER_SDRYG( 5, 30) = 0.838809E+00
+PKER_SDRYG( 5, 31) = 0.885908E+00
+PKER_SDRYG( 5, 32) = 0.928193E+00
+PKER_SDRYG( 5, 33) = 0.966036E+00
+PKER_SDRYG( 5, 34) = 0.999917E+00
+PKER_SDRYG( 5, 35) = 0.103030E+01
+PKER_SDRYG( 5, 36) = 0.105757E+01
+PKER_SDRYG( 5, 37) = 0.108209E+01
+PKER_SDRYG( 5, 38) = 0.110421E+01
+PKER_SDRYG( 5, 39) = 0.112423E+01
+PKER_SDRYG( 5, 40) = 0.114242E+01
+PKER_SDRYG( 5, 41) = 0.115904E+01
+PKER_SDRYG( 5, 42) = 0.117426E+01
+PKER_SDRYG( 5, 43) = 0.118827E+01
+PKER_SDRYG( 5, 44) = 0.120118E+01
+PKER_SDRYG( 5, 45) = 0.121313E+01
+PKER_SDRYG( 5, 46) = 0.122421E+01
+PKER_SDRYG( 5, 47) = 0.123450E+01
+PKER_SDRYG( 5, 48) = 0.124407E+01
+PKER_SDRYG( 5, 49) = 0.125299E+01
+PKER_SDRYG( 5, 50) = 0.126130E+01
+PKER_SDRYG( 5, 51) = 0.126907E+01
+PKER_SDRYG( 5, 52) = 0.127633E+01
+PKER_SDRYG( 5, 53) = 0.128312E+01
+PKER_SDRYG( 5, 54) = 0.128947E+01
+PKER_SDRYG( 5, 55) = 0.129542E+01
+PKER_SDRYG( 5, 56) = 0.130099E+01
+PKER_SDRYG( 5, 57) = 0.130621E+01
+PKER_SDRYG( 5, 58) = 0.131110E+01
+PKER_SDRYG( 5, 59) = 0.131569E+01
+PKER_SDRYG( 5, 60) = 0.132000E+01
+PKER_SDRYG( 5, 61) = 0.132403E+01
+PKER_SDRYG( 5, 62) = 0.132782E+01
+PKER_SDRYG( 5, 63) = 0.133137E+01
+PKER_SDRYG( 5, 64) = 0.133471E+01
+PKER_SDRYG( 5, 65) = 0.133784E+01
+PKER_SDRYG( 5, 66) = 0.134078E+01
+PKER_SDRYG( 5, 67) = 0.134353E+01
+PKER_SDRYG( 5, 68) = 0.134612E+01
+PKER_SDRYG( 5, 69) = 0.134855E+01
+PKER_SDRYG( 5, 70) = 0.135083E+01
+PKER_SDRYG( 5, 71) = 0.135297E+01
+PKER_SDRYG( 5, 72) = 0.135498E+01
+PKER_SDRYG( 5, 73) = 0.135687E+01
+PKER_SDRYG( 5, 74) = 0.135864E+01
+PKER_SDRYG( 5, 75) = 0.136031E+01
+PKER_SDRYG( 5, 76) = 0.136187E+01
+PKER_SDRYG( 5, 77) = 0.136334E+01
+PKER_SDRYG( 5, 78) = 0.136471E+01
+PKER_SDRYG( 5, 79) = 0.136601E+01
+PKER_SDRYG( 5, 80) = 0.136722E+01
+PKER_SDRYG( 6, 1) = 0.251664E+01
+PKER_SDRYG( 6, 2) = 0.232364E+01
+PKER_SDRYG( 6, 3) = 0.214228E+01
+PKER_SDRYG( 6, 4) = 0.197185E+01
+PKER_SDRYG( 6, 5) = 0.181167E+01
+PKER_SDRYG( 6, 6) = 0.166111E+01
+PKER_SDRYG( 6, 7) = 0.151961E+01
+PKER_SDRYG( 6, 8) = 0.138667E+01
+PKER_SDRYG( 6, 9) = 0.126184E+01
+PKER_SDRYG( 6, 10) = 0.114478E+01
+PKER_SDRYG( 6, 11) = 0.103517E+01
+PKER_SDRYG( 6, 12) = 0.932888E+00
+PKER_SDRYG( 6, 13) = 0.837834E+00
+PKER_SDRYG( 6, 14) = 0.750023E+00
+PKER_SDRYG( 6, 15) = 0.669669E+00
+PKER_SDRYG( 6, 16) = 0.597089E+00
+PKER_SDRYG( 6, 17) = 0.532745E+00
+PKER_SDRYG( 6, 18) = 0.477348E+00
+PKER_SDRYG( 6, 19) = 0.431871E+00
+PKER_SDRYG( 6, 20) = 0.397271E+00
+PKER_SDRYG( 6, 21) = 0.374617E+00
+PKER_SDRYG( 6, 22) = 0.364824E+00
+PKER_SDRYG( 6, 23) = 0.368476E+00
+PKER_SDRYG( 6, 24) = 0.384983E+00
+PKER_SDRYG( 6, 25) = 0.413313E+00
+PKER_SDRYG( 6, 26) = 0.451161E+00
+PKER_SDRYG( 6, 27) = 0.495571E+00
+PKER_SDRYG( 6, 28) = 0.543614E+00
+PKER_SDRYG( 6, 29) = 0.592449E+00
+PKER_SDRYG( 6, 30) = 0.640035E+00
+PKER_SDRYG( 6, 31) = 0.684955E+00
+PKER_SDRYG( 6, 32) = 0.726348E+00
+PKER_SDRYG( 6, 33) = 0.763874E+00
+PKER_SDRYG( 6, 34) = 0.797647E+00
+PKER_SDRYG( 6, 35) = 0.828001E+00
+PKER_SDRYG( 6, 36) = 0.855366E+00
+PKER_SDRYG( 6, 37) = 0.880090E+00
+PKER_SDRYG( 6, 38) = 0.902487E+00
+PKER_SDRYG( 6, 39) = 0.922812E+00
+PKER_SDRYG( 6, 40) = 0.941292E+00
+PKER_SDRYG( 6, 41) = 0.958141E+00
+PKER_SDRYG( 6, 42) = 0.973555E+00
+PKER_SDRYG( 6, 43) = 0.987707E+00
+PKER_SDRYG( 6, 44) = 0.100074E+01
+PKER_SDRYG( 6, 45) = 0.101278E+01
+PKER_SDRYG( 6, 46) = 0.102393E+01
+PKER_SDRYG( 6, 47) = 0.103427E+01
+PKER_SDRYG( 6, 48) = 0.104388E+01
+PKER_SDRYG( 6, 49) = 0.105284E+01
+PKER_SDRYG( 6, 50) = 0.106118E+01
+PKER_SDRYG( 6, 51) = 0.106897E+01
+PKER_SDRYG( 6, 52) = 0.107624E+01
+PKER_SDRYG( 6, 53) = 0.108304E+01
+PKER_SDRYG( 6, 54) = 0.108941E+01
+PKER_SDRYG( 6, 55) = 0.109536E+01
+PKER_SDRYG( 6, 56) = 0.110094E+01
+PKER_SDRYG( 6, 57) = 0.110617E+01
+PKER_SDRYG( 6, 58) = 0.111106E+01
+PKER_SDRYG( 6, 59) = 0.111566E+01
+PKER_SDRYG( 6, 60) = 0.111996E+01
+PKER_SDRYG( 6, 61) = 0.112400E+01
+PKER_SDRYG( 6, 62) = 0.112779E+01
+PKER_SDRYG( 6, 63) = 0.113135E+01
+PKER_SDRYG( 6, 64) = 0.113468E+01
+PKER_SDRYG( 6, 65) = 0.113781E+01
+PKER_SDRYG( 6, 66) = 0.114075E+01
+PKER_SDRYG( 6, 67) = 0.114351E+01
+PKER_SDRYG( 6, 68) = 0.114610E+01
+PKER_SDRYG( 6, 69) = 0.114853E+01
+PKER_SDRYG( 6, 70) = 0.115081E+01
+PKER_SDRYG( 6, 71) = 0.115295E+01
+PKER_SDRYG( 6, 72) = 0.115496E+01
+PKER_SDRYG( 6, 73) = 0.115685E+01
+PKER_SDRYG( 6, 74) = 0.115862E+01
+PKER_SDRYG( 6, 75) = 0.116028E+01
+PKER_SDRYG( 6, 76) = 0.116185E+01
+PKER_SDRYG( 6, 77) = 0.116331E+01
+PKER_SDRYG( 6, 78) = 0.116469E+01
+PKER_SDRYG( 6, 79) = 0.116598E+01
+PKER_SDRYG( 6, 80) = 0.116720E+01
+PKER_SDRYG( 7, 1) = 0.260907E+01
+PKER_SDRYG( 7, 2) = 0.241619E+01
+PKER_SDRYG( 7, 3) = 0.223498E+01
+PKER_SDRYG( 7, 4) = 0.206469E+01
+PKER_SDRYG( 7, 5) = 0.190465E+01
+PKER_SDRYG( 7, 6) = 0.175420E+01
+PKER_SDRYG( 7, 7) = 0.161273E+01
+PKER_SDRYG( 7, 8) = 0.147968E+01
+PKER_SDRYG( 7, 9) = 0.135452E+01
+PKER_SDRYG( 7, 10) = 0.123679E+01
+PKER_SDRYG( 7, 11) = 0.112608E+01
+PKER_SDRYG( 7, 12) = 0.102203E+01
+PKER_SDRYG( 7, 13) = 0.924395E+00
+PKER_SDRYG( 7, 14) = 0.832994E+00
+PKER_SDRYG( 7, 15) = 0.747686E+00
+PKER_SDRYG( 7, 16) = 0.668663E+00
+PKER_SDRYG( 7, 17) = 0.595982E+00
+PKER_SDRYG( 7, 18) = 0.530112E+00
+PKER_SDRYG( 7, 19) = 0.471656E+00
+PKER_SDRYG( 7, 20) = 0.421355E+00
+PKER_SDRYG( 7, 21) = 0.380242E+00
+PKER_SDRYG( 7, 22) = 0.349372E+00
+PKER_SDRYG( 7, 23) = 0.329791E+00
+PKER_SDRYG( 7, 24) = 0.322253E+00
+PKER_SDRYG( 7, 25) = 0.326826E+00
+PKER_SDRYG( 7, 26) = 0.342721E+00
+PKER_SDRYG( 7, 27) = 0.368356E+00
+PKER_SDRYG( 7, 28) = 0.401308E+00
+PKER_SDRYG( 7, 29) = 0.438909E+00
+PKER_SDRYG( 7, 30) = 0.478603E+00
+PKER_SDRYG( 7, 31) = 0.518292E+00
+PKER_SDRYG( 7, 32) = 0.556526E+00
+PKER_SDRYG( 7, 33) = 0.592460E+00
+PKER_SDRYG( 7, 34) = 0.625570E+00
+PKER_SDRYG( 7, 35) = 0.655722E+00
+PKER_SDRYG( 7, 36) = 0.683000E+00
+PKER_SDRYG( 7, 37) = 0.707678E+00
+PKER_SDRYG( 7, 38) = 0.730054E+00
+PKER_SDRYG( 7, 39) = 0.750429E+00
+PKER_SDRYG( 7, 40) = 0.769036E+00
+PKER_SDRYG( 7, 41) = 0.786057E+00
+PKER_SDRYG( 7, 42) = 0.801649E+00
+PKER_SDRYG( 7, 43) = 0.815958E+00
+PKER_SDRYG( 7, 44) = 0.829120E+00
+PKER_SDRYG( 7, 45) = 0.841259E+00
+PKER_SDRYG( 7, 46) = 0.852485E+00
+PKER_SDRYG( 7, 47) = 0.862890E+00
+PKER_SDRYG( 7, 48) = 0.872553E+00
+PKER_SDRYG( 7, 49) = 0.881542E+00
+PKER_SDRYG( 7, 50) = 0.889916E+00
+PKER_SDRYG( 7, 51) = 0.897727E+00
+PKER_SDRYG( 7, 52) = 0.905020E+00
+PKER_SDRYG( 7, 53) = 0.911835E+00
+PKER_SDRYG( 7, 54) = 0.918209E+00
+PKER_SDRYG( 7, 55) = 0.924174E+00
+PKER_SDRYG( 7, 56) = 0.929759E+00
+PKER_SDRYG( 7, 57) = 0.934991E+00
+PKER_SDRYG( 7, 58) = 0.939893E+00
+PKER_SDRYG( 7, 59) = 0.944489E+00
+PKER_SDRYG( 7, 60) = 0.948798E+00
+PKER_SDRYG( 7, 61) = 0.952839E+00
+PKER_SDRYG( 7, 62) = 0.956630E+00
+PKER_SDRYG( 7, 63) = 0.960186E+00
+PKER_SDRYG( 7, 64) = 0.963523E+00
+PKER_SDRYG( 7, 65) = 0.966654E+00
+PKER_SDRYG( 7, 66) = 0.969593E+00
+PKER_SDRYG( 7, 67) = 0.972351E+00
+PKER_SDRYG( 7, 68) = 0.974940E+00
+PKER_SDRYG( 7, 69) = 0.977371E+00
+PKER_SDRYG( 7, 70) = 0.979652E+00
+PKER_SDRYG( 7, 71) = 0.981794E+00
+PKER_SDRYG( 7, 72) = 0.983805E+00
+PKER_SDRYG( 7, 73) = 0.985693E+00
+PKER_SDRYG( 7, 74) = 0.987465E+00
+PKER_SDRYG( 7, 75) = 0.989129E+00
+PKER_SDRYG( 7, 76) = 0.990691E+00
+PKER_SDRYG( 7, 77) = 0.992158E+00
+PKER_SDRYG( 7, 78) = 0.993536E+00
+PKER_SDRYG( 7, 79) = 0.994829E+00
+PKER_SDRYG( 7, 80) = 0.996043E+00
+PKER_SDRYG( 8, 1) = 0.268808E+01
+PKER_SDRYG( 8, 2) = 0.249531E+01
+PKER_SDRYG( 8, 3) = 0.231421E+01
+PKER_SDRYG( 8, 4) = 0.214408E+01
+PKER_SDRYG( 8, 5) = 0.198420E+01
+PKER_SDRYG( 8, 6) = 0.183395E+01
+PKER_SDRYG( 8, 7) = 0.169269E+01
+PKER_SDRYG( 8, 8) = 0.155984E+01
+PKER_SDRYG( 8, 9) = 0.143487E+01
+PKER_SDRYG( 8, 10) = 0.131725E+01
+PKER_SDRYG( 8, 11) = 0.120650E+01
+PKER_SDRYG( 8, 12) = 0.110220E+01
+PKER_SDRYG( 8, 13) = 0.100394E+01
+PKER_SDRYG( 8, 14) = 0.911405E+00
+PKER_SDRYG( 8, 15) = 0.824324E+00
+PKER_SDRYG( 8, 16) = 0.742517E+00
+PKER_SDRYG( 8, 17) = 0.665933E+00
+PKER_SDRYG( 8, 18) = 0.594638E+00
+PKER_SDRYG( 8, 19) = 0.528884E+00
+PKER_SDRYG( 8, 20) = 0.469090E+00
+PKER_SDRYG( 8, 21) = 0.415957E+00
+PKER_SDRYG( 8, 22) = 0.370337E+00
+PKER_SDRYG( 8, 23) = 0.333242E+00
+PKER_SDRYG( 8, 24) = 0.305950E+00
+PKER_SDRYG( 8, 25) = 0.289249E+00
+PKER_SDRYG( 8, 26) = 0.283562E+00
+PKER_SDRYG( 8, 27) = 0.288698E+00
+PKER_SDRYG( 8, 28) = 0.303569E+00
+PKER_SDRYG( 8, 29) = 0.326080E+00
+PKER_SDRYG( 8, 30) = 0.354197E+00
+PKER_SDRYG( 8, 31) = 0.385476E+00
+PKER_SDRYG( 8, 32) = 0.417888E+00
+PKER_SDRYG( 8, 33) = 0.450012E+00
+PKER_SDRYG( 8, 34) = 0.480758E+00
+PKER_SDRYG( 8, 35) = 0.509615E+00
+PKER_SDRYG( 8, 36) = 0.536330E+00
+PKER_SDRYG( 8, 37) = 0.560806E+00
+PKER_SDRYG( 8, 38) = 0.583098E+00
+PKER_SDRYG( 8, 39) = 0.603393E+00
+PKER_SDRYG( 8, 40) = 0.621917E+00
+PKER_SDRYG( 8, 41) = 0.638900E+00
+PKER_SDRYG( 8, 42) = 0.654515E+00
+PKER_SDRYG( 8, 43) = 0.668899E+00
+PKER_SDRYG( 8, 44) = 0.682163E+00
+PKER_SDRYG( 8, 45) = 0.694403E+00
+PKER_SDRYG( 8, 46) = 0.705715E+00
+PKER_SDRYG( 8, 47) = 0.716188E+00
+PKER_SDRYG( 8, 48) = 0.725905E+00
+PKER_SDRYG( 8, 49) = 0.734936E+00
+PKER_SDRYG( 8, 50) = 0.743343E+00
+PKER_SDRYG( 8, 51) = 0.751180E+00
+PKER_SDRYG( 8, 52) = 0.758493E+00
+PKER_SDRYG( 8, 53) = 0.765324E+00
+PKER_SDRYG( 8, 54) = 0.771711E+00
+PKER_SDRYG( 8, 55) = 0.777685E+00
+PKER_SDRYG( 8, 56) = 0.783278E+00
+PKER_SDRYG( 8, 57) = 0.788516E+00
+PKER_SDRYG( 8, 58) = 0.793423E+00
+PKER_SDRYG( 8, 59) = 0.798022E+00
+PKER_SDRYG( 8, 60) = 0.802334E+00
+PKER_SDRYG( 8, 61) = 0.806378E+00
+PKER_SDRYG( 8, 62) = 0.810170E+00
+PKER_SDRYG( 8, 63) = 0.813728E+00
+PKER_SDRYG( 8, 64) = 0.817066E+00
+PKER_SDRYG( 8, 65) = 0.820198E+00
+PKER_SDRYG( 8, 66) = 0.823138E+00
+PKER_SDRYG( 8, 67) = 0.825897E+00
+PKER_SDRYG( 8, 68) = 0.828486E+00
+PKER_SDRYG( 8, 69) = 0.830917E+00
+PKER_SDRYG( 8, 70) = 0.833199E+00
+PKER_SDRYG( 8, 71) = 0.835341E+00
+PKER_SDRYG( 8, 72) = 0.837352E+00
+PKER_SDRYG( 8, 73) = 0.839240E+00
+PKER_SDRYG( 8, 74) = 0.841012E+00
+PKER_SDRYG( 8, 75) = 0.842676E+00
+PKER_SDRYG( 8, 76) = 0.844239E+00
+PKER_SDRYG( 8, 77) = 0.845706E+00
+PKER_SDRYG( 8, 78) = 0.847083E+00
+PKER_SDRYG( 8, 79) = 0.848376E+00
+PKER_SDRYG( 8, 80) = 0.849590E+00
+PKER_SDRYG( 9, 1) = 0.275564E+01
+PKER_SDRYG( 9, 2) = 0.256293E+01
+PKER_SDRYG( 9, 3) = 0.238193E+01
+PKER_SDRYG( 9, 4) = 0.221190E+01
+PKER_SDRYG( 9, 5) = 0.205217E+01
+PKER_SDRYG( 9, 6) = 0.190207E+01
+PKER_SDRYG( 9, 7) = 0.176101E+01
+PKER_SDRYG( 9, 8) = 0.162840E+01
+PKER_SDRYG( 9, 9) = 0.150369E+01
+PKER_SDRYG( 9, 10) = 0.138636E+01
+PKER_SDRYG( 9, 11) = 0.127591E+01
+PKER_SDRYG( 9, 12) = 0.117189E+01
+PKER_SDRYG( 9, 13) = 0.107383E+01
+PKER_SDRYG( 9, 14) = 0.981348E+00
+PKER_SDRYG( 9, 15) = 0.894068E+00
+PKER_SDRYG( 9, 16) = 0.811669E+00
+PKER_SDRYG( 9, 17) = 0.733887E+00
+PKER_SDRYG( 9, 18) = 0.660583E+00
+PKER_SDRYG( 9, 19) = 0.591697E+00
+PKER_SDRYG( 9, 20) = 0.527256E+00
+PKER_SDRYG( 9, 21) = 0.467682E+00
+PKER_SDRYG( 9, 22) = 0.413317E+00
+PKER_SDRYG( 9, 23) = 0.365031E+00
+PKER_SDRYG( 9, 24) = 0.323791E+00
+PKER_SDRYG( 9, 25) = 0.290658E+00
+PKER_SDRYG( 9, 26) = 0.266690E+00
+PKER_SDRYG( 9, 27) = 0.252585E+00
+PKER_SDRYG( 9, 28) = 0.248523E+00
+PKER_SDRYG( 9, 29) = 0.253813E+00
+PKER_SDRYG( 9, 30) = 0.267126E+00
+PKER_SDRYG( 9, 31) = 0.286549E+00
+PKER_SDRYG( 9, 32) = 0.310052E+00
+PKER_SDRYG( 9, 33) = 0.335770E+00
+PKER_SDRYG( 9, 34) = 0.362148E+00
+PKER_SDRYG( 9, 35) = 0.388099E+00
+PKER_SDRYG( 9, 36) = 0.412943E+00
+PKER_SDRYG( 9, 37) = 0.436301E+00
+PKER_SDRYG( 9, 38) = 0.458056E+00
+PKER_SDRYG( 9, 39) = 0.478119E+00
+PKER_SDRYG( 9, 40) = 0.496541E+00
+PKER_SDRYG( 9, 41) = 0.513430E+00
+PKER_SDRYG( 9, 42) = 0.528947E+00
+PKER_SDRYG( 9, 43) = 0.543240E+00
+PKER_SDRYG( 9, 44) = 0.556460E+00
+PKER_SDRYG( 9, 45) = 0.568710E+00
+PKER_SDRYG( 9, 46) = 0.580067E+00
+PKER_SDRYG( 9, 47) = 0.590600E+00
+PKER_SDRYG( 9, 48) = 0.600373E+00
+PKER_SDRYG( 9, 49) = 0.609450E+00
+PKER_SDRYG( 9, 50) = 0.617894E+00
+PKER_SDRYG( 9, 51) = 0.625759E+00
+PKER_SDRYG( 9, 52) = 0.633095E+00
+PKER_SDRYG( 9, 53) = 0.639944E+00
+PKER_SDRYG( 9, 54) = 0.646345E+00
+PKER_SDRYG( 9, 55) = 0.652330E+00
+PKER_SDRYG( 9, 56) = 0.657931E+00
+PKER_SDRYG( 9, 57) = 0.663176E+00
+PKER_SDRYG( 9, 58) = 0.668088E+00
+PKER_SDRYG( 9, 59) = 0.672692E+00
+PKER_SDRYG( 9, 60) = 0.677007E+00
+PKER_SDRYG( 9, 61) = 0.681053E+00
+PKER_SDRYG( 9, 62) = 0.684847E+00
+PKER_SDRYG( 9, 63) = 0.688406E+00
+PKER_SDRYG( 9, 64) = 0.691746E+00
+PKER_SDRYG( 9, 65) = 0.694879E+00
+PKER_SDRYG( 9, 66) = 0.697819E+00
+PKER_SDRYG( 9, 67) = 0.700579E+00
+PKER_SDRYG( 9, 68) = 0.703169E+00
+PKER_SDRYG( 9, 69) = 0.705600E+00
+PKER_SDRYG( 9, 70) = 0.707882E+00
+PKER_SDRYG( 9, 71) = 0.710024E+00
+PKER_SDRYG( 9, 72) = 0.712035E+00
+PKER_SDRYG( 9, 73) = 0.713923E+00
+PKER_SDRYG( 9, 74) = 0.715696E+00
+PKER_SDRYG( 9, 75) = 0.717360E+00
+PKER_SDRYG( 9, 76) = 0.718923E+00
+PKER_SDRYG( 9, 77) = 0.720390E+00
+PKER_SDRYG( 9, 78) = 0.721767E+00
+PKER_SDRYG( 9, 79) = 0.723060E+00
+PKER_SDRYG( 9, 80) = 0.724275E+00
+PKER_SDRYG( 10, 1) = 0.281339E+01
+PKER_SDRYG( 10, 2) = 0.262074E+01
+PKER_SDRYG( 10, 3) = 0.243980E+01
+PKER_SDRYG( 10, 4) = 0.226986E+01
+PKER_SDRYG( 10, 5) = 0.211022E+01
+PKER_SDRYG( 10, 6) = 0.196025E+01
+PKER_SDRYG( 10, 7) = 0.181933E+01
+PKER_SDRYG( 10, 8) = 0.168691E+01
+PKER_SDRYG( 10, 9) = 0.156242E+01
+PKER_SDRYG( 10, 10) = 0.144536E+01
+PKER_SDRYG( 10, 11) = 0.133523E+01
+PKER_SDRYG( 10, 12) = 0.123156E+01
+PKER_SDRYG( 10, 13) = 0.113391E+01
+PKER_SDRYG( 10, 14) = 0.104185E+01
+PKER_SDRYG( 10, 15) = 0.954965E+00
+PKER_SDRYG( 10, 16) = 0.872886E+00
+PKER_SDRYG( 10, 17) = 0.795260E+00
+PKER_SDRYG( 10, 18) = 0.721777E+00
+PKER_SDRYG( 10, 19) = 0.652200E+00
+PKER_SDRYG( 10, 20) = 0.586370E+00
+PKER_SDRYG( 10, 21) = 0.524237E+00
+PKER_SDRYG( 10, 22) = 0.465940E+00
+PKER_SDRYG( 10, 23) = 0.411811E+00
+PKER_SDRYG( 10, 24) = 0.362455E+00
+PKER_SDRYG( 10, 25) = 0.318654E+00
+PKER_SDRYG( 10, 26) = 0.281514E+00
+PKER_SDRYG( 10, 27) = 0.252070E+00
+PKER_SDRYG( 10, 28) = 0.231143E+00
+PKER_SDRYG( 10, 29) = 0.219455E+00
+PKER_SDRYG( 10, 30) = 0.216610E+00
+PKER_SDRYG( 10, 31) = 0.221694E+00
+PKER_SDRYG( 10, 32) = 0.233350E+00
+PKER_SDRYG( 10, 33) = 0.249808E+00
+PKER_SDRYG( 10, 34) = 0.269212E+00
+PKER_SDRYG( 10, 35) = 0.290255E+00
+PKER_SDRYG( 10, 36) = 0.311688E+00
+PKER_SDRYG( 10, 37) = 0.332740E+00
+PKER_SDRYG( 10, 38) = 0.352968E+00
+PKER_SDRYG( 10, 39) = 0.372057E+00
+PKER_SDRYG( 10, 40) = 0.389931E+00
+PKER_SDRYG( 10, 41) = 0.406557E+00
+PKER_SDRYG( 10, 42) = 0.421943E+00
+PKER_SDRYG( 10, 43) = 0.436139E+00
+PKER_SDRYG( 10, 44) = 0.449248E+00
+PKER_SDRYG( 10, 45) = 0.461385E+00
+PKER_SDRYG( 10, 46) = 0.472660E+00
+PKER_SDRYG( 10, 47) = 0.483158E+00
+PKER_SDRYG( 10, 48) = 0.492934E+00
+PKER_SDRYG( 10, 49) = 0.502040E+00
+PKER_SDRYG( 10, 50) = 0.510518E+00
+PKER_SDRYG( 10, 51) = 0.518414E+00
+PKER_SDRYG( 10, 52) = 0.525775E+00
+PKER_SDRYG( 10, 53) = 0.532644E+00
+PKER_SDRYG( 10, 54) = 0.539059E+00
+PKER_SDRYG( 10, 55) = 0.545057E+00
+PKER_SDRYG( 10, 56) = 0.550668E+00
+PKER_SDRYG( 10, 57) = 0.555919E+00
+PKER_SDRYG( 10, 58) = 0.560838E+00
+PKER_SDRYG( 10, 59) = 0.565446E+00
+PKER_SDRYG( 10, 60) = 0.569764E+00
+PKER_SDRYG( 10, 61) = 0.573813E+00
+PKER_SDRYG( 10, 62) = 0.577610E+00
+PKER_SDRYG( 10, 63) = 0.581171E+00
+PKER_SDRYG( 10, 64) = 0.584512E+00
+PKER_SDRYG( 10, 65) = 0.587646E+00
+PKER_SDRYG( 10, 66) = 0.590587E+00
+PKER_SDRYG( 10, 67) = 0.593347E+00
+PKER_SDRYG( 10, 68) = 0.595938E+00
+PKER_SDRYG( 10, 69) = 0.598369E+00
+PKER_SDRYG( 10, 70) = 0.600652E+00
+PKER_SDRYG( 10, 71) = 0.602794E+00
+PKER_SDRYG( 10, 72) = 0.604806E+00
+PKER_SDRYG( 10, 73) = 0.606694E+00
+PKER_SDRYG( 10, 74) = 0.608466E+00
+PKER_SDRYG( 10, 75) = 0.610131E+00
+PKER_SDRYG( 10, 76) = 0.611693E+00
+PKER_SDRYG( 10, 77) = 0.613160E+00
+PKER_SDRYG( 10, 78) = 0.614538E+00
+PKER_SDRYG( 10, 79) = 0.615831E+00
+PKER_SDRYG( 10, 80) = 0.617046E+00
+PKER_SDRYG( 11, 1) = 0.286279E+01
+PKER_SDRYG( 11, 2) = 0.267017E+01
+PKER_SDRYG( 11, 3) = 0.248928E+01
+PKER_SDRYG( 11, 4) = 0.231939E+01
+PKER_SDRYG( 11, 5) = 0.215982E+01
+PKER_SDRYG( 11, 6) = 0.200994E+01
+PKER_SDRYG( 11, 7) = 0.186913E+01
+PKER_SDRYG( 11, 8) = 0.173684E+01
+PKER_SDRYG( 11, 9) = 0.161251E+01
+PKER_SDRYG( 11, 10) = 0.149565E+01
+PKER_SDRYG( 11, 11) = 0.138577E+01
+PKER_SDRYG( 11, 12) = 0.128240E+01
+PKER_SDRYG( 11, 13) = 0.118511E+01
+PKER_SDRYG( 11, 14) = 0.109347E+01
+PKER_SDRYG( 11, 15) = 0.100708E+01
+PKER_SDRYG( 11, 16) = 0.925546E+00
+PKER_SDRYG( 11, 17) = 0.848487E+00
+PKER_SDRYG( 11, 18) = 0.775551E+00
+PKER_SDRYG( 11, 19) = 0.706400E+00
+PKER_SDRYG( 11, 20) = 0.640753E+00
+PKER_SDRYG( 11, 21) = 0.578370E+00
+PKER_SDRYG( 11, 22) = 0.519096E+00
+PKER_SDRYG( 11, 23) = 0.462949E+00
+PKER_SDRYG( 11, 24) = 0.410097E+00
+PKER_SDRYG( 11, 25) = 0.360879E+00
+PKER_SDRYG( 11, 26) = 0.316082E+00
+PKER_SDRYG( 11, 27) = 0.276453E+00
+PKER_SDRYG( 11, 28) = 0.243203E+00
+PKER_SDRYG( 11, 29) = 0.217282E+00
+PKER_SDRYG( 11, 30) = 0.199406E+00
+PKER_SDRYG( 11, 31) = 0.189721E+00
+PKER_SDRYG( 11, 32) = 0.187743E+00
+PKER_SDRYG( 11, 33) = 0.192493E+00
+PKER_SDRYG( 11, 34) = 0.202438E+00
+PKER_SDRYG( 11, 35) = 0.216099E+00
+PKER_SDRYG( 11, 36) = 0.232081E+00
+PKER_SDRYG( 11, 37) = 0.249224E+00
+PKER_SDRYG( 11, 38) = 0.266689E+00
+PKER_SDRYG( 11, 39) = 0.283887E+00
+PKER_SDRYG( 11, 40) = 0.300456E+00
+PKER_SDRYG( 11, 41) = 0.316204E+00
+PKER_SDRYG( 11, 42) = 0.331029E+00
+PKER_SDRYG( 11, 43) = 0.344935E+00
+PKER_SDRYG( 11, 44) = 0.357888E+00
+PKER_SDRYG( 11, 45) = 0.369919E+00
+PKER_SDRYG( 11, 46) = 0.381090E+00
+PKER_SDRYG( 11, 47) = 0.391476E+00
+PKER_SDRYG( 11, 48) = 0.401151E+00
+PKER_SDRYG( 11, 49) = 0.410193E+00
+PKER_SDRYG( 11, 50) = 0.418645E+00
+PKER_SDRYG( 11, 51) = 0.426545E+00
+PKER_SDRYG( 11, 52) = 0.433924E+00
+PKER_SDRYG( 11, 53) = 0.440812E+00
+PKER_SDRYG( 11, 54) = 0.447244E+00
+PKER_SDRYG( 11, 55) = 0.453255E+00
+PKER_SDRYG( 11, 56) = 0.458876E+00
+PKER_SDRYG( 11, 57) = 0.464136E+00
+PKER_SDRYG( 11, 58) = 0.469061E+00
+PKER_SDRYG( 11, 59) = 0.473674E+00
+PKER_SDRYG( 11, 60) = 0.477997E+00
+PKER_SDRYG( 11, 61) = 0.482049E+00
+PKER_SDRYG( 11, 62) = 0.485848E+00
+PKER_SDRYG( 11, 63) = 0.489411E+00
+PKER_SDRYG( 11, 64) = 0.492753E+00
+PKER_SDRYG( 11, 65) = 0.495889E+00
+PKER_SDRYG( 11, 66) = 0.498831E+00
+PKER_SDRYG( 11, 67) = 0.501592E+00
+PKER_SDRYG( 11, 68) = 0.504183E+00
+PKER_SDRYG( 11, 69) = 0.506615E+00
+PKER_SDRYG( 11, 70) = 0.508897E+00
+PKER_SDRYG( 11, 71) = 0.511040E+00
+PKER_SDRYG( 11, 72) = 0.513052E+00
+PKER_SDRYG( 11, 73) = 0.514940E+00
+PKER_SDRYG( 11, 74) = 0.516713E+00
+PKER_SDRYG( 11, 75) = 0.518377E+00
+PKER_SDRYG( 11, 76) = 0.519940E+00
+PKER_SDRYG( 11, 77) = 0.521407E+00
+PKER_SDRYG( 11, 78) = 0.522785E+00
+PKER_SDRYG( 11, 79) = 0.524078E+00
+PKER_SDRYG( 11, 80) = 0.525292E+00
+PKER_SDRYG( 12, 1) = 0.290503E+01
+PKER_SDRYG( 12, 2) = 0.271244E+01
+PKER_SDRYG( 12, 3) = 0.253159E+01
+PKER_SDRYG( 12, 4) = 0.236174E+01
+PKER_SDRYG( 12, 5) = 0.220222E+01
+PKER_SDRYG( 12, 6) = 0.205240E+01
+PKER_SDRYG( 12, 7) = 0.191167E+01
+PKER_SDRYG( 12, 8) = 0.177947E+01
+PKER_SDRYG( 12, 9) = 0.165526E+01
+PKER_SDRYG( 12, 10) = 0.153854E+01
+PKER_SDRYG( 12, 11) = 0.142884E+01
+PKER_SDRYG( 12, 12) = 0.132569E+01
+PKER_SDRYG( 12, 13) = 0.122867E+01
+PKER_SDRYG( 12, 14) = 0.113737E+01
+PKER_SDRYG( 12, 15) = 0.105138E+01
+PKER_SDRYG( 12, 16) = 0.970330E+00
+PKER_SDRYG( 12, 17) = 0.893842E+00
+PKER_SDRYG( 12, 18) = 0.821558E+00
+PKER_SDRYG( 12, 19) = 0.753126E+00
+PKER_SDRYG( 12, 20) = 0.688212E+00
+PKER_SDRYG( 12, 21) = 0.626503E+00
+PKER_SDRYG( 12, 22) = 0.567718E+00
+PKER_SDRYG( 12, 23) = 0.511639E+00
+PKER_SDRYG( 12, 24) = 0.458154E+00
+PKER_SDRYG( 12, 25) = 0.407296E+00
+PKER_SDRYG( 12, 26) = 0.359273E+00
+PKER_SDRYG( 12, 27) = 0.314578E+00
+PKER_SDRYG( 12, 28) = 0.273965E+00
+PKER_SDRYG( 12, 29) = 0.238418E+00
+PKER_SDRYG( 12, 30) = 0.208881E+00
+PKER_SDRYG( 12, 31) = 0.186324E+00
+PKER_SDRYG( 12, 32) = 0.171136E+00
+PKER_SDRYG( 12, 33) = 0.163113E+00
+PKER_SDRYG( 12, 34) = 0.161842E+00
+PKER_SDRYG( 12, 35) = 0.166025E+00
+PKER_SDRYG( 12, 36) = 0.174355E+00
+PKER_SDRYG( 12, 37) = 0.185633E+00
+PKER_SDRYG( 12, 38) = 0.198742E+00
+PKER_SDRYG( 12, 39) = 0.212721E+00
+PKER_SDRYG( 12, 40) = 0.227030E+00
+PKER_SDRYG( 12, 41) = 0.241162E+00
+PKER_SDRYG( 12, 42) = 0.254861E+00
+PKER_SDRYG( 12, 43) = 0.267967E+00
+PKER_SDRYG( 12, 44) = 0.280379E+00
+PKER_SDRYG( 12, 45) = 0.292088E+00
+PKER_SDRYG( 12, 46) = 0.303077E+00
+PKER_SDRYG( 12, 47) = 0.313351E+00
+PKER_SDRYG( 12, 48) = 0.322928E+00
+PKER_SDRYG( 12, 49) = 0.331860E+00
+PKER_SDRYG( 12, 50) = 0.340209E+00
+PKER_SDRYG( 12, 51) = 0.348028E+00
+PKER_SDRYG( 12, 52) = 0.355361E+00
+PKER_SDRYG( 12, 53) = 0.362233E+00
+PKER_SDRYG( 12, 54) = 0.368670E+00
+PKER_SDRYG( 12, 55) = 0.374691E+00
+PKER_SDRYG( 12, 56) = 0.380324E+00
+PKER_SDRYG( 12, 57) = 0.385593E+00
+PKER_SDRYG( 12, 58) = 0.390524E+00
+PKER_SDRYG( 12, 59) = 0.395143E+00
+PKER_SDRYG( 12, 60) = 0.399470E+00
+PKER_SDRYG( 12, 61) = 0.403526E+00
+PKER_SDRYG( 12, 62) = 0.407327E+00
+PKER_SDRYG( 12, 63) = 0.410893E+00
+PKER_SDRYG( 12, 64) = 0.414236E+00
+PKER_SDRYG( 12, 65) = 0.417373E+00
+PKER_SDRYG( 12, 66) = 0.420316E+00
+PKER_SDRYG( 12, 67) = 0.423078E+00
+PKER_SDRYG( 12, 68) = 0.425670E+00
+PKER_SDRYG( 12, 69) = 0.428102E+00
+PKER_SDRYG( 12, 70) = 0.430385E+00
+PKER_SDRYG( 12, 71) = 0.432529E+00
+PKER_SDRYG( 12, 72) = 0.434540E+00
+PKER_SDRYG( 12, 73) = 0.436429E+00
+PKER_SDRYG( 12, 74) = 0.438202E+00
+PKER_SDRYG( 12, 75) = 0.439866E+00
+PKER_SDRYG( 12, 76) = 0.441429E+00
+PKER_SDRYG( 12, 77) = 0.442896E+00
+PKER_SDRYG( 12, 78) = 0.444274E+00
+PKER_SDRYG( 12, 79) = 0.445567E+00
+PKER_SDRYG( 12, 80) = 0.446782E+00
+PKER_SDRYG( 13, 1) = 0.294116E+01
+PKER_SDRYG( 13, 2) = 0.274860E+01
+PKER_SDRYG( 13, 3) = 0.256776E+01
+PKER_SDRYG( 13, 4) = 0.239794E+01
+PKER_SDRYG( 13, 5) = 0.223846E+01
+PKER_SDRYG( 13, 6) = 0.208868E+01
+PKER_SDRYG( 13, 7) = 0.194801E+01
+PKER_SDRYG( 13, 8) = 0.181587E+01
+PKER_SDRYG( 13, 9) = 0.169175E+01
+PKER_SDRYG( 13, 10) = 0.157514E+01
+PKER_SDRYG( 13, 11) = 0.146556E+01
+PKER_SDRYG( 13, 12) = 0.136257E+01
+PKER_SDRYG( 13, 13) = 0.126575E+01
+PKER_SDRYG( 13, 14) = 0.117468E+01
+PKER_SDRYG( 13, 15) = 0.108900E+01
+PKER_SDRYG( 13, 16) = 0.100831E+01
+PKER_SDRYG( 13, 17) = 0.932272E+00
+PKER_SDRYG( 13, 18) = 0.860531E+00
+PKER_SDRYG( 13, 19) = 0.792747E+00
+PKER_SDRYG( 13, 20) = 0.728588E+00
+PKER_SDRYG( 13, 21) = 0.667726E+00
+PKER_SDRYG( 13, 22) = 0.609845E+00
+PKER_SDRYG( 13, 23) = 0.554648E+00
+PKER_SDRYG( 13, 24) = 0.501871E+00
+PKER_SDRYG( 13, 25) = 0.451333E+00
+PKER_SDRYG( 13, 26) = 0.402944E+00
+PKER_SDRYG( 13, 27) = 0.356772E+00
+PKER_SDRYG( 13, 28) = 0.313151E+00
+PKER_SDRYG( 13, 29) = 0.272660E+00
+PKER_SDRYG( 13, 30) = 0.236041E+00
+PKER_SDRYG( 13, 31) = 0.204371E+00
+PKER_SDRYG( 13, 32) = 0.178425E+00
+PKER_SDRYG( 13, 33) = 0.159000E+00
+PKER_SDRYG( 13, 34) = 0.146216E+00
+PKER_SDRYG( 13, 35) = 0.139774E+00
+PKER_SDRYG( 13, 36) = 0.138831E+00
+PKER_SDRYG( 13, 37) = 0.142350E+00
+PKER_SDRYG( 13, 38) = 0.149306E+00
+PKER_SDRYG( 13, 39) = 0.158537E+00
+PKER_SDRYG( 13, 40) = 0.169222E+00
+PKER_SDRYG( 13, 41) = 0.180703E+00
+PKER_SDRYG( 13, 42) = 0.192460E+00
+PKER_SDRYG( 13, 43) = 0.204154E+00
+PKER_SDRYG( 13, 44) = 0.215558E+00
+PKER_SDRYG( 13, 45) = 0.226529E+00
+PKER_SDRYG( 13, 46) = 0.237000E+00
+PKER_SDRYG( 13, 47) = 0.246921E+00
+PKER_SDRYG( 13, 48) = 0.256303E+00
+PKER_SDRYG( 13, 49) = 0.265115E+00
+PKER_SDRYG( 13, 50) = 0.273367E+00
+PKER_SDRYG( 13, 51) = 0.281092E+00
+PKER_SDRYG( 13, 52) = 0.288326E+00
+PKER_SDRYG( 13, 53) = 0.295112E+00
+PKER_SDRYG( 13, 54) = 0.301489E+00
+PKER_SDRYG( 13, 55) = 0.307481E+00
+PKER_SDRYG( 13, 56) = 0.313105E+00
+PKER_SDRYG( 13, 57) = 0.318378E+00
+PKER_SDRYG( 13, 58) = 0.323316E+00
+PKER_SDRYG( 13, 59) = 0.327941E+00
+PKER_SDRYG( 13, 60) = 0.332273E+00
+PKER_SDRYG( 13, 61) = 0.336332E+00
+PKER_SDRYG( 13, 62) = 0.340137E+00
+PKER_SDRYG( 13, 63) = 0.343705E+00
+PKER_SDRYG( 13, 64) = 0.347050E+00
+PKER_SDRYG( 13, 65) = 0.350189E+00
+PKER_SDRYG( 13, 66) = 0.353133E+00
+PKER_SDRYG( 13, 67) = 0.355895E+00
+PKER_SDRYG( 13, 68) = 0.358488E+00
+PKER_SDRYG( 13, 69) = 0.360921E+00
+PKER_SDRYG( 13, 70) = 0.363204E+00
+PKER_SDRYG( 13, 71) = 0.365348E+00
+PKER_SDRYG( 13, 72) = 0.367360E+00
+PKER_SDRYG( 13, 73) = 0.369249E+00
+PKER_SDRYG( 13, 74) = 0.371022E+00
+PKER_SDRYG( 13, 75) = 0.372687E+00
+PKER_SDRYG( 13, 76) = 0.374249E+00
+PKER_SDRYG( 13, 77) = 0.375717E+00
+PKER_SDRYG( 13, 78) = 0.377094E+00
+PKER_SDRYG( 13, 79) = 0.378388E+00
+PKER_SDRYG( 13, 80) = 0.379602E+00
+PKER_SDRYG( 14, 1) = 0.297207E+01
+PKER_SDRYG( 14, 2) = 0.277952E+01
+PKER_SDRYG( 14, 3) = 0.259870E+01
+PKER_SDRYG( 14, 4) = 0.242890E+01
+PKER_SDRYG( 14, 5) = 0.226945E+01
+PKER_SDRYG( 14, 6) = 0.211970E+01
+PKER_SDRYG( 14, 7) = 0.197907E+01
+PKER_SDRYG( 14, 8) = 0.184698E+01
+PKER_SDRYG( 14, 9) = 0.172292E+01
+PKER_SDRYG( 14, 10) = 0.160638E+01
+PKER_SDRYG( 14, 11) = 0.149689E+01
+PKER_SDRYG( 14, 12) = 0.139402E+01
+PKER_SDRYG( 14, 13) = 0.129733E+01
+PKER_SDRYG( 14, 14) = 0.120644E+01
+PKER_SDRYG( 14, 15) = 0.112096E+01
+PKER_SDRYG( 14, 16) = 0.104054E+01
+PKER_SDRYG( 14, 17) = 0.964829E+00
+PKER_SDRYG( 14, 18) = 0.893490E+00
+PKER_SDRYG( 14, 19) = 0.826201E+00
+PKER_SDRYG( 14, 20) = 0.762643E+00
+PKER_SDRYG( 14, 21) = 0.702504E+00
+PKER_SDRYG( 14, 22) = 0.645473E+00
+PKER_SDRYG( 14, 23) = 0.591245E+00
+PKER_SDRYG( 14, 24) = 0.539521E+00
+PKER_SDRYG( 14, 25) = 0.490023E+00
+PKER_SDRYG( 14, 26) = 0.442518E+00
+PKER_SDRYG( 14, 27) = 0.396845E+00
+PKER_SDRYG( 14, 28) = 0.352973E+00
+PKER_SDRYG( 14, 29) = 0.311060E+00
+PKER_SDRYG( 14, 30) = 0.271520E+00
+PKER_SDRYG( 14, 31) = 0.234965E+00
+PKER_SDRYG( 14, 32) = 0.202244E+00
+PKER_SDRYG( 14, 33) = 0.174293E+00
+PKER_SDRYG( 14, 34) = 0.151865E+00
+PKER_SDRYG( 14, 35) = 0.135292E+00
+PKER_SDRYG( 14, 36) = 0.124633E+00
+PKER_SDRYG( 14, 37) = 0.119330E+00
+PKER_SDRYG( 14, 38) = 0.118542E+00
+PKER_SDRYG( 14, 39) = 0.121495E+00
+PKER_SDRYG( 14, 40) = 0.127159E+00
+PKER_SDRYG( 14, 41) = 0.134675E+00
+PKER_SDRYG( 14, 42) = 0.143414E+00
+PKER_SDRYG( 14, 43) = 0.152859E+00
+PKER_SDRYG( 14, 44) = 0.162557E+00
+PKER_SDRYG( 14, 45) = 0.172292E+00
+PKER_SDRYG( 14, 46) = 0.181843E+00
+PKER_SDRYG( 14, 47) = 0.191099E+00
+PKER_SDRYG( 14, 48) = 0.199979E+00
+PKER_SDRYG( 14, 49) = 0.208440E+00
+PKER_SDRYG( 14, 50) = 0.216475E+00
+PKER_SDRYG( 14, 51) = 0.224064E+00
+PKER_SDRYG( 14, 52) = 0.231208E+00
+PKER_SDRYG( 14, 53) = 0.237909E+00
+PKER_SDRYG( 14, 54) = 0.244196E+00
+PKER_SDRYG( 14, 55) = 0.250103E+00
+PKER_SDRYG( 14, 56) = 0.255661E+00
+PKER_SDRYG( 14, 57) = 0.260893E+00
+PKER_SDRYG( 14, 58) = 0.265814E+00
+PKER_SDRYG( 14, 59) = 0.270436E+00
+PKER_SDRYG( 14, 60) = 0.274770E+00
+PKER_SDRYG( 14, 61) = 0.278833E+00
+PKER_SDRYG( 14, 62) = 0.282641E+00
+PKER_SDRYG( 14, 63) = 0.286212E+00
+PKER_SDRYG( 14, 64) = 0.289559E+00
+PKER_SDRYG( 14, 65) = 0.292699E+00
+PKER_SDRYG( 14, 66) = 0.295645E+00
+PKER_SDRYG( 14, 67) = 0.298408E+00
+PKER_SDRYG( 14, 68) = 0.301002E+00
+PKER_SDRYG( 14, 69) = 0.303435E+00
+PKER_SDRYG( 14, 70) = 0.305719E+00
+PKER_SDRYG( 14, 71) = 0.307863E+00
+PKER_SDRYG( 14, 72) = 0.309875E+00
+PKER_SDRYG( 14, 73) = 0.311764E+00
+PKER_SDRYG( 14, 74) = 0.313538E+00
+PKER_SDRYG( 14, 75) = 0.315203E+00
+PKER_SDRYG( 14, 76) = 0.316766E+00
+PKER_SDRYG( 14, 77) = 0.318233E+00
+PKER_SDRYG( 14, 78) = 0.319611E+00
+PKER_SDRYG( 14, 79) = 0.320904E+00
+PKER_SDRYG( 14, 80) = 0.322119E+00
+PKER_SDRYG( 15, 1) = 0.299851E+01
+PKER_SDRYG( 15, 2) = 0.280597E+01
+PKER_SDRYG( 15, 3) = 0.262516E+01
+PKER_SDRYG( 15, 4) = 0.245538E+01
+PKER_SDRYG( 15, 5) = 0.229594E+01
+PKER_SDRYG( 15, 6) = 0.214622E+01
+PKER_SDRYG( 15, 7) = 0.200561E+01
+PKER_SDRYG( 15, 8) = 0.187356E+01
+PKER_SDRYG( 15, 9) = 0.174954E+01
+PKER_SDRYG( 15, 10) = 0.163306E+01
+PKER_SDRYG( 15, 11) = 0.152364E+01
+PKER_SDRYG( 15, 12) = 0.142084E+01
+PKER_SDRYG( 15, 13) = 0.132426E+01
+PKER_SDRYG( 15, 14) = 0.123349E+01
+PKER_SDRYG( 15, 15) = 0.114816E+01
+PKER_SDRYG( 15, 16) = 0.106793E+01
+PKER_SDRYG( 15, 17) = 0.992448E+00
+PKER_SDRYG( 15, 18) = 0.921397E+00
+PKER_SDRYG( 15, 19) = 0.854464E+00
+PKER_SDRYG( 15, 20) = 0.791346E+00
+PKER_SDRYG( 15, 21) = 0.731749E+00
+PKER_SDRYG( 15, 22) = 0.675379E+00
+PKER_SDRYG( 15, 23) = 0.621947E+00
+PKER_SDRYG( 15, 24) = 0.571164E+00
+PKER_SDRYG( 15, 25) = 0.522742E+00
+PKER_SDRYG( 15, 26) = 0.476405E+00
+PKER_SDRYG( 15, 27) = 0.431900E+00
+PKER_SDRYG( 15, 28) = 0.389024E+00
+PKER_SDRYG( 15, 29) = 0.347667E+00
+PKER_SDRYG( 15, 30) = 0.307875E+00
+PKER_SDRYG( 15, 31) = 0.269889E+00
+PKER_SDRYG( 15, 32) = 0.234170E+00
+PKER_SDRYG( 15, 33) = 0.201437E+00
+PKER_SDRYG( 15, 34) = 0.172542E+00
+PKER_SDRYG( 15, 35) = 0.148167E+00
+PKER_SDRYG( 15, 36) = 0.128950E+00
+PKER_SDRYG( 15, 37) = 0.114938E+00
+PKER_SDRYG( 15, 38) = 0.106032E+00
+PKER_SDRYG( 15, 39) = 0.101607E+00
+PKER_SDRYG( 15, 40) = 0.100983E+00
+PKER_SDRYG( 15, 41) = 0.103298E+00
+PKER_SDRYG( 15, 42) = 0.107818E+00
+PKER_SDRYG( 15, 43) = 0.113963E+00
+PKER_SDRYG( 15, 44) = 0.121100E+00
+PKER_SDRYG( 15, 45) = 0.128845E+00
+PKER_SDRYG( 15, 46) = 0.136912E+00
+PKER_SDRYG( 15, 47) = 0.145044E+00
+PKER_SDRYG( 15, 48) = 0.153081E+00
+PKER_SDRYG( 15, 49) = 0.160916E+00
+PKER_SDRYG( 15, 50) = 0.168474E+00
+PKER_SDRYG( 15, 51) = 0.175721E+00
+PKER_SDRYG( 15, 52) = 0.182625E+00
+PKER_SDRYG( 15, 53) = 0.189185E+00
+PKER_SDRYG( 15, 54) = 0.195380E+00
+PKER_SDRYG( 15, 55) = 0.201210E+00
+PKER_SDRYG( 15, 56) = 0.206690E+00
+PKER_SDRYG( 15, 57) = 0.211845E+00
+PKER_SDRYG( 15, 58) = 0.216698E+00
+PKER_SDRYG( 15, 59) = 0.221272E+00
+PKER_SDRYG( 15, 60) = 0.225581E+00
+PKER_SDRYG( 15, 61) = 0.229635E+00
+PKER_SDRYG( 15, 62) = 0.233442E+00
+PKER_SDRYG( 15, 63) = 0.237014E+00
+PKER_SDRYG( 15, 64) = 0.240364E+00
+PKER_SDRYG( 15, 65) = 0.243506E+00
+PKER_SDRYG( 15, 66) = 0.246453E+00
+PKER_SDRYG( 15, 67) = 0.249217E+00
+PKER_SDRYG( 15, 68) = 0.251811E+00
+PKER_SDRYG( 15, 69) = 0.254246E+00
+PKER_SDRYG( 15, 70) = 0.256530E+00
+PKER_SDRYG( 15, 71) = 0.258674E+00
+PKER_SDRYG( 15, 72) = 0.260687E+00
+PKER_SDRYG( 15, 73) = 0.262576E+00
+PKER_SDRYG( 15, 74) = 0.264350E+00
+PKER_SDRYG( 15, 75) = 0.266015E+00
+PKER_SDRYG( 15, 76) = 0.267578E+00
+PKER_SDRYG( 15, 77) = 0.269046E+00
+PKER_SDRYG( 15, 78) = 0.270423E+00
+PKER_SDRYG( 15, 79) = 0.271717E+00
+PKER_SDRYG( 15, 80) = 0.272931E+00
+PKER_SDRYG( 16, 1) = 0.302113E+01
+PKER_SDRYG( 16, 2) = 0.282859E+01
+PKER_SDRYG( 16, 3) = 0.264780E+01
+PKER_SDRYG( 16, 4) = 0.247803E+01
+PKER_SDRYG( 16, 5) = 0.231860E+01
+PKER_SDRYG( 16, 6) = 0.216890E+01
+PKER_SDRYG( 16, 7) = 0.202831E+01
+PKER_SDRYG( 16, 8) = 0.189629E+01
+PKER_SDRYG( 16, 9) = 0.177230E+01
+PKER_SDRYG( 16, 10) = 0.165585E+01
+PKER_SDRYG( 16, 11) = 0.154648E+01
+PKER_SDRYG( 16, 12) = 0.144374E+01
+PKER_SDRYG( 16, 13) = 0.134723E+01
+PKER_SDRYG( 16, 14) = 0.125655E+01
+PKER_SDRYG( 16, 15) = 0.117133E+01
+PKER_SDRYG( 16, 16) = 0.109123E+01
+PKER_SDRYG( 16, 17) = 0.101591E+01
+PKER_SDRYG( 16, 18) = 0.945067E+00
+PKER_SDRYG( 16, 19) = 0.878387E+00
+PKER_SDRYG( 16, 20) = 0.815584E+00
+PKER_SDRYG( 16, 21) = 0.756375E+00
+PKER_SDRYG( 16, 22) = 0.700485E+00
+PKER_SDRYG( 16, 23) = 0.647644E+00
+PKER_SDRYG( 16, 24) = 0.597582E+00
+PKER_SDRYG( 16, 25) = 0.550030E+00
+PKER_SDRYG( 16, 26) = 0.504717E+00
+PKER_SDRYG( 16, 27) = 0.461377E+00
+PKER_SDRYG( 16, 28) = 0.419758E+00
+PKER_SDRYG( 16, 29) = 0.379637E+00
+PKER_SDRYG( 16, 30) = 0.340859E+00
+PKER_SDRYG( 16, 31) = 0.303384E+00
+PKER_SDRYG( 16, 32) = 0.267331E+00
+PKER_SDRYG( 16, 33) = 0.233033E+00
+PKER_SDRYG( 16, 34) = 0.201036E+00
+PKER_SDRYG( 16, 35) = 0.172070E+00
+PKER_SDRYG( 16, 36) = 0.146800E+00
+PKER_SDRYG( 16, 37) = 0.125823E+00
+PKER_SDRYG( 16, 38) = 0.109499E+00
+PKER_SDRYG( 16, 39) = 0.977545E-01
+PKER_SDRYG( 16, 40) = 0.902514E-01
+PKER_SDRYG( 16, 41) = 0.865078E-01
+PKER_SDRYG( 16, 42) = 0.858300E-01
+PKER_SDRYG( 16, 43) = 0.875594E-01
+PKER_SDRYG( 16, 44) = 0.911743E-01
+PKER_SDRYG( 16, 45) = 0.961123E-01
+PKER_SDRYG( 16, 46) = 0.101929E+00
+PKER_SDRYG( 16, 47) = 0.108313E+00
+PKER_SDRYG( 16, 48) = 0.115025E+00
+PKER_SDRYG( 16, 49) = 0.121828E+00
+PKER_SDRYG( 16, 50) = 0.128615E+00
+PKER_SDRYG( 16, 51) = 0.135272E+00
+PKER_SDRYG( 16, 52) = 0.141739E+00
+PKER_SDRYG( 16, 53) = 0.147959E+00
+PKER_SDRYG( 16, 54) = 0.153911E+00
+PKER_SDRYG( 16, 55) = 0.159588E+00
+PKER_SDRYG( 16, 56) = 0.164969E+00
+PKER_SDRYG( 16, 57) = 0.170053E+00
+PKER_SDRYG( 16, 58) = 0.174839E+00
+PKER_SDRYG( 16, 59) = 0.179343E+00
+PKER_SDRYG( 16, 60) = 0.183588E+00
+PKER_SDRYG( 16, 61) = 0.187590E+00
+PKER_SDRYG( 16, 62) = 0.191366E+00
+PKER_SDRYG( 16, 63) = 0.194923E+00
+PKER_SDRYG( 16, 64) = 0.198269E+00
+PKER_SDRYG( 16, 65) = 0.201411E+00
+PKER_SDRYG( 16, 66) = 0.204359E+00
+PKER_SDRYG( 16, 67) = 0.207125E+00
+PKER_SDRYG( 16, 68) = 0.209720E+00
+PKER_SDRYG( 16, 69) = 0.212155E+00
+PKER_SDRYG( 16, 70) = 0.214440E+00
+PKER_SDRYG( 16, 71) = 0.216585E+00
+PKER_SDRYG( 16, 72) = 0.218598E+00
+PKER_SDRYG( 16, 73) = 0.220487E+00
+PKER_SDRYG( 16, 74) = 0.222261E+00
+PKER_SDRYG( 16, 75) = 0.223926E+00
+PKER_SDRYG( 16, 76) = 0.225489E+00
+PKER_SDRYG( 16, 77) = 0.226957E+00
+PKER_SDRYG( 16, 78) = 0.228335E+00
+PKER_SDRYG( 16, 79) = 0.229629E+00
+PKER_SDRYG( 16, 80) = 0.230843E+00
+PKER_SDRYG( 17, 1) = 0.304048E+01
+PKER_SDRYG( 17, 2) = 0.284795E+01
+PKER_SDRYG( 17, 3) = 0.266716E+01
+PKER_SDRYG( 17, 4) = 0.249740E+01
+PKER_SDRYG( 17, 5) = 0.233798E+01
+PKER_SDRYG( 17, 6) = 0.218829E+01
+PKER_SDRYG( 17, 7) = 0.204772E+01
+PKER_SDRYG( 17, 8) = 0.191572E+01
+PKER_SDRYG( 17, 9) = 0.179175E+01
+PKER_SDRYG( 17, 10) = 0.167533E+01
+PKER_SDRYG( 17, 11) = 0.156599E+01
+PKER_SDRYG( 17, 12) = 0.146329E+01
+PKER_SDRYG( 17, 13) = 0.136683E+01
+PKER_SDRYG( 17, 14) = 0.127621E+01
+PKER_SDRYG( 17, 15) = 0.119108E+01
+PKER_SDRYG( 17, 16) = 0.111107E+01
+PKER_SDRYG( 17, 17) = 0.103588E+01
+PKER_SDRYG( 17, 18) = 0.965175E+00
+PKER_SDRYG( 17, 19) = 0.898676E+00
+PKER_SDRYG( 17, 20) = 0.836095E+00
+PKER_SDRYG( 17, 21) = 0.777163E+00
+PKER_SDRYG( 17, 22) = 0.721616E+00
+PKER_SDRYG( 17, 23) = 0.669199E+00
+PKER_SDRYG( 17, 24) = 0.619660E+00
+PKER_SDRYG( 17, 25) = 0.572750E+00
+PKER_SDRYG( 17, 26) = 0.528218E+00
+PKER_SDRYG( 17, 27) = 0.485815E+00
+PKER_SDRYG( 17, 28) = 0.445290E+00
+PKER_SDRYG( 17, 29) = 0.406400E+00
+PKER_SDRYG( 17, 30) = 0.368923E+00
+PKER_SDRYG( 17, 31) = 0.332681E+00
+PKER_SDRYG( 17, 32) = 0.297582E+00
+PKER_SDRYG( 17, 33) = 0.263663E+00
+PKER_SDRYG( 17, 34) = 0.231136E+00
+PKER_SDRYG( 17, 35) = 0.200408E+00
+PKER_SDRYG( 17, 36) = 0.172052E+00
+PKER_SDRYG( 17, 37) = 0.146670E+00
+PKER_SDRYG( 17, 38) = 0.124843E+00
+PKER_SDRYG( 17, 39) = 0.107010E+00
+PKER_SDRYG( 17, 40) = 0.931832E-01
+PKER_SDRYG( 17, 41) = 0.832930E-01
+PKER_SDRYG( 17, 42) = 0.769058E-01
+PKER_SDRYG( 17, 43) = 0.736320E-01
+PKER_SDRYG( 17, 44) = 0.728568E-01
+PKER_SDRYG( 17, 45) = 0.741306E-01
+PKER_SDRYG( 17, 46) = 0.769296E-01
+PKER_SDRYG( 17, 47) = 0.808406E-01
+PKER_SDRYG( 17, 48) = 0.856037E-01
+PKER_SDRYG( 17, 49) = 0.908616E-01
+PKER_SDRYG( 17, 50) = 0.964228E-01
+PKER_SDRYG( 17, 51) = 0.102150E+00
+PKER_SDRYG( 17, 52) = 0.107893E+00
+PKER_SDRYG( 17, 53) = 0.113560E+00
+PKER_SDRYG( 17, 54) = 0.119093E+00
+PKER_SDRYG( 17, 55) = 0.124441E+00
+PKER_SDRYG( 17, 56) = 0.129585E+00
+PKER_SDRYG( 17, 57) = 0.134501E+00
+PKER_SDRYG( 17, 58) = 0.139185E+00
+PKER_SDRYG( 17, 59) = 0.143620E+00
+PKER_SDRYG( 17, 60) = 0.147804E+00
+PKER_SDRYG( 17, 61) = 0.151748E+00
+PKER_SDRYG( 17, 62) = 0.155465E+00
+PKER_SDRYG( 17, 63) = 0.158971E+00
+PKER_SDRYG( 17, 64) = 0.162280E+00
+PKER_SDRYG( 17, 65) = 0.165402E+00
+PKER_SDRYG( 17, 66) = 0.168343E+00
+PKER_SDRYG( 17, 67) = 0.171107E+00
+PKER_SDRYG( 17, 68) = 0.173702E+00
+PKER_SDRYG( 17, 69) = 0.176138E+00
+PKER_SDRYG( 17, 70) = 0.178424E+00
+PKER_SDRYG( 17, 71) = 0.180569E+00
+PKER_SDRYG( 17, 72) = 0.182583E+00
+PKER_SDRYG( 17, 73) = 0.184473E+00
+PKER_SDRYG( 17, 74) = 0.186247E+00
+PKER_SDRYG( 17, 75) = 0.187912E+00
+PKER_SDRYG( 17, 76) = 0.189475E+00
+PKER_SDRYG( 17, 77) = 0.190943E+00
+PKER_SDRYG( 17, 78) = 0.192321E+00
+PKER_SDRYG( 17, 79) = 0.193615E+00
+PKER_SDRYG( 17, 80) = 0.194829E+00
+PKER_SDRYG( 18, 1) = 0.305703E+01
+PKER_SDRYG( 18, 2) = 0.286451E+01
+PKER_SDRYG( 18, 3) = 0.268372E+01
+PKER_SDRYG( 18, 4) = 0.251397E+01
+PKER_SDRYG( 18, 5) = 0.235456E+01
+PKER_SDRYG( 18, 6) = 0.220488E+01
+PKER_SDRYG( 18, 7) = 0.206432E+01
+PKER_SDRYG( 18, 8) = 0.193233E+01
+PKER_SDRYG( 18, 9) = 0.180838E+01
+PKER_SDRYG( 18, 10) = 0.169198E+01
+PKER_SDRYG( 18, 11) = 0.158266E+01
+PKER_SDRYG( 18, 12) = 0.148000E+01
+PKER_SDRYG( 18, 13) = 0.138357E+01
+PKER_SDRYG( 18, 14) = 0.129300E+01
+PKER_SDRYG( 18, 15) = 0.120792E+01
+PKER_SDRYG( 18, 16) = 0.112799E+01
+PKER_SDRYG( 18, 17) = 0.105287E+01
+PKER_SDRYG( 18, 18) = 0.982278E+00
+PKER_SDRYG( 18, 19) = 0.915908E+00
+PKER_SDRYG( 18, 20) = 0.853488E+00
+PKER_SDRYG( 18, 21) = 0.794753E+00
+PKER_SDRYG( 18, 22) = 0.739449E+00
+PKER_SDRYG( 18, 23) = 0.687334E+00
+PKER_SDRYG( 18, 24) = 0.638168E+00
+PKER_SDRYG( 18, 25) = 0.591719E+00
+PKER_SDRYG( 18, 26) = 0.547755E+00
+PKER_SDRYG( 18, 27) = 0.506046E+00
+PKER_SDRYG( 18, 28) = 0.466360E+00
+PKER_SDRYG( 18, 29) = 0.428465E+00
+PKER_SDRYG( 18, 30) = 0.392134E+00
+PKER_SDRYG( 18, 31) = 0.357151E+00
+PKER_SDRYG( 18, 32) = 0.323336E+00
+PKER_SDRYG( 18, 33) = 0.290570E+00
+PKER_SDRYG( 18, 34) = 0.258835E+00
+PKER_SDRYG( 18, 35) = 0.228251E+00
+PKER_SDRYG( 18, 36) = 0.199115E+00
+PKER_SDRYG( 18, 37) = 0.171857E+00
+PKER_SDRYG( 18, 38) = 0.147000E+00
+PKER_SDRYG( 18, 39) = 0.125067E+00
+PKER_SDRYG( 18, 40) = 0.106465E+00
+PKER_SDRYG( 18, 41) = 0.913253E-01
+PKER_SDRYG( 18, 42) = 0.796434E-01
+PKER_SDRYG( 18, 43) = 0.712627E-01
+PKER_SDRYG( 18, 44) = 0.657661E-01
+PKER_SDRYG( 18, 45) = 0.627916E-01
+PKER_SDRYG( 18, 46) = 0.619257E-01
+PKER_SDRYG( 18, 47) = 0.627161E-01
+PKER_SDRYG( 18, 48) = 0.648191E-01
+PKER_SDRYG( 18, 49) = 0.679342E-01
+PKER_SDRYG( 18, 50) = 0.717663E-01
+PKER_SDRYG( 18, 51) = 0.760826E-01
+PKER_SDRYG( 18, 52) = 0.807078E-01
+PKER_SDRYG( 18, 53) = 0.855177E-01
+PKER_SDRYG( 18, 54) = 0.903701E-01
+PKER_SDRYG( 18, 55) = 0.951997E-01
+PKER_SDRYG( 18, 56) = 0.999416E-01
+PKER_SDRYG( 18, 57) = 0.104556E+00
+PKER_SDRYG( 18, 58) = 0.109000E+00
+PKER_SDRYG( 18, 59) = 0.113265E+00
+PKER_SDRYG( 18, 60) = 0.117340E+00
+PKER_SDRYG( 18, 61) = 0.121211E+00
+PKER_SDRYG( 18, 62) = 0.124875E+00
+PKER_SDRYG( 18, 63) = 0.128330E+00
+PKER_SDRYG( 18, 64) = 0.131587E+00
+PKER_SDRYG( 18, 65) = 0.134661E+00
+PKER_SDRYG( 18, 66) = 0.137564E+00
+PKER_SDRYG( 18, 67) = 0.140304E+00
+PKER_SDRYG( 18, 68) = 0.142888E+00
+PKER_SDRYG( 18, 69) = 0.145320E+00
+PKER_SDRYG( 18, 70) = 0.147606E+00
+PKER_SDRYG( 18, 71) = 0.149751E+00
+PKER_SDRYG( 18, 72) = 0.151765E+00
+PKER_SDRYG( 18, 73) = 0.153655E+00
+PKER_SDRYG( 18, 74) = 0.155430E+00
+PKER_SDRYG( 18, 75) = 0.157095E+00
+PKER_SDRYG( 18, 76) = 0.158659E+00
+PKER_SDRYG( 18, 77) = 0.160127E+00
+PKER_SDRYG( 18, 78) = 0.161505E+00
+PKER_SDRYG( 18, 79) = 0.162799E+00
+PKER_SDRYG( 18, 80) = 0.164013E+00
+PKER_SDRYG( 19, 1) = 0.307120E+01
+PKER_SDRYG( 19, 2) = 0.287867E+01
+PKER_SDRYG( 19, 3) = 0.269789E+01
+PKER_SDRYG( 19, 4) = 0.252814E+01
+PKER_SDRYG( 19, 5) = 0.236874E+01
+PKER_SDRYG( 19, 6) = 0.221907E+01
+PKER_SDRYG( 19, 7) = 0.207852E+01
+PKER_SDRYG( 19, 8) = 0.194653E+01
+PKER_SDRYG( 19, 9) = 0.182260E+01
+PKER_SDRYG( 19, 10) = 0.170621E+01
+PKER_SDRYG( 19, 11) = 0.159692E+01
+PKER_SDRYG( 19, 12) = 0.149427E+01
+PKER_SDRYG( 19, 13) = 0.139788E+01
+PKER_SDRYG( 19, 14) = 0.130734E+01
+PKER_SDRYG( 19, 15) = 0.122230E+01
+PKER_SDRYG( 19, 16) = 0.114241E+01
+PKER_SDRYG( 19, 17) = 0.106736E+01
+PKER_SDRYG( 19, 18) = 0.996842E+00
+PKER_SDRYG( 19, 19) = 0.930565E+00
+PKER_SDRYG( 19, 20) = 0.868259E+00
+PKER_SDRYG( 19, 21) = 0.809665E+00
+PKER_SDRYG( 19, 22) = 0.754536E+00
+PKER_SDRYG( 19, 23) = 0.702636E+00
+PKER_SDRYG( 19, 24) = 0.653737E+00
+PKER_SDRYG( 19, 25) = 0.607617E+00
+PKER_SDRYG( 19, 26) = 0.564059E+00
+PKER_SDRYG( 19, 27) = 0.522851E+00
+PKER_SDRYG( 19, 28) = 0.483777E+00
+PKER_SDRYG( 19, 29) = 0.446626E+00
+PKER_SDRYG( 19, 30) = 0.411183E+00
+PKER_SDRYG( 19, 31) = 0.377237E+00
+PKER_SDRYG( 19, 32) = 0.344587E+00
+PKER_SDRYG( 19, 33) = 0.313058E+00
+PKER_SDRYG( 19, 34) = 0.282521E+00
+PKER_SDRYG( 19, 35) = 0.252926E+00
+PKER_SDRYG( 19, 36) = 0.224339E+00
+PKER_SDRYG( 19, 37) = 0.196959E+00
+PKER_SDRYG( 19, 38) = 0.171116E+00
+PKER_SDRYG( 19, 39) = 0.147232E+00
+PKER_SDRYG( 19, 40) = 0.125729E+00
+PKER_SDRYG( 19, 41) = 0.106981E+00
+PKER_SDRYG( 19, 42) = 0.911640E-01
+PKER_SDRYG( 19, 43) = 0.783313E-01
+PKER_SDRYG( 19, 44) = 0.684689E-01
+PKER_SDRYG( 19, 45) = 0.612441E-01
+PKER_SDRYG( 19, 46) = 0.564257E-01
+PKER_SDRYG( 19, 47) = 0.536623E-01
+PKER_SDRYG( 19, 48) = 0.526683E-01
+PKER_SDRYG( 19, 49) = 0.530578E-01
+PKER_SDRYG( 19, 50) = 0.546132E-01
+PKER_SDRYG( 19, 51) = 0.570295E-01
+PKER_SDRYG( 19, 52) = 0.600747E-01
+PKER_SDRYG( 19, 53) = 0.636298E-01
+PKER_SDRYG( 19, 54) = 0.674690E-01
+PKER_SDRYG( 19, 55) = 0.714859E-01
+PKER_SDRYG( 19, 56) = 0.756040E-01
+PKER_SDRYG( 19, 57) = 0.797240E-01
+PKER_SDRYG( 19, 58) = 0.837879E-01
+PKER_SDRYG( 19, 59) = 0.877591E-01
+PKER_SDRYG( 19, 60) = 0.916038E-01
+PKER_SDRYG( 19, 61) = 0.953044E-01
+PKER_SDRYG( 19, 62) = 0.988499E-01
+PKER_SDRYG( 19, 63) = 0.102231E+00
+PKER_SDRYG( 19, 64) = 0.105437E+00
+PKER_SDRYG( 19, 65) = 0.108467E+00
+PKER_SDRYG( 19, 66) = 0.111324E+00
+PKER_SDRYG( 19, 67) = 0.114021E+00
+PKER_SDRYG( 19, 68) = 0.116567E+00
+PKER_SDRYG( 19, 69) = 0.118973E+00
+PKER_SDRYG( 19, 70) = 0.121244E+00
+PKER_SDRYG( 19, 71) = 0.123383E+00
+PKER_SDRYG( 19, 72) = 0.125396E+00
+PKER_SDRYG( 19, 73) = 0.127286E+00
+PKER_SDRYG( 19, 74) = 0.129060E+00
+PKER_SDRYG( 19, 75) = 0.130726E+00
+PKER_SDRYG( 19, 76) = 0.132290E+00
+PKER_SDRYG( 19, 77) = 0.133758E+00
+PKER_SDRYG( 19, 78) = 0.135136E+00
+PKER_SDRYG( 19, 79) = 0.136430E+00
+PKER_SDRYG( 19, 80) = 0.137645E+00
+PKER_SDRYG( 20, 1) = 0.308331E+01
+PKER_SDRYG( 20, 2) = 0.289079E+01
+PKER_SDRYG( 20, 3) = 0.271002E+01
+PKER_SDRYG( 20, 4) = 0.254027E+01
+PKER_SDRYG( 20, 5) = 0.238087E+01
+PKER_SDRYG( 20, 6) = 0.223120E+01
+PKER_SDRYG( 20, 7) = 0.209066E+01
+PKER_SDRYG( 20, 8) = 0.195868E+01
+PKER_SDRYG( 20, 9) = 0.183476E+01
+PKER_SDRYG( 20, 10) = 0.171838E+01
+PKER_SDRYG( 20, 11) = 0.160910E+01
+PKER_SDRYG( 20, 12) = 0.150647E+01
+PKER_SDRYG( 20, 13) = 0.141010E+01
+PKER_SDRYG( 20, 14) = 0.131958E+01
+PKER_SDRYG( 20, 15) = 0.123457E+01
+PKER_SDRYG( 20, 16) = 0.115472E+01
+PKER_SDRYG( 20, 17) = 0.107972E+01
+PKER_SDRYG( 20, 18) = 0.100925E+01
+PKER_SDRYG( 20, 19) = 0.943044E+00
+PKER_SDRYG( 20, 20) = 0.880821E+00
+PKER_SDRYG( 20, 21) = 0.822329E+00
+PKER_SDRYG( 20, 22) = 0.767325E+00
+PKER_SDRYG( 20, 23) = 0.715580E+00
+PKER_SDRYG( 20, 24) = 0.666871E+00
+PKER_SDRYG( 20, 25) = 0.620986E+00
+PKER_SDRYG( 20, 26) = 0.577719E+00
+PKER_SDRYG( 20, 27) = 0.536869E+00
+PKER_SDRYG( 20, 28) = 0.498236E+00
+PKER_SDRYG( 20, 29) = 0.461625E+00
+PKER_SDRYG( 20, 30) = 0.426838E+00
+PKER_SDRYG( 20, 31) = 0.393679E+00
+PKER_SDRYG( 20, 32) = 0.361954E+00
+PKER_SDRYG( 20, 33) = 0.331476E+00
+PKER_SDRYG( 20, 34) = 0.302080E+00
+PKER_SDRYG( 20, 35) = 0.273637E+00
+PKER_SDRYG( 20, 36) = 0.246085E+00
+PKER_SDRYG( 20, 37) = 0.219450E+00
+PKER_SDRYG( 20, 38) = 0.193871E+00
+PKER_SDRYG( 20, 39) = 0.169593E+00
+PKER_SDRYG( 20, 40) = 0.146939E+00
+PKER_SDRYG( 20, 41) = 0.126261E+00
+PKER_SDRYG( 20, 42) = 0.107850E+00
+PKER_SDRYG( 20, 43) = 0.919096E-01
+PKER_SDRYG( 20, 44) = 0.785336E-01
+PKER_SDRYG( 20, 45) = 0.677010E-01
+PKER_SDRYG( 20, 46) = 0.592333E-01
+PKER_SDRYG( 20, 47) = 0.529464E-01
+PKER_SDRYG( 20, 48) = 0.486665E-01
+PKER_SDRYG( 20, 49) = 0.460540E-01
+PKER_SDRYG( 20, 50) = 0.449115E-01
+PKER_SDRYG( 20, 51) = 0.449944E-01
+PKER_SDRYG( 20, 52) = 0.460393E-01
+PKER_SDRYG( 20, 53) = 0.478675E-01
+PKER_SDRYG( 20, 54) = 0.503008E-01
+PKER_SDRYG( 20, 55) = 0.531708E-01
+PKER_SDRYG( 20, 56) = 0.563427E-01
+PKER_SDRYG( 20, 57) = 0.597035E-01
+PKER_SDRYG( 20, 58) = 0.631818E-01
+PKER_SDRYG( 20, 59) = 0.666850E-01
+PKER_SDRYG( 20, 60) = 0.701651E-01
+PKER_SDRYG( 20, 61) = 0.735872E-01
+PKER_SDRYG( 20, 62) = 0.769178E-01
+PKER_SDRYG( 20, 63) = 0.801281E-01
+PKER_SDRYG( 20, 64) = 0.832130E-01
+PKER_SDRYG( 20, 65) = 0.861638E-01
+PKER_SDRYG( 20, 66) = 0.889685E-01
+PKER_SDRYG( 20, 67) = 0.916266E-01
+PKER_SDRYG( 20, 68) = 0.941350E-01
+PKER_SDRYG( 20, 69) = 0.965012E-01
+PKER_SDRYG( 20, 70) = 0.987370E-01
+PKER_SDRYG( 20, 71) = 0.100849E+00
+PKER_SDRYG( 20, 72) = 0.102844E+00
+PKER_SDRYG( 20, 73) = 0.104726E+00
+PKER_SDRYG( 20, 74) = 0.106497E+00
+PKER_SDRYG( 20, 75) = 0.108163E+00
+PKER_SDRYG( 20, 76) = 0.109727E+00
+PKER_SDRYG( 20, 77) = 0.111195E+00
+PKER_SDRYG( 20, 78) = 0.112573E+00
+PKER_SDRYG( 20, 79) = 0.113867E+00
+PKER_SDRYG( 20, 80) = 0.115082E+00
+PKER_SDRYG( 21, 1) = 0.309368E+01
+PKER_SDRYG( 21, 2) = 0.290116E+01
+PKER_SDRYG( 21, 3) = 0.272039E+01
+PKER_SDRYG( 21, 4) = 0.255064E+01
+PKER_SDRYG( 21, 5) = 0.239125E+01
+PKER_SDRYG( 21, 6) = 0.224158E+01
+PKER_SDRYG( 21, 7) = 0.210104E+01
+PKER_SDRYG( 21, 8) = 0.196908E+01
+PKER_SDRYG( 21, 9) = 0.184515E+01
+PKER_SDRYG( 21, 10) = 0.172879E+01
+PKER_SDRYG( 21, 11) = 0.161952E+01
+PKER_SDRYG( 21, 12) = 0.151690E+01
+PKER_SDRYG( 21, 13) = 0.142054E+01
+PKER_SDRYG( 21, 14) = 0.133005E+01
+PKER_SDRYG( 21, 15) = 0.124506E+01
+PKER_SDRYG( 21, 16) = 0.116524E+01
+PKER_SDRYG( 21, 17) = 0.109026E+01
+PKER_SDRYG( 21, 18) = 0.101984E+01
+PKER_SDRYG( 21, 19) = 0.953678E+00
+PKER_SDRYG( 21, 20) = 0.891515E+00
+PKER_SDRYG( 21, 21) = 0.833096E+00
+PKER_SDRYG( 21, 22) = 0.778184E+00
+PKER_SDRYG( 21, 23) = 0.726550E+00
+PKER_SDRYG( 21, 24) = 0.677978E+00
+PKER_SDRYG( 21, 25) = 0.632262E+00
+PKER_SDRYG( 21, 26) = 0.589204E+00
+PKER_SDRYG( 21, 27) = 0.548610E+00
+PKER_SDRYG( 21, 28) = 0.510294E+00
+PKER_SDRYG( 21, 29) = 0.474072E+00
+PKER_SDRYG( 21, 30) = 0.439762E+00
+PKER_SDRYG( 21, 31) = 0.407182E+00
+PKER_SDRYG( 21, 32) = 0.376150E+00
+PKER_SDRYG( 21, 33) = 0.346490E+00
+PKER_SDRYG( 21, 34) = 0.318030E+00
+PKER_SDRYG( 21, 35) = 0.290615E+00
+PKER_SDRYG( 21, 36) = 0.264123E+00
+PKER_SDRYG( 21, 37) = 0.238487E+00
+PKER_SDRYG( 21, 38) = 0.213712E+00
+PKER_SDRYG( 21, 39) = 0.189895E+00
+PKER_SDRYG( 21, 40) = 0.167221E+00
+PKER_SDRYG( 21, 41) = 0.145942E+00
+PKER_SDRYG( 21, 42) = 0.126328E+00
+PKER_SDRYG( 21, 43) = 0.108615E+00
+PKER_SDRYG( 21, 44) = 0.929833E-01
+PKER_SDRYG( 21, 45) = 0.794926E-01
+PKER_SDRYG( 21, 46) = 0.681701E-01
+PKER_SDRYG( 21, 47) = 0.589018E-01
+PKER_SDRYG( 21, 48) = 0.515595E-01
+PKER_SDRYG( 21, 49) = 0.460713E-01
+PKER_SDRYG( 21, 50) = 0.421587E-01
+PKER_SDRYG( 21, 51) = 0.396695E-01
+PKER_SDRYG( 21, 52) = 0.384096E-01
+PKER_SDRYG( 21, 53) = 0.382118E-01
+PKER_SDRYG( 21, 54) = 0.388485E-01
+PKER_SDRYG( 21, 55) = 0.402037E-01
+PKER_SDRYG( 21, 56) = 0.421013E-01
+PKER_SDRYG( 21, 57) = 0.443963E-01
+PKER_SDRYG( 21, 58) = 0.470176E-01
+PKER_SDRYG( 21, 59) = 0.498214E-01
+PKER_SDRYG( 21, 60) = 0.527437E-01
+PKER_SDRYG( 21, 61) = 0.557270E-01
+PKER_SDRYG( 21, 62) = 0.587109E-01
+PKER_SDRYG( 21, 63) = 0.616539E-01
+PKER_SDRYG( 21, 64) = 0.645294E-01
+PKER_SDRYG( 21, 65) = 0.673161E-01
+PKER_SDRYG( 21, 66) = 0.699993E-01
+PKER_SDRYG( 21, 67) = 0.725721E-01
+PKER_SDRYG( 21, 68) = 0.750271E-01
+PKER_SDRYG( 21, 69) = 0.773567E-01
+PKER_SDRYG( 21, 70) = 0.795588E-01
+PKER_SDRYG( 21, 71) = 0.816377E-01
+PKER_SDRYG( 21, 72) = 0.836001E-01
+PKER_SDRYG( 21, 73) = 0.854546E-01
+PKER_SDRYG( 21, 74) = 0.872071E-01
+PKER_SDRYG( 21, 75) = 0.888618E-01
+PKER_SDRYG( 21, 76) = 0.904212E-01
+PKER_SDRYG( 21, 77) = 0.918882E-01
+PKER_SDRYG( 21, 78) = 0.932663E-01
+PKER_SDRYG( 21, 79) = 0.945604E-01
+PKER_SDRYG( 21, 80) = 0.957753E-01
+PKER_SDRYG( 22, 1) = 0.310255E+01
+PKER_SDRYG( 22, 2) = 0.291003E+01
+PKER_SDRYG( 22, 3) = 0.272926E+01
+PKER_SDRYG( 22, 4) = 0.255952E+01
+PKER_SDRYG( 22, 5) = 0.240013E+01
+PKER_SDRYG( 22, 6) = 0.225046E+01
+PKER_SDRYG( 22, 7) = 0.210993E+01
+PKER_SDRYG( 22, 8) = 0.197796E+01
+PKER_SDRYG( 22, 9) = 0.185405E+01
+PKER_SDRYG( 22, 10) = 0.173769E+01
+PKER_SDRYG( 22, 11) = 0.162842E+01
+PKER_SDRYG( 22, 12) = 0.152582E+01
+PKER_SDRYG( 22, 13) = 0.142947E+01
+PKER_SDRYG( 22, 14) = 0.133899E+01
+PKER_SDRYG( 22, 15) = 0.125401E+01
+PKER_SDRYG( 22, 16) = 0.117421E+01
+PKER_SDRYG( 22, 17) = 0.109927E+01
+PKER_SDRYG( 22, 18) = 0.102887E+01
+PKER_SDRYG( 22, 19) = 0.962746E+00
+PKER_SDRYG( 22, 20) = 0.900627E+00
+PKER_SDRYG( 22, 21) = 0.842262E+00
+PKER_SDRYG( 22, 22) = 0.787415E+00
+PKER_SDRYG( 22, 23) = 0.735862E+00
+PKER_SDRYG( 22, 24) = 0.687390E+00
+PKER_SDRYG( 22, 25) = 0.641796E+00
+PKER_SDRYG( 22, 26) = 0.598888E+00
+PKER_SDRYG( 22, 27) = 0.558479E+00
+PKER_SDRYG( 22, 28) = 0.520391E+00
+PKER_SDRYG( 22, 29) = 0.484449E+00
+PKER_SDRYG( 22, 30) = 0.450483E+00
+PKER_SDRYG( 22, 31) = 0.418323E+00
+PKER_SDRYG( 22, 32) = 0.387803E+00
+PKER_SDRYG( 22, 33) = 0.358755E+00
+PKER_SDRYG( 22, 34) = 0.331015E+00
+PKER_SDRYG( 22, 35) = 0.304428E+00
+PKER_SDRYG( 22, 36) = 0.278850E+00
+PKER_SDRYG( 22, 37) = 0.254168E+00
+PKER_SDRYG( 22, 38) = 0.230313E+00
+PKER_SDRYG( 22, 39) = 0.207280E+00
+PKER_SDRYG( 22, 40) = 0.185140E+00
+PKER_SDRYG( 22, 41) = 0.164036E+00
+PKER_SDRYG( 22, 42) = 0.144162E+00
+PKER_SDRYG( 22, 43) = 0.125732E+00
+PKER_SDRYG( 22, 44) = 0.108925E+00
+PKER_SDRYG( 22, 45) = 0.938726E-01
+PKER_SDRYG( 22, 46) = 0.806371E-01
+PKER_SDRYG( 22, 47) = 0.692156E-01
+PKER_SDRYG( 22, 48) = 0.595621E-01
+PKER_SDRYG( 22, 49) = 0.516004E-01
+PKER_SDRYG( 22, 50) = 0.452423E-01
+PKER_SDRYG( 22, 51) = 0.403296E-01
+PKER_SDRYG( 22, 52) = 0.367261E-01
+PKER_SDRYG( 22, 53) = 0.343587E-01
+PKER_SDRYG( 22, 54) = 0.329959E-01
+PKER_SDRYG( 22, 55) = 0.325520E-01
+PKER_SDRYG( 22, 56) = 0.328785E-01
+PKER_SDRYG( 22, 57) = 0.338152E-01
+PKER_SDRYG( 22, 58) = 0.352601E-01
+PKER_SDRYG( 22, 59) = 0.370970E-01
+PKER_SDRYG( 22, 60) = 0.392214E-01
+PKER_SDRYG( 22, 61) = 0.415492E-01
+PKER_SDRYG( 22, 62) = 0.440004E-01
+PKER_SDRYG( 22, 63) = 0.465304E-01
+PKER_SDRYG( 22, 64) = 0.490772E-01
+PKER_SDRYG( 22, 65) = 0.516040E-01
+PKER_SDRYG( 22, 66) = 0.540894E-01
+PKER_SDRYG( 22, 67) = 0.565082E-01
+PKER_SDRYG( 22, 68) = 0.588410E-01
+PKER_SDRYG( 22, 69) = 0.610833E-01
+PKER_SDRYG( 22, 70) = 0.632289E-01
+PKER_SDRYG( 22, 71) = 0.652695E-01
+PKER_SDRYG( 22, 72) = 0.672038E-01
+PKER_SDRYG( 22, 73) = 0.690300E-01
+PKER_SDRYG( 22, 74) = 0.707537E-01
+PKER_SDRYG( 22, 75) = 0.723828E-01
+PKER_SDRYG( 22, 76) = 0.739222E-01
+PKER_SDRYG( 22, 77) = 0.753766E-01
+PKER_SDRYG( 22, 78) = 0.767488E-01
+PKER_SDRYG( 22, 79) = 0.780408E-01
+PKER_SDRYG( 22, 80) = 0.792553E-01
+PKER_SDRYG( 23, 1) = 0.311014E+01
+PKER_SDRYG( 23, 2) = 0.291762E+01
+PKER_SDRYG( 23, 3) = 0.273685E+01
+PKER_SDRYG( 23, 4) = 0.256711E+01
+PKER_SDRYG( 23, 5) = 0.240772E+01
+PKER_SDRYG( 23, 6) = 0.225806E+01
+PKER_SDRYG( 23, 7) = 0.211753E+01
+PKER_SDRYG( 23, 8) = 0.198557E+01
+PKER_SDRYG( 23, 9) = 0.186166E+01
+PKER_SDRYG( 23, 10) = 0.174530E+01
+PKER_SDRYG( 23, 11) = 0.163604E+01
+PKER_SDRYG( 23, 12) = 0.153345E+01
+PKER_SDRYG( 23, 13) = 0.143710E+01
+PKER_SDRYG( 23, 14) = 0.134663E+01
+PKER_SDRYG( 23, 15) = 0.126167E+01
+PKER_SDRYG( 23, 16) = 0.118188E+01
+PKER_SDRYG( 23, 17) = 0.110695E+01
+PKER_SDRYG( 23, 18) = 0.103658E+01
+PKER_SDRYG( 23, 19) = 0.970482E+00
+PKER_SDRYG( 23, 20) = 0.908396E+00
+PKER_SDRYG( 23, 21) = 0.850071E+00
+PKER_SDRYG( 23, 22) = 0.795272E+00
+PKER_SDRYG( 23, 23) = 0.743778E+00
+PKER_SDRYG( 23, 24) = 0.695378E+00
+PKER_SDRYG( 23, 25) = 0.649873E+00
+PKER_SDRYG( 23, 26) = 0.607074E+00
+PKER_SDRYG( 23, 27) = 0.566799E+00
+PKER_SDRYG( 23, 28) = 0.528875E+00
+PKER_SDRYG( 23, 29) = 0.493136E+00
+PKER_SDRYG( 23, 30) = 0.459418E+00
+PKER_SDRYG( 23, 31) = 0.427563E+00
+PKER_SDRYG( 23, 32) = 0.397414E+00
+PKER_SDRYG( 23, 33) = 0.368818E+00
+PKER_SDRYG( 23, 34) = 0.341619E+00
+PKER_SDRYG( 23, 35) = 0.315668E+00
+PKER_SDRYG( 23, 36) = 0.290820E+00
+PKER_SDRYG( 23, 37) = 0.266945E+00
+PKER_SDRYG( 23, 38) = 0.243937E+00
+PKER_SDRYG( 23, 39) = 0.221731E+00
+PKER_SDRYG( 23, 40) = 0.200315E+00
+PKER_SDRYG( 23, 41) = 0.179743E+00
+PKER_SDRYG( 23, 42) = 0.160130E+00
+PKER_SDRYG( 23, 43) = 0.141633E+00
+PKER_SDRYG( 23, 44) = 0.124415E+00
+PKER_SDRYG( 23, 45) = 0.108617E+00
+PKER_SDRYG( 23, 46) = 0.943318E-01
+PKER_SDRYG( 23, 47) = 0.815931E-01
+PKER_SDRYG( 23, 48) = 0.703932E-01
+PKER_SDRYG( 23, 49) = 0.607019E-01
+PKER_SDRYG( 23, 50) = 0.524332E-01
+PKER_SDRYG( 23, 51) = 0.455452E-01
+PKER_SDRYG( 23, 52) = 0.399288E-01
+PKER_SDRYG( 23, 53) = 0.354866E-01
+PKER_SDRYG( 23, 54) = 0.321934E-01
+PKER_SDRYG( 23, 55) = 0.298828E-01
+PKER_SDRYG( 23, 56) = 0.284626E-01
+PKER_SDRYG( 23, 57) = 0.278307E-01
+PKER_SDRYG( 23, 58) = 0.278872E-01
+PKER_SDRYG( 23, 59) = 0.284870E-01
+PKER_SDRYG( 23, 60) = 0.295587E-01
+PKER_SDRYG( 23, 61) = 0.309990E-01
+PKER_SDRYG( 23, 62) = 0.327084E-01
+PKER_SDRYG( 23, 63) = 0.346330E-01
+PKER_SDRYG( 23, 64) = 0.366844E-01
+PKER_SDRYG( 23, 65) = 0.388198E-01
+PKER_SDRYG( 23, 66) = 0.409907E-01
+PKER_SDRYG( 23, 67) = 0.431629E-01
+PKER_SDRYG( 23, 68) = 0.453050E-01
+PKER_SDRYG( 23, 69) = 0.473969E-01
+PKER_SDRYG( 23, 70) = 0.494254E-01
+PKER_SDRYG( 23, 71) = 0.513786E-01
+PKER_SDRYG( 23, 72) = 0.532517E-01
+PKER_SDRYG( 23, 73) = 0.550394E-01
+PKER_SDRYG( 23, 74) = 0.567364E-01
+PKER_SDRYG( 23, 75) = 0.583408E-01
+PKER_SDRYG( 23, 76) = 0.598558E-01
+PKER_SDRYG( 23, 77) = 0.612862E-01
+PKER_SDRYG( 23, 78) = 0.626386E-01
+PKER_SDRYG( 23, 79) = 0.639167E-01
+PKER_SDRYG( 23, 80) = 0.651237E-01
+PKER_SDRYG( 24, 1) = 0.311663E+01
+PKER_SDRYG( 24, 2) = 0.292412E+01
+PKER_SDRYG( 24, 3) = 0.274335E+01
+PKER_SDRYG( 24, 4) = 0.257361E+01
+PKER_SDRYG( 24, 5) = 0.241422E+01
+PKER_SDRYG( 24, 6) = 0.226456E+01
+PKER_SDRYG( 24, 7) = 0.212403E+01
+PKER_SDRYG( 24, 8) = 0.199207E+01
+PKER_SDRYG( 24, 9) = 0.186816E+01
+PKER_SDRYG( 24, 10) = 0.175181E+01
+PKER_SDRYG( 24, 11) = 0.164256E+01
+PKER_SDRYG( 24, 12) = 0.153997E+01
+PKER_SDRYG( 24, 13) = 0.144363E+01
+PKER_SDRYG( 24, 14) = 0.135316E+01
+PKER_SDRYG( 24, 15) = 0.126821E+01
+PKER_SDRYG( 24, 16) = 0.118844E+01
+PKER_SDRYG( 24, 17) = 0.111352E+01
+PKER_SDRYG( 24, 18) = 0.104316E+01
+PKER_SDRYG( 24, 19) = 0.977086E+00
+PKER_SDRYG( 24, 20) = 0.915024E+00
+PKER_SDRYG( 24, 21) = 0.856728E+00
+PKER_SDRYG( 24, 22) = 0.801965E+00
+PKER_SDRYG( 24, 23) = 0.750514E+00
+PKER_SDRYG( 24, 24) = 0.702168E+00
+PKER_SDRYG( 24, 25) = 0.656727E+00
+PKER_SDRYG( 24, 26) = 0.614007E+00
+PKER_SDRYG( 24, 27) = 0.573830E+00
+PKER_SDRYG( 24, 28) = 0.536025E+00
+PKER_SDRYG( 24, 29) = 0.500432E+00
+PKER_SDRYG( 24, 30) = 0.466894E+00
+PKER_SDRYG( 24, 31) = 0.435260E+00
+PKER_SDRYG( 24, 32) = 0.405382E+00
+PKER_SDRYG( 24, 33) = 0.377115E+00
+PKER_SDRYG( 24, 34) = 0.350316E+00
+PKER_SDRYG( 24, 35) = 0.324843E+00
+PKER_SDRYG( 24, 36) = 0.300557E+00
+PKER_SDRYG( 24, 37) = 0.277326E+00
+PKER_SDRYG( 24, 38) = 0.255030E+00
+PKER_SDRYG( 24, 39) = 0.233571E+00
+PKER_SDRYG( 24, 40) = 0.212888E+00
+PKER_SDRYG( 24, 41) = 0.192967E+00
+PKER_SDRYG( 24, 42) = 0.173849E+00
+PKER_SDRYG( 24, 43) = 0.155631E+00
+PKER_SDRYG( 24, 44) = 0.138439E+00
+PKER_SDRYG( 24, 45) = 0.122408E+00
+PKER_SDRYG( 24, 46) = 0.107642E+00
+PKER_SDRYG( 24, 47) = 0.942057E-01
+PKER_SDRYG( 24, 48) = 0.821124E-01
+PKER_SDRYG( 24, 49) = 0.713379E-01
+PKER_SDRYG( 24, 50) = 0.618399E-01
+PKER_SDRYG( 24, 51) = 0.535557E-01
+PKER_SDRYG( 24, 52) = 0.464286E-01
+PKER_SDRYG( 24, 53) = 0.404041E-01
+PKER_SDRYG( 24, 54) = 0.354220E-01
+PKER_SDRYG( 24, 55) = 0.314413E-01
+PKER_SDRYG( 24, 56) = 0.283724E-01
+PKER_SDRYG( 24, 57) = 0.261267E-01
+PKER_SDRYG( 24, 58) = 0.246911E-01
+PKER_SDRYG( 24, 59) = 0.239037E-01
+PKER_SDRYG( 24, 60) = 0.237308E-01
+PKER_SDRYG( 24, 61) = 0.240736E-01
+PKER_SDRYG( 24, 62) = 0.248278E-01
+PKER_SDRYG( 24, 63) = 0.259302E-01
+PKER_SDRYG( 24, 64) = 0.272985E-01
+PKER_SDRYG( 24, 65) = 0.288644E-01
+PKER_SDRYG( 24, 66) = 0.305735E-01
+PKER_SDRYG( 24, 67) = 0.323665E-01
+PKER_SDRYG( 24, 68) = 0.342120E-01
+PKER_SDRYG( 24, 69) = 0.360703E-01
+PKER_SDRYG( 24, 70) = 0.379121E-01
+PKER_SDRYG( 24, 71) = 0.397234E-01
+PKER_SDRYG( 24, 72) = 0.414856E-01
+PKER_SDRYG( 24, 73) = 0.431857E-01
+PKER_SDRYG( 24, 74) = 0.448197E-01
+PKER_SDRYG( 24, 75) = 0.463836E-01
+PKER_SDRYG( 24, 76) = 0.478710E-01
+PKER_SDRYG( 24, 77) = 0.492809E-01
+PKER_SDRYG( 24, 78) = 0.506124E-01
+PKER_SDRYG( 24, 79) = 0.518695E-01
+PKER_SDRYG( 24, 80) = 0.530577E-01
+PKER_SDRYG( 25, 1) = 0.312219E+01
+PKER_SDRYG( 25, 2) = 0.292967E+01
+PKER_SDRYG( 25, 3) = 0.274891E+01
+PKER_SDRYG( 25, 4) = 0.257917E+01
+PKER_SDRYG( 25, 5) = 0.241978E+01
+PKER_SDRYG( 25, 6) = 0.227012E+01
+PKER_SDRYG( 25, 7) = 0.212959E+01
+PKER_SDRYG( 25, 8) = 0.199764E+01
+PKER_SDRYG( 25, 9) = 0.187373E+01
+PKER_SDRYG( 25, 10) = 0.175738E+01
+PKER_SDRYG( 25, 11) = 0.164813E+01
+PKER_SDRYG( 25, 12) = 0.154554E+01
+PKER_SDRYG( 25, 13) = 0.144921E+01
+PKER_SDRYG( 25, 14) = 0.135875E+01
+PKER_SDRYG( 25, 15) = 0.127381E+01
+PKER_SDRYG( 25, 16) = 0.119404E+01
+PKER_SDRYG( 25, 17) = 0.111913E+01
+PKER_SDRYG( 25, 18) = 0.104879E+01
+PKER_SDRYG( 25, 19) = 0.982726E+00
+PKER_SDRYG( 25, 20) = 0.920681E+00
+PKER_SDRYG( 25, 21) = 0.862407E+00
+PKER_SDRYG( 25, 22) = 0.807670E+00
+PKER_SDRYG( 25, 23) = 0.756252E+00
+PKER_SDRYG( 25, 24) = 0.707944E+00
+PKER_SDRYG( 25, 25) = 0.662552E+00
+PKER_SDRYG( 25, 26) = 0.619890E+00
+PKER_SDRYG( 25, 27) = 0.579783E+00
+PKER_SDRYG( 25, 28) = 0.542066E+00
+PKER_SDRYG( 25, 29) = 0.506580E+00
+PKER_SDRYG( 25, 30) = 0.473173E+00
+PKER_SDRYG( 25, 31) = 0.441699E+00
+PKER_SDRYG( 25, 32) = 0.412018E+00
+PKER_SDRYG( 25, 33) = 0.383992E+00
+PKER_SDRYG( 25, 34) = 0.357485E+00
+PKER_SDRYG( 25, 35) = 0.332366E+00
+PKER_SDRYG( 25, 36) = 0.308504E+00
+PKER_SDRYG( 25, 37) = 0.285770E+00
+PKER_SDRYG( 25, 38) = 0.264042E+00
+PKER_SDRYG( 25, 39) = 0.243211E+00
+PKER_SDRYG( 25, 40) = 0.223187E+00
+PKER_SDRYG( 25, 41) = 0.203911E+00
+PKER_SDRYG( 25, 42) = 0.185368E+00
+PKER_SDRYG( 25, 43) = 0.167593E+00
+PKER_SDRYG( 25, 44) = 0.150666E+00
+PKER_SDRYG( 25, 45) = 0.134695E+00
+PKER_SDRYG( 25, 46) = 0.119790E+00
+PKER_SDRYG( 25, 47) = 0.106033E+00
+PKER_SDRYG( 25, 48) = 0.934668E-01
+PKER_SDRYG( 25, 49) = 0.820875E-01
+PKER_SDRYG( 25, 50) = 0.718598E-01
+PKER_SDRYG( 25, 51) = 0.627311E-01
+PKER_SDRYG( 25, 52) = 0.546359E-01
+PKER_SDRYG( 25, 53) = 0.475217E-01
+PKER_SDRYG( 25, 54) = 0.413477E-01
+PKER_SDRYG( 25, 55) = 0.360518E-01
+PKER_SDRYG( 25, 56) = 0.316174E-01
+PKER_SDRYG( 25, 57) = 0.279901E-01
+PKER_SDRYG( 25, 58) = 0.251116E-01
+PKER_SDRYG( 25, 59) = 0.229826E-01
+PKER_SDRYG( 25, 60) = 0.215081E-01
+PKER_SDRYG( 25, 61) = 0.206268E-01
+PKER_SDRYG( 25, 62) = 0.202780E-01
+PKER_SDRYG( 25, 63) = 0.204007E-01
+PKER_SDRYG( 25, 64) = 0.208961E-01
+PKER_SDRYG( 25, 65) = 0.217125E-01
+PKER_SDRYG( 25, 66) = 0.227907E-01
+PKER_SDRYG( 25, 67) = 0.240570E-01
+PKER_SDRYG( 25, 68) = 0.254690E-01
+PKER_SDRYG( 25, 69) = 0.269718E-01
+PKER_SDRYG( 25, 70) = 0.285356E-01
+PKER_SDRYG( 25, 71) = 0.301195E-01
+PKER_SDRYG( 25, 72) = 0.317052E-01
+PKER_SDRYG( 25, 73) = 0.332684E-01
+PKER_SDRYG( 25, 74) = 0.347939E-01
+PKER_SDRYG( 25, 75) = 0.362738E-01
+PKER_SDRYG( 25, 76) = 0.376983E-01
+PKER_SDRYG( 25, 77) = 0.390643E-01
+PKER_SDRYG( 25, 78) = 0.403681E-01
+PKER_SDRYG( 25, 79) = 0.416059E-01
+PKER_SDRYG( 25, 80) = 0.427760E-01
+PKER_SDRYG( 26, 1) = 0.312694E+01
+PKER_SDRYG( 26, 2) = 0.293443E+01
+PKER_SDRYG( 26, 3) = 0.275366E+01
+PKER_SDRYG( 26, 4) = 0.258392E+01
+PKER_SDRYG( 26, 5) = 0.242454E+01
+PKER_SDRYG( 26, 6) = 0.227488E+01
+PKER_SDRYG( 26, 7) = 0.213435E+01
+PKER_SDRYG( 26, 8) = 0.200240E+01
+PKER_SDRYG( 26, 9) = 0.187849E+01
+PKER_SDRYG( 26, 10) = 0.176215E+01
+PKER_SDRYG( 26, 11) = 0.165290E+01
+PKER_SDRYG( 26, 12) = 0.155031E+01
+PKER_SDRYG( 26, 13) = 0.145398E+01
+PKER_SDRYG( 26, 14) = 0.136353E+01
+PKER_SDRYG( 26, 15) = 0.127859E+01
+PKER_SDRYG( 26, 16) = 0.119883E+01
+PKER_SDRYG( 26, 17) = 0.112393E+01
+PKER_SDRYG( 26, 18) = 0.105359E+01
+PKER_SDRYG( 26, 19) = 0.987542E+00
+PKER_SDRYG( 26, 20) = 0.925511E+00
+PKER_SDRYG( 26, 21) = 0.867254E+00
+PKER_SDRYG( 26, 22) = 0.812537E+00
+PKER_SDRYG( 26, 23) = 0.761142E+00
+PKER_SDRYG( 26, 24) = 0.712863E+00
+PKER_SDRYG( 26, 25) = 0.667506E+00
+PKER_SDRYG( 26, 26) = 0.624887E+00
+PKER_SDRYG( 26, 27) = 0.584833E+00
+PKER_SDRYG( 26, 28) = 0.547180E+00
+PKER_SDRYG( 26, 29) = 0.511772E+00
+PKER_SDRYG( 26, 30) = 0.478460E+00
+PKER_SDRYG( 26, 31) = 0.447104E+00
+PKER_SDRYG( 26, 32) = 0.417566E+00
+PKER_SDRYG( 26, 33) = 0.389716E+00
+PKER_SDRYG( 26, 34) = 0.363424E+00
+PKER_SDRYG( 26, 35) = 0.338565E+00
+PKER_SDRYG( 26, 36) = 0.315018E+00
+PKER_SDRYG( 26, 37) = 0.292659E+00
+PKER_SDRYG( 26, 38) = 0.271372E+00
+PKER_SDRYG( 26, 39) = 0.251045E+00
+PKER_SDRYG( 26, 40) = 0.231574E+00
+PKER_SDRYG( 26, 41) = 0.212879E+00
+PKER_SDRYG( 26, 42) = 0.194903E+00
+PKER_SDRYG( 26, 43) = 0.177633E+00
+PKER_SDRYG( 26, 44) = 0.161095E+00
+PKER_SDRYG( 26, 45) = 0.145360E+00
+PKER_SDRYG( 26, 46) = 0.130519E+00
+PKER_SDRYG( 26, 47) = 0.116666E+00
+PKER_SDRYG( 26, 48) = 0.103866E+00
+PKER_SDRYG( 26, 49) = 0.921482E-01
+PKER_SDRYG( 26, 50) = 0.814979E-01
+PKER_SDRYG( 26, 51) = 0.718712E-01
+PKER_SDRYG( 26, 52) = 0.632052E-01
+PKER_SDRYG( 26, 53) = 0.554342E-01
+PKER_SDRYG( 26, 54) = 0.484997E-01
+PKER_SDRYG( 26, 55) = 0.423584E-01
+PKER_SDRYG( 26, 56) = 0.369623E-01
+PKER_SDRYG( 26, 57) = 0.322885E-01
+PKER_SDRYG( 26, 58) = 0.283154E-01
+PKER_SDRYG( 26, 59) = 0.250077E-01
+PKER_SDRYG( 26, 60) = 0.223595E-01
+PKER_SDRYG( 26, 61) = 0.203223E-01
+PKER_SDRYG( 26, 62) = 0.188304E-01
+PKER_SDRYG( 26, 63) = 0.178989E-01
+PKER_SDRYG( 26, 64) = 0.174069E-01
+PKER_SDRYG( 26, 65) = 0.173438E-01
+PKER_SDRYG( 26, 66) = 0.176393E-01
+PKER_SDRYG( 26, 67) = 0.182225E-01
+PKER_SDRYG( 26, 68) = 0.190509E-01
+PKER_SDRYG( 26, 69) = 0.200644E-01
+PKER_SDRYG( 26, 70) = 0.212177E-01
+PKER_SDRYG( 26, 71) = 0.224723E-01
+PKER_SDRYG( 26, 72) = 0.237862E-01
+PKER_SDRYG( 26, 73) = 0.251344E-01
+PKER_SDRYG( 26, 74) = 0.264927E-01
+PKER_SDRYG( 26, 75) = 0.278385E-01
+PKER_SDRYG( 26, 76) = 0.291602E-01
+PKER_SDRYG( 26, 77) = 0.304461E-01
+PKER_SDRYG( 26, 78) = 0.316870E-01
+PKER_SDRYG( 26, 79) = 0.328792E-01
+PKER_SDRYG( 26, 80) = 0.340205E-01
+PKER_SDRYG( 27, 1) = 0.313101E+01
+PKER_SDRYG( 27, 2) = 0.293850E+01
+PKER_SDRYG( 27, 3) = 0.275773E+01
+PKER_SDRYG( 27, 4) = 0.258799E+01
+PKER_SDRYG( 27, 5) = 0.242861E+01
+PKER_SDRYG( 27, 6) = 0.227895E+01
+PKER_SDRYG( 27, 7) = 0.213842E+01
+PKER_SDRYG( 27, 8) = 0.200647E+01
+PKER_SDRYG( 27, 9) = 0.188257E+01
+PKER_SDRYG( 27, 10) = 0.176622E+01
+PKER_SDRYG( 27, 11) = 0.165697E+01
+PKER_SDRYG( 27, 12) = 0.155439E+01
+PKER_SDRYG( 27, 13) = 0.145807E+01
+PKER_SDRYG( 27, 14) = 0.136761E+01
+PKER_SDRYG( 27, 15) = 0.128268E+01
+PKER_SDRYG( 27, 16) = 0.120292E+01
+PKER_SDRYG( 27, 17) = 0.112803E+01
+PKER_SDRYG( 27, 18) = 0.105770E+01
+PKER_SDRYG( 27, 19) = 0.991658E+00
+PKER_SDRYG( 27, 20) = 0.929637E+00
+PKER_SDRYG( 27, 21) = 0.871391E+00
+PKER_SDRYG( 27, 22) = 0.816689E+00
+PKER_SDRYG( 27, 23) = 0.765313E+00
+PKER_SDRYG( 27, 24) = 0.717055E+00
+PKER_SDRYG( 27, 25) = 0.671724E+00
+PKER_SDRYG( 27, 26) = 0.629137E+00
+PKER_SDRYG( 27, 27) = 0.589122E+00
+PKER_SDRYG( 27, 28) = 0.551516E+00
+PKER_SDRYG( 27, 29) = 0.516166E+00
+PKER_SDRYG( 27, 30) = 0.482925E+00
+PKER_SDRYG( 27, 31) = 0.451654E+00
+PKER_SDRYG( 27, 32) = 0.422222E+00
+PKER_SDRYG( 27, 33) = 0.394499E+00
+PKER_SDRYG( 27, 34) = 0.368365E+00
+PKER_SDRYG( 27, 35) = 0.343698E+00
+PKER_SDRYG( 27, 36) = 0.320383E+00
+PKER_SDRYG( 27, 37) = 0.298305E+00
+PKER_SDRYG( 27, 38) = 0.277352E+00
+PKER_SDRYG( 27, 39) = 0.257415E+00
+PKER_SDRYG( 27, 40) = 0.238391E+00
+PKER_SDRYG( 27, 41) = 0.220186E+00
+PKER_SDRYG( 27, 42) = 0.202722E+00
+PKER_SDRYG( 27, 43) = 0.185950E+00
+PKER_SDRYG( 27, 44) = 0.169854E+00
+PKER_SDRYG( 27, 45) = 0.154458E+00
+PKER_SDRYG( 27, 46) = 0.139820E+00
+PKER_SDRYG( 27, 47) = 0.126022E+00
+PKER_SDRYG( 27, 48) = 0.113143E+00
+PKER_SDRYG( 27, 49) = 0.101238E+00
+PKER_SDRYG( 27, 50) = 0.903254E-01
+PKER_SDRYG( 27, 51) = 0.803854E-01
+PKER_SDRYG( 27, 52) = 0.713689E-01
+PKER_SDRYG( 27, 53) = 0.632101E-01
+PKER_SDRYG( 27, 54) = 0.558396E-01
+PKER_SDRYG( 27, 55) = 0.491953E-01
+PKER_SDRYG( 27, 56) = 0.432272E-01
+PKER_SDRYG( 27, 57) = 0.378924E-01
+PKER_SDRYG( 27, 58) = 0.331656E-01
+PKER_SDRYG( 27, 59) = 0.290311E-01
+PKER_SDRYG( 27, 60) = 0.254617E-01
+PKER_SDRYG( 27, 61) = 0.224578E-01
+PKER_SDRYG( 27, 62) = 0.199937E-01
+PKER_SDRYG( 27, 63) = 0.180372E-01
+PKER_SDRYG( 27, 64) = 0.165903E-01
+PKER_SDRYG( 27, 65) = 0.155977E-01
+PKER_SDRYG( 27, 66) = 0.150213E-01
+PKER_SDRYG( 27, 67) = 0.148130E-01
+PKER_SDRYG( 27, 68) = 0.149387E-01
+PKER_SDRYG( 27, 69) = 0.153282E-01
+PKER_SDRYG( 27, 70) = 0.159403E-01
+PKER_SDRYG( 27, 71) = 0.167423E-01
+PKER_SDRYG( 27, 72) = 0.176783E-01
+PKER_SDRYG( 27, 73) = 0.187141E-01
+PKER_SDRYG( 27, 74) = 0.198160E-01
+PKER_SDRYG( 27, 75) = 0.209625E-01
+PKER_SDRYG( 27, 76) = 0.221197E-01
+PKER_SDRYG( 27, 77) = 0.232789E-01
+PKER_SDRYG( 27, 78) = 0.244211E-01
+PKER_SDRYG( 27, 79) = 0.255350E-01
+PKER_SDRYG( 27, 80) = 0.266159E-01
+PKER_SDRYG( 28, 1) = 0.313449E+01
+PKER_SDRYG( 28, 2) = 0.294198E+01
+PKER_SDRYG( 28, 3) = 0.276121E+01
+PKER_SDRYG( 28, 4) = 0.259147E+01
+PKER_SDRYG( 28, 5) = 0.243209E+01
+PKER_SDRYG( 28, 6) = 0.228243E+01
+PKER_SDRYG( 28, 7) = 0.214191E+01
+PKER_SDRYG( 28, 8) = 0.200995E+01
+PKER_SDRYG( 28, 9) = 0.188605E+01
+PKER_SDRYG( 28, 10) = 0.176971E+01
+PKER_SDRYG( 28, 11) = 0.166046E+01
+PKER_SDRYG( 28, 12) = 0.155788E+01
+PKER_SDRYG( 28, 13) = 0.146156E+01
+PKER_SDRYG( 28, 14) = 0.137111E+01
+PKER_SDRYG( 28, 15) = 0.128618E+01
+PKER_SDRYG( 28, 16) = 0.120643E+01
+PKER_SDRYG( 28, 17) = 0.113154E+01
+PKER_SDRYG( 28, 18) = 0.106121E+01
+PKER_SDRYG( 28, 19) = 0.995175E+00
+PKER_SDRYG( 28, 20) = 0.933162E+00
+PKER_SDRYG( 28, 21) = 0.874925E+00
+PKER_SDRYG( 28, 22) = 0.820234E+00
+PKER_SDRYG( 28, 23) = 0.768871E+00
+PKER_SDRYG( 28, 24) = 0.720630E+00
+PKER_SDRYG( 28, 25) = 0.675319E+00
+PKER_SDRYG( 28, 26) = 0.632756E+00
+PKER_SDRYG( 28, 27) = 0.592769E+00
+PKER_SDRYG( 28, 28) = 0.555199E+00
+PKER_SDRYG( 28, 29) = 0.519891E+00
+PKER_SDRYG( 28, 30) = 0.486702E+00
+PKER_SDRYG( 28, 31) = 0.455495E+00
+PKER_SDRYG( 28, 32) = 0.426139E+00
+PKER_SDRYG( 28, 33) = 0.398512E+00
+PKER_SDRYG( 28, 34) = 0.372492E+00
+PKER_SDRYG( 28, 35) = 0.347966E+00
+PKER_SDRYG( 28, 36) = 0.324823E+00
+PKER_SDRYG( 28, 37) = 0.302953E+00
+PKER_SDRYG( 28, 38) = 0.282250E+00
+PKER_SDRYG( 28, 39) = 0.262611E+00
+PKER_SDRYG( 28, 40) = 0.243935E+00
+PKER_SDRYG( 28, 41) = 0.226126E+00
+PKER_SDRYG( 28, 42) = 0.209097E+00
+PKER_SDRYG( 28, 43) = 0.192777E+00
+PKER_SDRYG( 28, 44) = 0.177120E+00
+PKER_SDRYG( 28, 45) = 0.162110E+00
+PKER_SDRYG( 28, 46) = 0.147766E+00
+PKER_SDRYG( 28, 47) = 0.134140E+00
+PKER_SDRYG( 28, 48) = 0.121302E+00
+PKER_SDRYG( 28, 49) = 0.109322E+00
+PKER_SDRYG( 28, 50) = 0.982464E-01
+PKER_SDRYG( 28, 51) = 0.880870E-01
+PKER_SDRYG( 28, 52) = 0.788209E-01
+PKER_SDRYG( 28, 53) = 0.703976E-01
+PKER_SDRYG( 28, 54) = 0.627508E-01
+PKER_SDRYG( 28, 55) = 0.558103E-01
+PKER_SDRYG( 28, 56) = 0.495129E-01
+PKER_SDRYG( 28, 57) = 0.438028E-01
+PKER_SDRYG( 28, 58) = 0.386362E-01
+PKER_SDRYG( 28, 59) = 0.339854E-01
+PKER_SDRYG( 28, 60) = 0.298313E-01
+PKER_SDRYG( 28, 61) = 0.261519E-01
+PKER_SDRYG( 28, 62) = 0.229499E-01
+PKER_SDRYG( 28, 63) = 0.202149E-01
+PKER_SDRYG( 28, 64) = 0.179260E-01
+PKER_SDRYG( 28, 65) = 0.160947E-01
+PKER_SDRYG( 28, 66) = 0.146898E-01
+PKER_SDRYG( 28, 67) = 0.136599E-01
+PKER_SDRYG( 28, 68) = 0.130306E-01
+PKER_SDRYG( 28, 69) = 0.127078E-01
+PKER_SDRYG( 28, 70) = 0.126904E-01
+PKER_SDRYG( 28, 71) = 0.129286E-01
+PKER_SDRYG( 28, 72) = 0.133730E-01
+PKER_SDRYG( 28, 73) = 0.139895E-01
+PKER_SDRYG( 28, 74) = 0.147384E-01
+PKER_SDRYG( 28, 75) = 0.155886E-01
+PKER_SDRYG( 28, 76) = 0.165083E-01
+PKER_SDRYG( 28, 77) = 0.174717E-01
+PKER_SDRYG( 28, 78) = 0.184586E-01
+PKER_SDRYG( 28, 79) = 0.194515E-01
+PKER_SDRYG( 28, 80) = 0.204357E-01
+PKER_SDRYG( 29, 1) = 0.313747E+01
+PKER_SDRYG( 29, 2) = 0.294496E+01
+PKER_SDRYG( 29, 3) = 0.276419E+01
+PKER_SDRYG( 29, 4) = 0.259445E+01
+PKER_SDRYG( 29, 5) = 0.243507E+01
+PKER_SDRYG( 29, 6) = 0.228541E+01
+PKER_SDRYG( 29, 7) = 0.214489E+01
+PKER_SDRYG( 29, 8) = 0.201293E+01
+PKER_SDRYG( 29, 9) = 0.188903E+01
+PKER_SDRYG( 29, 10) = 0.177269E+01
+PKER_SDRYG( 29, 11) = 0.166345E+01
+PKER_SDRYG( 29, 12) = 0.156087E+01
+PKER_SDRYG( 29, 13) = 0.146454E+01
+PKER_SDRYG( 29, 14) = 0.137410E+01
+PKER_SDRYG( 29, 15) = 0.128917E+01
+PKER_SDRYG( 29, 16) = 0.120942E+01
+PKER_SDRYG( 29, 17) = 0.113453E+01
+PKER_SDRYG( 29, 18) = 0.106421E+01
+PKER_SDRYG( 29, 19) = 0.998181E+00
+PKER_SDRYG( 29, 20) = 0.936174E+00
+PKER_SDRYG( 29, 21) = 0.877944E+00
+PKER_SDRYG( 29, 22) = 0.823262E+00
+PKER_SDRYG( 29, 23) = 0.771909E+00
+PKER_SDRYG( 29, 24) = 0.723680E+00
+PKER_SDRYG( 29, 25) = 0.678384E+00
+PKER_SDRYG( 29, 26) = 0.635838E+00
+PKER_SDRYG( 29, 27) = 0.595874E+00
+PKER_SDRYG( 29, 28) = 0.558329E+00
+PKER_SDRYG( 29, 29) = 0.523053E+00
+PKER_SDRYG( 29, 30) = 0.489903E+00
+PKER_SDRYG( 29, 31) = 0.458743E+00
+PKER_SDRYG( 29, 32) = 0.429445E+00
+PKER_SDRYG( 29, 33) = 0.401887E+00
+PKER_SDRYG( 29, 34) = 0.375952E+00
+PKER_SDRYG( 29, 35) = 0.351530E+00
+PKER_SDRYG( 29, 36) = 0.328513E+00
+PKER_SDRYG( 29, 37) = 0.306797E+00
+PKER_SDRYG( 29, 38) = 0.286281E+00
+PKER_SDRYG( 29, 39) = 0.266866E+00
+PKER_SDRYG( 29, 40) = 0.248456E+00
+PKER_SDRYG( 29, 41) = 0.230957E+00
+PKER_SDRYG( 29, 42) = 0.214280E+00
+PKER_SDRYG( 29, 43) = 0.198346E+00
+PKER_SDRYG( 29, 44) = 0.183090E+00
+PKER_SDRYG( 29, 45) = 0.168466E+00
+PKER_SDRYG( 29, 46) = 0.154460E+00
+PKER_SDRYG( 29, 47) = 0.141088E+00
+PKER_SDRYG( 29, 48) = 0.128395E+00
+PKER_SDRYG( 29, 49) = 0.116443E+00
+PKER_SDRYG( 29, 50) = 0.105292E+00
+PKER_SDRYG( 29, 51) = 0.949826E-01
+PKER_SDRYG( 29, 52) = 0.855219E-01
+PKER_SDRYG( 29, 53) = 0.768860E-01
+PKER_SDRYG( 29, 54) = 0.690252E-01
+PKER_SDRYG( 29, 55) = 0.618752E-01
+PKER_SDRYG( 29, 56) = 0.553676E-01
+PKER_SDRYG( 29, 57) = 0.494383E-01
+PKER_SDRYG( 29, 58) = 0.440308E-01
+PKER_SDRYG( 29, 59) = 0.391006E-01
+PKER_SDRYG( 29, 60) = 0.346133E-01
+PKER_SDRYG( 29, 61) = 0.305457E-01
+PKER_SDRYG( 29, 62) = 0.268814E-01
+PKER_SDRYG( 29, 63) = 0.236136E-01
+PKER_SDRYG( 29, 64) = 0.207396E-01
+PKER_SDRYG( 29, 65) = 0.182488E-01
+PKER_SDRYG( 29, 66) = 0.161470E-01
+PKER_SDRYG( 29, 67) = 0.144221E-01
+PKER_SDRYG( 29, 68) = 0.130541E-01
+PKER_SDRYG( 29, 69) = 0.120420E-01
+PKER_SDRYG( 29, 70) = 0.113535E-01
+PKER_SDRYG( 29, 71) = 0.109639E-01
+PKER_SDRYG( 29, 72) = 0.108336E-01
+PKER_SDRYG( 29, 73) = 0.109439E-01
+PKER_SDRYG( 29, 74) = 0.112436E-01
+PKER_SDRYG( 29, 75) = 0.116990E-01
+PKER_SDRYG( 29, 76) = 0.122946E-01
+PKER_SDRYG( 29, 77) = 0.129851E-01
+PKER_SDRYG( 29, 78) = 0.137450E-01
+PKER_SDRYG( 29, 79) = 0.145540E-01
+PKER_SDRYG( 29, 80) = 0.153942E-01
+PKER_SDRYG( 30, 1) = 0.314002E+01
+PKER_SDRYG( 30, 2) = 0.294750E+01
+PKER_SDRYG( 30, 3) = 0.276674E+01
+PKER_SDRYG( 30, 4) = 0.259700E+01
+PKER_SDRYG( 30, 5) = 0.243762E+01
+PKER_SDRYG( 30, 6) = 0.228796E+01
+PKER_SDRYG( 30, 7) = 0.214744E+01
+PKER_SDRYG( 30, 8) = 0.201548E+01
+PKER_SDRYG( 30, 9) = 0.189158E+01
+PKER_SDRYG( 30, 10) = 0.177524E+01
+PKER_SDRYG( 30, 11) = 0.166600E+01
+PKER_SDRYG( 30, 12) = 0.156342E+01
+PKER_SDRYG( 30, 13) = 0.146710E+01
+PKER_SDRYG( 30, 14) = 0.137665E+01
+PKER_SDRYG( 30, 15) = 0.129173E+01
+PKER_SDRYG( 30, 16) = 0.121198E+01
+PKER_SDRYG( 30, 17) = 0.113710E+01
+PKER_SDRYG( 30, 18) = 0.106678E+01
+PKER_SDRYG( 30, 19) = 0.100075E+01
+PKER_SDRYG( 30, 20) = 0.938748E+00
+PKER_SDRYG( 30, 21) = 0.880524E+00
+PKER_SDRYG( 30, 22) = 0.825848E+00
+PKER_SDRYG( 30, 23) = 0.774502E+00
+PKER_SDRYG( 30, 24) = 0.726283E+00
+PKER_SDRYG( 30, 25) = 0.680998E+00
+PKER_SDRYG( 30, 26) = 0.638466E+00
+PKER_SDRYG( 30, 27) = 0.598518E+00
+PKER_SDRYG( 30, 28) = 0.560993E+00
+PKER_SDRYG( 30, 29) = 0.525741E+00
+PKER_SDRYG( 30, 30) = 0.492619E+00
+PKER_SDRYG( 30, 31) = 0.461494E+00
+PKER_SDRYG( 30, 32) = 0.432239E+00
+PKER_SDRYG( 30, 33) = 0.404733E+00
+PKER_SDRYG( 30, 34) = 0.378861E+00
+PKER_SDRYG( 30, 35) = 0.354516E+00
+PKER_SDRYG( 30, 36) = 0.331593E+00
+PKER_SDRYG( 30, 37) = 0.309990E+00
+PKER_SDRYG( 30, 38) = 0.289613E+00
+PKER_SDRYG( 30, 39) = 0.270365E+00
+PKER_SDRYG( 30, 40) = 0.252155E+00
+PKER_SDRYG( 30, 41) = 0.234894E+00
+PKER_SDRYG( 30, 42) = 0.218495E+00
+PKER_SDRYG( 30, 43) = 0.202876E+00
+PKER_SDRYG( 30, 44) = 0.187963E+00
+PKER_SDRYG( 30, 45) = 0.173695E+00
+PKER_SDRYG( 30, 46) = 0.160030E+00
+PKER_SDRYG( 30, 47) = 0.146955E+00
+PKER_SDRYG( 30, 48) = 0.134481E+00
+PKER_SDRYG( 30, 49) = 0.122650E+00
+PKER_SDRYG( 30, 50) = 0.111515E+00
+PKER_SDRYG( 30, 51) = 0.101129E+00
+PKER_SDRYG( 30, 52) = 0.915257E-01
+PKER_SDRYG( 30, 53) = 0.827114E-01
+PKER_SDRYG( 30, 54) = 0.746610E-01
+PKER_SDRYG( 30, 55) = 0.673269E-01
+PKER_SDRYG( 30, 56) = 0.606477E-01
+PKER_SDRYG( 30, 57) = 0.545580E-01
+PKER_SDRYG( 30, 58) = 0.489958E-01
+PKER_SDRYG( 30, 59) = 0.439055E-01
+PKER_SDRYG( 30, 60) = 0.392404E-01
+PKER_SDRYG( 30, 61) = 0.349660E-01
+PKER_SDRYG( 30, 62) = 0.310541E-01
+PKER_SDRYG( 30, 63) = 0.274846E-01
+PKER_SDRYG( 30, 64) = 0.242506E-01
+PKER_SDRYG( 30, 65) = 0.213448E-01
+PKER_SDRYG( 30, 66) = 0.187586E-01
+PKER_SDRYG( 30, 67) = 0.165035E-01
+PKER_SDRYG( 30, 68) = 0.145721E-01
+PKER_SDRYG( 30, 69) = 0.129515E-01
+PKER_SDRYG( 30, 70) = 0.116577E-01
+PKER_SDRYG( 30, 71) = 0.106667E-01
+PKER_SDRYG( 30, 72) = 0.994280E-02
+PKER_SDRYG( 30, 73) = 0.950649E-02
+PKER_SDRYG( 30, 74) = 0.928866E-02
+PKER_SDRYG( 30, 75) = 0.929150E-02
+PKER_SDRYG( 30, 76) = 0.947736E-02
+PKER_SDRYG( 30, 77) = 0.981262E-02
+PKER_SDRYG( 30, 78) = 0.102704E-01
+PKER_SDRYG( 30, 79) = 0.108228E-01
+PKER_SDRYG( 30, 80) = 0.114493E-01
+PKER_SDRYG( 31, 1) = 0.314220E+01
+PKER_SDRYG( 31, 2) = 0.294968E+01
+PKER_SDRYG( 31, 3) = 0.276892E+01
+PKER_SDRYG( 31, 4) = 0.259918E+01
+PKER_SDRYG( 31, 5) = 0.243980E+01
+PKER_SDRYG( 31, 6) = 0.229014E+01
+PKER_SDRYG( 31, 7) = 0.214962E+01
+PKER_SDRYG( 31, 8) = 0.201767E+01
+PKER_SDRYG( 31, 9) = 0.189377E+01
+PKER_SDRYG( 31, 10) = 0.177743E+01
+PKER_SDRYG( 31, 11) = 0.166818E+01
+PKER_SDRYG( 31, 12) = 0.156560E+01
+PKER_SDRYG( 31, 13) = 0.146928E+01
+PKER_SDRYG( 31, 14) = 0.137884E+01
+PKER_SDRYG( 31, 15) = 0.129391E+01
+PKER_SDRYG( 31, 16) = 0.121417E+01
+PKER_SDRYG( 31, 17) = 0.113929E+01
+PKER_SDRYG( 31, 18) = 0.106897E+01
+PKER_SDRYG( 31, 19) = 0.100295E+01
+PKER_SDRYG( 31, 20) = 0.940948E+00
+PKER_SDRYG( 31, 21) = 0.882728E+00
+PKER_SDRYG( 31, 22) = 0.828057E+00
+PKER_SDRYG( 31, 23) = 0.776718E+00
+PKER_SDRYG( 31, 24) = 0.728505E+00
+PKER_SDRYG( 31, 25) = 0.683229E+00
+PKER_SDRYG( 31, 26) = 0.640707E+00
+PKER_SDRYG( 31, 27) = 0.600771E+00
+PKER_SDRYG( 31, 28) = 0.563261E+00
+PKER_SDRYG( 31, 29) = 0.528027E+00
+PKER_SDRYG( 31, 30) = 0.494928E+00
+PKER_SDRYG( 31, 31) = 0.463829E+00
+PKER_SDRYG( 31, 32) = 0.434605E+00
+PKER_SDRYG( 31, 33) = 0.407138E+00
+PKER_SDRYG( 31, 34) = 0.381314E+00
+PKER_SDRYG( 31, 35) = 0.357025E+00
+PKER_SDRYG( 31, 36) = 0.334171E+00
+PKER_SDRYG( 31, 37) = 0.312654E+00
+PKER_SDRYG( 31, 38) = 0.292379E+00
+PKER_SDRYG( 31, 39) = 0.273255E+00
+PKER_SDRYG( 31, 40) = 0.255196E+00
+PKER_SDRYG( 31, 41) = 0.238116E+00
+PKER_SDRYG( 31, 42) = 0.221930E+00
+PKER_SDRYG( 31, 43) = 0.206560E+00
+PKER_SDRYG( 31, 44) = 0.191928E+00
+PKER_SDRYG( 31, 45) = 0.177966E+00
+PKER_SDRYG( 31, 46) = 0.164617E+00
+PKER_SDRYG( 31, 47) = 0.151844E+00
+PKER_SDRYG( 31, 48) = 0.139631E+00
+PKER_SDRYG( 31, 49) = 0.127989E+00
+PKER_SDRYG( 31, 50) = 0.116954E+00
+PKER_SDRYG( 31, 51) = 0.106573E+00
+PKER_SDRYG( 31, 52) = 0.968931E-01
+PKER_SDRYG( 31, 53) = 0.879432E-01
+PKER_SDRYG( 31, 54) = 0.797263E-01
+PKER_SDRYG( 31, 55) = 0.722185E-01
+PKER_SDRYG( 31, 56) = 0.653743E-01
+PKER_SDRYG( 31, 57) = 0.591361E-01
+PKER_SDRYG( 31, 58) = 0.534422E-01
+PKER_SDRYG( 31, 59) = 0.482336E-01
+PKER_SDRYG( 31, 60) = 0.434570E-01
+PKER_SDRYG( 31, 61) = 0.390673E-01
+PKER_SDRYG( 31, 62) = 0.350274E-01
+PKER_SDRYG( 31, 63) = 0.313081E-01
+PKER_SDRYG( 31, 64) = 0.278888E-01
+PKER_SDRYG( 31, 65) = 0.247544E-01
+PKER_SDRYG( 31, 66) = 0.218960E-01
+PKER_SDRYG( 31, 67) = 0.193088E-01
+PKER_SDRYG( 31, 68) = 0.169937E-01
+PKER_SDRYG( 31, 69) = 0.149516E-01
+PKER_SDRYG( 31, 70) = 0.131790E-01
+PKER_SDRYG( 31, 71) = 0.116819E-01
+PKER_SDRYG( 31, 72) = 0.104551E-01
+PKER_SDRYG( 31, 73) = 0.948321E-02
+PKER_SDRYG( 31, 74) = 0.876425E-02
+PKER_SDRYG( 31, 75) = 0.827997E-02
+PKER_SDRYG( 31, 76) = 0.801127E-02
+PKER_SDRYG( 31, 77) = 0.792771E-02
+PKER_SDRYG( 31, 78) = 0.801896E-02
+PKER_SDRYG( 31, 79) = 0.824709E-02
+PKER_SDRYG( 31, 80) = 0.858541E-02
+PKER_SDRYG( 32, 1) = 0.314406E+01
+PKER_SDRYG( 32, 2) = 0.295155E+01
+PKER_SDRYG( 32, 3) = 0.277078E+01
+PKER_SDRYG( 32, 4) = 0.260105E+01
+PKER_SDRYG( 32, 5) = 0.244167E+01
+PKER_SDRYG( 32, 6) = 0.229201E+01
+PKER_SDRYG( 32, 7) = 0.215148E+01
+PKER_SDRYG( 32, 8) = 0.201953E+01
+PKER_SDRYG( 32, 9) = 0.189563E+01
+PKER_SDRYG( 32, 10) = 0.177929E+01
+PKER_SDRYG( 32, 11) = 0.167005E+01
+PKER_SDRYG( 32, 12) = 0.156747E+01
+PKER_SDRYG( 32, 13) = 0.147115E+01
+PKER_SDRYG( 32, 14) = 0.138071E+01
+PKER_SDRYG( 32, 15) = 0.129579E+01
+PKER_SDRYG( 32, 16) = 0.121604E+01
+PKER_SDRYG( 32, 17) = 0.114116E+01
+PKER_SDRYG( 32, 18) = 0.107085E+01
+PKER_SDRYG( 32, 19) = 0.100483E+01
+PKER_SDRYG( 32, 20) = 0.942829E+00
+PKER_SDRYG( 32, 21) = 0.884612E+00
+PKER_SDRYG( 32, 22) = 0.829945E+00
+PKER_SDRYG( 32, 23) = 0.778610E+00
+PKER_SDRYG( 32, 24) = 0.730403E+00
+PKER_SDRYG( 32, 25) = 0.685133E+00
+PKER_SDRYG( 32, 26) = 0.642619E+00
+PKER_SDRYG( 32, 27) = 0.602693E+00
+PKER_SDRYG( 32, 28) = 0.565194E+00
+PKER_SDRYG( 32, 29) = 0.529974E+00
+PKER_SDRYG( 32, 30) = 0.496891E+00
+PKER_SDRYG( 32, 31) = 0.465812E+00
+PKER_SDRYG( 32, 32) = 0.436612E+00
+PKER_SDRYG( 32, 33) = 0.409174E+00
+PKER_SDRYG( 32, 34) = 0.383385E+00
+PKER_SDRYG( 32, 35) = 0.359139E+00
+PKER_SDRYG( 32, 36) = 0.336337E+00
+PKER_SDRYG( 32, 37) = 0.314882E+00
+PKER_SDRYG( 32, 38) = 0.294684E+00
+PKER_SDRYG( 32, 39) = 0.275654E+00
+PKER_SDRYG( 32, 40) = 0.257707E+00
+PKER_SDRYG( 32, 41) = 0.240762E+00
+PKER_SDRYG( 32, 42) = 0.224739E+00
+PKER_SDRYG( 32, 43) = 0.209560E+00
+PKER_SDRYG( 32, 44) = 0.195151E+00
+PKER_SDRYG( 32, 45) = 0.181441E+00
+PKER_SDRYG( 32, 46) = 0.168366E+00
+PKER_SDRYG( 32, 47) = 0.155875E+00
+PKER_SDRYG( 32, 48) = 0.143930E+00
+PKER_SDRYG( 32, 49) = 0.132518E+00
+PKER_SDRYG( 32, 50) = 0.121647E+00
+PKER_SDRYG( 32, 51) = 0.111348E+00
+PKER_SDRYG( 32, 52) = 0.101665E+00
+PKER_SDRYG( 32, 53) = 0.926375E-01
+PKER_SDRYG( 32, 54) = 0.842909E-01
+PKER_SDRYG( 32, 55) = 0.766266E-01
+PKER_SDRYG( 32, 56) = 0.696211E-01
+PKER_SDRYG( 32, 57) = 0.632317E-01
+PKER_SDRYG( 32, 58) = 0.574042E-01
+PKER_SDRYG( 32, 59) = 0.520813E-01
+PKER_SDRYG( 32, 60) = 0.472072E-01
+PKER_SDRYG( 32, 61) = 0.427319E-01
+PKER_SDRYG( 32, 62) = 0.386118E-01
+PKER_SDRYG( 32, 63) = 0.348110E-01
+PKER_SDRYG( 32, 64) = 0.312996E-01
+PKER_SDRYG( 32, 65) = 0.280543E-01
+PKER_SDRYG( 32, 66) = 0.250591E-01
+PKER_SDRYG( 32, 67) = 0.223013E-01
+PKER_SDRYG( 32, 68) = 0.197725E-01
+PKER_SDRYG( 32, 69) = 0.174730E-01
+PKER_SDRYG( 32, 70) = 0.154004E-01
+PKER_SDRYG( 32, 71) = 0.135520E-01
+PKER_SDRYG( 32, 72) = 0.119388E-01
+PKER_SDRYG( 32, 73) = 0.105563E-01
+PKER_SDRYG( 32, 74) = 0.939655E-02
+PKER_SDRYG( 32, 75) = 0.846973E-02
+PKER_SDRYG( 32, 76) = 0.776301E-02
+PKER_SDRYG( 32, 77) = 0.725013E-02
+PKER_SDRYG( 32, 78) = 0.694243E-02
+PKER_SDRYG( 32, 79) = 0.679372E-02
+PKER_SDRYG( 32, 80) = 0.680548E-02
+PKER_SDRYG( 33, 1) = 0.314566E+01
+PKER_SDRYG( 33, 2) = 0.295315E+01
+PKER_SDRYG( 33, 3) = 0.277238E+01
+PKER_SDRYG( 33, 4) = 0.260264E+01
+PKER_SDRYG( 33, 5) = 0.244326E+01
+PKER_SDRYG( 33, 6) = 0.229361E+01
+PKER_SDRYG( 33, 7) = 0.215308E+01
+PKER_SDRYG( 33, 8) = 0.202113E+01
+PKER_SDRYG( 33, 9) = 0.189723E+01
+PKER_SDRYG( 33, 10) = 0.178089E+01
+PKER_SDRYG( 33, 11) = 0.167165E+01
+PKER_SDRYG( 33, 12) = 0.156907E+01
+PKER_SDRYG( 33, 13) = 0.147275E+01
+PKER_SDRYG( 33, 14) = 0.138231E+01
+PKER_SDRYG( 33, 15) = 0.129739E+01
+PKER_SDRYG( 33, 16) = 0.121764E+01
+PKER_SDRYG( 33, 17) = 0.114277E+01
+PKER_SDRYG( 33, 18) = 0.107245E+01
+PKER_SDRYG( 33, 19) = 0.100643E+01
+PKER_SDRYG( 33, 20) = 0.944437E+00
+PKER_SDRYG( 33, 21) = 0.886223E+00
+PKER_SDRYG( 33, 22) = 0.831559E+00
+PKER_SDRYG( 33, 23) = 0.780227E+00
+PKER_SDRYG( 33, 24) = 0.732025E+00
+PKER_SDRYG( 33, 25) = 0.686759E+00
+PKER_SDRYG( 33, 26) = 0.644252E+00
+PKER_SDRYG( 33, 27) = 0.604332E+00
+PKER_SDRYG( 33, 28) = 0.566842E+00
+PKER_SDRYG( 33, 29) = 0.531632E+00
+PKER_SDRYG( 33, 30) = 0.498562E+00
+PKER_SDRYG( 33, 31) = 0.467498E+00
+PKER_SDRYG( 33, 32) = 0.438317E+00
+PKER_SDRYG( 33, 33) = 0.410900E+00
+PKER_SDRYG( 33, 34) = 0.385137E+00
+PKER_SDRYG( 33, 35) = 0.360924E+00
+PKER_SDRYG( 33, 36) = 0.338161E+00
+PKER_SDRYG( 33, 37) = 0.316753E+00
+PKER_SDRYG( 33, 38) = 0.296612E+00
+PKER_SDRYG( 33, 39) = 0.277651E+00
+PKER_SDRYG( 33, 40) = 0.259788E+00
+PKER_SDRYG( 33, 41) = 0.242945E+00
+PKER_SDRYG( 33, 42) = 0.227045E+00
+PKER_SDRYG( 33, 43) = 0.212013E+00
+PKER_SDRYG( 33, 44) = 0.197777E+00
+PKER_SDRYG( 33, 45) = 0.184267E+00
+PKER_SDRYG( 33, 46) = 0.171418E+00
+PKER_SDRYG( 33, 47) = 0.159172E+00
+PKER_SDRYG( 33, 48) = 0.147479E+00
+PKER_SDRYG( 33, 49) = 0.136305E+00
+PKER_SDRYG( 33, 50) = 0.125636E+00
+PKER_SDRYG( 33, 51) = 0.115480E+00
+PKER_SDRYG( 33, 52) = 0.105865E+00
+PKER_SDRYG( 33, 53) = 0.968269E-01
+PKER_SDRYG( 33, 54) = 0.884030E-01
+PKER_SDRYG( 33, 55) = 0.806146E-01
+PKER_SDRYG( 33, 56) = 0.734617E-01
+PKER_SDRYG( 33, 57) = 0.669216E-01
+PKER_SDRYG( 33, 58) = 0.609541E-01
+PKER_SDRYG( 33, 59) = 0.555086E-01
+PKER_SDRYG( 33, 60) = 0.505315E-01
+PKER_SDRYG( 33, 61) = 0.459711E-01
+PKER_SDRYG( 33, 62) = 0.417804E-01
+PKER_SDRYG( 33, 63) = 0.379185E-01
+PKER_SDRYG( 33, 64) = 0.343507E-01
+PKER_SDRYG( 33, 65) = 0.310480E-01
+PKER_SDRYG( 33, 66) = 0.279873E-01
+PKER_SDRYG( 33, 67) = 0.251500E-01
+PKER_SDRYG( 33, 68) = 0.225217E-01
+PKER_SDRYG( 33, 69) = 0.200934E-01
+PKER_SDRYG( 33, 70) = 0.178587E-01
+PKER_SDRYG( 33, 71) = 0.158140E-01
+PKER_SDRYG( 33, 72) = 0.139592E-01
+PKER_SDRYG( 33, 73) = 0.122971E-01
+PKER_SDRYG( 33, 74) = 0.108290E-01
+PKER_SDRYG( 33, 75) = 0.955466E-02
+PKER_SDRYG( 33, 76) = 0.847794E-02
+PKER_SDRYG( 33, 77) = 0.759796E-02
+PKER_SDRYG( 33, 78) = 0.690209E-02
+PKER_SDRYG( 33, 79) = 0.638733E-02
+PKER_SDRYG( 33, 80) = 0.604388E-02
+PKER_SDRYG( 34, 1) = 0.314703E+01
+PKER_SDRYG( 34, 2) = 0.295451E+01
+PKER_SDRYG( 34, 3) = 0.277375E+01
+PKER_SDRYG( 34, 4) = 0.260401E+01
+PKER_SDRYG( 34, 5) = 0.244463E+01
+PKER_SDRYG( 34, 6) = 0.229497E+01
+PKER_SDRYG( 34, 7) = 0.215445E+01
+PKER_SDRYG( 34, 8) = 0.202250E+01
+PKER_SDRYG( 34, 9) = 0.189860E+01
+PKER_SDRYG( 34, 10) = 0.178226E+01
+PKER_SDRYG( 34, 11) = 0.167302E+01
+PKER_SDRYG( 34, 12) = 0.157044E+01
+PKER_SDRYG( 34, 13) = 0.147412E+01
+PKER_SDRYG( 34, 14) = 0.138368E+01
+PKER_SDRYG( 34, 15) = 0.129876E+01
+PKER_SDRYG( 34, 16) = 0.121901E+01
+PKER_SDRYG( 34, 17) = 0.114414E+01
+PKER_SDRYG( 34, 18) = 0.107383E+01
+PKER_SDRYG( 34, 19) = 0.100781E+01
+PKER_SDRYG( 34, 20) = 0.945813E+00
+PKER_SDRYG( 34, 21) = 0.887600E+00
+PKER_SDRYG( 34, 22) = 0.832938E+00
+PKER_SDRYG( 34, 23) = 0.781609E+00
+PKER_SDRYG( 34, 24) = 0.733410E+00
+PKER_SDRYG( 34, 25) = 0.688148E+00
+PKER_SDRYG( 34, 26) = 0.645645E+00
+PKER_SDRYG( 34, 27) = 0.605732E+00
+PKER_SDRYG( 34, 28) = 0.568248E+00
+PKER_SDRYG( 34, 29) = 0.533046E+00
+PKER_SDRYG( 34, 30) = 0.499985E+00
+PKER_SDRYG( 34, 31) = 0.468933E+00
+PKER_SDRYG( 34, 32) = 0.439765E+00
+PKER_SDRYG( 34, 33) = 0.412365E+00
+PKER_SDRYG( 34, 34) = 0.386623E+00
+PKER_SDRYG( 34, 35) = 0.362434E+00
+PKER_SDRYG( 34, 36) = 0.339699E+00
+PKER_SDRYG( 34, 37) = 0.318327E+00
+PKER_SDRYG( 34, 38) = 0.298229E+00
+PKER_SDRYG( 34, 39) = 0.279320E+00
+PKER_SDRYG( 34, 40) = 0.261520E+00
+PKER_SDRYG( 34, 41) = 0.244754E+00
+PKER_SDRYG( 34, 42) = 0.228946E+00
+PKER_SDRYG( 34, 43) = 0.214024E+00
+PKER_SDRYG( 34, 44) = 0.199921E+00
+PKER_SDRYG( 34, 45) = 0.186567E+00
+PKER_SDRYG( 34, 46) = 0.173900E+00
+PKER_SDRYG( 34, 47) = 0.161857E+00
+PKER_SDRYG( 34, 48) = 0.150383E+00
+PKER_SDRYG( 34, 49) = 0.139434E+00
+PKER_SDRYG( 34, 50) = 0.128978E+00
+PKER_SDRYG( 34, 51) = 0.119001E+00
+PKER_SDRYG( 34, 52) = 0.109510E+00
+PKER_SDRYG( 34, 53) = 0.100527E+00
+PKER_SDRYG( 34, 54) = 0.920877E-01
+PKER_SDRYG( 34, 55) = 0.842228E-01
+PKER_SDRYG( 34, 56) = 0.769515E-01
+PKER_SDRYG( 34, 57) = 0.702724E-01
+PKER_SDRYG( 34, 58) = 0.641637E-01
+PKER_SDRYG( 34, 59) = 0.585877E-01
+PKER_SDRYG( 34, 60) = 0.534972E-01
+PKER_SDRYG( 34, 61) = 0.488422E-01
+PKER_SDRYG( 34, 62) = 0.445748E-01
+PKER_SDRYG( 34, 63) = 0.406510E-01
+PKER_SDRYG( 34, 64) = 0.370327E-01
+PKER_SDRYG( 34, 65) = 0.336871E-01
+PKER_SDRYG( 34, 66) = 0.305868E-01
+PKER_SDRYG( 34, 67) = 0.277087E-01
+PKER_SDRYG( 34, 68) = 0.250345E-01
+PKER_SDRYG( 34, 69) = 0.225489E-01
+PKER_SDRYG( 34, 70) = 0.202402E-01
+PKER_SDRYG( 34, 71) = 0.181005E-01
+PKER_SDRYG( 34, 72) = 0.161241E-01
+PKER_SDRYG( 34, 73) = 0.143076E-01
+PKER_SDRYG( 34, 74) = 0.126525E-01
+PKER_SDRYG( 34, 75) = 0.111588E-01
+PKER_SDRYG( 34, 76) = 0.982625E-02
+PKER_SDRYG( 34, 77) = 0.866264E-02
+PKER_SDRYG( 34, 78) = 0.766601E-02
+PKER_SDRYG( 34, 79) = 0.683101E-02
+PKER_SDRYG( 34, 80) = 0.616298E-02
+PKER_SDRYG( 35, 1) = 0.314819E+01
+PKER_SDRYG( 35, 2) = 0.295568E+01
+PKER_SDRYG( 35, 3) = 0.277491E+01
+PKER_SDRYG( 35, 4) = 0.260518E+01
+PKER_SDRYG( 35, 5) = 0.244580E+01
+PKER_SDRYG( 35, 6) = 0.229614E+01
+PKER_SDRYG( 35, 7) = 0.215562E+01
+PKER_SDRYG( 35, 8) = 0.202367E+01
+PKER_SDRYG( 35, 9) = 0.189977E+01
+PKER_SDRYG( 35, 10) = 0.178343E+01
+PKER_SDRYG( 35, 11) = 0.167419E+01
+PKER_SDRYG( 35, 12) = 0.157161E+01
+PKER_SDRYG( 35, 13) = 0.147529E+01
+PKER_SDRYG( 35, 14) = 0.138485E+01
+PKER_SDRYG( 35, 15) = 0.129993E+01
+PKER_SDRYG( 35, 16) = 0.122019E+01
+PKER_SDRYG( 35, 17) = 0.114531E+01
+PKER_SDRYG( 35, 18) = 0.107500E+01
+PKER_SDRYG( 35, 19) = 0.100898E+01
+PKER_SDRYG( 35, 20) = 0.946989E+00
+PKER_SDRYG( 35, 21) = 0.888778E+00
+PKER_SDRYG( 35, 22) = 0.834117E+00
+PKER_SDRYG( 35, 23) = 0.782790E+00
+PKER_SDRYG( 35, 24) = 0.734594E+00
+PKER_SDRYG( 35, 25) = 0.689335E+00
+PKER_SDRYG( 35, 26) = 0.646836E+00
+PKER_SDRYG( 35, 27) = 0.606926E+00
+PKER_SDRYG( 35, 28) = 0.569448E+00
+PKER_SDRYG( 35, 29) = 0.534252E+00
+PKER_SDRYG( 35, 30) = 0.501198E+00
+PKER_SDRYG( 35, 31) = 0.470155E+00
+PKER_SDRYG( 35, 32) = 0.440998E+00
+PKER_SDRYG( 35, 33) = 0.413610E+00
+PKER_SDRYG( 35, 34) = 0.387883E+00
+PKER_SDRYG( 35, 35) = 0.363712E+00
+PKER_SDRYG( 35, 36) = 0.341000E+00
+PKER_SDRYG( 35, 37) = 0.319655E+00
+PKER_SDRYG( 35, 38) = 0.299589E+00
+PKER_SDRYG( 35, 39) = 0.280719E+00
+PKER_SDRYG( 35, 40) = 0.262967E+00
+PKER_SDRYG( 35, 41) = 0.246258E+00
+PKER_SDRYG( 35, 42) = 0.230519E+00
+PKER_SDRYG( 35, 43) = 0.215681E+00
+PKER_SDRYG( 35, 44) = 0.201679E+00
+PKER_SDRYG( 35, 45) = 0.188445E+00
+PKER_SDRYG( 35, 46) = 0.175919E+00
+PKER_SDRYG( 35, 47) = 0.164039E+00
+PKER_SDRYG( 35, 48) = 0.152749E+00
+PKER_SDRYG( 35, 49) = 0.141998E+00
+PKER_SDRYG( 35, 50) = 0.131744E+00
+PKER_SDRYG( 35, 51) = 0.121957E+00
+PKER_SDRYG( 35, 52) = 0.112623E+00
+PKER_SDRYG( 35, 53) = 0.103749E+00
+PKER_SDRYG( 35, 54) = 0.953543E-01
+PKER_SDRYG( 35, 55) = 0.874697E-01
+PKER_SDRYG( 35, 56) = 0.801232E-01
+PKER_SDRYG( 35, 57) = 0.733311E-01
+PKER_SDRYG( 35, 58) = 0.670914E-01
+PKER_SDRYG( 35, 59) = 0.613831E-01
+PKER_SDRYG( 35, 60) = 0.561707E-01
+PKER_SDRYG( 35, 61) = 0.514102E-01
+PKER_SDRYG( 35, 62) = 0.470552E-01
+PKER_SDRYG( 35, 63) = 0.430609E-01
+PKER_SDRYG( 35, 64) = 0.393866E-01
+PKER_SDRYG( 35, 65) = 0.359968E-01
+PKER_SDRYG( 35, 66) = 0.328608E-01
+PKER_SDRYG( 35, 67) = 0.299528E-01
+PKER_SDRYG( 35, 68) = 0.272510E-01
+PKER_SDRYG( 35, 69) = 0.247371E-01
+PKER_SDRYG( 35, 70) = 0.223960E-01
+PKER_SDRYG( 35, 71) = 0.202156E-01
+PKER_SDRYG( 35, 72) = 0.181861E-01
+PKER_SDRYG( 35, 73) = 0.162998E-01
+PKER_SDRYG( 35, 74) = 0.145526E-01
+PKER_SDRYG( 35, 75) = 0.129416E-01
+PKER_SDRYG( 35, 76) = 0.114654E-01
+PKER_SDRYG( 35, 77) = 0.101249E-01
+PKER_SDRYG( 35, 78) = 0.892317E-02
+PKER_SDRYG( 35, 79) = 0.786144E-02
+PKER_SDRYG( 35, 80) = 0.694063E-02
+PKER_SDRYG( 36, 1) = 0.314919E+01
+PKER_SDRYG( 36, 2) = 0.295668E+01
+PKER_SDRYG( 36, 3) = 0.277592E+01
+PKER_SDRYG( 36, 4) = 0.260618E+01
+PKER_SDRYG( 36, 5) = 0.244680E+01
+PKER_SDRYG( 36, 6) = 0.229714E+01
+PKER_SDRYG( 36, 7) = 0.215662E+01
+PKER_SDRYG( 36, 8) = 0.202467E+01
+PKER_SDRYG( 36, 9) = 0.190077E+01
+PKER_SDRYG( 36, 10) = 0.178443E+01
+PKER_SDRYG( 36, 11) = 0.167519E+01
+PKER_SDRYG( 36, 12) = 0.157261E+01
+PKER_SDRYG( 36, 13) = 0.147629E+01
+PKER_SDRYG( 36, 14) = 0.138585E+01
+PKER_SDRYG( 36, 15) = 0.130093E+01
+PKER_SDRYG( 36, 16) = 0.122119E+01
+PKER_SDRYG( 36, 17) = 0.114631E+01
+PKER_SDRYG( 36, 18) = 0.107600E+01
+PKER_SDRYG( 36, 19) = 0.100999E+01
+PKER_SDRYG( 36, 20) = 0.947994E+00
+PKER_SDRYG( 36, 21) = 0.889785E+00
+PKER_SDRYG( 36, 22) = 0.835126E+00
+PKER_SDRYG( 36, 23) = 0.783800E+00
+PKER_SDRYG( 36, 24) = 0.735605E+00
+PKER_SDRYG( 36, 25) = 0.690349E+00
+PKER_SDRYG( 36, 26) = 0.647852E+00
+PKER_SDRYG( 36, 27) = 0.607946E+00
+PKER_SDRYG( 36, 28) = 0.570472E+00
+PKER_SDRYG( 36, 29) = 0.535281E+00
+PKER_SDRYG( 36, 30) = 0.502232E+00
+PKER_SDRYG( 36, 31) = 0.471196E+00
+PKER_SDRYG( 36, 32) = 0.442047E+00
+PKER_SDRYG( 36, 33) = 0.414669E+00
+PKER_SDRYG( 36, 34) = 0.388953E+00
+PKER_SDRYG( 36, 35) = 0.364797E+00
+PKER_SDRYG( 36, 36) = 0.342101E+00
+PKER_SDRYG( 36, 37) = 0.320776E+00
+PKER_SDRYG( 36, 38) = 0.300735E+00
+PKER_SDRYG( 36, 39) = 0.281895E+00
+PKER_SDRYG( 36, 40) = 0.264179E+00
+PKER_SDRYG( 36, 41) = 0.247512E+00
+PKER_SDRYG( 36, 42) = 0.231826E+00
+PKER_SDRYG( 36, 43) = 0.217052E+00
+PKER_SDRYG( 36, 44) = 0.203125E+00
+PKER_SDRYG( 36, 45) = 0.189983E+00
+PKER_SDRYG( 36, 46) = 0.177566E+00
+PKER_SDRYG( 36, 47) = 0.165814E+00
+PKER_SDRYG( 36, 48) = 0.154672E+00
+PKER_SDRYG( 36, 49) = 0.144087E+00
+PKER_SDRYG( 36, 50) = 0.134011E+00
+PKER_SDRYG( 36, 51) = 0.124406E+00
+PKER_SDRYG( 36, 52) = 0.115242E+00
+PKER_SDRYG( 36, 53) = 0.106508E+00
+PKER_SDRYG( 36, 54) = 0.982075E-01
+PKER_SDRYG( 36, 55) = 0.903591E-01
+PKER_SDRYG( 36, 56) = 0.829896E-01
+PKER_SDRYG( 36, 57) = 0.761242E-01
+PKER_SDRYG( 36, 58) = 0.697770E-01
+PKER_SDRYG( 36, 59) = 0.639452E-01
+PKER_SDRYG( 36, 60) = 0.586088E-01
+PKER_SDRYG( 36, 61) = 0.537344E-01
+PKER_SDRYG( 36, 62) = 0.492809E-01
+PKER_SDRYG( 36, 63) = 0.452052E-01
+PKER_SDRYG( 36, 64) = 0.414655E-01
+PKER_SDRYG( 36, 65) = 0.380242E-01
+PKER_SDRYG( 36, 66) = 0.348481E-01
+PKER_SDRYG( 36, 67) = 0.319088E-01
+PKER_SDRYG( 36, 68) = 0.291820E-01
+PKER_SDRYG( 36, 69) = 0.266472E-01
+PKER_SDRYG( 36, 70) = 0.242871E-01
+PKER_SDRYG( 36, 71) = 0.220870E-01
+PKER_SDRYG( 36, 72) = 0.200347E-01
+PKER_SDRYG( 36, 73) = 0.181198E-01
+PKER_SDRYG( 36, 74) = 0.163341E-01
+PKER_SDRYG( 36, 75) = 0.146713E-01
+PKER_SDRYG( 36, 76) = 0.131269E-01
+PKER_SDRYG( 36, 77) = 0.116980E-01
+PKER_SDRYG( 36, 78) = 0.103837E-01
+PKER_SDRYG( 36, 79) = 0.918509E-02
+PKER_SDRYG( 36, 80) = 0.810270E-02
+PKER_SDRYG( 37, 1) = 0.315005E+01
+PKER_SDRYG( 37, 2) = 0.295754E+01
+PKER_SDRYG( 37, 3) = 0.277677E+01
+PKER_SDRYG( 37, 4) = 0.260703E+01
+PKER_SDRYG( 37, 5) = 0.244765E+01
+PKER_SDRYG( 37, 6) = 0.229800E+01
+PKER_SDRYG( 37, 7) = 0.215747E+01
+PKER_SDRYG( 37, 8) = 0.202552E+01
+PKER_SDRYG( 37, 9) = 0.190162E+01
+PKER_SDRYG( 37, 10) = 0.178528E+01
+PKER_SDRYG( 37, 11) = 0.167604E+01
+PKER_SDRYG( 37, 12) = 0.157347E+01
+PKER_SDRYG( 37, 13) = 0.147715E+01
+PKER_SDRYG( 37, 14) = 0.138671E+01
+PKER_SDRYG( 37, 15) = 0.130179E+01
+PKER_SDRYG( 37, 16) = 0.122205E+01
+PKER_SDRYG( 37, 17) = 0.114717E+01
+PKER_SDRYG( 37, 18) = 0.107686E+01
+PKER_SDRYG( 37, 19) = 0.101085E+01
+PKER_SDRYG( 37, 20) = 0.948855E+00
+PKER_SDRYG( 37, 21) = 0.890646E+00
+PKER_SDRYG( 37, 22) = 0.835988E+00
+PKER_SDRYG( 37, 23) = 0.784664E+00
+PKER_SDRYG( 37, 24) = 0.736470E+00
+PKER_SDRYG( 37, 25) = 0.691216E+00
+PKER_SDRYG( 37, 26) = 0.648721E+00
+PKER_SDRYG( 37, 27) = 0.608817E+00
+PKER_SDRYG( 37, 28) = 0.571346E+00
+PKER_SDRYG( 37, 29) = 0.536158E+00
+PKER_SDRYG( 37, 30) = 0.503115E+00
+PKER_SDRYG( 37, 31) = 0.472083E+00
+PKER_SDRYG( 37, 32) = 0.442940E+00
+PKER_SDRYG( 37, 33) = 0.415570E+00
+PKER_SDRYG( 37, 34) = 0.389863E+00
+PKER_SDRYG( 37, 35) = 0.365717E+00
+PKER_SDRYG( 37, 36) = 0.343035E+00
+PKER_SDRYG( 37, 37) = 0.321726E+00
+PKER_SDRYG( 37, 38) = 0.301703E+00
+PKER_SDRYG( 37, 39) = 0.282885E+00
+PKER_SDRYG( 37, 40) = 0.265196E+00
+PKER_SDRYG( 37, 41) = 0.248563E+00
+PKER_SDRYG( 37, 42) = 0.232916E+00
+PKER_SDRYG( 37, 43) = 0.218189E+00
+PKER_SDRYG( 37, 44) = 0.204320E+00
+PKER_SDRYG( 37, 45) = 0.191248E+00
+PKER_SDRYG( 37, 46) = 0.178914E+00
+PKER_SDRYG( 37, 47) = 0.167261E+00
+PKER_SDRYG( 37, 48) = 0.156236E+00
+PKER_SDRYG( 37, 49) = 0.145785E+00
+PKER_SDRYG( 37, 50) = 0.135859E+00
+PKER_SDRYG( 37, 51) = 0.126415E+00
+PKER_SDRYG( 37, 52) = 0.117415E+00
+PKER_SDRYG( 37, 53) = 0.108833E+00
+PKER_SDRYG( 37, 54) = 0.100657E+00
+PKER_SDRYG( 37, 55) = 0.928910E-01
+PKER_SDRYG( 37, 56) = 0.855506E-01
+PKER_SDRYG( 37, 57) = 0.786599E-01
+PKER_SDRYG( 37, 58) = 0.722415E-01
+PKER_SDRYG( 37, 59) = 0.663075E-01
+PKER_SDRYG( 37, 60) = 0.608547E-01
+PKER_SDRYG( 37, 61) = 0.558640E-01
+PKER_SDRYG( 37, 62) = 0.513040E-01
+PKER_SDRYG( 37, 63) = 0.471363E-01
+PKER_SDRYG( 37, 64) = 0.433208E-01
+PKER_SDRYG( 37, 65) = 0.398187E-01
+PKER_SDRYG( 37, 66) = 0.365949E-01
+PKER_SDRYG( 37, 67) = 0.336186E-01
+PKER_SDRYG( 37, 68) = 0.308633E-01
+PKER_SDRYG( 37, 69) = 0.283065E-01
+PKER_SDRYG( 37, 70) = 0.259290E-01
+PKER_SDRYG( 37, 71) = 0.237144E-01
+PKER_SDRYG( 37, 72) = 0.216489E-01
+PKER_SDRYG( 37, 73) = 0.197205E-01
+PKER_SDRYG( 37, 74) = 0.179190E-01
+PKER_SDRYG( 37, 75) = 0.162359E-01
+PKER_SDRYG( 37, 76) = 0.146642E-01
+PKER_SDRYG( 37, 77) = 0.131981E-01
+PKER_SDRYG( 37, 78) = 0.118333E-01
+PKER_SDRYG( 37, 79) = 0.105676E-01
+PKER_SDRYG( 37, 80) = 0.939960E-02
+PKER_SDRYG( 38, 1) = 0.315078E+01
+PKER_SDRYG( 38, 2) = 0.295827E+01
+PKER_SDRYG( 38, 3) = 0.277750E+01
+PKER_SDRYG( 38, 4) = 0.260777E+01
+PKER_SDRYG( 38, 5) = 0.244839E+01
+PKER_SDRYG( 38, 6) = 0.229873E+01
+PKER_SDRYG( 38, 7) = 0.215821E+01
+PKER_SDRYG( 38, 8) = 0.202626E+01
+PKER_SDRYG( 38, 9) = 0.190236E+01
+PKER_SDRYG( 38, 10) = 0.178602E+01
+PKER_SDRYG( 38, 11) = 0.167678E+01
+PKER_SDRYG( 38, 12) = 0.157420E+01
+PKER_SDRYG( 38, 13) = 0.147788E+01
+PKER_SDRYG( 38, 14) = 0.138744E+01
+PKER_SDRYG( 38, 15) = 0.130252E+01
+PKER_SDRYG( 38, 16) = 0.122278E+01
+PKER_SDRYG( 38, 17) = 0.114791E+01
+PKER_SDRYG( 38, 18) = 0.107760E+01
+PKER_SDRYG( 38, 19) = 0.101158E+01
+PKER_SDRYG( 38, 20) = 0.949590E+00
+PKER_SDRYG( 38, 21) = 0.891382E+00
+PKER_SDRYG( 38, 22) = 0.836725E+00
+PKER_SDRYG( 38, 23) = 0.785402E+00
+PKER_SDRYG( 38, 24) = 0.737209E+00
+PKER_SDRYG( 38, 25) = 0.691956E+00
+PKER_SDRYG( 38, 26) = 0.649463E+00
+PKER_SDRYG( 38, 27) = 0.609562E+00
+PKER_SDRYG( 38, 28) = 0.572093E+00
+PKER_SDRYG( 38, 29) = 0.536908E+00
+PKER_SDRYG( 38, 30) = 0.503867E+00
+PKER_SDRYG( 38, 31) = 0.472840E+00
+PKER_SDRYG( 38, 32) = 0.443702E+00
+PKER_SDRYG( 38, 33) = 0.416338E+00
+PKER_SDRYG( 38, 34) = 0.390638E+00
+PKER_SDRYG( 38, 35) = 0.366500E+00
+PKER_SDRYG( 38, 36) = 0.343828E+00
+PKER_SDRYG( 38, 37) = 0.322530E+00
+PKER_SDRYG( 38, 38) = 0.302521E+00
+PKER_SDRYG( 38, 39) = 0.283721E+00
+PKER_SDRYG( 38, 40) = 0.266052E+00
+PKER_SDRYG( 38, 41) = 0.249444E+00
+PKER_SDRYG( 38, 42) = 0.233827E+00
+PKER_SDRYG( 38, 43) = 0.219137E+00
+PKER_SDRYG( 38, 44) = 0.205312E+00
+PKER_SDRYG( 38, 45) = 0.192292E+00
+PKER_SDRYG( 38, 46) = 0.180021E+00
+PKER_SDRYG( 38, 47) = 0.168445E+00
+PKER_SDRYG( 38, 48) = 0.157509E+00
+PKER_SDRYG( 38, 49) = 0.147164E+00
+PKER_SDRYG( 38, 50) = 0.137361E+00
+PKER_SDRYG( 38, 51) = 0.128052E+00
+PKER_SDRYG( 38, 52) = 0.119198E+00
+PKER_SDRYG( 38, 53) = 0.110764E+00
+PKER_SDRYG( 38, 54) = 0.102726E+00
+PKER_SDRYG( 38, 55) = 0.950708E-01
+PKER_SDRYG( 38, 56) = 0.878022E-01
+PKER_SDRYG( 38, 57) = 0.809345E-01
+PKER_SDRYG( 38, 58) = 0.744892E-01
+PKER_SDRYG( 38, 59) = 0.684863E-01
+PKER_SDRYG( 38, 60) = 0.629365E-01
+PKER_SDRYG( 38, 61) = 0.578361E-01
+PKER_SDRYG( 38, 62) = 0.531670E-01
+PKER_SDRYG( 38, 63) = 0.488997E-01
+PKER_SDRYG( 38, 64) = 0.449983E-01
+PKER_SDRYG( 38, 65) = 0.414255E-01
+PKER_SDRYG( 38, 66) = 0.381450E-01
+PKER_SDRYG( 38, 67) = 0.351244E-01
+PKER_SDRYG( 38, 68) = 0.323348E-01
+PKER_SDRYG( 38, 69) = 0.297517E-01
+PKER_SDRYG( 38, 70) = 0.273541E-01
+PKER_SDRYG( 38, 71) = 0.251241E-01
+PKER_SDRYG( 38, 72) = 0.230465E-01
+PKER_SDRYG( 38, 73) = 0.211080E-01
+PKER_SDRYG( 38, 74) = 0.192975E-01
+PKER_SDRYG( 38, 75) = 0.176052E-01
+PKER_SDRYG( 38, 76) = 0.160225E-01
+PKER_SDRYG( 38, 77) = 0.145422E-01
+PKER_SDRYG( 38, 78) = 0.131581E-01
+PKER_SDRYG( 38, 79) = 0.118652E-01
+PKER_SDRYG( 38, 80) = 0.106600E-01
+PKER_SDRYG( 39, 1) = 0.315141E+01
+PKER_SDRYG( 39, 2) = 0.295890E+01
+PKER_SDRYG( 39, 3) = 0.277813E+01
+PKER_SDRYG( 39, 4) = 0.260839E+01
+PKER_SDRYG( 39, 5) = 0.244901E+01
+PKER_SDRYG( 39, 6) = 0.229936E+01
+PKER_SDRYG( 39, 7) = 0.215883E+01
+PKER_SDRYG( 39, 8) = 0.202688E+01
+PKER_SDRYG( 39, 9) = 0.190298E+01
+PKER_SDRYG( 39, 10) = 0.178664E+01
+PKER_SDRYG( 39, 11) = 0.167740E+01
+PKER_SDRYG( 39, 12) = 0.157483E+01
+PKER_SDRYG( 39, 13) = 0.147851E+01
+PKER_SDRYG( 39, 14) = 0.138807E+01
+PKER_SDRYG( 39, 15) = 0.130315E+01
+PKER_SDRYG( 39, 16) = 0.122341E+01
+PKER_SDRYG( 39, 17) = 0.114853E+01
+PKER_SDRYG( 39, 18) = 0.107823E+01
+PKER_SDRYG( 39, 19) = 0.101221E+01
+PKER_SDRYG( 39, 20) = 0.950219E+00
+PKER_SDRYG( 39, 21) = 0.892012E+00
+PKER_SDRYG( 39, 22) = 0.837355E+00
+PKER_SDRYG( 39, 23) = 0.786033E+00
+PKER_SDRYG( 39, 24) = 0.737841E+00
+PKER_SDRYG( 39, 25) = 0.692590E+00
+PKER_SDRYG( 39, 26) = 0.650098E+00
+PKER_SDRYG( 39, 27) = 0.610198E+00
+PKER_SDRYG( 39, 28) = 0.572730E+00
+PKER_SDRYG( 39, 29) = 0.537548E+00
+PKER_SDRYG( 39, 30) = 0.504510E+00
+PKER_SDRYG( 39, 31) = 0.473486E+00
+PKER_SDRYG( 39, 32) = 0.444351E+00
+PKER_SDRYG( 39, 33) = 0.416991E+00
+PKER_SDRYG( 39, 34) = 0.391297E+00
+PKER_SDRYG( 39, 35) = 0.367165E+00
+PKER_SDRYG( 39, 36) = 0.344501E+00
+PKER_SDRYG( 39, 37) = 0.323212E+00
+PKER_SDRYG( 39, 38) = 0.303214E+00
+PKER_SDRYG( 39, 39) = 0.284427E+00
+PKER_SDRYG( 39, 40) = 0.266774E+00
+PKER_SDRYG( 39, 41) = 0.250185E+00
+PKER_SDRYG( 39, 42) = 0.234591E+00
+PKER_SDRYG( 39, 43) = 0.219929E+00
+PKER_SDRYG( 39, 44) = 0.206137E+00
+PKER_SDRYG( 39, 45) = 0.193157E+00
+PKER_SDRYG( 39, 46) = 0.180935E+00
+PKER_SDRYG( 39, 47) = 0.169416E+00
+PKER_SDRYG( 39, 48) = 0.158550E+00
+PKER_SDRYG( 39, 49) = 0.148287E+00
+PKER_SDRYG( 39, 50) = 0.138580E+00
+PKER_SDRYG( 39, 51) = 0.129383E+00
+PKER_SDRYG( 39, 52) = 0.120653E+00
+PKER_SDRYG( 39, 53) = 0.112351E+00
+PKER_SDRYG( 39, 54) = 0.104446E+00
+PKER_SDRYG( 39, 55) = 0.969146E-01
+PKER_SDRYG( 39, 56) = 0.897457E-01
+PKER_SDRYG( 39, 57) = 0.829410E-01
+PKER_SDRYG( 39, 58) = 0.765136E-01
+PKER_SDRYG( 39, 59) = 0.704828E-01
+PKER_SDRYG( 39, 60) = 0.648666E-01
+PKER_SDRYG( 39, 61) = 0.596743E-01
+PKER_SDRYG( 39, 62) = 0.549019E-01
+PKER_SDRYG( 39, 63) = 0.505322E-01
+PKER_SDRYG( 39, 64) = 0.465375E-01
+PKER_SDRYG( 39, 65) = 0.428845E-01
+PKER_SDRYG( 39, 66) = 0.395380E-01
+PKER_SDRYG( 39, 67) = 0.364645E-01
+PKER_SDRYG( 39, 68) = 0.336336E-01
+PKER_SDRYG( 39, 69) = 0.310186E-01
+PKER_SDRYG( 39, 70) = 0.285966E-01
+PKER_SDRYG( 39, 71) = 0.263481E-01
+PKER_SDRYG( 39, 72) = 0.242564E-01
+PKER_SDRYG( 39, 73) = 0.223072E-01
+PKER_SDRYG( 39, 74) = 0.204882E-01
+PKER_SDRYG( 39, 75) = 0.187890E-01
+PKER_SDRYG( 39, 76) = 0.172000E-01
+PKER_SDRYG( 39, 77) = 0.157134E-01
+PKER_SDRYG( 39, 78) = 0.143218E-01
+PKER_SDRYG( 39, 79) = 0.130192E-01
+PKER_SDRYG( 39, 80) = 0.118001E-01
+PKER_SDRYG( 40, 1) = 0.315194E+01
+PKER_SDRYG( 40, 2) = 0.295943E+01
+PKER_SDRYG( 40, 3) = 0.277867E+01
+PKER_SDRYG( 40, 4) = 0.260893E+01
+PKER_SDRYG( 40, 5) = 0.244955E+01
+PKER_SDRYG( 40, 6) = 0.229989E+01
+PKER_SDRYG( 40, 7) = 0.215937E+01
+PKER_SDRYG( 40, 8) = 0.202742E+01
+PKER_SDRYG( 40, 9) = 0.190352E+01
+PKER_SDRYG( 40, 10) = 0.178718E+01
+PKER_SDRYG( 40, 11) = 0.167794E+01
+PKER_SDRYG( 40, 12) = 0.157536E+01
+PKER_SDRYG( 40, 13) = 0.147905E+01
+PKER_SDRYG( 40, 14) = 0.138861E+01
+PKER_SDRYG( 40, 15) = 0.130369E+01
+PKER_SDRYG( 40, 16) = 0.122395E+01
+PKER_SDRYG( 40, 17) = 0.114907E+01
+PKER_SDRYG( 40, 18) = 0.107876E+01
+PKER_SDRYG( 40, 19) = 0.101275E+01
+PKER_SDRYG( 40, 20) = 0.950758E+00
+PKER_SDRYG( 40, 21) = 0.892550E+00
+PKER_SDRYG( 40, 22) = 0.837894E+00
+PKER_SDRYG( 40, 23) = 0.786573E+00
+PKER_SDRYG( 40, 24) = 0.738382E+00
+PKER_SDRYG( 40, 25) = 0.693131E+00
+PKER_SDRYG( 40, 26) = 0.650640E+00
+PKER_SDRYG( 40, 27) = 0.610741E+00
+PKER_SDRYG( 40, 28) = 0.573275E+00
+PKER_SDRYG( 40, 29) = 0.538094E+00
+PKER_SDRYG( 40, 30) = 0.505059E+00
+PKER_SDRYG( 40, 31) = 0.474037E+00
+PKER_SDRYG( 40, 32) = 0.444905E+00
+PKER_SDRYG( 40, 33) = 0.417549E+00
+PKER_SDRYG( 40, 34) = 0.391858E+00
+PKER_SDRYG( 40, 35) = 0.367732E+00
+PKER_SDRYG( 40, 36) = 0.345073E+00
+PKER_SDRYG( 40, 37) = 0.323791E+00
+PKER_SDRYG( 40, 38) = 0.303802E+00
+PKER_SDRYG( 40, 39) = 0.285025E+00
+PKER_SDRYG( 40, 40) = 0.267384E+00
+PKER_SDRYG( 40, 41) = 0.250810E+00
+PKER_SDRYG( 40, 42) = 0.235233E+00
+PKER_SDRYG( 40, 43) = 0.220592E+00
+PKER_SDRYG( 40, 44) = 0.206825E+00
+PKER_SDRYG( 40, 45) = 0.193876E+00
+PKER_SDRYG( 40, 46) = 0.181690E+00
+PKER_SDRYG( 40, 47) = 0.170216E+00
+PKER_SDRYG( 40, 48) = 0.159403E+00
+PKER_SDRYG( 40, 49) = 0.149204E+00
+PKER_SDRYG( 40, 50) = 0.139572E+00
+PKER_SDRYG( 40, 51) = 0.130463E+00
+PKER_SDRYG( 40, 52) = 0.121834E+00
+PKER_SDRYG( 40, 53) = 0.113645E+00
+PKER_SDRYG( 40, 54) = 0.105861E+00
+PKER_SDRYG( 40, 55) = 0.984504E-01
+PKER_SDRYG( 40, 56) = 0.913930E-01
+PKER_SDRYG( 40, 57) = 0.846776E-01
+PKER_SDRYG( 40, 58) = 0.783055E-01
+PKER_SDRYG( 40, 59) = 0.722885E-01
+PKER_SDRYG( 40, 60) = 0.666438E-01
+PKER_SDRYG( 40, 61) = 0.613877E-01
+PKER_SDRYG( 40, 62) = 0.565282E-01
+PKER_SDRYG( 40, 63) = 0.520613E-01
+PKER_SDRYG( 40, 64) = 0.479706E-01
+PKER_SDRYG( 40, 65) = 0.442301E-01
+PKER_SDRYG( 40, 66) = 0.408086E-01
+PKER_SDRYG( 40, 67) = 0.376734E-01
+PKER_SDRYG( 40, 68) = 0.347932E-01
+PKER_SDRYG( 40, 69) = 0.321397E-01
+PKER_SDRYG( 40, 70) = 0.296880E-01
+PKER_SDRYG( 40, 71) = 0.274168E-01
+PKER_SDRYG( 40, 72) = 0.253078E-01
+PKER_SDRYG( 40, 73) = 0.233456E-01
+PKER_SDRYG( 40, 74) = 0.215168E-01
+PKER_SDRYG( 40, 75) = 0.198100E-01
+PKER_SDRYG( 40, 76) = 0.182153E-01
+PKER_SDRYG( 40, 77) = 0.167239E-01
+PKER_SDRYG( 40, 78) = 0.153280E-01
+PKER_SDRYG( 40, 79) = 0.140211E-01
+PKER_SDRYG( 40, 80) = 0.127968E-01
END IF
!
END SUBROUTINE READ_XKER_SDRYG
diff --git a/src/MNH/read_xker_sweth.f90 b/src/MNH/read_xker_sweth.f90
index 52d9df6a7bd12bfe4e7c5f00defcfab4b90ebf70..2ef9b959cc8b82993889381645040f63b678baa9 100644
--- a/src/MNH/read_xker_sweth.f90
+++ b/src/MNH/read_xker_sweth.f90
@@ -14,7 +14,7 @@
!
INTERFACE
SUBROUTINE READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
PFDINFTY,PKER_SWETH )
!
@@ -29,6 +29,7 @@ REAL, INTENT(OUT) :: PCH
REAL, INTENT(OUT) :: PDH
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PWETLBDAH_MAX
REAL, INTENT(OUT) :: PWETLBDAS_MAX
REAL, INTENT(OUT) :: PWETLBDAH_MIN
@@ -43,7 +44,7 @@ END INTERFACE
END MODULE MODI_READ_XKER_SWETH
! ########################################################################
SUBROUTINE READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
PFDINFTY,PKER_SWETH )
! ########################################################################
@@ -101,6 +102,7 @@ REAL, INTENT(OUT) :: PCH
REAL, INTENT(OUT) :: PDH
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PWETLBDAH_MAX
REAL, INTENT(OUT) :: PWETLBDAS_MAX
REAL, INTENT(OUT) :: PWETLBDAH_MIN
@@ -123,8 +125,9 @@ PEHS= 0.100000E+01
PBS= 0.190000E+01
PCH= 0.207000E+03
PDH= 0.640000E+00
-PCS= 0.510000E+01
+PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PWETLBDAH_MAX= 0.100000E+08
PWETLBDAS_MAX= 0.250000E+10
PWETLBDAH_MIN= 0.100000E+04
@@ -132,3206 +135,3206 @@ PWETLBDAS_MIN= 0.250000E+02
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_SWETH) ) THEN
- PKER_SWETH( 1, 1) = 0.615237E+01
- PKER_SWETH( 1, 2) = 0.637080E+01
- PKER_SWETH( 1, 3) = 0.658231E+01
- PKER_SWETH( 1, 4) = 0.678858E+01
- PKER_SWETH( 1, 5) = 0.699129E+01
- PKER_SWETH( 1, 6) = 0.719213E+01
- PKER_SWETH( 1, 7) = 0.739259E+01
- PKER_SWETH( 1, 8) = 0.759386E+01
- PKER_SWETH( 1, 9) = 0.779656E+01
- PKER_SWETH( 1, 10) = 0.800053E+01
- PKER_SWETH( 1, 11) = 0.820465E+01
- PKER_SWETH( 1, 12) = 0.840686E+01
- PKER_SWETH( 1, 13) = 0.860429E+01
- PKER_SWETH( 1, 14) = 0.879377E+01
- PKER_SWETH( 1, 15) = 0.897226E+01
- PKER_SWETH( 1, 16) = 0.913741E+01
- PKER_SWETH( 1, 17) = 0.928778E+01
- PKER_SWETH( 1, 18) = 0.942293E+01
- PKER_SWETH( 1, 19) = 0.954325E+01
- PKER_SWETH( 1, 20) = 0.964973E+01
- PKER_SWETH( 1, 21) = 0.974368E+01
- PKER_SWETH( 1, 22) = 0.982656E+01
- PKER_SWETH( 1, 23) = 0.989979E+01
- PKER_SWETH( 1, 24) = 0.996470E+01
- PKER_SWETH( 1, 25) = 0.100225E+02
- PKER_SWETH( 1, 26) = 0.100741E+02
- PKER_SWETH( 1, 27) = 0.101205E+02
- PKER_SWETH( 1, 28) = 0.101624E+02
- PKER_SWETH( 1, 29) = 0.102004E+02
- PKER_SWETH( 1, 30) = 0.102350E+02
- PKER_SWETH( 1, 31) = 0.102667E+02
- PKER_SWETH( 1, 32) = 0.102957E+02
- PKER_SWETH( 1, 33) = 0.103224E+02
- PKER_SWETH( 1, 34) = 0.103471E+02
- PKER_SWETH( 1, 35) = 0.103699E+02
- PKER_SWETH( 1, 36) = 0.103911E+02
- PKER_SWETH( 1, 37) = 0.104108E+02
- PKER_SWETH( 1, 38) = 0.104291E+02
- PKER_SWETH( 1, 39) = 0.104461E+02
- PKER_SWETH( 1, 40) = 0.104620E+02
- PKER_SWETH( 1, 41) = 0.104769E+02
- PKER_SWETH( 1, 42) = 0.104908E+02
- PKER_SWETH( 1, 43) = 0.105038E+02
- PKER_SWETH( 1, 44) = 0.105159E+02
- PKER_SWETH( 1, 45) = 0.105273E+02
- PKER_SWETH( 1, 46) = 0.105380E+02
- PKER_SWETH( 1, 47) = 0.105480E+02
- PKER_SWETH( 1, 48) = 0.105573E+02
- PKER_SWETH( 1, 49) = 0.105661E+02
- PKER_SWETH( 1, 50) = 0.105744E+02
- PKER_SWETH( 1, 51) = 0.105821E+02
- PKER_SWETH( 1, 52) = 0.105893E+02
- PKER_SWETH( 1, 53) = 0.105961E+02
- PKER_SWETH( 1, 54) = 0.106025E+02
- PKER_SWETH( 1, 55) = 0.106085E+02
- PKER_SWETH( 1, 56) = 0.106141E+02
- PKER_SWETH( 1, 57) = 0.106194E+02
- PKER_SWETH( 1, 58) = 0.106244E+02
- PKER_SWETH( 1, 59) = 0.106290E+02
- PKER_SWETH( 1, 60) = 0.106334E+02
- PKER_SWETH( 1, 61) = 0.106375E+02
- PKER_SWETH( 1, 62) = 0.106413E+02
- PKER_SWETH( 1, 63) = 0.106450E+02
- PKER_SWETH( 1, 64) = 0.106483E+02
- PKER_SWETH( 1, 65) = 0.106515E+02
- PKER_SWETH( 1, 66) = 0.106545E+02
- PKER_SWETH( 1, 67) = 0.106573E+02
- PKER_SWETH( 1, 68) = 0.106600E+02
- PKER_SWETH( 1, 69) = 0.106624E+02
- PKER_SWETH( 1, 70) = 0.106648E+02
- PKER_SWETH( 1, 71) = 0.106669E+02
- PKER_SWETH( 1, 72) = 0.106690E+02
- PKER_SWETH( 1, 73) = 0.106709E+02
- PKER_SWETH( 1, 74) = 0.106727E+02
- PKER_SWETH( 1, 75) = 0.106744E+02
- PKER_SWETH( 1, 76) = 0.106760E+02
- PKER_SWETH( 1, 77) = 0.106775E+02
- PKER_SWETH( 1, 78) = 0.106789E+02
- PKER_SWETH( 1, 79) = 0.106802E+02
- PKER_SWETH( 1, 80) = 0.106815E+02
- PKER_SWETH( 2, 1) = 0.482432E+01
- PKER_SWETH( 2, 2) = 0.503595E+01
- PKER_SWETH( 2, 3) = 0.523941E+01
- PKER_SWETH( 2, 4) = 0.543608E+01
- PKER_SWETH( 2, 5) = 0.562743E+01
- PKER_SWETH( 2, 6) = 0.581495E+01
- PKER_SWETH( 2, 7) = 0.600013E+01
- PKER_SWETH( 2, 8) = 0.618431E+01
- PKER_SWETH( 2, 9) = 0.636855E+01
- PKER_SWETH( 2, 10) = 0.655341E+01
- PKER_SWETH( 2, 11) = 0.673880E+01
- PKER_SWETH( 2, 12) = 0.692377E+01
- PKER_SWETH( 2, 13) = 0.710655E+01
- PKER_SWETH( 2, 14) = 0.728471E+01
- PKER_SWETH( 2, 15) = 0.745548E+01
- PKER_SWETH( 2, 16) = 0.761628E+01
- PKER_SWETH( 2, 17) = 0.776507E+01
- PKER_SWETH( 2, 18) = 0.790065E+01
- PKER_SWETH( 2, 19) = 0.802264E+01
- PKER_SWETH( 2, 20) = 0.813143E+01
- PKER_SWETH( 2, 21) = 0.822788E+01
- PKER_SWETH( 2, 22) = 0.831318E+01
- PKER_SWETH( 2, 23) = 0.838861E+01
- PKER_SWETH( 2, 24) = 0.845542E+01
- PKER_SWETH( 2, 25) = 0.851480E+01
- PKER_SWETH( 2, 26) = 0.856779E+01
- PKER_SWETH( 2, 27) = 0.861528E+01
- PKER_SWETH( 2, 28) = 0.865805E+01
- PKER_SWETH( 2, 29) = 0.869674E+01
- PKER_SWETH( 2, 30) = 0.873190E+01
- PKER_SWETH( 2, 31) = 0.876398E+01
- PKER_SWETH( 2, 32) = 0.879336E+01
- PKER_SWETH( 2, 33) = 0.882036E+01
- PKER_SWETH( 2, 34) = 0.884525E+01
- PKER_SWETH( 2, 35) = 0.886825E+01
- PKER_SWETH( 2, 36) = 0.888956E+01
- PKER_SWETH( 2, 37) = 0.890934E+01
- PKER_SWETH( 2, 38) = 0.892772E+01
- PKER_SWETH( 2, 39) = 0.894485E+01
- PKER_SWETH( 2, 40) = 0.896081E+01
- PKER_SWETH( 2, 41) = 0.897571E+01
- PKER_SWETH( 2, 42) = 0.898963E+01
- PKER_SWETH( 2, 43) = 0.900265E+01
- PKER_SWETH( 2, 44) = 0.901483E+01
- PKER_SWETH( 2, 45) = 0.902623E+01
- PKER_SWETH( 2, 46) = 0.903690E+01
- PKER_SWETH( 2, 47) = 0.904690E+01
- PKER_SWETH( 2, 48) = 0.905628E+01
- PKER_SWETH( 2, 49) = 0.906507E+01
- PKER_SWETH( 2, 50) = 0.907331E+01
- PKER_SWETH( 2, 51) = 0.908104E+01
- PKER_SWETH( 2, 52) = 0.908830E+01
- PKER_SWETH( 2, 53) = 0.909510E+01
- PKER_SWETH( 2, 54) = 0.910149E+01
- PKER_SWETH( 2, 55) = 0.910748E+01
- PKER_SWETH( 2, 56) = 0.911311E+01
- PKER_SWETH( 2, 57) = 0.911839E+01
- PKER_SWETH( 2, 58) = 0.912334E+01
- PKER_SWETH( 2, 59) = 0.912799E+01
- PKER_SWETH( 2, 60) = 0.913236E+01
- PKER_SWETH( 2, 61) = 0.913646E+01
- PKER_SWETH( 2, 62) = 0.914031E+01
- PKER_SWETH( 2, 63) = 0.914392E+01
- PKER_SWETH( 2, 64) = 0.914731E+01
- PKER_SWETH( 2, 65) = 0.915050E+01
- PKER_SWETH( 2, 66) = 0.915349E+01
- PKER_SWETH( 2, 67) = 0.915630E+01
- PKER_SWETH( 2, 68) = 0.915894E+01
- PKER_SWETH( 2, 69) = 0.916141E+01
- PKER_SWETH( 2, 70) = 0.916374E+01
- PKER_SWETH( 2, 71) = 0.916592E+01
- PKER_SWETH( 2, 72) = 0.916797E+01
- PKER_SWETH( 2, 73) = 0.916989E+01
- PKER_SWETH( 2, 74) = 0.917170E+01
- PKER_SWETH( 2, 75) = 0.917339E+01
- PKER_SWETH( 2, 76) = 0.917499E+01
- PKER_SWETH( 2, 77) = 0.917648E+01
- PKER_SWETH( 2, 78) = 0.917789E+01
- PKER_SWETH( 2, 79) = 0.917921E+01
- PKER_SWETH( 2, 80) = 0.918044E+01
- PKER_SWETH( 3, 1) = 0.368905E+01
- PKER_SWETH( 3, 2) = 0.389478E+01
- PKER_SWETH( 3, 3) = 0.409193E+01
- PKER_SWETH( 3, 4) = 0.428141E+01
- PKER_SWETH( 3, 5) = 0.446434E+01
- PKER_SWETH( 3, 6) = 0.464196E+01
- PKER_SWETH( 3, 7) = 0.481560E+01
- PKER_SWETH( 3, 8) = 0.498655E+01
- PKER_SWETH( 3, 9) = 0.515601E+01
- PKER_SWETH( 3, 10) = 0.532493E+01
- PKER_SWETH( 3, 11) = 0.549382E+01
- PKER_SWETH( 3, 12) = 0.566262E+01
- PKER_SWETH( 3, 13) = 0.583056E+01
- PKER_SWETH( 3, 14) = 0.599610E+01
- PKER_SWETH( 3, 15) = 0.615716E+01
- PKER_SWETH( 3, 16) = 0.631137E+01
- PKER_SWETH( 3, 17) = 0.645651E+01
- PKER_SWETH( 3, 18) = 0.659082E+01
- PKER_SWETH( 3, 19) = 0.671329E+01
- PKER_SWETH( 3, 20) = 0.682361E+01
- PKER_SWETH( 3, 21) = 0.692215E+01
- PKER_SWETH( 3, 22) = 0.700968E+01
- PKER_SWETH( 3, 23) = 0.708726E+01
- PKER_SWETH( 3, 24) = 0.715602E+01
- PKER_SWETH( 3, 25) = 0.721708E+01
- PKER_SWETH( 3, 26) = 0.727148E+01
- PKER_SWETH( 3, 27) = 0.732015E+01
- PKER_SWETH( 3, 28) = 0.736386E+01
- PKER_SWETH( 3, 29) = 0.740332E+01
- PKER_SWETH( 3, 30) = 0.743910E+01
- PKER_SWETH( 3, 31) = 0.747167E+01
- PKER_SWETH( 3, 32) = 0.750144E+01
- PKER_SWETH( 3, 33) = 0.752875E+01
- PKER_SWETH( 3, 34) = 0.755388E+01
- PKER_SWETH( 3, 35) = 0.757707E+01
- PKER_SWETH( 3, 36) = 0.759853E+01
- PKER_SWETH( 3, 37) = 0.761842E+01
- PKER_SWETH( 3, 38) = 0.763691E+01
- PKER_SWETH( 3, 39) = 0.765410E+01
- PKER_SWETH( 3, 40) = 0.767013E+01
- PKER_SWETH( 3, 41) = 0.768507E+01
- PKER_SWETH( 3, 42) = 0.769903E+01
- PKER_SWETH( 3, 43) = 0.771207E+01
- PKER_SWETH( 3, 44) = 0.772427E+01
- PKER_SWETH( 3, 45) = 0.773569E+01
- PKER_SWETH( 3, 46) = 0.774638E+01
- PKER_SWETH( 3, 47) = 0.775639E+01
- PKER_SWETH( 3, 48) = 0.776578E+01
- PKER_SWETH( 3, 49) = 0.777457E+01
- PKER_SWETH( 3, 50) = 0.778282E+01
- PKER_SWETH( 3, 51) = 0.779056E+01
- PKER_SWETH( 3, 52) = 0.779781E+01
- PKER_SWETH( 3, 53) = 0.780462E+01
- PKER_SWETH( 3, 54) = 0.781101E+01
- PKER_SWETH( 3, 55) = 0.781700E+01
- PKER_SWETH( 3, 56) = 0.782263E+01
- PKER_SWETH( 3, 57) = 0.782791E+01
- PKER_SWETH( 3, 58) = 0.783287E+01
- PKER_SWETH( 3, 59) = 0.783752E+01
- PKER_SWETH( 3, 60) = 0.784189E+01
- PKER_SWETH( 3, 61) = 0.784599E+01
- PKER_SWETH( 3, 62) = 0.784984E+01
- PKER_SWETH( 3, 63) = 0.785345E+01
- PKER_SWETH( 3, 64) = 0.785684E+01
- PKER_SWETH( 3, 65) = 0.786003E+01
- PKER_SWETH( 3, 66) = 0.786302E+01
- PKER_SWETH( 3, 67) = 0.786583E+01
- PKER_SWETH( 3, 68) = 0.786846E+01
- PKER_SWETH( 3, 69) = 0.787094E+01
- PKER_SWETH( 3, 70) = 0.787326E+01
- PKER_SWETH( 3, 71) = 0.787545E+01
- PKER_SWETH( 3, 72) = 0.787750E+01
- PKER_SWETH( 3, 73) = 0.787942E+01
- PKER_SWETH( 3, 74) = 0.788123E+01
- PKER_SWETH( 3, 75) = 0.788292E+01
- PKER_SWETH( 3, 76) = 0.788452E+01
- PKER_SWETH( 3, 77) = 0.788601E+01
- PKER_SWETH( 3, 78) = 0.788742E+01
- PKER_SWETH( 3, 79) = 0.788874E+01
- PKER_SWETH( 3, 80) = 0.788997E+01
- PKER_SWETH( 4, 1) = 0.272364E+01
- PKER_SWETH( 4, 2) = 0.292170E+01
- PKER_SWETH( 4, 3) = 0.311233E+01
- PKER_SWETH( 4, 4) = 0.329553E+01
- PKER_SWETH( 4, 5) = 0.347178E+01
- PKER_SWETH( 4, 6) = 0.364187E+01
- PKER_SWETH( 4, 7) = 0.380681E+01
- PKER_SWETH( 4, 8) = 0.396771E+01
- PKER_SWETH( 4, 9) = 0.412569E+01
- PKER_SWETH( 4, 10) = 0.428181E+01
- PKER_SWETH( 4, 11) = 0.443691E+01
- PKER_SWETH( 4, 12) = 0.459147E+01
- PKER_SWETH( 4, 13) = 0.474544E+01
- PKER_SWETH( 4, 14) = 0.489819E+01
- PKER_SWETH( 4, 15) = 0.504840E+01
- PKER_SWETH( 4, 16) = 0.519429E+01
- PKER_SWETH( 4, 17) = 0.533381E+01
- PKER_SWETH( 4, 18) = 0.546505E+01
- PKER_SWETH( 4, 19) = 0.558652E+01
- PKER_SWETH( 4, 20) = 0.569735E+01
- PKER_SWETH( 4, 21) = 0.579731E+01
- PKER_SWETH( 4, 22) = 0.588672E+01
- PKER_SWETH( 4, 23) = 0.596630E+01
- PKER_SWETH( 4, 24) = 0.603698E+01
- PKER_SWETH( 4, 25) = 0.609976E+01
- PKER_SWETH( 4, 26) = 0.615566E+01
- PKER_SWETH( 4, 27) = 0.620557E+01
- PKER_SWETH( 4, 28) = 0.625032E+01
- PKER_SWETH( 4, 29) = 0.629062E+01
- PKER_SWETH( 4, 30) = 0.632707E+01
- PKER_SWETH( 4, 31) = 0.636018E+01
- PKER_SWETH( 4, 32) = 0.639038E+01
- PKER_SWETH( 4, 33) = 0.641803E+01
- PKER_SWETH( 4, 34) = 0.644343E+01
- PKER_SWETH( 4, 35) = 0.646684E+01
- PKER_SWETH( 4, 36) = 0.648846E+01
- PKER_SWETH( 4, 37) = 0.650849E+01
- PKER_SWETH( 4, 38) = 0.652707E+01
- PKER_SWETH( 4, 39) = 0.654435E+01
- PKER_SWETH( 4, 40) = 0.656044E+01
- PKER_SWETH( 4, 41) = 0.657544E+01
- PKER_SWETH( 4, 42) = 0.658943E+01
- PKER_SWETH( 4, 43) = 0.660251E+01
- PKER_SWETH( 4, 44) = 0.661473E+01
- PKER_SWETH( 4, 45) = 0.662617E+01
- PKER_SWETH( 4, 46) = 0.663687E+01
- PKER_SWETH( 4, 47) = 0.664690E+01
- PKER_SWETH( 4, 48) = 0.665629E+01
- PKER_SWETH( 4, 49) = 0.666510E+01
- PKER_SWETH( 4, 50) = 0.667335E+01
- PKER_SWETH( 4, 51) = 0.668109E+01
- PKER_SWETH( 4, 52) = 0.668835E+01
- PKER_SWETH( 4, 53) = 0.669516E+01
- PKER_SWETH( 4, 54) = 0.670155E+01
- PKER_SWETH( 4, 55) = 0.670755E+01
- PKER_SWETH( 4, 56) = 0.671318E+01
- PKER_SWETH( 4, 57) = 0.671846E+01
- PKER_SWETH( 4, 58) = 0.672342E+01
- PKER_SWETH( 4, 59) = 0.672807E+01
- PKER_SWETH( 4, 60) = 0.673244E+01
- PKER_SWETH( 4, 61) = 0.673654E+01
- PKER_SWETH( 4, 62) = 0.674039E+01
- PKER_SWETH( 4, 63) = 0.674400E+01
- PKER_SWETH( 4, 64) = 0.674739E+01
- PKER_SWETH( 4, 65) = 0.675058E+01
- PKER_SWETH( 4, 66) = 0.675357E+01
- PKER_SWETH( 4, 67) = 0.675638E+01
- PKER_SWETH( 4, 68) = 0.675902E+01
- PKER_SWETH( 4, 69) = 0.676149E+01
- PKER_SWETH( 4, 70) = 0.676382E+01
- PKER_SWETH( 4, 71) = 0.676600E+01
- PKER_SWETH( 4, 72) = 0.676805E+01
- PKER_SWETH( 4, 73) = 0.676997E+01
- PKER_SWETH( 4, 74) = 0.677178E+01
- PKER_SWETH( 4, 75) = 0.677348E+01
- PKER_SWETH( 4, 76) = 0.677507E+01
- PKER_SWETH( 4, 77) = 0.677656E+01
- PKER_SWETH( 4, 78) = 0.677797E+01
- PKER_SWETH( 4, 79) = 0.677929E+01
- PKER_SWETH( 4, 80) = 0.678053E+01
- PKER_SWETH( 5, 1) = 0.191873E+01
- PKER_SWETH( 5, 2) = 0.210156E+01
- PKER_SWETH( 5, 3) = 0.228144E+01
- PKER_SWETH( 5, 4) = 0.245647E+01
- PKER_SWETH( 5, 5) = 0.262578E+01
- PKER_SWETH( 5, 6) = 0.278922E+01
- PKER_SWETH( 5, 7) = 0.294715E+01
- PKER_SWETH( 5, 8) = 0.310025E+01
- PKER_SWETH( 5, 9) = 0.324939E+01
- PKER_SWETH( 5, 10) = 0.339551E+01
- PKER_SWETH( 5, 11) = 0.353950E+01
- PKER_SWETH( 5, 12) = 0.368211E+01
- PKER_SWETH( 5, 13) = 0.382377E+01
- PKER_SWETH( 5, 14) = 0.396446E+01
- PKER_SWETH( 5, 15) = 0.410364E+01
- PKER_SWETH( 5, 16) = 0.424020E+01
- PKER_SWETH( 5, 17) = 0.437258E+01
- PKER_SWETH( 5, 18) = 0.449905E+01
- PKER_SWETH( 5, 19) = 0.461795E+01
- PKER_SWETH( 5, 20) = 0.472801E+01
- PKER_SWETH( 5, 21) = 0.482849E+01
- PKER_SWETH( 5, 22) = 0.491922E+01
- PKER_SWETH( 5, 23) = 0.500049E+01
- PKER_SWETH( 5, 24) = 0.507296E+01
- PKER_SWETH( 5, 25) = 0.513746E+01
- PKER_SWETH( 5, 26) = 0.519489E+01
- PKER_SWETH( 5, 27) = 0.524613E+01
- PKER_SWETH( 5, 28) = 0.529199E+01
- PKER_SWETH( 5, 29) = 0.533320E+01
- PKER_SWETH( 5, 30) = 0.537039E+01
- PKER_SWETH( 5, 31) = 0.540410E+01
- PKER_SWETH( 5, 32) = 0.543477E+01
- PKER_SWETH( 5, 33) = 0.546280E+01
- PKER_SWETH( 5, 34) = 0.548850E+01
- PKER_SWETH( 5, 35) = 0.551214E+01
- PKER_SWETH( 5, 36) = 0.553395E+01
- PKER_SWETH( 5, 37) = 0.555413E+01
- PKER_SWETH( 5, 38) = 0.557283E+01
- PKER_SWETH( 5, 39) = 0.559020E+01
- PKER_SWETH( 5, 40) = 0.560636E+01
- PKER_SWETH( 5, 41) = 0.562141E+01
- PKER_SWETH( 5, 42) = 0.563545E+01
- PKER_SWETH( 5, 43) = 0.564856E+01
- PKER_SWETH( 5, 44) = 0.566081E+01
- PKER_SWETH( 5, 45) = 0.567227E+01
- PKER_SWETH( 5, 46) = 0.568299E+01
- PKER_SWETH( 5, 47) = 0.569303E+01
- PKER_SWETH( 5, 48) = 0.570244E+01
- PKER_SWETH( 5, 49) = 0.571125E+01
- PKER_SWETH( 5, 50) = 0.571951E+01
- PKER_SWETH( 5, 51) = 0.572725E+01
- PKER_SWETH( 5, 52) = 0.573452E+01
- PKER_SWETH( 5, 53) = 0.574133E+01
- PKER_SWETH( 5, 54) = 0.574773E+01
- PKER_SWETH( 5, 55) = 0.575372E+01
- PKER_SWETH( 5, 56) = 0.575935E+01
- PKER_SWETH( 5, 57) = 0.576463E+01
- PKER_SWETH( 5, 58) = 0.576959E+01
- PKER_SWETH( 5, 59) = 0.577425E+01
- PKER_SWETH( 5, 60) = 0.577862E+01
- PKER_SWETH( 5, 61) = 0.578272E+01
- PKER_SWETH( 5, 62) = 0.578657E+01
- PKER_SWETH( 5, 63) = 0.579018E+01
- PKER_SWETH( 5, 64) = 0.579357E+01
- PKER_SWETH( 5, 65) = 0.579676E+01
- PKER_SWETH( 5, 66) = 0.579975E+01
- PKER_SWETH( 5, 67) = 0.580256E+01
- PKER_SWETH( 5, 68) = 0.580520E+01
- PKER_SWETH( 5, 69) = 0.580767E+01
- PKER_SWETH( 5, 70) = 0.581000E+01
- PKER_SWETH( 5, 71) = 0.581218E+01
- PKER_SWETH( 5, 72) = 0.581423E+01
- PKER_SWETH( 5, 73) = 0.581615E+01
- PKER_SWETH( 5, 74) = 0.581796E+01
- PKER_SWETH( 5, 75) = 0.581966E+01
- PKER_SWETH( 5, 76) = 0.582125E+01
- PKER_SWETH( 5, 77) = 0.582275E+01
- PKER_SWETH( 5, 78) = 0.582415E+01
- PKER_SWETH( 5, 79) = 0.582547E+01
- PKER_SWETH( 5, 80) = 0.582671E+01
- PKER_SWETH( 6, 1) = 0.128538E+01
- PKER_SWETH( 6, 2) = 0.143580E+01
- PKER_SWETH( 6, 3) = 0.159310E+01
- PKER_SWETH( 6, 4) = 0.175236E+01
- PKER_SWETH( 6, 5) = 0.191039E+01
- PKER_SWETH( 6, 6) = 0.206519E+01
- PKER_SWETH( 6, 7) = 0.221578E+01
- PKER_SWETH( 6, 8) = 0.236189E+01
- PKER_SWETH( 6, 9) = 0.250376E+01
- PKER_SWETH( 6, 10) = 0.264193E+01
- PKER_SWETH( 6, 11) = 0.277711E+01
- PKER_SWETH( 6, 12) = 0.291003E+01
- PKER_SWETH( 6, 13) = 0.304132E+01
- PKER_SWETH( 6, 14) = 0.317134E+01
- PKER_SWETH( 6, 15) = 0.330011E+01
- PKER_SWETH( 6, 16) = 0.342714E+01
- PKER_SWETH( 6, 17) = 0.355150E+01
- PKER_SWETH( 6, 18) = 0.367186E+01
- PKER_SWETH( 6, 19) = 0.378671E+01
- PKER_SWETH( 6, 20) = 0.389463E+01
- PKER_SWETH( 6, 21) = 0.399453E+01
- PKER_SWETH( 6, 22) = 0.408580E+01
- PKER_SWETH( 6, 23) = 0.416829E+01
- PKER_SWETH( 6, 24) = 0.424230E+01
- PKER_SWETH( 6, 25) = 0.430841E+01
- PKER_SWETH( 6, 26) = 0.436736E+01
- PKER_SWETH( 6, 27) = 0.441996E+01
- PKER_SWETH( 6, 28) = 0.446700E+01
- PKER_SWETH( 6, 29) = 0.450920E+01
- PKER_SWETH( 6, 30) = 0.454719E+01
- PKER_SWETH( 6, 31) = 0.458156E+01
- PKER_SWETH( 6, 32) = 0.461276E+01
- PKER_SWETH( 6, 33) = 0.464121E+01
- PKER_SWETH( 6, 34) = 0.466724E+01
- PKER_SWETH( 6, 35) = 0.469115E+01
- PKER_SWETH( 6, 36) = 0.471317E+01
- PKER_SWETH( 6, 37) = 0.473351E+01
- PKER_SWETH( 6, 38) = 0.475234E+01
- PKER_SWETH( 6, 39) = 0.476981E+01
- PKER_SWETH( 6, 40) = 0.478604E+01
- PKER_SWETH( 6, 41) = 0.480116E+01
- PKER_SWETH( 6, 42) = 0.481525E+01
- PKER_SWETH( 6, 43) = 0.482840E+01
- PKER_SWETH( 6, 44) = 0.484068E+01
- PKER_SWETH( 6, 45) = 0.485216E+01
- PKER_SWETH( 6, 46) = 0.486290E+01
- PKER_SWETH( 6, 47) = 0.487296E+01
- PKER_SWETH( 6, 48) = 0.488237E+01
- PKER_SWETH( 6, 49) = 0.489119E+01
- PKER_SWETH( 6, 50) = 0.489946E+01
- PKER_SWETH( 6, 51) = 0.490721E+01
- PKER_SWETH( 6, 52) = 0.491448E+01
- PKER_SWETH( 6, 53) = 0.492130E+01
- PKER_SWETH( 6, 54) = 0.492769E+01
- PKER_SWETH( 6, 55) = 0.493369E+01
- PKER_SWETH( 6, 56) = 0.493932E+01
- PKER_SWETH( 6, 57) = 0.494461E+01
- PKER_SWETH( 6, 58) = 0.494957E+01
- PKER_SWETH( 6, 59) = 0.495422E+01
- PKER_SWETH( 6, 60) = 0.495859E+01
- PKER_SWETH( 6, 61) = 0.496269E+01
- PKER_SWETH( 6, 62) = 0.496654E+01
- PKER_SWETH( 6, 63) = 0.497016E+01
- PKER_SWETH( 6, 64) = 0.497355E+01
- PKER_SWETH( 6, 65) = 0.497674E+01
- PKER_SWETH( 6, 66) = 0.497973E+01
- PKER_SWETH( 6, 67) = 0.498254E+01
- PKER_SWETH( 6, 68) = 0.498518E+01
- PKER_SWETH( 6, 69) = 0.498765E+01
- PKER_SWETH( 6, 70) = 0.498998E+01
- PKER_SWETH( 6, 71) = 0.499216E+01
- PKER_SWETH( 6, 72) = 0.499421E+01
- PKER_SWETH( 6, 73) = 0.499613E+01
- PKER_SWETH( 6, 74) = 0.499794E+01
- PKER_SWETH( 6, 75) = 0.499964E+01
- PKER_SWETH( 6, 76) = 0.500123E+01
- PKER_SWETH( 6, 77) = 0.500272E+01
- PKER_SWETH( 6, 78) = 0.500413E+01
- PKER_SWETH( 6, 79) = 0.500545E+01
- PKER_SWETH( 6, 80) = 0.500669E+01
- PKER_SWETH( 7, 1) = 0.856768E+00
- PKER_SWETH( 7, 2) = 0.947769E+00
- PKER_SWETH( 7, 3) = 0.106025E+01
- PKER_SWETH( 7, 4) = 0.118718E+01
- PKER_SWETH( 7, 5) = 0.132214E+01
- PKER_SWETH( 7, 6) = 0.146072E+01
- PKER_SWETH( 7, 7) = 0.159954E+01
- PKER_SWETH( 7, 8) = 0.173657E+01
- PKER_SWETH( 7, 9) = 0.187073E+01
- PKER_SWETH( 7, 10) = 0.200163E+01
- PKER_SWETH( 7, 11) = 0.212938E+01
- PKER_SWETH( 7, 12) = 0.225437E+01
- PKER_SWETH( 7, 13) = 0.237711E+01
- PKER_SWETH( 7, 14) = 0.249807E+01
- PKER_SWETH( 7, 15) = 0.261757E+01
- PKER_SWETH( 7, 16) = 0.273559E+01
- PKER_SWETH( 7, 17) = 0.285173E+01
- PKER_SWETH( 7, 18) = 0.296518E+01
- PKER_SWETH( 7, 19) = 0.307480E+01
- PKER_SWETH( 7, 20) = 0.317928E+01
- PKER_SWETH( 7, 21) = 0.327741E+01
- PKER_SWETH( 7, 22) = 0.336826E+01
- PKER_SWETH( 7, 23) = 0.345129E+01
- PKER_SWETH( 7, 24) = 0.352643E+01
- PKER_SWETH( 7, 25) = 0.359394E+01
- PKER_SWETH( 7, 26) = 0.365434E+01
- PKER_SWETH( 7, 27) = 0.370832E+01
- PKER_SWETH( 7, 28) = 0.375657E+01
- PKER_SWETH( 7, 29) = 0.379981E+01
- PKER_SWETH( 7, 30) = 0.383869E+01
- PKER_SWETH( 7, 31) = 0.387377E+01
- PKER_SWETH( 7, 32) = 0.390555E+01
- PKER_SWETH( 7, 33) = 0.393446E+01
- PKER_SWETH( 7, 34) = 0.396087E+01
- PKER_SWETH( 7, 35) = 0.398507E+01
- PKER_SWETH( 7, 36) = 0.400732E+01
- PKER_SWETH( 7, 37) = 0.402784E+01
- PKER_SWETH( 7, 38) = 0.404682E+01
- PKER_SWETH( 7, 39) = 0.406440E+01
- PKER_SWETH( 7, 40) = 0.408073E+01
- PKER_SWETH( 7, 41) = 0.409591E+01
- PKER_SWETH( 7, 42) = 0.411006E+01
- PKER_SWETH( 7, 43) = 0.412325E+01
- PKER_SWETH( 7, 44) = 0.413556E+01
- PKER_SWETH( 7, 45) = 0.414707E+01
- PKER_SWETH( 7, 46) = 0.415783E+01
- PKER_SWETH( 7, 47) = 0.416790E+01
- PKER_SWETH( 7, 48) = 0.417733E+01
- PKER_SWETH( 7, 49) = 0.418616E+01
- PKER_SWETH( 7, 50) = 0.419444E+01
- PKER_SWETH( 7, 51) = 0.420220E+01
- PKER_SWETH( 7, 52) = 0.420947E+01
- PKER_SWETH( 7, 53) = 0.421629E+01
- PKER_SWETH( 7, 54) = 0.422269E+01
- PKER_SWETH( 7, 55) = 0.422869E+01
- PKER_SWETH( 7, 56) = 0.423433E+01
- PKER_SWETH( 7, 57) = 0.423961E+01
- PKER_SWETH( 7, 58) = 0.424457E+01
- PKER_SWETH( 7, 59) = 0.424923E+01
- PKER_SWETH( 7, 60) = 0.425360E+01
- PKER_SWETH( 7, 61) = 0.425770E+01
- PKER_SWETH( 7, 62) = 0.426155E+01
- PKER_SWETH( 7, 63) = 0.426517E+01
- PKER_SWETH( 7, 64) = 0.426856E+01
- PKER_SWETH( 7, 65) = 0.427175E+01
- PKER_SWETH( 7, 66) = 0.427474E+01
- PKER_SWETH( 7, 67) = 0.427755E+01
- PKER_SWETH( 7, 68) = 0.428018E+01
- PKER_SWETH( 7, 69) = 0.428266E+01
- PKER_SWETH( 7, 70) = 0.428498E+01
- PKER_SWETH( 7, 71) = 0.428717E+01
- PKER_SWETH( 7, 72) = 0.428922E+01
- PKER_SWETH( 7, 73) = 0.429114E+01
- PKER_SWETH( 7, 74) = 0.429295E+01
- PKER_SWETH( 7, 75) = 0.429464E+01
- PKER_SWETH( 7, 76) = 0.429624E+01
- PKER_SWETH( 7, 77) = 0.429773E+01
- PKER_SWETH( 7, 78) = 0.429914E+01
- PKER_SWETH( 7, 79) = 0.430046E+01
- PKER_SWETH( 7, 80) = 0.430169E+01
- PKER_SWETH( 8, 1) = 0.666288E+00
- PKER_SWETH( 8, 2) = 0.672636E+00
- PKER_SWETH( 8, 3) = 0.713972E+00
- PKER_SWETH( 8, 4) = 0.783974E+00
- PKER_SWETH( 8, 5) = 0.875298E+00
- PKER_SWETH( 8, 6) = 0.981698E+00
- PKER_SWETH( 8, 7) = 0.109726E+01
- PKER_SWETH( 8, 8) = 0.121759E+01
- PKER_SWETH( 8, 9) = 0.133955E+01
- PKER_SWETH( 8, 10) = 0.146099E+01
- PKER_SWETH( 8, 11) = 0.158073E+01
- PKER_SWETH( 8, 12) = 0.169826E+01
- PKER_SWETH( 8, 13) = 0.181355E+01
- PKER_SWETH( 8, 14) = 0.192680E+01
- PKER_SWETH( 8, 15) = 0.203828E+01
- PKER_SWETH( 8, 16) = 0.214820E+01
- PKER_SWETH( 8, 17) = 0.225651E+01
- PKER_SWETH( 8, 18) = 0.236285E+01
- PKER_SWETH( 8, 19) = 0.246652E+01
- PKER_SWETH( 8, 20) = 0.256652E+01
- PKER_SWETH( 8, 21) = 0.266174E+01
- PKER_SWETH( 8, 22) = 0.275113E+01
- PKER_SWETH( 8, 23) = 0.283388E+01
- PKER_SWETH( 8, 24) = 0.290956E+01
- PKER_SWETH( 8, 25) = 0.297812E+01
- PKER_SWETH( 8, 26) = 0.303979E+01
- PKER_SWETH( 8, 27) = 0.309508E+01
- PKER_SWETH( 8, 28) = 0.314456E+01
- PKER_SWETH( 8, 29) = 0.318889E+01
- PKER_SWETH( 8, 30) = 0.322870E+01
- PKER_SWETH( 8, 31) = 0.326456E+01
- PKER_SWETH( 8, 32) = 0.329698E+01
- PKER_SWETH( 8, 33) = 0.332641E+01
- PKER_SWETH( 8, 34) = 0.335322E+01
- PKER_SWETH( 8, 35) = 0.337775E+01
- PKER_SWETH( 8, 36) = 0.340027E+01
- PKER_SWETH( 8, 37) = 0.342099E+01
- PKER_SWETH( 8, 38) = 0.344013E+01
- PKER_SWETH( 8, 39) = 0.345784E+01
- PKER_SWETH( 8, 40) = 0.347427E+01
- PKER_SWETH( 8, 41) = 0.348953E+01
- PKER_SWETH( 8, 42) = 0.350374E+01
- PKER_SWETH( 8, 43) = 0.351697E+01
- PKER_SWETH( 8, 44) = 0.352933E+01
- PKER_SWETH( 8, 45) = 0.354087E+01
- PKER_SWETH( 8, 46) = 0.355165E+01
- PKER_SWETH( 8, 47) = 0.356174E+01
- PKER_SWETH( 8, 48) = 0.357118E+01
- PKER_SWETH( 8, 49) = 0.358003E+01
- PKER_SWETH( 8, 50) = 0.358831E+01
- PKER_SWETH( 8, 51) = 0.359607E+01
- PKER_SWETH( 8, 52) = 0.360335E+01
- PKER_SWETH( 8, 53) = 0.361018E+01
- PKER_SWETH( 8, 54) = 0.361658E+01
- PKER_SWETH( 8, 55) = 0.362259E+01
- PKER_SWETH( 8, 56) = 0.362822E+01
- PKER_SWETH( 8, 57) = 0.363351E+01
- PKER_SWETH( 8, 58) = 0.363847E+01
- PKER_SWETH( 8, 59) = 0.364313E+01
- PKER_SWETH( 8, 60) = 0.364750E+01
- PKER_SWETH( 8, 61) = 0.365160E+01
- PKER_SWETH( 8, 62) = 0.365545E+01
- PKER_SWETH( 8, 63) = 0.365907E+01
- PKER_SWETH( 8, 64) = 0.366246E+01
- PKER_SWETH( 8, 65) = 0.366565E+01
- PKER_SWETH( 8, 66) = 0.366864E+01
- PKER_SWETH( 8, 67) = 0.367145E+01
- PKER_SWETH( 8, 68) = 0.367408E+01
- PKER_SWETH( 8, 69) = 0.367656E+01
- PKER_SWETH( 8, 70) = 0.367889E+01
- PKER_SWETH( 8, 71) = 0.368107E+01
- PKER_SWETH( 8, 72) = 0.368312E+01
- PKER_SWETH( 8, 73) = 0.368504E+01
- PKER_SWETH( 8, 74) = 0.368685E+01
- PKER_SWETH( 8, 75) = 0.368855E+01
- PKER_SWETH( 8, 76) = 0.369014E+01
- PKER_SWETH( 8, 77) = 0.369163E+01
- PKER_SWETH( 8, 78) = 0.369304E+01
- PKER_SWETH( 8, 79) = 0.369436E+01
- PKER_SWETH( 8, 80) = 0.369560E+01
- PKER_SWETH( 9, 1) = 0.707414E+00
- PKER_SWETH( 9, 2) = 0.624644E+00
- PKER_SWETH( 9, 3) = 0.580795E+00
- PKER_SWETH( 9, 4) = 0.573199E+00
- PKER_SWETH( 9, 5) = 0.598399E+00
- PKER_SWETH( 9, 6) = 0.650444E+00
- PKER_SWETH( 9, 7) = 0.723705E+00
- PKER_SWETH( 9, 8) = 0.812303E+00
- PKER_SWETH( 9, 9) = 0.910888E+00
- PKER_SWETH( 9, 10) = 0.101536E+01
- PKER_SWETH( 9, 11) = 0.112252E+01
- PKER_SWETH( 9, 12) = 0.123028E+01
- PKER_SWETH( 9, 13) = 0.133733E+01
- PKER_SWETH( 9, 14) = 0.144307E+01
- PKER_SWETH( 9, 15) = 0.154726E+01
- PKER_SWETH( 9, 16) = 0.164991E+01
- PKER_SWETH( 9, 17) = 0.175103E+01
- PKER_SWETH( 9, 18) = 0.185052E+01
- PKER_SWETH( 9, 19) = 0.194801E+01
- PKER_SWETH( 9, 20) = 0.204288E+01
- PKER_SWETH( 9, 21) = 0.213426E+01
- PKER_SWETH( 9, 22) = 0.222119E+01
- PKER_SWETH( 9, 23) = 0.230275E+01
- PKER_SWETH( 9, 24) = 0.237826E+01
- PKER_SWETH( 9, 25) = 0.244736E+01
- PKER_SWETH( 9, 26) = 0.251001E+01
- PKER_SWETH( 9, 27) = 0.256645E+01
- PKER_SWETH( 9, 28) = 0.261712E+01
- PKER_SWETH( 9, 29) = 0.266256E+01
- PKER_SWETH( 9, 30) = 0.270334E+01
- PKER_SWETH( 9, 31) = 0.274003E+01
- PKER_SWETH( 9, 32) = 0.277315E+01
- PKER_SWETH( 9, 33) = 0.280314E+01
- PKER_SWETH( 9, 34) = 0.283042E+01
- PKER_SWETH( 9, 35) = 0.285531E+01
- PKER_SWETH( 9, 36) = 0.287812E+01
- PKER_SWETH( 9, 37) = 0.289907E+01
- PKER_SWETH( 9, 38) = 0.291839E+01
- PKER_SWETH( 9, 39) = 0.293624E+01
- PKER_SWETH( 9, 40) = 0.295278E+01
- PKER_SWETH( 9, 41) = 0.296813E+01
- PKER_SWETH( 9, 42) = 0.298241E+01
- PKER_SWETH( 9, 43) = 0.299570E+01
- PKER_SWETH( 9, 44) = 0.300810E+01
- PKER_SWETH( 9, 45) = 0.301967E+01
- PKER_SWETH( 9, 46) = 0.303048E+01
- PKER_SWETH( 9, 47) = 0.304059E+01
- PKER_SWETH( 9, 48) = 0.305005E+01
- PKER_SWETH( 9, 49) = 0.305890E+01
- PKER_SWETH( 9, 50) = 0.306720E+01
- PKER_SWETH( 9, 51) = 0.307497E+01
- PKER_SWETH( 9, 52) = 0.308225E+01
- PKER_SWETH( 9, 53) = 0.308908E+01
- PKER_SWETH( 9, 54) = 0.309549E+01
- PKER_SWETH( 9, 55) = 0.310150E+01
- PKER_SWETH( 9, 56) = 0.310713E+01
- PKER_SWETH( 9, 57) = 0.311242E+01
- PKER_SWETH( 9, 58) = 0.311739E+01
- PKER_SWETH( 9, 59) = 0.312204E+01
- PKER_SWETH( 9, 60) = 0.312642E+01
- PKER_SWETH( 9, 61) = 0.313052E+01
- PKER_SWETH( 9, 62) = 0.313437E+01
- PKER_SWETH( 9, 63) = 0.313799E+01
- PKER_SWETH( 9, 64) = 0.314138E+01
- PKER_SWETH( 9, 65) = 0.314457E+01
- PKER_SWETH( 9, 66) = 0.314756E+01
- PKER_SWETH( 9, 67) = 0.315037E+01
- PKER_SWETH( 9, 68) = 0.315301E+01
- PKER_SWETH( 9, 69) = 0.315548E+01
- PKER_SWETH( 9, 70) = 0.315781E+01
- PKER_SWETH( 9, 71) = 0.315999E+01
- PKER_SWETH( 9, 72) = 0.316204E+01
- PKER_SWETH( 9, 73) = 0.316396E+01
- PKER_SWETH( 9, 74) = 0.316577E+01
- PKER_SWETH( 9, 75) = 0.316747E+01
- PKER_SWETH( 9, 76) = 0.316906E+01
- PKER_SWETH( 9, 77) = 0.317056E+01
- PKER_SWETH( 9, 78) = 0.317196E+01
- PKER_SWETH( 9, 79) = 0.317328E+01
- PKER_SWETH( 9, 80) = 0.317452E+01
- PKER_SWETH( 10, 1) = 0.911913E+00
- PKER_SWETH( 10, 2) = 0.763036E+00
- PKER_SWETH( 10, 3) = 0.645536E+00
- PKER_SWETH( 10, 4) = 0.561056E+00
- PKER_SWETH( 10, 5) = 0.510613E+00
- PKER_SWETH( 10, 6) = 0.492913E+00
- PKER_SWETH( 10, 7) = 0.504602E+00
- PKER_SWETH( 10, 8) = 0.541947E+00
- PKER_SWETH( 10, 9) = 0.599761E+00
- PKER_SWETH( 10, 10) = 0.673026E+00
- PKER_SWETH( 10, 11) = 0.756871E+00
- PKER_SWETH( 10, 12) = 0.847450E+00
- PKER_SWETH( 10, 13) = 0.941685E+00
- PKER_SWETH( 10, 14) = 0.103741E+01
- PKER_SWETH( 10, 15) = 0.113330E+01
- PKER_SWETH( 10, 16) = 0.122855E+01
- PKER_SWETH( 10, 17) = 0.132276E+01
- PKER_SWETH( 10, 18) = 0.141568E+01
- PKER_SWETH( 10, 19) = 0.150707E+01
- PKER_SWETH( 10, 20) = 0.159652E+01
- PKER_SWETH( 10, 21) = 0.168345E+01
- PKER_SWETH( 10, 22) = 0.176708E+01
- PKER_SWETH( 10, 23) = 0.184656E+01
- PKER_SWETH( 10, 24) = 0.192110E+01
- PKER_SWETH( 10, 25) = 0.199011E+01
- PKER_SWETH( 10, 26) = 0.205330E+01
- PKER_SWETH( 10, 27) = 0.211065E+01
- PKER_SWETH( 10, 28) = 0.216238E+01
- PKER_SWETH( 10, 29) = 0.220889E+01
- PKER_SWETH( 10, 30) = 0.225067E+01
- PKER_SWETH( 10, 31) = 0.228824E+01
- PKER_SWETH( 10, 32) = 0.232210E+01
- PKER_SWETH( 10, 33) = 0.235272E+01
- PKER_SWETH( 10, 34) = 0.238050E+01
- PKER_SWETH( 10, 35) = 0.240580E+01
- PKER_SWETH( 10, 36) = 0.242893E+01
- PKER_SWETH( 10, 37) = 0.245014E+01
- PKER_SWETH( 10, 38) = 0.246966E+01
- PKER_SWETH( 10, 39) = 0.248768E+01
- PKER_SWETH( 10, 40) = 0.250434E+01
- PKER_SWETH( 10, 41) = 0.251979E+01
- PKER_SWETH( 10, 42) = 0.253415E+01
- PKER_SWETH( 10, 43) = 0.254750E+01
- PKER_SWETH( 10, 44) = 0.255994E+01
- PKER_SWETH( 10, 45) = 0.257155E+01
- PKER_SWETH( 10, 46) = 0.258239E+01
- PKER_SWETH( 10, 47) = 0.259252E+01
- PKER_SWETH( 10, 48) = 0.260200E+01
- PKER_SWETH( 10, 49) = 0.261087E+01
- PKER_SWETH( 10, 50) = 0.261917E+01
- PKER_SWETH( 10, 51) = 0.262696E+01
- PKER_SWETH( 10, 52) = 0.263425E+01
- PKER_SWETH( 10, 53) = 0.264108E+01
- PKER_SWETH( 10, 54) = 0.264749E+01
- PKER_SWETH( 10, 55) = 0.265350E+01
- PKER_SWETH( 10, 56) = 0.265914E+01
- PKER_SWETH( 10, 57) = 0.266443E+01
- PKER_SWETH( 10, 58) = 0.266940E+01
- PKER_SWETH( 10, 59) = 0.267406E+01
- PKER_SWETH( 10, 60) = 0.267843E+01
- PKER_SWETH( 10, 61) = 0.268253E+01
- PKER_SWETH( 10, 62) = 0.268639E+01
- PKER_SWETH( 10, 63) = 0.269000E+01
- PKER_SWETH( 10, 64) = 0.269340E+01
- PKER_SWETH( 10, 65) = 0.269659E+01
- PKER_SWETH( 10, 66) = 0.269958E+01
- PKER_SWETH( 10, 67) = 0.270239E+01
- PKER_SWETH( 10, 68) = 0.270502E+01
- PKER_SWETH( 10, 69) = 0.270750E+01
- PKER_SWETH( 10, 70) = 0.270983E+01
- PKER_SWETH( 10, 71) = 0.271201E+01
- PKER_SWETH( 10, 72) = 0.271406E+01
- PKER_SWETH( 10, 73) = 0.271598E+01
- PKER_SWETH( 10, 74) = 0.271779E+01
- PKER_SWETH( 10, 75) = 0.271949E+01
- PKER_SWETH( 10, 76) = 0.272108E+01
- PKER_SWETH( 10, 77) = 0.272257E+01
- PKER_SWETH( 10, 78) = 0.272398E+01
- PKER_SWETH( 10, 79) = 0.272530E+01
- PKER_SWETH( 10, 80) = 0.272654E+01
- PKER_SWETH( 11, 1) = 0.118545E+01
- PKER_SWETH( 11, 2) = 0.100295E+01
- PKER_SWETH( 11, 3) = 0.841340E+00
- PKER_SWETH( 11, 4) = 0.703241E+00
- PKER_SWETH( 11, 5) = 0.591315E+00
- PKER_SWETH( 11, 6) = 0.507481E+00
- PKER_SWETH( 11, 7) = 0.452983E+00
- PKER_SWETH( 11, 8) = 0.427344E+00
- PKER_SWETH( 11, 9) = 0.428797E+00
- PKER_SWETH( 11, 10) = 0.453908E+00
- PKER_SWETH( 11, 11) = 0.498674E+00
- PKER_SWETH( 11, 12) = 0.558774E+00
- PKER_SWETH( 11, 13) = 0.629851E+00
- PKER_SWETH( 11, 14) = 0.708336E+00
- PKER_SWETH( 11, 15) = 0.791265E+00
- PKER_SWETH( 11, 16) = 0.876433E+00
- PKER_SWETH( 11, 17) = 0.962409E+00
- PKER_SWETH( 11, 18) = 0.104825E+01
- PKER_SWETH( 11, 19) = 0.113333E+01
- PKER_SWETH( 11, 20) = 0.121716E+01
- PKER_SWETH( 11, 21) = 0.129924E+01
- PKER_SWETH( 11, 22) = 0.137896E+01
- PKER_SWETH( 11, 23) = 0.145558E+01
- PKER_SWETH( 11, 24) = 0.152835E+01
- PKER_SWETH( 11, 25) = 0.159658E+01
- PKER_SWETH( 11, 26) = 0.165976E+01
- PKER_SWETH( 11, 27) = 0.171764E+01
- PKER_SWETH( 11, 28) = 0.177021E+01
- PKER_SWETH( 11, 29) = 0.181769E+01
- PKER_SWETH( 11, 30) = 0.186044E+01
- PKER_SWETH( 11, 31) = 0.189891E+01
- PKER_SWETH( 11, 32) = 0.193356E+01
- PKER_SWETH( 11, 33) = 0.196485E+01
- PKER_SWETH( 11, 34) = 0.199318E+01
- PKER_SWETH( 11, 35) = 0.201894E+01
- PKER_SWETH( 11, 36) = 0.204243E+01
- PKER_SWETH( 11, 37) = 0.206393E+01
- PKER_SWETH( 11, 38) = 0.208369E+01
- PKER_SWETH( 11, 39) = 0.210188E+01
- PKER_SWETH( 11, 40) = 0.211869E+01
- PKER_SWETH( 11, 41) = 0.213425E+01
- PKER_SWETH( 11, 42) = 0.214869E+01
- PKER_SWETH( 11, 43) = 0.216211E+01
- PKER_SWETH( 11, 44) = 0.217461E+01
- PKER_SWETH( 11, 45) = 0.218626E+01
- PKER_SWETH( 11, 46) = 0.219713E+01
- PKER_SWETH( 11, 47) = 0.220729E+01
- PKER_SWETH( 11, 48) = 0.221679E+01
- PKER_SWETH( 11, 49) = 0.222567E+01
- PKER_SWETH( 11, 50) = 0.223399E+01
- PKER_SWETH( 11, 51) = 0.224178E+01
- PKER_SWETH( 11, 52) = 0.224908E+01
- PKER_SWETH( 11, 53) = 0.225592E+01
- PKER_SWETH( 11, 54) = 0.226233E+01
- PKER_SWETH( 11, 55) = 0.226835E+01
- PKER_SWETH( 11, 56) = 0.227399E+01
- PKER_SWETH( 11, 57) = 0.227928E+01
- PKER_SWETH( 11, 58) = 0.228425E+01
- PKER_SWETH( 11, 59) = 0.228891E+01
- PKER_SWETH( 11, 60) = 0.229329E+01
- PKER_SWETH( 11, 61) = 0.229739E+01
- PKER_SWETH( 11, 62) = 0.230124E+01
- PKER_SWETH( 11, 63) = 0.230486E+01
- PKER_SWETH( 11, 64) = 0.230826E+01
- PKER_SWETH( 11, 65) = 0.231144E+01
- PKER_SWETH( 11, 66) = 0.231444E+01
- PKER_SWETH( 11, 67) = 0.231724E+01
- PKER_SWETH( 11, 68) = 0.231988E+01
- PKER_SWETH( 11, 69) = 0.232236E+01
- PKER_SWETH( 11, 70) = 0.232468E+01
- PKER_SWETH( 11, 71) = 0.232687E+01
- PKER_SWETH( 11, 72) = 0.232892E+01
- PKER_SWETH( 11, 73) = 0.233084E+01
- PKER_SWETH( 11, 74) = 0.233265E+01
- PKER_SWETH( 11, 75) = 0.233434E+01
- PKER_SWETH( 11, 76) = 0.233594E+01
- PKER_SWETH( 11, 77) = 0.233743E+01
- PKER_SWETH( 11, 78) = 0.233884E+01
- PKER_SWETH( 11, 79) = 0.234016E+01
- PKER_SWETH( 11, 80) = 0.234140E+01
- PKER_SWETH( 12, 1) = 0.145894E+01
- PKER_SWETH( 12, 2) = 0.126502E+01
- PKER_SWETH( 12, 3) = 0.108573E+01
- PKER_SWETH( 12, 4) = 0.922022E+00
- PKER_SWETH( 12, 5) = 0.775551E+00
- PKER_SWETH( 12, 6) = 0.648490E+00
- PKER_SWETH( 12, 7) = 0.543095E+00
- PKER_SWETH( 12, 8) = 0.461483E+00
- PKER_SWETH( 12, 9) = 0.405081E+00
- PKER_SWETH( 12, 10) = 0.373938E+00
- PKER_SWETH( 12, 11) = 0.367149E+00
- PKER_SWETH( 12, 12) = 0.382311E+00
- PKER_SWETH( 12, 13) = 0.416306E+00
- PKER_SWETH( 12, 14) = 0.465232E+00
- PKER_SWETH( 12, 15) = 0.525344E+00
- PKER_SWETH( 12, 16) = 0.593373E+00
- PKER_SWETH( 12, 17) = 0.666351E+00
- PKER_SWETH( 12, 18) = 0.742209E+00
- PKER_SWETH( 12, 19) = 0.819328E+00
- PKER_SWETH( 12, 20) = 0.896597E+00
- PKER_SWETH( 12, 21) = 0.973187E+00
- PKER_SWETH( 12, 22) = 0.104838E+01
- PKER_SWETH( 12, 23) = 0.112146E+01
- PKER_SWETH( 12, 24) = 0.119172E+01
- PKER_SWETH( 12, 25) = 0.125842E+01
- PKER_SWETH( 12, 26) = 0.132096E+01
- PKER_SWETH( 12, 27) = 0.137888E+01
- PKER_SWETH( 12, 28) = 0.143197E+01
- PKER_SWETH( 12, 29) = 0.148024E+01
- PKER_SWETH( 12, 30) = 0.152388E+01
- PKER_SWETH( 12, 31) = 0.156323E+01
- PKER_SWETH( 12, 32) = 0.159870E+01
- PKER_SWETH( 12, 33) = 0.163070E+01
- PKER_SWETH( 12, 34) = 0.165963E+01
- PKER_SWETH( 12, 35) = 0.168589E+01
- PKER_SWETH( 12, 36) = 0.170978E+01
- PKER_SWETH( 12, 37) = 0.173161E+01
- PKER_SWETH( 12, 38) = 0.175162E+01
- PKER_SWETH( 12, 39) = 0.177002E+01
- PKER_SWETH( 12, 40) = 0.178699E+01
- PKER_SWETH( 12, 41) = 0.180268E+01
- PKER_SWETH( 12, 42) = 0.181722E+01
- PKER_SWETH( 12, 43) = 0.183072E+01
- PKER_SWETH( 12, 44) = 0.184328E+01
- PKER_SWETH( 12, 45) = 0.185498E+01
- PKER_SWETH( 12, 46) = 0.186588E+01
- PKER_SWETH( 12, 47) = 0.187607E+01
- PKER_SWETH( 12, 48) = 0.188559E+01
- PKER_SWETH( 12, 49) = 0.189449E+01
- PKER_SWETH( 12, 50) = 0.190282E+01
- PKER_SWETH( 12, 51) = 0.191063E+01
- PKER_SWETH( 12, 52) = 0.191793E+01
- PKER_SWETH( 12, 53) = 0.192478E+01
- PKER_SWETH( 12, 54) = 0.193120E+01
- PKER_SWETH( 12, 55) = 0.193722E+01
- PKER_SWETH( 12, 56) = 0.194286E+01
- PKER_SWETH( 12, 57) = 0.194816E+01
- PKER_SWETH( 12, 58) = 0.195313E+01
- PKER_SWETH( 12, 59) = 0.195779E+01
- PKER_SWETH( 12, 60) = 0.196217E+01
- PKER_SWETH( 12, 61) = 0.196627E+01
- PKER_SWETH( 12, 62) = 0.197013E+01
- PKER_SWETH( 12, 63) = 0.197374E+01
- PKER_SWETH( 12, 64) = 0.197714E+01
- PKER_SWETH( 12, 65) = 0.198033E+01
- PKER_SWETH( 12, 66) = 0.198332E+01
- PKER_SWETH( 12, 67) = 0.198613E+01
- PKER_SWETH( 12, 68) = 0.198877E+01
- PKER_SWETH( 12, 69) = 0.199124E+01
- PKER_SWETH( 12, 70) = 0.199357E+01
- PKER_SWETH( 12, 71) = 0.199575E+01
- PKER_SWETH( 12, 72) = 0.199780E+01
- PKER_SWETH( 12, 73) = 0.199973E+01
- PKER_SWETH( 12, 74) = 0.200153E+01
- PKER_SWETH( 12, 75) = 0.200323E+01
- PKER_SWETH( 12, 76) = 0.200482E+01
- PKER_SWETH( 12, 77) = 0.200632E+01
- PKER_SWETH( 12, 78) = 0.200772E+01
- PKER_SWETH( 12, 79) = 0.200904E+01
- PKER_SWETH( 12, 80) = 0.201028E+01
- PKER_SWETH( 13, 1) = 0.170405E+01
- PKER_SWETH( 13, 2) = 0.150769E+01
- PKER_SWETH( 13, 3) = 0.132375E+01
- PKER_SWETH( 13, 4) = 0.115199E+01
- PKER_SWETH( 13, 5) = 0.992573E+00
- PKER_SWETH( 13, 6) = 0.846175E+00
- PKER_SWETH( 13, 7) = 0.713998E+00
- PKER_SWETH( 13, 8) = 0.597806E+00
- PKER_SWETH( 13, 9) = 0.499584E+00
- PKER_SWETH( 13, 10) = 0.421275E+00
- PKER_SWETH( 13, 11) = 0.364551E+00
- PKER_SWETH( 13, 12) = 0.329932E+00
- PKER_SWETH( 13, 13) = 0.316966E+00
- PKER_SWETH( 13, 14) = 0.324306E+00
- PKER_SWETH( 13, 15) = 0.349233E+00
- PKER_SWETH( 13, 16) = 0.388790E+00
- PKER_SWETH( 13, 17) = 0.439524E+00
- PKER_SWETH( 13, 18) = 0.498464E+00
- PKER_SWETH( 13, 19) = 0.562783E+00
- PKER_SWETH( 13, 20) = 0.630325E+00
- PKER_SWETH( 13, 21) = 0.699430E+00
- PKER_SWETH( 13, 22) = 0.768779E+00
- PKER_SWETH( 13, 23) = 0.837340E+00
- PKER_SWETH( 13, 24) = 0.904222E+00
- PKER_SWETH( 13, 25) = 0.968619E+00
- PKER_SWETH( 13, 26) = 0.102980E+01
- PKER_SWETH( 13, 27) = 0.108719E+01
- PKER_SWETH( 13, 28) = 0.114036E+01
- PKER_SWETH( 13, 29) = 0.118912E+01
- PKER_SWETH( 13, 30) = 0.123349E+01
- PKER_SWETH( 13, 31) = 0.127366E+01
- PKER_SWETH( 13, 32) = 0.130993E+01
- PKER_SWETH( 13, 33) = 0.134267E+01
- PKER_SWETH( 13, 34) = 0.137225E+01
- PKER_SWETH( 13, 35) = 0.139905E+01
- PKER_SWETH( 13, 36) = 0.142339E+01
- PKER_SWETH( 13, 37) = 0.144558E+01
- PKER_SWETH( 13, 38) = 0.146588E+01
- PKER_SWETH( 13, 39) = 0.148451E+01
- PKER_SWETH( 13, 40) = 0.150167E+01
- PKER_SWETH( 13, 41) = 0.151750E+01
- PKER_SWETH( 13, 42) = 0.153215E+01
- PKER_SWETH( 13, 43) = 0.154574E+01
- PKER_SWETH( 13, 44) = 0.155836E+01
- PKER_SWETH( 13, 45) = 0.157012E+01
- PKER_SWETH( 13, 46) = 0.158107E+01
- PKER_SWETH( 13, 47) = 0.159129E+01
- PKER_SWETH( 13, 48) = 0.160083E+01
- PKER_SWETH( 13, 49) = 0.160975E+01
- PKER_SWETH( 13, 50) = 0.161810E+01
- PKER_SWETH( 13, 51) = 0.162591E+01
- PKER_SWETH( 13, 52) = 0.163323E+01
- PKER_SWETH( 13, 53) = 0.164009E+01
- PKER_SWETH( 13, 54) = 0.164651E+01
- PKER_SWETH( 13, 55) = 0.165254E+01
- PKER_SWETH( 13, 56) = 0.165818E+01
- PKER_SWETH( 13, 57) = 0.166348E+01
- PKER_SWETH( 13, 58) = 0.166845E+01
- PKER_SWETH( 13, 59) = 0.167312E+01
- PKER_SWETH( 13, 60) = 0.167749E+01
- PKER_SWETH( 13, 61) = 0.168160E+01
- PKER_SWETH( 13, 62) = 0.168546E+01
- PKER_SWETH( 13, 63) = 0.168907E+01
- PKER_SWETH( 13, 64) = 0.169247E+01
- PKER_SWETH( 13, 65) = 0.169566E+01
- PKER_SWETH( 13, 66) = 0.169865E+01
- PKER_SWETH( 13, 67) = 0.170146E+01
- PKER_SWETH( 13, 68) = 0.170410E+01
- PKER_SWETH( 13, 69) = 0.170658E+01
- PKER_SWETH( 13, 70) = 0.170890E+01
- PKER_SWETH( 13, 71) = 0.171108E+01
- PKER_SWETH( 13, 72) = 0.171313E+01
- PKER_SWETH( 13, 73) = 0.171506E+01
- PKER_SWETH( 13, 74) = 0.171687E+01
- PKER_SWETH( 13, 75) = 0.171856E+01
- PKER_SWETH( 13, 76) = 0.172016E+01
- PKER_SWETH( 13, 77) = 0.172165E+01
- PKER_SWETH( 13, 78) = 0.172306E+01
- PKER_SWETH( 13, 79) = 0.172437E+01
- PKER_SWETH( 13, 80) = 0.172561E+01
- PKER_SWETH( 14, 1) = 0.191644E+01
- PKER_SWETH( 14, 2) = 0.171981E+01
- PKER_SWETH( 14, 3) = 0.153516E+01
- PKER_SWETH( 14, 4) = 0.136183E+01
- PKER_SWETH( 14, 5) = 0.119931E+01
- PKER_SWETH( 14, 6) = 0.104729E+01
- PKER_SWETH( 14, 7) = 0.905766E+00
- PKER_SWETH( 14, 8) = 0.775129E+00
- PKER_SWETH( 14, 9) = 0.656292E+00
- PKER_SWETH( 14, 10) = 0.550615E+00
- PKER_SWETH( 14, 11) = 0.459778E+00
- PKER_SWETH( 14, 12) = 0.385647E+00
- PKER_SWETH( 14, 13) = 0.329785E+00
- PKER_SWETH( 14, 14) = 0.293160E+00
- PKER_SWETH( 14, 15) = 0.275937E+00
- PKER_SWETH( 14, 16) = 0.276977E+00
- PKER_SWETH( 14, 17) = 0.294714E+00
- PKER_SWETH( 14, 18) = 0.326332E+00
- PKER_SWETH( 14, 19) = 0.369117E+00
- PKER_SWETH( 14, 20) = 0.420187E+00
- PKER_SWETH( 14, 21) = 0.476869E+00
- PKER_SWETH( 14, 22) = 0.536997E+00
- PKER_SWETH( 14, 23) = 0.598735E+00
- PKER_SWETH( 14, 24) = 0.660650E+00
- PKER_SWETH( 14, 25) = 0.721544E+00
- PKER_SWETH( 14, 26) = 0.780441E+00
- PKER_SWETH( 14, 27) = 0.836536E+00
- PKER_SWETH( 14, 28) = 0.889213E+00
- PKER_SWETH( 14, 29) = 0.938066E+00
- PKER_SWETH( 14, 30) = 0.982909E+00
- PKER_SWETH( 14, 31) = 0.102375E+01
- PKER_SWETH( 14, 32) = 0.106077E+01
- PKER_SWETH( 14, 33) = 0.109424E+01
- PKER_SWETH( 14, 34) = 0.112450E+01
- PKER_SWETH( 14, 35) = 0.115187E+01
- PKER_SWETH( 14, 36) = 0.117671E+01
- PKER_SWETH( 14, 37) = 0.119930E+01
- PKER_SWETH( 14, 38) = 0.121993E+01
- PKER_SWETH( 14, 39) = 0.123882E+01
- PKER_SWETH( 14, 40) = 0.125618E+01
- PKER_SWETH( 14, 41) = 0.127218E+01
- PKER_SWETH( 14, 42) = 0.128696E+01
- PKER_SWETH( 14, 43) = 0.130065E+01
- PKER_SWETH( 14, 44) = 0.131335E+01
- PKER_SWETH( 14, 45) = 0.132516E+01
- PKER_SWETH( 14, 46) = 0.133616E+01
- PKER_SWETH( 14, 47) = 0.134642E+01
- PKER_SWETH( 14, 48) = 0.135599E+01
- PKER_SWETH( 14, 49) = 0.136494E+01
- PKER_SWETH( 14, 50) = 0.137330E+01
- PKER_SWETH( 14, 51) = 0.138113E+01
- PKER_SWETH( 14, 52) = 0.138846E+01
- PKER_SWETH( 14, 53) = 0.139532E+01
- PKER_SWETH( 14, 54) = 0.140175E+01
- PKER_SWETH( 14, 55) = 0.140778E+01
- PKER_SWETH( 14, 56) = 0.141343E+01
- PKER_SWETH( 14, 57) = 0.141874E+01
- PKER_SWETH( 14, 58) = 0.142371E+01
- PKER_SWETH( 14, 59) = 0.142837E+01
- PKER_SWETH( 14, 60) = 0.143275E+01
- PKER_SWETH( 14, 61) = 0.143686E+01
- PKER_SWETH( 14, 62) = 0.144072E+01
- PKER_SWETH( 14, 63) = 0.144434E+01
- PKER_SWETH( 14, 64) = 0.144773E+01
- PKER_SWETH( 14, 65) = 0.145092E+01
- PKER_SWETH( 14, 66) = 0.145391E+01
- PKER_SWETH( 14, 67) = 0.145672E+01
- PKER_SWETH( 14, 68) = 0.145936E+01
- PKER_SWETH( 14, 69) = 0.146184E+01
- PKER_SWETH( 14, 70) = 0.146416E+01
- PKER_SWETH( 14, 71) = 0.146635E+01
- PKER_SWETH( 14, 72) = 0.146840E+01
- PKER_SWETH( 14, 73) = 0.147032E+01
- PKER_SWETH( 14, 74) = 0.147213E+01
- PKER_SWETH( 14, 75) = 0.147383E+01
- PKER_SWETH( 14, 76) = 0.147542E+01
- PKER_SWETH( 14, 77) = 0.147692E+01
- PKER_SWETH( 14, 78) = 0.147832E+01
- PKER_SWETH( 14, 79) = 0.147964E+01
- PKER_SWETH( 14, 80) = 0.148088E+01
- PKER_SWETH( 15, 1) = 0.209919E+01
- PKER_SWETH( 15, 2) = 0.190259E+01
- PKER_SWETH( 15, 3) = 0.171794E+01
- PKER_SWETH( 15, 4) = 0.154449E+01
- PKER_SWETH( 15, 5) = 0.138158E+01
- PKER_SWETH( 15, 6) = 0.122859E+01
- PKER_SWETH( 15, 7) = 0.108503E+01
- PKER_SWETH( 15, 8) = 0.950547E+00
- PKER_SWETH( 15, 9) = 0.825033E+00
- PKER_SWETH( 15, 10) = 0.708693E+00
- PKER_SWETH( 15, 11) = 0.602154E+00
- PKER_SWETH( 15, 12) = 0.506482E+00
- PKER_SWETH( 15, 13) = 0.423037E+00
- PKER_SWETH( 15, 14) = 0.353533E+00
- PKER_SWETH( 15, 15) = 0.299551E+00
- PKER_SWETH( 15, 16) = 0.262102E+00
- PKER_SWETH( 15, 17) = 0.241884E+00
- PKER_SWETH( 15, 18) = 0.238413E+00
- PKER_SWETH( 15, 19) = 0.250171E+00
- PKER_SWETH( 15, 20) = 0.275347E+00
- PKER_SWETH( 15, 21) = 0.311363E+00
- PKER_SWETH( 15, 22) = 0.355624E+00
- PKER_SWETH( 15, 23) = 0.405543E+00
- PKER_SWETH( 15, 24) = 0.458917E+00
- PKER_SWETH( 15, 25) = 0.513821E+00
- PKER_SWETH( 15, 26) = 0.568682E+00
- PKER_SWETH( 15, 27) = 0.622251E+00
- PKER_SWETH( 15, 28) = 0.673551E+00
- PKER_SWETH( 15, 29) = 0.721876E+00
- PKER_SWETH( 15, 30) = 0.766778E+00
- PKER_SWETH( 15, 31) = 0.808050E+00
- PKER_SWETH( 15, 32) = 0.845689E+00
- PKER_SWETH( 15, 33) = 0.879844E+00
- PKER_SWETH( 15, 34) = 0.910766E+00
- PKER_SWETH( 15, 35) = 0.938752E+00
- PKER_SWETH( 15, 36) = 0.964114E+00
- PKER_SWETH( 15, 37) = 0.987153E+00
- PKER_SWETH( 15, 38) = 0.100814E+01
- PKER_SWETH( 15, 39) = 0.102733E+01
- PKER_SWETH( 15, 40) = 0.104492E+01
- PKER_SWETH( 15, 41) = 0.106110E+01
- PKER_SWETH( 15, 42) = 0.107603E+01
- PKER_SWETH( 15, 43) = 0.108984E+01
- PKER_SWETH( 15, 44) = 0.110263E+01
- PKER_SWETH( 15, 45) = 0.111451E+01
- PKER_SWETH( 15, 46) = 0.112557E+01
- PKER_SWETH( 15, 47) = 0.113587E+01
- PKER_SWETH( 15, 48) = 0.114547E+01
- PKER_SWETH( 15, 49) = 0.115444E+01
- PKER_SWETH( 15, 50) = 0.116283E+01
- PKER_SWETH( 15, 51) = 0.117067E+01
- PKER_SWETH( 15, 52) = 0.117801E+01
- PKER_SWETH( 15, 53) = 0.118488E+01
- PKER_SWETH( 15, 54) = 0.119132E+01
- PKER_SWETH( 15, 55) = 0.119736E+01
- PKER_SWETH( 15, 56) = 0.120301E+01
- PKER_SWETH( 15, 57) = 0.120832E+01
- PKER_SWETH( 15, 58) = 0.121329E+01
- PKER_SWETH( 15, 59) = 0.121796E+01
- PKER_SWETH( 15, 60) = 0.122234E+01
- PKER_SWETH( 15, 61) = 0.122645E+01
- PKER_SWETH( 15, 62) = 0.123031E+01
- PKER_SWETH( 15, 63) = 0.123393E+01
- PKER_SWETH( 15, 64) = 0.123732E+01
- PKER_SWETH( 15, 65) = 0.124051E+01
- PKER_SWETH( 15, 66) = 0.124351E+01
- PKER_SWETH( 15, 67) = 0.124632E+01
- PKER_SWETH( 15, 68) = 0.124896E+01
- PKER_SWETH( 15, 69) = 0.125143E+01
- PKER_SWETH( 15, 70) = 0.125376E+01
- PKER_SWETH( 15, 71) = 0.125594E+01
- PKER_SWETH( 15, 72) = 0.125799E+01
- PKER_SWETH( 15, 73) = 0.125992E+01
- PKER_SWETH( 15, 74) = 0.126172E+01
- PKER_SWETH( 15, 75) = 0.126342E+01
- PKER_SWETH( 15, 76) = 0.126501E+01
- PKER_SWETH( 15, 77) = 0.126651E+01
- PKER_SWETH( 15, 78) = 0.126792E+01
- PKER_SWETH( 15, 79) = 0.126923E+01
- PKER_SWETH( 15, 80) = 0.127047E+01
- PKER_SWETH( 16, 1) = 0.225627E+01
- PKER_SWETH( 16, 2) = 0.205974E+01
- PKER_SWETH( 16, 3) = 0.187515E+01
- PKER_SWETH( 16, 4) = 0.170176E+01
- PKER_SWETH( 16, 5) = 0.153889E+01
- PKER_SWETH( 16, 6) = 0.138588E+01
- PKER_SWETH( 16, 7) = 0.124213E+01
- PKER_SWETH( 16, 8) = 0.110710E+01
- PKER_SWETH( 16, 9) = 0.980292E+00
- PKER_SWETH( 16, 10) = 0.861366E+00
- PKER_SWETH( 16, 11) = 0.750132E+00
- PKER_SWETH( 16, 12) = 0.646663E+00
- PKER_SWETH( 16, 13) = 0.551374E+00
- PKER_SWETH( 16, 14) = 0.465058E+00
- PKER_SWETH( 16, 15) = 0.388869E+00
- PKER_SWETH( 16, 16) = 0.324265E+00
- PKER_SWETH( 16, 17) = 0.272776E+00
- PKER_SWETH( 16, 18) = 0.235577E+00
- PKER_SWETH( 16, 19) = 0.213511E+00
- PKER_SWETH( 16, 20) = 0.206520E+00
- PKER_SWETH( 16, 21) = 0.213797E+00
- PKER_SWETH( 16, 22) = 0.233640E+00
- PKER_SWETH( 16, 23) = 0.263928E+00
- PKER_SWETH( 16, 24) = 0.302257E+00
- PKER_SWETH( 16, 25) = 0.346122E+00
- PKER_SWETH( 16, 26) = 0.393290E+00
- PKER_SWETH( 16, 27) = 0.441774E+00
- PKER_SWETH( 16, 28) = 0.489947E+00
- PKER_SWETH( 16, 29) = 0.536578E+00
- PKER_SWETH( 16, 30) = 0.580787E+00
- PKER_SWETH( 16, 31) = 0.622021E+00
- PKER_SWETH( 16, 32) = 0.660014E+00
- PKER_SWETH( 16, 33) = 0.694722E+00
- PKER_SWETH( 16, 34) = 0.726265E+00
- PKER_SWETH( 16, 35) = 0.754860E+00
- PKER_SWETH( 16, 36) = 0.780775E+00
- PKER_SWETH( 16, 37) = 0.804293E+00
- PKER_SWETH( 16, 38) = 0.825685E+00
- PKER_SWETH( 16, 39) = 0.845200E+00
- PKER_SWETH( 16, 40) = 0.863058E+00
- PKER_SWETH( 16, 41) = 0.879451E+00
- PKER_SWETH( 16, 42) = 0.894545E+00
- PKER_SWETH( 16, 43) = 0.908480E+00
- PKER_SWETH( 16, 44) = 0.921377E+00
- PKER_SWETH( 16, 45) = 0.933340E+00
- PKER_SWETH( 16, 46) = 0.944457E+00
- PKER_SWETH( 16, 47) = 0.954804E+00
- PKER_SWETH( 16, 48) = 0.964449E+00
- PKER_SWETH( 16, 49) = 0.973449E+00
- PKER_SWETH( 16, 50) = 0.981857E+00
- PKER_SWETH( 16, 51) = 0.989717E+00
- PKER_SWETH( 16, 52) = 0.997071E+00
- PKER_SWETH( 16, 53) = 0.100395E+01
- PKER_SWETH( 16, 54) = 0.101040E+01
- PKER_SWETH( 16, 55) = 0.101644E+01
- PKER_SWETH( 16, 56) = 0.102211E+01
- PKER_SWETH( 16, 57) = 0.102741E+01
- PKER_SWETH( 16, 58) = 0.103239E+01
- PKER_SWETH( 16, 59) = 0.103706E+01
- PKER_SWETH( 16, 60) = 0.104144E+01
- PKER_SWETH( 16, 61) = 0.104556E+01
- PKER_SWETH( 16, 62) = 0.104941E+01
- PKER_SWETH( 16, 63) = 0.105303E+01
- PKER_SWETH( 16, 64) = 0.105643E+01
- PKER_SWETH( 16, 65) = 0.105962E+01
- PKER_SWETH( 16, 66) = 0.106262E+01
- PKER_SWETH( 16, 67) = 0.106543E+01
- PKER_SWETH( 16, 68) = 0.106807E+01
- PKER_SWETH( 16, 69) = 0.107054E+01
- PKER_SWETH( 16, 70) = 0.107287E+01
- PKER_SWETH( 16, 71) = 0.107505E+01
- PKER_SWETH( 16, 72) = 0.107710E+01
- PKER_SWETH( 16, 73) = 0.107903E+01
- PKER_SWETH( 16, 74) = 0.108083E+01
- PKER_SWETH( 16, 75) = 0.108253E+01
- PKER_SWETH( 16, 76) = 0.108412E+01
- PKER_SWETH( 16, 77) = 0.108562E+01
- PKER_SWETH( 16, 78) = 0.108703E+01
- PKER_SWETH( 16, 79) = 0.108834E+01
- PKER_SWETH( 16, 80) = 0.108958E+01
- PKER_SWETH( 17, 1) = 0.239130E+01
- PKER_SWETH( 17, 2) = 0.219480E+01
- PKER_SWETH( 17, 3) = 0.201026E+01
- PKER_SWETH( 17, 4) = 0.183694E+01
- PKER_SWETH( 17, 5) = 0.167414E+01
- PKER_SWETH( 17, 6) = 0.152122E+01
- PKER_SWETH( 17, 7) = 0.137754E+01
- PKER_SWETH( 17, 8) = 0.124255E+01
- PKER_SWETH( 17, 9) = 0.111570E+01
- PKER_SWETH( 17, 10) = 0.996495E+00
- PKER_SWETH( 17, 11) = 0.884490E+00
- PKER_SWETH( 17, 12) = 0.779332E+00
- PKER_SWETH( 17, 13) = 0.680798E+00
- PKER_SWETH( 17, 14) = 0.588860E+00
- PKER_SWETH( 17, 15) = 0.503782E+00
- PKER_SWETH( 17, 16) = 0.426137E+00
- PKER_SWETH( 17, 17) = 0.356873E+00
- PKER_SWETH( 17, 18) = 0.297270E+00
- PKER_SWETH( 17, 19) = 0.248688E+00
- PKER_SWETH( 17, 20) = 0.212450E+00
- PKER_SWETH( 17, 21) = 0.189516E+00
- PKER_SWETH( 17, 22) = 0.180089E+00
- PKER_SWETH( 17, 23) = 0.183781E+00
- PKER_SWETH( 17, 24) = 0.199287E+00
- PKER_SWETH( 17, 25) = 0.224789E+00
- PKER_SWETH( 17, 26) = 0.257938E+00
- PKER_SWETH( 17, 27) = 0.296342E+00
- PKER_SWETH( 17, 28) = 0.337770E+00
- PKER_SWETH( 17, 29) = 0.380196E+00
- PKER_SWETH( 17, 30) = 0.422074E+00
- PKER_SWETH( 17, 31) = 0.462252E+00
- PKER_SWETH( 17, 32) = 0.499999E+00
- PKER_SWETH( 17, 33) = 0.534934E+00
- PKER_SWETH( 17, 34) = 0.566940E+00
- PKER_SWETH( 17, 35) = 0.596084E+00
- PKER_SWETH( 17, 36) = 0.622549E+00
- PKER_SWETH( 17, 37) = 0.646567E+00
- PKER_SWETH( 17, 38) = 0.668394E+00
- PKER_SWETH( 17, 39) = 0.688272E+00
- PKER_SWETH( 17, 40) = 0.706427E+00
- PKER_SWETH( 17, 41) = 0.723060E+00
- PKER_SWETH( 17, 42) = 0.738344E+00
- PKER_SWETH( 17, 43) = 0.752430E+00
- PKER_SWETH( 17, 44) = 0.765446E+00
- PKER_SWETH( 17, 45) = 0.777501E+00
- PKER_SWETH( 17, 46) = 0.788690E+00
- PKER_SWETH( 17, 47) = 0.799094E+00
- PKER_SWETH( 17, 48) = 0.808782E+00
- PKER_SWETH( 17, 49) = 0.817816E+00
- PKER_SWETH( 17, 50) = 0.826250E+00
- PKER_SWETH( 17, 51) = 0.834130E+00
- PKER_SWETH( 17, 52) = 0.841500E+00
- PKER_SWETH( 17, 53) = 0.848396E+00
- PKER_SWETH( 17, 54) = 0.854853E+00
- PKER_SWETH( 17, 55) = 0.860901E+00
- PKER_SWETH( 17, 56) = 0.866570E+00
- PKER_SWETH( 17, 57) = 0.871883E+00
- PKER_SWETH( 17, 58) = 0.876865E+00
- PKER_SWETH( 17, 59) = 0.881538E+00
- PKER_SWETH( 17, 60) = 0.885922E+00
- PKER_SWETH( 17, 61) = 0.890034E+00
- PKER_SWETH( 17, 62) = 0.893893E+00
- PKER_SWETH( 17, 63) = 0.897515E+00
- PKER_SWETH( 17, 64) = 0.900914E+00
- PKER_SWETH( 17, 65) = 0.904104E+00
- PKER_SWETH( 17, 66) = 0.907099E+00
- PKER_SWETH( 17, 67) = 0.909910E+00
- PKER_SWETH( 17, 68) = 0.912549E+00
- PKER_SWETH( 17, 69) = 0.915026E+00
- PKER_SWETH( 17, 70) = 0.917352E+00
- PKER_SWETH( 17, 71) = 0.919536E+00
- PKER_SWETH( 17, 72) = 0.921586E+00
- PKER_SWETH( 17, 73) = 0.923511E+00
- PKER_SWETH( 17, 74) = 0.925319E+00
- PKER_SWETH( 17, 75) = 0.927015E+00
- PKER_SWETH( 17, 76) = 0.928609E+00
- PKER_SWETH( 17, 77) = 0.930105E+00
- PKER_SWETH( 17, 78) = 0.931509E+00
- PKER_SWETH( 17, 79) = 0.932828E+00
- PKER_SWETH( 17, 80) = 0.934067E+00
- PKER_SWETH( 18, 1) = 0.250736E+01
- PKER_SWETH( 18, 2) = 0.231089E+01
- PKER_SWETH( 18, 3) = 0.212639E+01
- PKER_SWETH( 18, 4) = 0.195312E+01
- PKER_SWETH( 18, 5) = 0.179038E+01
- PKER_SWETH( 18, 6) = 0.163752E+01
- PKER_SWETH( 18, 7) = 0.149393E+01
- PKER_SWETH( 18, 8) = 0.135903E+01
- PKER_SWETH( 18, 9) = 0.123229E+01
- PKER_SWETH( 18, 10) = 0.111318E+01
- PKER_SWETH( 18, 11) = 0.100122E+01
- PKER_SWETH( 18, 12) = 0.895967E+00
- PKER_SWETH( 18, 13) = 0.797018E+00
- PKER_SWETH( 18, 14) = 0.704029E+00
- PKER_SWETH( 18, 15) = 0.616756E+00
- PKER_SWETH( 18, 16) = 0.535113E+00
- PKER_SWETH( 18, 17) = 0.459233E+00
- PKER_SWETH( 18, 18) = 0.389543E+00
- PKER_SWETH( 18, 19) = 0.326796E+00
- PKER_SWETH( 18, 20) = 0.272095E+00
- PKER_SWETH( 18, 21) = 0.226702E+00
- PKER_SWETH( 18, 22) = 0.191896E+00
- PKER_SWETH( 18, 23) = 0.168801E+00
- PKER_SWETH( 18, 24) = 0.157853E+00
- PKER_SWETH( 18, 25) = 0.158846E+00
- PKER_SWETH( 18, 26) = 0.170918E+00
- PKER_SWETH( 18, 27) = 0.192288E+00
- PKER_SWETH( 18, 28) = 0.220881E+00
- PKER_SWETH( 18, 29) = 0.254306E+00
- PKER_SWETH( 18, 30) = 0.290385E+00
- PKER_SWETH( 18, 31) = 0.327168E+00
- PKER_SWETH( 18, 32) = 0.363206E+00
- PKER_SWETH( 18, 33) = 0.397516E+00
- PKER_SWETH( 18, 34) = 0.429526E+00
- PKER_SWETH( 18, 35) = 0.458999E+00
- PKER_SWETH( 18, 36) = 0.485922E+00
- PKER_SWETH( 18, 37) = 0.510423E+00
- PKER_SWETH( 18, 38) = 0.532699E+00
- PKER_SWETH( 18, 39) = 0.552969E+00
- PKER_SWETH( 18, 40) = 0.571453E+00
- PKER_SWETH( 18, 41) = 0.588356E+00
- PKER_SWETH( 18, 42) = 0.603857E+00
- PKER_SWETH( 18, 43) = 0.618115E+00
- PKER_SWETH( 18, 44) = 0.631267E+00
- PKER_SWETH( 18, 45) = 0.643428E+00
- PKER_SWETH( 18, 46) = 0.654700E+00
- PKER_SWETH( 18, 47) = 0.665169E+00
- PKER_SWETH( 18, 48) = 0.674907E+00
- PKER_SWETH( 18, 49) = 0.683980E+00
- PKER_SWETH( 18, 50) = 0.692444E+00
- PKER_SWETH( 18, 51) = 0.700348E+00
- PKER_SWETH( 18, 52) = 0.707736E+00
- PKER_SWETH( 18, 53) = 0.714646E+00
- PKER_SWETH( 18, 54) = 0.721114E+00
- PKER_SWETH( 18, 55) = 0.727171E+00
- PKER_SWETH( 18, 56) = 0.732846E+00
- PKER_SWETH( 18, 57) = 0.738165E+00
- PKER_SWETH( 18, 58) = 0.743151E+00
- PKER_SWETH( 18, 59) = 0.747827E+00
- PKER_SWETH( 18, 60) = 0.752213E+00
- PKER_SWETH( 18, 61) = 0.756327E+00
- PKER_SWETH( 18, 62) = 0.760188E+00
- PKER_SWETH( 18, 63) = 0.763810E+00
- PKER_SWETH( 18, 64) = 0.767210E+00
- PKER_SWETH( 18, 65) = 0.770401E+00
- PKER_SWETH( 18, 66) = 0.773396E+00
- PKER_SWETH( 18, 67) = 0.776208E+00
- PKER_SWETH( 18, 68) = 0.778847E+00
- PKER_SWETH( 18, 69) = 0.781325E+00
- PKER_SWETH( 18, 70) = 0.783651E+00
- PKER_SWETH( 18, 71) = 0.785835E+00
- PKER_SWETH( 18, 72) = 0.787885E+00
- PKER_SWETH( 18, 73) = 0.789810E+00
- PKER_SWETH( 18, 74) = 0.791618E+00
- PKER_SWETH( 18, 75) = 0.793315E+00
- PKER_SWETH( 18, 76) = 0.794908E+00
- PKER_SWETH( 18, 77) = 0.796404E+00
- PKER_SWETH( 18, 78) = 0.797809E+00
- PKER_SWETH( 18, 79) = 0.799128E+00
- PKER_SWETH( 18, 80) = 0.800366E+00
- PKER_SWETH( 19, 1) = 0.260712E+01
- PKER_SWETH( 19, 2) = 0.241068E+01
- PKER_SWETH( 19, 3) = 0.222621E+01
- PKER_SWETH( 19, 4) = 0.205297E+01
- PKER_SWETH( 19, 5) = 0.189027E+01
- PKER_SWETH( 19, 6) = 0.173746E+01
- PKER_SWETH( 19, 7) = 0.159394E+01
- PKER_SWETH( 19, 8) = 0.145912E+01
- PKER_SWETH( 19, 9) = 0.133246E+01
- PKER_SWETH( 19, 10) = 0.121346E+01
- PKER_SWETH( 19, 11) = 0.110163E+01
- PKER_SWETH( 19, 12) = 0.996507E+00
- PKER_SWETH( 19, 13) = 0.897673E+00
- PKER_SWETH( 19, 14) = 0.804722E+00
- PKER_SWETH( 19, 15) = 0.717285E+00
- PKER_SWETH( 19, 16) = 0.635038E+00
- PKER_SWETH( 19, 17) = 0.557733E+00
- PKER_SWETH( 19, 18) = 0.485242E+00
- PKER_SWETH( 19, 19) = 0.417618E+00
- PKER_SWETH( 19, 20) = 0.355152E+00
- PKER_SWETH( 19, 21) = 0.298466E+00
- PKER_SWETH( 19, 22) = 0.248486E+00
- PKER_SWETH( 19, 23) = 0.206362E+00
- PKER_SWETH( 19, 24) = 0.173382E+00
- PKER_SWETH( 19, 25) = 0.150641E+00
- PKER_SWETH( 19, 26) = 0.138811E+00
- PKER_SWETH( 19, 27) = 0.137940E+00
- PKER_SWETH( 19, 28) = 0.147153E+00
- PKER_SWETH( 19, 29) = 0.165086E+00
- PKER_SWETH( 19, 30) = 0.189581E+00
- PKER_SWETH( 19, 31) = 0.218462E+00
- PKER_SWETH( 19, 32) = 0.249591E+00
- PKER_SWETH( 19, 33) = 0.281174E+00
- PKER_SWETH( 19, 34) = 0.311929E+00
- PKER_SWETH( 19, 35) = 0.341031E+00
- PKER_SWETH( 19, 36) = 0.368064E+00
- PKER_SWETH( 19, 37) = 0.392893E+00
- PKER_SWETH( 19, 38) = 0.415567E+00
- PKER_SWETH( 19, 39) = 0.436229E+00
- PKER_SWETH( 19, 40) = 0.455063E+00
- PKER_SWETH( 19, 41) = 0.472262E+00
- PKER_SWETH( 19, 42) = 0.488006E+00
- PKER_SWETH( 19, 43) = 0.502461E+00
- PKER_SWETH( 19, 44) = 0.515768E+00
- PKER_SWETH( 19, 45) = 0.528053E+00
- PKER_SWETH( 19, 46) = 0.539421E+00
- PKER_SWETH( 19, 47) = 0.549964E+00
- PKER_SWETH( 19, 48) = 0.559761E+00
- PKER_SWETH( 19, 49) = 0.568879E+00
- PKER_SWETH( 19, 50) = 0.577378E+00
- PKER_SWETH( 19, 51) = 0.585309E+00
- PKER_SWETH( 19, 52) = 0.592718E+00
- PKER_SWETH( 19, 53) = 0.599645E+00
- PKER_SWETH( 19, 54) = 0.606125E+00
- PKER_SWETH( 19, 55) = 0.612192E+00
- PKER_SWETH( 19, 56) = 0.617874E+00
- PKER_SWETH( 19, 57) = 0.623199E+00
- PKER_SWETH( 19, 58) = 0.628190E+00
- PKER_SWETH( 19, 59) = 0.632869E+00
- PKER_SWETH( 19, 60) = 0.637258E+00
- PKER_SWETH( 19, 61) = 0.641374E+00
- PKER_SWETH( 19, 62) = 0.645237E+00
- PKER_SWETH( 19, 63) = 0.648860E+00
- PKER_SWETH( 19, 64) = 0.652261E+00
- PKER_SWETH( 19, 65) = 0.655453E+00
- PKER_SWETH( 19, 66) = 0.658449E+00
- PKER_SWETH( 19, 67) = 0.661261E+00
- PKER_SWETH( 19, 68) = 0.663901E+00
- PKER_SWETH( 19, 69) = 0.666379E+00
- PKER_SWETH( 19, 70) = 0.668705E+00
- PKER_SWETH( 19, 71) = 0.670889E+00
- PKER_SWETH( 19, 72) = 0.672939E+00
- PKER_SWETH( 19, 73) = 0.674865E+00
- PKER_SWETH( 19, 74) = 0.676672E+00
- PKER_SWETH( 19, 75) = 0.678369E+00
- PKER_SWETH( 19, 76) = 0.679963E+00
- PKER_SWETH( 19, 77) = 0.681459E+00
- PKER_SWETH( 19, 78) = 0.682863E+00
- PKER_SWETH( 19, 79) = 0.684182E+00
- PKER_SWETH( 19, 80) = 0.685421E+00
- PKER_SWETH( 20, 1) = 0.269288E+01
- PKER_SWETH( 20, 2) = 0.249646E+01
- PKER_SWETH( 20, 3) = 0.231201E+01
- PKER_SWETH( 20, 4) = 0.213879E+01
- PKER_SWETH( 20, 5) = 0.197613E+01
- PKER_SWETH( 20, 6) = 0.182336E+01
- PKER_SWETH( 20, 7) = 0.167988E+01
- PKER_SWETH( 20, 8) = 0.154512E+01
- PKER_SWETH( 20, 9) = 0.141853E+01
- PKER_SWETH( 20, 10) = 0.129961E+01
- PKER_SWETH( 20, 11) = 0.118788E+01
- PKER_SWETH( 20, 12) = 0.108288E+01
- PKER_SWETH( 20, 13) = 0.984187E+00
- PKER_SWETH( 20, 14) = 0.891397E+00
- PKER_SWETH( 20, 15) = 0.804124E+00
- PKER_SWETH( 20, 16) = 0.722009E+00
- PKER_SWETH( 20, 17) = 0.644714E+00
- PKER_SWETH( 20, 18) = 0.571940E+00
- PKER_SWETH( 20, 19) = 0.503441E+00
- PKER_SWETH( 20, 20) = 0.439066E+00
- PKER_SWETH( 20, 21) = 0.378811E+00
- PKER_SWETH( 20, 22) = 0.322879E+00
- PKER_SWETH( 20, 23) = 0.271763E+00
- PKER_SWETH( 20, 24) = 0.226263E+00
- PKER_SWETH( 20, 25) = 0.187406E+00
- PKER_SWETH( 20, 26) = 0.156446E+00
- PKER_SWETH( 20, 27) = 0.134517E+00
- PKER_SWETH( 20, 28) = 0.122305E+00
- PKER_SWETH( 20, 29) = 0.120067E+00
- PKER_SWETH( 20, 30) = 0.127125E+00
- PKER_SWETH( 20, 31) = 0.142001E+00
- PKER_SWETH( 20, 32) = 0.162875E+00
- PKER_SWETH( 20, 33) = 0.187599E+00
- PKER_SWETH( 20, 34) = 0.214210E+00
- PKER_SWETH( 20, 35) = 0.241099E+00
- PKER_SWETH( 20, 36) = 0.267168E+00
- PKER_SWETH( 20, 37) = 0.291755E+00
- PKER_SWETH( 20, 38) = 0.314552E+00
- PKER_SWETH( 20, 39) = 0.335492E+00
- PKER_SWETH( 20, 40) = 0.354644E+00
- PKER_SWETH( 20, 41) = 0.372144E+00
- PKER_SWETH( 20, 42) = 0.388151E+00
- PKER_SWETH( 20, 43) = 0.402823E+00
- PKER_SWETH( 20, 44) = 0.416308E+00
- PKER_SWETH( 20, 45) = 0.428733E+00
- PKER_SWETH( 20, 46) = 0.440212E+00
- PKER_SWETH( 20, 47) = 0.450843E+00
- PKER_SWETH( 20, 48) = 0.460707E+00
- PKER_SWETH( 20, 49) = 0.469878E+00
- PKER_SWETH( 20, 50) = 0.478418E+00
- PKER_SWETH( 20, 51) = 0.486380E+00
- PKER_SWETH( 20, 52) = 0.493813E+00
- PKER_SWETH( 20, 53) = 0.500759E+00
- PKER_SWETH( 20, 54) = 0.507254E+00
- PKER_SWETH( 20, 55) = 0.513332E+00
- PKER_SWETH( 20, 56) = 0.519023E+00
- PKER_SWETH( 20, 57) = 0.524354E+00
- PKER_SWETH( 20, 58) = 0.529350E+00
- PKER_SWETH( 20, 59) = 0.534034E+00
- PKER_SWETH( 20, 60) = 0.538425E+00
- PKER_SWETH( 20, 61) = 0.542544E+00
- PKER_SWETH( 20, 62) = 0.546409E+00
- PKER_SWETH( 20, 63) = 0.550034E+00
- PKER_SWETH( 20, 64) = 0.553436E+00
- PKER_SWETH( 20, 65) = 0.556629E+00
- PKER_SWETH( 20, 66) = 0.559625E+00
- PKER_SWETH( 20, 67) = 0.562438E+00
- PKER_SWETH( 20, 68) = 0.565078E+00
- PKER_SWETH( 20, 69) = 0.567556E+00
- PKER_SWETH( 20, 70) = 0.569883E+00
- PKER_SWETH( 20, 71) = 0.572067E+00
- PKER_SWETH( 20, 72) = 0.574118E+00
- PKER_SWETH( 20, 73) = 0.576043E+00
- PKER_SWETH( 20, 74) = 0.577850E+00
- PKER_SWETH( 20, 75) = 0.579548E+00
- PKER_SWETH( 20, 76) = 0.581141E+00
- PKER_SWETH( 20, 77) = 0.582637E+00
- PKER_SWETH( 20, 78) = 0.584042E+00
- PKER_SWETH( 20, 79) = 0.585361E+00
- PKER_SWETH( 20, 80) = 0.586599E+00
- PKER_SWETH( 21, 1) = 0.276660E+01
- PKER_SWETH( 21, 2) = 0.257019E+01
- PKER_SWETH( 21, 3) = 0.238576E+01
- PKER_SWETH( 21, 4) = 0.221256E+01
- PKER_SWETH( 21, 5) = 0.204992E+01
- PKER_SWETH( 21, 6) = 0.189718E+01
- PKER_SWETH( 21, 7) = 0.175373E+01
- PKER_SWETH( 21, 8) = 0.161901E+01
- PKER_SWETH( 21, 9) = 0.149248E+01
- PKER_SWETH( 21, 10) = 0.137362E+01
- PKER_SWETH( 21, 11) = 0.126196E+01
- PKER_SWETH( 21, 12) = 0.115706E+01
- PKER_SWETH( 21, 13) = 0.105848E+01
- PKER_SWETH( 21, 14) = 0.965820E+00
- PKER_SWETH( 21, 15) = 0.878708E+00
- PKER_SWETH( 21, 16) = 0.796778E+00
- PKER_SWETH( 21, 17) = 0.719688E+00
- PKER_SWETH( 21, 18) = 0.647114E+00
- PKER_SWETH( 21, 19) = 0.578752E+00
- PKER_SWETH( 21, 20) = 0.514323E+00
- PKER_SWETH( 21, 21) = 0.453593E+00
- PKER_SWETH( 21, 22) = 0.396401E+00
- PKER_SWETH( 21, 23) = 0.342701E+00
- PKER_SWETH( 21, 24) = 0.292637E+00
- PKER_SWETH( 21, 25) = 0.246605E+00
- PKER_SWETH( 21, 26) = 0.205290E+00
- PKER_SWETH( 21, 27) = 0.169646E+00
- PKER_SWETH( 21, 28) = 0.140837E+00
- PKER_SWETH( 21, 29) = 0.119992E+00
- PKER_SWETH( 21, 30) = 0.107857E+00
- PKER_SWETH( 21, 31) = 0.104691E+00
- PKER_SWETH( 21, 32) = 0.109912E+00
- PKER_SWETH( 21, 33) = 0.122241E+00
- PKER_SWETH( 21, 34) = 0.139853E+00
- PKER_SWETH( 21, 35) = 0.160815E+00
- PKER_SWETH( 21, 36) = 0.183364E+00
- PKER_SWETH( 21, 37) = 0.206102E+00
- PKER_SWETH( 21, 38) = 0.228109E+00
- PKER_SWETH( 21, 39) = 0.248850E+00
- PKER_SWETH( 21, 40) = 0.268092E+00
- PKER_SWETH( 21, 41) = 0.285801E+00
- PKER_SWETH( 21, 42) = 0.302045E+00
- PKER_SWETH( 21, 43) = 0.316939E+00
- PKER_SWETH( 21, 44) = 0.330615E+00
- PKER_SWETH( 21, 45) = 0.343198E+00
- PKER_SWETH( 21, 46) = 0.354804E+00
- PKER_SWETH( 21, 47) = 0.365535E+00
- PKER_SWETH( 21, 48) = 0.375478E+00
- PKER_SWETH( 21, 49) = 0.384710E+00
- PKER_SWETH( 21, 50) = 0.393297E+00
- PKER_SWETH( 21, 51) = 0.401296E+00
- PKER_SWETH( 21, 52) = 0.408758E+00
- PKER_SWETH( 21, 53) = 0.415725E+00
- PKER_SWETH( 21, 54) = 0.422237E+00
- PKER_SWETH( 21, 55) = 0.428328E+00
- PKER_SWETH( 21, 56) = 0.434029E+00
- PKER_SWETH( 21, 57) = 0.439368E+00
- PKER_SWETH( 21, 58) = 0.444370E+00
- PKER_SWETH( 21, 59) = 0.449059E+00
- PKER_SWETH( 21, 60) = 0.453454E+00
- PKER_SWETH( 21, 61) = 0.457576E+00
- PKER_SWETH( 21, 62) = 0.461442E+00
- PKER_SWETH( 21, 63) = 0.465069E+00
- PKER_SWETH( 21, 64) = 0.468472E+00
- PKER_SWETH( 21, 65) = 0.471666E+00
- PKER_SWETH( 21, 66) = 0.474663E+00
- PKER_SWETH( 21, 67) = 0.477476E+00
- PKER_SWETH( 21, 68) = 0.480117E+00
- PKER_SWETH( 21, 69) = 0.482596E+00
- PKER_SWETH( 21, 70) = 0.484923E+00
- PKER_SWETH( 21, 71) = 0.487107E+00
- PKER_SWETH( 21, 72) = 0.489158E+00
- PKER_SWETH( 21, 73) = 0.491083E+00
- PKER_SWETH( 21, 74) = 0.492891E+00
- PKER_SWETH( 21, 75) = 0.494588E+00
- PKER_SWETH( 21, 76) = 0.496182E+00
- PKER_SWETH( 21, 77) = 0.497678E+00
- PKER_SWETH( 21, 78) = 0.499083E+00
- PKER_SWETH( 21, 79) = 0.500402E+00
- PKER_SWETH( 21, 80) = 0.501640E+00
- PKER_SWETH( 22, 1) = 0.282997E+01
- PKER_SWETH( 22, 2) = 0.263357E+01
- PKER_SWETH( 22, 3) = 0.244915E+01
- PKER_SWETH( 22, 4) = 0.227597E+01
- PKER_SWETH( 22, 5) = 0.211334E+01
- PKER_SWETH( 22, 6) = 0.196063E+01
- PKER_SWETH( 22, 7) = 0.181721E+01
- PKER_SWETH( 22, 8) = 0.168252E+01
- PKER_SWETH( 22, 9) = 0.155602E+01
- PKER_SWETH( 22, 10) = 0.143721E+01
- PKER_SWETH( 22, 11) = 0.132561E+01
- PKER_SWETH( 22, 12) = 0.122077E+01
- PKER_SWETH( 22, 13) = 0.112227E+01
- PKER_SWETH( 22, 14) = 0.102972E+01
- PKER_SWETH( 22, 15) = 0.942728E+00
- PKER_SWETH( 22, 16) = 0.860945E+00
- PKER_SWETH( 22, 17) = 0.784032E+00
- PKER_SWETH( 22, 18) = 0.711667E+00
- PKER_SWETH( 22, 19) = 0.643543E+00
- PKER_SWETH( 22, 20) = 0.579369E+00
- PKER_SWETH( 22, 21) = 0.518868E+00
- PKER_SWETH( 22, 22) = 0.461786E+00
- PKER_SWETH( 22, 23) = 0.407901E+00
- PKER_SWETH( 22, 24) = 0.357051E+00
- PKER_SWETH( 22, 25) = 0.309171E+00
- PKER_SWETH( 22, 26) = 0.264357E+00
- PKER_SWETH( 22, 27) = 0.222939E+00
- PKER_SWETH( 22, 28) = 0.185511E+00
- PKER_SWETH( 22, 29) = 0.152956E+00
- PKER_SWETH( 22, 30) = 0.126371E+00
- PKER_SWETH( 22, 31) = 0.106799E+00
- PKER_SWETH( 22, 32) = 0.950337E-01
- PKER_SWETH( 22, 33) = 0.913020E-01
- PKER_SWETH( 22, 34) = 0.950413E-01
- PKER_SWETH( 22, 35) = 0.105099E+00
- PKER_SWETH( 22, 36) = 0.119803E+00
- PKER_SWETH( 22, 37) = 0.137435E+00
- PKER_SWETH( 22, 38) = 0.156413E+00
- PKER_SWETH( 22, 39) = 0.175558E+00
- PKER_SWETH( 22, 40) = 0.194103E+00
- PKER_SWETH( 22, 41) = 0.211605E+00
- PKER_SWETH( 22, 42) = 0.227888E+00
- PKER_SWETH( 22, 43) = 0.242923E+00
- PKER_SWETH( 22, 44) = 0.256764E+00
- PKER_SWETH( 22, 45) = 0.269505E+00
- PKER_SWETH( 22, 46) = 0.281247E+00
- PKER_SWETH( 22, 47) = 0.292089E+00
- PKER_SWETH( 22, 48) = 0.302122E+00
- PKER_SWETH( 22, 49) = 0.311425E+00
- PKER_SWETH( 22, 50) = 0.320067E+00
- PKER_SWETH( 22, 51) = 0.328110E+00
- PKER_SWETH( 22, 52) = 0.335604E+00
- PKER_SWETH( 22, 53) = 0.342597E+00
- PKER_SWETH( 22, 54) = 0.349129E+00
- PKER_SWETH( 22, 55) = 0.355235E+00
- PKER_SWETH( 22, 56) = 0.360948E+00
- PKER_SWETH( 22, 57) = 0.366296E+00
- PKER_SWETH( 22, 58) = 0.371305E+00
- PKER_SWETH( 22, 59) = 0.375999E+00
- PKER_SWETH( 22, 60) = 0.380398E+00
- PKER_SWETH( 22, 61) = 0.384523E+00
- PKER_SWETH( 22, 62) = 0.388392E+00
- PKER_SWETH( 22, 63) = 0.392021E+00
- PKER_SWETH( 22, 64) = 0.395426E+00
- PKER_SWETH( 22, 65) = 0.398621E+00
- PKER_SWETH( 22, 66) = 0.401619E+00
- PKER_SWETH( 22, 67) = 0.404433E+00
- PKER_SWETH( 22, 68) = 0.407074E+00
- PKER_SWETH( 22, 69) = 0.409553E+00
- PKER_SWETH( 22, 70) = 0.411880E+00
- PKER_SWETH( 22, 71) = 0.414065E+00
- PKER_SWETH( 22, 72) = 0.416116E+00
- PKER_SWETH( 22, 73) = 0.418041E+00
- PKER_SWETH( 22, 74) = 0.419849E+00
- PKER_SWETH( 22, 75) = 0.421547E+00
- PKER_SWETH( 22, 76) = 0.423140E+00
- PKER_SWETH( 22, 77) = 0.424636E+00
- PKER_SWETH( 22, 78) = 0.426041E+00
- PKER_SWETH( 22, 79) = 0.427360E+00
- PKER_SWETH( 22, 80) = 0.428599E+00
- PKER_SWETH( 23, 1) = 0.288445E+01
- PKER_SWETH( 23, 2) = 0.268806E+01
- PKER_SWETH( 23, 3) = 0.250364E+01
- PKER_SWETH( 23, 4) = 0.233048E+01
- PKER_SWETH( 23, 5) = 0.216786E+01
- PKER_SWETH( 23, 6) = 0.201516E+01
- PKER_SWETH( 23, 7) = 0.187176E+01
- PKER_SWETH( 23, 8) = 0.173710E+01
- PKER_SWETH( 23, 9) = 0.161063E+01
- PKER_SWETH( 23, 10) = 0.149185E+01
- PKER_SWETH( 23, 11) = 0.138029E+01
- PKER_SWETH( 23, 12) = 0.127551E+01
- PKER_SWETH( 23, 13) = 0.117707E+01
- PKER_SWETH( 23, 14) = 0.108459E+01
- PKER_SWETH( 23, 15) = 0.997690E+00
- PKER_SWETH( 23, 16) = 0.916018E+00
- PKER_SWETH( 23, 17) = 0.839238E+00
- PKER_SWETH( 23, 18) = 0.767034E+00
- PKER_SWETH( 23, 19) = 0.699104E+00
- PKER_SWETH( 23, 20) = 0.635161E+00
- PKER_SWETH( 23, 21) = 0.574928E+00
- PKER_SWETH( 23, 22) = 0.518145E+00
- PKER_SWETH( 23, 23) = 0.464561E+00
- PKER_SWETH( 23, 24) = 0.413942E+00
- PKER_SWETH( 23, 25) = 0.366084E+00
- PKER_SWETH( 23, 26) = 0.320828E+00
- PKER_SWETH( 23, 27) = 0.278103E+00
- PKER_SWETH( 23, 28) = 0.237978E+00
- PKER_SWETH( 23, 29) = 0.200731E+00
- PKER_SWETH( 23, 30) = 0.166899E+00
- PKER_SWETH( 23, 31) = 0.137289E+00
- PKER_SWETH( 23, 32) = 0.112921E+00
- PKER_SWETH( 23, 33) = 0.947715E-01
- PKER_SWETH( 23, 34) = 0.835556E-01
- PKER_SWETH( 23, 35) = 0.795022E-01
- PKER_SWETH( 23, 36) = 0.820667E-01
- PKER_SWETH( 23, 37) = 0.901434E-01
- PKER_SWETH( 23, 38) = 0.102318E+00
- PKER_SWETH( 23, 39) = 0.117002E+00
- PKER_SWETH( 23, 40) = 0.132892E+00
- PKER_SWETH( 23, 41) = 0.148969E+00
- PKER_SWETH( 23, 42) = 0.164595E+00
- PKER_SWETH( 23, 43) = 0.179397E+00
- PKER_SWETH( 23, 44) = 0.193221E+00
- PKER_SWETH( 23, 45) = 0.206041E+00
- PKER_SWETH( 23, 46) = 0.217890E+00
- PKER_SWETH( 23, 47) = 0.228840E+00
- PKER_SWETH( 23, 48) = 0.238967E+00
- PKER_SWETH( 23, 49) = 0.248348E+00
- PKER_SWETH( 23, 50) = 0.257053E+00
- PKER_SWETH( 23, 51) = 0.265145E+00
- PKER_SWETH( 23, 52) = 0.272678E+00
- PKER_SWETH( 23, 53) = 0.279701E+00
- PKER_SWETH( 23, 54) = 0.286256E+00
- PKER_SWETH( 23, 55) = 0.292380E+00
- PKER_SWETH( 23, 56) = 0.298107E+00
- PKER_SWETH( 23, 57) = 0.303465E+00
- PKER_SWETH( 23, 58) = 0.308482E+00
- PKER_SWETH( 23, 59) = 0.313182E+00
- PKER_SWETH( 23, 60) = 0.317586E+00
- PKER_SWETH( 23, 61) = 0.321715E+00
- PKER_SWETH( 23, 62) = 0.325587E+00
- PKER_SWETH( 23, 63) = 0.329218E+00
- PKER_SWETH( 23, 64) = 0.332625E+00
- PKER_SWETH( 23, 65) = 0.335821E+00
- PKER_SWETH( 23, 66) = 0.338820E+00
- PKER_SWETH( 23, 67) = 0.341635E+00
- PKER_SWETH( 23, 68) = 0.344276E+00
- PKER_SWETH( 23, 69) = 0.346756E+00
- PKER_SWETH( 23, 70) = 0.349083E+00
- PKER_SWETH( 23, 71) = 0.351269E+00
- PKER_SWETH( 23, 72) = 0.353320E+00
- PKER_SWETH( 23, 73) = 0.355245E+00
- PKER_SWETH( 23, 74) = 0.357053E+00
- PKER_SWETH( 23, 75) = 0.358751E+00
- PKER_SWETH( 23, 76) = 0.360345E+00
- PKER_SWETH( 23, 77) = 0.361841E+00
- PKER_SWETH( 23, 78) = 0.363246E+00
- PKER_SWETH( 23, 79) = 0.364565E+00
- PKER_SWETH( 23, 80) = 0.365803E+00
- PKER_SWETH( 24, 1) = 0.293128E+01
- PKER_SWETH( 24, 2) = 0.273490E+01
- PKER_SWETH( 24, 3) = 0.255049E+01
- PKER_SWETH( 24, 4) = 0.237733E+01
- PKER_SWETH( 24, 5) = 0.221473E+01
- PKER_SWETH( 24, 6) = 0.206204E+01
- PKER_SWETH( 24, 7) = 0.191865E+01
- PKER_SWETH( 24, 8) = 0.178401E+01
- PKER_SWETH( 24, 9) = 0.165756E+01
- PKER_SWETH( 24, 10) = 0.153881E+01
- PKER_SWETH( 24, 11) = 0.142728E+01
- PKER_SWETH( 24, 12) = 0.132253E+01
- PKER_SWETH( 24, 13) = 0.122414E+01
- PKER_SWETH( 24, 14) = 0.113172E+01
- PKER_SWETH( 24, 15) = 0.104489E+01
- PKER_SWETH( 24, 16) = 0.963296E+00
- PKER_SWETH( 24, 17) = 0.886615E+00
- PKER_SWETH( 24, 18) = 0.814532E+00
- PKER_SWETH( 24, 19) = 0.746748E+00
- PKER_SWETH( 24, 20) = 0.682980E+00
- PKER_SWETH( 24, 21) = 0.622959E+00
- PKER_SWETH( 24, 22) = 0.566429E+00
- PKER_SWETH( 24, 23) = 0.513140E+00
- PKER_SWETH( 24, 24) = 0.462858E+00
- PKER_SWETH( 24, 25) = 0.415356E+00
- PKER_SWETH( 24, 26) = 0.370422E+00
- PKER_SWETH( 24, 27) = 0.327867E+00
- PKER_SWETH( 24, 28) = 0.287546E+00
- PKER_SWETH( 24, 29) = 0.249386E+00
- PKER_SWETH( 24, 30) = 0.213448E+00
- PKER_SWETH( 24, 31) = 0.179979E+00
- PKER_SWETH( 24, 32) = 0.149462E+00
- PKER_SWETH( 24, 33) = 0.122655E+00
- PKER_SWETH( 24, 34) = 0.100473E+00
- PKER_SWETH( 24, 35) = 0.838046E-01
- PKER_SWETH( 24, 36) = 0.732975E-01
- PKER_SWETH( 24, 37) = 0.690734E-01
- PKER_SWETH( 24, 38) = 0.706629E-01
- PKER_SWETH( 24, 39) = 0.770847E-01
- PKER_SWETH( 24, 40) = 0.870070E-01
- PKER_SWETH( 24, 41) = 0.991818E-01
- PKER_SWETH( 24, 42) = 0.112426E+00
- PKER_SWETH( 24, 43) = 0.125916E+00
- PKER_SWETH( 24, 44) = 0.139097E+00
- PKER_SWETH( 24, 45) = 0.151650E+00
- PKER_SWETH( 24, 46) = 0.163434E+00
- PKER_SWETH( 24, 47) = 0.174410E+00
- PKER_SWETH( 24, 48) = 0.184599E+00
- PKER_SWETH( 24, 49) = 0.194049E+00
- PKER_SWETH( 24, 50) = 0.202817E+00
- PKER_SWETH( 24, 51) = 0.210962E+00
- PKER_SWETH( 24, 52) = 0.218539E+00
- PKER_SWETH( 24, 53) = 0.225596E+00
- PKER_SWETH( 24, 54) = 0.232178E+00
- PKER_SWETH( 24, 55) = 0.238323E+00
- PKER_SWETH( 24, 56) = 0.244066E+00
- PKER_SWETH( 24, 57) = 0.249437E+00
- PKER_SWETH( 24, 58) = 0.254464E+00
- PKER_SWETH( 24, 59) = 0.259171E+00
- PKER_SWETH( 24, 60) = 0.263581E+00
- PKER_SWETH( 24, 61) = 0.267714E+00
- PKER_SWETH( 24, 62) = 0.271589E+00
- PKER_SWETH( 24, 63) = 0.275223E+00
- PKER_SWETH( 24, 64) = 0.278631E+00
- PKER_SWETH( 24, 65) = 0.281829E+00
- PKER_SWETH( 24, 66) = 0.284829E+00
- PKER_SWETH( 24, 67) = 0.287645E+00
- PKER_SWETH( 24, 68) = 0.290287E+00
- PKER_SWETH( 24, 69) = 0.292767E+00
- PKER_SWETH( 24, 70) = 0.295095E+00
- PKER_SWETH( 24, 71) = 0.297281E+00
- PKER_SWETH( 24, 72) = 0.299332E+00
- PKER_SWETH( 24, 73) = 0.301258E+00
- PKER_SWETH( 24, 74) = 0.303066E+00
- PKER_SWETH( 24, 75) = 0.304764E+00
- PKER_SWETH( 24, 76) = 0.306358E+00
- PKER_SWETH( 24, 77) = 0.307854E+00
- PKER_SWETH( 24, 78) = 0.309259E+00
- PKER_SWETH( 24, 79) = 0.310578E+00
- PKER_SWETH( 24, 80) = 0.311817E+00
- PKER_SWETH( 25, 1) = 0.297154E+01
- PKER_SWETH( 25, 2) = 0.277516E+01
- PKER_SWETH( 25, 3) = 0.259076E+01
- PKER_SWETH( 25, 4) = 0.241761E+01
- PKER_SWETH( 25, 5) = 0.225501E+01
- PKER_SWETH( 25, 6) = 0.210233E+01
- PKER_SWETH( 25, 7) = 0.195896E+01
- PKER_SWETH( 25, 8) = 0.182433E+01
- PKER_SWETH( 25, 9) = 0.169789E+01
- PKER_SWETH( 25, 10) = 0.157916E+01
- PKER_SWETH( 25, 11) = 0.146766E+01
- PKER_SWETH( 25, 12) = 0.136294E+01
- PKER_SWETH( 25, 13) = 0.126459E+01
- PKER_SWETH( 25, 14) = 0.117220E+01
- PKER_SWETH( 25, 15) = 0.108542E+01
- PKER_SWETH( 25, 16) = 0.100389E+01
- PKER_SWETH( 25, 17) = 0.927285E+00
- PKER_SWETH( 25, 18) = 0.855291E+00
- PKER_SWETH( 25, 19) = 0.787616E+00
- PKER_SWETH( 25, 20) = 0.723980E+00
- PKER_SWETH( 25, 21) = 0.664118E+00
- PKER_SWETH( 25, 22) = 0.607779E+00
- PKER_SWETH( 25, 23) = 0.554721E+00
- PKER_SWETH( 25, 24) = 0.504713E+00
- PKER_SWETH( 25, 25) = 0.457533E+00
- PKER_SWETH( 25, 26) = 0.412967E+00
- PKER_SWETH( 25, 27) = 0.370812E+00
- PKER_SWETH( 25, 28) = 0.330876E+00
- PKER_SWETH( 25, 29) = 0.292989E+00
- PKER_SWETH( 25, 30) = 0.257023E+00
- PKER_SWETH( 25, 31) = 0.222915E+00
- PKER_SWETH( 25, 32) = 0.190725E+00
- PKER_SWETH( 25, 33) = 0.160684E+00
- PKER_SWETH( 25, 34) = 0.133246E+00
- PKER_SWETH( 25, 35) = 0.109094E+00
- PKER_SWETH( 25, 36) = 0.890541E-01
- PKER_SWETH( 25, 37) = 0.738827E-01
- PKER_SWETH( 25, 38) = 0.641418E-01
- PKER_SWETH( 25, 39) = 0.598974E-01
- PKER_SWETH( 25, 40) = 0.606697E-01
- PKER_SWETH( 25, 41) = 0.656428E-01
- PKER_SWETH( 25, 42) = 0.736972E-01
- PKER_SWETH( 25, 43) = 0.836895E-01
- PKER_SWETH( 25, 44) = 0.947074E-01
- PKER_SWETH( 25, 45) = 0.106025E+00
- PKER_SWETH( 25, 46) = 0.117165E+00
- PKER_SWETH( 25, 47) = 0.127842E+00
- PKER_SWETH( 25, 48) = 0.137923E+00
- PKER_SWETH( 25, 49) = 0.147359E+00
- PKER_SWETH( 25, 50) = 0.156153E+00
- PKER_SWETH( 25, 51) = 0.164338E+00
- PKER_SWETH( 25, 52) = 0.171955E+00
- PKER_SWETH( 25, 53) = 0.179048E+00
- PKER_SWETH( 25, 54) = 0.185659E+00
- PKER_SWETH( 25, 55) = 0.191828E+00
- PKER_SWETH( 25, 56) = 0.197589E+00
- PKER_SWETH( 25, 57) = 0.202975E+00
- PKER_SWETH( 25, 58) = 0.208013E+00
- PKER_SWETH( 25, 59) = 0.212728E+00
- PKER_SWETH( 25, 60) = 0.217145E+00
- PKER_SWETH( 25, 61) = 0.221283E+00
- PKER_SWETH( 25, 62) = 0.225162E+00
- PKER_SWETH( 25, 63) = 0.228799E+00
- PKER_SWETH( 25, 64) = 0.232210E+00
- PKER_SWETH( 25, 65) = 0.235409E+00
- PKER_SWETH( 25, 66) = 0.238411E+00
- PKER_SWETH( 25, 67) = 0.241227E+00
- PKER_SWETH( 25, 68) = 0.243871E+00
- PKER_SWETH( 25, 69) = 0.246352E+00
- PKER_SWETH( 25, 70) = 0.248680E+00
- PKER_SWETH( 25, 71) = 0.250866E+00
- PKER_SWETH( 25, 72) = 0.252918E+00
- PKER_SWETH( 25, 73) = 0.254844E+00
- PKER_SWETH( 25, 74) = 0.256652E+00
- PKER_SWETH( 25, 75) = 0.258350E+00
- PKER_SWETH( 25, 76) = 0.259944E+00
- PKER_SWETH( 25, 77) = 0.261440E+00
- PKER_SWETH( 25, 78) = 0.262845E+00
- PKER_SWETH( 25, 79) = 0.264164E+00
- PKER_SWETH( 25, 80) = 0.265403E+00
- PKER_SWETH( 26, 1) = 0.300615E+01
- PKER_SWETH( 26, 2) = 0.280977E+01
- PKER_SWETH( 26, 3) = 0.262538E+01
- PKER_SWETH( 26, 4) = 0.245223E+01
- PKER_SWETH( 26, 5) = 0.228964E+01
- PKER_SWETH( 26, 6) = 0.213697E+01
- PKER_SWETH( 26, 7) = 0.199360E+01
- PKER_SWETH( 26, 8) = 0.185898E+01
- PKER_SWETH( 26, 9) = 0.173256E+01
- PKER_SWETH( 26, 10) = 0.161385E+01
- PKER_SWETH( 26, 11) = 0.150236E+01
- PKER_SWETH( 26, 12) = 0.139766E+01
- PKER_SWETH( 26, 13) = 0.129933E+01
- PKER_SWETH( 26, 14) = 0.120698E+01
- PKER_SWETH( 26, 15) = 0.112024E+01
- PKER_SWETH( 26, 16) = 0.103876E+01
- PKER_SWETH( 26, 17) = 0.962205E+00
- PKER_SWETH( 26, 18) = 0.890279E+00
- PKER_SWETH( 26, 19) = 0.822684E+00
- PKER_SWETH( 26, 20) = 0.759146E+00
- PKER_SWETH( 26, 21) = 0.699404E+00
- PKER_SWETH( 26, 22) = 0.643208E+00
- PKER_SWETH( 26, 23) = 0.590322E+00
- PKER_SWETH( 26, 24) = 0.540522E+00
- PKER_SWETH( 26, 25) = 0.493591E+00
- PKER_SWETH( 26, 26) = 0.449320E+00
- PKER_SWETH( 26, 27) = 0.407511E+00
- PKER_SWETH( 26, 28) = 0.367971E+00
- PKER_SWETH( 26, 29) = 0.330516E+00
- PKER_SWETH( 26, 30) = 0.294977E+00
- PKER_SWETH( 26, 31) = 0.261206E+00
- PKER_SWETH( 26, 32) = 0.229091E+00
- PKER_SWETH( 26, 33) = 0.198592E+00
- PKER_SWETH( 26, 34) = 0.169777E+00
- PKER_SWETH( 26, 35) = 0.142869E+00
- PKER_SWETH( 26, 36) = 0.118292E+00
- PKER_SWETH( 26, 37) = 0.966610E-01
- PKER_SWETH( 26, 38) = 0.786825E-01
- PKER_SWETH( 26, 39) = 0.650023E-01
- PKER_SWETH( 26, 40) = 0.560497E-01
- PKER_SWETH( 26, 41) = 0.518524E-01
- PKER_SWETH( 26, 42) = 0.519800E-01
- PKER_SWETH( 26, 43) = 0.557183E-01
- PKER_SWETH( 26, 44) = 0.621393E-01
- PKER_SWETH( 26, 45) = 0.703233E-01
- PKER_SWETH( 26, 46) = 0.794632E-01
- PKER_SWETH( 26, 47) = 0.889548E-01
- PKER_SWETH( 26, 48) = 0.983834E-01
- PKER_SWETH( 26, 49) = 0.107490E+00
- PKER_SWETH( 26, 50) = 0.116142E+00
- PKER_SWETH( 26, 51) = 0.124280E+00
- PKER_SWETH( 26, 52) = 0.131897E+00
- PKER_SWETH( 26, 53) = 0.139007E+00
- PKER_SWETH( 26, 54) = 0.145642E+00
- PKER_SWETH( 26, 55) = 0.151833E+00
- PKER_SWETH( 26, 56) = 0.157614E+00
- PKER_SWETH( 26, 57) = 0.163015E+00
- PKER_SWETH( 26, 58) = 0.168066E+00
- PKER_SWETH( 26, 59) = 0.172792E+00
- PKER_SWETH( 26, 60) = 0.177216E+00
- PKER_SWETH( 26, 61) = 0.181360E+00
- PKER_SWETH( 26, 62) = 0.185244E+00
- PKER_SWETH( 26, 63) = 0.188884E+00
- PKER_SWETH( 26, 64) = 0.192298E+00
- PKER_SWETH( 26, 65) = 0.195499E+00
- PKER_SWETH( 26, 66) = 0.198503E+00
- PKER_SWETH( 26, 67) = 0.201320E+00
- PKER_SWETH( 26, 68) = 0.203965E+00
- PKER_SWETH( 26, 69) = 0.206446E+00
- PKER_SWETH( 26, 70) = 0.208775E+00
- PKER_SWETH( 26, 71) = 0.210961E+00
- PKER_SWETH( 26, 72) = 0.213013E+00
- PKER_SWETH( 26, 73) = 0.214940E+00
- PKER_SWETH( 26, 74) = 0.216748E+00
- PKER_SWETH( 26, 75) = 0.218446E+00
- PKER_SWETH( 26, 76) = 0.220040E+00
- PKER_SWETH( 26, 77) = 0.221537E+00
- PKER_SWETH( 26, 78) = 0.222942E+00
- PKER_SWETH( 26, 79) = 0.224261E+00
- PKER_SWETH( 26, 80) = 0.225500E+00
- PKER_SWETH( 27, 1) = 0.303590E+01
- PKER_SWETH( 27, 2) = 0.283953E+01
- PKER_SWETH( 27, 3) = 0.265514E+01
- PKER_SWETH( 27, 4) = 0.248199E+01
- PKER_SWETH( 27, 5) = 0.231941E+01
- PKER_SWETH( 27, 6) = 0.216674E+01
- PKER_SWETH( 27, 7) = 0.202338E+01
- PKER_SWETH( 27, 8) = 0.188877E+01
- PKER_SWETH( 27, 9) = 0.176236E+01
- PKER_SWETH( 27, 10) = 0.164366E+01
- PKER_SWETH( 27, 11) = 0.153218E+01
- PKER_SWETH( 27, 12) = 0.142750E+01
- PKER_SWETH( 27, 13) = 0.132919E+01
- PKER_SWETH( 27, 14) = 0.123687E+01
- PKER_SWETH( 27, 15) = 0.115015E+01
- PKER_SWETH( 27, 16) = 0.106870E+01
- PKER_SWETH( 27, 17) = 0.992194E+00
- PKER_SWETH( 27, 18) = 0.920318E+00
- PKER_SWETH( 27, 19) = 0.852785E+00
- PKER_SWETH( 27, 20) = 0.789320E+00
- PKER_SWETH( 27, 21) = 0.729667E+00
- PKER_SWETH( 27, 22) = 0.673578E+00
- PKER_SWETH( 27, 23) = 0.620822E+00
- PKER_SWETH( 27, 24) = 0.571178E+00
- PKER_SWETH( 27, 25) = 0.524434E+00
- PKER_SWETH( 27, 26) = 0.480388E+00
- PKER_SWETH( 27, 27) = 0.438846E+00
- PKER_SWETH( 27, 28) = 0.399622E+00
- PKER_SWETH( 27, 29) = 0.362534E+00
- PKER_SWETH( 27, 30) = 0.327412E+00
- PKER_SWETH( 27, 31) = 0.294092E+00
- PKER_SWETH( 27, 32) = 0.262426E+00
- PKER_SWETH( 27, 33) = 0.232290E+00
- PKER_SWETH( 27, 34) = 0.203599E+00
- PKER_SWETH( 27, 35) = 0.176334E+00
- PKER_SWETH( 27, 36) = 0.150579E+00
- PKER_SWETH( 27, 37) = 0.126557E+00
- PKER_SWETH( 27, 38) = 0.104653E+00
- PKER_SWETH( 27, 39) = 0.854039E-01
- PKER_SWETH( 27, 40) = 0.693914E-01
- PKER_SWETH( 27, 41) = 0.571427E-01
- PKER_SWETH( 27, 42) = 0.489777E-01
- PKER_SWETH( 27, 43) = 0.448639E-01
- PKER_SWETH( 27, 44) = 0.444652E-01
- PKER_SWETH( 27, 45) = 0.471717E-01
- PKER_SWETH( 27, 46) = 0.522132E-01
- PKER_SWETH( 27, 47) = 0.588533E-01
- PKER_SWETH( 27, 48) = 0.664103E-01
- PKER_SWETH( 27, 49) = 0.743760E-01
- PKER_SWETH( 27, 50) = 0.823690E-01
- PKER_SWETH( 27, 51) = 0.901537E-01
- PKER_SWETH( 27, 52) = 0.975988E-01
- PKER_SWETH( 27, 53) = 0.104637E+00
- PKER_SWETH( 27, 54) = 0.111249E+00
- PKER_SWETH( 27, 55) = 0.117442E+00
- PKER_SWETH( 27, 56) = 0.123234E+00
- PKER_SWETH( 27, 57) = 0.128648E+00
- PKER_SWETH( 27, 58) = 0.133711E+00
- PKER_SWETH( 27, 59) = 0.138448E+00
- PKER_SWETH( 27, 60) = 0.142881E+00
- PKER_SWETH( 27, 61) = 0.147032E+00
- PKER_SWETH( 27, 62) = 0.150920E+00
- PKER_SWETH( 27, 63) = 0.154565E+00
- PKER_SWETH( 27, 64) = 0.157982E+00
- PKER_SWETH( 27, 65) = 0.161186E+00
- PKER_SWETH( 27, 66) = 0.164191E+00
- PKER_SWETH( 27, 67) = 0.167010E+00
- PKER_SWETH( 27, 68) = 0.169655E+00
- PKER_SWETH( 27, 69) = 0.172138E+00
- PKER_SWETH( 27, 70) = 0.174467E+00
- PKER_SWETH( 27, 71) = 0.176654E+00
- PKER_SWETH( 27, 72) = 0.178707E+00
- PKER_SWETH( 27, 73) = 0.180633E+00
- PKER_SWETH( 27, 74) = 0.182442E+00
- PKER_SWETH( 27, 75) = 0.184140E+00
- PKER_SWETH( 27, 76) = 0.185734E+00
- PKER_SWETH( 27, 77) = 0.187231E+00
- PKER_SWETH( 27, 78) = 0.188636E+00
- PKER_SWETH( 27, 79) = 0.189955E+00
- PKER_SWETH( 27, 80) = 0.191194E+00
- PKER_SWETH( 28, 1) = 0.306148E+01
- PKER_SWETH( 28, 2) = 0.286511E+01
- PKER_SWETH( 28, 3) = 0.268072E+01
- PKER_SWETH( 28, 4) = 0.250758E+01
- PKER_SWETH( 28, 5) = 0.234500E+01
- PKER_SWETH( 28, 6) = 0.219234E+01
- PKER_SWETH( 28, 7) = 0.204898E+01
- PKER_SWETH( 28, 8) = 0.191437E+01
- PKER_SWETH( 28, 9) = 0.178797E+01
- PKER_SWETH( 28, 10) = 0.166928E+01
- PKER_SWETH( 28, 11) = 0.155782E+01
- PKER_SWETH( 28, 12) = 0.145315E+01
- PKER_SWETH( 28, 13) = 0.135485E+01
- PKER_SWETH( 28, 14) = 0.126254E+01
- PKER_SWETH( 28, 15) = 0.117585E+01
- PKER_SWETH( 28, 16) = 0.109443E+01
- PKER_SWETH( 28, 17) = 0.101795E+01
- PKER_SWETH( 28, 18) = 0.946114E+00
- PKER_SWETH( 28, 19) = 0.878627E+00
- PKER_SWETH( 28, 20) = 0.815218E+00
- PKER_SWETH( 28, 21) = 0.755631E+00
- PKER_SWETH( 28, 22) = 0.699623E+00
- PKER_SWETH( 28, 23) = 0.646965E+00
- PKER_SWETH( 28, 24) = 0.597438E+00
- PKER_SWETH( 28, 25) = 0.550835E+00
- PKER_SWETH( 28, 26) = 0.506959E+00
- PKER_SWETH( 28, 27) = 0.465619E+00
- PKER_SWETH( 28, 28) = 0.426636E+00
- PKER_SWETH( 28, 29) = 0.389834E+00
- PKER_SWETH( 28, 30) = 0.355045E+00
- PKER_SWETH( 28, 31) = 0.322108E+00
- PKER_SWETH( 28, 32) = 0.290872E+00
- PKER_SWETH( 28, 33) = 0.261193E+00
- PKER_SWETH( 28, 34) = 0.232948E+00
- PKER_SWETH( 28, 35) = 0.206039E+00
- PKER_SWETH( 28, 36) = 0.180409E+00
- PKER_SWETH( 28, 37) = 0.156068E+00
- PKER_SWETH( 28, 38) = 0.133115E+00
- PKER_SWETH( 28, 39) = 0.111765E+00
- PKER_SWETH( 28, 40) = 0.923608E-01
- PKER_SWETH( 28, 41) = 0.753445E-01
- PKER_SWETH( 28, 42) = 0.611817E-01
- PKER_SWETH( 28, 43) = 0.502690E-01
- PKER_SWETH( 28, 44) = 0.428431E-01
- PKER_SWETH( 28, 45) = 0.388528E-01
- PKER_SWETH( 28, 46) = 0.380123E-01
- PKER_SWETH( 28, 47) = 0.398568E-01
- PKER_SWETH( 28, 48) = 0.437542E-01
- PKER_SWETH( 28, 49) = 0.490872E-01
- PKER_SWETH( 28, 50) = 0.553254E-01
- PKER_SWETH( 28, 51) = 0.619931E-01
- PKER_SWETH( 28, 52) = 0.687719E-01
- PKER_SWETH( 28, 53) = 0.754350E-01
- PKER_SWETH( 28, 54) = 0.818527E-01
- PKER_SWETH( 28, 55) = 0.879516E-01
- PKER_SWETH( 28, 56) = 0.937041E-01
- PKER_SWETH( 28, 57) = 0.991077E-01
- PKER_SWETH( 28, 58) = 0.104172E+00
- PKER_SWETH( 28, 59) = 0.108914E+00
- PKER_SWETH( 28, 60) = 0.113354E+00
- PKER_SWETH( 28, 61) = 0.117512E+00
- PKER_SWETH( 28, 62) = 0.121407E+00
- PKER_SWETH( 28, 63) = 0.125056E+00
- PKER_SWETH( 28, 64) = 0.128476E+00
- PKER_SWETH( 28, 65) = 0.131683E+00
- PKER_SWETH( 28, 66) = 0.134690E+00
- PKER_SWETH( 28, 67) = 0.137511E+00
- PKER_SWETH( 28, 68) = 0.140158E+00
- PKER_SWETH( 28, 69) = 0.142641E+00
- PKER_SWETH( 28, 70) = 0.144972E+00
- PKER_SWETH( 28, 71) = 0.147159E+00
- PKER_SWETH( 28, 72) = 0.149212E+00
- PKER_SWETH( 28, 73) = 0.151139E+00
- PKER_SWETH( 28, 74) = 0.152948E+00
- PKER_SWETH( 28, 75) = 0.154646E+00
- PKER_SWETH( 28, 76) = 0.156240E+00
- PKER_SWETH( 28, 77) = 0.157737E+00
- PKER_SWETH( 28, 78) = 0.159143E+00
- PKER_SWETH( 28, 79) = 0.160462E+00
- PKER_SWETH( 28, 80) = 0.161701E+00
- PKER_SWETH( 29, 1) = 0.308347E+01
- PKER_SWETH( 29, 2) = 0.288710E+01
- PKER_SWETH( 29, 3) = 0.270272E+01
- PKER_SWETH( 29, 4) = 0.252958E+01
- PKER_SWETH( 29, 5) = 0.236700E+01
- PKER_SWETH( 29, 6) = 0.221434E+01
- PKER_SWETH( 29, 7) = 0.207099E+01
- PKER_SWETH( 29, 8) = 0.193639E+01
- PKER_SWETH( 29, 9) = 0.180999E+01
- PKER_SWETH( 29, 10) = 0.169130E+01
- PKER_SWETH( 29, 11) = 0.157985E+01
- PKER_SWETH( 29, 12) = 0.147519E+01
- PKER_SWETH( 29, 13) = 0.137691E+01
- PKER_SWETH( 29, 14) = 0.128461E+01
- PKER_SWETH( 29, 15) = 0.119793E+01
- PKER_SWETH( 29, 16) = 0.111653E+01
- PKER_SWETH( 29, 17) = 0.104008E+01
- PKER_SWETH( 29, 18) = 0.968270E+00
- PKER_SWETH( 29, 19) = 0.900817E+00
- PKER_SWETH( 29, 20) = 0.837451E+00
- PKER_SWETH( 29, 21) = 0.777915E+00
- PKER_SWETH( 29, 22) = 0.721968E+00
- PKER_SWETH( 29, 23) = 0.669383E+00
- PKER_SWETH( 29, 24) = 0.619944E+00
- PKER_SWETH( 29, 25) = 0.573448E+00
- PKER_SWETH( 29, 26) = 0.529699E+00
- PKER_SWETH( 29, 27) = 0.488512E+00
- PKER_SWETH( 29, 28) = 0.449712E+00
- PKER_SWETH( 29, 29) = 0.413127E+00
- PKER_SWETH( 29, 30) = 0.378596E+00
- PKER_SWETH( 29, 31) = 0.345961E+00
- PKER_SWETH( 29, 32) = 0.315072E+00
- PKER_SWETH( 29, 33) = 0.285787E+00
- PKER_SWETH( 29, 34) = 0.257972E+00
- PKER_SWETH( 29, 35) = 0.231509E+00
- PKER_SWETH( 29, 36) = 0.206298E+00
- PKER_SWETH( 29, 37) = 0.182272E+00
- PKER_SWETH( 29, 38) = 0.159406E+00
- PKER_SWETH( 29, 39) = 0.137733E+00
- PKER_SWETH( 29, 40) = 0.117365E+00
- PKER_SWETH( 29, 41) = 0.984979E-01
- PKER_SWETH( 29, 42) = 0.814212E-01
- PKER_SWETH( 29, 43) = 0.664782E-01
- PKER_SWETH( 29, 44) = 0.540142E-01
- PKER_SWETH( 29, 45) = 0.443303E-01
- PKER_SWETH( 29, 46) = 0.375787E-01
- PKER_SWETH( 29, 47) = 0.337194E-01
- PKER_SWETH( 29, 48) = 0.325388E-01
- PKER_SWETH( 29, 49) = 0.336514E-01
- PKER_SWETH( 29, 50) = 0.365861E-01
- PKER_SWETH( 29, 51) = 0.408448E-01
- PKER_SWETH( 29, 52) = 0.459450E-01
- PKER_SWETH( 29, 53) = 0.515262E-01
- PKER_SWETH( 29, 54) = 0.572696E-01
- PKER_SWETH( 29, 55) = 0.629759E-01
- PKER_SWETH( 29, 56) = 0.685136E-01
- PKER_SWETH( 29, 57) = 0.738057E-01
- PKER_SWETH( 29, 58) = 0.788178E-01
- PKER_SWETH( 29, 59) = 0.835388E-01
- PKER_SWETH( 29, 60) = 0.879729E-01
- PKER_SWETH( 29, 61) = 0.921314E-01
- PKER_SWETH( 29, 62) = 0.960291E-01
- PKER_SWETH( 29, 63) = 0.996821E-01
- PKER_SWETH( 29, 64) = 0.103106E+00
- PKER_SWETH( 29, 65) = 0.106316E+00
- PKER_SWETH( 29, 66) = 0.109326E+00
- PKER_SWETH( 29, 67) = 0.112149E+00
- PKER_SWETH( 29, 68) = 0.114797E+00
- PKER_SWETH( 29, 69) = 0.117281E+00
- PKER_SWETH( 29, 70) = 0.119613E+00
- PKER_SWETH( 29, 71) = 0.121801E+00
- PKER_SWETH( 29, 72) = 0.123854E+00
- PKER_SWETH( 29, 73) = 0.125782E+00
- PKER_SWETH( 29, 74) = 0.127591E+00
- PKER_SWETH( 29, 75) = 0.129289E+00
- PKER_SWETH( 29, 76) = 0.130884E+00
- PKER_SWETH( 29, 77) = 0.132381E+00
- PKER_SWETH( 29, 78) = 0.133786E+00
- PKER_SWETH( 29, 79) = 0.135106E+00
- PKER_SWETH( 29, 80) = 0.136344E+00
- PKER_SWETH( 30, 1) = 0.310238E+01
- PKER_SWETH( 30, 2) = 0.290601E+01
- PKER_SWETH( 30, 3) = 0.272162E+01
- PKER_SWETH( 30, 4) = 0.254849E+01
- PKER_SWETH( 30, 5) = 0.238591E+01
- PKER_SWETH( 30, 6) = 0.223325E+01
- PKER_SWETH( 30, 7) = 0.208991E+01
- PKER_SWETH( 30, 8) = 0.195531E+01
- PKER_SWETH( 30, 9) = 0.182891E+01
- PKER_SWETH( 30, 10) = 0.171023E+01
- PKER_SWETH( 30, 11) = 0.159878E+01
- PKER_SWETH( 30, 12) = 0.149413E+01
- PKER_SWETH( 30, 13) = 0.139586E+01
- PKER_SWETH( 30, 14) = 0.130357E+01
- PKER_SWETH( 30, 15) = 0.121691E+01
- PKER_SWETH( 30, 16) = 0.113552E+01
- PKER_SWETH( 30, 17) = 0.105909E+01
- PKER_SWETH( 30, 18) = 0.987301E+00
- PKER_SWETH( 30, 19) = 0.919876E+00
- PKER_SWETH( 30, 20) = 0.856541E+00
- PKER_SWETH( 30, 21) = 0.797043E+00
- PKER_SWETH( 30, 22) = 0.741143E+00
- PKER_SWETH( 30, 23) = 0.688613E+00
- PKER_SWETH( 30, 24) = 0.639241E+00
- PKER_SWETH( 30, 25) = 0.592825E+00
- PKER_SWETH( 30, 26) = 0.549173E+00
- PKER_SWETH( 30, 27) = 0.508102E+00
- PKER_SWETH( 30, 28) = 0.469441E+00
- PKER_SWETH( 30, 29) = 0.433022E+00
- PKER_SWETH( 30, 30) = 0.398687E+00
- PKER_SWETH( 30, 31) = 0.366284E+00
- PKER_SWETH( 30, 32) = 0.335667E+00
- PKER_SWETH( 30, 33) = 0.306696E+00
- PKER_SWETH( 30, 34) = 0.279238E+00
- PKER_SWETH( 30, 35) = 0.253167E+00
- PKER_SWETH( 30, 36) = 0.228374E+00
- PKER_SWETH( 30, 37) = 0.204762E+00
- PKER_SWETH( 30, 38) = 0.182262E+00
- PKER_SWETH( 30, 39) = 0.160835E+00
- PKER_SWETH( 30, 40) = 0.140485E+00
- PKER_SWETH( 30, 41) = 0.121268E+00
- PKER_SWETH( 30, 42) = 0.103293E+00
- PKER_SWETH( 30, 43) = 0.867296E-01
- PKER_SWETH( 30, 44) = 0.717964E-01
- PKER_SWETH( 30, 45) = 0.587461E-01
- PKER_SWETH( 30, 46) = 0.478245E-01
- PKER_SWETH( 30, 47) = 0.392417E-01
- PKER_SWETH( 30, 48) = 0.331060E-01
- PKER_SWETH( 30, 49) = 0.293783E-01
- PKER_SWETH( 30, 50) = 0.279234E-01
- PKER_SWETH( 30, 51) = 0.284480E-01
- PKER_SWETH( 30, 52) = 0.305694E-01
- PKER_SWETH( 30, 53) = 0.339106E-01
- PKER_SWETH( 30, 54) = 0.380759E-01
- PKER_SWETH( 30, 55) = 0.427144E-01
- PKER_SWETH( 30, 56) = 0.475751E-01
- PKER_SWETH( 30, 57) = 0.524601E-01
- PKER_SWETH( 30, 58) = 0.572399E-01
- PKER_SWETH( 30, 59) = 0.618346E-01
- PKER_SWETH( 30, 60) = 0.662050E-01
- PKER_SWETH( 30, 61) = 0.703339E-01
- PKER_SWETH( 30, 62) = 0.742197E-01
- PKER_SWETH( 30, 63) = 0.778693E-01
- PKER_SWETH( 30, 64) = 0.812936E-01
- PKER_SWETH( 30, 65) = 0.845052E-01
- PKER_SWETH( 30, 66) = 0.875171E-01
- PKER_SWETH( 30, 67) = 0.903420E-01
- PKER_SWETH( 30, 68) = 0.929917E-01
- PKER_SWETH( 30, 69) = 0.954775E-01
- PKER_SWETH( 30, 70) = 0.978099E-01
- PKER_SWETH( 30, 71) = 0.999987E-01
- PKER_SWETH( 30, 72) = 0.102053E+00
- PKER_SWETH( 30, 73) = 0.103981E+00
- PKER_SWETH( 30, 74) = 0.105790E+00
- PKER_SWETH( 30, 75) = 0.107489E+00
- PKER_SWETH( 30, 76) = 0.109084E+00
- PKER_SWETH( 30, 77) = 0.110581E+00
- PKER_SWETH( 30, 78) = 0.111986E+00
- PKER_SWETH( 30, 79) = 0.113306E+00
- PKER_SWETH( 30, 80) = 0.114545E+00
- PKER_SWETH( 31, 1) = 0.311863E+01
- PKER_SWETH( 31, 2) = 0.292226E+01
- PKER_SWETH( 31, 3) = 0.273788E+01
- PKER_SWETH( 31, 4) = 0.256474E+01
- PKER_SWETH( 31, 5) = 0.240217E+01
- PKER_SWETH( 31, 6) = 0.224951E+01
- PKER_SWETH( 31, 7) = 0.210617E+01
- PKER_SWETH( 31, 8) = 0.197157E+01
- PKER_SWETH( 31, 9) = 0.184518E+01
- PKER_SWETH( 31, 10) = 0.172650E+01
- PKER_SWETH( 31, 11) = 0.161506E+01
- PKER_SWETH( 31, 12) = 0.151041E+01
- PKER_SWETH( 31, 13) = 0.141215E+01
- PKER_SWETH( 31, 14) = 0.131987E+01
- PKER_SWETH( 31, 15) = 0.123322E+01
- PKER_SWETH( 31, 16) = 0.115184E+01
- PKER_SWETH( 31, 17) = 0.107542E+01
- PKER_SWETH( 31, 18) = 0.100365E+01
- PKER_SWETH( 31, 19) = 0.936246E+00
- PKER_SWETH( 31, 20) = 0.872936E+00
- PKER_SWETH( 31, 21) = 0.813467E+00
- PKER_SWETH( 31, 22) = 0.757602E+00
- PKER_SWETH( 31, 23) = 0.705114E+00
- PKER_SWETH( 31, 24) = 0.655793E+00
- PKER_SWETH( 31, 25) = 0.609438E+00
- PKER_SWETH( 31, 26) = 0.565859E+00
- PKER_SWETH( 31, 27) = 0.524877E+00
- PKER_SWETH( 31, 28) = 0.486320E+00
- PKER_SWETH( 31, 29) = 0.450027E+00
- PKER_SWETH( 31, 30) = 0.415842E+00
- PKER_SWETH( 31, 31) = 0.383618E+00
- PKER_SWETH( 31, 32) = 0.353211E+00
- PKER_SWETH( 31, 33) = 0.324485E+00
- PKER_SWETH( 31, 34) = 0.297310E+00
- PKER_SWETH( 31, 35) = 0.271562E+00
- PKER_SWETH( 31, 36) = 0.247124E+00
- PKER_SWETH( 31, 37) = 0.223892E+00
- PKER_SWETH( 31, 38) = 0.201777E+00
- PKER_SWETH( 31, 39) = 0.180710E+00
- PKER_SWETH( 31, 40) = 0.160650E+00
- PKER_SWETH( 31, 41) = 0.141588E+00
- PKER_SWETH( 31, 42) = 0.123552E+00
- PKER_SWETH( 31, 43) = 0.106604E+00
- PKER_SWETH( 31, 44) = 0.908414E-01
- PKER_SWETH( 31, 45) = 0.763931E-01
- PKER_SWETH( 31, 46) = 0.634109E-01
- PKER_SWETH( 31, 47) = 0.520606E-01
- PKER_SWETH( 31, 48) = 0.425084E-01
- PKER_SWETH( 31, 49) = 0.349021E-01
- PKER_SWETH( 31, 50) = 0.293151E-01
- PKER_SWETH( 31, 51) = 0.257350E-01
- PKER_SWETH( 31, 52) = 0.240679E-01
- PKER_SWETH( 31, 53) = 0.241097E-01
- PKER_SWETH( 31, 54) = 0.255670E-01
- PKER_SWETH( 31, 55) = 0.281346E-01
- PKER_SWETH( 31, 56) = 0.314877E-01
- PKER_SWETH( 31, 57) = 0.353359E-01
- PKER_SWETH( 31, 58) = 0.394363E-01
- PKER_SWETH( 31, 59) = 0.436099E-01
- PKER_SWETH( 31, 60) = 0.477319E-01
- PKER_SWETH( 31, 61) = 0.517211E-01
- PKER_SWETH( 31, 62) = 0.555332E-01
- PKER_SWETH( 31, 63) = 0.591462E-01
- PKER_SWETH( 31, 64) = 0.625536E-01
- PKER_SWETH( 31, 65) = 0.657586E-01
- PKER_SWETH( 31, 66) = 0.687686E-01
- PKER_SWETH( 31, 67) = 0.715936E-01
- PKER_SWETH( 31, 68) = 0.742443E-01
- PKER_SWETH( 31, 69) = 0.767313E-01
- PKER_SWETH( 31, 70) = 0.790647E-01
- PKER_SWETH( 31, 71) = 0.812543E-01
- PKER_SWETH( 31, 72) = 0.833091E-01
- PKER_SWETH( 31, 73) = 0.852376E-01
- PKER_SWETH( 31, 74) = 0.870477E-01
- PKER_SWETH( 31, 75) = 0.887468E-01
- PKER_SWETH( 31, 76) = 0.903417E-01
- PKER_SWETH( 31, 77) = 0.918390E-01
- PKER_SWETH( 31, 78) = 0.932447E-01
- PKER_SWETH( 31, 79) = 0.945644E-01
- PKER_SWETH( 31, 80) = 0.958034E-01
- PKER_SWETH( 32, 1) = 0.313260E+01
- PKER_SWETH( 32, 2) = 0.293624E+01
- PKER_SWETH( 32, 3) = 0.275185E+01
- PKER_SWETH( 32, 4) = 0.257872E+01
- PKER_SWETH( 32, 5) = 0.241614E+01
- PKER_SWETH( 32, 6) = 0.226349E+01
- PKER_SWETH( 32, 7) = 0.212015E+01
- PKER_SWETH( 32, 8) = 0.198555E+01
- PKER_SWETH( 32, 9) = 0.185917E+01
- PKER_SWETH( 32, 10) = 0.174049E+01
- PKER_SWETH( 32, 11) = 0.162905E+01
- PKER_SWETH( 32, 12) = 0.152441E+01
- PKER_SWETH( 32, 13) = 0.142615E+01
- PKER_SWETH( 32, 14) = 0.133388E+01
- PKER_SWETH( 32, 15) = 0.124723E+01
- PKER_SWETH( 32, 16) = 0.116587E+01
- PKER_SWETH( 32, 17) = 0.108946E+01
- PKER_SWETH( 32, 18) = 0.101770E+01
- PKER_SWETH( 32, 19) = 0.950309E+00
- PKER_SWETH( 32, 20) = 0.887017E+00
- PKER_SWETH( 32, 21) = 0.827571E+00
- PKER_SWETH( 32, 22) = 0.771732E+00
- PKER_SWETH( 32, 23) = 0.719277E+00
- PKER_SWETH( 32, 24) = 0.669995E+00
- PKER_SWETH( 32, 25) = 0.623686E+00
- PKER_SWETH( 32, 26) = 0.580163E+00
- PKER_SWETH( 32, 27) = 0.539247E+00
- PKER_SWETH( 32, 28) = 0.500771E+00
- PKER_SWETH( 32, 29) = 0.464574E+00
- PKER_SWETH( 32, 30) = 0.430504E+00
- PKER_SWETH( 32, 31) = 0.398415E+00
- PKER_SWETH( 32, 32) = 0.368170E+00
- PKER_SWETH( 32, 33) = 0.339635E+00
- PKER_SWETH( 32, 34) = 0.312682E+00
- PKER_SWETH( 32, 35) = 0.287189E+00
- PKER_SWETH( 32, 36) = 0.263042E+00
- PKER_SWETH( 32, 37) = 0.240131E+00
- PKER_SWETH( 32, 38) = 0.218359E+00
- PKER_SWETH( 32, 39) = 0.197643E+00
- PKER_SWETH( 32, 40) = 0.177917E+00
- PKER_SWETH( 32, 41) = 0.159141E+00
- PKER_SWETH( 32, 42) = 0.141300E+00
- PKER_SWETH( 32, 43) = 0.124409E+00
- PKER_SWETH( 32, 44) = 0.108506E+00
- PKER_SWETH( 32, 45) = 0.936524E-01
- PKER_SWETH( 32, 46) = 0.799192E-01
- PKER_SWETH( 32, 47) = 0.673874E-01
- PKER_SWETH( 32, 48) = 0.561491E-01
- PKER_SWETH( 32, 49) = 0.463031E-01
- PKER_SWETH( 32, 50) = 0.379538E-01
- PKER_SWETH( 32, 51) = 0.312049E-01
- PKER_SWETH( 32, 52) = 0.261105E-01
- PKER_SWETH( 32, 53) = 0.226845E-01
- PKER_SWETH( 32, 54) = 0.208720E-01
- PKER_SWETH( 32, 55) = 0.205205E-01
- PKER_SWETH( 32, 56) = 0.214305E-01
- PKER_SWETH( 32, 57) = 0.233522E-01
- PKER_SWETH( 32, 58) = 0.260139E-01
- PKER_SWETH( 32, 59) = 0.291765E-01
- PKER_SWETH( 32, 60) = 0.326186E-01
- PKER_SWETH( 32, 61) = 0.361785E-01
- PKER_SWETH( 32, 62) = 0.397295E-01
- PKER_SWETH( 32, 63) = 0.431912E-01
- PKER_SWETH( 32, 64) = 0.465163E-01
- PKER_SWETH( 32, 65) = 0.496779E-01
- PKER_SWETH( 32, 66) = 0.526668E-01
- PKER_SWETH( 32, 67) = 0.554823E-01
- PKER_SWETH( 32, 68) = 0.581292E-01
- PKER_SWETH( 32, 69) = 0.606151E-01
- PKER_SWETH( 32, 70) = 0.629486E-01
- PKER_SWETH( 32, 71) = 0.651387E-01
- PKER_SWETH( 32, 72) = 0.671941E-01
- PKER_SWETH( 32, 73) = 0.691232E-01
- PKER_SWETH( 32, 74) = 0.709337E-01
- PKER_SWETH( 32, 75) = 0.726332E-01
- PKER_SWETH( 32, 76) = 0.742284E-01
- PKER_SWETH( 32, 77) = 0.757259E-01
- PKER_SWETH( 32, 78) = 0.771318E-01
- PKER_SWETH( 32, 79) = 0.784516E-01
- PKER_SWETH( 32, 80) = 0.796907E-01
- PKER_SWETH( 33, 1) = 0.314461E+01
- PKER_SWETH( 33, 2) = 0.294825E+01
- PKER_SWETH( 33, 3) = 0.276386E+01
- PKER_SWETH( 33, 4) = 0.259073E+01
- PKER_SWETH( 33, 5) = 0.242816E+01
- PKER_SWETH( 33, 6) = 0.227551E+01
- PKER_SWETH( 33, 7) = 0.213217E+01
- PKER_SWETH( 33, 8) = 0.199757E+01
- PKER_SWETH( 33, 9) = 0.187119E+01
- PKER_SWETH( 33, 10) = 0.175251E+01
- PKER_SWETH( 33, 11) = 0.164108E+01
- PKER_SWETH( 33, 12) = 0.153644E+01
- PKER_SWETH( 33, 13) = 0.143818E+01
- PKER_SWETH( 33, 14) = 0.134592E+01
- PKER_SWETH( 33, 15) = 0.125928E+01
- PKER_SWETH( 33, 16) = 0.117792E+01
- PKER_SWETH( 33, 17) = 0.110152E+01
- PKER_SWETH( 33, 18) = 0.102977E+01
- PKER_SWETH( 33, 19) = 0.962391E+00
- PKER_SWETH( 33, 20) = 0.899114E+00
- PKER_SWETH( 33, 21) = 0.839685E+00
- PKER_SWETH( 33, 22) = 0.783867E+00
- PKER_SWETH( 33, 23) = 0.731436E+00
- PKER_SWETH( 33, 24) = 0.682183E+00
- PKER_SWETH( 33, 25) = 0.635910E+00
- PKER_SWETH( 33, 26) = 0.592429E+00
- PKER_SWETH( 33, 27) = 0.551564E+00
- PKER_SWETH( 33, 28) = 0.513149E+00
- PKER_SWETH( 33, 29) = 0.477025E+00
- PKER_SWETH( 33, 30) = 0.443042E+00
- PKER_SWETH( 33, 31) = 0.411059E+00
- PKER_SWETH( 33, 32) = 0.380937E+00
- PKER_SWETH( 33, 33) = 0.352549E+00
- PKER_SWETH( 33, 34) = 0.325769E+00
- PKER_SWETH( 33, 35) = 0.300478E+00
- PKER_SWETH( 33, 36) = 0.276562E+00
- PKER_SWETH( 33, 37) = 0.253913E+00
- PKER_SWETH( 33, 38) = 0.232431E+00
- PKER_SWETH( 33, 39) = 0.212025E+00
- PKER_SWETH( 33, 40) = 0.192616E+00
- PKER_SWETH( 33, 41) = 0.174143E+00
- PKER_SWETH( 33, 42) = 0.156567E+00
- PKER_SWETH( 33, 43) = 0.139871E+00
- PKER_SWETH( 33, 44) = 0.124064E+00
- PKER_SWETH( 33, 45) = 0.109173E+00
- PKER_SWETH( 33, 46) = 0.952378E-01
- PKER_SWETH( 33, 47) = 0.823015E-01
- PKER_SWETH( 33, 48) = 0.704036E-01
- PKER_SWETH( 33, 49) = 0.595823E-01
- PKER_SWETH( 33, 50) = 0.498785E-01
- PKER_SWETH( 33, 51) = 0.413438E-01
- PKER_SWETH( 33, 52) = 0.340421E-01
- PKER_SWETH( 33, 53) = 0.280430E-01
- PKER_SWETH( 33, 54) = 0.233974E-01
- PKER_SWETH( 33, 55) = 0.201291E-01
- PKER_SWETH( 33, 56) = 0.182206E-01
- PKER_SWETH( 33, 57) = 0.175675E-01
- PKER_SWETH( 33, 58) = 0.180229E-01
- PKER_SWETH( 33, 59) = 0.194061E-01
- PKER_SWETH( 33, 60) = 0.214879E-01
- PKER_SWETH( 33, 61) = 0.240570E-01
- PKER_SWETH( 33, 62) = 0.269359E-01
- PKER_SWETH( 33, 63) = 0.299571E-01
- PKER_SWETH( 33, 64) = 0.330093E-01
- PKER_SWETH( 33, 65) = 0.360092E-01
- PKER_SWETH( 33, 66) = 0.389073E-01
- PKER_SWETH( 33, 67) = 0.416736E-01
- PKER_SWETH( 33, 68) = 0.442952E-01
- PKER_SWETH( 33, 69) = 0.467690E-01
- PKER_SWETH( 33, 70) = 0.490971E-01
- PKER_SWETH( 33, 71) = 0.512851E-01
- PKER_SWETH( 33, 72) = 0.533399E-01
- PKER_SWETH( 33, 73) = 0.552690E-01
- PKER_SWETH( 33, 74) = 0.570798E-01
- PKER_SWETH( 33, 75) = 0.587796E-01
- PKER_SWETH( 33, 76) = 0.603751E-01
- PKER_SWETH( 33, 77) = 0.618729E-01
- PKER_SWETH( 33, 78) = 0.632789E-01
- PKER_SWETH( 33, 79) = 0.645989E-01
- PKER_SWETH( 33, 80) = 0.658382E-01
- PKER_SWETH( 34, 1) = 0.315494E+01
- PKER_SWETH( 34, 2) = 0.295858E+01
- PKER_SWETH( 34, 3) = 0.277419E+01
- PKER_SWETH( 34, 4) = 0.260106E+01
- PKER_SWETH( 34, 5) = 0.243849E+01
- PKER_SWETH( 34, 6) = 0.228584E+01
- PKER_SWETH( 34, 7) = 0.214250E+01
- PKER_SWETH( 34, 8) = 0.200790E+01
- PKER_SWETH( 34, 9) = 0.188152E+01
- PKER_SWETH( 34, 10) = 0.176285E+01
- PKER_SWETH( 34, 11) = 0.165142E+01
- PKER_SWETH( 34, 12) = 0.154678E+01
- PKER_SWETH( 34, 13) = 0.144853E+01
- PKER_SWETH( 34, 14) = 0.135626E+01
- PKER_SWETH( 34, 15) = 0.126963E+01
- PKER_SWETH( 34, 16) = 0.118827E+01
- PKER_SWETH( 34, 17) = 0.111188E+01
- PKER_SWETH( 34, 18) = 0.104014E+01
- PKER_SWETH( 34, 19) = 0.972772E+00
- PKER_SWETH( 34, 20) = 0.909506E+00
- PKER_SWETH( 34, 21) = 0.850090E+00
- PKER_SWETH( 34, 22) = 0.794288E+00
- PKER_SWETH( 34, 23) = 0.741876E+00
- PKER_SWETH( 34, 24) = 0.692646E+00
- PKER_SWETH( 34, 25) = 0.646400E+00
- PKER_SWETH( 34, 26) = 0.602952E+00
- PKER_SWETH( 34, 27) = 0.562126E+00
- PKER_SWETH( 34, 28) = 0.523757E+00
- PKER_SWETH( 34, 29) = 0.487689E+00
- PKER_SWETH( 34, 30) = 0.453773E+00
- PKER_SWETH( 34, 31) = 0.421869E+00
- PKER_SWETH( 34, 32) = 0.391843E+00
- PKER_SWETH( 34, 33) = 0.363568E+00
- PKER_SWETH( 34, 34) = 0.336921E+00
- PKER_SWETH( 34, 35) = 0.311787E+00
- PKER_SWETH( 34, 36) = 0.288054E+00
- PKER_SWETH( 34, 37) = 0.265616E+00
- PKER_SWETH( 34, 38) = 0.244371E+00
- PKER_SWETH( 34, 39) = 0.224227E+00
- PKER_SWETH( 34, 40) = 0.205097E+00
- PKER_SWETH( 34, 41) = 0.186910E+00
- PKER_SWETH( 34, 42) = 0.169607E+00
- PKER_SWETH( 34, 43) = 0.153151E+00
- PKER_SWETH( 34, 44) = 0.137525E+00
- PKER_SWETH( 34, 45) = 0.122734E+00
- PKER_SWETH( 34, 46) = 0.108800E+00
- PKER_SWETH( 34, 47) = 0.957515E-01
- PKER_SWETH( 34, 48) = 0.836164E-01
- PKER_SWETH( 34, 49) = 0.724132E-01
- PKER_SWETH( 34, 50) = 0.621505E-01
- PKER_SWETH( 34, 51) = 0.528311E-01
- PKER_SWETH( 34, 52) = 0.444613E-01
- PKER_SWETH( 34, 53) = 0.370591E-01
- PKER_SWETH( 34, 54) = 0.306644E-01
- PKER_SWETH( 34, 55) = 0.253251E-01
- PKER_SWETH( 34, 56) = 0.210858E-01
- PKER_SWETH( 34, 57) = 0.179868E-01
- PKER_SWETH( 34, 58) = 0.160241E-01
- PKER_SWETH( 34, 59) = 0.151403E-01
- PKER_SWETH( 34, 60) = 0.152366E-01
- PKER_SWETH( 34, 61) = 0.161644E-01
- PKER_SWETH( 34, 62) = 0.177533E-01
- PKER_SWETH( 34, 63) = 0.198251E-01
- PKER_SWETH( 34, 64) = 0.222044E-01
- PKER_SWETH( 34, 65) = 0.247619E-01
- PKER_SWETH( 34, 66) = 0.273765E-01
- PKER_SWETH( 34, 67) = 0.299716E-01
- PKER_SWETH( 34, 68) = 0.324948E-01
- PKER_SWETH( 34, 69) = 0.349138E-01
- PKER_SWETH( 34, 70) = 0.372131E-01
- PKER_SWETH( 34, 71) = 0.393864E-01
- PKER_SWETH( 34, 72) = 0.414343E-01
- PKER_SWETH( 34, 73) = 0.433604E-01
- PKER_SWETH( 34, 74) = 0.451700E-01
- PKER_SWETH( 34, 75) = 0.468695E-01
- PKER_SWETH( 34, 76) = 0.484650E-01
- PKER_SWETH( 34, 77) = 0.499630E-01
- PKER_SWETH( 34, 78) = 0.513692E-01
- PKER_SWETH( 34, 79) = 0.526893E-01
- PKER_SWETH( 34, 80) = 0.539287E-01
- PKER_SWETH( 35, 1) = 0.316382E+01
- PKER_SWETH( 35, 2) = 0.296745E+01
- PKER_SWETH( 35, 3) = 0.278307E+01
- PKER_SWETH( 35, 4) = 0.260994E+01
- PKER_SWETH( 35, 5) = 0.244737E+01
- PKER_SWETH( 35, 6) = 0.229472E+01
- PKER_SWETH( 35, 7) = 0.215138E+01
- PKER_SWETH( 35, 8) = 0.201679E+01
- PKER_SWETH( 35, 9) = 0.189041E+01
- PKER_SWETH( 35, 10) = 0.177173E+01
- PKER_SWETH( 35, 11) = 0.166030E+01
- PKER_SWETH( 35, 12) = 0.155567E+01
- PKER_SWETH( 35, 13) = 0.145742E+01
- PKER_SWETH( 35, 14) = 0.136516E+01
- PKER_SWETH( 35, 15) = 0.127853E+01
- PKER_SWETH( 35, 16) = 0.119718E+01
- PKER_SWETH( 35, 17) = 0.112079E+01
- PKER_SWETH( 35, 18) = 0.104905E+01
- PKER_SWETH( 35, 19) = 0.981692E+00
- PKER_SWETH( 35, 20) = 0.918434E+00
- PKER_SWETH( 35, 21) = 0.859029E+00
- PKER_SWETH( 35, 22) = 0.803239E+00
- PKER_SWETH( 35, 23) = 0.750842E+00
- PKER_SWETH( 35, 24) = 0.701629E+00
- PKER_SWETH( 35, 25) = 0.655404E+00
- PKER_SWETH( 35, 26) = 0.611980E+00
- PKER_SWETH( 35, 27) = 0.571185E+00
- PKER_SWETH( 35, 28) = 0.532852E+00
- PKER_SWETH( 35, 29) = 0.496827E+00
- PKER_SWETH( 35, 30) = 0.462962E+00
- PKER_SWETH( 35, 31) = 0.431119E+00
- PKER_SWETH( 35, 32) = 0.401166E+00
- PKER_SWETH( 35, 33) = 0.372978E+00
- PKER_SWETH( 35, 34) = 0.346435E+00
- PKER_SWETH( 35, 35) = 0.321423E+00
- PKER_SWETH( 35, 36) = 0.297833E+00
- PKER_SWETH( 35, 37) = 0.275561E+00
- PKER_SWETH( 35, 38) = 0.254507E+00
- PKER_SWETH( 35, 39) = 0.234578E+00
- PKER_SWETH( 35, 40) = 0.215686E+00
- PKER_SWETH( 35, 41) = 0.197751E+00
- PKER_SWETH( 35, 42) = 0.180705E+00
- PKER_SWETH( 35, 43) = 0.164495E+00
- PKER_SWETH( 35, 44) = 0.149084E+00
- PKER_SWETH( 35, 45) = 0.134456E+00
- PKER_SWETH( 35, 46) = 0.120615E+00
- PKER_SWETH( 35, 47) = 0.107577E+00
- PKER_SWETH( 35, 48) = 0.953661E-01
- PKER_SWETH( 35, 49) = 0.840018E-01
- PKER_SWETH( 35, 50) = 0.734926E-01
- PKER_SWETH( 35, 51) = 0.638322E-01
- PKER_SWETH( 35, 52) = 0.550036E-01
- PKER_SWETH( 35, 53) = 0.469852E-01
- PKER_SWETH( 35, 54) = 0.397621E-01
- PKER_SWETH( 35, 55) = 0.333353E-01
- PKER_SWETH( 35, 56) = 0.277239E-01
- PKER_SWETH( 35, 57) = 0.229657E-01
- PKER_SWETH( 35, 58) = 0.191037E-01
- PKER_SWETH( 35, 59) = 0.161795E-01
- PKER_SWETH( 35, 60) = 0.142064E-01
- PKER_SWETH( 35, 61) = 0.131510E-01
- PKER_SWETH( 35, 62) = 0.129597E-01
- PKER_SWETH( 35, 63) = 0.135198E-01
- PKER_SWETH( 35, 64) = 0.146888E-01
- PKER_SWETH( 35, 65) = 0.163281E-01
- PKER_SWETH( 35, 66) = 0.182882E-01
- PKER_SWETH( 35, 67) = 0.204331E-01
- PKER_SWETH( 35, 68) = 0.226652E-01
- PKER_SWETH( 35, 69) = 0.249047E-01
- PKER_SWETH( 35, 70) = 0.270982E-01
- PKER_SWETH( 35, 71) = 0.292114E-01
- PKER_SWETH( 35, 72) = 0.312269E-01
- PKER_SWETH( 35, 73) = 0.331361E-01
- PKER_SWETH( 35, 74) = 0.349374E-01
- PKER_SWETH( 35, 75) = 0.366329E-01
- PKER_SWETH( 35, 76) = 0.382268E-01
- PKER_SWETH( 35, 77) = 0.397241E-01
- PKER_SWETH( 35, 78) = 0.411301E-01
- PKER_SWETH( 35, 79) = 0.424503E-01
- PKER_SWETH( 35, 80) = 0.436897E-01
- PKER_SWETH( 36, 1) = 0.317145E+01
- PKER_SWETH( 36, 2) = 0.297509E+01
- PKER_SWETH( 36, 3) = 0.279070E+01
- PKER_SWETH( 36, 4) = 0.261757E+01
- PKER_SWETH( 36, 5) = 0.245500E+01
- PKER_SWETH( 36, 6) = 0.230235E+01
- PKER_SWETH( 36, 7) = 0.215901E+01
- PKER_SWETH( 36, 8) = 0.202442E+01
- PKER_SWETH( 36, 9) = 0.189804E+01
- PKER_SWETH( 36, 10) = 0.177937E+01
- PKER_SWETH( 36, 11) = 0.166794E+01
- PKER_SWETH( 36, 12) = 0.156331E+01
- PKER_SWETH( 36, 13) = 0.146506E+01
- PKER_SWETH( 36, 14) = 0.137280E+01
- PKER_SWETH( 36, 15) = 0.128617E+01
- PKER_SWETH( 36, 16) = 0.120483E+01
- PKER_SWETH( 36, 17) = 0.112844E+01
- PKER_SWETH( 36, 18) = 0.105671E+01
- PKER_SWETH( 36, 19) = 0.989358E+00
- PKER_SWETH( 36, 20) = 0.926106E+00
- PKER_SWETH( 36, 21) = 0.866709E+00
- PKER_SWETH( 36, 22) = 0.810928E+00
- PKER_SWETH( 36, 23) = 0.758542E+00
- PKER_SWETH( 36, 24) = 0.709343E+00
- PKER_SWETH( 36, 25) = 0.663134E+00
- PKER_SWETH( 36, 26) = 0.619730E+00
- PKER_SWETH( 36, 27) = 0.578957E+00
- PKER_SWETH( 36, 28) = 0.540652E+00
- PKER_SWETH( 36, 29) = 0.504659E+00
- PKER_SWETH( 36, 30) = 0.470834E+00
- PKER_SWETH( 36, 31) = 0.439039E+00
- PKER_SWETH( 36, 32) = 0.409142E+00
- PKER_SWETH( 36, 33) = 0.381020E+00
- PKER_SWETH( 36, 34) = 0.354557E+00
- PKER_SWETH( 36, 35) = 0.329639E+00
- PKER_SWETH( 36, 36) = 0.306160E+00
- PKER_SWETH( 36, 37) = 0.284019E+00
- PKER_SWETH( 36, 38) = 0.263117E+00
- PKER_SWETH( 36, 39) = 0.243361E+00
- PKER_SWETH( 36, 40) = 0.224665E+00
- PKER_SWETH( 36, 41) = 0.206945E+00
- PKER_SWETH( 36, 42) = 0.190128E+00
- PKER_SWETH( 36, 43) = 0.174150E+00
- PKER_SWETH( 36, 44) = 0.158961E+00
- PKER_SWETH( 36, 45) = 0.144526E+00
- PKER_SWETH( 36, 46) = 0.130829E+00
- PKER_SWETH( 36, 47) = 0.117873E+00
- PKER_SWETH( 36, 48) = 0.105672E+00
- PKER_SWETH( 36, 49) = 0.942459E-01
- PKER_SWETH( 36, 50) = 0.836094E-01
- PKER_SWETH( 36, 51) = 0.737662E-01
- PKER_SWETH( 36, 52) = 0.647037E-01
- PKER_SWETH( 36, 53) = 0.563958E-01
- PKER_SWETH( 36, 54) = 0.488078E-01
- PKER_SWETH( 36, 55) = 0.419058E-01
- PKER_SWETH( 36, 56) = 0.356633E-01
- PKER_SWETH( 36, 57) = 0.300718E-01
- PKER_SWETH( 36, 58) = 0.251413E-01
- PKER_SWETH( 36, 59) = 0.208989E-01
- PKER_SWETH( 36, 60) = 0.173840E-01
- PKER_SWETH( 36, 61) = 0.146412E-01
- PKER_SWETH( 36, 62) = 0.126895E-01
- PKER_SWETH( 36, 63) = 0.115219E-01
- PKER_SWETH( 36, 64) = 0.111061E-01
- PKER_SWETH( 36, 65) = 0.113656E-01
- PKER_SWETH( 36, 66) = 0.121884E-01
- PKER_SWETH( 36, 67) = 0.134579E-01
- PKER_SWETH( 36, 68) = 0.150470E-01
- PKER_SWETH( 36, 69) = 0.168388E-01
- PKER_SWETH( 36, 70) = 0.187349E-01
- PKER_SWETH( 36, 71) = 0.206605E-01
- PKER_SWETH( 36, 72) = 0.225628E-01
- PKER_SWETH( 36, 73) = 0.244065E-01
- PKER_SWETH( 36, 74) = 0.261718E-01
- PKER_SWETH( 36, 75) = 0.278484E-01
- PKER_SWETH( 36, 76) = 0.294325E-01
- PKER_SWETH( 36, 77) = 0.309251E-01
- PKER_SWETH( 36, 78) = 0.323289E-01
- PKER_SWETH( 36, 79) = 0.336481E-01
- PKER_SWETH( 36, 80) = 0.348872E-01
- PKER_SWETH( 37, 1) = 0.317801E+01
- PKER_SWETH( 37, 2) = 0.298165E+01
- PKER_SWETH( 37, 3) = 0.279727E+01
- PKER_SWETH( 37, 4) = 0.262413E+01
- PKER_SWETH( 37, 5) = 0.246156E+01
- PKER_SWETH( 37, 6) = 0.230891E+01
- PKER_SWETH( 37, 7) = 0.216558E+01
- PKER_SWETH( 37, 8) = 0.203099E+01
- PKER_SWETH( 37, 9) = 0.190461E+01
- PKER_SWETH( 37, 10) = 0.178594E+01
- PKER_SWETH( 37, 11) = 0.167451E+01
- PKER_SWETH( 37, 12) = 0.156988E+01
- PKER_SWETH( 37, 13) = 0.147163E+01
- PKER_SWETH( 37, 14) = 0.137938E+01
- PKER_SWETH( 37, 15) = 0.129275E+01
- PKER_SWETH( 37, 16) = 0.121140E+01
- PKER_SWETH( 37, 17) = 0.113502E+01
- PKER_SWETH( 37, 18) = 0.106330E+01
- PKER_SWETH( 37, 19) = 0.995945E+00
- PKER_SWETH( 37, 20) = 0.932699E+00
- PKER_SWETH( 37, 21) = 0.873307E+00
- PKER_SWETH( 37, 22) = 0.817534E+00
- PKER_SWETH( 37, 23) = 0.765157E+00
- PKER_SWETH( 37, 24) = 0.715968E+00
- PKER_SWETH( 37, 25) = 0.669771E+00
- PKER_SWETH( 37, 26) = 0.626382E+00
- PKER_SWETH( 37, 27) = 0.585627E+00
- PKER_SWETH( 37, 28) = 0.547343E+00
- PKER_SWETH( 37, 29) = 0.511376E+00
- PKER_SWETH( 37, 30) = 0.477581E+00
- PKER_SWETH( 37, 31) = 0.445822E+00
- PKER_SWETH( 37, 32) = 0.415968E+00
- PKER_SWETH( 37, 33) = 0.387898E+00
- PKER_SWETH( 37, 34) = 0.361496E+00
- PKER_SWETH( 37, 35) = 0.336651E+00
- PKER_SWETH( 37, 36) = 0.313259E+00
- PKER_SWETH( 37, 37) = 0.291219E+00
- PKER_SWETH( 37, 38) = 0.270437E+00
- PKER_SWETH( 37, 39) = 0.250820E+00
- PKER_SWETH( 37, 40) = 0.232282E+00
- PKER_SWETH( 37, 41) = 0.214740E+00
- PKER_SWETH( 37, 42) = 0.198119E+00
- PKER_SWETH( 37, 43) = 0.182349E+00
- PKER_SWETH( 37, 44) = 0.167369E+00
- PKER_SWETH( 37, 45) = 0.153134E+00
- PKER_SWETH( 37, 46) = 0.139610E+00
- PKER_SWETH( 37, 47) = 0.126783E+00
- PKER_SWETH( 37, 48) = 0.114653E+00
- PKER_SWETH( 37, 49) = 0.103232E+00
- PKER_SWETH( 37, 50) = 0.925378E-01
- PKER_SWETH( 37, 51) = 0.825827E-01
- PKER_SWETH( 37, 52) = 0.733675E-01
- PKER_SWETH( 37, 53) = 0.648776E-01
- PKER_SWETH( 37, 54) = 0.570830E-01
- PKER_SWETH( 37, 55) = 0.499450E-01
- PKER_SWETH( 37, 56) = 0.434200E-01
- PKER_SWETH( 37, 57) = 0.374691E-01
- PKER_SWETH( 37, 58) = 0.320636E-01
- PKER_SWETH( 37, 59) = 0.271887E-01
- PKER_SWETH( 37, 60) = 0.228498E-01
- PKER_SWETH( 37, 61) = 0.190676E-01
- PKER_SWETH( 37, 62) = 0.158762E-01
- PKER_SWETH( 37, 63) = 0.133176E-01
- PKER_SWETH( 37, 64) = 0.114155E-01
- PKER_SWETH( 37, 65) = 0.101818E-01
- PKER_SWETH( 37, 66) = 0.960151E-02
- PKER_SWETH( 37, 67) = 0.961729E-02
- PKER_SWETH( 37, 68) = 0.101533E-01
- PKER_SWETH( 37, 69) = 0.111109E-01
- PKER_SWETH( 37, 70) = 0.123790E-01
- PKER_SWETH( 37, 71) = 0.138599E-01
- PKER_SWETH( 37, 72) = 0.154599E-01
- PKER_SWETH( 37, 73) = 0.171104E-01
- PKER_SWETH( 37, 74) = 0.187566E-01
- PKER_SWETH( 37, 75) = 0.203627E-01
- PKER_SWETH( 37, 76) = 0.219075E-01
- PKER_SWETH( 37, 77) = 0.233786E-01
- PKER_SWETH( 37, 78) = 0.247714E-01
- PKER_SWETH( 37, 79) = 0.260851E-01
- PKER_SWETH( 37, 80) = 0.273215E-01
- PKER_SWETH( 38, 1) = 0.318365E+01
- PKER_SWETH( 38, 2) = 0.298729E+01
- PKER_SWETH( 38, 3) = 0.280291E+01
- PKER_SWETH( 38, 4) = 0.262978E+01
- PKER_SWETH( 38, 5) = 0.246721E+01
- PKER_SWETH( 38, 6) = 0.231456E+01
- PKER_SWETH( 38, 7) = 0.217122E+01
- PKER_SWETH( 38, 8) = 0.203663E+01
- PKER_SWETH( 38, 9) = 0.191025E+01
- PKER_SWETH( 38, 10) = 0.179158E+01
- PKER_SWETH( 38, 11) = 0.168015E+01
- PKER_SWETH( 38, 12) = 0.157552E+01
- PKER_SWETH( 38, 13) = 0.147728E+01
- PKER_SWETH( 38, 14) = 0.138502E+01
- PKER_SWETH( 38, 15) = 0.129840E+01
- PKER_SWETH( 38, 16) = 0.121706E+01
- PKER_SWETH( 38, 17) = 0.114068E+01
- PKER_SWETH( 38, 18) = 0.106895E+01
- PKER_SWETH( 38, 19) = 0.100161E+01
- PKER_SWETH( 38, 20) = 0.938364E+00
- PKER_SWETH( 38, 21) = 0.878977E+00
- PKER_SWETH( 38, 22) = 0.823209E+00
- PKER_SWETH( 38, 23) = 0.770839E+00
- PKER_SWETH( 38, 24) = 0.721658E+00
- PKER_SWETH( 38, 25) = 0.675471E+00
- PKER_SWETH( 38, 26) = 0.632094E+00
- PKER_SWETH( 38, 27) = 0.591352E+00
- PKER_SWETH( 38, 28) = 0.553085E+00
- PKER_SWETH( 38, 29) = 0.517137E+00
- PKER_SWETH( 38, 30) = 0.483366E+00
- PKER_SWETH( 38, 31) = 0.451634E+00
- PKER_SWETH( 38, 32) = 0.421814E+00
- PKER_SWETH( 38, 33) = 0.393784E+00
- PKER_SWETH( 38, 34) = 0.367429E+00
- PKER_SWETH( 38, 35) = 0.342641E+00
- PKER_SWETH( 38, 36) = 0.319316E+00
- PKER_SWETH( 38, 37) = 0.297355E+00
- PKER_SWETH( 38, 38) = 0.276666E+00
- PKER_SWETH( 38, 39) = 0.257158E+00
- PKER_SWETH( 38, 40) = 0.238746E+00
- PKER_SWETH( 38, 41) = 0.221350E+00
- PKER_SWETH( 38, 42) = 0.204891E+00
- PKER_SWETH( 38, 43) = 0.189299E+00
- PKER_SWETH( 38, 44) = 0.174508E+00
- PKER_SWETH( 38, 45) = 0.160464E+00
- PKER_SWETH( 38, 46) = 0.147120E+00
- PKER_SWETH( 38, 47) = 0.134448E+00
- PKER_SWETH( 38, 48) = 0.122432E+00
- PKER_SWETH( 38, 49) = 0.111072E+00
- PKER_SWETH( 38, 50) = 0.100379E+00
- PKER_SWETH( 38, 51) = 0.903681E-01
- PKER_SWETH( 38, 52) = 0.810492E-01
- PKER_SWETH( 38, 53) = 0.724222E-01
- PKER_SWETH( 38, 54) = 0.644714E-01
- PKER_SWETH( 38, 55) = 0.571675E-01
- PKER_SWETH( 38, 56) = 0.504700E-01
- PKER_SWETH( 38, 57) = 0.443333E-01
- PKER_SWETH( 38, 58) = 0.387134E-01
- PKER_SWETH( 38, 59) = 0.335716E-01
- PKER_SWETH( 38, 60) = 0.288792E-01
- PKER_SWETH( 38, 61) = 0.246214E-01
- PKER_SWETH( 38, 62) = 0.207986E-01
- PKER_SWETH( 38, 63) = 0.174274E-01
- PKER_SWETH( 38, 64) = 0.145371E-01
- PKER_SWETH( 38, 65) = 0.121635E-01
- PKER_SWETH( 38, 66) = 0.103355E-01
- PKER_SWETH( 38, 67) = 0.907165E-02
- PKER_SWETH( 38, 68) = 0.837324E-02
- PKER_SWETH( 38, 69) = 0.820126E-02
- PKER_SWETH( 38, 70) = 0.849900E-02
- PKER_SWETH( 38, 71) = 0.919422E-02
- PKER_SWETH( 38, 72) = 0.101904E-01
- PKER_SWETH( 38, 73) = 0.113982E-01
- PKER_SWETH( 38, 74) = 0.127419E-01
- PKER_SWETH( 38, 75) = 0.141481E-01
- PKER_SWETH( 38, 76) = 0.155678E-01
- PKER_SWETH( 38, 77) = 0.169638E-01
- PKER_SWETH( 38, 78) = 0.183137E-01
- PKER_SWETH( 38, 79) = 0.196037E-01
- PKER_SWETH( 38, 80) = 0.208275E-01
- PKER_SWETH( 39, 1) = 0.318850E+01
- PKER_SWETH( 39, 2) = 0.299214E+01
- PKER_SWETH( 39, 3) = 0.280776E+01
- PKER_SWETH( 39, 4) = 0.263463E+01
- PKER_SWETH( 39, 5) = 0.247206E+01
- PKER_SWETH( 39, 6) = 0.231941E+01
- PKER_SWETH( 39, 7) = 0.217607E+01
- PKER_SWETH( 39, 8) = 0.204148E+01
- PKER_SWETH( 39, 9) = 0.191510E+01
- PKER_SWETH( 39, 10) = 0.179644E+01
- PKER_SWETH( 39, 11) = 0.168501E+01
- PKER_SWETH( 39, 12) = 0.158038E+01
- PKER_SWETH( 39, 13) = 0.148213E+01
- PKER_SWETH( 39, 14) = 0.138988E+01
- PKER_SWETH( 39, 15) = 0.130326E+01
- PKER_SWETH( 39, 16) = 0.122192E+01
- PKER_SWETH( 39, 17) = 0.114554E+01
- PKER_SWETH( 39, 18) = 0.107382E+01
- PKER_SWETH( 39, 19) = 0.100647E+01
- PKER_SWETH( 39, 20) = 0.943232E+00
- PKER_SWETH( 39, 21) = 0.883849E+00
- PKER_SWETH( 39, 22) = 0.828086E+00
- PKER_SWETH( 39, 23) = 0.775721E+00
- PKER_SWETH( 39, 24) = 0.726547E+00
- PKER_SWETH( 39, 25) = 0.680367E+00
- PKER_SWETH( 39, 26) = 0.636998E+00
- PKER_SWETH( 39, 27) = 0.596268E+00
- PKER_SWETH( 39, 28) = 0.558013E+00
- PKER_SWETH( 39, 29) = 0.522080E+00
- PKER_SWETH( 39, 30) = 0.488327E+00
- PKER_SWETH( 39, 31) = 0.456617E+00
- PKER_SWETH( 39, 32) = 0.426823E+00
- PKER_SWETH( 39, 33) = 0.398824E+00
- PKER_SWETH( 39, 34) = 0.372505E+00
- PKER_SWETH( 39, 35) = 0.347761E+00
- PKER_SWETH( 39, 36) = 0.324487E+00
- PKER_SWETH( 39, 37) = 0.302588E+00
- PKER_SWETH( 39, 38) = 0.281972E+00
- PKER_SWETH( 39, 39) = 0.262550E+00
- PKER_SWETH( 39, 40) = 0.244238E+00
- PKER_SWETH( 39, 41) = 0.226957E+00
- PKER_SWETH( 39, 42) = 0.210631E+00
- PKER_SWETH( 39, 43) = 0.195187E+00
- PKER_SWETH( 39, 44) = 0.180559E+00
- PKER_SWETH( 39, 45) = 0.166686E+00
- PKER_SWETH( 39, 46) = 0.153516E+00
- PKER_SWETH( 39, 47) = 0.141008E+00
- PKER_SWETH( 39, 48) = 0.129131E+00
- PKER_SWETH( 39, 49) = 0.117873E+00
- PKER_SWETH( 39, 50) = 0.107233E+00
- PKER_SWETH( 39, 51) = 0.972184E-01
- PKER_SWETH( 39, 52) = 0.878440E-01
- PKER_SWETH( 39, 53) = 0.791184E-01
- PKER_SWETH( 39, 54) = 0.710406E-01
- PKER_SWETH( 39, 55) = 0.635951E-01
- PKER_SWETH( 39, 56) = 0.567529E-01
- PKER_SWETH( 39, 57) = 0.504750E-01
- PKER_SWETH( 39, 58) = 0.447169E-01
- PKER_SWETH( 39, 59) = 0.394327E-01
- PKER_SWETH( 39, 60) = 0.345813E-01
- PKER_SWETH( 39, 61) = 0.301271E-01
- PKER_SWETH( 39, 62) = 0.260446E-01
- PKER_SWETH( 39, 63) = 0.223191E-01
- PKER_SWETH( 39, 64) = 0.189491E-01
- PKER_SWETH( 39, 65) = 0.159459E-01
- PKER_SWETH( 39, 66) = 0.133348E-01
- PKER_SWETH( 39, 67) = 0.111460E-01
- PKER_SWETH( 39, 68) = 0.940775E-02
- PKER_SWETH( 39, 69) = 0.814637E-02
- PKER_SWETH( 39, 70) = 0.736755E-02
- PKER_SWETH( 39, 71) = 0.705182E-02
- PKER_SWETH( 39, 72) = 0.716064E-02
- PKER_SWETH( 39, 73) = 0.763295E-02
- PKER_SWETH( 39, 74) = 0.839614E-02
- PKER_SWETH( 39, 75) = 0.937315E-02
- PKER_SWETH( 39, 76) = 0.104870E-01
- PKER_SWETH( 39, 77) = 0.116808E-01
- PKER_SWETH( 39, 78) = 0.129002E-01
- PKER_SWETH( 39, 79) = 0.141107E-01
- PKER_SWETH( 39, 80) = 0.152883E-01
- PKER_SWETH( 40, 1) = 0.319267E+01
- PKER_SWETH( 40, 2) = 0.299631E+01
- PKER_SWETH( 40, 3) = 0.281193E+01
- PKER_SWETH( 40, 4) = 0.263880E+01
- PKER_SWETH( 40, 5) = 0.247623E+01
- PKER_SWETH( 40, 6) = 0.232358E+01
- PKER_SWETH( 40, 7) = 0.218024E+01
- PKER_SWETH( 40, 8) = 0.204565E+01
- PKER_SWETH( 40, 9) = 0.191927E+01
- PKER_SWETH( 40, 10) = 0.180061E+01
- PKER_SWETH( 40, 11) = 0.168918E+01
- PKER_SWETH( 40, 12) = 0.158455E+01
- PKER_SWETH( 40, 13) = 0.148631E+01
- PKER_SWETH( 40, 14) = 0.139405E+01
- PKER_SWETH( 40, 15) = 0.130743E+01
- PKER_SWETH( 40, 16) = 0.122609E+01
- PKER_SWETH( 40, 17) = 0.114971E+01
- PKER_SWETH( 40, 18) = 0.107800E+01
- PKER_SWETH( 40, 19) = 0.101065E+01
- PKER_SWETH( 40, 20) = 0.947416E+00
- PKER_SWETH( 40, 21) = 0.888036E+00
- PKER_SWETH( 40, 22) = 0.832276E+00
- PKER_SWETH( 40, 23) = 0.779916E+00
- PKER_SWETH( 40, 24) = 0.730746E+00
- PKER_SWETH( 40, 25) = 0.684572E+00
- PKER_SWETH( 40, 26) = 0.641210E+00
- PKER_SWETH( 40, 27) = 0.600488E+00
- PKER_SWETH( 40, 28) = 0.562243E+00
- PKER_SWETH( 40, 29) = 0.526323E+00
- PKER_SWETH( 40, 30) = 0.492583E+00
- PKER_SWETH( 40, 31) = 0.460890E+00
- PKER_SWETH( 40, 32) = 0.431116E+00
- PKER_SWETH( 40, 33) = 0.403140E+00
- PKER_SWETH( 40, 34) = 0.376851E+00
- PKER_SWETH( 40, 35) = 0.352140E+00
- PKER_SWETH( 40, 36) = 0.328907E+00
- PKER_SWETH( 40, 37) = 0.307055E+00
- PKER_SWETH( 40, 38) = 0.286495E+00
- PKER_SWETH( 40, 39) = 0.267140E+00
- PKER_SWETH( 40, 40) = 0.248907E+00
- PKER_SWETH( 40, 41) = 0.231718E+00
- PKER_SWETH( 40, 42) = 0.215498E+00
- PKER_SWETH( 40, 43) = 0.200175E+00
- PKER_SWETH( 40, 44) = 0.185683E+00
- PKER_SWETH( 40, 45) = 0.171959E+00
- PKER_SWETH( 40, 46) = 0.158946E+00
- PKER_SWETH( 40, 47) = 0.146595E+00
- PKER_SWETH( 40, 48) = 0.134867E+00
- PKER_SWETH( 40, 49) = 0.123735E+00
- PKER_SWETH( 40, 50) = 0.113185E+00
- PKER_SWETH( 40, 51) = 0.103216E+00
- PKER_SWETH( 40, 52) = 0.938355E-01
- PKER_SWETH( 40, 53) = 0.850554E-01
- PKER_SWETH( 40, 54) = 0.768835E-01
- PKER_SWETH( 40, 55) = 0.693180E-01
- PKER_SWETH( 40, 56) = 0.623442E-01
- PKER_SWETH( 40, 57) = 0.559346E-01
- PKER_SWETH( 40, 58) = 0.500518E-01
- PKER_SWETH( 40, 59) = 0.446530E-01
- PKER_SWETH( 40, 60) = 0.396945E-01
- PKER_SWETH( 40, 61) = 0.351341E-01
- PKER_SWETH( 40, 62) = 0.309350E-01
- PKER_SWETH( 40, 63) = 0.270668E-01
- PKER_SWETH( 40, 64) = 0.235073E-01
- PKER_SWETH( 40, 65) = 0.202425E-01
- PKER_SWETH( 40, 66) = 0.172698E-01
- PKER_SWETH( 40, 67) = 0.145977E-01
- PKER_SWETH( 40, 68) = 0.122444E-01
- PKER_SWETH( 40, 69) = 0.102365E-01
- PKER_SWETH( 40, 70) = 0.860187E-02
- PKER_SWETH( 40, 71) = 0.736637E-02
- PKER_SWETH( 40, 72) = 0.654201E-02
- PKER_SWETH( 40, 73) = 0.611859E-02
- PKER_SWETH( 40, 74) = 0.607653E-02
- PKER_SWETH( 40, 75) = 0.636809E-02
- PKER_SWETH( 40, 76) = 0.693164E-02
- PKER_SWETH( 40, 77) = 0.770652E-02
- PKER_SWETH( 40, 78) = 0.862610E-02
- PKER_SWETH( 40, 79) = 0.962951E-02
- PKER_SWETH( 40, 80) = 0.106726E-01
+PKER_SWETH( 1, 1) = 0.621503E+01
+PKER_SWETH( 1, 2) = 0.642955E+01
+PKER_SWETH( 1, 3) = 0.663737E+01
+PKER_SWETH( 1, 4) = 0.684015E+01
+PKER_SWETH( 1, 5) = 0.703956E+01
+PKER_SWETH( 1, 6) = 0.723727E+01
+PKER_SWETH( 1, 7) = 0.743478E+01
+PKER_SWETH( 1, 8) = 0.763325E+01
+PKER_SWETH( 1, 9) = 0.783330E+01
+PKER_SWETH( 1, 10) = 0.803476E+01
+PKER_SWETH( 1, 11) = 0.823653E+01
+PKER_SWETH( 1, 12) = 0.843651E+01
+PKER_SWETH( 1, 13) = 0.863186E+01
+PKER_SWETH( 1, 14) = 0.881940E+01
+PKER_SWETH( 1, 15) = 0.899609E+01
+PKER_SWETH( 1, 16) = 0.915958E+01
+PKER_SWETH( 1, 17) = 0.930842E+01
+PKER_SWETH( 1, 18) = 0.944217E+01
+PKER_SWETH( 1, 19) = 0.956119E+01
+PKER_SWETH( 1, 20) = 0.966648E+01
+PKER_SWETH( 1, 21) = 0.975933E+01
+PKER_SWETH( 1, 22) = 0.984120E+01
+PKER_SWETH( 1, 23) = 0.991349E+01
+PKER_SWETH( 1, 24) = 0.997753E+01
+PKER_SWETH( 1, 25) = 0.100345E+02
+PKER_SWETH( 1, 26) = 0.100854E+02
+PKER_SWETH( 1, 27) = 0.101311E+02
+PKER_SWETH( 1, 28) = 0.101723E+02
+PKER_SWETH( 1, 29) = 0.102097E+02
+PKER_SWETH( 1, 30) = 0.102438E+02
+PKER_SWETH( 1, 31) = 0.102749E+02
+PKER_SWETH( 1, 32) = 0.103034E+02
+PKER_SWETH( 1, 33) = 0.103296E+02
+PKER_SWETH( 1, 34) = 0.103539E+02
+PKER_SWETH( 1, 35) = 0.103763E+02
+PKER_SWETH( 1, 36) = 0.103971E+02
+PKER_SWETH( 1, 37) = 0.104164E+02
+PKER_SWETH( 1, 38) = 0.104343E+02
+PKER_SWETH( 1, 39) = 0.104511E+02
+PKER_SWETH( 1, 40) = 0.104667E+02
+PKER_SWETH( 1, 41) = 0.104812E+02
+PKER_SWETH( 1, 42) = 0.104949E+02
+PKER_SWETH( 1, 43) = 0.105076E+02
+PKER_SWETH( 1, 44) = 0.105195E+02
+PKER_SWETH( 1, 45) = 0.105307E+02
+PKER_SWETH( 1, 46) = 0.105412E+02
+PKER_SWETH( 1, 47) = 0.105510E+02
+PKER_SWETH( 1, 48) = 0.105601E+02
+PKER_SWETH( 1, 49) = 0.105688E+02
+PKER_SWETH( 1, 50) = 0.105768E+02
+PKER_SWETH( 1, 51) = 0.105844E+02
+PKER_SWETH( 1, 52) = 0.105915E+02
+PKER_SWETH( 1, 53) = 0.105982E+02
+PKER_SWETH( 1, 54) = 0.106044E+02
+PKER_SWETH( 1, 55) = 0.106103E+02
+PKER_SWETH( 1, 56) = 0.106158E+02
+PKER_SWETH( 1, 57) = 0.106210E+02
+PKER_SWETH( 1, 58) = 0.106259E+02
+PKER_SWETH( 1, 59) = 0.106304E+02
+PKER_SWETH( 1, 60) = 0.106347E+02
+PKER_SWETH( 1, 61) = 0.106387E+02
+PKER_SWETH( 1, 62) = 0.106425E+02
+PKER_SWETH( 1, 63) = 0.106460E+02
+PKER_SWETH( 1, 64) = 0.106494E+02
+PKER_SWETH( 1, 65) = 0.106525E+02
+PKER_SWETH( 1, 66) = 0.106554E+02
+PKER_SWETH( 1, 67) = 0.106582E+02
+PKER_SWETH( 1, 68) = 0.106608E+02
+PKER_SWETH( 1, 69) = 0.106632E+02
+PKER_SWETH( 1, 70) = 0.106655E+02
+PKER_SWETH( 1, 71) = 0.106676E+02
+PKER_SWETH( 1, 72) = 0.106696E+02
+PKER_SWETH( 1, 73) = 0.106715E+02
+PKER_SWETH( 1, 74) = 0.106733E+02
+PKER_SWETH( 1, 75) = 0.106749E+02
+PKER_SWETH( 1, 76) = 0.106765E+02
+PKER_SWETH( 1, 77) = 0.106780E+02
+PKER_SWETH( 1, 78) = 0.106793E+02
+PKER_SWETH( 1, 79) = 0.106806E+02
+PKER_SWETH( 1, 80) = 0.106818E+02
+PKER_SWETH( 2, 1) = 0.488694E+01
+PKER_SWETH( 2, 2) = 0.509473E+01
+PKER_SWETH( 2, 3) = 0.529455E+01
+PKER_SWETH( 2, 4) = 0.548777E+01
+PKER_SWETH( 2, 5) = 0.567585E+01
+PKER_SWETH( 2, 6) = 0.586027E+01
+PKER_SWETH( 2, 7) = 0.604252E+01
+PKER_SWETH( 2, 8) = 0.622393E+01
+PKER_SWETH( 2, 9) = 0.640554E+01
+PKER_SWETH( 2, 10) = 0.658791E+01
+PKER_SWETH( 2, 11) = 0.677095E+01
+PKER_SWETH( 2, 12) = 0.695370E+01
+PKER_SWETH( 2, 13) = 0.713440E+01
+PKER_SWETH( 2, 14) = 0.731059E+01
+PKER_SWETH( 2, 15) = 0.747955E+01
+PKER_SWETH( 2, 16) = 0.763866E+01
+PKER_SWETH( 2, 17) = 0.778589E+01
+PKER_SWETH( 2, 18) = 0.792003E+01
+PKER_SWETH( 2, 19) = 0.804070E+01
+PKER_SWETH( 2, 20) = 0.814827E+01
+PKER_SWETH( 2, 21) = 0.824361E+01
+PKER_SWETH( 2, 22) = 0.832788E+01
+PKER_SWETH( 2, 23) = 0.840235E+01
+PKER_SWETH( 2, 24) = 0.846829E+01
+PKER_SWETH( 2, 25) = 0.852685E+01
+PKER_SWETH( 2, 26) = 0.857908E+01
+PKER_SWETH( 2, 27) = 0.862586E+01
+PKER_SWETH( 2, 28) = 0.866797E+01
+PKER_SWETH( 2, 29) = 0.870604E+01
+PKER_SWETH( 2, 30) = 0.874063E+01
+PKER_SWETH( 2, 31) = 0.877217E+01
+PKER_SWETH( 2, 32) = 0.880105E+01
+PKER_SWETH( 2, 33) = 0.882758E+01
+PKER_SWETH( 2, 34) = 0.885202E+01
+PKER_SWETH( 2, 35) = 0.887461E+01
+PKER_SWETH( 2, 36) = 0.889553E+01
+PKER_SWETH( 2, 37) = 0.891494E+01
+PKER_SWETH( 2, 38) = 0.893298E+01
+PKER_SWETH( 2, 39) = 0.894979E+01
+PKER_SWETH( 2, 40) = 0.896545E+01
+PKER_SWETH( 2, 41) = 0.898007E+01
+PKER_SWETH( 2, 42) = 0.899372E+01
+PKER_SWETH( 2, 43) = 0.900649E+01
+PKER_SWETH( 2, 44) = 0.901843E+01
+PKER_SWETH( 2, 45) = 0.902961E+01
+PKER_SWETH( 2, 46) = 0.904008E+01
+PKER_SWETH( 2, 47) = 0.904989E+01
+PKER_SWETH( 2, 48) = 0.905908E+01
+PKER_SWETH( 2, 49) = 0.906770E+01
+PKER_SWETH( 2, 50) = 0.907578E+01
+PKER_SWETH( 2, 51) = 0.908336E+01
+PKER_SWETH( 2, 52) = 0.909048E+01
+PKER_SWETH( 2, 53) = 0.909715E+01
+PKER_SWETH( 2, 54) = 0.910341E+01
+PKER_SWETH( 2, 55) = 0.910928E+01
+PKER_SWETH( 2, 56) = 0.911480E+01
+PKER_SWETH( 2, 57) = 0.911997E+01
+PKER_SWETH( 2, 58) = 0.912483E+01
+PKER_SWETH( 2, 59) = 0.912939E+01
+PKER_SWETH( 2, 60) = 0.913368E+01
+PKER_SWETH( 2, 61) = 0.913770E+01
+PKER_SWETH( 2, 62) = 0.914147E+01
+PKER_SWETH( 2, 63) = 0.914501E+01
+PKER_SWETH( 2, 64) = 0.914834E+01
+PKER_SWETH( 2, 65) = 0.915146E+01
+PKER_SWETH( 2, 66) = 0.915439E+01
+PKER_SWETH( 2, 67) = 0.915715E+01
+PKER_SWETH( 2, 68) = 0.915973E+01
+PKER_SWETH( 2, 69) = 0.916216E+01
+PKER_SWETH( 2, 70) = 0.916444E+01
+PKER_SWETH( 2, 71) = 0.916658E+01
+PKER_SWETH( 2, 72) = 0.916859E+01
+PKER_SWETH( 2, 73) = 0.917047E+01
+PKER_SWETH( 2, 74) = 0.917224E+01
+PKER_SWETH( 2, 75) = 0.917391E+01
+PKER_SWETH( 2, 76) = 0.917547E+01
+PKER_SWETH( 2, 77) = 0.917693E+01
+PKER_SWETH( 2, 78) = 0.917831E+01
+PKER_SWETH( 2, 79) = 0.917960E+01
+PKER_SWETH( 2, 80) = 0.918082E+01
+PKER_SWETH( 3, 1) = 0.375124E+01
+PKER_SWETH( 3, 2) = 0.395338E+01
+PKER_SWETH( 3, 3) = 0.414703E+01
+PKER_SWETH( 3, 4) = 0.433314E+01
+PKER_SWETH( 3, 5) = 0.451285E+01
+PKER_SWETH( 3, 6) = 0.468742E+01
+PKER_SWETH( 3, 7) = 0.485815E+01
+PKER_SWETH( 3, 8) = 0.502636E+01
+PKER_SWETH( 3, 9) = 0.519322E+01
+PKER_SWETH( 3, 10) = 0.535966E+01
+PKER_SWETH( 3, 11) = 0.552622E+01
+PKER_SWETH( 3, 12) = 0.569281E+01
+PKER_SWETH( 3, 13) = 0.585866E+01
+PKER_SWETH( 3, 14) = 0.602225E+01
+PKER_SWETH( 3, 15) = 0.618147E+01
+PKER_SWETH( 3, 16) = 0.633398E+01
+PKER_SWETH( 3, 17) = 0.647752E+01
+PKER_SWETH( 3, 18) = 0.661037E+01
+PKER_SWETH( 3, 19) = 0.673149E+01
+PKER_SWETH( 3, 20) = 0.684057E+01
+PKER_SWETH( 3, 21) = 0.693797E+01
+PKER_SWETH( 3, 22) = 0.702445E+01
+PKER_SWETH( 3, 23) = 0.710106E+01
+PKER_SWETH( 3, 24) = 0.716893E+01
+PKER_SWETH( 3, 25) = 0.722916E+01
+PKER_SWETH( 3, 26) = 0.728280E+01
+PKER_SWETH( 3, 27) = 0.733075E+01
+PKER_SWETH( 3, 28) = 0.737380E+01
+PKER_SWETH( 3, 29) = 0.741264E+01
+PKER_SWETH( 3, 30) = 0.744784E+01
+PKER_SWETH( 3, 31) = 0.747987E+01
+PKER_SWETH( 3, 32) = 0.750913E+01
+PKER_SWETH( 3, 33) = 0.753597E+01
+PKER_SWETH( 3, 34) = 0.756065E+01
+PKER_SWETH( 3, 35) = 0.758343E+01
+PKER_SWETH( 3, 36) = 0.760450E+01
+PKER_SWETH( 3, 37) = 0.762403E+01
+PKER_SWETH( 3, 38) = 0.764217E+01
+PKER_SWETH( 3, 39) = 0.765904E+01
+PKER_SWETH( 3, 40) = 0.767476E+01
+PKER_SWETH( 3, 41) = 0.768943E+01
+PKER_SWETH( 3, 42) = 0.770312E+01
+PKER_SWETH( 3, 43) = 0.771591E+01
+PKER_SWETH( 3, 44) = 0.772788E+01
+PKER_SWETH( 3, 45) = 0.773907E+01
+PKER_SWETH( 3, 46) = 0.774956E+01
+PKER_SWETH( 3, 47) = 0.775938E+01
+PKER_SWETH( 3, 48) = 0.776858E+01
+PKER_SWETH( 3, 49) = 0.777721E+01
+PKER_SWETH( 3, 50) = 0.778529E+01
+PKER_SWETH( 3, 51) = 0.779288E+01
+PKER_SWETH( 3, 52) = 0.779999E+01
+PKER_SWETH( 3, 53) = 0.780667E+01
+PKER_SWETH( 3, 54) = 0.781293E+01
+PKER_SWETH( 3, 55) = 0.781881E+01
+PKER_SWETH( 3, 56) = 0.782432E+01
+PKER_SWETH( 3, 57) = 0.782950E+01
+PKER_SWETH( 3, 58) = 0.783436E+01
+PKER_SWETH( 3, 59) = 0.783892E+01
+PKER_SWETH( 3, 60) = 0.784320E+01
+PKER_SWETH( 3, 61) = 0.784722E+01
+PKER_SWETH( 3, 62) = 0.785100E+01
+PKER_SWETH( 3, 63) = 0.785454E+01
+PKER_SWETH( 3, 64) = 0.785787E+01
+PKER_SWETH( 3, 65) = 0.786099E+01
+PKER_SWETH( 3, 66) = 0.786392E+01
+PKER_SWETH( 3, 67) = 0.786667E+01
+PKER_SWETH( 3, 68) = 0.786926E+01
+PKER_SWETH( 3, 69) = 0.787169E+01
+PKER_SWETH( 3, 70) = 0.787397E+01
+PKER_SWETH( 3, 71) = 0.787611E+01
+PKER_SWETH( 3, 72) = 0.787811E+01
+PKER_SWETH( 3, 73) = 0.788000E+01
+PKER_SWETH( 3, 74) = 0.788177E+01
+PKER_SWETH( 3, 75) = 0.788344E+01
+PKER_SWETH( 3, 76) = 0.788500E+01
+PKER_SWETH( 3, 77) = 0.788646E+01
+PKER_SWETH( 3, 78) = 0.788784E+01
+PKER_SWETH( 3, 79) = 0.788913E+01
+PKER_SWETH( 3, 80) = 0.789035E+01
+PKER_SWETH( 4, 1) = 0.278424E+01
+PKER_SWETH( 4, 2) = 0.297942E+01
+PKER_SWETH( 4, 3) = 0.316697E+01
+PKER_SWETH( 4, 4) = 0.334706E+01
+PKER_SWETH( 4, 5) = 0.352024E+01
+PKER_SWETH( 4, 6) = 0.368737E+01
+PKER_SWETH( 4, 7) = 0.384947E+01
+PKER_SWETH( 4, 8) = 0.400765E+01
+PKER_SWETH( 4, 9) = 0.416307E+01
+PKER_SWETH( 4, 10) = 0.431675E+01
+PKER_SWETH( 4, 11) = 0.446953E+01
+PKER_SWETH( 4, 12) = 0.462189E+01
+PKER_SWETH( 4, 13) = 0.477380E+01
+PKER_SWETH( 4, 14) = 0.492458E+01
+PKER_SWETH( 4, 15) = 0.507296E+01
+PKER_SWETH( 4, 16) = 0.521712E+01
+PKER_SWETH( 4, 17) = 0.535504E+01
+PKER_SWETH( 4, 18) = 0.548479E+01
+PKER_SWETH( 4, 19) = 0.560488E+01
+PKER_SWETH( 4, 20) = 0.571444E+01
+PKER_SWETH( 4, 21) = 0.581323E+01
+PKER_SWETH( 4, 22) = 0.590157E+01
+PKER_SWETH( 4, 23) = 0.598017E+01
+PKER_SWETH( 4, 24) = 0.604994E+01
+PKER_SWETH( 4, 25) = 0.611189E+01
+PKER_SWETH( 4, 26) = 0.616700E+01
+PKER_SWETH( 4, 27) = 0.621619E+01
+PKER_SWETH( 4, 28) = 0.626027E+01
+PKER_SWETH( 4, 29) = 0.629995E+01
+PKER_SWETH( 4, 30) = 0.633582E+01
+PKER_SWETH( 4, 31) = 0.636838E+01
+PKER_SWETH( 4, 32) = 0.639808E+01
+PKER_SWETH( 4, 33) = 0.642525E+01
+PKER_SWETH( 4, 34) = 0.645021E+01
+PKER_SWETH( 4, 35) = 0.647320E+01
+PKER_SWETH( 4, 36) = 0.649443E+01
+PKER_SWETH( 4, 37) = 0.651409E+01
+PKER_SWETH( 4, 38) = 0.653234E+01
+PKER_SWETH( 4, 39) = 0.654929E+01
+PKER_SWETH( 4, 40) = 0.656508E+01
+PKER_SWETH( 4, 41) = 0.657979E+01
+PKER_SWETH( 4, 42) = 0.659352E+01
+PKER_SWETH( 4, 43) = 0.660635E+01
+PKER_SWETH( 4, 44) = 0.661834E+01
+PKER_SWETH( 4, 45) = 0.662955E+01
+PKER_SWETH( 4, 46) = 0.664005E+01
+PKER_SWETH( 4, 47) = 0.664988E+01
+PKER_SWETH( 4, 48) = 0.665910E+01
+PKER_SWETH( 4, 49) = 0.666773E+01
+PKER_SWETH( 4, 50) = 0.667582E+01
+PKER_SWETH( 4, 51) = 0.668341E+01
+PKER_SWETH( 4, 52) = 0.669053E+01
+PKER_SWETH( 4, 53) = 0.669721E+01
+PKER_SWETH( 4, 54) = 0.670347E+01
+PKER_SWETH( 4, 55) = 0.670935E+01
+PKER_SWETH( 4, 56) = 0.671487E+01
+PKER_SWETH( 4, 57) = 0.672005E+01
+PKER_SWETH( 4, 58) = 0.672491E+01
+PKER_SWETH( 4, 59) = 0.672947E+01
+PKER_SWETH( 4, 60) = 0.673375E+01
+PKER_SWETH( 4, 61) = 0.673777E+01
+PKER_SWETH( 4, 62) = 0.674155E+01
+PKER_SWETH( 4, 63) = 0.674509E+01
+PKER_SWETH( 4, 64) = 0.674842E+01
+PKER_SWETH( 4, 65) = 0.675154E+01
+PKER_SWETH( 4, 66) = 0.675447E+01
+PKER_SWETH( 4, 67) = 0.675723E+01
+PKER_SWETH( 4, 68) = 0.675981E+01
+PKER_SWETH( 4, 69) = 0.676224E+01
+PKER_SWETH( 4, 70) = 0.676452E+01
+PKER_SWETH( 4, 71) = 0.676666E+01
+PKER_SWETH( 4, 72) = 0.676867E+01
+PKER_SWETH( 4, 73) = 0.677055E+01
+PKER_SWETH( 4, 74) = 0.677232E+01
+PKER_SWETH( 4, 75) = 0.677399E+01
+PKER_SWETH( 4, 76) = 0.677555E+01
+PKER_SWETH( 4, 77) = 0.677702E+01
+PKER_SWETH( 4, 78) = 0.677839E+01
+PKER_SWETH( 4, 79) = 0.677969E+01
+PKER_SWETH( 4, 80) = 0.678090E+01
+PKER_SWETH( 5, 1) = 0.197467E+01
+PKER_SWETH( 5, 2) = 0.215641E+01
+PKER_SWETH( 5, 3) = 0.233442E+01
+PKER_SWETH( 5, 4) = 0.250706E+01
+PKER_SWETH( 5, 5) = 0.267376E+01
+PKER_SWETH( 5, 6) = 0.283450E+01
+PKER_SWETH( 5, 7) = 0.298975E+01
+PKER_SWETH( 5, 8) = 0.314024E+01
+PKER_SWETH( 5, 9) = 0.328687E+01
+PKER_SWETH( 5, 10) = 0.343059E+01
+PKER_SWETH( 5, 11) = 0.357230E+01
+PKER_SWETH( 5, 12) = 0.371274E+01
+PKER_SWETH( 5, 13) = 0.385234E+01
+PKER_SWETH( 5, 14) = 0.399109E+01
+PKER_SWETH( 5, 15) = 0.412843E+01
+PKER_SWETH( 5, 16) = 0.426326E+01
+PKER_SWETH( 5, 17) = 0.439402E+01
+PKER_SWETH( 5, 18) = 0.451898E+01
+PKER_SWETH( 5, 19) = 0.463649E+01
+PKER_SWETH( 5, 20) = 0.474526E+01
+PKER_SWETH( 5, 21) = 0.484454E+01
+PKER_SWETH( 5, 22) = 0.493417E+01
+PKER_SWETH( 5, 23) = 0.501444E+01
+PKER_SWETH( 5, 24) = 0.508599E+01
+PKER_SWETH( 5, 25) = 0.514963E+01
+PKER_SWETH( 5, 26) = 0.520627E+01
+PKER_SWETH( 5, 27) = 0.525678E+01
+PKER_SWETH( 5, 28) = 0.530196E+01
+PKER_SWETH( 5, 29) = 0.534254E+01
+PKER_SWETH( 5, 30) = 0.537915E+01
+PKER_SWETH( 5, 31) = 0.541231E+01
+PKER_SWETH( 5, 32) = 0.544248E+01
+PKER_SWETH( 5, 33) = 0.547003E+01
+PKER_SWETH( 5, 34) = 0.549528E+01
+PKER_SWETH( 5, 35) = 0.551851E+01
+PKER_SWETH( 5, 36) = 0.553993E+01
+PKER_SWETH( 5, 37) = 0.555974E+01
+PKER_SWETH( 5, 38) = 0.557809E+01
+PKER_SWETH( 5, 39) = 0.559514E+01
+PKER_SWETH( 5, 40) = 0.561100E+01
+PKER_SWETH( 5, 41) = 0.562577E+01
+PKER_SWETH( 5, 42) = 0.563954E+01
+PKER_SWETH( 5, 43) = 0.565240E+01
+PKER_SWETH( 5, 44) = 0.566442E+01
+PKER_SWETH( 5, 45) = 0.567565E+01
+PKER_SWETH( 5, 46) = 0.568617E+01
+PKER_SWETH( 5, 47) = 0.569602E+01
+PKER_SWETH( 5, 48) = 0.570524E+01
+PKER_SWETH( 5, 49) = 0.571388E+01
+PKER_SWETH( 5, 50) = 0.572198E+01
+PKER_SWETH( 5, 51) = 0.572957E+01
+PKER_SWETH( 5, 52) = 0.573670E+01
+PKER_SWETH( 5, 53) = 0.574338E+01
+PKER_SWETH( 5, 54) = 0.574965E+01
+PKER_SWETH( 5, 55) = 0.575553E+01
+PKER_SWETH( 5, 56) = 0.576105E+01
+PKER_SWETH( 5, 57) = 0.576622E+01
+PKER_SWETH( 5, 58) = 0.577109E+01
+PKER_SWETH( 5, 59) = 0.577565E+01
+PKER_SWETH( 5, 60) = 0.577993E+01
+PKER_SWETH( 5, 61) = 0.578395E+01
+PKER_SWETH( 5, 62) = 0.578773E+01
+PKER_SWETH( 5, 63) = 0.579127E+01
+PKER_SWETH( 5, 64) = 0.579460E+01
+PKER_SWETH( 5, 65) = 0.579772E+01
+PKER_SWETH( 5, 66) = 0.580065E+01
+PKER_SWETH( 5, 67) = 0.580341E+01
+PKER_SWETH( 5, 68) = 0.580599E+01
+PKER_SWETH( 5, 69) = 0.580842E+01
+PKER_SWETH( 5, 70) = 0.581070E+01
+PKER_SWETH( 5, 71) = 0.581284E+01
+PKER_SWETH( 5, 72) = 0.581485E+01
+PKER_SWETH( 5, 73) = 0.581673E+01
+PKER_SWETH( 5, 74) = 0.581851E+01
+PKER_SWETH( 5, 75) = 0.582017E+01
+PKER_SWETH( 5, 76) = 0.582173E+01
+PKER_SWETH( 5, 77) = 0.582320E+01
+PKER_SWETH( 5, 78) = 0.582457E+01
+PKER_SWETH( 5, 79) = 0.582587E+01
+PKER_SWETH( 5, 80) = 0.582708E+01
+PKER_SWETH( 6, 1) = 0.133054E+01
+PKER_SWETH( 6, 2) = 0.148339E+01
+PKER_SWETH( 6, 3) = 0.164133E+01
+PKER_SWETH( 6, 4) = 0.180001E+01
+PKER_SWETH( 6, 5) = 0.195663E+01
+PKER_SWETH( 6, 6) = 0.210950E+01
+PKER_SWETH( 6, 7) = 0.225787E+01
+PKER_SWETH( 6, 8) = 0.240166E+01
+PKER_SWETH( 6, 9) = 0.254118E+01
+PKER_SWETH( 6, 10) = 0.267706E+01
+PKER_SWETH( 6, 11) = 0.281002E+01
+PKER_SWETH( 6, 12) = 0.294082E+01
+PKER_SWETH( 6, 13) = 0.307007E+01
+PKER_SWETH( 6, 14) = 0.319817E+01
+PKER_SWETH( 6, 15) = 0.332511E+01
+PKER_SWETH( 6, 16) = 0.345042E+01
+PKER_SWETH( 6, 17) = 0.357316E+01
+PKER_SWETH( 6, 18) = 0.369200E+01
+PKER_SWETH( 6, 19) = 0.380543E+01
+PKER_SWETH( 6, 20) = 0.391203E+01
+PKER_SWETH( 6, 21) = 0.401072E+01
+PKER_SWETH( 6, 22) = 0.410087E+01
+PKER_SWETH( 6, 23) = 0.418233E+01
+PKER_SWETH( 6, 24) = 0.425540E+01
+PKER_SWETH( 6, 25) = 0.432064E+01
+PKER_SWETH( 6, 26) = 0.437879E+01
+PKER_SWETH( 6, 27) = 0.443065E+01
+PKER_SWETH( 6, 28) = 0.447700E+01
+PKER_SWETH( 6, 29) = 0.451856E+01
+PKER_SWETH( 6, 30) = 0.455597E+01
+PKER_SWETH( 6, 31) = 0.458978E+01
+PKER_SWETH( 6, 32) = 0.462047E+01
+PKER_SWETH( 6, 33) = 0.464844E+01
+PKER_SWETH( 6, 34) = 0.467403E+01
+PKER_SWETH( 6, 35) = 0.469752E+01
+PKER_SWETH( 6, 36) = 0.471914E+01
+PKER_SWETH( 6, 37) = 0.473911E+01
+PKER_SWETH( 6, 38) = 0.475760E+01
+PKER_SWETH( 6, 39) = 0.477475E+01
+PKER_SWETH( 6, 40) = 0.479068E+01
+PKER_SWETH( 6, 41) = 0.480552E+01
+PKER_SWETH( 6, 42) = 0.481934E+01
+PKER_SWETH( 6, 43) = 0.483224E+01
+PKER_SWETH( 6, 44) = 0.484428E+01
+PKER_SWETH( 6, 45) = 0.485555E+01
+PKER_SWETH( 6, 46) = 0.486608E+01
+PKER_SWETH( 6, 47) = 0.487594E+01
+PKER_SWETH( 6, 48) = 0.488517E+01
+PKER_SWETH( 6, 49) = 0.489382E+01
+PKER_SWETH( 6, 50) = 0.490193E+01
+PKER_SWETH( 6, 51) = 0.490953E+01
+PKER_SWETH( 6, 52) = 0.491666E+01
+PKER_SWETH( 6, 53) = 0.492334E+01
+PKER_SWETH( 6, 54) = 0.492961E+01
+PKER_SWETH( 6, 55) = 0.493550E+01
+PKER_SWETH( 6, 56) = 0.494102E+01
+PKER_SWETH( 6, 57) = 0.494620E+01
+PKER_SWETH( 6, 58) = 0.495106E+01
+PKER_SWETH( 6, 59) = 0.495562E+01
+PKER_SWETH( 6, 60) = 0.495991E+01
+PKER_SWETH( 6, 61) = 0.496393E+01
+PKER_SWETH( 6, 62) = 0.496770E+01
+PKER_SWETH( 6, 63) = 0.497125E+01
+PKER_SWETH( 6, 64) = 0.497458E+01
+PKER_SWETH( 6, 65) = 0.497770E+01
+PKER_SWETH( 6, 66) = 0.498063E+01
+PKER_SWETH( 6, 67) = 0.498339E+01
+PKER_SWETH( 6, 68) = 0.498597E+01
+PKER_SWETH( 6, 69) = 0.498840E+01
+PKER_SWETH( 6, 70) = 0.499068E+01
+PKER_SWETH( 6, 71) = 0.499282E+01
+PKER_SWETH( 6, 72) = 0.499483E+01
+PKER_SWETH( 6, 73) = 0.499671E+01
+PKER_SWETH( 6, 74) = 0.499848E+01
+PKER_SWETH( 6, 75) = 0.500015E+01
+PKER_SWETH( 6, 76) = 0.500171E+01
+PKER_SWETH( 6, 77) = 0.500318E+01
+PKER_SWETH( 6, 78) = 0.500455E+01
+PKER_SWETH( 6, 79) = 0.500585E+01
+PKER_SWETH( 6, 80) = 0.500706E+01
+PKER_SWETH( 7, 1) = 0.882034E+00
+PKER_SWETH( 7, 2) = 0.980376E+00
+PKER_SWETH( 7, 3) = 0.109779E+01
+PKER_SWETH( 7, 4) = 0.122745E+01
+PKER_SWETH( 7, 5) = 0.136358E+01
+PKER_SWETH( 7, 6) = 0.150199E+01
+PKER_SWETH( 7, 7) = 0.163983E+01
+PKER_SWETH( 7, 8) = 0.177532E+01
+PKER_SWETH( 7, 9) = 0.190762E+01
+PKER_SWETH( 7, 10) = 0.203653E+01
+PKER_SWETH( 7, 11) = 0.216224E+01
+PKER_SWETH( 7, 12) = 0.228520E+01
+PKER_SWETH( 7, 13) = 0.240598E+01
+PKER_SWETH( 7, 14) = 0.252506E+01
+PKER_SWETH( 7, 15) = 0.264275E+01
+PKER_SWETH( 7, 16) = 0.275907E+01
+PKER_SWETH( 7, 17) = 0.287359E+01
+PKER_SWETH( 7, 18) = 0.298552E+01
+PKER_SWETH( 7, 19) = 0.309371E+01
+PKER_SWETH( 7, 20) = 0.319686E+01
+PKER_SWETH( 7, 21) = 0.329376E+01
+PKER_SWETH( 7, 22) = 0.338346E+01
+PKER_SWETH( 7, 23) = 0.346545E+01
+PKER_SWETH( 7, 24) = 0.353962E+01
+PKER_SWETH( 7, 25) = 0.360624E+01
+PKER_SWETH( 7, 26) = 0.366583E+01
+PKER_SWETH( 7, 27) = 0.371905E+01
+PKER_SWETH( 7, 28) = 0.376661E+01
+PKER_SWETH( 7, 29) = 0.380921E+01
+PKER_SWETH( 7, 30) = 0.384748E+01
+PKER_SWETH( 7, 31) = 0.388201E+01
+PKER_SWETH( 7, 32) = 0.391327E+01
+PKER_SWETH( 7, 33) = 0.394171E+01
+PKER_SWETH( 7, 34) = 0.396766E+01
+PKER_SWETH( 7, 35) = 0.399144E+01
+PKER_SWETH( 7, 36) = 0.401330E+01
+PKER_SWETH( 7, 37) = 0.403345E+01
+PKER_SWETH( 7, 38) = 0.405208E+01
+PKER_SWETH( 7, 39) = 0.406934E+01
+PKER_SWETH( 7, 40) = 0.408537E+01
+PKER_SWETH( 7, 41) = 0.410027E+01
+PKER_SWETH( 7, 42) = 0.411415E+01
+PKER_SWETH( 7, 43) = 0.412709E+01
+PKER_SWETH( 7, 44) = 0.413917E+01
+PKER_SWETH( 7, 45) = 0.415046E+01
+PKER_SWETH( 7, 46) = 0.416101E+01
+PKER_SWETH( 7, 47) = 0.417089E+01
+PKER_SWETH( 7, 48) = 0.418014E+01
+PKER_SWETH( 7, 49) = 0.418880E+01
+PKER_SWETH( 7, 50) = 0.419691E+01
+PKER_SWETH( 7, 51) = 0.420452E+01
+PKER_SWETH( 7, 52) = 0.421165E+01
+PKER_SWETH( 7, 53) = 0.421834E+01
+PKER_SWETH( 7, 54) = 0.422461E+01
+PKER_SWETH( 7, 55) = 0.423050E+01
+PKER_SWETH( 7, 56) = 0.423602E+01
+PKER_SWETH( 7, 57) = 0.424120E+01
+PKER_SWETH( 7, 58) = 0.424606E+01
+PKER_SWETH( 7, 59) = 0.425063E+01
+PKER_SWETH( 7, 60) = 0.425491E+01
+PKER_SWETH( 7, 61) = 0.425894E+01
+PKER_SWETH( 7, 62) = 0.426271E+01
+PKER_SWETH( 7, 63) = 0.426626E+01
+PKER_SWETH( 7, 64) = 0.426958E+01
+PKER_SWETH( 7, 65) = 0.427271E+01
+PKER_SWETH( 7, 66) = 0.427564E+01
+PKER_SWETH( 7, 67) = 0.427839E+01
+PKER_SWETH( 7, 68) = 0.428098E+01
+PKER_SWETH( 7, 69) = 0.428341E+01
+PKER_SWETH( 7, 70) = 0.428568E+01
+PKER_SWETH( 7, 71) = 0.428782E+01
+PKER_SWETH( 7, 72) = 0.428983E+01
+PKER_SWETH( 7, 73) = 0.429172E+01
+PKER_SWETH( 7, 74) = 0.429349E+01
+PKER_SWETH( 7, 75) = 0.429516E+01
+PKER_SWETH( 7, 76) = 0.429672E+01
+PKER_SWETH( 7, 77) = 0.429818E+01
+PKER_SWETH( 7, 78) = 0.429956E+01
+PKER_SWETH( 7, 79) = 0.430085E+01
+PKER_SWETH( 7, 80) = 0.430207E+01
+PKER_SWETH( 8, 1) = 0.663981E+00
+PKER_SWETH( 8, 2) = 0.681720E+00
+PKER_SWETH( 8, 3) = 0.732609E+00
+PKER_SWETH( 8, 4) = 0.809815E+00
+PKER_SWETH( 8, 5) = 0.906209E+00
+PKER_SWETH( 8, 6) = 0.101559E+01
+PKER_SWETH( 8, 7) = 0.113265E+01
+PKER_SWETH( 8, 8) = 0.125326E+01
+PKER_SWETH( 8, 9) = 0.137459E+01
+PKER_SWETH( 8, 10) = 0.149483E+01
+PKER_SWETH( 8, 11) = 0.161303E+01
+PKER_SWETH( 8, 12) = 0.172886E+01
+PKER_SWETH( 8, 13) = 0.184237E+01
+PKER_SWETH( 8, 14) = 0.195383E+01
+PKER_SWETH( 8, 15) = 0.206359E+01
+PKER_SWETH( 8, 16) = 0.217183E+01
+PKER_SWETH( 8, 17) = 0.227854E+01
+PKER_SWETH( 8, 18) = 0.238337E+01
+PKER_SWETH( 8, 19) = 0.248561E+01
+PKER_SWETH( 8, 20) = 0.258428E+01
+PKER_SWETH( 8, 21) = 0.267825E+01
+PKER_SWETH( 8, 22) = 0.276647E+01
+PKER_SWETH( 8, 23) = 0.284816E+01
+PKER_SWETH( 8, 24) = 0.292286E+01
+PKER_SWETH( 8, 25) = 0.299050E+01
+PKER_SWETH( 8, 26) = 0.305135E+01
+PKER_SWETH( 8, 27) = 0.310586E+01
+PKER_SWETH( 8, 28) = 0.315464E+01
+PKER_SWETH( 8, 29) = 0.319832E+01
+PKER_SWETH( 8, 30) = 0.323752E+01
+PKER_SWETH( 8, 31) = 0.327282E+01
+PKER_SWETH( 8, 32) = 0.330472E+01
+PKER_SWETH( 8, 33) = 0.333366E+01
+PKER_SWETH( 8, 34) = 0.336003E+01
+PKER_SWETH( 8, 35) = 0.338413E+01
+PKER_SWETH( 8, 36) = 0.340625E+01
+PKER_SWETH( 8, 37) = 0.342661E+01
+PKER_SWETH( 8, 38) = 0.344540E+01
+PKER_SWETH( 8, 39) = 0.346278E+01
+PKER_SWETH( 8, 40) = 0.347891E+01
+PKER_SWETH( 8, 41) = 0.349389E+01
+PKER_SWETH( 8, 42) = 0.350783E+01
+PKER_SWETH( 8, 43) = 0.352082E+01
+PKER_SWETH( 8, 44) = 0.353293E+01
+PKER_SWETH( 8, 45) = 0.354425E+01
+PKER_SWETH( 8, 46) = 0.355483E+01
+PKER_SWETH( 8, 47) = 0.356472E+01
+PKER_SWETH( 8, 48) = 0.357398E+01
+PKER_SWETH( 8, 49) = 0.358266E+01
+PKER_SWETH( 8, 50) = 0.359078E+01
+PKER_SWETH( 8, 51) = 0.359839E+01
+PKER_SWETH( 8, 52) = 0.360553E+01
+PKER_SWETH( 8, 53) = 0.361222E+01
+PKER_SWETH( 8, 54) = 0.361850E+01
+PKER_SWETH( 8, 55) = 0.362439E+01
+PKER_SWETH( 8, 56) = 0.362991E+01
+PKER_SWETH( 8, 57) = 0.363510E+01
+PKER_SWETH( 8, 58) = 0.363996E+01
+PKER_SWETH( 8, 59) = 0.364453E+01
+PKER_SWETH( 8, 60) = 0.364881E+01
+PKER_SWETH( 8, 61) = 0.365284E+01
+PKER_SWETH( 8, 62) = 0.365661E+01
+PKER_SWETH( 8, 63) = 0.366016E+01
+PKER_SWETH( 8, 64) = 0.366348E+01
+PKER_SWETH( 8, 65) = 0.366661E+01
+PKER_SWETH( 8, 66) = 0.366954E+01
+PKER_SWETH( 8, 67) = 0.367229E+01
+PKER_SWETH( 8, 68) = 0.367488E+01
+PKER_SWETH( 8, 69) = 0.367731E+01
+PKER_SWETH( 8, 70) = 0.367959E+01
+PKER_SWETH( 8, 71) = 0.368173E+01
+PKER_SWETH( 8, 72) = 0.368374E+01
+PKER_SWETH( 8, 73) = 0.368562E+01
+PKER_SWETH( 8, 74) = 0.368739E+01
+PKER_SWETH( 8, 75) = 0.368906E+01
+PKER_SWETH( 8, 76) = 0.369062E+01
+PKER_SWETH( 8, 77) = 0.369209E+01
+PKER_SWETH( 8, 78) = 0.369346E+01
+PKER_SWETH( 8, 79) = 0.369476E+01
+PKER_SWETH( 8, 80) = 0.369597E+01
+PKER_SWETH( 9, 1) = 0.677324E+00
+PKER_SWETH( 9, 2) = 0.606793E+00
+PKER_SWETH( 9, 3) = 0.574292E+00
+PKER_SWETH( 9, 4) = 0.577620E+00
+PKER_SWETH( 9, 5) = 0.611503E+00
+PKER_SWETH( 9, 6) = 0.670570E+00
+PKER_SWETH( 9, 7) = 0.748918E+00
+PKER_SWETH( 9, 8) = 0.840739E+00
+PKER_SWETH( 9, 9) = 0.941077E+00
+PKER_SWETH( 9, 10) = 0.104607E+01
+PKER_SWETH( 9, 11) = 0.115294E+01
+PKER_SWETH( 9, 12) = 0.125978E+01
+PKER_SWETH( 9, 13) = 0.136558E+01
+PKER_SWETH( 9, 14) = 0.146986E+01
+PKER_SWETH( 9, 15) = 0.157251E+01
+PKER_SWETH( 9, 16) = 0.167360E+01
+PKER_SWETH( 9, 17) = 0.177319E+01
+PKER_SWETH( 9, 18) = 0.187120E+01
+PKER_SWETH( 9, 19) = 0.196728E+01
+PKER_SWETH( 9, 20) = 0.206081E+01
+PKER_SWETH( 9, 21) = 0.215094E+01
+PKER_SWETH( 9, 22) = 0.223669E+01
+PKER_SWETH( 9, 23) = 0.231716E+01
+PKER_SWETH( 9, 24) = 0.239167E+01
+PKER_SWETH( 9, 25) = 0.245984E+01
+PKER_SWETH( 9, 26) = 0.252164E+01
+PKER_SWETH( 9, 27) = 0.257730E+01
+PKER_SWETH( 9, 28) = 0.262725E+01
+PKER_SWETH( 9, 29) = 0.267202E+01
+PKER_SWETH( 9, 30) = 0.271219E+01
+PKER_SWETH( 9, 31) = 0.274832E+01
+PKER_SWETH( 9, 32) = 0.278090E+01
+PKER_SWETH( 9, 33) = 0.281041E+01
+PKER_SWETH( 9, 34) = 0.283723E+01
+PKER_SWETH( 9, 35) = 0.286170E+01
+PKER_SWETH( 9, 36) = 0.288411E+01
+PKER_SWETH( 9, 37) = 0.290469E+01
+PKER_SWETH( 9, 38) = 0.292366E+01
+PKER_SWETH( 9, 39) = 0.294119E+01
+PKER_SWETH( 9, 40) = 0.295743E+01
+PKER_SWETH( 9, 41) = 0.297249E+01
+PKER_SWETH( 9, 42) = 0.298650E+01
+PKER_SWETH( 9, 43) = 0.299954E+01
+PKER_SWETH( 9, 44) = 0.301170E+01
+PKER_SWETH( 9, 45) = 0.302305E+01
+PKER_SWETH( 9, 46) = 0.303366E+01
+PKER_SWETH( 9, 47) = 0.304357E+01
+PKER_SWETH( 9, 48) = 0.305285E+01
+PKER_SWETH( 9, 49) = 0.306153E+01
+PKER_SWETH( 9, 50) = 0.306967E+01
+PKER_SWETH( 9, 51) = 0.307729E+01
+PKER_SWETH( 9, 52) = 0.308443E+01
+PKER_SWETH( 9, 53) = 0.309113E+01
+PKER_SWETH( 9, 54) = 0.309741E+01
+PKER_SWETH( 9, 55) = 0.310330E+01
+PKER_SWETH( 9, 56) = 0.310883E+01
+PKER_SWETH( 9, 57) = 0.311401E+01
+PKER_SWETH( 9, 58) = 0.311888E+01
+PKER_SWETH( 9, 59) = 0.312345E+01
+PKER_SWETH( 9, 60) = 0.312773E+01
+PKER_SWETH( 9, 61) = 0.313176E+01
+PKER_SWETH( 9, 62) = 0.313553E+01
+PKER_SWETH( 9, 63) = 0.313908E+01
+PKER_SWETH( 9, 64) = 0.314241E+01
+PKER_SWETH( 9, 65) = 0.314553E+01
+PKER_SWETH( 9, 66) = 0.314846E+01
+PKER_SWETH( 9, 67) = 0.315122E+01
+PKER_SWETH( 9, 68) = 0.315380E+01
+PKER_SWETH( 9, 69) = 0.315623E+01
+PKER_SWETH( 9, 70) = 0.315851E+01
+PKER_SWETH( 9, 71) = 0.316065E+01
+PKER_SWETH( 9, 72) = 0.316266E+01
+PKER_SWETH( 9, 73) = 0.316455E+01
+PKER_SWETH( 9, 74) = 0.316632E+01
+PKER_SWETH( 9, 75) = 0.316798E+01
+PKER_SWETH( 9, 76) = 0.316954E+01
+PKER_SWETH( 9, 77) = 0.317101E+01
+PKER_SWETH( 9, 78) = 0.317239E+01
+PKER_SWETH( 9, 79) = 0.317368E+01
+PKER_SWETH( 9, 80) = 0.317489E+01
+PKER_SWETH( 10, 1) = 0.862136E+00
+PKER_SWETH( 10, 2) = 0.722748E+00
+PKER_SWETH( 10, 3) = 0.615556E+00
+PKER_SWETH( 10, 4) = 0.541805E+00
+PKER_SWETH( 10, 5) = 0.501642E+00
+PKER_SWETH( 10, 6) = 0.493082E+00
+PKER_SWETH( 10, 7) = 0.513290E+00
+PKER_SWETH( 10, 8) = 0.557280E+00
+PKER_SWETH( 10, 9) = 0.620074E+00
+PKER_SWETH( 10, 10) = 0.696671E+00
+PKER_SWETH( 10, 11) = 0.782464E+00
+PKER_SWETH( 10, 12) = 0.873848E+00
+PKER_SWETH( 10, 13) = 0.968012E+00
+PKER_SWETH( 10, 14) = 0.106310E+01
+PKER_SWETH( 10, 15) = 0.115798E+01
+PKER_SWETH( 10, 16) = 0.125199E+01
+PKER_SWETH( 10, 17) = 0.134486E+01
+PKER_SWETH( 10, 18) = 0.143642E+01
+PKER_SWETH( 10, 19) = 0.152645E+01
+PKER_SWETH( 10, 20) = 0.161460E+01
+PKER_SWETH( 10, 21) = 0.170028E+01
+PKER_SWETH( 10, 22) = 0.178274E+01
+PKER_SWETH( 10, 23) = 0.186111E+01
+PKER_SWETH( 10, 24) = 0.193463E+01
+PKER_SWETH( 10, 25) = 0.200271E+01
+PKER_SWETH( 10, 26) = 0.206503E+01
+PKER_SWETH( 10, 27) = 0.212157E+01
+PKER_SWETH( 10, 28) = 0.217256E+01
+PKER_SWETH( 10, 29) = 0.221840E+01
+PKER_SWETH( 10, 30) = 0.225956E+01
+PKER_SWETH( 10, 31) = 0.229655E+01
+PKER_SWETH( 10, 32) = 0.232988E+01
+PKER_SWETH( 10, 33) = 0.236000E+01
+PKER_SWETH( 10, 34) = 0.238732E+01
+PKER_SWETH( 10, 35) = 0.241219E+01
+PKER_SWETH( 10, 36) = 0.243492E+01
+PKER_SWETH( 10, 37) = 0.245577E+01
+PKER_SWETH( 10, 38) = 0.247494E+01
+PKER_SWETH( 10, 39) = 0.249263E+01
+PKER_SWETH( 10, 40) = 0.250899E+01
+PKER_SWETH( 10, 41) = 0.252415E+01
+PKER_SWETH( 10, 42) = 0.253824E+01
+PKER_SWETH( 10, 43) = 0.255134E+01
+PKER_SWETH( 10, 44) = 0.256355E+01
+PKER_SWETH( 10, 45) = 0.257494E+01
+PKER_SWETH( 10, 46) = 0.258557E+01
+PKER_SWETH( 10, 47) = 0.259551E+01
+PKER_SWETH( 10, 48) = 0.260480E+01
+PKER_SWETH( 10, 49) = 0.261350E+01
+PKER_SWETH( 10, 50) = 0.262165E+01
+PKER_SWETH( 10, 51) = 0.262927E+01
+PKER_SWETH( 10, 52) = 0.263642E+01
+PKER_SWETH( 10, 53) = 0.264313E+01
+PKER_SWETH( 10, 54) = 0.264941E+01
+PKER_SWETH( 10, 55) = 0.265531E+01
+PKER_SWETH( 10, 56) = 0.266084E+01
+PKER_SWETH( 10, 57) = 0.266602E+01
+PKER_SWETH( 10, 58) = 0.267089E+01
+PKER_SWETH( 10, 59) = 0.267546E+01
+PKER_SWETH( 10, 60) = 0.267975E+01
+PKER_SWETH( 10, 61) = 0.268377E+01
+PKER_SWETH( 10, 62) = 0.268755E+01
+PKER_SWETH( 10, 63) = 0.269109E+01
+PKER_SWETH( 10, 64) = 0.269442E+01
+PKER_SWETH( 10, 65) = 0.269755E+01
+PKER_SWETH( 10, 66) = 0.270048E+01
+PKER_SWETH( 10, 67) = 0.270323E+01
+PKER_SWETH( 10, 68) = 0.270582E+01
+PKER_SWETH( 10, 69) = 0.270825E+01
+PKER_SWETH( 10, 70) = 0.271053E+01
+PKER_SWETH( 10, 71) = 0.271267E+01
+PKER_SWETH( 10, 72) = 0.271468E+01
+PKER_SWETH( 10, 73) = 0.271656E+01
+PKER_SWETH( 10, 74) = 0.271833E+01
+PKER_SWETH( 10, 75) = 0.272000E+01
+PKER_SWETH( 10, 76) = 0.272156E+01
+PKER_SWETH( 10, 77) = 0.272303E+01
+PKER_SWETH( 10, 78) = 0.272440E+01
+PKER_SWETH( 10, 79) = 0.272570E+01
+PKER_SWETH( 10, 80) = 0.272691E+01
+PKER_SWETH( 11, 1) = 0.112616E+01
+PKER_SWETH( 11, 2) = 0.949999E+00
+PKER_SWETH( 11, 3) = 0.795521E+00
+PKER_SWETH( 11, 4) = 0.665367E+00
+PKER_SWETH( 11, 5) = 0.562111E+00
+PKER_SWETH( 11, 6) = 0.487299E+00
+PKER_SWETH( 11, 7) = 0.441862E+00
+PKER_SWETH( 11, 8) = 0.424814E+00
+PKER_SWETH( 11, 9) = 0.433720E+00
+PKER_SWETH( 11, 10) = 0.465112E+00
+PKER_SWETH( 11, 11) = 0.514757E+00
+PKER_SWETH( 11, 12) = 0.578272E+00
+PKER_SWETH( 11, 13) = 0.651459E+00
+PKER_SWETH( 11, 14) = 0.730946E+00
+PKER_SWETH( 11, 15) = 0.814029E+00
+PKER_SWETH( 11, 16) = 0.898773E+00
+PKER_SWETH( 11, 17) = 0.983944E+00
+PKER_SWETH( 11, 18) = 0.106874E+01
+PKER_SWETH( 11, 19) = 0.115266E+01
+PKER_SWETH( 11, 20) = 0.123529E+01
+PKER_SWETH( 11, 21) = 0.131618E+01
+PKER_SWETH( 11, 22) = 0.139474E+01
+PKER_SWETH( 11, 23) = 0.147027E+01
+PKER_SWETH( 11, 24) = 0.154202E+01
+PKER_SWETH( 11, 25) = 0.160929E+01
+PKER_SWETH( 11, 26) = 0.167158E+01
+PKER_SWETH( 11, 27) = 0.172864E+01
+PKER_SWETH( 11, 28) = 0.178046E+01
+PKER_SWETH( 11, 29) = 0.182725E+01
+PKER_SWETH( 11, 30) = 0.186937E+01
+PKER_SWETH( 11, 31) = 0.190725E+01
+PKER_SWETH( 11, 32) = 0.194136E+01
+PKER_SWETH( 11, 33) = 0.197215E+01
+PKER_SWETH( 11, 34) = 0.200002E+01
+PKER_SWETH( 11, 35) = 0.202534E+01
+PKER_SWETH( 11, 36) = 0.204844E+01
+PKER_SWETH( 11, 37) = 0.206957E+01
+PKER_SWETH( 11, 38) = 0.208897E+01
+PKER_SWETH( 11, 39) = 0.210683E+01
+PKER_SWETH( 11, 40) = 0.212334E+01
+PKER_SWETH( 11, 41) = 0.213861E+01
+PKER_SWETH( 11, 42) = 0.215278E+01
+PKER_SWETH( 11, 43) = 0.216596E+01
+PKER_SWETH( 11, 44) = 0.217822E+01
+PKER_SWETH( 11, 45) = 0.218965E+01
+PKER_SWETH( 11, 46) = 0.220031E+01
+PKER_SWETH( 11, 47) = 0.221028E+01
+PKER_SWETH( 11, 48) = 0.221959E+01
+PKER_SWETH( 11, 49) = 0.222830E+01
+PKER_SWETH( 11, 50) = 0.223646E+01
+PKER_SWETH( 11, 51) = 0.224410E+01
+PKER_SWETH( 11, 52) = 0.225126E+01
+PKER_SWETH( 11, 53) = 0.225796E+01
+PKER_SWETH( 11, 54) = 0.226425E+01
+PKER_SWETH( 11, 55) = 0.227015E+01
+PKER_SWETH( 11, 56) = 0.227568E+01
+PKER_SWETH( 11, 57) = 0.228087E+01
+PKER_SWETH( 11, 58) = 0.228574E+01
+PKER_SWETH( 11, 59) = 0.229031E+01
+PKER_SWETH( 11, 60) = 0.229460E+01
+PKER_SWETH( 11, 61) = 0.229863E+01
+PKER_SWETH( 11, 62) = 0.230240E+01
+PKER_SWETH( 11, 63) = 0.230595E+01
+PKER_SWETH( 11, 64) = 0.230928E+01
+PKER_SWETH( 11, 65) = 0.231240E+01
+PKER_SWETH( 11, 66) = 0.231534E+01
+PKER_SWETH( 11, 67) = 0.231809E+01
+PKER_SWETH( 11, 68) = 0.232068E+01
+PKER_SWETH( 11, 69) = 0.232311E+01
+PKER_SWETH( 11, 70) = 0.232539E+01
+PKER_SWETH( 11, 71) = 0.232753E+01
+PKER_SWETH( 11, 72) = 0.232953E+01
+PKER_SWETH( 11, 73) = 0.233142E+01
+PKER_SWETH( 11, 74) = 0.233319E+01
+PKER_SWETH( 11, 75) = 0.233486E+01
+PKER_SWETH( 11, 76) = 0.233642E+01
+PKER_SWETH( 11, 77) = 0.233788E+01
+PKER_SWETH( 11, 78) = 0.233926E+01
+PKER_SWETH( 11, 79) = 0.234055E+01
+PKER_SWETH( 11, 80) = 0.234177E+01
+PKER_SWETH( 12, 1) = 0.139660E+01
+PKER_SWETH( 12, 2) = 0.120724E+01
+PKER_SWETH( 12, 3) = 0.103274E+01
+PKER_SWETH( 12, 4) = 0.874299E+00
+PKER_SWETH( 12, 5) = 0.733680E+00
+PKER_SWETH( 12, 6) = 0.613159E+00
+PKER_SWETH( 12, 7) = 0.515044E+00
+PKER_SWETH( 12, 8) = 0.441045E+00
+PKER_SWETH( 12, 9) = 0.392420E+00
+PKER_SWETH( 12, 10) = 0.369044E+00
+PKER_SWETH( 12, 11) = 0.369169E+00
+PKER_SWETH( 12, 12) = 0.390273E+00
+PKER_SWETH( 12, 13) = 0.428905E+00
+PKER_SWETH( 12, 14) = 0.481190E+00
+PKER_SWETH( 12, 15) = 0.543494E+00
+PKER_SWETH( 12, 16) = 0.612648E+00
+PKER_SWETH( 12, 17) = 0.685999E+00
+PKER_SWETH( 12, 18) = 0.761603E+00
+PKER_SWETH( 12, 19) = 0.838094E+00
+PKER_SWETH( 12, 20) = 0.914490E+00
+PKER_SWETH( 12, 21) = 0.990075E+00
+PKER_SWETH( 12, 22) = 0.106422E+01
+PKER_SWETH( 12, 23) = 0.113626E+01
+PKER_SWETH( 12, 24) = 0.120550E+01
+PKER_SWETH( 12, 25) = 0.127125E+01
+PKER_SWETH( 12, 26) = 0.133290E+01
+PKER_SWETH( 12, 27) = 0.138999E+01
+PKER_SWETH( 12, 28) = 0.144231E+01
+PKER_SWETH( 12, 29) = 0.148987E+01
+PKER_SWETH( 12, 30) = 0.153286E+01
+PKER_SWETH( 12, 31) = 0.157162E+01
+PKER_SWETH( 12, 32) = 0.160653E+01
+PKER_SWETH( 12, 33) = 0.163802E+01
+PKER_SWETH( 12, 34) = 0.166649E+01
+PKER_SWETH( 12, 35) = 0.169231E+01
+PKER_SWETH( 12, 36) = 0.171580E+01
+PKER_SWETH( 12, 37) = 0.173725E+01
+PKER_SWETH( 12, 38) = 0.175691E+01
+PKER_SWETH( 12, 39) = 0.177498E+01
+PKER_SWETH( 12, 40) = 0.179164E+01
+PKER_SWETH( 12, 41) = 0.180705E+01
+PKER_SWETH( 12, 42) = 0.182132E+01
+PKER_SWETH( 12, 43) = 0.183457E+01
+PKER_SWETH( 12, 44) = 0.184689E+01
+PKER_SWETH( 12, 45) = 0.185836E+01
+PKER_SWETH( 12, 46) = 0.186907E+01
+PKER_SWETH( 12, 47) = 0.187906E+01
+PKER_SWETH( 12, 48) = 0.188839E+01
+PKER_SWETH( 12, 49) = 0.189712E+01
+PKER_SWETH( 12, 50) = 0.190530E+01
+PKER_SWETH( 12, 51) = 0.191295E+01
+PKER_SWETH( 12, 52) = 0.192011E+01
+PKER_SWETH( 12, 53) = 0.192683E+01
+PKER_SWETH( 12, 54) = 0.193312E+01
+PKER_SWETH( 12, 55) = 0.193902E+01
+PKER_SWETH( 12, 56) = 0.194456E+01
+PKER_SWETH( 12, 57) = 0.194975E+01
+PKER_SWETH( 12, 58) = 0.195462E+01
+PKER_SWETH( 12, 59) = 0.195919E+01
+PKER_SWETH( 12, 60) = 0.196348E+01
+PKER_SWETH( 12, 61) = 0.196751E+01
+PKER_SWETH( 12, 62) = 0.197129E+01
+PKER_SWETH( 12, 63) = 0.197483E+01
+PKER_SWETH( 12, 64) = 0.197816E+01
+PKER_SWETH( 12, 65) = 0.198129E+01
+PKER_SWETH( 12, 66) = 0.198422E+01
+PKER_SWETH( 12, 67) = 0.198698E+01
+PKER_SWETH( 12, 68) = 0.198956E+01
+PKER_SWETH( 12, 69) = 0.199199E+01
+PKER_SWETH( 12, 70) = 0.199427E+01
+PKER_SWETH( 12, 71) = 0.199641E+01
+PKER_SWETH( 12, 72) = 0.199842E+01
+PKER_SWETH( 12, 73) = 0.200031E+01
+PKER_SWETH( 12, 74) = 0.200208E+01
+PKER_SWETH( 12, 75) = 0.200374E+01
+PKER_SWETH( 12, 76) = 0.200530E+01
+PKER_SWETH( 12, 77) = 0.200677E+01
+PKER_SWETH( 12, 78) = 0.200815E+01
+PKER_SWETH( 12, 79) = 0.200944E+01
+PKER_SWETH( 12, 80) = 0.201065E+01
+PKER_SWETH( 13, 1) = 0.164107E+01
+PKER_SWETH( 13, 2) = 0.144869E+01
+PKER_SWETH( 13, 3) = 0.126862E+01
+PKER_SWETH( 13, 4) = 0.110074E+01
+PKER_SWETH( 13, 5) = 0.945359E+00
+PKER_SWETH( 13, 6) = 0.803325E+00
+PKER_SWETH( 13, 7) = 0.675971E+00
+PKER_SWETH( 13, 8) = 0.565209E+00
+PKER_SWETH( 13, 9) = 0.473028E+00
+PKER_SWETH( 13, 10) = 0.401201E+00
+PKER_SWETH( 13, 11) = 0.351280E+00
+PKER_SWETH( 13, 12) = 0.323281E+00
+PKER_SWETH( 13, 13) = 0.316755E+00
+PKER_SWETH( 13, 14) = 0.329470E+00
+PKER_SWETH( 13, 15) = 0.358858E+00
+PKER_SWETH( 13, 16) = 0.401716E+00
+PKER_SWETH( 13, 17) = 0.454695E+00
+PKER_SWETH( 13, 18) = 0.514860E+00
+PKER_SWETH( 13, 19) = 0.579683E+00
+PKER_SWETH( 13, 20) = 0.647150E+00
+PKER_SWETH( 13, 21) = 0.715769E+00
+PKER_SWETH( 13, 22) = 0.784383E+00
+PKER_SWETH( 13, 23) = 0.852082E+00
+PKER_SWETH( 13, 24) = 0.918051E+00
+PKER_SWETH( 13, 25) = 0.981534E+00
+PKER_SWETH( 13, 26) = 0.104184E+01
+PKER_SWETH( 13, 27) = 0.109839E+01
+PKER_SWETH( 13, 28) = 0.115078E+01
+PKER_SWETH( 13, 29) = 0.119883E+01
+PKER_SWETH( 13, 30) = 0.124254E+01
+PKER_SWETH( 13, 31) = 0.128210E+01
+PKER_SWETH( 13, 32) = 0.131781E+01
+PKER_SWETH( 13, 33) = 0.135003E+01
+PKER_SWETH( 13, 34) = 0.137913E+01
+PKER_SWETH( 13, 35) = 0.140548E+01
+PKER_SWETH( 13, 36) = 0.142942E+01
+PKER_SWETH( 13, 37) = 0.145123E+01
+PKER_SWETH( 13, 38) = 0.147118E+01
+PKER_SWETH( 13, 39) = 0.148948E+01
+PKER_SWETH( 13, 40) = 0.150632E+01
+PKER_SWETH( 13, 41) = 0.152187E+01
+PKER_SWETH( 13, 42) = 0.153625E+01
+PKER_SWETH( 13, 43) = 0.154959E+01
+PKER_SWETH( 13, 44) = 0.156198E+01
+PKER_SWETH( 13, 45) = 0.157350E+01
+PKER_SWETH( 13, 46) = 0.158425E+01
+PKER_SWETH( 13, 47) = 0.159427E+01
+PKER_SWETH( 13, 48) = 0.160364E+01
+PKER_SWETH( 13, 49) = 0.161239E+01
+PKER_SWETH( 13, 50) = 0.162057E+01
+PKER_SWETH( 13, 51) = 0.162823E+01
+PKER_SWETH( 13, 52) = 0.163541E+01
+PKER_SWETH( 13, 53) = 0.164213E+01
+PKER_SWETH( 13, 54) = 0.164843E+01
+PKER_SWETH( 13, 55) = 0.165434E+01
+PKER_SWETH( 13, 56) = 0.165988E+01
+PKER_SWETH( 13, 57) = 0.166507E+01
+PKER_SWETH( 13, 58) = 0.166995E+01
+PKER_SWETH( 13, 59) = 0.167452E+01
+PKER_SWETH( 13, 60) = 0.167881E+01
+PKER_SWETH( 13, 61) = 0.168284E+01
+PKER_SWETH( 13, 62) = 0.168662E+01
+PKER_SWETH( 13, 63) = 0.169016E+01
+PKER_SWETH( 13, 64) = 0.169349E+01
+PKER_SWETH( 13, 65) = 0.169662E+01
+PKER_SWETH( 13, 66) = 0.169955E+01
+PKER_SWETH( 13, 67) = 0.170231E+01
+PKER_SWETH( 13, 68) = 0.170489E+01
+PKER_SWETH( 13, 69) = 0.170732E+01
+PKER_SWETH( 13, 70) = 0.170960E+01
+PKER_SWETH( 13, 71) = 0.171174E+01
+PKER_SWETH( 13, 72) = 0.171375E+01
+PKER_SWETH( 13, 73) = 0.171564E+01
+PKER_SWETH( 13, 74) = 0.171741E+01
+PKER_SWETH( 13, 75) = 0.171907E+01
+PKER_SWETH( 13, 76) = 0.172064E+01
+PKER_SWETH( 13, 77) = 0.172210E+01
+PKER_SWETH( 13, 78) = 0.172348E+01
+PKER_SWETH( 13, 79) = 0.172477E+01
+PKER_SWETH( 13, 80) = 0.172599E+01
+PKER_SWETH( 14, 1) = 0.185337E+01
+PKER_SWETH( 14, 2) = 0.166060E+01
+PKER_SWETH( 14, 3) = 0.147961E+01
+PKER_SWETH( 14, 4) = 0.130976E+01
+PKER_SWETH( 14, 5) = 0.115060E+01
+PKER_SWETH( 14, 6) = 0.100191E+01
+PKER_SWETH( 14, 7) = 0.863788E+00
+PKER_SWETH( 14, 8) = 0.736793E+00
+PKER_SWETH( 14, 9) = 0.621950E+00
+PKER_SWETH( 14, 10) = 0.520776E+00
+PKER_SWETH( 14, 11) = 0.434983E+00
+PKER_SWETH( 14, 12) = 0.366291E+00
+PKER_SWETH( 14, 13) = 0.316372E+00
+PKER_SWETH( 14, 14) = 0.285641E+00
+PKER_SWETH( 14, 15) = 0.273863E+00
+PKER_SWETH( 14, 16) = 0.280100E+00
+PKER_SWETH( 14, 17) = 0.301904E+00
+PKER_SWETH( 14, 18) = 0.336737E+00
+PKER_SWETH( 14, 19) = 0.381763E+00
+PKER_SWETH( 14, 20) = 0.434146E+00
+PKER_SWETH( 14, 21) = 0.491424E+00
+PKER_SWETH( 14, 22) = 0.551565E+00
+PKER_SWETH( 14, 23) = 0.612952E+00
+PKER_SWETH( 14, 24) = 0.674250E+00
+PKER_SWETH( 14, 25) = 0.734405E+00
+PKER_SWETH( 14, 26) = 0.792509E+00
+PKER_SWETH( 14, 27) = 0.847809E+00
+PKER_SWETH( 14, 28) = 0.899720E+00
+PKER_SWETH( 14, 29) = 0.947851E+00
+PKER_SWETH( 14, 30) = 0.992022E+00
+PKER_SWETH( 14, 31) = 0.103225E+01
+PKER_SWETH( 14, 32) = 0.106869E+01
+PKER_SWETH( 14, 33) = 0.110164E+01
+PKER_SWETH( 14, 34) = 0.113141E+01
+PKER_SWETH( 14, 35) = 0.115833E+01
+PKER_SWETH( 14, 36) = 0.118275E+01
+PKER_SWETH( 14, 37) = 0.120497E+01
+PKER_SWETH( 14, 38) = 0.122524E+01
+PKER_SWETH( 14, 39) = 0.124380E+01
+PKER_SWETH( 14, 40) = 0.126084E+01
+PKER_SWETH( 14, 41) = 0.127655E+01
+PKER_SWETH( 14, 42) = 0.129106E+01
+PKER_SWETH( 14, 43) = 0.130450E+01
+PKER_SWETH( 14, 44) = 0.131696E+01
+PKER_SWETH( 14, 45) = 0.132855E+01
+PKER_SWETH( 14, 46) = 0.133935E+01
+PKER_SWETH( 14, 47) = 0.134941E+01
+PKER_SWETH( 14, 48) = 0.135880E+01
+PKER_SWETH( 14, 49) = 0.136757E+01
+PKER_SWETH( 14, 50) = 0.137577E+01
+PKER_SWETH( 14, 51) = 0.138345E+01
+PKER_SWETH( 14, 52) = 0.139064E+01
+PKER_SWETH( 14, 53) = 0.139737E+01
+PKER_SWETH( 14, 54) = 0.140367E+01
+PKER_SWETH( 14, 55) = 0.140959E+01
+PKER_SWETH( 14, 56) = 0.141513E+01
+PKER_SWETH( 14, 57) = 0.142033E+01
+PKER_SWETH( 14, 58) = 0.142520E+01
+PKER_SWETH( 14, 59) = 0.142978E+01
+PKER_SWETH( 14, 60) = 0.143407E+01
+PKER_SWETH( 14, 61) = 0.143810E+01
+PKER_SWETH( 14, 62) = 0.144188E+01
+PKER_SWETH( 14, 63) = 0.144542E+01
+PKER_SWETH( 14, 64) = 0.144876E+01
+PKER_SWETH( 14, 65) = 0.145188E+01
+PKER_SWETH( 14, 66) = 0.145482E+01
+PKER_SWETH( 14, 67) = 0.145757E+01
+PKER_SWETH( 14, 68) = 0.146016E+01
+PKER_SWETH( 14, 69) = 0.146259E+01
+PKER_SWETH( 14, 70) = 0.146487E+01
+PKER_SWETH( 14, 71) = 0.146701E+01
+PKER_SWETH( 14, 72) = 0.146902E+01
+PKER_SWETH( 14, 73) = 0.147090E+01
+PKER_SWETH( 14, 74) = 0.147267E+01
+PKER_SWETH( 14, 75) = 0.147434E+01
+PKER_SWETH( 14, 76) = 0.147590E+01
+PKER_SWETH( 14, 77) = 0.147737E+01
+PKER_SWETH( 14, 78) = 0.147874E+01
+PKER_SWETH( 14, 79) = 0.148004E+01
+PKER_SWETH( 14, 80) = 0.148125E+01
+PKER_SWETH( 15, 1) = 0.203610E+01
+PKER_SWETH( 15, 2) = 0.184336E+01
+PKER_SWETH( 15, 3) = 0.166233E+01
+PKER_SWETH( 15, 4) = 0.149229E+01
+PKER_SWETH( 15, 5) = 0.133259E+01
+PKER_SWETH( 15, 6) = 0.118265E+01
+PKER_SWETH( 15, 7) = 0.104202E+01
+PKER_SWETH( 15, 8) = 0.910402E+00
+PKER_SWETH( 15, 9) = 0.787789E+00
+PKER_SWETH( 15, 10) = 0.674500E+00
+PKER_SWETH( 15, 11) = 0.571280E+00
+PKER_SWETH( 15, 12) = 0.479328E+00
+PKER_SWETH( 15, 13) = 0.400096E+00
+PKER_SWETH( 15, 14) = 0.335213E+00
+PKER_SWETH( 15, 15) = 0.286253E+00
+PKER_SWETH( 15, 16) = 0.254024E+00
+PKER_SWETH( 15, 17) = 0.238776E+00
+PKER_SWETH( 15, 18) = 0.239689E+00
+PKER_SWETH( 15, 19) = 0.255453E+00
+PKER_SWETH( 15, 20) = 0.283677E+00
+PKER_SWETH( 15, 21) = 0.321870E+00
+PKER_SWETH( 15, 22) = 0.367476E+00
+PKER_SWETH( 15, 23) = 0.418056E+00
+PKER_SWETH( 15, 24) = 0.471544E+00
+PKER_SWETH( 15, 25) = 0.526175E+00
+PKER_SWETH( 15, 26) = 0.580531E+00
+PKER_SWETH( 15, 27) = 0.633468E+00
+PKER_SWETH( 15, 28) = 0.684080E+00
+PKER_SWETH( 15, 29) = 0.731716E+00
+PKER_SWETH( 15, 30) = 0.775955E+00
+PKER_SWETH( 15, 31) = 0.816603E+00
+PKER_SWETH( 15, 32) = 0.853662E+00
+PKER_SWETH( 15, 33) = 0.887282E+00
+PKER_SWETH( 15, 34) = 0.917709E+00
+PKER_SWETH( 15, 35) = 0.945240E+00
+PKER_SWETH( 15, 36) = 0.970182E+00
+PKER_SWETH( 15, 37) = 0.992831E+00
+PKER_SWETH( 15, 38) = 0.101346E+01
+PKER_SWETH( 15, 39) = 0.103231E+01
+PKER_SWETH( 15, 40) = 0.104959E+01
+PKER_SWETH( 15, 41) = 0.106548E+01
+PKER_SWETH( 15, 42) = 0.108014E+01
+PKER_SWETH( 15, 43) = 0.109369E+01
+PKER_SWETH( 15, 44) = 0.110624E+01
+PKER_SWETH( 15, 45) = 0.111790E+01
+PKER_SWETH( 15, 46) = 0.112875E+01
+PKER_SWETH( 15, 47) = 0.113885E+01
+PKER_SWETH( 15, 48) = 0.114828E+01
+PKER_SWETH( 15, 49) = 0.115708E+01
+PKER_SWETH( 15, 50) = 0.116530E+01
+PKER_SWETH( 15, 51) = 0.117299E+01
+PKER_SWETH( 15, 52) = 0.118019E+01
+PKER_SWETH( 15, 53) = 0.118693E+01
+PKER_SWETH( 15, 54) = 0.119324E+01
+PKER_SWETH( 15, 55) = 0.119916E+01
+PKER_SWETH( 15, 56) = 0.120471E+01
+PKER_SWETH( 15, 57) = 0.120991E+01
+PKER_SWETH( 15, 58) = 0.121479E+01
+PKER_SWETH( 15, 59) = 0.121936E+01
+PKER_SWETH( 15, 60) = 0.122366E+01
+PKER_SWETH( 15, 61) = 0.122769E+01
+PKER_SWETH( 15, 62) = 0.123147E+01
+PKER_SWETH( 15, 63) = 0.123502E+01
+PKER_SWETH( 15, 64) = 0.123835E+01
+PKER_SWETH( 15, 65) = 0.124147E+01
+PKER_SWETH( 15, 66) = 0.124441E+01
+PKER_SWETH( 15, 67) = 0.124717E+01
+PKER_SWETH( 15, 68) = 0.124975E+01
+PKER_SWETH( 15, 69) = 0.125218E+01
+PKER_SWETH( 15, 70) = 0.125446E+01
+PKER_SWETH( 15, 71) = 0.125660E+01
+PKER_SWETH( 15, 72) = 0.125861E+01
+PKER_SWETH( 15, 73) = 0.126050E+01
+PKER_SWETH( 15, 74) = 0.126227E+01
+PKER_SWETH( 15, 75) = 0.126393E+01
+PKER_SWETH( 15, 76) = 0.126550E+01
+PKER_SWETH( 15, 77) = 0.126696E+01
+PKER_SWETH( 15, 78) = 0.126834E+01
+PKER_SWETH( 15, 79) = 0.126963E+01
+PKER_SWETH( 15, 80) = 0.127085E+01
+PKER_SWETH( 16, 1) = 0.219318E+01
+PKER_SWETH( 16, 2) = 0.200050E+01
+PKER_SWETH( 16, 3) = 0.181953E+01
+PKER_SWETH( 16, 4) = 0.164954E+01
+PKER_SWETH( 16, 5) = 0.148986E+01
+PKER_SWETH( 16, 6) = 0.133986E+01
+PKER_SWETH( 16, 7) = 0.119894E+01
+PKER_SWETH( 16, 8) = 0.106658E+01
+PKER_SWETH( 16, 9) = 0.942332E+00
+PKER_SWETH( 16, 10) = 0.825890E+00
+PKER_SWETH( 16, 11) = 0.717136E+00
+PKER_SWETH( 16, 12) = 0.616243E+00
+PKER_SWETH( 16, 13) = 0.523726E+00
+PKER_SWETH( 16, 14) = 0.440499E+00
+PKER_SWETH( 16, 15) = 0.367802E+00
+PKER_SWETH( 16, 16) = 0.307111E+00
+PKER_SWETH( 16, 17) = 0.259898E+00
+PKER_SWETH( 16, 18) = 0.227152E+00
+PKER_SWETH( 16, 19) = 0.209525E+00
+PKER_SWETH( 16, 20) = 0.206680E+00
+PKER_SWETH( 16, 21) = 0.217492E+00
+PKER_SWETH( 16, 22) = 0.240214E+00
+PKER_SWETH( 16, 23) = 0.272625E+00
+PKER_SWETH( 16, 24) = 0.312313E+00
+PKER_SWETH( 16, 25) = 0.356881E+00
+PKER_SWETH( 16, 26) = 0.404226E+00
+PKER_SWETH( 16, 27) = 0.452518E+00
+PKER_SWETH( 16, 28) = 0.500271E+00
+PKER_SWETH( 16, 29) = 0.546362E+00
+PKER_SWETH( 16, 30) = 0.589978E+00
+PKER_SWETH( 16, 31) = 0.630616E+00
+PKER_SWETH( 16, 32) = 0.668036E+00
+PKER_SWETH( 16, 33) = 0.702206E+00
+PKER_SWETH( 16, 34) = 0.733247E+00
+PKER_SWETH( 16, 35) = 0.761379E+00
+PKER_SWETH( 16, 36) = 0.786868E+00
+PKER_SWETH( 16, 37) = 0.809991E+00
+PKER_SWETH( 16, 38) = 0.831017E+00
+PKER_SWETH( 16, 39) = 0.850192E+00
+PKER_SWETH( 16, 40) = 0.867735E+00
+PKER_SWETH( 16, 41) = 0.883835E+00
+PKER_SWETH( 16, 42) = 0.898655E+00
+PKER_SWETH( 16, 43) = 0.912335E+00
+PKER_SWETH( 16, 44) = 0.924994E+00
+PKER_SWETH( 16, 45) = 0.936734E+00
+PKER_SWETH( 16, 46) = 0.947641E+00
+PKER_SWETH( 16, 47) = 0.957793E+00
+PKER_SWETH( 16, 48) = 0.967254E+00
+PKER_SWETH( 16, 49) = 0.976083E+00
+PKER_SWETH( 16, 50) = 0.984329E+00
+PKER_SWETH( 16, 51) = 0.992038E+00
+PKER_SWETH( 16, 52) = 0.999250E+00
+PKER_SWETH( 16, 53) = 0.100600E+01
+PKER_SWETH( 16, 54) = 0.101232E+01
+PKER_SWETH( 16, 55) = 0.101825E+01
+PKER_SWETH( 16, 56) = 0.102380E+01
+PKER_SWETH( 16, 57) = 0.102900E+01
+PKER_SWETH( 16, 58) = 0.103389E+01
+PKER_SWETH( 16, 59) = 0.103847E+01
+PKER_SWETH( 16, 60) = 0.104276E+01
+PKER_SWETH( 16, 61) = 0.104679E+01
+PKER_SWETH( 16, 62) = 0.105057E+01
+PKER_SWETH( 16, 63) = 0.105412E+01
+PKER_SWETH( 16, 64) = 0.105746E+01
+PKER_SWETH( 16, 65) = 0.106058E+01
+PKER_SWETH( 16, 66) = 0.106352E+01
+PKER_SWETH( 16, 67) = 0.106627E+01
+PKER_SWETH( 16, 68) = 0.106886E+01
+PKER_SWETH( 16, 69) = 0.107129E+01
+PKER_SWETH( 16, 70) = 0.107357E+01
+PKER_SWETH( 16, 71) = 0.107571E+01
+PKER_SWETH( 16, 72) = 0.107772E+01
+PKER_SWETH( 16, 73) = 0.107961E+01
+PKER_SWETH( 16, 74) = 0.108138E+01
+PKER_SWETH( 16, 75) = 0.108304E+01
+PKER_SWETH( 16, 76) = 0.108461E+01
+PKER_SWETH( 16, 77) = 0.108607E+01
+PKER_SWETH( 16, 78) = 0.108745E+01
+PKER_SWETH( 16, 79) = 0.108874E+01
+PKER_SWETH( 16, 80) = 0.108996E+01
+PKER_SWETH( 17, 1) = 0.232820E+01
+PKER_SWETH( 17, 2) = 0.213556E+01
+PKER_SWETH( 17, 3) = 0.195464E+01
+PKER_SWETH( 17, 4) = 0.178471E+01
+PKER_SWETH( 17, 5) = 0.162511E+01
+PKER_SWETH( 17, 6) = 0.147518E+01
+PKER_SWETH( 17, 7) = 0.133432E+01
+PKER_SWETH( 17, 8) = 0.120198E+01
+PKER_SWETH( 17, 9) = 0.107762E+01
+PKER_SWETH( 17, 10) = 0.960766E+00
+PKER_SWETH( 17, 11) = 0.851000E+00
+PKER_SWETH( 17, 12) = 0.748002E+00
+PKER_SWETH( 17, 13) = 0.651604E+00
+PKER_SWETH( 17, 14) = 0.561851E+00
+PKER_SWETH( 17, 15) = 0.479102E+00
+PKER_SWETH( 17, 16) = 0.404036E+00
+PKER_SWETH( 17, 17) = 0.337673E+00
+PKER_SWETH( 17, 18) = 0.281335E+00
+PKER_SWETH( 17, 19) = 0.236404E+00
+PKER_SWETH( 17, 20) = 0.203985E+00
+PKER_SWETH( 17, 21) = 0.184918E+00
+PKER_SWETH( 17, 22) = 0.179297E+00
+PKER_SWETH( 17, 23) = 0.186284E+00
+PKER_SWETH( 17, 24) = 0.204524E+00
+PKER_SWETH( 17, 25) = 0.232026E+00
+PKER_SWETH( 17, 26) = 0.266485E+00
+PKER_SWETH( 17, 27) = 0.305597E+00
+PKER_SWETH( 17, 28) = 0.347234E+00
+PKER_SWETH( 17, 29) = 0.389540E+00
+PKER_SWETH( 17, 30) = 0.431069E+00
+PKER_SWETH( 17, 31) = 0.470786E+00
+PKER_SWETH( 17, 32) = 0.508025E+00
+PKER_SWETH( 17, 33) = 0.542446E+00
+PKER_SWETH( 17, 34) = 0.573958E+00
+PKER_SWETH( 17, 35) = 0.602638E+00
+PKER_SWETH( 17, 36) = 0.628669E+00
+PKER_SWETH( 17, 37) = 0.652288E+00
+PKER_SWETH( 17, 38) = 0.673743E+00
+PKER_SWETH( 17, 39) = 0.693278E+00
+PKER_SWETH( 17, 40) = 0.711115E+00
+PKER_SWETH( 17, 41) = 0.727452E+00
+PKER_SWETH( 17, 42) = 0.742461E+00
+PKER_SWETH( 17, 43) = 0.756290E+00
+PKER_SWETH( 17, 44) = 0.769066E+00
+PKER_SWETH( 17, 45) = 0.780897E+00
+PKER_SWETH( 17, 46) = 0.791877E+00
+PKER_SWETH( 17, 47) = 0.802084E+00
+PKER_SWETH( 17, 48) = 0.811588E+00
+PKER_SWETH( 17, 49) = 0.820450E+00
+PKER_SWETH( 17, 50) = 0.828722E+00
+PKER_SWETH( 17, 51) = 0.836452E+00
+PKER_SWETH( 17, 52) = 0.843679E+00
+PKER_SWETH( 17, 53) = 0.850442E+00
+PKER_SWETH( 17, 54) = 0.856774E+00
+PKER_SWETH( 17, 55) = 0.862705E+00
+PKER_SWETH( 17, 56) = 0.868263E+00
+PKER_SWETH( 17, 57) = 0.873473E+00
+PKER_SWETH( 17, 58) = 0.878358E+00
+PKER_SWETH( 17, 59) = 0.882940E+00
+PKER_SWETH( 17, 60) = 0.887238E+00
+PKER_SWETH( 17, 61) = 0.891270E+00
+PKER_SWETH( 17, 62) = 0.895054E+00
+PKER_SWETH( 17, 63) = 0.898605E+00
+PKER_SWETH( 17, 64) = 0.901937E+00
+PKER_SWETH( 17, 65) = 0.905065E+00
+PKER_SWETH( 17, 66) = 0.908001E+00
+PKER_SWETH( 17, 67) = 0.910757E+00
+PKER_SWETH( 17, 68) = 0.913344E+00
+PKER_SWETH( 17, 69) = 0.915773E+00
+PKER_SWETH( 17, 70) = 0.918054E+00
+PKER_SWETH( 17, 71) = 0.920194E+00
+PKER_SWETH( 17, 72) = 0.922205E+00
+PKER_SWETH( 17, 73) = 0.924092E+00
+PKER_SWETH( 17, 74) = 0.925864E+00
+PKER_SWETH( 17, 75) = 0.927527E+00
+PKER_SWETH( 17, 76) = 0.929089E+00
+PKER_SWETH( 17, 77) = 0.930556E+00
+PKER_SWETH( 17, 78) = 0.931933E+00
+PKER_SWETH( 17, 79) = 0.933226E+00
+PKER_SWETH( 17, 80) = 0.934440E+00
+PKER_SWETH( 18, 1) = 0.244426E+01
+PKER_SWETH( 18, 2) = 0.225165E+01
+PKER_SWETH( 18, 3) = 0.207077E+01
+PKER_SWETH( 18, 4) = 0.190089E+01
+PKER_SWETH( 18, 5) = 0.174134E+01
+PKER_SWETH( 18, 6) = 0.159148E+01
+PKER_SWETH( 18, 7) = 0.145070E+01
+PKER_SWETH( 18, 8) = 0.131845E+01
+PKER_SWETH( 18, 9) = 0.119418E+01
+PKER_SWETH( 18, 10) = 0.107741E+01
+PKER_SWETH( 18, 11) = 0.967645E+00
+PKER_SWETH( 18, 12) = 0.864466E+00
+PKER_SWETH( 18, 13) = 0.767483E+00
+PKER_SWETH( 18, 14) = 0.676380E+00
+PKER_SWETH( 18, 15) = 0.590956E+00
+PKER_SWETH( 18, 16) = 0.511180E+00
+PKER_SWETH( 18, 17) = 0.437265E+00
+PKER_SWETH( 18, 18) = 0.369736E+00
+PKER_SWETH( 18, 19) = 0.309412E+00
+PKER_SWETH( 18, 20) = 0.257467E+00
+PKER_SWETH( 18, 21) = 0.215162E+00
+PKER_SWETH( 18, 22) = 0.183675E+00
+PKER_SWETH( 18, 23) = 0.164021E+00
+PKER_SWETH( 18, 24) = 0.156371E+00
+PKER_SWETH( 18, 25) = 0.160477E+00
+PKER_SWETH( 18, 26) = 0.175011E+00
+PKER_SWETH( 18, 27) = 0.198290E+00
+PKER_SWETH( 18, 28) = 0.228145E+00
+PKER_SWETH( 18, 29) = 0.262275E+00
+PKER_SWETH( 18, 30) = 0.298583E+00
+PKER_SWETH( 18, 31) = 0.335289E+00
+PKER_SWETH( 18, 32) = 0.371047E+00
+PKER_SWETH( 18, 33) = 0.404965E+00
+PKER_SWETH( 18, 34) = 0.436538E+00
+PKER_SWETH( 18, 35) = 0.465569E+00
+PKER_SWETH( 18, 36) = 0.492067E+00
+PKER_SWETH( 18, 37) = 0.516168E+00
+PKER_SWETH( 18, 38) = 0.538069E+00
+PKER_SWETH( 18, 39) = 0.557992E+00
+PKER_SWETH( 18, 40) = 0.576154E+00
+PKER_SWETH( 18, 41) = 0.592758E+00
+PKER_SWETH( 18, 42) = 0.607981E+00
+PKER_SWETH( 18, 43) = 0.621981E+00
+PKER_SWETH( 18, 44) = 0.634891E+00
+PKER_SWETH( 18, 45) = 0.646828E+00
+PKER_SWETH( 18, 46) = 0.657889E+00
+PKER_SWETH( 18, 47) = 0.668161E+00
+PKER_SWETH( 18, 48) = 0.677715E+00
+PKER_SWETH( 18, 49) = 0.686616E+00
+PKER_SWETH( 18, 50) = 0.694918E+00
+PKER_SWETH( 18, 51) = 0.702670E+00
+PKER_SWETH( 18, 52) = 0.709916E+00
+PKER_SWETH( 18, 53) = 0.716693E+00
+PKER_SWETH( 18, 54) = 0.723035E+00
+PKER_SWETH( 18, 55) = 0.728975E+00
+PKER_SWETH( 18, 56) = 0.734540E+00
+PKER_SWETH( 18, 57) = 0.739755E+00
+PKER_SWETH( 18, 58) = 0.744644E+00
+PKER_SWETH( 18, 59) = 0.749229E+00
+PKER_SWETH( 18, 60) = 0.753529E+00
+PKER_SWETH( 18, 61) = 0.757563E+00
+PKER_SWETH( 18, 62) = 0.761348E+00
+PKER_SWETH( 18, 63) = 0.764900E+00
+PKER_SWETH( 18, 64) = 0.768233E+00
+PKER_SWETH( 18, 65) = 0.771362E+00
+PKER_SWETH( 18, 66) = 0.774299E+00
+PKER_SWETH( 18, 67) = 0.777055E+00
+PKER_SWETH( 18, 68) = 0.779643E+00
+PKER_SWETH( 18, 69) = 0.782072E+00
+PKER_SWETH( 18, 70) = 0.784352E+00
+PKER_SWETH( 18, 71) = 0.786494E+00
+PKER_SWETH( 18, 72) = 0.788504E+00
+PKER_SWETH( 18, 73) = 0.790391E+00
+PKER_SWETH( 18, 74) = 0.792163E+00
+PKER_SWETH( 18, 75) = 0.793827E+00
+PKER_SWETH( 18, 76) = 0.795389E+00
+PKER_SWETH( 18, 77) = 0.796856E+00
+PKER_SWETH( 18, 78) = 0.798233E+00
+PKER_SWETH( 18, 79) = 0.799526E+00
+PKER_SWETH( 18, 80) = 0.800740E+00
+PKER_SWETH( 19, 1) = 0.254402E+01
+PKER_SWETH( 19, 2) = 0.235144E+01
+PKER_SWETH( 19, 3) = 0.217058E+01
+PKER_SWETH( 19, 4) = 0.200074E+01
+PKER_SWETH( 19, 5) = 0.184123E+01
+PKER_SWETH( 19, 6) = 0.169142E+01
+PKER_SWETH( 19, 7) = 0.155070E+01
+PKER_SWETH( 19, 8) = 0.141853E+01
+PKER_SWETH( 19, 9) = 0.129435E+01
+PKER_SWETH( 19, 10) = 0.117768E+01
+PKER_SWETH( 19, 11) = 0.106804E+01
+PKER_SWETH( 19, 12) = 0.964977E+00
+PKER_SWETH( 19, 13) = 0.868080E+00
+PKER_SWETH( 19, 14) = 0.776954E+00
+PKER_SWETH( 19, 15) = 0.691245E+00
+PKER_SWETH( 19, 16) = 0.610649E+00
+PKER_SWETH( 19, 17) = 0.534950E+00
+PKER_SWETH( 19, 18) = 0.464066E+00
+PKER_SWETH( 19, 19) = 0.398112E+00
+PKER_SWETH( 19, 20) = 0.337468E+00
+PKER_SWETH( 19, 21) = 0.282820E+00
+PKER_SWETH( 19, 22) = 0.235174E+00
+PKER_SWETH( 19, 23) = 0.195690E+00
+PKER_SWETH( 19, 24) = 0.165560E+00
+PKER_SWETH( 19, 25) = 0.145895E+00
+PKER_SWETH( 19, 26) = 0.137050E+00
+PKER_SWETH( 19, 27) = 0.138837E+00
+PKER_SWETH( 19, 28) = 0.150447E+00
+PKER_SWETH( 19, 29) = 0.170093E+00
+PKER_SWETH( 19, 30) = 0.195782E+00
+PKER_SWETH( 19, 31) = 0.225337E+00
+PKER_SWETH( 19, 32) = 0.256709E+00
+PKER_SWETH( 19, 33) = 0.288246E+00
+PKER_SWETH( 19, 34) = 0.318764E+00
+PKER_SWETH( 19, 35) = 0.347537E+00
+PKER_SWETH( 19, 36) = 0.374195E+00
+PKER_SWETH( 19, 37) = 0.398646E+00
+PKER_SWETH( 19, 38) = 0.420953E+00
+PKER_SWETH( 19, 39) = 0.441268E+00
+PKER_SWETH( 19, 40) = 0.459778E+00
+PKER_SWETH( 19, 41) = 0.476676E+00
+PKER_SWETH( 19, 42) = 0.492140E+00
+PKER_SWETH( 19, 43) = 0.506333E+00
+PKER_SWETH( 19, 44) = 0.519398E+00
+PKER_SWETH( 19, 45) = 0.531456E+00
+PKER_SWETH( 19, 46) = 0.542613E+00
+PKER_SWETH( 19, 47) = 0.552959E+00
+PKER_SWETH( 19, 48) = 0.562571E+00
+PKER_SWETH( 19, 49) = 0.571516E+00
+PKER_SWETH( 19, 50) = 0.579853E+00
+PKER_SWETH( 19, 51) = 0.587632E+00
+PKER_SWETH( 19, 52) = 0.594898E+00
+PKER_SWETH( 19, 53) = 0.601692E+00
+PKER_SWETH( 19, 54) = 0.608047E+00
+PKER_SWETH( 19, 55) = 0.613996E+00
+PKER_SWETH( 19, 56) = 0.619568E+00
+PKER_SWETH( 19, 57) = 0.624789E+00
+PKER_SWETH( 19, 58) = 0.629683E+00
+PKER_SWETH( 19, 59) = 0.634271E+00
+PKER_SWETH( 19, 60) = 0.638574E+00
+PKER_SWETH( 19, 61) = 0.642610E+00
+PKER_SWETH( 19, 62) = 0.646397E+00
+PKER_SWETH( 19, 63) = 0.649950E+00
+PKER_SWETH( 19, 64) = 0.653285E+00
+PKER_SWETH( 19, 65) = 0.656414E+00
+PKER_SWETH( 19, 66) = 0.659351E+00
+PKER_SWETH( 19, 67) = 0.662108E+00
+PKER_SWETH( 19, 68) = 0.664696E+00
+PKER_SWETH( 19, 69) = 0.667125E+00
+PKER_SWETH( 19, 70) = 0.669406E+00
+PKER_SWETH( 19, 71) = 0.671547E+00
+PKER_SWETH( 19, 72) = 0.673558E+00
+PKER_SWETH( 19, 73) = 0.675445E+00
+PKER_SWETH( 19, 74) = 0.677217E+00
+PKER_SWETH( 19, 75) = 0.678881E+00
+PKER_SWETH( 19, 76) = 0.680443E+00
+PKER_SWETH( 19, 77) = 0.681910E+00
+PKER_SWETH( 19, 78) = 0.683287E+00
+PKER_SWETH( 19, 79) = 0.684580E+00
+PKER_SWETH( 19, 80) = 0.685794E+00
+PKER_SWETH( 20, 1) = 0.262978E+01
+PKER_SWETH( 20, 2) = 0.243721E+01
+PKER_SWETH( 20, 3) = 0.225638E+01
+PKER_SWETH( 20, 4) = 0.208656E+01
+PKER_SWETH( 20, 5) = 0.192708E+01
+PKER_SWETH( 20, 6) = 0.177731E+01
+PKER_SWETH( 20, 7) = 0.163664E+01
+PKER_SWETH( 20, 8) = 0.150452E+01
+PKER_SWETH( 20, 9) = 0.138041E+01
+PKER_SWETH( 20, 10) = 0.126382E+01
+PKER_SWETH( 20, 11) = 0.115428E+01
+PKER_SWETH( 20, 12) = 0.105134E+01
+PKER_SWETH( 20, 13) = 0.954579E+00
+PKER_SWETH( 20, 14) = 0.863605E+00
+PKER_SWETH( 20, 15) = 0.778041E+00
+PKER_SWETH( 20, 16) = 0.697535E+00
+PKER_SWETH( 20, 17) = 0.621762E+00
+PKER_SWETH( 20, 18) = 0.550437E+00
+PKER_SWETH( 20, 19) = 0.483341E+00
+PKER_SWETH( 20, 20) = 0.420355E+00
+PKER_SWETH( 20, 21) = 0.361532E+00
+PKER_SWETH( 20, 22) = 0.307144E+00
+PKER_SWETH( 20, 23) = 0.257751E+00
+PKER_SWETH( 20, 24) = 0.214224E+00
+PKER_SWETH( 20, 25) = 0.177634E+00
+PKER_SWETH( 20, 26) = 0.149163E+00
+PKER_SWETH( 20, 27) = 0.129901E+00
+PKER_SWETH( 20, 28) = 0.120388E+00
+PKER_SWETH( 20, 29) = 0.120600E+00
+PKER_SWETH( 20, 30) = 0.129674E+00
+PKER_SWETH( 20, 31) = 0.146215E+00
+PKER_SWETH( 20, 32) = 0.168189E+00
+PKER_SWETH( 20, 33) = 0.193536E+00
+PKER_SWETH( 20, 34) = 0.220388E+00
+PKER_SWETH( 20, 35) = 0.247256E+00
+PKER_SWETH( 20, 36) = 0.273135E+00
+PKER_SWETH( 20, 37) = 0.297440E+00
+PKER_SWETH( 20, 38) = 0.319918E+00
+PKER_SWETH( 20, 39) = 0.340533E+00
+PKER_SWETH( 20, 40) = 0.359368E+00
+PKER_SWETH( 20, 41) = 0.376568E+00
+PKER_SWETH( 20, 42) = 0.392294E+00
+PKER_SWETH( 20, 43) = 0.406704E+00
+PKER_SWETH( 20, 44) = 0.419944E+00
+PKER_SWETH( 20, 45) = 0.432141E+00
+PKER_SWETH( 20, 46) = 0.443408E+00
+PKER_SWETH( 20, 47) = 0.453840E+00
+PKER_SWETH( 20, 48) = 0.463519E+00
+PKER_SWETH( 20, 49) = 0.472516E+00
+PKER_SWETH( 20, 50) = 0.480893E+00
+PKER_SWETH( 20, 51) = 0.488704E+00
+PKER_SWETH( 20, 52) = 0.495994E+00
+PKER_SWETH( 20, 53) = 0.502806E+00
+PKER_SWETH( 20, 54) = 0.509176E+00
+PKER_SWETH( 20, 55) = 0.515136E+00
+PKER_SWETH( 20, 56) = 0.520717E+00
+PKER_SWETH( 20, 57) = 0.525944E+00
+PKER_SWETH( 20, 58) = 0.530843E+00
+PKER_SWETH( 20, 59) = 0.535436E+00
+PKER_SWETH( 20, 60) = 0.539742E+00
+PKER_SWETH( 20, 61) = 0.543780E+00
+PKER_SWETH( 20, 62) = 0.547569E+00
+PKER_SWETH( 20, 63) = 0.551124E+00
+PKER_SWETH( 20, 64) = 0.554459E+00
+PKER_SWETH( 20, 65) = 0.557589E+00
+PKER_SWETH( 20, 66) = 0.560527E+00
+PKER_SWETH( 20, 67) = 0.563285E+00
+PKER_SWETH( 20, 68) = 0.565873E+00
+PKER_SWETH( 20, 69) = 0.568303E+00
+PKER_SWETH( 20, 70) = 0.570584E+00
+PKER_SWETH( 20, 71) = 0.572725E+00
+PKER_SWETH( 20, 72) = 0.574736E+00
+PKER_SWETH( 20, 73) = 0.576623E+00
+PKER_SWETH( 20, 74) = 0.578396E+00
+PKER_SWETH( 20, 75) = 0.580059E+00
+PKER_SWETH( 20, 76) = 0.581622E+00
+PKER_SWETH( 20, 77) = 0.583089E+00
+PKER_SWETH( 20, 78) = 0.584466E+00
+PKER_SWETH( 20, 79) = 0.585759E+00
+PKER_SWETH( 20, 80) = 0.586973E+00
+PKER_SWETH( 21, 1) = 0.270350E+01
+PKER_SWETH( 21, 2) = 0.251094E+01
+PKER_SWETH( 21, 3) = 0.233012E+01
+PKER_SWETH( 21, 4) = 0.216033E+01
+PKER_SWETH( 21, 5) = 0.200087E+01
+PKER_SWETH( 21, 6) = 0.185113E+01
+PKER_SWETH( 21, 7) = 0.171049E+01
+PKER_SWETH( 21, 8) = 0.157841E+01
+PKER_SWETH( 21, 9) = 0.145436E+01
+PKER_SWETH( 21, 10) = 0.133783E+01
+PKER_SWETH( 21, 11) = 0.122836E+01
+PKER_SWETH( 21, 12) = 0.112551E+01
+PKER_SWETH( 21, 13) = 0.102886E+01
+PKER_SWETH( 21, 14) = 0.938019E+00
+PKER_SWETH( 21, 15) = 0.852611E+00
+PKER_SWETH( 21, 16) = 0.772284E+00
+PKER_SWETH( 21, 17) = 0.696702E+00
+PKER_SWETH( 21, 18) = 0.625548E+00
+PKER_SWETH( 21, 19) = 0.558526E+00
+PKER_SWETH( 21, 20) = 0.495373E+00
+PKER_SWETH( 21, 21) = 0.435871E+00
+PKER_SWETH( 21, 22) = 0.379887E+00
+PKER_SWETH( 21, 23) = 0.327422E+00
+PKER_SWETH( 21, 24) = 0.278677E+00
+PKER_SWETH( 21, 25) = 0.234111E+00
+PKER_SWETH( 21, 26) = 0.194477E+00
+PKER_SWETH( 21, 27) = 0.160772E+00
+PKER_SWETH( 21, 28) = 0.134139E+00
+PKER_SWETH( 21, 29) = 0.115631E+00
+PKER_SWETH( 21, 30) = 0.105849E+00
+PKER_SWETH( 21, 31) = 0.104894E+00
+PKER_SWETH( 21, 32) = 0.112009E+00
+PKER_SWETH( 21, 33) = 0.125779E+00
+PKER_SWETH( 21, 34) = 0.144390E+00
+PKER_SWETH( 21, 35) = 0.165937E+00
+PKER_SWETH( 21, 36) = 0.188727E+00
+PKER_SWETH( 21, 37) = 0.211465E+00
+PKER_SWETH( 21, 38) = 0.233317E+00
+PKER_SWETH( 21, 39) = 0.253821E+00
+PKER_SWETH( 21, 40) = 0.272792E+00
+PKER_SWETH( 21, 41) = 0.290222E+00
+PKER_SWETH( 21, 42) = 0.306192E+00
+PKER_SWETH( 21, 43) = 0.320827E+00
+PKER_SWETH( 21, 44) = 0.334258E+00
+PKER_SWETH( 21, 45) = 0.346612E+00
+PKER_SWETH( 21, 46) = 0.358004E+00
+PKER_SWETH( 21, 47) = 0.368535E+00
+PKER_SWETH( 21, 48) = 0.378292E+00
+PKER_SWETH( 21, 49) = 0.387350E+00
+PKER_SWETH( 21, 50) = 0.395774E+00
+PKER_SWETH( 21, 51) = 0.403621E+00
+PKER_SWETH( 21, 52) = 0.410940E+00
+PKER_SWETH( 21, 53) = 0.417773E+00
+PKER_SWETH( 21, 54) = 0.424160E+00
+PKER_SWETH( 21, 55) = 0.430133E+00
+PKER_SWETH( 21, 56) = 0.435724E+00
+PKER_SWETH( 21, 57) = 0.440959E+00
+PKER_SWETH( 21, 58) = 0.445864E+00
+PKER_SWETH( 21, 59) = 0.450461E+00
+PKER_SWETH( 21, 60) = 0.454770E+00
+PKER_SWETH( 21, 61) = 0.458812E+00
+PKER_SWETH( 21, 62) = 0.462603E+00
+PKER_SWETH( 21, 63) = 0.466159E+00
+PKER_SWETH( 21, 64) = 0.469496E+00
+PKER_SWETH( 21, 65) = 0.472627E+00
+PKER_SWETH( 21, 66) = 0.475565E+00
+PKER_SWETH( 21, 67) = 0.478324E+00
+PKER_SWETH( 21, 68) = 0.480912E+00
+PKER_SWETH( 21, 69) = 0.483343E+00
+PKER_SWETH( 21, 70) = 0.485624E+00
+PKER_SWETH( 21, 71) = 0.487766E+00
+PKER_SWETH( 21, 72) = 0.489776E+00
+PKER_SWETH( 21, 73) = 0.491664E+00
+PKER_SWETH( 21, 74) = 0.493436E+00
+PKER_SWETH( 21, 75) = 0.495100E+00
+PKER_SWETH( 21, 76) = 0.496662E+00
+PKER_SWETH( 21, 77) = 0.498129E+00
+PKER_SWETH( 21, 78) = 0.499507E+00
+PKER_SWETH( 21, 79) = 0.500800E+00
+PKER_SWETH( 21, 80) = 0.502014E+00
+PKER_SWETH( 22, 1) = 0.276687E+01
+PKER_SWETH( 22, 2) = 0.257432E+01
+PKER_SWETH( 22, 3) = 0.239352E+01
+PKER_SWETH( 22, 4) = 0.222373E+01
+PKER_SWETH( 22, 5) = 0.206430E+01
+PKER_SWETH( 22, 6) = 0.191457E+01
+PKER_SWETH( 22, 7) = 0.177397E+01
+PKER_SWETH( 22, 8) = 0.164192E+01
+PKER_SWETH( 22, 9) = 0.151790E+01
+PKER_SWETH( 22, 10) = 0.140142E+01
+PKER_SWETH( 22, 11) = 0.129200E+01
+PKER_SWETH( 22, 12) = 0.118922E+01
+PKER_SWETH( 22, 13) = 0.109265E+01
+PKER_SWETH( 22, 14) = 0.100191E+01
+PKER_SWETH( 22, 15) = 0.916622E+00
+PKER_SWETH( 22, 16) = 0.836441E+00
+PKER_SWETH( 22, 17) = 0.761032E+00
+PKER_SWETH( 22, 18) = 0.690082E+00
+PKER_SWETH( 22, 19) = 0.623289E+00
+PKER_SWETH( 22, 20) = 0.560368E+00
+PKER_SWETH( 22, 21) = 0.501051E+00
+PKER_SWETH( 22, 22) = 0.445092E+00
+PKER_SWETH( 22, 23) = 0.392286E+00
+PKER_SWETH( 22, 24) = 0.342491E+00
+PKER_SWETH( 22, 25) = 0.295682E+00
+PKER_SWETH( 22, 26) = 0.252001E+00
+PKER_SWETH( 22, 27) = 0.211840E+00
+PKER_SWETH( 22, 28) = 0.175856E+00
+PKER_SWETH( 22, 29) = 0.144964E+00
+PKER_SWETH( 22, 30) = 0.120253E+00
+PKER_SWETH( 22, 31) = 0.102740E+00
+PKER_SWETH( 22, 32) = 0.930354E-01
+PKER_SWETH( 22, 33) = 0.912465E-01
+PKER_SWETH( 22, 34) = 0.967189E-01
+PKER_SWETH( 22, 35) = 0.108086E+00
+PKER_SWETH( 22, 36) = 0.123713E+00
+PKER_SWETH( 22, 37) = 0.141868E+00
+PKER_SWETH( 22, 38) = 0.161070E+00
+PKER_SWETH( 22, 39) = 0.180228E+00
+PKER_SWETH( 22, 40) = 0.198647E+00
+PKER_SWETH( 22, 41) = 0.215954E+00
+PKER_SWETH( 22, 42) = 0.232007E+00
+PKER_SWETH( 22, 43) = 0.246802E+00
+PKER_SWETH( 22, 44) = 0.260407E+00
+PKER_SWETH( 22, 45) = 0.272922E+00
+PKER_SWETH( 22, 46) = 0.284451E+00
+PKER_SWETH( 22, 47) = 0.295094E+00
+PKER_SWETH( 22, 48) = 0.304940E+00
+PKER_SWETH( 22, 49) = 0.314068E+00
+PKER_SWETH( 22, 50) = 0.322546E+00
+PKER_SWETH( 22, 51) = 0.330436E+00
+PKER_SWETH( 22, 52) = 0.337787E+00
+PKER_SWETH( 22, 53) = 0.344646E+00
+PKER_SWETH( 22, 54) = 0.351052E+00
+PKER_SWETH( 22, 55) = 0.357040E+00
+PKER_SWETH( 22, 56) = 0.362643E+00
+PKER_SWETH( 22, 57) = 0.367887E+00
+PKER_SWETH( 22, 58) = 0.372799E+00
+PKER_SWETH( 22, 59) = 0.377401E+00
+PKER_SWETH( 22, 60) = 0.381715E+00
+PKER_SWETH( 22, 61) = 0.385759E+00
+PKER_SWETH( 22, 62) = 0.389553E+00
+PKER_SWETH( 22, 63) = 0.393111E+00
+PKER_SWETH( 22, 64) = 0.396449E+00
+PKER_SWETH( 22, 65) = 0.399581E+00
+PKER_SWETH( 22, 66) = 0.402521E+00
+PKER_SWETH( 22, 67) = 0.405280E+00
+PKER_SWETH( 22, 68) = 0.407869E+00
+PKER_SWETH( 22, 69) = 0.410300E+00
+PKER_SWETH( 22, 70) = 0.412581E+00
+PKER_SWETH( 22, 71) = 0.414723E+00
+PKER_SWETH( 22, 72) = 0.416734E+00
+PKER_SWETH( 22, 73) = 0.418622E+00
+PKER_SWETH( 22, 74) = 0.420394E+00
+PKER_SWETH( 22, 75) = 0.422058E+00
+PKER_SWETH( 22, 76) = 0.423621E+00
+PKER_SWETH( 22, 77) = 0.425088E+00
+PKER_SWETH( 22, 78) = 0.426465E+00
+PKER_SWETH( 22, 79) = 0.427758E+00
+PKER_SWETH( 22, 80) = 0.428973E+00
+PKER_SWETH( 23, 1) = 0.282135E+01
+PKER_SWETH( 23, 2) = 0.262881E+01
+PKER_SWETH( 23, 3) = 0.244801E+01
+PKER_SWETH( 23, 4) = 0.227824E+01
+PKER_SWETH( 23, 5) = 0.211881E+01
+PKER_SWETH( 23, 6) = 0.196911E+01
+PKER_SWETH( 23, 7) = 0.182852E+01
+PKER_SWETH( 23, 8) = 0.169649E+01
+PKER_SWETH( 23, 9) = 0.157250E+01
+PKER_SWETH( 23, 10) = 0.145606E+01
+PKER_SWETH( 23, 11) = 0.134668E+01
+PKER_SWETH( 23, 12) = 0.124395E+01
+PKER_SWETH( 23, 13) = 0.114744E+01
+PKER_SWETH( 23, 14) = 0.105678E+01
+PKER_SWETH( 23, 15) = 0.971578E+00
+PKER_SWETH( 23, 16) = 0.891505E+00
+PKER_SWETH( 23, 17) = 0.816228E+00
+PKER_SWETH( 23, 18) = 0.745437E+00
+PKER_SWETH( 23, 19) = 0.678835E+00
+PKER_SWETH( 23, 20) = 0.616140E+00
+PKER_SWETH( 23, 21) = 0.557084E+00
+PKER_SWETH( 23, 22) = 0.501408E+00
+PKER_SWETH( 23, 23) = 0.448869E+00
+PKER_SWETH( 23, 24) = 0.399242E+00
+PKER_SWETH( 23, 25) = 0.352334E+00
+PKER_SWETH( 23, 26) = 0.308004E+00
+PKER_SWETH( 23, 27) = 0.266213E+00
+PKER_SWETH( 23, 28) = 0.227070E+00
+PKER_SWETH( 23, 29) = 0.190904E+00
+PKER_SWETH( 23, 30) = 0.158318E+00
+PKER_SWETH( 23, 31) = 0.130143E+00
+PKER_SWETH( 23, 32) = 0.107409E+00
+PKER_SWETH( 23, 33) = 0.910480E-01
+PKER_SWETH( 23, 34) = 0.816578E-01
+PKER_SWETH( 23, 35) = 0.793319E-01
+PKER_SWETH( 23, 36) = 0.833790E-01
+PKER_SWETH( 23, 37) = 0.926780E-01
+PKER_SWETH( 23, 38) = 0.105642E+00
+PKER_SWETH( 23, 39) = 0.120818E+00
+PKER_SWETH( 23, 40) = 0.136925E+00
+PKER_SWETH( 23, 41) = 0.153032E+00
+PKER_SWETH( 23, 42) = 0.168561E+00
+PKER_SWETH( 23, 43) = 0.183201E+00
+PKER_SWETH( 23, 44) = 0.196832E+00
+PKER_SWETH( 23, 45) = 0.209446E+00
+PKER_SWETH( 23, 46) = 0.221092E+00
+PKER_SWETH( 23, 47) = 0.231845E+00
+PKER_SWETH( 23, 48) = 0.241786E+00
+PKER_SWETH( 23, 49) = 0.250993E+00
+PKER_SWETH( 23, 50) = 0.259534E+00
+PKER_SWETH( 23, 51) = 0.267472E+00
+PKER_SWETH( 23, 52) = 0.274862E+00
+PKER_SWETH( 23, 53) = 0.281750E+00
+PKER_SWETH( 23, 54) = 0.288179E+00
+PKER_SWETH( 23, 55) = 0.294186E+00
+PKER_SWETH( 23, 56) = 0.299801E+00
+PKER_SWETH( 23, 57) = 0.305056E+00
+PKER_SWETH( 23, 58) = 0.309976E+00
+PKER_SWETH( 23, 59) = 0.314585E+00
+PKER_SWETH( 23, 60) = 0.318903E+00
+PKER_SWETH( 23, 61) = 0.322951E+00
+PKER_SWETH( 23, 62) = 0.326748E+00
+PKER_SWETH( 23, 63) = 0.330308E+00
+PKER_SWETH( 23, 64) = 0.333648E+00
+PKER_SWETH( 23, 65) = 0.336782E+00
+PKER_SWETH( 23, 66) = 0.339722E+00
+PKER_SWETH( 23, 67) = 0.342482E+00
+PKER_SWETH( 23, 68) = 0.345072E+00
+PKER_SWETH( 23, 69) = 0.347503E+00
+PKER_SWETH( 23, 70) = 0.349785E+00
+PKER_SWETH( 23, 71) = 0.351927E+00
+PKER_SWETH( 23, 72) = 0.353938E+00
+PKER_SWETH( 23, 73) = 0.355826E+00
+PKER_SWETH( 23, 74) = 0.357599E+00
+PKER_SWETH( 23, 75) = 0.359263E+00
+PKER_SWETH( 23, 76) = 0.360825E+00
+PKER_SWETH( 23, 77) = 0.362292E+00
+PKER_SWETH( 23, 78) = 0.363670E+00
+PKER_SWETH( 23, 79) = 0.364963E+00
+PKER_SWETH( 23, 80) = 0.366177E+00
+PKER_SWETH( 24, 1) = 0.286818E+01
+PKER_SWETH( 24, 2) = 0.267565E+01
+PKER_SWETH( 24, 3) = 0.249486E+01
+PKER_SWETH( 24, 4) = 0.232509E+01
+PKER_SWETH( 24, 5) = 0.216568E+01
+PKER_SWETH( 24, 6) = 0.201598E+01
+PKER_SWETH( 24, 7) = 0.187541E+01
+PKER_SWETH( 24, 8) = 0.174340E+01
+PKER_SWETH( 24, 9) = 0.161943E+01
+PKER_SWETH( 24, 10) = 0.150301E+01
+PKER_SWETH( 24, 11) = 0.139367E+01
+PKER_SWETH( 24, 12) = 0.129097E+01
+PKER_SWETH( 24, 13) = 0.119451E+01
+PKER_SWETH( 24, 14) = 0.110390E+01
+PKER_SWETH( 24, 15) = 0.101877E+01
+PKER_SWETH( 24, 16) = 0.938776E+00
+PKER_SWETH( 24, 17) = 0.863598E+00
+PKER_SWETH( 24, 18) = 0.792926E+00
+PKER_SWETH( 24, 19) = 0.726468E+00
+PKER_SWETH( 24, 20) = 0.663947E+00
+PKER_SWETH( 24, 21) = 0.605099E+00
+PKER_SWETH( 24, 22) = 0.549672E+00
+PKER_SWETH( 24, 23) = 0.497422E+00
+PKER_SWETH( 24, 24) = 0.448119E+00
+PKER_SWETH( 24, 25) = 0.401541E+00
+PKER_SWETH( 24, 26) = 0.357483E+00
+PKER_SWETH( 24, 27) = 0.315767E+00
+PKER_SWETH( 24, 28) = 0.276262E+00
+PKER_SWETH( 24, 29) = 0.238920E+00
+PKER_SWETH( 24, 30) = 0.203837E+00
+PKER_SWETH( 24, 31) = 0.171306E+00
+PKER_SWETH( 24, 32) = 0.141868E+00
+PKER_SWETH( 24, 33) = 0.116305E+00
+PKER_SWETH( 24, 34) = 0.955523E-01
+PKER_SWETH( 24, 35) = 0.804455E-01
+PKER_SWETH( 24, 36) = 0.715185E-01
+PKER_SWETH( 24, 37) = 0.688403E-01
+PKER_SWETH( 24, 38) = 0.717494E-01
+PKER_SWETH( 24, 39) = 0.791749E-01
+PKER_SWETH( 24, 40) = 0.898679E-01
+PKER_SWETH( 24, 41) = 0.102464E+00
+PKER_SWETH( 24, 42) = 0.115917E+00
+PKER_SWETH( 24, 43) = 0.129449E+00
+PKER_SWETH( 24, 44) = 0.142559E+00
+PKER_SWETH( 24, 45) = 0.154980E+00
+PKER_SWETH( 24, 46) = 0.166600E+00
+PKER_SWETH( 24, 47) = 0.177401E+00
+PKER_SWETH( 24, 48) = 0.187413E+00
+PKER_SWETH( 24, 49) = 0.196693E+00
+PKER_SWETH( 24, 50) = 0.205299E+00
+PKER_SWETH( 24, 51) = 0.213291E+00
+PKER_SWETH( 24, 52) = 0.220724E+00
+PKER_SWETH( 24, 53) = 0.227647E+00
+PKER_SWETH( 24, 54) = 0.234103E+00
+PKER_SWETH( 24, 55) = 0.240129E+00
+PKER_SWETH( 24, 56) = 0.245761E+00
+PKER_SWETH( 24, 57) = 0.251028E+00
+PKER_SWETH( 24, 58) = 0.255958E+00
+PKER_SWETH( 24, 59) = 0.260573E+00
+PKER_SWETH( 24, 60) = 0.264898E+00
+PKER_SWETH( 24, 61) = 0.268950E+00
+PKER_SWETH( 24, 62) = 0.272750E+00
+PKER_SWETH( 24, 63) = 0.276313E+00
+PKER_SWETH( 24, 64) = 0.279654E+00
+PKER_SWETH( 24, 65) = 0.282790E+00
+PKER_SWETH( 24, 66) = 0.285731E+00
+PKER_SWETH( 24, 67) = 0.288492E+00
+PKER_SWETH( 24, 68) = 0.291083E+00
+PKER_SWETH( 24, 69) = 0.293514E+00
+PKER_SWETH( 24, 70) = 0.295797E+00
+PKER_SWETH( 24, 71) = 0.297939E+00
+PKER_SWETH( 24, 72) = 0.299950E+00
+PKER_SWETH( 24, 73) = 0.301839E+00
+PKER_SWETH( 24, 74) = 0.303611E+00
+PKER_SWETH( 24, 75) = 0.305276E+00
+PKER_SWETH( 24, 76) = 0.306838E+00
+PKER_SWETH( 24, 77) = 0.308305E+00
+PKER_SWETH( 24, 78) = 0.309683E+00
+PKER_SWETH( 24, 79) = 0.310976E+00
+PKER_SWETH( 24, 80) = 0.312190E+00
+PKER_SWETH( 25, 1) = 0.290844E+01
+PKER_SWETH( 25, 2) = 0.271591E+01
+PKER_SWETH( 25, 3) = 0.253512E+01
+PKER_SWETH( 25, 4) = 0.236537E+01
+PKER_SWETH( 25, 5) = 0.220596E+01
+PKER_SWETH( 25, 6) = 0.205627E+01
+PKER_SWETH( 25, 7) = 0.191571E+01
+PKER_SWETH( 25, 8) = 0.178372E+01
+PKER_SWETH( 25, 9) = 0.165977E+01
+PKER_SWETH( 25, 10) = 0.154336E+01
+PKER_SWETH( 25, 11) = 0.143405E+01
+PKER_SWETH( 25, 12) = 0.133138E+01
+PKER_SWETH( 25, 13) = 0.123495E+01
+PKER_SWETH( 25, 14) = 0.114438E+01
+PKER_SWETH( 25, 15) = 0.105930E+01
+PKER_SWETH( 25, 16) = 0.979367E+00
+PKER_SWETH( 25, 17) = 0.904262E+00
+PKER_SWETH( 25, 18) = 0.833678E+00
+PKER_SWETH( 25, 19) = 0.767328E+00
+PKER_SWETH( 25, 20) = 0.704937E+00
+PKER_SWETH( 25, 21) = 0.646247E+00
+PKER_SWETH( 25, 22) = 0.591008E+00
+PKER_SWETH( 25, 23) = 0.538986E+00
+PKER_SWETH( 25, 24) = 0.489953E+00
+PKER_SWETH( 25, 25) = 0.443691E+00
+PKER_SWETH( 25, 26) = 0.399991E+00
+PKER_SWETH( 25, 27) = 0.358654E+00
+PKER_SWETH( 25, 28) = 0.319494E+00
+PKER_SWETH( 25, 29) = 0.282349E+00
+PKER_SWETH( 25, 30) = 0.247103E+00
+PKER_SWETH( 25, 31) = 0.213715E+00
+PKER_SWETH( 25, 32) = 0.182272E+00
+PKER_SWETH( 25, 33) = 0.153051E+00
+PKER_SWETH( 25, 34) = 0.126549E+00
+PKER_SWETH( 25, 35) = 0.103476E+00
+PKER_SWETH( 25, 36) = 0.846703E-01
+PKER_SWETH( 25, 37) = 0.708667E-01
+PKER_SWETH( 25, 38) = 0.625066E-01
+PKER_SWETH( 25, 39) = 0.595888E-01
+PKER_SWETH( 25, 40) = 0.615364E-01
+PKER_SWETH( 25, 41) = 0.674190E-01
+PKER_SWETH( 25, 42) = 0.760906E-01
+PKER_SWETH( 25, 43) = 0.865049E-01
+PKER_SWETH( 25, 44) = 0.977255E-01
+PKER_SWETH( 25, 45) = 0.109092E+00
+PKER_SWETH( 25, 46) = 0.120184E+00
+PKER_SWETH( 25, 47) = 0.130756E+00
+PKER_SWETH( 25, 48) = 0.140699E+00
+PKER_SWETH( 25, 49) = 0.149985E+00
+PKER_SWETH( 25, 50) = 0.158628E+00
+PKER_SWETH( 25, 51) = 0.166665E+00
+PKER_SWETH( 25, 52) = 0.174140E+00
+PKER_SWETH( 25, 53) = 0.181099E+00
+PKER_SWETH( 25, 54) = 0.187585E+00
+PKER_SWETH( 25, 55) = 0.193635E+00
+PKER_SWETH( 25, 56) = 0.199285E+00
+PKER_SWETH( 25, 57) = 0.204567E+00
+PKER_SWETH( 25, 58) = 0.209507E+00
+PKER_SWETH( 25, 59) = 0.214131E+00
+PKER_SWETH( 25, 60) = 0.218462E+00
+PKER_SWETH( 25, 61) = 0.222520E+00
+PKER_SWETH( 25, 62) = 0.226323E+00
+PKER_SWETH( 25, 63) = 0.229889E+00
+PKER_SWETH( 25, 64) = 0.233233E+00
+PKER_SWETH( 25, 65) = 0.236370E+00
+PKER_SWETH( 25, 66) = 0.239313E+00
+PKER_SWETH( 25, 67) = 0.242075E+00
+PKER_SWETH( 25, 68) = 0.244666E+00
+PKER_SWETH( 25, 69) = 0.247098E+00
+PKER_SWETH( 25, 70) = 0.249381E+00
+PKER_SWETH( 25, 71) = 0.251524E+00
+PKER_SWETH( 25, 72) = 0.253536E+00
+PKER_SWETH( 25, 73) = 0.255424E+00
+PKER_SWETH( 25, 74) = 0.257197E+00
+PKER_SWETH( 25, 75) = 0.258862E+00
+PKER_SWETH( 25, 76) = 0.260424E+00
+PKER_SWETH( 25, 77) = 0.261891E+00
+PKER_SWETH( 25, 78) = 0.263269E+00
+PKER_SWETH( 25, 79) = 0.264562E+00
+PKER_SWETH( 25, 80) = 0.265777E+00
+PKER_SWETH( 26, 1) = 0.294305E+01
+PKER_SWETH( 26, 2) = 0.275052E+01
+PKER_SWETH( 26, 3) = 0.256974E+01
+PKER_SWETH( 26, 4) = 0.239999E+01
+PKER_SWETH( 26, 5) = 0.224059E+01
+PKER_SWETH( 26, 6) = 0.209091E+01
+PKER_SWETH( 26, 7) = 0.195036E+01
+PKER_SWETH( 26, 8) = 0.181837E+01
+PKER_SWETH( 26, 9) = 0.169443E+01
+PKER_SWETH( 26, 10) = 0.157804E+01
+PKER_SWETH( 26, 11) = 0.146874E+01
+PKER_SWETH( 26, 12) = 0.136610E+01
+PKER_SWETH( 26, 13) = 0.126970E+01
+PKER_SWETH( 26, 14) = 0.117916E+01
+PKER_SWETH( 26, 15) = 0.109411E+01
+PKER_SWETH( 26, 16) = 0.101423E+01
+PKER_SWETH( 26, 17) = 0.939177E+00
+PKER_SWETH( 26, 18) = 0.868660E+00
+PKER_SWETH( 26, 19) = 0.802390E+00
+PKER_SWETH( 26, 20) = 0.740096E+00
+PKER_SWETH( 26, 21) = 0.681523E+00
+PKER_SWETH( 26, 22) = 0.626426E+00
+PKER_SWETH( 26, 23) = 0.574575E+00
+PKER_SWETH( 26, 24) = 0.525747E+00
+PKER_SWETH( 26, 25) = 0.479731E+00
+PKER_SWETH( 26, 26) = 0.436323E+00
+PKER_SWETH( 26, 27) = 0.395326E+00
+PKER_SWETH( 26, 28) = 0.356552E+00
+PKER_SWETH( 26, 29) = 0.319822E+00
+PKER_SWETH( 26, 30) = 0.284971E+00
+PKER_SWETH( 26, 31) = 0.251857E+00
+PKER_SWETH( 26, 32) = 0.220380E+00
+PKER_SWETH( 26, 33) = 0.190516E+00
+PKER_SWETH( 26, 34) = 0.162358E+00
+PKER_SWETH( 26, 35) = 0.136166E+00
+PKER_SWETH( 26, 36) = 0.112402E+00
+PKER_SWETH( 26, 37) = 0.917043E-01
+PKER_SWETH( 26, 38) = 0.747934E-01
+PKER_SWETH( 26, 39) = 0.622865E-01
+PKER_SWETH( 26, 40) = 0.545394E-01
+PKER_SWETH( 26, 41) = 0.514887E-01
+PKER_SWETH( 26, 42) = 0.526217E-01
+PKER_SWETH( 26, 43) = 0.571686E-01
+PKER_SWETH( 26, 44) = 0.641718E-01
+PKER_SWETH( 26, 45) = 0.727187E-01
+PKER_SWETH( 26, 46) = 0.820521E-01
+PKER_SWETH( 26, 47) = 0.916095E-01
+PKER_SWETH( 26, 48) = 0.101013E+00
+PKER_SWETH( 26, 49) = 0.110038E+00
+PKER_SWETH( 26, 50) = 0.118576E+00
+PKER_SWETH( 26, 51) = 0.126587E+00
+PKER_SWETH( 26, 52) = 0.134073E+00
+PKER_SWETH( 26, 53) = 0.141055E+00
+PKER_SWETH( 26, 54) = 0.147566E+00
+PKER_SWETH( 26, 55) = 0.153640E+00
+PKER_SWETH( 26, 56) = 0.159310E+00
+PKER_SWETH( 26, 57) = 0.164608E+00
+PKER_SWETH( 26, 58) = 0.169561E+00
+PKER_SWETH( 26, 59) = 0.174195E+00
+PKER_SWETH( 26, 60) = 0.178533E+00
+PKER_SWETH( 26, 61) = 0.182597E+00
+PKER_SWETH( 26, 62) = 0.186405E+00
+PKER_SWETH( 26, 63) = 0.189974E+00
+PKER_SWETH( 26, 64) = 0.193321E+00
+PKER_SWETH( 26, 65) = 0.196460E+00
+PKER_SWETH( 26, 66) = 0.199405E+00
+PKER_SWETH( 26, 67) = 0.202168E+00
+PKER_SWETH( 26, 68) = 0.204760E+00
+PKER_SWETH( 26, 69) = 0.207193E+00
+PKER_SWETH( 26, 70) = 0.209476E+00
+PKER_SWETH( 26, 71) = 0.211620E+00
+PKER_SWETH( 26, 72) = 0.213632E+00
+PKER_SWETH( 26, 73) = 0.215520E+00
+PKER_SWETH( 26, 74) = 0.217293E+00
+PKER_SWETH( 26, 75) = 0.218958E+00
+PKER_SWETH( 26, 76) = 0.220521E+00
+PKER_SWETH( 26, 77) = 0.221988E+00
+PKER_SWETH( 26, 78) = 0.223366E+00
+PKER_SWETH( 26, 79) = 0.224659E+00
+PKER_SWETH( 26, 80) = 0.225873E+00
+PKER_SWETH( 27, 1) = 0.297280E+01
+PKER_SWETH( 27, 2) = 0.278028E+01
+PKER_SWETH( 27, 3) = 0.259950E+01
+PKER_SWETH( 27, 4) = 0.242975E+01
+PKER_SWETH( 27, 5) = 0.227036E+01
+PKER_SWETH( 27, 6) = 0.212068E+01
+PKER_SWETH( 27, 7) = 0.198014E+01
+PKER_SWETH( 27, 8) = 0.184816E+01
+PKER_SWETH( 27, 9) = 0.172423E+01
+PKER_SWETH( 27, 10) = 0.160785E+01
+PKER_SWETH( 27, 11) = 0.149857E+01
+PKER_SWETH( 27, 12) = 0.139594E+01
+PKER_SWETH( 27, 13) = 0.129956E+01
+PKER_SWETH( 27, 14) = 0.120904E+01
+PKER_SWETH( 27, 15) = 0.112402E+01
+PKER_SWETH( 27, 16) = 0.104417E+01
+PKER_SWETH( 27, 17) = 0.969162E+00
+PKER_SWETH( 27, 18) = 0.898695E+00
+PKER_SWETH( 27, 19) = 0.832485E+00
+PKER_SWETH( 27, 20) = 0.770264E+00
+PKER_SWETH( 27, 21) = 0.711779E+00
+PKER_SWETH( 27, 22) = 0.656788E+00
+PKER_SWETH( 27, 23) = 0.605065E+00
+PKER_SWETH( 27, 24) = 0.556391E+00
+PKER_SWETH( 27, 25) = 0.510561E+00
+PKER_SWETH( 27, 26) = 0.467374E+00
+PKER_SWETH( 27, 27) = 0.426642E+00
+PKER_SWETH( 27, 28) = 0.388179E+00
+PKER_SWETH( 27, 29) = 0.351811E+00
+PKER_SWETH( 27, 30) = 0.317368E+00
+PKER_SWETH( 27, 31) = 0.284691E+00
+PKER_SWETH( 27, 32) = 0.253635E+00
+PKER_SWETH( 27, 33) = 0.224082E+00
+PKER_SWETH( 27, 34) = 0.195956E+00
+PKER_SWETH( 27, 35) = 0.169252E+00
+PKER_SWETH( 27, 36) = 0.144075E+00
+PKER_SWETH( 27, 37) = 0.120679E+00
+PKER_SWETH( 27, 38) = 0.994785E-01
+PKER_SWETH( 27, 39) = 0.810353E-01
+PKER_SWETH( 27, 40) = 0.659439E-01
+PKER_SWETH( 27, 41) = 0.546937E-01
+PKER_SWETH( 27, 42) = 0.475503E-01
+PKER_SWETH( 27, 43) = 0.444351E-01
+PKER_SWETH( 27, 44) = 0.449018E-01
+PKER_SWETH( 27, 45) = 0.483126E-01
+PKER_SWETH( 27, 46) = 0.538981E-01
+PKER_SWETH( 27, 47) = 0.608791E-01
+PKER_SWETH( 27, 48) = 0.686363E-01
+PKER_SWETH( 27, 49) = 0.766733E-01
+PKER_SWETH( 27, 50) = 0.846559E-01
+PKER_SWETH( 27, 51) = 0.923787E-01
+PKER_SWETH( 27, 52) = 0.997309E-01
+PKER_SWETH( 27, 53) = 0.106662E+00
+PKER_SWETH( 27, 54) = 0.113163E+00
+PKER_SWETH( 27, 55) = 0.119245E+00
+PKER_SWETH( 27, 56) = 0.124928E+00
+PKER_SWETH( 27, 57) = 0.130240E+00
+PKER_SWETH( 27, 58) = 0.135206E+00
+PKER_SWETH( 27, 59) = 0.139851E+00
+PKER_SWETH( 27, 60) = 0.144198E+00
+PKER_SWETH( 27, 61) = 0.148269E+00
+PKER_SWETH( 27, 62) = 0.152082E+00
+PKER_SWETH( 27, 63) = 0.155655E+00
+PKER_SWETH( 27, 64) = 0.159005E+00
+PKER_SWETH( 27, 65) = 0.162147E+00
+PKER_SWETH( 27, 66) = 0.165093E+00
+PKER_SWETH( 27, 67) = 0.167857E+00
+PKER_SWETH( 27, 68) = 0.170451E+00
+PKER_SWETH( 27, 69) = 0.172885E+00
+PKER_SWETH( 27, 70) = 0.175169E+00
+PKER_SWETH( 27, 71) = 0.177313E+00
+PKER_SWETH( 27, 72) = 0.179325E+00
+PKER_SWETH( 27, 73) = 0.181214E+00
+PKER_SWETH( 27, 74) = 0.182987E+00
+PKER_SWETH( 27, 75) = 0.184652E+00
+PKER_SWETH( 27, 76) = 0.186215E+00
+PKER_SWETH( 27, 77) = 0.187682E+00
+PKER_SWETH( 27, 78) = 0.189060E+00
+PKER_SWETH( 27, 79) = 0.190353E+00
+PKER_SWETH( 27, 80) = 0.191568E+00
+PKER_SWETH( 28, 1) = 0.299838E+01
+PKER_SWETH( 28, 2) = 0.280586E+01
+PKER_SWETH( 28, 3) = 0.262509E+01
+PKER_SWETH( 28, 4) = 0.245534E+01
+PKER_SWETH( 28, 5) = 0.229595E+01
+PKER_SWETH( 28, 6) = 0.214628E+01
+PKER_SWETH( 28, 7) = 0.200574E+01
+PKER_SWETH( 28, 8) = 0.187377E+01
+PKER_SWETH( 28, 9) = 0.174984E+01
+PKER_SWETH( 28, 10) = 0.163347E+01
+PKER_SWETH( 28, 11) = 0.152420E+01
+PKER_SWETH( 28, 12) = 0.142158E+01
+PKER_SWETH( 28, 13) = 0.132521E+01
+PKER_SWETH( 28, 14) = 0.123471E+01
+PKER_SWETH( 28, 15) = 0.114972E+01
+PKER_SWETH( 28, 16) = 0.106990E+01
+PKER_SWETH( 28, 17) = 0.994917E+00
+PKER_SWETH( 28, 18) = 0.924488E+00
+PKER_SWETH( 28, 19) = 0.858323E+00
+PKER_SWETH( 28, 20) = 0.796157E+00
+PKER_SWETH( 28, 21) = 0.737738E+00
+PKER_SWETH( 28, 22) = 0.682827E+00
+PKER_SWETH( 28, 23) = 0.631200E+00
+PKER_SWETH( 28, 24) = 0.582642E+00
+PKER_SWETH( 28, 25) = 0.536951E+00
+PKER_SWETH( 28, 26) = 0.493931E+00
+PKER_SWETH( 28, 27) = 0.453399E+00
+PKER_SWETH( 28, 28) = 0.415175E+00
+PKER_SWETH( 28, 29) = 0.379089E+00
+PKER_SWETH( 28, 30) = 0.344975E+00
+PKER_SWETH( 28, 31) = 0.312676E+00
+PKER_SWETH( 28, 32) = 0.282042E+00
+PKER_SWETH( 28, 33) = 0.252934E+00
+PKER_SWETH( 28, 34) = 0.225231E+00
+PKER_SWETH( 28, 35) = 0.198839E+00
+PKER_SWETH( 28, 36) = 0.173711E+00
+PKER_SWETH( 28, 37) = 0.149866E+00
+PKER_SWETH( 28, 38) = 0.127421E+00
+PKER_SWETH( 28, 39) = 0.106617E+00
+PKER_SWETH( 28, 40) = 0.878209E-01
+PKER_SWETH( 28, 41) = 0.714924E-01
+PKER_SWETH( 28, 42) = 0.581156E-01
+PKER_SWETH( 28, 43) = 0.480527E-01
+PKER_SWETH( 28, 44) = 0.414985E-01
+PKER_SWETH( 28, 45) = 0.383577E-01
+PKER_SWETH( 28, 46) = 0.382797E-01
+PKER_SWETH( 28, 47) = 0.407482E-01
+PKER_SWETH( 28, 48) = 0.451150E-01
+PKER_SWETH( 28, 49) = 0.507946E-01
+PKER_SWETH( 28, 50) = 0.572113E-01
+PKER_SWETH( 28, 51) = 0.639668E-01
+PKER_SWETH( 28, 52) = 0.707541E-01
+PKER_SWETH( 28, 53) = 0.773754E-01
+PKER_SWETH( 28, 54) = 0.837189E-01
+PKER_SWETH( 28, 55) = 0.897291E-01
+PKER_SWETH( 28, 56) = 0.953867E-01
+PKER_SWETH( 28, 57) = 0.100694E+00
+PKER_SWETH( 28, 58) = 0.105664E+00
+PKER_SWETH( 28, 59) = 0.110317E+00
+PKER_SWETH( 28, 60) = 0.114672E+00
+PKER_SWETH( 28, 61) = 0.118749E+00
+PKER_SWETH( 28, 62) = 0.122568E+00
+PKER_SWETH( 28, 63) = 0.126146E+00
+PKER_SWETH( 28, 64) = 0.129500E+00
+PKER_SWETH( 28, 65) = 0.132644E+00
+PKER_SWETH( 28, 66) = 0.135593E+00
+PKER_SWETH( 28, 67) = 0.138358E+00
+PKER_SWETH( 28, 68) = 0.140953E+00
+PKER_SWETH( 28, 69) = 0.143388E+00
+PKER_SWETH( 28, 70) = 0.145673E+00
+PKER_SWETH( 28, 71) = 0.147817E+00
+PKER_SWETH( 28, 72) = 0.149830E+00
+PKER_SWETH( 28, 73) = 0.151720E+00
+PKER_SWETH( 28, 74) = 0.153493E+00
+PKER_SWETH( 28, 75) = 0.155158E+00
+PKER_SWETH( 28, 76) = 0.156721E+00
+PKER_SWETH( 28, 77) = 0.158189E+00
+PKER_SWETH( 28, 78) = 0.159566E+00
+PKER_SWETH( 28, 79) = 0.160860E+00
+PKER_SWETH( 28, 80) = 0.162074E+00
+PKER_SWETH( 29, 1) = 0.302037E+01
+PKER_SWETH( 29, 2) = 0.282785E+01
+PKER_SWETH( 29, 3) = 0.264708E+01
+PKER_SWETH( 29, 4) = 0.247733E+01
+PKER_SWETH( 29, 5) = 0.231795E+01
+PKER_SWETH( 29, 6) = 0.216828E+01
+PKER_SWETH( 29, 7) = 0.202774E+01
+PKER_SWETH( 29, 8) = 0.189578E+01
+PKER_SWETH( 29, 9) = 0.177186E+01
+PKER_SWETH( 29, 10) = 0.165550E+01
+PKER_SWETH( 29, 11) = 0.154623E+01
+PKER_SWETH( 29, 12) = 0.144362E+01
+PKER_SWETH( 29, 13) = 0.134726E+01
+PKER_SWETH( 29, 14) = 0.125678E+01
+PKER_SWETH( 29, 15) = 0.117180E+01
+PKER_SWETH( 29, 16) = 0.109200E+01
+PKER_SWETH( 29, 17) = 0.101704E+01
+PKER_SWETH( 29, 18) = 0.946641E+00
+PKER_SWETH( 29, 19) = 0.880511E+00
+PKER_SWETH( 29, 20) = 0.818386E+00
+PKER_SWETH( 29, 21) = 0.760017E+00
+PKER_SWETH( 29, 22) = 0.705166E+00
+PKER_SWETH( 29, 23) = 0.653611E+00
+PKER_SWETH( 29, 24) = 0.605141E+00
+PKER_SWETH( 29, 25) = 0.559554E+00
+PKER_SWETH( 29, 26) = 0.516661E+00
+PKER_SWETH( 29, 27) = 0.476280E+00
+PKER_SWETH( 29, 28) = 0.438237E+00
+PKER_SWETH( 29, 29) = 0.402366E+00
+PKER_SWETH( 29, 30) = 0.368507E+00
+PKER_SWETH( 29, 31) = 0.336506E+00
+PKER_SWETH( 29, 32) = 0.306215E+00
+PKER_SWETH( 29, 33) = 0.277495E+00
+PKER_SWETH( 29, 34) = 0.250215E+00
+PKER_SWETH( 29, 35) = 0.224259E+00
+PKER_SWETH( 29, 36) = 0.199530E+00
+PKER_SWETH( 29, 37) = 0.175964E+00
+PKER_SWETH( 29, 38) = 0.153542E+00
+PKER_SWETH( 29, 39) = 0.132307E+00
+PKER_SWETH( 29, 40) = 0.112384E+00
+PKER_SWETH( 29, 41) = 0.939910E-01
+PKER_SWETH( 29, 42) = 0.774349E-01
+PKER_SWETH( 29, 43) = 0.630791E-01
+PKER_SWETH( 29, 44) = 0.512792E-01
+PKER_SWETH( 29, 45) = 0.423126E-01
+PKER_SWETH( 29, 46) = 0.363101E-01
+PKER_SWETH( 29, 47) = 0.331775E-01
+PKER_SWETH( 29, 48) = 0.326477E-01
+PKER_SWETH( 29, 49) = 0.343305E-01
+PKER_SWETH( 29, 50) = 0.376967E-01
+PKER_SWETH( 29, 51) = 0.422455E-01
+PKER_SWETH( 29, 52) = 0.475526E-01
+PKER_SWETH( 29, 53) = 0.532189E-01
+PKER_SWETH( 29, 54) = 0.589849E-01
+PKER_SWETH( 29, 55) = 0.646660E-01
+PKER_SWETH( 29, 56) = 0.701465E-01
+PKER_SWETH( 29, 57) = 0.753653E-01
+PKER_SWETH( 29, 58) = 0.802963E-01
+PKER_SWETH( 29, 59) = 0.849346E-01
+PKER_SWETH( 29, 60) = 0.892870E-01
+PKER_SWETH( 29, 61) = 0.933669E-01
+PKER_SWETH( 29, 62) = 0.971899E-01
+PKER_SWETH( 29, 63) = 0.100772E+00
+PKER_SWETH( 29, 64) = 0.104130E+00
+PKER_SWETH( 29, 65) = 0.107277E+00
+PKER_SWETH( 29, 66) = 0.110228E+00
+PKER_SWETH( 29, 67) = 0.112996E+00
+PKER_SWETH( 29, 68) = 0.115592E+00
+PKER_SWETH( 29, 69) = 0.118028E+00
+PKER_SWETH( 29, 70) = 0.120314E+00
+PKER_SWETH( 29, 71) = 0.122459E+00
+PKER_SWETH( 29, 72) = 0.124472E+00
+PKER_SWETH( 29, 73) = 0.126362E+00
+PKER_SWETH( 29, 74) = 0.128136E+00
+PKER_SWETH( 29, 75) = 0.129801E+00
+PKER_SWETH( 29, 76) = 0.131364E+00
+PKER_SWETH( 29, 77) = 0.132832E+00
+PKER_SWETH( 29, 78) = 0.134210E+00
+PKER_SWETH( 29, 79) = 0.135504E+00
+PKER_SWETH( 29, 80) = 0.136718E+00
+PKER_SWETH( 30, 1) = 0.303928E+01
+PKER_SWETH( 30, 2) = 0.284676E+01
+PKER_SWETH( 30, 3) = 0.266599E+01
+PKER_SWETH( 30, 4) = 0.249624E+01
+PKER_SWETH( 30, 5) = 0.233686E+01
+PKER_SWETH( 30, 6) = 0.218719E+01
+PKER_SWETH( 30, 7) = 0.204666E+01
+PKER_SWETH( 30, 8) = 0.191470E+01
+PKER_SWETH( 30, 9) = 0.179078E+01
+PKER_SWETH( 30, 10) = 0.167442E+01
+PKER_SWETH( 30, 11) = 0.156516E+01
+PKER_SWETH( 30, 12) = 0.146256E+01
+PKER_SWETH( 30, 13) = 0.136622E+01
+PKER_SWETH( 30, 14) = 0.127574E+01
+PKER_SWETH( 30, 15) = 0.119078E+01
+PKER_SWETH( 30, 16) = 0.111099E+01
+PKER_SWETH( 30, 17) = 0.103605E+01
+PKER_SWETH( 30, 18) = 0.965671E+00
+PKER_SWETH( 30, 19) = 0.899567E+00
+PKER_SWETH( 30, 20) = 0.837473E+00
+PKER_SWETH( 30, 21) = 0.779142E+00
+PKER_SWETH( 30, 22) = 0.724337E+00
+PKER_SWETH( 30, 23) = 0.672837E+00
+PKER_SWETH( 30, 24) = 0.624432E+00
+PKER_SWETH( 30, 25) = 0.578925E+00
+PKER_SWETH( 30, 26) = 0.536127E+00
+PKER_SWETH( 30, 27) = 0.495860E+00
+PKER_SWETH( 30, 28) = 0.457954E+00
+PKER_SWETH( 30, 29) = 0.422247E+00
+PKER_SWETH( 30, 30) = 0.388582E+00
+PKER_SWETH( 30, 31) = 0.356811E+00
+PKER_SWETH( 30, 32) = 0.326789E+00
+PKER_SWETH( 30, 33) = 0.298379E+00
+PKER_SWETH( 30, 34) = 0.271451E+00
+PKER_SWETH( 30, 35) = 0.245883E+00
+PKER_SWETH( 30, 36) = 0.221565E+00
+PKER_SWETH( 30, 37) = 0.198403E+00
+PKER_SWETH( 30, 38) = 0.176331E+00
+PKER_SWETH( 30, 39) = 0.155312E+00
+PKER_SWETH( 30, 40) = 0.135357E+00
+PKER_SWETH( 30, 41) = 0.116524E+00
+PKER_SWETH( 30, 42) = 0.989392E-01
+PKER_SWETH( 30, 43) = 0.827844E-01
+PKER_SWETH( 30, 44) = 0.682941E-01
+PKER_SWETH( 30, 45) = 0.557411E-01
+PKER_SWETH( 30, 46) = 0.453780E-01
+PKER_SWETH( 30, 47) = 0.373956E-01
+PKER_SWETH( 30, 48) = 0.318890E-01
+PKER_SWETH( 30, 49) = 0.287932E-01
+PKER_SWETH( 30, 50) = 0.279056E-01
+PKER_SWETH( 30, 51) = 0.289252E-01
+PKER_SWETH( 30, 52) = 0.314497E-01
+PKER_SWETH( 30, 53) = 0.350753E-01
+PKER_SWETH( 30, 54) = 0.394126E-01
+PKER_SWETH( 30, 55) = 0.441591E-01
+PKER_SWETH( 30, 56) = 0.490560E-01
+PKER_SWETH( 30, 57) = 0.539285E-01
+PKER_SWETH( 30, 58) = 0.586660E-01
+PKER_SWETH( 30, 59) = 0.632018E-01
+PKER_SWETH( 30, 60) = 0.675041E-01
+PKER_SWETH( 30, 61) = 0.715618E-01
+PKER_SWETH( 30, 62) = 0.753768E-01
+PKER_SWETH( 30, 63) = 0.789578E-01
+PKER_SWETH( 30, 64) = 0.823165E-01
+PKER_SWETH( 30, 65) = 0.854661E-01
+PKER_SWETH( 30, 66) = 0.884195E-01
+PKER_SWETH( 30, 67) = 0.911893E-01
+PKER_SWETH( 30, 68) = 0.937873E-01
+PKER_SWETH( 30, 69) = 0.962245E-01
+PKER_SWETH( 30, 70) = 0.985113E-01
+PKER_SWETH( 30, 71) = 0.100657E+00
+PKER_SWETH( 30, 72) = 0.102671E+00
+PKER_SWETH( 30, 73) = 0.104561E+00
+PKER_SWETH( 30, 74) = 0.106336E+00
+PKER_SWETH( 30, 75) = 0.108001E+00
+PKER_SWETH( 30, 76) = 0.109565E+00
+PKER_SWETH( 30, 77) = 0.111032E+00
+PKER_SWETH( 30, 78) = 0.112410E+00
+PKER_SWETH( 30, 79) = 0.113704E+00
+PKER_SWETH( 30, 80) = 0.114919E+00
+PKER_SWETH( 31, 1) = 0.305553E+01
+PKER_SWETH( 31, 2) = 0.286301E+01
+PKER_SWETH( 31, 3) = 0.268224E+01
+PKER_SWETH( 31, 4) = 0.251250E+01
+PKER_SWETH( 31, 5) = 0.235311E+01
+PKER_SWETH( 31, 6) = 0.220345E+01
+PKER_SWETH( 31, 7) = 0.206292E+01
+PKER_SWETH( 31, 8) = 0.193096E+01
+PKER_SWETH( 31, 9) = 0.180705E+01
+PKER_SWETH( 31, 10) = 0.169070E+01
+PKER_SWETH( 31, 11) = 0.158144E+01
+PKER_SWETH( 31, 12) = 0.147884E+01
+PKER_SWETH( 31, 13) = 0.138250E+01
+PKER_SWETH( 31, 14) = 0.129204E+01
+PKER_SWETH( 31, 15) = 0.120708E+01
+PKER_SWETH( 31, 16) = 0.112730E+01
+PKER_SWETH( 31, 17) = 0.105238E+01
+PKER_SWETH( 31, 18) = 0.982019E+00
+PKER_SWETH( 31, 19) = 0.915935E+00
+PKER_SWETH( 31, 20) = 0.853866E+00
+PKER_SWETH( 31, 21) = 0.795563E+00
+PKER_SWETH( 31, 22) = 0.740792E+00
+PKER_SWETH( 31, 23) = 0.689334E+00
+PKER_SWETH( 31, 24) = 0.640979E+00
+PKER_SWETH( 31, 25) = 0.595532E+00
+PKER_SWETH( 31, 26) = 0.552807E+00
+PKER_SWETH( 31, 27) = 0.512627E+00
+PKER_SWETH( 31, 28) = 0.474825E+00
+PKER_SWETH( 31, 29) = 0.439242E+00
+PKER_SWETH( 31, 30) = 0.405725E+00
+PKER_SWETH( 31, 31) = 0.374129E+00
+PKER_SWETH( 31, 32) = 0.344315E+00
+PKER_SWETH( 31, 33) = 0.316148E+00
+PKER_SWETH( 31, 34) = 0.289501E+00
+PKER_SWETH( 31, 35) = 0.264250E+00
+PKER_SWETH( 31, 36) = 0.240283E+00
+PKER_SWETH( 31, 37) = 0.217497E+00
+PKER_SWETH( 31, 38) = 0.195805E+00
+PKER_SWETH( 31, 39) = 0.175138E+00
+PKER_SWETH( 31, 40) = 0.155459E+00
+PKER_SWETH( 31, 41) = 0.136759E+00
+PKER_SWETH( 31, 42) = 0.119070E+00
+PKER_SWETH( 31, 43) = 0.102460E+00
+PKER_SWETH( 31, 44) = 0.870355E-01
+PKER_SWETH( 31, 45) = 0.729376E-01
+PKER_SWETH( 31, 46) = 0.603312E-01
+PKER_SWETH( 31, 47) = 0.493977E-01
+PKER_SWETH( 31, 48) = 0.403119E-01
+PKER_SWETH( 31, 49) = 0.332066E-01
+PKER_SWETH( 31, 50) = 0.281507E-01
+PKER_SWETH( 31, 51) = 0.251051E-01
+PKER_SWETH( 31, 52) = 0.239393E-01
+PKER_SWETH( 31, 53) = 0.244191E-01
+PKER_SWETH( 31, 54) = 0.262352E-01
+PKER_SWETH( 31, 55) = 0.290735E-01
+PKER_SWETH( 31, 56) = 0.326082E-01
+PKER_SWETH( 31, 57) = 0.365596E-01
+PKER_SWETH( 31, 58) = 0.407050E-01
+PKER_SWETH( 31, 59) = 0.448811E-01
+PKER_SWETH( 31, 60) = 0.489754E-01
+PKER_SWETH( 31, 61) = 0.529184E-01
+PKER_SWETH( 31, 62) = 0.566739E-01
+PKER_SWETH( 31, 63) = 0.602262E-01
+PKER_SWETH( 31, 64) = 0.635723E-01
+PKER_SWETH( 31, 65) = 0.667174E-01
+PKER_SWETH( 31, 66) = 0.696701E-01
+PKER_SWETH( 31, 67) = 0.724406E-01
+PKER_SWETH( 31, 68) = 0.750398E-01
+PKER_SWETH( 31, 69) = 0.774782E-01
+PKER_SWETH( 31, 70) = 0.797661E-01
+PKER_SWETH( 31, 71) = 0.819129E-01
+PKER_SWETH( 31, 72) = 0.839275E-01
+PKER_SWETH( 31, 73) = 0.858182E-01
+PKER_SWETH( 31, 74) = 0.875929E-01
+PKER_SWETH( 31, 75) = 0.892587E-01
+PKER_SWETH( 31, 76) = 0.908224E-01
+PKER_SWETH( 31, 77) = 0.922904E-01
+PKER_SWETH( 31, 78) = 0.936685E-01
+PKER_SWETH( 31, 79) = 0.949623E-01
+PKER_SWETH( 31, 80) = 0.961771E-01
+PKER_SWETH( 32, 1) = 0.306950E+01
+PKER_SWETH( 32, 2) = 0.287698E+01
+PKER_SWETH( 32, 3) = 0.269621E+01
+PKER_SWETH( 32, 4) = 0.252647E+01
+PKER_SWETH( 32, 5) = 0.236709E+01
+PKER_SWETH( 32, 6) = 0.221743E+01
+PKER_SWETH( 32, 7) = 0.207690E+01
+PKER_SWETH( 32, 8) = 0.194494E+01
+PKER_SWETH( 32, 9) = 0.182103E+01
+PKER_SWETH( 32, 10) = 0.170468E+01
+PKER_SWETH( 32, 11) = 0.159543E+01
+PKER_SWETH( 32, 12) = 0.149284E+01
+PKER_SWETH( 32, 13) = 0.139651E+01
+PKER_SWETH( 32, 14) = 0.130604E+01
+PKER_SWETH( 32, 15) = 0.122110E+01
+PKER_SWETH( 32, 16) = 0.114133E+01
+PKER_SWETH( 32, 17) = 0.106641E+01
+PKER_SWETH( 32, 18) = 0.996065E+00
+PKER_SWETH( 32, 19) = 0.929996E+00
+PKER_SWETH( 32, 20) = 0.867945E+00
+PKER_SWETH( 32, 21) = 0.809665E+00
+PKER_SWETH( 32, 22) = 0.754921E+00
+PKER_SWETH( 32, 23) = 0.703494E+00
+PKER_SWETH( 32, 24) = 0.655177E+00
+PKER_SWETH( 32, 25) = 0.609776E+00
+PKER_SWETH( 32, 26) = 0.567105E+00
+PKER_SWETH( 32, 27) = 0.526991E+00
+PKER_SWETH( 32, 28) = 0.489268E+00
+PKER_SWETH( 32, 29) = 0.453780E+00
+PKER_SWETH( 32, 30) = 0.420376E+00
+PKER_SWETH( 32, 31) = 0.388915E+00
+PKER_SWETH( 32, 32) = 0.359260E+00
+PKER_SWETH( 32, 33) = 0.331282E+00
+PKER_SWETH( 32, 34) = 0.304853E+00
+PKER_SWETH( 32, 35) = 0.279856E+00
+PKER_SWETH( 32, 36) = 0.256176E+00
+PKER_SWETH( 32, 37) = 0.233707E+00
+PKER_SWETH( 32, 38) = 0.212354E+00
+PKER_SWETH( 32, 39) = 0.192034E+00
+PKER_SWETH( 32, 40) = 0.172684E+00
+PKER_SWETH( 32, 41) = 0.154264E+00
+PKER_SWETH( 32, 42) = 0.136760E+00
+PKER_SWETH( 32, 43) = 0.120188E+00
+PKER_SWETH( 32, 44) = 0.104591E+00
+PKER_SWETH( 32, 45) = 0.900321E-01
+PKER_SWETH( 32, 46) = 0.765907E-01
+PKER_SWETH( 32, 47) = 0.643573E-01
+PKER_SWETH( 32, 48) = 0.534353E-01
+PKER_SWETH( 32, 49) = 0.439379E-01
+PKER_SWETH( 32, 50) = 0.359735E-01
+PKER_SWETH( 32, 51) = 0.296431E-01
+PKER_SWETH( 32, 52) = 0.249980E-01
+PKER_SWETH( 32, 53) = 0.220226E-01
+PKER_SWETH( 32, 54) = 0.206377E-01
+PKER_SWETH( 32, 55) = 0.206814E-01
+PKER_SWETH( 32, 56) = 0.219135E-01
+PKER_SWETH( 32, 57) = 0.240858E-01
+PKER_SWETH( 32, 58) = 0.269346E-01
+PKER_SWETH( 32, 59) = 0.302057E-01
+PKER_SWETH( 32, 60) = 0.337067E-01
+PKER_SWETH( 32, 61) = 0.372783E-01
+PKER_SWETH( 32, 62) = 0.408119E-01
+PKER_SWETH( 32, 63) = 0.442381E-01
+PKER_SWETH( 32, 64) = 0.475167E-01
+PKER_SWETH( 32, 65) = 0.506273E-01
+PKER_SWETH( 32, 66) = 0.535634E-01
+PKER_SWETH( 32, 67) = 0.563269E-01
+PKER_SWETH( 32, 68) = 0.589236E-01
+PKER_SWETH( 32, 69) = 0.613616E-01
+PKER_SWETH( 32, 70) = 0.636498E-01
+PKER_SWETH( 32, 71) = 0.657972E-01
+PKER_SWETH( 32, 72) = 0.678125E-01
+PKER_SWETH( 32, 73) = 0.697038E-01
+PKER_SWETH( 32, 74) = 0.714789E-01
+PKER_SWETH( 32, 75) = 0.731451E-01
+PKER_SWETH( 32, 76) = 0.747091E-01
+PKER_SWETH( 32, 77) = 0.761773E-01
+PKER_SWETH( 32, 78) = 0.775556E-01
+PKER_SWETH( 32, 79) = 0.788495E-01
+PKER_SWETH( 32, 80) = 0.800644E-01
+PKER_SWETH( 33, 1) = 0.308151E+01
+PKER_SWETH( 33, 2) = 0.288900E+01
+PKER_SWETH( 33, 3) = 0.270823E+01
+PKER_SWETH( 33, 4) = 0.253849E+01
+PKER_SWETH( 33, 5) = 0.237910E+01
+PKER_SWETH( 33, 6) = 0.222945E+01
+PKER_SWETH( 33, 7) = 0.208892E+01
+PKER_SWETH( 33, 8) = 0.195696E+01
+PKER_SWETH( 33, 9) = 0.183305E+01
+PKER_SWETH( 33, 10) = 0.171671E+01
+PKER_SWETH( 33, 11) = 0.160746E+01
+PKER_SWETH( 33, 12) = 0.150487E+01
+PKER_SWETH( 33, 13) = 0.140854E+01
+PKER_SWETH( 33, 14) = 0.131808E+01
+PKER_SWETH( 33, 15) = 0.123314E+01
+PKER_SWETH( 33, 16) = 0.115338E+01
+PKER_SWETH( 33, 17) = 0.107847E+01
+PKER_SWETH( 33, 18) = 0.100813E+01
+PKER_SWETH( 33, 19) = 0.942077E+00
+PKER_SWETH( 33, 20) = 0.880040E+00
+PKER_SWETH( 33, 21) = 0.821776E+00
+PKER_SWETH( 33, 22) = 0.767053E+00
+PKER_SWETH( 33, 23) = 0.715650E+00
+PKER_SWETH( 33, 24) = 0.667363E+00
+PKER_SWETH( 33, 25) = 0.621996E+00
+PKER_SWETH( 33, 26) = 0.579368E+00
+PKER_SWETH( 33, 27) = 0.539304E+00
+PKER_SWETH( 33, 28) = 0.501641E+00
+PKER_SWETH( 33, 29) = 0.466224E+00
+PKER_SWETH( 33, 30) = 0.432907E+00
+PKER_SWETH( 33, 31) = 0.401549E+00
+PKER_SWETH( 33, 32) = 0.372017E+00
+PKER_SWETH( 33, 33) = 0.344183E+00
+PKER_SWETH( 33, 34) = 0.317925E+00
+PKER_SWETH( 33, 35) = 0.293127E+00
+PKER_SWETH( 33, 36) = 0.269676E+00
+PKER_SWETH( 33, 37) = 0.247466E+00
+PKER_SWETH( 33, 38) = 0.226399E+00
+PKER_SWETH( 33, 39) = 0.206386E+00
+PKER_SWETH( 33, 40) = 0.187349E+00
+PKER_SWETH( 33, 41) = 0.169229E+00
+PKER_SWETH( 33, 42) = 0.151986E+00
+PKER_SWETH( 33, 43) = 0.135605E+00
+PKER_SWETH( 33, 44) = 0.120096E+00
+PKER_SWETH( 33, 45) = 0.105487E+00
+PKER_SWETH( 33, 46) = 0.918186E-01
+PKER_SWETH( 33, 47) = 0.791379E-01
+PKER_SWETH( 33, 48) = 0.674909E-01
+PKER_SWETH( 33, 49) = 0.569228E-01
+PKER_SWETH( 33, 50) = 0.474840E-01
+PKER_SWETH( 33, 51) = 0.392391E-01
+PKER_SWETH( 33, 52) = 0.322557E-01
+PKER_SWETH( 33, 53) = 0.266021E-01
+PKER_SWETH( 33, 54) = 0.223338E-01
+PKER_SWETH( 33, 55) = 0.194489E-01
+PKER_SWETH( 33, 56) = 0.179097E-01
+PKER_SWETH( 33, 57) = 0.176019E-01
+PKER_SWETH( 33, 58) = 0.183558E-01
+PKER_SWETH( 33, 59) = 0.199729E-01
+PKER_SWETH( 33, 60) = 0.222260E-01
+PKER_SWETH( 33, 61) = 0.249199E-01
+PKER_SWETH( 33, 62) = 0.278561E-01
+PKER_SWETH( 33, 63) = 0.309016E-01
+PKER_SWETH( 33, 64) = 0.339479E-01
+PKER_SWETH( 33, 65) = 0.369229E-01
+PKER_SWETH( 33, 66) = 0.397837E-01
+PKER_SWETH( 33, 67) = 0.425074E-01
+PKER_SWETH( 33, 68) = 0.450841E-01
+PKER_SWETH( 33, 69) = 0.475128E-01
+PKER_SWETH( 33, 70) = 0.497970E-01
+PKER_SWETH( 33, 71) = 0.519430E-01
+PKER_SWETH( 33, 72) = 0.539580E-01
+PKER_SWETH( 33, 73) = 0.558495E-01
+PKER_SWETH( 33, 74) = 0.576250E-01
+PKER_SWETH( 33, 75) = 0.592915E-01
+PKER_SWETH( 33, 76) = 0.608558E-01
+PKER_SWETH( 33, 77) = 0.623242E-01
+PKER_SWETH( 33, 78) = 0.637027E-01
+PKER_SWETH( 33, 79) = 0.649969E-01
+PKER_SWETH( 33, 80) = 0.662118E-01
+PKER_SWETH( 34, 1) = 0.309184E+01
+PKER_SWETH( 34, 2) = 0.289932E+01
+PKER_SWETH( 34, 3) = 0.271856E+01
+PKER_SWETH( 34, 4) = 0.254882E+01
+PKER_SWETH( 34, 5) = 0.238943E+01
+PKER_SWETH( 34, 6) = 0.223978E+01
+PKER_SWETH( 34, 7) = 0.209925E+01
+PKER_SWETH( 34, 8) = 0.196729E+01
+PKER_SWETH( 34, 9) = 0.184339E+01
+PKER_SWETH( 34, 10) = 0.172704E+01
+PKER_SWETH( 34, 11) = 0.161779E+01
+PKER_SWETH( 34, 12) = 0.151521E+01
+PKER_SWETH( 34, 13) = 0.141888E+01
+PKER_SWETH( 34, 14) = 0.132843E+01
+PKER_SWETH( 34, 15) = 0.124349E+01
+PKER_SWETH( 34, 16) = 0.116373E+01
+PKER_SWETH( 34, 17) = 0.108884E+01
+PKER_SWETH( 34, 18) = 0.101851E+01
+PKER_SWETH( 34, 19) = 0.952457E+00
+PKER_SWETH( 34, 20) = 0.890431E+00
+PKER_SWETH( 34, 21) = 0.832180E+00
+PKER_SWETH( 34, 22) = 0.777472E+00
+PKER_SWETH( 34, 23) = 0.726088E+00
+PKER_SWETH( 34, 24) = 0.677823E+00
+PKER_SWETH( 34, 25) = 0.632484E+00
+PKER_SWETH( 34, 26) = 0.589887E+00
+PKER_SWETH( 34, 27) = 0.549861E+00
+PKER_SWETH( 34, 28) = 0.512245E+00
+PKER_SWETH( 34, 29) = 0.476883E+00
+PKER_SWETH( 34, 30) = 0.443632E+00
+PKER_SWETH( 34, 31) = 0.412352E+00
+PKER_SWETH( 34, 32) = 0.382914E+00
+PKER_SWETH( 34, 33) = 0.355191E+00
+PKER_SWETH( 34, 34) = 0.329066E+00
+PKER_SWETH( 34, 35) = 0.304422E+00
+PKER_SWETH( 34, 36) = 0.281152E+00
+PKER_SWETH( 34, 37) = 0.259150E+00
+PKER_SWETH( 34, 38) = 0.238318E+00
+PKER_SWETH( 34, 39) = 0.218563E+00
+PKER_SWETH( 34, 40) = 0.199802E+00
+PKER_SWETH( 34, 41) = 0.181964E+00
+PKER_SWETH( 34, 42) = 0.164992E+00
+PKER_SWETH( 34, 43) = 0.148849E+00
+PKER_SWETH( 34, 44) = 0.133519E+00
+PKER_SWETH( 34, 45) = 0.119007E+00
+PKER_SWETH( 34, 46) = 0.105335E+00
+PKER_SWETH( 34, 47) = 0.925328E-01
+PKER_SWETH( 34, 48) = 0.806299E-01
+PKER_SWETH( 34, 49) = 0.696479E-01
+PKER_SWETH( 34, 50) = 0.595995E-01
+PKER_SWETH( 34, 51) = 0.504941E-01
+PKER_SWETH( 34, 52) = 0.423461E-01
+PKER_SWETH( 34, 53) = 0.351838E-01
+PKER_SWETH( 34, 54) = 0.290506E-01
+PKER_SWETH( 34, 55) = 0.239993E-01
+PKER_SWETH( 34, 56) = 0.200739E-01
+PKER_SWETH( 34, 57) = 0.172988E-01
+PKER_SWETH( 34, 58) = 0.156604E-01
+PKER_SWETH( 34, 59) = 0.150796E-01
+PKER_SWETH( 34, 60) = 0.154392E-01
+PKER_SWETH( 34, 61) = 0.165933E-01
+PKER_SWETH( 34, 62) = 0.183494E-01
+PKER_SWETH( 34, 63) = 0.205301E-01
+PKER_SWETH( 34, 64) = 0.229866E-01
+PKER_SWETH( 34, 65) = 0.255714E-01
+PKER_SWETH( 34, 66) = 0.281888E-01
+PKER_SWETH( 34, 67) = 0.307678E-01
+PKER_SWETH( 34, 68) = 0.332620E-01
+PKER_SWETH( 34, 69) = 0.356458E-01
+PKER_SWETH( 34, 70) = 0.379067E-01
+PKER_SWETH( 34, 71) = 0.400413E-01
+PKER_SWETH( 34, 72) = 0.420509E-01
+PKER_SWETH( 34, 73) = 0.439402E-01
+PKER_SWETH( 34, 74) = 0.457149E-01
+PKER_SWETH( 34, 75) = 0.473812E-01
+PKER_SWETH( 34, 76) = 0.489457E-01
+PKER_SWETH( 34, 77) = 0.504143E-01
+PKER_SWETH( 34, 78) = 0.517930E-01
+PKER_SWETH( 34, 79) = 0.530872E-01
+PKER_SWETH( 34, 80) = 0.543023E-01
+PKER_SWETH( 35, 1) = 0.310072E+01
+PKER_SWETH( 35, 2) = 0.290820E+01
+PKER_SWETH( 35, 3) = 0.272743E+01
+PKER_SWETH( 35, 4) = 0.255770E+01
+PKER_SWETH( 35, 5) = 0.239831E+01
+PKER_SWETH( 35, 6) = 0.224866E+01
+PKER_SWETH( 35, 7) = 0.210813E+01
+PKER_SWETH( 35, 8) = 0.197617E+01
+PKER_SWETH( 35, 9) = 0.185227E+01
+PKER_SWETH( 35, 10) = 0.173593E+01
+PKER_SWETH( 35, 11) = 0.162668E+01
+PKER_SWETH( 35, 12) = 0.152410E+01
+PKER_SWETH( 35, 13) = 0.142777E+01
+PKER_SWETH( 35, 14) = 0.133732E+01
+PKER_SWETH( 35, 15) = 0.125239E+01
+PKER_SWETH( 35, 16) = 0.117264E+01
+PKER_SWETH( 35, 17) = 0.109774E+01
+PKER_SWETH( 35, 18) = 0.102742E+01
+PKER_SWETH( 35, 19) = 0.961377E+00
+PKER_SWETH( 35, 20) = 0.899359E+00
+PKER_SWETH( 35, 21) = 0.841118E+00
+PKER_SWETH( 35, 22) = 0.786422E+00
+PKER_SWETH( 35, 23) = 0.735052E+00
+PKER_SWETH( 35, 24) = 0.686804E+00
+PKER_SWETH( 35, 25) = 0.641485E+00
+PKER_SWETH( 35, 26) = 0.598913E+00
+PKER_SWETH( 35, 27) = 0.558917E+00
+PKER_SWETH( 35, 28) = 0.521336E+00
+PKER_SWETH( 35, 29) = 0.486016E+00
+PKER_SWETH( 35, 30) = 0.452815E+00
+PKER_SWETH( 35, 31) = 0.421596E+00
+PKER_SWETH( 35, 32) = 0.392230E+00
+PKER_SWETH( 35, 33) = 0.364593E+00
+PKER_SWETH( 35, 34) = 0.338569E+00
+PKER_SWETH( 35, 35) = 0.314046E+00
+PKER_SWETH( 35, 36) = 0.290917E+00
+PKER_SWETH( 35, 37) = 0.269079E+00
+PKER_SWETH( 35, 38) = 0.248435E+00
+PKER_SWETH( 35, 39) = 0.228893E+00
+PKER_SWETH( 35, 40) = 0.210367E+00
+PKER_SWETH( 35, 41) = 0.192778E+00
+PKER_SWETH( 35, 42) = 0.176061E+00
+PKER_SWETH( 35, 43) = 0.160161E+00
+PKER_SWETH( 35, 44) = 0.145044E+00
+PKER_SWETH( 35, 45) = 0.130694E+00
+PKER_SWETH( 35, 46) = 0.117114E+00
+PKER_SWETH( 35, 47) = 0.104322E+00
+PKER_SWETH( 35, 48) = 0.923406E-01
+PKER_SWETH( 35, 49) = 0.811910E-01
+PKER_SWETH( 35, 50) = 0.708831E-01
+PKER_SWETH( 35, 51) = 0.614129E-01
+PKER_SWETH( 35, 52) = 0.527674E-01
+PKER_SWETH( 35, 53) = 0.449295E-01
+PKER_SWETH( 35, 54) = 0.378928E-01
+PKER_SWETH( 35, 55) = 0.316644E-01
+PKER_SWETH( 35, 56) = 0.262678E-01
+PKER_SWETH( 35, 57) = 0.217486E-01
+PKER_SWETH( 35, 58) = 0.181484E-01
+PKER_SWETH( 35, 59) = 0.154956E-01
+PKER_SWETH( 35, 60) = 0.137987E-01
+PKER_SWETH( 35, 61) = 0.130148E-01
+PKER_SWETH( 35, 62) = 0.130605E-01
+PKER_SWETH( 35, 63) = 0.138245E-01
+PKER_SWETH( 35, 64) = 0.151576E-01
+PKER_SWETH( 35, 65) = 0.169108E-01
+PKER_SWETH( 35, 66) = 0.189375E-01
+PKER_SWETH( 35, 67) = 0.211232E-01
+PKER_SWETH( 35, 68) = 0.233664E-01
+PKER_SWETH( 35, 69) = 0.255967E-01
+PKER_SWETH( 35, 70) = 0.277686E-01
+PKER_SWETH( 35, 71) = 0.298534E-01
+PKER_SWETH( 35, 72) = 0.318366E-01
+PKER_SWETH( 35, 73) = 0.337123E-01
+PKER_SWETH( 35, 74) = 0.354804E-01
+PKER_SWETH( 35, 75) = 0.371439E-01
+PKER_SWETH( 35, 76) = 0.387070E-01
+PKER_SWETH( 35, 77) = 0.401752E-01
+PKER_SWETH( 35, 78) = 0.415538E-01
+PKER_SWETH( 35, 79) = 0.428482E-01
+PKER_SWETH( 35, 80) = 0.440634E-01
+PKER_SWETH( 36, 1) = 0.310835E+01
+PKER_SWETH( 36, 2) = 0.291584E+01
+PKER_SWETH( 36, 3) = 0.273507E+01
+PKER_SWETH( 36, 4) = 0.256533E+01
+PKER_SWETH( 36, 5) = 0.240595E+01
+PKER_SWETH( 36, 6) = 0.225629E+01
+PKER_SWETH( 36, 7) = 0.211576E+01
+PKER_SWETH( 36, 8) = 0.198381E+01
+PKER_SWETH( 36, 9) = 0.185991E+01
+PKER_SWETH( 36, 10) = 0.174357E+01
+PKER_SWETH( 36, 11) = 0.163432E+01
+PKER_SWETH( 36, 12) = 0.153174E+01
+PKER_SWETH( 36, 13) = 0.143542E+01
+PKER_SWETH( 36, 14) = 0.134497E+01
+PKER_SWETH( 36, 15) = 0.126004E+01
+PKER_SWETH( 36, 16) = 0.118029E+01
+PKER_SWETH( 36, 17) = 0.110540E+01
+PKER_SWETH( 36, 18) = 0.103508E+01
+PKER_SWETH( 36, 19) = 0.969041E+00
+PKER_SWETH( 36, 20) = 0.907030E+00
+PKER_SWETH( 36, 21) = 0.848797E+00
+PKER_SWETH( 36, 22) = 0.794110E+00
+PKER_SWETH( 36, 23) = 0.742752E+00
+PKER_SWETH( 36, 24) = 0.694517E+00
+PKER_SWETH( 36, 25) = 0.649214E+00
+PKER_SWETH( 36, 26) = 0.606660E+00
+PKER_SWETH( 36, 27) = 0.566687E+00
+PKER_SWETH( 36, 28) = 0.529133E+00
+PKER_SWETH( 36, 29) = 0.493846E+00
+PKER_SWETH( 36, 30) = 0.460684E+00
+PKER_SWETH( 36, 31) = 0.429511E+00
+PKER_SWETH( 36, 32) = 0.400200E+00
+PKER_SWETH( 36, 33) = 0.372629E+00
+PKER_SWETH( 36, 34) = 0.346683E+00
+PKER_SWETH( 36, 35) = 0.322253E+00
+PKER_SWETH( 36, 36) = 0.299234E+00
+PKER_SWETH( 36, 37) = 0.277524E+00
+PKER_SWETH( 36, 38) = 0.257030E+00
+PKER_SWETH( 36, 39) = 0.237660E+00
+PKER_SWETH( 36, 40) = 0.219327E+00
+PKER_SWETH( 36, 41) = 0.201951E+00
+PKER_SWETH( 36, 42) = 0.185459E+00
+PKER_SWETH( 36, 43) = 0.169789E+00
+PKER_SWETH( 36, 44) = 0.154891E+00
+PKER_SWETH( 36, 45) = 0.140732E+00
+PKER_SWETH( 36, 46) = 0.127296E+00
+PKER_SWETH( 36, 47) = 0.114586E+00
+PKER_SWETH( 36, 48) = 0.102615E+00
+PKER_SWETH( 36, 49) = 0.914036E-01
+PKER_SWETH( 36, 50) = 0.809677E-01
+PKER_SWETH( 36, 51) = 0.713107E-01
+PKER_SWETH( 36, 52) = 0.624220E-01
+PKER_SWETH( 36, 53) = 0.542774E-01
+PKER_SWETH( 36, 54) = 0.468457E-01
+PKER_SWETH( 36, 55) = 0.400966E-01
+PKER_SWETH( 36, 56) = 0.340102E-01
+PKER_SWETH( 36, 57) = 0.285833E-01
+PKER_SWETH( 36, 58) = 0.238305E-01
+PKER_SWETH( 36, 59) = 0.197847E-01
+PKER_SWETH( 36, 60) = 0.164873E-01
+PKER_SWETH( 36, 61) = 0.139717E-01
+PKER_SWETH( 36, 62) = 0.122567E-01
+PKER_SWETH( 36, 63) = 0.113235E-01
+PKER_SWETH( 36, 64) = 0.111235E-01
+PKER_SWETH( 36, 65) = 0.115692E-01
+PKER_SWETH( 36, 66) = 0.125432E-01
+PKER_SWETH( 36, 67) = 0.139260E-01
+PKER_SWETH( 36, 68) = 0.155897E-01
+PKER_SWETH( 36, 69) = 0.174230E-01
+PKER_SWETH( 36, 70) = 0.193355E-01
+PKER_SWETH( 36, 71) = 0.212597E-01
+PKER_SWETH( 36, 72) = 0.231475E-01
+PKER_SWETH( 36, 73) = 0.249689E-01
+PKER_SWETH( 36, 74) = 0.267074E-01
+PKER_SWETH( 36, 75) = 0.283553E-01
+PKER_SWETH( 36, 76) = 0.299107E-01
+PKER_SWETH( 36, 77) = 0.313752E-01
+PKER_SWETH( 36, 78) = 0.327522E-01
+PKER_SWETH( 36, 79) = 0.340458E-01
+PKER_SWETH( 36, 80) = 0.352608E-01
+PKER_SWETH( 37, 1) = 0.311491E+01
+PKER_SWETH( 37, 2) = 0.292240E+01
+PKER_SWETH( 37, 3) = 0.274163E+01
+PKER_SWETH( 37, 4) = 0.257189E+01
+PKER_SWETH( 37, 5) = 0.241251E+01
+PKER_SWETH( 37, 6) = 0.226285E+01
+PKER_SWETH( 37, 7) = 0.212233E+01
+PKER_SWETH( 37, 8) = 0.199038E+01
+PKER_SWETH( 37, 9) = 0.186647E+01
+PKER_SWETH( 37, 10) = 0.175013E+01
+PKER_SWETH( 37, 11) = 0.164089E+01
+PKER_SWETH( 37, 12) = 0.153831E+01
+PKER_SWETH( 37, 13) = 0.144199E+01
+PKER_SWETH( 37, 14) = 0.135154E+01
+PKER_SWETH( 37, 15) = 0.126661E+01
+PKER_SWETH( 37, 16) = 0.118686E+01
+PKER_SWETH( 37, 17) = 0.111198E+01
+PKER_SWETH( 37, 18) = 0.104166E+01
+PKER_SWETH( 37, 19) = 0.975628E+00
+PKER_SWETH( 37, 20) = 0.913622E+00
+PKER_SWETH( 37, 21) = 0.855395E+00
+PKER_SWETH( 37, 22) = 0.800715E+00
+PKER_SWETH( 37, 23) = 0.749365E+00
+PKER_SWETH( 37, 24) = 0.701141E+00
+PKER_SWETH( 37, 25) = 0.655850E+00
+PKER_SWETH( 37, 26) = 0.613311E+00
+PKER_SWETH( 37, 27) = 0.573355E+00
+PKER_SWETH( 37, 28) = 0.535822E+00
+PKER_SWETH( 37, 29) = 0.500560E+00
+PKER_SWETH( 37, 30) = 0.467427E+00
+PKER_SWETH( 37, 31) = 0.436290E+00
+PKER_SWETH( 37, 32) = 0.407022E+00
+PKER_SWETH( 37, 33) = 0.379502E+00
+PKER_SWETH( 37, 34) = 0.353617E+00
+PKER_SWETH( 37, 35) = 0.329258E+00
+PKER_SWETH( 37, 36) = 0.306324E+00
+PKER_SWETH( 37, 37) = 0.284715E+00
+PKER_SWETH( 37, 38) = 0.264339E+00
+PKER_SWETH( 37, 39) = 0.245105E+00
+PKER_SWETH( 37, 40) = 0.226928E+00
+PKER_SWETH( 37, 41) = 0.209728E+00
+PKER_SWETH( 37, 42) = 0.193429E+00
+PKER_SWETH( 37, 43) = 0.177964E+00
+PKER_SWETH( 37, 44) = 0.163274E+00
+PKER_SWETH( 37, 45) = 0.149312E+00
+PKER_SWETH( 37, 46) = 0.136048E+00
+PKER_SWETH( 37, 47) = 0.123465E+00
+PKER_SWETH( 37, 48) = 0.111565E+00
+PKER_SWETH( 37, 49) = 0.100361E+00
+PKER_SWETH( 37, 50) = 0.898685E-01
+PKER_SWETH( 37, 51) = 0.801011E-01
+PKER_SWETH( 37, 52) = 0.710600E-01
+PKER_SWETH( 37, 53) = 0.627312E-01
+PKER_SWETH( 37, 54) = 0.550863E-01
+PKER_SWETH( 37, 55) = 0.480884E-01
+PKER_SWETH( 37, 56) = 0.416969E-01
+PKER_SWETH( 37, 57) = 0.358758E-01
+PKER_SWETH( 37, 58) = 0.306011E-01
+PKER_SWETH( 37, 59) = 0.258627E-01
+PKER_SWETH( 37, 60) = 0.216705E-01
+PKER_SWETH( 37, 61) = 0.180510E-01
+PKER_SWETH( 37, 62) = 0.150380E-01
+PKER_SWETH( 37, 63) = 0.126706E-01
+PKER_SWETH( 37, 64) = 0.109714E-01
+PKER_SWETH( 37, 65) = 0.993843E-02
+PKER_SWETH( 37, 66) = 0.954608E-02
+PKER_SWETH( 37, 67) = 0.973463E-02
+PKER_SWETH( 37, 68) = 0.104102E-01
+PKER_SWETH( 37, 69) = 0.114756E-01
+PKER_SWETH( 37, 70) = 0.128242E-01
+PKER_SWETH( 37, 71) = 0.143505E-01
+PKER_SWETH( 37, 72) = 0.159749E-01
+PKER_SWETH( 37, 73) = 0.176289E-01
+PKER_SWETH( 37, 74) = 0.192657E-01
+PKER_SWETH( 37, 75) = 0.208546E-01
+PKER_SWETH( 37, 76) = 0.223773E-01
+PKER_SWETH( 37, 77) = 0.238244E-01
+PKER_SWETH( 37, 78) = 0.251923E-01
+PKER_SWETH( 37, 79) = 0.264816E-01
+PKER_SWETH( 37, 80) = 0.276945E-01
+PKER_SWETH( 38, 1) = 0.312055E+01
+PKER_SWETH( 38, 2) = 0.292804E+01
+PKER_SWETH( 38, 3) = 0.274727E+01
+PKER_SWETH( 38, 4) = 0.257753E+01
+PKER_SWETH( 38, 5) = 0.241815E+01
+PKER_SWETH( 38, 6) = 0.226850E+01
+PKER_SWETH( 38, 7) = 0.212797E+01
+PKER_SWETH( 38, 8) = 0.199602E+01
+PKER_SWETH( 38, 9) = 0.187212E+01
+PKER_SWETH( 38, 10) = 0.175578E+01
+PKER_SWETH( 38, 11) = 0.164653E+01
+PKER_SWETH( 38, 12) = 0.154395E+01
+PKER_SWETH( 38, 13) = 0.144763E+01
+PKER_SWETH( 38, 14) = 0.135719E+01
+PKER_SWETH( 38, 15) = 0.127226E+01
+PKER_SWETH( 38, 16) = 0.119252E+01
+PKER_SWETH( 38, 17) = 0.111763E+01
+PKER_SWETH( 38, 18) = 0.104732E+01
+PKER_SWETH( 38, 19) = 0.981289E+00
+PKER_SWETH( 38, 20) = 0.919287E+00
+PKER_SWETH( 38, 21) = 0.861064E+00
+PKER_SWETH( 38, 22) = 0.806390E+00
+PKER_SWETH( 38, 23) = 0.755047E+00
+PKER_SWETH( 38, 24) = 0.706830E+00
+PKER_SWETH( 38, 25) = 0.661549E+00
+PKER_SWETH( 38, 26) = 0.619021E+00
+PKER_SWETH( 38, 27) = 0.579079E+00
+PKER_SWETH( 38, 28) = 0.541562E+00
+PKER_SWETH( 38, 29) = 0.506319E+00
+PKER_SWETH( 38, 30) = 0.473210E+00
+PKER_SWETH( 38, 31) = 0.442100E+00
+PKER_SWETH( 38, 32) = 0.412864E+00
+PKER_SWETH( 38, 33) = 0.385384E+00
+PKER_SWETH( 38, 34) = 0.359545E+00
+PKER_SWETH( 38, 35) = 0.335242E+00
+PKER_SWETH( 38, 36) = 0.312374E+00
+PKER_SWETH( 38, 37) = 0.290843E+00
+PKER_SWETH( 38, 38) = 0.270558E+00
+PKER_SWETH( 38, 39) = 0.251432E+00
+PKER_SWETH( 38, 40) = 0.233380E+00
+PKER_SWETH( 38, 41) = 0.216322E+00
+PKER_SWETH( 38, 42) = 0.200184E+00
+PKER_SWETH( 38, 43) = 0.184895E+00
+PKER_SWETH( 38, 44) = 0.170391E+00
+PKER_SWETH( 38, 45) = 0.156618E+00
+PKER_SWETH( 38, 46) = 0.143532E+00
+PKER_SWETH( 38, 47) = 0.131103E+00
+PKER_SWETH( 38, 48) = 0.119316E+00
+PKER_SWETH( 38, 49) = 0.108173E+00
+PKER_SWETH( 38, 50) = 0.976829E-01
+PKER_SWETH( 38, 51) = 0.878612E-01
+PKER_SWETH( 38, 52) = 0.787186E-01
+PKER_SWETH( 38, 53) = 0.702546E-01
+PKER_SWETH( 38, 54) = 0.624546E-01
+PKER_SWETH( 38, 55) = 0.552898E-01
+PKER_SWETH( 38, 56) = 0.487209E-01
+PKER_SWETH( 38, 57) = 0.427048E-01
+PKER_SWETH( 38, 58) = 0.371990E-01
+PKER_SWETH( 38, 59) = 0.321674E-01
+PKER_SWETH( 38, 60) = 0.275855E-01
+PKER_SWETH( 38, 61) = 0.234416E-01
+PKER_SWETH( 38, 62) = 0.197400E-01
+PKER_SWETH( 38, 63) = 0.165029E-01
+PKER_SWETH( 38, 64) = 0.137600E-01
+PKER_SWETH( 38, 65) = 0.115447E-01
+PKER_SWETH( 38, 66) = 0.988906E-02
+PKER_SWETH( 38, 67) = 0.879852E-02
+PKER_SWETH( 38, 68) = 0.826489E-02
+PKER_SWETH( 38, 69) = 0.824680E-02
+PKER_SWETH( 38, 70) = 0.867704E-02
+PKER_SWETH( 38, 71) = 0.947507E-02
+PKER_SWETH( 38, 72) = 0.105465E-01
+PKER_SWETH( 38, 73) = 0.118092E-01
+PKER_SWETH( 38, 74) = 0.131773E-01
+PKER_SWETH( 38, 75) = 0.145933E-01
+PKER_SWETH( 38, 76) = 0.160093E-01
+PKER_SWETH( 38, 77) = 0.173932E-01
+PKER_SWETH( 38, 78) = 0.187254E-01
+PKER_SWETH( 38, 79) = 0.199952E-01
+PKER_SWETH( 38, 80) = 0.211980E-01
+PKER_SWETH( 39, 1) = 0.312540E+01
+PKER_SWETH( 39, 2) = 0.293289E+01
+PKER_SWETH( 39, 3) = 0.275212E+01
+PKER_SWETH( 39, 4) = 0.258238E+01
+PKER_SWETH( 39, 5) = 0.242300E+01
+PKER_SWETH( 39, 6) = 0.227335E+01
+PKER_SWETH( 39, 7) = 0.213282E+01
+PKER_SWETH( 39, 8) = 0.200087E+01
+PKER_SWETH( 39, 9) = 0.187697E+01
+PKER_SWETH( 39, 10) = 0.176063E+01
+PKER_SWETH( 39, 11) = 0.165139E+01
+PKER_SWETH( 39, 12) = 0.154881E+01
+PKER_SWETH( 39, 13) = 0.145249E+01
+PKER_SWETH( 39, 14) = 0.136204E+01
+PKER_SWETH( 39, 15) = 0.127712E+01
+PKER_SWETH( 39, 16) = 0.119737E+01
+PKER_SWETH( 39, 17) = 0.112249E+01
+PKER_SWETH( 39, 18) = 0.105218E+01
+PKER_SWETH( 39, 19) = 0.986154E+00
+PKER_SWETH( 39, 20) = 0.924155E+00
+PKER_SWETH( 39, 21) = 0.865936E+00
+PKER_SWETH( 39, 22) = 0.811266E+00
+PKER_SWETH( 39, 23) = 0.759928E+00
+PKER_SWETH( 39, 24) = 0.711718E+00
+PKER_SWETH( 39, 25) = 0.666443E+00
+PKER_SWETH( 39, 26) = 0.623925E+00
+PKER_SWETH( 39, 27) = 0.583993E+00
+PKER_SWETH( 39, 28) = 0.546488E+00
+PKER_SWETH( 39, 29) = 0.511260E+00
+PKER_SWETH( 39, 30) = 0.478169E+00
+PKER_SWETH( 39, 31) = 0.447081E+00
+PKER_SWETH( 39, 32) = 0.417870E+00
+PKER_SWETH( 39, 33) = 0.390420E+00
+PKER_SWETH( 39, 34) = 0.364617E+00
+PKER_SWETH( 39, 35) = 0.340357E+00
+PKER_SWETH( 39, 36) = 0.317540E+00
+PKER_SWETH( 39, 37) = 0.296070E+00
+PKER_SWETH( 39, 38) = 0.275857E+00
+PKER_SWETH( 39, 39) = 0.256815E+00
+PKER_SWETH( 39, 40) = 0.238861E+00
+PKER_SWETH( 39, 41) = 0.221918E+00
+PKER_SWETH( 39, 42) = 0.205910E+00
+PKER_SWETH( 39, 43) = 0.190767E+00
+PKER_SWETH( 39, 44) = 0.176424E+00
+PKER_SWETH( 39, 45) = 0.162820E+00
+PKER_SWETH( 39, 46) = 0.149905E+00
+PKER_SWETH( 39, 47) = 0.137638E+00
+PKER_SWETH( 39, 48) = 0.125990E+00
+PKER_SWETH( 39, 49) = 0.114947E+00
+PKER_SWETH( 39, 50) = 0.104510E+00
+PKER_SWETH( 39, 51) = 0.946861E-01
+PKER_SWETH( 39, 52) = 0.854898E-01
+PKER_SWETH( 39, 53) = 0.769298E-01
+PKER_SWETH( 39, 54) = 0.690050E-01
+PKER_SWETH( 39, 55) = 0.617007E-01
+PKER_SWETH( 39, 56) = 0.549886E-01
+PKER_SWETH( 39, 57) = 0.488307E-01
+PKER_SWETH( 39, 58) = 0.431836E-01
+PKER_SWETH( 39, 59) = 0.380031E-01
+PKER_SWETH( 39, 60) = 0.332495E-01
+PKER_SWETH( 39, 61) = 0.288898E-01
+PKER_SWETH( 39, 62) = 0.249005E-01
+PKER_SWETH( 39, 63) = 0.212702E-01
+PKER_SWETH( 39, 64) = 0.180010E-01
+PKER_SWETH( 39, 65) = 0.151081E-01
+PKER_SWETH( 39, 66) = 0.126179E-01
+PKER_SWETH( 39, 67) = 0.105619E-01
+PKER_SWETH( 39, 68) = 0.896792E-02
+PKER_SWETH( 39, 69) = 0.785453E-02
+PKER_SWETH( 39, 70) = 0.722272E-02
+PKER_SWETH( 39, 71) = 0.704369E-02
+PKER_SWETH( 39, 72) = 0.727131E-02
+PKER_SWETH( 39, 73) = 0.784505E-02
+PKER_SWETH( 39, 74) = 0.868311E-02
+PKER_SWETH( 39, 75) = 0.970864E-02
+PKER_SWETH( 39, 76) = 0.108569E-01
+PKER_SWETH( 39, 77) = 0.120624E-01
+PKER_SWETH( 39, 78) = 0.132824E-01
+PKER_SWETH( 39, 79) = 0.144849E-01
+PKER_SWETH( 39, 80) = 0.156487E-01
+PKER_SWETH( 40, 1) = 0.312957E+01
+PKER_SWETH( 40, 2) = 0.293706E+01
+PKER_SWETH( 40, 3) = 0.275629E+01
+PKER_SWETH( 40, 4) = 0.258655E+01
+PKER_SWETH( 40, 5) = 0.242717E+01
+PKER_SWETH( 40, 6) = 0.227752E+01
+PKER_SWETH( 40, 7) = 0.213699E+01
+PKER_SWETH( 40, 8) = 0.200504E+01
+PKER_SWETH( 40, 9) = 0.188114E+01
+PKER_SWETH( 40, 10) = 0.176480E+01
+PKER_SWETH( 40, 11) = 0.165556E+01
+PKER_SWETH( 40, 12) = 0.155298E+01
+PKER_SWETH( 40, 13) = 0.145666E+01
+PKER_SWETH( 40, 14) = 0.136622E+01
+PKER_SWETH( 40, 15) = 0.128129E+01
+PKER_SWETH( 40, 16) = 0.120155E+01
+PKER_SWETH( 40, 17) = 0.112667E+01
+PKER_SWETH( 40, 18) = 0.105636E+01
+PKER_SWETH( 40, 19) = 0.990335E+00
+PKER_SWETH( 40, 20) = 0.928339E+00
+PKER_SWETH( 40, 21) = 0.870123E+00
+PKER_SWETH( 40, 22) = 0.815456E+00
+PKER_SWETH( 40, 23) = 0.764122E+00
+PKER_SWETH( 40, 24) = 0.715917E+00
+PKER_SWETH( 40, 25) = 0.670648E+00
+PKER_SWETH( 40, 26) = 0.628136E+00
+PKER_SWETH( 40, 27) = 0.588213E+00
+PKER_SWETH( 40, 28) = 0.550717E+00
+PKER_SWETH( 40, 29) = 0.515501E+00
+PKER_SWETH( 40, 30) = 0.482423E+00
+PKER_SWETH( 40, 31) = 0.451352E+00
+PKER_SWETH( 40, 32) = 0.422161E+00
+PKER_SWETH( 40, 33) = 0.394734E+00
+PKER_SWETH( 40, 34) = 0.368959E+00
+PKER_SWETH( 40, 35) = 0.344733E+00
+PKER_SWETH( 40, 36) = 0.321955E+00
+PKER_SWETH( 40, 37) = 0.300532E+00
+PKER_SWETH( 40, 38) = 0.280375E+00
+PKER_SWETH( 40, 39) = 0.261398E+00
+PKER_SWETH( 40, 40) = 0.243522E+00
+PKER_SWETH( 40, 41) = 0.226669E+00
+PKER_SWETH( 40, 42) = 0.210766E+00
+PKER_SWETH( 40, 43) = 0.195742E+00
+PKER_SWETH( 40, 44) = 0.181533E+00
+PKER_SWETH( 40, 45) = 0.168076E+00
+PKER_SWETH( 40, 46) = 0.155315E+00
+PKER_SWETH( 40, 47) = 0.143204E+00
+PKER_SWETH( 40, 48) = 0.131702E+00
+PKER_SWETH( 40, 49) = 0.120785E+00
+PKER_SWETH( 40, 50) = 0.110437E+00
+PKER_SWETH( 40, 51) = 0.100659E+00
+PKER_SWETH( 40, 52) = 0.914575E-01
+PKER_SWETH( 40, 53) = 0.828446E-01
+PKER_SWETH( 40, 54) = 0.748281E-01
+PKER_SWETH( 40, 55) = 0.674064E-01
+PKER_SWETH( 40, 56) = 0.605652E-01
+PKER_SWETH( 40, 57) = 0.542777E-01
+PKER_SWETH( 40, 58) = 0.485071E-01
+PKER_SWETH( 40, 59) = 0.432118E-01
+PKER_SWETH( 40, 60) = 0.383491E-01
+PKER_SWETH( 40, 61) = 0.338780E-01
+PKER_SWETH( 40, 62) = 0.297634E-01
+PKER_SWETH( 40, 63) = 0.259760E-01
+PKER_SWETH( 40, 64) = 0.224957E-01
+PKER_SWETH( 40, 65) = 0.193110E-01
+PKER_SWETH( 40, 66) = 0.164227E-01
+PKER_SWETH( 40, 67) = 0.138417E-01
+PKER_SWETH( 40, 68) = 0.115876E-01
+PKER_SWETH( 40, 69) = 0.969034E-02
+PKER_SWETH( 40, 70) = 0.817663E-02
+PKER_SWETH( 40, 71) = 0.706594E-02
+PKER_SWETH( 40, 72) = 0.636811E-02
+PKER_SWETH( 40, 73) = 0.606885E-02
+PKER_SWETH( 40, 74) = 0.613458E-02
+PKER_SWETH( 40, 75) = 0.651889E-02
+PKER_SWETH( 40, 76) = 0.715696E-02
+PKER_SWETH( 40, 77) = 0.798335E-02
+PKER_SWETH( 40, 78) = 0.893308E-02
+PKER_SWETH( 40, 79) = 0.995468E-02
+PKER_SWETH( 40, 80) = 0.110025E-01
END IF
!
END SUBROUTINE READ_XKER_SWETH
diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index de986a0cd5eb891a956958436988b5cb6cc85432..4e845ffbae6d27683d7711690ea9f02d9c19884d 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90
@@ -13,7 +13,7 @@ INTERFACE
OSUBG_COND, OSIGMAS, HSUBG_AUCV, &
PTSTEP, PZZ, PRHODJ, PRHODREF, PEXNREF, &
PPABST, PTHT, PRT, PSIGS, PSIGQSAT, PMFCONV, &
- PTHM, PRCM, PPABSM, &
+ PTHM, PRCM, PPABSTT, &
PW_ACT,PDTHRAD, PTHS, PRS, PSVT, PSVS, PSRCS, PCLDFR, PICEFR,&
PCIT, OSEDIC, OACTIT, OSEDC, OSEDI, &
ORAIN, OWARM, OHHONI, OCONVHG, &
@@ -67,7 +67,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at time t
REAL, INTENT(IN) :: PSIGQSAT! coeff applied to qsat variance contribution
REAL, DIMENSION(:,:,:), INTENT(IN) :: PMFCONV ! convective mass flux
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-Dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Pressure time t-Dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Pressure time t+Dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at time t-Dt
!
!
@@ -152,7 +152,7 @@ END MODULE MODI_RESOLVED_CLOUD
OSUBG_COND, OSIGMAS, HSUBG_AUCV, &
PTSTEP, PZZ, PRHODJ, PRHODREF, PEXNREF, &
PPABST, PTHT, PRT, PSIGS, PSIGQSAT, PMFCONV, &
- PTHM, PRCM, PPABSM, &
+ PTHM, PRCM, PPABSTT, &
PW_ACT,PDTHRAD, PTHS, PRS, PSVT, PSVS, PSRCS, PCLDFR,PICEFR,&
PCIT, OSEDIC, OACTIT, OSEDC, OSEDI, &
ORAIN, OWARM, OHHONI, OCONVHG, &
@@ -373,7 +373,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at time t
REAL, INTENT(IN) :: PSIGQSAT! coeff applied to qsat variance contribution
REAL, DIMENSION(:,:,:), INTENT(IN) :: PMFCONV ! convective mass flux
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-Dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Pressure time t-Dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Pressure time t+Dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at time t-Dt
!
!
@@ -753,7 +753,7 @@ SELECT CASE ( HCLOUD )
CALL RAIN_C2R2_KHKO ( HCLOUD, OACTIT, OSEDC, ORAIN, KSPLITR, PTSTEP, KMI, &
TPFILE, PZZ, PRHODJ, PRHODREF, PEXNREF, &
PPABST, PTHT, PRT(:,:,:,1), PRT(:,:,:,2), PRT(:,:,:,3), &
- PTHM, PRCM, PPABSM, &
+ PTHM, PRCM, PPABSTT, &
PW_ACT,PDTHRAD,PTHS, PRS(:,:,:,1),PRS(:,:,:,2),PRS(:,:,:,3), &
PSVT(:,:,:,NSV_C2R2BEG), PSVT(:,:,:,NSV_C2R2BEG+1), &
PSVT(:,:,:,NSV_C2R2BEG+2), PSVS(:,:,:,NSV_C2R2BEG), &
@@ -767,7 +767,7 @@ SELECT CASE ( HCLOUD )
!
IF (LSUPSAT) THEN
CALL KHKO_NOTADJUST (KRR, KTCOUNT,TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PZZ, &
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PZZ, &
PTHT,PRT(:,:,:,1),PRT(:,:,:,2),PRT(:,:,:,3), &
PTHS,PRS(:,:,:,1),PRS(:,:,:,2),PRS(:,:,:,3), &
PSVS(:,:,:,NSV_C2R2BEG+1), PSVS(:,:,:,NSV_C2R2BEG), &
@@ -993,7 +993,7 @@ SELECT CASE ( HCLOUD )
CALL LIMA (1, IKU, 1, &
PTSTEP, TPFILE, &
PRHODREF, PEXNREF, ZDZZ, &
- PRHODJ, PPABSM, PPABST, &
+ PRHODJ, PPABST, &
NMOD_CCN, NMOD_IFN, NMOD_IMM, &
PDTHRAD, PTHT, PRT, &
PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), PW_ACT, &
@@ -1004,8 +1004,8 @@ SELECT CASE ( HCLOUD )
IF (OWARM) CALL LIMA_WARM(OACTIT, OSEDC, ORAIN, KSPLITR, PTSTEP, KMI, &
TPFILE, KRR, PZZ, PRHODJ, &
- PRHODREF, PEXNREF, PW_ACT, PPABSM, PPABST, &
- PDTHRAD, PRCM, &
+ PRHODREF, PEXNREF, PW_ACT, PPABST, &
+ PDTHRAD, &
PTHT, PRT, PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PTHS, PRS, PSVS(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PINPRC, PINPRR, PINDEP, PINPRR3D, PEVAP3D )
@@ -1013,7 +1013,6 @@ SELECT CASE ( HCLOUD )
IF (LCOLD) CALL LIMA_COLD(OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_ACT, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PTHS, PRS, PSVS(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PINPRS, PINPRG, PINPRH )
@@ -1021,7 +1020,6 @@ SELECT CASE ( HCLOUD )
IF (OWARM .AND. LCOLD) CALL LIMA_MIXED(OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_ACT, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PTHS, PRS, PSVS(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END) )
ENDIF
@@ -1030,14 +1028,14 @@ SELECT CASE ( HCLOUD )
!
IF (LSPRO) THEN
CALL LIMA_NOTADJUST (KMI, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PEXNREF, PZZ, &
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PEXNREF, PZZ, &
PTHT,PRT, PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PTHS,PRS, PSVS(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PCLDFR, PICEFR, PRAINFR, PSRCS )
ELSE IF (LPTSPLIT) THEN
CALL LIMA_ADJUST_SPLIT(KRR, KMI, TPFILE, CCONDENS, CLAMBDA3, &
OSUBG_COND, OSIGMAS, PTSTEP, PSIGQSAT, &
- PRHODREF, PRHODJ, PEXNREF, PPABST, PSIGS, PMFCONV, PPABST, ZZZ, &
+ PRHODREF, PRHODJ, PEXNREF, PSIGS, PMFCONV, PPABST, PPABSTT, ZZZ,&
PDTHRAD, PW_ACT, &
PRT, PRS, PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PSVS(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
@@ -1045,7 +1043,7 @@ SELECT CASE ( HCLOUD )
ELSE
CALL LIMA_ADJUST(KRR, KMI, TPFILE, &
OSUBG_COND, PTSTEP, &
- PRHODREF, PRHODJ, PEXNREF, PPABST, PPABST, &
+ PRHODREF, PRHODJ, PEXNREF, PPABST, PPABSTT, &
PRT, PRS, PSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PSVS(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
PTHS, PSRCS, PCLDFR, PICEFR, PRAINFR )
diff --git a/src/MNH/set_conc_lima.f90 b/src/MNH/set_conc_lima.f90
index 3eeda7f5adc74f5e6b5f28bf2fd41cb64e56007e..09e6bc1e51c5658584cd908ebddbd8803ee797db 100644
--- a/src/MNH/set_conc_lima.f90
+++ b/src/MNH/set_conc_lima.f90
@@ -73,10 +73,12 @@ contains
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LCOLD, LWARM, LRAIN, NMOD_CCN, NMOD_IFN
-USE MODD_PARAM_LIMA_COLD, ONLY : XAI, XBI
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LCOLD, LWARM, LRAIN, NMOD_CCN, NMOD_IFN, &
+ NMOM_C, NMOM_R, NMOM_I
+USE MODD_PARAM_LIMA_COLD, ONLY : XAI, XBI, XAS, XBS
+USE MODD_PARAM_LIMA_MIXED,ONLY : XAG, XBG, XAH, XBH
USE MODD_NSV, ONLY : NSV_LIMA_BEG_A, NSV_LIMA_NC_A, NSV_LIMA_NR_A, NSV_LIMA_CCN_ACTI_A, &
- NSV_LIMA_NI_A, NSV_LIMA_IFN_NUCL_A
+ NSV_LIMA_NI_A, NSV_LIMA_NS_A, NSV_LIMA_NG_A, NSV_LIMA_NH_A, NSV_LIMA_IFN_NUCL_A
USE MODD_CST, ONLY : XPI, XRHOLW, XRHOLI
USE MODD_CONF, ONLY : NVERB
USE MODD_CONF_n, ONLY : NRR
@@ -99,7 +101,7 @@ REAL, DIMENSION(:,:,:,NSV_LIMA_BEG_A(kmi):), INTENT(INOUT):: PSVT ! microph
!
INTEGER :: IRESP ! Return code of FM routines
INTEGER :: ILUOUT ! Logical unit number of output-listing
-REAL :: ZCONCC, ZCONCR, ZCONCI
+REAL :: ZCONC
!
!-------------------------------------------------------------------------------
!* 1. RETRIEVE LOGICAL UNIT NUMBER
@@ -110,13 +112,13 @@ ILUOUT = TLUOUT%NLU
!* 2. INITIALIZATION
! --------------
!
-IF (LWARM .AND. NRR.GE.2) THEN
+IF (LWARM .AND. NRR.GE.2 .AND. NMOM_C.GE.2) THEN
!
! droplets
!
- ZCONCC = 300.E6 ! droplet concentration set at 300 cm-3
+ ZCONC = 300.E6 ! droplet concentration set at 300 cm-3
WHERE ( PRT(:,:,:,2) > 1.E-11 )
- PSVT(:,:,:,NSV_LIMA_NC_A(kmi)) = ZCONCC
+ PSVT(:,:,:,NSV_LIMA_NC_A(kmi)) = ZCONC
END WHERE
WHERE ( PRT(:,:,:,2) <= 1.E-11 )
PRT(:,:,:,2) = 0.0
@@ -125,54 +127,54 @@ IF (LWARM .AND. NRR.GE.2) THEN
IF (NMOD_CCN .GE. 1) THEN
WHERE ( PRT(:,:,:,2) > 1.E-11 )
- PSVT(:,:,:,NSV_LIMA_CCN_ACTI_A(kmi)) = ZCONCC
+ PSVT(:,:,:,NSV_LIMA_CCN_ACTI_A(kmi)) = ZCONC
END WHERE
WHERE ( PRT(:,:,:,2) <= 1.E-11 )
PSVT(:,:,:,NSV_LIMA_CCN_ACTI_A(kmi)) = 0.0
END WHERE
END IF
- IF( NVERB >= 5 ) THEN
- WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The droplet concentration has "
- WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
- END IF
+! IF( NVERB >= 5 ) THEN
+! WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The droplet concentration has "
+! WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
+! END IF
END IF
!
-IF (LWARM .AND. LRAIN .AND. NRR.GE.3) THEN
+IF (LWARM .AND. LRAIN .AND. NRR.GE.3 .AND. NMOM_R.GE.2) THEN
!
! drops
!
- ZCONCR = (1.E7)**3/(XPI*XRHOLW) ! cf XCONCR_PARAM_INI in ini_rain_c2r2.f90
+ ZCONC = (1.E7)**3/(XPI*XRHOLW) ! cf XCONCR_PARAM_INI in ini_rain_c2r2.f90
IF (HGETCLOUD == 'INI1') THEN ! init from REVE scheme
PSVT(:,:,:,NSV_LIMA_NR_A(kmi)) = 0.0
ELSE ! init from KESS, ICE3...
WHERE ( PRT(:,:,:,3) > 1.E-11 )
PSVT(:,:,:,NSV_LIMA_NR_A(kmi)) = MAX( SQRT(SQRT(PRHODREF(:,:,:)*PRT(:,:,:,3) &
- *ZCONCR)),1. )
+ *ZCONC)),1. )
END WHERE
WHERE ( PRT(:,:,:,3) <= 1.E-11 )
PRT(:,:,:,3) = 0.0
PSVT(:,:,:,NSV_LIMA_NR_A(kmi)) = 0.0
END WHERE
- IF( NVERB >= 5 ) THEN
- WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The raindrop concentration has "
- WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
- END IF
+! IF( NVERB >= 5 ) THEN
+! WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The raindrop concentration has "
+! WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
+! END IF
END IF
END IF
!
-IF (LCOLD .AND. NRR.GE.4) THEN
+IF (LCOLD .AND. NRR.GE.4 .AND. NMOM_I.GE.2) THEN
!
! ice crystals
!
- ZCONCI = 100.E3 ! maximum ice concentration set at 100/L
+ ZCONC = 100.E3 ! maximum ice concentration set at 100/L
WHERE ( PRT(:,:,:,4) > 1.E-11 )
!
! PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN( PRHODREF(:,:,:) / &
! ( XRHOLI * XAI*(10.E-06)**XBI * PRT(:,:,:,4) ), &
-! ZCONCI )
+! ZCONC )
! Correction
- PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN(PRT(:,:,:,4)/(0.82*(10.E-06)**2.5),ZCONCI )
+ PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN(PRT(:,:,:,4)/(0.82*(10.E-06)**2.5),ZCONC )
END WHERE
WHERE ( PRT(:,:,:,4) <= 1.E-11 )
PRT(:,:,:,4) = 0.0
@@ -188,11 +190,50 @@ IF (LCOLD .AND. NRR.GE.4) THEN
END WHERE
END IF
- IF( NVERB >= 5 ) THEN
- WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The cloud ice concentration has "
- WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
- END IF
+! IF( NVERB >= 5 ) THEN
+! WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The cloud ice concentration has "
+! WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
+! END IF
+!
+END IF
+!
+IF (NSV_LIMA_NS_A(KMI).GE.1) THEN
+!
+! snow
+!
+ ZCONC = 1./ (XAS*0.001**XBS) ! 1mm particle size
+ WHERE ( PRT(:,:,:,5) > 1.E-11 )
+ PSVT(:,:,:,NSV_LIMA_NS_A(KMI)) = PRT(:,:,:,5) * ZCONC
+ ELSEWHERE
+ PRT(:,:,:,5) = 0.0
+ PSVT(:,:,:,NSV_LIMA_NS_A(KMI)) = 0.0
+ END WHERE
+END IF
!
+IF (NSV_LIMA_NG_A(KMI).GE.1) THEN
+!
+! graupel
+!
+ ZCONC = 1./ (XAG*0.001**XBG) ! 1mm particle size
+ WHERE ( PRT(:,:,:,6) > 1.E-11 )
+ PSVT(:,:,:,NSV_LIMA_NG_A(KMI)) = PRT(:,:,:,6) * ZCONC
+ ELSEWHERE
+ PRT(:,:,:,6) = 0.0
+ PSVT(:,:,:,NSV_LIMA_NG_A(KMI)) = 0.0
+ END WHERE
+END IF
+!
+IF (NSV_LIMA_NH_A(KMI).GE.1) THEN
+!
+! hail
+!
+ ZCONC = 1./ (XAH*0.001**XBH) ! 1mm particle size
+ WHERE ( PRT(:,:,:,7) > 1.E-11 )
+ PSVT(:,:,:,NSV_LIMA_NH_A(KMI)) = PRT(:,:,:,7) * ZCONC
+ ELSEWHERE
+ PRT(:,:,:,7) = 0.0
+ PSVT(:,:,:,NSV_LIMA_NH_A(KMI)) = 0.0
+ END WHERE
END IF
!
END SUBROUTINE SET_CONC_LIMA
diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90
index 81d49856c651454e06a50734e65120171de54dca..3e41b1feb1a5fb63f19f0d9d98cc6471b48b9c01 100644
--- a/src/MNH/sources_neg_correct.f90
+++ b/src/MNH/sources_neg_correct.f90
@@ -27,7 +27,8 @@ use modd_budget, only: lbudget_th, lbudget_rv, lbudget_rc, lbudget_rr, lbudg
NBUDGET_RS, NBUDGET_RG, NBUDGET_RH, NBUDGET_SV1, &
tbudgets
use modd_cst, only: xci, xcl, xcpd, xcpv, xlstt, xlvtt, xp00, xrd, xtt
-use modd_nsv, only: nsv_c2r2beg, nsv_c2r2end, nsv_lima_beg, nsv_lima_end, nsv_lima_nc, nsv_lima_nr, nsv_lima_ni
+use modd_nsv, only: nsv_c2r2beg, nsv_c2r2end, nsv_lima_beg, nsv_lima_end, nsv_lima_nc, nsv_lima_nr,&
+ nsv_lima_ni, nsv_lima_ns, nsv_lima_ng, nsv_lima_nh
use modd_param_lima, only: lcold_lima => lcold, lrain_lima => lrain, lspro_lima => lspro, lwarm_lima => lwarm, &
xctmin_lima => xctmin, xrtmin_lima => xrtmin
@@ -54,6 +55,7 @@ integer :: jrmax
integer :: jsv
integer :: isv_lima_end
real, dimension(:, :, :), allocatable :: zt, zexn, zlv, zls, zcph, zcor
+logical, dimension(:, :, :), allocatable :: zmask
if ( krr == 0 ) return
@@ -236,67 +238,109 @@ CLOUD: select case ( hcloud )
!
!
case( 'LIMA' )
+ allocate( zmask ( Size( prths, 1 ), Size( prths, 2 ), Size( prths, 3 ) ) )
! Correction where rc<0 or Nc<0
- if ( lwarm_lima ) then
- where ( prrs(:, :, :, 2) < xrtmin_lima(2) / ptstep .or. prsvs(:, :, :, nsv_lima_nc) < xctmin_lima(2) / ptstep )
- prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 2)
- prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 2) * zlv(:, :, :) / &
- ( zcph(:, :, :) * zexn(:, :, :) )
- prrs(:, :, :, 2) = 0.
- prsvs(:, :, :, nsv_lima_nc) = 0.
- end where
- where ( prrs(:, :, :, 1) < 0. .and. prrs(:, :, :, 2) > 0. )
- prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 2)
- prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 2) * zlv(:, :, :) / &
- ( zcph(:, :, :) * zexn(:, :, :) )
- prrs(:, :, :, 2) = 0.
- prsvs(:, :, :, nsv_lima_nc) = 0.
- end where
- end if
+ if ( krr.GE.2 ) then
+ zmask(:,:,:)=(prrs(:, :, :, 2) < xrtmin_lima(2) / ptstep)
+ if (nsv_lima_nc.gt.0) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_nc) < xctmin_lima(2) / ptstep )
+ where ( zmask(:,:,:) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 2)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 2) * zlv(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 2) = 0.
+ end where
+ where ( prrs(:, :, :, 1) < 0. .and. prrs(:, :, :, 2) > 0. )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 2)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 2) * zlv(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 2) = 0.
+ end where
+ if (nsv_lima_nc.gt.0) then
+ where (prrs(:, :, :, 2) == 0.) prsvs(:, :, :, nsv_lima_nc) = 0.
+ end if
+ end if
! Correction where rr<0 or Nr<0
- if ( lwarm_lima .and. lrain_lima ) then
- where ( prrs(:, :, :, 3) < xrtmin_lima(3) / ptstep .or. prsvs(:, :, :, nsv_lima_nr) < xctmin_lima(3) / ptstep )
- prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 3)
- prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 3) * zlv(:, :, :) / &
- ( zcph(:, :, :) * zexn(:, :, :) )
- prrs(:, :, :, 3) = 0.
- prsvs(:, :, :, nsv_lima_nr) = 0.
- end where
- end if
+ if ( krr.GE.3 .and. hbudname.ne.'NETUR' ) then
+ zmask(:,:,:)=(prrs(:, :, :, 3) < xrtmin_lima(3) / ptstep)
+ if (nsv_lima_nr.gt.0) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_nr) < xctmin_lima(3) / ptstep )
+ where ( zmask(:,:,:) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 3)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 3) * zlv(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 3) = 0.
+ end where
+ if (nsv_lima_nr.gt.0) then
+ where (prrs(:, :, :, 3) == 0.) prsvs(:, :, :, nsv_lima_nr) = 0.
+ end if
+ end if
! Correction where ri<0 or Ni<0
- if ( lcold_lima ) then
- where ( prrs(:, :, :, 4) < xrtmin_lima(4) / ptstep .or. prsvs(:, :, :, nsv_lima_ni) < xctmin_lima(4) / ptstep )
- prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 4)
- prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 4) * zls(:, :, :) / &
- ( zcph(:, :, :) * zexn(:, :, :) )
- prrs(:, :, :, 4) = 0.
- prsvs(:, :, :, nsv_lima_ni) = 0.
- end where
- if ( hbudname /= 'NETUR' ) then
- do jr = 5, Size( prrs, 4 )
- where ( prrs(:, :, :, jr) < 0. )
- prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, jr)
- prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, jr) * zls(:, :, :) / &
- ( zcph(:, :, :) * zexn(:, :, :) )
- prrs(:, :, :, jr) = 0.
- end where
- end do
- end if
- if(krr > 3) then
+ if ( krr.GE.4 ) then
+ zmask(:,:,:)=(prrs(:, :, :, 4) < xrtmin_lima(4) / ptstep)
+ if (nsv_lima_ni.gt.0) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_ni) < xctmin_lima(4) / ptstep)
+ where ( zmask(:,:,:) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 4)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 4) * zls(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 4) = 0.
+ end where
allocate( zcor( Size( prths, 1 ), Size( prths, 2 ), Size( prths, 3 ) ) )
where ( prrs(:, :, :, 1) < 0. .and. prrs(:, :, :, 4) > 0. )
- zcor(:, :, :) = Min( -prrs(:, :, :, 1), prrs(:, :, :, 4) )
- prrs(:, :, :, 1) = prrs(:, :, :, 1) + zcor(:, :, :)
- prths(:, :, :) = prths(:, :, :) - zcor(:, :, :) * zls(:, :, :) / &
- ( zcph(:, :, :) * zexn(:, :, :) )
- prrs(:, :, :, 4) = prrs(:, :, :, 4) - zcor(:, :, :)
+ zcor(:, :, :) = Min( -prrs(:, :, :, 1), prrs(:, :, :, 4) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + zcor(:, :, :)
+ prths(:, :, :) = prths(:, :, :) - zcor(:, :, :) * zls(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 4) = prrs(:, :, :, 4) - zcor(:, :, :)
end where
deallocate( zcor )
- end if
- end if
-
+ if (nsv_lima_ni.gt.0) then
+ where (prrs(:, :, :, 4) == 0.) prsvs(:, :, :, nsv_lima_ni) = 0.
+ end if
+ end if
+! Snow
+ if ( krr.GE.5 .and. hbudname.ne.'NETUR' ) then
+ zmask(:,:,:)=(prrs(:, :, :, 5) < xrtmin_lima(5) / ptstep)
+ if (nsv_lima_ns.gt.0) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_ns) < xctmin_lima(5) / ptstep )
+ where ( zmask(:,:,:) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 5)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 5) * zls(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 5) = 0.
+ end where
+ if (nsv_lima_ns.gt.0) then
+ where (prrs(:, :, :, 5) == 0.) prsvs(:, :, :, nsv_lima_ns) = 0.
+ end if
+ end if
+! Graupel
+ if ( krr.GE.6 .and. hbudname.ne.'NETUR' ) then
+ zmask(:,:,:)=(prrs(:, :, :, 6) < xrtmin_lima(6) / ptstep)
+ if (nsv_lima_ng.gt.0) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_ng) < xctmin_lima(6) / ptstep )
+ where ( zmask(:,:,:) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 6)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 6) * zls(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 6) = 0.
+ end where
+ if (nsv_lima_ng.gt.0) then
+ where (prrs(:, :, :, 6) == 0.) prsvs(:, :, :, nsv_lima_ng) = 0.
+ end if
+ end if
+! Hail
+ if ( krr.GE.7 .and. hbudname.ne.'NETUR' ) then
+ zmask(:,:,:)=(prrs(:, :, :, 7) < xrtmin_lima(7) / ptstep)
+ if (nsv_lima_nh.gt.0) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_nh) < xctmin_lima(7) / ptstep )
+ where ( zmask(:,:,:) )
+ prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 7)
+ prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 7) * zls(:, :, :) / &
+ ( zcph(:, :, :) * zexn(:, :, :) )
+ prrs(:, :, :, 7) = 0.
+ end where
+ if (nsv_lima_nh.gt.0) then
+ where (prrs(:, :, :, 7) == 0.) prsvs(:, :, :, nsv_lima_nh) = 0.
+ end if
+ end if
+!
prsvs(:, :, :, nsv_lima_beg : isv_lima_end) = Max( 0.0, prsvs(:, :, :, nsv_lima_beg : isv_lima_end) )
-
+ deallocate(zmask)
end select CLOUD
diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90
index 44aa7c3ce0835e7c48c58e373e25a9c06ff8c636..881fd4e6b57fdd0eddef14baf93d6fb0bcc075be 100644
--- a/src/MNH/spawn_field2.f90
+++ b/src/MNH/spawn_field2.f90
@@ -916,24 +916,36 @@ IF (PRESENT(TPSONFILE)) THEN
IF (JSV .EQ. NSV_LIMA_NI) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(1))//'T'
END IF
+ ! Ns
+ IF (JSV .EQ. NSV_LIMA_NS) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(2))//'T'
+ END IF
+ ! Ng
+ IF (JSV .EQ. NSV_LIMA_NG) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(3))//'T'
+ END IF
+ ! Nh
+ IF (JSV .EQ. NSV_LIMA_NH) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(4))//'T'
+ END IF
! N IFN free
IF (JSV .GE. NSV_LIMA_IFN_FREE .AND. JSV .LT. NSV_LIMA_IFN_NUCL) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(2))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//INDICE//'T'
END IF
! N IFN nucl
IF (JSV .GE. NSV_LIMA_IFN_NUCL .AND. JSV .LT. NSV_LIMA_IFN_NUCL + NMOD_IFN) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_NUCL + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(3))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(6))//INDICE//'T'
END IF
! N IMM nucl
IF (JSV .GE. NSV_LIMA_IMM_NUCL .AND. JSV .LT. NSV_LIMA_IMM_NUCL + NMOD_IMM) THEN
WRITE(INDICE,'(I2.2)')(NINDICE_CCN_IMM(JSV - NSV_LIMA_IMM_NUCL + 1))
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(4))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(7))//INDICE//'T'
END IF
! Hom. freez. of CCN
IF (JSV .EQ. NSV_LIMA_HOM_HAZE) THEN
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(8))//'T'
END IF
! Supersaturation
IF (JSV .EQ. NSV_LIMA_SPRO) THEN
diff --git a/src/MNH/spawn_model2.f90 b/src/MNH/spawn_model2.f90
index 7d286b6eefcd54cd57468413da56fb828b8fdbba..cea25a6b4983f6f107bf671ebb1d45fe1567f216 100644
--- a/src/MNH/spawn_model2.f90
+++ b/src/MNH/spawn_model2.f90
@@ -290,7 +290,9 @@ USE MODI_GET_SIZEX_LB
USE MODI_GET_SIZEY_LB
!
USE MODD_LIMA_PRECIP_SCAVENGING_n
-USE MODD_PARAM_LIMA
+USE MODD_PARAM_LIMA, ONLY : MDEPOC=>LDEPOC, LSCAV
+USE MODD_PARAM_ICE, ONLY : LDEPOSC
+USE MODD_PARAM_C2R2, ONLY : LDEPOC
USE MODD_PASPOL, ONLY : LPASPOL
!
USE MODD_MPIF
@@ -897,8 +899,9 @@ ELSE
ALLOCATE(XACPRC(0,0))
END IF
!
-IF (CCLOUD(1:3) == 'ICE' .OR. CCLOUD == 'C2R2' &
- .OR. CCLOUD == 'KHKO' ) THEN
+IF (( CCLOUD(1:3) == 'ICE' .AND.LDEPOSC) .OR. &
+ ((CCLOUD=='C2R2' .OR. CCLOUD=='KHKO').AND.LDEPOC) .OR. &
+ ( CCLOUD=='LIMA' .AND.MDEPOC)) THEN
ALLOCATE(XINDEP(IIU,IJU))
ALLOCATE(XACDEP(IIU,IJU))
ELSE
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index fa09f1e10771a1f1875aff1aa465065054b0c96c..974bbcbaa18b8da5eafcb17b415b82b6f4d7257c 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -559,6 +559,9 @@ REAL, DIMENSION(SIZE(PUT,1),SIZE(PUT,2),SIZE(PUT,3)):: ZTT,ZEXNE,ZLV,ZLS,ZCPH,ZC
REAL, DIMENSION(SIZE(PUT,1),SIZE(PUT,2),SIZE(PUT,3)):: ZSHEAR, ZDUDZ, ZDVDZ
TYPE(TFIELDDATA) :: TZFIELD
!
+!Do not change rain, snow, graupel and hail concentrations (mixing ratio is not changed)
+REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3),SIZE(PSVT,4)):: ZRSVS
+!
!------------------------------------------------------------------------------------------
ALLOCATE ( &
ZCP(SIZE(PTHLT,1),SIZE(PTHLT,2),SIZE(PTHLT,3)), &
@@ -623,6 +626,8 @@ IF (HTURBLEN=='BL89' .OR. HTURBLEN=='RM17' .OR. HTURBLEN=='ADAP' .OR. ORMC01) TH
ZRM(:,:,:,:) = PRT(:,:,:,:)
END IF
!
+!Save LIMA scalar variables sources
+ZRSVS(:,:,:,:)=PRSVS(:,:,:,:)
!
!
!----------------------------------------------------------------------------
@@ -1005,6 +1010,13 @@ CALL TURB_VER(KKA,KKU,KKL,KRR, KRRL, KRRI, &
PRUS,PRVS,PRWS,PRTHLS,PRRS,PRSVS, &
PDYP,PTHP,PSIGS,PWTH,PWRC,PWSV )
+IF (HCLOUD == 'LIMA') THEN
+ IF (NSV_LIMA_NR.GT.0) PRSVS(:,:,:,NSV_LIMA_NR) = ZRSVS(:,:,:,NSV_LIMA_NR)
+ IF (NSV_LIMA_NS.GT.0) PRSVS(:,:,:,NSV_LIMA_NS) = ZRSVS(:,:,:,NSV_LIMA_NS)
+ IF (NSV_LIMA_NG.GT.0) PRSVS(:,:,:,NSV_LIMA_NG) = ZRSVS(:,:,:,NSV_LIMA_NG)
+ IF (NSV_LIMA_NH.GT.0) PRSVS(:,:,:,NSV_LIMA_NH) = ZRSVS(:,:,:,NSV_LIMA_NH)
+END IF
+
if ( lbudget_u ) call Budget_store_end( tbudgets(NBUDGET_U), 'VTURB', prus(:, :, :) )
if ( lbudget_v ) call Budget_store_end( tbudgets(NBUDGET_V), 'VTURB', prvs(:, :, :) )
if ( lbudget_w ) call Budget_store_end( tbudgets(NBUDGET_W), 'VTURB', prws(:, :, :) )
@@ -1090,6 +1102,13 @@ if ( hturbdim == '3DIM' ) then
ZTRH, &
PRUS,PRVS,PRWS,PRTHLS,PRRS,PRSVS )
+IF (HCLOUD == 'LIMA') THEN
+ IF (NSV_LIMA_NR.GT.0) PRSVS(:,:,:,NSV_LIMA_NR) = ZRSVS(:,:,:,NSV_LIMA_NR)
+ IF (NSV_LIMA_NS.GT.0) PRSVS(:,:,:,NSV_LIMA_NS) = ZRSVS(:,:,:,NSV_LIMA_NS)
+ IF (NSV_LIMA_NG.GT.0) PRSVS(:,:,:,NSV_LIMA_NG) = ZRSVS(:,:,:,NSV_LIMA_NG)
+ IF (NSV_LIMA_NH.GT.0) PRSVS(:,:,:,NSV_LIMA_NH) = ZRSVS(:,:,:,NSV_LIMA_NH)
+END IF
+
if ( lbudget_u ) call Budget_store_end( tbudgets(NBUDGET_U), 'HTURB', prus(:, :, :) )
if ( lbudget_v ) call Budget_store_end( tbudgets(NBUDGET_V), 'HTURB', prvs(:, :, :) )
if ( lbudget_w ) call Budget_store_end( tbudgets(NBUDGET_W), 'HTURB', prws(:, :, :) )
diff --git a/src/MNH/update_nsv.f90 b/src/MNH/update_nsv.f90
index c706bfe90fb70043a98770e68a2ab27e486a7745..b8e6b36c5063c6b8f83b852a142d51917fede9f4 100644
--- a/src/MNH/update_nsv.f90
+++ b/src/MNH/update_nsv.f90
@@ -83,6 +83,9 @@ NSV_LIMA_CCN_FREE = NSV_LIMA_CCN_FREE_A(KMI)
NSV_LIMA_CCN_ACTI = NSV_LIMA_CCN_ACTI_A(KMI)
NSV_LIMA_SCAVMASS = NSV_LIMA_SCAVMASS_A(KMI)
NSV_LIMA_NI = NSV_LIMA_NI_A(KMI)
+NSV_LIMA_NS = NSV_LIMA_NS_A(KMI)
+NSV_LIMA_NG = NSV_LIMA_NG_A(KMI)
+NSV_LIMA_NH = NSV_LIMA_NH_A(KMI)
NSV_LIMA_IFN_FREE = NSV_LIMA_IFN_FREE_A(KMI)
NSV_LIMA_IFN_NUCL = NSV_LIMA_IFN_NUCL_A(KMI)
NSV_LIMA_IMM_NUCL = NSV_LIMA_IMM_NUCL_A(KMI)
diff --git a/src/MNH/write_aircraft_balloon.f90 b/src/MNH/write_aircraft_balloon.f90
index e132daa83eac80abbaaf8df6e561a57598729e15..f9295b656f516849d6400fde6a9417ca07b1a513 100644
--- a/src/MNH/write_aircraft_balloon.f90
+++ b/src/MNH/write_aircraft_balloon.f90
@@ -452,19 +452,22 @@ IF (SIZE(TPFLYER%SV,2)>=1) THEN
YUNIT (JPROC) = 'kg kg-1'
ENDIF
IF (JSV==NSV_LIMA_NI) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(1))//'T'
+ IF (JSV==NSV_LIMA_NS) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(2))//'T'
+ IF (JSV==NSV_LIMA_NG) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(3))//'T'
+ IF (JSV==NSV_LIMA_NH) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(4))//'T'
IF (JSV .GE. NSV_LIMA_IFN_FREE .AND. JSV .LT. NSV_LIMA_IFN_NUCL) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
- YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(2))//INDICE//'T'
+ YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(5))//INDICE//'T'
ENDIF
IF (JSV .GE. NSV_LIMA_IFN_NUCL .AND. JSV .LT. NSV_LIMA_IFN_NUCL + NMOD_IFN) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_NUCL + 1)
- YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(3))//INDICE//'T'
+ YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(6))//INDICE//'T'
ENDIF
IF (JSV .GE. NSV_LIMA_IMM_NUCL .AND. JSV .LT. NSV_LIMA_IMM_NUCL + NMOD_IMM) THEN
WRITE(INDICE,'(I2.2)')(NINDICE_CCN_IMM(JSV - NSV_LIMA_IMM_NUCL + 1))
- YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(4))//INDICE//'T'
+ YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(7))//INDICE//'T'
ENDIF
- IF (JSV .EQ. NSV_LIMA_HOM_HAZE) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(5))//'T'
+ IF (JSV .EQ. NSV_LIMA_HOM_HAZE) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(8))//'T'
IF (JSV .EQ. NSV_LIMA_SPRO) YTITLE(JPROC)=TRIM(CLIMA_WARM_NAMES(5))//'T'
ZWORK6 (1,1,1,:,1,JPROC) = TPFLYER%SV(:,JSV)
END DO
diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90
index b06f5bc8e3134b7e671d0242579a7d689c21ba40..3e00b993e7f48e0116a9a0977ca1bbf0c2e92eb3 100644
--- a/src/MNH/write_lbn.f90
+++ b/src/MNH/write_lbn.f90
@@ -400,7 +400,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_LIMA_IFN_FREE,NSV_LIMA_IFN_FREE+NMOD_IFN-1
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
IF(NSIZELBXSV_ll /= 0) THEN
- TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2)))//INDICE
+ TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(5)))//INDICE
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
@@ -408,7 +408,7 @@ IF (NSV >=1) THEN
END IF
!
IF(NSIZELBYSV_ll /= 0) THEN
- TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2)))//INDICE
+ TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(5)))//INDICE
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index d5245ba54d095d621d195ba13b24627dbd94927b..7630a9363ae435202b69b151a44a141087196581 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -196,7 +196,7 @@ USE MODD_PARAM_LIMA, ONLY : NMOD_CCN, NMOD_IFN, NMOD_IMM, NINDICE_CCN_IMM,&
LSCAV, LHHONI, LAERO_MASS, &
LLIMA_DIAG, &
NSPECIE, XMDIAM_IFN, XSIGMA_IFN, ZFRAC=>XFRAC,&
- XR_MEAN_CCN, XLOGSIG_CCN
+ XR_MEAN_CCN, XLOGSIG_CCN, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_WARM, ONLY : CLIMA_WARM_CONC, CAERO_MASS
USE MODD_PARAM_LIMA_COLD, ONLY : CLIMA_COLD_CONC
USE MODD_LG, ONLY : CLGNAMES
@@ -333,7 +333,7 @@ INTEGER :: IACCMODE
!
!-------------------------------------------------------------------------------
INTEGER :: IAUX ! work variable
-REAL,DIMENSION(SIZE(XTHT,1),SIZE(XTHT,2),SIZE(XTHT,3)) :: ZWORK35,ZWORK36
+REAL,DIMENSION(SIZE(XTHT,1),SIZE(XTHT,2),SIZE(XTHT,3)) :: ZWORK35,ZWORK36, ZW1, ZW2, ZW3
REAL,DIMENSION(SIZE(XTHT,1),SIZE(XTHT,2)) :: ZWORK25,ZWORK26
REAL :: ZEAU ! Mean precipitable water
INTEGER, DIMENSION(SIZE(XZZ,1),SIZE(XZZ,2)) ::IKTOP ! level in which is the altitude 3000m
@@ -751,7 +751,7 @@ IF (LVAR_PR ) THEN
ENDIF
!
!
-!* Flux d'humidité et d'hydrométéores
+!* Flux d'humidite et d'hydrometeores
IF (LHU_FLX) THEN
ZWORK35(:,:,:) = XRHODREF(:,:,:) * XRT(:,:,:,1)
ZWORK31(:,:,:) = MXM(ZWORK35(:,:,:)) * XUT(:,:,:)
@@ -815,7 +815,7 @@ IF (LHU_FLX) THEN
ENDDO
ENDIF
! Ecriture
- ! composantes U et V du flux surfacique d'humidité
+ ! composantes U et V du flux surfacique d'humidite
TZFIELD%CMNHNAME = 'UM90'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'UM90'
@@ -839,7 +839,7 @@ IF (LHU_FLX) THEN
TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .TRUE.
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK32)
- ! composantes U et V du flux d'humidité intégré sur 3000 metres
+ ! composantes U et V du flux d'humidite integre sur 3000 metres
TZFIELD%CMNHNAME = 'UM91'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'UM91'
@@ -864,7 +864,7 @@ IF (LHU_FLX) THEN
TZFIELD%LTIMEDEP = .TRUE.
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK22)
!
- ! Convergence d'humidité
+ ! Convergence d'humidite
TZFIELD%CMNHNAME = 'HMCONV'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'HMCONV'
@@ -877,7 +877,7 @@ IF (LHU_FLX) THEN
TZFIELD%LTIMEDEP = .TRUE.
CALL IO_Field_write(TPFILE,TZFIELD,-ZWORK35)
!
- ! Convergence d'humidité intégré sur 3000 mètres
+ ! Convergence d'humidite integre sur 3000 metres
TZFIELD%CMNHNAME = 'HMCONV3000'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'HMCONV3000'
@@ -891,7 +891,7 @@ IF (LHU_FLX) THEN
CALL IO_Field_write(TPFILE,TZFIELD,-ZWORK25)
!
IF (CCLOUD(1:3) == 'ICE' .OR. CCLOUD == 'LIMA') THEN
- ! composantes U et V du flux surfacique d'hydrométéores
+ ! composantes U et V du flux surfacique d'hydrometeores
TZFIELD%CMNHNAME = 'UM92'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'UM92'
@@ -915,7 +915,7 @@ IF (LHU_FLX) THEN
TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .TRUE.
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK34)
- ! composantes U et V du flux d'hydrométéores intégré sur 3000 metres
+ ! composantes U et V du flux d'hydrometeores integre sur 3000 metres
TZFIELD%CMNHNAME = 'UM93'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'UM93'
@@ -939,7 +939,7 @@ IF (LHU_FLX) THEN
TZFIELD%NDIMS = 2
TZFIELD%LTIMEDEP = .TRUE.
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK24)
- ! Convergence d'hydrométéores
+ ! Convergence d'hydrometeores
TZFIELD%CMNHNAME = 'HMCONV_TT'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'HMCONV_TT'
@@ -951,7 +951,7 @@ IF (LHU_FLX) THEN
TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .TRUE.
CALL IO_Field_write(TPFILE,TZFIELD,-ZWORK36)
- ! Convergence d'hydrométéores intégré sur 3000 mètres
+ ! Convergence d'hydrometeores integre sur 3000 metres
TZFIELD%CMNHNAME = 'HMCONV3000_TT'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = 'HMCONV3000_TT'
@@ -1152,24 +1152,36 @@ IF (LLIMA_DIAG) THEN
IF (JSV .EQ. NSV_LIMA_NI) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(1))//'T'
END IF
+! Ns
+ IF (JSV .EQ. NSV_LIMA_NS) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(2))//'T'
+ END IF
+! Ng
+ IF (JSV .EQ. NSV_LIMA_NG) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(3))//'T'
+ END IF
+! Nh
+ IF (JSV .EQ. NSV_LIMA_NH) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(4))//'T'
+ END IF
! N IFN free
IF (JSV .GE. NSV_LIMA_IFN_FREE .AND. JSV .LT. NSV_LIMA_IFN_NUCL) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(2))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(5))//INDICE//'T'
END IF
! N IFN nucl
IF (JSV .GE. NSV_LIMA_IFN_NUCL .AND. JSV .LT. NSV_LIMA_IFN_NUCL + NMOD_IFN) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_NUCL + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(3))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(6))//INDICE//'T'
END IF
! N IMM nucl
IF (JSV .GE. NSV_LIMA_IMM_NUCL .AND. JSV .LT. NSV_LIMA_IMM_NUCL + NMOD_IMM) THEN
WRITE(INDICE,'(I2.2)')(NINDICE_CCN_IMM(JSV - NSV_LIMA_IMM_NUCL + 1))
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(4))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(7))//INDICE//'T'
END IF
! Hom. freez. of CCN
IF (JSV .EQ. NSV_LIMA_HOM_HAZE) THEN
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(5))//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(8))//'T'
END IF
!
! Supersaturation
@@ -3637,13 +3649,17 @@ IF(LRADAR .AND. LUSERR) THEN
XCIT(:,:,:)=XSVT(:,:,:,NSV_LIMA_NI)
CALL INI_RADAR('PLAT')
END IF
-!
+!
+ IF (NMOM_S.GE.2) ZW1(:,:,:)=XSVT(:,:,:,NSV_LIMA_NS)
+ IF (NMOM_G.GE.2) ZW2(:,:,:)=XSVT(:,:,:,NSV_LIMA_NG)
+ IF (NMOM_H.GE.2) ZW3(:,:,:)=XSVT(:,:,:,NSV_LIMA_NH)
IF (NVERSION_RAD == 1) THEN
! original version of radar diagnostics
WRITE(ILUOUT0,*) 'radar diagnostics from RADAR_RAIN_ICE routine'
IF (CCLOUD=='LIMA') THEN
- CALL RADAR_RAIN_ICE (XRT, XCIT, XRHODREF, ZTEMP, ZWORK31, ZWORK32, &
- ZWORK33, ZWORK34,XSVT(:,:,:,NSV_LIMA_NR) )
+ CALL RADAR_RAIN_ICE (XRT, XCIT, XRHODREF, ZTEMP, ZWORK31, ZWORK32, &
+ ZWORK33, ZWORK34,XSVT(:,:,:,NSV_LIMA_NR), &
+ ZW1(:,:,:),ZW2(:,:,:),ZW3(:,:,:) )
ELSE
CALL RADAR_RAIN_ICE (XRT, XCIT, XRHODREF, ZTEMP, ZWORK31, ZWORK32, &
ZWORK33, ZWORK34 )
@@ -4025,7 +4041,7 @@ END IF
!
IF (CBLTOP == 'THETA') THEN
!
- ! méthode de la parcelle
+ ! methode de la parcelle
!
ALLOCATE(ZSHMIX(IIU,IJU))
@@ -4064,7 +4080,7 @@ IF (CBLTOP == 'THETA') THEN
DEALLOCATE(ZSHMIX)
ELSEIF (CBLTOP == 'RICHA') THEN
!
- ! méthode du "bulk Richardson number"
+ ! methode du "bulk Richardson number"
!
ALLOCATE(ZRIB(IIU,IJU,IKU))
ALLOCATE(ZSHMIX(IIU,IJU))
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index b7264511f1367d679341ab8df25eed39b70cd275..9a23c67e31a907f7b06f21f93094144f9ce7ebc5 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -990,24 +990,36 @@ IF (NSV >=1) THEN
IF (JSV .EQ. NSV_LIMA_NI) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(1))//'T'
END IF
+! Ns
+ IF (JSV .EQ. NSV_LIMA_NS) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(2))//'T'
+ END IF
+! Ng
+ IF (JSV .EQ. NSV_LIMA_NG) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(3))//'T'
+ END IF
+! Nh
+ IF (JSV .EQ. NSV_LIMA_NH) THEN
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(4))//'T'
+ END IF
! N IFN free
IF (JSV .GE. NSV_LIMA_IFN_FREE .AND. JSV .LT. NSV_LIMA_IFN_NUCL) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(2))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//INDICE//'T'
END IF
! N IFN nucl
IF (JSV .GE. NSV_LIMA_IFN_NUCL .AND. JSV .LT. NSV_LIMA_IFN_NUCL + NMOD_IFN) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_NUCL + 1)
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(3))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(6))//INDICE//'T'
END IF
! N IMM nucl
IF (JSV .GE. NSV_LIMA_IMM_NUCL .AND. JSV .LT. NSV_LIMA_IMM_NUCL + NMOD_IMM) THEN
WRITE(INDICE,'(I2.2)')(NINDICE_CCN_IMM(JSV - NSV_LIMA_IMM_NUCL + 1))
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(4))//INDICE//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(7))//INDICE//'T'
END IF
! Hom. freez. of CCN
IF (JSV .EQ. NSV_LIMA_HOM_HAZE) THEN
- TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//'T'
+ TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(8))//'T'
END IF
!
! Supersaturation
diff --git a/src/MNH/write_profilern.f90 b/src/MNH/write_profilern.f90
index fcef2068ce48ba4d93b79de00fde64d8ae6edad4..6b26649a2c78a0d5ab28a1c057a44dae2df15ffa 100644
--- a/src/MNH/write_profilern.f90
+++ b/src/MNH/write_profilern.f90
@@ -231,17 +231,23 @@ if ( Size( tprofiler%sv, 4 ) > 0 ) then
yunits = 'kg kg-1'
else if ( jsv == nsv_lima_ni ) then
yname = Trim( clima_cold_names(1) ) // 'T'
+ else if ( jsv == nsv_lima_ns ) then
+ yname = Trim( clima_cold_names(2) ) // 'T'
+ else if ( jsv == nsv_lima_ng ) then
+ yname = Trim( clima_cold_names(3) ) // 'T'
+ else if ( jsv == nsv_lima_nh ) then
+ yname = Trim( clima_cold_names(4) ) // 'T'
else if ( jsv >= nsv_lima_ifn_free .and. jsv < nsv_lima_ifn_free + nmod_ifn ) then
Write( yidx, '( i2.2 )' ) jsv - nsv_lima_ifn_free + 1
- yname = Trim( clima_cold_names(2) ) // yidx // 'T'
+ yname = Trim( clima_cold_names(5) ) // yidx // 'T'
else if ( jsv >= nsv_lima_ifn_nucl .and. jsv < nsv_lima_ifn_nucl + nmod_ifn ) then
Write( yidx, '( i2.2 )' ) jsv - nsv_lima_ifn_nucl + 1
- yname = Trim( clima_cold_names(3) ) // yidx // 'T'
+ yname = Trim( clima_cold_names(6) ) // yidx // 'T'
else if ( jsv >= nsv_lima_imm_nucl .and. jsv < nsv_lima_imm_nucl + nmod_imm ) then
write( yidx, '( i2.2 )' ) nindice_ccn_imm(jsv - nsv_lima_imm_nucl + 1)
- yname = Trim( clima_cold_names(4) ) // yidx // 'T'
+ yname = Trim( clima_cold_names(7) ) // yidx // 'T'
else if ( jsv == nsv_lima_hom_haze ) then
- yname = Trim( clima_cold_names(5) ) // 'T'
+ yname = Trim( clima_cold_names(8) ) // 'T'
else if ( jsv == nsv_lima_spro ) then
yname = Trim( clima_warm_names(5) ) // 'T'
end if