diff --git a/src/arome/micro/mode_qsatmx_tab.F90 b/src/common/micro/mode_qsatmx_tab.F90
similarity index 100%
rename from src/arome/micro/mode_qsatmx_tab.F90
rename to src/common/micro/mode_qsatmx_tab.F90
diff --git a/src/common/turb/mode_prandtl.F90 b/src/common/turb/mode_prandtl.F90
index ec71f8db23686f1b59281dd1ecb8ede1d799eaaa..d11181fbf350eff21eba14c370520c8daaced4be 100644
--- a/src/common/turb/mode_prandtl.F90
+++ b/src/common/turb/mode_prandtl.F90
@@ -684,7 +684,7 @@ FUNCTION D_PHI3DTDZ_O_DDTDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,HTURBDIM,OUS
CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PHI3DTDZ_O_DDTDZ
- INTEGER :: IKB, IKE,JL,JK
+ INTEGER :: IKB, IKE,JL,JK,JJ
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ_O_DDTDZ',0,ZHOOK_HANDLE)
@@ -694,7 +694,11 @@ IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
IF (HTURBDIM=='3DIM') THEN
!* 3DIM case
IF (OUSERV) THEN
+#ifdef REPRO48
WHERE (PPHI3(:,:,:)/=XPHI_LIM)
+#else
+ WHERE (PPHI3(:,:,:)<=XPHI_LIM)
+#endif
D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
* (1. - PREDTH1(:,:,:) * (3./2.+PREDTH1+PREDR1) &
/((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))) &
@@ -708,7 +712,11 @@ IF (HTURBDIM=='3DIM') THEN
!
ELSE
+#ifdef REPRO48
WHERE (PPHI3(:,:,:)/=XPHI_LIM)
+#else
+ WHERE (PPHI3(:,:,:)<=XPHI_LIM)
+#endif
D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
* (1. - PREDTH1(:,:,:) * (3./2.+PREDTH1) &
/((1.+PREDTH1)*(1.+1./2.*PREDTH1))) &
@@ -721,25 +729,25 @@ IF (HTURBDIM=='3DIM') THEN
END IF
ELSE
!* 1DIM case
-! WHERE (PPHI3(:,:,:)/=XPHI_LIM)
-! D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
-! * (1. - PREDTH1(:,:,:)*PPHI3(:,:,:))
-! ELSEWHERE
-! D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:)
-! ENDWHERE
-DO JL=1,SIZE(PPHI3,1)
- DO JK=1,SIZE(PPHI3,3)
- IF ( ABS(PPHI3(JL,1,JK)-XPHI_LIM) < 1.E-12 ) THEN
- D_PHI3DTDZ_O_DDTDZ(JL,1,JK)=PPHI3(JL,1,JK)*&
-& (1. - PREDTH1(JL,1,JK)*PPHI3(JL,1,JK))
- ELSE
- D_PHI3DTDZ_O_DDTDZ(JL,1,JK)=PPHI3(JL,1,JK)
- ENDIF
+DO JJ=1,SIZE(PPHI3,2)
+ DO JL=1,SIZE(PPHI3,1)
+ DO JK=1,SIZE(PPHI3,3)
+ IF ( ABS(PPHI3(JL,JJ,JK)-XPHI_LIM) < 1.E-12 ) THEN
+ D_PHI3DTDZ_O_DDTDZ(JL,JJ,JK)=PPHI3(JL,JJ,JK)*&
+& (1. - PREDTH1(JL,JJ,JK)*PPHI3(JL,JJ,JK))
+ ELSE
+ D_PHI3DTDZ_O_DDTDZ(JL,JJ,JK)=PPHI3(JL,JJ,JK)
+ ENDIF
+ ENDDO
ENDDO
ENDDO
-
END IF
!
+#ifdef REPRO48
+#else
+!* smoothing
+CALL SMOOTH_TURB_FUNCT(PPHI3,PPHI3,D_PHI3DTDZ_O_DDTDZ)
+#endif
!
D_PHI3DTDZ_O_DDTDZ(:,:,IKB-1)=D_PHI3DTDZ_O_DDTDZ(:,:,IKB)
D_PHI3DTDZ_O_DDTDZ(:,:,IKE+1)=D_PHI3DTDZ_O_DDTDZ(:,:,IKE)
@@ -767,7 +775,11 @@ IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
IF (HTURBDIM=='3DIM') THEN
!* 3DIM case
IF (OUSERV) THEN
+#ifdef REPRO48
WHERE (PPHI3(:,:,:)/=XPHI_LIM)
+#else
+ WHERE (PPHI3(:,:,:)<=XPHI_LIM)
+#endif
D_PHI3DRDZ_O_DDRDZ(:,:,:) = &
PPHI3(:,:,:) * (1.-PREDR1(:,:,:)*(3./2.+PREDTH1+PREDR1) &
/ ((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))) &
@@ -783,7 +795,11 @@ IF (HTURBDIM=='3DIM') THEN
END IF
ELSE
!* 1DIM case
- WHERE (PPHI3(:,:,:)/=XPHI_LIM)
+#ifdef REPRO48
+ WHERE (PPHI3(:,:,:)/=XPHI_LIM)
+#else
+ WHERE (PPHI3(:,:,:)<=XPHI_LIM)
+#endif
D_PHI3DRDZ_O_DDRDZ(:,:,:) = PPHI3(:,:,:) &
* (1. - PREDR1(:,:,:)*PPHI3(:,:,:))
ELSEWHERE
@@ -791,6 +807,11 @@ ELSE
END WHERE
END IF
!
+#ifdef REPRO48
+#else
+!* smoothing
+CALL SMOOTH_TURB_FUNCT(PPHI3,PPHI3,D_PHI3DRDZ_O_DDRDZ)
+#endif
!
D_PHI3DRDZ_O_DDRDZ(:,:,IKB-1)=D_PHI3DRDZ_O_DDRDZ(:,:,IKB)
D_PHI3DRDZ_O_DDRDZ(:,:,IKE+1)=D_PHI3DRDZ_O_DDRDZ(:,:,IKE)
@@ -817,35 +838,17 @@ IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
!
!
IF (HTURBDIM=='3DIM') THEN
- !* 3DIM case
- IF (OUSERV) THEN
- WHERE (PPHI3(:,:,:)/=XPHI_LIM)
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
- * PDTDZ(:,:,:)*(2.-PREDTH1(:,:,:)*(3./2.+PREDTH1+PREDR1) &
- /((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))) &
- + (1.+PREDR1)*(PRED2THR3+PRED2TH3) &
- / (PREDTH1*(1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1))) &
- - (1./2.*PREDTH1+PREDR1 * (1.+PREDTH1+PREDR1)) &
- / ((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))
- ELSEWHERE
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) * 2. * PDTDZ(:,:,:)
- ENDWHERE
+ ! by derivation of (phi3 dtdz) * dtdz according to dtdz we obtain:
+ D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PDTDZ * (PPHI3 + &
+ D_PHI3DTDZ_O_DDTDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV) )
-!
- ELSE
- WHERE (PPHI3(:,:,:)/=XPHI_LIM)
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
- * PDTDZ(:,:,:)*(2.-PREDTH1(:,:,:)*(3./2.+PREDTH1) &
- /((1.+PREDTH1)*(1.+1./2.*PREDTH1))) &
- + PRED2TH3 / (PREDTH1*(1.+PREDTH1)*(1.+1./2.*PREDTH1)) &
- - 1./2.*PREDTH1 / ((1.+PREDTH1)*(1.+1./2.*PREDTH1))
- ELSEWHERE
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) * 2. * PDTDZ(:,:,:)
- ENDWHERE
- END IF
ELSE
!* 1DIM case
+#ifdef REPRO48
WHERE (PPHI3(:,:,:)/=XPHI_LIM)
+#else
+ WHERE (PPHI3(:,:,:)<=XPHI_LIM)
+#endif
D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:)*PDTDZ(:,:,:) &
* (2. - PREDTH1(:,:,:)*PPHI3(:,:,:))
ELSEWHERE
@@ -853,6 +856,12 @@ ELSE
END WHERE
END IF
!
+#ifdef REPRO48
+#else
+!* smoothing
+CALL SMOOTH_TURB_FUNCT(PPHI3,PPHI3*2.*PDTDZ,D_PHI3DTDZ2_O_DDTDZ)
+#endif
+!
!
D_PHI3DTDZ2_O_DDTDZ(:,:,IKB-1)=D_PHI3DTDZ2_O_DDTDZ(:,:,IKB)
D_PHI3DTDZ2_O_DDTDZ(:,:,IKE+1)=D_PHI3DTDZ2_O_DDTDZ(:,:,IKE)
diff --git a/src/mesonh/micro/mode_qsatmx_tab.F90 b/src/mesonh/micro/mode_qsatmx_tab.F90
deleted file mode 100644
index 01d697b19bdeeb1cc011c4826e8c37da037cb944..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/mode_qsatmx_tab.F90
+++ /dev/null
@@ -1,27 +0,0 @@
-MODULE MODE_QSATMX_TAB
-IMPLICIT NONE
-CONTAINS
-FUNCTION QSATMX_TAB(P,T,FICE)
-
- USE PARKIND1, ONLY : JPRB
- USE MODD_CST ,ONLY : XEPSILO
- USE MODE_TIWMX, ONLY : ESATI,ESATW
-
- IMPLICIT NONE
-
- REAL :: QSATMX_TAB
- REAL, INTENT(IN) :: P,T,FICE
-
- REAL :: ZES
-
- ZES = ESATI(T)*FICE + ESATW(T)*(1.-FICE)
- IF(ZES >= P)THEN ! temp > boiling point, condensation not possible.
- ! Then this function lacks physical meaning,
- ! here set to one
- QSATMX_TAB = 1.
- ELSE
- QSATMX_TAB = XEPSILO*ZES/(P-ZES) !r
- ENDIF
-
-END FUNCTION QSATMX_TAB
-END MODULE MODE_QSATMX_TAB
diff --git a/src/mesonh/micro/read_xker_gweth.f90 b/src/mesonh/micro/read_xker_gweth.f90
deleted file mode 100644
index c8f3fe40d37d00848b9cb3abd23d3ae069a68607..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/read_xker_gweth.f90
+++ /dev/null
@@ -1,1737 +0,0 @@
-!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 microph 2006/05/18 13:07:25
-!-----------------------------------------------------------------
-! ###########################
- MODULE MODI_READ_XKER_GWETH
-! ###########################
-!
-INTERFACE
- SUBROUTINE READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
- PALPHAH,PNUH,PALPHAG,PNUG,PEHG,PBG,PCH,PDH,PCG,PDG, &
- PWETLBDAH_MAX,PWETLBDAG_MAX,PWETLBDAH_MIN,PWETLBDAG_MIN, &
- PFDINFTY,PKER_GWETH )
-!
-INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAG
-REAL, INTENT(OUT) :: PALPHAH
-REAL, INTENT(OUT) :: PNUH
-REAL, INTENT(OUT) :: PALPHAG
-REAL, INTENT(OUT) :: PNUG
-REAL, INTENT(OUT) :: PEHG
-REAL, INTENT(OUT) :: PBG
-REAL, INTENT(OUT) :: PCH
-REAL, INTENT(OUT) :: PDH
-REAL, INTENT(OUT) :: PCG
-REAL, INTENT(OUT) :: PDG
-REAL, INTENT(OUT) :: PWETLBDAH_MAX
-REAL, INTENT(OUT) :: PWETLBDAG_MAX
-REAL, INTENT(OUT) :: PWETLBDAH_MIN
-REAL, INTENT(OUT) :: PWETLBDAG_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_GWETH
-!
-END SUBROUTINE
-!
-END INTERFACE
-!
-END MODULE MODI_READ_XKER_GWETH
-! ########################################################################
- SUBROUTINE READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
- PALPHAH,PNUH,PALPHAG,PNUG,PEHG,PBG,PCH,PDH,PCG,PDG, &
- PWETLBDAH_MAX,PWETLBDAG_MAX,PWETLBDAH_MIN,PWETLBDAG_MIN, &
- PFDINFTY,PKER_GWETH )
-! ########################################################################
-!
-!!**** * * - initialize the kernels for the graupel-hail wet growth process
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the kernels PKER_GWETH
-!! prepared from a previous run of the routine INI_RAIN_ICE. The reading
-!! of the kernels is optional after checking for the dimensions of the
-!! arrays.
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine READ_XKER_GWETH )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 19/04/97
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!* 0.2 Declarations of local variables :
-!
-!
-INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAG
-REAL, INTENT(OUT) :: PALPHAH
-REAL, INTENT(OUT) :: PNUH
-REAL, INTENT(OUT) :: PALPHAG
-REAL, INTENT(OUT) :: PNUG
-REAL, INTENT(OUT) :: PEHG
-REAL, INTENT(OUT) :: PBG
-REAL, INTENT(OUT) :: PCH
-REAL, INTENT(OUT) :: PDH
-REAL, INTENT(OUT) :: PCG
-REAL, INTENT(OUT) :: PDG
-REAL, INTENT(OUT) :: PWETLBDAH_MAX
-REAL, INTENT(OUT) :: PWETLBDAG_MAX
-REAL, INTENT(OUT) :: PWETLBDAH_MIN
-REAL, INTENT(OUT) :: PWETLBDAG_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_GWETH
-!
-! ########################################################################
-! #INSERT HERE THE OUTPUT OF INI_RAIN_ICE_HAIL IF THE KERNELS ARE UPDATED#
-! ########################################################################
-!
-KND= 50
-KWETLBDAH= 40
-KWETLBDAG= 40
-PALPHAH= 0.100000E+01
-PNUH= 0.800000E+01
-PALPHAG= 0.100000E+01
-PNUG= 0.100000E+01
-PEHG= 0.100000E+01
-PBG= 0.280000E+01
-PCH= 0.207000E+03
-PDH= 0.640000E+00
-PCG= 0.124000E+03
-PDG= 0.660000E+00
-PWETLBDAH_MAX= 0.100000E+08
-PWETLBDAG_MAX= 0.100000E+08
-PWETLBDAH_MIN= 0.100000E+04
-PWETLBDAG_MIN= 0.100000E+04
-PFDINFTY= 0.200000E+02
-!
-IF( PRESENT(PKER_GWETH) ) THEN
- PKER_GWETH( 1, 1) = 0.687148E+01
- PKER_GWETH( 1, 2) = 0.747813E+01
- PKER_GWETH( 1, 3) = 0.798959E+01
- PKER_GWETH( 1, 4) = 0.841881E+01
- PKER_GWETH( 1, 5) = 0.877841E+01
- PKER_GWETH( 1, 6) = 0.907960E+01
- PKER_GWETH( 1, 7) = 0.933201E+01
- PKER_GWETH( 1, 8) = 0.954375E+01
- PKER_GWETH( 1, 9) = 0.972162E+01
- PKER_GWETH( 1, 10) = 0.987126E+01
- PKER_GWETH( 1, 11) = 0.999733E+01
- PKER_GWETH( 1, 12) = 0.101037E+02
- PKER_GWETH( 1, 13) = 0.101936E+02
- PKER_GWETH( 1, 14) = 0.102696E+02
- PKER_GWETH( 1, 15) = 0.103340E+02
- PKER_GWETH( 1, 16) = 0.103886E+02
- PKER_GWETH( 1, 17) = 0.104350E+02
- PKER_GWETH( 1, 18) = 0.104743E+02
- PKER_GWETH( 1, 19) = 0.105077E+02
- PKER_GWETH( 1, 20) = 0.105362E+02
- PKER_GWETH( 1, 21) = 0.105604E+02
- PKER_GWETH( 1, 22) = 0.105810E+02
- PKER_GWETH( 1, 23) = 0.105985E+02
- PKER_GWETH( 1, 24) = 0.106135E+02
- PKER_GWETH( 1, 25) = 0.106262E+02
- PKER_GWETH( 1, 26) = 0.106371E+02
- PKER_GWETH( 1, 27) = 0.106464E+02
- PKER_GWETH( 1, 28) = 0.106543E+02
- PKER_GWETH( 1, 29) = 0.106610E+02
- PKER_GWETH( 1, 30) = 0.106668E+02
- PKER_GWETH( 1, 31) = 0.106717E+02
- PKER_GWETH( 1, 32) = 0.106759E+02
- PKER_GWETH( 1, 33) = 0.106795E+02
- PKER_GWETH( 1, 34) = 0.106825E+02
- PKER_GWETH( 1, 35) = 0.106851E+02
- PKER_GWETH( 1, 36) = 0.106874E+02
- PKER_GWETH( 1, 37) = 0.106893E+02
- PKER_GWETH( 1, 38) = 0.106909E+02
- PKER_GWETH( 1, 39) = 0.106923E+02
- PKER_GWETH( 1, 40) = 0.106935E+02
- PKER_GWETH( 2, 1) = 0.531200E+01
- PKER_GWETH( 2, 2) = 0.592117E+01
- PKER_GWETH( 2, 3) = 0.644064E+01
- PKER_GWETH( 2, 4) = 0.687856E+01
- PKER_GWETH( 2, 5) = 0.724606E+01
- PKER_GWETH( 2, 6) = 0.755396E+01
- PKER_GWETH( 2, 7) = 0.781184E+01
- PKER_GWETH( 2, 8) = 0.802795E+01
- PKER_GWETH( 2, 9) = 0.820924E+01
- PKER_GWETH( 2, 10) = 0.836153E+01
- PKER_GWETH( 2, 11) = 0.848964E+01
- PKER_GWETH( 2, 12) = 0.859758E+01
- PKER_GWETH( 2, 13) = 0.868865E+01
- PKER_GWETH( 2, 14) = 0.876559E+01
- PKER_GWETH( 2, 15) = 0.883069E+01
- PKER_GWETH( 2, 16) = 0.888581E+01
- PKER_GWETH( 2, 17) = 0.893255E+01
- PKER_GWETH( 2, 18) = 0.897221E+01
- PKER_GWETH( 2, 19) = 0.900589E+01
- PKER_GWETH( 2, 20) = 0.903451E+01
- PKER_GWETH( 2, 21) = 0.905885E+01
- PKER_GWETH( 2, 22) = 0.907956E+01
- PKER_GWETH( 2, 23) = 0.909719E+01
- PKER_GWETH( 2, 24) = 0.911221E+01
- PKER_GWETH( 2, 25) = 0.912500E+01
- PKER_GWETH( 2, 26) = 0.913591E+01
- PKER_GWETH( 2, 27) = 0.914521E+01
- PKER_GWETH( 2, 28) = 0.915314E+01
- PKER_GWETH( 2, 29) = 0.915990E+01
- PKER_GWETH( 2, 30) = 0.916568E+01
- PKER_GWETH( 2, 31) = 0.917060E+01
- PKER_GWETH( 2, 32) = 0.917481E+01
- PKER_GWETH( 2, 33) = 0.917840E+01
- PKER_GWETH( 2, 34) = 0.918147E+01
- PKER_GWETH( 2, 35) = 0.918409E+01
- PKER_GWETH( 2, 36) = 0.918633E+01
- PKER_GWETH( 2, 37) = 0.918824E+01
- PKER_GWETH( 2, 38) = 0.918987E+01
- PKER_GWETH( 2, 39) = 0.919127E+01
- PKER_GWETH( 2, 40) = 0.919246E+01
- PKER_GWETH( 3, 1) = 0.398480E+01
- PKER_GWETH( 3, 2) = 0.458041E+01
- PKER_GWETH( 3, 3) = 0.510220E+01
- PKER_GWETH( 3, 4) = 0.554702E+01
- PKER_GWETH( 3, 5) = 0.592198E+01
- PKER_GWETH( 3, 6) = 0.623664E+01
- PKER_GWETH( 3, 7) = 0.650027E+01
- PKER_GWETH( 3, 8) = 0.672107E+01
- PKER_GWETH( 3, 9) = 0.690610E+01
- PKER_GWETH( 3, 10) = 0.706132E+01
- PKER_GWETH( 3, 11) = 0.719170E+01
- PKER_GWETH( 3, 12) = 0.730139E+01
- PKER_GWETH( 3, 13) = 0.739379E+01
- PKER_GWETH( 3, 14) = 0.747176E+01
- PKER_GWETH( 3, 15) = 0.753763E+01
- PKER_GWETH( 3, 16) = 0.759335E+01
- PKER_GWETH( 3, 17) = 0.764054E+01
- PKER_GWETH( 3, 18) = 0.768055E+01
- PKER_GWETH( 3, 19) = 0.771450E+01
- PKER_GWETH( 3, 20) = 0.774332E+01
- PKER_GWETH( 3, 21) = 0.776782E+01
- PKER_GWETH( 3, 22) = 0.778866E+01
- PKER_GWETH( 3, 23) = 0.780638E+01
- PKER_GWETH( 3, 24) = 0.782147E+01
- PKER_GWETH( 3, 25) = 0.783433E+01
- PKER_GWETH( 3, 26) = 0.784528E+01
- PKER_GWETH( 3, 27) = 0.785461E+01
- PKER_GWETH( 3, 28) = 0.786257E+01
- PKER_GWETH( 3, 29) = 0.786935E+01
- PKER_GWETH( 3, 30) = 0.787514E+01
- PKER_GWETH( 3, 31) = 0.788008E+01
- PKER_GWETH( 3, 32) = 0.788430E+01
- PKER_GWETH( 3, 33) = 0.788790E+01
- PKER_GWETH( 3, 34) = 0.789098E+01
- PKER_GWETH( 3, 35) = 0.789360E+01
- PKER_GWETH( 3, 36) = 0.789584E+01
- PKER_GWETH( 3, 37) = 0.789776E+01
- PKER_GWETH( 3, 38) = 0.789939E+01
- PKER_GWETH( 3, 39) = 0.790079E+01
- PKER_GWETH( 3, 40) = 0.790199E+01
- PKER_GWETH( 4, 1) = 0.288960E+01
- PKER_GWETH( 4, 2) = 0.343887E+01
- PKER_GWETH( 4, 3) = 0.394949E+01
- PKER_GWETH( 4, 4) = 0.439644E+01
- PKER_GWETH( 4, 5) = 0.477733E+01
- PKER_GWETH( 4, 6) = 0.509838E+01
- PKER_GWETH( 4, 7) = 0.536780E+01
- PKER_GWETH( 4, 8) = 0.559352E+01
- PKER_GWETH( 4, 9) = 0.578258E+01
- PKER_GWETH( 4, 10) = 0.594100E+01
- PKER_GWETH( 4, 11) = 0.607390E+01
- PKER_GWETH( 4, 12) = 0.618553E+01
- PKER_GWETH( 4, 13) = 0.627943E+01
- PKER_GWETH( 4, 14) = 0.635854E+01
- PKER_GWETH( 4, 15) = 0.642529E+01
- PKER_GWETH( 4, 16) = 0.648168E+01
- PKER_GWETH( 4, 17) = 0.652938E+01
- PKER_GWETH( 4, 18) = 0.656978E+01
- PKER_GWETH( 4, 19) = 0.660403E+01
- PKER_GWETH( 4, 20) = 0.663308E+01
- PKER_GWETH( 4, 21) = 0.665776E+01
- PKER_GWETH( 4, 22) = 0.667873E+01
- PKER_GWETH( 4, 23) = 0.669656E+01
- PKER_GWETH( 4, 24) = 0.671173E+01
- PKER_GWETH( 4, 25) = 0.672465E+01
- PKER_GWETH( 4, 26) = 0.673565E+01
- PKER_GWETH( 4, 27) = 0.674502E+01
- PKER_GWETH( 4, 28) = 0.675301E+01
- PKER_GWETH( 4, 29) = 0.675982E+01
- PKER_GWETH( 4, 30) = 0.676563E+01
- PKER_GWETH( 4, 31) = 0.677058E+01
- PKER_GWETH( 4, 32) = 0.677481E+01
- PKER_GWETH( 4, 33) = 0.677842E+01
- PKER_GWETH( 4, 34) = 0.678150E+01
- PKER_GWETH( 4, 35) = 0.678413E+01
- PKER_GWETH( 4, 36) = 0.678638E+01
- PKER_GWETH( 4, 37) = 0.678830E+01
- PKER_GWETH( 4, 38) = 0.678994E+01
- PKER_GWETH( 4, 39) = 0.679134E+01
- PKER_GWETH( 4, 40) = 0.679253E+01
- PKER_GWETH( 5, 1) = 0.204551E+01
- PKER_GWETH( 5, 2) = 0.249578E+01
- PKER_GWETH( 5, 3) = 0.296766E+01
- PKER_GWETH( 5, 4) = 0.340540E+01
- PKER_GWETH( 5, 5) = 0.378824E+01
- PKER_GWETH( 5, 6) = 0.411440E+01
- PKER_GWETH( 5, 7) = 0.438929E+01
- PKER_GWETH( 5, 8) = 0.461997E+01
- PKER_GWETH( 5, 9) = 0.481324E+01
- PKER_GWETH( 5, 10) = 0.497511E+01
- PKER_GWETH( 5, 11) = 0.511076E+01
- PKER_GWETH( 5, 12) = 0.522454E+01
- PKER_GWETH( 5, 13) = 0.532011E+01
- PKER_GWETH( 5, 14) = 0.540051E+01
- PKER_GWETH( 5, 15) = 0.546824E+01
- PKER_GWETH( 5, 16) = 0.552538E+01
- PKER_GWETH( 5, 17) = 0.557366E+01
- PKER_GWETH( 5, 18) = 0.561449E+01
- PKER_GWETH( 5, 19) = 0.564907E+01
- PKER_GWETH( 5, 20) = 0.567839E+01
- PKER_GWETH( 5, 21) = 0.570326E+01
- PKER_GWETH( 5, 22) = 0.572438E+01
- PKER_GWETH( 5, 23) = 0.574233E+01
- PKER_GWETH( 5, 24) = 0.575759E+01
- PKER_GWETH( 5, 25) = 0.577058E+01
- PKER_GWETH( 5, 26) = 0.578163E+01
- PKER_GWETH( 5, 27) = 0.579105E+01
- PKER_GWETH( 5, 28) = 0.579907E+01
- PKER_GWETH( 5, 29) = 0.580591E+01
- PKER_GWETH( 5, 30) = 0.581173E+01
- PKER_GWETH( 5, 31) = 0.581671E+01
- PKER_GWETH( 5, 32) = 0.582095E+01
- PKER_GWETH( 5, 33) = 0.582457E+01
- PKER_GWETH( 5, 34) = 0.582765E+01
- PKER_GWETH( 5, 35) = 0.583029E+01
- PKER_GWETH( 5, 36) = 0.583254E+01
- PKER_GWETH( 5, 37) = 0.583446E+01
- PKER_GWETH( 5, 38) = 0.583611E+01
- PKER_GWETH( 5, 39) = 0.583751E+01
- PKER_GWETH( 5, 40) = 0.583871E+01
- PKER_GWETH( 6, 1) = 0.147885E+01
- PKER_GWETH( 6, 2) = 0.176736E+01
- PKER_GWETH( 6, 3) = 0.215562E+01
- PKER_GWETH( 6, 4) = 0.256096E+01
- PKER_GWETH( 6, 5) = 0.293621E+01
- PKER_GWETH( 6, 6) = 0.326413E+01
- PKER_GWETH( 6, 7) = 0.354342E+01
- PKER_GWETH( 6, 8) = 0.377879E+01
- PKER_GWETH( 6, 9) = 0.397630E+01
- PKER_GWETH( 6, 10) = 0.414178E+01
- PKER_GWETH( 6, 11) = 0.428038E+01
- PKER_GWETH( 6, 12) = 0.439652E+01
- PKER_GWETH( 6, 13) = 0.449394E+01
- PKER_GWETH( 6, 14) = 0.457577E+01
- PKER_GWETH( 6, 15) = 0.464460E+01
- PKER_GWETH( 6, 16) = 0.470259E+01
- PKER_GWETH( 6, 17) = 0.475151E+01
- PKER_GWETH( 6, 18) = 0.479283E+01
- PKER_GWETH( 6, 19) = 0.482779E+01
- PKER_GWETH( 6, 20) = 0.485739E+01
- PKER_GWETH( 6, 21) = 0.488249E+01
- PKER_GWETH( 6, 22) = 0.490378E+01
- PKER_GWETH( 6, 23) = 0.492186E+01
- PKER_GWETH( 6, 24) = 0.493722E+01
- PKER_GWETH( 6, 25) = 0.495028E+01
- PKER_GWETH( 6, 26) = 0.496140E+01
- PKER_GWETH( 6, 27) = 0.497086E+01
- PKER_GWETH( 6, 28) = 0.497892E+01
- PKER_GWETH( 6, 29) = 0.498578E+01
- PKER_GWETH( 6, 30) = 0.499163E+01
- PKER_GWETH( 6, 31) = 0.499662E+01
- PKER_GWETH( 6, 32) = 0.500088E+01
- PKER_GWETH( 6, 33) = 0.500450E+01
- PKER_GWETH( 6, 34) = 0.500760E+01
- PKER_GWETH( 6, 35) = 0.501024E+01
- PKER_GWETH( 6, 36) = 0.501250E+01
- PKER_GWETH( 6, 37) = 0.501443E+01
- PKER_GWETH( 6, 38) = 0.501607E+01
- PKER_GWETH( 6, 39) = 0.501748E+01
- PKER_GWETH( 6, 40) = 0.501868E+01
- PKER_GWETH( 7, 1) = 0.119724E+01
- PKER_GWETH( 7, 2) = 0.127547E+01
- PKER_GWETH( 7, 3) = 0.152697E+01
- PKER_GWETH( 7, 4) = 0.186178E+01
- PKER_GWETH( 7, 5) = 0.220994E+01
- PKER_GWETH( 7, 6) = 0.253163E+01
- PKER_GWETH( 7, 7) = 0.281250E+01
- PKER_GWETH( 7, 8) = 0.305164E+01
- PKER_GWETH( 7, 9) = 0.325317E+01
- PKER_GWETH( 7, 10) = 0.342229E+01
- PKER_GWETH( 7, 11) = 0.356398E+01
- PKER_GWETH( 7, 12) = 0.368265E+01
- PKER_GWETH( 7, 13) = 0.378209E+01
- PKER_GWETH( 7, 14) = 0.386550E+01
- PKER_GWETH( 7, 15) = 0.393556E+01
- PKER_GWETH( 7, 16) = 0.399449E+01
- PKER_GWETH( 7, 17) = 0.404413E+01
- PKER_GWETH( 7, 18) = 0.408601E+01
- PKER_GWETH( 7, 19) = 0.412139E+01
- PKER_GWETH( 7, 20) = 0.415132E+01
- PKER_GWETH( 7, 21) = 0.417666E+01
- PKER_GWETH( 7, 22) = 0.419814E+01
- PKER_GWETH( 7, 23) = 0.421636E+01
- PKER_GWETH( 7, 24) = 0.423184E+01
- PKER_GWETH( 7, 25) = 0.424499E+01
- PKER_GWETH( 7, 26) = 0.425617E+01
- PKER_GWETH( 7, 27) = 0.426568E+01
- PKER_GWETH( 7, 28) = 0.427378E+01
- PKER_GWETH( 7, 29) = 0.428068E+01
- PKER_GWETH( 7, 30) = 0.428655E+01
- PKER_GWETH( 7, 31) = 0.429156E+01
- PKER_GWETH( 7, 32) = 0.429583E+01
- PKER_GWETH( 7, 33) = 0.429947E+01
- PKER_GWETH( 7, 34) = 0.430258E+01
- PKER_GWETH( 7, 35) = 0.430523E+01
- PKER_GWETH( 7, 36) = 0.430749E+01
- PKER_GWETH( 7, 37) = 0.430942E+01
- PKER_GWETH( 7, 38) = 0.431107E+01
- PKER_GWETH( 7, 39) = 0.431248E+01
- PKER_GWETH( 7, 40) = 0.431368E+01
- PKER_GWETH( 8, 1) = 0.116924E+01
- PKER_GWETH( 8, 2) = 0.102801E+01
- PKER_GWETH( 8, 3) = 0.110019E+01
- PKER_GWETH( 8, 4) = 0.131921E+01
- PKER_GWETH( 8, 5) = 0.160796E+01
- PKER_GWETH( 8, 6) = 0.190699E+01
- PKER_GWETH( 8, 7) = 0.218275E+01
- PKER_GWETH( 8, 8) = 0.242331E+01
- PKER_GWETH( 8, 9) = 0.262809E+01
- PKER_GWETH( 8, 10) = 0.280064E+01
- PKER_GWETH( 8, 11) = 0.294545E+01
- PKER_GWETH( 8, 12) = 0.306676E+01
- PKER_GWETH( 8, 13) = 0.316837E+01
- PKER_GWETH( 8, 14) = 0.325351E+01
- PKER_GWETH( 8, 15) = 0.332493E+01
- PKER_GWETH( 8, 16) = 0.338491E+01
- PKER_GWETH( 8, 17) = 0.343537E+01
- PKER_GWETH( 8, 18) = 0.347787E+01
- PKER_GWETH( 8, 19) = 0.351372E+01
- PKER_GWETH( 8, 20) = 0.354401E+01
- PKER_GWETH( 8, 21) = 0.356963E+01
- PKER_GWETH( 8, 22) = 0.359132E+01
- PKER_GWETH( 8, 23) = 0.360971E+01
- PKER_GWETH( 8, 24) = 0.362531E+01
- PKER_GWETH( 8, 25) = 0.363856E+01
- PKER_GWETH( 8, 26) = 0.364981E+01
- PKER_GWETH( 8, 27) = 0.365938E+01
- PKER_GWETH( 8, 28) = 0.366752E+01
- PKER_GWETH( 8, 29) = 0.367446E+01
- PKER_GWETH( 8, 30) = 0.368036E+01
- PKER_GWETH( 8, 31) = 0.368539E+01
- PKER_GWETH( 8, 32) = 0.368967E+01
- PKER_GWETH( 8, 33) = 0.369333E+01
- PKER_GWETH( 8, 34) = 0.369644E+01
- PKER_GWETH( 8, 35) = 0.369910E+01
- PKER_GWETH( 8, 36) = 0.370137E+01
- PKER_GWETH( 8, 37) = 0.370330E+01
- PKER_GWETH( 8, 38) = 0.370496E+01
- PKER_GWETH( 8, 39) = 0.370637E+01
- PKER_GWETH( 8, 40) = 0.370757E+01
- PKER_GWETH( 9, 1) = 0.132655E+01
- PKER_GWETH( 9, 2) = 0.998897E+00
- PKER_GWETH( 9, 3) = 0.882830E+00
- PKER_GWETH( 9, 4) = 0.949046E+00
- PKER_GWETH( 9, 5) = 0.113967E+01
- PKER_GWETH( 9, 6) = 0.138873E+01
- PKER_GWETH( 9, 7) = 0.164554E+01
- PKER_GWETH( 9, 8) = 0.188191E+01
- PKER_GWETH( 9, 9) = 0.208795E+01
- PKER_GWETH( 9, 10) = 0.226330E+01
- PKER_GWETH( 9, 11) = 0.241104E+01
- PKER_GWETH( 9, 12) = 0.253503E+01
- PKER_GWETH( 9, 13) = 0.263890E+01
- PKER_GWETH( 9, 14) = 0.272590E+01
- PKER_GWETH( 9, 15) = 0.279880E+01
- PKER_GWETH( 9, 16) = 0.285995E+01
- PKER_GWETH( 9, 17) = 0.291131E+01
- PKER_GWETH( 9, 18) = 0.295450E+01
- PKER_GWETH( 9, 19) = 0.299089E+01
- PKER_GWETH( 9, 20) = 0.302159E+01
- PKER_GWETH( 9, 21) = 0.304751E+01
- PKER_GWETH( 9, 22) = 0.306944E+01
- PKER_GWETH( 9, 23) = 0.308801E+01
- PKER_GWETH( 9, 24) = 0.310375E+01
- PKER_GWETH( 9, 25) = 0.311711E+01
- PKER_GWETH( 9, 26) = 0.312845E+01
- PKER_GWETH( 9, 27) = 0.313808E+01
- PKER_GWETH( 9, 28) = 0.314627E+01
- PKER_GWETH( 9, 29) = 0.315324E+01
- PKER_GWETH( 9, 30) = 0.315917E+01
- PKER_GWETH( 9, 31) = 0.316423E+01
- PKER_GWETH( 9, 32) = 0.316853E+01
- PKER_GWETH( 9, 33) = 0.317220E+01
- PKER_GWETH( 9, 34) = 0.317532E+01
- PKER_GWETH( 9, 35) = 0.317799E+01
- PKER_GWETH( 9, 36) = 0.318027E+01
- PKER_GWETH( 9, 37) = 0.318221E+01
- PKER_GWETH( 9, 38) = 0.318386E+01
- PKER_GWETH( 9, 39) = 0.318528E+01
- PKER_GWETH( 9, 40) = 0.318648E+01
- PKER_GWETH( 10, 1) = 0.158836E+01
- PKER_GWETH( 10, 2) = 0.112991E+01
- PKER_GWETH( 10, 3) = 0.853387E+00
- PKER_GWETH( 10, 4) = 0.758257E+00
- PKER_GWETH( 10, 5) = 0.818751E+00
- PKER_GWETH( 10, 6) = 0.984521E+00
- PKER_GWETH( 10, 7) = 0.119936E+01
- PKER_GWETH( 10, 8) = 0.141989E+01
- PKER_GWETH( 10, 9) = 0.162250E+01
- PKER_GWETH( 10, 10) = 0.179897E+01
- PKER_GWETH( 10, 11) = 0.194912E+01
- PKER_GWETH( 10, 12) = 0.207563E+01
- PKER_GWETH( 10, 13) = 0.218178E+01
- PKER_GWETH( 10, 14) = 0.227073E+01
- PKER_GWETH( 10, 15) = 0.234522E+01
- PKER_GWETH( 10, 16) = 0.240764E+01
- PKER_GWETH( 10, 17) = 0.245999E+01
- PKER_GWETH( 10, 18) = 0.250396E+01
- PKER_GWETH( 10, 19) = 0.254094E+01
- PKER_GWETH( 10, 20) = 0.257210E+01
- PKER_GWETH( 10, 21) = 0.259837E+01
- PKER_GWETH( 10, 22) = 0.262057E+01
- PKER_GWETH( 10, 23) = 0.263934E+01
- PKER_GWETH( 10, 24) = 0.265524E+01
- PKER_GWETH( 10, 25) = 0.266871E+01
- PKER_GWETH( 10, 26) = 0.268015E+01
- PKER_GWETH( 10, 27) = 0.268985E+01
- PKER_GWETH( 10, 28) = 0.269810E+01
- PKER_GWETH( 10, 29) = 0.270511E+01
- PKER_GWETH( 10, 30) = 0.271107E+01
- PKER_GWETH( 10, 31) = 0.271615E+01
- PKER_GWETH( 10, 32) = 0.272048E+01
- PKER_GWETH( 10, 33) = 0.272416E+01
- PKER_GWETH( 10, 34) = 0.272730E+01
- PKER_GWETH( 10, 35) = 0.272997E+01
- PKER_GWETH( 10, 36) = 0.273226E+01
- PKER_GWETH( 10, 37) = 0.273420E+01
- PKER_GWETH( 10, 38) = 0.273586E+01
- PKER_GWETH( 10, 39) = 0.273728E+01
- PKER_GWETH( 10, 40) = 0.273849E+01
- PKER_GWETH( 11, 1) = 0.188694E+01
- PKER_GWETH( 11, 2) = 0.135228E+01
- PKER_GWETH( 11, 3) = 0.962427E+00
- PKER_GWETH( 11, 4) = 0.729069E+00
- PKER_GWETH( 11, 5) = 0.651362E+00
- PKER_GWETH( 11, 6) = 0.706379E+00
- PKER_GWETH( 11, 7) = 0.850482E+00
- PKER_GWETH( 11, 8) = 0.103579E+01
- PKER_GWETH( 11, 9) = 0.122516E+01
- PKER_GWETH( 11, 10) = 0.139882E+01
- PKER_GWETH( 11, 11) = 0.154997E+01
- PKER_GWETH( 11, 12) = 0.167854E+01
- PKER_GWETH( 11, 13) = 0.178685E+01
- PKER_GWETH( 11, 14) = 0.187775E+01
- PKER_GWETH( 11, 15) = 0.195391E+01
- PKER_GWETH( 11, 16) = 0.201769E+01
- PKER_GWETH( 11, 17) = 0.207113E+01
- PKER_GWETH( 11, 18) = 0.211596E+01
- PKER_GWETH( 11, 19) = 0.215360E+01
- PKER_GWETH( 11, 20) = 0.218527E+01
- PKER_GWETH( 11, 21) = 0.221194E+01
- PKER_GWETH( 11, 22) = 0.223444E+01
- PKER_GWETH( 11, 23) = 0.225344E+01
- PKER_GWETH( 11, 24) = 0.226951E+01
- PKER_GWETH( 11, 25) = 0.228312E+01
- PKER_GWETH( 11, 26) = 0.229465E+01
- PKER_GWETH( 11, 27) = 0.230444E+01
- PKER_GWETH( 11, 28) = 0.231274E+01
- PKER_GWETH( 11, 29) = 0.231980E+01
- PKER_GWETH( 11, 30) = 0.232580E+01
- PKER_GWETH( 11, 31) = 0.233091E+01
- PKER_GWETH( 11, 32) = 0.233526E+01
- PKER_GWETH( 11, 33) = 0.233896E+01
- PKER_GWETH( 11, 34) = 0.234211E+01
- PKER_GWETH( 11, 35) = 0.234479E+01
- PKER_GWETH( 11, 36) = 0.234709E+01
- PKER_GWETH( 11, 37) = 0.234904E+01
- PKER_GWETH( 11, 38) = 0.235070E+01
- PKER_GWETH( 11, 39) = 0.235213E+01
- PKER_GWETH( 11, 40) = 0.235334E+01
- PKER_GWETH( 12, 1) = 0.217933E+01
- PKER_GWETH( 12, 2) = 0.160747E+01
- PKER_GWETH( 12, 3) = 0.115129E+01
- PKER_GWETH( 12, 4) = 0.819805E+00
- PKER_GWETH( 12, 5) = 0.622854E+00
- PKER_GWETH( 12, 6) = 0.559616E+00
- PKER_GWETH( 12, 7) = 0.609490E+00
- PKER_GWETH( 12, 8) = 0.734782E+00
- PKER_GWETH( 12, 9) = 0.894511E+00
- PKER_GWETH( 12, 10) = 0.105711E+01
- PKER_GWETH( 12, 11) = 0.120596E+01
- PKER_GWETH( 12, 12) = 0.133541E+01
- PKER_GWETH( 12, 13) = 0.144550E+01
- PKER_GWETH( 12, 14) = 0.153825E+01
- PKER_GWETH( 12, 15) = 0.161608E+01
- PKER_GWETH( 12, 16) = 0.168128E+01
- PKER_GWETH( 12, 17) = 0.173589E+01
- PKER_GWETH( 12, 18) = 0.178165E+01
- PKER_GWETH( 12, 19) = 0.182003E+01
- PKER_GWETH( 12, 20) = 0.185227E+01
- PKER_GWETH( 12, 21) = 0.187938E+01
- PKER_GWETH( 12, 22) = 0.190221E+01
- PKER_GWETH( 12, 23) = 0.192147E+01
- PKER_GWETH( 12, 24) = 0.193774E+01
- PKER_GWETH( 12, 25) = 0.195150E+01
- PKER_GWETH( 12, 26) = 0.196315E+01
- PKER_GWETH( 12, 27) = 0.197302E+01
- PKER_GWETH( 12, 28) = 0.198139E+01
- PKER_GWETH( 12, 29) = 0.198850E+01
- PKER_GWETH( 12, 30) = 0.199455E+01
- PKER_GWETH( 12, 31) = 0.199968E+01
- PKER_GWETH( 12, 32) = 0.200405E+01
- PKER_GWETH( 12, 33) = 0.200777E+01
- PKER_GWETH( 12, 34) = 0.201094E+01
- PKER_GWETH( 12, 35) = 0.201364E+01
- PKER_GWETH( 12, 36) = 0.201594E+01
- PKER_GWETH( 12, 37) = 0.201790E+01
- PKER_GWETH( 12, 38) = 0.201957E+01
- PKER_GWETH( 12, 39) = 0.202100E+01
- PKER_GWETH( 12, 40) = 0.202221E+01
- PKER_GWETH( 13, 1) = 0.244503E+01
- PKER_GWETH( 13, 2) = 0.185806E+01
- PKER_GWETH( 13, 3) = 0.136933E+01
- PKER_GWETH( 13, 4) = 0.980154E+00
- PKER_GWETH( 13, 5) = 0.698393E+00
- PKER_GWETH( 13, 6) = 0.532193E+00
- PKER_GWETH( 13, 7) = 0.480863E+00
- PKER_GWETH( 13, 8) = 0.525928E+00
- PKER_GWETH( 13, 9) = 0.634867E+00
- PKER_GWETH( 13, 10) = 0.772493E+00
- PKER_GWETH( 13, 11) = 0.912096E+00
- PKER_GWETH( 13, 12) = 0.103966E+01
- PKER_GWETH( 13, 13) = 0.115054E+01
- PKER_GWETH( 13, 14) = 0.124481E+01
- PKER_GWETH( 13, 15) = 0.132422E+01
- PKER_GWETH( 13, 16) = 0.139086E+01
- PKER_GWETH( 13, 17) = 0.144669E+01
- PKER_GWETH( 13, 18) = 0.149345E+01
- PKER_GWETH( 13, 19) = 0.153263E+01
- PKER_GWETH( 13, 20) = 0.156549E+01
- PKER_GWETH( 13, 21) = 0.159309E+01
- PKER_GWETH( 13, 22) = 0.161630E+01
- PKER_GWETH( 13, 23) = 0.163585E+01
- PKER_GWETH( 13, 24) = 0.165234E+01
- PKER_GWETH( 13, 25) = 0.166626E+01
- PKER_GWETH( 13, 26) = 0.167804E+01
- PKER_GWETH( 13, 27) = 0.168801E+01
- PKER_GWETH( 13, 28) = 0.169647E+01
- PKER_GWETH( 13, 29) = 0.170364E+01
- PKER_GWETH( 13, 30) = 0.170972E+01
- PKER_GWETH( 13, 31) = 0.171489E+01
- PKER_GWETH( 13, 32) = 0.171929E+01
- PKER_GWETH( 13, 33) = 0.172303E+01
- PKER_GWETH( 13, 34) = 0.172621E+01
- PKER_GWETH( 13, 35) = 0.172893E+01
- PKER_GWETH( 13, 36) = 0.173123E+01
- PKER_GWETH( 13, 37) = 0.173320E+01
- PKER_GWETH( 13, 38) = 0.173488E+01
- PKER_GWETH( 13, 39) = 0.173631E+01
- PKER_GWETH( 13, 40) = 0.173753E+01
- PKER_GWETH( 14, 1) = 0.267774E+01
- PKER_GWETH( 14, 2) = 0.208611E+01
- PKER_GWETH( 14, 3) = 0.158411E+01
- PKER_GWETH( 14, 4) = 0.116642E+01
- PKER_GWETH( 14, 5) = 0.834444E+00
- PKER_GWETH( 14, 6) = 0.594946E+00
- PKER_GWETH( 14, 7) = 0.454936E+00
- PKER_GWETH( 14, 8) = 0.413271E+00
- PKER_GWETH( 14, 9) = 0.453847E+00
- PKER_GWETH( 14, 10) = 0.548545E+00
- PKER_GWETH( 14, 11) = 0.667103E+00
- PKER_GWETH( 14, 12) = 0.786952E+00
- PKER_GWETH( 14, 13) = 0.896286E+00
- PKER_GWETH( 14, 14) = 0.991246E+00
- PKER_GWETH( 14, 15) = 0.107196E+01
- PKER_GWETH( 14, 16) = 0.113996E+01
- PKER_GWETH( 14, 17) = 0.119702E+01
- PKER_GWETH( 14, 18) = 0.124482E+01
- PKER_GWETH( 14, 19) = 0.128486E+01
- PKER_GWETH( 14, 20) = 0.131841E+01
- PKER_GWETH( 14, 21) = 0.134655E+01
- PKER_GWETH( 14, 22) = 0.137017E+01
- PKER_GWETH( 14, 23) = 0.139005E+01
- PKER_GWETH( 14, 24) = 0.140678E+01
- PKER_GWETH( 14, 25) = 0.142090E+01
- PKER_GWETH( 14, 26) = 0.143282E+01
- PKER_GWETH( 14, 27) = 0.144291E+01
- PKER_GWETH( 14, 28) = 0.145144E+01
- PKER_GWETH( 14, 29) = 0.145868E+01
- PKER_GWETH( 14, 30) = 0.146481E+01
- PKER_GWETH( 14, 31) = 0.147002E+01
- PKER_GWETH( 14, 32) = 0.147445E+01
- PKER_GWETH( 14, 33) = 0.147821E+01
- PKER_GWETH( 14, 34) = 0.148142E+01
- PKER_GWETH( 14, 35) = 0.148414E+01
- PKER_GWETH( 14, 36) = 0.148646E+01
- PKER_GWETH( 14, 37) = 0.148844E+01
- PKER_GWETH( 14, 38) = 0.149012E+01
- PKER_GWETH( 14, 39) = 0.149156E+01
- PKER_GWETH( 14, 40) = 0.149278E+01
- PKER_GWETH( 15, 1) = 0.287818E+01
- PKER_GWETH( 15, 2) = 0.228600E+01
- PKER_GWETH( 15, 3) = 0.177984E+01
- PKER_GWETH( 15, 4) = 0.135050E+01
- PKER_GWETH( 15, 5) = 0.993561E+00
- PKER_GWETH( 15, 6) = 0.710380E+00
- PKER_GWETH( 15, 7) = 0.506846E+00
- PKER_GWETH( 15, 8) = 0.388946E+00
- PKER_GWETH( 15, 9) = 0.355232E+00
- PKER_GWETH( 15, 10) = 0.391683E+00
- PKER_GWETH( 15, 11) = 0.473950E+00
- PKER_GWETH( 15, 12) = 0.576074E+00
- PKER_GWETH( 15, 13) = 0.678964E+00
- PKER_GWETH( 15, 14) = 0.772666E+00
- PKER_GWETH( 15, 15) = 0.853994E+00
- PKER_GWETH( 15, 16) = 0.923111E+00
- PKER_GWETH( 15, 17) = 0.981331E+00
- PKER_GWETH( 15, 18) = 0.103019E+01
- PKER_GWETH( 15, 19) = 0.107112E+01
- PKER_GWETH( 15, 20) = 0.110540E+01
- PKER_GWETH( 15, 21) = 0.113413E+01
- PKER_GWETH( 15, 22) = 0.115822E+01
- PKER_GWETH( 15, 23) = 0.117845E+01
- PKER_GWETH( 15, 24) = 0.119546E+01
- PKER_GWETH( 15, 25) = 0.120979E+01
- PKER_GWETH( 15, 26) = 0.122188E+01
- PKER_GWETH( 15, 27) = 0.123208E+01
- PKER_GWETH( 15, 28) = 0.124072E+01
- PKER_GWETH( 15, 29) = 0.124802E+01
- PKER_GWETH( 15, 30) = 0.125422E+01
- PKER_GWETH( 15, 31) = 0.125947E+01
- PKER_GWETH( 15, 32) = 0.126393E+01
- PKER_GWETH( 15, 33) = 0.126772E+01
- PKER_GWETH( 15, 34) = 0.127094E+01
- PKER_GWETH( 15, 35) = 0.127368E+01
- PKER_GWETH( 15, 36) = 0.127601E+01
- PKER_GWETH( 15, 37) = 0.127800E+01
- PKER_GWETH( 15, 38) = 0.127969E+01
- PKER_GWETH( 15, 39) = 0.128113E+01
- PKER_GWETH( 15, 40) = 0.128236E+01
- PKER_GWETH( 16, 1) = 0.304968E+01
- PKER_GWETH( 16, 2) = 0.245823E+01
- PKER_GWETH( 16, 3) = 0.195153E+01
- PKER_GWETH( 16, 4) = 0.151851E+01
- PKER_GWETH( 16, 5) = 0.115132E+01
- PKER_GWETH( 16, 6) = 0.846334E+00
- PKER_GWETH( 16, 7) = 0.604763E+00
- PKER_GWETH( 16, 8) = 0.431831E+00
- PKER_GWETH( 16, 9) = 0.332538E+00
- PKER_GWETH( 16, 10) = 0.305365E+00
- PKER_GWETH( 16, 11) = 0.338047E+00
- PKER_GWETH( 16, 12) = 0.409488E+00
- PKER_GWETH( 16, 13) = 0.497462E+00
- PKER_GWETH( 16, 14) = 0.585781E+00
- PKER_GWETH( 16, 15) = 0.666083E+00
- PKER_GWETH( 16, 16) = 0.735737E+00
- PKER_GWETH( 16, 17) = 0.794919E+00
- PKER_GWETH( 16, 18) = 0.844770E+00
- PKER_GWETH( 16, 19) = 0.886603E+00
- PKER_GWETH( 16, 20) = 0.921652E+00
- PKER_GWETH( 16, 21) = 0.951006E+00
- PKER_GWETH( 16, 22) = 0.975601E+00
- PKER_GWETH( 16, 23) = 0.996228E+00
- PKER_GWETH( 16, 24) = 0.101355E+01
- PKER_GWETH( 16, 25) = 0.102812E+01
- PKER_GWETH( 16, 26) = 0.104038E+01
- PKER_GWETH( 16, 27) = 0.105073E+01
- PKER_GWETH( 16, 28) = 0.105947E+01
- PKER_GWETH( 16, 29) = 0.106686E+01
- PKER_GWETH( 16, 30) = 0.107311E+01
- PKER_GWETH( 16, 31) = 0.107841E+01
- PKER_GWETH( 16, 32) = 0.108291E+01
- PKER_GWETH( 16, 33) = 0.108673E+01
- PKER_GWETH( 16, 34) = 0.108997E+01
- PKER_GWETH( 16, 35) = 0.109273E+01
- PKER_GWETH( 16, 36) = 0.109507E+01
- PKER_GWETH( 16, 37) = 0.109707E+01
- PKER_GWETH( 16, 38) = 0.109877E+01
- PKER_GWETH( 16, 39) = 0.110022E+01
- PKER_GWETH( 16, 40) = 0.110145E+01
- PKER_GWETH( 17, 1) = 0.319611E+01
- PKER_GWETH( 17, 2) = 0.260561E+01
- PKER_GWETH( 17, 3) = 0.209952E+01
- PKER_GWETH( 17, 4) = 0.166598E+01
- PKER_GWETH( 17, 5) = 0.129552E+01
- PKER_GWETH( 17, 6) = 0.981487E+00
- PKER_GWETH( 17, 7) = 0.720900E+00
- PKER_GWETH( 17, 8) = 0.514861E+00
- PKER_GWETH( 17, 9) = 0.367926E+00
- PKER_GWETH( 17, 10) = 0.284324E+00
- PKER_GWETH( 17, 11) = 0.262515E+00
- PKER_GWETH( 17, 12) = 0.291778E+00
- PKER_GWETH( 17, 13) = 0.353788E+00
- PKER_GWETH( 17, 14) = 0.429565E+00
- PKER_GWETH( 17, 15) = 0.505375E+00
- PKER_GWETH( 17, 16) = 0.574193E+00
- PKER_GWETH( 17, 17) = 0.633847E+00
- PKER_GWETH( 17, 18) = 0.684523E+00
- PKER_GWETH( 17, 19) = 0.727207E+00
- PKER_GWETH( 17, 20) = 0.763026E+00
- PKER_GWETH( 17, 21) = 0.793037E+00
- PKER_GWETH( 17, 22) = 0.818171E+00
- PKER_GWETH( 17, 23) = 0.839230E+00
- PKER_GWETH( 17, 24) = 0.856891E+00
- PKER_GWETH( 17, 25) = 0.871722E+00
- PKER_GWETH( 17, 26) = 0.884193E+00
- PKER_GWETH( 17, 27) = 0.894696E+00
- PKER_GWETH( 17, 28) = 0.903554E+00
- PKER_GWETH( 17, 29) = 0.911035E+00
- PKER_GWETH( 17, 30) = 0.917361E+00
- PKER_GWETH( 17, 31) = 0.922716E+00
- PKER_GWETH( 17, 32) = 0.927254E+00
- PKER_GWETH( 17, 33) = 0.931104E+00
- PKER_GWETH( 17, 34) = 0.934371E+00
- PKER_GWETH( 17, 35) = 0.937147E+00
- PKER_GWETH( 17, 36) = 0.939507E+00
- PKER_GWETH( 17, 37) = 0.941515E+00
- PKER_GWETH( 17, 38) = 0.943223E+00
- PKER_GWETH( 17, 39) = 0.944678E+00
- PKER_GWETH( 17, 40) = 0.945917E+00
- PKER_GWETH( 18, 1) = 0.332109E+01
- PKER_GWETH( 18, 2) = 0.273146E+01
- PKER_GWETH( 18, 3) = 0.222618E+01
- PKER_GWETH( 18, 4) = 0.179314E+01
- PKER_GWETH( 18, 5) = 0.142219E+01
- PKER_GWETH( 18, 6) = 0.110525E+01
- PKER_GWETH( 18, 7) = 0.836701E+00
- PKER_GWETH( 18, 8) = 0.614031E+00
- PKER_GWETH( 18, 9) = 0.438335E+00
- PKER_GWETH( 18, 10) = 0.313497E+00
- PKER_GWETH( 18, 11) = 0.243130E+00
- PKER_GWETH( 18, 12) = 0.225766E+00
- PKER_GWETH( 18, 13) = 0.251859E+00
- PKER_GWETH( 18, 14) = 0.305663E+00
- PKER_GWETH( 18, 15) = 0.370929E+00
- PKER_GWETH( 18, 16) = 0.435996E+00
- PKER_GWETH( 18, 17) = 0.494970E+00
- PKER_GWETH( 18, 18) = 0.546059E+00
- PKER_GWETH( 18, 19) = 0.589452E+00
- PKER_GWETH( 18, 20) = 0.626000E+00
- PKER_GWETH( 18, 21) = 0.656670E+00
- PKER_GWETH( 18, 22) = 0.682367E+00
- PKER_GWETH( 18, 23) = 0.703888E+00
- PKER_GWETH( 18, 24) = 0.721919E+00
- PKER_GWETH( 18, 25) = 0.737041E+00
- PKER_GWETH( 18, 26) = 0.749739E+00
- PKER_GWETH( 18, 27) = 0.760417E+00
- PKER_GWETH( 18, 28) = 0.769409E+00
- PKER_GWETH( 18, 29) = 0.776992E+00
- PKER_GWETH( 18, 30) = 0.783397E+00
- PKER_GWETH( 18, 31) = 0.788812E+00
- PKER_GWETH( 18, 32) = 0.793397E+00
- PKER_GWETH( 18, 33) = 0.797281E+00
- PKER_GWETH( 18, 34) = 0.800576E+00
- PKER_GWETH( 18, 35) = 0.803373E+00
- PKER_GWETH( 18, 36) = 0.805750E+00
- PKER_GWETH( 18, 37) = 0.807770E+00
- PKER_GWETH( 18, 38) = 0.809488E+00
- PKER_GWETH( 18, 39) = 0.810950E+00
- PKER_GWETH( 18, 40) = 0.812195E+00
- PKER_GWETH( 19, 1) = 0.342781E+01
- PKER_GWETH( 19, 2) = 0.283888E+01
- PKER_GWETH( 19, 3) = 0.233434E+01
- PKER_GWETH( 19, 4) = 0.190199E+01
- PKER_GWETH( 19, 5) = 0.153145E+01
- PKER_GWETH( 19, 6) = 0.121405E+01
- PKER_GWETH( 19, 7) = 0.942909E+00
- PKER_GWETH( 19, 8) = 0.713251E+00
- PKER_GWETH( 19, 9) = 0.522990E+00
- PKER_GWETH( 19, 10) = 0.373179E+00
- PKER_GWETH( 19, 11) = 0.267136E+00
- PKER_GWETH( 19, 12) = 0.207939E+00
- PKER_GWETH( 19, 13) = 0.194168E+00
- PKER_GWETH( 19, 14) = 0.217411E+00
- PKER_GWETH( 19, 15) = 0.264085E+00
- PKER_GWETH( 19, 16) = 0.320289E+00
- PKER_GWETH( 19, 17) = 0.376133E+00
- PKER_GWETH( 19, 18) = 0.426670E+00
- PKER_GWETH( 19, 19) = 0.470424E+00
- PKER_GWETH( 19, 20) = 0.507580E+00
- PKER_GWETH( 19, 21) = 0.538874E+00
- PKER_GWETH( 19, 22) = 0.565135E+00
- PKER_GWETH( 19, 23) = 0.587138E+00
- PKER_GWETH( 19, 24) = 0.605565E+00
- PKER_GWETH( 19, 25) = 0.621004E+00
- PKER_GWETH( 19, 26) = 0.633952E+00
- PKER_GWETH( 19, 27) = 0.644824E+00
- PKER_GWETH( 19, 28) = 0.653966E+00
- PKER_GWETH( 19, 29) = 0.661665E+00
- PKER_GWETH( 19, 30) = 0.668158E+00
- PKER_GWETH( 19, 31) = 0.673640E+00
- PKER_GWETH( 19, 32) = 0.678276E+00
- PKER_GWETH( 19, 33) = 0.682201E+00
- PKER_GWETH( 19, 34) = 0.685526E+00
- PKER_GWETH( 19, 35) = 0.688347E+00
- PKER_GWETH( 19, 36) = 0.690741E+00
- PKER_GWETH( 19, 37) = 0.692775E+00
- PKER_GWETH( 19, 38) = 0.694504E+00
- PKER_GWETH( 19, 39) = 0.695975E+00
- PKER_GWETH( 19, 40) = 0.697226E+00
- PKER_GWETH( 20, 1) = 0.351898E+01
- PKER_GWETH( 20, 2) = 0.293060E+01
- PKER_GWETH( 20, 3) = 0.242666E+01
- PKER_GWETH( 20, 4) = 0.199494E+01
- PKER_GWETH( 20, 5) = 0.162499E+01
- PKER_GWETH( 20, 6) = 0.130793E+01
- PKER_GWETH( 20, 7) = 0.103636E+01
- PKER_GWETH( 20, 8) = 0.804397E+00
- PKER_GWETH( 20, 9) = 0.607997E+00
- PKER_GWETH( 20, 10) = 0.445440E+00
- PKER_GWETH( 20, 11) = 0.317694E+00
- PKER_GWETH( 20, 12) = 0.227641E+00
- PKER_GWETH( 20, 13) = 0.177870E+00
- PKER_GWETH( 20, 14) = 0.166997E+00
- PKER_GWETH( 20, 15) = 0.187688E+00
- PKER_GWETH( 20, 16) = 0.228164E+00
- PKER_GWETH( 20, 17) = 0.276557E+00
- PKER_GWETH( 20, 18) = 0.324482E+00
- PKER_GWETH( 20, 19) = 0.367788E+00
- PKER_GWETH( 20, 20) = 0.405260E+00
- PKER_GWETH( 20, 21) = 0.437075E+00
- PKER_GWETH( 20, 22) = 0.463871E+00
- PKER_GWETH( 20, 23) = 0.486357E+00
- PKER_GWETH( 20, 24) = 0.505197E+00
- PKER_GWETH( 20, 25) = 0.520975E+00
- PKER_GWETH( 20, 26) = 0.534195E+00
- PKER_GWETH( 20, 27) = 0.545281E+00
- PKER_GWETH( 20, 28) = 0.554590E+00
- PKER_GWETH( 20, 29) = 0.562417E+00
- PKER_GWETH( 20, 30) = 0.569008E+00
- PKER_GWETH( 20, 31) = 0.574567E+00
- PKER_GWETH( 20, 32) = 0.579261E+00
- PKER_GWETH( 20, 33) = 0.583229E+00
- PKER_GWETH( 20, 34) = 0.586589E+00
- PKER_GWETH( 20, 35) = 0.589436E+00
- PKER_GWETH( 20, 36) = 0.591850E+00
- PKER_GWETH( 20, 37) = 0.593899E+00
- PKER_GWETH( 20, 38) = 0.595640E+00
- PKER_GWETH( 20, 39) = 0.597120E+00
- PKER_GWETH( 20, 40) = 0.598379E+00
- PKER_GWETH( 21, 1) = 0.359692E+01
- PKER_GWETH( 21, 2) = 0.300896E+01
- PKER_GWETH( 21, 3) = 0.250550E+01
- PKER_GWETH( 21, 4) = 0.207429E+01
- PKER_GWETH( 21, 5) = 0.170488E+01
- PKER_GWETH( 21, 6) = 0.138832E+01
- PKER_GWETH( 21, 7) = 0.111703E+01
- PKER_GWETH( 21, 8) = 0.884662E+00
- PKER_GWETH( 21, 9) = 0.686219E+00
- PKER_GWETH( 21, 10) = 0.518262E+00
- PKER_GWETH( 21, 11) = 0.379381E+00
- PKER_GWETH( 21, 12) = 0.270445E+00
- PKER_GWETH( 21, 13) = 0.194001E+00
- PKER_GWETH( 21, 14) = 0.152170E+00
- PKER_GWETH( 21, 15) = 0.143663E+00
- PKER_GWETH( 21, 16) = 0.162036E+00
- PKER_GWETH( 21, 17) = 0.197129E+00
- PKER_GWETH( 21, 18) = 0.238790E+00
- PKER_GWETH( 21, 19) = 0.279917E+00
- PKER_GWETH( 21, 20) = 0.317026E+00
- PKER_GWETH( 21, 21) = 0.349117E+00
- PKER_GWETH( 21, 22) = 0.376360E+00
- PKER_GWETH( 21, 23) = 0.399304E+00
- PKER_GWETH( 21, 24) = 0.418558E+00
- PKER_GWETH( 21, 25) = 0.434689E+00
- PKER_GWETH( 21, 26) = 0.448200E+00
- PKER_GWETH( 21, 27) = 0.459519E+00
- PKER_GWETH( 21, 28) = 0.469011E+00
- PKER_GWETH( 21, 29) = 0.476981E+00
- PKER_GWETH( 21, 30) = 0.483683E+00
- PKER_GWETH( 21, 31) = 0.489326E+00
- PKER_GWETH( 21, 32) = 0.494085E+00
- PKER_GWETH( 21, 33) = 0.498103E+00
- PKER_GWETH( 21, 34) = 0.501501E+00
- PKER_GWETH( 21, 35) = 0.504377E+00
- PKER_GWETH( 21, 36) = 0.506814E+00
- PKER_GWETH( 21, 37) = 0.508880E+00
- PKER_GWETH( 21, 38) = 0.510635E+00
- PKER_GWETH( 21, 39) = 0.512125E+00
- PKER_GWETH( 21, 40) = 0.513392E+00
- PKER_GWETH( 22, 1) = 0.366359E+01
- PKER_GWETH( 22, 2) = 0.307596E+01
- PKER_GWETH( 22, 3) = 0.257285E+01
- PKER_GWETH( 22, 4) = 0.214205E+01
- PKER_GWETH( 22, 5) = 0.177308E+01
- PKER_GWETH( 22, 6) = 0.145698E+01
- PKER_GWETH( 22, 7) = 0.118611E+01
- PKER_GWETH( 22, 8) = 0.953972E+00
- PKER_GWETH( 22, 9) = 0.755156E+00
- PKER_GWETH( 22, 10) = 0.585390E+00
- PKER_GWETH( 22, 11) = 0.441762E+00
- PKER_GWETH( 22, 12) = 0.323113E+00
- PKER_GWETH( 22, 13) = 0.230215E+00
- PKER_GWETH( 22, 14) = 0.165338E+00
- PKER_GWETH( 22, 15) = 0.130201E+00
- PKER_GWETH( 22, 16) = 0.123605E+00
- PKER_GWETH( 22, 17) = 0.139899E+00
- PKER_GWETH( 22, 18) = 0.170314E+00
- PKER_GWETH( 22, 19) = 0.206177E+00
- PKER_GWETH( 22, 20) = 0.241468E+00
- PKER_GWETH( 22, 21) = 0.273265E+00
- PKER_GWETH( 22, 22) = 0.300749E+00
- PKER_GWETH( 22, 23) = 0.324076E+00
- PKER_GWETH( 22, 24) = 0.343721E+00
- PKER_GWETH( 22, 25) = 0.360208E+00
- PKER_GWETH( 22, 26) = 0.374020E+00
- PKER_GWETH( 22, 27) = 0.385589E+00
- PKER_GWETH( 22, 28) = 0.395281E+00
- PKER_GWETH( 22, 29) = 0.403408E+00
- PKER_GWETH( 22, 30) = 0.410232E+00
- PKER_GWETH( 22, 31) = 0.415970E+00
- PKER_GWETH( 22, 32) = 0.420802E+00
- PKER_GWETH( 22, 33) = 0.424876E+00
- PKER_GWETH( 22, 34) = 0.428316E+00
- PKER_GWETH( 22, 35) = 0.431225E+00
- PKER_GWETH( 22, 36) = 0.433687E+00
- PKER_GWETH( 22, 37) = 0.435773E+00
- PKER_GWETH( 22, 38) = 0.437542E+00
- PKER_GWETH( 22, 39) = 0.439043E+00
- PKER_GWETH( 22, 40) = 0.440319E+00
- PKER_GWETH( 23, 1) = 0.372064E+01
- PKER_GWETH( 23, 2) = 0.313326E+01
- PKER_GWETH( 23, 3) = 0.263044E+01
- PKER_GWETH( 23, 4) = 0.219994E+01
- PKER_GWETH( 23, 5) = 0.183132E+01
- PKER_GWETH( 23, 6) = 0.151560E+01
- PKER_GWETH( 23, 7) = 0.124512E+01
- PKER_GWETH( 23, 8) = 0.101334E+01
- PKER_GWETH( 23, 9) = 0.814709E+00
- PKER_GWETH( 23, 10) = 0.644598E+00
- PKER_GWETH( 23, 11) = 0.499364E+00
- PKER_GWETH( 23, 12) = 0.376545E+00
- PKER_GWETH( 23, 13) = 0.275183E+00
- PKER_GWETH( 23, 14) = 0.195998E+00
- PKER_GWETH( 23, 15) = 0.140922E+00
- PKER_GWETH( 23, 16) = 0.111420E+00
- PKER_GWETH( 23, 17) = 0.106360E+00
- PKER_GWETH( 23, 18) = 0.120791E+00
- PKER_GWETH( 23, 19) = 0.147147E+00
- PKER_GWETH( 23, 20) = 0.178014E+00
- PKER_GWETH( 23, 21) = 0.208295E+00
- PKER_GWETH( 23, 22) = 0.235541E+00
- PKER_GWETH( 23, 23) = 0.259078E+00
- PKER_GWETH( 23, 24) = 0.279052E+00
- PKER_GWETH( 23, 25) = 0.295874E+00
- PKER_GWETH( 23, 26) = 0.309990E+00
- PKER_GWETH( 23, 27) = 0.321818E+00
- PKER_GWETH( 23, 28) = 0.331723E+00
- PKER_GWETH( 23, 29) = 0.340022E+00
- PKER_GWETH( 23, 30) = 0.346981E+00
- PKER_GWETH( 23, 31) = 0.352824E+00
- PKER_GWETH( 23, 32) = 0.357736E+00
- PKER_GWETH( 23, 33) = 0.361873E+00
- PKER_GWETH( 23, 34) = 0.365361E+00
- PKER_GWETH( 23, 35) = 0.368306E+00
- PKER_GWETH( 23, 36) = 0.370796E+00
- PKER_GWETH( 23, 37) = 0.372904E+00
- PKER_GWETH( 23, 38) = 0.374689E+00
- PKER_GWETH( 23, 39) = 0.376204E+00
- PKER_GWETH( 23, 40) = 0.377489E+00
- PKER_GWETH( 24, 1) = 0.376949E+01
- PKER_GWETH( 24, 2) = 0.318230E+01
- PKER_GWETH( 24, 3) = 0.267969E+01
- PKER_GWETH( 24, 4) = 0.224944E+01
- PKER_GWETH( 24, 5) = 0.188108E+01
- PKER_GWETH( 24, 6) = 0.156565E+01
- PKER_GWETH( 24, 7) = 0.129550E+01
- PKER_GWETH( 24, 8) = 0.106406E+01
- PKER_GWETH( 24, 9) = 0.865729E+00
- PKER_GWETH( 24, 10) = 0.695767E+00
- PKER_GWETH( 24, 11) = 0.550217E+00
- PKER_GWETH( 24, 12) = 0.425970E+00
- PKER_GWETH( 24, 13) = 0.320948E+00
- PKER_GWETH( 24, 14) = 0.234359E+00
- PKER_GWETH( 24, 15) = 0.166867E+00
- PKER_GWETH( 24, 16) = 0.120117E+00
- PKER_GWETH( 24, 17) = 0.953615E-01
- PKER_GWETH( 24, 18) = 0.915330E-01
- PKER_GWETH( 24, 19) = 0.104298E+00
- PKER_GWETH( 24, 20) = 0.127130E+00
- PKER_GWETH( 24, 21) = 0.153694E+00
- PKER_GWETH( 24, 22) = 0.179676E+00
- PKER_GWETH( 24, 23) = 0.203021E+00
- PKER_GWETH( 24, 24) = 0.223178E+00
- PKER_GWETH( 24, 25) = 0.240281E+00
- PKER_GWETH( 24, 26) = 0.254685E+00
- PKER_GWETH( 24, 27) = 0.266772E+00
- PKER_GWETH( 24, 28) = 0.276900E+00
- PKER_GWETH( 24, 29) = 0.285381E+00
- PKER_GWETH( 24, 30) = 0.292487E+00
- PKER_GWETH( 24, 31) = 0.298445E+00
- PKER_GWETH( 24, 32) = 0.303448E+00
- PKER_GWETH( 24, 33) = 0.307654E+00
- PKER_GWETH( 24, 34) = 0.311196E+00
- PKER_GWETH( 24, 35) = 0.314182E+00
- PKER_GWETH( 24, 36) = 0.316704E+00
- PKER_GWETH( 24, 37) = 0.318835E+00
- PKER_GWETH( 24, 38) = 0.320640E+00
- PKER_GWETH( 24, 39) = 0.322168E+00
- PKER_GWETH( 24, 40) = 0.323465E+00
- PKER_GWETH( 25, 1) = 0.381133E+01
- PKER_GWETH( 25, 2) = 0.322429E+01
- PKER_GWETH( 25, 3) = 0.272184E+01
- PKER_GWETH( 25, 4) = 0.229177E+01
- PKER_GWETH( 25, 5) = 0.192362E+01
- PKER_GWETH( 25, 6) = 0.160842E+01
- PKER_GWETH( 25, 7) = 0.133852E+01
- PKER_GWETH( 25, 8) = 0.110735E+01
- PKER_GWETH( 25, 9) = 0.909315E+00
- PKER_GWETH( 25, 10) = 0.739612E+00
- PKER_GWETH( 25, 11) = 0.594182E+00
- PKER_GWETH( 25, 12) = 0.469647E+00
- PKER_GWETH( 25, 13) = 0.363358E+00
- PKER_GWETH( 25, 14) = 0.273552E+00
- PKER_GWETH( 25, 15) = 0.199585E+00
- PKER_GWETH( 25, 16) = 0.142061E+00
- PKER_GWETH( 25, 17) = 0.102393E+00
- PKER_GWETH( 25, 18) = 0.816292E-01
- PKER_GWETH( 25, 19) = 0.787840E-01
- PKER_GWETH( 25, 20) = 0.900615E-01
- PKER_GWETH( 25, 21) = 0.109835E+00
- PKER_GWETH( 25, 22) = 0.132694E+00
- PKER_GWETH( 25, 23) = 0.154985E+00
- PKER_GWETH( 25, 24) = 0.174988E+00
- PKER_GWETH( 25, 25) = 0.192250E+00
- PKER_GWETH( 25, 26) = 0.206895E+00
- PKER_GWETH( 25, 27) = 0.219228E+00
- PKER_GWETH( 25, 28) = 0.229578E+00
- PKER_GWETH( 25, 29) = 0.238250E+00
- PKER_GWETH( 25, 30) = 0.245512E+00
- PKER_GWETH( 25, 31) = 0.251597E+00
- PKER_GWETH( 25, 32) = 0.256699E+00
- PKER_GWETH( 25, 33) = 0.260982E+00
- PKER_GWETH( 25, 34) = 0.264583E+00
- PKER_GWETH( 25, 35) = 0.267616E+00
- PKER_GWETH( 25, 36) = 0.270172E+00
- PKER_GWETH( 25, 37) = 0.272331E+00
- PKER_GWETH( 25, 38) = 0.274156E+00
- PKER_GWETH( 25, 39) = 0.275700E+00
- PKER_GWETH( 25, 40) = 0.277009E+00
- PKER_GWETH( 26, 1) = 0.384717E+01
- PKER_GWETH( 26, 2) = 0.326025E+01
- PKER_GWETH( 26, 3) = 0.275793E+01
- PKER_GWETH( 26, 4) = 0.232801E+01
- PKER_GWETH( 26, 5) = 0.196001E+01
- PKER_GWETH( 26, 6) = 0.164499E+01
- PKER_GWETH( 26, 7) = 0.137528E+01
- PKER_GWETH( 26, 8) = 0.114433E+01
- PKER_GWETH( 26, 9) = 0.946529E+00
- PKER_GWETH( 26, 10) = 0.777072E+00
- PKER_GWETH( 26, 11) = 0.631861E+00
- PKER_GWETH( 26, 12) = 0.507422E+00
- PKER_GWETH( 26, 13) = 0.400869E+00
- PKER_GWETH( 26, 14) = 0.309943E+00
- PKER_GWETH( 26, 15) = 0.233150E+00
- PKER_GWETH( 26, 16) = 0.169969E+00
- PKER_GWETH( 26, 17) = 0.120938E+00
- PKER_GWETH( 26, 18) = 0.872884E-01
- PKER_GWETH( 26, 19) = 0.698854E-01
- PKER_GWETH( 26, 20) = 0.678184E-01
- PKER_GWETH( 26, 21) = 0.777723E-01
- PKER_GWETH( 26, 22) = 0.948930E-01
- PKER_GWETH( 26, 23) = 0.114561E+00
- PKER_GWETH( 26, 24) = 0.133685E+00
- PKER_GWETH( 26, 25) = 0.150823E+00
- PKER_GWETH( 26, 26) = 0.165606E+00
- PKER_GWETH( 26, 27) = 0.178146E+00
- PKER_GWETH( 26, 28) = 0.188706E+00
- PKER_GWETH( 26, 29) = 0.197569E+00
- PKER_GWETH( 26, 30) = 0.204994E+00
- PKER_GWETH( 26, 31) = 0.211213E+00
- PKER_GWETH( 26, 32) = 0.216422E+00
- PKER_GWETH( 26, 33) = 0.220791E+00
- PKER_GWETH( 26, 34) = 0.224458E+00
- PKER_GWETH( 26, 35) = 0.227542E+00
- PKER_GWETH( 26, 36) = 0.230138E+00
- PKER_GWETH( 26, 37) = 0.232327E+00
- PKER_GWETH( 26, 38) = 0.234175E+00
- PKER_GWETH( 26, 39) = 0.235737E+00
- PKER_GWETH( 26, 40) = 0.237059E+00
- PKER_GWETH( 27, 1) = 0.387789E+01
- PKER_GWETH( 27, 2) = 0.329106E+01
- PKER_GWETH( 27, 3) = 0.278885E+01
- PKER_GWETH( 27, 4) = 0.235903E+01
- PKER_GWETH( 27, 5) = 0.199115E+01
- PKER_GWETH( 27, 6) = 0.167627E+01
- PKER_GWETH( 27, 7) = 0.140671E+01
- PKER_GWETH( 27, 8) = 0.117593E+01
- PKER_GWETH( 27, 9) = 0.978311E+00
- PKER_GWETH( 27, 10) = 0.809056E+00
- PKER_GWETH( 27, 11) = 0.664056E+00
- PKER_GWETH( 27, 12) = 0.539803E+00
- PKER_GWETH( 27, 13) = 0.433325E+00
- PKER_GWETH( 27, 14) = 0.342157E+00
- PKER_GWETH( 27, 15) = 0.264373E+00
- PKER_GWETH( 27, 16) = 0.198711E+00
- PKER_GWETH( 27, 17) = 0.144743E+00
- PKER_GWETH( 27, 18) = 0.102957E+00
- PKER_GWETH( 27, 19) = 0.744189E-01
- PKER_GWETH( 27, 20) = 0.598398E-01
- PKER_GWETH( 27, 21) = 0.583871E-01
- PKER_GWETH( 27, 22) = 0.671630E-01
- PKER_GWETH( 27, 23) = 0.819825E-01
- PKER_GWETH( 27, 24) = 0.989033E-01
- PKER_GWETH( 27, 25) = 0.115309E+00
- PKER_GWETH( 27, 26) = 0.129993E+00
- PKER_GWETH( 27, 27) = 0.142653E+00
- PKER_GWETH( 27, 28) = 0.153391E+00
- PKER_GWETH( 27, 29) = 0.162433E+00
- PKER_GWETH( 27, 30) = 0.170021E+00
- PKER_GWETH( 27, 31) = 0.176379E+00
- PKER_GWETH( 27, 32) = 0.181704E+00
- PKER_GWETH( 27, 33) = 0.186165E+00
- PKER_GWETH( 27, 34) = 0.189906E+00
- PKER_GWETH( 27, 35) = 0.193046E+00
- PKER_GWETH( 27, 36) = 0.195686E+00
- PKER_GWETH( 27, 37) = 0.197908E+00
- PKER_GWETH( 27, 38) = 0.199782E+00
- PKER_GWETH( 27, 39) = 0.201365E+00
- PKER_GWETH( 27, 40) = 0.202702E+00
- PKER_GWETH( 28, 1) = 0.390423E+01
- PKER_GWETH( 28, 2) = 0.331747E+01
- PKER_GWETH( 28, 3) = 0.281533E+01
- PKER_GWETH( 28, 4) = 0.238560E+01
- PKER_GWETH( 28, 5) = 0.201782E+01
- PKER_GWETH( 28, 6) = 0.170303E+01
- PKER_GWETH( 28, 7) = 0.143359E+01
- PKER_GWETH( 28, 8) = 0.120294E+01
- PKER_GWETH( 28, 9) = 0.100547E+01
- PKER_GWETH( 28, 10) = 0.836373E+00
- PKER_GWETH( 28, 11) = 0.691546E+00
- PKER_GWETH( 28, 12) = 0.567472E+00
- PKER_GWETH( 28, 13) = 0.461152E+00
- PKER_GWETH( 28, 14) = 0.370043E+00
- PKER_GWETH( 28, 15) = 0.292039E+00
- PKER_GWETH( 28, 16) = 0.225499E+00
- PKER_GWETH( 28, 17) = 0.169354E+00
- PKER_GWETH( 28, 18) = 0.123260E+00
- PKER_GWETH( 28, 19) = 0.876511E-01
- PKER_GWETH( 28, 20) = 0.634500E-01
- PKER_GWETH( 28, 21) = 0.512448E-01
- PKER_GWETH( 28, 22) = 0.502738E-01
- PKER_GWETH( 28, 23) = 0.580041E-01
- PKER_GWETH( 28, 24) = 0.708282E-01
- PKER_GWETH( 28, 25) = 0.853839E-01
- PKER_GWETH( 28, 26) = 0.994571E-01
- PKER_GWETH( 28, 27) = 0.112038E+00
- PKER_GWETH( 28, 28) = 0.122879E+00
- PKER_GWETH( 28, 29) = 0.132074E+00
- PKER_GWETH( 28, 30) = 0.139816E+00
- PKER_GWETH( 28, 31) = 0.146314E+00
- PKER_GWETH( 28, 32) = 0.151758E+00
- PKER_GWETH( 28, 33) = 0.156318E+00
- PKER_GWETH( 28, 34) = 0.160137E+00
- PKER_GWETH( 28, 35) = 0.163340E+00
- PKER_GWETH( 28, 36) = 0.166029E+00
- PKER_GWETH( 28, 37) = 0.168289E+00
- PKER_GWETH( 28, 38) = 0.170192E+00
- PKER_GWETH( 28, 39) = 0.171797E+00
- PKER_GWETH( 28, 40) = 0.173151E+00
- PKER_GWETH( 29, 1) = 0.392682E+01
- PKER_GWETH( 29, 2) = 0.334011E+01
- PKER_GWETH( 29, 3) = 0.283803E+01
- PKER_GWETH( 29, 4) = 0.240837E+01
- PKER_GWETH( 29, 5) = 0.204066E+01
- PKER_GWETH( 29, 6) = 0.172596E+01
- PKER_GWETH( 29, 7) = 0.145660E+01
- PKER_GWETH( 29, 8) = 0.122605E+01
- PKER_GWETH( 29, 9) = 0.102869E+01
- PKER_GWETH( 29, 10) = 0.859716E+00
- PKER_GWETH( 29, 11) = 0.715025E+00
- PKER_GWETH( 29, 12) = 0.591099E+00
- PKER_GWETH( 29, 13) = 0.484932E+00
- PKER_GWETH( 29, 14) = 0.393957E+00
- PKER_GWETH( 29, 15) = 0.315999E+00
- PKER_GWETH( 29, 16) = 0.249258E+00
- PKER_GWETH( 29, 17) = 0.192336E+00
- PKER_GWETH( 29, 18) = 0.144330E+00
- PKER_GWETH( 29, 19) = 0.104963E+00
- PKER_GWETH( 29, 20) = 0.746220E-01
- PKER_GWETH( 29, 21) = 0.541032E-01
- PKER_GWETH( 29, 22) = 0.438920E-01
- PKER_GWETH( 29, 23) = 0.432926E-01
- PKER_GWETH( 29, 24) = 0.500966E-01
- PKER_GWETH( 29, 25) = 0.611908E-01
- PKER_GWETH( 29, 26) = 0.737100E-01
- PKER_GWETH( 29, 27) = 0.857825E-01
- PKER_GWETH( 29, 28) = 0.965608E-01
- PKER_GWETH( 29, 29) = 0.105845E+00
- PKER_GWETH( 29, 30) = 0.113718E+00
- PKER_GWETH( 29, 31) = 0.120348E+00
- PKER_GWETH( 29, 32) = 0.125912E+00
- PKER_GWETH( 29, 33) = 0.130574E+00
- PKER_GWETH( 29, 34) = 0.134478E+00
- PKER_GWETH( 29, 35) = 0.137748E+00
- PKER_GWETH( 29, 36) = 0.140491E+00
- PKER_GWETH( 29, 37) = 0.142793E+00
- PKER_GWETH( 29, 38) = 0.144728E+00
- PKER_GWETH( 29, 39) = 0.146357E+00
- PKER_GWETH( 29, 40) = 0.147731E+00
- PKER_GWETH( 30, 1) = 0.394620E+01
- PKER_GWETH( 30, 2) = 0.335953E+01
- PKER_GWETH( 30, 3) = 0.285750E+01
- PKER_GWETH( 30, 4) = 0.242788E+01
- PKER_GWETH( 30, 5) = 0.206023E+01
- PKER_GWETH( 30, 6) = 0.174559E+01
- PKER_GWETH( 30, 7) = 0.147631E+01
- PKER_GWETH( 30, 8) = 0.124583E+01
- PKER_GWETH( 30, 9) = 0.104855E+01
- PKER_GWETH( 30, 10) = 0.879674E+00
- PKER_GWETH( 30, 11) = 0.735088E+00
- PKER_GWETH( 30, 12) = 0.611279E+00
- PKER_GWETH( 30, 13) = 0.505239E+00
- PKER_GWETH( 30, 14) = 0.414395E+00
- PKER_GWETH( 30, 15) = 0.336549E+00
- PKER_GWETH( 30, 16) = 0.269844E+00
- PKER_GWETH( 30, 17) = 0.212740E+00
- PKER_GWETH( 30, 18) = 0.164047E+00
- PKER_GWETH( 30, 19) = 0.123002E+00
- PKER_GWETH( 30, 20) = 0.893792E-01
- PKER_GWETH( 30, 21) = 0.635301E-01
- PKER_GWETH( 30, 22) = 0.461363E-01
- PKER_GWETH( 30, 23) = 0.375986E-01
- PKER_GWETH( 30, 24) = 0.372861E-01
- PKER_GWETH( 30, 25) = 0.432687E-01
- PKER_GWETH( 30, 26) = 0.528642E-01
- PKER_GWETH( 30, 27) = 0.636312E-01
- PKER_GWETH( 30, 28) = 0.739863E-01
- PKER_GWETH( 30, 29) = 0.832206E-01
- PKER_GWETH( 30, 30) = 0.911715E-01
- PKER_GWETH( 30, 31) = 0.979130E-01
- PKER_GWETH( 30, 32) = 0.103590E+00
- PKER_GWETH( 30, 33) = 0.108354E+00
- PKER_GWETH( 30, 34) = 0.112346E+00
- PKER_GWETH( 30, 35) = 0.115689E+00
- PKER_GWETH( 30, 36) = 0.118489E+00
- PKER_GWETH( 30, 37) = 0.120837E+00
- PKER_GWETH( 30, 38) = 0.122808E+00
- PKER_GWETH( 30, 39) = 0.124466E+00
- PKER_GWETH( 30, 40) = 0.125860E+00
- PKER_GWETH( 31, 1) = 0.396282E+01
- PKER_GWETH( 31, 2) = 0.337618E+01
- PKER_GWETH( 31, 3) = 0.287419E+01
- PKER_GWETH( 31, 4) = 0.244461E+01
- PKER_GWETH( 31, 5) = 0.207700E+01
- PKER_GWETH( 31, 6) = 0.176241E+01
- PKER_GWETH( 31, 7) = 0.149318E+01
- PKER_GWETH( 31, 8) = 0.126277E+01
- PKER_GWETH( 31, 9) = 0.106555E+01
- PKER_GWETH( 31, 10) = 0.896748E+00
- PKER_GWETH( 31, 11) = 0.752243E+00
- PKER_GWETH( 31, 12) = 0.628524E+00
- PKER_GWETH( 31, 13) = 0.522584E+00
- PKER_GWETH( 31, 14) = 0.431848E+00
- PKER_GWETH( 31, 15) = 0.354114E+00
- PKER_GWETH( 31, 16) = 0.287504E+00
- PKER_GWETH( 31, 17) = 0.230428E+00
- PKER_GWETH( 31, 18) = 0.181570E+00
- PKER_GWETH( 31, 19) = 0.139916E+00
- PKER_GWETH( 31, 20) = 0.104822E+00
- PKER_GWETH( 31, 21) = 0.761078E-01
- PKER_GWETH( 31, 22) = 0.540869E-01
- PKER_GWETH( 31, 23) = 0.393467E-01
- PKER_GWETH( 31, 24) = 0.322138E-01
- PKER_GWETH( 31, 25) = 0.321164E-01
- PKER_GWETH( 31, 26) = 0.373726E-01
- PKER_GWETH( 31, 27) = 0.456700E-01
- PKER_GWETH( 31, 28) = 0.549298E-01
- PKER_GWETH( 31, 29) = 0.638108E-01
- PKER_GWETH( 31, 30) = 0.717222E-01
- PKER_GWETH( 31, 31) = 0.785310E-01
- PKER_GWETH( 31, 32) = 0.843036E-01
- PKER_GWETH( 31, 33) = 0.891644E-01
- PKER_GWETH( 31, 34) = 0.932438E-01
- PKER_GWETH( 31, 35) = 0.966619E-01
- PKER_GWETH( 31, 36) = 0.995245E-01
- PKER_GWETH( 31, 37) = 0.101922E+00
- PKER_GWETH( 31, 38) = 0.103933E+00
- PKER_GWETH( 31, 39) = 0.105621E+00
- PKER_GWETH( 31, 40) = 0.107040E+00
- PKER_GWETH( 32, 1) = 0.397708E+01
- PKER_GWETH( 32, 2) = 0.339047E+01
- PKER_GWETH( 32, 3) = 0.288850E+01
- PKER_GWETH( 32, 4) = 0.245896E+01
- PKER_GWETH( 32, 5) = 0.209138E+01
- PKER_GWETH( 32, 6) = 0.177683E+01
- PKER_GWETH( 32, 7) = 0.150764E+01
- PKER_GWETH( 32, 8) = 0.127727E+01
- PKER_GWETH( 32, 9) = 0.108011E+01
- PKER_GWETH( 32, 10) = 0.911361E+00
- PKER_GWETH( 32, 11) = 0.766918E+00
- PKER_GWETH( 32, 12) = 0.643269E+00
- PKER_GWETH( 32, 13) = 0.537406E+00
- PKER_GWETH( 32, 14) = 0.446756E+00
- PKER_GWETH( 32, 15) = 0.369116E+00
- PKER_GWETH( 32, 16) = 0.302601E+00
- PKER_GWETH( 32, 17) = 0.245604E+00
- PKER_GWETH( 32, 18) = 0.196766E+00
- PKER_GWETH( 32, 19) = 0.154963E+00
- PKER_GWETH( 32, 20) = 0.119332E+00
- PKER_GWETH( 32, 21) = 0.893267E-01
- PKER_GWETH( 32, 22) = 0.648070E-01
- PKER_GWETH( 32, 23) = 0.460486E-01
- PKER_GWETH( 32, 24) = 0.335588E-01
- PKER_GWETH( 32, 25) = 0.276040E-01
- PKER_GWETH( 32, 26) = 0.276657E-01
- PKER_GWETH( 32, 27) = 0.322804E-01
- PKER_GWETH( 32, 28) = 0.394546E-01
- PKER_GWETH( 32, 29) = 0.474167E-01
- PKER_GWETH( 32, 30) = 0.550336E-01
- PKER_GWETH( 32, 31) = 0.618114E-01
- PKER_GWETH( 32, 32) = 0.676423E-01
- PKER_GWETH( 32, 33) = 0.725852E-01
- PKER_GWETH( 32, 34) = 0.767473E-01
- PKER_GWETH( 32, 35) = 0.802405E-01
- PKER_GWETH( 32, 36) = 0.831673E-01
- PKER_GWETH( 32, 37) = 0.856184E-01
- PKER_GWETH( 32, 38) = 0.876718E-01
- PKER_GWETH( 32, 39) = 0.893933E-01
- PKER_GWETH( 32, 40) = 0.908384E-01
- PKER_GWETH( 33, 1) = 0.398932E+01
- PKER_GWETH( 33, 2) = 0.340273E+01
- PKER_GWETH( 33, 3) = 0.290079E+01
- PKER_GWETH( 33, 4) = 0.247127E+01
- PKER_GWETH( 33, 5) = 0.210372E+01
- PKER_GWETH( 33, 6) = 0.178919E+01
- PKER_GWETH( 33, 7) = 0.152004E+01
- PKER_GWETH( 33, 8) = 0.128970E+01
- PKER_GWETH( 33, 9) = 0.109258E+01
- PKER_GWETH( 33, 10) = 0.923874E+00
- PKER_GWETH( 33, 11) = 0.779479E+00
- PKER_GWETH( 33, 12) = 0.655884E+00
- PKER_GWETH( 33, 13) = 0.550080E+00
- PKER_GWETH( 33, 14) = 0.459496E+00
- PKER_GWETH( 33, 15) = 0.381929E+00
- PKER_GWETH( 33, 16) = 0.315494E+00
- PKER_GWETH( 33, 17) = 0.258578E+00
- PKER_GWETH( 33, 18) = 0.209808E+00
- PKER_GWETH( 33, 19) = 0.168020E+00
- PKER_GWETH( 33, 20) = 0.132253E+00
- PKER_GWETH( 33, 21) = 0.101773E+00
- PKER_GWETH( 33, 22) = 0.761204E-01
- PKER_GWETH( 33, 23) = 0.551820E-01
- PKER_GWETH( 33, 24) = 0.392049E-01
- PKER_GWETH( 33, 25) = 0.286250E-01
- PKER_GWETH( 33, 26) = 0.236572E-01
- PKER_GWETH( 33, 27) = 0.238365E-01
- PKER_GWETH( 33, 28) = 0.278819E-01
- PKER_GWETH( 33, 29) = 0.340844E-01
- PKER_GWETH( 33, 30) = 0.409301E-01
- PKER_GWETH( 33, 31) = 0.474629E-01
- PKER_GWETH( 33, 32) = 0.532693E-01
- PKER_GWETH( 33, 33) = 0.582626E-01
- PKER_GWETH( 33, 34) = 0.624951E-01
- PKER_GWETH( 33, 35) = 0.660590E-01
- PKER_GWETH( 33, 36) = 0.690501E-01
- PKER_GWETH( 33, 37) = 0.715563E-01
- PKER_GWETH( 33, 38) = 0.736552E-01
- PKER_GWETH( 33, 39) = 0.754134E-01
- PKER_GWETH( 33, 40) = 0.768875E-01
- PKER_GWETH( 34, 1) = 0.399983E+01
- PKER_GWETH( 34, 2) = 0.341326E+01
- PKER_GWETH( 34, 3) = 0.291133E+01
- PKER_GWETH( 34, 4) = 0.248183E+01
- PKER_GWETH( 34, 5) = 0.211430E+01
- PKER_GWETH( 34, 6) = 0.179980E+01
- PKER_GWETH( 34, 7) = 0.153067E+01
- PKER_GWETH( 34, 8) = 0.130036E+01
- PKER_GWETH( 34, 9) = 0.110326E+01
- PKER_GWETH( 34, 10) = 0.934592E+00
- PKER_GWETH( 34, 11) = 0.790235E+00
- PKER_GWETH( 34, 12) = 0.666681E+00
- PKER_GWETH( 34, 13) = 0.560923E+00
- PKER_GWETH( 34, 14) = 0.470390E+00
- PKER_GWETH( 34, 15) = 0.392879E+00
- PKER_GWETH( 34, 16) = 0.326507E+00
- PKER_GWETH( 34, 17) = 0.269660E+00
- PKER_GWETH( 34, 18) = 0.220959E+00
- PKER_GWETH( 34, 19) = 0.179227E+00
- PKER_GWETH( 34, 20) = 0.143471E+00
- PKER_GWETH( 34, 21) = 0.112870E+00
- PKER_GWETH( 34, 22) = 0.867966E-01
- PKER_GWETH( 34, 23) = 0.648649E-01
- PKER_GWETH( 34, 24) = 0.469859E-01
- PKER_GWETH( 34, 25) = 0.333789E-01
- PKER_GWETH( 34, 26) = 0.244190E-01
- PKER_GWETH( 34, 27) = 0.202775E-01
- PKER_GWETH( 34, 28) = 0.205384E-01
- PKER_GWETH( 34, 29) = 0.240824E-01
- PKER_GWETH( 34, 30) = 0.294450E-01
- PKER_GWETH( 34, 31) = 0.353303E-01
- PKER_GWETH( 34, 32) = 0.409329E-01
- PKER_GWETH( 34, 33) = 0.459069E-01
- PKER_GWETH( 34, 34) = 0.501829E-01
- PKER_GWETH( 34, 35) = 0.538071E-01
- PKER_GWETH( 34, 36) = 0.568588E-01
- PKER_GWETH( 34, 37) = 0.594200E-01
- PKER_GWETH( 34, 38) = 0.615661E-01
- PKER_GWETH( 34, 39) = 0.633633E-01
- PKER_GWETH( 34, 40) = 0.648688E-01
- PKER_GWETH( 35, 1) = 0.400885E+01
- PKER_GWETH( 35, 2) = 0.342229E+01
- PKER_GWETH( 35, 3) = 0.292037E+01
- PKER_GWETH( 35, 4) = 0.249089E+01
- PKER_GWETH( 35, 5) = 0.212337E+01
- PKER_GWETH( 35, 6) = 0.180889E+01
- PKER_GWETH( 35, 7) = 0.153978E+01
- PKER_GWETH( 35, 8) = 0.130949E+01
- PKER_GWETH( 35, 9) = 0.111242E+01
- PKER_GWETH( 35, 10) = 0.943777E+00
- PKER_GWETH( 35, 11) = 0.799449E+00
- PKER_GWETH( 35, 12) = 0.675926E+00
- PKER_GWETH( 35, 13) = 0.570204E+00
- PKER_GWETH( 35, 14) = 0.479710E+00
- PKER_GWETH( 35, 15) = 0.402243E+00
- PKER_GWETH( 35, 16) = 0.335919E+00
- PKER_GWETH( 35, 17) = 0.279126E+00
- PKER_GWETH( 35, 18) = 0.230483E+00
- PKER_GWETH( 35, 19) = 0.188811E+00
- PKER_GWETH( 35, 20) = 0.153102E+00
- PKER_GWETH( 35, 21) = 0.122507E+00
- PKER_GWETH( 35, 22) = 0.963249E-01
- PKER_GWETH( 35, 23) = 0.740223E-01
- PKER_GWETH( 35, 24) = 0.552721E-01
- PKER_GWETH( 35, 25) = 0.400067E-01
- PKER_GWETH( 35, 26) = 0.284193E-01
- PKER_GWETH( 35, 27) = 0.208328E-01
- PKER_GWETH( 35, 28) = 0.173845E-01
- PKER_GWETH( 35, 29) = 0.176984E-01
- PKER_GWETH( 35, 30) = 0.208008E-01
- PKER_GWETH( 35, 31) = 0.254366E-01
- PKER_GWETH( 35, 32) = 0.304959E-01
- PKER_GWETH( 35, 33) = 0.353005E-01
- PKER_GWETH( 35, 34) = 0.395615E-01
- PKER_GWETH( 35, 35) = 0.432232E-01
- PKER_GWETH( 35, 36) = 0.463265E-01
- PKER_GWETH( 35, 37) = 0.489396E-01
- PKER_GWETH( 35, 38) = 0.511328E-01
- PKER_GWETH( 35, 39) = 0.529704E-01
- PKER_GWETH( 35, 40) = 0.545093E-01
- PKER_GWETH( 36, 1) = 0.401659E+01
- PKER_GWETH( 36, 2) = 0.343004E+01
- PKER_GWETH( 36, 3) = 0.292814E+01
- PKER_GWETH( 36, 4) = 0.249866E+01
- PKER_GWETH( 36, 5) = 0.213116E+01
- PKER_GWETH( 36, 6) = 0.181669E+01
- PKER_GWETH( 36, 7) = 0.154760E+01
- PKER_GWETH( 36, 8) = 0.131733E+01
- PKER_GWETH( 36, 9) = 0.112028E+01
- PKER_GWETH( 36, 10) = 0.951650E+00
- PKER_GWETH( 36, 11) = 0.807344E+00
- PKER_GWETH( 36, 12) = 0.683846E+00
- PKER_GWETH( 36, 13) = 0.578151E+00
- PKER_GWETH( 36, 14) = 0.487687E+00
- PKER_GWETH( 36, 15) = 0.410254E+00
- PKER_GWETH( 36, 16) = 0.343967E+00
- PKER_GWETH( 36, 17) = 0.287216E+00
- PKER_GWETH( 36, 18) = 0.238619E+00
- PKER_GWETH( 36, 19) = 0.196997E+00
- PKER_GWETH( 36, 20) = 0.161339E+00
- PKER_GWETH( 36, 21) = 0.130784E+00
- PKER_GWETH( 36, 22) = 0.104605E+00
- PKER_GWETH( 36, 23) = 0.822039E-01
- PKER_GWETH( 36, 24) = 0.631264E-01
- PKER_GWETH( 36, 25) = 0.470971E-01
- PKER_GWETH( 36, 26) = 0.340633E-01
- PKER_GWETH( 36, 27) = 0.241971E-01
- PKER_GWETH( 36, 28) = 0.177747E-01
- PKER_GWETH( 36, 29) = 0.149054E-01
- PKER_GWETH( 36, 30) = 0.152534E-01
- PKER_GWETH( 36, 31) = 0.179676E-01
- PKER_GWETH( 36, 32) = 0.219736E-01
- PKER_GWETH( 36, 33) = 0.263223E-01
- PKER_GWETH( 36, 34) = 0.304424E-01
- PKER_GWETH( 36, 35) = 0.340925E-01
- PKER_GWETH( 36, 36) = 0.372283E-01
- PKER_GWETH( 36, 37) = 0.398856E-01
- PKER_GWETH( 36, 38) = 0.421231E-01
- PKER_GWETH( 36, 39) = 0.440011E-01
- PKER_GWETH( 36, 40) = 0.455746E-01
- PKER_GWETH( 37, 1) = 0.402324E+01
- PKER_GWETH( 37, 2) = 0.343670E+01
- PKER_GWETH( 37, 3) = 0.293480E+01
- PKER_GWETH( 37, 4) = 0.250534E+01
- PKER_GWETH( 37, 5) = 0.213785E+01
- PKER_GWETH( 37, 6) = 0.182339E+01
- PKER_GWETH( 37, 7) = 0.155431E+01
- PKER_GWETH( 37, 8) = 0.132405E+01
- PKER_GWETH( 37, 9) = 0.112701E+01
- PKER_GWETH( 37, 10) = 0.958401E+00
- PKER_GWETH( 37, 11) = 0.814112E+00
- PKER_GWETH( 37, 12) = 0.690632E+00
- PKER_GWETH( 37, 13) = 0.584959E+00
- PKER_GWETH( 37, 14) = 0.494518E+00
- PKER_GWETH( 37, 15) = 0.417111E+00
- PKER_GWETH( 37, 16) = 0.350853E+00
- PKER_GWETH( 37, 17) = 0.294134E+00
- PKER_GWETH( 37, 18) = 0.245573E+00
- PKER_GWETH( 37, 19) = 0.203990E+00
- PKER_GWETH( 37, 20) = 0.168374E+00
- PKER_GWETH( 37, 21) = 0.137863E+00
- PKER_GWETH( 37, 22) = 0.111718E+00
- PKER_GWETH( 37, 23) = 0.893180E-01
- PKER_GWETH( 37, 24) = 0.701520E-01
- PKER_GWETH( 37, 25) = 0.538333E-01
- PKER_GWETH( 37, 26) = 0.401301E-01
- PKER_GWETH( 37, 27) = 0.290025E-01
- PKER_GWETH( 37, 28) = 0.206023E-01
- PKER_GWETH( 37, 29) = 0.151665E-01
- PKER_GWETH( 37, 30) = 0.127824E-01
- PKER_GWETH( 37, 31) = 0.131471E-01
- PKER_GWETH( 37, 32) = 0.155224E-01
- PKER_GWETH( 37, 33) = 0.189819E-01
- PKER_GWETH( 37, 34) = 0.227194E-01
- PKER_GWETH( 37, 35) = 0.262523E-01
- PKER_GWETH( 37, 36) = 0.293792E-01
- PKER_GWETH( 37, 37) = 0.320645E-01
- PKER_GWETH( 37, 38) = 0.343398E-01
- PKER_GWETH( 37, 39) = 0.362558E-01
- PKER_GWETH( 37, 40) = 0.378639E-01
- PKER_GWETH( 38, 1) = 0.402895E+01
- PKER_GWETH( 38, 2) = 0.344242E+01
- PKER_GWETH( 38, 3) = 0.294053E+01
- PKER_GWETH( 38, 4) = 0.251107E+01
- PKER_GWETH( 38, 5) = 0.214359E+01
- PKER_GWETH( 38, 6) = 0.182914E+01
- PKER_GWETH( 38, 7) = 0.156006E+01
- PKER_GWETH( 38, 8) = 0.132981E+01
- PKER_GWETH( 38, 9) = 0.113279E+01
- PKER_GWETH( 38, 10) = 0.964190E+00
- PKER_GWETH( 38, 11) = 0.819914E+00
- PKER_GWETH( 38, 12) = 0.696450E+00
- PKER_GWETH( 38, 13) = 0.590792E+00
- PKER_GWETH( 38, 14) = 0.500370E+00
- PKER_GWETH( 38, 15) = 0.422983E+00
- PKER_GWETH( 38, 16) = 0.356747E+00
- PKER_GWETH( 38, 17) = 0.300052E+00
- PKER_GWETH( 38, 18) = 0.251519E+00
- PKER_GWETH( 38, 19) = 0.209967E+00
- PKER_GWETH( 38, 20) = 0.174385E+00
- PKER_GWETH( 38, 21) = 0.143910E+00
- PKER_GWETH( 38, 22) = 0.117802E+00
- PKER_GWETH( 38, 23) = 0.954303E-01
- PKER_GWETH( 38, 24) = 0.762638E-01
- PKER_GWETH( 38, 25) = 0.598658E-01
- PKER_GWETH( 38, 26) = 0.459071E-01
- PKER_GWETH( 38, 27) = 0.341928E-01
- PKER_GWETH( 38, 28) = 0.246931E-01
- PKER_GWETH( 38, 29) = 0.175423E-01
- PKER_GWETH( 38, 30) = 0.129417E-01
- PKER_GWETH( 38, 31) = 0.109632E-01
- PKER_GWETH( 38, 32) = 0.113331E-01
- PKER_GWETH( 38, 33) = 0.134114E-01
- PKER_GWETH( 38, 34) = 0.163971E-01
- PKER_GWETH( 38, 35) = 0.196092E-01
- PKER_GWETH( 38, 36) = 0.226384E-01
- PKER_GWETH( 38, 37) = 0.253171E-01
- PKER_GWETH( 38, 38) = 0.276166E-01
- PKER_GWETH( 38, 39) = 0.295649E-01
- PKER_GWETH( 38, 40) = 0.312055E-01
- PKER_GWETH( 39, 1) = 0.403386E+01
- PKER_GWETH( 39, 2) = 0.344733E+01
- PKER_GWETH( 39, 3) = 0.294544E+01
- PKER_GWETH( 39, 4) = 0.251599E+01
- PKER_GWETH( 39, 5) = 0.214851E+01
- PKER_GWETH( 39, 6) = 0.183407E+01
- PKER_GWETH( 39, 7) = 0.156500E+01
- PKER_GWETH( 39, 8) = 0.133476E+01
- PKER_GWETH( 39, 9) = 0.113775E+01
- PKER_GWETH( 39, 10) = 0.969156E+00
- PKER_GWETH( 39, 11) = 0.824891E+00
- PKER_GWETH( 39, 12) = 0.701438E+00
- PKER_GWETH( 39, 13) = 0.595793E+00
- PKER_GWETH( 39, 14) = 0.505385E+00
- PKER_GWETH( 39, 15) = 0.428013E+00
- PKER_GWETH( 39, 16) = 0.361794E+00
- PKER_GWETH( 39, 17) = 0.305119E+00
- PKER_GWETH( 39, 18) = 0.256606E+00
- PKER_GWETH( 39, 19) = 0.215077E+00
- PKER_GWETH( 39, 20) = 0.179522E+00
- PKER_GWETH( 39, 21) = 0.149076E+00
- PKER_GWETH( 39, 22) = 0.122999E+00
- PKER_GWETH( 39, 23) = 0.100659E+00
- PKER_GWETH( 39, 24) = 0.815164E-01
- PKER_GWETH( 39, 25) = 0.651166E-01
- PKER_GWETH( 39, 26) = 0.510868E-01
- PKER_GWETH( 39, 27) = 0.391471E-01
- PKER_GWETH( 39, 28) = 0.291332E-01
- PKER_GWETH( 39, 29) = 0.210237E-01
- PKER_GWETH( 39, 30) = 0.149369E-01
- PKER_GWETH( 39, 31) = 0.110445E-01
- PKER_GWETH( 39, 32) = 0.940454E-02
- PKER_GWETH( 39, 33) = 0.977022E-02
- PKER_GWETH( 39, 34) = 0.115877E-01
- PKER_GWETH( 39, 35) = 0.141642E-01
- PKER_GWETH( 39, 36) = 0.169244E-01
- PKER_GWETH( 39, 37) = 0.195216E-01
- PKER_GWETH( 39, 38) = 0.218162E-01
- PKER_GWETH( 39, 39) = 0.237854E-01
- PKER_GWETH( 39, 40) = 0.254537E-01
- PKER_GWETH( 40, 1) = 0.403807E+01
- PKER_GWETH( 40, 2) = 0.345154E+01
- PKER_GWETH( 40, 3) = 0.294966E+01
- PKER_GWETH( 40, 4) = 0.252021E+01
- PKER_GWETH( 40, 5) = 0.215274E+01
- PKER_GWETH( 40, 6) = 0.183830E+01
- PKER_GWETH( 40, 7) = 0.156924E+01
- PKER_GWETH( 40, 8) = 0.133901E+01
- PKER_GWETH( 40, 9) = 0.114200E+01
- PKER_GWETH( 40, 10) = 0.973417E+00
- PKER_GWETH( 40, 11) = 0.829160E+00
- PKER_GWETH( 40, 12) = 0.705716E+00
- PKER_GWETH( 40, 13) = 0.600081E+00
- PKER_GWETH( 40, 14) = 0.509684E+00
- PKER_GWETH( 40, 15) = 0.432323E+00
- PKER_GWETH( 40, 16) = 0.366118E+00
- PKER_GWETH( 40, 17) = 0.309457E+00
- PKER_GWETH( 40, 18) = 0.260961E+00
- PKER_GWETH( 40, 19) = 0.219450E+00
- PKER_GWETH( 40, 20) = 0.183915E+00
- PKER_GWETH( 40, 21) = 0.153491E+00
- PKER_GWETH( 40, 22) = 0.127439E+00
- PKER_GWETH( 40, 23) = 0.105126E+00
- PKER_GWETH( 40, 24) = 0.860101E-01
- PKER_GWETH( 40, 25) = 0.696304E-01
- PKER_GWETH( 40, 26) = 0.555979E-01
- PKER_GWETH( 40, 27) = 0.435944E-01
- PKER_GWETH( 40, 28) = 0.333818E-01
- PKER_GWETH( 40, 29) = 0.248216E-01
- PKER_GWETH( 40, 30) = 0.178993E-01
- PKER_GWETH( 40, 31) = 0.127187E-01
- PKER_GWETH( 40, 32) = 0.942720E-02
- PKER_GWETH( 40, 33) = 0.806858E-02
- PKER_GWETH( 40, 34) = 0.842367E-02
- PKER_GWETH( 40, 35) = 0.100117E-01
- PKER_GWETH( 40, 36) = 0.122351E-01
- PKER_GWETH( 40, 37) = 0.146068E-01
- PKER_GWETH( 40, 38) = 0.168337E-01
- PKER_GWETH( 40, 39) = 0.187992E-01
- PKER_GWETH( 40, 40) = 0.204855E-01
-END IF
-!
-END SUBROUTINE READ_XKER_GWETH
diff --git a/src/mesonh/micro/read_xker_raccs.f90 b/src/mesonh/micro/read_xker_raccs.f90
deleted file mode 100644
index c7a7253cc263cb76fb442dc9a0b72794033e3d62..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/read_xker_raccs.f90
+++ /dev/null
@@ -1,4950 +0,0 @@
-!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_READ_XKER_RACCS
-! ###########################
-!
-INTERFACE
- SUBROUTINE 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 )
-!
-INTEGER, INTENT(OUT) :: KND,KACCLBDAS,KACCLBDAR
-REAL, INTENT(OUT) :: PALPHAS
-REAL, INTENT(OUT) :: PNUS
-REAL, INTENT(OUT) :: PALPHAR
-REAL, INTENT(OUT) :: PNUR
-REAL, INTENT(OUT) :: PESR
-REAL, INTENT(OUT) :: PBS
-REAL, INTENT(OUT) :: PBR
-REAL, INTENT(OUT) :: PCS
-REAL, INTENT(OUT) :: PDS
-REAL, INTENT(OUT) :: PCR
-REAL, INTENT(OUT) :: PDR
-REAL, INTENT(OUT) :: PACCLBDAS_MAX
-REAL, INTENT(OUT) :: PACCLBDAR_MAX
-REAL, INTENT(OUT) :: PACCLBDAS_MIN
-REAL, INTENT(OUT) :: PACCLBDAR_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RACCSS
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RACCS
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_SACCRG
-!
-END SUBROUTINE
-!
-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, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
-! ##########################################################################
-!
-!!**** * * - initialize the kernels for the rain-snow accretion process
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the kernels PKER_RACCSS,
-!! PKER_RACCS and PKER_SACCRG prepared from a previous run of the routine
-!! INI_RAIN_ICE. The reading of the kernels is optional after checking for
-!! the dimensions of the arrays.
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine READ_XKER_RACCS )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 09/04/96
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!* 0.2 Declarations of local variables :
-!
-!
-INTEGER, INTENT(OUT) :: KND,KACCLBDAS,KACCLBDAR
-REAL, INTENT(OUT) :: PALPHAS
-REAL, INTENT(OUT) :: PNUS
-REAL, INTENT(OUT) :: PALPHAR
-REAL, INTENT(OUT) :: PNUR
-REAL, INTENT(OUT) :: PESR
-REAL, INTENT(OUT) :: PBS
-REAL, INTENT(OUT) :: PBR
-REAL, INTENT(OUT) :: PCS
-REAL, INTENT(OUT) :: PDS
-REAL, INTENT(OUT) :: PCR
-REAL, INTENT(OUT) :: PDR
-REAL, INTENT(OUT) :: PACCLBDAS_MAX
-REAL, INTENT(OUT) :: PACCLBDAR_MAX
-REAL, INTENT(OUT) :: PACCLBDAS_MIN
-REAL, INTENT(OUT) :: PACCLBDAR_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RACCSS
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RACCS
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_SACCRG
-!
-! ###################################################################
-! #INSERT HERE THE OUTPUT OF INI_RAIN_ICE IF THE KERNELS ARE UPDATED#
-! ###################################################################
-!
-KND= 50
-KACCLBDAS= 40
-KACCLBDAR= 40
-PALPHAS= 0.100000E+01
-PNUS= 0.100000E+01
-PALPHAR= 0.100000E+01
-PNUR= 0.100000E+01
-PESR= 0.100000E+01
-PBS= 0.190000E+01
-PBR= 0.300000E+01
-PCS= 0.510000E+01
-PDS= 0.270000E+00
-PCR= 0.842000E+03
-PDR= 0.800000E+00
-PACCLBDAS_MAX= 0.500000E+06
-PACCLBDAR_MAX= 0.100000E+08
-PACCLBDAS_MIN= 0.500000E+02
-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( 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
-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
-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, 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, 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, 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, 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, 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, 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, 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, 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, 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, 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, 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, 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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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.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, 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
-END IF
-!
-END SUBROUTINE READ_XKER_RACCS
diff --git a/src/mesonh/micro/read_xker_rdryg.f90 b/src/mesonh/micro/read_xker_rdryg.f90
deleted file mode 100644
index e0c67b505d36b060deac5a59930696a6e04463c7..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/read_xker_rdryg.f90
+++ /dev/null
@@ -1,1736 +0,0 @@
-!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_READ_XKER_RDRYG
-! ###########################
-!
-INTERFACE
- SUBROUTINE READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
- PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
- PDRYLBDAG_MAX,PDRYLBDAR_MAX,PDRYLBDAG_MIN,PDRYLBDAR_MIN, &
- PFDINFTY,PKER_RDRYG )
-!
-INTEGER, INTENT(OUT) :: KND,KDRYLBDAG,KDRYLBDAR
-REAL, INTENT(OUT) :: PALPHAG
-REAL, INTENT(OUT) :: PNUG
-REAL, INTENT(OUT) :: PALPHAR
-REAL, INTENT(OUT) :: PNUR
-REAL, INTENT(OUT) :: PEGR
-REAL, INTENT(OUT) :: PBR
-REAL, INTENT(OUT) :: PCG
-REAL, INTENT(OUT) :: PDG
-REAL, INTENT(OUT) :: PCR
-REAL, INTENT(OUT) :: PDR
-REAL, INTENT(OUT) :: PDRYLBDAG_MAX
-REAL, INTENT(OUT) :: PDRYLBDAR_MAX
-REAL, INTENT(OUT) :: PDRYLBDAG_MIN
-REAL, INTENT(OUT) :: PDRYLBDAR_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RDRYG
-!
-END SUBROUTINE
-!
-END INTERFACE
-!
-END MODULE MODI_READ_XKER_RDRYG
-! ########################################################################
- SUBROUTINE READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
- PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
- PDRYLBDAG_MAX,PDRYLBDAR_MAX,PDRYLBDAG_MIN,PDRYLBDAR_MIN, &
- PFDINFTY,PKER_RDRYG )
-! ########################################################################
-!
-!!**** * * - initialize the kernels for the snow-graupel dry growth process
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the kernels PKER_RDRYG
-!! prepared from a previous run of the routine INI_RAIN_ICE. The reading of
-!! the kernels is optional after checking for the dimensions of the arrays.
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine READ_XKER_RDRYG )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 09/04/96
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!* 0.2 Declarations of local variables :
-!
-!
-INTEGER, INTENT(OUT) :: KND,KDRYLBDAG,KDRYLBDAR
-REAL, INTENT(OUT) :: PALPHAG
-REAL, INTENT(OUT) :: PNUG
-REAL, INTENT(OUT) :: PALPHAR
-REAL, INTENT(OUT) :: PNUR
-REAL, INTENT(OUT) :: PEGR
-REAL, INTENT(OUT) :: PBR
-REAL, INTENT(OUT) :: PCG
-REAL, INTENT(OUT) :: PDG
-REAL, INTENT(OUT) :: PCR
-REAL, INTENT(OUT) :: PDR
-REAL, INTENT(OUT) :: PDRYLBDAG_MAX
-REAL, INTENT(OUT) :: PDRYLBDAR_MAX
-REAL, INTENT(OUT) :: PDRYLBDAG_MIN
-REAL, INTENT(OUT) :: PDRYLBDAR_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RDRYG
-!
-! ###################################################################
-! #INSERT HERE THE OUTPUT OF INI_RAIN_ICE IF THE KERNELS ARE UPDATED#
-! ###################################################################
-!
-KND= 50
-KDRYLBDAG= 40
-KDRYLBDAR= 40
-PALPHAG= 0.100000E+01
-PNUG= 0.100000E+01
-PALPHAR= 0.100000E+01
-PNUR= 0.100000E+01
-PEGR= 0.100000E+01
-PBR= 0.300000E+01
-PCG= 0.124000E+03
-PDG= 0.660000E+00
-PCR= 0.842000E+03
-PDR= 0.800000E+00
-PDRYLBDAG_MAX= 0.100000E+08
-PDRYLBDAR_MAX= 0.100000E+08
-PDRYLBDAG_MIN= 0.100000E+04
-PDRYLBDAR_MIN= 0.100000E+04
-PFDINFTY= 0.200000E+02
-!
-IF( PRESENT(PKER_RDRYG) ) THEN
- PKER_RDRYG( 1, 1) = 0.113429E+02
- PKER_RDRYG( 1, 2) = 0.888532E+01
- PKER_RDRYG( 1, 3) = 0.684777E+01
- PKER_RDRYG( 1, 4) = 0.517128E+01
- PKER_RDRYG( 1, 5) = 0.381554E+01
- PKER_RDRYG( 1, 6) = 0.275614E+01
- PKER_RDRYG( 1, 7) = 0.197831E+01
- PKER_RDRYG( 1, 8) = 0.146495E+01
- PKER_RDRYG( 1, 9) = 0.118865E+01
- PKER_RDRYG( 1, 10) = 0.110504E+01
- PKER_RDRYG( 1, 11) = 0.115718E+01
- PKER_RDRYG( 1, 12) = 0.128948E+01
- PKER_RDRYG( 1, 13) = 0.145623E+01
- PKER_RDRYG( 1, 14) = 0.162671E+01
- PKER_RDRYG( 1, 15) = 0.178400E+01
- PKER_RDRYG( 1, 16) = 0.192135E+01
- PKER_RDRYG( 1, 17) = 0.203766E+01
- PKER_RDRYG( 1, 18) = 0.213454E+01
- PKER_RDRYG( 1, 19) = 0.221453E+01
- PKER_RDRYG( 1, 20) = 0.228027E+01
- PKER_RDRYG( 1, 21) = 0.233424E+01
- PKER_RDRYG( 1, 22) = 0.237855E+01
- PKER_RDRYG( 1, 23) = 0.241497E+01
- PKER_RDRYG( 1, 24) = 0.244492E+01
- PKER_RDRYG( 1, 25) = 0.246956E+01
- PKER_RDRYG( 1, 26) = 0.248985E+01
- PKER_RDRYG( 1, 27) = 0.250656E+01
- PKER_RDRYG( 1, 28) = 0.252033E+01
- PKER_RDRYG( 1, 29) = 0.253168E+01
- PKER_RDRYG( 1, 30) = 0.254104E+01
- PKER_RDRYG( 1, 31) = 0.254875E+01
- PKER_RDRYG( 1, 32) = 0.255512E+01
- PKER_RDRYG( 1, 33) = 0.256037E+01
- PKER_RDRYG( 1, 34) = 0.256470E+01
- PKER_RDRYG( 1, 35) = 0.256828E+01
- PKER_RDRYG( 1, 36) = 0.257123E+01
- PKER_RDRYG( 1, 37) = 0.257367E+01
- PKER_RDRYG( 1, 38) = 0.257568E+01
- PKER_RDRYG( 1, 39) = 0.257735E+01
- PKER_RDRYG( 1, 40) = 0.257872E+01
- PKER_RDRYG( 2, 1) = 0.117927E+02
- PKER_RDRYG( 2, 2) = 0.934446E+01
- PKER_RDRYG( 2, 3) = 0.730889E+01
- PKER_RDRYG( 2, 4) = 0.562152E+01
- PKER_RDRYG( 2, 5) = 0.423473E+01
- PKER_RDRYG( 2, 6) = 0.311610E+01
- PKER_RDRYG( 2, 7) = 0.224696E+01
- PKER_RDRYG( 2, 8) = 0.161553E+01
- PKER_RDRYG( 2, 9) = 0.120734E+01
- PKER_RDRYG( 2, 10) = 0.997308E+00
- PKER_RDRYG( 2, 11) = 0.945330E+00
- PKER_RDRYG( 2, 12) = 0.100270E+01
- PKER_RDRYG( 2, 13) = 0.112265E+01
- PKER_RDRYG( 2, 14) = 0.126742E+01
- PKER_RDRYG( 2, 15) = 0.141245E+01
- PKER_RDRYG( 2, 16) = 0.154497E+01
- PKER_RDRYG( 2, 17) = 0.165998E+01
- PKER_RDRYG( 2, 18) = 0.175705E+01
- PKER_RDRYG( 2, 19) = 0.183773E+01
- PKER_RDRYG( 2, 20) = 0.190425E+01
- PKER_RDRYG( 2, 21) = 0.195889E+01
- PKER_RDRYG( 2, 22) = 0.200372E+01
- PKER_RDRYG( 2, 23) = 0.204054E+01
- PKER_RDRYG( 2, 24) = 0.207079E+01
- PKER_RDRYG( 2, 25) = 0.209566E+01
- PKER_RDRYG( 2, 26) = 0.211612E+01
- PKER_RDRYG( 2, 27) = 0.213297E+01
- PKER_RDRYG( 2, 28) = 0.214684E+01
- PKER_RDRYG( 2, 29) = 0.215827E+01
- PKER_RDRYG( 2, 30) = 0.216769E+01
- PKER_RDRYG( 2, 31) = 0.217545E+01
- PKER_RDRYG( 2, 32) = 0.218186E+01
- PKER_RDRYG( 2, 33) = 0.218714E+01
- PKER_RDRYG( 2, 34) = 0.219150E+01
- PKER_RDRYG( 2, 35) = 0.219509E+01
- PKER_RDRYG( 2, 36) = 0.219806E+01
- PKER_RDRYG( 2, 37) = 0.220051E+01
- PKER_RDRYG( 2, 38) = 0.220253E+01
- PKER_RDRYG( 2, 39) = 0.220420E+01
- PKER_RDRYG( 2, 40) = 0.220558E+01
- PKER_RDRYG( 3, 1) = 0.121617E+02
- PKER_RDRYG( 3, 2) = 0.972447E+01
- PKER_RDRYG( 3, 3) = 0.769669E+01
- PKER_RDRYG( 3, 4) = 0.601068E+01
- PKER_RDRYG( 3, 5) = 0.461358E+01
- PKER_RDRYG( 3, 6) = 0.346650E+01
- PKER_RDRYG( 3, 7) = 0.254421E+01
- PKER_RDRYG( 3, 8) = 0.183189E+01
- PKER_RDRYG( 3, 9) = 0.131969E+01
- PKER_RDRYG( 3, 10) = 0.997188E+00
- PKER_RDRYG( 3, 11) = 0.839117E+00
- PKER_RDRYG( 3, 12) = 0.810553E+00
- PKER_RDRYG( 3, 13) = 0.869949E+00
- PKER_RDRYG( 3, 14) = 0.977509E+00
- PKER_RDRYG( 3, 15) = 0.110267E+01
- PKER_RDRYG( 3, 16) = 0.122591E+01
- PKER_RDRYG( 3, 17) = 0.133742E+01
- PKER_RDRYG( 3, 18) = 0.143367E+01
- PKER_RDRYG( 3, 19) = 0.151464E+01
- PKER_RDRYG( 3, 20) = 0.158182E+01
- PKER_RDRYG( 3, 21) = 0.163714E+01
- PKER_RDRYG( 3, 22) = 0.168256E+01
- PKER_RDRYG( 3, 23) = 0.171982E+01
- PKER_RDRYG( 3, 24) = 0.175040E+01
- PKER_RDRYG( 3, 25) = 0.177553E+01
- PKER_RDRYG( 3, 26) = 0.179619E+01
- PKER_RDRYG( 3, 27) = 0.181318E+01
- PKER_RDRYG( 3, 28) = 0.182717E+01
- PKER_RDRYG( 3, 29) = 0.183869E+01
- PKER_RDRYG( 3, 30) = 0.184817E+01
- PKER_RDRYG( 3, 31) = 0.185599E+01
- PKER_RDRYG( 3, 32) = 0.186244E+01
- PKER_RDRYG( 3, 33) = 0.186775E+01
- PKER_RDRYG( 3, 34) = 0.187213E+01
- PKER_RDRYG( 3, 35) = 0.187575E+01
- PKER_RDRYG( 3, 36) = 0.187873E+01
- PKER_RDRYG( 3, 37) = 0.188119E+01
- PKER_RDRYG( 3, 38) = 0.188322E+01
- PKER_RDRYG( 3, 39) = 0.188490E+01
- PKER_RDRYG( 3, 40) = 0.188628E+01
- PKER_RDRYG( 4, 1) = 0.124632E+02
- PKER_RDRYG( 4, 2) = 0.100363E+02
- PKER_RDRYG( 4, 3) = 0.801781E+01
- PKER_RDRYG( 4, 4) = 0.633828E+01
- PKER_RDRYG( 4, 5) = 0.494183E+01
- PKER_RDRYG( 4, 6) = 0.378510E+01
- PKER_RDRYG( 4, 7) = 0.283672E+01
- PKER_RDRYG( 4, 8) = 0.207666E+01
- PKER_RDRYG( 4, 9) = 0.149363E+01
- PKER_RDRYG( 4, 10) = 0.108052E+01
- PKER_RDRYG( 4, 11) = 0.825432E+00
- PKER_RDRYG( 4, 12) = 0.708049E+00
- PKER_RDRYG( 4, 13) = 0.696559E+00
- PKER_RDRYG( 4, 14) = 0.755465E+00
- PKER_RDRYG( 4, 15) = 0.851164E+00
- PKER_RDRYG( 4, 16) = 0.958922E+00
- PKER_RDRYG( 4, 17) = 0.106351E+01
- PKER_RDRYG( 4, 18) = 0.115725E+01
- PKER_RDRYG( 4, 19) = 0.123777E+01
- PKER_RDRYG( 4, 20) = 0.130532E+01
- PKER_RDRYG( 4, 21) = 0.136125E+01
- PKER_RDRYG( 4, 22) = 0.140726E+01
- PKER_RDRYG( 4, 23) = 0.144501E+01
- PKER_RDRYG( 4, 24) = 0.147597E+01
- PKER_RDRYG( 4, 25) = 0.150139E+01
- PKER_RDRYG( 4, 26) = 0.152226E+01
- PKER_RDRYG( 4, 27) = 0.153942E+01
- PKER_RDRYG( 4, 28) = 0.155353E+01
- PKER_RDRYG( 4, 29) = 0.156515E+01
- PKER_RDRYG( 4, 30) = 0.157471E+01
- PKER_RDRYG( 4, 31) = 0.158259E+01
- PKER_RDRYG( 4, 32) = 0.158908E+01
- PKER_RDRYG( 4, 33) = 0.159443E+01
- PKER_RDRYG( 4, 34) = 0.159884E+01
- PKER_RDRYG( 4, 35) = 0.160248E+01
- PKER_RDRYG( 4, 36) = 0.160548E+01
- PKER_RDRYG( 4, 37) = 0.160795E+01
- PKER_RDRYG( 4, 38) = 0.160999E+01
- PKER_RDRYG( 4, 39) = 0.161168E+01
- PKER_RDRYG( 4, 40) = 0.161307E+01
- PKER_RDRYG( 5, 1) = 0.127090E+02
- PKER_RDRYG( 5, 2) = 0.102910E+02
- PKER_RDRYG( 5, 3) = 0.828132E+01
- PKER_RDRYG( 5, 4) = 0.660967E+01
- PKER_RDRYG( 5, 5) = 0.521858E+01
- PKER_RDRYG( 5, 6) = 0.406200E+01
- PKER_RDRYG( 5, 7) = 0.310443E+01
- PKER_RDRYG( 5, 8) = 0.232064E+01
- PKER_RDRYG( 5, 9) = 0.169464E+01
- PKER_RDRYG( 5, 10) = 0.121813E+01
- PKER_RDRYG( 5, 11) = 0.885289E+00
- PKER_RDRYG( 5, 12) = 0.684884E+00
- PKER_RDRYG( 5, 13) = 0.598972E+00
- PKER_RDRYG( 5, 14) = 0.599848E+00
- PKER_RDRYG( 5, 15) = 0.656194E+00
- PKER_RDRYG( 5, 16) = 0.740930E+00
- PKER_RDRYG( 5, 17) = 0.833644E+00
- PKER_RDRYG( 5, 18) = 0.922189E+00
- PKER_RDRYG( 5, 19) = 0.100097E+01
- PKER_RDRYG( 5, 20) = 0.106830E+01
- PKER_RDRYG( 5, 21) = 0.112462E+01
- PKER_RDRYG( 5, 22) = 0.117119E+01
- PKER_RDRYG( 5, 23) = 0.120946E+01
- PKER_RDRYG( 5, 24) = 0.124084E+01
- PKER_RDRYG( 5, 25) = 0.126657E+01
- PKER_RDRYG( 5, 26) = 0.128769E+01
- PKER_RDRYG( 5, 27) = 0.130503E+01
- PKER_RDRYG( 5, 28) = 0.131929E+01
- PKER_RDRYG( 5, 29) = 0.133101E+01
- PKER_RDRYG( 5, 30) = 0.134066E+01
- PKER_RDRYG( 5, 31) = 0.134860E+01
- PKER_RDRYG( 5, 32) = 0.135514E+01
- PKER_RDRYG( 5, 33) = 0.136053E+01
- PKER_RDRYG( 5, 34) = 0.136497E+01
- PKER_RDRYG( 5, 35) = 0.136863E+01
- PKER_RDRYG( 5, 36) = 0.137165E+01
- PKER_RDRYG( 5, 37) = 0.137413E+01
- PKER_RDRYG( 5, 38) = 0.137619E+01
- PKER_RDRYG( 5, 39) = 0.137788E+01
- PKER_RDRYG( 5, 40) = 0.137928E+01
- PKER_RDRYG( 6, 1) = 0.129097E+02
- PKER_RDRYG( 6, 2) = 0.104988E+02
- PKER_RDRYG( 6, 3) = 0.849661E+01
- PKER_RDRYG( 6, 4) = 0.683241E+01
- PKER_RDRYG( 6, 5) = 0.544798E+01
- PKER_RDRYG( 6, 6) = 0.429580E+01
- PKER_RDRYG( 6, 7) = 0.333794E+01
- PKER_RDRYG( 6, 8) = 0.254535E+01
- PKER_RDRYG( 6, 9) = 0.189760E+01
- PKER_RDRYG( 6, 10) = 0.138256E+01
- PKER_RDRYG( 6, 11) = 0.993749E+00
- PKER_RDRYG( 6, 12) = 0.725579E+00
- PKER_RDRYG( 6, 13) = 0.569771E+00
- PKER_RDRYG( 6, 14) = 0.508215E+00
- PKER_RDRYG( 6, 15) = 0.517364E+00
- PKER_RDRYG( 6, 16) = 0.570603E+00
- PKER_RDRYG( 6, 17) = 0.645018E+00
- PKER_RDRYG( 6, 18) = 0.724433E+00
- PKER_RDRYG( 6, 19) = 0.799323E+00
- PKER_RDRYG( 6, 20) = 0.865437E+00
- PKER_RDRYG( 6, 21) = 0.921727E+00
- PKER_RDRYG( 6, 22) = 0.968693E+00
- PKER_RDRYG( 6, 23) = 0.100746E+01
- PKER_RDRYG( 6, 24) = 0.103929E+01
- PKER_RDRYG( 6, 25) = 0.106538E+01
- PKER_RDRYG( 6, 26) = 0.108677E+01
- PKER_RDRYG( 6, 27) = 0.110432E+01
- PKER_RDRYG( 6, 28) = 0.111873E+01
- PKER_RDRYG( 6, 29) = 0.113057E+01
- PKER_RDRYG( 6, 30) = 0.114031E+01
- PKER_RDRYG( 6, 31) = 0.114832E+01
- PKER_RDRYG( 6, 32) = 0.115492E+01
- PKER_RDRYG( 6, 33) = 0.116035E+01
- PKER_RDRYG( 6, 34) = 0.116482E+01
- PKER_RDRYG( 6, 35) = 0.116851E+01
- PKER_RDRYG( 6, 36) = 0.117155E+01
- PKER_RDRYG( 6, 37) = 0.117405E+01
- PKER_RDRYG( 6, 38) = 0.117612E+01
- PKER_RDRYG( 6, 39) = 0.117782E+01
- PKER_RDRYG( 6, 40) = 0.117923E+01
- PKER_RDRYG( 7, 1) = 0.130737E+02
- PKER_RDRYG( 7, 2) = 0.106684E+02
- PKER_RDRYG( 7, 3) = 0.867226E+01
- PKER_RDRYG( 7, 4) = 0.701442E+01
- PKER_RDRYG( 7, 5) = 0.563630E+01
- PKER_RDRYG( 7, 6) = 0.448972E+01
- PKER_RDRYG( 7, 7) = 0.353543E+01
- PKER_RDRYG( 7, 8) = 0.274218E+01
- PKER_RDRYG( 7, 9) = 0.208626E+01
- PKER_RDRYG( 7, 10) = 0.155134E+01
- PKER_RDRYG( 7, 11) = 0.112782E+01
- PKER_RDRYG( 7, 12) = 0.810984E+00
- PKER_RDRYG( 7, 13) = 0.596204E+00
- PKER_RDRYG( 7, 14) = 0.475108E+00
- PKER_RDRYG( 7, 15) = 0.432596E+00
- PKER_RDRYG( 7, 16) = 0.446915E+00
- PKER_RDRYG( 7, 17) = 0.496175E+00
- PKER_RDRYG( 7, 18) = 0.561308E+00
- PKER_RDRYG( 7, 19) = 0.629230E+00
- PKER_RDRYG( 7, 20) = 0.692507E+00
- PKER_RDRYG( 7, 21) = 0.747991E+00
- PKER_RDRYG( 7, 22) = 0.795023E+00
- PKER_RDRYG( 7, 23) = 0.834178E+00
- PKER_RDRYG( 7, 24) = 0.866452E+00
- PKER_RDRYG( 7, 25) = 0.892928E+00
- PKER_RDRYG( 7, 26) = 0.914619E+00
- PKER_RDRYG( 7, 27) = 0.932399E+00
- PKER_RDRYG( 7, 28) = 0.946986E+00
- PKER_RDRYG( 7, 29) = 0.958962E+00
- PKER_RDRYG( 7, 30) = 0.968803E+00
- PKER_RDRYG( 7, 31) = 0.976894E+00
- PKER_RDRYG( 7, 32) = 0.983549E+00
- PKER_RDRYG( 7, 33) = 0.989027E+00
- PKER_RDRYG( 7, 34) = 0.993537E+00
- PKER_RDRYG( 7, 35) = 0.997252E+00
- PKER_RDRYG( 7, 36) = 0.100031E+01
- PKER_RDRYG( 7, 37) = 0.100283E+01
- PKER_RDRYG( 7, 38) = 0.100491E+01
- PKER_RDRYG( 7, 39) = 0.100663E+01
- PKER_RDRYG( 7, 40) = 0.100804E+01
- PKER_RDRYG( 8, 1) = 0.132082E+02
- PKER_RDRYG( 8, 2) = 0.108071E+02
- PKER_RDRYG( 8, 3) = 0.881568E+01
- PKER_RDRYG( 8, 4) = 0.716294E+01
- PKER_RDRYG( 8, 5) = 0.579021E+01
- PKER_RDRYG( 8, 6) = 0.464898E+01
- PKER_RDRYG( 8, 7) = 0.369939E+01
- PKER_RDRYG( 8, 8) = 0.290901E+01
- PKER_RDRYG( 8, 9) = 0.225210E+01
- PKER_RDRYG( 8, 10) = 0.170938E+01
- PKER_RDRYG( 8, 11) = 0.126773E+01
- PKER_RDRYG( 8, 12) = 0.919865E+00
- PKER_RDRYG( 8, 13) = 0.661937E+00
- PKER_RDRYG( 8, 14) = 0.490415E+00
- PKER_RDRYG( 8, 15) = 0.397339E+00
- PKER_RDRYG( 8, 16) = 0.368774E+00
- PKER_RDRYG( 8, 17) = 0.386541E+00
- PKER_RDRYG( 8, 18) = 0.431586E+00
- PKER_RDRYG( 8, 19) = 0.488388E+00
- PKER_RDRYG( 8, 20) = 0.546326E+00
- PKER_RDRYG( 8, 21) = 0.599722E+00
- PKER_RDRYG( 8, 22) = 0.646234E+00
- PKER_RDRYG( 8, 23) = 0.685535E+00
- PKER_RDRYG( 8, 24) = 0.718173E+00
- PKER_RDRYG( 8, 25) = 0.745040E+00
- PKER_RDRYG( 8, 26) = 0.767064E+00
- PKER_RDRYG( 8, 27) = 0.785101E+00
- PKER_RDRYG( 8, 28) = 0.799883E+00
- PKER_RDRYG( 8, 29) = 0.812008E+00
- PKER_RDRYG( 8, 30) = 0.821962E+00
- PKER_RDRYG( 8, 31) = 0.830140E+00
- PKER_RDRYG( 8, 32) = 0.836862E+00
- PKER_RDRYG( 8, 33) = 0.842391E+00
- PKER_RDRYG( 8, 34) = 0.846941E+00
- PKER_RDRYG( 8, 35) = 0.850687E+00
- PKER_RDRYG( 8, 36) = 0.853771E+00
- PKER_RDRYG( 8, 37) = 0.856313E+00
- PKER_RDRYG( 8, 38) = 0.858406E+00
- PKER_RDRYG( 8, 39) = 0.860132E+00
- PKER_RDRYG( 8, 40) = 0.861555E+00
- PKER_RDRYG( 9, 1) = 0.133186E+02
- PKER_RDRYG( 9, 2) = 0.109208E+02
- PKER_RDRYG( 9, 3) = 0.893300E+01
- PKER_RDRYG( 9, 4) = 0.728424E+01
- PKER_RDRYG( 9, 5) = 0.591582E+01
- PKER_RDRYG( 9, 6) = 0.477915E+01
- PKER_RDRYG( 9, 7) = 0.383409E+01
- PKER_RDRYG( 9, 8) = 0.304764E+01
- PKER_RDRYG( 9, 9) = 0.239303E+01
- PKER_RDRYG( 9, 10) = 0.184909E+01
- PKER_RDRYG( 9, 11) = 0.140008E+01
- PKER_RDRYG( 9, 12) = 0.103570E+01
- PKER_RDRYG( 9, 13) = 0.750184E+00
- PKER_RDRYG( 9, 14) = 0.540583E+00
- PKER_RDRYG( 9, 15) = 0.404171E+00
- PKER_RDRYG( 9, 16) = 0.333201E+00
- PKER_RDRYG( 9, 17) = 0.315421E+00
- PKER_RDRYG( 9, 18) = 0.334832E+00
- PKER_RDRYG( 9, 19) = 0.375550E+00
- PKER_RDRYG( 9, 20) = 0.424785E+00
- PKER_RDRYG( 9, 21) = 0.474129E+00
- PKER_RDRYG( 9, 22) = 0.519143E+00
- PKER_RDRYG( 9, 23) = 0.558133E+00
- PKER_RDRYG( 9, 24) = 0.590954E+00
- PKER_RDRYG( 9, 25) = 0.618160E+00
- PKER_RDRYG( 9, 26) = 0.640526E+00
- PKER_RDRYG( 9, 27) = 0.658847E+00
- PKER_RDRYG( 9, 28) = 0.673848E+00
- PKER_RDRYG( 9, 29) = 0.686139E+00
- PKER_RDRYG( 9, 30) = 0.696219E+00
- PKER_RDRYG( 9, 31) = 0.704493E+00
- PKER_RDRYG( 9, 32) = 0.711289E+00
- PKER_RDRYG( 9, 33) = 0.716875E+00
- PKER_RDRYG( 9, 34) = 0.721469E+00
- PKER_RDRYG( 9, 35) = 0.725249E+00
- PKER_RDRYG( 9, 36) = 0.728360E+00
- PKER_RDRYG( 9, 37) = 0.730922E+00
- PKER_RDRYG( 9, 38) = 0.733032E+00
- PKER_RDRYG( 9, 39) = 0.734770E+00
- PKER_RDRYG( 9, 40) = 0.736203E+00
- PKER_RDRYG( 10, 1) = 0.134097E+02
- PKER_RDRYG( 10, 2) = 0.110143E+02
- PKER_RDRYG( 10, 3) = 0.902922E+01
- PKER_RDRYG( 10, 4) = 0.738349E+01
- PKER_RDRYG( 10, 5) = 0.601843E+01
- PKER_RDRYG( 10, 6) = 0.488542E+01
- PKER_RDRYG( 10, 7) = 0.394421E+01
- PKER_RDRYG( 10, 8) = 0.316159E+01
- PKER_RDRYG( 10, 9) = 0.251025E+01
- PKER_RDRYG( 10, 10) = 0.196809E+01
- PKER_RDRYG( 10, 11) = 0.151773E+01
- PKER_RDRYG( 10, 12) = 0.114640E+01
- PKER_RDRYG( 10, 13) = 0.845862E+00
- PKER_RDRYG( 10, 14) = 0.611819E+00
- PKER_RDRYG( 10, 15) = 0.442230E+00
- PKER_RDRYG( 10, 16) = 0.333761E+00
- PKER_RDRYG( 10, 17) = 0.280176E+00
- PKER_RDRYG( 10, 18) = 0.270205E+00
- PKER_RDRYG( 10, 19) = 0.290267E+00
- PKER_RDRYG( 10, 20) = 0.326785E+00
- PKER_RDRYG( 10, 21) = 0.369349E+00
- PKER_RDRYG( 10, 22) = 0.411304E+00
- PKER_RDRYG( 10, 23) = 0.449213E+00
- PKER_RDRYG( 10, 24) = 0.481873E+00
- PKER_RDRYG( 10, 25) = 0.509282E+00
- PKER_RDRYG( 10, 26) = 0.531958E+00
- PKER_RDRYG( 10, 27) = 0.550577E+00
- PKER_RDRYG( 10, 28) = 0.565820E+00
- PKER_RDRYG( 10, 29) = 0.578297E+00
- PKER_RDRYG( 10, 30) = 0.588518E+00
- PKER_RDRYG( 10, 31) = 0.596899E+00
- PKER_RDRYG( 10, 32) = 0.603778E+00
- PKER_RDRYG( 10, 33) = 0.609427E+00
- PKER_RDRYG( 10, 34) = 0.614069E+00
- PKER_RDRYG( 10, 35) = 0.617886E+00
- PKER_RDRYG( 10, 36) = 0.621027E+00
- PKER_RDRYG( 10, 37) = 0.623611E+00
- PKER_RDRYG( 10, 38) = 0.625739E+00
- PKER_RDRYG( 10, 39) = 0.627491E+00
- PKER_RDRYG( 10, 40) = 0.628935E+00
- PKER_RDRYG( 11, 1) = 0.134850E+02
- PKER_RDRYG( 11, 2) = 0.110914E+02
- PKER_RDRYG( 11, 3) = 0.910837E+01
- PKER_RDRYG( 11, 4) = 0.746493E+01
- PKER_RDRYG( 11, 5) = 0.610242E+01
- PKER_RDRYG( 11, 6) = 0.497224E+01
- PKER_RDRYG( 11, 7) = 0.403413E+01
- PKER_RDRYG( 11, 8) = 0.325477E+01
- PKER_RDRYG( 11, 9) = 0.260666E+01
- PKER_RDRYG( 11, 10) = 0.206723E+01
- PKER_RDRYG( 11, 11) = 0.161821E+01
- PKER_RDRYG( 11, 12) = 0.124536E+01
- PKER_RDRYG( 11, 13) = 0.938357E+00
- PKER_RDRYG( 11, 14) = 0.690647E+00
- PKER_RDRYG( 11, 15) = 0.499022E+00
- PKER_RDRYG( 11, 16) = 0.361814E+00
- PKER_RDRYG( 11, 17) = 0.276145E+00
- PKER_RDRYG( 11, 18) = 0.236136E+00
- PKER_RDRYG( 11, 19) = 0.232058E+00
- PKER_RDRYG( 11, 20) = 0.251803E+00
- PKER_RDRYG( 11, 21) = 0.284322E+00
- PKER_RDRYG( 11, 22) = 0.321029E+00
- PKER_RDRYG( 11, 23) = 0.356649E+00
- PKER_RDRYG( 11, 24) = 0.388551E+00
- PKER_RDRYG( 11, 25) = 0.415898E+00
- PKER_RDRYG( 11, 26) = 0.438783E+00
- PKER_RDRYG( 11, 27) = 0.457681E+00
- PKER_RDRYG( 11, 28) = 0.473182E+00
- PKER_RDRYG( 11, 29) = 0.485865E+00
- PKER_RDRYG( 11, 30) = 0.496243E+00
- PKER_RDRYG( 11, 31) = 0.504744E+00
- PKER_RDRYG( 11, 32) = 0.511714E+00
- PKER_RDRYG( 11, 33) = 0.517433E+00
- PKER_RDRYG( 11, 34) = 0.522129E+00
- PKER_RDRYG( 11, 35) = 0.525987E+00
- PKER_RDRYG( 11, 36) = 0.529160E+00
- PKER_RDRYG( 11, 37) = 0.531769E+00
- PKER_RDRYG( 11, 38) = 0.533916E+00
- PKER_RDRYG( 11, 39) = 0.535683E+00
- PKER_RDRYG( 11, 40) = 0.537138E+00
- PKER_RDRYG( 12, 1) = 0.135474E+02
- PKER_RDRYG( 12, 2) = 0.111552E+02
- PKER_RDRYG( 12, 3) = 0.917366E+01
- PKER_RDRYG( 12, 4) = 0.753194E+01
- PKER_RDRYG( 12, 5) = 0.617136E+01
- PKER_RDRYG( 12, 6) = 0.504334E+01
- PKER_RDRYG( 12, 7) = 0.410762E+01
- PKER_RDRYG( 12, 8) = 0.333087E+01
- PKER_RDRYG( 12, 9) = 0.268553E+01
- PKER_RDRYG( 12, 10) = 0.214881E+01
- PKER_RDRYG( 12, 11) = 0.170205E+01
- PKER_RDRYG( 12, 12) = 0.133020E+01
- PKER_RDRYG( 12, 13) = 0.102155E+01
- PKER_RDRYG( 12, 14) = 0.767749E+00
- PKER_RDRYG( 12, 15) = 0.563744E+00
- PKER_RDRYG( 12, 16) = 0.407094E+00
- PKER_RDRYG( 12, 17) = 0.296271E+00
- PKER_RDRYG( 12, 18) = 0.229046E+00
- PKER_RDRYG( 12, 19) = 0.199698E+00
- PKER_RDRYG( 12, 20) = 0.199640E+00
- PKER_RDRYG( 12, 21) = 0.218639E+00
- PKER_RDRYG( 12, 22) = 0.247374E+00
- PKER_RDRYG( 12, 23) = 0.278945E+00
- PKER_RDRYG( 12, 24) = 0.309121E+00
- PKER_RDRYG( 12, 25) = 0.335948E+00
- PKER_RDRYG( 12, 26) = 0.358842E+00
- PKER_RDRYG( 12, 27) = 0.377946E+00
- PKER_RDRYG( 12, 28) = 0.393696E+00
- PKER_RDRYG( 12, 29) = 0.406601E+00
- PKER_RDRYG( 12, 30) = 0.417155E+00
- PKER_RDRYG( 12, 31) = 0.425790E+00
- PKER_RDRYG( 12, 32) = 0.432861E+00
- PKER_RDRYG( 12, 33) = 0.438657E+00
- PKER_RDRYG( 12, 34) = 0.443413E+00
- PKER_RDRYG( 12, 35) = 0.447317E+00
- PKER_RDRYG( 12, 36) = 0.450524E+00
- PKER_RDRYG( 12, 37) = 0.453161E+00
- PKER_RDRYG( 12, 38) = 0.455329E+00
- PKER_RDRYG( 12, 39) = 0.457113E+00
- PKER_RDRYG( 12, 40) = 0.458581E+00
- PKER_RDRYG( 13, 1) = 0.135992E+02
- PKER_RDRYG( 13, 2) = 0.112081E+02
- PKER_RDRYG( 13, 3) = 0.922768E+01
- PKER_RDRYG( 13, 4) = 0.758724E+01
- PKER_RDRYG( 13, 5) = 0.622811E+01
- PKER_RDRYG( 13, 6) = 0.510171E+01
- PKER_RDRYG( 13, 7) = 0.416780E+01
- PKER_RDRYG( 13, 8) = 0.339309E+01
- PKER_RDRYG( 13, 9) = 0.274995E+01
- PKER_RDRYG( 13, 10) = 0.221557E+01
- PKER_RDRYG( 13, 11) = 0.177110E+01
- PKER_RDRYG( 13, 12) = 0.140110E+01
- PKER_RDRYG( 13, 13) = 0.109315E+01
- PKER_RDRYG( 13, 14) = 0.837695E+00
- PKER_RDRYG( 13, 15) = 0.628007E+00
- PKER_RDRYG( 13, 16) = 0.460064E+00
- PKER_RDRYG( 13, 17) = 0.332147E+00
- PKER_RDRYG( 13, 18) = 0.242993E+00
- PKER_RDRYG( 13, 19) = 0.190382E+00
- PKER_RDRYG( 13, 20) = 0.169340E+00
- PKER_RDRYG( 13, 21) = 0.172021E+00
- PKER_RDRYG( 13, 22) = 0.189920E+00
- PKER_RDRYG( 13, 23) = 0.215196E+00
- PKER_RDRYG( 13, 24) = 0.242255E+00
- PKER_RDRYG( 13, 25) = 0.267812E+00
- PKER_RDRYG( 13, 26) = 0.290361E+00
- PKER_RDRYG( 13, 27) = 0.309517E+00
- PKER_RDRYG( 13, 28) = 0.325465E+00
- PKER_RDRYG( 13, 29) = 0.338590E+00
- PKER_RDRYG( 13, 30) = 0.349335E+00
- PKER_RDRYG( 13, 31) = 0.358118E+00
- PKER_RDRYG( 13, 32) = 0.365303E+00
- PKER_RDRYG( 13, 33) = 0.371186E+00
- PKER_RDRYG( 13, 34) = 0.376007E+00
- PKER_RDRYG( 13, 35) = 0.379962E+00
- PKER_RDRYG( 13, 36) = 0.383208E+00
- PKER_RDRYG( 13, 37) = 0.385875E+00
- PKER_RDRYG( 13, 38) = 0.388066E+00
- PKER_RDRYG( 13, 39) = 0.389868E+00
- PKER_RDRYG( 13, 40) = 0.391351E+00
- PKER_RDRYG( 14, 1) = 0.136424E+02
- PKER_RDRYG( 14, 2) = 0.112520E+02
- PKER_RDRYG( 14, 3) = 0.927249E+01
- PKER_RDRYG( 14, 4) = 0.763302E+01
- PKER_RDRYG( 14, 5) = 0.627497E+01
- PKER_RDRYG( 14, 6) = 0.514978E+01
- PKER_RDRYG( 14, 7) = 0.421724E+01
- PKER_RDRYG( 14, 8) = 0.344405E+01
- PKER_RDRYG( 14, 9) = 0.280263E+01
- PKER_RDRYG( 14, 10) = 0.227012E+01
- PKER_RDRYG( 14, 11) = 0.182762E+01
- PKER_RDRYG( 14, 12) = 0.145954E+01
- PKER_RDRYG( 14, 13) = 0.115311E+01
- PKER_RDRYG( 14, 14) = 0.898099E+00
- PKER_RDRYG( 14, 15) = 0.686697E+00
- PKER_RDRYG( 14, 16) = 0.513492E+00
- PKER_RDRYG( 14, 17) = 0.375385E+00
- PKER_RDRYG( 14, 18) = 0.270975E+00
- PKER_RDRYG( 14, 19) = 0.199521E+00
- PKER_RDRYG( 14, 20) = 0.158655E+00
- PKER_RDRYG( 14, 21) = 0.143819E+00
- PKER_RDRYG( 14, 22) = 0.148448E+00
- PKER_RDRYG( 14, 23) = 0.165031E+00
- PKER_RDRYG( 14, 24) = 0.187175E+00
- PKER_RDRYG( 14, 25) = 0.210331E+00
- PKER_RDRYG( 14, 26) = 0.231936E+00
- PKER_RDRYG( 14, 27) = 0.250868E+00
- PKER_RDRYG( 14, 28) = 0.266895E+00
- PKER_RDRYG( 14, 29) = 0.280204E+00
- PKER_RDRYG( 14, 30) = 0.291143E+00
- PKER_RDRYG( 14, 31) = 0.300090E+00
- PKER_RDRYG( 14, 32) = 0.307401E+00
- PKER_RDRYG( 14, 33) = 0.313380E+00
- PKER_RDRYG( 14, 34) = 0.318275E+00
- PKER_RDRYG( 14, 35) = 0.322286E+00
- PKER_RDRYG( 14, 36) = 0.325575E+00
- PKER_RDRYG( 14, 37) = 0.328275E+00
- PKER_RDRYG( 14, 38) = 0.330492E+00
- PKER_RDRYG( 14, 39) = 0.332314E+00
- PKER_RDRYG( 14, 40) = 0.333811E+00
- PKER_RDRYG( 15, 1) = 0.136784E+02
- PKER_RDRYG( 15, 2) = 0.112886E+02
- PKER_RDRYG( 15, 3) = 0.930976E+01
- PKER_RDRYG( 15, 4) = 0.767102E+01
- PKER_RDRYG( 15, 5) = 0.631377E+01
- PKER_RDRYG( 15, 6) = 0.518948E+01
- PKER_RDRYG( 15, 7) = 0.425797E+01
- PKER_RDRYG( 15, 8) = 0.348593E+01
- PKER_RDRYG( 15, 9) = 0.284580E+01
- PKER_RDRYG( 15, 10) = 0.231474E+01
- PKER_RDRYG( 15, 11) = 0.187382E+01
- PKER_RDRYG( 15, 12) = 0.150740E+01
- PKER_RDRYG( 15, 13) = 0.120258E+01
- PKER_RDRYG( 15, 14) = 0.948799E+00
- PKER_RDRYG( 15, 15) = 0.737641E+00
- PKER_RDRYG( 15, 16) = 0.562720E+00
- PKER_RDRYG( 15, 17) = 0.419730E+00
- PKER_RDRYG( 15, 18) = 0.306247E+00
- PKER_RDRYG( 15, 19) = 0.221265E+00
- PKER_RDRYG( 15, 20) = 0.164088E+00
- PKER_RDRYG( 15, 21) = 0.132562E+00
- PKER_RDRYG( 15, 22) = 0.122598E+00
- PKER_RDRYG( 15, 23) = 0.128315E+00
- PKER_RDRYG( 15, 24) = 0.143469E+00
- PKER_RDRYG( 15, 25) = 0.162742E+00
- PKER_RDRYG( 15, 26) = 0.182528E+00
- PKER_RDRYG( 15, 27) = 0.200775E+00
- PKER_RDRYG( 15, 28) = 0.216671E+00
- PKER_RDRYG( 15, 29) = 0.230077E+00
- PKER_RDRYG( 15, 30) = 0.241184E+00
- PKER_RDRYG( 15, 31) = 0.250299E+00
- PKER_RDRYG( 15, 32) = 0.257750E+00
- PKER_RDRYG( 15, 33) = 0.263837E+00
- PKER_RDRYG( 15, 34) = 0.268813E+00
- PKER_RDRYG( 15, 35) = 0.272887E+00
- PKER_RDRYG( 15, 36) = 0.276224E+00
- PKER_RDRYG( 15, 37) = 0.278960E+00
- PKER_RDRYG( 15, 38) = 0.281205E+00
- PKER_RDRYG( 15, 39) = 0.283049E+00
- PKER_RDRYG( 15, 40) = 0.284564E+00
- PKER_RDRYG( 16, 1) = 0.137085E+02
- PKER_RDRYG( 16, 2) = 0.113192E+02
- PKER_RDRYG( 16, 3) = 0.934083E+01
- PKER_RDRYG( 16, 4) = 0.770263E+01
- PKER_RDRYG( 16, 5) = 0.634599E+01
- PKER_RDRYG( 16, 6) = 0.522238E+01
- PKER_RDRYG( 16, 7) = 0.429162E+01
- PKER_RDRYG( 16, 8) = 0.352045E+01
- PKER_RDRYG( 16, 9) = 0.288129E+01
- PKER_RDRYG( 16, 10) = 0.235131E+01
- PKER_RDRYG( 16, 11) = 0.191162E+01
- PKER_RDRYG( 16, 12) = 0.154654E+01
- PKER_RDRYG( 16, 13) = 0.124312E+01
- PKER_RDRYG( 16, 14) = 0.990681E+00
- PKER_RDRYG( 16, 15) = 0.780510E+00
- PKER_RDRYG( 16, 16) = 0.605678E+00
- PKER_RDRYG( 16, 17) = 0.460987E+00
- PKER_RDRYG( 16, 18) = 0.342972E+00
- PKER_RDRYG( 16, 19) = 0.249819E+00
- PKER_RDRYG( 16, 20) = 0.180844E+00
- PKER_RDRYG( 16, 21) = 0.135165E+00
- PKER_RDRYG( 16, 22) = 0.111031E+00
- PKER_RDRYG( 16, 23) = 0.104672E+00
- PKER_RDRYG( 16, 24) = 0.110998E+00
- PKER_RDRYG( 16, 25) = 0.124724E+00
- PKER_RDRYG( 16, 26) = 0.141478E+00
- PKER_RDRYG( 16, 27) = 0.158331E+00
- PKER_RDRYG( 16, 28) = 0.173737E+00
- PKER_RDRYG( 16, 29) = 0.187074E+00
- PKER_RDRYG( 16, 30) = 0.198283E+00
- PKER_RDRYG( 16, 31) = 0.207552E+00
- PKER_RDRYG( 16, 32) = 0.215149E+00
- PKER_RDRYG( 16, 33) = 0.221354E+00
- PKER_RDRYG( 16, 34) = 0.226422E+00
- PKER_RDRYG( 16, 35) = 0.230565E+00
- PKER_RDRYG( 16, 36) = 0.233955E+00
- PKER_RDRYG( 16, 37) = 0.236732E+00
- PKER_RDRYG( 16, 38) = 0.239008E+00
- PKER_RDRYG( 16, 39) = 0.240876E+00
- PKER_RDRYG( 16, 40) = 0.242409E+00
- PKER_RDRYG( 17, 1) = 0.137338E+02
- PKER_RDRYG( 17, 2) = 0.113448E+02
- PKER_RDRYG( 17, 3) = 0.936679E+01
- PKER_RDRYG( 17, 4) = 0.772900E+01
- PKER_RDRYG( 17, 5) = 0.637281E+01
- PKER_RDRYG( 17, 6) = 0.524971E+01
- PKER_RDRYG( 17, 7) = 0.431952E+01
- PKER_RDRYG( 17, 8) = 0.354898E+01
- PKER_RDRYG( 17, 9) = 0.291054E+01
- PKER_RDRYG( 17, 10) = 0.238139E+01
- PKER_RDRYG( 17, 11) = 0.194261E+01
- PKER_RDRYG( 17, 12) = 0.157857E+01
- PKER_RDRYG( 17, 13) = 0.127628E+01
- PKER_RDRYG( 17, 14) = 0.102502E+01
- PKER_RDRYG( 17, 15) = 0.815970E+00
- PKER_RDRYG( 17, 16) = 0.641917E+00
- PKER_RDRYG( 17, 17) = 0.497171E+00
- PKER_RDRYG( 17, 18) = 0.377507E+00
- PKER_RDRYG( 17, 19) = 0.280172E+00
- PKER_RDRYG( 17, 20) = 0.203787E+00
- PKER_RDRYG( 17, 21) = 0.147769E+00
- PKER_RDRYG( 17, 22) = 0.111528E+00
- PKER_RDRYG( 17, 23) = 0.932152E-01
- PKER_RDRYG( 17, 24) = 0.895799E-01
- PKER_RDRYG( 17, 25) = 0.961438E-01
- PKER_RDRYG( 17, 26) = 0.108454E+00
- PKER_RDRYG( 17, 27) = 0.122945E+00
- PKER_RDRYG( 17, 28) = 0.137295E+00
- PKER_RDRYG( 17, 29) = 0.150279E+00
- PKER_RDRYG( 17, 30) = 0.161465E+00
- PKER_RDRYG( 17, 31) = 0.170838E+00
- PKER_RDRYG( 17, 32) = 0.178572E+00
- PKER_RDRYG( 17, 33) = 0.184904E+00
- PKER_RDRYG( 17, 34) = 0.190073E+00
- PKER_RDRYG( 17, 35) = 0.194293E+00
- PKER_RDRYG( 17, 36) = 0.197742E+00
- PKER_RDRYG( 17, 37) = 0.200564E+00
- PKER_RDRYG( 17, 38) = 0.202875E+00
- PKER_RDRYG( 17, 39) = 0.204769E+00
- PKER_RDRYG( 17, 40) = 0.206323E+00
- PKER_RDRYG( 18, 1) = 0.137549E+02
- PKER_RDRYG( 18, 2) = 0.113662E+02
- PKER_RDRYG( 18, 3) = 0.938851E+01
- PKER_RDRYG( 18, 4) = 0.775103E+01
- PKER_RDRYG( 18, 5) = 0.639519E+01
- PKER_RDRYG( 18, 6) = 0.527247E+01
- PKER_RDRYG( 18, 7) = 0.434271E+01
- PKER_RDRYG( 18, 8) = 0.357264E+01
- PKER_RDRYG( 18, 9) = 0.293474E+01
- PKER_RDRYG( 18, 10) = 0.240619E+01
- PKER_RDRYG( 18, 11) = 0.196810E+01
- PKER_RDRYG( 18, 12) = 0.160484E+01
- PKER_RDRYG( 18, 13) = 0.130342E+01
- PKER_RDRYG( 18, 14) = 0.105312E+01
- PKER_RDRYG( 18, 15) = 0.845066E+00
- PKER_RDRYG( 18, 16) = 0.671939E+00
- PKER_RDRYG( 18, 17) = 0.527804E+00
- PKER_RDRYG( 18, 18) = 0.407977E+00
- PKER_RDRYG( 18, 19) = 0.309030E+00
- PKER_RDRYG( 18, 20) = 0.228800E+00
- PKER_RDRYG( 18, 21) = 0.166244E+00
- PKER_RDRYG( 18, 22) = 0.120903E+00
- PKER_RDRYG( 18, 23) = 0.922202E-01
- PKER_RDRYG( 18, 24) = 0.785293E-01
- PKER_RDRYG( 18, 25) = 0.768302E-01
- PKER_RDRYG( 18, 26) = 0.833242E-01
- PKER_RDRYG( 18, 27) = 0.942918E-01
- PKER_RDRYG( 18, 28) = 0.106809E+00
- PKER_RDRYG( 18, 29) = 0.119000E+00
- PKER_RDRYG( 18, 30) = 0.129941E+00
- PKER_RDRYG( 18, 31) = 0.139320E+00
- PKER_RDRYG( 18, 32) = 0.147155E+00
- PKER_RDRYG( 18, 33) = 0.153608E+00
- PKER_RDRYG( 18, 34) = 0.158885E+00
- PKER_RDRYG( 18, 35) = 0.163191E+00
- PKER_RDRYG( 18, 36) = 0.166706E+00
- PKER_RDRYG( 18, 37) = 0.169578E+00
- PKER_RDRYG( 18, 38) = 0.171928E+00
- PKER_RDRYG( 18, 39) = 0.173851E+00
- PKER_RDRYG( 18, 40) = 0.175428E+00
- PKER_RDRYG( 19, 1) = 0.137727E+02
- PKER_RDRYG( 19, 2) = 0.113842E+02
- PKER_RDRYG( 19, 3) = 0.940672E+01
- PKER_RDRYG( 19, 4) = 0.776948E+01
- PKER_RDRYG( 19, 5) = 0.641390E+01
- PKER_RDRYG( 19, 6) = 0.529147E+01
- PKER_RDRYG( 19, 7) = 0.436202E+01
- PKER_RDRYG( 19, 8) = 0.359232E+01
- PKER_RDRYG( 19, 9) = 0.295481E+01
- PKER_RDRYG( 19, 10) = 0.242671E+01
- PKER_RDRYG( 19, 11) = 0.198914E+01
- PKER_RDRYG( 19, 12) = 0.162645E+01
- PKER_RDRYG( 19, 13) = 0.132569E+01
- PKER_RDRYG( 19, 14) = 0.107613E+01
- PKER_RDRYG( 19, 15) = 0.868883E+00
- PKER_RDRYG( 19, 16) = 0.696595E+00
- PKER_RDRYG( 19, 17) = 0.553222E+00
- PKER_RDRYG( 19, 18) = 0.433861E+00
- PKER_RDRYG( 19, 19) = 0.334680E+00
- PKER_RDRYG( 19, 20) = 0.252894E+00
- PKER_RDRYG( 19, 21) = 0.186794E+00
- PKER_RDRYG( 19, 22) = 0.135613E+00
- PKER_RDRYG( 19, 23) = 0.990001E-01
- PKER_RDRYG( 19, 24) = 0.764111E-01
- PKER_RDRYG( 19, 25) = 0.663036E-01
- PKER_RDRYG( 19, 26) = 0.659987E-01
- PKER_RDRYG( 19, 27) = 0.722775E-01
- PKER_RDRYG( 19, 28) = 0.819918E-01
- PKER_RDRYG( 19, 29) = 0.927520E-01
- PKER_RDRYG( 19, 30) = 0.103099E+00
- PKER_RDRYG( 19, 31) = 0.112313E+00
- PKER_RDRYG( 19, 32) = 0.120174E+00
- PKER_RDRYG( 19, 33) = 0.126723E+00
- PKER_RDRYG( 19, 34) = 0.132108E+00
- PKER_RDRYG( 19, 35) = 0.136507E+00
- PKER_RDRYG( 19, 36) = 0.140095E+00
- PKER_RDRYG( 19, 37) = 0.143023E+00
- PKER_RDRYG( 19, 38) = 0.145415E+00
- PKER_RDRYG( 19, 39) = 0.147371E+00
- PKER_RDRYG( 19, 40) = 0.148972E+00
- PKER_RDRYG( 20, 1) = 0.137877E+02
- PKER_RDRYG( 20, 2) = 0.113993E+02
- PKER_RDRYG( 20, 3) = 0.942201E+01
- PKER_RDRYG( 20, 4) = 0.778496E+01
- PKER_RDRYG( 20, 5) = 0.642957E+01
- PKER_RDRYG( 20, 6) = 0.530736E+01
- PKER_RDRYG( 20, 7) = 0.437816E+01
- PKER_RDRYG( 20, 8) = 0.360871E+01
- PKER_RDRYG( 20, 9) = 0.297151E+01
- PKER_RDRYG( 20, 10) = 0.244375E+01
- PKER_RDRYG( 20, 11) = 0.200655E+01
- PKER_RDRYG( 20, 12) = 0.164429E+01
- PKER_RDRYG( 20, 13) = 0.134402E+01
- PKER_RDRYG( 20, 14) = 0.109502E+01
- PKER_RDRYG( 20, 15) = 0.888391E+00
- PKER_RDRYG( 20, 16) = 0.716785E+00
- PKER_RDRYG( 20, 17) = 0.574115E+00
- PKER_RDRYG( 20, 18) = 0.455384E+00
- PKER_RDRYG( 20, 19) = 0.356548E+00
- PKER_RDRYG( 20, 20) = 0.274459E+00
- PKER_RDRYG( 20, 21) = 0.206882E+00
- PKER_RDRYG( 20, 22) = 0.152466E+00
- PKER_RDRYG( 20, 23) = 0.110601E+00
- PKER_RDRYG( 20, 24) = 0.811506E-01
- PKER_RDRYG( 20, 25) = 0.634503E-01
- PKER_RDRYG( 20, 26) = 0.561009E-01
- PKER_RDRYG( 20, 27) = 0.568033E-01
- PKER_RDRYG( 20, 28) = 0.627284E-01
- PKER_RDRYG( 20, 29) = 0.712830E-01
- PKER_RDRYG( 20, 30) = 0.805234E-01
- PKER_RDRYG( 20, 31) = 0.892920E-01
- PKER_RDRYG( 20, 32) = 0.970435E-01
- PKER_RDRYG( 20, 33) = 0.103629E+00
- PKER_RDRYG( 20, 34) = 0.109103E+00
- PKER_RDRYG( 20, 35) = 0.113596E+00
- PKER_RDRYG( 20, 36) = 0.117263E+00
- PKER_RDRYG( 20, 37) = 0.120253E+00
- PKER_RDRYG( 20, 38) = 0.122692E+00
- PKER_RDRYG( 20, 39) = 0.124685E+00
- PKER_RDRYG( 20, 40) = 0.126314E+00
- PKER_RDRYG( 21, 1) = 0.138003E+02
- PKER_RDRYG( 21, 2) = 0.114121E+02
- PKER_RDRYG( 21, 3) = 0.943487E+01
- PKER_RDRYG( 21, 4) = 0.779796E+01
- PKER_RDRYG( 21, 5) = 0.644273E+01
- PKER_RDRYG( 21, 6) = 0.532068E+01
- PKER_RDRYG( 21, 7) = 0.439166E+01
- PKER_RDRYG( 21, 8) = 0.362242E+01
- PKER_RDRYG( 21, 9) = 0.298543E+01
- PKER_RDRYG( 21, 10) = 0.245792E+01
- PKER_RDRYG( 21, 11) = 0.202101E+01
- PKER_RDRYG( 21, 12) = 0.165907E+01
- PKER_RDRYG( 21, 13) = 0.135916E+01
- PKER_RDRYG( 21, 14) = 0.111057E+01
- PKER_RDRYG( 21, 15) = 0.904409E+00
- PKER_RDRYG( 21, 16) = 0.733329E+00
- PKER_RDRYG( 21, 17) = 0.591235E+00
- PKER_RDRYG( 21, 18) = 0.473092E+00
- PKER_RDRYG( 21, 19) = 0.374768E+00
- PKER_RDRYG( 21, 20) = 0.292928E+00
- PKER_RDRYG( 21, 21) = 0.224999E+00
- PKER_RDRYG( 21, 22) = 0.169182E+00
- PKER_RDRYG( 21, 23) = 0.124421E+00
- PKER_RDRYG( 21, 24) = 0.902987E-01
- PKER_RDRYG( 21, 25) = 0.666035E-01
- PKER_RDRYG( 21, 26) = 0.528135E-01
- PKER_RDRYG( 21, 27) = 0.476163E-01
- PKER_RDRYG( 21, 28) = 0.489721E-01
- PKER_RDRYG( 21, 29) = 0.544680E-01
- PKER_RDRYG( 21, 30) = 0.619547E-01
- PKER_RDRYG( 21, 31) = 0.698776E-01
- PKER_RDRYG( 21, 32) = 0.772992E-01
- PKER_RDRYG( 21, 33) = 0.838194E-01
- PKER_RDRYG( 21, 34) = 0.893378E-01
- PKER_RDRYG( 21, 35) = 0.939116E-01
- PKER_RDRYG( 21, 36) = 0.976604E-01
- PKER_RDRYG( 21, 37) = 0.100718E+00
- PKER_RDRYG( 21, 38) = 0.103210E+00
- PKER_RDRYG( 21, 39) = 0.105243E+00
- PKER_RDRYG( 21, 40) = 0.106903E+00
- PKER_RDRYG( 22, 1) = 0.138109E+02
- PKER_RDRYG( 22, 2) = 0.114228E+02
- PKER_RDRYG( 22, 3) = 0.944570E+01
- PKER_RDRYG( 22, 4) = 0.780889E+01
- PKER_RDRYG( 22, 5) = 0.645378E+01
- PKER_RDRYG( 22, 6) = 0.533186E+01
- PKER_RDRYG( 22, 7) = 0.440297E+01
- PKER_RDRYG( 22, 8) = 0.363389E+01
- PKER_RDRYG( 22, 9) = 0.299707E+01
- PKER_RDRYG( 22, 10) = 0.246974E+01
- PKER_RDRYG( 22, 11) = 0.203304E+01
- PKER_RDRYG( 22, 12) = 0.167134E+01
- PKER_RDRYG( 22, 13) = 0.137170E+01
- PKER_RDRYG( 22, 14) = 0.112341E+01
- PKER_RDRYG( 22, 15) = 0.917601E+00
- PKER_RDRYG( 22, 16) = 0.746917E+00
- PKER_RDRYG( 22, 17) = 0.605268E+00
- PKER_RDRYG( 22, 18) = 0.487610E+00
- PKER_RDRYG( 22, 19) = 0.389777E+00
- PKER_RDRYG( 22, 20) = 0.308353E+00
- PKER_RDRYG( 22, 21) = 0.240593E+00
- PKER_RDRYG( 22, 22) = 0.184395E+00
- PKER_RDRYG( 22, 23) = 0.138304E+00
- PKER_RDRYG( 22, 24) = 0.101518E+00
- PKER_RDRYG( 22, 25) = 0.737400E-01
- PKER_RDRYG( 22, 26) = 0.547362E-01
- PKER_RDRYG( 22, 27) = 0.440552E-01
- PKER_RDRYG( 22, 28) = 0.405040E-01
- PKER_RDRYG( 22, 29) = 0.422514E-01
- PKER_RDRYG( 22, 30) = 0.472981E-01
- PKER_RDRYG( 22, 31) = 0.538448E-01
- PKER_RDRYG( 22, 32) = 0.606126E-01
- PKER_RDRYG( 22, 33) = 0.668945E-01
- PKER_RDRYG( 22, 34) = 0.723746E-01
- PKER_RDRYG( 22, 35) = 0.769958E-01
- PKER_RDRYG( 22, 36) = 0.808177E-01
- PKER_RDRYG( 22, 37) = 0.839459E-01
- PKER_RDRYG( 22, 38) = 0.864957E-01
- PKER_RDRYG( 22, 39) = 0.885730E-01
- PKER_RDRYG( 22, 40) = 0.902671E-01
- PKER_RDRYG( 23, 1) = 0.138199E+02
- PKER_RDRYG( 23, 2) = 0.114318E+02
- PKER_RDRYG( 23, 3) = 0.945483E+01
- PKER_RDRYG( 23, 4) = 0.781810E+01
- PKER_RDRYG( 23, 5) = 0.646308E+01
- PKER_RDRYG( 23, 6) = 0.534126E+01
- PKER_RDRYG( 23, 7) = 0.441248E+01
- PKER_RDRYG( 23, 8) = 0.364351E+01
- PKER_RDRYG( 23, 9) = 0.300682E+01
- PKER_RDRYG( 23, 10) = 0.247963E+01
- PKER_RDRYG( 23, 11) = 0.204308E+01
- PKER_RDRYG( 23, 12) = 0.168156E+01
- PKER_RDRYG( 23, 13) = 0.138212E+01
- PKER_RDRYG( 23, 14) = 0.113405E+01
- PKER_RDRYG( 23, 15) = 0.928502E+00
- PKER_RDRYG( 23, 16) = 0.758112E+00
- PKER_RDRYG( 23, 17) = 0.616797E+00
- PKER_RDRYG( 23, 18) = 0.499515E+00
- PKER_RDRYG( 23, 19) = 0.402091E+00
- PKER_RDRYG( 23, 20) = 0.321077E+00
- PKER_RDRYG( 23, 21) = 0.253650E+00
- PKER_RDRYG( 23, 22) = 0.197550E+00
- PKER_RDRYG( 23, 23) = 0.151060E+00
- PKER_RDRYG( 23, 24) = 0.113025E+00
- PKER_RDRYG( 23, 25) = 0.828239E-01
- PKER_RDRYG( 23, 26) = 0.601986E-01
- PKER_RDRYG( 23, 27) = 0.450509E-01
- PKER_RDRYG( 23, 28) = 0.368416E-01
- PKER_RDRYG( 23, 29) = 0.345321E-01
- PKER_RDRYG( 23, 30) = 0.365251E-01
- PKER_RDRYG( 23, 31) = 0.410970E-01
- PKER_RDRYG( 23, 32) = 0.467824E-01
- PKER_RDRYG( 23, 33) = 0.525608E-01
- PKER_RDRYG( 23, 34) = 0.578657E-01
- PKER_RDRYG( 23, 35) = 0.624713E-01
- PKER_RDRYG( 23, 36) = 0.663413E-01
- PKER_RDRYG( 23, 37) = 0.695349E-01
- PKER_RDRYG( 23, 38) = 0.721454E-01
- PKER_RDRYG( 23, 39) = 0.742719E-01
- PKER_RDRYG( 23, 40) = 0.760039E-01
- PKER_RDRYG( 24, 1) = 0.138275E+02
- PKER_RDRYG( 24, 2) = 0.114395E+02
- PKER_RDRYG( 24, 3) = 0.946253E+01
- PKER_RDRYG( 24, 4) = 0.782587E+01
- PKER_RDRYG( 24, 5) = 0.647092E+01
- PKER_RDRYG( 24, 6) = 0.534917E+01
- PKER_RDRYG( 24, 7) = 0.442047E+01
- PKER_RDRYG( 24, 8) = 0.365159E+01
- PKER_RDRYG( 24, 9) = 0.301500E+01
- PKER_RDRYG( 24, 10) = 0.248792E+01
- PKER_RDRYG( 24, 11) = 0.205149E+01
- PKER_RDRYG( 24, 12) = 0.169009E+01
- PKER_RDRYG( 24, 13) = 0.139080E+01
- PKER_RDRYG( 24, 14) = 0.114290E+01
- PKER_RDRYG( 24, 15) = 0.937539E+00
- PKER_RDRYG( 24, 16) = 0.767365E+00
- PKER_RDRYG( 24, 17) = 0.626299E+00
- PKER_RDRYG( 24, 18) = 0.509299E+00
- PKER_RDRYG( 24, 19) = 0.412192E+00
- PKER_RDRYG( 24, 20) = 0.331522E+00
- PKER_RDRYG( 24, 21) = 0.264435E+00
- PKER_RDRYG( 24, 22) = 0.208600E+00
- PKER_RDRYG( 24, 23) = 0.162158E+00
- PKER_RDRYG( 24, 24) = 0.123712E+00
- PKER_RDRYG( 24, 25) = 0.923382E-01
- PKER_RDRYG( 24, 26) = 0.675660E-01
- PKER_RDRYG( 24, 27) = 0.492121E-01
- PKER_RDRYG( 24, 28) = 0.371392E-01
- PKER_RDRYG( 24, 29) = 0.309059E-01
- PKER_RDRYG( 24, 30) = 0.295040E-01
- PKER_RDRYG( 24, 31) = 0.315887E-01
- PKER_RDRYG( 24, 32) = 0.357033E-01
- PKER_RDRYG( 24, 33) = 0.406336E-01
- PKER_RDRYG( 24, 34) = 0.455581E-01
- PKER_RDRYG( 24, 35) = 0.500391E-01
- PKER_RDRYG( 24, 36) = 0.539067E-01
- PKER_RDRYG( 24, 37) = 0.571467E-01
- PKER_RDRYG( 24, 38) = 0.598152E-01
- PKER_RDRYG( 24, 39) = 0.619938E-01
- PKER_RDRYG( 24, 40) = 0.637676E-01
- PKER_RDRYG( 25, 1) = 0.138339E+02
- PKER_RDRYG( 25, 2) = 0.114460E+02
- PKER_RDRYG( 25, 3) = 0.946904E+01
- PKER_RDRYG( 25, 4) = 0.783243E+01
- PKER_RDRYG( 25, 5) = 0.647753E+01
- PKER_RDRYG( 25, 6) = 0.535584E+01
- PKER_RDRYG( 25, 7) = 0.442721E+01
- PKER_RDRYG( 25, 8) = 0.365839E+01
- PKER_RDRYG( 25, 9) = 0.302187E+01
- PKER_RDRYG( 25, 10) = 0.249487E+01
- PKER_RDRYG( 25, 11) = 0.205853E+01
- PKER_RDRYG( 25, 12) = 0.169723E+01
- PKER_RDRYG( 25, 13) = 0.139805E+01
- PKER_RDRYG( 25, 14) = 0.115028E+01
- PKER_RDRYG( 25, 15) = 0.945054E+00
- PKER_RDRYG( 25, 16) = 0.775040E+00
- PKER_RDRYG( 25, 17) = 0.634156E+00
- PKER_RDRYG( 25, 18) = 0.517365E+00
- PKER_RDRYG( 25, 19) = 0.420497E+00
- PKER_RDRYG( 25, 20) = 0.340095E+00
- PKER_RDRYG( 25, 21) = 0.273296E+00
- PKER_RDRYG( 25, 22) = 0.217743E+00
- PKER_RDRYG( 25, 23) = 0.171507E+00
- PKER_RDRYG( 25, 24) = 0.133065E+00
- PKER_RDRYG( 25, 25) = 0.101277E+00
- PKER_RDRYG( 25, 26) = 0.754131E-01
- PKER_RDRYG( 25, 27) = 0.551078E-01
- PKER_RDRYG( 25, 28) = 0.402423E-01
- PKER_RDRYG( 25, 29) = 0.306784E-01
- PKER_RDRYG( 25, 30) = 0.259723E-01
- PKER_RDRYG( 25, 31) = 0.252571E-01
- PKER_RDRYG( 25, 32) = 0.273487E-01
- PKER_RDRYG( 25, 33) = 0.310247E-01
- PKER_RDRYG( 25, 34) = 0.352825E-01
- PKER_RDRYG( 25, 35) = 0.394738E-01
- PKER_RDRYG( 25, 36) = 0.432539E-01
- PKER_RDRYG( 25, 37) = 0.465023E-01
- PKER_RDRYG( 25, 38) = 0.492145E-01
- PKER_RDRYG( 25, 39) = 0.514441E-01
- PKER_RDRYG( 25, 40) = 0.532625E-01
- PKER_RDRYG( 26, 1) = 0.138394E+02
- PKER_RDRYG( 26, 2) = 0.114514E+02
- PKER_RDRYG( 26, 3) = 0.947455E+01
- PKER_RDRYG( 26, 4) = 0.783798E+01
- PKER_RDRYG( 26, 5) = 0.648312E+01
- PKER_RDRYG( 26, 6) = 0.536147E+01
- PKER_RDRYG( 26, 7) = 0.443289E+01
- PKER_RDRYG( 26, 8) = 0.366412E+01
- PKER_RDRYG( 26, 9) = 0.302766E+01
- PKER_RDRYG( 26, 10) = 0.250072E+01
- PKER_RDRYG( 26, 11) = 0.206444E+01
- PKER_RDRYG( 26, 12) = 0.170322E+01
- PKER_RDRYG( 26, 13) = 0.140412E+01
- PKER_RDRYG( 26, 14) = 0.115644E+01
- PKER_RDRYG( 26, 15) = 0.951320E+00
- PKER_RDRYG( 26, 16) = 0.781424E+00
- PKER_RDRYG( 26, 17) = 0.640674E+00
- PKER_RDRYG( 26, 18) = 0.524038E+00
- PKER_RDRYG( 26, 19) = 0.427346E+00
- PKER_RDRYG( 26, 20) = 0.347145E+00
- PKER_RDRYG( 26, 21) = 0.280573E+00
- PKER_RDRYG( 26, 22) = 0.225261E+00
- PKER_RDRYG( 26, 23) = 0.179259E+00
- PKER_RDRYG( 26, 24) = 0.140975E+00
- PKER_RDRYG( 26, 25) = 0.109155E+00
- PKER_RDRYG( 26, 26) = 0.828827E-01
- PKER_RDRYG( 26, 27) = 0.615721E-01
- PKER_RDRYG( 26, 28) = 0.449413E-01
- PKER_RDRYG( 26, 29) = 0.329364E-01
- PKER_RDRYG( 26, 30) = 0.253888E-01
- PKER_RDRYG( 26, 31) = 0.218916E-01
- PKER_RDRYG( 26, 32) = 0.216696E-01
- PKER_RDRYG( 26, 33) = 0.236986E-01
- PKER_RDRYG( 26, 34) = 0.269569E-01
- PKER_RDRYG( 26, 35) = 0.306269E-01
- PKER_RDRYG( 26, 36) = 0.341888E-01
- PKER_RDRYG( 26, 37) = 0.373771E-01
- PKER_RDRYG( 26, 38) = 0.401030E-01
- PKER_RDRYG( 26, 39) = 0.423733E-01
- PKER_RDRYG( 26, 40) = 0.442362E-01
- PKER_RDRYG( 27, 1) = 0.138440E+02
- PKER_RDRYG( 27, 2) = 0.114560E+02
- PKER_RDRYG( 27, 3) = 0.947921E+01
- PKER_RDRYG( 27, 4) = 0.784267E+01
- PKER_RDRYG( 27, 5) = 0.648784E+01
- PKER_RDRYG( 27, 6) = 0.536623E+01
- PKER_RDRYG( 27, 7) = 0.443768E+01
- PKER_RDRYG( 27, 8) = 0.366895E+01
- PKER_RDRYG( 27, 9) = 0.303253E+01
- PKER_RDRYG( 27, 10) = 0.250564E+01
- PKER_RDRYG( 27, 11) = 0.206942E+01
- PKER_RDRYG( 27, 12) = 0.170825E+01
- PKER_RDRYG( 27, 13) = 0.140921E+01
- PKER_RDRYG( 27, 14) = 0.116160E+01
- PKER_RDRYG( 27, 15) = 0.956558E+00
- PKER_RDRYG( 27, 16) = 0.786749E+00
- PKER_RDRYG( 27, 17) = 0.646098E+00
- PKER_RDRYG( 27, 18) = 0.529575E+00
- PKER_RDRYG( 27, 19) = 0.433014E+00
- PKER_RDRYG( 27, 20) = 0.352962E+00
- PKER_RDRYG( 27, 21) = 0.286560E+00
- PKER_RDRYG( 27, 22) = 0.231439E+00
- PKER_RDRYG( 27, 23) = 0.185639E+00
- PKER_RDRYG( 27, 24) = 0.147545E+00
- PKER_RDRYG( 27, 25) = 0.115846E+00
- PKER_RDRYG( 27, 26) = 0.895139E-01
- PKER_RDRYG( 27, 27) = 0.678043E-01
- PKER_RDRYG( 27, 28) = 0.502589E-01
- PKER_RDRYG( 27, 29) = 0.366803E-01
- PKER_RDRYG( 27, 30) = 0.269840E-01
- PKER_RDRYG( 27, 31) = 0.210536E-01
- PKER_RDRYG( 27, 32) = 0.184920E-01
- PKER_RDRYG( 27, 33) = 0.186221E-01
- PKER_RDRYG( 27, 34) = 0.205486E-01
- PKER_RDRYG( 27, 35) = 0.234200E-01
- PKER_RDRYG( 27, 36) = 0.265772E-01
- PKER_RDRYG( 27, 37) = 0.296001E-01
- PKER_RDRYG( 27, 38) = 0.322869E-01
- PKER_RDRYG( 27, 39) = 0.345747E-01
- PKER_RDRYG( 27, 40) = 0.364748E-01
- PKER_RDRYG( 28, 1) = 0.138479E+02
- PKER_RDRYG( 28, 2) = 0.114600E+02
- PKER_RDRYG( 28, 3) = 0.948316E+01
- PKER_RDRYG( 28, 4) = 0.784664E+01
- PKER_RDRYG( 28, 5) = 0.649184E+01
- PKER_RDRYG( 28, 6) = 0.537025E+01
- PKER_RDRYG( 28, 7) = 0.444173E+01
- PKER_RDRYG( 28, 8) = 0.367304E+01
- PKER_RDRYG( 28, 9) = 0.303665E+01
- PKER_RDRYG( 28, 10) = 0.250979E+01
- PKER_RDRYG( 28, 11) = 0.207361E+01
- PKER_RDRYG( 28, 12) = 0.171248E+01
- PKER_RDRYG( 28, 13) = 0.141349E+01
- PKER_RDRYG( 28, 14) = 0.116593E+01
- PKER_RDRYG( 28, 15) = 0.960947E+00
- PKER_RDRYG( 28, 16) = 0.791203E+00
- PKER_RDRYG( 28, 17) = 0.650625E+00
- PKER_RDRYG( 28, 18) = 0.534185E+00
- PKER_RDRYG( 28, 19) = 0.437719E+00
- PKER_RDRYG( 28, 20) = 0.357777E+00
- PKER_RDRYG( 28, 21) = 0.291501E+00
- PKER_RDRYG( 28, 22) = 0.236523E+00
- PKER_RDRYG( 28, 23) = 0.190884E+00
- PKER_RDRYG( 28, 24) = 0.152959E+00
- PKER_RDRYG( 28, 25) = 0.121415E+00
- PKER_RDRYG( 28, 26) = 0.951696E-01
- PKER_RDRYG( 28, 27) = 0.733827E-01
- PKER_RDRYG( 28, 28) = 0.554501E-01
- PKER_RDRYG( 28, 29) = 0.410159E-01
- PKER_RDRYG( 28, 30) = 0.299322E-01
- PKER_RDRYG( 28, 31) = 0.221290E-01
- PKER_RDRYG( 28, 32) = 0.174911E-01
- PKER_RDRYG( 28, 33) = 0.156662E-01
- PKER_RDRYG( 28, 34) = 0.160216E-01
- PKER_RDRYG( 28, 35) = 0.178216E-01
- PKER_RDRYG( 28, 36) = 0.203456E-01
- PKER_RDRYG( 28, 37) = 0.230543E-01
- PKER_RDRYG( 28, 38) = 0.256182E-01
- PKER_RDRYG( 28, 39) = 0.278812E-01
- PKER_RDRYG( 28, 40) = 0.298004E-01
- PKER_RDRYG( 29, 1) = 0.138512E+02
- PKER_RDRYG( 29, 2) = 0.114633E+02
- PKER_RDRYG( 29, 3) = 0.948650E+01
- PKER_RDRYG( 29, 4) = 0.785000E+01
- PKER_RDRYG( 29, 5) = 0.649522E+01
- PKER_RDRYG( 29, 6) = 0.537366E+01
- PKER_RDRYG( 29, 7) = 0.444516E+01
- PKER_RDRYG( 29, 8) = 0.367649E+01
- PKER_RDRYG( 29, 9) = 0.304013E+01
- PKER_RDRYG( 29, 10) = 0.251330E+01
- PKER_RDRYG( 29, 11) = 0.207714E+01
- PKER_RDRYG( 29, 12) = 0.171605E+01
- PKER_RDRYG( 29, 13) = 0.141709E+01
- PKER_RDRYG( 29, 14) = 0.116957E+01
- PKER_RDRYG( 29, 15) = 0.964632E+00
- PKER_RDRYG( 29, 16) = 0.794935E+00
- PKER_RDRYG( 29, 17) = 0.654412E+00
- PKER_RDRYG( 29, 18) = 0.538034E+00
- PKER_RDRYG( 29, 19) = 0.441637E+00
- PKER_RDRYG( 29, 20) = 0.361775E+00
- PKER_RDRYG( 29, 21) = 0.295592E+00
- PKER_RDRYG( 29, 22) = 0.240721E+00
- PKER_RDRYG( 29, 23) = 0.195203E+00
- PKER_RDRYG( 29, 24) = 0.157413E+00
- PKER_RDRYG( 29, 25) = 0.126010E+00
- PKER_RDRYG( 29, 26) = 0.998897E-01
- PKER_RDRYG( 29, 27) = 0.781613E-01
- PKER_RDRYG( 29, 28) = 0.601349E-01
- PKER_RDRYG( 29, 29) = 0.453296E-01
- PKER_RDRYG( 29, 30) = 0.334668E-01
- PKER_RDRYG( 29, 31) = 0.244241E-01
- PKER_RDRYG( 29, 32) = 0.181733E-01
- PKER_RDRYG( 29, 33) = 0.145718E-01
- PKER_RDRYG( 29, 34) = 0.133001E-01
- PKER_RDRYG( 29, 35) = 0.138127E-01
- PKER_RDRYG( 29, 36) = 0.154662E-01
- PKER_RDRYG( 29, 37) = 0.176729E-01
- PKER_RDRYG( 29, 38) = 0.199915E-01
- PKER_RDRYG( 29, 39) = 0.221631E-01
- PKER_RDRYG( 29, 40) = 0.240688E-01
- PKER_RDRYG( 30, 1) = 0.138540E+02
- PKER_RDRYG( 30, 2) = 0.114661E+02
- PKER_RDRYG( 30, 3) = 0.948934E+01
- PKER_RDRYG( 30, 4) = 0.785286E+01
- PKER_RDRYG( 30, 5) = 0.649809E+01
- PKER_RDRYG( 30, 6) = 0.537654E+01
- PKER_RDRYG( 30, 7) = 0.444806E+01
- PKER_RDRYG( 30, 8) = 0.367941E+01
- PKER_RDRYG( 30, 9) = 0.304307E+01
- PKER_RDRYG( 30, 10) = 0.251626E+01
- PKER_RDRYG( 30, 11) = 0.208013E+01
- PKER_RDRYG( 30, 12) = 0.171906E+01
- PKER_RDRYG( 30, 13) = 0.142013E+01
- PKER_RDRYG( 30, 14) = 0.117264E+01
- PKER_RDRYG( 30, 15) = 0.967730E+00
- PKER_RDRYG( 30, 16) = 0.798070E+00
- PKER_RDRYG( 30, 17) = 0.657587E+00
- PKER_RDRYG( 30, 18) = 0.541254E+00
- PKER_RDRYG( 30, 19) = 0.444909E+00
- PKER_RDRYG( 30, 20) = 0.365106E+00
- PKER_RDRYG( 30, 21) = 0.298991E+00
- PKER_RDRYG( 30, 22) = 0.244198E+00
- PKER_RDRYG( 30, 23) = 0.198769E+00
- PKER_RDRYG( 30, 24) = 0.161082E+00
- PKER_RDRYG( 30, 25) = 0.129793E+00
- PKER_RDRYG( 30, 26) = 0.103790E+00
- PKER_RDRYG( 30, 27) = 0.821610E-01
- PKER_RDRYG( 30, 28) = 0.641734E-01
- PKER_RDRYG( 30, 29) = 0.492644E-01
- PKER_RDRYG( 30, 30) = 0.370449E-01
- PKER_RDRYG( 30, 31) = 0.273020E-01
- PKER_RDRYG( 30, 32) = 0.199464E-01
- PKER_RDRYG( 30, 33) = 0.149418E-01
- PKER_RDRYG( 30, 34) = 0.121711E-01
- PKER_RDRYG( 30, 35) = 0.113170E-01
- PKER_RDRYG( 30, 36) = 0.119183E-01
- PKER_RDRYG( 30, 37) = 0.134237E-01
- PKER_RDRYG( 30, 38) = 0.153458E-01
- PKER_RDRYG( 30, 39) = 0.173290E-01
- PKER_RDRYG( 30, 40) = 0.191677E-01
- PKER_RDRYG( 31, 1) = 0.138564E+02
- PKER_RDRYG( 31, 2) = 0.114685E+02
- PKER_RDRYG( 31, 3) = 0.949175E+01
- PKER_RDRYG( 31, 4) = 0.785528E+01
- PKER_RDRYG( 31, 5) = 0.650052E+01
- PKER_RDRYG( 31, 6) = 0.537899E+01
- PKER_RDRYG( 31, 7) = 0.445052E+01
- PKER_RDRYG( 31, 8) = 0.368188E+01
- PKER_RDRYG( 31, 9) = 0.304556E+01
- PKER_RDRYG( 31, 10) = 0.251877E+01
- PKER_RDRYG( 31, 11) = 0.208265E+01
- PKER_RDRYG( 31, 12) = 0.172160E+01
- PKER_RDRYG( 31, 13) = 0.142269E+01
- PKER_RDRYG( 31, 14) = 0.117522E+01
- PKER_RDRYG( 31, 15) = 0.970340E+00
- PKER_RDRYG( 31, 16) = 0.800707E+00
- PKER_RDRYG( 31, 17) = 0.660255E+00
- PKER_RDRYG( 31, 18) = 0.543956E+00
- PKER_RDRYG( 31, 19) = 0.447649E+00
- PKER_RDRYG( 31, 20) = 0.367889E+00
- PKER_RDRYG( 31, 21) = 0.301823E+00
- PKER_RDRYG( 31, 22) = 0.247087E+00
- PKER_RDRYG( 31, 23) = 0.201725E+00
- PKER_RDRYG( 31, 24) = 0.164114E+00
- PKER_RDRYG( 31, 25) = 0.132910E+00
- PKER_RDRYG( 31, 26) = 0.107003E+00
- PKER_RDRYG( 31, 27) = 0.854709E-01
- PKER_RDRYG( 31, 28) = 0.675620E-01
- PKER_RDRYG( 31, 29) = 0.526723E-01
- PKER_RDRYG( 31, 30) = 0.403428E-01
- PKER_RDRYG( 31, 31) = 0.302637E-01
- PKER_RDRYG( 31, 32) = 0.222653E-01
- PKER_RDRYG( 31, 33) = 0.162939E-01
- PKER_RDRYG( 31, 34) = 0.123058E-01
- PKER_RDRYG( 31, 35) = 0.101795E-01
- PKER_RDRYG( 31, 36) = 0.964983E-02
- PKER_RDRYG( 31, 37) = 0.102948E-01
- PKER_RDRYG( 31, 38) = 0.116552E-01
- PKER_RDRYG( 31, 39) = 0.133239E-01
- PKER_RDRYG( 31, 40) = 0.150165E-01
- PKER_RDRYG( 32, 1) = 0.138584E+02
- PKER_RDRYG( 32, 2) = 0.114706E+02
- PKER_RDRYG( 32, 3) = 0.949379E+01
- PKER_RDRYG( 32, 4) = 0.785733E+01
- PKER_RDRYG( 32, 5) = 0.650259E+01
- PKER_RDRYG( 32, 6) = 0.538106E+01
- PKER_RDRYG( 32, 7) = 0.445260E+01
- PKER_RDRYG( 32, 8) = 0.368398E+01
- PKER_RDRYG( 32, 9) = 0.304766E+01
- PKER_RDRYG( 32, 10) = 0.252089E+01
- PKER_RDRYG( 32, 11) = 0.208479E+01
- PKER_RDRYG( 32, 12) = 0.172375E+01
- PKER_RDRYG( 32, 13) = 0.142486E+01
- PKER_RDRYG( 32, 14) = 0.117741E+01
- PKER_RDRYG( 32, 15) = 0.972542E+00
- PKER_RDRYG( 32, 16) = 0.802930E+00
- PKER_RDRYG( 32, 17) = 0.662499E+00
- PKER_RDRYG( 32, 18) = 0.546226E+00
- PKER_RDRYG( 32, 19) = 0.449948E+00
- PKER_RDRYG( 32, 20) = 0.370220E+00
- PKER_RDRYG( 32, 21) = 0.304190E+00
- PKER_RDRYG( 32, 22) = 0.249496E+00
- PKER_RDRYG( 32, 23) = 0.204181E+00
- PKER_RDRYG( 32, 24) = 0.166626E+00
- PKER_RDRYG( 32, 25) = 0.135487E+00
- PKER_RDRYG( 32, 26) = 0.109652E+00
- PKER_RDRYG( 32, 27) = 0.882004E-01
- PKER_RDRYG( 32, 28) = 0.703714E-01
- PKER_RDRYG( 32, 29) = 0.555429E-01
- PKER_RDRYG( 32, 30) = 0.432184E-01
- PKER_RDRYG( 32, 31) = 0.330257E-01
- PKER_RDRYG( 32, 32) = 0.247158E-01
- PKER_RDRYG( 32, 33) = 0.181591E-01
- PKER_RDRYG( 32, 34) = 0.133191E-01
- PKER_RDRYG( 32, 35) = 0.101524E-01
- PKER_RDRYG( 32, 36) = 0.854593E-02
- PKER_RDRYG( 32, 37) = 0.824929E-02
- PKER_RDRYG( 32, 38) = 0.890385E-02
- PKER_RDRYG( 32, 39) = 0.101193E-01
- PKER_RDRYG( 32, 40) = 0.115645E-01
- PKER_RDRYG( 33, 1) = 0.138601E+02
- PKER_RDRYG( 33, 2) = 0.114723E+02
- PKER_RDRYG( 33, 3) = 0.949553E+01
- PKER_RDRYG( 33, 4) = 0.785908E+01
- PKER_RDRYG( 33, 5) = 0.650434E+01
- PKER_RDRYG( 33, 6) = 0.538282E+01
- PKER_RDRYG( 33, 7) = 0.445437E+01
- PKER_RDRYG( 33, 8) = 0.368576E+01
- PKER_RDRYG( 33, 9) = 0.304945E+01
- PKER_RDRYG( 33, 10) = 0.252268E+01
- PKER_RDRYG( 33, 11) = 0.208659E+01
- PKER_RDRYG( 33, 12) = 0.172557E+01
- PKER_RDRYG( 33, 13) = 0.142669E+01
- PKER_RDRYG( 33, 14) = 0.117925E+01
- PKER_RDRYG( 33, 15) = 0.974401E+00
- PKER_RDRYG( 33, 16) = 0.804805E+00
- PKER_RDRYG( 33, 17) = 0.664392E+00
- PKER_RDRYG( 33, 18) = 0.548137E+00
- PKER_RDRYG( 33, 19) = 0.451880E+00
- PKER_RDRYG( 33, 20) = 0.372176E+00
- PKER_RDRYG( 33, 21) = 0.306173E+00
- PKER_RDRYG( 33, 22) = 0.251510E+00
- PKER_RDRYG( 33, 23) = 0.206230E+00
- PKER_RDRYG( 33, 24) = 0.168715E+00
- PKER_RDRYG( 33, 25) = 0.137623E+00
- PKER_RDRYG( 33, 26) = 0.111843E+00
- PKER_RDRYG( 33, 27) = 0.904523E-01
- PKER_RDRYG( 33, 28) = 0.726902E-01
- PKER_RDRYG( 33, 29) = 0.579273E-01
- PKER_RDRYG( 33, 30) = 0.456499E-01
- PKER_RDRYG( 33, 31) = 0.354504E-01
- PKER_RDRYG( 33, 32) = 0.270255E-01
- PKER_RDRYG( 33, 33) = 0.201789E-01
- PKER_RDRYG( 33, 34) = 0.148159E-01
- PKER_RDRYG( 33, 35) = 0.108951E-01
- PKER_RDRYG( 33, 36) = 0.838982E-02
- PKER_RDRYG( 33, 37) = 0.718623E-02
- PKER_RDRYG( 33, 38) = 0.706271E-02
- PKER_RDRYG( 33, 39) = 0.770543E-02
- PKER_RDRYG( 33, 40) = 0.878717E-02
- PKER_RDRYG( 34, 1) = 0.138616E+02
- PKER_RDRYG( 34, 2) = 0.114738E+02
- PKER_RDRYG( 34, 3) = 0.949701E+01
- PKER_RDRYG( 34, 4) = 0.786056E+01
- PKER_RDRYG( 34, 5) = 0.650583E+01
- PKER_RDRYG( 34, 6) = 0.538432E+01
- PKER_RDRYG( 34, 7) = 0.445588E+01
- PKER_RDRYG( 34, 8) = 0.368726E+01
- PKER_RDRYG( 34, 9) = 0.305097E+01
- PKER_RDRYG( 34, 10) = 0.252421E+01
- PKER_RDRYG( 34, 11) = 0.208813E+01
- PKER_RDRYG( 34, 12) = 0.172711E+01
- PKER_RDRYG( 34, 13) = 0.142824E+01
- PKER_RDRYG( 34, 14) = 0.118081E+01
- PKER_RDRYG( 34, 15) = 0.975973E+00
- PKER_RDRYG( 34, 16) = 0.806389E+00
- PKER_RDRYG( 34, 17) = 0.665989E+00
- PKER_RDRYG( 34, 18) = 0.549748E+00
- PKER_RDRYG( 34, 19) = 0.453507E+00
- PKER_RDRYG( 34, 20) = 0.373821E+00
- PKER_RDRYG( 34, 21) = 0.307838E+00
- PKER_RDRYG( 34, 22) = 0.253197E+00
- PKER_RDRYG( 34, 23) = 0.207944E+00
- PKER_RDRYG( 34, 24) = 0.170458E+00
- PKER_RDRYG( 34, 25) = 0.139400E+00
- PKER_RDRYG( 34, 26) = 0.113659E+00
- PKER_RDRYG( 34, 27) = 0.923147E-01
- PKER_RDRYG( 34, 28) = 0.746045E-01
- PKER_RDRYG( 34, 29) = 0.598974E-01
- PKER_RDRYG( 34, 30) = 0.476733E-01
- PKER_RDRYG( 34, 31) = 0.375085E-01
- PKER_RDRYG( 34, 32) = 0.290687E-01
- PKER_RDRYG( 34, 33) = 0.221077E-01
- PKER_RDRYG( 34, 34) = 0.164706E-01
- PKER_RDRYG( 34, 35) = 0.120829E-01
- PKER_RDRYG( 34, 36) = 0.891924E-02
- PKER_RDRYG( 34, 37) = 0.694498E-02
- PKER_RDRYG( 34, 38) = 0.605978E-02
- PKER_RDRYG( 34, 39) = 0.605815E-02
- PKER_RDRYG( 34, 40) = 0.667329E-02
- PKER_RDRYG( 35, 1) = 0.138628E+02
- PKER_RDRYG( 35, 2) = 0.114750E+02
- PKER_RDRYG( 35, 3) = 0.949827E+01
- PKER_RDRYG( 35, 4) = 0.786182E+01
- PKER_RDRYG( 35, 5) = 0.650709E+01
- PKER_RDRYG( 35, 6) = 0.538559E+01
- PKER_RDRYG( 35, 7) = 0.445715E+01
- PKER_RDRYG( 35, 8) = 0.368855E+01
- PKER_RDRYG( 35, 9) = 0.305226E+01
- PKER_RDRYG( 35, 10) = 0.252550E+01
- PKER_RDRYG( 35, 11) = 0.208943E+01
- PKER_RDRYG( 35, 12) = 0.172842E+01
- PKER_RDRYG( 35, 13) = 0.142955E+01
- PKER_RDRYG( 35, 14) = 0.118213E+01
- PKER_RDRYG( 35, 15) = 0.977304E+00
- PKER_RDRYG( 35, 16) = 0.807728E+00
- PKER_RDRYG( 35, 17) = 0.667338E+00
- PKER_RDRYG( 35, 18) = 0.551109E+00
- PKER_RDRYG( 35, 19) = 0.454880E+00
- PKER_RDRYG( 35, 20) = 0.375207E+00
- PKER_RDRYG( 35, 21) = 0.309239E+00
- PKER_RDRYG( 35, 22) = 0.254615E+00
- PKER_RDRYG( 35, 23) = 0.209380E+00
- PKER_RDRYG( 35, 24) = 0.171916E+00
- PKER_RDRYG( 35, 25) = 0.140883E+00
- PKER_RDRYG( 35, 26) = 0.115171E+00
- PKER_RDRYG( 35, 27) = 0.938600E-01
- PKER_RDRYG( 35, 28) = 0.761883E-01
- PKER_RDRYG( 35, 29) = 0.615248E-01
- PKER_RDRYG( 35, 30) = 0.493472E-01
- PKER_RDRYG( 35, 31) = 0.392256E-01
- PKER_RDRYG( 35, 32) = 0.308103E-01
- PKER_RDRYG( 35, 33) = 0.238270E-01
- PKER_RDRYG( 35, 34) = 0.180779E-01
- PKER_RDRYG( 35, 35) = 0.134407E-01
- PKER_RDRYG( 35, 36) = 0.985642E-02
- PKER_RDRYG( 35, 37) = 0.730986E-02
- PKER_RDRYG( 35, 38) = 0.576437E-02
- PKER_RDRYG( 35, 39) = 0.512255E-02
- PKER_RDRYG( 35, 40) = 0.520497E-02
- PKER_RDRYG( 36, 1) = 0.138639E+02
- PKER_RDRYG( 36, 2) = 0.114761E+02
- PKER_RDRYG( 36, 3) = 0.949934E+01
- PKER_RDRYG( 36, 4) = 0.786289E+01
- PKER_RDRYG( 36, 5) = 0.650817E+01
- PKER_RDRYG( 36, 6) = 0.538667E+01
- PKER_RDRYG( 36, 7) = 0.445824E+01
- PKER_RDRYG( 36, 8) = 0.368964E+01
- PKER_RDRYG( 36, 9) = 0.305335E+01
- PKER_RDRYG( 36, 10) = 0.252660E+01
- PKER_RDRYG( 36, 11) = 0.209053E+01
- PKER_RDRYG( 36, 12) = 0.172953E+01
- PKER_RDRYG( 36, 13) = 0.143067E+01
- PKER_RDRYG( 36, 14) = 0.118326E+01
- PKER_RDRYG( 36, 15) = 0.978431E+00
- PKER_RDRYG( 36, 16) = 0.808862E+00
- PKER_RDRYG( 36, 17) = 0.668480E+00
- PKER_RDRYG( 36, 18) = 0.552259E+00
- PKER_RDRYG( 36, 19) = 0.456039E+00
- PKER_RDRYG( 36, 20) = 0.376376E+00
- PKER_RDRYG( 36, 21) = 0.310419E+00
- PKER_RDRYG( 36, 22) = 0.255807E+00
- PKER_RDRYG( 36, 23) = 0.210587E+00
- PKER_RDRYG( 36, 24) = 0.173139E+00
- PKER_RDRYG( 36, 25) = 0.142124E+00
- PKER_RDRYG( 36, 26) = 0.116433E+00
- PKER_RDRYG( 36, 27) = 0.951462E-01
- PKER_RDRYG( 36, 28) = 0.775028E-01
- PKER_RDRYG( 36, 29) = 0.628718E-01
- PKER_RDRYG( 36, 30) = 0.507309E-01
- PKER_RDRYG( 36, 31) = 0.406479E-01
- PKER_RDRYG( 36, 32) = 0.322672E-01
- PKER_RDRYG( 36, 33) = 0.253008E-01
- PKER_RDRYG( 36, 34) = 0.195243E-01
- PKER_RDRYG( 36, 35) = 0.147772E-01
- PKER_RDRYG( 36, 36) = 0.109648E-01
- PKER_RDRYG( 36, 37) = 0.804278E-02
- PKER_RDRYG( 36, 38) = 0.599708E-02
- PKER_RDRYG( 36, 39) = 0.479430E-02
- PKER_RDRYG( 36, 40) = 0.433950E-02
- PKER_RDRYG( 37, 1) = 0.138648E+02
- PKER_RDRYG( 37, 2) = 0.114770E+02
- PKER_RDRYG( 37, 3) = 0.950025E+01
- PKER_RDRYG( 37, 4) = 0.786381E+01
- PKER_RDRYG( 37, 5) = 0.650909E+01
- PKER_RDRYG( 37, 6) = 0.538759E+01
- PKER_RDRYG( 37, 7) = 0.445916E+01
- PKER_RDRYG( 37, 8) = 0.369056E+01
- PKER_RDRYG( 37, 9) = 0.305428E+01
- PKER_RDRYG( 37, 10) = 0.252753E+01
- PKER_RDRYG( 37, 11) = 0.209147E+01
- PKER_RDRYG( 37, 12) = 0.173047E+01
- PKER_RDRYG( 37, 13) = 0.143161E+01
- PKER_RDRYG( 37, 14) = 0.118421E+01
- PKER_RDRYG( 37, 15) = 0.979386E+00
- PKER_RDRYG( 37, 16) = 0.809823E+00
- PKER_RDRYG( 37, 17) = 0.669447E+00
- PKER_RDRYG( 37, 18) = 0.553232E+00
- PKER_RDRYG( 37, 19) = 0.457019E+00
- PKER_RDRYG( 37, 20) = 0.377364E+00
- PKER_RDRYG( 37, 21) = 0.311415E+00
- PKER_RDRYG( 37, 22) = 0.256813E+00
- PKER_RDRYG( 37, 23) = 0.211602E+00
- PKER_RDRYG( 37, 24) = 0.174166E+00
- PKER_RDRYG( 37, 25) = 0.143165E+00
- PKER_RDRYG( 37, 26) = 0.117489E+00
- PKER_RDRYG( 37, 27) = 0.962203E-01
- PKER_RDRYG( 37, 28) = 0.785973E-01
- PKER_RDRYG( 37, 29) = 0.639902E-01
- PKER_RDRYG( 37, 30) = 0.518768E-01
- PKER_RDRYG( 37, 31) = 0.418245E-01
- PKER_RDRYG( 37, 32) = 0.334758E-01
- PKER_RDRYG( 37, 33) = 0.265367E-01
- PKER_RDRYG( 37, 34) = 0.207701E-01
- PKER_RDRYG( 37, 35) = 0.159926E-01
- PKER_RDRYG( 37, 36) = 0.120751E-01
- PKER_RDRYG( 37, 37) = 0.894122E-02
- PKER_RDRYG( 37, 38) = 0.656445E-02
- PKER_RDRYG( 37, 39) = 0.492634E-02
- PKER_RDRYG( 37, 40) = 0.399357E-02
- PKER_RDRYG( 38, 1) = 0.138656E+02
- PKER_RDRYG( 38, 2) = 0.114778E+02
- PKER_RDRYG( 38, 3) = 0.950102E+01
- PKER_RDRYG( 38, 4) = 0.786459E+01
- PKER_RDRYG( 38, 5) = 0.650987E+01
- PKER_RDRYG( 38, 6) = 0.538837E+01
- PKER_RDRYG( 38, 7) = 0.445994E+01
- PKER_RDRYG( 38, 8) = 0.369135E+01
- PKER_RDRYG( 38, 9) = 0.305507E+01
- PKER_RDRYG( 38, 10) = 0.252833E+01
- PKER_RDRYG( 38, 11) = 0.209226E+01
- PKER_RDRYG( 38, 12) = 0.173127E+01
- PKER_RDRYG( 38, 13) = 0.143242E+01
- PKER_RDRYG( 38, 14) = 0.118501E+01
- PKER_RDRYG( 38, 15) = 0.980197E+00
- PKER_RDRYG( 38, 16) = 0.810638E+00
- PKER_RDRYG( 38, 17) = 0.670266E+00
- PKER_RDRYG( 38, 18) = 0.554056E+00
- PKER_RDRYG( 38, 19) = 0.457849E+00
- PKER_RDRYG( 38, 20) = 0.378199E+00
- PKER_RDRYG( 38, 21) = 0.312257E+00
- PKER_RDRYG( 38, 22) = 0.257661E+00
- PKER_RDRYG( 38, 23) = 0.212459E+00
- PKER_RDRYG( 38, 24) = 0.175032E+00
- PKER_RDRYG( 38, 25) = 0.144040E+00
- PKER_RDRYG( 38, 26) = 0.118376E+00
- PKER_RDRYG( 38, 27) = 0.971196E-01
- PKER_RDRYG( 38, 28) = 0.795116E-01
- PKER_RDRYG( 38, 29) = 0.649218E-01
- PKER_RDRYG( 38, 30) = 0.528285E-01
- PKER_RDRYG( 38, 31) = 0.427994E-01
- PKER_RDRYG( 38, 32) = 0.344764E-01
- PKER_RDRYG( 38, 33) = 0.275637E-01
- PKER_RDRYG( 38, 34) = 0.218184E-01
- PKER_RDRYG( 38, 35) = 0.170452E-01
- PKER_RDRYG( 38, 36) = 0.130949E-01
- PKER_RDRYG( 38, 37) = 0.986356E-02
- PKER_RDRYG( 38, 38) = 0.729306E-02
- PKER_RDRYG( 38, 39) = 0.536046E-02
- PKER_RDRYG( 38, 40) = 0.405286E-02
- PKER_RDRYG( 39, 1) = 0.138662E+02
- PKER_RDRYG( 39, 2) = 0.114784E+02
- PKER_RDRYG( 39, 3) = 0.950168E+01
- PKER_RDRYG( 39, 4) = 0.786525E+01
- PKER_RDRYG( 39, 5) = 0.651053E+01
- PKER_RDRYG( 39, 6) = 0.538904E+01
- PKER_RDRYG( 39, 7) = 0.446061E+01
- PKER_RDRYG( 39, 8) = 0.369202E+01
- PKER_RDRYG( 39, 9) = 0.305574E+01
- PKER_RDRYG( 39, 10) = 0.252900E+01
- PKER_RDRYG( 39, 11) = 0.209294E+01
- PKER_RDRYG( 39, 12) = 0.173195E+01
- PKER_RDRYG( 39, 13) = 0.143310E+01
- PKER_RDRYG( 39, 14) = 0.118570E+01
- PKER_RDRYG( 39, 15) = 0.980885E+00
- PKER_RDRYG( 39, 16) = 0.811330E+00
- PKER_RDRYG( 39, 17) = 0.670961E+00
- PKER_RDRYG( 39, 18) = 0.554755E+00
- PKER_RDRYG( 39, 19) = 0.458552E+00
- PKER_RDRYG( 39, 20) = 0.378906E+00
- PKER_RDRYG( 39, 21) = 0.312969E+00
- PKER_RDRYG( 39, 22) = 0.258379E+00
- PKER_RDRYG( 39, 23) = 0.213182E+00
- PKER_RDRYG( 39, 24) = 0.175762E+00
- PKER_RDRYG( 39, 25) = 0.144777E+00
- PKER_RDRYG( 39, 26) = 0.119121E+00
- PKER_RDRYG( 39, 27) = 0.978744E-01
- PKER_RDRYG( 39, 28) = 0.802773E-01
- PKER_RDRYG( 39, 29) = 0.657001E-01
- PKER_RDRYG( 39, 30) = 0.536215E-01
- PKER_RDRYG( 39, 31) = 0.436093E-01
- PKER_RDRYG( 39, 32) = 0.353058E-01
- PKER_RDRYG( 39, 33) = 0.284146E-01
- PKER_RDRYG( 39, 34) = 0.226909E-01
- PKER_RDRYG( 39, 35) = 0.179343E-01
- PKER_RDRYG( 39, 36) = 0.139841E-01
- PKER_RDRYG( 39, 37) = 0.107183E-01
- PKER_RDRYG( 39, 38) = 0.805446E-02
- PKER_RDRYG( 39, 39) = 0.594845E-02
- PKER_RDRYG( 39, 40) = 0.437943E-02
- PKER_RDRYG( 40, 1) = 0.138668E+02
- PKER_RDRYG( 40, 2) = 0.114790E+02
- PKER_RDRYG( 40, 3) = 0.950225E+01
- PKER_RDRYG( 40, 4) = 0.786581E+01
- PKER_RDRYG( 40, 5) = 0.651110E+01
- PKER_RDRYG( 40, 6) = 0.538960E+01
- PKER_RDRYG( 40, 7) = 0.446118E+01
- PKER_RDRYG( 40, 8) = 0.369259E+01
- PKER_RDRYG( 40, 9) = 0.305631E+01
- PKER_RDRYG( 40, 10) = 0.252958E+01
- PKER_RDRYG( 40, 11) = 0.209352E+01
- PKER_RDRYG( 40, 12) = 0.173253E+01
- PKER_RDRYG( 40, 13) = 0.143368E+01
- PKER_RDRYG( 40, 14) = 0.118628E+01
- PKER_RDRYG( 40, 15) = 0.981470E+00
- PKER_RDRYG( 40, 16) = 0.811917E+00
- PKER_RDRYG( 40, 17) = 0.671551E+00
- PKER_RDRYG( 40, 18) = 0.555348E+00
- PKER_RDRYG( 40, 19) = 0.459148E+00
- PKER_RDRYG( 40, 20) = 0.379506E+00
- PKER_RDRYG( 40, 21) = 0.313572E+00
- PKER_RDRYG( 40, 22) = 0.258986E+00
- PKER_RDRYG( 40, 23) = 0.213794E+00
- PKER_RDRYG( 40, 24) = 0.176378E+00
- PKER_RDRYG( 40, 25) = 0.145399E+00
- PKER_RDRYG( 40, 26) = 0.119749E+00
- PKER_RDRYG( 40, 27) = 0.985094E-01
- PKER_RDRYG( 40, 28) = 0.809202E-01
- PKER_RDRYG( 40, 29) = 0.663522E-01
- PKER_RDRYG( 40, 30) = 0.542842E-01
- PKER_RDRYG( 40, 31) = 0.442844E-01
- PKER_RDRYG( 40, 32) = 0.359952E-01
- PKER_RDRYG( 40, 33) = 0.291205E-01
- PKER_RDRYG( 40, 34) = 0.234148E-01
- PKER_RDRYG( 40, 35) = 0.186756E-01
- PKER_RDRYG( 40, 36) = 0.147376E-01
- PKER_RDRYG( 40, 37) = 0.114686E-01
- PKER_RDRYG( 40, 38) = 0.876977E-02
- PKER_RDRYG( 40, 39) = 0.657521E-02
- PKER_RDRYG( 40, 40) = 0.484891E-02
-END IF
-!
-END SUBROUTINE READ_XKER_RDRYG
diff --git a/src/mesonh/micro/read_xker_rweth.f90 b/src/mesonh/micro/read_xker_rweth.f90
deleted file mode 100644
index 8093eeb0d81ae3d6232e4a6dc7471c98459892ef..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/read_xker_rweth.f90
+++ /dev/null
@@ -1,1733 +0,0 @@
-!MNH_LIC Copyright 1994-2018 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.
-! ######spl
- MODULE MODI_READ_XKER_RWETH
-! ###########################
-!
-INTERFACE
- SUBROUTINE READ_XKER_RWETH (KWETLBDAH,KWETLBDAR,KND, &
- PALPHAH,PNUH,PALPHAR,PNUR,PEHR,PBR,PCH,PDH,PCR,PDR, &
- PWETLBDAH_MAX,PWETLBDAR_MAX,PWETLBDAH_MIN,PWETLBDAR_MIN, &
- PFDINFTY,PKER_RWETH )
-!
-IMPLICIT NONE
-INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAR
-REAL, INTENT(OUT) :: PALPHAH
-REAL, INTENT(OUT) :: PNUH
-REAL, INTENT(OUT) :: PALPHAR
-REAL, INTENT(OUT) :: PNUR
-REAL, INTENT(OUT) :: PEHR
-REAL, INTENT(OUT) :: PBR
-REAL, INTENT(OUT) :: PCH
-REAL, INTENT(OUT) :: PDH
-REAL, INTENT(OUT) :: PCR
-REAL, INTENT(OUT) :: PDR
-REAL, INTENT(OUT) :: PWETLBDAH_MAX
-REAL, INTENT(OUT) :: PWETLBDAR_MAX
-REAL, INTENT(OUT) :: PWETLBDAH_MIN
-REAL, INTENT(OUT) :: PWETLBDAR_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RWETH
-!
-END SUBROUTINE
-!
-END INTERFACE
-!
-END MODULE MODI_READ_XKER_RWETH
-! ######spl
- SUBROUTINE READ_XKER_RWETH (KWETLBDAH,KWETLBDAR,KND, &
- PALPHAH,PNUH,PALPHAR,PNUR,PEHR,PBR,PCH,PDH,PCR,PDR, &
- PWETLBDAH_MAX,PWETLBDAR_MAX,PWETLBDAH_MIN,PWETLBDAR_MIN, &
- PFDINFTY,PKER_RWETH )
-!DEC$ OPTIMIZE:0
-! ########################################################################
-!
-!!**** * * - initialize the kernels for the rain-hail wet growth process
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the kernels PKER_RWETH
-!! prepared from a previous run of the routine INI_RAIN_ICE. The reading of
-!! the kernels is optional after checking for the dimensions of the arrays.
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine READ_XKER_RWETH )
-!!
-!! AUTHOR
-!! ------
-!! S. Riette
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 6 Mar 2015
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!* 0.2 Declarations of local variables :
-!
-!
-IMPLICIT NONE
-INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAR
-REAL, INTENT(OUT) :: PALPHAH
-REAL, INTENT(OUT) :: PNUH
-REAL, INTENT(OUT) :: PALPHAR
-REAL, INTENT(OUT) :: PNUR
-REAL, INTENT(OUT) :: PEHR
-REAL, INTENT(OUT) :: PBR
-REAL, INTENT(OUT) :: PCH
-REAL, INTENT(OUT) :: PDH
-REAL, INTENT(OUT) :: PCR
-REAL, INTENT(OUT) :: PDR
-REAL, INTENT(OUT) :: PWETLBDAH_MAX
-REAL, INTENT(OUT) :: PWETLBDAR_MAX
-REAL, INTENT(OUT) :: PWETLBDAH_MIN
-REAL, INTENT(OUT) :: PWETLBDAR_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_RWETH
-!
-! ###################################################################
-! #INSERT HERE THE OUTPUT OF INI_RAIN_ICE IF THE KERNELS ARE UPDATED#
-! ###################################################################
-!
-KND= 50
-KWETLBDAH= 40
-KWETLBDAR= 40
-PALPHAH= 0.100000E+01
-PNUH= 0.800000E+01
-PALPHAR= 0.100000E+01
-PNUR= 0.100000E+01
-PEHR= 0.100000E+01
-PBR= 0.300000E+01
-PCH= 0.207000E+03
-PDH= 0.640000E+00
-PCR= 0.842000E+03
-PDR= 0.800000E+00
-PWETLBDAH_MAX= 0.100000E+08
-PWETLBDAR_MAX= 0.100000E+08
-PWETLBDAH_MIN= 0.100000E+04
-PWETLBDAR_MIN= 0.100000E+04
-PFDINFTY= 0.200000E+02
-!
-IF( PRESENT(PKER_RWETH) ) THEN
- PKER_RWETH( 1, 1) = 0.402762E+01
- PKER_RWETH( 1, 2) = 0.360940E+01
- PKER_RWETH( 1, 3) = 0.394235E+01
- PKER_RWETH( 1, 4) = 0.470822E+01
- PKER_RWETH( 1, 5) = 0.561595E+01
- PKER_RWETH( 1, 6) = 0.648059E+01
- PKER_RWETH( 1, 7) = 0.722764E+01
- PKER_RWETH( 1, 8) = 0.784765E+01
- PKER_RWETH( 1, 9) = 0.835593E+01
- PKER_RWETH( 1, 10) = 0.877187E+01
- PKER_RWETH( 1, 11) = 0.911259E+01
- PKER_RWETH( 1, 12) = 0.939210E+01
- PKER_RWETH( 1, 13) = 0.962170E+01
- PKER_RWETH( 1, 14) = 0.981053E+01
- PKER_RWETH( 1, 15) = 0.996598E+01
- PKER_RWETH( 1, 16) = 0.100940E+02
- PKER_RWETH( 1, 17) = 0.101996E+02
- PKER_RWETH( 1, 18) = 0.102867E+02
- PKER_RWETH( 1, 19) = 0.103586E+02
- PKER_RWETH( 1, 20) = 0.104179E+02
- PKER_RWETH( 1, 21) = 0.104669E+02
- PKER_RWETH( 1, 22) = 0.105074E+02
- PKER_RWETH( 1, 23) = 0.105409E+02
- PKER_RWETH( 1, 24) = 0.105685E+02
- PKER_RWETH( 1, 25) = 0.105914E+02
- PKER_RWETH( 1, 26) = 0.106103E+02
- PKER_RWETH( 1, 27) = 0.106259E+02
- PKER_RWETH( 1, 28) = 0.106388E+02
- PKER_RWETH( 1, 29) = 0.106494E+02
- PKER_RWETH( 1, 30) = 0.106583E+02
- PKER_RWETH( 1, 31) = 0.106656E+02
- PKER_RWETH( 1, 32) = 0.106716E+02
- PKER_RWETH( 1, 33) = 0.106766E+02
- PKER_RWETH( 1, 34) = 0.106807E+02
- PKER_RWETH( 1, 35) = 0.106842E+02
- PKER_RWETH( 1, 36) = 0.106870E+02
- PKER_RWETH( 1, 37) = 0.106893E+02
- PKER_RWETH( 1, 38) = 0.106913E+02
- PKER_RWETH( 1, 39) = 0.106929E+02
- PKER_RWETH( 1, 40) = 0.106942E+02
- PKER_RWETH( 2, 1) = 0.438807E+01
- PKER_RWETH( 2, 2) = 0.333752E+01
- PKER_RWETH( 2, 3) = 0.311028E+01
- PKER_RWETH( 2, 4) = 0.348499E+01
- PKER_RWETH( 2, 5) = 0.418314E+01
- PKER_RWETH( 2, 6) = 0.496720E+01
- PKER_RWETH( 2, 7) = 0.569617E+01
- PKER_RWETH( 2, 8) = 0.631912E+01
- PKER_RWETH( 2, 9) = 0.683403E+01
- PKER_RWETH( 2, 10) = 0.725566E+01
- PKER_RWETH( 2, 11) = 0.760059E+01
- PKER_RWETH( 2, 12) = 0.788312E+01
- PKER_RWETH( 2, 13) = 0.811488E+01
- PKER_RWETH( 2, 14) = 0.830526E+01
- PKER_RWETH( 2, 15) = 0.846182E+01
- PKER_RWETH( 2, 16) = 0.859069E+01
- PKER_RWETH( 2, 17) = 0.869686E+01
- PKER_RWETH( 2, 18) = 0.878439E+01
- PKER_RWETH( 2, 19) = 0.885658E+01
- PKER_RWETH( 2, 20) = 0.891616E+01
- PKER_RWETH( 2, 21) = 0.896534E+01
- PKER_RWETH( 2, 22) = 0.900596E+01
- PKER_RWETH( 2, 23) = 0.903951E+01
- PKER_RWETH( 2, 24) = 0.906722E+01
- PKER_RWETH( 2, 25) = 0.909013E+01
- PKER_RWETH( 2, 26) = 0.910906E+01
- PKER_RWETH( 2, 27) = 0.912471E+01
- PKER_RWETH( 2, 28) = 0.913765E+01
- PKER_RWETH( 2, 29) = 0.914834E+01
- PKER_RWETH( 2, 30) = 0.915719E+01
- PKER_RWETH( 2, 31) = 0.916450E+01
- PKER_RWETH( 2, 32) = 0.917055E+01
- PKER_RWETH( 2, 33) = 0.917555E+01
- PKER_RWETH( 2, 34) = 0.917969E+01
- PKER_RWETH( 2, 35) = 0.918311E+01
- PKER_RWETH( 2, 36) = 0.918594E+01
- PKER_RWETH( 2, 37) = 0.918828E+01
- PKER_RWETH( 2, 38) = 0.919022E+01
- PKER_RWETH( 2, 39) = 0.919182E+01
- PKER_RWETH( 2, 40) = 0.919315E+01
- PKER_RWETH( 3, 1) = 0.511774E+01
- PKER_RWETH( 3, 2) = 0.355317E+01
- PKER_RWETH( 3, 3) = 0.278395E+01
- PKER_RWETH( 3, 4) = 0.269701E+01
- PKER_RWETH( 3, 5) = 0.308711E+01
- PKER_RWETH( 3, 6) = 0.371510E+01
- PKER_RWETH( 3, 7) = 0.438830E+01
- PKER_RWETH( 3, 8) = 0.500120E+01
- PKER_RWETH( 3, 9) = 0.552011E+01
- PKER_RWETH( 3, 10) = 0.594762E+01
- PKER_RWETH( 3, 11) = 0.629736E+01
- PKER_RWETH( 3, 12) = 0.658342E+01
- PKER_RWETH( 3, 13) = 0.681772E+01
- PKER_RWETH( 3, 14) = 0.700990E+01
- PKER_RWETH( 3, 15) = 0.716776E+01
- PKER_RWETH( 3, 16) = 0.729757E+01
- PKER_RWETH( 3, 17) = 0.740442E+01
- PKER_RWETH( 3, 18) = 0.749244E+01
- PKER_RWETH( 3, 19) = 0.756500E+01
- PKER_RWETH( 3, 20) = 0.762484E+01
- PKER_RWETH( 3, 21) = 0.767423E+01
- PKER_RWETH( 3, 22) = 0.771499E+01
- PKER_RWETH( 3, 23) = 0.774866E+01
- PKER_RWETH( 3, 24) = 0.777646E+01
- PKER_RWETH( 3, 25) = 0.779943E+01
- PKER_RWETH( 3, 26) = 0.781841E+01
- PKER_RWETH( 3, 27) = 0.783410E+01
- PKER_RWETH( 3, 28) = 0.784707E+01
- PKER_RWETH( 3, 29) = 0.785779E+01
- PKER_RWETH( 3, 30) = 0.786665E+01
- PKER_RWETH( 3, 31) = 0.787398E+01
- PKER_RWETH( 3, 32) = 0.788004E+01
- PKER_RWETH( 3, 33) = 0.788505E+01
- PKER_RWETH( 3, 34) = 0.788919E+01
- PKER_RWETH( 3, 35) = 0.789262E+01
- PKER_RWETH( 3, 36) = 0.789545E+01
- PKER_RWETH( 3, 37) = 0.789780E+01
- PKER_RWETH( 3, 38) = 0.789974E+01
- PKER_RWETH( 3, 39) = 0.790134E+01
- PKER_RWETH( 3, 40) = 0.790267E+01
- PKER_RWETH( 4, 1) = 0.603974E+01
- PKER_RWETH( 4, 2) = 0.410879E+01
- PKER_RWETH( 4, 3) = 0.288715E+01
- PKER_RWETH( 4, 4) = 0.233851E+01
- PKER_RWETH( 4, 5) = 0.235142E+01
- PKER_RWETH( 4, 6) = 0.273888E+01
- PKER_RWETH( 4, 7) = 0.329704E+01
- PKER_RWETH( 4, 8) = 0.387228E+01
- PKER_RWETH( 4, 9) = 0.438639E+01
- PKER_RWETH( 4, 10) = 0.481827E+01
- PKER_RWETH( 4, 11) = 0.517314E+01
- PKER_RWETH( 4, 12) = 0.546325E+01
- PKER_RWETH( 4, 13) = 0.570050E+01
- PKER_RWETH( 4, 14) = 0.589481E+01
- PKER_RWETH( 4, 15) = 0.605418E+01
- PKER_RWETH( 4, 16) = 0.618508E+01
- PKER_RWETH( 4, 17) = 0.629272E+01
- PKER_RWETH( 4, 18) = 0.638131E+01
- PKER_RWETH( 4, 19) = 0.645429E+01
- PKER_RWETH( 4, 20) = 0.651445E+01
- PKER_RWETH( 4, 21) = 0.656406E+01
- PKER_RWETH( 4, 22) = 0.660500E+01
- PKER_RWETH( 4, 23) = 0.663879E+01
- PKER_RWETH( 4, 24) = 0.666669E+01
- PKER_RWETH( 4, 25) = 0.668973E+01
- PKER_RWETH( 4, 26) = 0.670877E+01
- PKER_RWETH( 4, 27) = 0.672450E+01
- PKER_RWETH( 4, 28) = 0.673750E+01
- PKER_RWETH( 4, 29) = 0.674825E+01
- PKER_RWETH( 4, 30) = 0.675713E+01
- PKER_RWETH( 4, 31) = 0.676447E+01
- PKER_RWETH( 4, 32) = 0.677054E+01
- PKER_RWETH( 4, 33) = 0.677556E+01
- PKER_RWETH( 4, 34) = 0.677972E+01
- PKER_RWETH( 4, 35) = 0.678315E+01
- PKER_RWETH( 4, 36) = 0.678599E+01
- PKER_RWETH( 4, 37) = 0.678834E+01
- PKER_RWETH( 4, 38) = 0.679028E+01
- PKER_RWETH( 4, 39) = 0.679189E+01
- PKER_RWETH( 4, 40) = 0.679321E+01
- PKER_RWETH( 5, 1) = 0.701523E+01
- PKER_RWETH( 5, 2) = 0.485290E+01
- PKER_RWETH( 5, 3) = 0.330114E+01
- PKER_RWETH( 5, 4) = 0.235568E+01
- PKER_RWETH( 5, 5) = 0.197832E+01
- PKER_RWETH( 5, 6) = 0.205971E+01
- PKER_RWETH( 5, 7) = 0.243216E+01
- PKER_RWETH( 5, 8) = 0.292372E+01
- PKER_RWETH( 5, 9) = 0.341291E+01
- PKER_RWETH( 5, 10) = 0.384329E+01
- PKER_RWETH( 5, 11) = 0.420248E+01
- PKER_RWETH( 5, 12) = 0.449701E+01
- PKER_RWETH( 5, 13) = 0.473767E+01
- PKER_RWETH( 5, 14) = 0.493445E+01
- PKER_RWETH( 5, 15) = 0.509560E+01
- PKER_RWETH( 5, 16) = 0.522777E+01
- PKER_RWETH( 5, 17) = 0.533633E+01
- PKER_RWETH( 5, 18) = 0.542559E+01
- PKER_RWETH( 5, 19) = 0.549905E+01
- PKER_RWETH( 5, 20) = 0.555956E+01
- PKER_RWETH( 5, 21) = 0.560943E+01
- PKER_RWETH( 5, 22) = 0.565056E+01
- PKER_RWETH( 5, 23) = 0.568450E+01
- PKER_RWETH( 5, 24) = 0.571251E+01
- PKER_RWETH( 5, 25) = 0.573564E+01
- PKER_RWETH( 5, 26) = 0.575474E+01
- PKER_RWETH( 5, 27) = 0.577052E+01
- PKER_RWETH( 5, 28) = 0.578355E+01
- PKER_RWETH( 5, 29) = 0.579433E+01
- PKER_RWETH( 5, 30) = 0.580323E+01
- PKER_RWETH( 5, 31) = 0.581059E+01
- PKER_RWETH( 5, 32) = 0.581668E+01
- PKER_RWETH( 5, 33) = 0.582171E+01
- PKER_RWETH( 5, 34) = 0.582587E+01
- PKER_RWETH( 5, 35) = 0.582931E+01
- PKER_RWETH( 5, 36) = 0.583215E+01
- PKER_RWETH( 5, 37) = 0.583450E+01
- PKER_RWETH( 5, 38) = 0.583645E+01
- PKER_RWETH( 5, 39) = 0.583806E+01
- PKER_RWETH( 5, 40) = 0.583939E+01
- PKER_RWETH( 6, 1) = 0.795455E+01
- PKER_RWETH( 6, 2) = 0.566068E+01
- PKER_RWETH( 6, 3) = 0.389662E+01
- PKER_RWETH( 6, 4) = 0.265525E+01
- PKER_RWETH( 6, 5) = 0.193212E+01
- PKER_RWETH( 6, 6) = 0.168546E+01
- PKER_RWETH( 6, 7) = 0.181153E+01
- PKER_RWETH( 6, 8) = 0.216086E+01
- PKER_RWETH( 6, 9) = 0.259008E+01
- PKER_RWETH( 6, 10) = 0.300451E+01
- PKER_RWETH( 6, 11) = 0.336420E+01
- PKER_RWETH( 6, 12) = 0.366278E+01
- PKER_RWETH( 6, 13) = 0.390721E+01
- PKER_RWETH( 6, 14) = 0.410685E+01
- PKER_RWETH( 6, 15) = 0.427007E+01
- PKER_RWETH( 6, 16) = 0.440373E+01
- PKER_RWETH( 6, 17) = 0.451336E+01
- PKER_RWETH( 6, 18) = 0.460339E+01
- PKER_RWETH( 6, 19) = 0.467741E+01
- PKER_RWETH( 6, 20) = 0.473833E+01
- PKER_RWETH( 6, 21) = 0.478850E+01
- PKER_RWETH( 6, 22) = 0.482985E+01
- PKER_RWETH( 6, 23) = 0.486395E+01
- PKER_RWETH( 6, 24) = 0.489209E+01
- PKER_RWETH( 6, 25) = 0.491531E+01
- PKER_RWETH( 6, 26) = 0.493448E+01
- PKER_RWETH( 6, 27) = 0.495031E+01
- PKER_RWETH( 6, 28) = 0.496339E+01
- PKER_RWETH( 6, 29) = 0.497420E+01
- PKER_RWETH( 6, 30) = 0.498312E+01
- PKER_RWETH( 6, 31) = 0.499050E+01
- PKER_RWETH( 6, 32) = 0.499660E+01
- PKER_RWETH( 6, 33) = 0.500165E+01
- PKER_RWETH( 6, 34) = 0.500581E+01
- PKER_RWETH( 6, 35) = 0.500926E+01
- PKER_RWETH( 6, 36) = 0.501211E+01
- PKER_RWETH( 6, 37) = 0.501447E+01
- PKER_RWETH( 6, 38) = 0.501641E+01
- PKER_RWETH( 6, 39) = 0.501803E+01
- PKER_RWETH( 6, 40) = 0.501936E+01
- PKER_RWETH( 7, 1) = 0.881081E+01
- PKER_RWETH( 7, 2) = 0.644923E+01
- PKER_RWETH( 7, 3) = 0.456302E+01
- PKER_RWETH( 7, 4) = 0.312729E+01
- PKER_RWETH( 7, 5) = 0.213937E+01
- PKER_RWETH( 7, 6) = 0.159348E+01
- PKER_RWETH( 7, 7) = 0.144580E+01
- PKER_RWETH( 7, 8) = 0.159857E+01
- PKER_RWETH( 7, 9) = 0.191990E+01
- PKER_RWETH( 7, 10) = 0.229195E+01
- PKER_RWETH( 7, 11) = 0.264196E+01
- PKER_RWETH( 7, 12) = 0.294215E+01
- PKER_RWETH( 7, 13) = 0.319025E+01
- PKER_RWETH( 7, 14) = 0.339309E+01
- PKER_RWETH( 7, 15) = 0.355870E+01
- PKER_RWETH( 7, 16) = 0.369410E+01
- PKER_RWETH( 7, 17) = 0.380497E+01
- PKER_RWETH( 7, 18) = 0.389590E+01
- PKER_RWETH( 7, 19) = 0.397057E+01
- PKER_RWETH( 7, 20) = 0.403196E+01
- PKER_RWETH( 7, 21) = 0.408248E+01
- PKER_RWETH( 7, 22) = 0.412408E+01
- PKER_RWETH( 7, 23) = 0.415837E+01
- PKER_RWETH( 7, 24) = 0.418665E+01
- PKER_RWETH( 7, 25) = 0.420997E+01
- PKER_RWETH( 7, 26) = 0.422922E+01
- PKER_RWETH( 7, 27) = 0.424512E+01
- PKER_RWETH( 7, 28) = 0.425824E+01
- PKER_RWETH( 7, 29) = 0.426908E+01
- PKER_RWETH( 7, 30) = 0.427804E+01
- PKER_RWETH( 7, 31) = 0.428544E+01
- PKER_RWETH( 7, 32) = 0.429155E+01
- PKER_RWETH( 7, 33) = 0.429661E+01
- PKER_RWETH( 7, 34) = 0.430079E+01
- PKER_RWETH( 7, 35) = 0.430424E+01
- PKER_RWETH( 7, 36) = 0.430710E+01
- PKER_RWETH( 7, 37) = 0.430946E+01
- PKER_RWETH( 7, 38) = 0.431141E+01
- PKER_RWETH( 7, 39) = 0.431302E+01
- PKER_RWETH( 7, 40) = 0.431436E+01
- PKER_RWETH( 8, 1) = 0.956627E+01
- PKER_RWETH( 8, 2) = 0.717320E+01
- PKER_RWETH( 8, 3) = 0.522361E+01
- PKER_RWETH( 8, 4) = 0.367446E+01
- PKER_RWETH( 8, 5) = 0.250914E+01
- PKER_RWETH( 8, 6) = 0.172781E+01
- PKER_RWETH( 8, 7) = 0.132243E+01
- PKER_RWETH( 8, 8) = 0.124848E+01
- PKER_RWETH( 8, 9) = 0.141419E+01
- PKER_RWETH( 8, 10) = 0.170540E+01
- PKER_RWETH( 8, 11) = 0.202584E+01
- PKER_RWETH( 8, 12) = 0.232058E+01
- PKER_RWETH( 8, 13) = 0.257083E+01
- PKER_RWETH( 8, 14) = 0.277692E+01
- PKER_RWETH( 8, 15) = 0.294524E+01
- PKER_RWETH( 8, 16) = 0.308264E+01
- PKER_RWETH( 8, 17) = 0.319496E+01
- PKER_RWETH( 8, 18) = 0.328694E+01
- PKER_RWETH( 8, 19) = 0.336236E+01
- PKER_RWETH( 8, 20) = 0.342430E+01
- PKER_RWETH( 8, 21) = 0.347521E+01
- PKER_RWETH( 8, 22) = 0.351711E+01
- PKER_RWETH( 8, 23) = 0.355161E+01
- PKER_RWETH( 8, 24) = 0.358005E+01
- PKER_RWETH( 8, 25) = 0.360349E+01
- PKER_RWETH( 8, 26) = 0.362283E+01
- PKER_RWETH( 8, 27) = 0.363879E+01
- PKER_RWETH( 8, 28) = 0.365197E+01
- PKER_RWETH( 8, 29) = 0.366285E+01
- PKER_RWETH( 8, 30) = 0.367183E+01
- PKER_RWETH( 8, 31) = 0.367926E+01
- PKER_RWETH( 8, 32) = 0.368539E+01
- PKER_RWETH( 8, 33) = 0.369046E+01
- PKER_RWETH( 8, 34) = 0.369465E+01
- PKER_RWETH( 8, 35) = 0.369811E+01
- PKER_RWETH( 8, 36) = 0.370097E+01
- PKER_RWETH( 8, 37) = 0.370334E+01
- PKER_RWETH( 8, 38) = 0.370530E+01
- PKER_RWETH( 8, 39) = 0.370691E+01
- PKER_RWETH( 8, 40) = 0.370825E+01
- PKER_RWETH( 9, 1) = 0.102200E+02
- PKER_RWETH( 9, 2) = 0.781427E+01
- PKER_RWETH( 9, 3) = 0.583508E+01
- PKER_RWETH( 9, 4) = 0.422651E+01
- PKER_RWETH( 9, 5) = 0.295601E+01
- PKER_RWETH( 9, 6) = 0.201318E+01
- PKER_RWETH( 9, 7) = 0.139951E+01
- PKER_RWETH( 9, 8) = 0.110495E+01
- PKER_RWETH( 9, 9) = 0.108447E+01
- PKER_RWETH( 9, 10) = 0.125349E+01
- PKER_RWETH( 9, 11) = 0.151396E+01
- PKER_RWETH( 9, 12) = 0.178854E+01
- PKER_RWETH( 9, 13) = 0.203611E+01
- PKER_RWETH( 9, 14) = 0.224455E+01
- PKER_RWETH( 9, 15) = 0.241570E+01
- PKER_RWETH( 9, 16) = 0.255537E+01
- PKER_RWETH( 9, 17) = 0.266938E+01
- PKER_RWETH( 9, 18) = 0.276256E+01
- PKER_RWETH( 9, 19) = 0.283887E+01
- PKER_RWETH( 9, 20) = 0.290144E+01
- PKER_RWETH( 9, 21) = 0.295281E+01
- PKER_RWETH( 9, 22) = 0.299504E+01
- PKER_RWETH( 9, 23) = 0.302979E+01
- PKER_RWETH( 9, 24) = 0.305841E+01
- PKER_RWETH( 9, 25) = 0.308199E+01
- PKER_RWETH( 9, 26) = 0.310143E+01
- PKER_RWETH( 9, 27) = 0.311747E+01
- PKER_RWETH( 9, 28) = 0.313070E+01
- PKER_RWETH( 9, 29) = 0.314162E+01
- PKER_RWETH( 9, 30) = 0.315064E+01
- PKER_RWETH( 9, 31) = 0.315809E+01
- PKER_RWETH( 9, 32) = 0.316424E+01
- PKER_RWETH( 9, 33) = 0.316933E+01
- PKER_RWETH( 9, 34) = 0.317353E+01
- PKER_RWETH( 9, 35) = 0.317700E+01
- PKER_RWETH( 9, 36) = 0.317987E+01
- PKER_RWETH( 9, 37) = 0.318224E+01
- PKER_RWETH( 9, 38) = 0.318420E+01
- PKER_RWETH( 9, 39) = 0.318582E+01
- PKER_RWETH( 9, 40) = 0.318716E+01
- PKER_RWETH( 10, 1) = 0.107794E+02
- PKER_RWETH( 10, 2) = 0.837003E+01
- PKER_RWETH( 10, 3) = 0.637887E+01
- PKER_RWETH( 10, 4) = 0.474241E+01
- PKER_RWETH( 10, 5) = 0.341615E+01
- PKER_RWETH( 10, 6) = 0.237589E+01
- PKER_RWETH( 10, 7) = 0.161585E+01
- PKER_RWETH( 10, 8) = 0.113766E+01
- PKER_RWETH( 10, 9) = 0.929743E+00
- PKER_RWETH( 10, 10) = 0.946883E+00
- PKER_RWETH( 10, 11) = 0.111245E+01
- PKER_RWETH( 10, 12) = 0.134310E+01
- PKER_RWETH( 10, 13) = 0.157719E+01
- PKER_RWETH( 10, 14) = 0.178469E+01
- PKER_RWETH( 10, 15) = 0.195816E+01
- PKER_RWETH( 10, 16) = 0.210028E+01
- PKER_RWETH( 10, 17) = 0.221619E+01
- PKER_RWETH( 10, 18) = 0.231078E+01
- PKER_RWETH( 10, 19) = 0.238810E+01
- PKER_RWETH( 10, 20) = 0.245141E+01
- PKER_RWETH( 10, 21) = 0.250332E+01
- PKER_RWETH( 10, 22) = 0.254594E+01
- PKER_RWETH( 10, 23) = 0.258097E+01
- PKER_RWETH( 10, 24) = 0.260979E+01
- PKER_RWETH( 10, 25) = 0.263353E+01
- PKER_RWETH( 10, 26) = 0.265308E+01
- PKER_RWETH( 10, 27) = 0.266921E+01
- PKER_RWETH( 10, 28) = 0.268250E+01
- PKER_RWETH( 10, 29) = 0.269348E+01
- PKER_RWETH( 10, 30) = 0.270253E+01
- PKER_RWETH( 10, 31) = 0.271001E+01
- PKER_RWETH( 10, 32) = 0.271618E+01
- PKER_RWETH( 10, 33) = 0.272129E+01
- PKER_RWETH( 10, 34) = 0.272550E+01
- PKER_RWETH( 10, 35) = 0.272898E+01
- PKER_RWETH( 10, 36) = 0.273186E+01
- PKER_RWETH( 10, 37) = 0.273424E+01
- PKER_RWETH( 10, 38) = 0.273620E+01
- PKER_RWETH( 10, 39) = 0.273783E+01
- PKER_RWETH( 10, 40) = 0.273917E+01
- PKER_RWETH( 11, 1) = 0.112547E+02
- PKER_RWETH( 11, 2) = 0.884593E+01
- PKER_RWETH( 11, 3) = 0.685131E+01
- PKER_RWETH( 11, 4) = 0.520348E+01
- PKER_RWETH( 11, 5) = 0.385081E+01
- PKER_RWETH( 11, 6) = 0.275817E+01
- PKER_RWETH( 11, 7) = 0.190805E+01
- PKER_RWETH( 11, 8) = 0.129789E+01
- PKER_RWETH( 11, 9) = 0.929130E+00
- PKER_RWETH( 11, 10) = 0.787911E+00
- PKER_RWETH( 11, 11) = 0.830555E+00
- PKER_RWETH( 11, 12) = 0.988070E+00
- PKER_RWETH( 11, 13) = 0.119042E+01
- PKER_RWETH( 11, 14) = 0.138918E+01
- PKER_RWETH( 11, 15) = 0.156279E+01
- PKER_RWETH( 11, 16) = 0.170708E+01
- PKER_RWETH( 11, 17) = 0.182507E+01
- PKER_RWETH( 11, 18) = 0.192127E+01
- PKER_RWETH( 11, 19) = 0.199976E+01
- PKER_RWETH( 11, 20) = 0.206392E+01
- PKER_RWETH( 11, 21) = 0.211645E+01
- PKER_RWETH( 11, 22) = 0.215952E+01
- PKER_RWETH( 11, 23) = 0.219488E+01
- PKER_RWETH( 11, 24) = 0.222394E+01
- PKER_RWETH( 11, 25) = 0.224785E+01
- PKER_RWETH( 11, 26) = 0.226753E+01
- PKER_RWETH( 11, 27) = 0.228375E+01
- PKER_RWETH( 11, 28) = 0.229712E+01
- PKER_RWETH( 11, 29) = 0.230815E+01
- PKER_RWETH( 11, 30) = 0.231725E+01
- PKER_RWETH( 11, 31) = 0.232476E+01
- PKER_RWETH( 11, 32) = 0.233096E+01
- PKER_RWETH( 11, 33) = 0.233608E+01
- PKER_RWETH( 11, 34) = 0.234031E+01
- PKER_RWETH( 11, 35) = 0.234380E+01
- PKER_RWETH( 11, 36) = 0.234669E+01
- PKER_RWETH( 11, 37) = 0.234907E+01
- PKER_RWETH( 11, 38) = 0.235104E+01
- PKER_RWETH( 11, 39) = 0.235267E+01
- PKER_RWETH( 11, 40) = 0.235402E+01
- PKER_RWETH( 12, 1) = 0.116571E+02
- PKER_RWETH( 12, 2) = 0.925058E+01
- PKER_RWETH( 12, 3) = 0.725629E+01
- PKER_RWETH( 12, 4) = 0.560505E+01
- PKER_RWETH( 12, 5) = 0.424152E+01
- PKER_RWETH( 12, 6) = 0.312383E+01
- PKER_RWETH( 12, 7) = 0.222456E+01
- PKER_RWETH( 12, 8) = 0.153134E+01
- PKER_RWETH( 12, 9) = 0.104379E+01
- PKER_RWETH( 12, 10) = 0.762641E+00
- PKER_RWETH( 12, 11) = 0.672444E+00
- PKER_RWETH( 12, 12) = 0.731332E+00
- PKER_RWETH( 12, 13) = 0.877846E+00
- PKER_RWETH( 12, 14) = 0.105398E+01
- PKER_RWETH( 12, 15) = 0.122217E+01
- PKER_RWETH( 12, 16) = 0.136721E+01
- PKER_RWETH( 12, 17) = 0.148718E+01
- PKER_RWETH( 12, 18) = 0.158513E+01
- PKER_RWETH( 12, 19) = 0.166497E+01
- PKER_RWETH( 12, 20) = 0.173011E+01
- PKER_RWETH( 12, 21) = 0.178335E+01
- PKER_RWETH( 12, 22) = 0.182694E+01
- PKER_RWETH( 12, 23) = 0.186268E+01
- PKER_RWETH( 12, 24) = 0.189201E+01
- PKER_RWETH( 12, 25) = 0.191613E+01
- PKER_RWETH( 12, 26) = 0.193596E+01
- PKER_RWETH( 12, 27) = 0.195229E+01
- PKER_RWETH( 12, 28) = 0.196574E+01
- PKER_RWETH( 12, 29) = 0.197683E+01
- PKER_RWETH( 12, 30) = 0.198598E+01
- PKER_RWETH( 12, 31) = 0.199352E+01
- PKER_RWETH( 12, 32) = 0.199975E+01
- PKER_RWETH( 12, 33) = 0.200489E+01
- PKER_RWETH( 12, 34) = 0.200914E+01
- PKER_RWETH( 12, 35) = 0.201264E+01
- PKER_RWETH( 12, 36) = 0.201554E+01
- PKER_RWETH( 12, 37) = 0.201793E+01
- PKER_RWETH( 12, 38) = 0.201991E+01
- PKER_RWETH( 12, 39) = 0.202154E+01
- PKER_RWETH( 12, 40) = 0.202289E+01
- PKER_RWETH( 13, 1) = 0.119970E+02
- PKER_RWETH( 13, 2) = 0.959324E+01
- PKER_RWETH( 13, 3) = 0.760081E+01
- PKER_RWETH( 13, 4) = 0.594970E+01
- PKER_RWETH( 13, 5) = 0.458280E+01
- PKER_RWETH( 13, 6) = 0.345469E+01
- PKER_RWETH( 13, 7) = 0.253159E+01
- PKER_RWETH( 13, 8) = 0.179227E+01
- PKER_RWETH( 13, 9) = 0.122838E+01
- PKER_RWETH( 13, 10) = 0.841004E+00
- PKER_RWETH( 13, 11) = 0.629650E+00
- PKER_RWETH( 13, 12) = 0.577924E+00
- PKER_RWETH( 13, 13) = 0.645898E+00
- PKER_RWETH( 13, 14) = 0.779895E+00
- PKER_RWETH( 13, 15) = 0.932147E+00
- PKER_RWETH( 13, 16) = 0.107403E+01
- PKER_RWETH( 13, 17) = 0.119506E+01
- PKER_RWETH( 13, 18) = 0.129476E+01
- PKER_RWETH( 13, 19) = 0.137609E+01
- PKER_RWETH( 13, 20) = 0.144235E+01
- PKER_RWETH( 13, 21) = 0.149642E+01
- PKER_RWETH( 13, 22) = 0.154060E+01
- PKER_RWETH( 13, 23) = 0.157677E+01
- PKER_RWETH( 13, 24) = 0.160643E+01
- PKER_RWETH( 13, 25) = 0.163077E+01
- PKER_RWETH( 13, 26) = 0.165078E+01
- PKER_RWETH( 13, 27) = 0.166723E+01
- PKER_RWETH( 13, 28) = 0.168078E+01
- PKER_RWETH( 13, 29) = 0.169194E+01
- PKER_RWETH( 13, 30) = 0.170114E+01
- PKER_RWETH( 13, 31) = 0.170872E+01
- PKER_RWETH( 13, 32) = 0.171498E+01
- PKER_RWETH( 13, 33) = 0.172014E+01
- PKER_RWETH( 13, 34) = 0.172441E+01
- PKER_RWETH( 13, 35) = 0.172792E+01
- PKER_RWETH( 13, 36) = 0.173083E+01
- PKER_RWETH( 13, 37) = 0.173323E+01
- PKER_RWETH( 13, 38) = 0.173522E+01
- PKER_RWETH( 13, 39) = 0.173685E+01
- PKER_RWETH( 13, 40) = 0.173821E+01
- PKER_RWETH( 14, 1) = 0.122839E+02
- PKER_RWETH( 14, 2) = 0.988280E+01
- PKER_RWETH( 14, 3) = 0.789268E+01
- PKER_RWETH( 14, 4) = 0.624309E+01
- PKER_RWETH( 14, 5) = 0.487613E+01
- PKER_RWETH( 14, 6) = 0.374467E+01
- PKER_RWETH( 14, 7) = 0.281151E+01
- PKER_RWETH( 14, 8) = 0.204951E+01
- PKER_RWETH( 14, 9) = 0.144246E+01
- PKER_RWETH( 14, 10) = 0.985100E+00
- PKER_RWETH( 14, 11) = 0.679232E+00
- PKER_RWETH( 14, 12) = 0.523227E+00
- PKER_RWETH( 14, 13) = 0.499857E+00
- PKER_RWETH( 14, 14) = 0.571812E+00
- PKER_RWETH( 14, 15) = 0.692570E+00
- PKER_RWETH( 14, 16) = 0.823458E+00
- PKER_RWETH( 14, 17) = 0.942830E+00
- PKER_RWETH( 14, 18) = 0.104371E+01
- PKER_RWETH( 14, 19) = 0.112656E+01
- PKER_RWETH( 14, 20) = 0.119407E+01
- PKER_RWETH( 14, 21) = 0.124908E+01
- PKER_RWETH( 14, 22) = 0.129395E+01
- PKER_RWETH( 14, 23) = 0.133063E+01
- PKER_RWETH( 14, 24) = 0.136065E+01
- PKER_RWETH( 14, 25) = 0.138526E+01
- PKER_RWETH( 14, 26) = 0.140546E+01
- PKER_RWETH( 14, 27) = 0.142206E+01
- PKER_RWETH( 14, 28) = 0.143571E+01
- PKER_RWETH( 14, 29) = 0.144695E+01
- PKER_RWETH( 14, 30) = 0.145621E+01
- PKER_RWETH( 14, 31) = 0.146384E+01
- PKER_RWETH( 14, 32) = 0.147013E+01
- PKER_RWETH( 14, 33) = 0.147532E+01
- PKER_RWETH( 14, 34) = 0.147960E+01
- PKER_RWETH( 14, 35) = 0.148314E+01
- PKER_RWETH( 14, 36) = 0.148605E+01
- PKER_RWETH( 14, 37) = 0.148846E+01
- PKER_RWETH( 14, 38) = 0.149045E+01
- PKER_RWETH( 14, 39) = 0.149210E+01
- PKER_RWETH( 14, 40) = 0.149346E+01
- PKER_RWETH( 15, 1) = 0.125259E+02
- PKER_RWETH( 15, 2) = 0.101272E+02
- PKER_RWETH( 15, 3) = 0.813939E+01
- PKER_RWETH( 15, 4) = 0.649175E+01
- PKER_RWETH( 15, 5) = 0.512603E+01
- PKER_RWETH( 15, 6) = 0.399434E+01
- PKER_RWETH( 15, 7) = 0.305783E+01
- PKER_RWETH( 15, 8) = 0.228610E+01
- PKER_RWETH( 15, 9) = 0.165747E+01
- PKER_RWETH( 15, 10) = 0.115978E+01
- PKER_RWETH( 15, 11) = 0.790048E+00
- PKER_RWETH( 15, 12) = 0.550236E+00
- PKER_RWETH( 15, 13) = 0.437781E+00
- PKER_RWETH( 15, 14) = 0.434801E+00
- PKER_RWETH( 15, 15) = 0.507067E+00
- PKER_RWETH( 15, 16) = 0.614692E+00
- PKER_RWETH( 15, 17) = 0.726597E+00
- PKER_RWETH( 15, 18) = 0.826793E+00
- PKER_RWETH( 15, 19) = 0.910816E+00
- PKER_RWETH( 15, 20) = 0.979641E+00
- PKER_RWETH( 15, 21) = 0.103570E+01
- PKER_RWETH( 15, 22) = 0.108136E+01
- PKER_RWETH( 15, 23) = 0.111861E+01
- PKER_RWETH( 15, 24) = 0.114905E+01
- PKER_RWETH( 15, 25) = 0.117397E+01
- PKER_RWETH( 15, 26) = 0.119439E+01
- PKER_RWETH( 15, 27) = 0.121116E+01
- PKER_RWETH( 15, 28) = 0.122493E+01
- PKER_RWETH( 15, 29) = 0.123626E+01
- PKER_RWETH( 15, 30) = 0.124559E+01
- PKER_RWETH( 15, 31) = 0.125327E+01
- PKER_RWETH( 15, 32) = 0.125960E+01
- PKER_RWETH( 15, 33) = 0.126482E+01
- PKER_RWETH( 15, 34) = 0.126912E+01
- PKER_RWETH( 15, 35) = 0.127267E+01
- PKER_RWETH( 15, 36) = 0.127560E+01
- PKER_RWETH( 15, 37) = 0.127802E+01
- PKER_RWETH( 15, 38) = 0.128002E+01
- PKER_RWETH( 15, 39) = 0.128167E+01
- PKER_RWETH( 15, 40) = 0.128303E+01
- PKER_RWETH( 16, 1) = 0.127300E+02
- PKER_RWETH( 16, 2) = 0.103335E+02
- PKER_RWETH( 16, 3) = 0.834773E+01
- PKER_RWETH( 16, 4) = 0.670202E+01
- PKER_RWETH( 16, 5) = 0.533793E+01
- PKER_RWETH( 16, 6) = 0.420722E+01
- PKER_RWETH( 16, 7) = 0.327032E+01
- PKER_RWETH( 16, 8) = 0.249524E+01
- PKER_RWETH( 16, 9) = 0.185719E+01
- PKER_RWETH( 16, 10) = 0.133896E+01
- PKER_RWETH( 16, 11) = 0.931613E+00
- PKER_RWETH( 16, 12) = 0.633849E+00
- PKER_RWETH( 16, 13) = 0.447566E+00
- PKER_RWETH( 16, 14) = 0.368904E+00
- PKER_RWETH( 16, 15) = 0.380168E+00
- PKER_RWETH( 16, 16) = 0.450172E+00
- PKER_RWETH( 16, 17) = 0.545119E+00
- PKER_RWETH( 16, 18) = 0.640376E+00
- PKER_RWETH( 16, 19) = 0.724315E+00
- PKER_RWETH( 16, 20) = 0.794253E+00
- PKER_RWETH( 16, 21) = 0.851423E+00
- PKER_RWETH( 16, 22) = 0.897965E+00
- PKER_RWETH( 16, 23) = 0.935873E+00
- PKER_RWETH( 16, 24) = 0.966798E+00
- PKER_RWETH( 16, 25) = 0.992069E+00
- PKER_RWETH( 16, 26) = 0.101275E+01
- PKER_RWETH( 16, 27) = 0.102971E+01
- PKER_RWETH( 16, 28) = 0.104362E+01
- PKER_RWETH( 16, 29) = 0.105506E+01
- PKER_RWETH( 16, 30) = 0.106446E+01
- PKER_RWETH( 16, 31) = 0.107219E+01
- PKER_RWETH( 16, 32) = 0.107857E+01
- PKER_RWETH( 16, 33) = 0.108382E+01
- PKER_RWETH( 16, 34) = 0.108815E+01
- PKER_RWETH( 16, 35) = 0.109172E+01
- PKER_RWETH( 16, 36) = 0.109466E+01
- PKER_RWETH( 16, 37) = 0.109709E+01
- PKER_RWETH( 16, 38) = 0.109910E+01
- PKER_RWETH( 16, 39) = 0.110076E+01
- PKER_RWETH( 16, 40) = 0.110213E+01
- PKER_RWETH( 17, 1) = 0.129024E+02
- PKER_RWETH( 17, 2) = 0.105076E+02
- PKER_RWETH( 17, 3) = 0.852362E+01
- PKER_RWETH( 17, 4) = 0.687964E+01
- PKER_RWETH( 17, 5) = 0.551717E+01
- PKER_RWETH( 17, 6) = 0.438782E+01
- PKER_RWETH( 17, 7) = 0.345170E+01
- PKER_RWETH( 17, 8) = 0.267609E+01
- PKER_RWETH( 17, 9) = 0.203468E+01
- PKER_RWETH( 17, 10) = 0.150732E+01
- PKER_RWETH( 17, 11) = 0.108047E+01
- PKER_RWETH( 17, 12) = 0.747735E+00
- PKER_RWETH( 17, 13) = 0.508950E+00
- PKER_RWETH( 17, 14) = 0.365691E+00
- PKER_RWETH( 17, 15) = 0.313111E+00
- PKER_RWETH( 17, 16) = 0.333878E+00
- PKER_RWETH( 17, 17) = 0.399897E+00
- PKER_RWETH( 17, 18) = 0.482939E+00
- PKER_RWETH( 17, 19) = 0.563733E+00
- PKER_RWETH( 17, 20) = 0.633938E+00
- PKER_RWETH( 17, 21) = 0.692122E+00
- PKER_RWETH( 17, 22) = 0.739609E+00
- PKER_RWETH( 17, 23) = 0.778254E+00
- PKER_RWETH( 17, 24) = 0.809729E+00
- PKER_RWETH( 17, 25) = 0.835404E+00
- PKER_RWETH( 17, 26) = 0.856386E+00
- PKER_RWETH( 17, 27) = 0.873558E+00
- PKER_RWETH( 17, 28) = 0.887632E+00
- PKER_RWETH( 17, 29) = 0.899182E+00
- PKER_RWETH( 17, 30) = 0.908671E+00
- PKER_RWETH( 17, 31) = 0.916474E+00
- PKER_RWETH( 17, 32) = 0.922895E+00
- PKER_RWETH( 17, 33) = 0.928182E+00
- PKER_RWETH( 17, 34) = 0.932539E+00
- PKER_RWETH( 17, 35) = 0.936130E+00
- PKER_RWETH( 17, 36) = 0.939092E+00
- PKER_RWETH( 17, 37) = 0.941535E+00
- PKER_RWETH( 17, 38) = 0.943552E+00
- PKER_RWETH( 17, 39) = 0.945216E+00
- PKER_RWETH( 17, 40) = 0.946590E+00
- PKER_RWETH( 18, 1) = 0.130481E+02
- PKER_RWETH( 18, 2) = 0.106547E+02
- PKER_RWETH( 18, 3) = 0.867216E+01
- PKER_RWETH( 18, 4) = 0.702966E+01
- PKER_RWETH( 18, 5) = 0.566864E+01
- PKER_RWETH( 18, 6) = 0.454066E+01
- PKER_RWETH( 18, 7) = 0.360566E+01
- PKER_RWETH( 18, 8) = 0.283064E+01
- PKER_RWETH( 18, 9) = 0.218857E+01
- PKER_RWETH( 18, 10) = 0.165785E+01
- PKER_RWETH( 18, 11) = 0.122215E+01
- PKER_RWETH( 18, 12) = 0.870920E+00
- PKER_RWETH( 18, 13) = 0.599738E+00
- PKER_RWETH( 18, 14) = 0.409230E+00
- PKER_RWETH( 18, 15) = 0.300399E+00
- PKER_RWETH( 18, 16) = 0.267701E+00
- PKER_RWETH( 18, 17) = 0.294269E+00
- PKER_RWETH( 18, 18) = 0.355318E+00
- PKER_RWETH( 18, 19) = 0.427404E+00
- PKER_RWETH( 18, 20) = 0.495700E+00
- PKER_RWETH( 18, 21) = 0.554339E+00
- PKER_RWETH( 18, 22) = 0.602725E+00
- PKER_RWETH( 18, 23) = 0.642169E+00
- PKER_RWETH( 18, 24) = 0.674260E+00
- PKER_RWETH( 18, 25) = 0.700395E+00
- PKER_RWETH( 18, 26) = 0.721715E+00
- PKER_RWETH( 18, 27) = 0.739136E+00
- PKER_RWETH( 18, 28) = 0.753394E+00
- PKER_RWETH( 18, 29) = 0.765078E+00
- PKER_RWETH( 18, 30) = 0.774667E+00
- PKER_RWETH( 18, 31) = 0.782543E+00
- PKER_RWETH( 18, 32) = 0.789019E+00
- PKER_RWETH( 18, 33) = 0.794348E+00
- PKER_RWETH( 18, 34) = 0.798736E+00
- PKER_RWETH( 18, 35) = 0.802351E+00
- PKER_RWETH( 18, 36) = 0.805330E+00
- PKER_RWETH( 18, 37) = 0.807788E+00
- PKER_RWETH( 18, 38) = 0.809814E+00
- PKER_RWETH( 18, 39) = 0.811487E+00
- PKER_RWETH( 18, 40) = 0.812867E+00
- PKER_RWETH( 19, 1) = 0.131712E+02
- PKER_RWETH( 19, 2) = 0.107790E+02
- PKER_RWETH( 19, 3) = 0.879768E+01
- PKER_RWETH( 19, 4) = 0.715640E+01
- PKER_RWETH( 19, 5) = 0.579662E+01
- PKER_RWETH( 19, 6) = 0.466986E+01
- PKER_RWETH( 19, 7) = 0.373600E+01
- PKER_RWETH( 19, 8) = 0.296191E+01
- PKER_RWETH( 19, 9) = 0.232027E+01
- PKER_RWETH( 19, 10) = 0.178879E+01
- PKER_RWETH( 19, 11) = 0.134972E+01
- PKER_RWETH( 19, 12) = 0.989916E+00
- PKER_RWETH( 19, 13) = 0.701233E+00
- PKER_RWETH( 19, 14) = 0.480800E+00
- PKER_RWETH( 19, 15) = 0.329665E+00
- PKER_RWETH( 19, 16) = 0.248272E+00
- PKER_RWETH( 19, 17) = 0.230434E+00
- PKER_RWETH( 19, 18) = 0.260120E+00
- PKER_RWETH( 19, 19) = 0.315632E+00
- PKER_RWETH( 19, 20) = 0.377834E+00
- PKER_RWETH( 19, 21) = 0.435396E+00
- PKER_RWETH( 19, 22) = 0.484321E+00
- PKER_RWETH( 19, 23) = 0.524549E+00
- PKER_RWETH( 19, 24) = 0.557311E+00
- PKER_RWETH( 19, 25) = 0.583962E+00
- PKER_RWETH( 19, 26) = 0.605667E+00
- PKER_RWETH( 19, 27) = 0.623372E+00
- PKER_RWETH( 19, 28) = 0.637838E+00
- PKER_RWETH( 19, 29) = 0.649677E+00
- PKER_RWETH( 19, 30) = 0.659379E+00
- PKER_RWETH( 19, 31) = 0.667339E+00
- PKER_RWETH( 19, 32) = 0.673877E+00
- PKER_RWETH( 19, 33) = 0.679253E+00
- PKER_RWETH( 19, 34) = 0.683676E+00
- PKER_RWETH( 19, 35) = 0.687317E+00
- PKER_RWETH( 19, 36) = 0.690317E+00
- PKER_RWETH( 19, 37) = 0.692790E+00
- PKER_RWETH( 19, 38) = 0.694828E+00
- PKER_RWETH( 19, 39) = 0.696510E+00
- PKER_RWETH( 19, 40) = 0.697897E+00
- PKER_RWETH( 20, 1) = 0.132755E+02
- PKER_RWETH( 20, 2) = 0.108842E+02
- PKER_RWETH( 20, 3) = 0.890381E+01
- PKER_RWETH( 20, 4) = 0.726353E+01
- PKER_RWETH( 20, 5) = 0.590477E+01
- PKER_RWETH( 20, 6) = 0.477905E+01
- PKER_RWETH( 20, 7) = 0.384623E+01
- PKER_RWETH( 20, 8) = 0.307309E+01
- PKER_RWETH( 20, 9) = 0.243222E+01
- PKER_RWETH( 20, 10) = 0.190101E+01
- PKER_RWETH( 20, 11) = 0.146109E+01
- PKER_RWETH( 20, 12) = 0.109792E+01
- PKER_RWETH( 20, 13) = 0.800957E+00
- PKER_RWETH( 20, 14) = 0.564005E+00
- PKER_RWETH( 20, 15) = 0.385366E+00
- PKER_RWETH( 20, 16) = 0.266229E+00
- PKER_RWETH( 20, 17) = 0.206550E+00
- PKER_RWETH( 20, 18) = 0.199590E+00
- PKER_RWETH( 20, 19) = 0.230425E+00
- PKER_RWETH( 20, 20) = 0.280277E+00
- PKER_RWETH( 20, 21) = 0.333630E+00
- PKER_RWETH( 20, 22) = 0.382023E+00
- PKER_RWETH( 20, 23) = 0.422805E+00
- PKER_RWETH( 20, 24) = 0.456244E+00
- PKER_RWETH( 20, 25) = 0.483458E+00
- PKER_RWETH( 20, 26) = 0.505594E+00
- PKER_RWETH( 20, 27) = 0.523620E+00
- PKER_RWETH( 20, 28) = 0.538325E+00
- PKER_RWETH( 20, 29) = 0.550339E+00
- PKER_RWETH( 20, 30) = 0.560171E+00
- PKER_RWETH( 20, 31) = 0.568227E+00
- PKER_RWETH( 20, 32) = 0.574836E+00
- PKER_RWETH( 20, 33) = 0.580265E+00
- PKER_RWETH( 20, 34) = 0.584727E+00
- PKER_RWETH( 20, 35) = 0.588398E+00
- PKER_RWETH( 20, 36) = 0.591421E+00
- PKER_RWETH( 20, 37) = 0.593910E+00
- PKER_RWETH( 20, 38) = 0.595962E+00
- PKER_RWETH( 20, 39) = 0.597653E+00
- PKER_RWETH( 20, 40) = 0.599048E+00
- PKER_RWETH( 21, 1) = 0.133638E+02
- PKER_RWETH( 21, 2) = 0.109733E+02
- PKER_RWETH( 21, 3) = 0.899363E+01
- PKER_RWETH( 21, 4) = 0.735415E+01
- PKER_RWETH( 21, 5) = 0.599624E+01
- PKER_RWETH( 21, 6) = 0.487138E+01
- PKER_RWETH( 21, 7) = 0.393943E+01
- PKER_RWETH( 21, 8) = 0.316716E+01
- PKER_RWETH( 21, 9) = 0.252708E+01
- PKER_RWETH( 21, 10) = 0.199649E+01
- PKER_RWETH( 21, 11) = 0.155673E+01
- PKER_RWETH( 21, 12) = 0.119262E+01
- PKER_RWETH( 21, 13) = 0.892302E+00
- PKER_RWETH( 21, 14) = 0.647350E+00
- PKER_RWETH( 21, 15) = 0.453162E+00
- PKER_RWETH( 21, 16) = 0.308890E+00
- PKER_RWETH( 21, 17) = 0.215757E+00
- PKER_RWETH( 21, 18) = 0.173047E+00
- PKER_RWETH( 21, 19) = 0.173871E+00
- PKER_RWETH( 21, 20) = 0.204444E+00
- PKER_RWETH( 21, 21) = 0.248705E+00
- PKER_RWETH( 21, 22) = 0.294253E+00
- PKER_RWETH( 21, 23) = 0.334851E+00
- PKER_RWETH( 21, 24) = 0.368823E+00
- PKER_RWETH( 21, 25) = 0.396614E+00
- PKER_RWETH( 21, 26) = 0.419221E+00
- PKER_RWETH( 21, 27) = 0.437608E+00
- PKER_RWETH( 21, 28) = 0.452581E+00
- PKER_RWETH( 21, 29) = 0.464795E+00
- PKER_RWETH( 21, 30) = 0.474774E+00
- PKER_RWETH( 21, 31) = 0.482940E+00
- PKER_RWETH( 21, 32) = 0.489630E+00
- PKER_RWETH( 21, 33) = 0.495118E+00
- PKER_RWETH( 21, 34) = 0.499626E+00
- PKER_RWETH( 21, 35) = 0.503331E+00
- PKER_RWETH( 21, 36) = 0.506378E+00
- PKER_RWETH( 21, 37) = 0.508887E+00
- PKER_RWETH( 21, 38) = 0.510953E+00
- PKER_RWETH( 21, 39) = 0.512656E+00
- PKER_RWETH( 21, 40) = 0.514060E+00
- PKER_RWETH( 22, 1) = 0.134387E+02
- PKER_RWETH( 22, 2) = 0.110487E+02
- PKER_RWETH( 22, 3) = 0.906972E+01
- PKER_RWETH( 22, 4) = 0.743089E+01
- PKER_RWETH( 22, 5) = 0.607364E+01
- PKER_RWETH( 22, 6) = 0.494948E+01
- PKER_RWETH( 22, 7) = 0.401825E+01
- PKER_RWETH( 22, 8) = 0.324671E+01
- PKER_RWETH( 22, 9) = 0.260736E+01
- PKER_RWETH( 22, 10) = 0.207745E+01
- PKER_RWETH( 22, 11) = 0.163817E+01
- PKER_RWETH( 22, 12) = 0.127411E+01
- PKER_RWETH( 22, 13) = 0.972782E+00
- PKER_RWETH( 22, 14) = 0.724507E+00
- PKER_RWETH( 22, 15) = 0.522622E+00
- PKER_RWETH( 22, 16) = 0.363766E+00
- PKER_RWETH( 22, 17) = 0.247703E+00
- PKER_RWETH( 22, 18) = 0.175545E+00
- PKER_RWETH( 22, 19) = 0.146034E+00
- PKER_RWETH( 22, 20) = 0.152234E+00
- PKER_RWETH( 22, 21) = 0.181564E+00
- PKER_RWETH( 22, 22) = 0.220489E+00
- PKER_RWETH( 22, 23) = 0.259220E+00
- PKER_RWETH( 22, 24) = 0.293219E+00
- PKER_RWETH( 22, 25) = 0.321501E+00
- PKER_RWETH( 22, 26) = 0.344597E+00
- PKER_RWETH( 22, 27) = 0.363378E+00
- PKER_RWETH( 22, 28) = 0.378653E+00
- PKER_RWETH( 22, 29) = 0.391092E+00
- PKER_RWETH( 22, 30) = 0.401239E+00
- PKER_RWETH( 22, 31) = 0.409528E+00
- PKER_RWETH( 22, 32) = 0.416310E+00
- PKER_RWETH( 22, 33) = 0.421867E+00
- PKER_RWETH( 22, 34) = 0.426425E+00
- PKER_RWETH( 22, 35) = 0.430168E+00
- PKER_RWETH( 22, 36) = 0.433244E+00
- PKER_RWETH( 22, 37) = 0.435774E+00
- PKER_RWETH( 22, 38) = 0.437857E+00
- PKER_RWETH( 22, 39) = 0.439572E+00
- PKER_RWETH( 22, 40) = 0.440985E+00
- PKER_RWETH( 23, 1) = 0.135023E+02
- PKER_RWETH( 23, 2) = 0.111128E+02
- PKER_RWETH( 23, 3) = 0.913424E+01
- PKER_RWETH( 23, 4) = 0.749591E+01
- PKER_RWETH( 23, 5) = 0.613920E+01
- PKER_RWETH( 23, 6) = 0.501560E+01
- PKER_RWETH( 23, 7) = 0.408496E+01
- PKER_RWETH( 23, 8) = 0.331403E+01
- PKER_RWETH( 23, 9) = 0.267529E+01
- PKER_RWETH( 23, 10) = 0.214598E+01
- PKER_RWETH( 23, 11) = 0.170727E+01
- PKER_RWETH( 23, 12) = 0.134359E+01
- PKER_RWETH( 23, 13) = 0.104222E+01
- PKER_RWETH( 23, 14) = 0.792868E+00
- PKER_RWETH( 23, 15) = 0.587692E+00
- PKER_RWETH( 23, 16) = 0.421446E+00
- PKER_RWETH( 23, 17) = 0.291760E+00
- PKER_RWETH( 23, 18) = 0.198828E+00
- PKER_RWETH( 23, 19) = 0.143521E+00
- PKER_RWETH( 23, 20) = 0.124168E+00
- PKER_RWETH( 23, 21) = 0.133847E+00
- PKER_RWETH( 23, 22) = 0.161331E+00
- PKER_RWETH( 23, 23) = 0.195282E+00
- PKER_RWETH( 23, 24) = 0.228096E+00
- PKER_RWETH( 23, 25) = 0.256525E+00
- PKER_RWETH( 23, 26) = 0.280060E+00
- PKER_RWETH( 23, 27) = 0.299255E+00
- PKER_RWETH( 23, 28) = 0.314859E+00
- PKER_RWETH( 23, 29) = 0.327550E+00
- PKER_RWETH( 23, 30) = 0.337885E+00
- PKER_RWETH( 23, 31) = 0.346315E+00
- PKER_RWETH( 23, 32) = 0.353201E+00
- PKER_RWETH( 23, 33) = 0.358835E+00
- PKER_RWETH( 23, 34) = 0.363451E+00
- PKER_RWETH( 23, 35) = 0.367237E+00
- PKER_RWETH( 23, 36) = 0.370345E+00
- PKER_RWETH( 23, 37) = 0.372900E+00
- PKER_RWETH( 23, 38) = 0.375001E+00
- PKER_RWETH( 23, 39) = 0.376730E+00
- PKER_RWETH( 23, 40) = 0.378154E+00
- PKER_RWETH( 24, 1) = 0.135563E+02
- PKER_RWETH( 24, 2) = 0.111671E+02
- PKER_RWETH( 24, 3) = 0.918899E+01
- PKER_RWETH( 24, 4) = 0.755107E+01
- PKER_RWETH( 24, 5) = 0.619478E+01
- PKER_RWETH( 24, 6) = 0.507163E+01
- PKER_RWETH( 24, 7) = 0.414145E+01
- PKER_RWETH( 24, 8) = 0.337101E+01
- PKER_RWETH( 24, 9) = 0.273279E+01
- PKER_RWETH( 24, 10) = 0.220400E+01
- PKER_RWETH( 24, 11) = 0.176579E+01
- PKER_RWETH( 24, 12) = 0.140257E+01
- PKER_RWETH( 24, 13) = 0.110150E+01
- PKER_RWETH( 24, 14) = 0.852021E+00
- PKER_RWETH( 24, 15) = 0.645715E+00
- PKER_RWETH( 24, 16) = 0.476221E+00
- PKER_RWETH( 24, 17) = 0.339467E+00
- PKER_RWETH( 24, 18) = 0.233850E+00
- PKER_RWETH( 24, 19) = 0.159822E+00
- PKER_RWETH( 24, 20) = 0.118004E+00
- PKER_RWETH( 24, 21) = 0.106334E+00
- PKER_RWETH( 24, 22) = 0.118095E+00
- PKER_RWETH( 24, 23) = 0.143353E+00
- PKER_RWETH( 24, 24) = 0.172771E+00
- PKER_RWETH( 24, 25) = 0.200484E+00
- PKER_RWETH( 24, 26) = 0.224227E+00
- PKER_RWETH( 24, 27) = 0.243806E+00
- PKER_RWETH( 24, 28) = 0.259757E+00
- PKER_RWETH( 24, 29) = 0.272723E+00
- PKER_RWETH( 24, 30) = 0.283268E+00
- PKER_RWETH( 24, 31) = 0.291856E+00
- PKER_RWETH( 24, 32) = 0.298861E+00
- PKER_RWETH( 24, 33) = 0.304583E+00
- PKER_RWETH( 24, 34) = 0.309264E+00
- PKER_RWETH( 24, 35) = 0.313098E+00
- PKER_RWETH( 24, 36) = 0.316243E+00
- PKER_RWETH( 24, 37) = 0.318825E+00
- PKER_RWETH( 24, 38) = 0.320946E+00
- PKER_RWETH( 24, 39) = 0.322691E+00
- PKER_RWETH( 24, 40) = 0.324127E+00
- PKER_RWETH( 25, 1) = 0.136022E+02
- PKER_RWETH( 25, 2) = 0.112133E+02
- PKER_RWETH( 25, 3) = 0.923550E+01
- PKER_RWETH( 25, 4) = 0.759789E+01
- PKER_RWETH( 25, 5) = 0.624194E+01
- PKER_RWETH( 25, 6) = 0.511914E+01
- PKER_RWETH( 25, 7) = 0.418934E+01
- PKER_RWETH( 25, 8) = 0.341929E+01
- PKER_RWETH( 25, 9) = 0.278148E+01
- PKER_RWETH( 25, 10) = 0.225311E+01
- PKER_RWETH( 25, 11) = 0.181534E+01
- PKER_RWETH( 25, 12) = 0.145255E+01
- PKER_RWETH( 25, 13) = 0.115185E+01
- PKER_RWETH( 25, 14) = 0.902595E+00
- PKER_RWETH( 25, 15) = 0.696094E+00
- PKER_RWETH( 25, 16) = 0.525430E+00
- PKER_RWETH( 25, 17) = 0.385484E+00
- PKER_RWETH( 25, 18) = 0.273126E+00
- PKER_RWETH( 25, 19) = 0.187350E+00
- PKER_RWETH( 25, 20) = 0.128722E+00
- PKER_RWETH( 25, 21) = 0.976342E-01
- PKER_RWETH( 25, 22) = 0.916722E-01
- PKER_RWETH( 25, 23) = 0.104476E+00
- PKER_RWETH( 25, 24) = 0.127358E+00
- PKER_RWETH( 25, 25) = 0.152684E+00
- PKER_RWETH( 25, 26) = 0.176023E+00
- PKER_RWETH( 25, 27) = 0.195832E+00
- PKER_RWETH( 25, 28) = 0.212116E+00
- PKER_RWETH( 25, 29) = 0.225373E+00
- PKER_RWETH( 25, 30) = 0.236148E+00
- PKER_RWETH( 25, 31) = 0.244912E+00
- PKER_RWETH( 25, 32) = 0.252049E+00
- PKER_RWETH( 25, 33) = 0.257870E+00
- PKER_RWETH( 25, 34) = 0.262625E+00
- PKER_RWETH( 25, 35) = 0.266514E+00
- PKER_RWETH( 25, 36) = 0.269700E+00
- PKER_RWETH( 25, 37) = 0.272313E+00
- PKER_RWETH( 25, 38) = 0.274458E+00
- PKER_RWETH( 25, 39) = 0.276220E+00
- PKER_RWETH( 25, 40) = 0.277669E+00
- PKER_RWETH( 26, 1) = 0.136413E+02
- PKER_RWETH( 26, 2) = 0.112526E+02
- PKER_RWETH( 26, 3) = 0.927503E+01
- PKER_RWETH( 26, 4) = 0.763768E+01
- PKER_RWETH( 26, 5) = 0.628200E+01
- PKER_RWETH( 26, 6) = 0.515948E+01
- PKER_RWETH( 26, 7) = 0.422997E+01
- PKER_RWETH( 26, 8) = 0.346023E+01
- PKER_RWETH( 26, 9) = 0.282275E+01
- PKER_RWETH( 26, 10) = 0.229473E+01
- PKER_RWETH( 26, 11) = 0.185731E+01
- PKER_RWETH( 26, 12) = 0.149489E+01
- PKER_RWETH( 26, 13) = 0.119454E+01
- PKER_RWETH( 26, 14) = 0.945593E+00
- PKER_RWETH( 26, 15) = 0.739243E+00
- PKER_RWETH( 26, 16) = 0.568324E+00
- PKER_RWETH( 26, 17) = 0.427174E+00
- PKER_RWETH( 26, 18) = 0.311688E+00
- PKER_RWETH( 26, 19) = 0.219506E+00
- PKER_RWETH( 26, 20) = 0.150065E+00
- PKER_RWETH( 26, 21) = 0.103983E+00
- PKER_RWETH( 26, 22) = 0.813323E-01
- PKER_RWETH( 26, 23) = 0.795339E-01
- PKER_RWETH( 26, 24) = 0.926187E-01
- PKER_RWETH( 26, 25) = 0.113085E+00
- PKER_RWETH( 26, 26) = 0.134774E+00
- PKER_RWETH( 26, 27) = 0.154384E+00
- PKER_RWETH( 26, 28) = 0.170899E+00
- PKER_RWETH( 26, 29) = 0.184441E+00
- PKER_RWETH( 26, 30) = 0.195459E+00
- PKER_RWETH( 26, 31) = 0.204415E+00
- PKER_RWETH( 26, 32) = 0.211698E+00
- PKER_RWETH( 26, 33) = 0.217630E+00
- PKER_RWETH( 26, 34) = 0.222469E+00
- PKER_RWETH( 26, 35) = 0.226420E+00
- PKER_RWETH( 26, 36) = 0.229653E+00
- PKER_RWETH( 26, 37) = 0.232300E+00
- PKER_RWETH( 26, 38) = 0.234471E+00
- PKER_RWETH( 26, 39) = 0.236253E+00
- PKER_RWETH( 26, 40) = 0.237716E+00
- PKER_RWETH( 27, 1) = 0.136746E+02
- PKER_RWETH( 27, 2) = 0.112861E+02
- PKER_RWETH( 27, 3) = 0.930868E+01
- PKER_RWETH( 27, 4) = 0.767152E+01
- PKER_RWETH( 27, 5) = 0.631604E+01
- PKER_RWETH( 27, 6) = 0.519374E+01
- PKER_RWETH( 27, 7) = 0.426447E+01
- PKER_RWETH( 27, 8) = 0.349498E+01
- PKER_RWETH( 27, 9) = 0.285775E+01
- PKER_RWETH( 27, 10) = 0.233001E+01
- PKER_RWETH( 27, 11) = 0.189288E+01
- PKER_RWETH( 27, 12) = 0.153076E+01
- PKER_RWETH( 27, 13) = 0.123072E+01
- PKER_RWETH( 27, 14) = 0.982064E+00
- PKER_RWETH( 27, 15) = 0.775961E+00
- PKER_RWETH( 27, 16) = 0.605136E+00
- PKER_RWETH( 27, 17) = 0.463679E+00
- PKER_RWETH( 27, 18) = 0.346968E+00
- PKER_RWETH( 27, 19) = 0.251737E+00
- PKER_RWETH( 27, 20) = 0.176232E+00
- PKER_RWETH( 27, 21) = 0.120216E+00
- PKER_RWETH( 27, 22) = 0.842855E-01
- PKER_RWETH( 27, 23) = 0.682432E-01
- PKER_RWETH( 27, 24) = 0.693968E-01
- PKER_RWETH( 27, 25) = 0.822195E-01
- PKER_RWETH( 27, 26) = 0.100330E+00
- PKER_RWETH( 27, 27) = 0.118826E+00
- PKER_RWETH( 27, 28) = 0.135271E+00
- PKER_RWETH( 27, 29) = 0.149030E+00
- PKER_RWETH( 27, 30) = 0.160290E+00
- PKER_RWETH( 27, 31) = 0.169449E+00
- PKER_RWETH( 27, 32) = 0.176893E+00
- PKER_RWETH( 27, 33) = 0.182947E+00
- PKER_RWETH( 27, 34) = 0.187879E+00
- PKER_RWETH( 27, 35) = 0.191900E+00
- PKER_RWETH( 27, 36) = 0.195185E+00
- PKER_RWETH( 27, 37) = 0.197872E+00
- PKER_RWETH( 27, 38) = 0.200072E+00
- PKER_RWETH( 27, 39) = 0.201876E+00
- PKER_RWETH( 27, 40) = 0.203356E+00
- PKER_RWETH( 28, 1) = 0.137029E+02
- PKER_RWETH( 28, 2) = 0.113146E+02
- PKER_RWETH( 28, 3) = 0.933732E+01
- PKER_RWETH( 28, 4) = 0.770032E+01
- PKER_RWETH( 28, 5) = 0.634501E+01
- PKER_RWETH( 28, 6) = 0.522288E+01
- PKER_RWETH( 28, 7) = 0.429379E+01
- PKER_RWETH( 28, 8) = 0.352449E+01
- PKER_RWETH( 28, 9) = 0.288747E+01
- PKER_RWETH( 28, 10) = 0.235994E+01
- PKER_RWETH( 28, 11) = 0.192305E+01
- PKER_RWETH( 28, 12) = 0.156117E+01
- PKER_RWETH( 28, 13) = 0.126138E+01
- PKER_RWETH( 28, 14) = 0.101298E+01
- PKER_RWETH( 28, 15) = 0.807124E+00
- PKER_RWETH( 28, 16) = 0.636495E+00
- PKER_RWETH( 28, 17) = 0.495081E+00
- PKER_RWETH( 28, 18) = 0.378020E+00
- PKER_RWETH( 28, 19) = 0.281548E+00
- PKER_RWETH( 28, 20) = 0.203081E+00
- PKER_RWETH( 28, 21) = 0.141353E+00
- PKER_RWETH( 28, 22) = 0.963613E-01
- PKER_RWETH( 28, 23) = 0.686158E-01
- PKER_RWETH( 28, 24) = 0.577003E-01
- PKER_RWETH( 28, 25) = 0.608435E-01
- PKER_RWETH( 28, 26) = 0.730535E-01
- PKER_RWETH( 28, 27) = 0.889343E-01
- PKER_RWETH( 28, 28) = 0.104643E+00
- PKER_RWETH( 28, 29) = 0.118411E+00
- PKER_RWETH( 28, 30) = 0.129868E+00
- PKER_RWETH( 28, 31) = 0.139231E+00
- PKER_RWETH( 28, 32) = 0.146844E+00
- PKER_RWETH( 28, 33) = 0.153033E+00
- PKER_RWETH( 28, 34) = 0.158067E+00
- PKER_RWETH( 28, 35) = 0.162167E+00
- PKER_RWETH( 28, 36) = 0.165510E+00
- PKER_RWETH( 28, 37) = 0.168241E+00
- PKER_RWETH( 28, 38) = 0.170474E+00
- PKER_RWETH( 28, 39) = 0.172303E+00
- PKER_RWETH( 28, 40) = 0.173802E+00
- PKER_RWETH( 29, 1) = 0.137271E+02
- PKER_RWETH( 29, 2) = 0.113389E+02
- PKER_RWETH( 29, 3) = 0.936173E+01
- PKER_RWETH( 29, 4) = 0.772485E+01
- PKER_RWETH( 29, 5) = 0.636967E+01
- PKER_RWETH( 29, 6) = 0.524768E+01
- PKER_RWETH( 29, 7) = 0.431873E+01
- PKER_RWETH( 29, 8) = 0.354959E+01
- PKER_RWETH( 29, 9) = 0.291273E+01
- PKER_RWETH( 29, 10) = 0.238537E+01
- PKER_RWETH( 29, 11) = 0.194865E+01
- PKER_RWETH( 29, 12) = 0.158696E+01
- PKER_RWETH( 29, 13) = 0.128738E+01
- PKER_RWETH( 29, 14) = 0.103919E+01
- PKER_RWETH( 29, 15) = 0.833552E+00
- PKER_RWETH( 29, 16) = 0.663125E+00
- PKER_RWETH( 29, 17) = 0.521865E+00
- PKER_RWETH( 29, 18) = 0.404804E+00
- PKER_RWETH( 29, 19) = 0.307944E+00
- PKER_RWETH( 29, 20) = 0.228229E+00
- PKER_RWETH( 29, 21) = 0.163636E+00
- PKER_RWETH( 29, 22) = 0.113284E+00
- PKER_RWETH( 29, 23) = 0.773180E-01
- PKER_RWETH( 29, 24) = 0.561494E-01
- PKER_RWETH( 29, 25) = 0.491502E-01
- PKER_RWETH( 29, 26) = 0.535664E-01
- PKER_RWETH( 29, 27) = 0.649274E-01
- PKER_RWETH( 29, 28) = 0.787521E-01
- PKER_RWETH( 29, 29) = 0.920477E-01
- PKER_RWETH( 29, 30) = 0.103558E+00
- PKER_RWETH( 29, 31) = 0.113095E+00
- PKER_RWETH( 29, 32) = 0.120880E+00
- PKER_RWETH( 29, 33) = 0.127210E+00
- PKER_RWETH( 29, 34) = 0.132356E+00
- PKER_RWETH( 29, 35) = 0.136542E+00
- PKER_RWETH( 29, 36) = 0.139951E+00
- PKER_RWETH( 29, 37) = 0.142731E+00
- PKER_RWETH( 29, 38) = 0.145001E+00
- PKER_RWETH( 29, 39) = 0.146858E+00
- PKER_RWETH( 29, 40) = 0.148378E+00
- PKER_RWETH( 30, 1) = 0.137477E+02
- PKER_RWETH( 30, 2) = 0.113596E+02
- PKER_RWETH( 30, 3) = 0.938254E+01
- PKER_RWETH( 30, 4) = 0.774576E+01
- PKER_RWETH( 30, 5) = 0.639068E+01
- PKER_RWETH( 30, 6) = 0.526879E+01
- PKER_RWETH( 30, 7) = 0.433996E+01
- PKER_RWETH( 30, 8) = 0.357094E+01
- PKER_RWETH( 30, 9) = 0.293420E+01
- PKER_RWETH( 30, 10) = 0.240698E+01
- PKER_RWETH( 30, 11) = 0.197041E+01
- PKER_RWETH( 30, 12) = 0.160887E+01
- PKER_RWETH( 30, 13) = 0.130945E+01
- PKER_RWETH( 30, 14) = 0.106143E+01
- PKER_RWETH( 30, 15) = 0.855966E+00
- PKER_RWETH( 30, 16) = 0.685719E+00
- PKER_RWETH( 30, 17) = 0.544626E+00
- PKER_RWETH( 30, 18) = 0.427680E+00
- PKER_RWETH( 30, 19) = 0.330783E+00
- PKER_RWETH( 30, 20) = 0.250649E+00
- PKER_RWETH( 30, 21) = 0.184810E+00
- PKER_RWETH( 30, 22) = 0.131698E+00
- PKER_RWETH( 30, 23) = 0.907310E-01
- PKER_RWETH( 30, 24) = 0.621333E-01
- PKER_RWETH( 30, 25) = 0.462193E-01
- PKER_RWETH( 30, 26) = 0.421662E-01
- PKER_RWETH( 30, 27) = 0.473138E-01
- PKER_RWETH( 30, 28) = 0.577107E-01
- PKER_RWETH( 30, 29) = 0.696596E-01
- PKER_RWETH( 30, 30) = 0.808783E-01
- PKER_RWETH( 30, 31) = 0.904907E-01
- PKER_RWETH( 30, 32) = 0.984276E-01
- PKER_RWETH( 30, 33) = 0.104901E+00
- PKER_RWETH( 30, 34) = 0.110165E+00
- PKER_RWETH( 30, 35) = 0.114443E+00
- PKER_RWETH( 30, 36) = 0.117924E+00
- PKER_RWETH( 30, 37) = 0.120759E+00
- PKER_RWETH( 30, 38) = 0.123072E+00
- PKER_RWETH( 30, 39) = 0.124960E+00
- PKER_RWETH( 30, 40) = 0.126503E+00
- PKER_RWETH( 31, 1) = 0.137654E+02
- PKER_RWETH( 31, 2) = 0.113773E+02
- PKER_RWETH( 31, 3) = 0.940030E+01
- PKER_RWETH( 31, 4) = 0.776359E+01
- PKER_RWETH( 31, 5) = 0.640859E+01
- PKER_RWETH( 31, 6) = 0.528679E+01
- PKER_RWETH( 31, 7) = 0.435805E+01
- PKER_RWETH( 31, 8) = 0.358912E+01
- PKER_RWETH( 31, 9) = 0.295248E+01
- PKER_RWETH( 31, 10) = 0.242536E+01
- PKER_RWETH( 31, 11) = 0.198890E+01
- PKER_RWETH( 31, 12) = 0.162749E+01
- PKER_RWETH( 31, 13) = 0.132819E+01
- PKER_RWETH( 31, 14) = 0.108031E+01
- PKER_RWETH( 31, 15) = 0.874986E+00
- PKER_RWETH( 31, 16) = 0.704888E+00
- PKER_RWETH( 31, 17) = 0.563945E+00
- PKER_RWETH( 31, 18) = 0.447136E+00
- PKER_RWETH( 31, 19) = 0.350322E+00
- PKER_RWETH( 31, 20) = 0.270119E+00
- PKER_RWETH( 31, 21) = 0.203836E+00
- PKER_RWETH( 31, 22) = 0.149485E+00
- PKER_RWETH( 31, 23) = 0.105870E+00
- PKER_RWETH( 31, 24) = 0.726361E-01
- PKER_RWETH( 31, 25) = 0.500546E-01
- PKER_RWETH( 31, 26) = 0.382950E-01
- PKER_RWETH( 31, 27) = 0.364238E-01
- PKER_RWETH( 31, 28) = 0.419002E-01
- PKER_RWETH( 31, 29) = 0.512768E-01
- PKER_RWETH( 31, 30) = 0.615456E-01
- PKER_RWETH( 31, 31) = 0.709877E-01
- PKER_RWETH( 31, 32) = 0.790080E-01
- PKER_RWETH( 31, 33) = 0.856118E-01
- PKER_RWETH( 31, 34) = 0.909951E-01
- PKER_RWETH( 31, 35) = 0.953723E-01
- PKER_RWETH( 31, 36) = 0.989311E-01
- PKER_RWETH( 31, 37) = 0.101826E+00
- PKER_RWETH( 31, 38) = 0.104185E+00
- PKER_RWETH( 31, 39) = 0.106108E+00
- PKER_RWETH( 31, 40) = 0.107678E+00
- PKER_RWETH( 32, 1) = 0.137804E+02
- PKER_RWETH( 32, 2) = 0.113924E+02
- PKER_RWETH( 32, 3) = 0.941546E+01
- PKER_RWETH( 32, 4) = 0.777881E+01
- PKER_RWETH( 32, 5) = 0.642387E+01
- PKER_RWETH( 32, 6) = 0.530214E+01
- PKER_RWETH( 32, 7) = 0.437346E+01
- PKER_RWETH( 32, 8) = 0.360461E+01
- PKER_RWETH( 32, 9) = 0.296805E+01
- PKER_RWETH( 32, 10) = 0.244102E+01
- PKER_RWETH( 32, 11) = 0.200464E+01
- PKER_RWETH( 32, 12) = 0.164332E+01
- PKER_RWETH( 32, 13) = 0.134412E+01
- PKER_RWETH( 32, 14) = 0.109635E+01
- PKER_RWETH( 32, 15) = 0.891139E+00
- PKER_RWETH( 32, 16) = 0.721160E+00
- PKER_RWETH( 32, 17) = 0.580341E+00
- PKER_RWETH( 32, 18) = 0.463657E+00
- PKER_RWETH( 32, 19) = 0.366953E+00
- PKER_RWETH( 32, 20) = 0.286807E+00
- PKER_RWETH( 32, 21) = 0.220427E+00
- PKER_RWETH( 32, 22) = 0.165613E+00
- PKER_RWETH( 32, 23) = 0.120775E+00
- PKER_RWETH( 32, 24) = 0.850138E-01
- PKER_RWETH( 32, 25) = 0.581425E-01
- PKER_RWETH( 32, 26) = 0.404419E-01
- PKER_RWETH( 32, 27) = 0.319552E-01
- PKER_RWETH( 32, 28) = 0.316626E-01
- PKER_RWETH( 32, 29) = 0.371741E-01
- PKER_RWETH( 32, 30) = 0.455292E-01
- PKER_RWETH( 32, 31) = 0.543130E-01
- PKER_RWETH( 32, 32) = 0.622423E-01
- PKER_RWETH( 32, 33) = 0.689293E-01
- PKER_RWETH( 32, 34) = 0.744234E-01
- PKER_RWETH( 32, 35) = 0.789005E-01
- PKER_RWETH( 32, 36) = 0.825413E-01
- PKER_RWETH( 32, 37) = 0.855015E-01
- PKER_RWETH( 32, 38) = 0.879101E-01
- PKER_RWETH( 32, 39) = 0.898719E-01
- PKER_RWETH( 32, 40) = 0.914716E-01
- PKER_RWETH( 33, 1) = 0.137933E+02
- PKER_RWETH( 33, 2) = 0.114053E+02
- PKER_RWETH( 33, 3) = 0.942841E+01
- PKER_RWETH( 33, 4) = 0.779180E+01
- PKER_RWETH( 33, 5) = 0.643691E+01
- PKER_RWETH( 33, 6) = 0.531523E+01
- PKER_RWETH( 33, 7) = 0.438661E+01
- PKER_RWETH( 33, 8) = 0.361782E+01
- PKER_RWETH( 33, 9) = 0.298132E+01
- PKER_RWETH( 33, 10) = 0.245435E+01
- PKER_RWETH( 33, 11) = 0.201805E+01
- PKER_RWETH( 33, 12) = 0.165680E+01
- PKER_RWETH( 33, 13) = 0.135768E+01
- PKER_RWETH( 33, 14) = 0.110999E+01
- PKER_RWETH( 33, 15) = 0.904867E+00
- PKER_RWETH( 33, 16) = 0.734983E+00
- PKER_RWETH( 33, 17) = 0.594264E+00
- PKER_RWETH( 33, 18) = 0.477684E+00
- PKER_RWETH( 33, 19) = 0.381084E+00
- PKER_RWETH( 33, 20) = 0.301025E+00
- PKER_RWETH( 33, 21) = 0.234678E+00
- PKER_RWETH( 33, 22) = 0.179744E+00
- PKER_RWETH( 33, 23) = 0.134427E+00
- PKER_RWETH( 33, 24) = 0.974646E-01
- PKER_RWETH( 33, 25) = 0.681937E-01
- PKER_RWETH( 33, 26) = 0.465543E-01
- PKER_RWETH( 33, 27) = 0.328007E-01
- PKER_RWETH( 33, 28) = 0.268706E-01
- PKER_RWETH( 33, 29) = 0.276742E-01
- PKER_RWETH( 33, 30) = 0.330242E-01
- PKER_RWETH( 33, 31) = 0.403935E-01
- PKER_RWETH( 33, 32) = 0.478738E-01
- PKER_RWETH( 33, 33) = 0.545206E-01
- PKER_RWETH( 33, 34) = 0.600926E-01
- PKER_RWETH( 33, 35) = 0.646634E-01
- PKER_RWETH( 33, 36) = 0.683873E-01
- PKER_RWETH( 33, 37) = 0.714159E-01
- PKER_RWETH( 33, 38) = 0.738787E-01
- PKER_RWETH( 33, 39) = 0.758827E-01
- PKER_RWETH( 33, 40) = 0.775149E-01
- PKER_RWETH( 34, 1) = 0.138043E+02
- PKER_RWETH( 34, 2) = 0.114163E+02
- PKER_RWETH( 34, 3) = 0.943947E+01
- PKER_RWETH( 34, 4) = 0.780291E+01
- PKER_RWETH( 34, 5) = 0.644805E+01
- PKER_RWETH( 34, 6) = 0.532642E+01
- PKER_RWETH( 34, 7) = 0.439784E+01
- PKER_RWETH( 34, 8) = 0.362909E+01
- PKER_RWETH( 34, 9) = 0.299264E+01
- PKER_RWETH( 34, 10) = 0.246572E+01
- PKER_RWETH( 34, 11) = 0.202947E+01
- PKER_RWETH( 34, 12) = 0.166828E+01
- PKER_RWETH( 34, 13) = 0.136922E+01
- PKER_RWETH( 34, 14) = 0.112160E+01
- PKER_RWETH( 34, 15) = 0.916545E+00
- PKER_RWETH( 34, 16) = 0.746735E+00
- PKER_RWETH( 34, 17) = 0.606095E+00
- PKER_RWETH( 34, 18) = 0.489599E+00
- PKER_RWETH( 34, 19) = 0.393086E+00
- PKER_RWETH( 34, 20) = 0.313112E+00
- PKER_RWETH( 34, 21) = 0.246834E+00
- PKER_RWETH( 34, 22) = 0.191912E+00
- PKER_RWETH( 34, 23) = 0.146456E+00
- PKER_RWETH( 34, 24) = 0.109003E+00
- PKER_RWETH( 34, 25) = 0.785586E-01
- PKER_RWETH( 34, 26) = 0.546497E-01
- PKER_RWETH( 34, 27) = 0.373003E-01
- PKER_RWETH( 34, 28) = 0.267289E-01
- PKER_RWETH( 34, 29) = 0.227683E-01
- PKER_RWETH( 34, 30) = 0.243048E-01
- PKER_RWETH( 34, 31) = 0.293552E-01
- PKER_RWETH( 34, 32) = 0.358030E-01
- PKER_RWETH( 34, 33) = 0.421486E-01
- PKER_RWETH( 34, 34) = 0.477119E-01
- PKER_RWETH( 34, 35) = 0.523530E-01
- PKER_RWETH( 34, 36) = 0.561555E-01
- PKER_RWETH( 34, 37) = 0.592533E-01
- PKER_RWETH( 34, 38) = 0.617731E-01
- PKER_RWETH( 34, 39) = 0.638224E-01
- PKER_RWETH( 34, 40) = 0.654901E-01
- PKER_RWETH( 35, 1) = 0.138137E+02
- PKER_RWETH( 35, 2) = 0.114258E+02
- PKER_RWETH( 35, 3) = 0.944893E+01
- PKER_RWETH( 35, 4) = 0.781240E+01
- PKER_RWETH( 35, 5) = 0.645758E+01
- PKER_RWETH( 35, 6) = 0.533597E+01
- PKER_RWETH( 35, 7) = 0.440743E+01
- PKER_RWETH( 35, 8) = 0.363871E+01
- PKER_RWETH( 35, 9) = 0.300230E+01
- PKER_RWETH( 35, 10) = 0.247542E+01
- PKER_RWETH( 35, 11) = 0.203922E+01
- PKER_RWETH( 35, 12) = 0.167807E+01
- PKER_RWETH( 35, 13) = 0.137906E+01
- PKER_RWETH( 35, 14) = 0.113148E+01
- PKER_RWETH( 35, 15) = 0.926485E+00
- PKER_RWETH( 35, 16) = 0.756733E+00
- PKER_RWETH( 35, 17) = 0.616156E+00
- PKER_RWETH( 35, 18) = 0.499726E+00
- PKER_RWETH( 35, 19) = 0.403283E+00
- PKER_RWETH( 35, 20) = 0.323383E+00
- PKER_RWETH( 35, 21) = 0.257174E+00
- PKER_RWETH( 35, 22) = 0.202305E+00
- PKER_RWETH( 35, 23) = 0.156843E+00
- PKER_RWETH( 35, 24) = 0.119234E+00
- PKER_RWETH( 35, 25) = 0.882933E-01
- PKER_RWETH( 35, 26) = 0.632437E-01
- PKER_RWETH( 35, 27) = 0.437614E-01
- PKER_RWETH( 35, 28) = 0.299201E-01
- PKER_RWETH( 35, 29) = 0.219008E-01
- PKER_RWETH( 35, 30) = 0.194367E-01
- PKER_RWETH( 35, 31) = 0.214285E-01
- PKER_RWETH( 35, 32) = 0.261037E-01
- PKER_RWETH( 35, 33) = 0.317007E-01
- PKER_RWETH( 35, 34) = 0.370659E-01
- PKER_RWETH( 35, 35) = 0.417162E-01
- PKER_RWETH( 35, 36) = 0.455807E-01
- PKER_RWETH( 35, 37) = 0.487442E-01
- PKER_RWETH( 35, 38) = 0.513216E-01
- PKER_RWETH( 35, 39) = 0.534183E-01
- PKER_RWETH( 35, 40) = 0.551239E-01
- PKER_RWETH( 36, 1) = 0.138217E+02
- PKER_RWETH( 36, 2) = 0.114338E+02
- PKER_RWETH( 36, 3) = 0.945703E+01
- PKER_RWETH( 36, 4) = 0.782051E+01
- PKER_RWETH( 36, 5) = 0.646572E+01
- PKER_RWETH( 36, 6) = 0.534413E+01
- PKER_RWETH( 36, 7) = 0.441562E+01
- PKER_RWETH( 36, 8) = 0.364693E+01
- PKER_RWETH( 36, 9) = 0.301055E+01
- PKER_RWETH( 36, 10) = 0.248370E+01
- PKER_RWETH( 36, 11) = 0.204753E+01
- PKER_RWETH( 36, 12) = 0.168642E+01
- PKER_RWETH( 36, 13) = 0.138744E+01
- PKER_RWETH( 36, 14) = 0.113991E+01
- PKER_RWETH( 36, 15) = 0.934954E+00
- PKER_RWETH( 36, 16) = 0.765248E+00
- PKER_RWETH( 36, 17) = 0.624718E+00
- PKER_RWETH( 36, 18) = 0.508341E+00
- PKER_RWETH( 36, 19) = 0.411953E+00
- PKER_RWETH( 36, 20) = 0.332112E+00
- PKER_RWETH( 36, 21) = 0.265964E+00
- PKER_RWETH( 36, 22) = 0.211152E+00
- PKER_RWETH( 36, 23) = 0.165729E+00
- PKER_RWETH( 36, 24) = 0.128099E+00
- PKER_RWETH( 36, 25) = 0.969879E-01
- PKER_RWETH( 36, 26) = 0.714385E-01
- PKER_RWETH( 36, 27) = 0.508527E-01
- PKER_RWETH( 36, 28) = 0.350208E-01
- PKER_RWETH( 36, 29) = 0.240492E-01
- PKER_RWETH( 36, 30) = 0.180569E-01
- PKER_RWETH( 36, 31) = 0.167148E-01
- PKER_RWETH( 36, 32) = 0.189530E-01
- PKER_RWETH( 36, 33) = 0.232085E-01
- PKER_RWETH( 36, 34) = 0.280365E-01
- PKER_RWETH( 36, 35) = 0.325598E-01
- PKER_RWETH( 36, 36) = 0.364432E-01
- PKER_RWETH( 36, 37) = 0.396603E-01
- PKER_RWETH( 36, 38) = 0.422924E-01
- PKER_RWETH( 36, 39) = 0.444370E-01
- PKER_RWETH( 36, 40) = 0.461821E-01
- PKER_RWETH( 37, 1) = 0.138286E+02
- PKER_RWETH( 37, 2) = 0.114408E+02
- PKER_RWETH( 37, 3) = 0.946395E+01
- PKER_RWETH( 37, 4) = 0.782746E+01
- PKER_RWETH( 37, 5) = 0.647268E+01
- PKER_RWETH( 37, 6) = 0.535111E+01
- PKER_RWETH( 37, 7) = 0.442262E+01
- PKER_RWETH( 37, 8) = 0.365395E+01
- PKER_RWETH( 37, 9) = 0.301760E+01
- PKER_RWETH( 37, 10) = 0.249077E+01
- PKER_RWETH( 37, 11) = 0.205463E+01
- PKER_RWETH( 37, 12) = 0.169354E+01
- PKER_RWETH( 37, 13) = 0.139460E+01
- PKER_RWETH( 37, 14) = 0.114709E+01
- PKER_RWETH( 37, 15) = 0.942174E+00
- PKER_RWETH( 37, 16) = 0.772503E+00
- PKER_RWETH( 37, 17) = 0.632012E+00
- PKER_RWETH( 37, 18) = 0.515675E+00
- PKER_RWETH( 37, 19) = 0.419331E+00
- PKER_RWETH( 37, 20) = 0.339536E+00
- PKER_RWETH( 37, 21) = 0.273438E+00
- PKER_RWETH( 37, 22) = 0.218676E+00
- PKER_RWETH( 37, 23) = 0.173299E+00
- PKER_RWETH( 37, 24) = 0.135696E+00
- PKER_RWETH( 37, 25) = 0.104551E+00
- PKER_RWETH( 37, 26) = 0.788199E-01
- PKER_RWETH( 37, 27) = 0.577354E-01
- PKER_RWETH( 37, 28) = 0.408418E-01
- PKER_RWETH( 37, 29) = 0.280163E-01
- PKER_RWETH( 37, 30) = 0.193782E-01
- PKER_RWETH( 37, 31) = 0.149908E-01
- PKER_RWETH( 37, 32) = 0.144734E-01
- PKER_RWETH( 37, 33) = 0.168026E-01
- PKER_RWETH( 37, 34) = 0.206235E-01
- PKER_RWETH( 37, 35) = 0.247667E-01
- PKER_RWETH( 37, 36) = 0.285711E-01
- PKER_RWETH( 37, 37) = 0.318112E-01
- PKER_RWETH( 37, 38) = 0.344891E-01
- PKER_RWETH( 37, 39) = 0.366792E-01
- PKER_RWETH( 37, 40) = 0.384641E-01
- PKER_RWETH( 38, 1) = 0.138345E+02
- PKER_RWETH( 38, 2) = 0.114467E+02
- PKER_RWETH( 38, 3) = 0.946988E+01
- PKER_RWETH( 38, 4) = 0.783340E+01
- PKER_RWETH( 38, 5) = 0.647863E+01
- PKER_RWETH( 38, 6) = 0.535709E+01
- PKER_RWETH( 38, 7) = 0.442861E+01
- PKER_RWETH( 38, 8) = 0.365996E+01
- PKER_RWETH( 38, 9) = 0.302362E+01
- PKER_RWETH( 38, 10) = 0.249682E+01
- PKER_RWETH( 38, 11) = 0.206069E+01
- PKER_RWETH( 38, 12) = 0.169963E+01
- PKER_RWETH( 38, 13) = 0.140071E+01
- PKER_RWETH( 38, 14) = 0.115323E+01
- PKER_RWETH( 38, 15) = 0.948333E+00
- PKER_RWETH( 38, 16) = 0.778690E+00
- PKER_RWETH( 38, 17) = 0.638228E+00
- PKER_RWETH( 38, 18) = 0.521923E+00
- PKER_RWETH( 38, 19) = 0.425613E+00
- PKER_RWETH( 38, 20) = 0.345854E+00
- PKER_RWETH( 38, 21) = 0.279795E+00
- PKER_RWETH( 38, 22) = 0.225075E+00
- PKER_RWETH( 38, 23) = 0.179739E+00
- PKER_RWETH( 38, 24) = 0.142173E+00
- PKER_RWETH( 38, 25) = 0.111044E+00
- PKER_RWETH( 38, 26) = 0.852693E-01
- PKER_RWETH( 38, 27) = 0.639938E-01
- PKER_RWETH( 38, 28) = 0.466054E-01
- PKER_RWETH( 38, 29) = 0.327645E-01
- PKER_RWETH( 38, 30) = 0.224136E-01
- PKER_RWETH( 38, 31) = 0.156672E-01
- PKER_RWETH( 38, 32) = 0.125407E-01
- PKER_RWETH( 38, 33) = 0.126088E-01
- PKER_RWETH( 38, 34) = 0.149224E-01
- PKER_RWETH( 38, 35) = 0.183139E-01
- PKER_RWETH( 38, 36) = 0.218522E-01
- PKER_RWETH( 38, 37) = 0.250453E-01
- PKER_RWETH( 38, 38) = 0.277469E-01
- PKER_RWETH( 38, 39) = 0.299758E-01
- PKER_RWETH( 38, 40) = 0.317985E-01
- PKER_RWETH( 39, 1) = 0.138396E+02
- PKER_RWETH( 39, 2) = 0.114517E+02
- PKER_RWETH( 39, 3) = 0.947496E+01
- PKER_RWETH( 39, 4) = 0.783849E+01
- PKER_RWETH( 39, 5) = 0.648373E+01
- PKER_RWETH( 39, 6) = 0.536220E+01
- PKER_RWETH( 39, 7) = 0.443373E+01
- PKER_RWETH( 39, 8) = 0.366510E+01
- PKER_RWETH( 39, 9) = 0.302877E+01
- PKER_RWETH( 39, 10) = 0.250199E+01
- PKER_RWETH( 39, 11) = 0.206588E+01
- PKER_RWETH( 39, 12) = 0.170483E+01
- PKER_RWETH( 39, 13) = 0.140593E+01
- PKER_RWETH( 39, 14) = 0.115847E+01
- PKER_RWETH( 39, 15) = 0.953590E+00
- PKER_RWETH( 39, 16) = 0.783969E+00
- PKER_RWETH( 39, 17) = 0.643530E+00
- PKER_RWETH( 39, 18) = 0.527250E+00
- PKER_RWETH( 39, 19) = 0.430966E+00
- PKER_RWETH( 39, 20) = 0.351236E+00
- PKER_RWETH( 39, 21) = 0.285208E+00
- PKER_RWETH( 39, 22) = 0.230520E+00
- PKER_RWETH( 39, 23) = 0.185219E+00
- PKER_RWETH( 39, 24) = 0.147687E+00
- PKER_RWETH( 39, 25) = 0.116587E+00
- PKER_RWETH( 39, 26) = 0.908192E-01
- PKER_RWETH( 39, 27) = 0.694900E-01
- PKER_RWETH( 39, 28) = 0.519037E-01
- PKER_RWETH( 39, 29) = 0.375752E-01
- PKER_RWETH( 39, 30) = 0.262572E-01
- PKER_RWETH( 39, 31) = 0.179379E-01
- PKER_RWETH( 39, 32) = 0.127211E-01
- PKER_RWETH( 39, 33) = 0.105726E-01
- PKER_RWETH( 39, 34) = 0.110445E-01
- PKER_RWETH( 39, 35) = 0.132652E-01
- PKER_RWETH( 39, 36) = 0.162488E-01
- PKER_RWETH( 39, 37) = 0.192576E-01
- PKER_RWETH( 39, 38) = 0.219332E-01
- PKER_RWETH( 39, 39) = 0.241847E-01
- PKER_RWETH( 39, 40) = 0.260398E-01
- PKER_RWETH( 40, 1) = 0.138439E+02
- PKER_RWETH( 40, 2) = 0.114561E+02
- PKER_RWETH( 40, 3) = 0.947930E+01
- PKER_RWETH( 40, 4) = 0.784284E+01
- PKER_RWETH( 40, 5) = 0.648810E+01
- PKER_RWETH( 40, 6) = 0.536657E+01
- PKER_RWETH( 40, 7) = 0.443812E+01
- PKER_RWETH( 40, 8) = 0.366949E+01
- PKER_RWETH( 40, 9) = 0.303318E+01
- PKER_RWETH( 40, 10) = 0.250641E+01
- PKER_RWETH( 40, 11) = 0.207031E+01
- PKER_RWETH( 40, 12) = 0.170928E+01
- PKER_RWETH( 40, 13) = 0.141039E+01
- PKER_RWETH( 40, 14) = 0.116294E+01
- PKER_RWETH( 40, 15) = 0.958081E+00
- PKER_RWETH( 40, 16) = 0.788476E+00
- PKER_RWETH( 40, 17) = 0.648056E+00
- PKER_RWETH( 40, 18) = 0.531794E+00
- PKER_RWETH( 40, 19) = 0.435532E+00
- PKER_RWETH( 40, 20) = 0.355824E+00
- PKER_RWETH( 40, 21) = 0.289819E+00
- PKER_RWETH( 40, 22) = 0.235157E+00
- PKER_RWETH( 40, 23) = 0.189883E+00
- PKER_RWETH( 40, 24) = 0.152380E+00
- PKER_RWETH( 40, 25) = 0.121308E+00
- PKER_RWETH( 40, 26) = 0.955623E-01
- PKER_RWETH( 40, 27) = 0.742324E-01
- PKER_RWETH( 40, 28) = 0.565844E-01
- PKER_RWETH( 40, 29) = 0.420531E-01
- PKER_RWETH( 40, 30) = 0.302574E-01
- PKER_RWETH( 40, 31) = 0.210233E-01
- PKER_RWETH( 40, 32) = 0.143677E-01
- PKER_RWETH( 40, 33) = 0.103816E-01
- PKER_RWETH( 40, 34) = 0.898239E-02
- PKER_RWETH( 40, 35) = 0.971795E-02
- PKER_RWETH( 40, 36) = 0.118003E-01
- PKER_RWETH( 40, 37) = 0.144020E-01
- PKER_RWETH( 40, 38) = 0.169513E-01
- PKER_RWETH( 40, 39) = 0.191899E-01
- PKER_RWETH( 40, 40) = 0.210656E-01
-END IF
-!
-END SUBROUTINE READ_XKER_RWETH
diff --git a/src/mesonh/micro/read_xker_sdryg.f90 b/src/mesonh/micro/read_xker_sdryg.f90
deleted file mode 100644
index 0164c57369ed1bc6f243bd076dfb669182bee224..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/read_xker_sdryg.f90
+++ /dev/null
@@ -1,3337 +0,0 @@
-!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_READ_XKER_SDRYG
-! ###########################
-!
-INTERFACE
- SUBROUTINE 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 )
-!
-INTEGER, INTENT(OUT) :: KND,KDRYLBDAG,KDRYLBDAS
-REAL, INTENT(OUT) :: PALPHAG
-REAL, INTENT(OUT) :: PNUG
-REAL, INTENT(OUT) :: PALPHAS
-REAL, INTENT(OUT) :: PNUS
-REAL, INTENT(OUT) :: PEGS
-REAL, INTENT(OUT) :: PBS
-REAL, INTENT(OUT) :: PCG
-REAL, INTENT(OUT) :: PDG
-REAL, INTENT(OUT) :: PCS
-REAL, INTENT(OUT) :: PDS
-REAL, INTENT(OUT) :: PDRYLBDAG_MAX
-REAL, INTENT(OUT) :: PDRYLBDAS_MAX
-REAL, INTENT(OUT) :: PDRYLBDAG_MIN
-REAL, INTENT(OUT) :: PDRYLBDAS_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_SDRYG
-!
-END SUBROUTINE
-!
-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, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,PKER_SDRYG )
-! ########################################################################
-!
-!!**** * * - initialize the kernels for the snow-graupel dry growth process
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the kernels PKER_SDRYG
-!! prepared from a previous run of the routine INI_RAIN_ICE. The reading
-!! of the kernels is optional after checking for the dimensions of the
-!! arrays.
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine READ_XKER_SDRYG )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 09/04/96
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!* 0.2 Declarations of local variables :
-!
-!
-INTEGER, INTENT(OUT) :: KND,KDRYLBDAG,KDRYLBDAS
-REAL, INTENT(OUT) :: PALPHAG
-REAL, INTENT(OUT) :: PNUG
-REAL, INTENT(OUT) :: PALPHAS
-REAL, INTENT(OUT) :: PNUS
-REAL, INTENT(OUT) :: PEGS
-REAL, INTENT(OUT) :: PBS
-REAL, INTENT(OUT) :: PCG
-REAL, INTENT(OUT) :: PDG
-REAL, INTENT(OUT) :: PCS
-REAL, INTENT(OUT) :: PDS
-REAL, INTENT(OUT) :: PDRYLBDAG_MAX
-REAL, INTENT(OUT) :: PDRYLBDAS_MAX
-REAL, INTENT(OUT) :: PDRYLBDAG_MIN
-REAL, INTENT(OUT) :: PDRYLBDAS_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_SDRYG
-!
-! ###################################################################
-! #INSERT HERE THE OUTPUT OF INI_RAIN_ICE IF THE KERNELS ARE UPDATED#
-! ###################################################################
-!
-KND= 50
-KDRYLBDAG= 40
-KDRYLBDAS= 80
-PALPHAG= 0.100000E+01
-PNUG= 0.100000E+01
-PALPHAS= 0.100000E+01
-PNUS= 0.100000E+01
-PEGS= 0.100000E+01
-PBS= 0.190000E+01
-PCG= 0.124000E+03
-PDG= 0.660000E+00
-PCS= 0.510000E+01
-PDS= 0.270000E+00
-PDRYLBDAG_MAX= 0.100000E+08
-PDRYLBDAS_MAX= 0.250000E+10
-PDRYLBDAG_MIN= 0.100000E+04
-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
-END IF
-!
-END SUBROUTINE READ_XKER_SDRYG
diff --git a/src/mesonh/micro/read_xker_sweth.f90 b/src/mesonh/micro/read_xker_sweth.f90
deleted file mode 100644
index 52d9df6a7bd12bfe4e7c5f00defcfab4b90ebf70..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/read_xker_sweth.f90
+++ /dev/null
@@ -1,3337 +0,0 @@
-!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 microph 2006/05/18 13:07:25
-!-----------------------------------------------------------------
-! ###########################
- MODULE MODI_READ_XKER_SWETH
-! ###########################
-!
-INTERFACE
- SUBROUTINE 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 )
-!
-INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAS
-REAL, INTENT(OUT) :: PALPHAH
-REAL, INTENT(OUT) :: PNUH
-REAL, INTENT(OUT) :: PALPHAS
-REAL, INTENT(OUT) :: PNUS
-REAL, INTENT(OUT) :: PEHS
-REAL, INTENT(OUT) :: PBS
-REAL, INTENT(OUT) :: PCH
-REAL, INTENT(OUT) :: PDH
-REAL, INTENT(OUT) :: PCS
-REAL, INTENT(OUT) :: PDS
-REAL, INTENT(OUT) :: PWETLBDAH_MAX
-REAL, INTENT(OUT) :: PWETLBDAS_MAX
-REAL, INTENT(OUT) :: PWETLBDAH_MIN
-REAL, INTENT(OUT) :: PWETLBDAS_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_SWETH
-!
-END SUBROUTINE
-!
-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, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,PKER_SWETH )
-! ########################################################################
-!
-!!**** * * - initialize the kernels for the snow-hail wet growth process
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the kernels PKER_SWETH
-!! prepared from a previous run of the routine INI_RAIN_ICE. The reading
-!! of the kernels is optional after checking for the dimensions of the
-!! arrays.
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine READ_XKER_SWETH )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 19/04/97
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!* 0.2 Declarations of local variables :
-!
-!
-INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAS
-REAL, INTENT(OUT) :: PALPHAH
-REAL, INTENT(OUT) :: PNUH
-REAL, INTENT(OUT) :: PALPHAS
-REAL, INTENT(OUT) :: PNUS
-REAL, INTENT(OUT) :: PEHS
-REAL, INTENT(OUT) :: PBS
-REAL, INTENT(OUT) :: PCH
-REAL, INTENT(OUT) :: PDH
-REAL, INTENT(OUT) :: PCS
-REAL, INTENT(OUT) :: PDS
-REAL, INTENT(OUT) :: PWETLBDAH_MAX
-REAL, INTENT(OUT) :: PWETLBDAS_MAX
-REAL, INTENT(OUT) :: PWETLBDAH_MIN
-REAL, INTENT(OUT) :: PWETLBDAS_MIN
-REAL, INTENT(OUT) :: PFDINFTY
-REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PKER_SWETH
-!
-! ########################################################################
-! #INSERT HERE THE OUTPUT OF INI_RAIN_ICE_HAIL IF THE KERNELS ARE UPDATED#
-! ########################################################################
-!
-KND= 50
-KWETLBDAH= 40
-KWETLBDAS= 80
-PALPHAH= 0.100000E+01
-PNUH= 0.800000E+01
-PALPHAS= 0.100000E+01
-PNUS= 0.100000E+01
-PEHS= 0.100000E+01
-PBS= 0.190000E+01
-PCH= 0.207000E+03
-PDH= 0.640000E+00
-PCS= 0.510000E+01
-PDS= 0.270000E+00
-PWETLBDAH_MAX= 0.100000E+08
-PWETLBDAS_MAX= 0.250000E+10
-PWETLBDAH_MIN= 0.100000E+04
-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
-END IF
-!
-END SUBROUTINE READ_XKER_SWETH
diff --git a/src/mesonh/turb/mode_prandtl.f90 b/src/mesonh/turb/mode_prandtl.f90
deleted file mode 100644
index be6a381d6f187c578aafff06a772118472da08ba..0000000000000000000000000000000000000000
--- a/src/mesonh/turb/mode_prandtl.f90
+++ /dev/null
@@ -1,2277 +0,0 @@
-!MNH_LIC Copyright 1994-2020 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 MODE_PRANDTL
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ####################
-!
-!* modification 08/2010 V. Masson smoothing of the discontinuity in functions
-! used for implicitation of exchange coefficients
-! 05/2020 V. Masson and C. Lac : bug in D_PHI3DTDZ2_O_DDTDZ
-!
-USE MODD_CTURB, ONLY : XCTV, XCSHF, XCTD, XPHI_LIM, XCPR3, XCPR4, XCPR5
-USE MODD_PARAMETERS, ONLY : JPVEXT_TURB
-!
-USE MODI_SHUMAN, ONLY: MZM, MZF
-IMPLICIT NONE
-!----------------------------------------------------------------------------
-CONTAINS
-!----------------------------------------------------------------------------
- SUBROUTINE PRANDTL(KKA,KKU,KKL,KRR,KRRI,OTURB_DIAG, &
- HTURBDIM,OOCEAN, &
- TPFILE, &
- PDXX,PDYY,PDZZ,PDZX,PDZY, &
- PTHVREF,PLOCPEXNM,PATHETA,PAMOIST, &
- PLM,PLEPS,PTKEM,PTHLM,PRM,PSVM,PSRCM, &
- PREDTH1,PREDR1, &
- PRED2TH3, PRED2R3, PRED2THR3, &
- PREDS1,PRED2THS3, PRED2RS3, &
- PBLL_O_E, &
- PETHETA, PEMOIST )
-! ###########################################################
-!
-!
-!!**** *PRANDTL* - routine to compute the Prandtl turbulent numbers
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to compute the Redelsperger
-! numbers and then get the turbulent Prandtl and Schmidt numbers:
-! * for the heat fluxes - PHI3 = 1/ Prandtl
-! * for the moisture fluxes - PSI3 = 1/ Schmidt
-!
-!!** METHOD
-!! ------
-!! The following steps are performed:
-!!
-!! 1 - default values of 1 are taken for phi3 and psi3 and different masks
-!! are defined depending on the presence of turbulence, stratification and
-!! humidity. The 1D Redelsperger numbers are computed
-!! * ZREDTH1 : (g / THVREF ) (LT**2 / TKE ) ETHETA (D Theta / Dz)
-!! * ZREDR1 : (g / THVREF ) (LT**2 / TKE ) EMOIST (D TW / Dz)
-!! 2 - 3D Redelsperger numbers are computed only for turbulent
-!! grid points where ZREDTH1 or ZREDR1 are > 0.
-!! 3 - PHI3 is computed only for turbulent grid points where ZREDTH1 > 0
-!! (turbulent thermally stratified points)
-!! 4 - PSI3 is computed only for turbulent grid points where ZREDR1 > 0
-!! (turbulent moist points)
-!!
-!!
-!! EXTERNAL
-!! --------
-!! FUNCTIONs ETHETA and EMOIST :
-!! allows to compute the coefficients
-!! for the turbulent correlation between any variable
-!! and the virtual potential temperature, of its correlations
-!! with the conservative potential temperature and the humidity
-!! conservative variable:
-!! ------- ------- -------
-!! A' Thv' = ETHETA A' Thl' + EMOIST A' Rnp'
-!!
-!! GX_M_M, GY_M_M, GZ_M_M : Cartesian gradient operators
-!! MZM : Shuman function (mean operator in the z direction)
-!! Module MODI_ETHETA : interface module for ETHETA
-!! Module MODI_EMOIST : interface module for EMOIST
-!! Module MODI_SHUMAN : interface module for Shuman operators
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : contains physical constants
-!! XG : gravity constant
-!!
-!! Module MODD_CTURB: contains the set of constants for
-!! the turbulence scheme
-!! XCTV,XCPR2 : constants for the turbulent prandtl numbers
-!! XTKEMIN : minimum value allowed for the TKE
-!!
-!! Module MODD_PARAMETERS
-!! JPVEXT_TURB : number of vertical marginal points
-!!
-!! REFERENCE
-!! ---------
-!! Book 2 of documentation (routine PRANDTL)
-!! Book 1 of documentation (Chapter: Turbulence)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart * INM and Meteo-France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 18/10/94
-!! Modifications: Feb 14, 1995 (J.Cuxart and J.Stein)
-!! Doctorization and Optimization
-!! Modifications: March 21, 1995 (J.M. Carriere)
-!! Introduction of cloud water
-!! Modifications: March 21, 1995 (J. Cuxart and J.Stein)
-!! Phi3 and Psi3 at w point + cleaning
-!! Modifications: July 2, 1995 (J.Cuxart and Ph.Bougeault)
-!! change the value of Phi3 and Psi3 if negative
-!! Modifications: Sept 20, 1995 (J. Stein, J. Cuxart, J.L. Redelsperger)
-!! remove the Where + use REDTH1+REDR1 for the tests
-!! Modifications: October 10, 1995 (J. Cuxart and J.Stein)
-!! Psi3 for tPREDS1he scalar variables
-!! Modifications: February 27, 1996 (J.Stein) optimization
-!! Modifications: June 15, 1996 (P.Jabouille) return to the previous
-!! computation of Phi3 and Psi3
-!! Modifications: October 10, 1996 (J. Stein) change the temporal
-!! discretization
-!! Modifications: May 23, 1997 (J. Stein) bug in 3D Redels number at ground
-!! with orography
-!! Modifications: Feb 20, 1998 (J. Stein) bug in all the 3D cases due to
-!! the use of ZW1 instead of ZW2
-!! Feb 20, 2003 (JP Pinty) Add PFRAC_ICE
-!! July 2005 (Tomas, Masson) implicitation of PHI3 and PSI3
-!! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after
-!! change of YCOMMENT
-!! 2012-02 Y. Seity, add possibility to run with reversed
-!! vertical levels
-!! Modifications: July 2015 (Wim de Rooy) LHARAT (Racmo turbulence) switch
-!! 2017-09 J.Escobar, use epsilon XMNH_TINY_12 for R*4
-!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-!! JL Redelsperger 03/2021 : adding Ocean case for temperature only
-!! --------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-USE MODD_CST
-USE MODD_CONF
-USE MODD_CTURB
-USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
-USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS
-!
-USE MODI_GRADIENT_M
-USE MODE_EMOIST
-USE MODE_ETHETA
-USE MODI_SHUMAN, ONLY: MZM
-USE MODE_IO_FIELD_WRITE, ONLY: IO_FIELD_WRITE
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments
-!
-INTEGER, INTENT(IN) :: KKA !near ground array index
-INTEGER, INTENT(IN) :: KKU !uppest atmosphere array index
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-
-INTEGER, INTENT(IN) :: KRR ! number of moist var.
-INTEGER, INTENT(IN) :: KRRI ! number of ice var.
-!
-LOGICAL, INTENT(IN) :: OTURB_DIAG ! switch to write some
- ! diagnostic fields in the syncronous FM-file
-LOGICAL, INTENT(IN) :: OOCEAN ! switch for Ocean model version
-CHARACTER(LEN=4), INTENT(IN) :: HTURBDIM ! Kind of turbulence param.
-TYPE(TFILEDATA), INTENT(IN) :: TPFILE ! Output file
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX,PDYY,PDZZ,PDZX,PDZY
- ! metric coefficients
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHVREF ! Virtual Potential Temp.
- ! of the reference state
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PLOCPEXNM ! Lv(T)/Cp/Exner at t-1
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PATHETA ! coefficients between
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PAMOIST ! s and Thetal and Rnp
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM ! Turbulent Mixing length
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS ! Dissipative length
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHLM,PTKEM! Conservative Potential
- ! Temperature and TKE at t-1
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRM ! Mixing ratios at t-1
- ! with PRM(:,:,:,1) = cons.
- ! mixing ratio
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PSVM ! Scalars at t-1
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRCM
- ! s'r'c/2Sigma_s2 at t-1 multiplied by Lambda_3
-!
-!
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PREDTH1 ! Redelsperger number R_theta
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PREDR1 ! Redelsperger number R_q
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRED2TH3 ! Redelsperger number R*2_theta
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRED2R3 ! Redelsperger number R*2_q
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRED2THR3! Redelsperger number R*2_thq
-REAL, DIMENSION(:,:,:,:), INTENT(OUT):: PREDS1 ! Redelsperger number R_s
-REAL, DIMENSION(:,:,:,:), INTENT(OUT):: PRED2THS3! Redelsperger number R*2_thsv
-REAL, DIMENSION(:,:,:,:), INTENT(OUT):: PRED2RS3 ! Redelsperger number R*2_qsv
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PBLL_O_E! beta*Lk*Leps/tke
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PETHETA ! coefficient E_theta
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PEMOIST ! coefficient E_moist
-!
-!
-! 0.2 declaration of local variables
-!
-REAL, DIMENSION(SIZE(PTHLM,1),SIZE(PTHLM,2),SIZE(PTHLM,3)) :: &
- ZW1, ZW2, ZW3
-! working variables
-!
-INTEGER :: IKB ! vertical index value for the first inner mass point
-INTEGER :: IKE ! vertical index value for the last inner mass point
-INTEGER :: IRESP ! Return code of FM routines
-INTEGER :: ILENG ! Length of the data field in LFIFM file
-INTEGER :: IGRID ! C-grid indicator in LFIFM file
-INTEGER :: ILENCH ! Length of comment string in LFIFM file
-CHARACTER (LEN=100) :: YCOMMENT ! comment string in LFIFM file
-CHARACTER (LEN=16) :: YRECFM ! Name of the desired field in LFIFM file
-INTEGER:: ISV ! number of scalar variables
-INTEGER:: JSV ! loop index for the scalar variables
-
-INTEGER :: JLOOP
-REAL :: ZMINVAL
-TYPE(TFIELDDATA) :: TZFIELD
-! ---------------------------------------------------------------------------
-!
-!* 1. DEFAULT VALUES, 1D REDELSPERGER NUMBERS
-! ----------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('PRANDTL',0,ZHOOK_HANDLE)
-
-IF (LHARAT) THEN
-PREDTH1(:,:,:)=0.
-PREDR1(:,:,:)=0.
-PRED2TH3(:,:,:)=0.
-PRED2R3(:,:,:)=0.
-PRED2THR3(:,:,:)=0.
-PREDS1(:,:,:,:)=0.
-PRED2THS3(:,:,:,:)=0.
-PRED2RS3(:,:,:,:)=0.
-PBLL_O_E(:,:,:)=0.
-ENDIF
-!
-IKB = KKA+JPVEXT_TURB*KKL
-IKE = KKU-JPVEXT_TURB*KKL
-ILENG=SIZE(PTHLM,1)*SIZE(PTHLM,2)*SIZE(PTHLM,3)
-ISV =SIZE(PSVM,4)
-!
-PETHETA(:,:,:) = MZM(ETHETA(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PATHETA,PSRCM,OOCEAN), KKA, KKU, KKL)
-PEMOIST(:,:,:) = MZM(EMOIST(KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM,OOCEAN), KKA, KKU, KKL)
-PETHETA(:,:,KKA) = 2.*PETHETA(:,:,IKB) - PETHETA(:,:,IKB+KKL)
-PEMOIST(:,:,KKA) = 2.*PEMOIST(:,:,IKB) - PEMOIST(:,:,IKB+KKL)
-!
-!---------------------------------------------------------------------------
-IF (.NOT. LHARAT) THEN
-!
-! 1.3 1D Redelsperger numbers
-!
-PBLL_O_E(:,:,:) = MZM(XG / PTHVREF(:,:,:) * PLM(:,:,:) * PLEPS(:,:,:) / PTKEM(:,:,:), KKA, KKU, KKL)
-IF (KRR /= 0) THEN ! moist case
- PREDTH1(:,:,:)= XCTV*PBLL_O_E(:,:,:) * PETHETA(:,:,:) * &
- & GZ_M_W(KKA, KKU, KKL,PTHLM,PDZZ)
- PREDR1(:,:,:) = XCTV*PBLL_O_E(:,:,:) * PEMOIST(:,:,:) * &
- & GZ_M_W(KKA, KKU, KKL,PRM(:,:,:,1),PDZZ)
-ELSE ! dry case
- PREDTH1(:,:,:)= XCTV*PBLL_O_E(:,:,:) * GZ_M_W(KKA, KKU, KKL,PTHLM,PDZZ)
- PREDR1(:,:,:) = 0.
-END IF
-!
-! 3. Limits on 1D Redelperger numbers
-! --------------------------------
-!
-ZMINVAL = (1.-1./XPHI_LIM)
-!
-ZW1 = 1.
-ZW2 = 1.
-!
-WHERE (PREDTH1+PREDR1<-ZMINVAL)
- ZW1 = (-ZMINVAL) / (PREDTH1+PREDR1)
-END WHERE
-!
-WHERE (PREDTH1<-ZMINVAL)
- ZW2 = (-ZMINVAL) / (PREDTH1)
-END WHERE
-ZW2 = MIN(ZW1,ZW2)
-!
-ZW1 = 1.
-WHERE (PREDR1<-ZMINVAL)
- ZW1 = (-ZMINVAL) / (PREDR1)
-END WHERE
-ZW1 = MIN(ZW2,ZW1)
-!
-!
-! 3. Modification of Mixing length and dissipative length
-! ----------------------------------------------------
-!
-PBLL_O_E(:,:,:) = PBLL_O_E(:,:,:) * ZW1(:,:,:)
-PREDTH1 (:,:,:) = PREDTH1 (:,:,:) * ZW1(:,:,:)
-PREDR1 (:,:,:) = PREDR1 (:,:,:) * ZW1(:,:,:)
-!
-! 4. Threshold for very small (in absolute value) Redelperger numbers
-! ----------------------------------------------------------------
-!
-ZW2=SIGN(1.,PREDTH1(:,:,:))
-PREDTH1(:,:,:)= ZW2(:,:,:) * MAX(1.E-30, ZW2(:,:,:)*PREDTH1(:,:,:))
-!
-IF (KRR /= 0) THEN ! dry case
- ZW2=SIGN(1.,PREDR1(:,:,:))
- PREDR1(:,:,:)= ZW2(:,:,:) * MAX(1.E-30, ZW2(:,:,:)*PREDR1(:,:,:))
-END IF
-!
-!
-!---------------------------------------------------------------------------
-!
-! For the scalar variables
-DO JSV=1,ISV
- PREDS1(:,:,:,JSV)=XCTV*PBLL_O_E(:,:,:)*GZ_M_W(KKA, KKU, KKL,PSVM(:,:,:,JSV),PDZZ)
-END DO
-!
-DO JSV=1,ISV
- ZW2=SIGN(1.,PREDS1(:,:,:,JSV))
- PREDS1(:,:,:,JSV)= ZW2(:,:,:) * MAX(1.E-30, ZW2(:,:,:)*PREDS1(:,:,:,JSV))
-END DO
-!
-!---------------------------------------------------------------------------
-!
-!* 2. 3D REDELSPERGER NUMBERS
-! ------------------------
-!
-IF(HTURBDIM=='1DIM') THEN ! 1D case
-!
-!
- PRED2TH3(:,:,:) = PREDTH1(:,:,:)**2
-!
- PRED2R3(:,:,:) = PREDR1(:,:,:) **2
-!
- PRED2THR3(:,:,:) = PREDTH1(:,:,:) * PREDR1(:,:,:)
-!
-ELSE IF (L2D) THEN ! 3D case in a 2D model
-!
- IF (KRR /= 0) THEN ! moist 3D case
- PRED2TH3(:,:,:)= PREDTH1(:,:,:)**2+(XCTV*PBLL_O_E(:,:,:)*PETHETA(:,:,:) )**2 * &
- MZM(GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL)**2, KKA, KKU, KKL)
- PRED2TH3(:,:,IKB)=PRED2TH3(:,:,IKB+KKL)
-!
- PRED2R3(:,:,:)= PREDR1(:,:,:)**2 + (XCTV*PBLL_O_E(:,:,:)*PEMOIST(:,:,:))**2 * &
- MZM(GX_M_M(PRM(:,:,:,1),PDXX,PDZZ,PDZX, KKA, KKU, KKL)**2, KKA, KKU, KKL)
- PRED2R3(:,:,IKB)=PRED2R3(:,:,IKB+KKL)
-!
- PRED2THR3(:,:,:)= PREDR1(:,:,:) * PREDTH1(:,:,:) + XCTV**2*PBLL_O_E(:,:,:)**2 * &
- PEMOIST(:,:,:) * PETHETA(:,:,:) * &
- MZM(GX_M_M(PRM(:,:,:,1),PDXX,PDZZ,PDZX, KKA, KKU, KKL)* &
- GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL), KKA, KKU, KKL)
- PRED2THR3(:,:,IKB)=PRED2THR3(:,:,IKB+KKL)
-!
- ELSE ! dry 3D case in a 2D model
- PRED2TH3(:,:,:) = PREDTH1(:,:,:)**2 + XCTV**2*PBLL_O_E(:,:,:)**2 * &
- MZM(GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL)**2, KKA, KKU, KKL)
- PRED2TH3(:,:,IKB)=PRED2TH3(:,:,IKB+KKL)
-!
- PRED2R3(:,:,:) = 0.
-!
- PRED2THR3(:,:,:) = 0.
-!
- END IF
-!
-ELSE ! 3D case in a 3D model
-!
- IF (KRR /= 0) THEN ! moist 3D case
- PRED2TH3(:,:,:)= PREDTH1(:,:,:)**2 + ( XCTV*PBLL_O_E(:,:,:)*PETHETA(:,:,:) )**2 * &
- MZM(GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL)**2 &
- + GY_M_M(PTHLM,PDYY,PDZZ,PDZY, KKA, KKU, KKL)**2, KKA, KKU, KKL)
- PRED2TH3(:,:,IKB)=PRED2TH3(:,:,IKB+KKL)
-!
- PRED2R3(:,:,:)= PREDR1(:,:,:)**2 + (XCTV*PBLL_O_E(:,:,:)*PEMOIST(:,:,:))**2 * &
- MZM(GX_M_M(PRM(:,:,:,1),PDXX,PDZZ,PDZX, KKA, KKU, KKL)**2 + &
- GY_M_M(PRM(:,:,:,1),PDYY,PDZZ,PDZY, KKA, KKU, KKL)**2, KKA, KKU, KKL)
- PRED2R3(:,:,IKB)=PRED2R3(:,:,IKB+KKL)
-!
- PRED2THR3(:,:,:)= PREDR1(:,:,:) * PREDTH1(:,:,:) + XCTV**2*PBLL_O_E(:,:,:)**2 * &
- PEMOIST(:,:,:) * PETHETA(:,:,:) * &
- MZM(GX_M_M(PRM(:,:,:,1),PDXX,PDZZ,PDZX, KKA, KKU, KKL)* &
- GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL)+ &
- GY_M_M(PRM(:,:,:,1),PDYY,PDZZ,PDZY, KKA, KKU, KKL)* &
- GY_M_M(PTHLM,PDYY,PDZZ,PDZY, KKA, KKU, KKL), KKA, KKU, KKL)
- PRED2THR3(:,:,IKB)=PRED2THR3(:,:,IKB+KKL)
-!
- ELSE ! dry 3D case in a 3D model
- PRED2TH3(:,:,:) = PREDTH1(:,:,:)**2 + XCTV**2*PBLL_O_E(:,:,:)**2 * &
- MZM(GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL)**2 &
- + GY_M_M(PTHLM,PDYY,PDZZ,PDZY, KKA, KKU, KKL)**2, KKA, KKU, KKL)
- PRED2TH3(:,:,IKB)=PRED2TH3(:,:,IKB+KKL)
-!
- PRED2R3(:,:,:) = 0.
-!
- PRED2THR3(:,:,:) = 0.
-!
- END IF
-!
-END IF ! end of the if structure on the turbulence dimensionnality
-!
-!
-!---------------------------------------------------------------------------
-!
-! 5. Prandtl numbers for scalars
-! ---------------------------
-DO JSV=1,ISV
-!
- IF(HTURBDIM=='1DIM') THEN
-! 1D case
- PRED2THS3(:,:,:,JSV) = PREDS1(:,:,:,JSV) * PREDTH1(:,:,:)
- IF (KRR /= 0) THEN
- PRED2RS3(:,:,:,JSV) = PREDR1(:,:,:) *PREDS1(:,:,:,JSV)
- ELSE
- PRED2RS3(:,:,:,JSV) = 0.
- END IF
-!
- ELSE IF (L2D) THEN ! 3D case in a 2D model
-!
- IF (KRR /= 0) THEN
- ZW1 = MZM((XG / PTHVREF * PLM * PLEPS / PTKEM)**2, KKA, KKU, KKL) *PETHETA
- ELSE
- ZW1 = MZM((XG / PTHVREF * PLM * PLEPS / PTKEM)**2, KKA, KKU, KKL)
- END IF
- PRED2THS3(:,:,:,JSV) = PREDTH1(:,:,:) * PREDS1(:,:,:,JSV) + &
- ZW1* &
- MZM(GX_M_M(PSVM(:,:,:,JSV),PDXX,PDZZ,PDZX, KKA, KKU, KKL)* &
- GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL), &
- KKA, KKU, KKL)
-!
- IF (KRR /= 0) THEN
- PRED2RS3(:,:,:,JSV) = PREDR1(:,:,:) * PREDS1(:,:,:,JSV) + &
- ZW1 * PEMOIST * &
- MZM(GX_M_M(PSVM(:,:,:,JSV),PDXX,PDZZ,PDZX, KKA, KKU, KKL)* &
- GX_M_M(PRM(:,:,:,1),PDXX,PDZZ,PDZX, KKA, KKU, KKL), &
- KKA, KKU, KKL)
- ELSE
- PRED2RS3(:,:,:,JSV) = 0.
- END IF
-!
- ELSE ! 3D case in a 3D model
-!
- IF (KRR /= 0) THEN
- ZW1 = MZM((XG / PTHVREF * PLM * PLEPS / PTKEM)**2, KKA, KKU, KKL) *PETHETA
- ELSE
- ZW1 = MZM((XG / PTHVREF * PLM * PLEPS / PTKEM)**2, KKA, KKU, KKL)
- END IF
- PRED2THS3(:,:,:,JSV) = PREDTH1(:,:,:) * PREDS1(:,:,:,JSV) + &
- ZW1* &
- MZM(GX_M_M(PSVM(:,:,:,JSV),PDXX,PDZZ,PDZX, KKA, KKU, KKL)* &
- GX_M_M(PTHLM,PDXX,PDZZ,PDZX, KKA, KKU, KKL) &
- +GY_M_M(PSVM(:,:,:,JSV),PDYY,PDZZ,PDZY, KKA, KKU, KKL)* &
- GY_M_M(PTHLM,PDYY,PDZZ,PDZY, KKA, KKU, KKL), &
- KKA, KKU, KKL)
-!
- IF (KRR /= 0) THEN
- PRED2RS3(:,:,:,JSV) = PREDR1(:,:,:) * PREDS1(:,:,:,JSV) + &
- ZW1 * PEMOIST * &
- MZM(GX_M_M(PSVM(:,:,:,JSV),PDXX,PDZZ,PDZX, KKA, KKU, KKL)* &
- GX_M_M(PRM(:,:,:,1),PDXX,PDZZ,PDZX, KKA, KKU, KKL) &
- +GY_M_M(PSVM(:,:,:,JSV),PDYY,PDZZ,PDZY, KKA, KKU, KKL)* &
- GY_M_M(PRM(:,:,:,1),PDYY,PDZZ,PDZY, KKA, KKU, KKL), &
- KKA, KKU, KKL)
- ELSE
- PRED2RS3(:,:,:,JSV) = 0.
- END IF
-!
- END IF ! end of HTURBDIM if-block
-!
-END DO
-!
-!---------------------------------------------------------------------------
-!
-!* 6. SAVES THE REDELSPERGER NUMBERS
-! ------------------------------
-!
-IF ( OTURB_DIAG .AND. TPFILE%LOPENED ) THEN
- !
- ! stores the RED_TH1
- TZFIELD%CMNHNAME = 'RED_TH1'
- TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'RED_TH1'
- TZFIELD%CUNITS = '1'
- TZFIELD%CDIR = 'XY'
- TZFIELD%CCOMMENT = 'X_Y_Z_RED_TH1'
- TZFIELD%NGRID = 4
- TZFIELD%NTYPE = TYPEREAL
- TZFIELD%NDIMS = 3
- TZFIELD%LTIMEDEP = .TRUE.
- CALL IO_Field_write(TPFILE,TZFIELD,PREDTH1)
- !
- ! stores the RED_R1
- TZFIELD%CMNHNAME = 'RED_R1'
- TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'RED_R1'
- TZFIELD%CUNITS = '1'
- TZFIELD%CDIR = 'XY'
- TZFIELD%CCOMMENT = 'X_Y_Z_RED_R1'
- TZFIELD%NGRID = 4
- TZFIELD%NTYPE = TYPEREAL
- TZFIELD%NDIMS = 3
- TZFIELD%LTIMEDEP = .TRUE.
- CALL IO_Field_write(TPFILE,TZFIELD,PREDR1)
- !
- ! stores the RED2_TH3
- TZFIELD%CMNHNAME = 'RED2_TH3'
- TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'RED2_TH3'
- TZFIELD%CUNITS = '1'
- TZFIELD%CDIR = 'XY'
- TZFIELD%CCOMMENT = 'X_Y_Z_RED2_TH3'
- TZFIELD%NGRID = 4
- TZFIELD%NTYPE = TYPEREAL
- TZFIELD%NDIMS = 3
- TZFIELD%LTIMEDEP = .TRUE.
- CALL IO_Field_write(TPFILE,TZFIELD,PRED2TH3)
- !
- ! stores the RED2_R3
- TZFIELD%CMNHNAME = 'RED2_R3'
- TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'RED2_R3'
- TZFIELD%CUNITS = '1'
- TZFIELD%CDIR = 'XY'
- TZFIELD%CCOMMENT = 'X_Y_Z_RED2_R3'
- TZFIELD%NGRID = 4
- TZFIELD%NTYPE = TYPEREAL
- TZFIELD%NDIMS = 3
- TZFIELD%LTIMEDEP = .TRUE.
- CALL IO_Field_write(TPFILE,TZFIELD,PRED2R3)
- !
- ! stores the RED2_THR3
- TZFIELD%CMNHNAME = 'RED2_THR3'
- TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'RED2_THR3'
- TZFIELD%CUNITS = '1'
- TZFIELD%CDIR = 'XY'
- TZFIELD%CCOMMENT = 'X_Y_Z_RED2_THR3'
- TZFIELD%NGRID = 4
- TZFIELD%NTYPE = TYPEREAL
- TZFIELD%NDIMS = 3
- TZFIELD%LTIMEDEP = .TRUE.
- CALL IO_Field_write(TPFILE,TZFIELD,PRED2THR3)
- !
-END IF
-!
-!---------------------------------------------------------------------------
-ENDIF ! (Done only if LHARAT is FALSE)
-!
-IF (LHOOK) CALL DR_HOOK('PRANDTL',1,ZHOOK_HANDLE)
-END SUBROUTINE PRANDTL
-!
-SUBROUTINE SMOOTH_TURB_FUNCT(PPHI3,PF_LIM,PF)
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPHI3 ! Phi3
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PF_LIM ! Value of F when Phi3 is
-! ! larger than Phi_lim
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PF ! function F to smooth
-!
-REAL, DIMENSION(SIZE(PF,1),SIZE(PF,2),SIZE(PF,3)) :: ZCOEF
-!
-!* adds a artificial correction to smooth the function near the discontinuity
-! point at Phi3 = Phi_lim
-! This smoothing is applied between 0.9*phi_lim (=2.7) and Phi_lim (=3)
-! Note that in the Boundary layer, phi is usually between 0.8 and 1
-!
-!
-ZCOEF = MAX(MIN(( 10.*(1.-PPHI3/XPHI_LIM)) ,1.), 0.)
-!
-PF(:,:,:) = ZCOEF(:,:,:) * PF &
- + (1.-ZCOEF(:,:,:)) * PF_LIM
-!
-END SUBROUTINE SMOOTH_TURB_FUNCT
-!----------------------------------------------------------------------------
-FUNCTION PHI3(PREDTH1,PREDR1,PRED2TH3,PRED2R3,PRED2THR3,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2TH3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2R3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: PHI3
-!
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: ZW1, ZW2
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PHI3',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
-!
-IF (HTURBDIM=='3DIM') THEN
- !* 3DIM case
- IF (OUSERV) THEN
- ZW1(:,:,:) = 1. + 1.5* (PREDTH1(:,:,:)+PREDR1(:,:,:)) + &
- ( 0.5 * (PREDTH1(:,:,:)**2+PREDR1(:,:,:)**2) &
- + PREDTH1(:,:,:) * PREDR1(:,:,:) &
- )
-
- ZW2(:,:,:) = 0.5 * (PRED2TH3(:,:,:)-PRED2R3(:,:,:))
-
- PHI3(:,:,:)= 1. - &
- ( ( (1.+PREDR1(:,:,:)) * &
- (PRED2THR3(:,:,:) + PRED2TH3(:,:,:)) / PREDTH1(:,:,:) &
- ) + ZW2(:,:,:) &
- ) / ZW1(:,:,:)
- ELSE
- ZW1(:,:,:) = 1. + 1.5* PREDTH1(:,:,:) + &
- 0.5* PREDTH1(:,:,:)**2
-
- ZW2(:,:,:) = 0.5* PRED2TH3(:,:,:)
-
- PHI3(:,:,:)= 1. - &
- (PRED2TH3(:,:,:) / PREDTH1(:,:,:) + ZW2(:,:,:)) / ZW1(:,:,:)
- END IF
- WHERE( PHI3 <= 0. .OR. PHI3 > XPHI_LIM )
- PHI3 = XPHI_LIM
- END WHERE
-
-ELSE
- !* 1DIM case
- IF (OUSERV) THEN
- PHI3(:,:,:)= 1./(1.+PREDTH1(:,:,:)+PREDR1(:,:,:))
- ELSE
- PHI3(:,:,:)= 1./(1.+PREDTH1(:,:,:))
- END IF
-END IF
-!
-PHI3(:,:,IKB-1)=PHI3(:,:,IKB)
-PHI3(:,:,IKE+1)=PHI3(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PHI3',1,ZHOOK_HANDLE)
-END FUNCTION PHI3
-!----------------------------------------------------------------------------
-FUNCTION PSI_SV(PREDTH1,PREDR1,PREDS1,PRED2THS,PRED2RS,PPHI3,PPSI3)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PREDS1
- REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRED2THS
- REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRED2RS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPHI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPSI3
- REAL, DIMENSION(SIZE(PRED2THS,1),SIZE(PRED2THS,2),SIZE(PRED2THS,3),SIZE(PRED2THS,4)) :: PSI_SV
-!
- INTEGER :: IKB, IKE
- INTEGER :: JSV
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PSI_SV',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
-!
-DO JSV=1,SIZE(PSI_SV,4)
- PSI_SV(:,:,:,JSV) = ( 1. &
- - (XCPR3+XCPR5) * (PRED2THS(:,:,:,JSV)/PREDS1(:,:,:,JSV)-PREDTH1) &
- - (XCPR4+XCPR5) * (PRED2RS (:,:,:,JSV)/PREDS1(:,:,:,JSV)-PREDR1 ) &
- - XCPR3 * PREDTH1 * PPHI3 - XCPR4 * PREDR1 * PPSI3 &
- ) / ( 1. + XCPR5 * ( PREDTH1 + PREDR1 ) )
-
-! control of the PSI_SV positivity
- WHERE ( (PSI_SV(:,:,:,JSV) <=0.).AND. (PREDTH1+PREDR1) <= 0. )
- PSI_SV(:,:,:,JSV)=XPHI_LIM
- END WHERE
- PSI_SV(:,:,:,JSV) = MAX( 1.E-4, MIN(XPHI_LIM,PSI_SV(:,:,:,JSV)) )
-!
- PSI_SV(:,:,IKB-1,JSV)=PSI_SV(:,:,IKB,JSV)
- PSI_SV(:,:,IKE+1,JSV)=PSI_SV(:,:,IKE,JSV)
-END DO
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PSI_SV',1,ZHOOK_HANDLE)
-END FUNCTION PSI_SV
-!----------------------------------------------------------------------------
-FUNCTION D_PHI3DTDZ_O_DDTDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPHI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2TH3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PHI3DTDZ_O_DDTDZ
- INTEGER :: IKB, IKE,JL,JK,JJ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
-!
-IF (HTURBDIM=='3DIM') THEN
- !* 3DIM case
- IF (OUSERV) THEN
- WHERE (PPHI3(:,:,:)<=XPHI_LIM)
- D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
- * (1. - PREDTH1(:,:,:) * (3./2.+PREDTH1+PREDR1) &
- /((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))) &
- + (1.+PREDR1)*(PRED2THR3+PRED2TH3) &
- / (PREDTH1*(1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1))) &
- - (1./2.*PREDTH1+PREDR1 * (1.+PREDTH1+PREDR1)) &
- / ((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))
- ELSEWHERE
- D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:)
- ENDWHERE
-
-!
- ELSE
- WHERE (PPHI3(:,:,:)<=XPHI_LIM)
- D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
- * (1. - PREDTH1(:,:,:) * (3./2.+PREDTH1) &
- /((1.+PREDTH1)*(1.+1./2.*PREDTH1))) &
- + PRED2TH3 / (PREDTH1*(1.+PREDTH1)*(1.+1./2.*PREDTH1)) &
- - 1./2.*PREDTH1 / ((1.+PREDTH1)*(1.+1./2.*PREDTH1))
- ELSEWHERE
- D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:)
- ENDWHERE
-!
- END IF
-ELSE
- !* 1DIM case
-! WHERE (PPHI3(:,:,:)<=XPHI_LIM)
-! D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
-! * (1. - PREDTH1(:,:,:)*PPHI3(:,:,:))
-! ELSEWHERE
-! D_PHI3DTDZ_O_DDTDZ(:,:,:) = PPHI3(:,:,:)
-! ENDWHERE
-DO JJ=1,SIZE(PPHI3,2)
- DO JL=1,SIZE(PPHI3,1)
- DO JK=1,SIZE(PPHI3,3)
- IF ( ABS(PPHI3(JL,JJ,JK)-XPHI_LIM) < 1.E-12 ) THEN
- D_PHI3DTDZ_O_DDTDZ(JL,JJ,JK)=PPHI3(JL,JJ,JK)*&
-& (1. - PREDTH1(JL,JJ,JK)*PPHI3(JL,JJ,JK))
- ELSE
- D_PHI3DTDZ_O_DDTDZ(JL,JJ,JK)=PPHI3(JL,JJ,JK)
- ENDIF
- ENDDO
- ENDDO
-ENDDO
-END IF
-!
-!* smoothing
-CALL SMOOTH_TURB_FUNCT(PPHI3,PPHI3,D_PHI3DTDZ_O_DDTDZ)
-!
-D_PHI3DTDZ_O_DDTDZ(:,:,IKB-1)=D_PHI3DTDZ_O_DDTDZ(:,:,IKB)
-D_PHI3DTDZ_O_DDTDZ(:,:,IKE+1)=D_PHI3DTDZ_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_PHI3DTDZ_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION D_PHI3DRDZ_O_DDRDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPHI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2TH3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PHI3DRDZ_O_DDRDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DRDZ_O_DDRDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
-!
-!
-IF (HTURBDIM=='3DIM') THEN
- !* 3DIM case
- IF (OUSERV) THEN
- WHERE (PPHI3(:,:,:)<=XPHI_LIM)
- D_PHI3DRDZ_O_DDRDZ(:,:,:) = &
- PPHI3(:,:,:) * (1.-PREDR1(:,:,:)*(3./2.+PREDTH1+PREDR1) &
- / ((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))) &
- - PREDR1(:,:,:) * (PRED2THR3+PRED2TH3) / (PREDTH1 &
- * (1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1))) &
- + PREDR1(:,:,:) * (1./2.+PREDTH1+PREDR1) &
- / ((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))
- ELSEWHERE
- D_PHI3DRDZ_O_DDRDZ(:,:,:) = PPHI3(:,:,:)
- END WHERE
- ELSE
- D_PHI3DRDZ_O_DDRDZ(:,:,:) = PPHI3(:,:,:)
- END IF
-ELSE
- !* 1DIM case
- WHERE (PPHI3(:,:,:)<=XPHI_LIM)
- D_PHI3DRDZ_O_DDRDZ(:,:,:) = PPHI3(:,:,:) &
- * (1. - PREDR1(:,:,:)*PPHI3(:,:,:))
- ELSEWHERE
- D_PHI3DRDZ_O_DDRDZ(:,:,:) = PPHI3(:,:,:)
- END WHERE
-END IF
-!
-!* smoothing
-CALL SMOOTH_TURB_FUNCT(PPHI3,PPHI3,D_PHI3DRDZ_O_DDRDZ)
-!
-D_PHI3DRDZ_O_DDRDZ(:,:,IKB-1)=D_PHI3DRDZ_O_DDRDZ(:,:,IKB)
-D_PHI3DRDZ_O_DDRDZ(:,:,IKE+1)=D_PHI3DRDZ_O_DDRDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DRDZ_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_PHI3DRDZ_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION D_PHI3DTDZ2_O_DDTDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,PDTDZ,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPHI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2TH3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PHI3DTDZ2_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ2_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PREDTH1,3)-JPVEXT_TURB
-!
-!
-IF (HTURBDIM=='3DIM') THEN
- ! by derivation of (phi3 dtdz) * dtdz according to dtdz we obtain:
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PDTDZ * (PPHI3 + &
- D_PHI3DTDZ_O_DDTDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV) )
-
-! !* 3DIM case
-! IF (OUSERV) THEN
-! WHERE (PPHI3(:,:,:)<=XPHI_LIM)
-! D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
-! * PDTDZ(:,:,:)*(2.-PREDTH1(:,:,:)*(3./2.+PREDTH1+PREDR1) &
-! /((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))) &
-! + (1.+PREDR1)*(PRED2THR3+PRED2TH3) &
-! / (PREDTH1*(1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1))) &
-! - (1./2.*PREDTH1+PREDR1 * (1.+PREDTH1+PREDR1)) &
-! / ((1.+PREDTH1+PREDR1)*(1.+1./2.*(PREDTH1+PREDR1)))
-! ELSEWHERE
-! D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) * 2. * PDTDZ(:,:,:)
-! ENDWHERE
-!
-!!
-! ELSE
-! WHERE (PPHI3(:,:,:)<=XPHI_LIM)
-! D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) &
-! * PDTDZ(:,:,:)*(2.-PREDTH1(:,:,:)*(3./2.+PREDTH1) &
-! /((1.+PREDTH1)*(1.+1./2.*PREDTH1))) &
-! + PRED2TH3 / (PREDTH1*(1.+PREDTH1)*(1.+1./2.*PREDTH1)) &
-! - 1./2.*PREDTH1 / ((1.+PREDTH1)*(1.+1./2.*PREDTH1))
-! ELSEWHERE
-! D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) * 2. * PDTDZ(:,:,:)
-! ENDWHERE
-! END IF
-ELSE
- !* 1DIM case
- WHERE (PPHI3(:,:,:)<=XPHI_LIM)
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:)*PDTDZ(:,:,:) &
- * (2. - PREDTH1(:,:,:)*PPHI3(:,:,:))
- ELSEWHERE
- D_PHI3DTDZ2_O_DDTDZ(:,:,:) = PPHI3(:,:,:) * 2. * PDTDZ(:,:,:)
- END WHERE
-END IF
-!
-!* smoothing
-CALL SMOOTH_TURB_FUNCT(PPHI3,PPHI3*2.*PDTDZ,D_PHI3DTDZ2_O_DDTDZ)
-!
-!
-D_PHI3DTDZ2_O_DDTDZ(:,:,IKB-1)=D_PHI3DTDZ2_O_DDTDZ(:,:,IKB)
-D_PHI3DTDZ2_O_DDTDZ(:,:,IKE+1)=D_PHI3DTDZ2_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_PHI3DTDZ2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WTH_WTH2(PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WTH_WTH2
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WTH2',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_WTH_WTH2(:,:,:) = XCSHF*PBLL_O_E*PETHETA*0.5/XCTD &
- * (1.+0.5*PREDTH1+PREDR1) / PD
-M3_WTH_WTH2(:,:,IKB-1)=M3_WTH_WTH2(:,:,IKB)
-M3_WTH_WTH2(:,:,IKE+1)=M3_WTH_WTH2(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WTH2',1,ZHOOK_HANDLE)
-END FUNCTION M3_WTH_WTH2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WTH_WTH2_O_DDTDZ(PM3_WTH_WTH2,PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PM3_WTH_WTH2
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WTH_WTH2_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WTH2_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_WTH_WTH2_O_DDTDZ(:,:,:) = ( 0.5*XCSHF*PBLL_O_E*PETHETA*0.5/XCTD/PD &
- - PM3_WTH_WTH2/PD*(1.5+PREDTH1+PREDR1) )&
- * PBLL_O_E * PETHETA * XCTV
-!
-D_M3_WTH_WTH2_O_DDTDZ(:,:,IKB-1)=D_M3_WTH_WTH2_O_DDTDZ(:,:,IKB)
-D_M3_WTH_WTH2_O_DDTDZ(:,:,IKE+1)=D_M3_WTH_WTH2_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WTH2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WTH_WTH2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WTH_W2TH(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WTH_W2TH
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_W2TH',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_WTH_W2TH(:,:,:) = XCSHF*PKEFF*1.5/MZM(PTKE, KKA, KKU, KKL) &
- * (1. - 0.5*PREDR1*(1.+PREDR1)/PD ) / (1.+PREDTH1)
-!
-M3_WTH_W2TH(:,:,IKB-1)=M3_WTH_W2TH(:,:,IKB)
-M3_WTH_W2TH(:,:,IKE+1)=M3_WTH_W2TH(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_W2TH',1,ZHOOK_HANDLE)
-END FUNCTION M3_WTH_W2TH
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WTH_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA,PKEFF,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WTH_W2TH_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_W2TH_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_WTH_W2TH_O_DDTDZ(:,:,:) = &
- - XCSHF*PKEFF*1.5/MZM(PTKE, KKA, KKU, KKL)/(1.+PREDTH1)**2*XCTV*PBLL_O_E*PETHETA &
- * (1. - 0.5*PREDR1*(1.+PREDR1)/PD*( 1.+(1.+PREDTH1)*(1.5+PREDR1+PREDTH1)/PD) )
-!
-D_M3_WTH_W2TH_O_DDTDZ(:,:,IKB-1)=D_M3_WTH_W2TH_O_DDTDZ(:,:,IKB)
-D_M3_WTH_W2TH_O_DDTDZ(:,:,IKE+1)=D_M3_WTH_W2TH_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_W2TH_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WTH_W2TH_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WTH_W2R(KKA,KKU,KKL,PD,PKEFF,PTKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WTH_W2R
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_W2R',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_WTH_W2R(:,:,:) = - XCSHF*PKEFF*0.75*XCTV*PBLL_O_E/MZM(PTKE, KKA, KKU, KKL)*PEMOIST*PDTDZ/PD
-!
-M3_WTH_W2R(:,:,IKB-1)=M3_WTH_W2R(:,:,IKB)
-M3_WTH_W2R(:,:,IKE+1)=M3_WTH_W2R(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_W2R',1,ZHOOK_HANDLE)
-END FUNCTION M3_WTH_W2R
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WTH_W2R_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PBLL_O_E,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WTH_W2R_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_W2R_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_WTH_W2R_O_DDTDZ(:,:,:) = - XCSHF*PKEFF*0.75*XCTV*PBLL_O_E/MZM(PTKE, KKA, KKU, KKL)*PEMOIST/PD &
- * (1. - PREDTH1*(1.5+PREDTH1+PREDR1)/PD)
-!
-D_M3_WTH_W2R_O_DDTDZ(:,:,IKB-1)=D_M3_WTH_W2R_O_DDTDZ(:,:,IKB)
-D_M3_WTH_W2R_O_DDTDZ(:,:,IKE+1)=D_M3_WTH_W2R_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_W2R_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WTH_W2R_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WTH_WR2(KKA,KKU,KKL,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WTH_WR2
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WR2',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_WTH_WR2(:,:,:) = - XCSHF*PKEFF*0.25*PBLL_O_E*XCTV*PEMOIST**2 &
- *MZM(PBETA*PLEPS/(PSQRT_TKE*PTKE), KKA, KKU, KKL)/XCTD*PDTDZ/PD
-!
-M3_WTH_WR2(:,:,IKB-1)=M3_WTH_WR2(:,:,IKB)
-M3_WTH_WR2(:,:,IKE+1)=M3_WTH_WR2(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WR2',1,ZHOOK_HANDLE)
-END FUNCTION M3_WTH_WR2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WTH_WR2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WTH_WR2_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WR2_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_WTH_WR2_O_DDTDZ(:,:,:) = - XCSHF*PKEFF*0.25*PBLL_O_E*XCTV*PEMOIST**2 &
- *MZM(PBETA*PLEPS/(PSQRT_TKE*PTKE), KKA, KKU, KKL)/XCTD/PD &
- * (1. - PREDTH1*(1.5+PREDTH1+PREDR1)/PD)
-!
-D_M3_WTH_WR2_O_DDTDZ(:,:,IKB-1)=D_M3_WTH_WR2_O_DDTDZ(:,:,IKB)
-D_M3_WTH_WR2_O_DDTDZ(:,:,IKE+1)=D_M3_WTH_WR2_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WR2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WTH_WR2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WTH_WTHR(KKA,KKU,KKL,PREDR1,PD,PKEFF,PTKE,PSQRT_TKE,PBETA,PLEPS,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PREDR1,1),SIZE(PREDR1,2),SIZE(PREDR1,3)) :: M3_WTH_WTHR
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WTHR',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-!M3_WTH_WTHR(:,:,:) = XCSHF*PKEFF*PEMOIST/MZM(PBETA*PTKE*PSQRT_TKE, KKA, KKU, KKL) &
-! *0.5*PLEPS/XCTD*(1+PREDR1)/PD
-M3_WTH_WTHR(:,:,:) = XCSHF*PKEFF*PEMOIST*MZM(PBETA/PTKE*PSQRT_TKE, KKA, KKU, KKL) &
- *0.5*PLEPS/XCTD*(1+PREDR1)/PD
-!
-M3_WTH_WTHR(:,:,IKB-1)=M3_WTH_WTHR(:,:,IKB)
-M3_WTH_WTHR(:,:,IKE+1)=M3_WTH_WTHR(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WTHR',1,ZHOOK_HANDLE)
-END FUNCTION M3_WTH_WTHR
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WTH_WTHR_O_DDTDZ(PM3_WTH_WTHR,PREDTH1,PREDR1,PD,PBLL_O_E,PETHETA)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PM3_WTH_WTHR
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WTH_WTHR_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WTHR_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_WTH_WTHR_O_DDTDZ(:,:,:) = - PM3_WTH_WTHR * (1.5+PREDTH1+PREDR1)/PD*XCTV*PBLL_O_E*PETHETA
-!
-D_M3_WTH_WTHR_O_DDTDZ(:,:,IKB-1)=D_M3_WTH_WTHR_O_DDTDZ(:,:,IKB)
-D_M3_WTH_WTHR_O_DDTDZ(:,:,IKE+1)=D_M3_WTH_WTHR_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WTHR_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WTH_WTHR_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_TH2_W2TH(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PDTDZ,PLM,PLEPS,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_TH2_W2TH
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_W2TH',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_TH2_W2TH(:,:,:) = - MZF((1.-0.5*PREDR1*(1.+PREDR1)/PD)/(1.+PREDTH1)*PDTDZ, KKA, KKU, KKL) &
- * 1.5*PLM*PLEPS/PTKE*XCTV
-!
-M3_TH2_W2TH(:,:,IKB-1)=M3_TH2_W2TH(:,:,IKB)
-M3_TH2_W2TH(:,:,IKE+1)=M3_TH2_W2TH(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_W2TH',1,ZHOOK_HANDLE)
-END FUNCTION M3_TH2_W2TH
-!----------------------------------------------------------------------------
-FUNCTION D_M3_TH2_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,OUSERV)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- LOGICAL, INTENT(IN) :: OUSERV
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_TH2_W2TH_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_W2TH_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-IF (OUSERV) THEN
-! D_M3_TH2_W2TH_O_DDTDZ(:,:,:) = - 1.5*PLM*PLEPS/PTKE*XCTV * MZF( &
-! (1.-0.5*PREDR1*(1.+PREDR1)/PD)*(1.-(1.5+PREDTH1+PREDR1)*(1.+PREDTH1)/PD ) &
-! / (1.+PREDTH1)**2, KKA, KKU, KKL)
- D_M3_TH2_W2TH_O_DDTDZ(:,:,:) = - 1.5*PLM*PLEPS/PTKE*XCTV * MZF( &
- (1.-0.5*PREDR1*(1.+PREDR1)/PD)*(1.-(1.5+PREDTH1+PREDR1)* &
- PREDTH1*(1.+PREDTH1)/PD ) / (1.+PREDTH1)**2, KKA, KKU, KKL)
-
-ELSE
- D_M3_TH2_W2TH_O_DDTDZ(:,:,:) = - 1.5*PLM*PLEPS/PTKE*XCTV * MZF(1./(1.+PREDTH1)**2, KKA, KKU, KKL)
-END IF
-!
-D_M3_TH2_W2TH_O_DDTDZ(:,:,IKB-1)=D_M3_TH2_W2TH_O_DDTDZ(:,:,IKB)
-D_M3_TH2_W2TH_O_DDTDZ(:,:,IKE+1)=D_M3_TH2_W2TH_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_W2TH_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_TH2_W2TH_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_TH2_WTH2(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_TH2_WTH2
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WTH2',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_TH2_WTH2(:,:,:) = PLEPS*0.5/XCTD/PSQRT_TKE &
- * MZF((1.+0.5*PREDTH1+1.5*PREDR1+0.5*PREDR1**2)/PD, KKA, KKU, KKL)
-!
-M3_TH2_WTH2(:,:,IKB-1)=M3_TH2_WTH2(:,:,IKB)
-M3_TH2_WTH2(:,:,IKE+1)=M3_TH2_WTH2(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WTH2',1,ZHOOK_HANDLE)
-END FUNCTION M3_TH2_WTH2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_TH2_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_TH2_WTH2_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WTH2_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_TH2_WTH2_O_DDTDZ(:,:,:) = PLEPS*0.5/XCTD/PSQRT_TKE*XCTV &
- * MZF(PBLL_O_E*PETHETA* (0.5/PD &
- - (1.5+PREDTH1+PREDR1)*(1.+0.5*PREDTH1+1.5*PREDR1+0.5*PREDR1**2)/PD**2 &
- ), KKA, KKU, KKL)
-!
-D_M3_TH2_WTH2_O_DDTDZ(:,:,IKB-1)=D_M3_TH2_WTH2_O_DDTDZ(:,:,IKB)
-D_M3_TH2_WTH2_O_DDTDZ(:,:,IKE+1)=D_M3_TH2_WTH2_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WTH2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_TH2_WTH2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_TH2_W2R(KKA,KKU,KKL,PD,PLM,PLEPS,PTKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_TH2_W2R
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_W2R',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_TH2_W2R(:,:,:) = 0.75*XCTV**2*MZF(PBLL_O_E*PEMOIST/PD*PDTDZ**2, KKA, KKU, KKL)*PLM*PLEPS/PTKE
-!
-M3_TH2_W2R(:,:,IKB-1)=M3_TH2_W2R(:,:,IKB)
-M3_TH2_W2R(:,:,IKE+1)=M3_TH2_W2R(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_W2R',1,ZHOOK_HANDLE)
-END FUNCTION M3_TH2_W2R
-!----------------------------------------------------------------------------
-FUNCTION D_M3_TH2_W2R_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_TH2_W2R_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_W2R_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_TH2_W2R_O_DDTDZ(:,:,:) = 0.75*XCTV**2*PLM*PLEPS/PTKE &
- * MZF(PBLL_O_E*PEMOIST/PD*PDTDZ*(2.-PREDTH1*(1.5+PREDTH1+PREDR1)/PD), KKA, KKU, KKL)
-!
-D_M3_TH2_W2R_O_DDTDZ(:,:,IKB-1)=D_M3_TH2_W2R_O_DDTDZ(:,:,IKB)
-D_M3_TH2_W2R_O_DDTDZ(:,:,IKE+1)=D_M3_TH2_W2R_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_W2R_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_TH2_W2R_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_TH2_WR2(KKA,KKU,KKL,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_TH2_WR2
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WR2',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_TH2_WR2(:,:,:) = 0.25*XCTV**2*MZF((PBLL_O_E*PEMOIST*PDTDZ)**2/PD, KKA, KKU, KKL)*PLEPS/PSQRT_TKE/XCTD
-!
-M3_TH2_WR2(:,:,IKB-1)=M3_TH2_WR2(:,:,IKB)
-M3_TH2_WR2(:,:,IKE+1)=M3_TH2_WR2(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WR2',1,ZHOOK_HANDLE)
-END FUNCTION M3_TH2_WR2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_TH2_WR2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_TH2_WR2_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WR2_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_TH2_WR2_O_DDTDZ(:,:,:) = 0.25*XCTV**2*PLEPS/PSQRT_TKE/XCTD &
- * MZF((PBLL_O_E*PEMOIST)**2*PDTDZ/PD*(2.-PREDTH1*(1.5+PREDTH1+PREDR1)/PD), KKA, KKU, KKL)
-!
-D_M3_TH2_WR2_O_DDTDZ(:,:,IKB-1)=D_M3_TH2_WR2_O_DDTDZ(:,:,IKB)
-D_M3_TH2_WR2_O_DDTDZ(:,:,IKE+1)=D_M3_TH2_WR2_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WR2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_TH2_WR2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_TH2_WTHR(KKA,KKU,KKL,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_TH2_WTHR
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WTHR',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_TH2_WTHR(:,:,:) = - 0.5*XCTV*PLEPS/PSQRT_TKE/XCTD &
- * MZF(PBLL_O_E*PEMOIST*PDTDZ*(1.+PREDR1)/PD, KKA, KKU, KKL)
-!
-M3_TH2_WTHR(:,:,IKB-1)=M3_TH2_WTHR(:,:,IKB)
-M3_TH2_WTHR(:,:,IKE+1)=M3_TH2_WTHR(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WTHR',1,ZHOOK_HANDLE)
-END FUNCTION M3_TH2_WTHR
-!----------------------------------------------------------------------------
-FUNCTION D_M3_TH2_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_TH2_WTHR_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WTHR_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_TH2_WTHR_O_DDTDZ(:,:,:) = - 0.5*XCTV*PLEPS/PSQRT_TKE/XCTD &
- * MZF(PBLL_O_E*PEMOIST*(1.+PREDR1)/PD * (1. -PREDTH1*(1.5+PREDTH1+PREDR1)/PD), KKA, KKU, KKL)
-!
-D_M3_TH2_WTHR_O_DDTDZ(:,:,IKB-1)=D_M3_TH2_WTHR_O_DDTDZ(:,:,IKB)
-D_M3_TH2_WTHR_O_DDTDZ(:,:,IKE+1)=D_M3_TH2_WTHR_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WTHR_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_TH2_WTHR_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_THR_WTHR(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_THR_WTHR
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WTHR',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_THR_WTHR(:,:,:) = 0.5*PLEPS/PSQRT_TKE/XCTD &
- * MZF((1.+PREDTH1)*(1.+PREDR1)/PD, KKA, KKU, KKL)
-!
-M3_THR_WTHR(:,:,IKB-1)=M3_THR_WTHR(:,:,IKB)
-M3_THR_WTHR(:,:,IKE+1)=M3_THR_WTHR(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WTHR',1,ZHOOK_HANDLE)
-END FUNCTION M3_THR_WTHR
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_WTHR_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTHR_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_THR_WTHR_O_DDTDZ(:,:,:) = 0.5*PLEPS/PSQRT_TKE/XCTD * XCTV &
- * MZF(PETHETA*PBLL_O_E/PD*(1.+PREDR1)*(1.-(1.+PREDTH1)*(1.5+PREDTH1+PREDR1)/PD), KKA, KKU, KKL)
-!
-D_M3_THR_WTHR_O_DDTDZ(:,:,IKB-1)=D_M3_THR_WTHR_O_DDTDZ(:,:,IKB)
-D_M3_THR_WTHR_O_DDTDZ(:,:,IKE+1)=D_M3_THR_WTHR_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTHR_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_WTHR_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_THR_WTH2(KKA,KKU,KKL,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_THR_WTH2
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WTH2',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_THR_WTH2(:,:,:) = - 0.25*PLEPS/PSQRT_TKE/XCTD*XCTV &
- * MZF((1.+PREDR1)*PBLL_O_E*PETHETA*PDRDZ/PD, KKA, KKU, KKL)
-!
-M3_THR_WTH2(:,:,IKB-1)=M3_THR_WTH2(:,:,IKB)
-M3_THR_WTH2(:,:,IKE+1)=M3_THR_WTH2(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WTH2',1,ZHOOK_HANDLE)
-END FUNCTION M3_THR_WTH2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_WTH2_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTH2_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_THR_WTH2_O_DDTDZ(:,:,:) = - 0.25*PLEPS/PSQRT_TKE/XCTD*XCTV**2 &
- * MZF(-(1.+PREDR1)*(PBLL_O_E*PETHETA/PD)**2*PDRDZ*(1.5+PREDTH1+PREDR1), KKA, KKU, KKL)
-!
-D_M3_THR_WTH2_O_DDTDZ(:,:,IKB-1)=D_M3_THR_WTH2_O_DDTDZ(:,:,IKB)
-D_M3_THR_WTH2_O_DDTDZ(:,:,IKE+1)=D_M3_THR_WTH2_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTH2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_WTH2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_WTH2_O_DDRDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTH2_O_DDRDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_THR_WTH2_O_DDRDZ(:,:,:) = - 0.25*PLEPS/PSQRT_TKE/XCTD*XCTV &
- * MZF(PBLL_O_E*PETHETA/PD &
- *(-(1.+PREDR1)*PREDR1/PD*(1.5+PREDTH1+PREDR1)+(1.+2.*PREDR1)), &
- KKA, KKU, KKL)
-!
-D_M3_THR_WTH2_O_DDRDZ(:,:,IKB-1)=D_M3_THR_WTH2_O_DDRDZ(:,:,IKB)
-D_M3_THR_WTH2_O_DDRDZ(:,:,IKE+1)=D_M3_THR_WTH2_O_DDRDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTH2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_WTH2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_THR_W2TH(KKA,KKU,KKL,PREDR1,PD,PLM,PLEPS,PTKE,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_THR_W2TH
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_W2TH',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-M3_THR_W2TH(:,:,:) = - 0.75*PLM*PLEPS/PTKE * XCTV &
- * MZF((1.+PREDR1)*PDRDZ/PD, KKA, KKU, KKL)
-!
-M3_THR_W2TH(:,:,IKB-1)=M3_THR_W2TH(:,:,IKB)
-M3_THR_W2TH(:,:,IKE+1)=M3_THR_W2TH(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_W2TH',1,ZHOOK_HANDLE)
-END FUNCTION M3_THR_W2TH
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PDRDZ,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_W2TH_O_DDTDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2TH_O_DDTDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_THR_W2TH_O_DDTDZ(:,:,:) = - 0.75*PLM*PLEPS/PTKE * XCTV**2 &
- * MZF(-PETHETA*PBLL_O_E*(1.+PREDR1)*PDRDZ*(1.5+PREDTH1+PREDR1)/PD**2, KKA, KKU, KKL)
-
-!
-D_M3_THR_W2TH_O_DDTDZ(:,:,IKB-1)=D_M3_THR_W2TH_O_DDTDZ(:,:,IKB)
-D_M3_THR_W2TH_O_DDTDZ(:,:,IKE+1)=D_M3_THR_W2TH_O_DDTDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2TH_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_W2TH_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDTH1,PREDR1,PD,PLM,PLEPS,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_W2TH_O_DDRDZ
- INTEGER :: IKB, IKE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2TH_O_DDRDZ',0,ZHOOK_HANDLE)
-IKB = 1+JPVEXT_TURB
-IKE = SIZE(PD,3)-JPVEXT_TURB
-
-D_M3_THR_W2TH_O_DDRDZ(:,:,:) = - 0.75*PLM*PLEPS/PTKE * XCTV &
- * MZF(-(1.+PREDR1)*PREDR1*(1.5+PREDTH1+PREDR1)/PD**2 &
- +(1.+2.*PREDR1)/PD, &
- KKA, KKU, KKL)
-
-!
-D_M3_THR_W2TH_O_DDRDZ(:,:,IKB-1)=D_M3_THR_W2TH_O_DDRDZ(:,:,IKB)
-D_M3_THR_W2TH_O_DDRDZ(:,:,IKE+1)=D_M3_THR_W2TH_O_DDRDZ(:,:,IKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2TH_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_W2TH_O_DDRDZ
-!----------------------------------------------------------------------------
-!----------------------------------------------------------------------------
-!----------------------------------------------------------------------------
-!
-FUNCTION PSI3(PREDR1,PREDTH1,PRED2R3,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2TH3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2R3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: PSI3
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PSI3',0,ZHOOK_HANDLE)
-PSI3 = PHI3(PREDR1,PREDTH1,PRED2R3,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PSI3',1,ZHOOK_HANDLE)
-END FUNCTION PSI3
-!----------------------------------------------------------------------------
-FUNCTION D_PSI3DRDZ_O_DDRDZ(PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPSI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2R3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PSI3DRDZ_O_DDRDZ
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PSI3DRDZ_O_DDRDZ',0,ZHOOK_HANDLE)
-D_PSI3DRDZ_O_DDRDZ = D_PHI3DTDZ_O_DDTDZ(PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,HTURBDIM,OUSERV)
-!
-!C'est ok?!
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PSI3DRDZ_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_PSI3DRDZ_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION D_PSI3DTDZ_O_DDTDZ(PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPSI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2R3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PSI3DTDZ_O_DDTDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PSI3DTDZ_O_DDTDZ',0,ZHOOK_HANDLE)
-D_PSI3DTDZ_O_DDTDZ = D_PHI3DRDZ_O_DDRDZ(PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,HTURBDIM,OUSERV)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PSI3DTDZ_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_PSI3DTDZ_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION D_PSI3DRDZ2_O_DDRDZ(PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,PDRDZ,HTURBDIM,OUSERV)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PPSI3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2R3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PRED2THR3
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! 1DIM or 3DIM turb. scheme
- LOGICAL, INTENT(IN) :: OUSERV ! flag to use vapor
- REAL, DIMENSION(SIZE(PREDTH1,1),SIZE(PREDTH1,2),SIZE(PREDTH1,3)) :: D_PSI3DRDZ2_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PSI3DRDZ2_O_DDRDZ',0,ZHOOK_HANDLE)
-D_PSI3DRDZ2_O_DDRDZ = D_PHI3DTDZ2_O_DDTDZ(PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,PDRDZ,HTURBDIM,OUSERV)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PSI3DRDZ2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_PSI3DRDZ2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WR_WR2(PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WR_WR2
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_WR2',0,ZHOOK_HANDLE)
-M3_WR_WR2 = M3_WTH_WTH2(PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_WR2',1,ZHOOK_HANDLE)
-END FUNCTION M3_WR_WR2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WR_WR2_O_DDRDZ(PM3_WR_WR2,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PM3_WR_WR2
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WR_WR2_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_WR2_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_WR_WR2_O_DDRDZ = D_M3_WTH_WTH2_O_DDTDZ(PM3_WR_WR2,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_WR2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WR_WR2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WR_W2R(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WR_W2R
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_W2R',0,ZHOOK_HANDLE)
-M3_WR_W2R = M3_WTH_W2TH(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_W2R',1,ZHOOK_HANDLE)
-END FUNCTION M3_WR_W2R
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WR_W2R_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST,PKEFF,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WR_W2R_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_W2R_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_WR_W2R_O_DDRDZ = D_M3_WTH_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST,PKEFF,PTKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_W2R_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WR_W2R_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WR_W2TH(KKA,KKU,KKL,PD,PKEFF,PTKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WR_W2TH
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_W2TH',0,ZHOOK_HANDLE)
-M3_WR_W2TH = M3_WTH_W2R(KKA,KKU,KKL,PD,PKEFF,PTKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_W2TH',1,ZHOOK_HANDLE)
-END FUNCTION M3_WR_W2TH
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WR_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PBLL_O_E,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WR_W2TH_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_W2TH_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_WR_W2TH_O_DDRDZ = D_M3_WTH_W2R_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PBLL_O_E,PETHETA)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_W2TH_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WR_W2TH_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WR_WTH2(KKA,KKU,KKL,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WR_WTH2
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_WTH2',0,ZHOOK_HANDLE)
-M3_WR_WTH2 = M3_WTH_WR2(KKA,KKU,KKL,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_WTH2',1,ZHOOK_HANDLE)
-END FUNCTION M3_WR_WTH2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WR_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WR_WTH2_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_WTH2_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_WR_WTH2_O_DDRDZ = D_M3_WTH_WR2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_WTH2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WR_WTH2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_WR_WTHR(KKA,KKU,KKL,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBETA,PLEPS,PETHETA)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PKEFF
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_WR_WTHR
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_WTHR',0,ZHOOK_HANDLE)
-M3_WR_WTHR = M3_WTH_WTHR(KKA,KKU,KKL,PREDTH1,PD,PKEFF,PTKE,PSQRT_TKE,PBETA,PLEPS,PETHETA)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WR_WTHR',1,ZHOOK_HANDLE)
-END FUNCTION M3_WR_WTHR
-!----------------------------------------------------------------------------
-FUNCTION D_M3_WR_WTHR_O_DDRDZ(KKA,KKU,KKL,PM3_WR_WTHR,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PM3_WR_WTHR
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_WR_WTHR_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_WTHR_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_WR_WTHR_O_DDRDZ = D_M3_WTH_WTHR_O_DDTDZ(PM3_WR_WTHR,PREDR1,PREDTH1,PD,PBLL_O_E,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WR_WTHR_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_WR_WTHR_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_R2_W2R(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PDRDZ,PLM,PLEPS,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_R2_W2R
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_W2R',0,ZHOOK_HANDLE)
-M3_R2_W2R = M3_TH2_W2TH(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PDRDZ,PLM,PLEPS,PTKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_W2R',1,ZHOOK_HANDLE)
-END FUNCTION M3_R2_W2R
-!----------------------------------------------------------------------------
-FUNCTION D_M3_R2_W2R_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,OUSERV)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- LOGICAL, INTENT(IN) :: OUSERV
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_R2_W2R_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_W2R_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_R2_W2R_O_DDRDZ = D_M3_TH2_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,OUSERV)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_W2R_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_R2_W2R_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_R2_WR2(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_R2_WR2
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_WR2',0,ZHOOK_HANDLE)
-M3_R2_WR2 = M3_TH2_WTH2(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_WR2',1,ZHOOK_HANDLE)
-END FUNCTION M3_R2_WR2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_R2_WR2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_R2_WR2_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_WR2_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_R2_WR2_O_DDRDZ = D_M3_TH2_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_WR2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_R2_WR2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_R2_W2TH(KKA,KKU,KKL,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_R2_W2TH
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_W2TH',0,ZHOOK_HANDLE)
-M3_R2_W2TH = M3_TH2_W2R(KKA,KKU,KKL,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_W2TH',1,ZHOOK_HANDLE)
-END FUNCTION M3_R2_W2TH
-!----------------------------------------------------------------------------
-FUNCTION D_M3_R2_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_R2_W2TH_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_W2TH_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_R2_W2TH_O_DDRDZ = D_M3_TH2_W2R_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_W2TH_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_R2_W2TH_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_R2_WTH2(KKA,KKU,KKL,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_R2_WTH2
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_WTH2',0,ZHOOK_HANDLE)
-M3_R2_WTH2 = M3_TH2_WR2(KKA,KKU,KKL,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_WTH2',1,ZHOOK_HANDLE)
-END FUNCTION M3_R2_WTH2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_R2_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_R2_WTH2_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_WTH2_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_R2_WTH2_O_DDRDZ = D_M3_TH2_WR2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_WTH2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_R2_WTH2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_R2_WTHR(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_R2_WTHR
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_WTHR',0,ZHOOK_HANDLE)
-M3_R2_WTHR = M3_TH2_WTHR(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_R2_WTHR',1,ZHOOK_HANDLE)
-END FUNCTION M3_R2_WTHR
-!----------------------------------------------------------------------------
-FUNCTION D_M3_R2_WTHR_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PETHETA
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDRDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_R2_WTHR_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_WTHR_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_R2_WTHR_O_DDRDZ = D_M3_TH2_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDRDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_R2_WTHR_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_R2_WTHR_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_WTHR_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_WTHR_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTHR_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_THR_WTHR_O_DDRDZ = D_M3_THR_WTHR_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTHR_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_WTHR_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_THR_WR2(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_THR_WR2
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WR2',0,ZHOOK_HANDLE)
-M3_THR_WR2 = M3_THR_WTH2(KKA,KKU,KKL,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WR2',1,ZHOOK_HANDLE)
-END FUNCTION M3_THR_WR2
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_WR2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_WR2_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WR2_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_THR_WR2_O_DDRDZ = D_M3_THR_WTH2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WR2_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_WR2_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_WR2_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSQRT_TKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_WR2_O_DDTDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WR2_O_DDTDZ',0,ZHOOK_HANDLE)
-D_M3_THR_WR2_O_DDTDZ = D_M3_THR_WTH2_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WR2_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_WR2_O_DDTDZ
-!----------------------------------------------------------------------------
-FUNCTION M3_THR_W2R(KKA,KKU,KKL,PREDTH1,PD,PLM,PLEPS,PTKE,PDTDZ)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: M3_THR_W2R
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_W2R',0,ZHOOK_HANDLE)
-M3_THR_W2R = M3_THR_W2TH(KKA,KKU,KKL,PREDTH1,PD,PLM,PLEPS,PTKE,PDTDZ)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_W2R',1,ZHOOK_HANDLE)
-END FUNCTION M3_THR_W2R
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_W2R_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PDTDZ,PEMOIST)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PBLL_O_E
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTDZ
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PEMOIST
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_W2R_O_DDRDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2R_O_DDRDZ',0,ZHOOK_HANDLE)
-D_M3_THR_W2R_O_DDRDZ = D_M3_THR_W2TH_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE,PBLL_O_E,PDTDZ,PEMOIST)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2R_O_DDRDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_W2R_O_DDRDZ
-!----------------------------------------------------------------------------
-FUNCTION D_M3_THR_W2R_O_DDTDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE)
- INTEGER, INTENT(IN) :: KKA
- INTEGER, INTENT(IN) :: KKU
- INTEGER, INTENT(IN) :: KKL
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDR1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PREDTH1
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLM
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PLEPS
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PTKE
- REAL, DIMENSION(SIZE(PD,1),SIZE(PD,2),SIZE(PD,3)) :: D_M3_THR_W2R_O_DDTDZ
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2R_O_DDTDZ',0,ZHOOK_HANDLE)
-D_M3_THR_W2R_O_DDTDZ = D_M3_THR_W2TH_O_DDRDZ(KKA,KKU,KKL,PREDR1,PREDTH1,PD,PLM,PLEPS,PTKE)
-!
-IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2R_O_DDTDZ',1,ZHOOK_HANDLE)
-END FUNCTION D_M3_THR_W2R_O_DDTDZ
-!----------------------------------------------------------------------------
-!
-END MODULE MODE_PRANDTL
-